TITLE 'IEAVPRSB - RSM REAL STORAGE BUFFER ALLOCATION ROUTINE *00001000 ' 00002000 IEAVPRSB CSECT 00003000 USING *,R15 00004000 MODID 00005000 DROP R15 00006000 STM R0,R14,0(R13) SAVE REGISTERS 00007000 BALR R9,0 ESTABLISH ADDRESSABILITY 00008000 OBTAIN DS 0H 00009000 USING OBTAIN,R9 00010000 * PVTPTR=CVTPVTP; /* GET PVT ADDRESS */ 00011000 L @14,CVTPTR 0054 00012000 L PVTPTR,CVTPVTP(,@14) 0054 00013000 * R2=PVTPRCV; /* GET ADDRESS OF RSM RECOVERY 0055 00014000 * ROUTINE */ 00015000 * 0055 00016000 L R2,PVTPRCV(,PVTPTR) 0055 00017000 * /*****************************************************************/ 00018000 * /* */ 00019000 * /* ESTABLISH FUNCTIONAL RECOVERY ROUTINE */ 00020000 * /* */ 00021000 * /*****************************************************************/ 00022000 * 0056 00023000 * GEN REFS(PSACSTK,FRRS,FRRSCURR,FRRSLAST,FRRSELEN,FRRSENTR,FRRSFRRA, 00024000 * FRRSPARM,PSALSFCC) SETS(R2,R11,R12,FRRSCURR); 0056 00025000 SETFRR A,FRRAD=(R2),PARMAD=(R2),WRKREGS=(R11,R12) 00026000 * RSCBPTR=R1; /* SAVE POINTER TO PARMLIST */ 00027000 LR RSCBPTR,R1 0057 00028000 * RFY 0058 00029000 * SMWKRSCB BASED(RSCBPTR); 0058 00030000 * RFY 0059 00031000 * SRCAADDR RSTD; 0059 00032000 * SRCAADDR=PVTPRCA; /* SAVE CURRENT RCA ADDRESS */ 00033000 L SRCAADDR,PVTPRCA(,PVTPTR) 0060 00034000 * PVTPRCA=R2; /* STORE NEW RCA ADDRESS IN PVT */ 00035000 ST R2,PVTPRCA(,PVTPTR) 0061 00036000 * R2->RCACSECT=RCACRSB; /* SET MODULE ID */ 00037000 MVI RCACSECT(R2),X'02' 0062 00038000 * R2->RCAPRSB=ON; /* SET CSECT ENTERED FLAG */ 00039000 OI RCAPRSB(R2),B'00100000' 0063 00040000 * FRAMENUM=ZERO; /* INITIALIZE STOLEN FRAME COUNT */ 00041000 SLR FRAMENUM,FRAMENUM 0064 00042000 * RSMHDPTR=ASCBRSM; /* GET CURRENT RSM HEADER 0065 00043000 * ADDRESS. THIS IS NEEDED AS 0065 00044000 * INPUT TO THE FIND PAGE ROUTINE 00045000 * (IEAVFP) */ 00046000 L @14,ASCBPTR 0065 00047000 L RSMHDPTR,ASCBRSM(,@14) 0065 00048000 * RFY 0066 00049000 * (R11, 0066 00050000 * R12) UNRSTD; 0066 00051000 * 0066 00052000 * /*****************************************************************/ 00053000 * /* */ 00054000 * /* SCAN COMMON FRAME QUEUE FOR PLPA FRAMES */ 00055000 * /* */ 00056000 * /*****************************************************************/ 00057000 * 0067 00058000 * PFTINDEX=PVTCFQF; /* GET RBN OF FIRST PFTE ON CFQ */ 00059000 LH PFTINDEX,PVTCFQF(,PVTPTR) 0067 00060000 N PFTINDEX,@CF02067 0067 00061000 * DO WHILE PFTINDEX^=ZERO&FRAMENUM^=SMWKFRHD&(FRAMENUM*4+(ADDR( 0068 00062000 * SMWKRSFM)))^=(ADDR(SMWKRSFM)+LENGTH(SMWKRSFM));/* SCAN TO 00063000 * END OF CFQ FOR REQUESTED 0068 00064000 * NUMBER OF FRAMES, AND BUILD 0068 00065000 * RSA ENTRIES WITHOUT 0068 00066000 * OVERFLOWING THE TABLE */ 00067000 B @DE00068 0068 00068000 @DL00068 DS 0H 0069 00069000 * PFTEPTR=PVTPFTP+PFTINDEX; /* GET PFTE ADDRESS */ 00070000 LR PFTEPTR,PFTINDEX 0069 00071000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0069 00072000 * RBNSAVE=PFTINDEX; /* SAVE RBN OF CURRENT PFTE */ 00073000 LR RBNSAVE,PFTINDEX 0070 00074000 * PFTINDEX=PFTFQPTR; /* SAVE RBN OF NEXT PFTE IN CHAIN*/ 00075000 LH PFTINDEX,PFTFQPTR(,PFTEPTR) 0071 00076000 N PFTINDEX,@CF02067 0071 00077000 * IF PFTVBN>=PVTLQSA THEN /* DOES FRAME CONTAIN A PLPA PAGE*/ 00078000 CLC PFTVBN(2,PFTEPTR),PVTLQSA(PVTPTR) 0072 00079000 BL @RF00072 0072 00080000 * DO; /* YES, TEST PFTE AGAINST STEAL 00081000 * CRITERIA */ 00082000 * IF PFTFXCT=0& /* IF FRAME IS NOT FIXED, */ 00083000 * PFTVRINT=OFF& /* NOR INTERCEPTED FOR A V=R 0074 00084000 * REGION, */ 00085000 * PFTPCBSI=OFF& /* NOR I/O IN PROGRESS, */ 00086000 * PFTBADPG=OFF& /* NOR STORAGE ERROR, */ 00087000 * PFTOFINT=OFF THEN /* NOR INTERCEPTED TO GO OFFLINE, 00088000 * THEN */ 00089000 LH @14,PFTFXCT(,PFTEPTR) 0074 00090000 LTR @14,@14 0074 00091000 BNZ @RF00074 0074 00092000 TM PFTVRINT(PFTEPTR),B'01001101' 0074 00093000 BNZ @RF00074 0074 00094000 * DO; /* FRAME IS ACCEPTABLE */ 00095000 * R1=PFTVBN*256; /* GET VIRTUAL ADDRESS OF FRAME */ 00096000 LH R1,PFTVBN(,PFTEPTR) 0076 00097000 N R1,@CF02067 0076 00098000 SLA R1,8 0076 00099000 * CALL IEAVFP; /* CALL FIND PAGE ROUTINE FOR 0077 00100000 * PAGE TABLE ENTRY */ 00101000 L @15,PVTPFP2(,PVTPTR) 0077 00102000 BALR @14,@15 0077 00103000 * IF R15^=0 THEN 0078 00104000 LTR R15,R15 0078 00105000 BZ @RF00078 0078 00106000 * DO; /* IF FIND PAGE RETURNS A 0079 00107000 * NON-ZERO RETURN CODE, ISSUE A 00108000 * C0D ABEND */ 00109000 * RCARCRD='01'X; /* STORE REASON CODE */ 00110000 L @14,RCAPTR(,PVTPTR) 0080 00111000 MVI RCARCRD(@14),X'01' 0080 00112000 * GEN CODE NOREFS SETS(R1); 0081 00113000 ABEND X'C0D',,,SYSTEM ISSUE C0D ABEND 00114000 * END; 0082 00115000 * ELSE 0083 00116000 * DO; /* FIND PAGE DID NOT FIND AN 0083 00117000 * ERROR */ 00118000 B @RC00078 0083 00119000 @RF00078 DS 0H 0084 00120000 * R1=R0; /* PUT PGTE ADDRESS IN R1 */ 00121000 LR R1,R0 0084 00122000 * CALL IEAVINV; /* CALL PAGE INVALIDATE ROUTINE 00123000 * TO INVALIDATE PAGE AND PTLB 0085 00124000 * FOR ALL CPU'S */ 00125000 L @15,PVTPINV(,PVTPTR) 0085 00126000 BALR @14,@15 0085 00127000 * R1->PGTRSA='0009'X;/* CLEAR PGTE RSA LEAVING PAGE 00128000 * GETMAIN ASSIGNED AND PAGE 0086 00129000 * INVALID FLAGS ON. THIS IS DONE 00130000 * TO PREVENT RECLAIM */ 00131000 MVC PGTRSA(2,R1),@CB02060 0086 00132000 * FRAMENUM=FRAMENUM+1;/* INCREMENT STOLEN FRAME COUNT 00133000 * BY ONE */ 00134000 AL FRAMENUM,@CF00062 0087 00135000 * SMWKFRMA(FRAMENUM)=RBNSAVE*256;/* STORE RSA IN SMWK 00136000 * TABLE ENTRY */ 00137000 LR @14,FRAMENUM 0088 00138000 SLA @14,2 0088 00139000 LR @11,RBNSAVE 0088 00140000 SLA @11,8 0088 00141000 ST @11,SMWKFRMA-4(@14,RSCBPTR) 0088 00142000 * R0=PFTRSBQN; /* INDICATE TO PFTE MANAGER TO 0089 00143000 * ENQUEUE PFTE ON TO RSB QUEUE */ 00144000 LA R0,16 0089 00145000 * GEN REFS(R0) SETS(R0)(SLL R0,16);/* MOVE QUEUE 0090 00146000 * INDEX TO BYTE 2 */ 00147000 SLL R0,16 00148000 * R0=R0|RBNSAVE; /* PUT RBN IN PARM REGISTER */ 00149000 OR R0,RBNSAVE 0091 00150000 * CALL IEAVPFTE; /* HAVE PFTE DEQUEUED */ 00151000 L @15,PVTPFTE(,PVTPTR) 0092 00152000 BALR @14,@15 0092 00153000 * END; 0093 00154000 * END; 0094 00155000 @RC00078 DS 0H 0095 00156000 * END; 0095 00157000 @RF00074 DS 0H 0096 00158000 * END; /* END OF SCAN OF CFQ */ 00159000 @RF00072 DS 0H 0096 00160000 @DE00068 LTR PFTINDEX,PFTINDEX 0096 00161000 BZ @DC00068 0096 00162000 LH @14,SMWKFRHD(,RSCBPTR) 0096 00163000 N @14,@CF02067 0096 00164000 CR FRAMENUM,@14 0096 00165000 BE @DC00068 0096 00166000 LR @14,FRAMENUM 0096 00167000 SLA @14,2 0096 00168000 LA @11,SMWKRSFM(,RSCBPTR) 0096 00169000 ALR @14,@11 0096 00170000 AL @11,@CF02062 0096 00171000 CR @14,@11 0096 00172000 BNE @DL00068 0096 00173000 @DC00068 DS 0H 0097 00174000 * SMWKPRSR=ADDR(IEAVPRSR); /* PUT ADDRESS OF RSB FRAME 0097 00175000 * RETURN ROUTINE IN THE SMWK */ 00176000 LA @14,IEAVPRSR 0097 00177000 ST @14,SMWKPRSR(,RSCBPTR) 0097 00178000 * SMWKFRHD=FRAMENUM; /* SAVE NUMBER OF FRAMES STOLEN 00179000 * IN SMWK */ 00180000 STH FRAMENUM,SMWKFRHD(,RSCBPTR) 0098 00181000 * PVTPRCA=SRCAADDR; /* RESTORE RCA ADDRESS */ 00182000 ST SRCAADDR,PVTPRCA(,PVTPTR) 0099 00183000 * R15=ZERO; /* ALWAYS RETURN A ZERO RETURN 0100 00184000 * CODE */ 00185000 * 0100 00186000 SLR R15,R15 0100 00187000 * /*****************************************************************/ 00188000 * /* */ 00189000 * /* DELETE FRR */ 00190000 * /* */ 00191000 * /*****************************************************************/ 00192000 * 0101 00193000 * RFY 0101 00194000 * (R11, 0101 00195000 * R12) RSTD; 0101 00196000 * GEN REFS(PSACSTK,FRRSCURR,FRRSEMP,FRRS,FRRSELEN,R0,R13,R14) SETS( 00197000 * R11,R12); 0102 00198000 SETFRR D,WRKREGS=(R11,R12) 00199000 LM R0,R14,0(R13) RESTORE REGISTERS 00200000 BR R14 RETURN TO CALLER 00201000 * RFY 0103 00202000 * (R11, 0103 00203000 * R12) UNRSTD; 0103 00204000 * GENERATE REFS(R0,R13,R14) SETS(R9,R10); 0104 00205000 ENTRY IEAVPRSR 00206000 DC CL8'IEAVPRSR' 00207000 IEAVPRSR DS 0H 00208000 STM R0,R14,0(R13) SAVE REGISTERS 00209000 LA R10,RETURN-OBTAIN GET CORRECT OFFSET 00210000 BALR R9,0 ESTABLISH ADDRESSABILITY 00211000 RETURN SR R9,R10 BASE REGISTER IS SET 00212000 * RFY 0105 00213000 * (R11, 0105 00214000 * R12) RSTD; 0105 00215000 * PVTPTR=CVTPVTP; /* GET PVT ADDRESS */ 00216000 L @14,CVTPTR 0106 00217000 L PVTPTR,CVTPVTP(,@14) 0106 00218000 * R2=PVTPRCV; /* GET ADDRESS OF RSM RECOVERY 0107 00219000 * ROUTINE */ 00220000 * 0107 00221000 L R2,PVTPRCV(,PVTPTR) 0107 00222000 * /*****************************************************************/ 00223000 * /* */ 00224000 * /* ESTABLISH FUNCTIONAL RECOVERY ROUTINE */ 00225000 * /* */ 00226000 * /*****************************************************************/ 00227000 * 0108 00228000 * GEN CODE REFS(PSACSTK,FRRS,FRRSCURR,FRRSLAST,FRRSELEN,FRRSENTR, 00229000 * FRRSFRRA,FRRSPARM,PSALSFCC) SETS(R2,R11,R12,FRRSCURR); 0108 00230000 SETFRR A,FRRAD=(R2),PARMAD=(R2),WRKREGS=(R11,R12) 00231000 * RFY 0109 00232000 * (R11, 0109 00233000 * R12) UNRSTD; 0109 00234000 * R2->RCACSECT=RCACRSB; /* SET MODULE ID */ 00235000 MVI RCACSECT(R2),X'02' 0110 00236000 * R2->RCAPRSR=ON; /* SET CSECT ENTERED FLAG */ 00237000 OI RCAPRSR(R2),B'00010000' 0111 00238000 * SRCAADDR=PVTPRCA; /* SAVE CURRENT RCA ADDRESS */ 00239000 L SRCAADDR,PVTPRCA(,PVTPTR) 0112 00240000 * PVTPRCA=R2; /* STORE NEW RCA ADDRESS IN PVT */ 00241000 ST R2,PVTPRCA(,PVTPTR) 0113 00242000 * RSCBPTR=R1; /* SAVE POINTER TO PARMLIST */ 00243000 LR RSCBPTR,R1 0114 00244000 * IF SMWKEVRY=OFF THEN /* IS ONLY ONE FRAME BEING 0115 00245000 * RETURNED */ 00246000 TM SMWKEVRY(RSCBPTR),B'10000000' 0115 00247000 BNZ @RF00115 0115 00248000 * DO; /* YES, FREE ONE RSB QUEUE FRAME */ 00249000 * R0=SMWKFRPT; /* GET REAL STORAGE ADDRESS OF 0117 00250000 * FRAME TO FREE */ 00251000 L R0,SMWKFRPT(,RSCBPTR) 0117 00252000 * GEN(SRL R0,8); /* COMPUTE RBN */ 00253000 SRL R0,8 00254000 * PFTEPTR=PVTPFTP+R0; /* COMPUTE PFTE ADDRESS */ 00255000 LR PFTEPTR,R0 0119 00256000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0119 00257000 * IF PFTQNDX=PFTRSBQN THEN /* VERIFY THAT THIS IS A FRAME IN 00258000 * THE REAL STORAGE BUFFER */ 00259000 CLI PFTQNDX(PFTEPTR),X'10' 0120 00260000 BNE @RF00120 0120 00261000 * DO; /* THIS IS A PFTE ON THE RSB 0121 00262000 * QUEUE */ 00263000 * R0=R0|BEGOFAVQ; /* INDICATE THAT FRAME IS TO GO 00264000 * TO THE FRONT OF THE AFQ */ 00265000 O R0,@CF02052 0122 00266000 * CALL IEAVPFTE; /* SEND FRAME TO THE AFQ */ 00267000 L @15,PVTPFTE(,PVTPTR) 0123 00268000 BALR @14,@15 0123 00269000 * END; 0124 00270000 * ELSE 0125 00271000 * DO; /* THE FRAME TO BE FREED IS NOT 00272000 * ON THE RSB Q. THIS IS AN 0125 00273000 * ERROR. RECORD THE ERROR VIA A 00274000 * C0D ABEND */ 00275000 B @RC00120 0125 00276000 @RF00120 DS 0H 0126 00277000 * RCARCRD='1F'X; /* SET REASON CODE */ 00278000 L @14,RCAPTR(,PVTPTR) 0126 00279000 MVI RCARCRD(@14),X'1F' 0126 00280000 * GEN CODE NOREFS SETS(R1); 0127 00281000 ABEND X'C0D',,,SYSTEM ISSUE A C0D ABEND 00282000 * END; 0128 00283000 * END; 0129 00284000 * ELSE /* THE COMPLETE BUFFER IS TO BE 00285000 * FREED */ 00286000 * DO WHILE PVTRSBQF^=0; /* ADD ALL FRAMES TO THE AFQ */ 00287000 B @RC00115 0130 00288000 @RF00115 B @DE00130 0130 00289000 @DL00130 DS 0H 0131 00290000 * R0=PVTRSBQF; /* GET RBN */ 00291000 LH R0,PVTRSBQF(,PVTPTR) 0131 00292000 N R0,@CF02067 0131 00293000 * R0=R0|BEGOFAVQ; /* INDICATE THAT FRAME IS TO GO 00294000 * TO THE FRONT OF THE AFQ */ 00295000 O R0,@CF02052 0132 00296000 * CALL IEAVPFTE; /* SEND FRAME TO THE AFQ */ 00297000 L @15,PVTPFTE(,PVTPTR) 0133 00298000 BALR @14,@15 0133 00299000 * END; 0134 00300000 @DE00130 LH @14,PVTRSBQF(,PVTPTR) 0134 00301000 N @14,@CF02067 0134 00302000 LTR @14,@14 0134 00303000 BNZ @DL00130 0134 00304000 * PVTPRCA=SRCAADDR; /* RESTORE RCA ADDRESS */ 00305000 @RC00115 ST SRCAADDR,PVTPRCA(,PVTPTR) 0135 00306000 * R15=ZERO; /* ALWAYS RETURN A ZERO RETURN 0136 00307000 * CODE */ 00308000 * 0136 00309000 SLR R15,R15 0136 00310000 * /*****************************************************************/ 00311000 * /* */ 00312000 * /* DELETE FUNCTIONAL RECOVERY ROUTINE */ 00313000 * /* */ 00314000 * /*****************************************************************/ 00315000 * 0137 00316000 * RFY 0137 00317000 * (R11, 0137 00318000 * R12) RSTD; 0137 00319000 * GEN REFS(PSACSTK,FRRSCURR,FRRSEMP,FRRS,FRRSELEN,R0,R13,R14) SETS( 00320000 * R11,R12); 0138 00321000 SETFRR D,WRKREGS=(R11,R12) 00322000 LM R0,R14,0(R13) RESTORE REGISTERS 00323000 BR R14 RETURN TO CALLER 00324000 * RFY 0139 00325000 * (R11, 0139 00326000 * R12) UNRSTD; 0139 00327000 * GENERATE REFS(R0,R14,PVTWSA18,PVTPTR) SETS(R9,R10); 0140 00328000 ENTRY IEAVPRSS 00329000 DC CL8'IEAVPRSS' 00330000 IEAVPRSS DS 0H 00331000 STM R0,R14,PVTWSA18(PVTPTR) SAVE REGISTERS 00332000 LA R10,STEAL-OBTAIN GET CORRECT OFFSET 00333000 BALR R9,0 ESTABLISH ADDRESSABILITY 00334000 STEAL SR R9,R10 BASE REGISTER IS SET 00335000 * PVTPRCA->RCAPRSS=ON; /* SET CSECT ENTERED FLAG */ 00336000 L @14,PVTPRCA(,PVTPTR) 0141 00337000 OI RCAPRSS(@14),B'00001000' 0141 00338000 * RBNSAVE=ZERO; /* SET FOUND RBN TO 0 */ 00339000 SLR RBNSAVE,RBNSAVE 0142 00340000 * PFTINDEX=PVTRSBQL; /* SET PFTINDEX TO LAST RSBQ RBN */ 00341000 LH PFTINDEX,PVTRSBQL(,PVTPTR) 0143 00342000 N PFTINDEX,@CF02067 0143 00343000 * SAVEPARM=R1; /* SAVE INPUT REGISTER */ 00344000 LR SAVEPARM,R1 0144 00345000 * IF SAVEPARM=1 THEN /* IS A PREFERRED AREA FRAME 0145 00346000 * DESIRED @ZA16816*/ 00347000 C SAVEPARM,@CF00062 0145 00348000 BNE @RF00145 0145 00349000 * DO WHILE PFTINDEX^=ZERO; /* YES, SCAN THE RSB QUEUE 0146 00350000 * BACKWARDS LOOKING FOR A 0146 00351000 * PREFERRED AREA FRAME */ 00352000 B @DE00146 0146 00353000 @DL00146 DS 0H 0147 00354000 * PFTEPTR=PVTPFTP+PFTINDEX; /* COMPUTE PFTE ADDRESS */ 00355000 LR PFTEPTR,PFTINDEX 0147 00356000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0147 00357000 * IF PFTPREF=ON THEN /* IS FRAME IN PREFERRED AREA */ 00358000 TM PFTPREF(PFTEPTR),B'00000100' 0148 00359000 BNO @RF00148 0148 00360000 * DO; /* YES, A PREFERRED AREA FRAME */ 00361000 * RBNSAVE=PFTINDEX; /* SAVE RBN */ 00362000 LR RBNSAVE,PFTINDEX 0150 00363000 * PFTINDEX=ZERO; /* ZERO LOOP CONTROL */ 00364000 SLR PFTINDEX,PFTINDEX 0151 00365000 * END; 0152 00366000 * ELSE /* NO, FRAME IS NOT IN PREFERRED 00367000 * AREA */ 00368000 * PFTINDEX=PFTBQPTR; /* GET NEXT RBN */ 00369000 B @RC00148 0153 00370000 @RF00148 LH PFTINDEX,PFTBQPTR(,PFTEPTR) 0153 00371000 N PFTINDEX,@CF02067 0153 00372000 * END; /* END OF SCAN FOR PREFERRED AREA 00373000 * FRAME */ 00374000 @RC00148 DS 0H 0154 00375000 @DE00146 LTR PFTINDEX,PFTINDEX 0154 00376000 BNZ @DL00146 0154 00377000 * ELSE 0155 00378000 * DO; /* NO, EITHER A NON-V=R OR A V=R 00379000 * AREA FRAME IS DESIRED */ 00380000 B @RC00145 0155 00381000 @RF00145 DS 0H 0156 00382000 * IF SAVEPARM=2 THEN /* IS A NON-V=R AREA FRAME 0156 00383000 * DESIRED @ZA16816*/ 00384000 C SAVEPARM,@CF00222 0156 00385000 BNE @RF00156 0156 00386000 * DO WHILE PFTINDEX^=ZERO; /* YES, SCAN THE RSB QUEUE 0157 00387000 * BACKWARDS LOOKING FOR ANY 0157 00388000 * NON-V=R AREA FRAME */ 00389000 B @DE00157 0157 00390000 @DL00157 DS 0H 0158 00391000 * PFTEPTR=PVTPFTP+PFTINDEX;/* COMPUTE PFTE ADDRESS */ 00392000 LR PFTEPTR,PFTINDEX 0158 00393000 AL PFTEPTR,PVTPFTP(,PVTPTR) 0158 00394000 * IF PFTVR=OFF THEN /* IS FRAME NON-V=R */ 00395000 TM PFTVR(PFTEPTR),B'00100000' 0159 00396000 BNZ @RF00159 0159 00397000 * DO; /* YES, A NON-V=R FRAME */ 00398000 * RBNSAVE=PFTINDEX; /* SAVE RBN */ 00399000 LR RBNSAVE,PFTINDEX 0161 00400000 * PFTINDEX=ZERO; /* ZERO LOOP CONTROL */ 00401000 SLR PFTINDEX,PFTINDEX 0162 00402000 * END; 0163 00403000 * ELSE 0164 00404000 * DO; /* NO, FRAME IS A V=R FRAME */ 00405000 B @RC00159 0164 00406000 @RF00159 DS 0H 0165 00407000 * PFTINDEX=PFTBQPTR; /* GET NEXT RBN */ 00408000 LH PFTINDEX,PFTBQPTR(,PFTEPTR) 0165 00409000 N PFTINDEX,@CF02067 0165 00410000 * END; 0166 00411000 * END; 0167 00412000 @RC00159 DS 0H 0167 00413000 @DE00157 LTR PFTINDEX,PFTINDEX 0167 00414000 BNZ @DL00157 0167 00415000 * ELSE 0168 00416000 * RBNSAVE=PVTRSBQL; /* ANY FRAME ON THE RSB Q IS 0168 00417000 * ACCEPTABLE. SAVE THE RBN OF 0168 00418000 * THE LAST ONE */ 00419000 B @RC00156 0168 00420000 @RF00156 LH RBNSAVE,PVTRSBQL(,PVTPTR) 0168 00421000 N RBNSAVE,@CF02067 0168 00422000 * END; 0169 00423000 @RC00156 DS 0H 0170 00424000 * IF RBNSAVE^=ZERO THEN /* WAS AN APPROPRIATE FRAME FOUND*/ 00425000 @RC00145 LTR RBNSAVE,RBNSAVE 0170 00426000 BZ @RF00170 0170 00427000 * DO; /* YES, SUMMARY DUMP MUST BE TOLD 00428000 * OF FRAME LOSS. THE STOLEN 0171 00429000 * FRAME WILL BE RETURNED TO THE 00430000 * CALLER */ 00431000 * R1=RBNSAVE*256; /* COMPUTE RSA */ 00432000 LR R1,RBNSAVE 0172 00433000 SLA R1,8 0172 00434000 * R13=ADDR(PVTSAVE); /* GET SAVE AREA ADDRESS */ 00435000 LA R13,PVTSAVE(,PVTPTR) 0173 00436000 * RSCBPTR=ADDR(SMWKRSM); /* GET ADDRESS OF PARMLIST WHICH 00437000 * IS IN THE SUMMARY DUMP WORK 0174 00438000 * AREA (SMWK) @ZM45197*/ 00439000 L @14,CVTPTR 0174 00440000 L @14,CVTRTMCT(,@14) 0174 00441000 L RSCBPTR,RTCTSDSW(,@14) 0174 00442000 LA RSCBPTR,SMWKRSM(,RSCBPTR) 0174 00443000 * CALL IEAVTSDS; /* NOTIFY SUMMARY DUMP STEAL BACK 00444000 * ROUTINE OF STOLEN FRAME */ 00445000 L @15,SMWKTSDS(,RSCBPTR) 0175 00446000 BALR @14,@15 0175 00447000 * R15=RBNSAVE+PVTPFTP; /* SET UP OUTPUT (PFTE ADDRESS) 00448000 * @ZA16816*/ 00449000 LR R15,RBNSAVE 0176 00450000 AL R15,PVTPFTP(,PVTPTR) 0176 00451000 * END; 0177 00452000 * ELSE 0178 00453000 * R15=ZERO; /* SET R15 TO ZERO, BECAUSE THE 00454000 * TYPE OF FRAME REQUESTED WAS 0178 00455000 * NOT FOUND @ZA16816*/ 00456000 B @RC00170 0178 00457000 @RF00170 SLR R15,R15 0178 00458000 * PVTPRCA->RCAPRSS=OFF; /* TURN OFF CSECT ENTERED FLAG */ 00459000 @RC00170 L @14,PVTPRCA(,PVTPTR) 0179 00460000 NI RCAPRSS(@14),B'11110111' 0179 00461000 * GEN REFS(R0,R14,PVTWSA18,PVTPTR); 0180 00462000 LM R0,R14,PVTWSA18(PVTPTR) RESTORE REGISTERS 00463000 BR R14 00464000 * END IEAVPRSB 0181 00465000 * 0181 00466000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00467000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00468000 */*%INCLUDE SYSLIB (CVT ) */ 00469000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 00470000 */*%INCLUDE SYSLIB (IHAPFTE ) */ 00471000 */*%INCLUDE SYSLIB (IHAPGTE ) */ 00472000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00473000 */*%INCLUDE SYSLIB (IHAPVT ) */ 00474000 */*%INCLUDE SYSLIB (IHARCA ) */ 00475000 */*%INCLUDE SYSLIB (IHARSMHD) */ 00476000 */*%INCLUDE SYSLIB (IHARTCT ) */ 00477000 */*%INCLUDE SYSLIB (IHASDRSB) */ 00478000 */*%INCLUDE SYSLIB (IHASMDLR) */ 00479000 */*%INCLUDE SYSLIB (IHASMWK ) */ 00480000 * 0181 00481000 * ; 0181 00482000 @DATA DS 0H 00483000 @DATD DSECT 00484000 DS 0F 00485000 IEAVPRSB CSECT 00486000 DS 0F 00487000 @CF00062 DC F'1' 00488000 @CF00222 DC F'2' 00489000 @CF02062 DC F'400' 00490000 @CF02052 DC XL4'80000000' 00491000 @CF02067 DC XL4'0000FFFF' 00492000 @DATD DSECT 00493000 DS 0D 00494000 @ENDDATD EQU * 00495000 IEAVPRSB CSECT 00496000 NOPR ((@ENDDATD-@DATD)*16) 00497000 DS 0F 00498000 @SIZDATD DC AL1(0) 00499000 DC AL3(@ENDDATD-@DATD) 00500000 DS 0D 00501000 SMWKLEN DC AL4(980) 00502000 @CB02060 DC X'0009' 00503000 SMDWSAG DC AL2(6) 00504000 DC AL2(7) 00505000 DC AL2(8) 00506000 DC AL2(9) 00507000 DC AL2(10) 00508000 DC AL2(11) 00509000 DC AL2(12) 00510000 DC AL2(13) 00511000 DC AL2(14) 00512000 DC AL2(15) 00513000 DC AL2(16) 00514000 SMDWSAC DC AL2(17) 00515000 DC AL2(18) 00516000 DC AL2(19) 00517000 DC AL2(20) 00518000 DC AL2(21) 00519000 DC AL2(22) 00520000 DC AL2(23) 00521000 DC AL2(24) 00522000 DC AL2(25) 00523000 DC AL2(26) 00524000 DC AL2(27) 00525000 DC AL2(28) 00526000 DC AL2(29) 00527000 DC AL2(30) 00528000 DC AL2(54) 00529000 DC AL2(55) 00530000 SMDWSAL DC AL2(31) 00531000 DC AL2(32) 00532000 DC AL2(33) 00533000 DC AL2(34) 00534000 DC AL2(35) 00535000 DC AL2(36) 00536000 DC AL2(37) 00537000 DC AL2(38) 00538000 DC AL2(39) 00539000 DC AL2(40) 00540000 DC AL2(41) 00541000 DC AL2(42) 00542000 DC AL2(43) 00543000 DC AL2(44) 00544000 DC AL2(45) 00545000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00546000 @01 EQU 01 00547000 @02 EQU 02 00548000 @03 EQU 03 00549000 @04 EQU 04 00550000 @05 EQU 05 00551000 @06 EQU 06 00552000 @07 EQU 07 00553000 @08 EQU 08 00554000 @09 EQU 09 00555000 @10 EQU 10 00556000 @11 EQU 11 00557000 @12 EQU 12 00558000 @13 EQU 13 00559000 @14 EQU 14 00560000 @15 EQU 15 00561000 PFTEPTR EQU @04 00562000 PTEPTR EQU @01 00563000 PVTPTR EQU @03 00564000 RSMHDPTR EQU @02 00565000 R0 EQU @00 00566000 R1 EQU @01 00567000 R2 EQU @02 00568000 SAVEPARM EQU @05 00569000 FRAMENUM EQU @05 00570000 RBNSAVE EQU @06 00571000 SRCAADDR EQU @07 00572000 PFTINDEX EQU @08 00573000 R9 EQU @09 00574000 R10 EQU @10 00575000 R11 EQU @11 00576000 R12 EQU @12 00577000 RSCBPTR EQU @12 00578000 R13 EQU @13 00579000 R14 EQU @14 00580000 R15 EQU @15 00581000 R3 EQU @03 00582000 R4 EQU @04 00583000 R5 EQU @05 00584000 R6 EQU @06 00585000 R7 EQU @07 00586000 R8 EQU @08 00587000 CVTPTR EQU 16 00588000 PSA EQU 0 00589000 FLCRNPSW EQU PSA 00590000 FLCROPSW EQU PSA+8 00591000 FLCICCW2 EQU PSA+16 00592000 PSAEEPSW EQU PSA+132 00593000 PSAESPSW EQU PSA+136 00594000 FLCSVILC EQU PSAESPSW+1 00595000 PSAEPPSW EQU PSA+140 00596000 FLCPIILC EQU PSAEPPSW+1 00597000 FLCPICOD EQU PSAEPPSW+2 00598000 PSAPICOD EQU FLCPICOD+1 00599000 FLCTEA EQU PSAEPPSW+4 00600000 FLCPER EQU PSA+152 00601000 FLCMCLA EQU PSA+168 00602000 FLCIOEL EQU FLCMCLA+4 00603000 FLCIOA EQU FLCMCLA+16 00604000 FLCFSA EQU FLCMCLA+80 00605000 PSAAOLD EQU PSA+548 00606000 PSASUPER EQU PSA+552 00607000 PSASUP1 EQU PSASUPER 00608000 PSASUP2 EQU PSASUPER+1 00609000 PSASUP3 EQU PSASUPER+2 00610000 PSASUP4 EQU PSASUPER+3 00611000 PSACLHT EQU PSA+640 00612000 PSALKSA EQU PSA+696 00613000 PSAHLHI EQU PSA+760 00614000 PSADSSFL EQU PSA+836 00615000 PSADSSF1 EQU PSADSSFL 00616000 PSADSSF3 EQU PSADSSFL+2 00617000 PSADSSF4 EQU PSADSSFL+3 00618000 PSARSVT EQU PSA+896 00619000 PSALSFCC EQU PSA+1012 00620000 ASCB EQU 0 00621000 ASCBSUPC EQU ASCB+16 00622000 ASCBRSM EQU ASCB+52 00623000 ASCBRSMF EQU ASCBRSM 00624000 ASCBFW1 EQU ASCB+100 00625000 ASCBRCTF EQU ASCBFW1+2 00626000 ASCBFLG1 EQU ASCBFW1+3 00627000 ASCBDSP1 EQU ASCB+114 00628000 ASCBFLG2 EQU ASCB+115 00629000 ASCBLKGP EQU ASCB+128 00630000 ASCBSRQ EQU ASCB+180 00631000 ASCBSRQ1 EQU ASCBSRQ 00632000 ASCBSRQ2 EQU ASCBSRQ+1 00633000 ASCBSRQ3 EQU ASCBSRQ+2 00634000 ASCBSRQ4 EQU ASCBSRQ+3 00635000 CVTMAP EQU 0 00636000 CVTDAR EQU CVTMAP+72 00637000 CVTFLGS1 EQU CVTDAR 00638000 CVTDCB EQU CVTMAP+116 00639000 CVTIOQET EQU CVTMAP+120 00640000 CVTIERLC EQU CVTMAP+144 00641000 CVTHEAD EQU CVTMAP+160 00642000 CVTSV76C EQU CVTHEAD 00643000 CVTOPTA EQU CVTMAP+182 00644000 CVTOPTB EQU CVTMAP+183 00645000 CVTGTF EQU CVTMAP+236 00646000 CVTGTFST EQU CVTGTF 00647000 CVTGTFS EQU CVTGTFST 00648000 CVTSTATE EQU CVTGTFST 00649000 CVTTMODE EQU CVTGTFST 00650000 CVTFORM EQU CVTGTFST 00651000 CVTAQAVT EQU CVTMAP+240 00652000 CVTTCMFG EQU CVTAQAVT 00653000 CVTVOLM2 EQU CVTMAP+244 00654000 CVTTATA EQU CVTVOLM2 00655000 CVTTSKS EQU CVTTATA 00656000 CVTVOLF2 EQU CVTTSKS 00657000 CVTTAT EQU CVTTATA+1 00658000 CVTATER EQU CVTMAP+248 00659000 CVTEXT1 EQU CVTMAP+252 00660000 CVTPURG EQU CVTMAP+260 00661000 CVTQMSG EQU CVTMAP+268 00662000 CVTDMSR EQU CVTMAP+272 00663000 CVTRSV37 EQU CVTDMSR 00664000 CVTDMSRF EQU CVTRSV37 00665000 CVTERPV EQU CVTMAP+316 00666000 CVTINTLA EQU CVTMAP+320 00667000 CVTAPF EQU CVTMAP+324 00668000 CVTEXT2 EQU CVTMAP+328 00669000 CVTHJES EQU CVTMAP+332 00670000 CVTPGSIA EQU CVTMAP+348 00671000 CVTA1F1 EQU CVTMAP+356 00672000 CVTSYSK EQU CVTMAP+357 00673000 CVTVOLM1 EQU CVTMAP+380 00674000 CVTVOLF1 EQU CVTVOLM1 00675000 CVTXTNT1 EQU 0 00676000 CVTXTNT2 EQU 0 00677000 CVTDSSV EQU CVTXTNT2 00678000 CVTFLGBT EQU CVTXTNT2+5 00679000 CVTQID EQU CVTXTNT2+24 00680000 CVTRV400 EQU CVTXTNT2+52 00681000 CVTRV409 EQU CVTXTNT2+53 00682000 CVTATCVT EQU CVTXTNT2+64 00683000 CVTRV429 EQU CVTXTNT2+84 00684000 CVTRV438 EQU CVTXTNT2+85 00685000 CVTRV457 EQU CVTXTNT2+112 00686000 CVTRV466 EQU CVTXTNT2+113 00687000 CVTFIX EQU 0 00688000 CVTRELNO EQU CVTFIX+252 00689000 FRRS EQU 0 00690000 FRRSHEAD EQU FRRS 00691000 FRRSEMP EQU FRRSHEAD 00692000 FRRSLAST EQU FRRSHEAD+4 00693000 FRRSELEN EQU FRRSHEAD+8 00694000 FRRSCURR EQU FRRSHEAD+12 00695000 FRRSENTR EQU 0 00696000 FRRSFRRA EQU FRRSENTR 00697000 FRRSFLGS EQU FRRSENTR+4 00698000 FRRSFLG1 EQU FRRSFLGS 00699000 FRRSPARM EQU FRRSENTR+8 00700000 FRREPTR EQU 0 00701000 PFTE EQU 0 00702000 PFTPGID EQU PFTE 00703000 PFTVBN EQU PFTPGID+2 00704000 PFTQPTRS EQU PFTE+4 00705000 PFTFQPTR EQU PFTQPTRS 00706000 PFTBQPTR EQU PFTQPTRS+2 00707000 PFTFXCT EQU PFTE+8 00708000 PFTFLAGS EQU PFTE+12 00709000 PFTFLAG1 EQU PFTFLAGS 00710000 PFTVRINT EQU PFTFLAG1 00711000 PFTPCBSI EQU PFTFLAG1 00712000 PFTBADPG EQU PFTFLAG1 00713000 PFTOFINT EQU PFTFLAG1 00714000 PFTFLAG2 EQU PFTFLAGS+1 00715000 PFTVR EQU PFTFLAG2 00716000 PFTPREF EQU PFTFLAG2 00717000 PFTQNDX EQU PFTE+14 00718000 PGTPTE EQU 0 00719000 PGTRSA EQU PGTPTE 00720000 PGTBITS EQU PGTRSA+1 00721000 PVT EQU 0 00722000 PVTFLAG1 EQU PVT 00723000 PVTFLAG2 EQU PVT+1 00724000 PVTPFTP EQU PVT+12 00725000 PVTPRCA EQU PVT+52 00726000 PVTLQSA EQU PVT+60 00727000 PVTPFTE EQU PVT+108 00728000 PVTPFP2 EQU PVT+116 00729000 PVTPRCV EQU PVT+156 00730000 PVTPINV EQU PVT+172 00731000 PVTQS EQU PVT+304 00732000 PVTCFQF EQU PVTQS+8 00733000 PVTRSBQF EQU PVTQS+16 00734000 PVTRSBQL EQU PVTQS+18 00735000 PVTWSAX EQU PVT+344 00736000 PVTWSA18 EQU PVTWSAX+1256 00737000 PVTSAVE EQU PVTWSAX+1328 00738000 PVTPCBQS EQU PVT+1852 00739000 RCA EQU 0 00740000 RCANAME7 EQU RCA+8 00741000 RCAPRSB EQU RCANAME7 00742000 RCAPRSR EQU RCANAME7 00743000 RCAPRSS EQU RCANAME7 00744000 RCACSECT EQU RCA+9 00745000 RCAFLAGS EQU RCA+10 00746000 RCARCRD EQU RCA+11 00747000 RCANAMES EQU RCA+12 00748000 RCANAME1 EQU RCANAMES 00749000 RCANAME2 EQU RCANAMES+1 00750000 RCANAME3 EQU RCANAMES+2 00751000 RCANAME4 EQU RCANAMES+3 00752000 RCANAME5 EQU RCANAMES+4 00753000 RCANAME6 EQU RCANAMES+5 00754000 RSMHD EQU 0 00755000 RSMFLG1 EQU RSMHD+12 00756000 RSMQS EQU RSMHD+20 00757000 RSMLFQ EQU RSMQS 00758000 RSMLSQA EQU RSMQS+4 00759000 RSMLIOQ EQU RSMQS+8 00760000 RTCT EQU 0 00761000 RTCTPLIB EQU RTCT+4 00762000 RTCTSAP EQU RTCTPLIB 00763000 RTCTSAP1 EQU RTCTSAP 00764000 RTCTSAP2 EQU RTCTSAP+1 00765000 RTCTSAP3 EQU RTCTSAP+2 00766000 RTCTSUP EQU RTCTPLIB+4 00767000 RTCTSUP1 EQU RTCTSUP 00768000 RTCTSUP2 EQU RTCTSUP+1 00769000 RTCTSUP3 EQU RTCTSUP+2 00770000 RTCTSYD EQU RTCTPLIB+8 00771000 RTCTSY01 EQU RTCTSYD 00772000 RTCTSDDS EQU RTCT+36 00773000 RTCTFLG EQU RTCTSDDS+3 00774000 RTCTSDPL EQU RTCT+156 00775000 RTCTRFLG EQU RTCT+176 00776000 RTCTSDSW EQU RTCT+180 00777000 RTCTERID EQU RTCT+224 00778000 RTCTOPT EQU RTCT+236 00779000 RTCTASO EQU RTCT+252 00780000 RTCTASO1 EQU RTCTASO 00781000 RTCTASO2 EQU RTCTASO+1 00782000 RTCTSDI EQU RTCT+254 00783000 RTCTSDF EQU RTCT+264 00784000 RTCTSDF1 EQU RTCTSDF 00785000 RTCTSDF2 EQU RTCTSDF+1 00786000 RTCTR2D2 EQU RTCTSDF+2 00787000 RTCTC3PO EQU RTCTSDF+3 00788000 RTCTSDF3 EQU RTCT+268 00789000 RTCTSDF4 EQU RTCTSDF3+2 00790000 RTCTMOPT EQU 0 00791000 RTCTMSAO EQU RTCTMOPT 00792000 RTCTSASD EQU RTCTMSAO 00793000 RTCTSAO1 EQU RTCTSASD 00794000 RTCTSAO2 EQU RTCTSASD+1 00795000 RTCTSAPD EQU RTCTMSAO+2 00796000 RTCTSAO3 EQU RTCTSAPD 00797000 RTCTSAO4 EQU RTCTSAPD+1 00798000 RTCTSAMG EQU RTCTSAO4 00799000 RTCTMSUO EQU RTCTMOPT+4 00800000 RTCTSUSD EQU RTCTMSUO 00801000 RTCTSUO1 EQU RTCTSUSD 00802000 RTCTSUO2 EQU RTCTSUSD+1 00803000 RTCTSUPD EQU RTCTMSUO+2 00804000 RTCTSUO3 EQU RTCTSUPD 00805000 RTCTSUO4 EQU RTCTSUPD+1 00806000 RTCTSUMG EQU RTCTSUO4 00807000 RTCTMSYO EQU RTCTMOPT+8 00808000 RTCTSD01 EQU RTCTMSYO 00809000 RTCTSD04 EQU RTCTMSYO+3 00810000 RTCTSMMG EQU RTCTSD04 00811000 RTCTMSDO EQU RTCTMOPT+12 00812000 RTCTSDOD EQU RTCTMSDO 00813000 RTCTSDO1 EQU RTCTSDOD 00814000 RTCTSDO2 EQU RTCTSDOD+1 00815000 RTCTSDO3 EQU RTCTMSDO+2 00816000 RTCTSDO4 EQU RTCTMSDO+3 00817000 RTCTSDMG EQU RTCTSDO4 00818000 SMWKRSCB EQU 0 00819000 SMWKFLGA EQU SMWKRSCB 00820000 SMWKEVRY EQU SMWKFLGA 00821000 SMWKFRHD EQU SMWKRSCB+2 00822000 SMWKFRPT EQU SMWKRSCB+4 00823000 SMWKTSDS EQU SMWKRSCB+8 00824000 SMWKPRSR EQU SMWKRSCB+12 00825000 SMWKRSFM EQU SMWKRSCB+16 00826000 SMWKFRMA EQU SMWKRSFM 00827000 SMDLR EQU 0 00828000 SMDLRHDR EQU SMDLR 00829000 SMWK EQU 0 00830000 SMWKFLGS EQU SMWK+4 00831000 SMWKFLG1 EQU SMWKFLGS 00832000 SMWKPSW EQU SMWK+168 00833000 SMWKRSM EQU SMWK+196 00834000 SMWKREGS EQU SMWK+676 00835000 IEAVFP EQU 0 00836000 IEAVINV EQU 0 00837000 IEAVPFTE EQU 0 00838000 IEAVTSDS EQU 0 00839000 PGTEND EQU 0 00840000 ASCBPTR EQU PSAAOLD 00841000 CVTS01 EQU CVTPGSIA 00842000 CVTPVTP EQU CVTS01+8 00843000 CVTLPDIA EQU CVTS01+12 00844000 CVTDIRST EQU CVTLPDIA 00845000 CVTSLIDA EQU CVTS01+24 00846000 CVTCTLFG EQU CVTS01+50 00847000 CVTRTMCT EQU CVTS01+224 00848000 CVTRV210 EQU CVTS01+424 00849000 CVTRV219 EQU CVTS01+425 00850000 CVTRV228 EQU CVTS01+426 00851000 CVTRV237 EQU CVTS01+427 00852000 CVTMFRTR EQU CVTS01+452 00853000 CVTRV262 EQU CVTS01+468 00854000 CVTRV271 EQU CVTS01+469 00855000 CVTRV280 EQU CVTS01+470 00856000 CVTRV289 EQU CVTS01+471 00857000 CVTGSDA EQU CVTS01+600 00858000 PSARSVTE EQU PSARSVT 00859000 PSACSTK EQU PSARSVTE 00860000 FRRSPTR EQU PSACSTK 00861000 RCAPTR EQU PVTPRCA 00862000 FLC EQU PSA 00863000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00864000 PSARSAV EQU PSARSVTE+60 00865000 PSARSTK EQU PSARSVTE+56 00866000 PSAESAV3 EQU PSARSVTE+52 00867000 PSAESTK3 EQU PSARSVTE+48 00868000 PSAESAV2 EQU PSARSVTE+44 00869000 PSAESTK2 EQU PSARSVTE+40 00870000 PSAESAV1 EQU PSARSVTE+36 00871000 PSAESTK1 EQU PSARSVTE+32 00872000 PSAPSAV EQU PSARSVTE+28 00873000 PSAPSTK EQU PSARSVTE+24 00874000 PSAMSAV EQU PSARSVTE+20 00875000 PSAMSTK EQU PSARSVTE+16 00876000 PSASSAV EQU PSARSVTE+12 00877000 PSASSTK EQU PSARSVTE+8 00878000 PSANSTK EQU PSARSVTE+4 00879000 CVTRV628 EQU CVTS01+728 00880000 CVTRV627 EQU CVTS01+724 00881000 CVTRV626 EQU CVTS01+720 00882000 CVTRV625 EQU CVTS01+716 00883000 CVTRV624 EQU CVTS01+712 00884000 CVTRV623 EQU CVTS01+708 00885000 CVTRV622 EQU CVTS01+704 00886000 CVTRV621 EQU CVTS01+700 00887000 CVTIHASU EQU CVTS01+696 00888000 CVTSUSP EQU CVTS01+692 00889000 CVTT6SVC EQU CVTS01+688 00890000 CVTCDAL EQU CVTS01+684 00891000 CVTTCTL EQU CVTS01+680 00892000 CVTRSUME EQU CVTS01+676 00893000 CVTJTERM EQU CVTS01+672 00894000 CVTASMRM EQU CVTS01+668 00895000 CVTTCASP EQU CVTS01+664 00896000 CVT0PT03 EQU CVTS01+660 00897000 CVT0PT0E EQU CVTS01+656 00898000 CVTRV609 EQU CVTS01+652 00899000 CVTCGK EQU CVTS01+648 00900000 CVTRAC EQU CVTS01+644 00901000 CVTHSM EQU CVTS01+640 00902000 CVTRV605 EQU CVTS01+636 00903000 CVTRV604 EQU CVTS01+632 00904000 CVTEFF02 EQU CVTS01+628 00905000 CVTCBBR EQU CVTS01+624 00906000 CVTSSCR EQU CVTS01+620 00907000 CVTEVENT EQU CVTS01+616 00908000 CVTCRCA EQU CVTS01+612 00909000 CVTTPIO EQU CVTS01+608 00910000 CVTADV EQU CVTS01+604 00911000 CVTGSDAB EQU CVTGSDA 00912000 CVTQV3 EQU CVTS01+596 00913000 CVTQV2 EQU CVTS01+592 00914000 CVTQV1 EQU CVTS01+588 00915000 CVTRPT EQU CVTS01+584 00916000 CVTSSRB EQU CVTS01+580 00917000 CVTCSDRL EQU CVTS01+576 00918000 CVTEXP1 EQU CVTS01+572 00919000 CVTRMPMT EQU CVTS01+568 00920000 CVTRMPTT EQU CVTS01+564 00921000 CVTVPSA EQU CVTS01+560 00922000 CVTVSTOP EQU CVTS01+556 00923000 CVTGTFR8 EQU CVTS01+552 00924000 CVTQUIT EQU CVTS01+548 00925000 CVTVACR EQU CVTS01+544 00926000 CVTWTCB EQU CVTS01+540 00927000 CVTSTPRS EQU CVTS01+536 00928000 CVT0PT02 EQU CVTS01+532 00929000 CVTDARCM EQU CVTS01+528 00930000 CVTIRECM EQU CVTS01+524 00931000 CVTJRECM EQU CVTS01+520 00932000 CVTVEMS0 EQU CVTS01+516 00933000 CVTSPFRR EQU CVTS01+512 00934000 CVTRLSTG EQU CVTS01+508 00935000 CVT0TC0A EQU CVTS01+504 00936000 CVTGMBR EQU CVTS01+500 00937000 CVTLFRM EQU CVTS01+496 00938000 CVTRMBR EQU CVTS01+492 00939000 CVTVIOP EQU CVTS01+488 00940000 CVTRV307 EQU CVTS01+486 00941000 CVTRV306 EQU CVTS01+484 00942000 CVTRV305 EQU CVTS01+482 00943000 CVTRV304 EQU CVTS01+480 00944000 CVTRV303 EQU CVTS01+478 00945000 CVTRV302 EQU CVTS01+476 00946000 CVTTRCA EQU CVTS01+472 00947000 CVTRV297 EQU CVTRV289 00948000 CVTRV296 EQU CVTRV289 00949000 CVTRV295 EQU CVTRV289 00950000 CVTRV294 EQU CVTRV289 00951000 CVTRV293 EQU CVTRV289 00952000 CVTRV292 EQU CVTRV289 00953000 CVTRV291 EQU CVTRV289 00954000 CVTRV290 EQU CVTRV289 00955000 CVTRV288 EQU CVTRV280 00956000 CVTRV287 EQU CVTRV280 00957000 CVTRV286 EQU CVTRV280 00958000 CVTRV285 EQU CVTRV280 00959000 CVTRV284 EQU CVTRV280 00960000 CVTRV283 EQU CVTRV280 00961000 CVTRV282 EQU CVTRV280 00962000 CVTRV281 EQU CVTRV280 00963000 CVTRV279 EQU CVTRV271 00964000 CVTRV278 EQU CVTRV271 00965000 CVTRV277 EQU CVTRV271 00966000 CVTRV276 EQU CVTRV271 00967000 CVTRV275 EQU CVTRV271 00968000 CVTRV274 EQU CVTRV271 00969000 CVTRV273 EQU CVTRV271 00970000 CVTRV272 EQU CVTRV271 00971000 CVTRV270 EQU CVTRV262 00972000 CVTRV269 EQU CVTRV262 00973000 CVTRV268 EQU CVTRV262 00974000 CVTRV267 EQU CVTRV262 00975000 CVTRV266 EQU CVTRV262 00976000 CVTRV265 EQU CVTRV262 00977000 CVTRV264 EQU CVTRV262 00978000 CVTRV263 EQU CVTRV262 00979000 CVTVFP EQU CVTS01+464 00980000 CVTVSI EQU CVTS01+460 00981000 CVTVPSIB EQU CVTS01+456 00982000 CVTMFACT EQU CVTMFRTR 00983000 CVTMFCTL EQU CVTS01+448 00984000 CVTPVBP EQU CVTS01+444 00985000 CVTPWI EQU CVTS01+440 00986000 CVTRV254 EQU CVTS01+438 00987000 CVTRV253 EQU CVTS01+436 00988000 CVTRV252 EQU CVTS01+434 00989000 CVTRV251 EQU CVTS01+433 00990000 CVTRV250 EQU CVTS01+432 00991000 CVTRV249 EQU CVTS01+431 00992000 CVTRV248 EQU CVTS01+430 00993000 CVTRV247 EQU CVTS01+429 00994000 CVTRV246 EQU CVTS01+428 00995000 CVTRV245 EQU CVTRV237 00996000 CVTRV244 EQU CVTRV237 00997000 CVTRV243 EQU CVTRV237 00998000 CVTRV242 EQU CVTRV237 00999000 CVTRV241 EQU CVTRV237 01000000 CVTRV240 EQU CVTRV237 01001000 CVTRV239 EQU CVTRV237 01002000 CVTRV238 EQU CVTRV237 01003000 CVTRV236 EQU CVTRV228 01004000 CVTRV235 EQU CVTRV228 01005000 CVTRV234 EQU CVTRV228 01006000 CVTRV233 EQU CVTRV228 01007000 CVTRV232 EQU CVTRV228 01008000 CVTRV231 EQU CVTRV228 01009000 CVTRV230 EQU CVTRV228 01010000 CVTRV229 EQU CVTRV228 01011000 CVTRV227 EQU CVTRV219 01012000 CVTRV226 EQU CVTRV219 01013000 CVTRV225 EQU CVTRV219 01014000 CVTRV224 EQU CVTRV219 01015000 CVTRV223 EQU CVTRV219 01016000 CVTRV222 EQU CVTRV219 01017000 CVTRV221 EQU CVTRV219 01018000 CVTRV220 EQU CVTRV219 01019000 CVTRV218 EQU CVTRV210 01020000 CVTRV217 EQU CVTRV210 01021000 CVTRV216 EQU CVTRV210 01022000 CVTRV215 EQU CVTRV210 01023000 CVTRV214 EQU CVTRV210 01024000 CVTRV213 EQU CVTRV210 01025000 CVTRV212 EQU CVTRV210 01026000 CVTRV211 EQU CVTRV210 01027000 CVTLCCAT EQU CVTS01+420 01028000 CVTPCCAT EQU CVTS01+416 01029000 CVTIPCRP EQU CVTS01+412 01030000 CVTIPCRI EQU CVTS01+408 01031000 CVTIPCDS EQU CVTS01+404 01032000 CVTAIDVT EQU CVTS01+400 01033000 CVTSSAP EQU CVTS01+396 01034000 CVTEHCIR EQU CVTS01+392 01035000 CVTEHDEF EQU CVTS01+388 01036000 CVTDAIR EQU CVTS01+384 01037000 CVTPERFM EQU CVTS01+380 01038000 CVT044R2 EQU CVTS01+376 01039000 CVTFETCH EQU CVTS01+372 01040000 CVTRSTWD EQU CVTS01+368 01041000 CVTSPOST EQU CVTS01+364 01042000 CVTIOBP EQU CVTS01+360 01043000 CVTASMVT EQU CVTS01+356 01044000 CVTRECRQ EQU CVTS01+352 01045000 CVTWSAC EQU CVTS01+348 01046000 CVTRV149 EQU CVTS01+344 01047000 CVTWSAL EQU CVTS01+340 01048000 CVTSPSA EQU CVTS01+336 01049000 CVTGLMN EQU CVTS01+332 01050000 CVTVEAC0 EQU CVTS01+328 01051000 CVT062R1 EQU CVTS01+324 01052000 CVTRPOST EQU CVTS01+320 01053000 CVTDQIQE EQU CVTS01+316 01054000 CVTCSD EQU CVTS01+312 01055000 CVTLKRMA EQU CVTS01+308 01056000 CVTRSPIE EQU CVTS01+304 01057000 CVTRENQ EQU CVTS01+300 01058000 CVTLQCB EQU CVTS01+296 01059000 CVTFQCB EQU CVTS01+292 01060000 CVTQCS01 EQU CVTS01+288 01061000 CVTAPFT EQU CVTS01+284 01062000 CVTPARRL EQU CVTS01+280 01063000 CVTVWAIT EQU CVTS01+276 01064000 CVTGSPL EQU CVTS01+272 01065000 CVTLSMQ EQU CVTS01+268 01066000 CVTGSMQ EQU CVTS01+264 01067000 CVTEXPRO EQU CVTS01+260 01068000 CVTOPCTP EQU CVTS01+256 01069000 CVTSIC EQU CVTS01+252 01070000 CVTTPIOS EQU CVTS01+248 01071000 CVTRTMS EQU CVTS01+244 01072000 CVTSDBF EQU CVTS01+240 01073000 CVTSCBP EQU CVTS01+236 01074000 CVTSDMP EQU CVTS01+232 01075000 CVTSV60 EQU CVTS01+228 01076000 CVTASCBL EQU CVTS01+220 01077000 CVTASCBH EQU CVTS01+216 01078000 CVTGDA EQU CVTS01+212 01079000 CVTASVT EQU CVTS01+208 01080000 CVTVVMDI EQU CVTS01+204 01081000 CVTAQTOP EQU CVTS01+200 01082000 CVTIOSCS EQU CVTS01+196 01083000 CVTSDRM EQU CVTS01+192 01084000 CVTOPTE EQU CVTS01+188 01085000 CVTSTXU EQU CVTS01+184 01086000 CVTQUIS EQU CVTS01+180 01087000 CVTPARS EQU CVTS01+176 01088000 CVTS1EE EQU CVTS01+172 01089000 CVTFRAS EQU CVTS01+168 01090000 CVTQSAS EQU CVTS01+164 01091000 CVTCRAS EQU CVTS01+160 01092000 CVTCRMN EQU CVTS01+156 01093000 CVTDELCP EQU CVTS01+152 01094000 CVTFRECL EQU CVTS01+148 01095000 CVTGETCL EQU CVTS01+144 01096000 CVTBLDCP EQU CVTS01+140 01097000 CVTAUTHL EQU CVTS01+136 01098000 CVTSCAN EQU CVTS01+132 01099000 CVTRV144 EQU CVTS01+130 01100000 CVTMAXMP EQU CVTS01+128 01101000 CVTSTCK EQU CVTS01+124 01102000 CVTRV139 EQU CVTS01+123 01103000 CVTDSSAC EQU CVTS01+122 01104000 CVTRV513 EQU CVTS01+121 01105000 CVTIOSPL EQU CVTS01+120 01106000 CVTPTGT EQU CVTS01+116 01107000 CVTCSPIE EQU CVTS01+112 01108000 CVTSMFEX EQU CVTS01+108 01109000 CVTOLT0A EQU CVTS01+104 01110000 CVTSRBRT EQU CVTS01+100 01111000 CVTPUTL EQU CVTS01+96 01112000 CVTASCRL EQU CVTS01+92 01113000 CVTASCRF EQU CVTS01+88 01114000 CVTRV326 EQU CVTS01+84 01115000 CVTRV325 EQU CVTS01+80 01116000 CVTRV324 EQU CVTS01+76 01117000 CVT0VL01 EQU CVTS01+72 01118000 CVTSHRVM EQU CVTS01+68 01119000 CVTRV332 EQU CVTS01+64 01120000 CVTTAS EQU CVTS01+60 01121000 CVTRSCN EQU CVTS01+56 01122000 CVTTRAC2 EQU CVTS01+54 01123000 CVTTRACE EQU CVTS01+52 01124000 CVTAPG EQU CVTS01+51 01125000 CVTSDTRC EQU CVTCTLFG 01126000 CVTGTRCE EQU CVTCTLFG 01127000 CVTNOMP EQU CVTCTLFG 01128000 CVTRSV79 EQU CVTCTLFG 01129000 CVTDSTAT EQU CVTCTLFG 01130000 CVTRSV78 EQU CVTCTLFG 01131000 CVTRV333 EQU CVTCTLFG 01132000 CVTRV323 EQU CVTCTLFG 01133000 CVTSPVLK EQU CVTS01+49 01134000 CVTRSV77 EQU CVTS01+48 01135000 CVTRV331 EQU CVTS01+44 01136000 CVTRV330 EQU CVTS01+40 01137000 CVTRV329 EQU CVTS01+36 01138000 CVTRV328 EQU CVTS01+32 01139000 CVTRV322 EQU CVTS01+28 01140000 CVTSLID EQU CVTSLIDA+1 01141000 CVTSYLK EQU CVTSLIDA 01142000 CVTRV321 EQU CVTS01+20 01143000 CVTRV320 EQU CVTS01+16 01144000 CVTLPDIR EQU CVTLPDIA+1 01145000 CVTRSV69 EQU CVTDIRST 01146000 CVTRSV68 EQU CVTDIRST 01147000 CVTRSV67 EQU CVTDIRST 01148000 CVTRSV66 EQU CVTDIRST 01149000 CVTRSV65 EQU CVTDIRST 01150000 CVTRSV64 EQU CVTDIRST 01151000 CVTRSV63 EQU CVTDIRST 01152000 CVTDICOM EQU CVTDIRST 01153000 CVTLPDSR EQU CVTS01+4 01154000 CVTGETL EQU CVTS01 01155000 @NM00065 EQU SMWK+978 01156000 SMWKNSTB EQU SMWK+976 01157000 SMWKNFFD EQU SMWK+974 01158000 SMWKNTDQ EQU SMWK+972 01159000 SMWKNTDI EQU SMWK+970 01160000 SMWKNFUS EQU SMWK+968 01161000 SMWKNFAQ EQU SMWK+966 01162000 SMWKNFRQ EQU SMWK+964 01163000 SMWKPSSE EQU SMWK+960 01164000 SMWKTQE EQU SMWK+832 01165000 @NM00064 EQU SMWK+828 01166000 SMWKTQEA EQU SMWK+824 01167000 SMWKSVLN EQU SMWK+820 01168000 SMWKNDIE EQU SMWK+818 01169000 SMWKNFRE EQU SMWK+816 01170000 SMWKNFRI EQU SMWK+814 01171000 SMWKALEN EQU SMWK+812 01172000 SMWKSCBF EQU SMWK+810 01173000 SMWKREGN EQU SMWK+808 01174000 SMWKIDX2 EQU SMWK+806 01175000 SMWKIDX1 EQU SMWK+804 01176000 SMWKSREG EQU SMWKREGS 01177000 SMWKHEAD EQU SMWK+656 01178000 SMWKSMVL EQU SMWK+652 01179000 SMWKSMMV EQU SMWK+648 01180000 SMWKSMBF EQU SMWK+644 01181000 SMWKSMLS EQU SMWK+640 01182000 SMWKSMRG EQU SMWK+636 01183000 SMWKSMDT EQU SMWK+632 01184000 SMWKSDMP EQU SMWK+628 01185000 SMWKSMLK EQU SMWK+624 01186000 @NM00063 EQU SMWK+622 01187000 SMWKFRUS EQU SMWK+620 01188000 SMWKRSIX EQU SMWK+618 01189000 SMWKNFAV EQU SMWK+616 01190000 SMWKRFAD EQU SMWK+612 01191000 SMWKCPUS EQU SMWK+192 01192000 SMWKPEND EQU SMWK+188 01193000 SMWKSAVA EQU SMWK+184 01194000 SMWKENDA EQU SMWK+180 01195000 SMWKVADR EQU SMWK+176 01196000 SMWKPSWA EQU SMWKPSW+4 01197000 @NM00062 EQU SMWKPSW+2 01198000 SMWKPSWK EQU SMWKPSW+1 01199000 SMWKPSWS EQU SMWKPSW 01200000 SMWKPFXE EQU SMWK+164 01201000 SMWKPFXB EQU SMWK+160 01202000 SMWKSSDE EQU SMWK+156 01203000 SMWKENTY EQU SMWK+152 01204000 SMWKSAV1 EQU SMWK+80 01205000 SMWKSAVE EQU SMWK+8 01206000 SMWKFLG4 EQU SMWKFLGS+3 01207000 SMWKFLG3 EQU SMWKFLGS+2 01208000 SMWKFLG2 EQU SMWKFLGS+1 01209000 @NM00061 EQU SMWKFLG1 01210000 @NM00060 EQU SMWKFLG1 01211000 SMWKSTBK EQU SMWKFLG1 01212000 SMWKSLCL EQU SMWKFLG1 01213000 SMWKRSNM EQU SMWKFLG1 01214000 SMWKRBFL EQU SMWKFLG1 01215000 SMWKRBUF EQU SMWKFLG1 01216000 SMWKSLCK EQU SMWKFLG1 01217000 SMWKNAME EQU SMWK 01218000 SMDLRDAT EQU SMDLR+20 01219000 @NM00059 EQU SMDLRHDR+17 01220000 SMDLRMSG EQU SMDLRHDR+16 01221000 SMDLRPL EQU SMDLRHDR+12 01222000 SMDLRADR EQU SMDLRHDR+8 01223000 SMDLRLEN EQU SMDLRHDR+4 01224000 @NM00058 EQU SMDLRHDR+2 01225000 SMDLRID EQU SMDLRHDR 01226000 SMWKFLGB EQU SMWKRSCB+1 01227000 @NM00057 EQU SMWKFLGA 01228000 RTCTISVC EQU RTCTSDO4 01229000 RTCTSDOV EQU RTCTSDMG 01230000 @NM00056 EQU RTCTSDO4 01231000 @NM00055 EQU RTCTSDO3 01232000 RTCTSDPH EQU RTCTSDO3 01233000 RTCTSDPG EQU RTCTSDO3 01234000 @NM00054 EQU RTCTSDO2 01235000 RTCTSDPD EQU RTCTSDO2 01236000 RTCTSDPC EQU RTCTSDO2 01237000 RTCTSDPB EQU RTCTSDO2 01238000 RTCTSDPA EQU RTCTSDO2 01239000 RTCTSDP9 EQU RTCTSDO2 01240000 RTCTSDP8 EQU RTCTSDO2 01241000 RTCTSDP7 EQU RTCTSDO1 01242000 RTCTSDP6 EQU RTCTSDO1 01243000 RTCTSDP5 EQU RTCTSDO1 01244000 RTCTSDP4 EQU RTCTSDO1 01245000 RTCTSDP3 EQU RTCTSDO1 01246000 RTCTSDP2 EQU RTCTSDO1 01247000 RTCTSDP1 EQU RTCTSDO1 01248000 RTCTSDP0 EQU RTCTSDO1 01249000 RTCTISYM EQU RTCTSD04 01250000 RTCTSMOV EQU RTCTSMMG 01251000 @NM00053 EQU RTCTSD04 01252000 RTCTSD03 EQU RTCTMSYO+2 01253000 RTCTSD02 EQU RTCTMSYO+1 01254000 RTCTSDS7 EQU RTCTSD01 01255000 RTCTSDS6 EQU RTCTSD01 01256000 RTCTSDS5 EQU RTCTSD01 01257000 RTCTSDS4 EQU RTCTSD01 01258000 RTCTSDS3 EQU RTCTSD01 01259000 RTCTSDS2 EQU RTCTSD01 01260000 RTCTSDS1 EQU RTCTSD01 01261000 RTCTSDS0 EQU RTCTSD01 01262000 RTCTISYU EQU RTCTSUO4 01263000 RTCTSUOV EQU RTCTSUMG 01264000 @NM00052 EQU RTCTSUO4 01265000 RTCTSYDF EQU RTCTSUO3 01266000 RTCTSYDE EQU RTCTSUO3 01267000 RTCTSYDD EQU RTCTSUO3 01268000 RTCTSYDC EQU RTCTSUO3 01269000 RTCTSYDB EQU RTCTSUO3 01270000 RTCTSYDA EQU RTCTSUO3 01271000 RTCTSYD9 EQU RTCTSUO3 01272000 RTCTSYD8 EQU RTCTSUO3 01273000 @NM00051 EQU RTCTSUO2 01274000 RTCTSYDH EQU RTCTSUO2 01275000 RTCTSYDG EQU RTCTSUO2 01276000 RTCTSYD7 EQU RTCTSUO1 01277000 RTCTSYD6 EQU RTCTSUO1 01278000 RTCTSYD5 EQU RTCTSUO1 01279000 RTCTSYD4 EQU RTCTSUO1 01280000 RTCTSYD3 EQU RTCTSUO1 01281000 RTCTSYD2 EQU RTCTSUO1 01282000 RTCTSYD1 EQU RTCTSUO1 01283000 RTCTSYD0 EQU RTCTSUO1 01284000 RTCTISAB EQU RTCTSAO4 01285000 RTCTSAOV EQU RTCTSAMG 01286000 @NM00050 EQU RTCTSAO4 01287000 RTCTSADF EQU RTCTSAO3 01288000 RTCTSADE EQU RTCTSAO3 01289000 RTCTSADD EQU RTCTSAO3 01290000 RTCTSADC EQU RTCTSAO3 01291000 RTCTSADB EQU RTCTSAO3 01292000 RTCTSADA EQU RTCTSAO3 01293000 RTCTSAD9 EQU RTCTSAO3 01294000 RTCTSAD8 EQU RTCTSAO3 01295000 @NM00049 EQU RTCTSAO2 01296000 RTCTSADH EQU RTCTSAO2 01297000 RTCTSADG EQU RTCTSAO2 01298000 RTCTSAD7 EQU RTCTSAO1 01299000 RTCTSAD6 EQU RTCTSAO1 01300000 RTCTSAD5 EQU RTCTSAO1 01301000 RTCTSAD4 EQU RTCTSAO1 01302000 RTCTSAD3 EQU RTCTSAO1 01303000 RTCTSAD2 EQU RTCTSAO1 01304000 RTCTSAD1 EQU RTCTSAO1 01305000 RTCTSAD0 EQU RTCTSAO1 01306000 RTCTZZZ5 EQU RTCT+340 01307000 RTCTZZZ4 EQU RTCT+336 01308000 RTCTMRMQ EQU RTCT+332 01309000 RTCTSDF5 EQU RTCTSDF3+3 01310000 RTCTSDDO EQU RTCTSDF4 01311000 RTCTSDEN EQU RTCTSDF4 01312000 RTCTSDEQ EQU RTCTSDF4 01313000 RTCTSDTR EQU RTCTSDF4 01314000 RTCTSDRM EQU RTCTSDF4 01315000 RTCTSDAN EQU RTCTSDF4 01316000 RTCTSDNC EQU RTCTSDF4 01317000 RTCTSDSS EQU RTCTSDF4 01318000 RTCTSDAS EQU RTCTSDF3 01319000 @NM00048 EQU RTCTC3PO 01320000 @NM00047 EQU RTCTR2D2 01321000 RTCTSDFX EQU RTCTSDF2 01322000 RTCTSDRW EQU RTCTSDF2 01323000 RTCTSDSL EQU RTCTSDF2 01324000 RTCTSDWF EQU RTCTSDF2 01325000 RTCTSDLA EQU RTCTSDF2 01326000 RTCTSDDI EQU RTCTSDF2 01327000 RTCTSDTQ EQU RTCTSDF2 01328000 RTCTSDMR EQU RTCTSDF2 01329000 RTCTSDSC EQU RTCTSDF1 01330000 RTCTSDRS EQU RTCTSDF1 01331000 RTCTSDSD EQU RTCTSDF1 01332000 RTCTSDEP EQU RTCTSDF1 01333000 RTCTSDMA EQU RTCTSDF1 01334000 RTCTSDSH EQU RTCTSDF1 01335000 RTCTSDND EQU RTCTSDF1 01336000 RTCTSDNO EQU RTCTSDF1 01337000 RTCTZZZ2 EQU RTCT+257 01338000 RTCTSDPR EQU RTCTSDI+2 01339000 RTCTINDX EQU RTCTSDI+1 01340000 RTCTSDNA EQU RTCTSDI 01341000 @NM00046 EQU RTCTASO2 01342000 RTCTASNQ EQU RTCTASO2 01343000 RTCTASNA EQU RTCTASO2 01344000 RTCTASNS EQU RTCTASO2 01345000 RTCTASSU EQU RTCTASO2 01346000 RTCTASSW EQU RTCTASO2 01347000 RTCTASCS EQU RTCTASO2 01348000 RTCTASTR EQU RTCTASO1 01349000 RTCTASLP EQU RTCTASO1 01350000 RTCTASRG EQU RTCTASO1 01351000 RTCTASLS EQU RTCTASO1 01352000 RTCTASSQ EQU RTCTASO1 01353000 RTCTASNU EQU RTCTASO1 01354000 RTCTASPS EQU RTCTASO1 01355000 RTCTASAL EQU RTCTASO1 01356000 RTCTSDO EQU RTCTOPT+12 01357000 RTCTSYO EQU RTCTOPT+8 01358000 RTCTSUO EQU RTCTOPT+4 01359000 RTCTSAO EQU RTCTOPT 01360000 RTCTXXX2 EQU RTCT+234 01361000 RTCTETIM EQU RTCTERID+6 01362000 RTCTEASD EQU RTCTERID+4 01363000 RTCTECPU EQU RTCTERID+2 01364000 RTCTESEQ EQU RTCTERID 01365000 RTCTSDWK EQU RTCT+220 01366000 RTCTTDCB EQU RTCT+184 01367000 RTCTSEQ# EQU RTCT+178 01368000 RTCTXXX1 EQU RTCT+177 01369000 @NM00045 EQU RTCTRFLG 01370000 RTCTRSTF EQU RTCTRFLG 01371000 RTCTRPER EQU RTCTRFLG 01372000 RTCTRTER EQU RTCTRFLG 01373000 RTCTTEST EQU RTCT+172 01374000 RTCTMSRB EQU RTCT+168 01375000 RTCTMLCK EQU RTCT+164 01376000 RTCTFMT EQU RTCT+160 01377000 RTCTSDIP EQU RTCTSDPL 01378000 RTCTDEV EQU RTCTSDDS+8 01379000 RTCTDCB EQU RTCTSDDS+4 01380000 @NM00044 EQU RTCTFLG 01381000 RTCTDETP EQU RTCTFLG 01382000 RTCTDSUS EQU RTCTFLG 01383000 RTCTDSST EQU RTCTFLG 01384000 RTCTDSNM EQU RTCTSDDS 01385000 RTCTRCB EQU RTCT+32 01386000 RTCTRECB EQU RTCT+28 01387000 RTCTFASB EQU RTCT+24 01388000 RTCTMECB EQU RTCT+20 01389000 RTCTSDID EQU RTCT+18 01390000 RTCTYYY1 EQU RTCT+16 01391000 RTCTSY04 EQU RTCTSYD+3 01392000 RTCTSY03 EQU RTCTSYD+2 01393000 RTCTSY02 EQU RTCTSYD+1 01394000 RTCTSYM7 EQU RTCTSY01 01395000 RTCTSYM6 EQU RTCTSY01 01396000 RTCTSYM5 EQU RTCTSY01 01397000 RTCTSYM4 EQU RTCTSY01 01398000 RTCTSYM3 EQU RTCTSY01 01399000 RTCTSYM2 EQU RTCTSY01 01400000 RTCTSYM1 EQU RTCTSY01 01401000 RTCTSYM0 EQU RTCTSY01 01402000 RTCTSUP4 EQU RTCTSUP+3 01403000 RTCTSUDF EQU RTCTSUP3 01404000 RTCTSUDE EQU RTCTSUP3 01405000 RTCTSUDD EQU RTCTSUP3 01406000 RTCTSUDC EQU RTCTSUP3 01407000 RTCTSUDB EQU RTCTSUP3 01408000 RTCTSUDA EQU RTCTSUP3 01409000 RTCTSUD9 EQU RTCTSUP3 01410000 RTCTSUD8 EQU RTCTSUP3 01411000 @NM00043 EQU RTCTSUP2 01412000 RTCTSUDH EQU RTCTSUP2 01413000 RTCTSUDG EQU RTCTSUP2 01414000 RTCTSUD7 EQU RTCTSUP1 01415000 RTCTSUD6 EQU RTCTSUP1 01416000 RTCTSUD5 EQU RTCTSUP1 01417000 RTCTSUD4 EQU RTCTSUP1 01418000 RTCTSUD3 EQU RTCTSUP1 01419000 RTCTSUD2 EQU RTCTSUP1 01420000 RTCTSUD1 EQU RTCTSUP1 01421000 RTCTSUD0 EQU RTCTSUP1 01422000 RTCTSAP4 EQU RTCTSAP+3 01423000 RTCTSABF EQU RTCTSAP3 01424000 RTCTSABE EQU RTCTSAP3 01425000 RTCTSABD EQU RTCTSAP3 01426000 RTCTSABC EQU RTCTSAP3 01427000 RTCTSABB EQU RTCTSAP3 01428000 RTCTSABA EQU RTCTSAP3 01429000 RTCTSAB9 EQU RTCTSAP3 01430000 RTCTSAB8 EQU RTCTSAP3 01431000 @NM00042 EQU RTCTSAP2 01432000 RTCTSABH EQU RTCTSAP2 01433000 RTCTSABG EQU RTCTSAP2 01434000 RTCTSAB7 EQU RTCTSAP1 01435000 RTCTSAB6 EQU RTCTSAP1 01436000 RTCTSAB5 EQU RTCTSAP1 01437000 RTCTSAB4 EQU RTCTSAP1 01438000 RTCTSAB3 EQU RTCTSAP1 01439000 RTCTSAB2 EQU RTCTSAP1 01440000 RTCTSAB1 EQU RTCTSAP1 01441000 RTCTSAB0 EQU RTCTSAP1 01442000 RTCTNAME EQU RTCT 01443000 RSMASMHD EQU RSMHD+40 01444000 RSMFOEQ EQU RSMHD+36 01445000 RSMLIOQL EQU RSMLIOQ+4 01446000 RSMLIOQF EQU RSMLIOQ 01447000 RSMLSQAL EQU RSMLSQA+2 01448000 RSMLSQAF EQU RSMLSQA 01449000 RSMLFQL EQU RSMLFQ+2 01450000 RSMLFQF EQU RSMLFQ 01451000 RSMRSV2 EQU RSMHD+16 01452000 RSMCNTFX EQU RSMHD+14 01453000 RSMRSV1 EQU RSMHD+13 01454000 @NM00041 EQU RSMFLG1 01455000 RSMFAIL EQU RSMFLG1 01456000 RSMGFADD EQU RSMFLG1 01457000 RSMCPNC EQU RSMFLG1 01458000 RSMCPNU EQU RSMFLG1 01459000 RSMGFAD EQU RSMFLG1 01460000 RSMIOCPC EQU RSMFLG1 01461000 RSMIOCPU EQU RSMFLG1 01462000 RSMASCB EQU RSMHD+8 01463000 RSMSPCT EQU RSMHD+4 01464000 RSMVSTO EQU RSMHD 01465000 RCARETAD EQU RCA+20 01466000 RCATASID EQU RCA+18 01467000 RCAREP1 EQU RCANAME6 01468000 RCAPSIF EQU RCANAME6 01469000 RCAPSIX EQU RCANAME6 01470000 RCAVEQRP EQU RCANAME6 01471000 RCARCFC EQU RCANAME6 01472000 RCACSGB EQU RCANAME6 01473000 RCAFXL EQU RCANAME6 01474000 RCAPS113 EQU RCANAME6 01475000 RCAFREE EQU RCANAME5 01476000 RCARFR2 EQU RCANAME5 01477000 RCACPBR EQU RCANAME5 01478000 RCAOPBR EQU RCANAME5 01479000 RCASORT EQU RCANAME5 01480000 RCASIRT EQU RCANAME5 01481000 RCARELV EQU RCANAME5 01482000 RCARELF EQU RCANAME5 01483000 RCAGFAD EQU RCANAME4 01484000 RCAVEQRI EQU RCANAME4 01485000 RCAVEQRF EQU RCANAME4 01486000 RCAVEQRC EQU RCANAME4 01487000 RCATERM EQU RCANAME4 01488000 RCASQA EQU RCANAME4 01489000 RCASWIN EQU RCANAME4 01490000 RCASOUT EQU RCANAME4 01491000 RCARFR EQU RCANAME3 01492000 RCARELS EQU RCANAME3 01493000 RCARCFI EQU RCANAME3 01494000 RCARCF EQU RCANAME3 01495000 RCAPSII EQU RCANAME3 01496000 RCAPSIB EQU RCANAME3 01497000 RCAPS112 EQU RCANAME3 01498000 RCAPIX EQU RCANAME3 01499000 RCAPIOP EQU RCANAME2 01500000 RCASWPC EQU RCANAME2 01501000 RCASWPP EQU RCANAME2 01502000 RCAPFTE EQU RCANAME2 01503000 RCAPCB EQU RCANAME2 01504000 RCAOUT EQU RCANAME2 01505000 RCAITAS EQU RCANAME2 01506000 RCAIOCP EQU RCANAME2 01507000 RCAINV EQU RCANAME1 01508000 RCAGFA EQU RCANAME1 01509000 RCAFXLD EQU RCANAME1 01510000 RCAVEQR EQU RCANAME1 01511000 RCADSEG EQU RCANAME1 01512000 RCADLAS EQU RCANAME1 01513000 RCACSEG EQU RCANAME1 01514000 RCAVAMSI EQU RCANAME1 01515000 @NM00040 EQU RCAFLAGS 01516000 RCADISP EQU RCAFLAGS 01517000 @NM00039 EQU RCAFLAGS 01518000 RCAQS EQU RCAFLAGS 01519000 RCAPSIER EQU RCAFLAGS 01520000 RCAABEND EQU RCAFLAGS 01521000 RCALL EQU RCAFLAGS 01522000 RCASAL EQU RCAFLAGS 01523000 @NM00038 EQU RCANAME7 01524000 RCAPSIY EQU RCANAME7 01525000 RCAPIOI EQU RCANAME7 01526000 RCAPARM1 EQU RCA+4 01527000 RCAPARM0 EQU RCA 01528000 PVTEND EQU PVT+1944 01529000 PVTTASID EQU PVT+1942 01530000 PVTXXXXX EQU PVT+1940 01531000 PVTMVCLC EQU PVT+1936 01532000 PVTVCONS EQU PVT+1896 01533000 PVTPRSB EQU PVT+1892 01534000 PVTCIOQL EQU PVTPCBQS+36 01535000 PVTCIOQF EQU PVTPCBQS+32 01536000 PVTGFADL EQU PVTPCBQS+28 01537000 PVTGFADF EQU PVTPCBQS+24 01538000 PVTFPCBL EQU PVTPCBQS+20 01539000 PVTFPCBF EQU PVTPCBQS+16 01540000 PVTPCBQR EQU PVTPCBQS 01541000 PVTLPAFX EQU PVT+1850 01542000 PVTLSQAF EQU PVT+1848 01543000 PVTLPAR EQU PVT+1844 01544000 PVTLPAI EQU PVT+1840 01545000 PVTLPAFC EQU PVT+1838 01546000 PVTCHUIC EQU PVT+1836 01547000 PVTCOMFX EQU PVT+1834 01548000 PVTSQAFX EQU PVT+1832 01549000 PVTCNTFX EQU PVT+1830 01550000 PVTDEFFX EQU PVT+1828 01551000 PVTFIXOK EQU PVT+1826 01552000 PVTPEROK EQU PVT+1824 01553000 PVTMAXFX EQU PVT+1822 01554000 PVTPERFX EQU PVT+1820 01555000 PVTRSRB EQU PVT+1776 01556000 PVTRESV5 EQU PVT+1773 01557000 PVTSRBS EQU PVT+1772 01558000 PVTSSRB EQU PVT+1768 01559000 PVTACA EQU PVTWSAX+1400 01560000 PVTWSA17 EQU PVTWSAX+1184 01561000 PVTWSA16 EQU PVTWSAX+1112 01562000 PVTWSA15 EQU PVTWSAX+1040 01563000 PVTWSA14 EQU PVTWSAX+968 01564000 PVTWSA13 EQU PVTWSAX+896 01565000 PVTWSA12 EQU PVTWSAX+824 01566000 PVTWSA11 EQU PVTWSAX+752 01567000 PVTWSA10 EQU PVTWSAX+672 01568000 PVTWSA9 EQU PVTWSAX+592 01569000 PVTWSA8 EQU PVTWSAX+504 01570000 PVTWSA7 EQU PVTWSAX+432 01571000 PVTWSA6 EQU PVTWSAX+360 01572000 PVTWSA5 EQU PVTWSAX+288 01573000 PVTWSA4 EQU PVTWSAX+216 01574000 PVTWSA3 EQU PVTWSAX+144 01575000 PVTWSA2 EQU PVTWSAX+72 01576000 PVTWSA1 EQU PVTWSAX 01577000 PVTPFTQR EQU PVTQS+20 01578000 PVTSQAQL EQU PVTQS+14 01579000 PVTSQAQF EQU PVTQS+12 01580000 PVTCFQL EQU PVTQS+10 01581000 PVTRSRVL EQU PVTQS+6 01582000 PVTRSRVF EQU PVTQS+4 01583000 PVTAFQL EQU PVTQS+2 01584000 PVTAFQF EQU PVTQS 01585000 PVTSPFR EQU PVT+302 01586000 PVTCFMCT EQU PVT+300 01587000 PVTSPREC EQU PVT+296 01588000 PVTCAREC EQU PVT+292 01589000 PVTCAOUT EQU PVT+288 01590000 PVTCAIN EQU PVT+284 01591000 PVTNSWPS EQU PVT+280 01592000 PVTNPREC EQU PVT+276 01593000 PVTSPOUT EQU PVT+272 01594000 PVTSPIN EQU PVT+268 01595000 PVTVAMR EQU PVT+264 01596000 PVTVAMO EQU PVT+260 01597000 PVTVAMI EQU PVT+256 01598000 PVTNPOUT EQU PVT+252 01599000 PVTNPIN EQU PVT+248 01600000 PVTPRSET EQU PVT+244 01601000 PVTFRSLT EQU PVT+240 01602000 PVTPAGIO EQU PVT+236 01603000 PVTSWPIO EQU PVT+232 01604000 PVTPSWPP EQU PVT+228 01605000 PVTPPREF EQU PVT+224 01606000 PVTPOPBR EQU PVT+220 01607000 PVTPRELF EQU PVT+216 01608000 PVTPRELV EQU PVT+212 01609000 PVTPFREE EQU PVT+208 01610000 PVTPRELS EQU PVT+204 01611000 PVTPOUT EQU PVT+200 01612000 PVTPFXLD EQU PVT+196 01613000 PVTPITAS EQU PVT+192 01614000 PVTPSRBP EQU PVT+188 01615000 PVTPDSEG EQU PVT+184 01616000 PVTPCSGB EQU PVT+180 01617000 PVTPCSEG EQU PVT+176 01618000 PVTPSWPC EQU PVT+168 01619000 PVTPSOUT EQU PVT+164 01620000 PVTPSWIN EQU PVT+160 01621000 PVTPRCFI EQU PVT+152 01622000 PVTPRCF EQU PVT+148 01623000 PVTPVRC EQU PVT+144 01624000 PVTPVRIN EQU PVT+140 01625000 PVTPVRLS EQU PVT+136 01626000 PVTPVEQR EQU PVT+132 01627000 PVTPPIOI EQU PVT+128 01628000 PVTPVRPO EQU PVT+124 01629000 PVTPRFR EQU PVT+120 01630000 PVTPFP EQU PVT+112 01631000 PVTPCB EQU PVT+104 01632000 PVTREP2 EQU PVT+100 01633000 PVTPIOCP EQU PVT+96 01634000 PVTPIOP EQU PVT+92 01635000 PVTPGFAD EQU PVT+88 01636000 PVTPGFA EQU PVT+84 01637000 PVTPSQA EQU PVT+80 01638000 PVTPSINT EQU PVT+76 01639000 PVTPSIB EQU PVT+72 01640000 PVTSRBID EQU PVT+68 01641000 PVTPCIWA EQU PVT+64 01642000 PVTHQSA EQU PVT+62 01643000 PVTOROOT EQU PVT+56 01644000 PVTREUS EQU PVT+48 01645000 PVTSQNPC EQU PVT+47 01646000 PVTSQVRC EQU PVT+46 01647000 PVTRSUS EQU PVT+44 01648000 PVTVROOT EQU PVT+40 01649000 PVTPCBLO EQU PVT+38 01650000 PVTPCBCT EQU PVT+36 01651000 PVTDFRS EQU PVT+34 01652000 PVTRSQA EQU PVT+32 01653000 PVTPTLB EQU PVT+31 01654000 PVTPCBNO EQU PVT+30 01655000 PVTSRBNO EQU PVT+29 01656000 PVTSQDC EQU PVT+28 01657000 PVTLCSA EQU PVT+26 01658000 PVTLPRIV EQU PVT+24 01659000 PVTLVR EQU PVT+22 01660000 PVTFVR EQU PVT+20 01661000 PVTLPFN EQU PVT+18 01662000 PVTFPFN EQU PVT+16 01663000 PVTSSPIN EQU PVT+11 01664000 PVTPCBS EQU PVT+10 01665000 PVTPOOL EQU PVT+8 01666000 PVTAFCOK EQU PVT+6 01667000 PVTAFCLO EQU PVT+4 01668000 PVTAFC EQU PVT+2 01669000 @NM00037 EQU PVTFLAG2 01670000 PVTRSMGM EQU PVTFLAG2 01671000 PVTDUMP EQU PVTFLAG1 01672000 PVTSIT EQU PVTFLAG1 01673000 PVTLSI EQU PVTFLAG1 01674000 PVTAPREF EQU PVTFLAG1 01675000 PVTPCBLT EQU PVTFLAG1 01676000 PVTSRBIU EQU PVTFLAG1 01677000 PVTBGMS EQU PVTFLAG1 01678000 PVTPMSG EQU PVTFLAG1 01679000 PGTPAM EQU PGTBITS 01680000 @NM00012 EQU PGTBITS 01681000 @NM00011 EQU PGTBITS 01682000 PGTPVM EQU PGTBITS 01683000 @NM00010 EQU PGTBITS 01684000 @NM00009 EQU PGTBITS 01685000 @NM00008 EQU PGTBITS 01686000 @NM00007 EQU PGTBITS 01687000 PGTREAL EQU PGTRSA 01688000 PFTUIC EQU PFTE+15 01689000 @NM00006 EQU PFTFLAG2 01690000 @NM00005 EQU PFTFLAG2 01691000 PFTSTEAL EQU PFTFLAG2 01692000 PFTIRRG EQU PFTFLAG2 01693000 PFTOFFLN EQU PFTFLAG2 01694000 PFTDFRLS EQU PFTFLAG2 01695000 PFTVRALC EQU PFTFLAG1 01696000 PFTVRPLT EQU PFTFLAG1 01697000 PFTLSQA EQU PFTFLAG1 01698000 PFTONAVQ EQU PFTFLAG1 01699000 PFTRSV1 EQU PFTE+10 01700000 PFTASID EQU PFTPGID 01701000 @NM00004 EQU FRRSFLGS+1 01702000 @NM00003 EQU FRRSFLG1 01703000 FRRSNEST EQU FRRSFLG1 01704000 FRRSRCUR EQU FRRSFLG1 01705000 FRRSENTS EQU FRRS+84 01706000 FRRSRTMW EQU FRRS+16 01707000 CVTLEVL EQU CVTRELNO+2 01708000 CVTNUMB EQU CVTRELNO 01709000 CVTMDL EQU CVTFIX+250 01710000 @NM00002 EQU CVTFIX+248 01711000 @NM00001 EQU CVTFIX 01712000 CVTRV482 EQU CVTXTNT2+128 01713000 CVTRV481 EQU CVTXTNT2+124 01714000 CVTRV480 EQU CVTXTNT2+120 01715000 CVTRV479 EQU CVTXTNT2+118 01716000 CVTRV478 EQU CVTXTNT2+117 01717000 CVTRV477 EQU CVTXTNT2+116 01718000 CVTRV476 EQU CVTXTNT2+115 01719000 CVTRV475 EQU CVTXTNT2+114 01720000 CVTRV474 EQU CVTRV466 01721000 CVTRV473 EQU CVTRV466 01722000 CVTRV472 EQU CVTRV466 01723000 CVTRV471 EQU CVTRV466 01724000 CVTRV470 EQU CVTRV466 01725000 CVTRV469 EQU CVTRV466 01726000 CVTRV468 EQU CVTRV466 01727000 CVTRV467 EQU CVTRV466 01728000 CVTRV465 EQU CVTRV457 01729000 CVTRV464 EQU CVTRV457 01730000 CVTRV463 EQU CVTRV457 01731000 CVTRV462 EQU CVTRV457 01732000 CVTRV461 EQU CVTRV457 01733000 CVTRV460 EQU CVTRV457 01734000 CVTRV459 EQU CVTRV457 01735000 CVTRV458 EQU CVTRV457 01736000 CVTRV456 EQU CVTXTNT2+108 01737000 CVTRV455 EQU CVTXTNT2+104 01738000 CVTRV454 EQU CVTXTNT2+100 01739000 CVTRV453 EQU CVTXTNT2+96 01740000 CVTRV452 EQU CVTXTNT2+94 01741000 CVTRV451 EQU CVTXTNT2+92 01742000 CVTRV450 EQU CVTXTNT2+90 01743000 CVTRV449 EQU CVTXTNT2+88 01744000 CVTRV448 EQU CVTXTNT2+87 01745000 CVTRV447 EQU CVTXTNT2+86 01746000 CVTRV446 EQU CVTRV438 01747000 CVTRV445 EQU CVTRV438 01748000 CVTRV444 EQU CVTRV438 01749000 CVTRV443 EQU CVTRV438 01750000 CVTRV442 EQU CVTRV438 01751000 CVTRV441 EQU CVTRV438 01752000 CVTRV440 EQU CVTRV438 01753000 CVTRV439 EQU CVTRV438 01754000 CVTRV437 EQU CVTRV429 01755000 CVTRV436 EQU CVTRV429 01756000 CVTRV435 EQU CVTRV429 01757000 CVTRV434 EQU CVTRV429 01758000 CVTRV433 EQU CVTRV429 01759000 CVTRV432 EQU CVTRV429 01760000 CVTRV431 EQU CVTRV429 01761000 CVTRV430 EQU CVTRV429 01762000 CVTRV428 EQU CVTXTNT2+80 01763000 CVTRV427 EQU CVTXTNT2+76 01764000 CVTRV426 EQU CVTXTNT2+72 01765000 CVTRV425 EQU CVTXTNT2+68 01766000 CVTATACT EQU CVTATCVT 01767000 CVTRV423 EQU CVTXTNT2+62 01768000 CVTRV422 EQU CVTXTNT2+60 01769000 CVTRV421 EQU CVTXTNT2+58 01770000 CVTRV420 EQU CVTXTNT2+56 01771000 CVTRV419 EQU CVTXTNT2+55 01772000 CVTRV418 EQU CVTXTNT2+54 01773000 CVTRV417 EQU CVTRV409 01774000 CVTRV416 EQU CVTRV409 01775000 CVTRV415 EQU CVTRV409 01776000 CVTRV414 EQU CVTRV409 01777000 CVTRV413 EQU CVTRV409 01778000 CVTRV412 EQU CVTRV409 01779000 CVTRV411 EQU CVTRV409 01780000 CVTRV410 EQU CVTRV409 01781000 CVTRV408 EQU CVTRV400 01782000 CVTRV407 EQU CVTRV400 01783000 CVTRV406 EQU CVTRV400 01784000 CVTRV405 EQU CVTRV400 01785000 CVTRV404 EQU CVTRV400 01786000 CVTRV403 EQU CVTRV400 01787000 CVTRV402 EQU CVTRV400 01788000 CVTRV401 EQU CVTRV400 01789000 CVTICB EQU CVTXTNT2+48 01790000 CVTSKTA EQU CVTXTNT2+44 01791000 CVTCCVT EQU CVTXTNT2+40 01792000 CVTRSV98 EQU CVTXTNT2+36 01793000 CVTRSV97 EQU CVTXTNT2+34 01794000 CVTRSV96 EQU CVTXTNT2+32 01795000 CVTOLTEP EQU CVTXTNT2+28 01796000 CVTQIDA EQU CVTQID+1 01797000 CVTRSV95 EQU CVTQID 01798000 CVTRSV94 EQU CVTXTNT2+20 01799000 CVTRSV93 EQU CVTXTNT2+16 01800000 CVTRSV92 EQU CVTXTNT2+12 01801000 CVTDEBVR EQU CVTXTNT2+8 01802000 CVTRSV91 EQU CVTXTNT2+6 01803000 CVTRSV9H EQU CVTFLGBT 01804000 CVTRSV9G EQU CVTFLGBT 01805000 CVTRSV9F EQU CVTFLGBT 01806000 CVTRSV9E EQU CVTFLGBT 01807000 CVTRSV9D EQU CVTFLGBT 01808000 CVTBAH EQU CVTFLGBT 01809000 CVTVME EQU CVTFLGBT 01810000 CVTNPE EQU CVTFLGBT 01811000 CVTNUCLS EQU CVTXTNT2+4 01812000 CVTDSSVA EQU CVTDSSV+1 01813000 CVTRSV89 EQU CVTDSSV 01814000 CVTRSV88 EQU CVTXTNT1+8 01815000 CVTRSV87 EQU CVTXTNT1+4 01816000 CVTFACHN EQU CVTXTNT1 01817000 CVTRV488 EQU CVTMAP+412 01818000 CVTRV487 EQU CVTMAP+408 01819000 CVTRV486 EQU CVTMAP+404 01820000 CVTRV485 EQU CVTMAP+400 01821000 CVTACTAP EQU CVTMAP+396 01822000 CVTAUTH EQU CVTMAP+392 01823000 CVTRV490 EQU CVTMAP+388 01824000 CVTSU EQU CVTMAP+384 01825000 CVTVOLT1 EQU CVTVOLM1+1 01826000 CVTVOLI1 EQU CVTVOLF1 01827000 CVTSTOA EQU CVTMAP+376 01828000 CVTRSV58 EQU CVTMAP+374 01829000 CVTRSV57 EQU CVTMAP+372 01830000 CVTDDCE EQU CVTMAP+368 01831000 CVTPNWFR EQU CVTMAP+364 01832000 CVTSMF EQU CVTMAP+360 01833000 CVTSULK EQU CVTMAP+358 01834000 CVTSLKO EQU CVTSYSK 01835000 CVTSLKP EQU CVTSYSK 01836000 CVTSLKQ EQU CVTSYSK 01837000 CVTSLKR EQU CVTSYSK 01838000 CVTRSV56 EQU CVTSYSK 01839000 CVTRSV55 EQU CVTSYSK 01840000 CVTRSV54 EQU CVTSYSK 01841000 CVTRSV53 EQU CVTSYSK 01842000 CVTRSV52 EQU CVTA1F1 01843000 CVTRSV51 EQU CVTA1F1 01844000 CVTRSV50 EQU CVTA1F1 01845000 CVTRSV49 EQU CVTA1F1 01846000 CVTRSV48 EQU CVTA1F1 01847000 CVTRSV47 EQU CVTA1F1 01848000 CVTSRSW EQU CVTA1F1 01849000 CVTPFSW EQU CVTA1F1 01850000 CVTPCVT EQU CVTMAP+352 01851000 CVTRSV46 EQU CVTMAP+344 01852000 CVTRSV45 EQU CVTMAP+340 01853000 CVTRSV44 EQU CVTMAP+338 01854000 CVTRSV43 EQU CVTMAP+336 01855000 CVTHJESA EQU CVTHJES+1 01856000 CVTRSV42 EQU CVTHJES 01857000 CVTEXT2A EQU CVTEXT2+1 01858000 CVTRSV41 EQU CVTEXT2 01859000 CVTAPFA EQU CVTAPF+1 01860000 CVTRSV40 EQU CVTAPF 01861000 CVTRV518 EQU CVTINTLA 01862000 CVTRV517 EQU CVTERPV 01863000 CVTEORM EQU CVTMAP+312 01864000 CVTMCHPR EQU CVTMAP+308 01865000 CVTTZ EQU CVTMAP+304 01866000 CVTJEPS EQU CVTMAP+300 01867000 CVTJESCT EQU CVTMAP+296 01868000 CVTMODE EQU CVTMAP+292 01869000 CVTPTRV EQU CVTMAP+288 01870000 CVTREAL EQU CVTMAP+284 01871000 CVTRSV39 EQU CVTMAP+280 01872000 CVTRSV38 EQU CVTMAP+276 01873000 CVTDMSRA EQU CVTDMSR+1 01874000 CVTRV634 EQU CVTDMSRF 01875000 CVTRV633 EQU CVTDMSRF 01876000 CVTRV632 EQU CVTDMSRF 01877000 CVTRV631 EQU CVTDMSRF 01878000 CVTRV630 EQU CVTDMSRF 01879000 CVTRV629 EQU CVTDMSRF 01880000 CVTUDUMP EQU CVTDMSRF 01881000 CVTSDUMP EQU CVTDMSRF 01882000 CVTQMSGA EQU CVTQMSG+1 01883000 CVTRSV36 EQU CVTQMSG 01884000 CVTAMFF EQU CVTMAP+264 01885000 CVTPURGA EQU CVTPURG+1 01886000 CVTRSV35 EQU CVTPURG 01887000 CVTCBSP EQU CVTMAP+256 01888000 CVTATERA EQU CVTATER+1 01889000 CVTSYST EQU CVTATER 01890000 CVTVOLT2 EQU CVTTAT 01891000 CVTVOLI2 EQU CVTVOLF2 01892000 CVTAQAVB EQU CVTAQAVT+1 01893000 CVTRSV34 EQU CVTTCMFG 01894000 CVTRSV33 EQU CVTTCMFG 01895000 CVTRSV32 EQU CVTTCMFG 01896000 CVTRSV31 EQU CVTTCMFG 01897000 CVTRSV30 EQU CVTTCMFG 01898000 CVTRSV29 EQU CVTTCMFG 01899000 CVTLDEV EQU CVTTCMFG 01900000 CVTTCRDY EQU CVTTCMFG 01901000 CVTGTFA EQU CVTGTF+1 01902000 CVTRSV27 EQU CVTGTFST 01903000 CVTRNIO EQU CVTGTFST 01904000 CVTUSR EQU CVTGTFST 01905000 CVTRV318 EQU CVTFORM 01906000 CVTRV317 EQU CVTTMODE 01907000 CVTRV316 EQU CVTSTATE 01908000 CVTRV315 EQU CVTGTFS 01909000 CVTGTFAV EQU CVTGTFS 01910000 CVT0SCR1 EQU CVTMAP+232 01911000 CVTRV515 EQU CVTMAP+228 01912000 CVTRMS EQU CVTMAP+224 01913000 CVTPATCH EQU CVTMAP+220 01914000 CVTTSCE EQU CVTMAP+216 01915000 CVTLNKSC EQU CVTMAP+214 01916000 CVTQABST EQU CVTMAP+212 01917000 CVTMDLDS EQU CVTMAP+208 01918000 CVTUSER EQU CVTMAP+204 01919000 CVTABEND EQU CVTMAP+200 01920000 CVTSMCA EQU CVTMAP+196 01921000 CVTRSV18 EQU CVTMAP+192 01922000 CVTQLPAQ EQU CVTMAP+188 01923000 CVTQCDSR EQU CVTMAP+184 01924000 CVTVS1B EQU CVTOPTB 01925000 CVTVS1A EQU CVTOPTB 01926000 CVTFP EQU CVTOPTB 01927000 CVTAPTHR EQU CVTOPTB 01928000 CVTNLOG EQU CVTOPTB 01929000 CVTTOD EQU CVTOPTB 01930000 CVTCTIMS EQU CVTOPTB 01931000 CVTPROT EQU CVTOPTB 01932000 CVTXPFP EQU CVTOPTA 01933000 CVTASCII EQU CVTOPTA 01934000 CVTRSV13 EQU CVTOPTA 01935000 CVTRSV12 EQU CVTOPTA 01936000 CVTNIP EQU CVTOPTA 01937000 CVTDDR EQU CVTOPTA 01938000 CVTAPR EQU CVTOPTA 01939000 CVTCCH EQU CVTOPTA 01940000 CVTSNCTR EQU CVTMAP+180 01941000 CVTQMWR EQU CVTMAP+176 01942000 CVTQOCR EQU CVTMAP+172 01943000 CVT1EF00 EQU CVTMAP+168 01944000 CVTMZ00 EQU CVTMAP+164 01945000 CVTSV76Q EQU CVTSV76C 01946000 CVTRSV11 EQU CVTMAP+156 01947000 CVT0PT01 EQU CVTMAP+152 01948000 CVTMSER EQU CVTMAP+148 01949000 CVTRV516 EQU CVTIERLC 01950000 CVTILCH EQU CVTMAP+140 01951000 CVT0DS EQU CVTMAP+136 01952000 CVTFBOSV EQU CVTMAP+132 01953000 CVTNUCB EQU CVTMAP+128 01954000 CVTIXAVL EQU CVTMAP+124 01955000 CVTSV76M EQU CVTIOQET 01956000 CVTDCBA EQU CVTMAP+117 01957000 CVTMVS2 EQU CVTDCB 01958000 CVT6DAT EQU CVTDCB 01959000 CVT4MPS EQU CVTDCB 01960000 CVTRSV09 EQU CVTDCB 01961000 CVT4MS1 EQU CVTDCB 01962000 CVT2SPS EQU CVTDCB 01963000 CVT1SSS EQU CVTDCB 01964000 CVTRSV08 EQU CVTDCB 01965000 CVTSTB EQU CVTMAP+112 01966000 CVTQTD00 EQU CVTMAP+108 01967000 CVTQTE00 EQU CVTMAP+104 01968000 CVTCUCB EQU CVTMAP+100 01969000 CVTSJQ EQU CVTMAP+96 01970000 CVTPBLDL EQU CVTMAP+92 01971000 CVTTPC EQU CVTMAP+88 01972000 CVTSVDCB EQU CVTMAP+84 01973000 CVTBRET EQU CVTMAP+82 01974000 CVTEXIT EQU CVTMAP+80 01975000 CVT0FN00 EQU CVTMAP+76 01976000 CVTDARA EQU CVTDAR+1 01977000 CVTRSV07 EQU CVTFLGS1 01978000 CVTRSV06 EQU CVTFLGS1 01979000 CVTRSV05 EQU CVTFLGS1 01980000 CVTRSV04 EQU CVTFLGS1 01981000 CVTRSV03 EQU CVTFLGS1 01982000 CVTRSV02 EQU CVTFLGS1 01983000 CVTRSV01 EQU CVTFLGS1 01984000 CVTDMPLK EQU CVTFLGS1 01985000 CVTXITP EQU CVTMAP+68 01986000 CVTZDTAB EQU CVTMAP+64 01987000 CVTMSLT EQU CVTMAP+60 01988000 CVTDATE EQU CVTMAP+56 01989000 CVTBTERM EQU CVTMAP+52 01990000 CVTSYSAD EQU CVTMAP+48 01991000 CVTXTLER EQU CVTMAP+44 01992000 CVTILK2 EQU CVTMAP+40 01993000 CVTILK1 EQU CVTMAP+36 01994000 CVTPRLTV EQU CVTMAP+32 01995000 CVTPCNVT EQU CVTMAP+28 01996000 CVT0VL00 EQU CVTMAP+24 01997000 CVTXAPG EQU CVTMAP+20 01998000 CVTBUF EQU CVTMAP+16 01999000 CVTJOB EQU CVTMAP+12 02000000 CVTLINK EQU CVTMAP+8 02001000 CVT0EF00 EQU CVTMAP+4 02002000 CVTTCBP EQU CVTMAP 02003000 CVT EQU CVTMAP 02004000 ASCBEND EQU ASCB+208 02005000 ASCBSRBT EQU ASCB+200 02006000 ASCBSWTL EQU ASCB+196 02007000 ASCBRS14 EQU ASCB+195 02008000 ASCBSMCT EQU ASCB+194 02009000 ASCBRS12 EQU ASCB+192 02010000 ASCBPCTT EQU ASCB+188 02011000 ASCBVGTT EQU ASCB+184 02012000 ASCBRV43 EQU ASCBSRQ4 02013000 ASCBRV42 EQU ASCBSRQ4 02014000 ASCBRV41 EQU ASCBSRQ4 02015000 ASCBRV40 EQU ASCBSRQ4 02016000 ASCBRV39 EQU ASCBSRQ4 02017000 ASCBRV38 EQU ASCBSRQ4 02018000 ASCBRV37 EQU ASCBSRQ4 02019000 ASCBRV36 EQU ASCBSRQ4 02020000 ASCBRV35 EQU ASCBSRQ3 02021000 ASCBRV34 EQU ASCBSRQ3 02022000 ASCBRV33 EQU ASCBSRQ3 02023000 ASCBRV32 EQU ASCBSRQ3 02024000 ASCBRV31 EQU ASCBSRQ3 02025000 ASCBRV30 EQU ASCBSRQ3 02026000 ASCBRV29 EQU ASCBSRQ3 02027000 ASCBRV28 EQU ASCBSRQ3 02028000 ASCBRV27 EQU ASCBSRQ2 02029000 ASCBRV26 EQU ASCBSRQ2 02030000 ASCBRV25 EQU ASCBSRQ2 02031000 ASCBRV24 EQU ASCBSRQ2 02032000 ASCBRV23 EQU ASCBSRQ2 02033000 ASCBRV22 EQU ASCBSRQ2 02034000 ASCBRV21 EQU ASCBSRQ2 02035000 ASCBRV20 EQU ASCBSRQ2 02036000 ASCBRV19 EQU ASCBSRQ1 02037000 ASCBRV18 EQU ASCBSRQ1 02038000 ASCBRV17 EQU ASCBSRQ1 02039000 ASCBRV16 EQU ASCBSRQ1 02040000 ASCBRV15 EQU ASCBSRQ1 02041000 ASCBRV14 EQU ASCBSRQ1 02042000 ASCBRV13 EQU ASCBSRQ1 02043000 ASCBSTA EQU ASCBSRQ1 02044000 ASCBJBNS EQU ASCB+176 02045000 ASCBJBNI EQU ASCB+172 02046000 ASCBMCC EQU ASCB+168 02047000 ASCBRTWA EQU ASCB+164 02048000 ASCBIQEA EQU ASCB+160 02049000 ASCBXMPQ EQU ASCB+156 02050000 ASCBRS01 EQU ASCB+154 02051000 ASCBFMCT EQU ASCB+152 02052000 ASCBOUXB EQU ASCB+148 02053000 ASCBOUCB EQU ASCB+144 02054000 ASCBMECB EQU ASCB+140 02055000 ASCBQECB EQU ASCB+136 02056000 ASCBLSQH EQU ASCBLKGP+4 02057000 ASCBLOCK EQU ASCBLKGP 02058000 ASCBTCBS EQU ASCB+124 02059000 ASCBNVSC EQU ASCB+122 02060000 ASCBVSC EQU ASCB+120 02061000 ASCBSRBS EQU ASCB+118 02062000 ASCBSSRB EQU ASCB+116 02063000 ASCBRV06 EQU ASCBFLG2 02064000 ASCBRV05 EQU ASCBFLG2 02065000 ASCBRV04 EQU ASCBFLG2 02066000 ASCBSNQS EQU ASCBFLG2 02067000 ASCBS2S EQU ASCBFLG2 02068000 ASCBCEXT EQU ASCBFLG2 02069000 ASCBPXMT EQU ASCBFLG2 02070000 ASCBXMPT EQU ASCBFLG2 02071000 ASCBRF07 EQU ASCBDSP1 02072000 ASCBRF06 EQU ASCBDSP1 02073000 ASCBRF05 EQU ASCBDSP1 02074000 ASCBRF04 EQU ASCBDSP1 02075000 ASCBRF03 EQU ASCBDSP1 02076000 ASCBRF02 EQU ASCBDSP1 02077000 ASCBFAIL EQU ASCBDSP1 02078000 ASCBNOQ EQU ASCBDSP1 02079000 ASCBSWCT EQU ASCB+112 02080000 ASCBASXB EQU ASCB+108 02081000 ASCBTMCH EQU ASCB+104 02082000 ASCBNSWP EQU ASCBFLG1 02083000 ASCBTYP1 EQU ASCBFLG1 02084000 ASCBSTND EQU ASCBFLG1 02085000 ASCBABNT EQU ASCBFLG1 02086000 ASCBTERM EQU ASCBFLG1 02087000 ASCBS3S EQU ASCBFLG1 02088000 ASCBCMSH EQU ASCBFLG1 02089000 ASCBTOFF EQU ASCBFLG1 02090000 ASCBRF01 EQU ASCBRCTF 02091000 ASCBTMLW EQU ASCBRCTF 02092000 ASCBOUT EQU ASCBRCTF 02093000 ASCBWAIT EQU ASCBRCTF 02094000 ASCBRV08 EQU ASCBRCTF 02095000 ASCBFQU EQU ASCBRCTF 02096000 ASCBFRS EQU ASCBRCTF 02097000 ASCBTMNO EQU ASCBRCTF 02098000 ASCBAFFN EQU ASCBFW1 02099000 ASCBDUMP EQU ASCB+96 02100000 ASCBRV44 EQU ASCB+92 02101000 ASCBUBET EQU ASCB+88 02102000 ASCBECB EQU ASCB+84 02103000 ASCBJSTL EQU ASCB+80 02104000 ASCBEWST EQU ASCB+72 02105000 ASCBEJST EQU ASCB+64 02106000 ASCBTSB EQU ASCB+60 02107000 ASCBCSCB EQU ASCB+56 02108000 ASCBRSMA EQU ASCBRSM+1 02109000 ASCBRV54 EQU ASCBRSMF 02110000 ASCBRV53 EQU ASCBRSMF 02111000 ASCBRV52 EQU ASCBRSMF 02112000 ASCBRV51 EQU ASCBRSMF 02113000 ASCBVEQR EQU ASCBRSMF 02114000 ASCBN2LP EQU ASCBRSMF 02115000 ASCB1LPU EQU ASCBRSMF 02116000 ASCB2LPU EQU ASCBRSMF 02117000 ASCBLDA EQU ASCB+48 02118000 ASCBSTOR EQU ASCB+44 02119000 ASCBDP EQU ASCB+43 02120000 ASCBRV07 EQU ASCB+42 02121000 ASCBIOSM EQU ASCB+40 02122000 ASCBSEQN EQU ASCB+38 02123000 ASCBASID EQU ASCB+36 02124000 ASCBCPUS EQU ASCB+32 02125000 ASCBSPL EQU ASCB+28 02126000 ASCBIOSP EQU ASCB+24 02127000 ASCBSYNC EQU ASCBSUPC+4 02128000 ASCBSVRB EQU ASCBSUPC 02129000 ASCBCMSF EQU ASCB+12 02130000 ASCBBWDP EQU ASCB+8 02131000 ASCBFWDP EQU ASCB+4 02132000 ASCBASCB EQU ASCB 02133000 ASCBEGIN EQU ASCB 02134000 @NM00036 EQU PSA+3668 02135000 PSASTAK EQU PSA+3072 02136000 @NM00035 EQU PSA+1048 02137000 PSAUSEND EQU PSA+1048 02138000 PSARV062 EQU PSA+1044 02139000 PSACDAL EQU PSA+1040 02140000 PSAWTCOD EQU PSA+1036 02141000 PSAATCVT EQU PSA+1032 02142000 PSAPCPSW EQU PSA+1024 02143000 PSAPIR2 EQU PSA+1020 02144000 PSARV059 EQU PSA+1018 02145000 PSASVC13 EQU PSA+1016 02146000 PSASFACC EQU PSA+1008 02147000 PSASTOP EQU PSA+992 02148000 PSASTART EQU PSA+976 02149000 PSARSPSW EQU PSA+968 02150000 PSASRPSW EQU PSA+960 02151000 PSARV045 EQU PSA+892 02152000 PSARV044 EQU PSA+888 02153000 PSARV043 EQU PSA+884 02154000 PSARV042 EQU PSA+880 02155000 PSARV041 EQU PSA+876 02156000 PSARV040 EQU PSA+872 02157000 PSARV025 EQU PSA+868 02158000 PSADSSED EQU PSA+868 02159000 PSADSSPR EQU PSA+864 02160000 PSADSSFW EQU PSA+860 02161000 PSADSS14 EQU PSA+856 02162000 PSADSSPP EQU PSA+848 02163000 PSADSSRP EQU PSA+840 02164000 PSADSS05 EQU PSADSSF4 02165000 PSADSS10 EQU PSADSSF4 02166000 PSADSSVE EQU PSADSSF4 02167000 PSADSSDE EQU PSADSSF4 02168000 PSADSSC0 EQU PSADSSF4 02169000 PSADSSIE EQU PSADSSF4 02170000 PSADSS12 EQU PSADSSF4 02171000 PSADSSRC EQU PSADSSF4 02172000 PSARV057 EQU PSADSSF3 02173000 PSARV056 EQU PSADSSF3 02174000 PSARV055 EQU PSADSSF3 02175000 PSADSSMC EQU PSADSSF3 02176000 PSADSSRW EQU PSADSSF3 02177000 PSADSSNM EQU PSADSSF3 02178000 PSADSSES EQU PSADSSF3 02179000 PSADSSGP EQU PSADSSF3 02180000 PSADSSF2 EQU PSADSSFL+1 02181000 PSADSSPI EQU PSADSSF1 02182000 PSADSSOI EQU PSADSSF1 02183000 PSADSSSP EQU PSADSSF1 02184000 PSADSSTP EQU PSADSSF1 02185000 PSADSSDW EQU PSADSSF1 02186000 PSADSSDD EQU PSADSSF1 02187000 PSADSSDM EQU PSADSSF1 02188000 PSADSSMV EQU PSADSSF1 02189000 PSADSSTS EQU PSA+816 02190000 PSADSSWK EQU PSA+812 02191000 PSADSSR3 EQU PSA+808 02192000 PSADSSR2 EQU PSA+804 02193000 PSADSSRS EQU PSA+800 02194000 PSASTOR EQU PSA+796 02195000 PSACPUSA EQU PSA+794 02196000 PSAVSTAP EQU PSA+792 02197000 PSAWKVAP EQU PSA+788 02198000 PSAWKRAP EQU PSA+784 02199000 PSAMCHIC EQU PSA+783 02200000 PSARV061 EQU PSA+782 02201000 PSASYMSK EQU PSA+781 02202000 PSAMCHFL EQU PSA+780 02203000 PSACR0 EQU PSA+776 02204000 PSAPSWSV EQU PSA+768 02205000 PSALITA EQU PSA+764 02206000 PSACLHS EQU PSAHLHI 02207000 PSALKR15 EQU PSALKSA+60 02208000 PSALKR14 EQU PSALKSA+56 02209000 PSALKR13 EQU PSALKSA+52 02210000 PSALKR12 EQU PSALKSA+48 02211000 PSALKR11 EQU PSALKSA+44 02212000 PSALKR10 EQU PSALKSA+40 02213000 PSALKR9 EQU PSALKSA+36 02214000 PSALKR8 EQU PSALKSA+32 02215000 PSALKR7 EQU PSALKSA+28 02216000 PSALKR6 EQU PSALKSA+24 02217000 PSALKR5 EQU PSALKSA+20 02218000 PSALKR4 EQU PSALKSA+16 02219000 PSALKR3 EQU PSALKSA+12 02220000 PSALKR2 EQU PSALKSA+8 02221000 PSALKR1 EQU PSALKSA+4 02222000 PSALKR0 EQU PSALKSA 02223000 PSARV023 EQU PSACLHT+52 02224000 PSALOCAL EQU PSACLHT+48 02225000 PSACMSL EQU PSACLHT+44 02226000 PSAOPTL EQU PSACLHT+40 02227000 PSATPACL EQU PSACLHT+36 02228000 PSATPDNL EQU PSACLHT+32 02229000 PSATPNCL EQU PSACLHT+28 02230000 PSAIOSLL EQU PSACLHT+24 02231000 PSAIOSUL EQU PSACLHT+20 02232000 PSAIOSCL EQU PSACLHT+16 02233000 PSAIOSSL EQU PSACLHT+12 02234000 PSASALCL EQU PSACLHT+8 02235000 PSAASML EQU PSACLHT+4 02236000 PSADISPL EQU PSACLHT 02237000 PSASRSA EQU PSA+636 02238000 PSARV050 EQU PSA+634 02239000 PSADSSGO EQU PSA+633 02240000 PSARECUR EQU PSA+632 02241000 PSAHLHIS EQU PSA+628 02242000 PSAIPCSA EQU PSA+624 02243000 @NM00034 EQU PSA+621 02244000 PSAIPCDM EQU PSA+620 02245000 PSAIPCD EQU PSA+616 02246000 @NM00033 EQU PSA+613 02247000 PSAIPCRM EQU PSA+612 02248000 PSAIPCR EQU PSA+608 02249000 PSAMCHEX EQU PSA+600 02250000 PSAMPSW EQU PSA+592 02251000 PSAEXPS2 EQU PSA+584 02252000 PSAEXPS1 EQU PSA+576 02253000 PSAPIREG EQU PSA+572 02254000 PSARSREG EQU PSA+568 02255000 PSAGPREG EQU PSA+556 02256000 PSARV022 EQU PSASUP4 02257000 PSARV021 EQU PSASUP4 02258000 PSARV020 EQU PSASUP4 02259000 PSARV019 EQU PSASUP4 02260000 PSARV018 EQU PSASUP4 02261000 PSARV017 EQU PSASUP4 02262000 PSARV016 EQU PSASUP4 02263000 PSARV015 EQU PSASUP4 02264000 PSARV014 EQU PSASUP3 02265000 PSAULCMS EQU PSASUP3 02266000 PSARV012 EQU PSASUP3 02267000 PSAESTA EQU PSASUP3 02268000 PSASPR EQU PSASUP3 02269000 PSAPSREG EQU PSASUP3 02270000 PSAPI2 EQU PSASUP3 02271000 PSAIOSUP EQU PSASUP3 02272000 PSALCR EQU PSASUP2 02273000 PSARTM EQU PSASUP2 02274000 PSAACR EQU PSASUP2 02275000 PSAIPCE2 EQU PSASUP2 02276000 PSAIPCES EQU PSASUP2 02277000 PSAIPCEC EQU PSASUP2 02278000 PSAGTF EQU PSASUP2 02279000 PSAIPCRI EQU PSASUP2 02280000 PSATYPE6 EQU PSASUP1 02281000 PSATCTL EQU PSASUP1 02282000 PSADISP EQU PSASUP1 02283000 PSALOCK EQU PSASUP1 02284000 PSAPI EQU PSASUP1 02285000 PSAEXT EQU PSASUP1 02286000 PSASVC EQU PSASUP1 02287000 PSAIO EQU PSASUP1 02288000 PSAANEW EQU PSA+544 02289000 PSATOLD EQU PSA+540 02290000 PSATNEW EQU PSA+536 02291000 PSALCCAR EQU PSA+532 02292000 PSALCCAV EQU PSA+528 02293000 PSAPCCAR EQU PSA+524 02294000 PSAPCCAV EQU PSA+520 02295000 PSACPULA EQU PSA+518 02296000 PSACPUPA EQU PSA+516 02297000 PSAPSA EQU PSA+512 02298000 FLCHDEND EQU PSA+512 02299000 FLCCRSAV EQU FLCMCLA+280 02300000 FLCGRSAV EQU FLCMCLA+216 02301000 FLCFPSAV EQU FLCMCLA+184 02302000 FLCFLA EQU FLCMCLA+88 02303000 FLCRGNCD EQU FLCMCLA+84 02304000 FLCFSAA EQU FLCFSA+1 02305000 @NM00032 EQU FLCFSA 02306000 @NM00031 EQU FLCMCLA+72 02307000 FLCMCIC EQU FLCMCLA+64 02308000 @NM00030 EQU FLCMCLA+20 02309000 FLCIOAA EQU FLCIOA+1 02310000 @NM00029 EQU FLCIOA 02311000 @NM00028 EQU FLCMCLA+15 02312000 @NM00027 EQU FLCMCLA+14 02313000 @NM00026 EQU FLCMCLA+12 02314000 FLCLCL EQU FLCMCLA+8 02315000 FLCIOELA EQU FLCIOEL+1 02316000 @NM00025 EQU FLCIOEL 02317000 FLCCHNID EQU FLCMCLA 02318000 @NM00024 EQU PSA+160 02319000 FLCMTRCD EQU PSA+157 02320000 @NM00023 EQU PSA+156 02321000 FLCPERA EQU FLCPER+1 02322000 @NM00022 EQU FLCPER 02323000 @NM00021 EQU PSA+151 02324000 FLCPERCD EQU PSA+150 02325000 FLCMCNUM EQU PSA+149 02326000 @NM00020 EQU PSA+148 02327000 FLCTEAA EQU FLCTEA+1 02328000 @NM00019 EQU FLCTEA 02329000 PSAPIPC EQU PSAPICOD 02330000 PSAPIMC EQU PSAPICOD 02331000 PSAPIPER EQU PSAPICOD 02332000 PSARV049 EQU FLCPICOD 02333000 FLCPILCB EQU FLCPIILC 02334000 @NM00018 EQU FLCPIILC 02335000 @NM00017 EQU PSAEPPSW 02336000 FLCSVCN EQU PSAESPSW+2 02337000 FLCSILCB EQU FLCSVILC 02338000 @NM00016 EQU FLCSVILC 02339000 @NM00015 EQU PSAESPSW 02340000 FLCEICOD EQU PSAEEPSW+2 02341000 PSASPAD EQU PSAEEPSW 02342000 @NM00014 EQU PSA+128 02343000 FLCINPSW EQU PSA+120 02344000 FLCMNPSW EQU PSA+112 02345000 FLCPNPSW EQU PSA+104 02346000 FLCSNPSW EQU PSA+96 02347000 FLCENPSW EQU PSA+88 02348000 FLCTRACE EQU PSA+84 02349000 FLCTIMER EQU PSA+80 02350000 FLCCVT2 EQU PSA+76 02351000 FLCCAW EQU PSA+72 02352000 FLCCSW EQU PSA+64 02353000 FLCIOPSW EQU PSA+56 02354000 FLCMOPSW EQU PSA+48 02355000 FLCPOPSW EQU PSA+40 02356000 FLCSOPSW EQU PSA+32 02357000 FLCEOPSW EQU PSA+24 02358000 @NM00013 EQU FLCICCW2+4 02359000 FLCCVT EQU FLCICCW2 02360000 FLCICCW1 EQU FLCROPSW 02361000 FLCIPPSW EQU FLCRNPSW 02362000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02363000 @RC00120 EQU @RC00115 02364000 @ENDDATA EQU * 02365000 END IEAVPRSB,(C'PLS2014',0701,78164) 02366000