TITLE '***** REAL STORAGE RECONFIGURATION ROUTINE IEAVRCF *****00001000 ** ' 00002000 IEAVRCF CSECT 00003000 USING *,15 00004000 MODID 00005000 IEAVRCF2 DS 0H 00006000 ENTRY IEAVRCF2 00007000 E1 STM @14,@12,12(@13) CALLER PROVIDES SAVE AREA FOR VRCF 00008000 BALR @15,0 00009000 USING *,@15 00010000 B COMMON 00011000 DC AL2(EP1-E1-6) 00012000 IEAVRCFI STM @00,@15,PVTWSA3(PVTPTR) SAVE AREA FOR INTECEPT 00013000 BALR @15,0 00014000 USING *,@15 00015000 B COMMON 00016000 DC AL2(EP2-IEAVRCFI-6) 00017000 ENTRY IEAVRCFI 00018000 IEAVRCFC BALR @15,0 COMPLETE DOES NOT SAVE REGS 00019000 USING *,@15 00020000 B COMMON 00021000 DC AL2(EP3-IEAVRCFC-2) 00022000 ENTRY IEAVRCFC 00023000 COMMON BALR @12,0 SET UP REG12 AS BASE 00024000 USING *,@12 00025000 AH @15,4(@15) 00026000 BR @15 00027000 * 0077 00028000 */********************************************************************/ 00029000 */*IEAVRCF IS ENTERED FOR ONE OF SIX REASONS: 1) ONLINE REQUEST, */ 00030000 */*2) OFFLINE REQUEST, 3) STORAGE KEY ERROR RECOVERY REQUEST, */ 00031000 */*4) STORAGE DATA ERROR RECOVERY REQUEST, 5) FRAME STATUS REQUEST, */ 00032000 */*6) CANCEL OFFLINE REQUEST. EACH OF THESE FUNCTNS IS A SUBROUTINE */ 00033000 */*WHICH GETS CALLED AFTER SAVING REGISTERS AND OBTAINING THE SALLOC */ 00034000 */*LOCK, IF NEEDED. WHEN THE SUBROUTINE COMPLETES AND RETURNS TO */ 00035000 */*MAINLINE, THE LOCK, IF HELD, WILL BE RELEASED AND REGISTERS */ 00036000 */*RESTORED BEFORE RETURNING CONTROL TO THE CALLER. */ 00037000 */********************************************************************/ 00038000 * 0077 00039000 *EP1: 0077 00040000 * ; 0077 00041000 EP1 DS 0H 0078 00042000 * PARMPTR=REG1; /* PARAMETER ADDRESS */ 00043000 LR PARMPTR,REG1 0078 00044000 * PVTPTR=CVTPVTP; 0079 00045000 L @05,CVTPTR 0079 00046000 L PVTPTR,CVTPVTP(,@05) 0079 00047000 * REG0=PVTPRCV; /* SET UP RECOVERY */ 00048000 L REG0,PVTPRCV(,PVTPTR) 0080 00049000 * RFY 0081 00050000 * REG2 RSTD; 0081 00051000 * GENERATE; 0082 00052000 SETFRR A,FRRAD=(REG0),WRKREGS=(REG1,REG2),PARMAD=(REG2) 00053000 * RESPECIFY 0083 00054000 * RCA BASED(REG2); /* @ZA09185*/ 00055000 * RCACSECT=RCACRECF; 0084 00056000 MVI RCACSECT(REG2),X'10' 0084 00057000 * RCARCF='1'B; 0085 00058000 OI RCARCF(REG2),B'00001000' 0085 00059000 * IF SALREQ='0'B /* IF 0, THEN OBTAIN SALLOC */ 00060000 * THEN 0086 00061000 TM SALREQ(PARMPTR),B'00000010' 0086 00062000 BNZ @RF00086 0086 00063000 * DO; 0087 00064000 * RCASAL='1'B; 0088 00065000 OI RCASAL(REG2),B'10000000' 0088 00066000 * REG0=REG12; /* SETLOCK CLOBBERS 11 - 14 */ 00067000 LR REG0,REG12 0089 00068000 * REG1=REG13; 0090 00069000 LR REG1,REG13 0090 00070000 * GENERATE; 0091 00071000 OB SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, **00072000 RELATED=(RSM,IEAVRCF(RE)) 00073000 * REG12=REG0; 0092 00074000 LR REG12,REG0 0092 00075000 * REG13=REG1; 0093 00076000 LR REG13,REG1 0093 00077000 * END; 0094 00078000 * 0094 00079000 * /*****************************************************************/ 00080000 * /* */ 00081000 * /* SAVE THE OLD RACA POINTER FROM PVTPRCA, AND REPLACE IT WITH */ 00082000 * /* RCA POINTER JUST OBTAINED SO THAT OTHER RSM ROUTINES WILL */ 00083000 * /* REFERENCE THE CORRECT RCA. THE OLD POINTER WILL BE RESTORED */ 00084000 * /* UPON EXIT @ZA09185*/ 00085000 * /* */ 00086000 * /*****************************************************************/ 00087000 * 0095 00088000 * RCAPSAVE=PVTPRCA; /* @ZA09185*/ 00089000 @RF00086 MVC RCAPSAVE(3,REG13),PVTPRCA+1(PVTPTR) 0095 00090000 * PVTPRCA=REG2; /* @ZA09185*/ 00091000 ST REG2,PVTPRCA(,PVTPTR) 0096 00092000 * RESPECIFY 0097 00093000 * RCA BASED(PVTPRCA); /* @ZA09185*/ 00094000 * RESPECIFY 0098 00095000 * REG2 UNRSTD; 0098 00096000 * RSMHDPTR=ASCBRSM; 0099 00097000 * 0099 00098000 L @05,ASCBPTR 0099 00099000 L RSMHDPTR,ASCBRSM(,@05) 0099 00100000 * /*****************************************************************/ 00101000 * /* */ 00102000 * /* IF ALL FRAMES ARE WITHIN SYSTEM FRAME LIMITS THEN PROCESS REQ.*/ 00103000 * /* */ 00104000 * /*****************************************************************/ 00105000 * 0100 00106000 * RFY 0100 00107000 * HIRBN RSTD; 0100 00108000 * HIRBN=REQRBN+((FCNT-1)*16); 0101 00109000 LH @05,REQRBN(,PARMPTR) 0101 00110000 N @05,@CF02384 0101 00111000 LH HIRBN,FCNT(,PARMPTR) 0101 00112000 BCTR HIRBN,0 0101 00113000 SLA HIRBN,4 0101 00114000 ALR HIRBN,@05 0101 00115000 * IF PVTLPFN>=HIRBN /* IF >=, THEN TOO LARGE */ 00116000 * THEN 0102 00117000 LH @08,PVTLPFN(,PVTPTR) 0102 00118000 N @08,@CF02384 0102 00119000 CR HIRBN,@08 0102 00120000 BH @RF00102 0102 00121000 * DO; 0103 00122000 * RESPECIFY 0104 00123000 * PFTEPTR RSTD; 0104 00124000 * PFTEPTR=PVTPFTP+REQRBN; 0105 00125000 AL @05,PVTPFTP(,PVTPTR) 0105 00126000 LR PFTEPTR,@05 0105 00127000 * S15=0; /* INIT RETURN CODE TO 0 */ 00128000 SLR @08,@08 0106 00129000 ST @08,S15(,REG13) 0106 00130000 * IF ONREQ='1'B /* ONLINE REQUEST */ 00131000 * THEN 0107 00132000 TM ONREQ(PARMPTR),B'10000000' 0107 00133000 BNO @RF00107 0107 00134000 * CALL ONLINE; /* ON LINE REQUEST */ 00135000 BAL @14,ONLINE 0108 00136000 * IF OFFREQ='1'B /* OFFLINE REQUEST */ 00137000 * THEN 0109 00138000 @RF00107 TM OFFREQ(PARMPTR),B'01000000' 0109 00139000 BNO @RF00109 0109 00140000 * CALL OFFLINE; /* OFFLINE */ 00141000 BAL @14,OFFLINE 0110 00142000 * IF STGREQ='1'B /* STORAGE DATA ERROR */ 00143000 * THEN 0111 00144000 @RF00109 TM STGREQ(PARMPTR),B'00100000' 0111 00145000 BNO @RF00111 0111 00146000 * CALL STORAGE; /* STORAGE REQUEST */ 00147000 BAL @14,STORAGE 0112 00148000 * IF KEYREQ='1'B /* STORAGE KEY ERROR */ 00149000 * THEN 0113 00150000 @RF00111 TM KEYREQ(PARMPTR),B'00010000' 0113 00151000 BNO @RF00113 0113 00152000 * CALL KEY; /* KEY REQUEST */ 00153000 BAL @14,KEY 0114 00154000 * IF STAREQ='1'B /* FRAME STATUS */ 00155000 * THEN 0115 00156000 @RF00113 TM STAREQ(PARMPTR),B'00001000' 0115 00157000 BNO @RF00115 0115 00158000 * CALL STATUS; /* STATUS REQUEST */ 00159000 BAL @14,STATUS 0116 00160000 * IF CANREQ='1'B /* CANCEL OFFLINE */ 00161000 * THEN 0117 00162000 @RF00115 TM CANREQ(PARMPTR),B'00000001' 0117 00163000 BNO @RF00117 0117 00164000 * CALL CANCEL; /* CANCEL REQUEST */ 00165000 BAL @14,CANCEL 0118 00166000 * ELSE 0119 00167000 * S15=20; /* NO REQUEST */ 00168000 B @RC00117 0119 00169000 @RF00117 MVC S15(4,REG13),@CF00109 0119 00170000 * END; 0120 00171000 * ELSE 0121 00172000 * S15=12; /* HIGHEST FRAME RBN TOO HIGH */ 00173000 * 0121 00174000 B @RC00102 0121 00175000 @RF00102 MVC S15(4,REG13),@CF00032 0121 00176000 * /*****************************************************************/ 00177000 * /* */ 00178000 * /* COMMON EXIT CODE FOR ALL RECONFIGURATION REQUESTS. */ 00179000 * /* */ 00180000 * /*****************************************************************/ 00181000 * 0122 00182000 *ALLEXIT: 0122 00183000 * ; 0122 00184000 @RC00102 DS 0H 0122 00185000 ALLEXIT DS 0H 0123 00186000 * PVTPRCA=RCAPSAVE; /* RESTORE PVTPRCA TO VALUE ON 0123 00187000 * ENTRY TO IEAVRCF @ZA09185*/ 00188000 L @08,RCAPSAVE-1(,REG13) 0123 00189000 LA @08,0(,@08) 0123 00190000 ST @08,PVTPRCA(,PVTPTR) 0123 00191000 * IF SALREQ='0'B /* IS SALLOC LOCK HELD */ 00192000 * THEN 0124 00193000 TM SALREQ(PARMPTR),B'00000010' 0124 00194000 BNZ @RF00124 0124 00195000 * DO; 0125 00196000 * REG0=REG12; 0126 00197000 LR REG0,REG12 0126 00198000 * REG1=REG13; 0127 00199000 LR REG1,REG13 0127 00200000 * GENERATE; 0128 00201000 RE SETLOCK RELEASE,TYPE=SALLOC,RELATED=(RSM,IEAVRCR(OB)) 00202000 * REG12=REG0; 0129 00203000 LR REG12,REG0 0129 00204000 * REG13=REG1; 0130 00205000 LR REG13,REG1 0130 00206000 * END; 0131 00207000 * GENERATE; 0132 00208000 @RF00124 DS 0H 0132 00209000 SETFRR D,WRKREGS=(REG1,REG2) 00210000 LM @14,@12,12(@13) /* DELETE FRR AND RETURN */ 00211000 BR @14 00212000 *ONLINE: 0133 00213000 * PROC OPTIONS(DONTSAVE,NOSAVEAREA); 0133 00214000 * 0133 00215000 B @PB00002 0133 00216000 ONLINE DS 0H 0134 00217000 */********************************************************************/ 00218000 */*ONLINE IS CALLED TO TURN ALL REQUESTED FRAMES ONLINE. AT ENTRY THE*/ 00219000 */*OFFLINE WAIT PCBRS ARE SEARCHED FOR AN OVERLAP. IF FOUND AND NOT */ 00220000 */*EXACT, RETURN CODE OF 16. IF FOUND AND EXACT OVERLAP WITH */ 00221000 */*PCBRFAIL ON, REQUEST IS HONORED. PCBRFAIL BIT IS SET BY CANCEL. */ 00222000 */*IT SET IT SINCE THE PCBR CANNOT BE DEQUEUED UNTIL COMPLETE POSTS */ 00223000 */*THE ECB WITH 4. THEREFORE, IF THE PCBRFAIL BIT IS OFF, THE */ 00224000 */*OVERLAP, EVEN THOUGH EXACT, IS ILLEGAL AND RETURN CODE 16 IS GIVEN*/ 00225000 */*IF OVERLAP IS NOT FOUND OR THERE WAS AN EXACT OVERLAP WITH */ 00226000 */*PCBRFAIL BIT ON EACH FRAME IN THE REQUEST IS CHECKED FOR ON OR */ 00227000 */*OFF LINE STATUS. IF THE FRAME IS PRESENTLY OFFLINE, IT IS BROUGT */ 00228000 */*ONLINE AND SENT TO THE AFQ. IF THE FRAME IS ALREADY ONLINE, NO */ 00229000 */*FURTHER ACTION IS NEEDED. */ 00230000 */********************************************************************/ 00231000 * 0134 00232000 * RESPECIFY 0134 00233000 * PCBRPTR RSTD; 0134 00234000 * PCBRPTR=PVTOROOT; 0135 00235000 L PCBRPTR,PVTOROOT(,PVTPTR) 0135 00236000 *ONPCB: 0136 00237000 * IF PCBRPTR^=0 /* SEARCH PCBR WAIT QUEUE */ 00238000 * THEN 0136 00239000 ONPCB LTR PCBRPTR,PCBRPTR 0136 00240000 BZ @RF00136 0136 00241000 * DO; 0137 00242000 * 0137 00243000 * /*************************************************************/ 00244000 * /* */ 00245000 * /* IF EXACT OVERLAP AND PCBRFAIL BIT ON, THEN CANCEL REQUEST */ 00246000 * /* HAS RUN. THEREFORE, IT IS OK TO HONOR ONLINE REQUEST SINCE*/ 00247000 * /* PCB DOES NOT HAVE TO BE CHANGED. COMPLETE HAS BEEN */ 00248000 * /* SCHEDULED TO POST ECB WITH 4 FOR CANCEL REQUEST. */ 00249000 * /* */ 00250000 * /*************************************************************/ 00251000 * 0138 00252000 * IF LORANGE=REQRBN&HIRANGE=HIRBN&PCBRFAIL='1'B THEN 0138 00253000 LH @07,REQRBN(,PARMPTR) 0138 00254000 N @07,@CF02384 0138 00255000 C @07,LORANGE(,PCBRPTR) 0138 00256000 BNE @RF00138 0138 00257000 C HIRBN,HIRANGE(,PCBRPTR) 0138 00258000 BNE @RF00138 0138 00259000 TM PCBRFAIL(PCBRPTR),B'00001000' 0138 00260000 BO @RT00138 0138 00261000 * GOTO ONTEST; /* IF EXACT AND PCBFAIL ON, THEN 00262000 * OK */ 00263000 * IF HIRANGEHIRBN/* NO OVERLAP, IF < OR > */ 00264000 * THEN 0140 00265000 @RF00138 LH @07,REQRBN(,PARMPTR) 0140 00266000 N @07,@CF02384 0140 00267000 C @07,HIRANGE(,PCBRPTR) 0140 00268000 BH @RT00140 0140 00269000 C HIRBN,LORANGE(,PCBRPTR) 0140 00270000 BNL @RF00140 0140 00271000 @RT00140 DS 0H 0141 00272000 * DO; 0141 00273000 * PCBRPTR=NEXTPCB; 0142 00274000 L PCBRPTR,NEXTPCB(,PCBRPTR) 0142 00275000 * GOTO ONPCB; /* CONTINUE SEARCH */ 00276000 B ONPCB 0143 00277000 * END; 0144 00278000 * S15=16; 0145 00279000 @RF00140 MVC S15(4,REG13),@CF00077 0145 00280000 * GOTO ALLEXIT; /* COMMON EXIT ROUTINE */ 00281000 B ALLEXIT 0146 00282000 * END; 0147 00283000 * 0147 00284000 * /*****************************************************************/ 00285000 * /* */ 00286000 * /* IF THE FRAME IS OFLINE PREVENT RECLAIM AND SEND IT TO THE AFQ */ 00287000 * /* WHERE THE OFFLINE FLAG WILL BE RESET. INCREMENT THE COUNT OF */ 00288000 * /* ONLINE FRAMES. IF IT IS ALREADY ONLINE BUT INTERCEPTED FOR */ 00289000 * /* OFFLINE, RESET THE INTERCEPT FLAG AND INCREMENT THE COUNT OF */ 00290000 * /* ONLINE FRAMES. DURING VARY OFFLINE, THE COUNT WAS DECREMENTED */ 00291000 * /* FOR EVERY FRAME IN THE RANGE, WHETHER IT COULD ACTUALLY BE */ 00292000 * /* MARKED OFFLINE OR COULD ONLY BE MARKED AS INTERCEPTED. */ 00293000 * /* @ZA08772*/ 00294000 * /* */ 00295000 * /*****************************************************************/ 00296000 * 0148 00297000 *ONTEST: 0148 00298000 * ; 0148 00299000 @RF00136 DS 0H 0148 00300000 ONTEST DS 0H 0149 00301000 * RFY 0149 00302000 * REG0 RSTD; 0149 00303000 * DO REG0=REQRBN TO HIRBN BY 16; 0150 00304000 LH REG0,REQRBN(,PARMPTR) 0150 00305000 N REG0,@CF02384 0150 00306000 B @DE00150 0150 00307000 @DL00150 DS 0H 0151 00308000 * IF PFTOFFLN='1'B /* IF ON, THEN OFFLINE FRAME */ 00309000 * THEN 0151 00310000 TM PFTOFFLN(PFTEPTR),B'01000000' 0151 00311000 BNO @RF00151 0151 00312000 * DO; 0152 00313000 * PFTPGID='0'B; /* THIS IS TO PREVENT POSSIBLE 0153 00314000 * RECLAIM OF THE FRAME FOR THE 00315000 * USER WHICH LAST HAD THE FRAME 00316000 * BEFORE THE FRAME WENT OFFLINE. 00317000 * @YM06715*/ 00318000 SLR @07,@07 0153 00319000 ST @07,PFTPGID(,PFTEPTR) 0153 00320000 * PFTIRRG='0'B; 0154 00321000 * 0154 00322000 NI PFTIRRG(PFTEPTR),B'11101111' 0154 00323000 * /***********************************************************/ 00324000 * /* */ 00325000 * /* REG0 CONTAINS RBN OF FRAME */ 00326000 * /* */ 00327000 * /***********************************************************/ 00328000 * 0155 00329000 * CALL IEAVPFTE; /* SEND TO THE AFQ */ 00330000 L @15,PVTPFTE(,PVTPTR) 0155 00331000 BALR @14,@15 0155 00332000 * PVTPOOL=PVTPOOL+1; 0156 00333000 LA @07,1 0156 00334000 AH @07,PVTPOOL(,PVTPTR) 0156 00335000 STH @07,PVTPOOL(,PVTPTR) 0156 00336000 * END; 0157 00337000 * ELSE 0158 00338000 * DO; 0158 00339000 B @RC00151 0158 00340000 @RF00151 DS 0H 0159 00341000 * IF PFTOFINT='1'B THEN /* @ZA09185*/ 00342000 TM PFTOFINT(PFTEPTR),B'00000001' 0159 00343000 BNO @RF00159 0159 00344000 * DO; /* FRAME IS OFFLINE INTERCEPTED 00345000 * @ZA08772*/ 00346000 * PFTOFINT='0'B; 0161 00347000 NI PFTOFINT(PFTEPTR),B'11111110' 0161 00348000 * PVTPOOL=PVTPOOL+1; /* @ZA08772*/ 00349000 LA @07,1 0162 00350000 AH @07,PVTPOOL(,PVTPTR) 0162 00351000 STH @07,PVTPOOL(,PVTPTR) 0162 00352000 * END; /* @ZA08772*/ 00353000 * PFTBADPG='0'B; 0164 00354000 @RF00159 NI PFTBADPG(PFTEPTR),B'11111011' 0164 00355000 * END; 0165 00356000 * PFTEPTR=PFTEPTR+LENGTH(PFTE); 0166 00357000 @RC00151 AL PFTEPTR,@CF00077 0166 00358000 * END; 0167 00359000 AL REG0,@CF00077 0167 00360000 @DE00150 CR REG0,HIRBN 0167 00361000 BNH @DL00150 0167 00362000 * RFY 0168 00363000 * REG0 UNRSTD; 0168 00364000 * PVTMAXFX=PVTPERFX*PVTPOOL/100; /* CALCULATE THE FIXED FRAME 0169 00365000 * THRESHOLD @YA01572*/ 00366000 LA @07,100 0169 00367000 LH @05,PVTPOOL(,PVTPTR) 0169 00368000 LH @11,PVTPERFX(,PVTPTR) 0169 00369000 MR @10,@05 0169 00370000 DR @10,@07 0169 00371000 STH @11,PVTMAXFX(,PVTPTR) 0169 00372000 * PVTFIXOK=PVTPOOL*PVTPEROK/100; /* DETERMINE THE NUMBER OF FIXED 00373000 * FRAMES ACCEPTABLE FOR NORMAL 00374000 * SYSTEM PROCESSING @YA01572*/ 00375000 LR @11,@05 0170 00376000 LH @05,PVTPEROK(,PVTPTR) 0170 00377000 MR @10,@05 0170 00378000 DR @10,@07 0170 00379000 STH @11,PVTFIXOK(,PVTPTR) 0170 00380000 * RESPECIFY 0171 00381000 * REG7 RSTD; 0171 00382000 * REG7=REG13; 0172 00383000 LR REG7,REG13 0172 00384000 * REG13=ADDR(PVTSAVE); /* INFORM SRM OF AVAILABLE FRAMES*/ 00385000 LA REG13,PVTSAVE(,PVTPTR) 0173 00386000 * GENERATE REFS(PVTPTR,PVTPOOL,PVTAFCLO) SETS(REG1); 0174 00387000 * /* @ZA08772*/ 00388000 ICM REG1,12,PVTPOOL(PVTPTR) @ZA08772 00389000 ICM REG1,3,PVTAFCLO(PVTPTR) @ZA08772 00390000 SYSEVENT RSMCNSTS,ENTRY=BRANCH 00391000 * REG13=REG7; 0175 00392000 LR REG13,REG7 0175 00393000 * CALL STATUS; /* PROVIDE STATUS FOR REQUEST 0176 00394000 * FRAMES */ 00395000 BAL @14,STATUS 0176 00396000 * RESPECIFY 0177 00397000 * REG7 UNRSTD; 0177 00398000 * END ONLINE; 0178 00399000 @EL00002 DS 0H 0178 00400000 @EF00002 DS 0H 0178 00401000 @ER00002 BR @14 0178 00402000 *OFFLINE: 0179 00403000 * PROC OPTIONS(DONTSAVE,NOSAVEAREA); 0179 00404000 * 0179 00405000 OFFLINE DS 0H 0180 00406000 */********************************************************************/ 00407000 */*OFFLINE IS CALLED TO TAKE REQUESTED FRAMES OFFLINE. IF THE FRAMES*/ 00408000 */*ARE PART OF THE PERMANENTLY RESIDENT STORAGE, THEY CANNOT BE TAKEN*/ 00409000 */*OFFLINE. IF THE FRAMES ARE IN USE FOR SQA,LSQA,VEQR,OR FIXED, */ 00410000 */*THE OFFLINE INTERCEPT BIT IS TURNED ON INORDER TO INTERCEPT THEN */ 00411000 */*WHEN THEY BECOME AVAILABLE. IF THE FRAMES ARE ON THE AVAILABLE */ 00412000 */*FRAME QUEUE OR IN THE CURRENT ADDRESS SPACE,THEN THE FRAMES CAN */ 00413000 */*BE TAKEN OFF IMMEDIATELY. OFFLINE WILL DO A GETCELL FOR THE SRB */ 00414000 */*SPACE NEEDED TO SCHEDULE IEFVRCFC. @Z30GNYD */ 00415000 */********************************************************************/ 00416000 * 0180 00417000 * PCBRPTR=PVTOROOT; 0180 00418000 L PCBRPTR,PVTOROOT(,PVTPTR) 0180 00419000 * PRCNT=0; 0181 00420000 SLR @07,@07 0181 00421000 ST @07,PRCNT(,REG13) 0181 00422000 *OFFPCB: 0182 00423000 * ; 0182 00424000 OFFPCB DS 0H 0183 00425000 * IF PCBRPTR^=0 /* IF ^= 0, THEN CHECK IF OVERLAP*/ 00426000 * THEN 0183 00427000 LTR PCBRPTR,PCBRPTR 0183 00428000 BZ @RF00183 0183 00429000 * DO; 0184 00430000 * IF HIRANGEHIRBN/* IF < OR >, NO OVERLAP */ 00431000 * THEN 0185 00432000 LH @07,REQRBN(,PARMPTR) 0185 00433000 N @07,@CF02384 0185 00434000 C @07,HIRANGE(,PCBRPTR) 0185 00435000 BH @RT00185 0185 00436000 C HIRBN,LORANGE(,PCBRPTR) 0185 00437000 BNL @RF00185 0185 00438000 @RT00185 DS 0H 0186 00439000 * DO; 0186 00440000 * PCBRPTR=NEXTPCB; 0187 00441000 L PCBRPTR,NEXTPCB(,PCBRPTR) 0187 00442000 * GOTO OFFPCB; /* REPEAT PROCESS */ 00443000 B OFFPCB 0188 00444000 * END; 0189 00445000 * ELSE 0190 00446000 * DO; 0190 00447000 @RF00185 DS 0H 0191 00448000 * S15=16; 0191 00449000 MVC S15(4,REG13),@CF00077 0191 00450000 * GOTO ALLEXIT; /* RETURN */ 00451000 B ALLEXIT 0192 00452000 * END; 0193 00453000 * END; 0194 00454000 * RESPECIFY 0195 00455000 * PCBRPTR UNRSTD; 0195 00456000 @RF00183 DS 0H 0196 00457000 * IF REQRBN>=PVTFPFN /* FIRST FRAME ABOVE PERMANENT 0196 00458000 * RESIDENT AREA */ 00459000 * THEN 0196 00460000 CLC REQRBN(2,PARMPTR),PVTFPFN(PVTPTR) 0196 00461000 BL @RF00196 0196 00462000 * DO RBN=REQRBN TO HIRBN BY 16; 0197 00463000 LH @08,REQRBN(,PARMPTR) 0197 00464000 N @08,@CF02384 0197 00465000 ST @08,RBN(,REG13) 0197 00466000 B @DE00197 0197 00467000 @DL00197 DS 0H 0198 00468000 * IF PFTOFFLN='0'B /* IF 0, FRAME IS ONLINE */ 00469000 * THEN 0198 00470000 TM PFTOFFLN(PFTEPTR),B'01000000' 0198 00471000 BNZ @RF00198 0198 00472000 * DO; 0199 00473000 * PVTPOOL=PVTPOOL-1; 0200 00474000 LH @08,PVTPOOL(,PVTPTR) 0200 00475000 BCTR @08,0 0200 00476000 STH @08,PVTPOOL(,PVTPTR) 0200 00477000 * IF PFTONAVQ='1'B /* ON AVAILABLE FRAME QUEUE */ 00478000 * THEN 0201 00479000 TM PFTONAVQ(PFTEPTR),B'10000000' 0201 00480000 BNO @RF00201 0201 00481000 * DO; 0202 00482000 * REG0=PFTNQN; 0203 00483000 LA REG0,255 0203 00484000 * GEN( SLL REG0,16) ; 0204 00485000 SLL REG0,16 00486000 * GEN( ICM REG0,3,RBN+2(REG13)) ; 0205 00487000 ICM REG0,3,RBN+2(REG13) 00488000 * CALL IEAVPFTE; /* PFTE MANAGER */ 00489000 L @15,PVTPFTE(,PVTPTR) 0206 00490000 BALR @14,@15 0206 00491000 * PFTOFFLN='1'B; 0207 00492000 OI PFTOFFLN(PFTEPTR),B'01000000' 0207 00493000 * END; 0208 00494000 * ELSE 0209 00495000 * DO; 0209 00496000 B @RC00201 0209 00497000 @RF00201 DS 0H 0210 00498000 * PFTOFINT='1'B; /* TURN INTERCEPT BIT ON */ 00499000 OI PFTOFINT(PFTEPTR),B'00000001' 0210 00500000 * PFTUIC='E0'X; /* INCRE STEAL INTERVAL */ 00501000 MVI PFTUIC(PFTEPTR),X'E0' 0211 00502000 * REG1=RBN*256; /* RESET REFERENCE BIT */ 00503000 L REG1,RBN(,REG13) 0212 00504000 SLA REG1,8 0212 00505000 * GEN( RRB 0(REG1)) ; 0213 00506000 RRB 0(REG1) 00507000 * GEN( RRB 2048(REG1)) ; 0214 00508000 RRB 2048(REG1) 00509000 * PRCNT=PRCNT+1; /* INCRE INTERCEPT COUNT */ 00510000 LA @08,1 0215 00511000 AL @08,PRCNT(,REG13) 0215 00512000 ST @08,PRCNT(,REG13) 0215 00513000 * END; 0216 00514000 * END; 0217 00515000 @RC00201 DS 0H 0218 00516000 *REPETE: 0218 00517000 * ; 0218 00518000 @RF00198 DS 0H 0218 00519000 REPETE DS 0H 0219 00520000 * PFTEPTR=PFTEPTR+LENGTH(PFTE); 0219 00521000 AL PFTEPTR,@CF00077 0219 00522000 * END; 0220 00523000 LA @08,16 0220 00524000 AL @08,RBN(,REG13) 0220 00525000 ST @08,RBN(,REG13) 0220 00526000 @DE00197 CR @08,HIRBN 0220 00527000 BNH @DL00197 0220 00528000 * ELSE 0221 00529000 * DO; 0221 00530000 B @RC00196 0221 00531000 @RF00196 DS 0H 0222 00532000 * S15=8; /* AT LEAST 1 FRAME IS IN PERM 0222 00533000 * RESIDENT STORAGE */ 00534000 MVC S15(4,REG13),@CF00119 0222 00535000 * GOTO GIVEST; /* COMMON EXIT CODE */ 00536000 B GIVEST 0223 00537000 * END; 0224 00538000 * PVTMAXFX=PVTPERFX*PVTPOOL/100; /* CALCULATE THE FIXED FRAME 0225 00539000 * THRESHOLD @YA01572*/ 00540000 @RC00196 LA @08,100 0225 00541000 LH @07,PVTPOOL(,PVTPTR) 0225 00542000 LH @11,PVTPERFX(,PVTPTR) 0225 00543000 MR @10,@07 0225 00544000 DR @10,@08 0225 00545000 STH @11,PVTMAXFX(,PVTPTR) 0225 00546000 * PVTFIXOK=PVTPOOL*PVTPEROK/100; /* DETERMINE THE NUMBER OF FIXED 00547000 * FRAMES ACCEPTABLE FOR NORMAL 00548000 * SYSTEM PROCESSING @YA01572*/ 00549000 LR @11,@07 0226 00550000 LH @07,PVTPEROK(,PVTPTR) 0226 00551000 MR @10,@07 0226 00552000 DR @10,@08 0226 00553000 STH @11,PVTFIXOK(,PVTPTR) 0226 00554000 * RESPECIFY 0227 00555000 * REG7 RSTD; 0227 00556000 * REG7=REG13; /* @ZA08772*/ 00557000 LR REG7,REG13 0228 00558000 * REG13=ADDR(PVTSAVE); /* INFORM SRM OF STATUS */ 00559000 LA REG13,PVTSAVE(,PVTPTR) 0229 00560000 * GENERATE REFS(PVTPOOL,PVTPTR,PVTAFCLO) SETS(REG1); 0230 00561000 ICM REG1,12,PVTPOOL(PVTPTR) @ZA08772 00562000 ICM REG1,3,PVTAFCLO(PVTPTR) @ZA08772 00563000 SYSEVENT RSMCNSTS,ENTRY=BRANCH 00564000 * REG13=REG7; /* @ZA08772*/ 00565000 LR REG13,REG7 0231 00566000 * RESPECIFY 0232 00567000 * REG7 UNRSTD; 0232 00568000 * IF PRCNT^=0 /* IF ^=0, THEN CREATE ROOT PCBR */ 00569000 * THEN 0233 00570000 L @08,PRCNT(,REG13) 0233 00571000 LTR @08,@08 0233 00572000 BZ @RF00233 0233 00573000 * DO; 0234 00574000 * REG0=1; 0235 00575000 LA REG0,1 0235 00576000 * REG1=0; 0236 00577000 SLR REG1,REG1 0236 00578000 * CALL IEAVPCB; /* PCB MANAGER */ 00579000 L @15,PVTPCB(,PVTPTR) 0237 00580000 BALR @14,@15 0237 00581000 * IF REG15^=0 /* IF ^= 0, THEN ABEND */ 00582000 * THEN 0238 00583000 LTR REG15,REG15 0238 00584000 BZ @RF00238 0238 00585000 * DO; 0239 00586000 * RCARCRD=14; 0240 00587000 L @08,PVTPRCA(,PVTPTR) 0240 00588000 MVI RCARCRD(@08),X'0E' 0240 00589000 * GEN( ABEND X'C0D',,,SYSTEM) ; 0241 00590000 ABEND X'C0D',,,SYSTEM 00591000 * S15=20; 0242 00592000 MVC S15(4,REG13),@CF00109 0242 00593000 * GOTO GIVEST; /* COMMON EXIT CODE */ 00594000 B GIVEST 0243 00595000 * END; 0244 00596000 * REG1->PCBRASCB=ASCBPTR; /* INITIALIZE PCBR */ 00597000 @RF00238 L @08,ASCBPTR 0245 00598000 ST @08,PCBRASCB(,REG1) 0245 00599000 * REG1->PCBRTCB=PSATOLD; 0246 00600000 L @08,PSATOLD 0246 00601000 ST @08,PCBRTCB(,REG1) 0246 00602000 * REG1->PCBRCNT=PRCNT; 0247 00603000 L @08,PRCNT(,REG13) 0247 00604000 STH @08,PCBRCNT(,REG1) 0247 00605000 * REG1->PCBRECB=ECBPTR; 0248 00606000 L @08,ECBPTR(,PARMPTR) 0248 00607000 ST @08,PCBRECB(,REG1) 0248 00608000 * REG1->NEXTPCB=PVTOROOT; 0249 00609000 L @08,PVTOROOT(,PVTPTR) 0249 00610000 ST @08,NEXTPCB(,REG1) 0249 00611000 * REG1->LORANGE=REQRBN; 0250 00612000 LH @08,REQRBN(,PARMPTR) 0250 00613000 N @08,@CF02384 0250 00614000 ST @08,LORANGE(,REG1) 0250 00615000 * REG1->HIRANGE=HIRBN; 0251 00616000 ST HIRBN,HIRANGE(,REG1) 0251 00617000 * PVTOROOT=REG1; /* ENQUEUE PCBR */ 00618000 ST REG1,PVTOROOT(,PVTPTR) 0252 00619000 */* GET SRB TO BE USED TO SCHEDULE COMPLETION (IEAVRCFC) @Z30GNYD */ 00620000 * 0253 00621000 * LOOPFLAG='0'B; /* INITIALIZE IEAVREP2 CALL FLAG 00622000 * @Z30GNYD*/ 00623000 NI LOOPFLAG(REG13),B'01111111' 0253 00624000 * REG1->COMPSRB=0; /* CLEAR SAVE AREA FOR SRB PTR 0254 00625000 * @Z30GNYD*/ 00626000 SLR @08,@08 0254 00627000 ST @08,COMPSRB(,REG1) 0254 00628000 *GETCPSRB: 0255 00629000 * ; /* @Z30GNYD*/ 00630000 GETCPSRB DS 0H 0256 00631000 * RFY 0256 00632000 * (REG15, 0256 00633000 * REG7, 0256 00634000 * REG0) RSTD; /* @Z30GNYD*/ 00635000 * REG7=REG13; /* SAVE REG13 ACROSS GETCELL 0257 00636000 * @Z30GNYD*/ 00637000 LR REG7,REG13 0257 00638000 * REG13=ADDR(PVTSAVE); /* SAVE AREA FOR GETCELL @Z30GNYD*/ 00639000 LA REG13,PVTSAVE(,PVTPTR) 0258 00640000 * REG0=PVTSRBID; /* INDICATE ID @Z30GNYD*/ 00641000 L REG0,PVTSRBID(,PVTPTR) 0259 00642000 * GEN(GETCELL CPID=(0),BRANCH=YES,SAVE=YES);/* @Z30GNYD*/ 00643000 GETCELL CPID=(0),BRANCH=YES,SAVE=YES 00644000 * REG13=REG7; /* RESTORE SAVE AREA PTR @Z30GNYD*/ 00645000 LR REG13,REG7 0261 00646000 * RFY 0262 00647000 * (REG7) UNRSTD; /* @Z30GNYD*/ 00648000 * IF REG15^=0&LOOPFLAG='0'B THEN 0263 00649000 LTR REG15,REG15 0263 00650000 BZ @RF00263 0263 00651000 TM LOOPFLAG(REG13),B'10000000' 0263 00652000 BNZ @RF00263 0263 00653000 * DO; /* IF GETCELL FAILED, AND 0264 00654000 * IEAVREP2 HAS NOT BEEN CALLED 00655000 * @Z30GNYD*/ 00656000 * LOOPFLAG='1'B; /* INDICATE IEAVREP2 CALLED 0265 00657000 * @Z30GNYD*/ 00658000 OI LOOPFLAG(REG13),B'10000000' 0265 00659000 * CALL IEAVREP2; /* SRB POOL REPLENISH @Z30GNYD*/ 00660000 L @15,PVTREP2(,PVTPTR) 0266 00661000 BALR @14,@15 0266 00662000 * IF REG15=0 THEN 0267 00663000 LTR REG15,REG15 0267 00664000 BZ @RT00267 0267 00665000 * GOTO GETCPSRB; /* IF RC = 0 THEN TRY GETCELL 0268 00666000 * AGAIN @Z30GNYD*/ 00667000 * ELSE 0269 00668000 * GOTO ERFRPCBR; /* IF REPLENISH UNSUCCESSFUL, GO 00669000 * FREE THE ROOT PCB @Z30GNYD*/ 00670000 B ERFRPCBR 0269 00671000 * END; /* @Z30GNYD*/ 00672000 * ELSE 0271 00673000 * IF REG15=0 THEN 0271 00674000 @RF00263 LTR REG15,REG15 0271 00675000 BNZ @RF00271 0271 00676000 * DO; /* IF GETCELL WAS SUCCESSFUL 0272 00677000 * @Z30GNYD*/ 00678000 * RFY 0273 00679000 * REG7 RSTD; 0273 00680000 * REG7=PVTOROOT; /* ADDRESS ROOT PCB @Z30GNYD*/ 00681000 L REG7,PVTOROOT(,PVTPTR) 0274 00682000 * REG7->COMPSRB=REG1; /* SAVE SRB ADDRESS @Z30GNYD*/ 00683000 ST REG1,COMPSRB(,REG7) 0275 00684000 * S15=4; /* SET RETURN CODE TO 4 @Z30GNYD*/ 00685000 MVC S15(4,REG13),@CF00163 0276 00686000 * END; /* @Z30GNYD*/ 00687000 * ELSE 0278 00688000 * DO; /* FREE PCB @Z30GNYD*/ 00689000 B @RC00271 0278 00690000 @RF00271 DS 0H 0279 00691000 *ERFRPCBR: 0279 00692000 * ; /* @Z30GNYD*/ 00693000 ERFRPCBR DS 0H 0280 00694000 * RSMHDPTR=ASCBRSM; /* SET RSMHDR ADDRESS @Z30GNYD*/ 00695000 L @14,ASCBPTR 0280 00696000 L RSMHDPTR,ASCBRSM(,@14) 0280 00697000 * REG1=PVTOROOT; /* PUT ADDR OF PCB AT TOP OF 0281 00698000 * QUEUE IN REG1 @Z30GNYD*/ 00699000 L REG1,PVTOROOT(,PVTPTR) 0281 00700000 * PVTOROOT=REG1->NEXTPCB;/* DEQUEUE PCB @Z30GNYD*/ 00701000 L @14,NEXTPCB(,REG1) 0282 00702000 ST @14,PVTOROOT(,PVTPTR) 0282 00703000 * REG1->PCBFQP='FF000000'X;/* SET PCBR UP TO FREE 0283 00704000 * @Z30GNYD*/ 00705000 MVC PCBFQP(4,REG1),@CF02294 0283 00706000 * REG0=PCBFREQN; /* TQN OF PCB @Z30GNYD*/ 00707000 LA REG0,16 0284 00708000 * CALL IEAVPCB; /* CALL PCB MANAGER @Z30GNYD*/ 00709000 L @15,PVTPCB(,PVTPTR) 0285 00710000 BALR @14,@15 0285 00711000 * S15=20; /* SET RETURN CODE OF 20 @Z30GNYD*/ 00712000 MVC S15(4,REG13),@CF00109 0286 00713000 * RFY 0287 00714000 * (REG0, 0287 00715000 * REG7, 0287 00716000 * REG15) UNRSTD; 0287 00717000 * END; /* @Z30GNYD*/ 00718000 * END; 0289 00719000 @RC00271 DS 0H 0290 00720000 *GIVEST: 0290 00721000 * ; 0290 00722000 @RF00233 DS 0H 0290 00723000 GIVEST DS 0H 0291 00724000 * CALL STATUS; /* PROVIDE FRAME STATUS */ 00725000 BAL @14,STATUS 0291 00726000 * END OFFLINE; 0292 00727000 @EL00003 DS 0H 0292 00728000 @EF00003 DS 0H 0292 00729000 @ER00003 BR @14 0292 00730000 *STATUS: 0293 00731000 * PROC OPTIONS(DONTSAVE,NOSAVEAREA); 0293 00732000 * 0293 00733000 STATUS DS 0H 0294 00734000 */********************************************************************/ 00735000 */*STATUS IS ENTERED TO INDICATE IN THE CALLER'S PARAMETER AREA THE */ 00736000 */*STATUS OF EACH FRAME IN THE REQUEST. THE ADDRESS OF THIS AREA IS */ 00737000 */*PROVIDED IN THE STAT2PTR FIELD OF THE PARAMETER AREA. */ 00738000 */*STATUS IS ALSO CALLED FROM ONLINE WITH RETURN CODE OF 0 OR 8 FOR */ 00739000 */*FRAME STATUS. OFFLINE ALSO CALLS IT FOR STATUS IF RETURN CODE IS */ 00740000 */*0, 4, OR 8. */ 00741000 */********************************************************************/ 00742000 * 0294 00743000 * PFTEPTR=PVTPFTP+REQRBN; 0294 00744000 LH PFTEPTR,REQRBN(,PARMPTR) 0294 00745000 N PFTEPTR,@CF02384 0294 00746000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0294 00747000 * RESPECIFY 0295 00748000 * FLGPTR RSTD; 0295 00749000 * DO FLGPTR=STAT2PTR TO(FCNT-1)+STAT2PTR BY 1; 0296 00750000 L FLGPTR,STAT2PTR(,PARMPTR) 0296 00751000 B @DE00296 0296 00752000 @DL00296 DS 0H 0297 00753000 * IF PFTEPTR-PVTPFTPHIRBN /* IF TRUE, THEN NO OVERLAP */ 00960000 * THEN 0363 00961000 @RF00352 LH @07,REQRBN(,PARMPTR) 0363 00962000 N @07,@CF02384 0363 00963000 C @07,HIRANGE(,PCBRPTR) 0363 00964000 BH @RT00363 0363 00965000 C HIRBN,LORANGE(,PCBRPTR) 0363 00966000 BNL @RF00363 0363 00967000 @RT00363 DS 0H 0364 00968000 * DO; 0364 00969000 * PCBRPTR=NEXTPCB; 0365 00970000 L PCBRPTR,NEXTPCB(,PCBRPTR) 0365 00971000 * GOTO CANPCB; /* CONTINUE SEARCH */ 00972000 B CANPCB 0366 00973000 * END; 0367 00974000 * S15=16; /* RETURN TO COMMON EXIT ROUTINE */ 00975000 @RF00363 MVC S15(4,REG13),@CF00077 0368 00976000 *CARETURN: 0369 00977000 * ; 0369 00978000 * GOTO ALLEXIT; /* RETURN TO COMMON EXIT */ 00979000 B ALLEXIT 0370 00980000 * RESPECIFY 0371 00981000 * PCBRPTR UNRSTD; 0371 00982000 * END CANCEL; 0372 00983000 *STORAGE: 0373 00984000 * PROC OPTIONS(DONTSAVE,NOSAVEAREA); 0373 00985000 * 0373 00986000 STORAGE DS 0H 0374 00987000 */********************************************************************/ 00988000 */*STORAGE IS CALLED TO ATTEMPT RECOVERY ON ONE FRAME. IN ALL CASES */ 00989000 */*THE STORAGE ERROR STATUS BIT AND THE PFTBADPG ARE SET ON. IF THE */ 00990000 */*FRAME WAS CHANGED THE CHANGE INDICATOR IS SET. DEPENDING ON */ 00991000 */*WHETHER THE PFTBADPG IS SET, THE STORAGE ERROR PRIOR TO THIS */ 00992000 */*OPERATION IS TURNED ON. RECOVERY IS DETERMINED BY THE TYPE OF */ 00993000 */*FRAME IT IS. NO RECOVERY IS ATTEMPTED FOR PERMANENTLY RESIDENT */ 00994000 */*STORAGE, VEQR, SQA, LSQA, FIXED FRAME, OR CHANGED FRAME IN THIS */ 00995000 */*ROUTINE. FOR AN UNCHANGED NUCLEUS PAGE (PERMANENTLY RESIDENT) */ 00996000 */*MODULE IGFPNRFH IS SCHEDULED TO TRY AND REFRESH THE STORAGE IN */ 00997000 */*ERROR. THEREFORE, @G559P2L*/ 00998000 */*IF THE AREA IS PAGEABLE AND IN THE CURRENT ADDRESS SPACE AND */ 00999000 */*NOT CHANGED, IT CAN BE RECOVERED. THE FRAME IS INVALIDATED AND */ 01000000 */*SEND TO THE AFQ FOR INTERCEPTION SINCE THE PFTOFINT BIT IS ON. */ 01001000 */*THE FRAME IS TAKEN OFFLINE BY IEAVRCFI. */ 01002000 */********************************************************************/ 01003000 * 0374 01004000 * IF PFTEPTR-PVTPFTPPERMFLG='1'B; 0376 01014000 L @08,STAT2PTR(,PARMPTR) 0376 01015000 OI PERMFLG(@08),B'00010000' 0376 01016000 * REG1=REQRBN*256; /* GET PAGE ADDRESS @G559P2L*/ 01017000 LH REG1,REQRBN(,PARMPTR) 0377 01018000 N REG1,@CF02384 0377 01019000 SLA REG1,8 0377 01020000 * IF LRBMFSA=REG1+2048 /* @G559P2L*/ 01041000 * THEN 0384 01042000 L @08,PCCAPTR 0384 01043000 L @08,LRBPTR(,@08) 0384 01044000 LA @07,2048 0384 01045000 ALR @07,REG1 0384 01046000 C @07,LRBMFSA(,@08) 0384 01047000 BH @RF00384 0384 01048000 * DO; /* IN 2ND PART OF PAGE? YES, DO. 01049000 * @G559P2L*/ 01050000 * GENERATE; 0386 01051000 RRB 2048(REG1) IF CHANGED THEN CANNOT @G559P2L 01052000 BC 5,CHNGON SCHEDULE IGFPNRFH @G559P2L 01053000 * END; /* END 2ND PART OF PAGE TEST. 0387 01054000 * @G559P2L*/ 01055000 *NRFHSCHD: 0388 01056000 * ; /* GET HERE IF CHANGE PAGE TEST 01057000 * DOES NOT AFFECT SCHEDULE */ 01058000 @RF00384 DS 0H 0388 01059000 NRFHSCHD DS 0H 0389 01060000 * SRBPTR=ADDR(PWANRSRB); /* GET IGFPNRFH'S SRB @G559P2L*/ 01061000 L @08,PCCAPTR 0389 01062000 L @07,PWAPTR(,@08) 0389 01063000 LA SRBPTR,PWANRSRB(,@07) 0389 01064000 * IF SRBEP^=0&PWANRHED='0'B THEN 0390 01065000 L @05,SRBEP(,SRBPTR) 0390 01066000 LTR @05,@05 0390 01067000 BZ @RF00390 0390 01068000 TM PWANRHED(@07),B'00100000' 0390 01069000 BNZ @RF00390 0390 01070000 * DO; /* IF SRB INITIALIZED AND IT IS 01071000 * NOT ALREADY SCHEDULED, THEN 0391 01072000 * SCHEDULE IT. @G559P2L*/ 01073000 * PWANRHED='1'B; /* SET IGFPNRFH AS SCHEDULED 0392 01074000 * @G559P2L*/ 01075000 OI PWANRHED(@07),B'00100000' 0392 01076000 * SRBPARM=LRBMFSA; /* INPUT IS THE ERROR ADDRESS 0393 01077000 * @G559P2L*/ 01078000 L @08,LRBPTR(,@08) 0393 01079000 L @08,LRBMFSA(,@08) 0393 01080000 ST @08,SRBPARM(,SRBPTR) 0393 01081000 * GENERATE; 0394 01082000 SCHEDULE SRB=(SRBPTR),SCOPE=LOCAL @G559P2L 01083000 * END; /* END SCHED @G559P2L*/ 01084000 * GOTO CKCHG; /* CHECK CHANGE BIT */ 01085000 B CKCHG 0396 01086000 * END; 0397 01087000 * IF PFTBADPG='1'B /* IF ON, PREVIOUS STORAGE ERROR 01088000 * HAD OCCURED */ 01089000 * THEN 0398 01090000 @RF00374 TM PFTBADPG(PFTEPTR),B'00000100' 0398 01091000 BNO @RF00398 0398 01092000 * RECURIND='1'B; 0399 01093000 OI RECURIND(PARMPTR),B'00000010' 0399 01094000 * PFTBADPG='1'B; /* TURN ON STORAGE ERROR */ 01095000 @RF00398 OI PFTBADPG(PFTEPTR),B'00000100' 0400 01096000 * CALL STATUS; 0401 01097000 BAL @14,STATUS 0401 01098000 *STGREC: 0402 01099000 * ; /* PROVIDE FRAME STATUS */ 01100000 STGREC DS 0H 0403 01101000 * IF PFTOFFLN='1'B /* IF FRAME OFFLINE CAN NOT 0403 01102000 * RECOVER */ 01103000 * THEN 0403 01104000 TM PFTOFFLN(PFTEPTR),B'01000000' 0403 01105000 BO @RT00403 0403 01106000 * GOTO STGOFF; 0404 01107000 * 0404 01108000 * /*****************************************************************/ 01109000 * /* */ 01110000 * /* IF THE PAGE HAS BEEN CHANGED, RECOVERY CAN NOT TAKE PLACE. */ 01111000 * /* CHECK THE CHANGE BIT IN THE KEY AND SET CHNGIND BIT ACCORD- */ 01112000 * /* INGLY. */ 01113000 * /* */ 01114000 * /*****************************************************************/ 01115000 * 0405 01116000 *CKCHG: 0405 01117000 * ; 0405 01118000 CKCHG DS 0H 0406 01119000 * REG1=REQRBN*256; 0406 01120000 LH REG1,REQRBN(,PARMPTR) 0406 01121000 N REG1,@CF02384 0406 01122000 SLA REG1,8 0406 01123000 * GENERATE; 0407 01124000 * /*CHECK FOR CHANGED PAGES @VS08620*/ 01125000 RRB 0(REG1) 01126000 BC 5,CHNGON 01127000 RRB 2048(REG1) 01128000 BC 10,NOTCHG 01129000 *CHNGON: 0408 01130000 * CHNGIND='1'B; 0408 01131000 * 0408 01132000 CHNGON OI CHNGIND(PARMPTR),B'00000001' 0408 01133000 * /*****************************************************************/ 01134000 * /* */ 01135000 * /* INTERCEPT FRAMES FOR PERMANENTLY RESIDENT, V=R, SQA, LSQA, */ 01136000 * /* FIXED, OR CHANGED STATUS. */ 01137000 * /* */ 01138000 * /*****************************************************************/ 01139000 * 0409 01140000 *NOTCHG: 0409 01141000 * ; 0409 01142000 NOTCHG DS 0H 0410 01143000 * IF STAT2PTR->PERMFLG='1'B THEN 0410 01144000 L @08,STAT2PTR(,PARMPTR) 0410 01145000 TM PERMFLG(@08),B'00010000' 0410 01146000 BO @RT00410 0410 01147000 * GOTO STGOFF; /* RETURN CODE 8 */ 01148000 * IF STAT2PTR->VRFLG='1'B|STAT2PTR->SQAFLG='1'B|STAT2PTR->LSQAFLG='1' 01149000 * |STAT2PTR->FIXFLG='1'B|CHNGIND='1'B THEN 0412 01150000 TM VRFLG(@08),B'00001111' 0412 01151000 BNZ @RT00412 0412 01152000 TM CHNGIND(PARMPTR),B'00000001' 0412 01153000 BO @RT00412 0412 01154000 * GOTO STGINT; /* INTERCEPT FRAME */ 01155000 * IF PFTVBNASCBASID THEN 0416 01168000 L @08,PSAAOLD 0416 01169000 CLC PFTASID(2,PFTEPTR),ASCBASID(@08) 0416 01170000 BE @RF00416 0416 01171000 * DO; 0417 01172000 *STGINT: 0418 01173000 * ; /* INTERCEPT FOR OFFLINE */ 01174000 STGINT DS 0H 0419 01175000 * STAT2PTR->OFFLG='1'B; 0419 01176000 * STAT2PTR->INTFLG='1'B; 0420 01177000 L @08,STAT2PTR(,PARMPTR) 0420 01178000 OI OFFLG(@08),B'11000000' 0420 01179000 * PFTOFINT='1'B; 0421 01180000 OI PFTOFINT(PFTEPTR),B'00000001' 0421 01181000 *STGOFF: 0422 01182000 * ; 0422 01183000 STGOFF DS 0H 0423 01184000 * S15=8; /* RETURN CODE 8 MEANS NO 0423 01185000 * RECOVERY */ 01186000 MVC S15(4,REG13),@CF00119 0423 01187000 * GOTO STRETURN; /* EXIT ROUTINE CODE */ 01188000 B STRETURN 0424 01189000 * END; 0425 01190000 * END; /* IF IN COMMON AREA CAN RECOVER */ 01191000 @RF00416 DS 0H 0427 01192000 *RECOVER: 0427 01193000 * ; /* TRY TO RECOVER PAGE */ 01194000 @RF00414 DS 0H 0427 01195000 RECOVER DS 0H 0428 01196000 * STAT2PTR->OFFLG='1'B; /* INDICATE STORAGE OFFLINE 0428 01197000 * @ZM45604*/ 01198000 L @08,STAT2PTR(,PARMPTR) 0428 01199000 OI OFFLG(@08),B'10000000' 0428 01200000 * PFTOFINT='1'B; /* SET INTERCEPT FLAG @VS08620*/ 01201000 OI PFTOFINT(PFTEPTR),B'00000001' 0429 01202000 * REG1=PFTVBN*256; 0430 01203000 LH REG1,PFTVBN(,PFTEPTR) 0430 01204000 N REG1,@CF02384 0430 01205000 SLA REG1,8 0430 01206000 * CALL IEAVFP2; /* GET PAGE TABLE ADDRESS */ 01207000 L @15,PVTPFP2(,PVTPTR) 0431 01208000 BALR @14,@15 0431 01209000 * IF REG15^=0 /* IF NOT 0, ISSUE COD ABEND */ 01210000 * THEN 0432 01211000 LTR REG15,REG15 0432 01212000 BZ @RF00432 0432 01213000 * DO; 0433 01214000 * RCARCRD=1; 0434 01215000 L @08,PVTPRCA(,PVTPTR) 0434 01216000 MVI RCARCRD(@08),X'01' 0434 01217000 * GEN( ABEND X'C0D',,,SYSTEM) ; 0435 01218000 ABEND X'C0D',,,SYSTEM 01219000 * GOTO STGINT; /* SET OFFLINE INTERCEPT */ 01220000 B STGINT 0436 01221000 * END; 0437 01222000 * REG1=REG0; 0438 01223000 @RF00432 LR REG1,REG0 0438 01224000 * CALL IEAVINV; /* INVALIDATE PAGE */ 01225000 L @15,PVTPINV(,PVTPTR) 0439 01226000 BALR @14,@15 0439 01227000 * REG0=REQRBN; /* SEND TO AFQ, OFFLINE INTERCEPT 01228000 * WILL TAKE FRAME OFFLINE */ 01229000 LH REG0,REQRBN(,PARMPTR) 0440 01230000 N REG0,@CF02384 0440 01231000 * CALL IEAVPFTE; /* PFTE MANAGER */ 01232000 L @15,PVTPFTE(,PVTPTR) 0441 01233000 BALR @14,@15 0441 01234000 *STRETURN: 0442 01235000 * ; 0442 01236000 * GOTO ALLEXIT; /* COMMON EXIT */ 01237000 B ALLEXIT 0443 01238000 * END STORAGE; 0444 01239000 *KEY: 0445 01240000 * PROC OPTIONS(DONTSAVE,NOSAVEAREA); 0445 01241000 * 0445 01242000 KEY DS 0H 0446 01243000 */********************************************************************/ 01244000 */*KEY IS CALLED TO RESET THE KEY OF ONE FRAME. THE KEY CAN BE RESET*/ 01245000 */*FOR PERMANENTLY RESIDENT STORAGE,LSQA,SQA,COMMON AREA, AND V=V IN */ 01246000 */*THE CURRENT ADDRESS SPACE. ALL OTHERS ARE UNRECOVERABLE AND */ 01247000 */*RETURN CODE OF 8 IS RETURNED. IF THE KEY IS RECOVERABLE, IGKPKREF*/ 01248000 */*IS CALLED TO RESET THE KEY. IF THE KEY WAS SUCCESSFULLY RESET, */ 01249000 */*RETURN CODE OF 0 IS RETURNED TO THE KEY ROUTINE. OTHERWISE, IF */ 01250000 */*IGKPKREF SENT BACK ANYTHING OTHER THAN 0 IN REG15, THE KEY ROUTINE*/ 01251000 */*RETURNS A 8 TO THE CALLER IN REG15. */ 01252000 */********************************************************************/ 01253000 * 0446 01254000 * IF PFTEPTR-PVTPFTPPERMFLG='1'B; 0448 01264000 L @08,STAT2PTR(,PARMPTR) 0448 01265000 OI PERMFLG(@08),B'00010000' 0448 01266000 * GOTO SET2; /* SET KEY TO CHANGED. @G559P2L*/ 01267000 B SET2 0449 01268000 * END; 0450 01269000 * IF PFTBADPG='1'B /* STORAGE ERROR PRIOR TO THIS 0451 01270000 * OPERATION OCCURRED */ 01271000 * THEN 0451 01272000 @RF00446 TM PFTBADPG(PFTEPTR),B'00000100' 0451 01273000 BNO @RF00451 0451 01274000 * DO; 0452 01275000 * RECURIND='1'B; 0453 01276000 OI RECURIND(PARMPTR),B'00000010' 0453 01277000 * PFTBADPG='0'B; 0454 01278000 NI PFTBADPG(PFTEPTR),B'11111011' 0454 01279000 * END; 0455 01280000 * CALL STATUS; /* PROVIDE STATUS */ 01281000 @RF00451 BAL @14,STATUS 0456 01282000 *KEYREC: 0457 01283000 * ; /* ATTEMPT KEY RECOVERY */ 01284000 KEYREC DS 0H 0458 01285000 * IF PFTOFFLN='1'B /* IF ON THEN, FRAME IS OFFLINE */ 01286000 * THEN 0458 01287000 TM PFTOFFLN(PFTEPTR),B'01000000' 0458 01288000 BO @RT00458 0458 01289000 * GOTO KEYRC8; /* NO RECOVERY */ 01290000 * 0459 01291000 * /*****************************************************************/ 01292000 * /* */ 01293000 * /* IF FRAME IS V=R, ON AVAILABLE FRAME QUEUE, OR VAM, THEN CAN */ 01294000 * /* NOT RECOVER KEY ERROR. FRAME IS MADE OFFLINE INTERCEPTED AND */ 01295000 * /* WILL BE TAKEN OFFLINE WHEN IT IS GIVEN UP. */ 01296000 * /* */ 01297000 * /*****************************************************************/ 01298000 * 0460 01299000 * IF STAT2PTR->VRFLG='1'B| /* @ZM45604*/ 01300000 * PFTONAVQ='1'B|PFTIRRG='1'B THEN 0460 01301000 L @08,STAT2PTR(,PARMPTR) 0460 01302000 TM VRFLG(@08),B'00000001' 0460 01303000 BO @RT00460 0460 01304000 TM PFTONAVQ(PFTEPTR),B'10000000' 0460 01305000 BO @RT00460 0460 01306000 TM PFTIRRG(PFTEPTR),B'00010000' 0460 01307000 BO @RT00460 0460 01308000 * GOTO NOSETKEY; /* CANNOT RESET KEY */ 01309000 * RFY 0462 01310000 * REG0 RSTD; 0462 01311000 *SET0: 0463 01312000 * ; /* SET KEY TO ZERO */ 01313000 SET0 DS 0H 0464 01314000 * REG0=0; /* KEY=0,F=0,R=0,C=0 */ 01315000 SLR REG0,REG0 0464 01316000 * IF STAT2PTR->SQAFLG='1'B THEN /* IF ON, THE SQA PAGE @G559P2L*/ 01317000 L @08,STAT2PTR(,PARMPTR) 0465 01318000 TM SQAFLG(@08),B'00001000' 0465 01319000 BO @RT00465 0465 01320000 * GOTO SETKEY; /* ATTEMPT RECOVERY */ 01321000 *SET2: 0467 01322000 * ; /* SET KEY TO CHANGED. @G559P2L*/ 01323000 SET2 DS 0H 0468 01324000 * IF STAT2PTR->PERMFLG='1'B|STAT2PTR->LSQAFLG='1'B/* @G559P2L*/ 01325000 * THEN 0468 01326000 L @08,STAT2PTR(,PARMPTR) 0468 01327000 TM PERMFLG(@08),B'00010100' 0468 01328000 BZ @RF00468 0468 01329000 * DO; 0469 01330000 * REG0=2; /* KEY=0,F=0=R=0,C=1 */ 01331000 LA REG0,2 0470 01332000 * GOTO SETKEY; /* ATTEMPT RECOVERY */ 01333000 B SETKEY 0471 01334000 * END; 0472 01335000 * IF PFTASID^='FFFF'X /* IF X'FFFF',THEN COMMON AREA */ 01336000 * THEN 0473 01337000 @RF00468 CLC PFTASID(2,PFTEPTR),@CH02300 0473 01338000 BE @RF00473 0473 01339000 * DO; 0474 01340000 * IF PFTASID^=PSAAOLD->ASCBASID THEN 0475 01341000 L @08,PSAAOLD 0475 01342000 CLC PFTASID(2,PFTEPTR),ASCBASID(@08) 0475 01343000 BNE @RT00475 0475 01344000 * GOTO NOSETKEY; /* CANNOT SET KEY */ 01345000 * END; 0477 01346000 *GETXPTE: 0478 01347000 * ; 0478 01348000 @RF00473 DS 0H 0478 01349000 GETXPTE DS 0H 0479 01350000 * REG1=PFTVBN*256; 0479 01351000 LH REG1,PFTVBN(,PFTEPTR) 0479 01352000 N REG1,@CF02384 0479 01353000 SLA REG1,8 0479 01354000 * CALL IEAVFP2; /* NEED XPTE ADDRESS FOR KEY */ 01355000 L @15,PVTPFP2(,PVTPTR) 0480 01356000 BALR @14,@15 0480 01357000 * IF REG15^=0 /* IF NOT 0, NO XPTE ADDRESS */ 01358000 * THEN 0481 01359000 LTR REG15,REG15 0481 01360000 BZ @RF00481 0481 01361000 * DO; 0482 01362000 * RCARCRD=1; 0483 01363000 L @08,PVTPRCA(,PVTPTR) 0483 01364000 MVI RCARCRD(@08),X'01' 0483 01365000 * GEN( ABEND X'C0D',,,SYSTEM) ; 0484 01366000 ABEND X'C0D',,,SYSTEM 01367000 * GOTO NOSETKEY; /* CANNOT RESET KEY */ 01368000 B NOSETKEY 0485 01369000 * END; 0486 01370000 * REG0=REG1->XPTPROT; /* KEY=XPTPROT,F=0,R=0,C=1 */ 01371000 @RF00481 SLR REG0,REG0 0487 01372000 IC REG0,XPTPROT(,REG1) 0487 01373000 * REG0=REG0|TWO; /* TURN ON CHANGE BIT */ 01374000 O REG0,TWO 0488 01375000 *SETKEY: 0489 01376000 * ; /* REG0 CONTAINS KEY */ 01377000 SETKEY DS 0H 0490 01378000 * REG1=REQRBN*256; /* REG1 CONTAINS FRAME ADDRESS */ 01379000 LH REG1,REQRBN(,PARMPTR) 0490 01380000 N REG1,@CF02384 0490 01381000 SLA REG1,8 0490 01382000 * CALL IGKPKREF; /* DIRECT INTERFCE TO RESET KEY */ 01383000 L @08,CVTPTR 0491 01384000 L @08,RVTPTR(,@08) 0491 01385000 L @15,RVTPKREF(,@08) 0491 01386000 BALR @14,@15 0491 01387000 * RFY 0492 01388000 * REG0 UNRSTD; 0492 01389000 * IF REG15^=0 /* IF NOT 0,COULD NOT RESET KEY */ 01390000 * THEN 0493 01391000 LTR REG15,REG15 0493 01392000 BZ @RF00493 0493 01393000 * DO; 0494 01394000 *NOSETKEY: 0495 01395000 * ; 0495 01396000 NOSETKEY DS 0H 0496 01397000 * IF PFTEPTR-PVTPFTPINTFLG='1'B; 0500 01410000 * STAT2PTR->OFFLG='1'B; 0501 01411000 L @08,STAT2PTR(,PARMPTR) 0501 01412000 OI INTFLG(@08),B'11000000' 0501 01413000 *KEYRC8: 0502 01414000 * ; 0502 01415000 KEYRC8 DS 0H 0503 01416000 * STAT2PTR->STGFLG='1'B; 0503 01417000 L @08,STAT2PTR(,PARMPTR) 0503 01418000 OI STGFLG(@08),B'00100000' 0503 01419000 * S15=8; 0504 01420000 MVC S15(4,REG13),@CF00119 0504 01421000 * END; 0505 01422000 *KERETURN: 0506 01423000 * ; 0506 01424000 * GOTO ALLEXIT; /* RETURN TO COMMON EXIT CODE */ 01425000 B ALLEXIT 0507 01426000 * END KEY; 0508 01427000 @PB00007 DS 0H 0509 01428000 * 0509 01429000 */* ************************************************************ */ 01430000 */* IEAVRCFI INTERCEPT ROUTINE GETS CONTROL WHEN A FRAME GOES */ 01431000 */* TO THE AVAILABLE FRAME QUEUE AND THE PFTOFINT BIT IS ON */ 01432000 */* INTERCEPT WILL SEARCH THE OFFLINE WAIT QUEUE TO FIND A */ 01433000 */* PCBR RANGE THAT INCLUDES THE INTERCEPTED FRAME. WHEN */ 01434000 */* FOUND THE PCBRCNT FRAME COUNT IS DECREMENTED. IF COUNT */ 01435000 */* GOES TO ZERO, A SRB IS BUILT TO SCHEDULE IEAVRCFC */ 01436000 */* COMPLETE ROUTINE IN ORDER TO POST THE ECB. IF A PCBR */ 01437000 */* PFTBADPG IS CHECKED. IF ON, A STORAGE DATA ERROR HAS */ 01438000 */* OCCURED AND THE FRAME MUST GO OFFLINE IMMEDIATELY. IF */ 01439000 */* NEITHER OF THESE TWO CONDITIONS EXIST, THE FRAME RBN */ 01440000 */* IS RETURNED TO PFTE MANAGER IN REG1 WITH PFTOFINT SET */ 01441000 */* TO ZERO. AT ENTRY TO IEAVRCFI REG1=RBN OF FRAME AND REG6 */ 01442000 */* =PFTEPTR OF FRAME. */ 01443000 */* ************************************************************ */ 01444000 * 0509 01445000 *EP2: 0509 01446000 * ; 0509 01447000 EP2 DS 0H 0510 01448000 * RESPECIFY 0510 01449000 * (PARMPTR, 0510 01450000 * REG13, 0510 01451000 * HIRBN) UNRSTD; 0510 01452000 * RESPECIFY 0511 01453000 * (PCBRPTR, 0511 01454000 * REG1) RSTD; 0511 01455000 * RCARCFI='1'B; /* ENTRY BIT IN RCA */ 01456000 L @09,PVTPRCA(,PVTPTR) 0512 01457000 OI RCARCFI(@09),B'00000100' 0512 01458000 * PCBRPTR=PVTOROOT; /* ANCHOR PCBR ADDRESS */ 01459000 L PCBRPTR,PVTOROOT(,PVTPTR) 0513 01460000 * PFTOFINT='0'B; 0514 01461000 NI PFTOFINT(PFTEPTR),B'11111110' 0514 01462000 *LOOPER: 0515 01463000 * ; /* PCBR INTERCEPT SEARCH */ 01464000 LOOPER DS 0H 0516 01465000 * IF PCBRPTR=0 /* IF 0, PCBR NOT CREATED FOR 0516 01466000 * FRAME */ 01467000 * THEN 0516 01468000 LTR PCBRPTR,PCBRPTR 0516 01469000 BNZ @RF00516 0516 01470000 * DO; 0517 01471000 * IF PFTBADPG='1'B /* IF STORAGE ERROR TAKE FRAME 0518 01472000 * OFFLINE */ 01473000 * THEN 0518 01474000 TM PFTBADPG(PFTEPTR),B'00000100' 0518 01475000 BNO @RF00518 0518 01476000 * DO; 0519 01477000 * PFTOFFLN='1'B; /* TURN ON OFFLINE */ 01478000 OI PFTOFFLN(PFTEPTR),B'01000000' 0520 01479000 * PVTPOOL=PVTPOOL-1; 0521 01480000 LH @09,PVTPOOL(,PVTPTR) 0521 01481000 BCTR @09,0 0521 01482000 STH @09,PVTPOOL(,PVTPTR) 0521 01483000 * PVTMAXFX=PVTPERFX*PVTPOOL/100;/* CALCULATE THE FIXED 0522 01484000 * FRAME THRESHOLD @YA01572*/ 01485000 LA @07,100 0522 01486000 LH @05,PVTPERFX(,PVTPTR) 0522 01487000 MR @04,@09 0522 01488000 DR @04,@07 0522 01489000 STH @05,PVTMAXFX(,PVTPTR) 0522 01490000 * PVTFIXOK=PVTPOOL*PVTPEROK/100;/* DETERMINE THE NUMBER OF 01491000 * FIXED FRAMES ACCEPTABLE FOR 0523 01492000 * NORMAL SYSTEM PROCESSING 0523 01493000 * @YA01572*/ 01494000 LR @05,@09 0523 01495000 LH @09,PVTPEROK(,PVTPTR) 0523 01496000 MR @04,@09 0523 01497000 DR @04,@07 0523 01498000 STH @05,PVTFIXOK(,PVTPTR) 0523 01499000 * REG13=ADDR(PVTSAVE); 0524 01500000 LA REG13,PVTSAVE(,PVTPTR) 0524 01501000 * GENERATE REFS(PVTPTR,PVTPOOL,PVTAFCLO) SETS(REG1,REG13); 01502000 ICM REG1,12,PVTPOOL(PVTPTR) @ZA08772 01503000 ICM REG1,3,PVTAFCLO(PVTPTR) @ZA08772 01504000 SYSEVENT RSMCNSTS,ENTRY=BRANCH 01505000 SR REG13,REG13 ZERO RETURN CODE 01506000 ST REG13,PVTWSA3+4(PVTPTR) ST RETURN CODE 01507000 * END; 0526 01508000 * ELSE 0527 01509000 * DO; /* RCFI SHOULD NOT HAVE BEEN 0527 01510000 * CALLED */ 01511000 B @RC00518 0527 01512000 @RF00518 DS 0H 0528 01513000 * RCARCRD=8; /* TURN ON RECORD BIT */ 01514000 L @09,PVTPRCA(,PVTPTR) 0528 01515000 MVI RCARCRD(@09),X'08' 0528 01516000 * GENERATE( ABEND X'C0D',,,SYSTEM) ; 0529 01517000 ABEND X'C0D',,,SYSTEM 01518000 * END; 0530 01519000 * END; 0531 01520000 * ELSE 0532 01521000 * DO; 0532 01522000 B @RC00516 0532 01523000 @RF00516 DS 0H 0533 01524000 * IF(LORANGE<=REG1)&(REG1<=HIRANGE) THEN 0533 01525000 C REG1,LORANGE(,PCBRPTR) 0533 01526000 BL @RF00533 0533 01527000 C REG1,HIRANGE(,PCBRPTR) 0533 01528000 BH @RF00533 0533 01529000 * DO; /* FRAME IN PCB RANGE */ 01530000 * PFTOFFLN='1'B; /* TAKE FRAME OFFLINE */ 01531000 OI PFTOFFLN(PFTEPTR),B'01000000' 0535 01532000 * GENERATE; 0536 01533000 SR REG13,REG13 ZERO RETURN CODE 01534000 ST REG13,PVTWSA3+4(PVTPTR) STORE RETURN CODE 01535000 * PCBRCNT=PCBRCNT-1; /* DECREMENT FRAME COUNT */ 01536000 * 0537 01537000 LH @09,PCBRCNT(,PCBRPTR) 0537 01538000 BCTR @09,0 0537 01539000 STH @09,PCBRCNT(,PCBRPTR) 0537 01540000 * /*********************************************************/ 01541000 * /* */ 01542000 * /* SCHEDULE THE COMPLETE ROUTINE IF THE ROOT COUNT HAS */ 01543000 * /* GONE TO ZERO AND COMPLETE HAS NOT YET BEEN SCHEDULED */ 01544000 * /* @ZA08772*/ 01545000 * /* */ 01546000 * /*********************************************************/ 01547000 * 0538 01548000 * IF PCBRCNT=0&PCBRINT='0'B/* IF 0, SCHEDULE COMPLETE 0538 01549000 * @ZA08772*/ 01550000 * THEN 0538 01551000 LTR @09,@09 0538 01552000 BNZ @RF00538 0538 01553000 TM PCBRINT(PCBRPTR),B'10000000' 0538 01554000 BNZ @RF00538 0538 01555000 * DO; 0539 01556000 * CALL SCHED; 0540 01557000 BAL @14,SCHED 0540 01558000 * IF REG15^=0 /* CANNOT SCHEDULE */ 01559000 * THEN 0541 01560000 LTR REG15,REG15 0541 01561000 BZ @RF00541 0541 01562000 * DO; 0542 01563000 * RESPECIFY 0543 01564000 * REG7 RSTD; 0543 01565000 * REG8=PCBRASCB->ASCBASID; 0544 01566000 L @09,PCBRASCB(,PCBRPTR) 0544 01567000 LH @09,ASCBASID(,@09) 0544 01568000 N @09,@CF02384 0544 01569000 LR REG8,@09 0544 01570000 * REG7=PCBRTCBA; 0545 01571000 L REG7,PCBRTCBA-1(,PCBRPTR) 0545 01572000 LA REG7,0(,REG7) 0545 01573000 * GENERATE; 0546 01574000 CALLRTM TYPE=ABTERM,COMPCOD=X'028',TCB=(REG7),ASID=(REG8) 01575000 * RESPECIFY 0547 01576000 * REG7 UNRSTD; 0547 01577000 * END; 0548 01578000 * END; 0549 01579000 * END; 0550 01580000 * ELSE 0551 01581000 * DO; 0551 01582000 B @RC00533 0551 01583000 @RF00533 DS 0H 0552 01584000 * PCBRPTR=NEXTPCB; /* CHECK NEXT PCBR IN QUEUE */ 01585000 L PCBRPTR,NEXTPCB(,PCBRPTR) 0552 01586000 * GOTO LOOPER; /* CONTINUE SEARCH */ 01587000 B LOOPER 0553 01588000 * END; 0554 01589000 * END; /* COMMON INTERCEPT EXIT */ 01590000 @RC00533 DS 0H 0556 01591000 *EXITI: 0556 01592000 * ; 0556 01593000 @RC00516 DS 0H 0556 01594000 EXITI DS 0H 0557 01595000 * RCARCFI='0'B; 0557 01596000 L @09,PVTPRCA(,PVTPTR) 0557 01597000 NI RCARCFI(@09),B'11111011' 0557 01598000 * GENERATE; 0558 01599000 LM @00,@15,PVTWSA3(PVTPTR) 01600000 BR @14 01601000 *SCHED: 0559 01602000 * PROC OPTIONS(DONTSAVE,NOSAVEAREA); 0559 01603000 * 0559 01604000 B @PB00008 0559 01605000 SCHED DS 0H 0560 01606000 */********************************************************************/ 01607000 */*PCBRPTR IS INPUT TO SCHED ROUTINE. */ 01608000 */*SCHED GETS CALLED FROM CANCEL WHEN AN ONLINE REQUEST EXACTLY OVER-*/ 01609000 */*LAPS AN INCOMPLETE OFFLINE REQUEST. THE OFFLINE ECB WILL BE POSTED*/ 01610000 */*WITH CODE OF 4. SCHEDULE IS ALSO CALLED FROM IEAVRCFI WHEN THE */ 01611000 */*PCBR FRAME COUNT HAS GONE TO ZERO. SCHEDULE WILL USE THE SRB */ 01612000 */*SPACE GOTTEN BY THE OFFLINE SUBROUTINE AND ISSUE THE SCHEDULE FOR */ 01613000 */*IEAVRCFC. @Z30GNYD */ 01614000 */********************************************************************/ 01615000 * 0560 01616000 * RESPECIFY 0560 01617000 * (REG5, 0560 01618000 * PARMPTR) RSTD; 0560 01619000 * REG5=REG14; /* SAVE RETURN ADDRESS */ 01620000 LR REG5,REG14 0561 01621000 * IF PCBRPTR->COMPSRB=0 /* IF THERE ISN'T AN SRB TO 0562 01622000 * SCHEDULE COMPLETION, ISSUE C0D 01623000 * ABEND @Z30GNYD*/ 01624000 * THEN 0562 01625000 L @09,COMPSRB(,PCBRPTR) 0562 01626000 LTR @09,@09 0562 01627000 BNZ @RF00562 0562 01628000 * DO; 0563 01629000 * RCARCRD=2; 0564 01630000 L @09,PVTPRCA(,PVTPTR) 0564 01631000 MVI RCARCRD(@09),X'02' 0564 01632000 * GEN( ABEND X'C0D',,,SYSTEM) ; 0565 01633000 ABEND X'C0D',,,SYSTEM 01634000 * REG15=4; 0566 01635000 LA REG15,4 0566 01636000 * GOTO SCRETURN; /* GOTO COMMON EXIT CODE */ 01637000 B SCRETURN 0567 01638000 * END; 0568 01639000 * 0568 01640000 * /*****************************************************************/ 01641000 * /* */ 01642000 * /* BUILD SRB CONTROL BLOCK FOR SCHEDULE. */ 01643000 * /* */ 01644000 * /*****************************************************************/ 01645000 * 0569 01646000 * SRBPTR=PCBRPTR->COMPSRB; /* GET ADDRESS OF SRB FROM ROOT 01647000 * PCB @Z30GNYD*/ 01648000 @RF00562 L SRBPTR,COMPSRB(,PCBRPTR) 0569 01649000 * SRBSECT='0'B; 0570 01650000 XC SRBSECT+1(43,SRBPTR),SRBSECT+1(SRBPTR) 0570 01651000 MVI SRBSECT(SRBPTR),B'00000000' 0570 01652000 * SRBID='SRB '; 0571 01653000 MVC SRBID(4,SRBPTR),@CC02361 0571 01654000 * SRBASCB=PCBRASCB; 0572 01655000 L @09,PCBRASCB(,PCBRPTR) 0572 01656000 ST @09,SRBASCB(,SRBPTR) 0572 01657000 * SRBEP=ADDR(IEAVRCFC); 0573 01658000 L @07,@CV00095 0573 01659000 ST @07,SRBEP(,SRBPTR) 0573 01660000 * SRBRMTR=PVTPSRBP; 0574 01661000 L @07,PVTPSRBP(,PVTPTR) 0574 01662000 ST @07,SRBRMTR(,SRBPTR) 0574 01663000 * SRBPTCB=PCBRTCBA; 0575 01664000 L @07,PCBRTCBA-1(,PCBRPTR) 0575 01665000 LA @07,0(,@07) 0575 01666000 ST @07,SRBPTCB(,SRBPTR) 0575 01667000 * SRBPASID=PCBRASCB->ASCBASID; 0576 01668000 LH @09,ASCBASID(,@09) 0576 01669000 N @09,@CF02384 0576 01670000 STH @09,SRBPASID(,SRBPTR) 0576 01671000 * SRBPARM=PCBRPTR; 0577 01672000 ST PCBRPTR,SRBPARM(,SRBPTR) 0577 01673000 * PCBRINT='1'B; /* INDICATE SCHEDULE DONE 0578 01674000 * @Z30GNYD*/ 01675000 OI PCBRINT(PCBRPTR),B'10000000' 0578 01676000 * GENERATE( SCHEDULE SRB=(SRBPTR)) ; 0579 01677000 SCHEDULE SRB=(SRBPTR) 01678000 * REG15=0; 0580 01679000 SLR REG15,REG15 0580 01680000 *SCRETURN: 0581 01681000 * ; /* COMMON SCHEDULE EXIT */ 01682000 SCRETURN DS 0H 0582 01683000 * REG14=REG5; /* RESTORE RETURN ADDRESS */ 01684000 LR REG14,REG5 0582 01685000 * RESPECIFY 0583 01686000 * (REG5, 0583 01687000 * RSMHDPTR, 0583 01688000 * PARMPTR) UNRSTD; 0583 01689000 * END SCHED; 0584 01690000 @EL00008 DS 0H 0584 01691000 @EF00008 DS 0H 0584 01692000 @ER00008 BR @14 0584 01693000 @PB00008 DS 0H 0585 01694000 * 0585 01695000 */********************************************************************/ 01696000 */*WHEN THE COMPLETE ROUTINE IS SCHEDULED EITHER THE PCBRCNT HAS GONE*/ 01697000 */*TO ZERO,IE. ALL PENDING OFFLINE FRAMES ARE NOT OFFLINE, OR CANCEL */ 01698000 */*HAS REQUESTED POST OF 4, IE. PCBRFAIL = 1. COMPLETE POSTS ECB AND*/ 01699000 */*RETURNS CONTROL. */ 01700000 */********************************************************************/ 01701000 * 0585 01702000 *EP3: 0585 01703000 * ; 0585 01704000 EP3 DS 0H 0586 01705000 * RESPECIFY 0586 01706000 * REG2 RSTD; 0586 01707000 * RESPECIFY 0587 01708000 * REG0 RSTD; 0587 01709000 * PVTPTR=CVTPVTP; /* PVT ADDRESS */ 01710000 L @09,CVTPTR 0588 01711000 L PVTPTR,CVTPVTP(,@09) 0588 01712000 * PCBRPTR=REG1; /* COMPLETE IS ENTERED WITH REG0 01713000 * = SRB ADDRESS REG1 = PCBR 0589 01714000 * ADDRESS */ 01715000 LR PCBRPTR,REG1 0589 01716000 * REG1=PVTSRBID; /* RSM SRB ID */ 01717000 L REG1,PVTSRBID(,PVTPTR) 0590 01718000 * REG2=REG0; /* SRB ADDRESS */ 01719000 LR REG2,REG0 0591 01720000 * GENERATE( FREECELL CPID=(REG1),CELL=(REG2),BRANCH=YES,SAVE=NO) ; 01721000 FREECELL CPID=(REG1),CELL=(REG2),BRANCH=YES,SAVE=NO 01722000 * RESPECIFY 0593 01723000 * REG2 UNRSTD; 0593 01724000 * PVTPTR=CVTPVTP; 0594 01725000 L @09,CVTPTR 0594 01726000 L PVTPTR,CVTPVTP(,@09) 0594 01727000 * REG0=PVTPRCV; 0595 01728000 L REG0,PVTPRCV(,PVTPTR) 0595 01729000 * RESPECIFY 0596 01730000 * REG4 RSTD; /* @ZA09185*/ 01731000 * GEN( SETFRR A,FRRAD=(REG0),WRKREGS=(REG1,REG2),PARMAD=(REG4)) ; 01732000 SETFRR A,FRRAD=(REG0),WRKREGS=(REG1,REG2),PARMAD=(REG4) 01733000 * RFY 0598 01734000 * RCA BASED(REG4); /* @ZA09185*/ 01735000 * RFY 0599 01736000 * REG0 UNRSTD; 0599 01737000 * RCASAL='1'B; /* SET SALLOC LOCK INDICATOR */ 01738000 OI RCASAL(REG4),B'10000000' 0600 01739000 * RCACSECT=RCACRECF; /* SET CSECT ID */ 01740000 MVI RCACSECT(REG4),X'10' 0601 01741000 * RCARCFC='1'B; /* TURN ON ENTRY ID */ 01742000 OI RCARCFC(REG4),B'00010000' 0602 01743000 * REG5=REG12; /* SAVE BASE REGISTER SETLOCK 0603 01744000 * CLOBBERS REG11-13 */ 01745000 LR REG5,REG12 0603 01746000 * GENERATE; 0604 01747000 GLOBALOB SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, **01748000 RELATED=(RSM,IEAVRCFC(GLOBALRE),IEAVRCFC(GLOBALR1)) 01749000 * REG12=REG5; /* RESTORE BASE REGISTER */ 01750000 LR REG12,REG5 0605 01751000 * PVTPRCA=REG4; /* SET RECOVERY AREA ADDRESS */ 01752000 ST REG4,PVTPRCA(,PVTPTR) 0606 01753000 * RFY 0607 01754000 * RCA BASED(PVTPRCA); /* @ZA09185*/ 01755000 */********************************************************************/ 01756000 */*UNCHAIN PCBR FROM OFFLINE WAIT QUEUE AND THEN FREE PCB. */ 01757000 */********************************************************************/ 01758000 * 0608 01759000 * IF PVTOROOT=PCBRPTR /* IF FIRST ADDRES IS PCBR */ 01760000 * THEN 0608 01761000 C PCBRPTR,PVTOROOT(,PVTPTR) 0608 01762000 BNE @RF00608 0608 01763000 * DO; 0609 01764000 * PVTOROOT=NEXTPCB; /* DEQUEUE PCBR */ 01765000 L @09,NEXTPCB(,PCBRPTR) 0610 01766000 ST @09,PVTOROOT(,PVTPTR) 0610 01767000 * GOTO FREEPCBR; /* CONTINUE PROCESSING */ 01768000 B FREEPCBR 0611 01769000 * END; 0612 01770000 * RESPECIFY 0613 01771000 * REG1 RSTD; 0613 01772000 @RF00608 DS 0H 0614 01773000 * REG1=PVTOROOT; /* SEARCH QUEUE FOR MATCH */ 01774000 L REG1,PVTOROOT(,PVTPTR) 0614 01775000 *LOOP: 0615 01776000 * ; /* PCBR COMPLETE SEARCH */ 01777000 LOOP DS 0H 0616 01778000 * IF REG1=0 /* IF 0, THEN NO MORE TO SEARCH */ 01779000 * THEN 0616 01780000 LTR REG1,REG1 0616 01781000 BNZ @RF00616 0616 01782000 * DO; 0617 01783000 * RCARCRD=8; 0618 01784000 L @09,PVTPRCA(,PVTPTR) 0618 01785000 MVI RCARCRD(@09),X'08' 0618 01786000 * GENERATE( ABEND X'C0D',,,SYSTEM) ; 0619 01787000 ABEND X'C0D',,,SYSTEM 01788000 * GENERATE; 0620 01789000 GLOBALR1 SETLOCK RELEASE,TYPE=SALLOC, **01790000 RELATED=(RSM,IEAVRCFC(GLOBALOB)) 01791000 * GOTO SKIP; 0621 01792000 B SKIP 0621 01793000 * END; 0622 01794000 * ELSE 0623 01795000 * DO; 0623 01796000 @RF00616 DS 0H 0624 01797000 * IF REG1->NEXTPCB=PCBRPTR /* IF EQUAL, THEN DEQUEUE HERE */ 01798000 * THEN 0624 01799000 C PCBRPTR,NEXTPCB(,REG1) 0624 01800000 BNE @RF00624 0624 01801000 * REG1->NEXTPCB=PCBRPTR->NEXTPCB; 0625 01802000 L @09,NEXTPCB(,PCBRPTR) 0625 01803000 ST @09,NEXTPCB(,REG1) 0625 01804000 * ELSE 0626 01805000 * DO; 0626 01806000 B @RC00624 0626 01807000 @RF00624 DS 0H 0627 01808000 * REG1=REG1->NEXTPCB; /* GET NEXT PCBR ADDRESS */ 01809000 L REG1,NEXTPCB(,REG1) 0627 01810000 * GOTO LOOP; /* CONTINUE SEARCH */ 01811000 B LOOP 0628 01812000 * END; 0629 01813000 * END; 0630 01814000 * 0630 01815000 @RC00624 DS 0H 0631 01816000 * /*****************************************************************/ 01817000 * /* */ 01818000 * /* SEE IF THE ROOT HAS BEEN FAILED BY CANCEL. IF SO, CHECK FRAME */ 01819000 * /* IN THE RANGE FOR BEING FLAGGED AS OFFLINE INTERCEPTED BUT NOT */ 01820000 * /* BAD PAGE. FOR EVERY SUCH FRAME THE OFFLINE INTERCEPT FLAG MUST*/ 01821000 * /* BE CLEARED TO PREVENT THE FRAME FROM REACHING THE INTERCEPT */ 01822000 * /* ROUTINE. ALSO, PVTPOOL MUST BE INCREMENTED. IF THE FRAME */ 01823000 * /* REACHED THE INTERCEPT ROUTINE, A CODE ABEND WOULD BE ISSUED, */ 01824000 * /* SINCE IT WAS NOT FLAGGED AS A BAD PAGE AND NO ROOT PCB WOULD */ 01825000 * /* BE FOUND WHOSE RANGE ENCOMPASSED IT. PVTPOOL MUST BE */ 01826000 * /* INCREMENTED HERE BECAUSE THE ONLINE ROUTINE WILL NOT KNOW TO */ 01827000 * /* DO IT, SINCE THE COMPLETE ROUTINE IS RESETTLING THE OFFLINE */ 01828000 * /* INTERECEPTED FLAG. THE ONLINE ROUTINE NEEDS EITHER THE */ 01829000 * /* PFTOFFLN OR THE PFTOFINT FLAG ON TO TELL IT TO INCREMENT */ 01830000 * /* PVTPOOL, AND NEITHER ONE WILL BE ON. @ZA08772*/ 01831000 * /* */ 01832000 * /*****************************************************************/ 01833000 * 0631 01834000 *FREEPCBR: 0631 01835000 * ; /* FREE PCBR THEN POST ECB */ 01836000 FREEPCBR DS 0H 0632 01837000 * RESPECIFY 0632 01838000 * (REG0, 0632 01839000 * RSMHDPTR, 0632 01840000 * REG10, 0632 01841000 * REG11) RSTD; 0632 01842000 * IF PCBRFAIL='1'B /* IF 1, THEN POST WITH 4 */ 01843000 * THEN 0633 01844000 TM PCBRFAIL(PCBRPTR),B'00001000' 0633 01845000 BNO @RF00633 0633 01846000 * DO; /* CHECK FRAMES @ZA08772*/ 01847000 * PFTEPTR=LORANGE+PVTPFTP; /* ADDRESS FIRST FRAME IN THE 0635 01848000 * RANGE @ZA08772*/ 01849000 L @09,LORANGE(,PCBRPTR) 0635 01850000 LR PFTEPTR,@09 0635 01851000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0635 01852000 * DO REG0=LORANGE TO HIRANGE BY 16;/* CHECK ALL OF THE FRAMES 01853000 * @ZA08772*/ 01854000 LR REG0,@09 0636 01855000 B @DE00636 0636 01856000 @DL00636 DS 0H 0637 01857000 * IF PFTOFINT='1'B&PFTBADPG='0'B THEN/* @ZA08772*/ 01858000 TM PFTOFINT(PFTEPTR),B'00000001' 0637 01859000 BNO @RF00637 0637 01860000 TM PFTBADPG(PFTEPTR),B'00000100' 0637 01861000 BNZ @RF00637 0637 01862000 * DO; /* @ZA08772*/ 01863000 * PFTOFINT='0'B; /* CLEAR INTERCEPT FLAG @ZA08772*/ 01864000 NI PFTOFINT(PFTEPTR),B'11111110' 0639 01865000 * PVTPOOL=PVTPOOL+1; /* INCREMENT PVTPOOL @ZA08772*/ 01866000 LA @09,1 0640 01867000 AH @09,PVTPOOL(,PVTPTR) 0640 01868000 STH @09,PVTPOOL(,PVTPTR) 0640 01869000 * END; 0641 01870000 * PFTEPTR=PFTEPTR+LENGTH(PFTE);/* ADDRESS NEXT FRAME @ZA08772*/ 01871000 @RF00637 AL PFTEPTR,@CF00077 0642 01872000 * END; /* @ZA08772*/ 01873000 AL REG0,@CF00077 0643 01874000 @DE00636 C REG0,HIRANGE(,PCBRPTR) 0643 01875000 BNH @DL00636 0643 01876000 * REG10=4; 0644 01877000 LA REG10,4 0644 01878000 * PVTMAXFX=PVTPOOL*PVTPERFX/100;/* CALCULATE THE FIXED FRAME 0645 01879000 * THRESHOLD @YA01572*/ 01880000 LA @09,100 0645 01881000 LH @07,PVTPOOL(,PVTPTR) 0645 01882000 LH @15,PVTPERFX(,PVTPTR) 0645 01883000 MR @14,@07 0645 01884000 DR @14,@09 0645 01885000 STH @15,PVTMAXFX(,PVTPTR) 0645 01886000 * PVTFIXOK=PVTPOOL*PVTPEROK/100;/* DETERMINE THE NUMBER OF 0646 01887000 * FIXED FRAMES ACCEPTED FOR 0646 01888000 * NORMAL SYSTEM PROCESSING 0646 01889000 * @YA01572*/ 01890000 LR @15,@07 0646 01891000 LH @07,PVTPEROK(,PVTPTR) 0646 01892000 MR @14,@07 0646 01893000 DR @14,@09 0646 01894000 STH @15,PVTFIXOK(,PVTPTR) 0646 01895000 * END; /* @ZA08772*/ 01896000 * ELSE 0648 01897000 * REG10=0; /* IF 0, THEN POST WITH 0 */ 01898000 B @RC00633 0648 01899000 @RF00633 SLR REG10,REG10 0648 01900000 * RSMHDPTR=ASCBRSM; /* RSM HEADER ADDRESS */ 01901000 @RC00633 L @09,ASCBPTR 0649 01902000 L RSMHDPTR,ASCBRSM(,@09) 0649 01903000 * REG9=PCBRECB; /* SAVE ECB ADDRESS FOR POST */ 01904000 L REG9,PCBRECB(,PCBRPTR) 0650 01905000 * PCBFQP='FF000000'X; /* SET PCBR UP TO FREE */ 01906000 MVC PCBFQP(4,PCBPTR),@CF02294 0651 01907000 * REG0=PCBFREQN; 0652 01908000 LA REG0,16 0652 01909000 * REG1=PCBRPTR; 0653 01910000 LR REG1,PCBRPTR 0653 01911000 * CALL IEAVPCB; /* CALL PCB MANAGER FOR DEQUEUE */ 01912000 L @15,PVTPCB(,PVTPTR) 0654 01913000 BALR @14,@15 0654 01914000 * RESPECIFY 0655 01915000 * (REG0, 0655 01916000 * RSMHDPTR, 0655 01917000 * PCBRPTR) UNRSTD; 0655 01918000 * REG5=REG12; /* SAVE BASE REGISTER */ 01919000 LR REG5,REG12 0656 01920000 * GENERATE; 0657 01921000 GLOBALRE SETLOCK RELEASE,TYPE=SALLOC, **01922000 RELATED=(RSM,IEAVRCFC(GLOBALOB)) 01923000 LOCALOB SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, **01924000 RELATED=(RSM,IEAVRCFC(LOCALRE)) 01925000 * REG11=REG9; /* RESTORE ECB ADDRESS */ 01926000 LR REG11,REG9 0658 01927000 * REG4->RCALL='1'B; /* SET LOCAL LOCK INDICATOR 0659 01928000 * @ZA09185*/ 01929000 * REG4->RCASAL='0'B; /* @ZA09185*/ 01930000 OI RCALL(REG4),B'01000000' 0660 01931000 NI RCASAL(REG4),B'01111111' 0660 01932000 * CALL POST; /* POST CLOBBERS REG10-13 */ 01933000 L @07,CVTPTR 0661 01934000 L @15,CVT0PT01(,@07) 0661 01935000 BALR @14,@15 0661 01936000 * GENERATE; 0662 01937000 LOCALRE SETLOCK RELEASE,TYPE=LOCAL, **01938000 RELATED=(RSM,IEAVRCFC(LOCALOB)) 01939000 * RESPECIFY 0663 01940000 * (REG10, 0663 01941000 * REG11) UNRSTD; 0663 01942000 * REG12=REG5; /* RESTORE BASE REGISTER */ 01943000 LR REG12,REG5 0664 01944000 *SKIP: 0665 01945000 * ; /* COMMON COMPLETE EXIT CODE */ 01946000 SKIP DS 0H 0666 01947000 * GENERATE; 0666 01948000 SETFRR D,WRKREGS=(1,2) 01949000 * REG14=CVTSRBRT; /* RETURN ADDRESS */ 01950000 L @07,CVTPTR 0667 01951000 L REG14,CVTSRBRT(,@07) 0667 01952000 * GENERATE; 0668 01953000 BR REG14 01954000 * END IEAVRCF 0669 01955000 * 0669 01956000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01957000 */*%INCLUDE SYSLIB (IHAASCB ) */ 01958000 */*%INCLUDE SYSLIB (CVT ) */ 01959000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01960000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01961000 */*%INCLUDE SYSLIB (IHAPCB ) */ 01962000 */*%INCLUDE SYSLIB (IHAPCBR ) */ 01963000 */*%INCLUDE SYSLIB (IHAPFTE ) */ 01964000 */*%INCLUDE SYSLIB (IHAPVT ) */ 01965000 */*%INCLUDE SYSLIB (IHARCA ) */ 01966000 */*%INCLUDE SYSLIB (IHARSMHD) */ 01967000 */*%INCLUDE SYSLIB (IHARVT ) */ 01968000 */*%INCLUDE SYSLIB (IHASRB ) */ 01969000 */*%INCLUDE SYSLIB (IHAXPTE ) */ 01970000 */*%INCLUDE SYSLIB (IHAPCCA ) */ 01971000 */*%INCLUDE SYSLIB (IHALRB ) */ 01972000 */*%INCLUDE SYSLIB (IGFPWA ) */ 01973000 * 0669 01974000 * ; 0669 01975000 @EL00001 DS 0H 0669 01976000 @EF00001 DS 0H 0669 01977000 @ER00001 BR @14 0669 01978000 @DATA DS 0H 01979000 @CH02300 DC XL2'FFFF' 01980000 @DATD DSECT 01981000 DS 0F 01982000 IEAVRCF CSECT 01983000 DS 0F 01984000 @CF00121 DC F'1' 01985000 @CF00163 DC F'4' 01986000 @CF00119 DC F'8' 01987000 @CF00032 DC F'12' 01988000 @CF00077 DC F'16' 01989000 @CF00109 DC F'20' 01990000 @CF02294 DC XL4'FF000000' 01991000 @CF02384 DC XL4'0000FFFF' 01992000 @DATD DSECT 01993000 DS 0D 01994000 @ENDDATD EQU * 01995000 IEAVRCF CSECT 01996000 NOPR ((@ENDDATD-@DATD)*16) 01997000 DS 0F 01998000 @SIZDATD DC AL1(0) 01999000 DC AL3(@ENDDATD-@DATD) 02000000 @CV00095 DC V(IEAVRCFC) 02001000 DS 0D 02002000 TWO DC F'2' 02003000 DEQ DC XL2'FF00' 02004000 @CC02361 DC C'SRB ' 02005000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02006000 @01 EQU 01 02007000 @02 EQU 02 02008000 @03 EQU 03 02009000 @04 EQU 04 02010000 @05 EQU 05 02011000 @06 EQU 06 02012000 @07 EQU 07 02013000 @08 EQU 08 02014000 @09 EQU 09 02015000 @10 EQU 10 02016000 @11 EQU 11 02017000 @12 EQU 12 02018000 @13 EQU 13 02019000 @14 EQU 14 02020000 @15 EQU 15 02021000 REG0 EQU @00 02022000 REG1 EQU @01 02023000 SRBPTR EQU @01 02024000 REG2 EQU @02 02025000 RSMHDPTR EQU @02 02026000 PVTPTR EQU @03 02027000 REG4 EQU @04 02028000 PARMPTR EQU @04 02029000 REG5 EQU @05 02030000 FLGPTR EQU @05 02031000 PFTEPTR EQU @06 02032000 REG7 EQU @07 02033000 REG8 EQU @08 02034000 PCBRPTR EQU @08 02035000 PCBPTR EQU @08 02036000 REG9 EQU @09 02037000 HIRBN EQU @09 02038000 REG10 EQU @10 02039000 XPTEPTR EQU @10 02040000 REG11 EQU @11 02041000 REG12 EQU @12 02042000 REG13 EQU @13 02043000 REG14 EQU @14 02044000 REG15 EQU @15 02045000 REG3 EQU @03 02046000 REG6 EQU @06 02047000 PSA EQU 0 02048000 FLCRNPSW EQU PSA 02049000 FLCROPSW EQU PSA+8 02050000 FLCICCW2 EQU PSA+16 02051000 FLCCVT EQU FLCICCW2 02052000 PSAEEPSW EQU PSA+132 02053000 PSAESPSW EQU PSA+136 02054000 FLCSVILC EQU PSAESPSW+1 02055000 PSAEPPSW EQU PSA+140 02056000 FLCPIILC EQU PSAEPPSW+1 02057000 FLCPICOD EQU PSAEPPSW+2 02058000 PSAPICOD EQU FLCPICOD+1 02059000 FLCTEA EQU PSAEPPSW+4 02060000 FLCPER EQU PSA+152 02061000 FLCMCLA EQU PSA+168 02062000 FLCIOEL EQU FLCMCLA+4 02063000 FLCIOA EQU FLCMCLA+16 02064000 FLCFSA EQU FLCMCLA+80 02065000 PSAPCCAV EQU PSA+520 02066000 PSATOLD EQU PSA+540 02067000 PSAAOLD EQU PSA+548 02068000 PSASUPER EQU PSA+552 02069000 PSASUP1 EQU PSASUPER 02070000 PSASUP2 EQU PSASUPER+1 02071000 PSASUP3 EQU PSASUPER+2 02072000 PSASUP4 EQU PSASUPER+3 02073000 PSACLHT EQU PSA+640 02074000 PSALKSA EQU PSA+696 02075000 PSAHLHI EQU PSA+760 02076000 PSADSSFL EQU PSA+836 02077000 PSADSSF1 EQU PSADSSFL 02078000 PSADSSF3 EQU PSADSSFL+2 02079000 PSADSSF4 EQU PSADSSFL+3 02080000 PSARSVT EQU PSA+896 02081000 FRREPTR EQU 0 02082000 IEAVPCB EQU 0 02083000 IEAVREP2 EQU 0 02084000 IEAVPFTE EQU 0 02085000 POST EQU 0 02086000 IEAVINV EQU 0 02087000 IGKPKREF EQU 0 02088000 IEAVFP2 EQU 0 02089000 RCAPTR EQU 0 02090000 RCA EQU 0 02091000 RCACSECT EQU RCA+9 02092000 RCAFLAGS EQU RCA+10 02093000 RCASAL EQU RCAFLAGS 02094000 RCALL EQU RCAFLAGS 02095000 RCARCRD EQU RCA+11 02096000 RCANAMES EQU RCA+12 02097000 RCANAME1 EQU RCANAMES 02098000 RCANAME2 EQU RCANAMES+1 02099000 RCANAME3 EQU RCANAMES+2 02100000 RCARCF EQU RCANAME3 02101000 RCARCFI EQU RCANAME3 02102000 RCANAME4 EQU RCANAMES+3 02103000 RCANAME5 EQU RCANAMES+4 02104000 RCANAME6 EQU RCANAMES+5 02105000 RCARCFC EQU RCANAME6 02106000 WKPCB EQU 20 02107000 LORANGE EQU WKPCB 02108000 HIRANGE EQU WKPCB+4 02109000 NEXTPCB EQU WKPCB+8 02110000 COMPSRB EQU WKPCB+12 02111000 SAVERGS EQU 0 02112000 RBN EQU SAVERGS 02113000 PRCNT EQU SAVERGS+4 02114000 @NM00002 EQU SAVERGS+8 02115000 RCFFLAGS EQU @NM00002 02116000 LOOPFLAG EQU RCFFLAGS 02117000 RCAPSAVE EQU @NM00002+1 02118000 S15 EQU SAVERGS+16 02119000 PARMLIST EQU 0 02120000 REQRBN EQU PARMLIST 02121000 FCNT EQU PARMLIST+2 02122000 REQUEST EQU PARMLIST+4 02123000 ONREQ EQU REQUEST 02124000 OFFREQ EQU REQUEST 02125000 STGREQ EQU REQUEST 02126000 KEYREQ EQU REQUEST 02127000 STAREQ EQU REQUEST 02128000 SALREQ EQU REQUEST 02129000 CANREQ EQU REQUEST 02130000 STATUS1 EQU PARMLIST+6 02131000 RECURIND EQU STATUS1 02132000 CHNGIND EQU STATUS1 02133000 STAT2PTR EQU PARMLIST+8 02134000 ECBPTR EQU PARMLIST+12 02135000 FLAGS EQU 0 02136000 OFFLG EQU FLAGS 02137000 INTFLG EQU FLAGS 02138000 STGFLG EQU FLAGS 02139000 PERMFLG EQU FLAGS 02140000 SQAFLG EQU FLAGS 02141000 LSQAFLG EQU FLAGS 02142000 FIXFLG EQU FLAGS 02143000 VRFLG EQU FLAGS 02144000 ASCB EQU 0 02145000 ASCBSUPC EQU ASCB+16 02146000 ASCBASID EQU ASCB+36 02147000 ASCBRSM EQU ASCB+52 02148000 ASCBFW1 EQU ASCB+100 02149000 ASCBRCTF EQU ASCBFW1+2 02150000 ASCBFLG1 EQU ASCBFW1+3 02151000 ASCBDSP1 EQU ASCB+114 02152000 ASCBFLG2 EQU ASCB+115 02153000 ASCBLKGP EQU ASCB+128 02154000 ASCBSRQ EQU ASCB+180 02155000 ASCBSRQ1 EQU ASCBSRQ 02156000 ASCBSRQ2 EQU ASCBSRQ+1 02157000 ASCBSRQ3 EQU ASCBSRQ+2 02158000 ASCBSRQ4 EQU ASCBSRQ+3 02159000 CVTMAP EQU 0 02160000 CVTDAR EQU CVTMAP+72 02161000 CVTFLGS1 EQU CVTDAR 02162000 CVTDCB EQU CVTMAP+116 02163000 CVTIOQET EQU CVTMAP+120 02164000 CVTIERLC EQU CVTMAP+144 02165000 CVT0PT01 EQU CVTMAP+152 02166000 CVTHEAD EQU CVTMAP+160 02167000 CVTSV76C EQU CVTHEAD 02168000 CVTOPTA EQU CVTMAP+182 02169000 CVTOPTB EQU CVTMAP+183 02170000 CVTRMS EQU CVTMAP+224 02171000 CVTGTF EQU CVTMAP+236 02172000 CVTGTFST EQU CVTGTF 02173000 CVTGTFS EQU CVTGTFST 02174000 CVTSTATE EQU CVTGTFST 02175000 CVTTMODE EQU CVTGTFST 02176000 CVTFORM EQU CVTGTFST 02177000 CVTAQAVT EQU CVTMAP+240 02178000 CVTTCMFG EQU CVTAQAVT 02179000 CVTVOLM2 EQU CVTMAP+244 02180000 CVTTATA EQU CVTVOLM2 02181000 CVTTSKS EQU CVTTATA 02182000 CVTVOLF2 EQU CVTTSKS 02183000 CVTTAT EQU CVTTATA+1 02184000 CVTATER EQU CVTMAP+248 02185000 CVTEXT1 EQU CVTMAP+252 02186000 CVTPURG EQU CVTMAP+260 02187000 CVTQMSG EQU CVTMAP+268 02188000 CVTDMSR EQU CVTMAP+272 02189000 CVTRSV37 EQU CVTDMSR 02190000 CVTDMSRF EQU CVTRSV37 02191000 CVTERPV EQU CVTMAP+316 02192000 CVTINTLA EQU CVTMAP+320 02193000 CVTAPF EQU CVTMAP+324 02194000 CVTEXT2 EQU CVTMAP+328 02195000 CVTHJES EQU CVTMAP+332 02196000 CVTPGSIA EQU CVTMAP+348 02197000 CVTA1F1 EQU CVTMAP+356 02198000 CVTSYSK EQU CVTMAP+357 02199000 CVTVOLM1 EQU CVTMAP+380 02200000 CVTVOLF1 EQU CVTVOLM1 02201000 CVTXTNT1 EQU 0 02202000 CVTXTNT2 EQU 0 02203000 CVTDSSV EQU CVTXTNT2 02204000 CVTFLGBT EQU CVTXTNT2+5 02205000 CVTQID EQU CVTXTNT2+24 02206000 CVTRV400 EQU CVTXTNT2+52 02207000 CVTRV409 EQU CVTXTNT2+53 02208000 CVTATCVT EQU CVTXTNT2+64 02209000 CVTRV429 EQU CVTXTNT2+84 02210000 CVTRV438 EQU CVTXTNT2+85 02211000 CVTRV457 EQU CVTXTNT2+112 02212000 CVTRV466 EQU CVTXTNT2+113 02213000 CVTFIX EQU 0 02214000 CVTRELNO EQU CVTFIX+252 02215000 FRRS EQU 0 02216000 FRRSHEAD EQU FRRS 02217000 FRRSENTR EQU 0 02218000 FRRSFLGS EQU FRRSENTR+4 02219000 FRRSFLG1 EQU FRRSFLGS 02220000 PCB EQU 0 02221000 PCBFQP EQU PCB 02222000 PCBBQP EQU PCB+4 02223000 PCBRTP EQU PCB+8 02224000 PCBFL1 EQU PCBRTP 02225000 PCBRLP EQU PCB+12 02226000 PCBXPT EQU PCB+16 02227000 PCBFL2 EQU PCBXPT 02228000 PCBPGT EQU PCB+20 02229000 PCBFL3 EQU PCBPGT 02230000 PCBBLOCK EQU PCB+28 02231000 PCBSRB EQU PCBBLOCK 02232000 PCBRB EQU PCBSRB 02233000 PCBR EQU 0 02234000 PCBRTCB EQU PCBR 02235000 PCBRFLAG EQU PCBRTCB 02236000 PCBRINT EQU PCBRFLAG 02237000 PCBRFAIL EQU PCBRFLAG 02238000 PCBRTCBA EQU PCBRTCB+1 02239000 PCBRECB EQU PCBR+8 02240000 PCBRASCB EQU PCBR+12 02241000 PCBRCNT EQU PCBR+16 02242000 PFTE EQU 0 02243000 PFTPGID EQU PFTE 02244000 PFTASID EQU PFTPGID 02245000 PFTVBN EQU PFTPGID+2 02246000 PFTQPTRS EQU PFTE+4 02247000 PFTFXCT EQU PFTE+8 02248000 PFTFLAG1 EQU PFTE+12 02249000 PFTONAVQ EQU PFTFLAG1 02250000 PFTVRINT EQU PFTFLAG1 02251000 PFTLSQA EQU PFTFLAG1 02252000 PFTBADPG EQU PFTFLAG1 02253000 PFTVRALC EQU PFTFLAG1 02254000 PFTOFINT EQU PFTFLAG1 02255000 PFTFLAG2 EQU PFTE+13 02256000 PFTOFFLN EQU PFTFLAG2 02257000 PFTIRRG EQU PFTFLAG2 02258000 PFTUIC EQU PFTE+15 02259000 PVT EQU 0 02260000 PVTFLAG1 EQU PVT 02261000 PVTAFCLO EQU PVT+4 02262000 PVTPOOL EQU PVT+8 02263000 PVTPFTP EQU PVT+12 02264000 PVTFPFN EQU PVT+16 02265000 PVTLPFN EQU PVT+18 02266000 PVTLCSA EQU PVT+26 02267000 PVTPRCA EQU PVT+52 02268000 PVTOROOT EQU PVT+56 02269000 PVTSRBID EQU PVT+68 02270000 PVTREP2 EQU PVT+100 02271000 PVTPCB EQU PVT+104 02272000 PVTPFTE EQU PVT+108 02273000 PVTPFP2 EQU PVT+116 02274000 PVTPRCV EQU PVT+156 02275000 PVTPINV EQU PVT+172 02276000 PVTPSRBP EQU PVT+188 02277000 PVTQS EQU PVT+304 02278000 PVTWSAX EQU PVT+344 02279000 PVTSAVE EQU PVTWSAX+1328 02280000 PVTPERFX EQU PVT+1820 02281000 PVTMAXFX EQU PVT+1822 02282000 PVTPEROK EQU PVT+1824 02283000 PVTFIXOK EQU PVT+1826 02284000 RSMHD EQU 0 02285000 RSMFLG1 EQU RSMHD+12 02286000 RSMQS EQU RSMHD+20 02287000 RSMLFQ EQU RSMQS 02288000 RSMLSQA EQU RSMQS+4 02289000 RSMLIOQ EQU RSMQS+8 02290000 RVT EQU 0 02291000 RVTPKREF EQU RVT+64 02292000 SRBSECT EQU 0 02293000 SRB EQU SRBSECT 02294000 SRBID EQU SRB 02295000 SRBASCB EQU SRB+8 02296000 SRBFLC EQU SRB+12 02297000 SRBPASID EQU SRBFLC+2 02298000 SRBPTCB EQU SRBFLC+4 02299000 SRBEP EQU SRB+20 02300000 SRBRMTR EQU SRB+24 02301000 SRBPARM EQU SRB+28 02302000 XPTE EQU 0 02303000 XPTPROT EQU XPTE 02304000 XPTFLAGS EQU XPTE+2 02305000 XPTFLAG2 EQU XPTE+3 02306000 XPTLPID EQU XPTE+4 02307000 XPTLGN EQU XPTLPID 02308000 XPTLPN EQU XPTLPID+4 02309000 PCCA EQU 0 02310000 PCCATMST EQU PCCA+128 02311000 PCCATMFL EQU PCCATMST 02312000 PCCATODE EQU PCCATMST+1 02313000 PCCACCE EQU PCCATMST+2 02314000 PCCAINTE EQU PCCATMST+3 02315000 PCCAEMSB EQU PCCA+136 02316000 PCCAEMSI EQU PCCAEMSB 02317000 PCCARISP EQU PCCAEMSI 02318000 PCCAEMS2 EQU PCCAEMSI+1 02319000 PCCAEMS3 EQU PCCAEMSI+2 02320000 PCCARMSB EQU PCCAEMSI+3 02321000 PCCAPWAV EQU PCCA+152 02322000 PCCALRBV EQU PCCA+160 02323000 PCCAWERP EQU PCCA+280 02324000 PCCACHPF EQU PCCAWERP+4 02325000 PCCACHBL EQU PCCAWERP+5 02326000 PCCACHVA EQU PCCAWERP+6 02327000 PCCACHTS EQU PCCAWERP+7 02328000 PCCACHS1 EQU PCCA+288 02329000 PCCACHS2 EQU PCCA+289 02330000 PCCACHRB EQU PCCA+290 02331000 PCCACHF1 EQU PCCA+308 02332000 PCCACHF2 EQU PCCA+309 02333000 PCCACHF3 EQU PCCA+310 02334000 PCCACHF4 EQU PCCA+311 02335000 PCCAATTR EQU PCCA+376 02336000 LRB EQU 0 02337000 LRBHREL EQU LRB+1 02338000 LRBHSYS EQU LRBHREL 02339000 LRBHSW0 EQU LRB+2 02340000 LRBHSW1 EQU LRB+3 02341000 LRBHSW2 EQU LRB+4 02342000 LRBMACT EQU LRBHSW2 02343000 LRBHSW3 EQU LRB+5 02344000 LRBHCPID EQU LRB+16 02345000 LRBBASE EQU LRB+24 02346000 LRBCVAR EQU 0 02347000 LRBCMP EQU LRBCVAR+8 02348000 PWA EQU 0 02349000 PWAFRR EQU PWA+384 02350000 PWAFLAGS EQU PWA+778 02351000 PWANRHED EQU PWAFLAGS 02352000 PWANRSRB EQU PWA+868 02353000 PSARSVTE EQU PSARSVT 02354000 PSACSTK EQU PSARSVTE 02355000 FRRSPTR EQU PSACSTK 02356000 CVTPTR EQU FLCCVT 02357000 RVTPTR EQU CVTRMS 02358000 PCCAPTR EQU PSAPCCAV 02359000 PWAPTR EQU PCCAPWAV 02360000 LRBPTR EQU PCCALRBV 02361000 ASCBPTR EQU PSAAOLD 02362000 CVTS01 EQU CVTPGSIA 02363000 CVTPVTP EQU CVTS01+8 02364000 CVTLPDIA EQU CVTS01+12 02365000 CVTDIRST EQU CVTLPDIA 02366000 CVTSLIDA EQU CVTS01+24 02367000 CVTCTLFG EQU CVTS01+50 02368000 CVTSRBRT EQU CVTS01+100 02369000 CVTRV210 EQU CVTS01+424 02370000 CVTRV219 EQU CVTS01+425 02371000 CVTRV228 EQU CVTS01+426 02372000 CVTRV237 EQU CVTS01+427 02373000 CVTMFRTR EQU CVTS01+452 02374000 CVTRV262 EQU CVTS01+468 02375000 CVTRV271 EQU CVTS01+469 02376000 CVTRV280 EQU CVTS01+470 02377000 CVTRV289 EQU CVTS01+471 02378000 CVTGSDA EQU CVTS01+600 02379000 LRBHRSW1 EQU LRBHSW1 02380000 LRBHCSW1 EQU LRBHSW1 02381000 LRBHMSW1 EQU LRBHSW1 02382000 LRBMMCH EQU LRBBASE 02383000 LRBMCEIA EQU LRBMMCH+8 02384000 LRBMTERM EQU LRBMCEIA 02385000 LRBMHARD EQU LRBMCEIA+1 02386000 LRBMINTM EQU LRBMCEIA+2 02387000 LRBMSOFT EQU LRBMCEIA+3 02388000 LRBMPDAR EQU LRBMMCH+12 02389000 LRBMRSR1 EQU LRBMMCH+13 02390000 LRBMRSR2 EQU LRBMMCH+14 02391000 LRBMFLO EQU LRBMMCH+24 02392000 LRBMCIC EQU LRBMFLO 02393000 @NM00066 EQU LRBMCIC 02394000 @NM00068 EQU LRBMCIC+1 02395000 @NM00070 EQU LRBMCIC+2 02396000 @NM00072 EQU LRBMCIC+3 02397000 @NM00075 EQU LRBMCIC+5 02398000 LRBMFSA EQU LRBMFLO+16 02399000 LRBRDDR EQU LRBBASE 02400000 LRBCCCH EQU LRBBASE 02401000 LRBCCUA EQU LRBCCCH+49 02402000 LRBDMDR EQU LRBBASE 02403000 LRBNMIH EQU LRBBASE 02404000 LRBTTER EQU LRBBASE 02405000 FLC EQU PSA 02406000 * START UNREFERENCED COMPONENTS 02407000 LRBTUSR EQU LRBTTER+8 02408000 LRBTWSC EQU LRBTTER+4 02409000 LRBTLNH EQU LRBTTER 02410000 LRBNINT EQU LRBNMIH+24 02411000 LRBNDEVT EQU LRBNMIH+20 02412000 LRBNVOL EQU LRBNMIH+14 02413000 LRBNCUA1 EQU LRBNMIH+11 02414000 LRBNCUA2 EQU LRBNMIH+8 02415000 LRBNJOB EQU LRBNMIH 02416000 LRBDSENS EQU LRBDMDR+8 02417000 LRBDVOL EQU LRBDMDR+2 02418000 LRBDCUA1 EQU LRBDMDR 02419000 LRBCCLOG EQU LRBCCCH+56 02420000 LRBCLOGL EQU LRBCCCH+54 02421000 LRBCHCUA EQU LRBCCCH+52 02422000 LRBCCUA2 EQU LRBCCUA+1 02423000 @NM00079 EQU LRBCCUA 02424000 LRBCCHID EQU LRBCCCH+48 02425000 LRBCDEVT EQU LRBCCCH+44 02426000 LRBCECSW EQU LRBCCCH+40 02427000 LRBCFCSW EQU LRBCCCH+32 02428000 LRBCFCCW EQU LRBCCCH+24 02429000 LRBCAIO EQU LRBCCCH+8 02430000 LRBCJOB EQU LRBCCCH 02431000 LRBRDEV2 EQU LRBRDDR+32 02432000 LRBRCUA2 EQU LRBRDDR+29 02433000 LRBRPH2 EQU LRBRDDR+28 02434000 LRBRDEV1 EQU LRBRDDR+24 02435000 LRBRCUA1 EQU LRBRDDR+21 02436000 LRBRPH1 EQU LRBRDDR+20 02437000 LRBRVOL2 EQU LRBRDDR+14 02438000 LRBRVOL1 EQU LRBRDDR+8 02439000 LRBRJOB EQU LRBRDDR 02440000 LRBMCEL EQU LRBMMCH+304 02441000 @NM00078 EQU LRBMFLO+20 02442000 @NM00077 EQU LRBMFLO+8 02443000 LRBMCELL EQU LRBMCIC+6 02444000 LRBMVCC EQU @NM00075 02445000 LRBMVPT EQU @NM00075 02446000 @NM00076 EQU @NM00075 02447000 @NM00074 EQU LRBMCIC+4 02448000 LRBMVST EQU @NM00072 02449000 LRBMVLG EQU @NM00072 02450000 LRBMVCR EQU @NM00072 02451000 LRBMVGR EQU @NM00072 02452000 LRBMVFP EQU @NM00072 02453000 @NM00073 EQU @NM00072 02454000 LRBMVRC EQU @NM00072 02455000 LRBMVFA EQU @NM00072 02456000 LRBMVIA EQU @NM00070 02457000 LRBMVPM EQU @NM00070 02458000 LRBMVMS EQU @NM00070 02459000 LRBMVWP EQU @NM00070 02460000 @NM00071 EQU @NM00070 02461000 LRBMFKE EQU @NM00070 02462000 LRBMFSC EQU @NM00070 02463000 LRBMFSE EQU @NM00070 02464000 LRBMIDY EQU @NM00068 02465000 LRBMIBU EQU @NM00068 02466000 @NM00069 EQU @NM00068 02467000 LRBMFWN EQU @NM00068 02468000 LRBMFDG EQU @NM00066 02469000 @NM00067 EQU @NM00066 02470000 LRBMFED EQU @NM00066 02471000 LRBMFCD EQU @NM00066 02472000 LRBMFTD EQU @NM00066 02473000 LRBMFSR EQU @NM00066 02474000 LRBMFPD EQU @NM00066 02475000 LRBMFSD EQU @NM00066 02476000 LRBMMOSW EQU LRBMMCH+16 02477000 LRBMPWL EQU LRBMMCH+15 02478000 LRBMVEQR EQU LRBMRSR2 02479000 LRBMPGFX EQU LRBMRSR2 02480000 LRBMLSQA EQU LRBMRSR2 02481000 LRBMFSQA EQU LRBMRSR2 02482000 LRBMNUCL EQU LRBMRSR2 02483000 LRBMSPER EQU LRBMRSR2 02484000 LRBMINTC EQU LRBMRSR2 02485000 LRBMOFLN EQU LRBMRSR2 02486000 LRBMCHNG EQU LRBMRSR1 02487000 LRBMSER EQU LRBMRSR1 02488000 @NM00065 EQU LRBMRSR1 02489000 @NM00064 EQU LRBMPDAR 02490000 LRBMRSRF EQU LRBMPDAR 02491000 LRBMRSRC EQU LRBMPDAR 02492000 LRBMINVP EQU LRBMPDAR 02493000 @NM00063 EQU LRBMPDAR 02494000 LRBMSBUF EQU LRBMSOFT 02495000 LRBMSHIR EQU LRBMSOFT 02496000 LRBMSECC EQU LRBMSOFT 02497000 LRBMSEXD EQU LRBMSOFT 02498000 @NM00062 EQU LRBMSOFT 02499000 LRBMSSFT EQU LRBMSOFT 02500000 LRBMIL80 EQU LRBMINTM 02501000 LRBMICTM EQU LRBMINTM 02502000 LRBMICKC EQU LRBMINTM 02503000 LRBMITOD EQU LRBMINTM 02504000 @NM00061 EQU LRBMINTM 02505000 LRBMHIPD EQU LRBMHARD 02506000 LRBMHSPF EQU LRBMHARD 02507000 LRBMHSTO EQU LRBMHARD 02508000 LRBMHINV EQU LRBMHARD 02509000 LRBMHSD EQU LRBMHARD 02510000 @NM00060 EQU LRBMHARD 02511000 LRBMHHRD EQU LRBMHARD 02512000 LRBMTINV EQU LRBMTERM 02513000 LRBMTDMG EQU LRBMTERM 02514000 LRBMTWRN EQU LRBMTERM 02515000 LRBMTCKS EQU LRBMTERM 02516000 LRBMTSEC EQU LRBMTERM 02517000 LRBMTTHR EQU LRBMTERM 02518000 @NM00059 EQU LRBMTERM 02519000 LRBMWSC EQU LRBMMCH+4 02520000 LRBMLNH EQU LRBMMCH 02521000 @NM00058 EQU LRBHMSW1 02522000 LRBMSYST EQU LRBHMSW1 02523000 @NM00057 EQU LRBHMSW1 02524000 @NM00056 EQU LRBHCSW1 02525000 LRBCERPP EQU LRBHCSW1 02526000 LRBCDATA EQU LRBHCSW1 02527000 LRBCICUA EQU LRBHCSW1 02528000 LRBCNOSP EQU LRBHCSW1 02529000 @NM00055 EQU LRBHCSW1 02530000 LRBCINCO EQU LRBHCSW1 02531000 LRBCMESG EQU LRBHCSW1 02532000 @NM00054 EQU LRBHRSW1 02533000 LRBRSYSI EQU LRBHRSW1 02534000 LRBROPER EQU LRBHRSW1 02535000 LRBRSEC EQU LRBHRSW1 02536000 LRBRPRIM EQU LRBHRSW1 02537000 CVTRV628 EQU CVTS01+728 02538000 CVTRV627 EQU CVTS01+724 02539000 CVTRV626 EQU CVTS01+720 02540000 CVTRV625 EQU CVTS01+716 02541000 CVTRV624 EQU CVTS01+712 02542000 CVTRV623 EQU CVTS01+708 02543000 CVTRV622 EQU CVTS01+704 02544000 CVTRV621 EQU CVTS01+700 02545000 CVTIHASU EQU CVTS01+696 02546000 CVTSUSP EQU CVTS01+692 02547000 CVTT6SVC EQU CVTS01+688 02548000 CVTCDAL EQU CVTS01+684 02549000 CVTTCTL EQU CVTS01+680 02550000 CVTRSUME EQU CVTS01+676 02551000 CVTJTERM EQU CVTS01+672 02552000 CVTASMRM EQU CVTS01+668 02553000 CVTTCASP EQU CVTS01+664 02554000 CVT0PT03 EQU CVTS01+660 02555000 CVT0PT0E EQU CVTS01+656 02556000 CVTRV609 EQU CVTS01+652 02557000 CVTCGK EQU CVTS01+648 02558000 CVTRAC EQU CVTS01+644 02559000 CVTRV606 EQU CVTS01+640 02560000 CVTRV605 EQU CVTS01+636 02561000 CVTRV604 EQU CVTS01+632 02562000 CVTEFF02 EQU CVTS01+628 02563000 CVTCBBR EQU CVTS01+624 02564000 CVTSSCR EQU CVTS01+620 02565000 CVTEVENT EQU CVTS01+616 02566000 CVTCRCA EQU CVTS01+612 02567000 CVTTPIO EQU CVTS01+608 02568000 CVTADV EQU CVTS01+604 02569000 CVTGSDAB EQU CVTGSDA 02570000 CVTQV3 EQU CVTS01+596 02571000 CVTQV2 EQU CVTS01+592 02572000 CVTQV1 EQU CVTS01+588 02573000 CVTRPT EQU CVTS01+584 02574000 CVTSSRB EQU CVTS01+580 02575000 CVTCSDRL EQU CVTS01+576 02576000 CVTEXP1 EQU CVTS01+572 02577000 CVTRMPMT EQU CVTS01+568 02578000 CVTRMPTT EQU CVTS01+564 02579000 CVTVPSA EQU CVTS01+560 02580000 CVTVSTOP EQU CVTS01+556 02581000 CVTGTFR8 EQU CVTS01+552 02582000 CVTQUIT EQU CVTS01+548 02583000 CVTVACR EQU CVTS01+544 02584000 CVTWTCB EQU CVTS01+540 02585000 CVTSTPRS EQU CVTS01+536 02586000 CVT0PT02 EQU CVTS01+532 02587000 CVTDARCM EQU CVTS01+528 02588000 CVTIRECM EQU CVTS01+524 02589000 CVTJRECM EQU CVTS01+520 02590000 CVTVEMS0 EQU CVTS01+516 02591000 CVTSPFRR EQU CVTS01+512 02592000 CVTRLSTG EQU CVTS01+508 02593000 CVT0TC0A EQU CVTS01+504 02594000 CVTGMBR EQU CVTS01+500 02595000 CVTLFRM EQU CVTS01+496 02596000 CVTRMBR EQU CVTS01+492 02597000 CVTVIOP EQU CVTS01+488 02598000 CVTRV307 EQU CVTS01+486 02599000 CVTRV306 EQU CVTS01+484 02600000 CVTRV305 EQU CVTS01+482 02601000 CVTRV304 EQU CVTS01+480 02602000 CVTRV303 EQU CVTS01+478 02603000 CVTRV302 EQU CVTS01+476 02604000 CVTTRCA EQU CVTS01+472 02605000 CVTRV297 EQU CVTRV289 02606000 CVTRV296 EQU CVTRV289 02607000 CVTRV295 EQU CVTRV289 02608000 CVTRV294 EQU CVTRV289 02609000 CVTRV293 EQU CVTRV289 02610000 CVTRV292 EQU CVTRV289 02611000 CVTRV291 EQU CVTRV289 02612000 CVTRV290 EQU CVTRV289 02613000 CVTRV288 EQU CVTRV280 02614000 CVTRV287 EQU CVTRV280 02615000 CVTRV286 EQU CVTRV280 02616000 CVTRV285 EQU CVTRV280 02617000 CVTRV284 EQU CVTRV280 02618000 CVTRV283 EQU CVTRV280 02619000 CVTRV282 EQU CVTRV280 02620000 CVTRV281 EQU CVTRV280 02621000 CVTRV279 EQU CVTRV271 02622000 CVTRV278 EQU CVTRV271 02623000 CVTRV277 EQU CVTRV271 02624000 CVTRV276 EQU CVTRV271 02625000 CVTRV275 EQU CVTRV271 02626000 CVTRV274 EQU CVTRV271 02627000 CVTRV273 EQU CVTRV271 02628000 CVTRV272 EQU CVTRV271 02629000 CVTRV270 EQU CVTRV262 02630000 CVTRV269 EQU CVTRV262 02631000 CVTRV268 EQU CVTRV262 02632000 CVTRV267 EQU CVTRV262 02633000 CVTRV266 EQU CVTRV262 02634000 CVTRV265 EQU CVTRV262 02635000 CVTRV264 EQU CVTRV262 02636000 CVTRV263 EQU CVTRV262 02637000 CVTVFP EQU CVTS01+464 02638000 CVTVSI EQU CVTS01+460 02639000 CVTVPSIB EQU CVTS01+456 02640000 CVTMFACT EQU CVTMFRTR 02641000 CVTMFCTL EQU CVTS01+448 02642000 CVTPVBP EQU CVTS01+444 02643000 CVTPWI EQU CVTS01+440 02644000 CVTRV254 EQU CVTS01+438 02645000 CVTRV253 EQU CVTS01+436 02646000 CVTRV252 EQU CVTS01+434 02647000 CVTRV251 EQU CVTS01+433 02648000 CVTRV250 EQU CVTS01+432 02649000 CVTRV249 EQU CVTS01+431 02650000 CVTRV248 EQU CVTS01+430 02651000 CVTRV247 EQU CVTS01+429 02652000 CVTRV246 EQU CVTS01+428 02653000 CVTRV245 EQU CVTRV237 02654000 CVTRV244 EQU CVTRV237 02655000 CVTRV243 EQU CVTRV237 02656000 CVTRV242 EQU CVTRV237 02657000 CVTRV241 EQU CVTRV237 02658000 CVTRV240 EQU CVTRV237 02659000 CVTRV239 EQU CVTRV237 02660000 CVTRV238 EQU CVTRV237 02661000 CVTRV236 EQU CVTRV228 02662000 CVTRV235 EQU CVTRV228 02663000 CVTRV234 EQU CVTRV228 02664000 CVTRV233 EQU CVTRV228 02665000 CVTRV232 EQU CVTRV228 02666000 CVTRV231 EQU CVTRV228 02667000 CVTRV230 EQU CVTRV228 02668000 CVTRV229 EQU CVTRV228 02669000 CVTRV227 EQU CVTRV219 02670000 CVTRV226 EQU CVTRV219 02671000 CVTRV225 EQU CVTRV219 02672000 CVTRV224 EQU CVTRV219 02673000 CVTRV223 EQU CVTRV219 02674000 CVTRV222 EQU CVTRV219 02675000 CVTRV221 EQU CVTRV219 02676000 CVTRV220 EQU CVTRV219 02677000 CVTRV218 EQU CVTRV210 02678000 CVTRV217 EQU CVTRV210 02679000 CVTRV216 EQU CVTRV210 02680000 CVTRV215 EQU CVTRV210 02681000 CVTRV214 EQU CVTRV210 02682000 CVTRV213 EQU CVTRV210 02683000 CVTRV212 EQU CVTRV210 02684000 CVTRV211 EQU CVTRV210 02685000 CVTLCCAT EQU CVTS01+420 02686000 CVTPCCAT EQU CVTS01+416 02687000 CVTIPCRP EQU CVTS01+412 02688000 CVTIPCRI EQU CVTS01+408 02689000 CVTIPCDS EQU CVTS01+404 02690000 CVTAIDVT EQU CVTS01+400 02691000 CVTSSAP EQU CVTS01+396 02692000 CVTEHCIR EQU CVTS01+392 02693000 CVTEHDEF EQU CVTS01+388 02694000 CVTDAIR EQU CVTS01+384 02695000 CVTPERFM EQU CVTS01+380 02696000 CVT044R2 EQU CVTS01+376 02697000 CVTFETCH EQU CVTS01+372 02698000 CVTRSTWD EQU CVTS01+368 02699000 CVTSPOST EQU CVTS01+364 02700000 CVTIOBP EQU CVTS01+360 02701000 CVTASMVT EQU CVTS01+356 02702000 CVTRECRQ EQU CVTS01+352 02703000 CVTWSAC EQU CVTS01+348 02704000 CVTRV149 EQU CVTS01+344 02705000 CVTWSAL EQU CVTS01+340 02706000 CVTSPSA EQU CVTS01+336 02707000 CVTGLMN EQU CVTS01+332 02708000 CVTVEAC0 EQU CVTS01+328 02709000 CVT062R1 EQU CVTS01+324 02710000 CVTRPOST EQU CVTS01+320 02711000 CVTDQIQE EQU CVTS01+316 02712000 CVTCSD EQU CVTS01+312 02713000 CVTLKRMA EQU CVTS01+308 02714000 CVTRSPIE EQU CVTS01+304 02715000 CVTRENQ EQU CVTS01+300 02716000 CVTLQCB EQU CVTS01+296 02717000 CVTFQCB EQU CVTS01+292 02718000 CVTQCS01 EQU CVTS01+288 02719000 CVTAPFT EQU CVTS01+284 02720000 CVTPARRL EQU CVTS01+280 02721000 CVTVWAIT EQU CVTS01+276 02722000 CVTGSPL EQU CVTS01+272 02723000 CVTLSMQ EQU CVTS01+268 02724000 CVTGSMQ EQU CVTS01+264 02725000 CVTEXPRO EQU CVTS01+260 02726000 CVTOPCTP EQU CVTS01+256 02727000 CVTSIC EQU CVTS01+252 02728000 CVTTPIOS EQU CVTS01+248 02729000 CVTRTMS EQU CVTS01+244 02730000 CVTSDBF EQU CVTS01+240 02731000 CVTSCBP EQU CVTS01+236 02732000 CVTSDMP EQU CVTS01+232 02733000 CVTSV60 EQU CVTS01+228 02734000 CVTRTMCT EQU CVTS01+224 02735000 CVTASCBL EQU CVTS01+220 02736000 CVTASCBH EQU CVTS01+216 02737000 CVTGDA EQU CVTS01+212 02738000 CVTASVT EQU CVTS01+208 02739000 CVTVVMDI EQU CVTS01+204 02740000 CVTAQTOP EQU CVTS01+200 02741000 CVTIOSCS EQU CVTS01+196 02742000 CVTSDRM EQU CVTS01+192 02743000 CVTOPTE EQU CVTS01+188 02744000 CVTSTXU EQU CVTS01+184 02745000 CVTQUIS EQU CVTS01+180 02746000 CVTPARS EQU CVTS01+176 02747000 CVTS1EE EQU CVTS01+172 02748000 CVTFRAS EQU CVTS01+168 02749000 CVTQSAS EQU CVTS01+164 02750000 CVTCRAS EQU CVTS01+160 02751000 CVTCRMN EQU CVTS01+156 02752000 CVTDELCP EQU CVTS01+152 02753000 CVTFRECL EQU CVTS01+148 02754000 CVTGETCL EQU CVTS01+144 02755000 CVTBLDCP EQU CVTS01+140 02756000 CVTAUTHL EQU CVTS01+136 02757000 CVTSCAN EQU CVTS01+132 02758000 CVTRV144 EQU CVTS01+130 02759000 CVTMAXMP EQU CVTS01+128 02760000 CVTSTCK EQU CVTS01+124 02761000 CVTRV139 EQU CVTS01+123 02762000 CVTDSSAC EQU CVTS01+122 02763000 CVTRV513 EQU CVTS01+121 02764000 CVTIOSPL EQU CVTS01+120 02765000 CVTPTGT EQU CVTS01+116 02766000 CVTCSPIE EQU CVTS01+112 02767000 CVTSMFEX EQU CVTS01+108 02768000 CVTOLT0A EQU CVTS01+104 02769000 CVTPUTL EQU CVTS01+96 02770000 CVTASCRL EQU CVTS01+92 02771000 CVTASCRF EQU CVTS01+88 02772000 CVTRV326 EQU CVTS01+84 02773000 CVTRV325 EQU CVTS01+80 02774000 CVTRV324 EQU CVTS01+76 02775000 CVT0VL01 EQU CVTS01+72 02776000 CVTSHRVM EQU CVTS01+68 02777000 CVTRV332 EQU CVTS01+64 02778000 CVTTAS EQU CVTS01+60 02779000 CVTRSCN EQU CVTS01+56 02780000 CVTTRAC2 EQU CVTS01+54 02781000 CVTTRACE EQU CVTS01+52 02782000 CVTAPG EQU CVTS01+51 02783000 CVTSDTRC EQU CVTCTLFG 02784000 CVTGTRCE EQU CVTCTLFG 02785000 CVTNOMP EQU CVTCTLFG 02786000 CVTRSV79 EQU CVTCTLFG 02787000 CVTDSTAT EQU CVTCTLFG 02788000 CVTRSV78 EQU CVTCTLFG 02789000 CVTRV333 EQU CVTCTLFG 02790000 CVTRV323 EQU CVTCTLFG 02791000 CVTSPVLK EQU CVTS01+49 02792000 CVTRSV77 EQU CVTS01+48 02793000 CVTRV331 EQU CVTS01+44 02794000 CVTRV330 EQU CVTS01+40 02795000 CVTRV329 EQU CVTS01+36 02796000 CVTRV328 EQU CVTS01+32 02797000 CVTRV322 EQU CVTS01+28 02798000 CVTSLID EQU CVTSLIDA+1 02799000 CVTSYLK EQU CVTSLIDA 02800000 CVTRV321 EQU CVTS01+20 02801000 CVTRV320 EQU CVTS01+16 02802000 CVTLPDIR EQU CVTLPDIA+1 02803000 CVTRSV69 EQU CVTDIRST 02804000 CVTRSV68 EQU CVTDIRST 02805000 CVTRSV67 EQU CVTDIRST 02806000 CVTRSV66 EQU CVTDIRST 02807000 CVTRSV65 EQU CVTDIRST 02808000 CVTRSV64 EQU CVTDIRST 02809000 CVTRSV63 EQU CVTDIRST 02810000 CVTDICOM EQU CVTDIRST 02811000 CVTLPDSR EQU CVTS01+4 02812000 CVTGETL EQU CVTS01 02813000 PSARSAV EQU PSARSVTE+60 02814000 PSARSTK EQU PSARSVTE+56 02815000 PSAESAV3 EQU PSARSVTE+52 02816000 PSAESTK3 EQU PSARSVTE+48 02817000 PSAESAV2 EQU PSARSVTE+44 02818000 PSAESTK2 EQU PSARSVTE+40 02819000 PSAESAV1 EQU PSARSVTE+36 02820000 PSAESTK1 EQU PSARSVTE+32 02821000 PSAPSAV EQU PSARSVTE+28 02822000 PSAPSTK EQU PSARSVTE+24 02823000 PSAMSAV EQU PSARSVTE+20 02824000 PSAMSTK EQU PSARSVTE+16 02825000 PSASSAV EQU PSARSVTE+12 02826000 PSASSTK EQU PSARSVTE+8 02827000 PSANSTK EQU PSARSVTE+4 02828000 PWACCTHB EQU PWA+992 02829000 PWAPTTHB EQU PWA+976 02830000 PWATCTHB EQU PWA+960 02831000 PWAIVTHB EQU PWA+944 02832000 PWASDTHB EQU PWA+928 02833000 PWAPDTHB EQU PWA+912 02834000 PWACCSRB EQU PWA+824 02835000 PWAWRK EQU PWA+792 02836000 PWATEST EQU PWA+784 02837000 PWACPUAD EQU PWA+782 02838000 @NM00081 EQU PWA+781 02839000 PWACNTR EQU PWA+780 02840000 PWAEDSRB EQU PWA+779 02841000 @NM00080 EQU PWAFLAGS 02842000 PWAENABL EQU PWAFLAGS 02843000 PWACCHED EQU PWAFLAGS 02844000 PWAREST EQU PWAFLAGS 02845000 PWAINIT EQU PWA+777 02846000 PWAMFAFL EQU PWA+776 02847000 PWARPSW EQU PWA+768 02848000 PWARGPR EQU PWA+704 02849000 PWACR15 EQU PWA+700 02850000 PWACR14 EQU PWA+696 02851000 PWASFLC EQU PWA+464 02852000 PWAINTC EQU PWA+456 02853000 PWASOSW EQU PWA+448 02854000 PWAFRR00 EQU PWAFRR+12 02855000 PWAFRR15 EQU PWAFRR+8 02856000 PWAFRR13 EQU PWAFRR+4 02857000 PWAFRR12 EQU PWAFRR 02858000 PWAFRRCT EQU PWA+380 02859000 PWAFRRCD EQU PWA+376 02860000 PWADGTHB EQU PWA+368 02861000 PWASRTHB EQU PWA+360 02862000 PWAESA EQU PWA+288 02863000 PWASA4 EQU PWA+216 02864000 PWASA3 EQU PWA+144 02865000 PWASA2 EQU PWA+72 02866000 PWASA1 EQU PWA 02867000 LRBCMPCS EQU LRBCMP+2 02868000 LRBCMPPA EQU LRBCMP 02869000 LRBCMPNO EQU LRBCVAR+6 02870000 LRBCMPF2 EQU LRBCVAR+5 02871000 LRBCMPF1 EQU LRBCVAR+4 02872000 LRBCRESD EQU LRBCVAR+2 02873000 LRBCFT EQU LRBCVAR 02874000 LRBHMCEL EQU LRBHCPID+6 02875000 LRBHMDL EQU LRBHCPID+4 02876000 LRBHCSER EQU LRBHCPID+1 02877000 @NM00053 EQU LRBHCPID 02878000 LRBHTIME EQU LRB+12 02879000 LRBHDATE EQU LRB+8 02880000 @NM00052 EQU LRB+7 02881000 LRBHCNT EQU LRB+6 02882000 LRBMCLB EQU LRBHSW3 02883000 LRBNDEM EQU LRBMACT 02884000 LRBNCEM EQU LRBMACT 02885000 @NM00051 EQU LRBHSW0 02886000 LRBHTMC EQU LRBHSW0 02887000 @NM00050 EQU LRBHSW0 02888000 LRBHNS EQU LRBHSW0 02889000 LRBHMORE EQU LRBHSW0 02890000 @NM00049 EQU LRBHSYS 02891000 LRBHSYSB EQU LRBHSYS 02892000 LRBHTYPE EQU LRB 02893000 @NM00048 EQU PCCA+512 02894000 PCCACAT EQU PCCA+384 02895000 PCCARV36 EQU PCCA+380 02896000 PCCARV35 EQU PCCA+378 02897000 PCCARV01 EQU PCCA+377 02898000 PCCAR105 EQU PCCAATTR 02899000 PCCAR104 EQU PCCAATTR 02900000 PCCAR103 EQU PCCAATTR 02901000 PCCAR102 EQU PCCAATTR 02902000 PCCAR101 EQU PCCAATTR 02903000 PCCAR100 EQU PCCAATTR 02904000 PCCAIO EQU PCCAATTR 02905000 PCCACPUM EQU PCCAATTR 02906000 PCCARV63 EQU PCCA+372 02907000 PCCARV62 EQU PCCA+368 02908000 PCCARV61 EQU PCCA+364 02909000 PCCARV60 EQU PCCA+360 02910000 PCCARV59 EQU PCCA+356 02911000 PCCARV58 EQU PCCA+352 02912000 PCCARV57 EQU PCCA+348 02913000 PCCARV56 EQU PCCA+344 02914000 PCCARV55 EQU PCCA+340 02915000 PCCARV54 EQU PCCA+336 02916000 PCCALOGA EQU PCCA+332 02917000 PCCACHID EQU PCCA+324 02918000 PCCACHSV EQU PCCA+312 02919000 PCCARV79 EQU PCCACHF4 02920000 PCCARV78 EQU PCCACHF4 02921000 PCCARV77 EQU PCCACHF4 02922000 PCCARV76 EQU PCCACHF4 02923000 PCCARV75 EQU PCCACHF4 02924000 PCCARV74 EQU PCCACHF4 02925000 PCCARV73 EQU PCCACHF4 02926000 PCCARV72 EQU PCCACHF4 02927000 PCCARV71 EQU PCCACHF3 02928000 PCCARV70 EQU PCCACHF3 02929000 PCCARV69 EQU PCCACHF3 02930000 PCCARV68 EQU PCCACHF3 02931000 PCCARV67 EQU PCCACHF3 02932000 PCCARV66 EQU PCCACHF3 02933000 PCCARV65 EQU PCCACHF3 02934000 PCCARV64 EQU PCCACHF3 02935000 PCCACF28 EQU PCCACHF2 02936000 PCCACF27 EQU PCCACHF2 02937000 PCCACF26 EQU PCCACHF2 02938000 PCCACF25 EQU PCCACHF2 02939000 PCCACF24 EQU PCCACHF2 02940000 PCCACF23 EQU PCCACHF2 02941000 PCCACF22 EQU PCCACHF2 02942000 PCCACF21 EQU PCCACHF2 02943000 PCCACF18 EQU PCCACHF1 02944000 PCCACF17 EQU PCCACHF1 02945000 PCCACF16 EQU PCCACHF1 02946000 PCCACF15 EQU PCCACHF1 02947000 PCCACF14 EQU PCCACHF1 02948000 PCCACF13 EQU PCCACHF1 02949000 PCCACF12 EQU PCCACHF1 02950000 PCCACF11 EQU PCCACHF1 02951000 PCCARV05 EQU PCCA+306 02952000 PCCACHPB EQU PCCA+305 02953000 PCCALGP2 EQU PCCA+304 02954000 PCCALGP1 EQU PCCA+303 02955000 PCCALOGL EQU PCCA+302 02956000 PCCARV80 EQU PCCA+300 02957000 PCCACHW2 EQU PCCA+296 02958000 PCCACHW1 EQU PCCA+292 02959000 PCCAIOSI EQU PCCA+291 02960000 PCCACNRB EQU PCCACHRB 02961000 PCCACCVB EQU PCCACHRB 02962000 PCCACSNB EQU PCCACHRB 02963000 PCCARV52 EQU PCCACHRB 02964000 PCCACHIB EQU PCCACHRB 02965000 PCCACTIB EQU PCCACHRB 02966000 PCCACINB EQU PCCACHRB 02967000 PCCACSIB EQU PCCACHRB 02968000 PCCARV51 EQU PCCACHS2 02969000 PCCARV50 EQU PCCACHS2 02970000 PCCACCRA EQU PCCACHS2 02971000 PCCACURC EQU PCCACHS2 02972000 PCCACNLG EQU PCCACHS2 02973000 PCCACMOD EQU PCCACHS2 02974000 PCCACALT EQU PCCACHS2 02975000 PCCACIOR EQU PCCACHS2 02976000 PCCARV47 EQU PCCACHS1 02977000 PCCACUCB EQU PCCACHS1 02978000 PCCACIBC EQU PCCACHS1 02979000 PCCACAND EQU PCCACHS1 02980000 PCCACNLS EQU PCCACHS1 02981000 PCCACFRR EQU PCCACHS1 02982000 PCCACNRE EQU PCCACHS1 02983000 PCCACCMP EQU PCCACHS1 02984000 PCCACSEQ EQU PCCACHTS 02985000 PCCACDIN EQU PCCACHTS 02986000 PCCARV44 EQU PCCACHTS 02987000 PCCARV43 EQU PCCACHTS 02988000 PCCACTEC EQU PCCACHTS 02989000 PCCACDAV EQU PCCACHVA 02990000 PCCACCHV EQU PCCACHVA 02991000 PCCACCMD EQU PCCACHVA 02992000 PCCACUNS EQU PCCACHVA 02993000 PCCACSQV EQU PCCACHVA 02994000 PCCARV42 EQU PCCACHVA 02995000 PCCARV41 EQU PCCACHVA 02996000 PCCACITF EQU PCCACHVA 02997000 PCCARV40 EQU PCCACHBL 02998000 PCCARV39 EQU PCCACHBL 02999000 PCCARV38 EQU PCCACHBL 03000000 PCCACCUE EQU PCCACHBL 03001000 PCCACSTG EQU PCCACHBL 03002000 PCCACSCU EQU PCCACHBL 03003000 PCCACCHA EQU PCCACHBL 03004000 PCCACCPU EQU PCCACHBL 03005000 PCCACNOR EQU PCCACHPF 03006000 PCCACCNT EQU PCCACHPF 03007000 PCCACSNS EQU PCCACHPF 03008000 PCCARV37 EQU PCCACHPF 03009000 PCCACHIO EQU PCCACHPF 03010000 PCCACTIO EQU PCCACHPF 03011000 PCCACINT EQU PCCACHPF 03012000 PCCACSIO EQU PCCACHPF 03013000 PCCACHUB EQU PCCAWERP 03014000 PCCACHEL EQU PCCA+168 03015000 PCCALRBR EQU PCCA+164 03016000 PCCAPWAR EQU PCCA+156 03017000 PCCAEMSA EQU PCCAEMSB+12 03018000 PCCAEMSE EQU PCCAEMSB+8 03019000 PCCAEMSP EQU PCCAEMSB+4 03020000 PCCARMS EQU PCCARMSB 03021000 PCCARV34 EQU PCCARMSB 03022000 PCCARV33 EQU PCCARMSB 03023000 PCCARV32 EQU PCCARMSB 03024000 PCCARV31 EQU PCCARMSB 03025000 PCCARV30 EQU PCCARMSB 03026000 PCCARV29 EQU PCCARMSB 03027000 PCCARV28 EQU PCCARMSB 03028000 PCCARV27 EQU PCCAEMS3 03029000 PCCARV26 EQU PCCAEMS3 03030000 PCCARV25 EQU PCCAEMS3 03031000 PCCARV24 EQU PCCAEMS3 03032000 PCCARV23 EQU PCCAEMS3 03033000 PCCARV22 EQU PCCAEMS3 03034000 PCCARV21 EQU PCCAEMS3 03035000 PCCARV20 EQU PCCAEMS3 03036000 PCCARV19 EQU PCCAEMS2 03037000 PCCARV18 EQU PCCAEMS2 03038000 PCCARV17 EQU PCCAEMS2 03039000 PCCARV16 EQU PCCAEMS2 03040000 PCCARV15 EQU PCCAEMS2 03041000 PCCARV14 EQU PCCAEMS2 03042000 PCCARV13 EQU PCCAEMS2 03043000 PCCARV12 EQU PCCAEMS2 03044000 PCCARV11 EQU PCCARISP 03045000 PCCARV10 EQU PCCARISP 03046000 PCCARV09 EQU PCCARISP 03047000 PCCARV08 EQU PCCARISP 03048000 PCCARV07 EQU PCCARISP 03049000 PCCARV06 EQU PCCARISP 03050000 PCCASERL EQU PCCARISP 03051000 PCCAPARL EQU PCCARISP 03052000 PCCARPB EQU PCCA+132 03053000 PCCACTIN EQU PCCAINTE 03054000 PCCANFIN EQU PCCAINTE 03055000 PCCANUIN EQU PCCAINTE 03056000 PCCACTCC EQU PCCACCE 03057000 PCCANFCC EQU PCCACCE 03058000 PCCANUCC EQU PCCACCE 03059000 PCCACTTD EQU PCCATODE 03060000 PCCANFTD EQU PCCATODE 03061000 PCCANUTD EQU PCCATODE 03062000 PCCARV04 EQU PCCATMFL 03063000 PCCARV03 EQU PCCATMFL 03064000 PCCARV02 EQU PCCATMFL 03065000 PCCAMINT EQU PCCATMFL 03066000 PCCAMCC EQU PCCATMFL 03067000 PCCAVKIL EQU PCCATMFL 03068000 PCCASYNC EQU PCCATMFL 03069000 PCCAINIT EQU PCCATMFL 03070000 PCCARV9E EQU PCCA+124 03071000 PCCARV9D EQU PCCA+120 03072000 PCCARV9C EQU PCCA+116 03073000 PCCARV9B EQU PCCA+112 03074000 PCCARV9A EQU PCCA+108 03075000 PCCARV99 EQU PCCA+104 03076000 PCCARV98 EQU PCCA+100 03077000 PCCARV97 EQU PCCA+96 03078000 PCCARV96 EQU PCCA+92 03079000 PCCARV95 EQU PCCA+88 03080000 PCCARV94 EQU PCCA+84 03081000 PCCARV93 EQU PCCA+80 03082000 PCCARV92 EQU PCCA+76 03083000 PCCARV91 EQU PCCA+72 03084000 PCCARV90 EQU PCCA+68 03085000 PCCARV89 EQU PCCA+64 03086000 PCCARV88 EQU PCCA+60 03087000 PCCARV87 EQU PCCA+56 03088000 PCCARV86 EQU PCCA+52 03089000 PCCARV85 EQU PCCA+48 03090000 PCCARV84 EQU PCCA+44 03091000 PCCARV83 EQU PCCA+40 03092000 PCCARV82 EQU PCCA+36 03093000 PCCARV81 EQU PCCA+32 03094000 PCCAPSAR EQU PCCA+28 03095000 PCCAPSAV EQU PCCA+24 03096000 PCCATQEP EQU PCCA+20 03097000 PCCACAFM EQU PCCA+18 03098000 PCCACPUA EQU PCCA+16 03099000 PCCACPID EQU PCCA+4 03100000 PCCAPCCA EQU PCCA 03101000 XPTLSID2 EQU XPTLPN 03102000 XPTLSID EQU XPTLGN 03103000 @NM00047 EQU XPTFLAG2 03104000 XPTIOERR EQU XPTFLAG2 03105000 XPTPOINP EQU XPTFLAG2 03106000 XPTRES1 EQU XPTFLAG2 03107000 XPTVALID EQU XPTFLAG2 03108000 XPTRSV4 EQU XPTFLAGS 03109000 XPTDEFER EQU XPTFLAGS 03110000 XPTRES2 EQU XPTFLAGS 03111000 XPTVIO EQU XPTFLAGS 03112000 @NM00046 EQU XPTFLAGS 03113000 XPTCKF EQU XPTFLAGS 03114000 XPTXAV EQU XPTFLAGS 03115000 XPTVIOLP EQU XPTFLAGS 03116000 XPTRSV1 EQU XPTE+1 03117000 @NM00045 EQU SRB+40 03118000 @NM00044 EQU SRB+38 03119000 SRBPRIOR EQU SRB+37 03120000 SRBPKF EQU SRB+36 03121000 SRBSAVE EQU SRB+32 03122000 SRBCPAFF EQU SRBFLC 03123000 SRBFLNK EQU SRB+4 03124000 RVTMIH2 EQU RVT+108 03125000 RVTMIH EQU RVT+104 03126000 RVTCCHCR EQU RVT+100 03127000 RVTCCHDA EQU RVT+96 03128000 RVTMSGLN EQU RVT+92 03129000 RVTMSGPT EQU RVT+88 03130000 RVTLRBPT EQU RVT+84 03131000 RVTRWAPT EQU RVT+80 03132000 RVT01MMM EQU RVT+76 03133000 RVT00MMM EQU RVT+72 03134000 RVTPEXIT EQU RVT+68 03135000 RVTPBUCR EQU RVT+60 03136000 RVTPXMFA EQU RVT+56 03137000 RVTPTAIM EQU RVT+52 03138000 RVTPTCON EQU RVT+48 03139000 RVTPTREC EQU RVT+44 03140000 RVTPTSIG EQU RVT+40 03141000 RVTPTERM EQU RVT+36 03142000 RVTPMKTA EQU RVT+32 03143000 RVTPMMSG EQU RVT+28 03144000 RVTPMTHA EQU RVT+24 03145000 RVTPMPFX EQU RVT+20 03146000 RVTPMSCA EQU RVT+16 03147000 RVTPMHCA EQU RVT+12 03148000 RVTPMFRS EQU RVT+8 03149000 RVTPMRTM EQU RVT+4 03150000 RVTPMCIH EQU RVT 03151000 RSMASMHD EQU RSMHD+40 03152000 RSMFOEQ EQU RSMHD+36 03153000 RSMLIOQL EQU RSMLIOQ+4 03154000 RSMLIOQF EQU RSMLIOQ 03155000 RSMLSQAL EQU RSMLSQA+2 03156000 RSMLSQAF EQU RSMLSQA 03157000 RSMLFQL EQU RSMLFQ+2 03158000 RSMLFQF EQU RSMLFQ 03159000 RSMRSV2 EQU RSMHD+16 03160000 RSMCNTFX EQU RSMHD+14 03161000 RSMRSV1 EQU RSMHD+13 03162000 @NM00043 EQU RSMFLG1 03163000 RSMFAIL EQU RSMFLG1 03164000 RSMGFADD EQU RSMFLG1 03165000 RSMCPNC EQU RSMFLG1 03166000 RSMCPNU EQU RSMFLG1 03167000 RSMGFAD EQU RSMFLG1 03168000 RSMIOCPC EQU RSMFLG1 03169000 RSMIOCPU EQU RSMFLG1 03170000 RSMASCB EQU RSMHD+8 03171000 RSMSPCT EQU RSMHD+4 03172000 RSMVSTO EQU RSMHD 03173000 PVTEND EQU PVT+1840 03174000 PVTSPARE EQU PVT+1838 03175000 PVTCHUIC EQU PVT+1836 03176000 PVTCOMFX EQU PVT+1834 03177000 PVTSQAFX EQU PVT+1832 03178000 PVTCNTFX EQU PVT+1830 03179000 PVTDEFFX EQU PVT+1828 03180000 PVTRSRB EQU PVT+1776 03181000 PVTRESV5 EQU PVT+1773 03182000 PVTSRBS EQU PVT+1772 03183000 PVTSSRB EQU PVT+1768 03184000 PVTACA EQU PVTWSAX+1400 03185000 PVTWSA18 EQU PVTWSAX+1256 03186000 PVTWSA17 EQU PVTWSAX+1184 03187000 PVTWSA16 EQU PVTWSAX+1112 03188000 PVTWSA15 EQU PVTWSAX+1040 03189000 PVTWSA14 EQU PVTWSAX+968 03190000 PVTWSA13 EQU PVTWSAX+896 03191000 PVTWSA12 EQU PVTWSAX+824 03192000 PVTWSA11 EQU PVTWSAX+752 03193000 PVTWSA10 EQU PVTWSAX+672 03194000 PVTWSA9 EQU PVTWSAX+592 03195000 PVTWSA8 EQU PVTWSAX+504 03196000 PVTWSA7 EQU PVTWSAX+432 03197000 PVTWSA6 EQU PVTWSAX+360 03198000 PVTWSA5 EQU PVTWSAX+288 03199000 PVTWSA4 EQU PVTWSAX+216 03200000 PVTWSA3 EQU PVTWSAX+144 03201000 PVTWSA2 EQU PVTWSAX+72 03202000 PVTWSA1 EQU PVTWSAX 03203000 PVTCIOQL EQU PVTQS+36 03204000 PVTCIOQF EQU PVTQS+32 03205000 PVTGFADL EQU PVTQS+28 03206000 PVTGFADF EQU PVTQS+24 03207000 PVTFPCBL EQU PVTQS+20 03208000 PVTFPCBF EQU PVTQS+16 03209000 PVTSQAQL EQU PVTQS+14 03210000 PVTSQAQF EQU PVTQS+12 03211000 PVTCFQL EQU PVTQS+10 03212000 PVTCFQF EQU PVTQS+8 03213000 PVTRSRVL EQU PVTQS+6 03214000 PVTRSRVF EQU PVTQS+4 03215000 PVTAFQL EQU PVTQS+2 03216000 PVTAFQF EQU PVTQS 03217000 PVTSPFR EQU PVT+302 03218000 PVTCFMCT EQU PVT+300 03219000 PVTSPREC EQU PVT+296 03220000 PVTCAREC EQU PVT+292 03221000 PVTCAOUT EQU PVT+288 03222000 PVTCAIN EQU PVT+284 03223000 PVTNSWPS EQU PVT+280 03224000 PVTNPREC EQU PVT+276 03225000 PVTSPOUT EQU PVT+272 03226000 PVTSPIN EQU PVT+268 03227000 PVTVAMR EQU PVT+264 03228000 PVTVAMO EQU PVT+260 03229000 PVTVAMI EQU PVT+256 03230000 PVTNPOUT EQU PVT+252 03231000 PVTNPIN EQU PVT+248 03232000 PVTPRSET EQU PVT+244 03233000 PVTFRSLT EQU PVT+240 03234000 PVTPAGIO EQU PVT+236 03235000 PVTSWPIO EQU PVT+232 03236000 PVTPSWPP EQU PVT+228 03237000 PVTPPREF EQU PVT+224 03238000 PVTPOPBR EQU PVT+220 03239000 PVTPRELF EQU PVT+216 03240000 PVTPRELV EQU PVT+212 03241000 PVTPFREE EQU PVT+208 03242000 PVTPRELS EQU PVT+204 03243000 PVTPOUT EQU PVT+200 03244000 PVTPFXLD EQU PVT+196 03245000 PVTPITAS EQU PVT+192 03246000 PVTPDSEG EQU PVT+184 03247000 PVTPCSGB EQU PVT+180 03248000 PVTPCSEG EQU PVT+176 03249000 PVTPSWPC EQU PVT+168 03250000 PVTPSOUT EQU PVT+164 03251000 PVTPSWIN EQU PVT+160 03252000 PVTPRCFI EQU PVT+152 03253000 PVTPRCF EQU PVT+148 03254000 PVTPVRC EQU PVT+144 03255000 PVTPVRIN EQU PVT+140 03256000 PVTPVRLS EQU PVT+136 03257000 PVTPVEQR EQU PVT+132 03258000 PVTPPIOI EQU PVT+128 03259000 PVTPVRPO EQU PVT+124 03260000 PVTPRFR EQU PVT+120 03261000 PVTPFP EQU PVT+112 03262000 PVTPIOCP EQU PVT+96 03263000 PVTPIOP EQU PVT+92 03264000 PVTPGFAD EQU PVT+88 03265000 PVTPGFA EQU PVT+84 03266000 PVTPSQA EQU PVT+80 03267000 PVTPSINT EQU PVT+76 03268000 PVTPSIB EQU PVT+72 03269000 PVTPCIWA EQU PVT+64 03270000 PVTHQSA EQU PVT+62 03271000 PVTLQSA EQU PVT+60 03272000 PVTREUS EQU PVT+48 03273000 PVTRESV4 EQU PVT+46 03274000 PVTRSUS EQU PVT+44 03275000 PVTVROOT EQU PVT+40 03276000 PVTPCBLO EQU PVT+38 03277000 PVTPCBCT EQU PVT+36 03278000 PVTDFRS EQU PVT+34 03279000 PVTRSQA EQU PVT+32 03280000 PVTPTLB EQU PVT+31 03281000 PVTPCBNO EQU PVT+30 03282000 PVTSRBNO EQU PVT+29 03283000 PVTSQDC EQU PVT+28 03284000 PVTLPRIV EQU PVT+24 03285000 PVTLVR EQU PVT+22 03286000 PVTFVR EQU PVT+20 03287000 PVTSSPIN EQU PVT+11 03288000 PVTPCBS EQU PVT+10 03289000 PVTAFCOK EQU PVT+6 03290000 PVTAFC EQU PVT+2 03291000 PVTFLAG2 EQU PVT+1 03292000 PVTDUMP EQU PVTFLAG1 03293000 PVTSIT EQU PVTFLAG1 03294000 PVTLSI EQU PVTFLAG1 03295000 PVTRESV1 EQU PVTFLAG1 03296000 PVTPCBLT EQU PVTFLAG1 03297000 PVTSRBIU EQU PVTFLAG1 03298000 PVTBGMS EQU PVTFLAG1 03299000 PVTPMSG EQU PVTFLAG1 03300000 PFTQNDX EQU PFTE+14 03301000 @NM00040 EQU PFTFLAG2 03302000 @NM00039 EQU PFTFLAG2 03303000 PFTPREF EQU PFTFLAG2 03304000 PFTSTEAL EQU PFTFLAG2 03305000 PFTVR EQU PFTFLAG2 03306000 PFTDFRLS EQU PFTFLAG2 03307000 PFTPCBSI EQU PFTFLAG1 03308000 PFTLNGFX EQU PFTFLAG1 03309000 PFTRSV1 EQU PFTE+10 03310000 PFTBQPTR EQU PFTQPTRS+2 03311000 PFTFQPTR EQU PFTQPTRS 03312000 PCBRWRKB EQU PCBR+60 03313000 PCBRWRKA EQU PCBR+56 03314000 PCBRWRK9 EQU PCBR+52 03315000 PCBRWRK8 EQU PCBR+48 03316000 PCBRWRK7 EQU PCBR+44 03317000 PCBRWRK6 EQU PCBR+40 03318000 PCBRWRK5 EQU PCBR+36 03319000 PCBRWRK4 EQU PCBR+32 03320000 PCBRWRK3 EQU PCBR+28 03321000 PCBRWRK2 EQU PCBR+24 03322000 PCBRWRK1 EQU PCBR+20 03323000 PCBRRSV1 EQU PCBR+18 03324000 PCBRGOTO EQU PCBR+4 03325000 PCBRPOF EQU PCBRFLAG 03326000 PCBRFECB EQU PCBRFLAG 03327000 PCBRLOAD EQU PCBRFLAG 03328000 PCBRFPCB EQU PCBRFLAG 03329000 PCBRPB EQU PCBRFLAG 03330000 PCBRETRY EQU PCBRFLAG 03331000 PCBEND EQU PCB+64 03332000 PCBAIA EQU PCB+36 03333000 PCBASCB EQU PCB+32 03334000 PCBSPCTE EQU PCBRB 03335000 PCBVBN EQU PCB+26 03336000 PCBRBN EQU PCB+24 03337000 PCBPGTA EQU PCBPGT+1 03338000 PCBSWPS2 EQU PCBFL3 03339000 @NM00038 EQU PCBFL3 03340000 PCBNOREC EQU PCBFL3 03341000 PCBDFRLS EQU PCBFL3 03342000 PCBSWPLS EQU PCBFL3 03343000 PCBSWPS1 EQU PCBFL3 03344000 PCBSWPIN EQU PCBFL3 03345000 PCBSWPOT EQU PCBFL3 03346000 PCBXPTA EQU PCBXPT+1 03347000 @NM00037 EQU PCBFL2 03348000 @NM00036 EQU PCBFL2 03349000 PCBVIO EQU PCBFL2 03350000 PCBSUPRS EQU PCBFL2 03351000 PCBRESET EQU PCBFL2 03352000 PCBIOERR EQU PCBFL2 03353000 PCBGFAD EQU PCBFL2 03354000 PCBFREAL EQU PCBFL2 03355000 PCBRLPA EQU PCBRLP+1 03356000 PCBFXC EQU PCBRLP 03357000 PCBRTPA EQU PCBRTP+1 03358000 PCBIOCMP EQU PCBFL1 03359000 PCBIOI EQU PCBFL1 03360000 PCBROOT EQU PCBFL1 03361000 PCBLFR EQU PCBFL1 03362000 PCBLLHLD EQU PCBFL1 03363000 PCBSRBMD EQU PCBFL1 03364000 PCBPEX EQU PCBFL1 03365000 @NM00035 EQU PCBFL1 03366000 PCBBQPA EQU PCBBQP 03367000 PCBFQPA EQU PCBFQP+1 03368000 PCBCQN EQU PCBFQP 03369000 FRRSPARM EQU FRRSENTR+8 03370000 @NM00010 EQU FRRSFLGS+1 03371000 @NM00009 EQU FRRSFLG1 03372000 FRRSNEST EQU FRRSFLG1 03373000 FRRSRCUR EQU FRRSFLG1 03374000 FRRSFRRA EQU FRRSENTR 03375000 FRRSENTS EQU FRRS+84 03376000 FRRSRTMW EQU FRRS+16 03377000 FRRSCURR EQU FRRSHEAD+12 03378000 FRRSELEN EQU FRRSHEAD+8 03379000 FRRSLAST EQU FRRSHEAD+4 03380000 FRRSEMP EQU FRRSHEAD 03381000 CVTLEVL EQU CVTRELNO+2 03382000 CVTNUMB EQU CVTRELNO 03383000 CVTMDL EQU CVTFIX+250 03384000 @NM00008 EQU CVTFIX+248 03385000 @NM00007 EQU CVTFIX 03386000 CVTRV482 EQU CVTXTNT2+128 03387000 CVTRV481 EQU CVTXTNT2+124 03388000 CVTRV480 EQU CVTXTNT2+120 03389000 CVTRV479 EQU CVTXTNT2+118 03390000 CVTRV478 EQU CVTXTNT2+117 03391000 CVTRV477 EQU CVTXTNT2+116 03392000 CVTRV476 EQU CVTXTNT2+115 03393000 CVTRV475 EQU CVTXTNT2+114 03394000 CVTRV474 EQU CVTRV466 03395000 CVTRV473 EQU CVTRV466 03396000 CVTRV472 EQU CVTRV466 03397000 CVTRV471 EQU CVTRV466 03398000 CVTRV470 EQU CVTRV466 03399000 CVTRV469 EQU CVTRV466 03400000 CVTRV468 EQU CVTRV466 03401000 CVTRV467 EQU CVTRV466 03402000 CVTRV465 EQU CVTRV457 03403000 CVTRV464 EQU CVTRV457 03404000 CVTRV463 EQU CVTRV457 03405000 CVTRV462 EQU CVTRV457 03406000 CVTRV461 EQU CVTRV457 03407000 CVTRV460 EQU CVTRV457 03408000 CVTRV459 EQU CVTRV457 03409000 CVTRV458 EQU CVTRV457 03410000 CVTRV456 EQU CVTXTNT2+108 03411000 CVTRV455 EQU CVTXTNT2+104 03412000 CVTRV454 EQU CVTXTNT2+100 03413000 CVTRV453 EQU CVTXTNT2+96 03414000 CVTRV452 EQU CVTXTNT2+94 03415000 CVTRV451 EQU CVTXTNT2+92 03416000 CVTRV450 EQU CVTXTNT2+90 03417000 CVTRV449 EQU CVTXTNT2+88 03418000 CVTRV448 EQU CVTXTNT2+87 03419000 CVTRV447 EQU CVTXTNT2+86 03420000 CVTRV446 EQU CVTRV438 03421000 CVTRV445 EQU CVTRV438 03422000 CVTRV444 EQU CVTRV438 03423000 CVTRV443 EQU CVTRV438 03424000 CVTRV442 EQU CVTRV438 03425000 CVTRV441 EQU CVTRV438 03426000 CVTRV440 EQU CVTRV438 03427000 CVTRV439 EQU CVTRV438 03428000 CVTRV437 EQU CVTRV429 03429000 CVTRV436 EQU CVTRV429 03430000 CVTRV435 EQU CVTRV429 03431000 CVTRV434 EQU CVTRV429 03432000 CVTRV433 EQU CVTRV429 03433000 CVTRV432 EQU CVTRV429 03434000 CVTRV431 EQU CVTRV429 03435000 CVTRV430 EQU CVTRV429 03436000 CVTRV428 EQU CVTXTNT2+80 03437000 CVTRV427 EQU CVTXTNT2+76 03438000 CVTRV426 EQU CVTXTNT2+72 03439000 CVTRV425 EQU CVTXTNT2+68 03440000 CVTATACT EQU CVTATCVT 03441000 CVTRV423 EQU CVTXTNT2+62 03442000 CVTRV422 EQU CVTXTNT2+60 03443000 CVTRV421 EQU CVTXTNT2+58 03444000 CVTRV420 EQU CVTXTNT2+56 03445000 CVTRV419 EQU CVTXTNT2+55 03446000 CVTRV418 EQU CVTXTNT2+54 03447000 CVTRV417 EQU CVTRV409 03448000 CVTRV416 EQU CVTRV409 03449000 CVTRV415 EQU CVTRV409 03450000 CVTRV414 EQU CVTRV409 03451000 CVTRV413 EQU CVTRV409 03452000 CVTRV412 EQU CVTRV409 03453000 CVTRV411 EQU CVTRV409 03454000 CVTRV410 EQU CVTRV409 03455000 CVTRV408 EQU CVTRV400 03456000 CVTRV407 EQU CVTRV400 03457000 CVTRV406 EQU CVTRV400 03458000 CVTRV405 EQU CVTRV400 03459000 CVTRV404 EQU CVTRV400 03460000 CVTRV403 EQU CVTRV400 03461000 CVTRV402 EQU CVTRV400 03462000 CVTRV401 EQU CVTRV400 03463000 CVTICB EQU CVTXTNT2+48 03464000 CVTSKTA EQU CVTXTNT2+44 03465000 CVTRSV99 EQU CVTXTNT2+40 03466000 CVTRSV98 EQU CVTXTNT2+36 03467000 CVTRSV97 EQU CVTXTNT2+34 03468000 CVTRSV96 EQU CVTXTNT2+32 03469000 CVTOLTEP EQU CVTXTNT2+28 03470000 CVTQIDA EQU CVTQID+1 03471000 CVTRSV95 EQU CVTQID 03472000 CVTRSV94 EQU CVTXTNT2+20 03473000 CVTRSV93 EQU CVTXTNT2+16 03474000 CVTRSV92 EQU CVTXTNT2+12 03475000 CVTDEBVR EQU CVTXTNT2+8 03476000 CVTRSV91 EQU CVTXTNT2+6 03477000 CVTRSV9H EQU CVTFLGBT 03478000 CVTRSV9G EQU CVTFLGBT 03479000 CVTRSV9F EQU CVTFLGBT 03480000 CVTRSV9E EQU CVTFLGBT 03481000 CVTRSV9D EQU CVTFLGBT 03482000 CVTBAH EQU CVTFLGBT 03483000 CVTVME EQU CVTFLGBT 03484000 CVTNPE EQU CVTFLGBT 03485000 CVTNUCLS EQU CVTXTNT2+4 03486000 CVTDSSVA EQU CVTDSSV+1 03487000 CVTRSV89 EQU CVTDSSV 03488000 CVTRSV88 EQU CVTXTNT1+8 03489000 CVTRSV87 EQU CVTXTNT1+4 03490000 CVTFACHN EQU CVTXTNT1 03491000 CVTRV488 EQU CVTMAP+412 03492000 CVTRV487 EQU CVTMAP+408 03493000 CVTRV486 EQU CVTMAP+404 03494000 CVTRV485 EQU CVTMAP+400 03495000 CVTACTAP EQU CVTMAP+396 03496000 CVTAUTH EQU CVTMAP+392 03497000 CVTRV490 EQU CVTMAP+388 03498000 CVTSU EQU CVTMAP+384 03499000 CVTVOLT1 EQU CVTVOLM1+1 03500000 CVTVOLI1 EQU CVTVOLF1 03501000 CVTSTOA EQU CVTMAP+376 03502000 CVTRSV58 EQU CVTMAP+374 03503000 CVTRSV57 EQU CVTMAP+372 03504000 CVTDDCE EQU CVTMAP+368 03505000 CVTPNWFR EQU CVTMAP+364 03506000 CVTSMF EQU CVTMAP+360 03507000 CVTSULK EQU CVTMAP+358 03508000 CVTSLKO EQU CVTSYSK 03509000 CVTSLKP EQU CVTSYSK 03510000 CVTSLKQ EQU CVTSYSK 03511000 CVTSLKR EQU CVTSYSK 03512000 CVTRSV56 EQU CVTSYSK 03513000 CVTRSV55 EQU CVTSYSK 03514000 CVTRSV54 EQU CVTSYSK 03515000 CVTRSV53 EQU CVTSYSK 03516000 CVTRSV52 EQU CVTA1F1 03517000 CVTRSV51 EQU CVTA1F1 03518000 CVTRSV50 EQU CVTA1F1 03519000 CVTRSV49 EQU CVTA1F1 03520000 CVTRSV48 EQU CVTA1F1 03521000 CVTRSV47 EQU CVTA1F1 03522000 CVTSRSW EQU CVTA1F1 03523000 CVTPFSW EQU CVTA1F1 03524000 CVTPCVT EQU CVTMAP+352 03525000 CVTRSV46 EQU CVTMAP+344 03526000 CVTRSV45 EQU CVTMAP+340 03527000 CVTRSV44 EQU CVTMAP+338 03528000 CVTRSV43 EQU CVTMAP+336 03529000 CVTHJESA EQU CVTHJES+1 03530000 CVTRSV42 EQU CVTHJES 03531000 CVTEXT2A EQU CVTEXT2+1 03532000 CVTRSV41 EQU CVTEXT2 03533000 CVTAPFA EQU CVTAPF+1 03534000 CVTRSV40 EQU CVTAPF 03535000 CVTRV518 EQU CVTINTLA 03536000 CVTRV517 EQU CVTERPV 03537000 CVTEORM EQU CVTMAP+312 03538000 CVTMCHPR EQU CVTMAP+308 03539000 CVTTZ EQU CVTMAP+304 03540000 CVTJEPS EQU CVTMAP+300 03541000 CVTJESCT EQU CVTMAP+296 03542000 CVTMODE EQU CVTMAP+292 03543000 CVTPTRV EQU CVTMAP+288 03544000 CVTREAL EQU CVTMAP+284 03545000 CVTRSV39 EQU CVTMAP+280 03546000 CVTRSV38 EQU CVTMAP+276 03547000 CVTDMSRA EQU CVTDMSR+1 03548000 CVTRV634 EQU CVTDMSRF 03549000 CVTRV633 EQU CVTDMSRF 03550000 CVTRV632 EQU CVTDMSRF 03551000 CVTRV631 EQU CVTDMSRF 03552000 CVTRV630 EQU CVTDMSRF 03553000 CVTRV629 EQU CVTDMSRF 03554000 CVTUDUMP EQU CVTDMSRF 03555000 CVTSDUMP EQU CVTDMSRF 03556000 CVTQMSGA EQU CVTQMSG+1 03557000 CVTRSV36 EQU CVTQMSG 03558000 CVTAMFF EQU CVTMAP+264 03559000 CVTPURGA EQU CVTPURG+1 03560000 CVTRSV35 EQU CVTPURG 03561000 CVTCBSP EQU CVTMAP+256 03562000 CVTATERA EQU CVTATER+1 03563000 CVTSYST EQU CVTATER 03564000 CVTVOLT2 EQU CVTTAT 03565000 CVTVOLI2 EQU CVTVOLF2 03566000 CVTAQAVB EQU CVTAQAVT+1 03567000 CVTRSV34 EQU CVTTCMFG 03568000 CVTRSV33 EQU CVTTCMFG 03569000 CVTRSV32 EQU CVTTCMFG 03570000 CVTRSV31 EQU CVTTCMFG 03571000 CVTRSV30 EQU CVTTCMFG 03572000 CVTRSV29 EQU CVTTCMFG 03573000 CVTLDEV EQU CVTTCMFG 03574000 CVTTCRDY EQU CVTTCMFG 03575000 CVTGTFA EQU CVTGTF+1 03576000 CVTRSV27 EQU CVTGTFST 03577000 CVTRNIO EQU CVTGTFST 03578000 CVTUSR EQU CVTGTFST 03579000 CVTRV318 EQU CVTFORM 03580000 CVTRV317 EQU CVTTMODE 03581000 CVTRV316 EQU CVTSTATE 03582000 CVTRV315 EQU CVTGTFS 03583000 CVTGTFAV EQU CVTGTFS 03584000 CVT0SCR1 EQU CVTMAP+232 03585000 CVTRV515 EQU CVTMAP+228 03586000 CVTPATCH EQU CVTMAP+220 03587000 CVTTSCE EQU CVTMAP+216 03588000 CVTLNKSC EQU CVTMAP+214 03589000 CVTQABST EQU CVTMAP+212 03590000 CVTMDLDS EQU CVTMAP+208 03591000 CVTUSER EQU CVTMAP+204 03592000 CVTABEND EQU CVTMAP+200 03593000 CVTSMCA EQU CVTMAP+196 03594000 CVTRSV18 EQU CVTMAP+192 03595000 CVTQLPAQ EQU CVTMAP+188 03596000 CVTQCDSR EQU CVTMAP+184 03597000 CVTVS1B EQU CVTOPTB 03598000 CVTVS1A EQU CVTOPTB 03599000 CVTFP EQU CVTOPTB 03600000 CVTAPTHR EQU CVTOPTB 03601000 CVTNLOG EQU CVTOPTB 03602000 CVTTOD EQU CVTOPTB 03603000 CVTCTIMS EQU CVTOPTB 03604000 CVTPROT EQU CVTOPTB 03605000 CVTXPFP EQU CVTOPTA 03606000 CVTASCII EQU CVTOPTA 03607000 CVTRSV13 EQU CVTOPTA 03608000 CVTRSV12 EQU CVTOPTA 03609000 CVTNIP EQU CVTOPTA 03610000 CVTDDR EQU CVTOPTA 03611000 CVTAPR EQU CVTOPTA 03612000 CVTCCH EQU CVTOPTA 03613000 CVTSNCTR EQU CVTMAP+180 03614000 CVTQMWR EQU CVTMAP+176 03615000 CVTQOCR EQU CVTMAP+172 03616000 CVT1EF00 EQU CVTMAP+168 03617000 CVTMZ00 EQU CVTMAP+164 03618000 CVTSV76Q EQU CVTSV76C 03619000 CVTRSV11 EQU CVTMAP+156 03620000 CVTMSER EQU CVTMAP+148 03621000 CVTRV516 EQU CVTIERLC 03622000 CVTILCH EQU CVTMAP+140 03623000 CVT0DS EQU CVTMAP+136 03624000 CVTFBOSV EQU CVTMAP+132 03625000 CVTNUCB EQU CVTMAP+128 03626000 CVTIXAVL EQU CVTMAP+124 03627000 CVTSV76M EQU CVTIOQET 03628000 CVTDCBA EQU CVTMAP+117 03629000 CVTMVS2 EQU CVTDCB 03630000 CVT6DAT EQU CVTDCB 03631000 CVT4MPS EQU CVTDCB 03632000 CVTRSV09 EQU CVTDCB 03633000 CVT4MS1 EQU CVTDCB 03634000 CVT2SPS EQU CVTDCB 03635000 CVT1SSS EQU CVTDCB 03636000 CVTRSV08 EQU CVTDCB 03637000 CVTSTB EQU CVTMAP+112 03638000 CVTQTD00 EQU CVTMAP+108 03639000 CVTQTE00 EQU CVTMAP+104 03640000 CVTCUCB EQU CVTMAP+100 03641000 CVTSJQ EQU CVTMAP+96 03642000 CVTPBLDL EQU CVTMAP+92 03643000 CVTTPC EQU CVTMAP+88 03644000 CVTSVDCB EQU CVTMAP+84 03645000 CVTBRET EQU CVTMAP+82 03646000 CVTEXIT EQU CVTMAP+80 03647000 CVT0FN00 EQU CVTMAP+76 03648000 CVTDARA EQU CVTDAR+1 03649000 CVTRSV07 EQU CVTFLGS1 03650000 CVTRSV06 EQU CVTFLGS1 03651000 CVTRSV05 EQU CVTFLGS1 03652000 CVTRSV04 EQU CVTFLGS1 03653000 CVTRSV03 EQU CVTFLGS1 03654000 CVTRSV02 EQU CVTFLGS1 03655000 CVTRSV01 EQU CVTFLGS1 03656000 CVTDMPLK EQU CVTFLGS1 03657000 CVTXITP EQU CVTMAP+68 03658000 CVTZDTAB EQU CVTMAP+64 03659000 CVTMSLT EQU CVTMAP+60 03660000 CVTDATE EQU CVTMAP+56 03661000 CVTBTERM EQU CVTMAP+52 03662000 CVTSYSAD EQU CVTMAP+48 03663000 CVTXTLER EQU CVTMAP+44 03664000 CVTILK2 EQU CVTMAP+40 03665000 CVTILK1 EQU CVTMAP+36 03666000 CVTPRLTV EQU CVTMAP+32 03667000 CVTPCNVT EQU CVTMAP+28 03668000 CVT0VL00 EQU CVTMAP+24 03669000 CVTXAPG EQU CVTMAP+20 03670000 CVTBUF EQU CVTMAP+16 03671000 CVTJOB EQU CVTMAP+12 03672000 CVTLINK EQU CVTMAP+8 03673000 CVT0EF00 EQU CVTMAP+4 03674000 CVTTCBP EQU CVTMAP 03675000 CVT EQU CVTMAP 03676000 ASCBEND EQU ASCB+208 03677000 ASCBSRBT EQU ASCB+200 03678000 ASCBSWTL EQU ASCB+196 03679000 ASCBRS14 EQU ASCB+195 03680000 ASCBSMCT EQU ASCB+194 03681000 ASCBRS12 EQU ASCB+192 03682000 ASCBPCTT EQU ASCB+188 03683000 ASCBVGTT EQU ASCB+184 03684000 ASCBRV43 EQU ASCBSRQ4 03685000 ASCBRV42 EQU ASCBSRQ4 03686000 ASCBRV41 EQU ASCBSRQ4 03687000 ASCBRV40 EQU ASCBSRQ4 03688000 ASCBRV39 EQU ASCBSRQ4 03689000 ASCBRV38 EQU ASCBSRQ4 03690000 ASCBRV37 EQU ASCBSRQ4 03691000 ASCBRV36 EQU ASCBSRQ4 03692000 ASCBRV35 EQU ASCBSRQ3 03693000 ASCBRV34 EQU ASCBSRQ3 03694000 ASCBRV33 EQU ASCBSRQ3 03695000 ASCBRV32 EQU ASCBSRQ3 03696000 ASCBRV31 EQU ASCBSRQ3 03697000 ASCBRV30 EQU ASCBSRQ3 03698000 ASCBRV29 EQU ASCBSRQ3 03699000 ASCBRV28 EQU ASCBSRQ3 03700000 ASCBRV27 EQU ASCBSRQ2 03701000 ASCBRV26 EQU ASCBSRQ2 03702000 ASCBRV25 EQU ASCBSRQ2 03703000 ASCBRV24 EQU ASCBSRQ2 03704000 ASCBRV23 EQU ASCBSRQ2 03705000 ASCBRV22 EQU ASCBSRQ2 03706000 ASCBRV21 EQU ASCBSRQ2 03707000 ASCBRV20 EQU ASCBSRQ2 03708000 ASCBRV19 EQU ASCBSRQ1 03709000 ASCBRV18 EQU ASCBSRQ1 03710000 ASCBRV17 EQU ASCBSRQ1 03711000 ASCBRV16 EQU ASCBSRQ1 03712000 ASCBRV15 EQU ASCBSRQ1 03713000 ASCBRV14 EQU ASCBSRQ1 03714000 ASCBRV13 EQU ASCBSRQ1 03715000 ASCBSTA EQU ASCBSRQ1 03716000 ASCBJBNS EQU ASCB+176 03717000 ASCBJBNI EQU ASCB+172 03718000 ASCBMCC EQU ASCB+168 03719000 ASCBRTWA EQU ASCB+164 03720000 ASCBIQEA EQU ASCB+160 03721000 ASCBXMPQ EQU ASCB+156 03722000 ASCBRS01 EQU ASCB+154 03723000 ASCBFMCT EQU ASCB+152 03724000 ASCBOUXB EQU ASCB+148 03725000 ASCBOUCB EQU ASCB+144 03726000 ASCBMECB EQU ASCB+140 03727000 ASCBQECB EQU ASCB+136 03728000 ASCBLSQH EQU ASCBLKGP+4 03729000 ASCBLOCK EQU ASCBLKGP 03730000 ASCBTCBS EQU ASCB+124 03731000 ASCBNVSC EQU ASCB+122 03732000 ASCBVSC EQU ASCB+120 03733000 ASCBSRBS EQU ASCB+118 03734000 ASCBSSRB EQU ASCB+116 03735000 ASCBRV06 EQU ASCBFLG2 03736000 ASCBRV05 EQU ASCBFLG2 03737000 ASCBRV04 EQU ASCBFLG2 03738000 ASCBSNQS EQU ASCBFLG2 03739000 ASCBS2S EQU ASCBFLG2 03740000 ASCBCEXT EQU ASCBFLG2 03741000 ASCBPXMT EQU ASCBFLG2 03742000 ASCBXMPT EQU ASCBFLG2 03743000 ASCBRF07 EQU ASCBDSP1 03744000 ASCBRF06 EQU ASCBDSP1 03745000 ASCBRF05 EQU ASCBDSP1 03746000 ASCBRF04 EQU ASCBDSP1 03747000 ASCBRF03 EQU ASCBDSP1 03748000 ASCBRF02 EQU ASCBDSP1 03749000 ASCBFAIL EQU ASCBDSP1 03750000 ASCBNOQ EQU ASCBDSP1 03751000 ASCBSWCT EQU ASCB+112 03752000 ASCBASXB EQU ASCB+108 03753000 ASCBTMCH EQU ASCB+104 03754000 ASCBNSWP EQU ASCBFLG1 03755000 ASCBTYP1 EQU ASCBFLG1 03756000 ASCBSTND EQU ASCBFLG1 03757000 ASCBABNT EQU ASCBFLG1 03758000 ASCBTERM EQU ASCBFLG1 03759000 ASCBS3S EQU ASCBFLG1 03760000 ASCBCMSH EQU ASCBFLG1 03761000 ASCBTOFF EQU ASCBFLG1 03762000 ASCBRF01 EQU ASCBRCTF 03763000 ASCBTMLW EQU ASCBRCTF 03764000 ASCBOUT EQU ASCBRCTF 03765000 ASCBWAIT EQU ASCBRCTF 03766000 ASCBRV08 EQU ASCBRCTF 03767000 ASCBFQU EQU ASCBRCTF 03768000 ASCBFRS EQU ASCBRCTF 03769000 ASCBTMNO EQU ASCBRCTF 03770000 ASCBAFFN EQU ASCBFW1 03771000 ASCBDUMP EQU ASCB+96 03772000 ASCBRV44 EQU ASCB+92 03773000 ASCBUBET EQU ASCB+88 03774000 ASCBECB EQU ASCB+84 03775000 ASCBJSTL EQU ASCB+80 03776000 ASCBEWST EQU ASCB+72 03777000 ASCBEJST EQU ASCB+64 03778000 ASCBTSB EQU ASCB+60 03779000 ASCBCSCB EQU ASCB+56 03780000 ASCBLDA EQU ASCB+48 03781000 ASCBSTOR EQU ASCB+44 03782000 ASCBDP EQU ASCB+43 03783000 ASCBRV07 EQU ASCB+42 03784000 ASCBIOSM EQU ASCB+40 03785000 ASCBSEQN EQU ASCB+38 03786000 ASCBCPUS EQU ASCB+32 03787000 ASCBSPL EQU ASCB+28 03788000 ASCBIOSP EQU ASCB+24 03789000 ASCBSYNC EQU ASCBSUPC+4 03790000 ASCBSVRB EQU ASCBSUPC 03791000 ASCBCMSF EQU ASCB+12 03792000 ASCBBWDP EQU ASCB+8 03793000 ASCBFWDP EQU ASCB+4 03794000 ASCBASCB EQU ASCB 03795000 ASCBEGIN EQU ASCB 03796000 STATUS2 EQU PARMLIST+7 03797000 @NM00006 EQU STATUS1 03798000 @NM00005 EQU PARMLIST+5 03799000 ST2REQ EQU REQUEST 03800000 @NM00004 EQU SAVERGS+20 03801000 S14 EQU SAVERGS+12 03802000 @NM00003 EQU RCFFLAGS 03803000 S1 EQU PRCNT 03804000 S0 EQU RBN 03805000 @NM00001 EQU WKPCB+16 03806000 RCARETAD EQU RCA+20 03807000 RCARES9 EQU RCA+19 03808000 @NM00042 EQU RCA+18 03809000 RCAPIOI EQU RCA+18 03810000 RCANAME7 EQU RCANAMES+6 03811000 RCAREP1 EQU RCANAME6 03812000 RCAPSIF EQU RCANAME6 03813000 RCAPSIX EQU RCANAME6 03814000 RCAVEQRP EQU RCANAME6 03815000 RCACSGB EQU RCANAME6 03816000 RCAFXL EQU RCANAME6 03817000 RCAPS113 EQU RCANAME6 03818000 RCAFREE EQU RCANAME5 03819000 RCARFR2 EQU RCANAME5 03820000 RCACPBR EQU RCANAME5 03821000 RCAOPBR EQU RCANAME5 03822000 RCASORT EQU RCANAME5 03823000 RCASIRT EQU RCANAME5 03824000 RCARELV EQU RCANAME5 03825000 RCARELF EQU RCANAME5 03826000 RCAGFAD EQU RCANAME4 03827000 RCAVEQRI EQU RCANAME4 03828000 RCAVEQRF EQU RCANAME4 03829000 RCAVEQRC EQU RCANAME4 03830000 RCATERM EQU RCANAME4 03831000 RCASQA EQU RCANAME4 03832000 RCASWIN EQU RCANAME4 03833000 RCASOUT EQU RCANAME4 03834000 RCARFR EQU RCANAME3 03835000 RCARELS EQU RCANAME3 03836000 RCAPSII EQU RCANAME3 03837000 RCAPSIB EQU RCANAME3 03838000 RCAPS112 EQU RCANAME3 03839000 RCAPIX EQU RCANAME3 03840000 RCAPIOP EQU RCANAME2 03841000 RCASWPC EQU RCANAME2 03842000 RCASWPP EQU RCANAME2 03843000 RCAPFTE EQU RCANAME2 03844000 RCAPCB EQU RCANAME2 03845000 RCAOUT EQU RCANAME2 03846000 RCAITAS EQU RCANAME2 03847000 RCAIOCP EQU RCANAME2 03848000 RCAINV EQU RCANAME1 03849000 RCAGFA EQU RCANAME1 03850000 RCAFXLD EQU RCANAME1 03851000 RCAVEQR EQU RCANAME1 03852000 RCADSEG EQU RCANAME1 03853000 RCADLAS EQU RCANAME1 03854000 RCACSEG EQU RCANAME1 03855000 RCAVAMSI EQU RCANAME1 03856000 @NM00041 EQU RCAFLAGS 03857000 RCAQS EQU RCAFLAGS 03858000 RCAPSIER EQU RCAFLAGS 03859000 RCAABEND EQU RCAFLAGS 03860000 RCARES7 EQU RCA+8 03861000 RCAPARM1 EQU RCA+4 03862000 RCAPARM0 EQU RCA 03863000 @NM00034 EQU PSA+3668 03864000 PSASTAK EQU PSA+3072 03865000 @NM00033 EQU PSA+1048 03866000 PSAUSEND EQU PSA+1048 03867000 PSARV062 EQU PSA+1044 03868000 PSACDAL EQU PSA+1040 03869000 PSAWTCOD EQU PSA+1036 03870000 PSAATCVT EQU PSA+1032 03871000 PSAPCPSW EQU PSA+1024 03872000 PSAPIR2 EQU PSA+1020 03873000 PSARV059 EQU PSA+1018 03874000 PSASVC13 EQU PSA+1016 03875000 PSALSFCC EQU PSA+1012 03876000 PSASFACC EQU PSA+1008 03877000 PSASTOP EQU PSA+992 03878000 PSASTART EQU PSA+976 03879000 PSARSPSW EQU PSA+968 03880000 PSASRPSW EQU PSA+960 03881000 PSARV045 EQU PSA+892 03882000 PSARV044 EQU PSA+888 03883000 PSARV043 EQU PSA+884 03884000 PSARV042 EQU PSA+880 03885000 PSARV041 EQU PSA+876 03886000 PSARV040 EQU PSA+872 03887000 PSARV025 EQU PSA+868 03888000 PSADSSED EQU PSA+868 03889000 PSADSSPR EQU PSA+864 03890000 PSADSSFW EQU PSA+860 03891000 PSADSS14 EQU PSA+856 03892000 PSADSSPP EQU PSA+848 03893000 PSADSSRP EQU PSA+840 03894000 PSADSS05 EQU PSADSSF4 03895000 PSADSS10 EQU PSADSSF4 03896000 PSADSSVE EQU PSADSSF4 03897000 PSADSSDE EQU PSADSSF4 03898000 PSADSSC0 EQU PSADSSF4 03899000 PSADSSIE EQU PSADSSF4 03900000 PSADSS12 EQU PSADSSF4 03901000 PSADSSRC EQU PSADSSF4 03902000 PSARV057 EQU PSADSSF3 03903000 PSARV056 EQU PSADSSF3 03904000 PSARV055 EQU PSADSSF3 03905000 PSADSSMC EQU PSADSSF3 03906000 PSADSSRW EQU PSADSSF3 03907000 PSADSSNM EQU PSADSSF3 03908000 PSADSSES EQU PSADSSF3 03909000 PSADSSGP EQU PSADSSF3 03910000 PSADSSF2 EQU PSADSSFL+1 03911000 PSADSSPI EQU PSADSSF1 03912000 PSADSSOI EQU PSADSSF1 03913000 PSADSSSP EQU PSADSSF1 03914000 PSADSSTP EQU PSADSSF1 03915000 PSADSSDW EQU PSADSSF1 03916000 PSADSSDD EQU PSADSSF1 03917000 PSADSSDM EQU PSADSSF1 03918000 PSADSSMV EQU PSADSSF1 03919000 PSADSSTS EQU PSA+816 03920000 PSADSSWK EQU PSA+812 03921000 PSADSSR3 EQU PSA+808 03922000 PSADSSR2 EQU PSA+804 03923000 PSADSSRS EQU PSA+800 03924000 PSASTOR EQU PSA+796 03925000 PSACPUSA EQU PSA+794 03926000 PSAVSTAP EQU PSA+792 03927000 PSAWKVAP EQU PSA+788 03928000 PSAWKRAP EQU PSA+784 03929000 PSAMCHIC EQU PSA+783 03930000 PSARV061 EQU PSA+782 03931000 PSASYMSK EQU PSA+781 03932000 PSAMCHFL EQU PSA+780 03933000 PSACR0 EQU PSA+776 03934000 PSAPSWSV EQU PSA+768 03935000 PSALITA EQU PSA+764 03936000 PSACLHS EQU PSAHLHI 03937000 PSALKR15 EQU PSALKSA+60 03938000 PSALKR14 EQU PSALKSA+56 03939000 PSALKR13 EQU PSALKSA+52 03940000 PSALKR12 EQU PSALKSA+48 03941000 PSALKR11 EQU PSALKSA+44 03942000 PSALKR10 EQU PSALKSA+40 03943000 PSALKR9 EQU PSALKSA+36 03944000 PSALKR8 EQU PSALKSA+32 03945000 PSALKR7 EQU PSALKSA+28 03946000 PSALKR6 EQU PSALKSA+24 03947000 PSALKR5 EQU PSALKSA+20 03948000 PSALKR4 EQU PSALKSA+16 03949000 PSALKR3 EQU PSALKSA+12 03950000 PSALKR2 EQU PSALKSA+8 03951000 PSALKR1 EQU PSALKSA+4 03952000 PSALKR0 EQU PSALKSA 03953000 PSARV023 EQU PSACLHT+52 03954000 PSALOCAL EQU PSACLHT+48 03955000 PSACMSL EQU PSACLHT+44 03956000 PSAOPTL EQU PSACLHT+40 03957000 PSATPACL EQU PSACLHT+36 03958000 PSATPDNL EQU PSACLHT+32 03959000 PSATPNCL EQU PSACLHT+28 03960000 PSAIOSLL EQU PSACLHT+24 03961000 PSAIOSUL EQU PSACLHT+20 03962000 PSAIOSCL EQU PSACLHT+16 03963000 PSAIOSSL EQU PSACLHT+12 03964000 PSASALCL EQU PSACLHT+8 03965000 PSAASML EQU PSACLHT+4 03966000 PSADISPL EQU PSACLHT 03967000 PSASRSA EQU PSA+636 03968000 PSARV050 EQU PSA+634 03969000 PSADSSGO EQU PSA+633 03970000 PSARECUR EQU PSA+632 03971000 PSAHLHIS EQU PSA+628 03972000 PSAIPCSA EQU PSA+624 03973000 @NM00032 EQU PSA+621 03974000 PSAIPCDM EQU PSA+620 03975000 PSAIPCD EQU PSA+616 03976000 @NM00031 EQU PSA+613 03977000 PSAIPCRM EQU PSA+612 03978000 PSAIPCR EQU PSA+608 03979000 PSAMCHEX EQU PSA+600 03980000 PSAMPSW EQU PSA+592 03981000 PSAEXPS2 EQU PSA+584 03982000 PSAEXPS1 EQU PSA+576 03983000 PSAPIREG EQU PSA+572 03984000 PSARSREG EQU PSA+568 03985000 PSAGPREG EQU PSA+556 03986000 PSARV022 EQU PSASUP4 03987000 PSARV021 EQU PSASUP4 03988000 PSARV020 EQU PSASUP4 03989000 PSARV019 EQU PSASUP4 03990000 PSARV018 EQU PSASUP4 03991000 PSARV017 EQU PSASUP4 03992000 PSARV016 EQU PSASUP4 03993000 PSARV015 EQU PSASUP4 03994000 PSARV014 EQU PSASUP3 03995000 PSARV013 EQU PSASUP3 03996000 PSARV012 EQU PSASUP3 03997000 PSAESTA EQU PSASUP3 03998000 PSASPR EQU PSASUP3 03999000 PSAPSREG EQU PSASUP3 04000000 PSAPI2 EQU PSASUP3 04001000 PSAIOSUP EQU PSASUP3 04002000 PSALCR EQU PSASUP2 04003000 PSARTM EQU PSASUP2 04004000 PSAACR EQU PSASUP2 04005000 PSAIPCE2 EQU PSASUP2 04006000 PSAIPCES EQU PSASUP2 04007000 PSAIPCEC EQU PSASUP2 04008000 PSAGTF EQU PSASUP2 04009000 PSAIPCRI EQU PSASUP2 04010000 PSATYPE6 EQU PSASUP1 04011000 PSATCTL EQU PSASUP1 04012000 PSADISP EQU PSASUP1 04013000 PSALOCK EQU PSASUP1 04014000 PSAPI EQU PSASUP1 04015000 PSAEXT EQU PSASUP1 04016000 PSASVC EQU PSASUP1 04017000 PSAIO EQU PSASUP1 04018000 PSAANEW EQU PSA+544 04019000 PSATNEW EQU PSA+536 04020000 PSALCCAR EQU PSA+532 04021000 PSALCCAV EQU PSA+528 04022000 PSAPCCAR EQU PSA+524 04023000 PSACPULA EQU PSA+518 04024000 PSACPUPA EQU PSA+516 04025000 PSAPSA EQU PSA+512 04026000 FLCHDEND EQU PSA+512 04027000 FLCCRSAV EQU FLCMCLA+280 04028000 FLCGRSAV EQU FLCMCLA+216 04029000 FLCFPSAV EQU FLCMCLA+184 04030000 FLCFLA EQU FLCMCLA+88 04031000 FLCRGNCD EQU FLCMCLA+84 04032000 FLCFSAA EQU FLCFSA+1 04033000 @NM00030 EQU FLCFSA 04034000 @NM00029 EQU FLCMCLA+72 04035000 FLCMCIC EQU FLCMCLA+64 04036000 @NM00028 EQU FLCMCLA+20 04037000 FLCIOAA EQU FLCIOA+1 04038000 @NM00027 EQU FLCIOA 04039000 @NM00026 EQU FLCMCLA+15 04040000 @NM00025 EQU FLCMCLA+14 04041000 @NM00024 EQU FLCMCLA+12 04042000 FLCLCL EQU FLCMCLA+8 04043000 FLCIOELA EQU FLCIOEL+1 04044000 @NM00023 EQU FLCIOEL 04045000 FLCCHNID EQU FLCMCLA 04046000 @NM00022 EQU PSA+160 04047000 FLCMTRCD EQU PSA+157 04048000 @NM00021 EQU PSA+156 04049000 FLCPERA EQU FLCPER+1 04050000 @NM00020 EQU FLCPER 04051000 @NM00019 EQU PSA+151 04052000 FLCPERCD EQU PSA+150 04053000 FLCMCNUM EQU PSA+149 04054000 @NM00018 EQU PSA+148 04055000 FLCTEAA EQU FLCTEA+1 04056000 @NM00017 EQU FLCTEA 04057000 PSAPIPC EQU PSAPICOD 04058000 PSAPIMC EQU PSAPICOD 04059000 PSAPIPER EQU PSAPICOD 04060000 PSARV049 EQU FLCPICOD 04061000 FLCPILCB EQU FLCPIILC 04062000 @NM00016 EQU FLCPIILC 04063000 @NM00015 EQU PSAEPPSW 04064000 FLCSVCN EQU PSAESPSW+2 04065000 FLCSILCB EQU FLCSVILC 04066000 @NM00014 EQU FLCSVILC 04067000 @NM00013 EQU PSAESPSW 04068000 FLCEICOD EQU PSAEEPSW+2 04069000 PSASPAD EQU PSAEEPSW 04070000 @NM00012 EQU PSA+128 04071000 FLCINPSW EQU PSA+120 04072000 FLCMNPSW EQU PSA+112 04073000 FLCPNPSW EQU PSA+104 04074000 FLCSNPSW EQU PSA+96 04075000 FLCENPSW EQU PSA+88 04076000 FLCTRACE EQU PSA+84 04077000 FLCTIMER EQU PSA+80 04078000 FLCCVT2 EQU PSA+76 04079000 FLCCAW EQU PSA+72 04080000 FLCCSW EQU PSA+64 04081000 FLCIOPSW EQU PSA+56 04082000 FLCMOPSW EQU PSA+48 04083000 FLCPOPSW EQU PSA+40 04084000 FLCSOPSW EQU PSA+32 04085000 FLCEOPSW EQU PSA+24 04086000 @NM00011 EQU FLCICCW2+4 04087000 FLCICCW1 EQU FLCROPSW 04088000 FLCIPPSW EQU FLCRNPSW 04089000 * END UNREFERENCED COMPONENTS 04090000 @RC00117 EQU @RC00102 04091000 @RT00138 EQU ONTEST 04092000 @RT00267 EQU GETCPSRB 04093000 @RF00267 EQU ERFRPCBR 04094000 @RC00322 EQU @RC00320 04095000 @RT00339 EQU STGREC 04096000 @RT00341 EQU KEYREC 04097000 @RF00355 EQU ALLEXIT 04098000 @RF00358 EQU ALLEXIT 04099000 CARETURN EQU ALLEXIT 04100000 @RF00390 EQU CKCHG 04101000 @RT00403 EQU STGOFF 04102000 @RT00410 EQU STGOFF 04103000 @RT00412 EQU STGINT 04104000 STRETURN EQU ALLEXIT 04105000 @PB00006 EQU @PB00007 04106000 @RT00458 EQU KEYRC8 04107000 @RT00460 EQU NOSETKEY 04108000 @RT00465 EQU SETKEY 04109000 @RT00475 EQU NOSETKEY 04110000 @RT00496 EQU KEYRC8 04111000 @RF00493 EQU ALLEXIT 04112000 KERETURN EQU ALLEXIT 04113000 @RC00518 EQU @RC00516 04114000 @RF00538 EQU @RC00533 04115000 @RF00541 EQU @RC00533 04116000 @RT00350 EQU CARETURN 04117000 @PB00005 EQU @PB00006 04118000 @PB00004 EQU @PB00005 04119000 @PB00003 EQU @PB00004 04120000 @PB00002 EQU @PB00003 04121000 @ENDDATA EQU * 04122000 END IEAVRCF,(C'PLS2005',0701,77116) 04123000