TITLE 'IEAVPREF - PREFERRED AREA ALLOCATION STEAL *00001000 ' 00002000 * /*ENTRY CODE*/ 00003000 IEAVPREF CSECT 00004000 MODID BR=NO 00005000 ENTRY IEAVPRE2 00006000 IEAVPRE2 DS 0H 00007000 STM REG0,REG14,MYSAVE(PVTPTR) SAVE THE INPUT REGS (CHANGE) 00008000 BALR BASEREG,0 00009000 USING *,BASEREG 00010000 * RBN=REG1; /* GET RBN (CONVERT) OR ZERO 0067 00011000 * @ZA16816*/ 00012000 LR RBN,REG1 0067 00013000 * RESPECIFY 0068 00014000 * (REG1) UNRSTD; /* @ZA16816*/ 00015000 * IF RBN=0 THEN /* IF STEAL OPTION THEN @ZA16816*/ 00016000 LTR RBN,RBN 0069 00017000 BNZ @RF00069 0069 00018000 * DO; /* TRY TO STEAL A FRAME @ZA16816*/ 00019000 * PASS=REG0; /* GET THE PASS NUMBER @ZA16816*/ 00020000 LR PASS,REG0 0071 00021000 * RESPECIFY 0072 00022000 * (REG0) UNRSTD; /* @ZA16816*/ 00023000 * RSMHDPTR=PSAAOLD->ASCBRSM; /* SET TO CURRENT RSMHD @ZA16816*/ 00024000 L @09,PSAAOLD 0073 00025000 L RSMHDPTR,ASCBRSM(,@09) 0073 00026000 * RESPECIFY 0074 00027000 * (FRAMEPTR, 0074 00028000 * ASCBPTR) RSTD; /* @ZA16816*/ 00029000 * SAVER15='00000004'X; /* SET RC=4 INITIALLY @ZA16816*/ 00030000 MVC SAVER15(4,PVTPTR),@CB01815 0075 00031000 *START: /* @ZA16816*/ 00032000 * 0076 00033000 * /*************************************************************/ 00034000 * /* */ 00035000 * /* START SEARCH WITH THE CURRENT LOCAL FRAME QUEUE @ZA16816*/ 00036000 * /* IF NOT IN TRAS MODE. @ZA29043*/ 00037000 * /* */ 00038000 * /*************************************************************/ 00039000 * 0076 00040000 * IF LCCAASID=0 THEN /* IN TRAS MODE ? @ZA29043*/ 00041000 START L @06,LCCAPTR 0076 00042000 L @06,LCCAASID(,@06) 0076 00043000 LTR @06,@06 0076 00044000 BNZ @RF00076 0076 00045000 * DO; /* NO, SEARCH CURRENT LFQ 0077 00046000 * @ZA29043*/ 00047000 * ASCBPTR=0; /* NO ASCB FOR CURRENT LFQ 0078 00048000 * @ZA16816*/ 00049000 SLR ASCBPTR,ASCBPTR 0078 00050000 * RBN=RSMLFQF; /* GET 1ST PFTE RBN ON CUR LFQ 0079 00051000 * @ZA16816*/ 00052000 LH RBN,RSMLFQF(,RSMHDPTR) 0079 00053000 N RBN,@CF01844 0079 00054000 * CALL QSCAN; /* SEARCH THE CURRENT LFQ 0080 00055000 * @ZA16816*/ 00056000 BAL @14,QSCAN 0080 00057000 * END; /* @ZA29043*/ 00058000 * ELSE /* WE ARE IN TRAS MODE @ZA29043*/ 00059000 * REG15=4; /* ENSURE WE SEARCH CFQ @ZA29043*/ 00060000 B @RC00076 0082 00061000 @RF00076 LA REG15,4 0082 00062000 * IF REG15^=0 THEN /* IF A FRAME WAS NOT FOUND, 0083 00063000 * @ZA16816*/ 00064000 @RC00076 LTR REG15,REG15 0083 00065000 BZ @RF00083 0083 00066000 * DO; /* CONTINUE THE SEARCH @ZA16816*/ 00067000 */* *****************************************************************/ 00068000 */* */ 00069000 */* SEARCH THE COMMON FRAME QUEUE SECOND @ZA16816*/ 00070000 */* */ 00071000 */* NOTE WELL........... @ZA29043*/ 00072000 */* */ 00073000 */* THE VIRTUAL ADDRESS OF THE SEGMENT TABLE MUST BE @ZA29043*/ 00074000 */* IDENTICAL FOR ALL ADDRESS SPACES. IF THEY ARE @ZA29043*/ 00075000 */* NOT, UNPREDICTABLE RESULTS MAY OCCUR WHEN THE @ZA29043*/ 00076000 */* SYSTEM IS IN TRAS MODE. @ZA29043*/ 00077000 */* *****************************************************************/ 00078000 * 0085 00079000 * RBN=PVTCFQF; /* GET 1ST PFTE RBN ON CFQ 0085 00080000 * @ZA16816*/ 00081000 LH RBN,PVTCFQF(,PVTPTR) 0085 00082000 N RBN,@CF01844 0085 00083000 * CALL QSCAN; /* SEARCH THE CFQ @ZA16816*/ 00084000 BAL @14,QSCAN 0086 00085000 * IF REG15^=0 /* IF A FRAME NOT FOUND, @ZA16816*/ 00086000 * &LCCAASID=0 THEN /* AND NOT IN TRAS MODE, @ZA29043*/ 00087000 SLR @14,@14 0087 00088000 CR REG15,@14 0087 00089000 BE @RF00087 0087 00090000 L @06,LCCAPTR 0087 00091000 CL @14,LCCAASID(,@06) 0087 00092000 BNE @RF00087 0087 00093000 * DO; /* CONTINUE THE SEARCH @ZA16816*/ 00094000 * RESPECIFY 0089 00095000 * (REG0) RSTD; /* @ZA16816*/ 00096000 * 0089 00097000 * /*****************************************************/ 00098000 * /* */ 00099000 * /* SEARCH ALL FOREIGN LOCAL FRAME QUEUES 3RD @ZA16816*/ 00100000 * /* IF NOT IN TRAS MODE. @ZA29043*/ 00101000 * /* */ 00102000 * /*****************************************************/ 00103000 * 0090 00104000 * REG0=BASEREG; /* SAVE BASE REGISTER @ZA16816*/ 00105000 LR REG0,BASEREG 0090 00106000 * RFY 0091 00107000 * (REG13) RSTD; /* @ZA28519*/ 00108000 * GENERATE REFS(PSALITA,PSA,PSACPULA,PSAHLHI); 0092 00109000 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND,RELATED=(PREF) 00110000 * BASEREG=REG0; /* RESTORE BASE REGISTER @ZA16816*/ 00111000 LR BASEREG,REG0 0093 00112000 * IF REG13=0 THEN /* DISP LOCK OBTAINED ? @ZA28519*/ 00113000 LTR REG13,REG13 0094 00114000 BNZ @RF00094 0094 00115000 * RCADISP='1'B; /* YES, NOTE NEED FOR RELEASE 0095 00116000 * @ZA28519*/ 00117000 L @01,RCAPTR(,PVTPTR) 0095 00118000 OI RCADISP(@01),B'00000010' 0095 00119000 * RFY 0096 00120000 * (REG13) UNRSTD; /* @ZA28519*/ 00121000 @RF00094 DS 0H 0097 00122000 * ASCBPTR=CVTASCBH; /* GET 1ST ASCB ON READY QUEUE 0097 00123000 * @ZA16816*/ 00124000 L @06,CVTPTR 0097 00125000 L ASCBPTR,CVTASCBH(,@06) 0097 00126000 * RESPECIFY 0098 00127000 * (REG15) RSTD; /* @ZA16816*/ 00128000 * DO UNTIL REG15=0; /* SEARCH UNTIL HIT OR END OF 0099 00129000 * ASCBS @ZA16816*/ 00130000 @DL00099 DS 0H 0100 00131000 * IF ASCBPTR=0 THEN /* IF NO MORE ASCBS THEN @ZA16816*/ 00132000 LTR ASCBPTR,ASCBPTR 0100 00133000 BNZ @RF00100 0100 00134000 * REG15=0; /* CLEAR R15 TO EXIT LOOP 0101 00135000 * @ZA16816*/ 00136000 SLR REG15,REG15 0101 00137000 * ELSE /* IF ANOTHER ASCB THEN @ZA16816*/ 00138000 * DO; /* SCAN ITS LOCAL FRAME QUEUE 0102 00139000 * @ZA16816*/ 00140000 B @RC00100 0102 00141000 @RF00100 DS 0H 0103 00142000 * RBN=ASCBPTR->ASCBRSM->RSMLFQF;/* @ZA16816*/ 00143000 L @01,ASCBRSM(,ASCBPTR) 0103 00144000 LH RBN,RSMLFQF(,@01) 0103 00145000 N RBN,@CF01844 0103 00146000 * CALL QSCAN; /* SEARCH THE LFQ @ZA16816*/ 00147000 BAL @14,QSCAN 0104 00148000 * ASCBPTR=ASCBFWDP;/* GET NEXT ASCB ON RETRY QUE 00149000 * @ZA16816*/ 00150000 L ASCBPTR,ASCBFWDP(,ASCBPTR) 0105 00151000 * END; /* @ZA16816*/ 00152000 * END; /* @ZA16816*/ 00153000 @RC00100 DS 0H 0107 00154000 @DE00099 LTR REG15,REG15 0107 00155000 BNZ @DL00099 0107 00156000 * RESPECIFY 0108 00157000 * (REG15) UNRSTD; /* @ZA16816*/ 00158000 * IF RCADISP='1'B THEN/* RELEASE DISP LOCK? @ZA28519*/ 00159000 L @01,RCAPTR(,PVTPTR) 0109 00160000 TM RCADISP(@01),B'00000010' 0109 00161000 BNO @RF00109 0109 00162000 * DO; /* YES @ZA28519*/ 00163000 * REG0=BASEREG; /* SAVE BASE REGISTER @ZA16816*/ 00164000 LR REG0,BASEREG 0111 00165000 * GENERATE REFS(PSALITA,PSA,PSACPULA,PSAHLHI); 0112 00166000 SETLOCK RELEASE,TYPE=DISP,RELATED=(PREF) 00167000 * BASEREG=REG0; /* RESTORE BASE REGISTER @ZA16816*/ 00168000 LR BASEREG,REG0 0113 00169000 * RCADISP='0'B; /* NOTE DISP LOCK RELEASED 0114 00170000 * @ZA28519*/ 00171000 L @01,RCAPTR(,PVTPTR) 0114 00172000 NI RCADISP(@01),B'11111101' 0114 00173000 * END; /* END RELEASE OF DISP LOCK 0115 00174000 * @ZA28519*/ 00175000 * RESPECIFY 0116 00176000 * (REG0) UNRSTD; /* @ZA16816*/ 00177000 @RF00109 DS 0H 0117 00178000 * IF RC^=0& /* IF STILL NO PFTE FOUND 0117 00179000 * @ZA16816*/ 00180000 * PVTRSBQF^=0 THEN/* AND RSB Q NOT EMPTY, @ZA16816*/ 00181000 CLI RC(PVTPTR),0 0117 00182000 BE @RF00117 0117 00183000 LH @06,PVTRSBQF(,PVTPTR) 0117 00184000 N @06,@CF01844 0117 00185000 LTR @06,@06 0117 00186000 BZ @RF00117 0117 00187000 * DO; /* THEN TRY THE RSB QUEUE 0118 00188000 * @ZA16816*/ 00189000 * 0118 00190000 * /*************************************************/ 00191000 * /* */ 00192000 * /* SEARCH REAL STORAGE BUFFER QUEUE FOURTH */ 00193000 * /* @ZA16816*/ 00194000 * /* */ 00195000 * /*************************************************/ 00196000 * 0119 00197000 * RESPECIFY 0119 00198000 * (REG1) RSTD; /* @ZA16816*/ 00199000 * REG1=PASS; /* GET PASS NO FOR PRSB @ZA16816*/ 00200000 LR REG1,PASS 0120 00201000 * CALL IEAVPRSS; /* TRY TO STEAL A FRAME @ZA16816*/ 00202000 L @15,@CV01797 0121 00203000 BALR @14,@15 0121 00204000 * RESPECIFY 0122 00205000 * (REG1) UNRSTD; /* @ZA16816*/ 00206000 * RESPECIFY 0123 00207000 * (REG15) RSTD; /* @ZA16816*/ 00208000 * IF REG15^=0 THEN/* IF SUCCESSFUL @ZA16816*/ 00209000 LTR REG15,REG15 0124 00210000 BZ @RF00124 0124 00211000 * DO; /* THEN @ZA16816*/ 00212000 * SAVER0=REG15;/* SAVE ADDRESS OF PFTE @ZA16816*/ 00213000 ST REG15,SAVER0(,PVTPTR) 0126 00214000 * RC=0; /* SET FINAL RC TO ZERO @ZA16816*/ 00215000 MVI RC(PVTPTR),X'00' 0127 00216000 * REG15->PFTSTEAL='0'B;/* INITIALIZE FLAG 0128 00217000 * @ZA16816*/ 00218000 NI PFTSTEAL(REG15),B'11110111' 0128 00219000 * REG15->PFTUIC=0;/* INITIALIZE UIC @ZA16816*/ 00220000 MVI PFTUIC(REG15),X'00' 0129 00221000 * END; /* @ZA16816*/ 00222000 * RESPECIFY 0131 00223000 * (REG15) UNRSTD;/* @ZA16816*/ 00224000 @RF00124 DS 0H 0132 00225000 * END; /* END RSB QUEUE PROCESS @ZA16816*/ 00226000 * END; /* END FOREIGN LFQ SEARCH 0133 00227000 * @ZA16816*/ 00228000 @RF00117 DS 0H 0134 00229000 * END; /* END CFQ SEARCH @ZA16816*/ 00230000 @RF00087 DS 0H 0135 00231000 * RESPECIFY 0135 00232000 * (FRAMEPTR, 0135 00233000 * ASCBPTR) UNRSTD; /* @ZA16816*/ 00234000 * 0135 00235000 @RF00083 DS 0H 0136 00236000 * /*************************************************************/ 00237000 * /* */ 00238000 * /* AT THIS POINT, PREF HAS (1) FOUND THE DESIRED FRAME- */ 00239000 * /* (SAVER15=0 AND SAVER0=PFTE ADDR) OR (2) IF PASS 1, FOUND */ 00240000 * /* CHANGED PREFERRED FRAME - (SAVER15=8 AND SAVER0=PFTE ADDR)*/ 00241000 * /* OR (3) NOT FOUND A SUITABLE FRAME - (SAVER15=4) @ZA16816*/ 00242000 * /* */ 00243000 * /*************************************************************/ 00244000 * 0136 00245000 * IF PASS=3&RC=4 THEN /* NO LUCK ON PASS 3 THEN 0136 00246000 * @ZA16816*/ 00247000 C PASS,@CF00187 0136 00248000 BNE @RF00136 0136 00249000 CLI RC(PVTPTR),4 0136 00250000 BNE @RF00136 0136 00251000 * DO; /* RESTART SEARCH (PASS=4) 0137 00252000 * @ZA16816*/ 00253000 * PASS=4; /* LOOKING FOR A V=R @ZA16816*/ 00254000 LA PASS,4 0138 00255000 * GOTO START; /* INTERCEPTED FRAME @ZA16816*/ 00256000 B START 0139 00257000 * END; /* @ZA16816*/ 00258000 * IF PASS=4&RC=0 THEN /* IF SUCCESS ON PASS 4, @ZA16816*/ 00259000 @RF00136 C PASS,@CF00085 0141 00260000 BNE @RF00141 0141 00261000 CLI RC(PVTPTR),0 0141 00262000 BNE @RF00141 0141 00263000 * DO; /* CANCEL THE V=R JOB @ZA16816*/ 00264000 * 0142 00265000 * /*********************************************************/ 00266000 * /* */ 00267000 * /* SCAN THE PCBR V=R WAIT QUEUE IN SEARCH OF THE PCBR */ 00268000 * /* WAITING FOR THE STOLEN V=R INTERCEPTED FRAME. WHEN */ 00269000 * /* FOUND, CALL IEAVEQRI TO CANCEL THE ASSOCIATED V=R JOB.*/ 00270000 * /* @ZA16816*/ 00271000 * /* */ 00272000 * /*********************************************************/ 00273000 * 0143 00274000 * RESPECIFY 0143 00275000 * (PCBRPTR) RSTD; /* @ZA16816*/ 00276000 * PCBRPTR=PVTVROOT; /* GET 1ST V=R PCBR @ZA16816*/ 00277000 L PCBRPTR,PVTVROOT(,PVTPTR) 0144 00278000 * RBN=SAVER0-PVTPFTP; /* GET RBN SEARCH ARGUMENT 0145 00279000 * @ZA16816*/ 00280000 L RBN,SAVER0(,PVTPTR) 0145 00281000 SL RBN,PVTPFTP(,PVTPTR) 0145 00282000 *PCBRLOOP: /* @ZA16816*/ 00283000 * IF PCBRPTR=0 THEN /* IF ZERO, AN ERROR - @ZA16816*/ 00284000 PCBRLOOP LTR PCBRPTR,PCBRPTR 0146 00285000 BNZ @RF00146 0146 00286000 * DO; /* RECORD ERROR @ZA16816*/ 00287000 * RCARCRD='08'X; /* SET REASON CODE @ZA16816*/ 00288000 L @06,RCAPTR(,PVTPTR) 0148 00289000 MVI RCARCRD(@06),X'08' 0148 00290000 * GENERATE; 0149 00291000 ABEND X'C0D',,,SYSTEM ABEND CODE 00292000 * SAVER0->PFTVRINT='0'B;/* CLEAR INTERCEPT FLAG 0150 00293000 * @ZA16816*/ 00294000 L @06,SAVER0(,PVTPTR) 0150 00295000 NI PFTVRINT(@06),B'10111111' 0150 00296000 * END; /* @ZA16816*/ 00297000 * ELSE /* HAVE A PCBR TO LOOK AT 0152 00298000 * @ZA16816*/ 00299000 * 0152 00300000 * /*******************************************************/ 00301000 * /* */ 00302000 * /* DETERMINE IF THE STOLEN FRAME IS WITHIN THE REGION */ 00303000 * /* DEFINED BY THIS ROOT PCB. PCBRWRK1 AND PCBRWRK2 */ 00304000 * /* CONTAIN THE START AND END RBNS OF THE V=R REGION */ 00305000 * /* REPRESENTED BY THIS ROOT PCB. @ZA16816*/ 00306000 * /* */ 00307000 * /*******************************************************/ 00308000 * 0152 00309000 * IF RBN^PCBRWRK2 THEN/* ROOT PCBR IS FOUND @ZA16816*/ 00311000 B @RC00146 0152 00312000 @RF00146 C RBN,PCBRWRK1(,PCBRPTR) 0152 00313000 BL @RF00152 0152 00314000 C RBN,PCBRWRK2(,PCBRPTR) 0152 00315000 BH @RF00152 0152 00316000 * DO; /* CANCEL THE V=R JOB @ZA16816*/ 00317000 * PCBRFAIL='1'B; /* SET CANCEL FLAG @ZA16816*/ 00318000 OI PCBRFAIL(PCBRPTR),B'00001000' 0154 00319000 * IF PCBRINT='0'B THEN/* IF NOT PREVIOUSLY @ZA16816*/ 00320000 TM PCBRINT(PCBRPTR),B'10000000' 0155 00321000 BNZ @RF00155 0155 00322000 * DO; /* TERMINATED, CALL EQRI @ZA16816*/ 00323000 * RESPECIFY 0157 00324000 * (REG1, 0157 00325000 * REG6) RSTD; /* @ZA16816*/ 00326000 * REG1=RBN; /* R1=RBN FOR IEAVEQRI @ZA16816*/ 00327000 LR REG1,RBN 0158 00328000 * REG6=SAVER0; /* R6=PFTE ADDR FOR EQRI @ZA16816*/ 00329000 L REG6,SAVER0(,PVTPTR) 0159 00330000 * CALL IEAVEQRI;/* CANCEL THE V=R JOB @ZA16816*/ 00331000 L @15,PVTPVRIN(,PVTPTR) 0160 00332000 BALR @14,@15 0160 00333000 * RESPECIFY 0161 00334000 * (REG1, 0161 00335000 * REG6) UNRSTD;/* @ZA16816*/ 00336000 * END; /* @ZA16816*/ 00337000 * END; /* @ZA16816*/ 00338000 * ELSE /* HERE IF WRONG PCBR @ZA16816*/ 00339000 * DO; /* @ZA16816*/ 00340000 B @RC00152 0164 00341000 @RF00152 DS 0H 0165 00342000 * PCBRPTR=PCBRWRK3; /* GET THE NEXT PCBR @ZA16816*/ 00343000 L PCBRPTR,PCBRWRK3(,PCBRPTR) 0165 00344000 * GOTO PCBRLOOP; /* GO CHECK ITS RANGE @ZA16816*/ 00345000 B PCBRLOOP 0166 00346000 * END; /* @ZA16816*/ 00347000 * END; /* @ZA16816*/ 00348000 * END; /* END OF STEAL OPTION @ZA16816*/ 00349000 * ELSE /* WANT TO CONVERT A UNIT TO 0170 00350000 * PREFERRED */ 00351000 * DO; /* DO THE CONVERSION */ 00352000 B @RC00069 0170 00353000 @RF00069 DS 0H 0171 00354000 * RESPECIFY 0171 00355000 * (MASK) RSTD; 0171 00356000 * MASK=((PVTRSUS-1)&&ALLFOXES)*16;/* CONVERT THE # OF FRAMES IN 00357000 * A STORAGE UNIT TO A MASK TO BE 00358000 * USED TO ROUND A RBN TO A BOX 00359000 * BOUNDARY */ 00360000 LH @06,PVTRSUS(,PVTPTR) 0172 00361000 N @06,@CF01844 0172 00362000 BCTR @06,0 0172 00363000 LR MASK,@06 0172 00364000 X MASK,@CF01805 0172 00365000 SLL MASK,4 0172 00366000 * RBN=RBN&MASK; /* ROUND THE INPUT RBN TO A LOWER 00367000 * BOX BOUNDARY */ 00368000 NR RBN,MASK 0173 00369000 * RFY 0174 00370000 * (MASK) UNRSTD; 0174 00371000 * RFY 0175 00372000 * (ENDPFTE, 0175 00373000 * PFTEPTR) RSTD; 0175 00374000 * ENDPFTE=PVTPFTP+(RBN+((PVTRSUS-1)*LENGTH(PFTE)));/* GET END 00375000 * OF LOOP. IS THE HIGHEST PFTE 00376000 * IN A STORAGE UNIT */ 00377000 L @05,PVTPFTP(,PVTPTR) 0176 00378000 SLA @06,4 0176 00379000 ALR @06,RBN 0176 00380000 ALR @06,@05 0176 00381000 LR ENDPFTE,@06 0176 00382000 * DO PFTEPTR=PVTPFTP+RBN TO ENDPFTE BY LENGTH(PFTE);/* PROCESS 00383000 * EACH PFTE IN THE STORAGE BOX */ 00384000 ALR @05,RBN 0177 00385000 LR PFTEPTR,@05 0177 00386000 B @DE00177 0177 00387000 @DL00177 DS 0H 0178 00388000 * IF PFTVR='0'B THEN /* IF NOT A V=R FRAME, @ZA16816*/ 00389000 TM PFTVR(PFTEPTR),B'00100000' 0178 00390000 BNZ @RF00178 0178 00391000 * PFTPREF='1'B; /* INDICATE PFTE IS PREFERRED */ 00392000 OI PFTPREF(PFTEPTR),B'00000100' 0179 00393000 * END; 0180 00394000 @RF00178 AL PFTEPTR,@CF00060 0180 00395000 @DE00177 CR PFTEPTR,ENDPFTE 0180 00396000 BNH @DL00177 0180 00397000 * RFY 0181 00398000 * (PFTEPTR, 0181 00399000 * ENDPFTE) UNRSTD; 0181 00400000 * PVTPMSG='1'B; /* INDICATE MSG ISSUED @ZA16816*/ 00401000 OI PVTPMSG(PVTPTR),B'10000000' 0182 00402000 * RFY 0183 00403000 * (MSGPTR, 0183 00404000 * MSGLEN) RSTD; 0183 00405000 * MSGPTR=ADDR(PREFMSG); /* GET ADDR OF THE MSG */ 00406000 LA MSGPTR,PREFMSG 0184 00407000 * MSGLEN=LENGTH(PREFMSG); /* GET MSG LENGTH */ 00408000 LA MSGLEN,4 0185 00409000 * RFY 0186 00410000 * (REG13) RSTD; 0186 00411000 * REG13=ADDR(PVTWSA14); /* PASS AN UNUSED SAVE AREA */ 00412000 LA REG13,PVTWSA14(,PVTPTR) 0187 00413000 * GEN CODE; 0188 00414000 * 0188 00415000 * /*ISSUE CONVERSION MESSAGE*/ 00416000 RECORD TYPE=WTO,RCVRY=SETFRR,DATAADR=(MSGPTR),BUFFER=NO,LENGTHH00417000 =(MSGLEN) 00418000 * /*************************************************************/ 00419000 * /* */ 00420000 * /* DO NOT BOTHER TO CHECK RETURN CODE. IF BAD R.C., THERE IS */ 00421000 * /* NOTHING THAT CAN BE DONE BECAUSE LOGREC IS NOT AVAILABLE */ 00422000 * /* TO RECORD AN ERROR. */ 00423000 * /* */ 00424000 * /*************************************************************/ 00425000 * 0189 00426000 * RFY 0189 00427000 * (MSGPTR, 0189 00428000 * MSGLEN, 0189 00429000 * REG13) UNRSTD; 0189 00430000 * END; /* END OF CONVERT OPTION @ZA16816*/ 00431000 * GENERATE CODE; 0191 00432000 @RC00069 DS 0H 0191 00433000 LM REG0,REG15,MYSAVE(PVTPTR) 00434000 BR REG14 RETURN TO CALLER 00435000 * 0192 00436000 */* ******************************************************************/ 00437000 */* */ 00438000 */* QSCAN SUBROUTINE - USED BY THE STEAL OPTION */ 00439000 */* */ 00440000 */* FUNCTION - QSCAN WILL SCAN THE PFTE'S OF A GIVEN */ 00441000 */* PFTE QUEUE IN SEARCH OF A STEALABLE */ 00442000 */* FRAME THAT MEETS THE INPUT PASS CRITERIA*/ 00443000 */* */ 00444000 */* INPUT- RBN = RBN OF 1ST PFTE ON A QUEUE */ 00445000 */* PASS = PASS NUMBER */ 00446000 */* PVTPTR = ADDRESS OF PVT */ 00447000 */* RSMHDPTR = CURRENT ADDRESS SPACE RSMHD */ 00448000 */* ADDRESS */ 00449000 */* ASCBPTR = ASCB PTR IF FOREIGN LFQ-ELSE 0 */ 00450000 */* REG14 = RETURN ADDRESS */ 00451000 */* */ 00452000 */* OUTPUT- (1) IF DESIRED PFTE FOUND */ 00453000 */* A. REG15=0 */ 00454000 */* B. SAVER0=ADDRESS OF PFTE */ 00455000 */* C. SAVER15=0 */ 00456000 */* (2) IF PASS=1 AND CHANGED PREF PFTE FOUND */ 00457000 */* A. REG15=4 */ 00458000 */* B. SAVER0=ADDRESS OF PFTE */ 00459000 */* C. SAVER1=0 (IF CURRENT LFQ OR */ 00460000 */* CFQ) OR */ 00461000 */* SAVER1=ASCB ADDR */ 00462000 */* D. SAVER15=8 */ 00463000 */* (3) IF NO ACCEPTABLE PFTE FOUND */ 00464000 */* A. REG15=4 */ 00465000 */* B. SAVER15=AS ON INPUT */ 00466000 */* @ZA16816*/ 00467000 */* ******************************************************************/ 00468000 * 0192 00469000 *QSCAN: 0192 00470000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0192 00471000 QSCAN DS 0H 0193 00472000 * RESPECIFY 0193 00473000 * (REG6, 0193 00474000 * FRAMEPTR, 0193 00475000 * PASS, 0193 00476000 * ASCBPTR, 0193 00477000 * REG14) RSTD; /* @ZA16816*/ 00478000 * REG6=REG14; /* SAVE RETURN ADDRESS @ZA16816*/ 00479000 LR REG6,REG14 0194 00480000 * RESPECIFY 0195 00481000 * (REG14) UNRSTD; /* @ZA16816*/ 00482000 * RESPECIFY 0196 00483000 * (REG15) RSTD; /* @ZA16816*/ 00484000 * REG15=4; /* INITIALIZE TO RC=4 @ZA16816*/ 00485000 LA REG15,4 0197 00486000 * DO WHILE RBN^=0; /* EXAMINE EACH PFTE ON Q 0198 00487000 * @ZA16816*/ 00488000 B @DE00198 0198 00489000 @DL00198 DS 0H 0199 00490000 * FRAMEPTR=PVTPFTP+RBN; /* GET PFTE ADDRESS @ZA16816*/ 00491000 * 0199 00492000 L @14,PVTPFTP(,PVTPTR) 0199 00493000 LR @11,RBN 0199 00494000 ALR @11,@14 0199 00495000 LR FRAMEPTR,@11 0199 00496000 * /***************************************************************/ 00497000 * /* */ 00498000 * /* A PFTE IS STEALABLE IF IT IS (1) NOT FIXED, (2) NOT */ 00499000 * /* ASSOCIATED WITH ANY PCB, (3) NOT ALLOCATED TO A V=R JOB, (4)*/ 00500000 * /* NOT DEFERRED RELEASED, (5) NOT A BAD PAGE, AND (6) NOT */ 00501000 * /* OFFLINE INTERCEPTED @ZA16816*/ 00502000 * /* */ 00503000 * /***************************************************************/ 00504000 * 0200 00505000 * RESPECIFY 0200 00506000 * PFTE BASED(FRAMEPTR); /* @ZA16816*/ 00507000 * IF PFTFXCT=0& /* FIRST CHECK TO SEE IF @ZA16816*/ 00508000 * PFTPCBSI='0'B& /* THE PFTE IS STEALABLE @ZA16816*/ 00509000 * PFTVRALC='0'B& /* @ZA16816*/ 00510000 * PFTOFINT='0'B& /* IF STEALABLE, THEN @ZA16816*/ 00511000 * PFTBADPG='0'B& /* @ZA16816*/ 00512000 * PFTDFRLS='0'B THEN /* @ZA16816*/ 00513000 LH @11,PFTFXCT(,FRAMEPTR) 0201 00514000 LTR @11,@11 0201 00515000 BNZ @RF00201 0201 00516000 TM PFTPCBSI(FRAMEPTR),B'00001111' 0201 00517000 BNZ @RF00201 0201 00518000 TM PFTDFRLS(FRAMEPTR),B'10000000' 0201 00519000 BNZ @RF00201 0201 00520000 * DO; /* DO FURTHER CHECKS @ZA16816*/ 00521000 * IF PFTIRRG='0'B THEN /* IF NOT AN IRRG FRAME, @ZA16816*/ 00522000 TM PFTIRRG(FRAMEPTR),B'00010000' 0203 00523000 BNZ @RF00203 0203 00524000 * DO; /* ENSURE PAGE IS UNCHNGD 0204 00525000 * @ZA16816*/ 00526000 * RESPECIFY 0205 00527000 * (REG0, 0205 00528000 * REG1) RSTD; /* @ZA16816*/ 00529000 * REG1=256*(FRAMEPTR-PVTPFTP);/* R1 =RSA 1ST 2K @ZA16816*/ 00530000 LCR @14,@14 0206 00531000 ALR @14,FRAMEPTR 0206 00532000 SLA @14,8 0206 00533000 LR REG1,@14 0206 00534000 * GENERATE CODE REFS(CHBITMSK); 0207 00535000 ISK REG0,REG1 GET STG KEY FOR 1ST 2K 00536000 N REG0,CHBITMSK ISOLATE THE CHANGE BIT - FIRST 2K 00537000 BNZ PREFTST1 TO PREFTST1 IF BLOCK CHANGED 00538000 LA REG1,2048(REG1) R1 =RSA OF 2ND 2K 00539000 ISK REG0,REG1 GET STG KEY FOR 2ND 2K - SECOND 2K 00540000 N REG0,CHBITMSK ISOLATE THE CHANGE BIT 00541000 BZ PREFTST2 TO PREFTST2 IF NOT CHANGED 00542000 * RESPECIFY 0208 00543000 * (REG0, 0208 00544000 * REG1) UNRSTD; 0208 00545000 *PREFTST1: /* HERE IF CHANGED PAGE @ZA16816*/ 00546000 * IF PFTPREF='1'B& /* SAVE THE PFTE IF IT IS 0209 00547000 * @ZA16816*/ 00548000 * RC=4& /* A PREF, PASS=1, @ZA16816*/ 00549000 * PASS=1& /* NONE SAVED PREVIOUSLY, 0209 00550000 * @ZA16816*/ 00551000 * PVTRSMGM='0'B THEN/* AND NOT RSM GETMAIN @ZA16816*/ 00552000 PREFTST1 TM PFTPREF(FRAMEPTR),B'00000100' 0209 00553000 BNO @RF00209 0209 00554000 CLI RC(PVTPTR),4 0209 00555000 BNE @RF00209 0209 00556000 C PASS,@CF00038 0209 00557000 BNE @RF00209 0209 00558000 TM PVTRSMGM(PVTPTR),B'10000000' 0209 00559000 BNZ @RF00209 0209 00560000 * DO; /* @ZA16816*/ 00561000 * SAVER0=FRAMEPTR; /* SAVE PFTE PTR @ZA16816*/ 00562000 ST FRAMEPTR,SAVER0(,PVTPTR) 0211 00563000 * SAVER1=ASCBPTR; /* SAVE ASCB ADDRESS @ZA16816*/ 00564000 ST ASCBPTR,SAVER1(,PVTPTR) 0212 00565000 * RC=8; /* SET FOR RC=8 @ZA16816*/ 00566000 MVI RC(PVTPTR),X'08' 0213 00567000 * END; /* @ZA16816*/ 00568000 * RBN=PFTFQPTR; /* GET NEXT PFTE RBN AND @ZA16816*/ 00569000 @RF00209 LH @14,PFTFQPTR(,FRAMEPTR) 0215 00570000 N @14,@CF01844 0215 00571000 LR RBN,@14 0215 00572000 * GOTO LOOPEND; /* CONTINUE THE SEARCH @ZA16816*/ 00573000 B LOOPEND 0216 00574000 * END; /* @ZA16816*/ 00575000 *PREFTST2: /* HERE IF PAGE UNCHANGED 0218 00576000 * @ZA16816*/ 00577000 * 0218 00578000 * /***********************************************************/ 00579000 * /* */ 00580000 * /* NOW HAVE A STEALABLE FRAME BACKING AN UNCHANGED PAGE. IT*/ 00581000 * /* IS ACCEPTABLE IF (1) IT IS A PREFERRED FRAME, OR (2) */ 00582000 * /* PASS=2,3 OR 4 AND THE FRAME IS NON-V=R, OR (3) IT IS */ 00583000 * /* PASS 3 OR 4 AND THE FRAME IS NOT V=R INTERCEPTED, OR (4)*/ 00584000 * /* IT IS PASS 4. @ZA16816*/ 00585000 * /* */ 00586000 * /***********************************************************/ 00587000 * 0218 00588000 * IF PFTPREF='1'B| /* @ZA16816*/ 00589000 * (PASS>1&(PFTVR='0'B| /* @ZA16816*/ 00590000 * (PASS>2&(PFTVRINT='0'B|/* @ZA16816*/ 00591000 * PASS=4)))) THEN /* IF ACCEPTABLE FRAME @ZA16816*/ 00592000 @RF00203 DS 0H 0218 00593000 PREFTST2 TM PFTPREF(FRAMEPTR),B'00000100' 0218 00594000 BO @RT00218 0218 00595000 C PASS,@CF00038 0218 00596000 BNH @RF00218 0218 00597000 TM PFTVR(FRAMEPTR),B'00100000' 0218 00598000 BZ @RT00218 0218 00599000 C PASS,@CF00217 0218 00600000 BNH @RF00218 0218 00601000 TM PFTVRINT(FRAMEPTR),B'01000000' 0218 00602000 BZ @RT00218 0218 00603000 C PASS,@CF00085 0218 00604000 BNE @RF00218 0218 00605000 @RT00218 DS 0H 0219 00606000 * DO; /* TRY TO STEAL IT @ZA16816*/ 00607000 * IF PFTIRRG='1'B THEN /* IF AN IRRG FRAME THEN @ZA16816*/ 00608000 TM PFTIRRG(FRAMEPTR),B'00010000' 0220 00609000 BNO @RF00220 0220 00610000 * DO; /* STEAL IT DIRECTLY @ZA16816*/ 00611000 * IF ASCBPTR^=0 THEN/* IF THERE IS AN ASCB, @ZA16816*/ 00612000 LTR ASCBPTR,ASCBPTR 0222 00613000 BZ @RF00222 0222 00614000 * DO; /* DEQUEUE THE PFTE NOW @ZA16816*/ 00615000 * RESPECIFY 0224 00616000 * (REG0) RSTD; /* @ZA16816*/ 00617000 * REG0=FRAMEPTR-PVTPFTP;/* GET RBN @ZA16816*/ 00618000 LR REG0,FRAMEPTR 0225 00619000 SL REG0,PVTPFTP(,PVTPTR) 0225 00620000 * REG0=REG0|(65536*PFTNQN);/* INDICATE DEQ 0226 00621000 * @ZA16816*/ 00622000 O REG0,@CF01839 0226 00623000 * RSMHDPTR=ASCBRSM;/* FROM RSMHD @ZA16816*/ 00624000 L RSMHDPTR,ASCBRSM(,ASCBPTR) 0227 00625000 * CALL IEAVPFTE;/* DEQ THE PFTE @ZA16816*/ 00626000 L @15,PVTPFTE(,PVTPTR) 0228 00627000 BALR @14,@15 0228 00628000 * RSMHDPTR=PSAAOLD->ASCBRSM;/* RESTORE RSMHD 0229 00629000 * @ZA16816*/ 00630000 L @14,PSAAOLD 0229 00631000 L RSMHDPTR,ASCBRSM(,@14) 0229 00632000 * RESPECIFY 0230 00633000 * (REG0) UNRSTD;/* @ZA16816*/ 00634000 * END; /* @ZA16816*/ 00635000 * 0231 00636000 * /***************************************************/ 00637000 * /* */ 00638000 * /* INITIALIZE THE PFTE (IRRG) FOR USE BY THE CALLER*/ 00639000 * /* AND INDICATE THAT THE PFTE WAS STOLEN. @ZA16816*/ 00640000 * /* */ 00641000 * /***************************************************/ 00642000 * 0232 00643000 * PFTIRRG='0'B; /* CLEAR IRRG FLAG @ZA16816*/ 00644000 @RF00222 DS 0H 0233 00645000 * PFTSTEAL='0'B; /* CLEAR STEAL FLAG @ZA16816*/ 00646000 NI PFTIRRG(FRAMEPTR),B'11100111' 0233 00647000 * PFTUIC=0; /* INITIALIZE UIC @ZA16816*/ 00648000 MVI PFTUIC(FRAMEPTR),X'00' 0234 00649000 * SAVER0=FRAMEPTR; /* SAVE PTR TO PFTE @ZA16816*/ 00650000 ST FRAMEPTR,SAVER0(,PVTPTR) 0235 00651000 * RC=0; /* SET FINAL RC=0 @ZA16816*/ 00652000 MVI RC(PVTPTR),X'00' 0236 00653000 * RBN=0; /* KILL DO WHILE LOOP @ZA16816*/ 00654000 SLR RBN,RBN 0237 00655000 * REG15=0; /* SET QSCAN RC TO 0 @ZA16816*/ 00656000 SLR REG15,REG15 0238 00657000 * END; /* END OF IRRG PROCESSING 0239 00658000 * @ZA16816*/ 00659000 * ELSE /* IF FRAME NOT IRRG THEN 0240 00660000 * @ZA16816*/ 00661000 * DO; /* TRY TO STEAL IT. @ZA16816*/ 00662000 B @RC00220 0240 00663000 @RF00220 DS 0H 0241 00664000 * RESPECIFY 0241 00665000 * (REG0, 0241 00666000 * REG1) RSTD; /* @ZA16816*/ 00667000 * REG1=PFTVBN*256; /* R1=VSA FOR FINDPAGE @ZA16816*/ 00668000 LH REG1,PFTVBN(,FRAMEPTR) 0242 00669000 N REG1,@CF01844 0242 00670000 SLA REG1,8 0242 00671000 * IF ASCBPTR^=0 THEN/* IF A FOREIGN LFQ, THEN 0243 00672000 * @ZA16816*/ 00673000 LTR ASCBPTR,ASCBPTR 0243 00674000 BZ @RF00243 0243 00675000 * DO; /* TRAS TO OTHER ADDR SP. 0244 00676000 * @ZA16816*/ 00677000 * PVTTASID=ASCBASID;/* SET TO ASID FOR RCV 0245 00678000 * @ZA16816*/ 00679000 MVC PVTTASID(2,PVTPTR),ASCBASID(ASCBPTR) 0245 00680000 * LCCAASID=ASCBASID;/* SET TO ASID FOR RTM 0246 00681000 * @ZA16816*/ 00682000 L @14,LCCAPTR 0246 00683000 XC LCCAASID+2(2,@14),LCCAASID+2(@14) 0246 00684000 MVC LCCAASID(2,@14),ASCBASID(ASCBPTR) 0246 00685000 * GENERATE CODE REFS(ASCBSTOR); 0247 00686000 LCTL 1,1,ASCBSTOR(ASCBPTR) -----TRAS ----- 00687000 * RSMHDPTR=ASCBRSM;/* GET RSMHD FOR FINDPAGE 0248 00688000 * @ZA16816*/ 00689000 L RSMHDPTR,ASCBRSM(,ASCBPTR) 0248 00690000 * END; /* @ZA16816*/ 00691000 * CALL IEAVFP2; /* INVALIDATE THE PAGE @ZA16816*/ 00692000 @RF00243 L @15,PVTPFP2(,PVTPTR) 0250 00693000 BALR @14,@15 0250 00694000 * RSMHDPTR=PSAAOLD->ASCBRSM;/* RESET RSMHD PTR 0251 00695000 * @ZA16816*/ 00696000 L @14,PSAAOLD 0251 00697000 L RSMHDPTR,ASCBRSM(,@14) 0251 00698000 * IF REG15^=0 THEN /* IF FINDPAGE FAILED, @ZA16816*/ 00699000 SLR @11,@11 0252 00700000 CR REG15,@11 0252 00701000 BE @RF00252 0252 00702000 * DO; /* C0D AND TRY NEXT PFTE @ZA16816*/ 00703000 * IF ASCBPTR^=0 THEN/* IF DID A TRAS, THEN 0254 00704000 * @ZA16816*/ 00705000 CR ASCBPTR,@11 0254 00706000 BE @RF00254 0254 00707000 * DO; /* TRAS BACK TO CURRENT @ZA16816*/ 00708000 * REG1=PSAAOLD;/* GET CURRENT ASCB @ZA16816*/ 00709000 LR REG1,@14 0256 00710000 * GENERATE CODE REFS(ASCBSTOR); 0257 00711000 LCTL 1,1,ASCBSTOR(REG1) -----TRAS BACK----- 00712000 * LCCAASID=0;/* CLEAR RTM TRAS IND. @ZA16816*/ 00713000 SLR @14,@14 0258 00714000 L @11,LCCAPTR 0258 00715000 ST @14,LCCAASID(,@11) 0258 00716000 * PVTTASID=0;/* CLEAR RCV TRAS IND. @ZA16816*/ 00717000 STH @14,PVTTASID(,PVTPTR) 0259 00718000 * END; /* @ZA16816*/ 00719000 * RCARCRD='01'X;/* SET REASON CODE @ZA16816*/ 00720000 @RF00254 L @14,RCAPTR(,PVTPTR) 0261 00721000 MVI RCARCRD(@14),X'01' 0261 00722000 * GEN NOFLOWS SETS(REG1)(ABEND X'C0D',,,SYSTEM); 00723000 ABEND X'C0D',,,SYSTEM 00724000 * RBN=PFTFQPTR; /* GET NEXT PFTE RBN @ZA16816*/ 00725000 LH @14,PFTFQPTR(,FRAMEPTR) 0263 00726000 N @14,@CF01844 0263 00727000 LR RBN,@14 0263 00728000 * REG15=4; /* INSURE RC STILL INITIALIZED 0264 00729000 * @ZA16816*/ 00730000 LA REG15,4 0264 00731000 * END; /* END FINDPAGE FAILURE @ZA16816*/ 00732000 * ELSE /* SUCCESSFUL FINDPAGE @ZA16816*/ 00733000 * DO; /* NOW INVALIDATE PAGE @ZA16816*/ 00734000 B @RC00252 0266 00735000 @RF00252 DS 0H 0267 00736000 * REG1=REG0; /* SET R1=PGTE ADDR @ZA16816*/ 00737000 LR REG1,REG0 0267 00738000 * CALL IEAVINV; /* INVALIDATE THE PAGE @ZA16816*/ 00739000 * 0268 00740000 L @15,PVTPINV(,PVTPTR) 0268 00741000 BALR @14,@15 0268 00742000 * /***********************************************/ 00743000 * /* */ 00744000 * /* PAGE IS INVALIDATED. NOW MUST RECHECK TO */ 00745000 * /* ENSURE PAGE IS STILL UNCHANGED. THIS IS */ 00746000 * /* NECESSARY IF MP @ZA16816*/ 00747000 * /* */ 00748000 * /***********************************************/ 00749000 * 0269 00750000 * REG15=256*(FRAMEPTR-PVTPFTP);/* RSA 1ST 2K 0269 00751000 * @ZA16816*/ 00752000 LR REG15,FRAMEPTR 0269 00753000 SL REG15,PVTPFTP(,PVTPTR) 0269 00754000 SLA REG15,8 0269 00755000 * GENERATE CODE REFS(CHBITMSK); 0270 00756000 ISK REG0,REG15 GET STG KEY FOR 1ST 2K BLOCK 00757000 N REG0,CHBITMSK ISOLATE THE CHANGE BIT - 1ST 2K 00758000 BNZ REVALID TO REVALID IF BLOCK CHANGED 00759000 LA REG15,2048(REG15) GET RSA OF 2ND 2K BLOCK 00760000 ISK REG0,REG15 GET STG KEY FOR 2ND 2K BLOCK 00761000 N REG0,CHBITMSK ISOLATE THE CHANGE BIT - 2ND 2K 00762000 BZ STOLEN TO STOLEN IF 2ND 2K UNCHANGED 00763000 *REVALID: 0271 00764000 * REG1->PGTPVM='0'B;/* REVALIDATE THE PAGE 0271 00765000 * @ZA16816*/ 00766000 REVALID NI PGTPVM(REG1),B'11110111' 0271 00767000 * IF ASCBPTR^=0 THEN/* IF DID A TRAS, THEN 0272 00768000 * @ZA16816*/ 00769000 LTR ASCBPTR,ASCBPTR 0272 00770000 BZ @RF00272 0272 00771000 * DO; /* TRAS BACK TO CURRENT @ZA16816*/ 00772000 * REG1=PSAAOLD;/* GET CURRENT ASCB @ZA16816*/ 00773000 L REG1,PSAAOLD 0274 00774000 * GENERATE CODE REFS(ASCBSTOR); 0275 00775000 LCTL 1,1,ASCBSTOR(REG1) -----TRAS BACK----- 00776000 * LCCAASID=0;/* CLEAR RTM TRAS IND. @ZA16816*/ 00777000 SLR @14,@14 0276 00778000 L @11,LCCAPTR 0276 00779000 ST @14,LCCAASID(,@11) 0276 00780000 * PVTTASID=0;/* CLEAR RCV TRAS IND. @ZA16816*/ 00781000 STH @14,PVTTASID(,PVTPTR) 0277 00782000 * END; 0278 00783000 * RBN=FRAMEPTR-PVTPFTP;/* RESTORE ORIGINAL RBN 0279 00784000 * @ZA16816*/ 00785000 @RF00272 LR @14,FRAMEPTR 0279 00786000 SL @14,PVTPFTP(,PVTPTR) 0279 00787000 LR RBN,@14 0279 00788000 * REG15=4; /* INSURE RC STILL INITIALIZED 0280 00789000 * @ZA16816*/ 00790000 LA REG15,4 0280 00791000 * GOTO LOOPEND; /* CONTINUE SEARCH WITH THE SAME 00792000 * PFTE @ZA16816*/ 00793000 B LOOPEND 0281 00794000 *STOLEN: 0282 00795000 * 0282 00796000 * /***********************************************/ 00797000 * /* */ 00798000 * /* NON-IRRG FRAME CAN BE STOLEN. IF FROM A */ 00799000 * /* FOREIGN LOCAL FRAME QUEUE, DEQUEUE THE PFTE */ 00800000 * /* NOW. @ZA16816*/ 00801000 * /* */ 00802000 * /***********************************************/ 00803000 * 0282 00804000 * IF ASCBPTR^=0 THEN/* IF ASCB NOT ZERO, @ZA16816*/ 00805000 STOLEN LTR ASCBPTR,ASCBPTR 0282 00806000 BZ @RF00282 0282 00807000 * DO; /* TRAS BACK AND DEQ @ZA16816*/ 00808000 * REG1=PSAAOLD;/* GET CUR ASCB @ZA16816*/ 00809000 L REG1,PSAAOLD 0284 00810000 * GENERATE CODE REFS(ASCBSTOR); 0285 00811000 LCTL 1,1,ASCBSTOR(REG1) -----TRAS BACK----- 00812000 * LCCAASID=0;/* CLEAR RTM TRAS IND. @ZA16816*/ 00813000 SLR @14,@14 0286 00814000 L @11,LCCAPTR 0286 00815000 ST @14,LCCAASID(,@11) 0286 00816000 * PVTTASID=0;/* CLEAR RCV TRAS IND. @ZA16816*/ 00817000 STH @14,PVTTASID(,PVTPTR) 0287 00818000 * REG0=FRAMEPTR-PVTPFTP;/* GET THE RBN 0288 00819000 * @ZA16816*/ 00820000 LR REG0,FRAMEPTR 0288 00821000 SL REG0,PVTPFTP(,PVTPTR) 0288 00822000 * REG0=REG0|(65536*PFTNQN);/* INDICATE DEQ 0289 00823000 * @ZA16816*/ 00824000 O REG0,@CF01839 0289 00825000 * RSMHDPTR=ASCBRSM;/* FROM RSMHD @ZA16816*/ 00826000 L RSMHDPTR,ASCBRSM(,ASCBPTR) 0290 00827000 * CALL IEAVPFTE;/* DEQ THE PFTE @ZA16816*/ 00828000 L @15,PVTPFTE(,PVTPTR) 0291 00829000 BALR @14,@15 0291 00830000 * RSMHDPTR=PSAAOLD->ASCBRSM;/* RESTORE PTR 0292 00831000 * @ZA16816*/ 00832000 L @14,PSAAOLD 0292 00833000 L RSMHDPTR,ASCBRSM(,@14) 0292 00834000 * END; /* @ZA16816*/ 00835000 * 0293 00836000 * /***********************************************/ 00837000 * /* */ 00838000 * /* INITIALIZE THE PFTE (NON-IRREG) FOR USE BY */ 00839000 * /* THE CALLER AND INDICATE THAT THE PFTE WAS */ 00840000 * /* STOLEN. @ZA16816*/ 00841000 * /* */ 00842000 * /***********************************************/ 00843000 * 0294 00844000 * PFTSTEAL='0'B;/* CLEAR THE STEAL FLAG @ZA16816*/ 00845000 @RF00282 NI PFTSTEAL(FRAMEPTR),B'11110111' 0294 00846000 * PFTUIC=0; /* INITIALIZE UIC @ZA16816*/ 00847000 MVI PFTUIC(FRAMEPTR),X'00' 0295 00848000 * SAVER0=FRAMEPTR;/* SAVE PTR TO PFTE @ZA16816*/ 00849000 ST FRAMEPTR,SAVER0(,PVTPTR) 0296 00850000 * RC=0; /* SET RINAL RC=0 @ZA16816*/ 00851000 MVI RC(PVTPTR),X'00' 0297 00852000 * RBN=0; /* KILL DO WHILE LOOP @ZA16816*/ 00853000 SLR RBN,RBN 0298 00854000 * REG15=0; /* SET QSCAN RC TO ZERO @ZA16816*/ 00855000 SLR REG15,REG15 0299 00856000 * END; /* END SUCCESSFUL FP @ZA16816*/ 00857000 * END; /* END NON-IRREG PROCESS @ZA16816*/ 00858000 * END; /* END ACCEPTABLE FRAME @ZA16816*/ 00859000 * ELSE /* IF NOT ACCEPTABLE THEN 0303 00860000 * @ZA16816*/ 00861000 * RBN=PFTFQPTR; /* GET NEXT PFTE RBN @ZA16816*/ 00862000 B @RC00218 0303 00863000 @RF00218 LH @14,PFTFQPTR(,FRAMEPTR) 0303 00864000 N @14,@CF01844 0303 00865000 LR RBN,@14 0303 00866000 * END; /* END STEALABLE FRAME @ZA16816*/ 00867000 * ELSE /* IF NOT STEALABLE THEN @ZA16816*/ 00868000 * RBN=PFTFQPTR; /* GET THE NEXT PFTE RBN @ZA16816*/ 00869000 B @RC00201 0305 00870000 @RF00201 LH @14,PFTFQPTR(,FRAMEPTR) 0305 00871000 N @14,@CF01844 0305 00872000 LR RBN,@14 0305 00873000 *LOOPEND: 0306 00874000 * END; /* END OF DO WHILE @ZA16816*/ 00875000 @RC00201 DS 0H 0306 00876000 LOOPEND DS 0H 0306 00877000 @DE00198 LTR RBN,RBN 0306 00878000 BNZ @DL00198 0306 00879000 * GENERATE CODE(BR REG6); /* RETURN TO CALLER @ZA16816*/ 00880000 BR REG6 00881000 * RESPECIFY 0308 00882000 * PFTE BASED(PFTEPTR); /* @ZA16816*/ 00883000 * RESPECIFY 0309 00884000 * (REG6, 0309 00885000 * FRAMEPTR, 0309 00886000 * PASS, 0309 00887000 * ASCBPTR, 0309 00888000 * REG15) UNRSTD; /* @ZA16816*/ 00889000 * END; /* END OF QSCAN ROUTINE @ZA16816*/ 00890000 @EL00002 DS 0H 0310 00891000 @EF00002 DS 0H 0310 00892000 @ER00002 BR @14 0310 00893000 * END IEAVPREF 0311 00894000 * 0311 00895000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00896000 */*%INCLUDE SYSLIB (IHAPVT ) */ 00897000 */*%INCLUDE SYSLIB (IHARSMHD) */ 00898000 */*%INCLUDE SYSLIB (IHAPFTE ) */ 00899000 */*%INCLUDE SYSLIB (IHAPGTE ) */ 00900000 */*%INCLUDE SYSLIB (IHAXPTE ) */ 00901000 */*%INCLUDE SYSLIB (CVT ) */ 00902000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00903000 */*%INCLUDE SYSLIB (IHARCA ) */ 00904000 */*%INCLUDE SYSLIB (IHALCCA ) */ 00905000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00906000 */*%INCLUDE SYSLIB (IHAPCBR ) */ 00907000 * 0311 00908000 * ; 0311 00909000 @DATA DS 0H 00910000 DS 0F 00911000 DS 0F 00912000 @CF00038 DC F'1' 00913000 @CF00217 DC F'2' 00914000 @CF00187 DC F'3' 00915000 @CF00085 DC F'4' 00916000 @CF00060 DC F'16' 00917000 @CF01839 DC F'16711680' 00918000 @CF01805 DC XL4'FFFFFFFF' 00919000 @CF01844 DC XL4'0000FFFF' 00920000 @CV01797 DC V(IEAVPRSS) 00921000 DS 0D 00922000 @CB01815 DC X'00000004' 00923000 DS CL4 00924000 CHBITMSK DC X'00000002' 00925000 IEAVPREF CSECT 00926000 PREFMSG WTO 'IEA988I PREFERRED AREA HAS EXPANDED. RECONFIGURABILITY MAYY00927000 BE IMPAIRED.',ROUTCDE=(2),DESC=(4),MF=L 00928000 IEAVPREF CSECT 00929000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00930000 @01 EQU 01 00931000 @02 EQU 02 00932000 @03 EQU 03 00933000 @04 EQU 04 00934000 @05 EQU 05 00935000 @06 EQU 06 00936000 @07 EQU 07 00937000 @08 EQU 08 00938000 @09 EQU 09 00939000 @10 EQU 10 00940000 @11 EQU 11 00941000 @12 EQU 12 00942000 @13 EQU 13 00943000 @14 EQU 14 00944000 @15 EQU 15 00945000 PVTPTR EQU @03 00946000 RSMHDPTR EQU @02 00947000 PFTEPTR EQU @04 00948000 ASCBPTR EQU @09 00949000 PCBRPTR EQU @09 00950000 REG0 EQU @00 00951000 REG1 EQU @01 00952000 REG6 EQU @06 00953000 FRAMEPTR EQU @07 00954000 RBN EQU @07 00955000 PASS EQU @08 00956000 ENDPFTE EQU @09 00957000 MASK EQU @09 00958000 MSGPTR EQU @10 00959000 MSGLEN EQU @11 00960000 BASEREG EQU @12 00961000 REG13 EQU @13 00962000 REG14 EQU @14 00963000 REG15 EQU @15 00964000 REG10 EQU @10 00965000 REG11 EQU @11 00966000 REG12 EQU @12 00967000 REG2 EQU @02 00968000 REG3 EQU @03 00969000 REG4 EQU @04 00970000 REG5 EQU @05 00971000 REG8 EQU @08 00972000 SAVEPFTP EQU @06 00973000 VBN EQU @05 00974000 CVTPTR EQU 16 00975000 PSA EQU 0 00976000 FLCRNPSW EQU PSA 00977000 FLCROPSW EQU PSA+8 00978000 FLCICCW2 EQU PSA+16 00979000 PSAEEPSW EQU PSA+132 00980000 PSAESPSW EQU PSA+136 00981000 FLCSVILC EQU PSAESPSW+1 00982000 PSAEPPSW EQU PSA+140 00983000 FLCPIILC EQU PSAEPPSW+1 00984000 FLCPICOD EQU PSAEPPSW+2 00985000 PSAPICOD EQU FLCPICOD+1 00986000 FLCTEA EQU PSAEPPSW+4 00987000 FLCPER EQU PSA+152 00988000 FLCMCLA EQU PSA+168 00989000 FLCIOEL EQU FLCMCLA+4 00990000 FLCIOA EQU FLCMCLA+16 00991000 FLCFSA EQU FLCMCLA+80 00992000 PSACPULA EQU PSA+518 00993000 PSALCCAV EQU PSA+528 00994000 PSAAOLD EQU PSA+548 00995000 PSASUPER EQU PSA+552 00996000 PSASUP1 EQU PSASUPER 00997000 PSASUP2 EQU PSASUPER+1 00998000 PSASUP3 EQU PSASUPER+2 00999000 PSASUP4 EQU PSASUPER+3 01000000 PSACLHT EQU PSA+640 01001000 PSALKSA EQU PSA+696 01002000 PSAHLHI EQU PSA+760 01003000 PSALITA EQU PSA+764 01004000 PSADSSFL EQU PSA+836 01005000 PSADSSF1 EQU PSADSSFL 01006000 PSADSSF3 EQU PSADSSFL+2 01007000 PSADSSF4 EQU PSADSSFL+3 01008000 PSARSVT EQU PSA+896 01009000 PVT EQU 0 01010000 PVTFLAG1 EQU PVT 01011000 PVTPMSG EQU PVTFLAG1 01012000 PVTFLAG2 EQU PVT+1 01013000 PVTRSMGM EQU PVTFLAG2 01014000 PVTPFTP EQU PVT+12 01015000 PVTVROOT EQU PVT+40 01016000 PVTRSUS EQU PVT+44 01017000 PVTPRCA EQU PVT+52 01018000 PVTPFTE EQU PVT+108 01019000 PVTPFP2 EQU PVT+116 01020000 PVTPVRIN EQU PVT+140 01021000 PVTPINV EQU PVT+172 01022000 PVTQS EQU PVT+304 01023000 PVTCFQF EQU PVTQS+8 01024000 PVTRSBQF EQU PVTQS+16 01025000 PVTWSAX EQU PVT+344 01026000 PVTWSA14 EQU PVTWSAX+968 01027000 PVTWSA16 EQU PVTWSAX+1112 01028000 PVTPCBQS EQU PVT+1852 01029000 PVTTASID EQU PVT+1942 01030000 RSMHD EQU 0 01031000 RSMFLG1 EQU RSMHD+12 01032000 RSMQS EQU RSMHD+20 01033000 RSMLFQ EQU RSMQS 01034000 RSMLFQF EQU RSMLFQ 01035000 RSMLSQA EQU RSMQS+4 01036000 RSMLIOQ EQU RSMQS+8 01037000 PFTE EQU 0 01038000 PFTPGID EQU PFTE 01039000 PFTVBN EQU PFTPGID+2 01040000 PFTQPTRS EQU PFTE+4 01041000 PFTFQPTR EQU PFTQPTRS 01042000 PFTFXCT EQU PFTE+8 01043000 PFTFLAGS EQU PFTE+12 01044000 PFTFLAG1 EQU PFTFLAGS 01045000 PFTVRINT EQU PFTFLAG1 01046000 PFTPCBSI EQU PFTFLAG1 01047000 PFTBADPG EQU PFTFLAG1 01048000 PFTVRALC EQU PFTFLAG1 01049000 PFTOFINT EQU PFTFLAG1 01050000 PFTFLAG2 EQU PFTFLAGS+1 01051000 PFTDFRLS EQU PFTFLAG2 01052000 PFTVR EQU PFTFLAG2 01053000 PFTIRRG EQU PFTFLAG2 01054000 PFTSTEAL EQU PFTFLAG2 01055000 PFTPREF EQU PFTFLAG2 01056000 PFTUIC EQU PFTE+15 01057000 PGTPTE EQU 0 01058000 PGTRSA EQU PGTPTE 01059000 PGTBITS EQU PGTRSA+1 01060000 PGTPVM EQU PGTBITS 01061000 PTEPTR EQU 0 01062000 XPTE EQU 0 01063000 XPTFLAGS EQU XPTE+2 01064000 XPTFLAG2 EQU XPTE+3 01065000 XPTLPID EQU XPTE+4 01066000 XPTLGN EQU XPTLPID 01067000 XPTLPN EQU XPTLPID+4 01068000 XPTEPTR EQU 0 01069000 CVTMAP EQU 0 01070000 CVTDAR EQU CVTMAP+72 01071000 CVTFLGS1 EQU CVTDAR 01072000 CVTDCB EQU CVTMAP+116 01073000 CVTIOQET EQU CVTMAP+120 01074000 CVTIERLC EQU CVTMAP+144 01075000 CVTHEAD EQU CVTMAP+160 01076000 CVTSV76C EQU CVTHEAD 01077000 CVTOPTA EQU CVTMAP+182 01078000 CVTOPTB EQU CVTMAP+183 01079000 CVTGTF EQU CVTMAP+236 01080000 CVTGTFST EQU CVTGTF 01081000 CVTGTFS EQU CVTGTFST 01082000 CVTSTATE EQU CVTGTFST 01083000 CVTTMODE EQU CVTGTFST 01084000 CVTFORM EQU CVTGTFST 01085000 CVTAQAVT EQU CVTMAP+240 01086000 CVTTCMFG EQU CVTAQAVT 01087000 CVTVOLM2 EQU CVTMAP+244 01088000 CVTTATA EQU CVTVOLM2 01089000 CVTTSKS EQU CVTTATA 01090000 CVTVOLF2 EQU CVTTSKS 01091000 CVTTAT EQU CVTTATA+1 01092000 CVTATER EQU CVTMAP+248 01093000 CVTEXT1 EQU CVTMAP+252 01094000 CVTPURG EQU CVTMAP+260 01095000 CVTQMSG EQU CVTMAP+268 01096000 CVTDMSR EQU CVTMAP+272 01097000 CVTRSV37 EQU CVTDMSR 01098000 CVTDMSRF EQU CVTRSV37 01099000 CVTERPV EQU CVTMAP+316 01100000 CVTINTLA EQU CVTMAP+320 01101000 CVTAPF EQU CVTMAP+324 01102000 CVTEXT2 EQU CVTMAP+328 01103000 CVTHJES EQU CVTMAP+332 01104000 CVTPGSIA EQU CVTMAP+348 01105000 CVTA1F1 EQU CVTMAP+356 01106000 CVTSYSK EQU CVTMAP+357 01107000 CVTVOLM1 EQU CVTMAP+380 01108000 CVTVOLF1 EQU CVTVOLM1 01109000 CVTXTNT1 EQU 0 01110000 CVTXTNT2 EQU 0 01111000 CVTDSSV EQU CVTXTNT2 01112000 CVTFLGBT EQU CVTXTNT2+5 01113000 CVTQID EQU CVTXTNT2+24 01114000 CVTRV400 EQU CVTXTNT2+52 01115000 CVTRV409 EQU CVTXTNT2+53 01116000 CVTATCVT EQU CVTXTNT2+64 01117000 CVTRV429 EQU CVTXTNT2+84 01118000 CVTRV438 EQU CVTXTNT2+85 01119000 CVTRV457 EQU CVTXTNT2+112 01120000 CVTRV466 EQU CVTXTNT2+113 01121000 CVTFIX EQU 0 01122000 CVTRELNO EQU CVTFIX+252 01123000 RCA EQU 0 01124000 RCANAME7 EQU RCA+8 01125000 RCAFLAGS EQU RCA+10 01126000 RCADISP EQU RCAFLAGS 01127000 RCARCRD EQU RCA+11 01128000 RCANAMES EQU RCA+12 01129000 RCANAME1 EQU RCANAMES 01130000 RCANAME2 EQU RCANAMES+1 01131000 RCANAME3 EQU RCANAMES+2 01132000 RCANAME4 EQU RCANAMES+3 01133000 RCANAME5 EQU RCANAMES+4 01134000 RCANAME6 EQU RCANAMES+5 01135000 LCCA EQU 0 01136000 LCCAIHRC EQU LCCA+520 01137000 LCCAIHR1 EQU LCCAIHRC 01138000 LCCAIHR2 EQU LCCAIHRC+1 01139000 LCCAIHR3 EQU LCCAIHRC+2 01140000 LCCAIHR4 EQU LCCAIHRC+3 01141000 LCCASPIN EQU LCCA+524 01142000 LCCASPN1 EQU LCCASPIN 01143000 LCCASPN2 EQU LCCASPIN+1 01144000 LCCASPN3 EQU LCCASPIN+2 01145000 LCCASPN4 EQU LCCASPIN+3 01146000 LCCADSF1 EQU LCCA+540 01147000 LCCADSF2 EQU LCCA+541 01148000 LCCASPSA EQU LCCA+544 01149000 LCCACRFL EQU LCCA+692 01150000 LCCACREX EQU LCCA+693 01151000 LCCALKFG EQU LCCA+694 01152000 LCCASRBF EQU LCCA+720 01153000 LCCAASID EQU LCCA+732 01154000 ASCB EQU 0 01155000 ASCBFWDP EQU ASCB+4 01156000 ASCBSUPC EQU ASCB+16 01157000 ASCBASID EQU ASCB+36 01158000 ASCBSTOR EQU ASCB+44 01159000 ASCBRSM EQU ASCB+52 01160000 ASCBRSMF EQU ASCBRSM 01161000 ASCBFW1 EQU ASCB+100 01162000 ASCBRCTF EQU ASCBFW1+2 01163000 ASCBFLG1 EQU ASCBFW1+3 01164000 ASCBDSP1 EQU ASCB+114 01165000 ASCBFLG2 EQU ASCB+115 01166000 ASCBLKGP EQU ASCB+128 01167000 ASCBSRQ EQU ASCB+180 01168000 ASCBSRQ1 EQU ASCBSRQ 01169000 ASCBSRQ2 EQU ASCBSRQ+1 01170000 ASCBSRQ3 EQU ASCBSRQ+2 01171000 ASCBSRQ4 EQU ASCBSRQ+3 01172000 PCBR EQU 0 01173000 PCBRTCB EQU PCBR 01174000 PCBRFLAG EQU PCBRTCB 01175000 PCBRINT EQU PCBRFLAG 01176000 PCBRFAIL EQU PCBRFLAG 01177000 PCBRWRK1 EQU PCBR+20 01178000 PCBRWRK2 EQU PCBR+24 01179000 PCBRWRK3 EQU PCBR+28 01180000 IEAVPFTE EQU 0 01181000 IEAVFP2 EQU 0 01182000 IEAVINV EQU 0 01183000 IEAVEQRI EQU 0 01184000 PGTEND EQU 0 01185000 CVTS01 EQU CVTPGSIA 01186000 CVTLPDIA EQU CVTS01+12 01187000 CVTDIRST EQU CVTLPDIA 01188000 CVTSLIDA EQU CVTS01+24 01189000 CVTCTLFG EQU CVTS01+50 01190000 CVTASCBH EQU CVTS01+216 01191000 CVTRV210 EQU CVTS01+424 01192000 CVTRV219 EQU CVTS01+425 01193000 CVTRV228 EQU CVTS01+426 01194000 CVTRV237 EQU CVTS01+427 01195000 CVTMFRTR EQU CVTS01+452 01196000 CVTRV262 EQU CVTS01+468 01197000 CVTRV271 EQU CVTS01+469 01198000 CVTRV280 EQU CVTS01+470 01199000 CVTRV289 EQU CVTS01+471 01200000 CVTGSDA EQU CVTS01+600 01201000 PSARSVTE EQU PSARSVT 01202000 RCAPTR EQU PVTPRCA 01203000 LCCAPTR EQU PSALCCAV 01204000 MYSAVE EQU PVTWSA16 01205000 SAVER0 EQU MYSAVE 01206000 SAVER1 EQU MYSAVE+4 01207000 SAVER15 EQU MYSAVE+60 01208000 RC EQU SAVER15+3 01209000 FLC EQU PSA 01210000 * START UNREFERENCED COMPONENTS 01211000 @NM00042 EQU SAVER15 01212000 THEREGS EQU MYSAVE+8 01213000 PSARSAV EQU PSARSVTE+60 01214000 PSARSTK EQU PSARSVTE+56 01215000 PSAESAV3 EQU PSARSVTE+52 01216000 PSAESTK3 EQU PSARSVTE+48 01217000 PSAESAV2 EQU PSARSVTE+44 01218000 PSAESTK2 EQU PSARSVTE+40 01219000 PSAESAV1 EQU PSARSVTE+36 01220000 PSAESTK1 EQU PSARSVTE+32 01221000 PSAPSAV EQU PSARSVTE+28 01222000 PSAPSTK EQU PSARSVTE+24 01223000 PSAMSAV EQU PSARSVTE+20 01224000 PSAMSTK EQU PSARSVTE+16 01225000 PSASSAV EQU PSARSVTE+12 01226000 PSASSTK EQU PSARSVTE+8 01227000 PSANSTK EQU PSARSVTE+4 01228000 PSACSTK EQU PSARSVTE 01229000 CVTRV628 EQU CVTS01+728 01230000 CVTRV627 EQU CVTS01+724 01231000 CVTRV626 EQU CVTS01+720 01232000 CVTRV625 EQU CVTS01+716 01233000 CVTRV624 EQU CVTS01+712 01234000 CVTRV623 EQU CVTS01+708 01235000 CVTRV622 EQU CVTS01+704 01236000 CVTRV621 EQU CVTS01+700 01237000 CVTIHASU EQU CVTS01+696 01238000 CVTSUSP EQU CVTS01+692 01239000 CVTT6SVC EQU CVTS01+688 01240000 CVTCDAL EQU CVTS01+684 01241000 CVTTCTL EQU CVTS01+680 01242000 CVTRSUME EQU CVTS01+676 01243000 CVTJTERM EQU CVTS01+672 01244000 CVTASMRM EQU CVTS01+668 01245000 CVTTCASP EQU CVTS01+664 01246000 CVT0PT03 EQU CVTS01+660 01247000 CVT0PT0E EQU CVTS01+656 01248000 CVTRV609 EQU CVTS01+652 01249000 CVTCGK EQU CVTS01+648 01250000 CVTRAC EQU CVTS01+644 01251000 CVTHSM EQU CVTS01+640 01252000 CVTRV605 EQU CVTS01+636 01253000 CVTRV604 EQU CVTS01+632 01254000 CVTEFF02 EQU CVTS01+628 01255000 CVTCBBR EQU CVTS01+624 01256000 CVTSSCR EQU CVTS01+620 01257000 CVTEVENT EQU CVTS01+616 01258000 CVTCRCA EQU CVTS01+612 01259000 CVTTPIO EQU CVTS01+608 01260000 CVTADV EQU CVTS01+604 01261000 CVTGSDAB EQU CVTGSDA 01262000 CVTQV3 EQU CVTS01+596 01263000 CVTQV2 EQU CVTS01+592 01264000 CVTQV1 EQU CVTS01+588 01265000 CVTRPT EQU CVTS01+584 01266000 CVTSSRB EQU CVTS01+580 01267000 CVTCSDRL EQU CVTS01+576 01268000 CVTEXP1 EQU CVTS01+572 01269000 CVTRMPMT EQU CVTS01+568 01270000 CVTRMPTT EQU CVTS01+564 01271000 CVTVPSA EQU CVTS01+560 01272000 CVTVSTOP EQU CVTS01+556 01273000 CVTGTFR8 EQU CVTS01+552 01274000 CVTQUIT EQU CVTS01+548 01275000 CVTVACR EQU CVTS01+544 01276000 CVTWTCB EQU CVTS01+540 01277000 CVTSTPRS EQU CVTS01+536 01278000 CVT0PT02 EQU CVTS01+532 01279000 CVTDARCM EQU CVTS01+528 01280000 CVTIRECM EQU CVTS01+524 01281000 CVTJRECM EQU CVTS01+520 01282000 CVTVEMS0 EQU CVTS01+516 01283000 CVTSPFRR EQU CVTS01+512 01284000 CVTRLSTG EQU CVTS01+508 01285000 CVT0TC0A EQU CVTS01+504 01286000 CVTGMBR EQU CVTS01+500 01287000 CVTLFRM EQU CVTS01+496 01288000 CVTRMBR EQU CVTS01+492 01289000 CVTVIOP EQU CVTS01+488 01290000 CVTRV307 EQU CVTS01+486 01291000 CVTRV306 EQU CVTS01+484 01292000 CVTRV305 EQU CVTS01+482 01293000 CVTRV304 EQU CVTS01+480 01294000 CVTRV303 EQU CVTS01+478 01295000 CVTRV302 EQU CVTS01+476 01296000 CVTTRCA EQU CVTS01+472 01297000 CVTRV297 EQU CVTRV289 01298000 CVTRV296 EQU CVTRV289 01299000 CVTRV295 EQU CVTRV289 01300000 CVTRV294 EQU CVTRV289 01301000 CVTRV293 EQU CVTRV289 01302000 CVTRV292 EQU CVTRV289 01303000 CVTRV291 EQU CVTRV289 01304000 CVTRV290 EQU CVTRV289 01305000 CVTRV288 EQU CVTRV280 01306000 CVTRV287 EQU CVTRV280 01307000 CVTRV286 EQU CVTRV280 01308000 CVTRV285 EQU CVTRV280 01309000 CVTRV284 EQU CVTRV280 01310000 CVTRV283 EQU CVTRV280 01311000 CVTRV282 EQU CVTRV280 01312000 CVTRV281 EQU CVTRV280 01313000 CVTRV279 EQU CVTRV271 01314000 CVTRV278 EQU CVTRV271 01315000 CVTRV277 EQU CVTRV271 01316000 CVTRV276 EQU CVTRV271 01317000 CVTRV275 EQU CVTRV271 01318000 CVTRV274 EQU CVTRV271 01319000 CVTRV273 EQU CVTRV271 01320000 CVTRV272 EQU CVTRV271 01321000 CVTRV270 EQU CVTRV262 01322000 CVTRV269 EQU CVTRV262 01323000 CVTRV268 EQU CVTRV262 01324000 CVTRV267 EQU CVTRV262 01325000 CVTRV266 EQU CVTRV262 01326000 CVTRV265 EQU CVTRV262 01327000 CVTRV264 EQU CVTRV262 01328000 CVTRV263 EQU CVTRV262 01329000 CVTVFP EQU CVTS01+464 01330000 CVTVSI EQU CVTS01+460 01331000 CVTVPSIB EQU CVTS01+456 01332000 CVTMFACT EQU CVTMFRTR 01333000 CVTMFCTL EQU CVTS01+448 01334000 CVTPVBP EQU CVTS01+444 01335000 CVTPWI EQU CVTS01+440 01336000 CVTRV254 EQU CVTS01+438 01337000 CVTRV253 EQU CVTS01+436 01338000 CVTRV252 EQU CVTS01+434 01339000 CVTRV251 EQU CVTS01+433 01340000 CVTRV250 EQU CVTS01+432 01341000 CVTRV249 EQU CVTS01+431 01342000 CVTRV248 EQU CVTS01+430 01343000 CVTRV247 EQU CVTS01+429 01344000 CVTRV246 EQU CVTS01+428 01345000 CVTRV245 EQU CVTRV237 01346000 CVTRV244 EQU CVTRV237 01347000 CVTRV243 EQU CVTRV237 01348000 CVTRV242 EQU CVTRV237 01349000 CVTRV241 EQU CVTRV237 01350000 CVTRV240 EQU CVTRV237 01351000 CVTRV239 EQU CVTRV237 01352000 CVTRV238 EQU CVTRV237 01353000 CVTRV236 EQU CVTRV228 01354000 CVTRV235 EQU CVTRV228 01355000 CVTRV234 EQU CVTRV228 01356000 CVTRV233 EQU CVTRV228 01357000 CVTRV232 EQU CVTRV228 01358000 CVTRV231 EQU CVTRV228 01359000 CVTRV230 EQU CVTRV228 01360000 CVTRV229 EQU CVTRV228 01361000 CVTRV227 EQU CVTRV219 01362000 CVTRV226 EQU CVTRV219 01363000 CVTRV225 EQU CVTRV219 01364000 CVTRV224 EQU CVTRV219 01365000 CVTRV223 EQU CVTRV219 01366000 CVTRV222 EQU CVTRV219 01367000 CVTRV221 EQU CVTRV219 01368000 CVTRV220 EQU CVTRV219 01369000 CVTRV218 EQU CVTRV210 01370000 CVTRV217 EQU CVTRV210 01371000 CVTRV216 EQU CVTRV210 01372000 CVTRV215 EQU CVTRV210 01373000 CVTRV214 EQU CVTRV210 01374000 CVTRV213 EQU CVTRV210 01375000 CVTRV212 EQU CVTRV210 01376000 CVTRV211 EQU CVTRV210 01377000 CVTLCCAT EQU CVTS01+420 01378000 CVTPCCAT EQU CVTS01+416 01379000 CVTIPCRP EQU CVTS01+412 01380000 CVTIPCRI EQU CVTS01+408 01381000 CVTIPCDS EQU CVTS01+404 01382000 CVTAIDVT EQU CVTS01+400 01383000 CVTSSAP EQU CVTS01+396 01384000 CVTEHCIR EQU CVTS01+392 01385000 CVTEHDEF EQU CVTS01+388 01386000 CVTDAIR EQU CVTS01+384 01387000 CVTPERFM EQU CVTS01+380 01388000 CVT044R2 EQU CVTS01+376 01389000 CVTFETCH EQU CVTS01+372 01390000 CVTRSTWD EQU CVTS01+368 01391000 CVTSPOST EQU CVTS01+364 01392000 CVTIOBP EQU CVTS01+360 01393000 CVTASMVT EQU CVTS01+356 01394000 CVTRECRQ EQU CVTS01+352 01395000 CVTWSAC EQU CVTS01+348 01396000 CVTRV149 EQU CVTS01+344 01397000 CVTWSAL EQU CVTS01+340 01398000 CVTSPSA EQU CVTS01+336 01399000 CVTGLMN EQU CVTS01+332 01400000 CVTVEAC0 EQU CVTS01+328 01401000 CVT062R1 EQU CVTS01+324 01402000 CVTRPOST EQU CVTS01+320 01403000 CVTDQIQE EQU CVTS01+316 01404000 CVTCSD EQU CVTS01+312 01405000 CVTLKRMA EQU CVTS01+308 01406000 CVTRSPIE EQU CVTS01+304 01407000 CVTRENQ EQU CVTS01+300 01408000 CVTLQCB EQU CVTS01+296 01409000 CVTFQCB EQU CVTS01+292 01410000 CVTQCS01 EQU CVTS01+288 01411000 CVTAPFT EQU CVTS01+284 01412000 CVTPARRL EQU CVTS01+280 01413000 CVTVWAIT EQU CVTS01+276 01414000 CVTGSPL EQU CVTS01+272 01415000 CVTLSMQ EQU CVTS01+268 01416000 CVTGSMQ EQU CVTS01+264 01417000 CVTEXPRO EQU CVTS01+260 01418000 CVTOPCTP EQU CVTS01+256 01419000 CVTSIC EQU CVTS01+252 01420000 CVTTPIOS EQU CVTS01+248 01421000 CVTRTMS EQU CVTS01+244 01422000 CVTSDBF EQU CVTS01+240 01423000 CVTSCBP EQU CVTS01+236 01424000 CVTSDMP EQU CVTS01+232 01425000 CVTSV60 EQU CVTS01+228 01426000 CVTRTMCT EQU CVTS01+224 01427000 CVTASCBL EQU CVTS01+220 01428000 CVTGDA EQU CVTS01+212 01429000 CVTASVT EQU CVTS01+208 01430000 CVTVVMDI EQU CVTS01+204 01431000 CVTAQTOP EQU CVTS01+200 01432000 CVTIOSCS EQU CVTS01+196 01433000 CVTSDRM EQU CVTS01+192 01434000 CVTOPTE EQU CVTS01+188 01435000 CVTSTXU EQU CVTS01+184 01436000 CVTQUIS EQU CVTS01+180 01437000 CVTPARS EQU CVTS01+176 01438000 CVTS1EE EQU CVTS01+172 01439000 CVTFRAS EQU CVTS01+168 01440000 CVTQSAS EQU CVTS01+164 01441000 CVTCRAS EQU CVTS01+160 01442000 CVTCRMN EQU CVTS01+156 01443000 CVTDELCP EQU CVTS01+152 01444000 CVTFRECL EQU CVTS01+148 01445000 CVTGETCL EQU CVTS01+144 01446000 CVTBLDCP EQU CVTS01+140 01447000 CVTAUTHL EQU CVTS01+136 01448000 CVTSCAN EQU CVTS01+132 01449000 CVTRV144 EQU CVTS01+130 01450000 CVTMAXMP EQU CVTS01+128 01451000 CVTSTCK EQU CVTS01+124 01452000 CVTRV139 EQU CVTS01+123 01453000 CVTDSSAC EQU CVTS01+122 01454000 CVTRV513 EQU CVTS01+121 01455000 CVTIOSPL EQU CVTS01+120 01456000 CVTPTGT EQU CVTS01+116 01457000 CVTCSPIE EQU CVTS01+112 01458000 CVTSMFEX EQU CVTS01+108 01459000 CVTOLT0A EQU CVTS01+104 01460000 CVTSRBRT EQU CVTS01+100 01461000 CVTPUTL EQU CVTS01+96 01462000 CVTASCRL EQU CVTS01+92 01463000 CVTASCRF EQU CVTS01+88 01464000 CVTRV326 EQU CVTS01+84 01465000 CVTRV325 EQU CVTS01+80 01466000 CVTRV324 EQU CVTS01+76 01467000 CVT0VL01 EQU CVTS01+72 01468000 CVTSHRVM EQU CVTS01+68 01469000 CVTRV332 EQU CVTS01+64 01470000 CVTTAS EQU CVTS01+60 01471000 CVTRSCN EQU CVTS01+56 01472000 CVTTRAC2 EQU CVTS01+54 01473000 CVTTRACE EQU CVTS01+52 01474000 CVTAPG EQU CVTS01+51 01475000 CVTSDTRC EQU CVTCTLFG 01476000 CVTGTRCE EQU CVTCTLFG 01477000 CVTNOMP EQU CVTCTLFG 01478000 CVTRSV79 EQU CVTCTLFG 01479000 CVTDSTAT EQU CVTCTLFG 01480000 CVTRSV78 EQU CVTCTLFG 01481000 CVTRV333 EQU CVTCTLFG 01482000 CVTRV323 EQU CVTCTLFG 01483000 CVTSPVLK EQU CVTS01+49 01484000 CVTRSV77 EQU CVTS01+48 01485000 CVTRV331 EQU CVTS01+44 01486000 CVTRV330 EQU CVTS01+40 01487000 CVTRV329 EQU CVTS01+36 01488000 CVTRV328 EQU CVTS01+32 01489000 CVTRV322 EQU CVTS01+28 01490000 CVTSLID EQU CVTSLIDA+1 01491000 CVTSYLK EQU CVTSLIDA 01492000 CVTRV321 EQU CVTS01+20 01493000 CVTRV320 EQU CVTS01+16 01494000 CVTLPDIR EQU CVTLPDIA+1 01495000 CVTRSV69 EQU CVTDIRST 01496000 CVTRSV68 EQU CVTDIRST 01497000 CVTRSV67 EQU CVTDIRST 01498000 CVTRSV66 EQU CVTDIRST 01499000 CVTRSV65 EQU CVTDIRST 01500000 CVTRSV64 EQU CVTDIRST 01501000 CVTRSV63 EQU CVTDIRST 01502000 CVTDICOM EQU CVTDIRST 01503000 CVTPVTP EQU CVTS01+8 01504000 CVTLPDSR EQU CVTS01+4 01505000 CVTGETL EQU CVTS01 01506000 PCBRWRKB EQU PCBR+60 01507000 PCBRWRKA EQU PCBR+56 01508000 PCBRWRK9 EQU PCBR+52 01509000 PCBRWRK8 EQU PCBR+48 01510000 PCBRWRK7 EQU PCBR+44 01511000 PCBRWRK6 EQU PCBR+40 01512000 PCBRWRK5 EQU PCBR+36 01513000 PCBRWRK4 EQU PCBR+32 01514000 PCBRRSV1 EQU PCBR+18 01515000 PCBRCNT EQU PCBR+16 01516000 PCBRASCB EQU PCBR+12 01517000 PCBRECB EQU PCBR+8 01518000 PCBRGOTO EQU PCBR+4 01519000 PCBRTCBA EQU PCBRTCB+1 01520000 PCBRPOF EQU PCBRFLAG 01521000 PCBRFECB EQU PCBRFLAG 01522000 PCBRLOAD EQU PCBRFLAG 01523000 PCBRFPCB EQU PCBRFLAG 01524000 PCBRPB EQU PCBRFLAG 01525000 PCBRETRY EQU PCBRFLAG 01526000 ASCBEND EQU ASCB+208 01527000 ASCBSRBT EQU ASCB+200 01528000 ASCBSWTL EQU ASCB+196 01529000 ASCBRS14 EQU ASCB+195 01530000 ASCBSMCT EQU ASCB+194 01531000 ASCBRS12 EQU ASCB+192 01532000 ASCBPCTT EQU ASCB+188 01533000 ASCBVGTT EQU ASCB+184 01534000 ASCBRV43 EQU ASCBSRQ4 01535000 ASCBRV42 EQU ASCBSRQ4 01536000 ASCBRV41 EQU ASCBSRQ4 01537000 ASCBRV40 EQU ASCBSRQ4 01538000 ASCBRV39 EQU ASCBSRQ4 01539000 ASCBRV38 EQU ASCBSRQ4 01540000 ASCBRV37 EQU ASCBSRQ4 01541000 ASCBRV36 EQU ASCBSRQ4 01542000 ASCBRV35 EQU ASCBSRQ3 01543000 ASCBRV34 EQU ASCBSRQ3 01544000 ASCBRV33 EQU ASCBSRQ3 01545000 ASCBRV32 EQU ASCBSRQ3 01546000 ASCBRV31 EQU ASCBSRQ3 01547000 ASCBRV30 EQU ASCBSRQ3 01548000 ASCBRV29 EQU ASCBSRQ3 01549000 ASCBRV28 EQU ASCBSRQ3 01550000 ASCBRV27 EQU ASCBSRQ2 01551000 ASCBRV26 EQU ASCBSRQ2 01552000 ASCBRV25 EQU ASCBSRQ2 01553000 ASCBRV24 EQU ASCBSRQ2 01554000 ASCBRV23 EQU ASCBSRQ2 01555000 ASCBRV22 EQU ASCBSRQ2 01556000 ASCBRV21 EQU ASCBSRQ2 01557000 ASCBRV20 EQU ASCBSRQ2 01558000 ASCBRV19 EQU ASCBSRQ1 01559000 ASCBRV18 EQU ASCBSRQ1 01560000 ASCBRV17 EQU ASCBSRQ1 01561000 ASCBRV16 EQU ASCBSRQ1 01562000 ASCBRV15 EQU ASCBSRQ1 01563000 ASCBRV14 EQU ASCBSRQ1 01564000 ASCBRV13 EQU ASCBSRQ1 01565000 ASCBSTA EQU ASCBSRQ1 01566000 ASCBJBNS EQU ASCB+176 01567000 ASCBJBNI EQU ASCB+172 01568000 ASCBMCC EQU ASCB+168 01569000 ASCBRTWA EQU ASCB+164 01570000 ASCBIQEA EQU ASCB+160 01571000 ASCBXMPQ EQU ASCB+156 01572000 ASCBRS01 EQU ASCB+154 01573000 ASCBFMCT EQU ASCB+152 01574000 ASCBOUXB EQU ASCB+148 01575000 ASCBOUCB EQU ASCB+144 01576000 ASCBMECB EQU ASCB+140 01577000 ASCBQECB EQU ASCB+136 01578000 ASCBLSQH EQU ASCBLKGP+4 01579000 ASCBLOCK EQU ASCBLKGP 01580000 ASCBTCBS EQU ASCB+124 01581000 ASCBNVSC EQU ASCB+122 01582000 ASCBVSC EQU ASCB+120 01583000 ASCBSRBS EQU ASCB+118 01584000 ASCBSSRB EQU ASCB+116 01585000 ASCBRV06 EQU ASCBFLG2 01586000 ASCBRV05 EQU ASCBFLG2 01587000 ASCBRV04 EQU ASCBFLG2 01588000 ASCBSNQS EQU ASCBFLG2 01589000 ASCBS2S EQU ASCBFLG2 01590000 ASCBCEXT EQU ASCBFLG2 01591000 ASCBPXMT EQU ASCBFLG2 01592000 ASCBXMPT EQU ASCBFLG2 01593000 ASCBRF07 EQU ASCBDSP1 01594000 ASCBRF06 EQU ASCBDSP1 01595000 ASCBRF05 EQU ASCBDSP1 01596000 ASCBRF04 EQU ASCBDSP1 01597000 ASCBRF03 EQU ASCBDSP1 01598000 ASCBRF02 EQU ASCBDSP1 01599000 ASCBFAIL EQU ASCBDSP1 01600000 ASCBNOQ EQU ASCBDSP1 01601000 ASCBSWCT EQU ASCB+112 01602000 ASCBASXB EQU ASCB+108 01603000 ASCBTMCH EQU ASCB+104 01604000 ASCBNSWP EQU ASCBFLG1 01605000 ASCBTYP1 EQU ASCBFLG1 01606000 ASCBSTND EQU ASCBFLG1 01607000 ASCBABNT EQU ASCBFLG1 01608000 ASCBTERM EQU ASCBFLG1 01609000 ASCBS3S EQU ASCBFLG1 01610000 ASCBCMSH EQU ASCBFLG1 01611000 ASCBTOFF EQU ASCBFLG1 01612000 ASCBRF01 EQU ASCBRCTF 01613000 ASCBTMLW EQU ASCBRCTF 01614000 ASCBOUT EQU ASCBRCTF 01615000 ASCBWAIT EQU ASCBRCTF 01616000 ASCBRV08 EQU ASCBRCTF 01617000 ASCBFQU EQU ASCBRCTF 01618000 ASCBFRS EQU ASCBRCTF 01619000 ASCBTMNO EQU ASCBRCTF 01620000 ASCBAFFN EQU ASCBFW1 01621000 ASCBDUMP EQU ASCB+96 01622000 ASCBRV44 EQU ASCB+92 01623000 ASCBUBET EQU ASCB+88 01624000 ASCBECB EQU ASCB+84 01625000 ASCBJSTL EQU ASCB+80 01626000 ASCBEWST EQU ASCB+72 01627000 ASCBEJST EQU ASCB+64 01628000 ASCBTSB EQU ASCB+60 01629000 ASCBCSCB EQU ASCB+56 01630000 ASCBRSMA EQU ASCBRSM+1 01631000 ASCBRV54 EQU ASCBRSMF 01632000 ASCBRV53 EQU ASCBRSMF 01633000 ASCBRV52 EQU ASCBRSMF 01634000 ASCBRV51 EQU ASCBRSMF 01635000 ASCBVEQR EQU ASCBRSMF 01636000 ASCBN2LP EQU ASCBRSMF 01637000 ASCB1LPU EQU ASCBRSMF 01638000 ASCB2LPU EQU ASCBRSMF 01639000 ASCBLDA EQU ASCB+48 01640000 ASCBDP EQU ASCB+43 01641000 ASCBRV07 EQU ASCB+42 01642000 ASCBIOSM EQU ASCB+40 01643000 ASCBSEQN EQU ASCB+38 01644000 ASCBCPUS EQU ASCB+32 01645000 ASCBSPL EQU ASCB+28 01646000 ASCBIOSP EQU ASCB+24 01647000 ASCBSYNC EQU ASCBSUPC+4 01648000 ASCBSVRB EQU ASCBSUPC 01649000 ASCBCMSF EQU ASCB+12 01650000 ASCBBWDP EQU ASCB+8 01651000 ASCBASCB EQU ASCB 01652000 ASCBEGIN EQU ASCB 01653000 LCCAR125 EQU LCCA+964 01654000 LCCAR124 EQU LCCA+960 01655000 LCCASGPR EQU LCCA+896 01656000 LCCADRT2 EQU LCCA+888 01657000 LCCADRT1 EQU LCCA+880 01658000 LCCAR103 EQU LCCA+876 01659000 LCCAESS2 EQU LCCA+872 01660000 LCCASPLJ EQU LCCA+868 01661000 LCCASMQJ EQU LCCA+864 01662000 LCCAIRT EQU LCCA+736 01663000 LCCARV89 EQU LCCA+728 01664000 LCCAPGTA EQU LCCASRBF+2 01665000 LCCASAFN EQU LCCASRBF 01666000 LCCAECSA EQU LCCA+716 01667000 LCCAICR0 EQU LCCA+712 01668000 LCCALWTM EQU LCCA+704 01669000 LCCARV78 EQU LCCA+700 01670000 LCCAPINV EQU LCCA+696 01671000 LCCARV88 EQU LCCA+695 01672000 LCCARV87 EQU LCCALKFG 01673000 LCCARV86 EQU LCCALKFG 01674000 LCCARV85 EQU LCCALKFG 01675000 LCCARV84 EQU LCCALKFG 01676000 LCCALKRD EQU LCCALKFG 01677000 LCCALKAQ EQU LCCALKFG 01678000 LCCALKSA EQU LCCALKFG 01679000 LCCALKDP EQU LCCALKFG 01680000 LCCACRST EQU LCCACREX 01681000 LCCACRDP EQU LCCACREX 01682000 LCCACRLM EQU LCCACREX 01683000 LCCACRIN EQU LCCACREX 01684000 LCCACRRT EQU LCCACREX 01685000 LCCACRLE EQU LCCACREX 01686000 LCCACRRM EQU LCCACREX 01687000 LCCACREF EQU LCCACREX 01688000 LCCAVARY EQU LCCACRFL 01689000 LCCARV73 EQU LCCACRFL 01690000 LCCARV72 EQU LCCACRFL 01691000 LCCARV71 EQU LCCACRFL 01692000 LCCARV70 EQU LCCACRFL 01693000 LCCARV69 EQU LCCACRFL 01694000 LCCACLMS EQU LCCACRFL 01695000 LCCACRTM EQU LCCACRFL 01696000 LCCALCR0 EQU LCCA+688 01697000 LCCACRLC EQU LCCA+684 01698000 LCCARCPU EQU LCCA+680 01699000 LCCADCPU EQU LCCA+676 01700000 LCCASRBJ EQU LCCA+672 01701000 LCCADSSR EQU LCCA+668 01702000 LCCADSSC EQU LCCA+660 01703000 LCCADSS3 EQU LCCA+648 01704000 LCCADSS2 EQU LCCA+636 01705000 LCCADSS1 EQU LCCA+624 01706000 LCCAWTIM EQU LCCA+616 01707000 LCCAITOD EQU LCCA+608 01708000 LCCADTOD EQU LCCA+600 01709000 LCCASTOD EQU LCCA+592 01710000 LCCARIR5 EQU LCCASPSA+44 01711000 LCCARIR4 EQU LCCASPSA+40 01712000 LCCARIR3 EQU LCCASPSA+36 01713000 LCCARIR2 EQU LCCASPSA+32 01714000 LCCARPR5 EQU LCCASPSA+28 01715000 LCCARPR4 EQU LCCASPSA+24 01716000 LCCARPR3 EQU LCCASPSA+20 01717000 LCCARPR2 EQU LCCASPSA+16 01718000 LCCADSR5 EQU LCCASPSA+12 01719000 LCCADSR4 EQU LCCASPSA+8 01720000 LCCADSR3 EQU LCCASPSA+4 01721000 LCCADSR2 EQU LCCASPSA 01722000 LCCARV68 EQU LCCA+543 01723000 LCCAPSMK EQU LCCA+542 01724000 LCCARV67 EQU LCCADSF2 01725000 LCCARV66 EQU LCCADSF2 01726000 LCCARV65 EQU LCCADSF2 01727000 LCCARV64 EQU LCCADSF2 01728000 LCCADSRW EQU LCCADSF2 01729000 LCCADSPL EQU LCCADSF2 01730000 LCCAGSRB EQU LCCADSF2 01731000 LCCASRBM EQU LCCADSF2 01732000 LCCARV61 EQU LCCADSF1 01733000 LCCARV60 EQU LCCADSF1 01734000 LCCARV59 EQU LCCADSF1 01735000 LCCARV58 EQU LCCADSF1 01736000 LCCATIMR EQU LCCADSF1 01737000 LCCADSS EQU LCCADSF1 01738000 LCCAVCPU EQU LCCADSF1 01739000 LCCAACR EQU LCCADSF1 01740000 LCCACPUS EQU LCCA+536 01741000 LCCAASCP EQU LCCA+532 01742000 LCCAESSA EQU LCCA+528 01743000 LCCARV55 EQU LCCASPN4 01744000 LCCARV54 EQU LCCASPN4 01745000 LCCARV53 EQU LCCASPN4 01746000 LCCARV52 EQU LCCASPN4 01747000 LCCARV51 EQU LCCASPN4 01748000 LCCARV50 EQU LCCASPN4 01749000 LCCARV49 EQU LCCASPN4 01750000 LCCARV48 EQU LCCASPN4 01751000 LCCARV47 EQU LCCASPN3 01752000 LCCARV46 EQU LCCASPN3 01753000 LCCARV45 EQU LCCASPN3 01754000 LCCARV44 EQU LCCASPN3 01755000 LCCARV43 EQU LCCASPN3 01756000 LCCARV42 EQU LCCASPN3 01757000 LCCARV41 EQU LCCASPN3 01758000 LCCARV40 EQU LCCASPN3 01759000 LCCARV39 EQU LCCASPN2 01760000 LCCARV38 EQU LCCASPN2 01761000 LCCARV37 EQU LCCASPN2 01762000 LCCARV36 EQU LCCASPN2 01763000 LCCARV35 EQU LCCASPN2 01764000 LCCARV34 EQU LCCASPN2 01765000 LCCARV33 EQU LCCASPN2 01766000 LCCARV32 EQU LCCASPN2 01767000 LCCARV31 EQU LCCASPN1 01768000 LCCARV30 EQU LCCASPN1 01769000 LCCAMFIO EQU LCCASPN1 01770000 LCCARSTR EQU LCCASPN1 01771000 LCCATSPN EQU LCCASPN1 01772000 LCCALOCK EQU LCCASPN1 01773000 LCCASIGP EQU LCCASPN1 01774000 LCCAPTLB EQU LCCASPN1 01775000 LCCARV27 EQU LCCAIHR4 01776000 LCCARV26 EQU LCCAIHR4 01777000 LCCARV25 EQU LCCAIHR4 01778000 LCCARV24 EQU LCCAIHR4 01779000 LCCARV23 EQU LCCAIHR4 01780000 LCCARV22 EQU LCCAIHR4 01781000 LCCARV21 EQU LCCAIHR4 01782000 LCCARV20 EQU LCCAIHR4 01783000 LCCARV19 EQU LCCAIHR3 01784000 LCCARV18 EQU LCCAIHR3 01785000 LCCARV17 EQU LCCAIHR3 01786000 LCCARV16 EQU LCCAIHR3 01787000 LCCARV15 EQU LCCAIHR3 01788000 LCCARV14 EQU LCCAIHR3 01789000 LCCARV13 EQU LCCAIHR3 01790000 LCCARV12 EQU LCCAIHR3 01791000 LCCARV11 EQU LCCAIHR2 01792000 LCCARV10 EQU LCCAIHR2 01793000 LCCARV09 EQU LCCAIHR2 01794000 LCCARV08 EQU LCCAIHR2 01795000 LCCARV07 EQU LCCAIHR2 01796000 LCCARV06 EQU LCCAIHR2 01797000 LCCARV05 EQU LCCAIHR2 01798000 LCCARV04 EQU LCCAIHR2 01799000 LCCARV03 EQU LCCAIHR1 01800000 LCCARV02 EQU LCCAIHR1 01801000 LCCARV01 EQU LCCAIHR1 01802000 LCCAPPIE EQU LCCAIHR1 01803000 LCCAPSG1 EQU LCCAIHR1 01804000 LCCAPDAT EQU LCCAIHR1 01805000 LCCAXRC2 EQU LCCAIHR1 01806000 LCCAXRC1 EQU LCCAIHR1 01807000 LCCAIOPS EQU LCCA+512 01808000 LCCAGPGR EQU LCCA+448 01809000 LCCAR133 EQU LCCA+444 01810000 LCCAR132 EQU LCCA+440 01811000 LCCAR131 EQU LCCA+436 01812000 LCCAR130 EQU LCCA+432 01813000 LCCAR129 EQU LCCA+428 01814000 LCCAR128 EQU LCCA+424 01815000 LCCAR127 EQU LCCA+420 01816000 LCCAR126 EQU LCCA+416 01817000 LCCARSGR EQU LCCA+352 01818000 LCCAXGR3 EQU LCCA+288 01819000 LCCAXGR2 EQU LCCA+224 01820000 LCCAXGR1 EQU LCCA+160 01821000 LCCACR0 EQU LCCA+156 01822000 LCCAMCR1 EQU LCCA+152 01823000 LCCAPVAD EQU LCCA+148 01824000 LCCAPINT EQU LCCA+144 01825000 LCCAPPSW EQU LCCA+136 01826000 LCCAPGR2 EQU LCCA+72 01827000 LCCAPGR1 EQU LCCA+8 01828000 LCCARV77 EQU LCCA+6 01829000 LCCACPUA EQU LCCA+4 01830000 LCCALCCA EQU LCCA 01831000 RCARETAD EQU RCA+20 01832000 RCATASID EQU RCA+18 01833000 RCAREP1 EQU RCANAME6 01834000 RCAPSIF EQU RCANAME6 01835000 RCAPSIX EQU RCANAME6 01836000 RCAVEQRP EQU RCANAME6 01837000 RCARCFC EQU RCANAME6 01838000 RCACSGB EQU RCANAME6 01839000 RCAFXL EQU RCANAME6 01840000 RCAPS113 EQU RCANAME6 01841000 RCAFREE EQU RCANAME5 01842000 RCARFR2 EQU RCANAME5 01843000 RCACPBR EQU RCANAME5 01844000 RCAOPBR EQU RCANAME5 01845000 RCASORT EQU RCANAME5 01846000 RCASIRT EQU RCANAME5 01847000 RCARELV EQU RCANAME5 01848000 RCARELF EQU RCANAME5 01849000 RCAGFAD EQU RCANAME4 01850000 RCAVEQRI EQU RCANAME4 01851000 RCAVEQRF EQU RCANAME4 01852000 RCAVEQRC EQU RCANAME4 01853000 RCATERM EQU RCANAME4 01854000 RCASQA EQU RCANAME4 01855000 RCASWIN EQU RCANAME4 01856000 RCASOUT EQU RCANAME4 01857000 RCARFR EQU RCANAME3 01858000 RCARELS EQU RCANAME3 01859000 RCARCFI EQU RCANAME3 01860000 RCARCF EQU RCANAME3 01861000 RCAPSII EQU RCANAME3 01862000 RCAPSIB EQU RCANAME3 01863000 RCAPS112 EQU RCANAME3 01864000 RCAPIX EQU RCANAME3 01865000 RCAPIOP EQU RCANAME2 01866000 RCASWPC EQU RCANAME2 01867000 RCASWPP EQU RCANAME2 01868000 RCAPFTE EQU RCANAME2 01869000 RCAPCB EQU RCANAME2 01870000 RCAOUT EQU RCANAME2 01871000 RCAITAS EQU RCANAME2 01872000 RCAIOCP EQU RCANAME2 01873000 RCAINV EQU RCANAME1 01874000 RCAGFA EQU RCANAME1 01875000 RCAFXLD EQU RCANAME1 01876000 RCAVEQR EQU RCANAME1 01877000 RCADSEG EQU RCANAME1 01878000 RCADLAS EQU RCANAME1 01879000 RCACSEG EQU RCANAME1 01880000 RCAVAMSI EQU RCANAME1 01881000 @NM00041 EQU RCAFLAGS 01882000 @NM00040 EQU RCAFLAGS 01883000 RCAQS EQU RCAFLAGS 01884000 RCAPSIER EQU RCAFLAGS 01885000 RCAABEND EQU RCAFLAGS 01886000 RCALL EQU RCAFLAGS 01887000 RCASAL EQU RCAFLAGS 01888000 RCACSECT EQU RCA+9 01889000 @NM00039 EQU RCANAME7 01890000 RCAPRSS EQU RCANAME7 01891000 RCAPRSR EQU RCANAME7 01892000 RCAPRSB EQU RCANAME7 01893000 RCAPSIY EQU RCANAME7 01894000 RCAPIOI EQU RCANAME7 01895000 RCAPARM1 EQU RCA+4 01896000 RCAPARM0 EQU RCA 01897000 CVTLEVL EQU CVTRELNO+2 01898000 CVTNUMB EQU CVTRELNO 01899000 CVTMDL EQU CVTFIX+250 01900000 @NM00014 EQU CVTFIX+248 01901000 @NM00013 EQU CVTFIX 01902000 CVTRV482 EQU CVTXTNT2+128 01903000 CVTRV481 EQU CVTXTNT2+124 01904000 CVTRV480 EQU CVTXTNT2+120 01905000 CVTRV479 EQU CVTXTNT2+118 01906000 CVTRV478 EQU CVTXTNT2+117 01907000 CVTRV477 EQU CVTXTNT2+116 01908000 CVTRV476 EQU CVTXTNT2+115 01909000 CVTRV475 EQU CVTXTNT2+114 01910000 CVTRV474 EQU CVTRV466 01911000 CVTRV473 EQU CVTRV466 01912000 CVTRV472 EQU CVTRV466 01913000 CVTRV471 EQU CVTRV466 01914000 CVTRV470 EQU CVTRV466 01915000 CVTRV469 EQU CVTRV466 01916000 CVTRV468 EQU CVTRV466 01917000 CVTRV467 EQU CVTRV466 01918000 CVTRV465 EQU CVTRV457 01919000 CVTRV464 EQU CVTRV457 01920000 CVTRV463 EQU CVTRV457 01921000 CVTRV462 EQU CVTRV457 01922000 CVTRV461 EQU CVTRV457 01923000 CVTRV460 EQU CVTRV457 01924000 CVTRV459 EQU CVTRV457 01925000 CVTRV458 EQU CVTRV457 01926000 CVTRV456 EQU CVTXTNT2+108 01927000 CVTRV455 EQU CVTXTNT2+104 01928000 CVTRV454 EQU CVTXTNT2+100 01929000 CVTRV453 EQU CVTXTNT2+96 01930000 CVTRV452 EQU CVTXTNT2+94 01931000 CVTRV451 EQU CVTXTNT2+92 01932000 CVTRV450 EQU CVTXTNT2+90 01933000 CVTRV449 EQU CVTXTNT2+88 01934000 CVTRV448 EQU CVTXTNT2+87 01935000 CVTRV447 EQU CVTXTNT2+86 01936000 CVTRV446 EQU CVTRV438 01937000 CVTRV445 EQU CVTRV438 01938000 CVTRV444 EQU CVTRV438 01939000 CVTRV443 EQU CVTRV438 01940000 CVTRV442 EQU CVTRV438 01941000 CVTRV441 EQU CVTRV438 01942000 CVTRV440 EQU CVTRV438 01943000 CVTRV439 EQU CVTRV438 01944000 CVTRV437 EQU CVTRV429 01945000 CVTRV436 EQU CVTRV429 01946000 CVTRV435 EQU CVTRV429 01947000 CVTRV434 EQU CVTRV429 01948000 CVTRV433 EQU CVTRV429 01949000 CVTRV432 EQU CVTRV429 01950000 CVTRV431 EQU CVTRV429 01951000 CVTRV430 EQU CVTRV429 01952000 CVTRV428 EQU CVTXTNT2+80 01953000 CVTRV427 EQU CVTXTNT2+76 01954000 CVTRV426 EQU CVTXTNT2+72 01955000 CVTRV425 EQU CVTXTNT2+68 01956000 CVTATACT EQU CVTATCVT 01957000 CVTRV423 EQU CVTXTNT2+62 01958000 CVTRV422 EQU CVTXTNT2+60 01959000 CVTRV421 EQU CVTXTNT2+58 01960000 CVTRV420 EQU CVTXTNT2+56 01961000 CVTRV419 EQU CVTXTNT2+55 01962000 CVTRV418 EQU CVTXTNT2+54 01963000 CVTRV417 EQU CVTRV409 01964000 CVTRV416 EQU CVTRV409 01965000 CVTRV415 EQU CVTRV409 01966000 CVTRV414 EQU CVTRV409 01967000 CVTRV413 EQU CVTRV409 01968000 CVTRV412 EQU CVTRV409 01969000 CVTRV411 EQU CVTRV409 01970000 CVTRV410 EQU CVTRV409 01971000 CVTRV408 EQU CVTRV400 01972000 CVTRV407 EQU CVTRV400 01973000 CVTRV406 EQU CVTRV400 01974000 CVTRV405 EQU CVTRV400 01975000 CVTRV404 EQU CVTRV400 01976000 CVTRV403 EQU CVTRV400 01977000 CVTRV402 EQU CVTRV400 01978000 CVTRV401 EQU CVTRV400 01979000 CVTICB EQU CVTXTNT2+48 01980000 CVTSKTA EQU CVTXTNT2+44 01981000 CVTCCVT EQU CVTXTNT2+40 01982000 CVTRSV98 EQU CVTXTNT2+36 01983000 CVTRSV97 EQU CVTXTNT2+34 01984000 CVTRSV96 EQU CVTXTNT2+32 01985000 CVTOLTEP EQU CVTXTNT2+28 01986000 CVTQIDA EQU CVTQID+1 01987000 CVTRSV95 EQU CVTQID 01988000 CVTRSV94 EQU CVTXTNT2+20 01989000 CVTRSV93 EQU CVTXTNT2+16 01990000 CVTRSV92 EQU CVTXTNT2+12 01991000 CVTDEBVR EQU CVTXTNT2+8 01992000 CVTRSV91 EQU CVTXTNT2+6 01993000 CVTRSV9H EQU CVTFLGBT 01994000 CVTRSV9G EQU CVTFLGBT 01995000 CVTRSV9F EQU CVTFLGBT 01996000 CVTRSV9E EQU CVTFLGBT 01997000 CVTRSV9D EQU CVTFLGBT 01998000 CVTBAH EQU CVTFLGBT 01999000 CVTVME EQU CVTFLGBT 02000000 CVTNPE EQU CVTFLGBT 02001000 CVTNUCLS EQU CVTXTNT2+4 02002000 CVTDSSVA EQU CVTDSSV+1 02003000 CVTRSV89 EQU CVTDSSV 02004000 CVTRSV88 EQU CVTXTNT1+8 02005000 CVTRSV87 EQU CVTXTNT1+4 02006000 CVTFACHN EQU CVTXTNT1 02007000 CVTRV488 EQU CVTMAP+412 02008000 CVTRV487 EQU CVTMAP+408 02009000 CVTRV486 EQU CVTMAP+404 02010000 CVTRV485 EQU CVTMAP+400 02011000 CVTACTAP EQU CVTMAP+396 02012000 CVTAUTH EQU CVTMAP+392 02013000 CVTRV490 EQU CVTMAP+388 02014000 CVTSU EQU CVTMAP+384 02015000 CVTVOLT1 EQU CVTVOLM1+1 02016000 CVTVOLI1 EQU CVTVOLF1 02017000 CVTSTOA EQU CVTMAP+376 02018000 CVTRSV58 EQU CVTMAP+374 02019000 CVTRSV57 EQU CVTMAP+372 02020000 CVTDDCE EQU CVTMAP+368 02021000 CVTPNWFR EQU CVTMAP+364 02022000 CVTSMF EQU CVTMAP+360 02023000 CVTSULK EQU CVTMAP+358 02024000 CVTSLKO EQU CVTSYSK 02025000 CVTSLKP EQU CVTSYSK 02026000 CVTSLKQ EQU CVTSYSK 02027000 CVTSLKR EQU CVTSYSK 02028000 CVTRSV56 EQU CVTSYSK 02029000 CVTRSV55 EQU CVTSYSK 02030000 CVTRSV54 EQU CVTSYSK 02031000 CVTRSV53 EQU CVTSYSK 02032000 CVTRSV52 EQU CVTA1F1 02033000 CVTRSV51 EQU CVTA1F1 02034000 CVTRSV50 EQU CVTA1F1 02035000 CVTRSV49 EQU CVTA1F1 02036000 CVTRSV48 EQU CVTA1F1 02037000 CVTRSV47 EQU CVTA1F1 02038000 CVTSRSW EQU CVTA1F1 02039000 CVTPFSW EQU CVTA1F1 02040000 CVTPCVT EQU CVTMAP+352 02041000 CVTRSV46 EQU CVTMAP+344 02042000 CVTRSV45 EQU CVTMAP+340 02043000 CVTRSV44 EQU CVTMAP+338 02044000 CVTRSV43 EQU CVTMAP+336 02045000 CVTHJESA EQU CVTHJES+1 02046000 CVTRSV42 EQU CVTHJES 02047000 CVTEXT2A EQU CVTEXT2+1 02048000 CVTRSV41 EQU CVTEXT2 02049000 CVTAPFA EQU CVTAPF+1 02050000 CVTRSV40 EQU CVTAPF 02051000 CVTRV518 EQU CVTINTLA 02052000 CVTRV517 EQU CVTERPV 02053000 CVTEORM EQU CVTMAP+312 02054000 CVTMCHPR EQU CVTMAP+308 02055000 CVTTZ EQU CVTMAP+304 02056000 CVTJEPS EQU CVTMAP+300 02057000 CVTJESCT EQU CVTMAP+296 02058000 CVTMODE EQU CVTMAP+292 02059000 CVTPTRV EQU CVTMAP+288 02060000 CVTREAL EQU CVTMAP+284 02061000 CVTRSV39 EQU CVTMAP+280 02062000 CVTRSV38 EQU CVTMAP+276 02063000 CVTDMSRA EQU CVTDMSR+1 02064000 CVTRV634 EQU CVTDMSRF 02065000 CVTRV633 EQU CVTDMSRF 02066000 CVTRV632 EQU CVTDMSRF 02067000 CVTRV631 EQU CVTDMSRF 02068000 CVTRV630 EQU CVTDMSRF 02069000 CVTRV629 EQU CVTDMSRF 02070000 CVTUDUMP EQU CVTDMSRF 02071000 CVTSDUMP EQU CVTDMSRF 02072000 CVTQMSGA EQU CVTQMSG+1 02073000 CVTRSV36 EQU CVTQMSG 02074000 CVTAMFF EQU CVTMAP+264 02075000 CVTPURGA EQU CVTPURG+1 02076000 CVTRSV35 EQU CVTPURG 02077000 CVTCBSP EQU CVTMAP+256 02078000 CVTATERA EQU CVTATER+1 02079000 CVTSYST EQU CVTATER 02080000 CVTVOLT2 EQU CVTTAT 02081000 CVTVOLI2 EQU CVTVOLF2 02082000 CVTAQAVB EQU CVTAQAVT+1 02083000 CVTRSV34 EQU CVTTCMFG 02084000 CVTRSV33 EQU CVTTCMFG 02085000 CVTRSV32 EQU CVTTCMFG 02086000 CVTRSV31 EQU CVTTCMFG 02087000 CVTRSV30 EQU CVTTCMFG 02088000 CVTRSV29 EQU CVTTCMFG 02089000 CVTLDEV EQU CVTTCMFG 02090000 CVTTCRDY EQU CVTTCMFG 02091000 CVTGTFA EQU CVTGTF+1 02092000 CVTRSV27 EQU CVTGTFST 02093000 CVTRNIO EQU CVTGTFST 02094000 CVTUSR EQU CVTGTFST 02095000 CVTRV318 EQU CVTFORM 02096000 CVTRV317 EQU CVTTMODE 02097000 CVTRV316 EQU CVTSTATE 02098000 CVTRV315 EQU CVTGTFS 02099000 CVTGTFAV EQU CVTGTFS 02100000 CVT0SCR1 EQU CVTMAP+232 02101000 CVTRV515 EQU CVTMAP+228 02102000 CVTRMS EQU CVTMAP+224 02103000 CVTPATCH EQU CVTMAP+220 02104000 CVTTSCE EQU CVTMAP+216 02105000 CVTLNKSC EQU CVTMAP+214 02106000 CVTQABST EQU CVTMAP+212 02107000 CVTMDLDS EQU CVTMAP+208 02108000 CVTUSER EQU CVTMAP+204 02109000 CVTABEND EQU CVTMAP+200 02110000 CVTSMCA EQU CVTMAP+196 02111000 CVTRSV18 EQU CVTMAP+192 02112000 CVTQLPAQ EQU CVTMAP+188 02113000 CVTQCDSR EQU CVTMAP+184 02114000 CVTVS1B EQU CVTOPTB 02115000 CVTVS1A EQU CVTOPTB 02116000 CVTFP EQU CVTOPTB 02117000 CVTAPTHR EQU CVTOPTB 02118000 CVTNLOG EQU CVTOPTB 02119000 CVTTOD EQU CVTOPTB 02120000 CVTCTIMS EQU CVTOPTB 02121000 CVTPROT EQU CVTOPTB 02122000 CVTXPFP EQU CVTOPTA 02123000 CVTASCII EQU CVTOPTA 02124000 CVTRSV13 EQU CVTOPTA 02125000 CVTRSV12 EQU CVTOPTA 02126000 CVTNIP EQU CVTOPTA 02127000 CVTDDR EQU CVTOPTA 02128000 CVTAPR EQU CVTOPTA 02129000 CVTCCH EQU CVTOPTA 02130000 CVTSNCTR EQU CVTMAP+180 02131000 CVTQMWR EQU CVTMAP+176 02132000 CVTQOCR EQU CVTMAP+172 02133000 CVT1EF00 EQU CVTMAP+168 02134000 CVTMZ00 EQU CVTMAP+164 02135000 CVTSV76Q EQU CVTSV76C 02136000 CVTRSV11 EQU CVTMAP+156 02137000 CVT0PT01 EQU CVTMAP+152 02138000 CVTMSER EQU CVTMAP+148 02139000 CVTRV516 EQU CVTIERLC 02140000 CVTILCH EQU CVTMAP+140 02141000 CVT0DS EQU CVTMAP+136 02142000 CVTFBOSV EQU CVTMAP+132 02143000 CVTNUCB EQU CVTMAP+128 02144000 CVTIXAVL EQU CVTMAP+124 02145000 CVTSV76M EQU CVTIOQET 02146000 CVTDCBA EQU CVTMAP+117 02147000 CVTMVS2 EQU CVTDCB 02148000 CVT6DAT EQU CVTDCB 02149000 CVT4MPS EQU CVTDCB 02150000 CVTRSV09 EQU CVTDCB 02151000 CVT4MS1 EQU CVTDCB 02152000 CVT2SPS EQU CVTDCB 02153000 CVT1SSS EQU CVTDCB 02154000 CVTRSV08 EQU CVTDCB 02155000 CVTSTB EQU CVTMAP+112 02156000 CVTQTD00 EQU CVTMAP+108 02157000 CVTQTE00 EQU CVTMAP+104 02158000 CVTCUCB EQU CVTMAP+100 02159000 CVTSJQ EQU CVTMAP+96 02160000 CVTPBLDL EQU CVTMAP+92 02161000 CVTTPC EQU CVTMAP+88 02162000 CVTSVDCB EQU CVTMAP+84 02163000 CVTBRET EQU CVTMAP+82 02164000 CVTEXIT EQU CVTMAP+80 02165000 CVT0FN00 EQU CVTMAP+76 02166000 CVTDARA EQU CVTDAR+1 02167000 CVTRSV07 EQU CVTFLGS1 02168000 CVTRSV06 EQU CVTFLGS1 02169000 CVTRSV05 EQU CVTFLGS1 02170000 CVTRSV04 EQU CVTFLGS1 02171000 CVTRSV03 EQU CVTFLGS1 02172000 CVTRSV02 EQU CVTFLGS1 02173000 CVTRSV01 EQU CVTFLGS1 02174000 CVTDMPLK EQU CVTFLGS1 02175000 CVTXITP EQU CVTMAP+68 02176000 CVTZDTAB EQU CVTMAP+64 02177000 CVTMSLT EQU CVTMAP+60 02178000 CVTDATE EQU CVTMAP+56 02179000 CVTBTERM EQU CVTMAP+52 02180000 CVTSYSAD EQU CVTMAP+48 02181000 CVTXTLER EQU CVTMAP+44 02182000 CVTILK2 EQU CVTMAP+40 02183000 CVTILK1 EQU CVTMAP+36 02184000 CVTPRLTV EQU CVTMAP+32 02185000 CVTPCNVT EQU CVTMAP+28 02186000 CVT0VL00 EQU CVTMAP+24 02187000 CVTXAPG EQU CVTMAP+20 02188000 CVTBUF EQU CVTMAP+16 02189000 CVTJOB EQU CVTMAP+12 02190000 CVTLINK EQU CVTMAP+8 02191000 CVT0EF00 EQU CVTMAP+4 02192000 CVTTCBP EQU CVTMAP 02193000 CVT EQU CVTMAP 02194000 XPTLSID2 EQU XPTLPN 02195000 XPTLSID EQU XPTLGN 02196000 @NM00012 EQU XPTFLAG2 02197000 XPTIOERR EQU XPTFLAG2 02198000 XPTPOINP EQU XPTFLAG2 02199000 XPTRES1 EQU XPTFLAG2 02200000 XPTVALID EQU XPTFLAG2 02201000 XPTRSV4 EQU XPTFLAGS 02202000 XPTDEFER EQU XPTFLAGS 02203000 XPTRES2 EQU XPTFLAGS 02204000 XPTVIO EQU XPTFLAGS 02205000 @NM00011 EQU XPTFLAGS 02206000 XPTCKF EQU XPTFLAGS 02207000 XPTXAV EQU XPTFLAGS 02208000 XPTVIOLP EQU XPTFLAGS 02209000 XPTRSV1 EQU XPTE+1 02210000 XPTPROT EQU XPTE 02211000 PGTPAM EQU PGTBITS 02212000 @NM00010 EQU PGTBITS 02213000 @NM00009 EQU PGTBITS 02214000 @NM00008 EQU PGTBITS 02215000 @NM00007 EQU PGTBITS 02216000 @NM00006 EQU PGTBITS 02217000 @NM00005 EQU PGTBITS 02218000 PGTREAL EQU PGTRSA 02219000 PFTQNDX EQU PFTE+14 02220000 @NM00004 EQU PFTFLAG2 02221000 @NM00003 EQU PFTFLAG2 02222000 PFTOFFLN EQU PFTFLAG2 02223000 PFTVRPLT EQU PFTFLAG1 02224000 PFTLSQA EQU PFTFLAG1 02225000 PFTONAVQ EQU PFTFLAG1 02226000 PFTRSV1 EQU PFTE+10 02227000 PFTBQPTR EQU PFTQPTRS+2 02228000 PFTASID EQU PFTPGID 02229000 RSMASMHD EQU RSMHD+40 02230000 RSMFOEQ EQU RSMHD+36 02231000 RSMLIOQL EQU RSMLIOQ+4 02232000 RSMLIOQF EQU RSMLIOQ 02233000 RSMLSQAL EQU RSMLSQA+2 02234000 RSMLSQAF EQU RSMLSQA 02235000 RSMLFQL EQU RSMLFQ+2 02236000 RSMRSV2 EQU RSMHD+16 02237000 RSMCNTFX EQU RSMHD+14 02238000 RSMRSV1 EQU RSMHD+13 02239000 @NM00002 EQU RSMFLG1 02240000 RSMFAIL EQU RSMFLG1 02241000 RSMGFADD EQU RSMFLG1 02242000 RSMCPNC EQU RSMFLG1 02243000 RSMCPNU EQU RSMFLG1 02244000 RSMGFAD EQU RSMFLG1 02245000 RSMIOCPC EQU RSMFLG1 02246000 RSMIOCPU EQU RSMFLG1 02247000 RSMASCB EQU RSMHD+8 02248000 RSMSPCT EQU RSMHD+4 02249000 RSMVSTO EQU RSMHD 02250000 PVTEND EQU PVT+1944 02251000 PVTXXXXX EQU PVT+1940 02252000 PVTMVCLC EQU PVT+1936 02253000 PVTVCONS EQU PVT+1896 02254000 PVTPRSB EQU PVT+1892 02255000 PVTCIOQL EQU PVTPCBQS+36 02256000 PVTCIOQF EQU PVTPCBQS+32 02257000 PVTGFADL EQU PVTPCBQS+28 02258000 PVTGFADF EQU PVTPCBQS+24 02259000 PVTFPCBL EQU PVTPCBQS+20 02260000 PVTFPCBF EQU PVTPCBQS+16 02261000 PVTPCBQR EQU PVTPCBQS 02262000 PVTLPAFX EQU PVT+1850 02263000 PVTLSQAF EQU PVT+1848 02264000 PVTLPAR EQU PVT+1844 02265000 PVTLPAI EQU PVT+1840 02266000 PVTLPAFC EQU PVT+1838 02267000 PVTCHUIC EQU PVT+1836 02268000 PVTCOMFX EQU PVT+1834 02269000 PVTSQAFX EQU PVT+1832 02270000 PVTCNTFX EQU PVT+1830 02271000 PVTDEFFX EQU PVT+1828 02272000 PVTFIXOK EQU PVT+1826 02273000 PVTPEROK EQU PVT+1824 02274000 PVTMAXFX EQU PVT+1822 02275000 PVTPERFX EQU PVT+1820 02276000 PVTRSRB EQU PVT+1776 02277000 PVTRESV5 EQU PVT+1773 02278000 PVTSRBS EQU PVT+1772 02279000 PVTSSRB EQU PVT+1768 02280000 PVTACA EQU PVTWSAX+1400 02281000 PVTSAVE EQU PVTWSAX+1328 02282000 PVTWSA18 EQU PVTWSAX+1256 02283000 PVTWSA17 EQU PVTWSAX+1184 02284000 PVTWSA15 EQU PVTWSAX+1040 02285000 PVTWSA13 EQU PVTWSAX+896 02286000 PVTWSA12 EQU PVTWSAX+824 02287000 PVTWSA11 EQU PVTWSAX+752 02288000 PVTWSA10 EQU PVTWSAX+672 02289000 PVTWSA9 EQU PVTWSAX+592 02290000 PVTWSA8 EQU PVTWSAX+504 02291000 PVTWSA7 EQU PVTWSAX+432 02292000 PVTWSA6 EQU PVTWSAX+360 02293000 PVTWSA5 EQU PVTWSAX+288 02294000 PVTWSA4 EQU PVTWSAX+216 02295000 PVTWSA3 EQU PVTWSAX+144 02296000 PVTWSA2 EQU PVTWSAX+72 02297000 PVTWSA1 EQU PVTWSAX 02298000 PVTPFTQR EQU PVTQS+20 02299000 PVTRSBQL EQU PVTQS+18 02300000 PVTSQAQL EQU PVTQS+14 02301000 PVTSQAQF EQU PVTQS+12 02302000 PVTCFQL EQU PVTQS+10 02303000 PVTRSRVL EQU PVTQS+6 02304000 PVTRSRVF EQU PVTQS+4 02305000 PVTAFQL EQU PVTQS+2 02306000 PVTAFQF EQU PVTQS 02307000 PVTSPFR EQU PVT+302 02308000 PVTCFMCT EQU PVT+300 02309000 PVTSPREC EQU PVT+296 02310000 PVTCAREC EQU PVT+292 02311000 PVTCAOUT EQU PVT+288 02312000 PVTCAIN EQU PVT+284 02313000 PVTNSWPS EQU PVT+280 02314000 PVTNPREC EQU PVT+276 02315000 PVTSPOUT EQU PVT+272 02316000 PVTSPIN EQU PVT+268 02317000 PVTVAMR EQU PVT+264 02318000 PVTVAMO EQU PVT+260 02319000 PVTVAMI EQU PVT+256 02320000 PVTNPOUT EQU PVT+252 02321000 PVTNPIN EQU PVT+248 02322000 PVTPRSET EQU PVT+244 02323000 PVTFRSLT EQU PVT+240 02324000 PVTPAGIO EQU PVT+236 02325000 PVTSWPIO EQU PVT+232 02326000 PVTPSWPP EQU PVT+228 02327000 PVTPPREF EQU PVT+224 02328000 PVTPOPBR EQU PVT+220 02329000 PVTPRELF EQU PVT+216 02330000 PVTPRELV EQU PVT+212 02331000 PVTPFREE EQU PVT+208 02332000 PVTPRELS EQU PVT+204 02333000 PVTPOUT EQU PVT+200 02334000 PVTPFXLD EQU PVT+196 02335000 PVTPITAS EQU PVT+192 02336000 PVTPSRBP EQU PVT+188 02337000 PVTPDSEG EQU PVT+184 02338000 PVTPCSGB EQU PVT+180 02339000 PVTPCSEG EQU PVT+176 02340000 PVTPSWPC EQU PVT+168 02341000 PVTPSOUT EQU PVT+164 02342000 PVTPSWIN EQU PVT+160 02343000 PVTPRCV EQU PVT+156 02344000 PVTPRCFI EQU PVT+152 02345000 PVTPRCF EQU PVT+148 02346000 PVTPVRC EQU PVT+144 02347000 PVTPVRLS EQU PVT+136 02348000 PVTPVEQR EQU PVT+132 02349000 PVTPPIOI EQU PVT+128 02350000 PVTPVRPO EQU PVT+124 02351000 PVTPRFR EQU PVT+120 02352000 PVTPFP EQU PVT+112 02353000 PVTPCB EQU PVT+104 02354000 PVTREP2 EQU PVT+100 02355000 PVTPIOCP EQU PVT+96 02356000 PVTPIOP EQU PVT+92 02357000 PVTPGFAD EQU PVT+88 02358000 PVTPGFA EQU PVT+84 02359000 PVTPSQA EQU PVT+80 02360000 PVTPSINT EQU PVT+76 02361000 PVTPSIB EQU PVT+72 02362000 PVTSRBID EQU PVT+68 02363000 PVTPCIWA EQU PVT+64 02364000 PVTHQSA EQU PVT+62 02365000 PVTLQSA EQU PVT+60 02366000 PVTOROOT EQU PVT+56 02367000 PVTREUS EQU PVT+48 02368000 PVTSQNPC EQU PVT+47 02369000 PVTSQVRC EQU PVT+46 02370000 PVTPCBLO EQU PVT+38 02371000 PVTPCBCT EQU PVT+36 02372000 PVTDFRS EQU PVT+34 02373000 PVTRSQA EQU PVT+32 02374000 PVTPTLB EQU PVT+31 02375000 PVTPCBNO EQU PVT+30 02376000 PVTSRBNO EQU PVT+29 02377000 PVTSQDC EQU PVT+28 02378000 PVTLCSA EQU PVT+26 02379000 PVTLPRIV EQU PVT+24 02380000 PVTLVR EQU PVT+22 02381000 PVTFVR EQU PVT+20 02382000 PVTLPFN EQU PVT+18 02383000 PVTFPFN EQU PVT+16 02384000 PVTSSPIN EQU PVT+11 02385000 PVTPCBS EQU PVT+10 02386000 PVTPOOL EQU PVT+8 02387000 PVTAFCOK EQU PVT+6 02388000 PVTAFCLO EQU PVT+4 02389000 PVTAFC EQU PVT+2 02390000 @NM00001 EQU PVTFLAG2 02391000 PVTDUMP EQU PVTFLAG1 02392000 PVTSIT EQU PVTFLAG1 02393000 PVTLSI EQU PVTFLAG1 02394000 PVTAPREF EQU PVTFLAG1 02395000 PVTPCBLT EQU PVTFLAG1 02396000 PVTSRBIU EQU PVTFLAG1 02397000 PVTBGMS EQU PVTFLAG1 02398000 @NM00038 EQU PSA+3668 02399000 PSASTAK EQU PSA+3072 02400000 @NM00037 EQU PSA+1048 02401000 PSAUSEND EQU PSA+1048 02402000 PSARV062 EQU PSA+1044 02403000 PSACDAL EQU PSA+1040 02404000 PSAWTCOD EQU PSA+1036 02405000 PSAATCVT EQU PSA+1032 02406000 PSAPCPSW EQU PSA+1024 02407000 PSAPIR2 EQU PSA+1020 02408000 PSARV059 EQU PSA+1018 02409000 PSASVC13 EQU PSA+1016 02410000 PSALSFCC EQU PSA+1012 02411000 PSASFACC EQU PSA+1008 02412000 PSASTOP EQU PSA+992 02413000 PSASTART EQU PSA+976 02414000 PSARSPSW EQU PSA+968 02415000 PSASRPSW EQU PSA+960 02416000 PSARV045 EQU PSA+892 02417000 PSARV044 EQU PSA+888 02418000 PSARV043 EQU PSA+884 02419000 PSARV042 EQU PSA+880 02420000 PSARV041 EQU PSA+876 02421000 PSARV040 EQU PSA+872 02422000 PSARV025 EQU PSA+868 02423000 PSADSSED EQU PSA+868 02424000 PSADSSPR EQU PSA+864 02425000 PSADSSFW EQU PSA+860 02426000 PSADSS14 EQU PSA+856 02427000 PSADSSPP EQU PSA+848 02428000 PSADSSRP EQU PSA+840 02429000 PSADSS05 EQU PSADSSF4 02430000 PSADSS10 EQU PSADSSF4 02431000 PSADSSVE EQU PSADSSF4 02432000 PSADSSDE EQU PSADSSF4 02433000 PSADSSC0 EQU PSADSSF4 02434000 PSADSSIE EQU PSADSSF4 02435000 PSADSS12 EQU PSADSSF4 02436000 PSADSSRC EQU PSADSSF4 02437000 PSARV057 EQU PSADSSF3 02438000 PSARV056 EQU PSADSSF3 02439000 PSARV055 EQU PSADSSF3 02440000 PSADSSMC EQU PSADSSF3 02441000 PSADSSRW EQU PSADSSF3 02442000 PSADSSNM EQU PSADSSF3 02443000 PSADSSES EQU PSADSSF3 02444000 PSADSSGP EQU PSADSSF3 02445000 PSADSSF2 EQU PSADSSFL+1 02446000 PSADSSPI EQU PSADSSF1 02447000 PSADSSOI EQU PSADSSF1 02448000 PSADSSSP EQU PSADSSF1 02449000 PSADSSTP EQU PSADSSF1 02450000 PSADSSDW EQU PSADSSF1 02451000 PSADSSDD EQU PSADSSF1 02452000 PSADSSDM EQU PSADSSF1 02453000 PSADSSMV EQU PSADSSF1 02454000 PSADSSTS EQU PSA+816 02455000 PSADSSWK EQU PSA+812 02456000 PSADSSR3 EQU PSA+808 02457000 PSADSSR2 EQU PSA+804 02458000 PSADSSRS EQU PSA+800 02459000 PSASTOR EQU PSA+796 02460000 PSACPUSA EQU PSA+794 02461000 PSAVSTAP EQU PSA+792 02462000 PSAWKVAP EQU PSA+788 02463000 PSAWKRAP EQU PSA+784 02464000 PSAMCHIC EQU PSA+783 02465000 PSARV061 EQU PSA+782 02466000 PSASYMSK EQU PSA+781 02467000 PSAMCHFL EQU PSA+780 02468000 PSACR0 EQU PSA+776 02469000 PSAPSWSV EQU PSA+768 02470000 PSACLHS EQU PSAHLHI 02471000 PSALKR15 EQU PSALKSA+60 02472000 PSALKR14 EQU PSALKSA+56 02473000 PSALKR13 EQU PSALKSA+52 02474000 PSALKR12 EQU PSALKSA+48 02475000 PSALKR11 EQU PSALKSA+44 02476000 PSALKR10 EQU PSALKSA+40 02477000 PSALKR9 EQU PSALKSA+36 02478000 PSALKR8 EQU PSALKSA+32 02479000 PSALKR7 EQU PSALKSA+28 02480000 PSALKR6 EQU PSALKSA+24 02481000 PSALKR5 EQU PSALKSA+20 02482000 PSALKR4 EQU PSALKSA+16 02483000 PSALKR3 EQU PSALKSA+12 02484000 PSALKR2 EQU PSALKSA+8 02485000 PSALKR1 EQU PSALKSA+4 02486000 PSALKR0 EQU PSALKSA 02487000 PSARV023 EQU PSACLHT+52 02488000 PSALOCAL EQU PSACLHT+48 02489000 PSACMSL EQU PSACLHT+44 02490000 PSAOPTL EQU PSACLHT+40 02491000 PSATPACL EQU PSACLHT+36 02492000 PSATPDNL EQU PSACLHT+32 02493000 PSATPNCL EQU PSACLHT+28 02494000 PSAIOSLL EQU PSACLHT+24 02495000 PSAIOSUL EQU PSACLHT+20 02496000 PSAIOSCL EQU PSACLHT+16 02497000 PSAIOSSL EQU PSACLHT+12 02498000 PSASALCL EQU PSACLHT+8 02499000 PSAASML EQU PSACLHT+4 02500000 PSADISPL EQU PSACLHT 02501000 PSASRSA EQU PSA+636 02502000 PSARV050 EQU PSA+634 02503000 PSADSSGO EQU PSA+633 02504000 PSARECUR EQU PSA+632 02505000 PSAHLHIS EQU PSA+628 02506000 PSAIPCSA EQU PSA+624 02507000 @NM00036 EQU PSA+621 02508000 PSAIPCDM EQU PSA+620 02509000 PSAIPCD EQU PSA+616 02510000 @NM00035 EQU PSA+613 02511000 PSAIPCRM EQU PSA+612 02512000 PSAIPCR EQU PSA+608 02513000 PSAMCHEX EQU PSA+600 02514000 PSAMPSW EQU PSA+592 02515000 PSAEXPS2 EQU PSA+584 02516000 PSAEXPS1 EQU PSA+576 02517000 PSAPIREG EQU PSA+572 02518000 PSARSREG EQU PSA+568 02519000 PSAGPREG EQU PSA+556 02520000 PSARV022 EQU PSASUP4 02521000 PSARV021 EQU PSASUP4 02522000 PSARV020 EQU PSASUP4 02523000 PSARV019 EQU PSASUP4 02524000 PSARV018 EQU PSASUP4 02525000 PSARV017 EQU PSASUP4 02526000 PSARV016 EQU PSASUP4 02527000 PSARV015 EQU PSASUP4 02528000 PSARV014 EQU PSASUP3 02529000 PSAULCMS EQU PSASUP3 02530000 PSARV012 EQU PSASUP3 02531000 PSAESTA EQU PSASUP3 02532000 PSASPR EQU PSASUP3 02533000 PSAPSREG EQU PSASUP3 02534000 PSAPI2 EQU PSASUP3 02535000 PSAIOSUP EQU PSASUP3 02536000 PSALCR EQU PSASUP2 02537000 PSARTM EQU PSASUP2 02538000 PSAACR EQU PSASUP2 02539000 PSAIPCE2 EQU PSASUP2 02540000 PSAIPCES EQU PSASUP2 02541000 PSAIPCEC EQU PSASUP2 02542000 PSAGTF EQU PSASUP2 02543000 PSAIPCRI EQU PSASUP2 02544000 PSATYPE6 EQU PSASUP1 02545000 PSATCTL EQU PSASUP1 02546000 PSADISP EQU PSASUP1 02547000 PSALOCK EQU PSASUP1 02548000 PSAPI EQU PSASUP1 02549000 PSAEXT EQU PSASUP1 02550000 PSASVC EQU PSASUP1 02551000 PSAIO EQU PSASUP1 02552000 PSAANEW EQU PSA+544 02553000 PSATOLD EQU PSA+540 02554000 PSATNEW EQU PSA+536 02555000 PSALCCAR EQU PSA+532 02556000 PSAPCCAR EQU PSA+524 02557000 PSAPCCAV EQU PSA+520 02558000 PSACPUPA EQU PSA+516 02559000 PSAPSA EQU PSA+512 02560000 FLCHDEND EQU PSA+512 02561000 FLCCRSAV EQU FLCMCLA+280 02562000 FLCGRSAV EQU FLCMCLA+216 02563000 FLCFPSAV EQU FLCMCLA+184 02564000 FLCFLA EQU FLCMCLA+88 02565000 FLCRGNCD EQU FLCMCLA+84 02566000 FLCFSAA EQU FLCFSA+1 02567000 @NM00034 EQU FLCFSA 02568000 @NM00033 EQU FLCMCLA+72 02569000 FLCMCIC EQU FLCMCLA+64 02570000 @NM00032 EQU FLCMCLA+20 02571000 FLCIOAA EQU FLCIOA+1 02572000 @NM00031 EQU FLCIOA 02573000 @NM00030 EQU FLCMCLA+15 02574000 @NM00029 EQU FLCMCLA+14 02575000 @NM00028 EQU FLCMCLA+12 02576000 FLCLCL EQU FLCMCLA+8 02577000 FLCIOELA EQU FLCIOEL+1 02578000 @NM00027 EQU FLCIOEL 02579000 FLCCHNID EQU FLCMCLA 02580000 @NM00026 EQU PSA+160 02581000 FLCMTRCD EQU PSA+157 02582000 @NM00025 EQU PSA+156 02583000 FLCPERA EQU FLCPER+1 02584000 @NM00024 EQU FLCPER 02585000 @NM00023 EQU PSA+151 02586000 FLCPERCD EQU PSA+150 02587000 FLCMCNUM EQU PSA+149 02588000 @NM00022 EQU PSA+148 02589000 FLCTEAA EQU FLCTEA+1 02590000 @NM00021 EQU FLCTEA 02591000 PSAPIPC EQU PSAPICOD 02592000 PSAPIMC EQU PSAPICOD 02593000 PSAPIPER EQU PSAPICOD 02594000 PSARV049 EQU FLCPICOD 02595000 FLCPILCB EQU FLCPIILC 02596000 @NM00020 EQU FLCPIILC 02597000 @NM00019 EQU PSAEPPSW 02598000 FLCSVCN EQU PSAESPSW+2 02599000 FLCSILCB EQU FLCSVILC 02600000 @NM00018 EQU FLCSVILC 02601000 @NM00017 EQU PSAESPSW 02602000 FLCEICOD EQU PSAEEPSW+2 02603000 PSASPAD EQU PSAEEPSW 02604000 @NM00016 EQU PSA+128 02605000 FLCINPSW EQU PSA+120 02606000 FLCMNPSW EQU PSA+112 02607000 FLCPNPSW EQU PSA+104 02608000 FLCSNPSW EQU PSA+96 02609000 FLCENPSW EQU PSA+88 02610000 FLCTRACE EQU PSA+84 02611000 FLCTIMER EQU PSA+80 02612000 FLCCVT2 EQU PSA+76 02613000 FLCCAW EQU PSA+72 02614000 FLCCSW EQU PSA+64 02615000 FLCIOPSW EQU PSA+56 02616000 FLCMOPSW EQU PSA+48 02617000 FLCPOPSW EQU PSA+40 02618000 FLCSOPSW EQU PSA+32 02619000 FLCEOPSW EQU PSA+24 02620000 @NM00015 EQU FLCICCW2+4 02621000 FLCCVT EQU FLCICCW2 02622000 FLCICCW1 EQU FLCROPSW 02623000 FLCIPPSW EQU FLCRNPSW 02624000 * END UNREFERENCED COMPONENTS 02625000 @RF00141 EQU @RC00069 02626000 @RC00152 EQU @RC00069 02627000 @RC00146 EQU @RC00069 02628000 @RC00218 EQU @RC00201 02629000 @RF00155 EQU @RC00152 02630000 @RC00220 EQU @RC00218 02631000 @RC00252 EQU @RC00218 02632000 @ENDDATA EQU * 02633000 END IEAVPREF,(C'PLS2003',0701,78164) 02634000