TITLE 'IEAVPIOI: SWAP-OUT INITIATOR *00001000 ' 00002000 IEAVPIOI CSECT 00003000 USING *,R15 00004000 MODID 00005000 DROP R15 00006000 BALR BASEREG,R0 GET BASE REG VALUE 00007000 BASE1 DS 0H 00008000 USING BASE1,BASEREG 00009000 * SRBPTR=R0; /* SAVE REG 0 (PTR TO SRB) */ 00010000 LR SRBPTR,R0 0076 00011000 * SOUTPPTR=R1; /* INITIALIZE POINTER TO SWAPOUT 00012000 * PARAMETER LIST */ 00013000 LR SOUTPPTR,R1 0077 00014000 * PVTPTR=CVTPVTP; /* GET THE ADDRESS OF THE PVT */ 00015000 L @12,CVTPTR 0078 00016000 L PVTPTR,CVTPVTP(,@12) 0078 00017000 * R0=PVTPRCV; /* GET ENTRY POINT ADDRESS FOR 0079 00018000 * THE RECOVERY MODULE */ 00019000 L R0,PVTPRCV(,PVTPTR) 0079 00020000 * 0080 00021000 */********************************************************************/ 00022000 */* ESTABLISH THE RSM FRR (SETFRR) */ 00023000 */* INPUT: */ 00024000 */* REG 0: RSM FRR ENTRY POINT */ 00025000 */* REG 1-REG 15: UNUSED */ 00026000 */* OUTPUT: */ 00027000 */* REG 1-REG 2: UNPREDICTABLE */ 00028000 */* REG 7: RSM RCA ADDRESS */ 00029000 */* THE OTHER 13 REGISTERS UNUSED. */ 00030000 */* RSM FRR ESTABLISHED. */ 00031000 */********************************************************************/ 00032000 * 0080 00033000 * RESPECIFY 0080 00034000 * (R2) RESTRICTED; 0080 00035000 * GENERATE CODE REFS(PSACSTK,FRRS,FRRSCURR,FRRSLAST,FRRSELEN,FRRSFRRA 00036000 * ,FRRSENTR,PVTPRCV,PVTPTR,FRRSPARM,PSALSFCC) SETS(R1,R2,RCAPTR); 00037000 SETFRR A,FRRAD=(R0),PARMAD=(RCAPTR),WRKREGS=(R1,R2) SET FRR 00038000 * RCACSECT=RCACINIO; /* SET IEAVPIOI CSECT FLAG IN RCA*/ 00039000 MVI RCACSECT(RCAPTR),X'03' 0082 00040000 * RCAPIOI='1'B; /* SET RCA MODULE ENTERED FLAG */ 00041000 OI RCAPIOI(RCAPTR),B'10000000' 0083 00042000 * RESPECIFY 0084 00043000 * (ASCBPTR) RSTD; 0084 00044000 * ASCBPTR=SRBASCB; /* GET MASTER'S ASCB ADDRESS */ 00045000 L ASCBPTR,SRBASCB(,SRBPTR) 0085 00046000 * PCBPTR=LSQAPCBS; /* INITIALIZE POINTER TO LSQA 0086 00047000 * PCBS */ 00048000 L PCBPTR,LSQAPCBS-1(,SOUTPPTR) 0086 00049000 LA PCBPTR,0(,PCBPTR) 0086 00050000 * 0087 00051000 */********************************************************************/ 00052000 */* OBTAIN LOCAL LOCK (SETLOCK) */ 00053000 */* INPUT: REG 0-REG 10: UNUSED */ 00054000 */* REG 11-REG13: REGISTERS USED BY SETLOCK */ 00055000 */* REG 14: RETURN ADDRESS */ 00056000 */* REG 15: UNUSED. */ 00057000 */* OUTPUT: REG 0-REG 10: RESTORED */ 00058000 */* REG 11-REG 12: UNPREDICTABLE */ 00059000 */* REG 13: RETURN CODE */ 00060000 */* 0: NORMAL RETURN */ 00061000 */* 4: CALLER HOLDS LOCK */ 00062000 */* 12: INVALID REQUEST */ 00063000 */* 20: UNABLE TO COMPLETE */ 00064000 */* REG 14-REG 15: RESTORED */ 00065000 */* LOCAL LOCK OBTAINED */ 00066000 */********************************************************************/ 00067000 * 0087 00068000 * RESPECIFY 0087 00069000 * (R11, 0087 00070000 * R12, 0087 00071000 * R13, 0087 00072000 * R14) RESTRICTED; 0087 00073000 * GENERATE CODE REFS(PSALITA,FLC,R13) SETS(R11,R12,R13,R14); 0088 00074000 GETLLK SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, **00075000 RELATED=(LOCAL,IEAVPIOI(FRELLK1)) 00076000 * RCALL='1'B; /* SET RCA FLAG FOR LOCAL LOCK 0089 00077000 * HELD */ 00078000 OI RCALL(RCAPTR),B'01000000' 0089 00079000 * RESPECIFY 0090 00080000 * (R11, 0090 00081000 * R12, 0090 00082000 * R13, 0090 00083000 * R14) UNRESTRICTED; 0090 00084000 * IF SOUTINT='1'B|LSQAPCBS->PCBASCB->ASCBTERM='1'B|LSQAPCBS->PCBASCB 00085000 * ->ASCBABNT='1'B THEN /* IF SWAPOUT HAS BEEN 0091 00086000 * INTERCEPTED BY IEAVTERM OR THE 00087000 * ADDRESS SPACE HAS TERMINATED 00088000 * (NORMALLY OR ABNORMALLY), FREE 00089000 * FRAMES AND PCBS */ 00090000 TM SOUTINT(SOUTPPTR),B'10000000' 0091 00091000 BO @RT00091 0091 00092000 L @12,LSQAPCBS-1(,SOUTPPTR) 0091 00093000 L @12,PCBASCB(,@12) 0091 00094000 TM ASCBTERM(@12),B'00011000' 0091 00095000 BZ @RF00091 0091 00096000 @RT00091 DS 0H 0092 00097000 * DO; /* SWAPOUT HAS BEEN TERMINATED */ 00098000 *TERM: /* ENTER HERE WHEN ASCBCHAP FAILS 00099000 * AND ASCB IS INVALID */ 00100000 */********************************************************************/ 00101000 */* OBTAIN SALLOC LOCK (SETLOCK) */ 00102000 */* INPUT: REG 0-REG 10: UNUSED */ 00103000 */* REG 11-REG 13: REGISTERS USED BY SETLOCK */ 00104000 */* REG 14: RETURN ADDRESS */ 00105000 */* REG 15: UNUSED */ 00106000 */* OUTPUT: REG 0-REG 10: RESTORED */ 00107000 */* REG 11-REG 12: UNPREDICTABLE */ 00108000 */* REG 13: RETURN CODE */ 00109000 */* 0: NORMAL RETURN */ 00110000 */* 4: CALLER HOLD LOCK OR LOCK NOT OWNED */ 00111000 */* REG 14-REG 15: RESTORED */ 00112000 */* SALLOC LOCK OBTAINED AND LOCAL LOCK RELEASED */ 00113000 */********************************************************************/ 00114000 * 0093 00115000 * GENERATE CODE REFS(PSALITA,FLC,R13) SETS(R11,R12,R13,R14); 0093 00116000 TERM DS 0H 0093 00117000 GETSLK2 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, **00118000 RELATED=(SALLOC,IEAVPIOI(FREELOCK)) 00119000 * RCASAL='1'B; /* SET SALLOC OBTAINED FLAG */ 00120000 OI RCASAL(RCAPTR),B'10000000' 0094 00121000 * RESPECIFY 0095 00122000 * (R11, 0095 00123000 * R12, 0095 00124000 * R14) UNRESTRICTED; 0095 00125000 * 0096 00126000 */********************************************************************/ 00127000 */* TO PTLB ALL CPUS (IEAVINV) */ 00128000 */* INPUT: REG 0: UNUSED */ 00129000 */* REG 1: 0 */ 00130000 */* REG 2: UNUSED */ 00131000 */* REG 3: PVTPTR */ 00132000 */* REG 4-REG 13: UNUSED */ 00133000 */* REG 14: RETURN ADDRESS */ 00134000 */* REG 15: ENTRY POINT */ 00135000 */* OUTPUT: REG 0-REG 15: RESTORED */ 00136000 */* ALL CPUS PTLBED */ 00137000 */********************************************************************/ 00138000 * 0096 00139000 * RSMHDPTR=PCBASCB->ASCBRSM; /* OBTAIN PTR TO SWAPOUT RSMHDR */ 00140000 L @12,PCBASCB(,PCBPTR) 0096 00141000 L RSMHDPTR,ASCBRSM(,@12) 0096 00142000 * R1=0; /* SET TO DO PTLB'S ONLY */ 00143000 SLR R1,R1 0097 00144000 * CALL IEAVINV; /* CALL IEAVINV TO ISSUE PTLB */ 00145000 L @15,PVTPINV(,PVTPTR) 0098 00146000 BALR @14,@15 0098 00147000 * RESPECIFY 0099 00148000 * (PCBPTR, 0099 00149000 * PFTEPTR) RESTRICTED; 0099 00150000 * PCBPTR=LSQAPCBS; /* OBTAIN PTR TO FIRST LSQA PCB */ 00151000 L PCBPTR,LSQAPCBS-1(,SOUTPPTR) 0100 00152000 LA PCBPTR,0(,PCBPTR) 0100 00153000 * DO WHILE PCBPTR^=0&AIALSQA='1'B;/* FREE LSQA PCBS/FRAMES */ 00154000 B @DE00101 0101 00155000 @DL00101 DS 0H 0102 00156000 * PFTEPTR=PVTPFTP+PCBRBN; /* CALCULATE PFTE ADDRESS */ 00157000 LH @11,PCBRBN(,PCBPTR) 0102 00158000 N @11,@CF01913 0102 00159000 L PFTEPTR,PVTPFTP(,PVTPTR) 0102 00160000 ALR PFTEPTR,@11 0102 00161000 * PFTPCBSI='0'B; /* TURN OFF PCB DEFINED */ 00162000 NI PFTPCBSI(PFTEPTR),B'11110111' 0103 00163000 * IF SOUTINT='1'B THEN /* IF SWAPOUT HAS BEEN 0104 00164000 * INTERCEPTED, THEN FREE THE 0104 00165000 * PFTES */ 00166000 TM SOUTINT(SOUTPPTR),B'10000000' 0104 00167000 BNO @RF00104 0104 00168000 * DO; /* SWAPOUT IS INTERCEPTED */ 00169000 * R1=PCBASCB; /* SET PTR TO SWAPOUT ASCB */ 00170000 L R1,PCBASCB(,PCBPTR) 0106 00171000 * R0=PCBRBN; /* SET RBN */ 00172000 LR R0,@11 0107 00173000 * R0=R0|PFTECON2; /* INDICATE TO IEAVPFTE THAT 0108 00174000 * FRAME SHOULD BE PLACED ON 0108 00175000 * FRONT OF THE AFQ */ 00176000 O R0,@CF01876 0108 00177000 * CALL IEAVPFTE; /* SEND UNQUEUED FRAME TO THE 0109 00178000 * AFQ. NOTE THAT 0109 00179000 * RSMCNTFX/PVTCNTFX HAVE 0109 00180000 * PREVIOUSLY BEEN DECREMENTED BY 00181000 * IEAVDLAS */ 00182000 L @15,PVTPFTE(,PVTPTR) 0109 00183000 BALR @14,@15 0109 00184000 * END; /* END OF FREE PFTES */ 00185000 * ELSE 0111 00186000 * ; /* EITHER CASE FREE THE LSQA PCBS*/ 00187000 @RF00104 DS 0H 0112 00188000 * R0=PCBFREQN; /* SET THE FREE QUEUE ID */ 00189000 LA R0,16 0112 00190000 * R1=PCBPTR; /* SET PTR TO PCB TO BE FREED */ 00191000 LR R1,PCBPTR 0113 00192000 * PCBPTR=PCBFQPA; /* POINT TO NEXT LSQA PCB */ 00193000 L @11,PCBFQPA-1(,PCBPTR) 0114 00194000 LA @11,0(,@11) 0114 00195000 LR PCBPTR,@11 0114 00196000 * CALL IEAVPCB; /* FREE THE CURRENT PCB */ 00197000 L @15,PVTPCB(,PVTPTR) 0115 00198000 BALR @14,@15 0115 00199000 * END; /* END OF FREE LSQA PCBS/PFTES 0116 00200000 * LOOP */ 00201000 @DE00101 LTR PCBPTR,PCBPTR 0116 00202000 BZ @DC00101 0116 00203000 TM AIALSQA(PCBPTR),B'00001000' 0116 00204000 BO @DL00101 0116 00205000 @DC00101 DS 0H 0117 00206000 * R1=SOUTPPTR; /* SET PTR TO FREE SWAPOUT 0117 00207000 * PARMLST */ 00208000 LR R1,SOUTPPTR 0117 00209000 * R0=PCBFREQN; /* SET TQN TO FREE QUEUE */ 00210000 LA R0,16 0118 00211000 * CALL IEAVPCB; /* FREE THE SWAPOUT PARAMETER 0119 00212000 * LIST */ 00213000 L @15,PVTPCB(,PVTPTR) 0119 00214000 BALR @14,@15 0119 00215000 * END; /* END OF INTERCEPT PROCESSING */ 00216000 * ELSE /* SWAPOUT IS NOT INTERCEPTED, */ 00217000 * DO; /* DELETE THE ASCB FROM THE 0121 00218000 * DISPATCHING QUEUE AND CALL ASM 00219000 * TO START THE I/O FOR THE LSQA 00220000 * PAGES */ 00221000 B @RC00091 0121 00222000 @RF00091 DS 0H 0122 00223000 * RCAPARM0=LSQAPCBS; /* SAVE INPUT IN CASE OF ABEND */ 00224000 L @11,LSQAPCBS-1(,SOUTPPTR) 0122 00225000 LA @11,0(,@11) 0122 00226000 ST @11,RCAPARM0(,RCAPTR) 0122 00227000 * RCAPARM1=LSQAPCBS->PCBASCB->ASCBASID;/* GET THE ASID IN CASE 00228000 * OF MEMTERM */ 00229000 L @11,PCBASCB(,@11) 0123 00230000 LH @11,ASCBASID(,@11) 0123 00231000 N @11,@CF01913 0123 00232000 ST @11,RCAPARM1(,RCAPTR) 0123 00233000 * RCARETAD=ADDR(PIOIRTRY); /* GET RETRY ADDRESS */ 00234000 * 0124 00235000 LA @11,PIOIRTRY 0124 00236000 ST @11,RCARETAD(,RCAPTR) 0124 00237000 * /*************************************************************/ 00238000 * /* */ 00239000 * /* NOTE THE FOLLOWING DEPENDENCY IN IEAVPIOI - IEAVTERM */ 00240000 * /* RETAINS THE LOCAL LOCK UNTIL IEAVDLAS RUNS. IEAVTERM SETS */ 00241000 * /* SOUTINT HOLDING THE LOCAL LOCK. IEAVDLAS HOLDS THE SALLOC */ 00242000 * /* WHEN MOVING PFTE'S AND PCB'S TO MASTERS ADDRESS SPACE. */ 00243000 * /* THEREFORE IEAVPIOI MUST HOLD THE LOCAL LOCK WHEN TESTING */ 00244000 * /* SOUTINT AND WHEN OBTAINING THE ASCB ADDRESS FROM THE LSQA */ 00245000 * /* PCBS. THUS, WHEN SOUT=1, IEAVDLAS MAY OR MAY NOT HAVE RUN,*/ 00246000 * /* BUT IT MAKES NO DIFFERENCE. IF SOUTINT=1, THEN RCARETAD=0;*/ 00247000 * /* ALSO THE SALLOC IS OBTAINED BEFORE FREEING THE PCBS AND */ 00248000 * /* FRAMES FROM EITHER MASTER OR THE SWAPOUT ADDRESS SPACE. IF*/ 00249000 * /* SOUTINT=0, THE VTERM/DLAS HAVE NOT RUN SO THE LOCAL LOCK */ 00250000 * /* IS ACCEPTABLE SERIALIZATION FOR THE PCBASCB */ 00251000 * /* */ 00252000 * /*************************************************************/ 00253000 * 0125 00254000 */********************************************************************/ 00255000 */* ASCBCHAP: TO STOP THE PROCESSING FOR AN ADDRESS SPACE. */ 00256000 */* INPUT: */ 00257000 */* REG 0: ENTRY CODE LOADED BY MACRO */ 00258000 */* REG 1: ADDRESS OF ASCB TO BE DELETED */ 00259000 */* REG 2-REG 12: UNUSED */ 00260000 */* REG 13: SAVEAREA ADDRESS */ 00261000 */* REG 14: RETURN ADDRESS */ 00262000 */* REG 15: ENTRY POINT */ 00263000 */* OUTPUT: */ 00264000 */* REG 0-REG 14: RESTORED */ 00265000 */* REG 15: RETURN CODE: 0 - ASCB FOUND AND REMOVED FROM */ 00266000 */* DISPATCHING QUEUE */ 00267000 */* 4 - ASCB NOT FOUND ON QUEUE */ 00268000 */********************************************************************/ 00269000 * 0125 00270000 * RESPECIFY 0125 00271000 * (R13, 0125 00272000 * R15) RESTRICTED; 0125 00273000 * R1=PCBASCB; /* GET ASCB OF SWAPPED-OUT AS. TO 00274000 * DO THE ASCBCHAP (DELETES THE 00275000 * A.S. FROM DISPATCHING QUEUE) */ 00276000 L R1,PCBASCB(,PCBPTR) 0126 00277000 * R13=WSALACHP; /* GET ADDRESS OF LOCAL SAVE AREA*/ 00278000 L @14,ASXBPTR(,ASCBPTR) 0127 00279000 L @14,ASXBSPSA(,@14) 0127 00280000 L R13,WSALACHP(,@14) 0127 00281000 * GENERATE NODEFS /* ISSUE ASCBCHAP FOR SWAPPED-OUT 00282000 * ADDRESS SPACE */ 00283000 * REFS(CVTPTR,CVTVEAC0,CVTMAP) NOSETS NOFLOWS; 0128 00284000 ASCBCHAP DELETE ASCBCHAP FOR SWAPPED-OUT A.S. 00285000 * 0129 00286000 */********************************************************************/ 00287000 */* IF RETURN CODE IS NON-ZERO, THE ASCB COULD NOT BE FOUND ON THE */ 00288000 */* DISPATCHING QUEUE AND IEAVSWPC WILL BE CALLED TO FREE THE */ 00289000 */* PCBS. */ 00290000 */* IF RETURN CODE IS 0, THE ASCB WAS FOUND ON THE DISPATCHING QUEUE*/ 00291000 */* AND WAS DEQUEUED. IEAVPIOI PROCESSING CONTINUES. */ 00292000 */********************************************************************/ 00293000 * 0129 00294000 * IF R15^=0 THEN /* TEST IF R.C. IS GOOD */ 00295000 LTR R15,R15 0129 00296000 BZ @RF00129 0129 00297000 * DO; /* R.C. IS BAD. ISSUE ABEND */ 00298000 * RCARCRD='16'X; /* SET ERROR REASON CODE */ 00299000 MVI RCARCRD(RCAPTR),X'16' 0131 00300000 *ERROR: 0132 00301000 * GENERATE CODE NOREFS SETS(R1); 0132 00302000 ERROR DS 0H 0132 00303000 ABEND X'C0D',,,SYSTEM 00304000 * RESPECIFY 0133 00305000 * (R15) UNRSTD; 0133 00306000 *TERMEM: 0134 00307000 * IF PCBASCB->ASCBASCB='ASCB' THEN/* TEST IF ASCB IS A 0134 00308000 * VALID ASCB */ 00309000 TERMEM L @11,PCBASCB(,PCBPTR) 0134 00310000 CLC ASCBASCB(4,@11),@CC01903 0134 00311000 BNE @RF00134 0134 00312000 * DO; /* VALID - SET FAILURE CODE AND 00313000 * CALL IEAVSWPC */ 00314000 */********************************************************************/ 00315000 */* TO OBTAIN SALLOC LOCK (SETLOCK) */ 00316000 */* INPUT: REG 0-REG 10: UNUSED */ 00317000 */* REG 11-REG 13: REGISTERS USED BY SETLOCK */ 00318000 */* REG 14: RETURN ADDRESS */ 00319000 */* REG 15: UNUSED */ 00320000 */* OUTPUT: REG 0-REG 10: RESTORED */ 00321000 */* REG 11-REG 12: UNPREDICTABLE */ 00322000 */* REG 13: RETURN CODE */ 00323000 */* 0: NORMAL RETURN */ 00324000 */* 4: CALLER HOLDS LOCK */ 00325000 */* REG 14-REG 15: RESTORED */ 00326000 */* SALLOC LOCK OBTAINED */ 00327000 */********************************************************************/ 00328000 * 0136 00329000 * RESPECIFY 0136 00330000 * (R11, 0136 00331000 * R12, 0136 00332000 * R14) RSTD; 0136 00333000 * GENERATE CODE REFS(PSALITA,FLC) SETS(R11,R12,R13,R14); 00334000 GETSLK1 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, **00335000 RELATED=(SALLOC,IEAVPIOI(FRESLK1)) 00336000 * RCASAL='1'B; /* SET SALLOC OBTAINED FLAG */ 00337000 OI RCASAL(RCAPTR),B'10000000' 0138 00338000 * PVTPRCA=RCAPTR; /* PUT RCA ADDR IN PVT-HAVE 0139 00339000 * SALLOC*/ 00340000 ST RCAPTR,PVTPRCA(,PVTPTR) 0139 00341000 * RESPECIFY 0140 00342000 * (R11, 0140 00343000 * R12, 0140 00344000 * R13, 0140 00345000 * R14) UNRSTD; 0140 00346000 * R0=8; /* SET SWAP FAILURE CODE FOR 0141 00347000 * IEAVSWPC */ 00348000 LA R0,8 0141 00349000 * R1=ADDR(PCBAIA); /* PASS LSQA AIAS TO IEAVSWPC */ 00350000 LA R1,PCBAIA(,PCBPTR) 0142 00351000 * CALL IEAVSWPC; /* FREE PCBS, TURN OFF PFTPCBSI */ 00352000 L @15,PVTPSWPC(,PVTPTR) 0143 00353000 BALR @14,@15 0143 00354000 * GOTO FREELCKS; /* FREE FRR, RELEASE SALLOC AND 00355000 * LOCAL LOCK, EXIT */ 00356000 B FREELCKS 0144 00357000 * END; /* END OF ERROR ON VALID ASCB 0145 00358000 * PROCESSING */ 00359000 * ELSE 0146 00360000 * ; /* PROCESS ERROR ON INVALID ASCB */ 00361000 @RF00134 DS 0H 0147 00362000 * RCARETAD=0; /* ZERO RETRY ADDRESS */ 00363000 SLR @11,@11 0147 00364000 ST @11,RCARETAD(,RCAPTR) 0147 00365000 * GOTO TERM; /* START CLEANUP PROCESSING */ 00366000 B TERM 0148 00367000 * END; /* ASCBCHAP SUCCESSFUL */ 00368000 * 0150 00369000 */********************************************************************/ 00370000 */* ASCBCHAP COMPLETED OK--ASCB ON QUEUE--START LSQA I/O */ 00371000 */********************************************************************/ 00372000 */********************************************************************/ 00373000 */* TO OBTAIN SALLOC LOCK (SETLOCK) */ 00374000 */* INPUT: REG 0-REG 10: UNUSED */ 00375000 */* REG 11-REG 13: REGISTERS USED BY SETLOCK */ 00376000 */* REG 14: RETURN ADDRESS */ 00377000 */* REG 15: UNUSED */ 00378000 */* OUTPUT: REG 0-REG 10: RESTORED */ 00379000 */* REG 11-REG 12: UNPREDICTABLE */ 00380000 */* REG 13: RETURN CODE */ 00381000 */* 0: NORMAL RETURN */ 00382000 */* 4: CALLER HOLDS LOCK */ 00383000 */* REG 14-REG 15: RESTORED */ 00384000 */* SALLOC LOCK OBTAINED */ 00385000 */********************************************************************/ 00386000 * 0150 00387000 * RESPECIFY 0150 00388000 * (R11, 0150 00389000 * R12, 0150 00390000 * R14) RSTD; 0150 00391000 @RF00129 DS 0H 0151 00392000 * GENERATE CODE REFS(PSALITA,FLC) SETS(R11,R12,R13,R14); 0151 00393000 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, **00394000 RELATED=(SALLOC,IEAVPIOI(FRESLK1)) 00395000 * RCASAL='1'B; /* SET SALLOC OBTAINED FLAG */ 00396000 OI RCASAL(RCAPTR),B'10000000' 0152 00397000 * PVTPRCA=RCAPTR; /* PUT RCA ADDR IN PVT-HAVE 0153 00398000 * SALLOC*/ 00399000 ST RCAPTR,PVTPRCA(,PVTPTR) 0153 00400000 * RESPECIFY 0154 00401000 * (R11, 0154 00402000 * R12, 0154 00403000 * R13, 0154 00404000 * R14) UNRSTD; 0154 00405000 * RESPECIFY 0155 00406000 * (R15) RSTD; 0155 00407000 * RCARETAD=0; /* REMOVE THE RETRY ADDRESS. SWAP 00408000 * I/O WILL BE STARTED SO FRAMES 00409000 * AND PCBS CANNOT BE RECLAIMED */ 00410000 SLR @14,@14 0156 00411000 ST @14,RCARETAD(,RCAPTR) 0156 00412000 * RSMHDPTR=PCBASCB->ASCBRSM; /* OBTAIN RSMHD ADDRESS OF 0157 00413000 * SWAPOUT ADDRESS SPACE (OR 0157 00414000 * MASTERS IF ADDRESS SPACE HAS 00415000 * BEEN TERMINATED. */ 00416000 * 0157 00417000 L @14,PCBASCB(,PCBPTR) 0157 00418000 L RSMHDPTR,ASCBRSM(,@14) 0157 00419000 * /*************************************************************/ 00420000 * /* */ 00421000 * /* SET UP TO CALL ASM AT ILRSWAP */ 00422000 * /* */ 00423000 * /*************************************************************/ 00424000 * 0158 00425000 * R1=ADDR(PCBAIA); /* PASS FIRST LSQA AIA TO ASM */ 00426000 LA R1,PCBAIA(,PCBPTR) 0158 00427000 * CALL ILRSWAP; /* CALL ASM */ 00428000 L @15,PVTSWPIO(,PVTPTR) 0159 00429000 BALR @14,@15 0159 00430000 */********************************************************************/ 00431000 */* IF RETURN CODE=0, THEN I/O WAS STARTED FOR ALL PCBS. RELEASE THE*/ 00432000 */* FRR AND EXIT. IF RETURN CODE=NON-ZERO I/O FAILED FOR 1 OR MORE */ 00433000 */* PCBS. */ 00434000 */********************************************************************/ 00435000 * 0160 00436000 * IF R15^=0 THEN /* TEST IF I/O STARTED FOR ALL 0160 00437000 * AIAS */ 00438000 LTR R15,R15 0160 00439000 BZ @RF00160 0160 00440000 * DO; /* I/O WAS NOT STARTED - PROCESS 00441000 * ERROR */ 00442000 * R0=8; /* SET FAILURE RETURN CODE FOR 0162 00443000 * IEAVSWPC */ 00444000 LA R0,8 0162 00445000 * CALL IEAVSWPC; /* CALL THE SWAP COMPLETION 0163 00446000 * PROCESSOR FOR CLEANUP */ 00447000 L @15,PVTPSWPC(,PVTPTR) 0163 00448000 BALR @14,@15 0163 00449000 * RESPECIFY 0164 00450000 * (R15) UNRESTRICTED; 0164 00451000 * END; /* END OF ERROR PROCESSING */ 00452000 * ELSE 0166 00453000 * ; /* I/O SUCCESSFULLY STARTED */ 00454000 @RF00160 DS 0H 0167 00455000 * END; /* END OF NOT INTERCEPTED 0167 00456000 * PROCESSING */ 00457000 *FREELCKS: 0168 00458000 * RESPECIFY 0168 00459000 * (R11, 0168 00460000 * R12, 0168 00461000 * R13, 0168 00462000 * R14) RSTD; 0168 00463000 * 0168 00464000 @RC00091 DS 0H 0168 00465000 FREELCKS DS 0H 0169 00466000 */****************************************************************** */ 00467000 */* TO RELEASE SALLOC LOCK (SETLOCK) */ 00468000 */* INPUT: REG 0-REG 10: UNUSED */ 00469000 */* REG 11-REG 13: REGISTERS USED BY SETLOCK */ 00470000 */* REG 14: RETURN ADDRESS */ 00471000 */* REG 15: UNUSED */ 00472000 */* OUTPUT: REG 0-REG 10: RESTORED */ 00473000 */* REG 11-REG 12: UNPREDICTABLE */ 00474000 */* REG 13: RETURN CODE */ 00475000 */* 0: NORMAL RETURN */ 00476000 */* 4: LOCK NOT OWNED */ 00477000 */* REG 14-REG 15: RESTORED */ 00478000 */* SALLOC LOCK RELEASED */ 00479000 */****************************************************************** */ 00480000 * 0169 00481000 * GENERATE CODE REFS(PSALITA,FLC,R13) SETS(R11,R12,R13,R14); 0169 00482000 FRESLK1 SETLOCK RELEASE,TYPE=SALLOC,RELATED=(SALLOC,IEAVPIOI(GETSLK1)) 00483000 * RCASAL='0'B; /* SET SALLOC RELEASED FLAG */ 00484000 NI RCASAL(RCAPTR),B'01111111' 0170 00485000 * 0171 00486000 */********************************************************************/ 00487000 */* RELEASE LOCAL LOCK (SETLOCK) */ 00488000 */* INPUT: REG 0-REG 10: UNUSED */ 00489000 */* REG 11-REG 13: REGISTERS USED BY SETLOCK */ 00490000 */* REG 14: RETURN ADDRESS */ 00491000 */* REG 15: UNUSED */ 00492000 */* OUTPUT: REG 0-REG 10: RESTORED */ 00493000 */* REG 11-REG 12: UNPREDICTABLE */ 00494000 */* REG 13: RETURN CODE */ 00495000 */* 0: NORMAL RETURN - LOCAL RELEASED */ 00496000 */* 4: LOCK NOT OWNED */ 00497000 */* REG 14-REG 15: RESTORED */ 00498000 */********************************************************************/ 00499000 */********************************************************************/ 00500000 */* RELEASE FRR (SETFRR) */ 00501000 */* INPUT: REG 1-REG 2: WORK REGISTERS */ 00502000 */* REG 0,REG 3-REG 15: UNUSED */ 00503000 */* OUTPUT: REG 1-REG 2: UNPREDICTABLE */ 00504000 */* REG 0,REG 1-REG 15: RESTORED */ 00505000 */* RSM FRR REMOVED */ 00506000 */********************************************************************/ 00507000 * 0171 00508000 * RESPECIFY 0171 00509000 * (R2, 0171 00510000 * R11, 0171 00511000 * R12, 0171 00512000 * R14) RESTRICTED; 0171 00513000 *FREEFRR: 0172 00514000 * GENERATE CODE REFS(PSACSTK,FRRSCURR,FRRSEMP,FRRS,FRRSELEN) SETS(R1, 00515000 * R2,R11,R12,R13,R14); 0172 00516000 FREEFRR DS 0H 0172 00517000 FRELLK1 SETLOCK RELEASE,TYPE=LOCAL,RELATED=(LOCAL,IEAVPIOI(GETLLK)) 00518000 SETFRR D,WRKREGS=(R1,R2) 00519000 * R14=CVTSRBRT; /* GET RETURN ADDRESS */ 00520000 L @04,CVTPTR 0173 00521000 L R14,CVTSRBRT(,@04) 0173 00522000 * GOTO R14; /* RETURN TO CALLER */ 00523000 BR R14 0174 00524000 *PIOIRTRY: /* RETRY ENTRY */ 00525000 * RESPECIFY 0175 00526000 * (R11, 0175 00527000 * R13) RESTRICTED; 0175 00528000 PIOIRTRY DS 0H 0176 00529000 * R13=WSALRSM; /* SAVEAREA NEEDED FOR 0176 00530000 * TERMINATION RTN. @VS02689*/ 00531000 L @15,ASXBPTR(,ASCBPTR) 0176 00532000 L @15,ASXBSPSA(,@15) 0176 00533000 L R13,WSALRSM(,@15) 0176 00534000 * R11=R0->PCBASCB->ASCBASID; /* GET ASID FOR RTN INTERFACE */ 00535000 LR @15,R0 0177 00536000 L @15,PCBASCB(,@15) 0177 00537000 LH R11,ASCBASID(,@15) 0177 00538000 N R11,@CF01913 0177 00539000 * IF R11^=PSAAOLD->ASCBASID THEN /* IF EQUAL THEN DLAS HAS RUN AND 00540000 * PCBASCB EQUALS MASTERS. BYPASS 00541000 * MEMTERM */ 00542000 L @15,PSAAOLD 0178 00543000 LH @15,ASCBASID(,@15) 0178 00544000 N @15,@CF01913 0178 00545000 CR R11,@15 0178 00546000 BE @RF00178 0178 00547000 * DO; /* UNEQUAL, MUST BE FOR SWAPPED 00548000 * OUT ADDRESS SPACE SINCE 0179 00549000 * CURRENTLY RUNNING IN MASTERS */ 00550000 * GENERATE CODE REFS(CVTBTERM,CVTMAP); 0180 00551000 * /* ISSUE MEMTERM */ 00552000 CALLRTM TYPE=MEMTERM,COMPCOD=X'028',ASID=(R11) 00553000 * END; /* END OF MEMTERM PROCESSING */ 00554000 * ELSE 0182 00555000 * ; /* PCBASCB = MASTERS ASCB */ 00556000 @RF00178 DS 0H 0183 00557000 * GOTO TERM; /* FREE PCBS AND FRAMES */ 00558000 B TERM 0183 00559000 * END IEAVPIOI 0184 00560000 * 0184 00561000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00562000 */*%INCLUDE SYSLIB (ILRAIA ) */ 00563000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00564000 */*%INCLUDE SYSLIB (ILRASMVT) */ 00565000 */*%INCLUDE SYSLIB (IHAASXB ) */ 00566000 */*%INCLUDE SYSLIB (CVT ) */ 00567000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 00568000 */*%INCLUDE SYSLIB (IHAPCB ) */ 00569000 */*%INCLUDE SYSLIB (IHAPFTE ) */ 00570000 */*%INCLUDE SYSLIB (IHAPCBR ) */ 00571000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00572000 */*%INCLUDE SYSLIB (IHAPVT ) */ 00573000 */*%INCLUDE SYSLIB (IHARCA ) */ 00574000 */*%INCLUDE SYSLIB (IHASRB ) */ 00575000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 00576000 * 0184 00577000 * ; 0184 00578000 @DATA DS 0H 00579000 DS 0F 00580000 DS 0F 00581000 @CF01876 DC XL4'80000000' 00582000 @CF01913 DC XL4'0000FFFF' 00583000 DS 0D 00584000 @CC01903 DC C'ASCB' 00585000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00586000 @01 EQU 01 00587000 @02 EQU 02 00588000 @03 EQU 03 00589000 @04 EQU 04 00590000 @05 EQU 05 00591000 @06 EQU 06 00592000 @07 EQU 07 00593000 @08 EQU 08 00594000 @09 EQU 09 00595000 @10 EQU 10 00596000 @11 EQU 11 00597000 @12 EQU 12 00598000 @13 EQU 13 00599000 @14 EQU 14 00600000 @15 EQU 15 00601000 ASCBPTR EQU @10 00602000 PCBPTR EQU @06 00603000 PFTEPTR EQU @12 00604000 PVTPTR EQU @03 00605000 RCAPTR EQU @07 00606000 SRBPTR EQU @05 00607000 R0 EQU @00 00608000 R1 EQU @01 00609000 AIAPTR EQU @01 00610000 R2 EQU @02 00611000 RSMHDPTR EQU @02 00612000 SOUTPPTR EQU @08 00613000 BASEREG EQU @09 00614000 R11 EQU @11 00615000 R12 EQU @12 00616000 R13 EQU @13 00617000 R14 EQU @14 00618000 R15 EQU @15 00619000 R10 EQU @10 00620000 R3 EQU @03 00621000 R4 EQU @04 00622000 R5 EQU @05 00623000 R6 EQU @06 00624000 R7 EQU @07 00625000 R8 EQU @08 00626000 R9 EQU @09 00627000 PSA EQU 0 00628000 FLCRNPSW EQU PSA 00629000 FLCROPSW EQU PSA+8 00630000 FLCICCW2 EQU PSA+16 00631000 FLCCVT EQU FLCICCW2 00632000 PSAEEPSW EQU PSA+132 00633000 PSAESPSW EQU PSA+136 00634000 FLCSVILC EQU PSAESPSW+1 00635000 PSAEPPSW EQU PSA+140 00636000 FLCPIILC EQU PSAEPPSW+1 00637000 FLCPICOD EQU PSAEPPSW+2 00638000 PSAPICOD EQU FLCPICOD+1 00639000 FLCTEA EQU PSAEPPSW+4 00640000 FLCPER EQU PSA+152 00641000 FLCMCLA EQU PSA+168 00642000 FLCIOEL EQU FLCMCLA+4 00643000 FLCIOA EQU FLCMCLA+16 00644000 FLCFSA EQU FLCMCLA+80 00645000 PSAAOLD EQU PSA+548 00646000 PSASUPER EQU PSA+552 00647000 PSASUP1 EQU PSASUPER 00648000 PSASUP2 EQU PSASUPER+1 00649000 PSASUP3 EQU PSASUPER+2 00650000 PSASUP4 EQU PSASUPER+3 00651000 PSACLHT EQU PSA+640 00652000 PSALKSA EQU PSA+696 00653000 PSAHLHI EQU PSA+760 00654000 PSALITA EQU PSA+764 00655000 PSADSSFL EQU PSA+836 00656000 PSADSSF1 EQU PSADSSFL 00657000 PSADSSF3 EQU PSADSSFL+2 00658000 PSADSSF4 EQU PSADSSFL+3 00659000 PSARSVT EQU PSA+896 00660000 PSALSFCC EQU PSA+1012 00661000 ASCB EQU 0 00662000 ASCBASCB EQU ASCB 00663000 ASCBSUPC EQU ASCB+16 00664000 ASCBASID EQU ASCB+36 00665000 ASCBRSM EQU ASCB+52 00666000 ASCBFW1 EQU ASCB+100 00667000 ASCBRCTF EQU ASCBFW1+2 00668000 ASCBFLG1 EQU ASCBFW1+3 00669000 ASCBTERM EQU ASCBFLG1 00670000 ASCBABNT EQU ASCBFLG1 00671000 ASCBASXB EQU ASCB+108 00672000 ASCBDSP1 EQU ASCB+114 00673000 ASCBFLG2 EQU ASCB+115 00674000 ASCBLKGP EQU ASCB+128 00675000 ASCBSRQ EQU ASCB+180 00676000 ASCBSRQ1 EQU ASCBSRQ 00677000 ASCBSRQ2 EQU ASCBSRQ+1 00678000 ASCBSRQ3 EQU ASCBSRQ+2 00679000 ASCBSRQ4 EQU ASCBSRQ+3 00680000 ASMVT EQU 0 00681000 ASMFLAG1 EQU ASMVT 00682000 ASMFLAG2 EQU ASMVT+1 00683000 ASMSTAGQ EQU ASMVT+32 00684000 ASMPCCWQ EQU ASMVT+64 00685000 ASMLSAI EQU ASMVT+144 00686000 ASMGOSQS EQU ASMVT+152 00687000 ASMWKSA1 EQU ASMVT+368 00688000 ASMWKSA2 EQU ASMVT+448 00689000 ASMWKSA3 EQU ASMVT+528 00690000 ASMWKSA4 EQU ASMVT+608 00691000 ASMWKSA5 EQU ASMVT+688 00692000 ASMPOOLS EQU 0 00693000 ASMCPAVQ EQU ASMPOOLS+8 00694000 ASMCPRSQ EQU ASMPOOLS+16 00695000 ASXB EQU 0 00696000 ASXBSPSA EQU ASXB+112 00697000 ASXBAEQ EQU ASXB+168 00698000 ASXBSECR EQU ASXB+199 00699000 ASCBSFLG EQU ASXBSECR 00700000 ASXBCASW EQU ASXB+216 00701000 ASXBCRB1 EQU ASXBCASW 00702000 CVTMAP EQU 0 00703000 CVTBTERM EQU CVTMAP+52 00704000 CVTDAR EQU CVTMAP+72 00705000 CVTFLGS1 EQU CVTDAR 00706000 CVTDCB EQU CVTMAP+116 00707000 CVTIERLC EQU CVTMAP+144 00708000 CVTOPTA EQU CVTMAP+182 00709000 CVTOPTB EQU CVTMAP+183 00710000 CVTGTF EQU CVTMAP+236 00711000 CVTGTFST EQU CVTGTF 00712000 CVTGTFS EQU CVTGTFST 00713000 CVTSTATE EQU CVTGTFST 00714000 CVTTMODE EQU CVTGTFST 00715000 CVTFORM EQU CVTGTFST 00716000 CVTAQAVT EQU CVTMAP+240 00717000 CVTTCMFG EQU CVTAQAVT 00718000 CVTVOLM2 EQU CVTMAP+244 00719000 CVTTATA EQU CVTVOLM2 00720000 CVTTSKS EQU CVTTATA 00721000 CVTVOLF2 EQU CVTTSKS 00722000 CVTTAT EQU CVTTATA+1 00723000 CVTATER EQU CVTMAP+248 00724000 CVTEXT1 EQU CVTMAP+252 00725000 CVTPURG EQU CVTMAP+260 00726000 CVTQMSG EQU CVTMAP+268 00727000 CVTDMSR EQU CVTMAP+272 00728000 CVTRSV37 EQU CVTDMSR 00729000 CVTDMSRF EQU CVTRSV37 00730000 CVTERPV EQU CVTMAP+316 00731000 CVTINTLA EQU CVTMAP+320 00732000 CVTAPF EQU CVTMAP+324 00733000 CVTEXT2 EQU CVTMAP+328 00734000 CVTHJES EQU CVTMAP+332 00735000 CVTPGSIA EQU CVTMAP+348 00736000 CVTA1F1 EQU CVTMAP+356 00737000 CVTSYSK EQU CVTMAP+357 00738000 CVTVOLM1 EQU CVTMAP+380 00739000 CVTVOLF1 EQU CVTVOLM1 00740000 CVTATMCT EQU CVTMAP+388 00741000 CVTXTNT1 EQU 0 00742000 CVTXTNT2 EQU 0 00743000 CVTDSSV EQU CVTXTNT2 00744000 CVTFLGBT EQU CVTXTNT2+5 00745000 CVTQID EQU CVTXTNT2+24 00746000 CVTRV400 EQU CVTXTNT2+52 00747000 CVTRV409 EQU CVTXTNT2+53 00748000 CVTATCVT EQU CVTXTNT2+64 00749000 CVTRV429 EQU CVTXTNT2+84 00750000 CVTRV438 EQU CVTXTNT2+85 00751000 CVTRV457 EQU CVTXTNT2+112 00752000 CVTRV466 EQU CVTXTNT2+113 00753000 CVTFIX EQU 0 00754000 CVTRELNO EQU CVTFIX+252 00755000 FRRS EQU 0 00756000 FRRSHEAD EQU FRRS 00757000 FRRSEMP EQU FRRSHEAD 00758000 FRRSLAST EQU FRRSHEAD+4 00759000 FRRSELEN EQU FRRSHEAD+8 00760000 FRRSCURR EQU FRRSHEAD+12 00761000 FRRSENTR EQU 0 00762000 FRRSFRRA EQU FRRSENTR 00763000 FRRSFLGS EQU FRRSENTR+4 00764000 FRRSFLG1 EQU FRRSFLGS 00765000 FRRSPARM EQU FRRSENTR+8 00766000 PCB EQU 0 00767000 PCBFQP EQU PCB 00768000 PCBFQPA EQU PCBFQP+1 00769000 PCBBQP EQU PCB+4 00770000 PCBRTP EQU PCB+8 00771000 PCBFL1 EQU PCBRTP 00772000 PCBRTPA EQU PCBRTP+1 00773000 PCBRLP EQU PCB+12 00774000 PCBXPT EQU PCB+16 00775000 PCBFL2 EQU PCBXPT 00776000 PCBPGT EQU PCB+20 00777000 PCBFL3 EQU PCBPGT 00778000 PCBRBN EQU PCB+24 00779000 PCBBLOCK EQU PCB+28 00780000 PCBSRB EQU PCBBLOCK 00781000 PCBRB EQU PCBSRB 00782000 PCBASCB EQU PCB+32 00783000 PCBAIA EQU PCB+36 00784000 PFTE EQU 0 00785000 PFTPGID EQU PFTE 00786000 PFTQPTRS EQU PFTE+4 00787000 PFTFLAG1 EQU PFTE+12 00788000 PFTPCBSI EQU PFTFLAG1 00789000 PFTFLAG2 EQU PFTE+13 00790000 PCBR EQU 0 00791000 PCBRTCB EQU PCBR 00792000 PCBRFLAG EQU PCBRTCB 00793000 PVT EQU 0 00794000 PVTFLAG1 EQU PVT 00795000 PVTPFTP EQU PVT+12 00796000 PVTPRCA EQU PVT+52 00797000 PVTPCB EQU PVT+104 00798000 PVTPFTE EQU PVT+108 00799000 PVTPRCV EQU PVT+156 00800000 PVTPSWPC EQU PVT+168 00801000 PVTPINV EQU PVT+172 00802000 PVTSWPIO EQU PVT+232 00803000 PVTQS EQU PVT+304 00804000 PVTWSAX EQU PVT+344 00805000 RCA EQU 0 00806000 RCAPARM0 EQU RCA 00807000 RCAPARM1 EQU RCA+4 00808000 RCACSECT EQU RCA+9 00809000 RCAFLAGS EQU RCA+10 00810000 RCASAL EQU RCAFLAGS 00811000 RCALL EQU RCAFLAGS 00812000 RCARCRD EQU RCA+11 00813000 RCANAMES EQU RCA+12 00814000 RCANAME1 EQU RCANAMES 00815000 RCANAME2 EQU RCANAMES+1 00816000 RCANAME3 EQU RCANAMES+2 00817000 RCANAME4 EQU RCANAMES+3 00818000 RCANAME5 EQU RCANAMES+4 00819000 RCANAME6 EQU RCANAMES+5 00820000 RCAPIOI EQU RCA+18 00821000 RCARETAD EQU RCA+20 00822000 SRBSECT EQU 0 00823000 SRB EQU SRBSECT 00824000 SRBASCB EQU SRB+8 00825000 SRBFLC EQU SRB+12 00826000 WSAL EQU 0 00827000 WSALRSM EQU WSAL+52 00828000 WSALACHP EQU WSAL+56 00829000 SOUTPARM EQU 0 00830000 SOUTFLGS EQU SOUTPARM+4 00831000 SOUTINT EQU SOUTFLGS 00832000 SOUTWRKA EQU SOUTPARM+16 00833000 LSQAPCBS EQU SOUTWRKA+1 00834000 IEAVINV EQU 0 00835000 IEAVSWPC EQU 0 00836000 ILRSWAP EQU 0 00837000 IEAVPCB EQU 0 00838000 IEAVPFTE EQU 0 00839000 RSMAIA EQU PCBAIA 00840000 AIA EQU RSMAIA 00841000 AIAFLG1 EQU AIA+9 00842000 AIALSQA EQU AIAFLG1 00843000 AIAFLG2 EQU AIA+10 00844000 AIAFLG3 EQU AIA+11 00845000 AIANXAIA EQU AIA+12 00846000 AIAID EQU AIA+16 00847000 AIALPID EQU AIAID 00848000 AIALGID EQU AIALPID 00849000 AIALSID EQU AIALGID 00850000 AIASSID EQU AIALSID+1 00851000 AIARPN EQU AIALPID+4 00852000 AIALSID2 EQU AIARPN 00853000 AIALPMEP EQU AIALSID2 00854000 AIAGRPSZ EQU AIA+24 00855000 AIALGE EQU AIAGRPSZ 00856000 CVTS01 EQU CVTPGSIA 00857000 CVTPVTP EQU CVTS01+8 00858000 CVTLPDIA EQU CVTS01+12 00859000 CVTDIRST EQU CVTLPDIA 00860000 CVTSLIDA EQU CVTS01+24 00861000 CVTCTLFG EQU CVTS01+50 00862000 CVTSRBRT EQU CVTS01+100 00863000 CVTVEAC0 EQU CVTS01+328 00864000 CVTASMVT EQU CVTS01+356 00865000 CVTRV210 EQU CVTS01+424 00866000 CVTRV219 EQU CVTS01+425 00867000 CVTRV228 EQU CVTS01+426 00868000 CVTRV237 EQU CVTS01+427 00869000 CVTMFRTR EQU CVTS01+452 00870000 CVTRV262 EQU CVTS01+468 00871000 CVTRV271 EQU CVTS01+469 00872000 CVTRV280 EQU CVTS01+470 00873000 CVTRV289 EQU CVTS01+471 00874000 CVTGSDA EQU CVTS01+600 00875000 ASMVTPTR EQU CVTASMVT 00876000 ASM1WKSV EQU ASMWKSA1 00877000 ASM1RGSV EQU ASM1WKSV 00878000 ASM1WRKA EQU ASM1WKSV+60 00879000 ASM2WKSV EQU ASMWKSA2 00880000 ASM2WRKA EQU ASM2WKSV+52 00881000 ASM2FLGS EQU ASM2WRKA+12 00882000 ASM3WKSV EQU ASMWKSA3 00883000 ASM4WKSV EQU ASMWKSA4 00884000 ASM4RGSV EQU ASM4WKSV 00885000 ASM5WKSV EQU ASMWKSA5 00886000 ASM5RGSV EQU ASM5WKSV 00887000 ASXBPTR EQU ASCBASXB 00888000 CVTPTR EQU FLCCVT 00889000 PSARSVTE EQU PSARSVT 00890000 PSACSTK EQU PSARSVTE 00891000 FRRSPTR EQU PSACSTK 00892000 FRREPTR EQU FRRSCURR 00893000 FLC EQU PSA 00894000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00895000 PSARSAV EQU PSARSVTE+60 00896000 PSARSTK EQU PSARSVTE+56 00897000 PSAESAV3 EQU PSARSVTE+52 00898000 PSAESTK3 EQU PSARSVTE+48 00899000 PSAESAV2 EQU PSARSVTE+44 00900000 PSAESTK2 EQU PSARSVTE+40 00901000 PSAESAV1 EQU PSARSVTE+36 00902000 PSAESTK1 EQU PSARSVTE+32 00903000 PSAPSAV EQU PSARSVTE+28 00904000 PSAPSTK EQU PSARSVTE+24 00905000 PSAMSAV EQU PSARSVTE+20 00906000 PSAMSTK EQU PSARSVTE+16 00907000 PSASSAV EQU PSARSVTE+12 00908000 PSASSTK EQU PSARSVTE+8 00909000 PSANSTK EQU PSARSVTE+4 00910000 ASM5FLGS EQU ASM5WKSV+64 00911000 ASM5AIA EQU ASM5WKSV+60 00912000 ASM5GCTR EQU ASM5WKSV+56 00913000 ASM5SR14 EQU ASM5WKSV+52 00914000 @NM00006 EQU ASM5RGSV+4 00915000 ASM5RG2 EQU ASM5RGSV 00916000 @NM00005 EQU ASM4RGSV+4 00917000 ASM4RG2 EQU ASM4RGSV 00918000 ASM3SR13 EQU ASM3WKSV+28 00919000 ASM3R14B EQU ASM3WKSV+24 00920000 ASM3R14A EQU ASM3WKSV+20 00921000 ASM3GRPA EQU ASM3WKSV+16 00922000 ASM3TMPA EQU ASM3WKSV+12 00923000 ASM3PIOP EQU ASM3WKSV+8 00924000 ASM3GENQ EQU ASM3WKSV+4 00925000 ASM3SWPQ EQU ASM3WKSV 00926000 ASM2SR14 EQU ASM2WRKA+16 00927000 @NM00004 EQU ASM2WRKA+13 00928000 ASM2WFLG EQU ASM2FLGS 00929000 ASM2RFLG EQU ASM2FLGS 00930000 ASM2DUPQ EQU ASM2WRKA+8 00931000 ASM2CAQ EQU ASM2WRKA+4 00932000 ASM2PAQ EQU ASM2WRKA 00933000 ASM2RGSV EQU ASM2WKSV 00934000 ASM1NXTA EQU ASM1WRKA+4 00935000 ASM1ASCB EQU ASM1WRKA 00936000 ASM1RG15 EQU ASM1RGSV+56 00937000 @NM00003 EQU ASM1RGSV+4 00938000 ASM1RG1 EQU ASM1RGSV 00939000 CVTRV628 EQU CVTS01+728 00940000 CVTRV627 EQU CVTS01+724 00941000 CVTRV626 EQU CVTS01+720 00942000 CVTRV625 EQU CVTS01+716 00943000 CVTRV624 EQU CVTS01+712 00944000 CVTRV623 EQU CVTS01+708 00945000 CVTRV622 EQU CVTS01+704 00946000 CVTRV621 EQU CVTS01+700 00947000 CVTIHASU EQU CVTS01+696 00948000 CVTSUSP EQU CVTS01+692 00949000 CVTT6SVC EQU CVTS01+688 00950000 CVTCDAL EQU CVTS01+684 00951000 CVTTCTL EQU CVTS01+680 00952000 CVTRSUME EQU CVTS01+676 00953000 CVTJTERM EQU CVTS01+672 00954000 CVTASMRM EQU CVTS01+668 00955000 CVTTCASP EQU CVTS01+664 00956000 CVT0PT03 EQU CVTS01+660 00957000 CVT0PT0E EQU CVTS01+656 00958000 CVTRV609 EQU CVTS01+652 00959000 CVTCGK EQU CVTS01+648 00960000 CVTRAC EQU CVTS01+644 00961000 CVTRV606 EQU CVTS01+640 00962000 CVTRV605 EQU CVTS01+636 00963000 CVTRV604 EQU CVTS01+632 00964000 CVTEFF02 EQU CVTS01+628 00965000 CVTCBBR EQU CVTS01+624 00966000 CVTSSCR EQU CVTS01+620 00967000 CVTEVENT EQU CVTS01+616 00968000 CVTCRCA EQU CVTS01+612 00969000 CVTTPIO EQU CVTS01+608 00970000 CVTADV EQU CVTS01+604 00971000 CVTGSDAB EQU CVTGSDA 00972000 CVTQV3 EQU CVTS01+596 00973000 CVTQV2 EQU CVTS01+592 00974000 CVTQV1 EQU CVTS01+588 00975000 CVTRPT EQU CVTS01+584 00976000 CVTSSRB EQU CVTS01+580 00977000 CVTCSDRL EQU CVTS01+576 00978000 CVTEXP1 EQU CVTS01+572 00979000 CVTRMPMT EQU CVTS01+568 00980000 CVTRMPTT EQU CVTS01+564 00981000 CVTVPSA EQU CVTS01+560 00982000 CVTVSTOP EQU CVTS01+556 00983000 CVTGTFR8 EQU CVTS01+552 00984000 CVTQUIT EQU CVTS01+548 00985000 CVTVACR EQU CVTS01+544 00986000 CVTWTCB EQU CVTS01+540 00987000 CVTSTPRS EQU CVTS01+536 00988000 CVT0PT02 EQU CVTS01+532 00989000 CVTDARCM EQU CVTS01+528 00990000 CVTIRECM EQU CVTS01+524 00991000 CVTJRECM EQU CVTS01+520 00992000 CVTVEMS0 EQU CVTS01+516 00993000 CVTSPFRR EQU CVTS01+512 00994000 CVTRLSTG EQU CVTS01+508 00995000 CVT0TC0A EQU CVTS01+504 00996000 CVTGMBR EQU CVTS01+500 00997000 CVTLFRM EQU CVTS01+496 00998000 CVTRMBR EQU CVTS01+492 00999000 CVTVIOP EQU CVTS01+488 01000000 CVTRV307 EQU CVTS01+486 01001000 CVTRV306 EQU CVTS01+484 01002000 CVTRV305 EQU CVTS01+482 01003000 CVTRV304 EQU CVTS01+480 01004000 CVTRV303 EQU CVTS01+478 01005000 CVTRV302 EQU CVTS01+476 01006000 CVTTRCA EQU CVTS01+472 01007000 CVTRV297 EQU CVTRV289 01008000 CVTRV296 EQU CVTRV289 01009000 CVTRV295 EQU CVTRV289 01010000 CVTRV294 EQU CVTRV289 01011000 CVTRV293 EQU CVTRV289 01012000 CVTRV292 EQU CVTRV289 01013000 CVTRV291 EQU CVTRV289 01014000 CVTRV290 EQU CVTRV289 01015000 CVTRV288 EQU CVTRV280 01016000 CVTRV287 EQU CVTRV280 01017000 CVTRV286 EQU CVTRV280 01018000 CVTRV285 EQU CVTRV280 01019000 CVTRV284 EQU CVTRV280 01020000 CVTRV283 EQU CVTRV280 01021000 CVTRV282 EQU CVTRV280 01022000 CVTRV281 EQU CVTRV280 01023000 CVTRV279 EQU CVTRV271 01024000 CVTRV278 EQU CVTRV271 01025000 CVTRV277 EQU CVTRV271 01026000 CVTRV276 EQU CVTRV271 01027000 CVTRV275 EQU CVTRV271 01028000 CVTRV274 EQU CVTRV271 01029000 CVTRV273 EQU CVTRV271 01030000 CVTRV272 EQU CVTRV271 01031000 CVTRV270 EQU CVTRV262 01032000 CVTRV269 EQU CVTRV262 01033000 CVTRV268 EQU CVTRV262 01034000 CVTRV267 EQU CVTRV262 01035000 CVTRV266 EQU CVTRV262 01036000 CVTRV265 EQU CVTRV262 01037000 CVTRV264 EQU CVTRV262 01038000 CVTRV263 EQU CVTRV262 01039000 CVTVFP EQU CVTS01+464 01040000 CVTVSI EQU CVTS01+460 01041000 CVTVPSIB EQU CVTS01+456 01042000 CVTMFACT EQU CVTMFRTR 01043000 CVTMFCTL EQU CVTS01+448 01044000 CVTPVBP EQU CVTS01+444 01045000 CVTPWI EQU CVTS01+440 01046000 CVTRV254 EQU CVTS01+438 01047000 CVTRV253 EQU CVTS01+436 01048000 CVTRV252 EQU CVTS01+434 01049000 CVTRV251 EQU CVTS01+433 01050000 CVTRV250 EQU CVTS01+432 01051000 CVTRV249 EQU CVTS01+431 01052000 CVTRV248 EQU CVTS01+430 01053000 CVTRV247 EQU CVTS01+429 01054000 CVTRV246 EQU CVTS01+428 01055000 CVTRV245 EQU CVTRV237 01056000 CVTRV244 EQU CVTRV237 01057000 CVTRV243 EQU CVTRV237 01058000 CVTRV242 EQU CVTRV237 01059000 CVTRV241 EQU CVTRV237 01060000 CVTRV240 EQU CVTRV237 01061000 CVTRV239 EQU CVTRV237 01062000 CVTRV238 EQU CVTRV237 01063000 CVTRV236 EQU CVTRV228 01064000 CVTRV235 EQU CVTRV228 01065000 CVTRV234 EQU CVTRV228 01066000 CVTRV233 EQU CVTRV228 01067000 CVTRV232 EQU CVTRV228 01068000 CVTRV231 EQU CVTRV228 01069000 CVTRV230 EQU CVTRV228 01070000 CVTRV229 EQU CVTRV228 01071000 CVTRV227 EQU CVTRV219 01072000 CVTRV226 EQU CVTRV219 01073000 CVTRV225 EQU CVTRV219 01074000 CVTRV224 EQU CVTRV219 01075000 CVTRV223 EQU CVTRV219 01076000 CVTRV222 EQU CVTRV219 01077000 CVTRV221 EQU CVTRV219 01078000 CVTRV220 EQU CVTRV219 01079000 CVTRV218 EQU CVTRV210 01080000 CVTRV217 EQU CVTRV210 01081000 CVTRV216 EQU CVTRV210 01082000 CVTRV215 EQU CVTRV210 01083000 CVTRV214 EQU CVTRV210 01084000 CVTRV213 EQU CVTRV210 01085000 CVTRV212 EQU CVTRV210 01086000 CVTRV211 EQU CVTRV210 01087000 CVTLCCAT EQU CVTS01+420 01088000 CVTPCCAT EQU CVTS01+416 01089000 CVTIPCRP EQU CVTS01+412 01090000 CVTIPCRI EQU CVTS01+408 01091000 CVTIPCDS EQU CVTS01+404 01092000 CVTAIDVT EQU CVTS01+400 01093000 CVTSSAP EQU CVTS01+396 01094000 CVTEHCIR EQU CVTS01+392 01095000 CVTEHDEF EQU CVTS01+388 01096000 CVTDAIR EQU CVTS01+384 01097000 CVTPERFM EQU CVTS01+380 01098000 CVT044R2 EQU CVTS01+376 01099000 CVTFETCH EQU CVTS01+372 01100000 CVTRSTWD EQU CVTS01+368 01101000 CVTSPOST EQU CVTS01+364 01102000 CVTIOBP EQU CVTS01+360 01103000 CVTRECRQ EQU CVTS01+352 01104000 CVTWSAC EQU CVTS01+348 01105000 CVTRV149 EQU CVTS01+344 01106000 CVTWSAL EQU CVTS01+340 01107000 CVTSPSA EQU CVTS01+336 01108000 CVTGLMN EQU CVTS01+332 01109000 CVT062R1 EQU CVTS01+324 01110000 CVTRPOST EQU CVTS01+320 01111000 CVTDQIQE EQU CVTS01+316 01112000 CVTCSD EQU CVTS01+312 01113000 CVTLKRMA EQU CVTS01+308 01114000 CVTRSPIE EQU CVTS01+304 01115000 CVTRENQ EQU CVTS01+300 01116000 CVTLQCB EQU CVTS01+296 01117000 CVTFQCB EQU CVTS01+292 01118000 CVTQCS01 EQU CVTS01+288 01119000 CVTAPFT EQU CVTS01+284 01120000 CVTPARRL EQU CVTS01+280 01121000 CVTVWAIT EQU CVTS01+276 01122000 CVTGSPL EQU CVTS01+272 01123000 CVTLSMQ EQU CVTS01+268 01124000 CVTGSMQ EQU CVTS01+264 01125000 CVTEXPRO EQU CVTS01+260 01126000 CVTOPCTP EQU CVTS01+256 01127000 CVTSIC EQU CVTS01+252 01128000 CVTTPIOS EQU CVTS01+248 01129000 CVTRTMS EQU CVTS01+244 01130000 CVTSDBF EQU CVTS01+240 01131000 CVTSCBP EQU CVTS01+236 01132000 CVTSDMP EQU CVTS01+232 01133000 CVTSV60 EQU CVTS01+228 01134000 CVTRTMCT EQU CVTS01+224 01135000 CVTASCBL EQU CVTS01+220 01136000 CVTASCBH EQU CVTS01+216 01137000 CVTGDA EQU CVTS01+212 01138000 CVTASVT EQU CVTS01+208 01139000 CVTVVMDI EQU CVTS01+204 01140000 CVTAQTOP EQU CVTS01+200 01141000 CVTIOSCS EQU CVTS01+196 01142000 CVTSDRM EQU CVTS01+192 01143000 CVTOPTE EQU CVTS01+188 01144000 CVTSTXU EQU CVTS01+184 01145000 CVTQUIS EQU CVTS01+180 01146000 CVTPARS EQU CVTS01+176 01147000 CVTS1EE EQU CVTS01+172 01148000 CVTFRAS EQU CVTS01+168 01149000 CVTQSAS EQU CVTS01+164 01150000 CVTCRAS EQU CVTS01+160 01151000 CVTCRMN EQU CVTS01+156 01152000 CVTDELCP EQU CVTS01+152 01153000 CVTFRECL EQU CVTS01+148 01154000 CVTGETCL EQU CVTS01+144 01155000 CVTBLDCP EQU CVTS01+140 01156000 CVTAUTHL EQU CVTS01+136 01157000 CVTSCAN EQU CVTS01+132 01158000 CVTRV144 EQU CVTS01+130 01159000 CVTMAXMP EQU CVTS01+128 01160000 CVTSTCK EQU CVTS01+124 01161000 CVTRV139 EQU CVTS01+123 01162000 CVTDSSAC EQU CVTS01+122 01163000 CVTRV513 EQU CVTS01+121 01164000 CVTIOSPL EQU CVTS01+120 01165000 CVTPTGT EQU CVTS01+116 01166000 CVTCSPIE EQU CVTS01+112 01167000 CVTSMFEX EQU CVTS01+108 01168000 CVTOLT0A EQU CVTS01+104 01169000 CVTPUTL EQU CVTS01+96 01170000 CVTASCRL EQU CVTS01+92 01171000 CVTASCRF EQU CVTS01+88 01172000 CVTRV326 EQU CVTS01+84 01173000 CVTRV325 EQU CVTS01+80 01174000 CVTRV324 EQU CVTS01+76 01175000 CVT0VL01 EQU CVTS01+72 01176000 CVTSHRVM EQU CVTS01+68 01177000 CVTRV332 EQU CVTS01+64 01178000 CVTTAS EQU CVTS01+60 01179000 CVTRSCN EQU CVTS01+56 01180000 CVTTRAC2 EQU CVTS01+54 01181000 CVTTRACE EQU CVTS01+52 01182000 CVTAPG EQU CVTS01+51 01183000 CVTSDTRC EQU CVTCTLFG 01184000 CVTGTRCE EQU CVTCTLFG 01185000 CVTNOMP EQU CVTCTLFG 01186000 CVTRSV79 EQU CVTCTLFG 01187000 CVTDSTAT EQU CVTCTLFG 01188000 CVTRSV78 EQU CVTCTLFG 01189000 CVTRV333 EQU CVTCTLFG 01190000 CVTRV323 EQU CVTCTLFG 01191000 CVTSPVLK EQU CVTS01+49 01192000 CVTRSV77 EQU CVTS01+48 01193000 CVTRV331 EQU CVTS01+44 01194000 CVTRV330 EQU CVTS01+40 01195000 CVTRV329 EQU CVTS01+36 01196000 CVTRV328 EQU CVTS01+32 01197000 CVTRV322 EQU CVTS01+28 01198000 CVTSLID EQU CVTSLIDA+1 01199000 CVTSYLK EQU CVTSLIDA 01200000 CVTRV321 EQU CVTS01+20 01201000 CVTRV320 EQU CVTS01+16 01202000 CVTLPDIR EQU CVTLPDIA+1 01203000 CVTRSV69 EQU CVTDIRST 01204000 CVTRSV68 EQU CVTDIRST 01205000 CVTRSV67 EQU CVTDIRST 01206000 CVTRSV66 EQU CVTDIRST 01207000 CVTRSV65 EQU CVTDIRST 01208000 CVTRSV64 EQU CVTDIRST 01209000 CVTRSV63 EQU CVTDIRST 01210000 CVTDICOM EQU CVTDIRST 01211000 CVTLPDSR EQU CVTS01+4 01212000 CVTGETL EQU CVTS01 01213000 AIADPXCT EQU AIALGE 01214000 AIACEPTR EQU AIALPMEP 01215000 AIASLOT EQU AIASSID+1 01216000 @NM00002 EQU AIASSID 01217000 @NM00001 EQU AIALSID 01218000 AIARCSN EQU AIANXAIA+2 01219000 AIACYL EQU AIANXAIA 01220000 AIARSV9 EQU AIAFLG3 01221000 AIARSV8 EQU AIAFLG3 01222000 AIARSV7 EQU AIAFLG3 01223000 AIALPMEC EQU AIAFLG3 01224000 AIARSV6 EQU AIAFLG3 01225000 AIATRPSP EQU AIAFLG3 01226000 AIAPRINO EQU AIAFLG3 01227000 AIARSV5 EQU AIAFLG3 01228000 AIABADID EQU AIAFLG2 01229000 AIAERROR EQU AIAFLG2 01230000 AIASECER EQU AIAFLG2 01231000 AIAPRIER EQU AIAFLG2 01232000 AIARSV4 EQU AIAFLG2 01233000 AIAIORTY EQU AIAFLG2 01234000 AIATERMR EQU AIAFLG2 01235000 AIAFRAUX EQU AIAFLG2 01236000 AIARSV1 EQU AIAFLG1 01237000 AIASWPFX EQU AIAFLG1 01238000 AIAPAGDS EQU AIAFLG1 01239000 AIADUPLX EQU AIAFLG1 01240000 AIAVIO EQU AIAFLG1 01241000 AIAPRIV EQU AIAFLG1 01242000 AIAWRITE EQU AIAFLG1 01243000 AIAOP EQU AIA+8 01244000 AIABQPA EQU AIA+4 01245000 AIAFQPA EQU AIA 01246000 PIOISRB EQU SOUTPARM+20 01247000 QINDEX EQU SOUTWRKA 01248000 SRMPARMS EQU SOUTPARM+8 01249000 NLSQAPCB EQU SOUTPARM+5 01250000 @NM00045 EQU SOUTFLGS 01251000 FWRDPTR EQU SOUTPARM 01252000 WSALEVNT EQU WSAL+48 01253000 WSALSTAE EQU WSAL+44 01254000 WSALSTAT EQU WSAL+40 01255000 WSALWAIT EQU WSAL+36 01256000 WSALPOST EQU WSAL+32 01257000 WSALEXIT EQU WSAL+28 01258000 WSALS2EE EQU WSAL+24 01259000 WSALCIRB EQU WSAL+20 01260000 WSALABTM EQU WSAL+16 01261000 WSALSDMP EQU WSAL+12 01262000 WSALRTM2 EQU WSAL+8 01263000 WSALVALC EQU WSAL+4 01264000 WSALCWSA EQU WSAL 01265000 @NM00044 EQU SRB+40 01266000 @NM00043 EQU SRB+38 01267000 SRBPRIOR EQU SRB+37 01268000 SRBPKF EQU SRB+36 01269000 SRBSAVE EQU SRB+32 01270000 SRBPARM EQU SRB+28 01271000 SRBRMTR EQU SRB+24 01272000 SRBEP EQU SRB+20 01273000 SRBPTCB EQU SRBFLC+4 01274000 SRBPASID EQU SRBFLC+2 01275000 SRBCPAFF EQU SRBFLC 01276000 SRBFLNK EQU SRB+4 01277000 SRBID EQU SRB 01278000 RCARES9 EQU RCA+19 01279000 @NM00042 EQU RCA+18 01280000 RCANAME7 EQU RCANAMES+6 01281000 RCAREP1 EQU RCANAME6 01282000 RCAPSIF EQU RCANAME6 01283000 RCAPSIX EQU RCANAME6 01284000 RCAVEQRP EQU RCANAME6 01285000 RCARCFC EQU RCANAME6 01286000 RCACSGB EQU RCANAME6 01287000 RCAFXL EQU RCANAME6 01288000 RCAPS113 EQU RCANAME6 01289000 RCAFREE EQU RCANAME5 01290000 RCARFR2 EQU RCANAME5 01291000 RCACPBR EQU RCANAME5 01292000 RCAOPBR EQU RCANAME5 01293000 RCASORT EQU RCANAME5 01294000 RCASIRT EQU RCANAME5 01295000 RCARELV EQU RCANAME5 01296000 RCARELF EQU RCANAME5 01297000 RCAGFAD EQU RCANAME4 01298000 RCAVEQRI EQU RCANAME4 01299000 RCAVEQRF EQU RCANAME4 01300000 RCAVEQRC EQU RCANAME4 01301000 RCATERM EQU RCANAME4 01302000 RCASQA EQU RCANAME4 01303000 RCASWIN EQU RCANAME4 01304000 RCASOUT EQU RCANAME4 01305000 RCARFR EQU RCANAME3 01306000 RCARELS EQU RCANAME3 01307000 RCARCFI EQU RCANAME3 01308000 RCARCF EQU RCANAME3 01309000 RCAPSII EQU RCANAME3 01310000 RCAPSIB EQU RCANAME3 01311000 RCAPS112 EQU RCANAME3 01312000 RCAPIX EQU RCANAME3 01313000 RCAPIOP EQU RCANAME2 01314000 RCASWPC EQU RCANAME2 01315000 RCASWPP EQU RCANAME2 01316000 RCAPFTE EQU RCANAME2 01317000 RCAPCB EQU RCANAME2 01318000 RCAOUT EQU RCANAME2 01319000 RCAITAS EQU RCANAME2 01320000 RCAIOCP EQU RCANAME2 01321000 RCAINV EQU RCANAME1 01322000 RCAGFA EQU RCANAME1 01323000 RCAFXLD EQU RCANAME1 01324000 RCAVEQR EQU RCANAME1 01325000 RCADSEG EQU RCANAME1 01326000 RCADLAS EQU RCANAME1 01327000 RCACSEG EQU RCANAME1 01328000 RCAVAMSI EQU RCANAME1 01329000 @NM00041 EQU RCAFLAGS 01330000 RCAQS EQU RCAFLAGS 01331000 RCAPSIER EQU RCAFLAGS 01332000 RCAABEND EQU RCAFLAGS 01333000 RCARES7 EQU RCA+8 01334000 PVTEND EQU PVT+1840 01335000 PVTSPARE EQU PVT+1838 01336000 PVTCHUIC EQU PVT+1836 01337000 PVTCOMFX EQU PVT+1834 01338000 PVTSQAFX EQU PVT+1832 01339000 PVTCNTFX EQU PVT+1830 01340000 PVTDEFFX EQU PVT+1828 01341000 PVTFIXOK EQU PVT+1826 01342000 PVTPEROK EQU PVT+1824 01343000 PVTMAXFX EQU PVT+1822 01344000 PVTPERFX EQU PVT+1820 01345000 PVTRSRB EQU PVT+1776 01346000 PVTRESV5 EQU PVT+1773 01347000 PVTSRBS EQU PVT+1772 01348000 PVTSSRB EQU PVT+1768 01349000 PVTACA EQU PVTWSAX+1400 01350000 PVTSAVE EQU PVTWSAX+1328 01351000 PVTWSA18 EQU PVTWSAX+1256 01352000 PVTWSA17 EQU PVTWSAX+1184 01353000 PVTWSA16 EQU PVTWSAX+1112 01354000 PVTWSA15 EQU PVTWSAX+1040 01355000 PVTWSA14 EQU PVTWSAX+968 01356000 PVTWSA13 EQU PVTWSAX+896 01357000 PVTWSA12 EQU PVTWSAX+824 01358000 PVTWSA11 EQU PVTWSAX+752 01359000 PVTWSA10 EQU PVTWSAX+672 01360000 PVTWSA9 EQU PVTWSAX+592 01361000 PVTWSA8 EQU PVTWSAX+504 01362000 PVTWSA7 EQU PVTWSAX+432 01363000 PVTWSA6 EQU PVTWSAX+360 01364000 PVTWSA5 EQU PVTWSAX+288 01365000 PVTWSA4 EQU PVTWSAX+216 01366000 PVTWSA3 EQU PVTWSAX+144 01367000 PVTWSA2 EQU PVTWSAX+72 01368000 PVTWSA1 EQU PVTWSAX 01369000 PVTCIOQL EQU PVTQS+36 01370000 PVTCIOQF EQU PVTQS+32 01371000 PVTGFADL EQU PVTQS+28 01372000 PVTGFADF EQU PVTQS+24 01373000 PVTFPCBL EQU PVTQS+20 01374000 PVTFPCBF EQU PVTQS+16 01375000 PVTSQAQL EQU PVTQS+14 01376000 PVTSQAQF EQU PVTQS+12 01377000 PVTCFQL EQU PVTQS+10 01378000 PVTCFQF EQU PVTQS+8 01379000 PVTRSRVL EQU PVTQS+6 01380000 PVTRSRVF EQU PVTQS+4 01381000 PVTAFQL EQU PVTQS+2 01382000 PVTAFQF EQU PVTQS 01383000 PVTSPFR EQU PVT+302 01384000 PVTCFMCT EQU PVT+300 01385000 PVTSPREC EQU PVT+296 01386000 PVTCAREC EQU PVT+292 01387000 PVTCAOUT EQU PVT+288 01388000 PVTCAIN EQU PVT+284 01389000 PVTNSWPS EQU PVT+280 01390000 PVTNPREC EQU PVT+276 01391000 PVTSPOUT EQU PVT+272 01392000 PVTSPIN EQU PVT+268 01393000 PVTVAMR EQU PVT+264 01394000 PVTVAMO EQU PVT+260 01395000 PVTVAMI EQU PVT+256 01396000 PVTNPOUT EQU PVT+252 01397000 PVTNPIN EQU PVT+248 01398000 PVTPRSET EQU PVT+244 01399000 PVTFRSLT EQU PVT+240 01400000 PVTPAGIO EQU PVT+236 01401000 PVTPSWPP EQU PVT+228 01402000 PVTPPREF EQU PVT+224 01403000 PVTPOPBR EQU PVT+220 01404000 PVTPRELF EQU PVT+216 01405000 PVTPRELV EQU PVT+212 01406000 PVTPFREE EQU PVT+208 01407000 PVTPRELS EQU PVT+204 01408000 PVTPOUT EQU PVT+200 01409000 PVTPFXLD EQU PVT+196 01410000 PVTPITAS EQU PVT+192 01411000 PVTPSRBP EQU PVT+188 01412000 PVTPDSEG EQU PVT+184 01413000 PVTPCSGB EQU PVT+180 01414000 PVTPCSEG EQU PVT+176 01415000 PVTPSOUT EQU PVT+164 01416000 PVTPSWIN EQU PVT+160 01417000 PVTPRCFI EQU PVT+152 01418000 PVTPRCF EQU PVT+148 01419000 PVTPVRC EQU PVT+144 01420000 PVTPVRIN EQU PVT+140 01421000 PVTPVRLS EQU PVT+136 01422000 PVTPVEQR EQU PVT+132 01423000 PVTPPIOI EQU PVT+128 01424000 PVTPVRPO EQU PVT+124 01425000 PVTPRFR EQU PVT+120 01426000 PVTPFP2 EQU PVT+116 01427000 PVTPFP EQU PVT+112 01428000 PVTREP2 EQU PVT+100 01429000 PVTPIOCP EQU PVT+96 01430000 PVTPIOP EQU PVT+92 01431000 PVTPGFAD EQU PVT+88 01432000 PVTPGFA EQU PVT+84 01433000 PVTPSQA EQU PVT+80 01434000 PVTPSINT EQU PVT+76 01435000 PVTPSIB EQU PVT+72 01436000 PVTSRBID EQU PVT+68 01437000 PVTPCIWA EQU PVT+64 01438000 PVTHQSA EQU PVT+62 01439000 PVTLQSA EQU PVT+60 01440000 PVTOROOT EQU PVT+56 01441000 PVTREUS EQU PVT+48 01442000 PVTRESV4 EQU PVT+46 01443000 PVTRSUS EQU PVT+44 01444000 PVTVROOT EQU PVT+40 01445000 PVTPCBLO EQU PVT+38 01446000 PVTPCBCT EQU PVT+36 01447000 PVTDFRS EQU PVT+34 01448000 PVTRSQA EQU PVT+32 01449000 PVTPTLB EQU PVT+31 01450000 PVTPCBNO EQU PVT+30 01451000 PVTSRBNO EQU PVT+29 01452000 PVTSQDC EQU PVT+28 01453000 PVTLCSA EQU PVT+26 01454000 PVTLPRIV EQU PVT+24 01455000 PVTLVR EQU PVT+22 01456000 PVTFVR EQU PVT+20 01457000 PVTLPFN EQU PVT+18 01458000 PVTFPFN EQU PVT+16 01459000 PVTSSPIN EQU PVT+11 01460000 PVTPCBS EQU PVT+10 01461000 PVTPOOL EQU PVT+8 01462000 PVTAFCOK EQU PVT+6 01463000 PVTAFCLO EQU PVT+4 01464000 PVTAFC EQU PVT+2 01465000 PVTFLAG2 EQU PVT+1 01466000 PVTDUMP EQU PVTFLAG1 01467000 PVTSIT EQU PVTFLAG1 01468000 PVTLSI EQU PVTFLAG1 01469000 PVTRESV1 EQU PVTFLAG1 01470000 PVTPCBLT EQU PVTFLAG1 01471000 PVTSRBIU EQU PVTFLAG1 01472000 PVTBGMS EQU PVTFLAG1 01473000 PVTPMSG EQU PVTFLAG1 01474000 PCBRWRKB EQU PCBR+60 01475000 PCBRWRKA EQU PCBR+56 01476000 PCBRWRK9 EQU PCBR+52 01477000 PCBRWRK8 EQU PCBR+48 01478000 PCBRWRK7 EQU PCBR+44 01479000 PCBRWRK6 EQU PCBR+40 01480000 PCBRWRK5 EQU PCBR+36 01481000 PCBRWRK4 EQU PCBR+32 01482000 PCBRWRK3 EQU PCBR+28 01483000 PCBRWRK2 EQU PCBR+24 01484000 PCBRWRK1 EQU PCBR+20 01485000 PCBRRSV1 EQU PCBR+18 01486000 PCBRCNT EQU PCBR+16 01487000 PCBRASCB EQU PCBR+12 01488000 PCBRECB EQU PCBR+8 01489000 PCBRGOTO EQU PCBR+4 01490000 PCBRTCBA EQU PCBRTCB+1 01491000 PCBRPOF EQU PCBRFLAG 01492000 PCBRFECB EQU PCBRFLAG 01493000 PCBRLOAD EQU PCBRFLAG 01494000 PCBRFAIL EQU PCBRFLAG 01495000 PCBRFPCB EQU PCBRFLAG 01496000 PCBRPB EQU PCBRFLAG 01497000 PCBRETRY EQU PCBRFLAG 01498000 PCBRINT EQU PCBRFLAG 01499000 PFTUIC EQU PFTE+15 01500000 PFTQNDX EQU PFTE+14 01501000 @NM00016 EQU PFTFLAG2 01502000 @NM00015 EQU PFTFLAG2 01503000 PFTPREF EQU PFTFLAG2 01504000 PFTSTEAL EQU PFTFLAG2 01505000 PFTIRRG EQU PFTFLAG2 01506000 PFTVR EQU PFTFLAG2 01507000 PFTOFFLN EQU PFTFLAG2 01508000 PFTDFRLS EQU PFTFLAG2 01509000 PFTOFINT EQU PFTFLAG1 01510000 PFTVRALC EQU PFTFLAG1 01511000 PFTBADPG EQU PFTFLAG1 01512000 PFTLNGFX EQU PFTFLAG1 01513000 PFTLSQA EQU PFTFLAG1 01514000 PFTVRINT EQU PFTFLAG1 01515000 PFTONAVQ EQU PFTFLAG1 01516000 PFTRSV1 EQU PFTE+10 01517000 PFTFXCT EQU PFTE+8 01518000 PFTBQPTR EQU PFTQPTRS+2 01519000 PFTFQPTR EQU PFTQPTRS 01520000 PFTVBN EQU PFTPGID+2 01521000 PFTASID EQU PFTPGID 01522000 PCBEND EQU PCB+64 01523000 PCBSPCTE EQU PCBRB 01524000 PCBVBN EQU PCB+26 01525000 PCBPGTA EQU PCBPGT+1 01526000 PCBSWPS2 EQU PCBFL3 01527000 @NM00014 EQU PCBFL3 01528000 PCBNOREC EQU PCBFL3 01529000 PCBDFRLS EQU PCBFL3 01530000 PCBSWPLS EQU PCBFL3 01531000 PCBSWPS1 EQU PCBFL3 01532000 PCBSWPIN EQU PCBFL3 01533000 PCBSWPOT EQU PCBFL3 01534000 PCBXPTA EQU PCBXPT+1 01535000 @NM00013 EQU PCBFL2 01536000 @NM00012 EQU PCBFL2 01537000 PCBVIO EQU PCBFL2 01538000 PCBSUPRS EQU PCBFL2 01539000 PCBRESET EQU PCBFL2 01540000 PCBIOERR EQU PCBFL2 01541000 PCBGFAD EQU PCBFL2 01542000 PCBFREAL EQU PCBFL2 01543000 PCBRLPA EQU PCBRLP+1 01544000 PCBFXC EQU PCBRLP 01545000 PCBIOCMP EQU PCBFL1 01546000 PCBIOI EQU PCBFL1 01547000 PCBROOT EQU PCBFL1 01548000 PCBLFR EQU PCBFL1 01549000 PCBLLHLD EQU PCBFL1 01550000 PCBSRBMD EQU PCBFL1 01551000 PCBPEX EQU PCBFL1 01552000 @NM00011 EQU PCBFL1 01553000 PCBBQPA EQU PCBBQP 01554000 PCBCQN EQU PCBFQP 01555000 @NM00010 EQU FRRSFLGS+1 01556000 @NM00009 EQU FRRSFLG1 01557000 FRRSNEST EQU FRRSFLG1 01558000 FRRSRCUR EQU FRRSFLG1 01559000 FRRSENTS EQU FRRS+84 01560000 FRRSRTMW EQU FRRS+16 01561000 CVTLEVL EQU CVTRELNO+2 01562000 CVTNUMB EQU CVTRELNO 01563000 CVTMDL EQU CVTFIX+250 01564000 @NM00008 EQU CVTFIX+248 01565000 @NM00007 EQU CVTFIX 01566000 CVTRV482 EQU CVTXTNT2+128 01567000 CVTRV481 EQU CVTXTNT2+124 01568000 CVTRV480 EQU CVTXTNT2+120 01569000 CVTRV479 EQU CVTXTNT2+118 01570000 CVTRV478 EQU CVTXTNT2+117 01571000 CVTRV477 EQU CVTXTNT2+116 01572000 CVTRV476 EQU CVTXTNT2+115 01573000 CVTRV475 EQU CVTXTNT2+114 01574000 CVTRV474 EQU CVTRV466 01575000 CVTRV473 EQU CVTRV466 01576000 CVTRV472 EQU CVTRV466 01577000 CVTRV471 EQU CVTRV466 01578000 CVTRV470 EQU CVTRV466 01579000 CVTRV469 EQU CVTRV466 01580000 CVTRV468 EQU CVTRV466 01581000 CVTRV467 EQU CVTRV466 01582000 CVTRV465 EQU CVTRV457 01583000 CVTRV464 EQU CVTRV457 01584000 CVTRV463 EQU CVTRV457 01585000 CVTRV462 EQU CVTRV457 01586000 CVTRV461 EQU CVTRV457 01587000 CVTRV460 EQU CVTRV457 01588000 CVTRV459 EQU CVTRV457 01589000 CVTRV458 EQU CVTRV457 01590000 CVTRV456 EQU CVTXTNT2+108 01591000 CVTRV455 EQU CVTXTNT2+104 01592000 CVTRV454 EQU CVTXTNT2+100 01593000 CVTRV453 EQU CVTXTNT2+96 01594000 CVTRV452 EQU CVTXTNT2+94 01595000 CVTRV451 EQU CVTXTNT2+92 01596000 CVTRV450 EQU CVTXTNT2+90 01597000 CVTRV449 EQU CVTXTNT2+88 01598000 CVTRV448 EQU CVTXTNT2+87 01599000 CVTRV447 EQU CVTXTNT2+86 01600000 CVTRV446 EQU CVTRV438 01601000 CVTRV445 EQU CVTRV438 01602000 CVTRV444 EQU CVTRV438 01603000 CVTRV443 EQU CVTRV438 01604000 CVTRV442 EQU CVTRV438 01605000 CVTRV441 EQU CVTRV438 01606000 CVTRV440 EQU CVTRV438 01607000 CVTRV439 EQU CVTRV438 01608000 CVTRV437 EQU CVTRV429 01609000 CVTRV436 EQU CVTRV429 01610000 CVTRV435 EQU CVTRV429 01611000 CVTRV434 EQU CVTRV429 01612000 CVTRV433 EQU CVTRV429 01613000 CVTRV432 EQU CVTRV429 01614000 CVTRV431 EQU CVTRV429 01615000 CVTRV430 EQU CVTRV429 01616000 CVTRV428 EQU CVTXTNT2+80 01617000 CVTRV427 EQU CVTXTNT2+76 01618000 CVTRV426 EQU CVTXTNT2+72 01619000 CVTRV425 EQU CVTXTNT2+68 01620000 CVTATACT EQU CVTATCVT 01621000 CVTRV423 EQU CVTXTNT2+62 01622000 CVTRV422 EQU CVTXTNT2+60 01623000 CVTRV421 EQU CVTXTNT2+58 01624000 CVTRV420 EQU CVTXTNT2+56 01625000 CVTRV419 EQU CVTXTNT2+55 01626000 CVTRV418 EQU CVTXTNT2+54 01627000 CVTRV417 EQU CVTRV409 01628000 CVTRV416 EQU CVTRV409 01629000 CVTRV415 EQU CVTRV409 01630000 CVTRV414 EQU CVTRV409 01631000 CVTRV413 EQU CVTRV409 01632000 CVTRV412 EQU CVTRV409 01633000 CVTRV411 EQU CVTRV409 01634000 CVTRV410 EQU CVTRV409 01635000 CVTRV408 EQU CVTRV400 01636000 CVTRV407 EQU CVTRV400 01637000 CVTRV406 EQU CVTRV400 01638000 CVTRV405 EQU CVTRV400 01639000 CVTRV404 EQU CVTRV400 01640000 CVTRV403 EQU CVTRV400 01641000 CVTRV402 EQU CVTRV400 01642000 CVTRV401 EQU CVTRV400 01643000 CVTICB EQU CVTXTNT2+48 01644000 CVTSKTA EQU CVTXTNT2+44 01645000 CVTRSV99 EQU CVTXTNT2+40 01646000 CVTRSV98 EQU CVTXTNT2+36 01647000 CVTRSV97 EQU CVTXTNT2+34 01648000 CVTRSV96 EQU CVTXTNT2+32 01649000 CVTOLTEP EQU CVTXTNT2+28 01650000 CVTQIDA EQU CVTQID+1 01651000 CVTRSV95 EQU CVTQID 01652000 CVTRSV94 EQU CVTXTNT2+20 01653000 CVTRSV93 EQU CVTXTNT2+16 01654000 CVTRSV92 EQU CVTXTNT2+12 01655000 CVTDEBVR EQU CVTXTNT2+8 01656000 CVTRSV91 EQU CVTXTNT2+6 01657000 CVTRSV9H EQU CVTFLGBT 01658000 CVTRSV9G EQU CVTFLGBT 01659000 CVTRSV9F EQU CVTFLGBT 01660000 CVTRSV9E EQU CVTFLGBT 01661000 CVTRSV9D EQU CVTFLGBT 01662000 CVTRSV9C EQU CVTFLGBT 01663000 CVTVME EQU CVTFLGBT 01664000 CVTNPE EQU CVTFLGBT 01665000 CVTNUCLS EQU CVTXTNT2+4 01666000 CVTDSSVA EQU CVTDSSV+1 01667000 CVTRSV89 EQU CVTDSSV 01668000 CVTRSV88 EQU CVTXTNT1+8 01669000 CVTRSV87 EQU CVTXTNT1+4 01670000 CVTFACHN EQU CVTXTNT1 01671000 CVTRV488 EQU CVTMAP+412 01672000 CVTRV487 EQU CVTMAP+408 01673000 CVTRV486 EQU CVTMAP+404 01674000 CVTRV485 EQU CVTMAP+400 01675000 CVTACTAP EQU CVTMAP+396 01676000 CVTAUTH EQU CVTMAP+392 01677000 CVTATMCA EQU CVTATMCT+1 01678000 CVTATMST EQU CVTATMCT 01679000 CVTRSV61 EQU CVTMAP+384 01680000 CVTVOLT1 EQU CVTVOLM1+1 01681000 CVTVOLI1 EQU CVTVOLF1 01682000 CVTSTOA EQU CVTMAP+376 01683000 CVTRSV58 EQU CVTMAP+374 01684000 CVTRSV57 EQU CVTMAP+372 01685000 CVTDDCE EQU CVTMAP+368 01686000 CVTPNWFR EQU CVTMAP+364 01687000 CVTSMF EQU CVTMAP+360 01688000 CVTSULK EQU CVTMAP+358 01689000 CVTSLKO EQU CVTSYSK 01690000 CVTSLKP EQU CVTSYSK 01691000 CVTSLKQ EQU CVTSYSK 01692000 CVTSLKR EQU CVTSYSK 01693000 CVTRSV56 EQU CVTSYSK 01694000 CVTRSV55 EQU CVTSYSK 01695000 CVTRSV54 EQU CVTSYSK 01696000 CVTRSV53 EQU CVTSYSK 01697000 CVTRSV52 EQU CVTA1F1 01698000 CVTRSV51 EQU CVTA1F1 01699000 CVTRSV50 EQU CVTA1F1 01700000 CVTRSV49 EQU CVTA1F1 01701000 CVTRSV48 EQU CVTA1F1 01702000 CVTRSV47 EQU CVTA1F1 01703000 CVTSRSW EQU CVTA1F1 01704000 CVTPFSW EQU CVTA1F1 01705000 CVTPCVT EQU CVTMAP+352 01706000 CVTRSV46 EQU CVTMAP+344 01707000 CVTRSV45 EQU CVTMAP+340 01708000 CVTRSV44 EQU CVTMAP+338 01709000 CVTRSV43 EQU CVTMAP+336 01710000 CVTHJESA EQU CVTHJES+1 01711000 CVTRSV42 EQU CVTHJES 01712000 CVTEXT2A EQU CVTEXT2+1 01713000 CVTRSV41 EQU CVTEXT2 01714000 CVTAPFA EQU CVTAPF+1 01715000 CVTRSV40 EQU CVTAPF 01716000 CVTRV518 EQU CVTINTLA 01717000 CVTRV517 EQU CVTERPV 01718000 CVTEORM EQU CVTMAP+312 01719000 CVTMCHPR EQU CVTMAP+308 01720000 CVTTZ EQU CVTMAP+304 01721000 CVTJEPS EQU CVTMAP+300 01722000 CVTJESCT EQU CVTMAP+296 01723000 CVTMODE EQU CVTMAP+292 01724000 CVTPTRV EQU CVTMAP+288 01725000 CVTREAL EQU CVTMAP+284 01726000 CVTRSV39 EQU CVTMAP+280 01727000 CVTRSV38 EQU CVTMAP+276 01728000 CVTDMSRA EQU CVTDMSR+1 01729000 CVTRV634 EQU CVTDMSRF 01730000 CVTRV633 EQU CVTDMSRF 01731000 CVTRV632 EQU CVTDMSRF 01732000 CVTRV631 EQU CVTDMSRF 01733000 CVTRV630 EQU CVTDMSRF 01734000 CVTRV629 EQU CVTDMSRF 01735000 CVTUDUMP EQU CVTDMSRF 01736000 CVTSDUMP EQU CVTDMSRF 01737000 CVTQMSGA EQU CVTQMSG+1 01738000 CVTRSV36 EQU CVTQMSG 01739000 CVTAMFF EQU CVTMAP+264 01740000 CVTPURGA EQU CVTPURG+1 01741000 CVTRSV35 EQU CVTPURG 01742000 CVTCBSP EQU CVTMAP+256 01743000 CVTATERA EQU CVTATER+1 01744000 CVTSYST EQU CVTATER 01745000 CVTVOLT2 EQU CVTTAT 01746000 CVTVOLI2 EQU CVTVOLF2 01747000 CVTAQAVB EQU CVTAQAVT+1 01748000 CVTRSV34 EQU CVTTCMFG 01749000 CVTRSV33 EQU CVTTCMFG 01750000 CVTRSV32 EQU CVTTCMFG 01751000 CVTRSV31 EQU CVTTCMFG 01752000 CVTRSV30 EQU CVTTCMFG 01753000 CVTRSV29 EQU CVTTCMFG 01754000 CVTRSV28 EQU CVTTCMFG 01755000 CVTTCRDY EQU CVTTCMFG 01756000 CVTGTFA EQU CVTGTF+1 01757000 CVTRSV27 EQU CVTGTFST 01758000 CVTRNIO EQU CVTGTFST 01759000 CVTUSR EQU CVTGTFST 01760000 CVTRV318 EQU CVTFORM 01761000 CVTRV317 EQU CVTTMODE 01762000 CVTRV316 EQU CVTSTATE 01763000 CVTRV315 EQU CVTGTFS 01764000 CVTGTFAV EQU CVTGTFS 01765000 CVT0SCR1 EQU CVTMAP+232 01766000 CVTRV515 EQU CVTMAP+228 01767000 CVTRMS EQU CVTMAP+224 01768000 CVTPATCH EQU CVTMAP+220 01769000 CVTTSCE EQU CVTMAP+216 01770000 CVTLNKSC EQU CVTMAP+214 01771000 CVTQABST EQU CVTMAP+212 01772000 CVTMDLDS EQU CVTMAP+208 01773000 CVTUSER EQU CVTMAP+204 01774000 CVTABEND EQU CVTMAP+200 01775000 CVTSMCA EQU CVTMAP+196 01776000 CVTRSV18 EQU CVTMAP+192 01777000 CVTQLPAQ EQU CVTMAP+188 01778000 CVTQCDSR EQU CVTMAP+184 01779000 CVTRSV17 EQU CVTOPTB 01780000 CVTRSV16 EQU CVTOPTB 01781000 CVTFP EQU CVTOPTB 01782000 CVTAPTHR EQU CVTOPTB 01783000 CVTNLOG EQU CVTOPTB 01784000 CVTTOD EQU CVTOPTB 01785000 CVTCTIMS EQU CVTOPTB 01786000 CVTPROT EQU CVTOPTB 01787000 CVTXPFP EQU CVTOPTA 01788000 CVTASCII EQU CVTOPTA 01789000 CVTRSV13 EQU CVTOPTA 01790000 CVTRSV12 EQU CVTOPTA 01791000 CVTNIP EQU CVTOPTA 01792000 CVTDDR EQU CVTOPTA 01793000 CVTAPR EQU CVTOPTA 01794000 CVTCCH EQU CVTOPTA 01795000 CVTSNCTR EQU CVTMAP+180 01796000 CVTQMWR EQU CVTMAP+176 01797000 CVTQOCR EQU CVTMAP+172 01798000 CVT1EF00 EQU CVTMAP+168 01799000 CVTMZ00 EQU CVTMAP+164 01800000 CVTHEAD EQU CVTMAP+160 01801000 CVTRSV11 EQU CVTMAP+156 01802000 CVT0PT01 EQU CVTMAP+152 01803000 CVTMSER EQU CVTMAP+148 01804000 CVTRV516 EQU CVTIERLC 01805000 CVTILCH EQU CVTMAP+140 01806000 CVT0DS EQU CVTMAP+136 01807000 CVTFBOSV EQU CVTMAP+132 01808000 CVTNUCB EQU CVTMAP+128 01809000 CVTIXAVL EQU CVTMAP+124 01810000 CVTIOQET EQU CVTMAP+120 01811000 CVTDCBA EQU CVTMAP+117 01812000 CVTMVS2 EQU CVTDCB 01813000 CVT6DAT EQU CVTDCB 01814000 CVT4MPS EQU CVTDCB 01815000 CVTRSV09 EQU CVTDCB 01816000 CVT4MS1 EQU CVTDCB 01817000 CVT2SPS EQU CVTDCB 01818000 CVT1SSS EQU CVTDCB 01819000 CVTRSV08 EQU CVTDCB 01820000 CVTSTB EQU CVTMAP+112 01821000 CVTQTD00 EQU CVTMAP+108 01822000 CVTQTE00 EQU CVTMAP+104 01823000 CVTCUCB EQU CVTMAP+100 01824000 CVTSJQ EQU CVTMAP+96 01825000 CVTPBLDL EQU CVTMAP+92 01826000 CVTTPC EQU CVTMAP+88 01827000 CVTSVDCB EQU CVTMAP+84 01828000 CVTBRET EQU CVTMAP+82 01829000 CVTEXIT EQU CVTMAP+80 01830000 CVT0FN00 EQU CVTMAP+76 01831000 CVTDARA EQU CVTDAR+1 01832000 CVTRSV07 EQU CVTFLGS1 01833000 CVTRSV06 EQU CVTFLGS1 01834000 CVTRSV05 EQU CVTFLGS1 01835000 CVTRSV04 EQU CVTFLGS1 01836000 CVTRSV03 EQU CVTFLGS1 01837000 CVTRSV02 EQU CVTFLGS1 01838000 CVTRSV01 EQU CVTFLGS1 01839000 CVTDMPLK EQU CVTFLGS1 01840000 CVTXITP EQU CVTMAP+68 01841000 CVTZDTAB EQU CVTMAP+64 01842000 CVTMSLT EQU CVTMAP+60 01843000 CVTDATE EQU CVTMAP+56 01844000 CVTSYSAD EQU CVTMAP+48 01845000 CVTXTLER EQU CVTMAP+44 01846000 CVTILK2 EQU CVTMAP+40 01847000 CVTILK1 EQU CVTMAP+36 01848000 CVTPRLTV EQU CVTMAP+32 01849000 CVTPCNVT EQU CVTMAP+28 01850000 CVT0VL00 EQU CVTMAP+24 01851000 CVTXAPG EQU CVTMAP+20 01852000 CVTBUF EQU CVTMAP+16 01853000 CVTJOB EQU CVTMAP+12 01854000 CVTLINK EQU CVTMAP+8 01855000 CVT0EF00 EQU CVTMAP+4 01856000 CVTTCBP EQU CVTMAP 01857000 CVT EQU CVTMAP 01858000 ASXBEND EQU ASXB+232 01859000 ASXBRV25 EQU ASXB+228 01860000 ASXBRV24 EQU ASXB+224 01861000 ASXBPT0E EQU ASXB+220 01862000 ASXBCRB4 EQU ASXBCASW+3 01863000 ASXBCRB3 EQU ASXBCASW+2 01864000 ASXBCRB2 EQU ASXBCASW+1 01865000 ASXBCR06 EQU ASXBCRB1 01866000 ASXBCR05 EQU ASXBCRB1 01867000 ASXBCR04 EQU ASXBCRB1 01868000 ASXBCR03 EQU ASXBCRB1 01869000 ASXBCR02 EQU ASXBCRB1 01870000 ASXBCR01 EQU ASXBCRB1 01871000 ASXBTFD EQU ASXBCRB1 01872000 ASXBPIP EQU ASXBCRB1 01873000 ASXBCTDC EQU ASXB+212 01874000 ASXBTDCB EQU ASXB+208 01875000 ASXBRV19 EQU ASXB+204 01876000 ASXBSENV EQU ASXBSECR+1 01877000 ASXBRV34 EQU ASCBSFLG 01878000 ASXBRV33 EQU ASCBSFLG 01879000 ASXBRV32 EQU ASCBSFLG 01880000 ASXBRV31 EQU ASCBSFLG 01881000 ASXBRV30 EQU ASCBSFLG 01882000 ASXBRV29 EQU ASCBSFLG 01883000 ASXBRV28 EQU ASCBSFLG 01884000 ASXBRV27 EQU ASCBSFLG 01885000 ASXBUSER EQU ASXB+192 01886000 ASXBLSRB EQU ASXBAEQ+20 01887000 ASXBFSRB EQU ASXBAEQ+16 01888000 ASXBLRQE EQU ASXBAEQ+12 01889000 ASXBFRQE EQU ASXBAEQ+8 01890000 ASXBLIQE EQU ASXBAEQ+4 01891000 ASXBFIQE EQU ASXBAEQ 01892000 ASXBETSK EQU ASXB+164 01893000 ASXBSIRB EQU ASXB+160 01894000 ASXBPSWD EQU ASXB+152 01895000 ASXBPRG EQU ASXB+136 01896000 ASXBRV26 EQU ASXB+132 01897000 ASXBOUSB EQU ASXB+128 01898000 ASXBDDR EQU ASXB+124 01899000 ASXBRCTD EQU ASXB+120 01900000 ASXBRSMD EQU ASXB+116 01901000 ASXBFRWA EQU ASXB+108 01902000 ASXBFLSA EQU ASXB+36 01903000 ASXBIHSA EQU ASXB+32 01904000 ASXBRV15 EQU ASXB+28 01905000 ASXBRV14 EQU ASXB+24 01906000 ASXBLWA EQU ASXB+20 01907000 ASXBMPST EQU ASXB+16 01908000 ASXBRS00 EQU ASXB+14 01909000 ASXBTCBS EQU ASXB+12 01910000 ASXBLTCB EQU ASXB+8 01911000 ASXBFTCB EQU ASXB+4 01912000 ASXBASXB EQU ASXB 01913000 ASXBEGIN EQU ASXB 01914000 ASMCPRES EQU ASMCPRSQ+4 01915000 ASMCPTAK EQU ASMCPRSQ 01916000 ASMCPCNT EQU ASMCPAVQ+4 01917000 ASMCPAVL EQU ASMCPAVQ 01918000 ASMCPEXT EQU ASMPOOLS+6 01919000 ASMCPSIZ EQU ASMPOOLS+4 01920000 ASMCPID EQU ASMPOOLS 01921000 ASMRSV12 EQU ASMVT+1000 01922000 ASMSAVE EQU ASMVT+928 01923000 ASMWKSA7 EQU ASMVT+848 01924000 ASMWKSA6 EQU ASMVT+768 01925000 ASMACEPC EQU ASMVT+344 01926000 ASMSWKPC EQU ASMVT+328 01927000 ASMBWKPC EQU ASMVT+312 01928000 ASMIOEPC EQU ASMVT+296 01929000 ASMRSV10 EQU ASMVT+280 01930000 ASMPVACE EQU ASMVT+276 01931000 ASMPIOFR EQU ASMVT+272 01932000 ASMPVACQ EQU ASMVT+268 01933000 ASMPMSGS EQU ASMVT+264 01934000 ASMPMSG0 EQU ASMVT+260 01935000 ASMPFRLG EQU ASMVT+256 01936000 ASMPRLG EQU ASMVT+252 01937000 ASMPACT EQU ASMVT+248 01938000 ASMPSAV EQU ASMVT+244 01939000 ASMPCMP EQU ASMVT+240 01940000 ASMPCMPA EQU ASMVT+236 01941000 ASMPCMPN EQU ASMVT+232 01942000 ASMPCMPD EQU ASMVT+228 01943000 ASMPEX EQU ASMVT+224 01944000 ASMVRMTR EQU ASMVT+220 01945000 ASMPSRBC EQU ASMVT+216 01946000 ASMPSRMT EQU ASMVT+212 01947000 ASMPSWPD EQU ASMVT+208 01948000 ASMPTM EQU ASMVT+204 01949000 ASMPFRSW EQU ASMVT+200 01950000 ASMPFRSL EQU ASMVT+196 01951000 ASMPQIOE EQU ASMVT+192 01952000 ASMRSV8 EQU ASMVT+184 01953000 ASMTASCB EQU ASMVT+180 01954000 ASMRLGWQ EQU ASMVT+176 01955000 ASMRLGRQ EQU ASMVT+172 01956000 ASMTMECB EQU ASMVT+168 01957000 ASMTCBPT EQU ASMVT+164 01958000 ASMREQCT EQU ASMVT+160 01959000 ASMGOSWK EQU ASMGOSQS+4 01960000 ASMGOSWT EQU ASMGOSQS 01961000 ASMLSAIH EQU ASMLSAI+4 01962000 ASMLSAIL EQU ASMLSAI 01963000 ASMCINV EQU ASMVT+140 01964000 ASMSTGXA EQU ASMVT+136 01965000 ASMLGVT EQU ASMVT+132 01966000 ASMSLOTV EQU ASMVT+128 01967000 ASMERRS EQU ASMVT+124 01968000 ASMNVSC EQU ASMVT+120 01969000 ASMVSC EQU ASMVT+116 01970000 ASMSLOTS EQU ASMVT+112 01971000 ASMBKSLT EQU ASMVT+108 01972000 ASMRSV7 EQU ASMVT+92 01973000 ASMPSRB EQU ASMVT+88 01974000 ASMSRBCT EQU ASMVT+84 01975000 ASMIOCNT EQU ASMVT+80 01976000 ASMBURST EQU ASMVT+76 01977000 ASMPCCWN EQU ASMVT+72 01978000 ASMPCCWC EQU ASMPCCWQ+4 01979000 ASMPCCWA EQU ASMPCCWQ 01980000 ASMRSV6 EQU ASMVT+48 01981000 ASMIORQC EQU ASMVT+44 01982000 ASMIORQR EQU ASMVT+40 01983000 ASMSTAGL EQU ASMSTAGQ+4 01984000 ASMSTAGF EQU ASMSTAGQ 01985000 ASMRSV5 EQU ASMVT+28 01986000 ASMMSGBF EQU ASMVT+24 01987000 ASMEREC EQU ASMVT+20 01988000 ASMTRPAG EQU ASMVT+16 01989000 ASMGOS EQU ASMVT+12 01990000 ASMPART EQU ASMVT+8 01991000 ASMSART EQU ASMVT+4 01992000 ASMRSV4 EQU ASMVT+2 01993000 ASMWARM EQU ASMFLAG2 01994000 ASMQUICK EQU ASMFLAG2 01995000 ASMNOTPT EQU ASMFLAG2 01996000 ASMNOTMR EQU ASMFLAG2 01997000 ASMNOSAV EQU ASMFLAG2 01998000 ASMCALLQ EQU ASMFLAG2 01999000 ASMPLPAS EQU ASMFLAG1 02000000 ASMCOMMF EQU ASMFLAG1 02001000 ASMPLPAF EQU ASMFLAG1 02002000 ASMNODPX EQU ASMFLAG1 02003000 ASMRSV1 EQU ASMFLAG1 02004000 ASMNOLCL EQU ASMFLAG1 02005000 ASMNOCWQ EQU ASMFLAG1 02006000 ASMDUPLX EQU ASMFLAG1 02007000 ASCBEND EQU ASCB+208 02008000 ASCBSRBT EQU ASCB+200 02009000 ASCBSWTL EQU ASCB+196 02010000 ASCBRS14 EQU ASCB+195 02011000 ASCBSMCT EQU ASCB+194 02012000 ASCBRS12 EQU ASCB+192 02013000 ASCBPCTT EQU ASCB+188 02014000 ASCBVGTT EQU ASCB+184 02015000 ASCBRV43 EQU ASCBSRQ4 02016000 ASCBRV42 EQU ASCBSRQ4 02017000 ASCBRV41 EQU ASCBSRQ4 02018000 ASCBRV40 EQU ASCBSRQ4 02019000 ASCBRV39 EQU ASCBSRQ4 02020000 ASCBRV38 EQU ASCBSRQ4 02021000 ASCBRV37 EQU ASCBSRQ4 02022000 ASCBRV36 EQU ASCBSRQ4 02023000 ASCBRV35 EQU ASCBSRQ3 02024000 ASCBRV34 EQU ASCBSRQ3 02025000 ASCBRV33 EQU ASCBSRQ3 02026000 ASCBRV32 EQU ASCBSRQ3 02027000 ASCBRV31 EQU ASCBSRQ3 02028000 ASCBRV30 EQU ASCBSRQ3 02029000 ASCBRV29 EQU ASCBSRQ3 02030000 ASCBRV28 EQU ASCBSRQ3 02031000 ASCBRV27 EQU ASCBSRQ2 02032000 ASCBRV26 EQU ASCBSRQ2 02033000 ASCBRV25 EQU ASCBSRQ2 02034000 ASCBRV24 EQU ASCBSRQ2 02035000 ASCBRV23 EQU ASCBSRQ2 02036000 ASCBRV22 EQU ASCBSRQ2 02037000 ASCBRV21 EQU ASCBSRQ2 02038000 ASCBRV20 EQU ASCBSRQ2 02039000 ASCBRV19 EQU ASCBSRQ1 02040000 ASCBRV18 EQU ASCBSRQ1 02041000 ASCBRV17 EQU ASCBSRQ1 02042000 ASCBRV16 EQU ASCBSRQ1 02043000 ASCBRV15 EQU ASCBSRQ1 02044000 ASCBRV14 EQU ASCBSRQ1 02045000 ASCBRV13 EQU ASCBSRQ1 02046000 ASCBSTA EQU ASCBSRQ1 02047000 ASCBJBNS EQU ASCB+176 02048000 ASCBJBNI EQU ASCB+172 02049000 ASCBMCC EQU ASCB+168 02050000 ASCBRTWA EQU ASCB+164 02051000 ASCBIQEA EQU ASCB+160 02052000 ASCBXMPQ EQU ASCB+156 02053000 ASCBRS01 EQU ASCB+154 02054000 ASCBFMCT EQU ASCB+152 02055000 ASCBOUXB EQU ASCB+148 02056000 ASCBOUCB EQU ASCB+144 02057000 ASCBMECB EQU ASCB+140 02058000 ASCBQECB EQU ASCB+136 02059000 ASCBLSQH EQU ASCBLKGP+4 02060000 ASCBLOCK EQU ASCBLKGP 02061000 ASCBTCBS EQU ASCB+124 02062000 ASCBNVSC EQU ASCB+122 02063000 ASCBVSC EQU ASCB+120 02064000 ASCBSRBS EQU ASCB+118 02065000 ASCBSSRB EQU ASCB+116 02066000 ASCBRV06 EQU ASCBFLG2 02067000 ASCBRV05 EQU ASCBFLG2 02068000 ASCBRV04 EQU ASCBFLG2 02069000 ASCBSNQS EQU ASCBFLG2 02070000 ASCBS2S EQU ASCBFLG2 02071000 ASCBCEXT EQU ASCBFLG2 02072000 ASCBPXMT EQU ASCBFLG2 02073000 ASCBXMPT EQU ASCBFLG2 02074000 ASCBRF07 EQU ASCBDSP1 02075000 ASCBRF06 EQU ASCBDSP1 02076000 ASCBRF05 EQU ASCBDSP1 02077000 ASCBRF04 EQU ASCBDSP1 02078000 ASCBRF03 EQU ASCBDSP1 02079000 ASCBRF02 EQU ASCBDSP1 02080000 ASCBFAIL EQU ASCBDSP1 02081000 ASCBNOQ EQU ASCBDSP1 02082000 ASCBSWCT EQU ASCB+112 02083000 ASCBTMCH EQU ASCB+104 02084000 ASCBNSWP EQU ASCBFLG1 02085000 ASCBTYP1 EQU ASCBFLG1 02086000 ASCBSTND 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 ASCBLDA EQU ASCB+48 02109000 ASCBSTOR EQU ASCB+44 02110000 ASCBDP EQU ASCB+43 02111000 ASCBRV07 EQU ASCB+42 02112000 ASCBIOSM EQU ASCB+40 02113000 ASCBSEQN EQU ASCB+38 02114000 ASCBCPUS EQU ASCB+32 02115000 ASCBSPL EQU ASCB+28 02116000 ASCBIOSP EQU ASCB+24 02117000 ASCBSYNC EQU ASCBSUPC+4 02118000 ASCBSVRB EQU ASCBSUPC 02119000 ASCBCMSF EQU ASCB+12 02120000 ASCBBWDP EQU ASCB+8 02121000 ASCBFWDP EQU ASCB+4 02122000 ASCBEGIN EQU ASCB 02123000 @NM00040 EQU PSA+3668 02124000 PSASTAK EQU PSA+3072 02125000 @NM00039 EQU PSA+1048 02126000 PSAUSEND EQU PSA+1048 02127000 PSARV062 EQU PSA+1044 02128000 PSACDAL EQU PSA+1040 02129000 PSAWTCOD EQU PSA+1036 02130000 PSAATCVT EQU PSA+1032 02131000 PSAPCPSW EQU PSA+1024 02132000 PSAPIR2 EQU PSA+1020 02133000 PSARV059 EQU PSA+1018 02134000 PSASVC13 EQU PSA+1016 02135000 PSASFACC EQU PSA+1008 02136000 PSASTOP EQU PSA+992 02137000 PSASTART EQU PSA+976 02138000 PSARSPSW EQU PSA+968 02139000 PSASRPSW EQU PSA+960 02140000 PSARV045 EQU PSA+892 02141000 PSARV044 EQU PSA+888 02142000 PSARV043 EQU PSA+884 02143000 PSARV042 EQU PSA+880 02144000 PSARV041 EQU PSA+876 02145000 PSARV040 EQU PSA+872 02146000 PSARV025 EQU PSA+868 02147000 PSADSSED EQU PSA+868 02148000 PSADSSPR EQU PSA+864 02149000 PSADSSFW EQU PSA+860 02150000 PSADSS14 EQU PSA+856 02151000 PSADSSPP EQU PSA+848 02152000 PSADSSRP EQU PSA+840 02153000 PSADSS05 EQU PSADSSF4 02154000 PSADSS10 EQU PSADSSF4 02155000 PSADSSVE EQU PSADSSF4 02156000 PSADSSDE EQU PSADSSF4 02157000 PSADSSC0 EQU PSADSSF4 02158000 PSADSSIE EQU PSADSSF4 02159000 PSADSS12 EQU PSADSSF4 02160000 PSADSSRC EQU PSADSSF4 02161000 PSARV057 EQU PSADSSF3 02162000 PSARV056 EQU PSADSSF3 02163000 PSARV055 EQU PSADSSF3 02164000 PSADSSMC EQU PSADSSF3 02165000 PSADSSRW EQU PSADSSF3 02166000 PSADSSNM EQU PSADSSF3 02167000 PSADSSES EQU PSADSSF3 02168000 PSADSSGP EQU PSADSSF3 02169000 PSADSSF2 EQU PSADSSFL+1 02170000 PSADSSPI EQU PSADSSF1 02171000 PSADSSOI EQU PSADSSF1 02172000 PSADSSSP EQU PSADSSF1 02173000 PSADSSTP EQU PSADSSF1 02174000 PSADSSDW EQU PSADSSF1 02175000 PSADSSDD EQU PSADSSF1 02176000 PSADSSDM EQU PSADSSF1 02177000 PSADSSMV EQU PSADSSF1 02178000 PSADSSTS EQU PSA+816 02179000 PSADSSWK EQU PSA+812 02180000 PSADSSR3 EQU PSA+808 02181000 PSADSSR2 EQU PSA+804 02182000 PSADSSRS EQU PSA+800 02183000 PSASTOR EQU PSA+796 02184000 PSACPUSA EQU PSA+794 02185000 PSAVSTAP EQU PSA+792 02186000 PSAWKVAP EQU PSA+788 02187000 PSAWKRAP EQU PSA+784 02188000 PSAMCHIC EQU PSA+783 02189000 PSARV061 EQU PSA+782 02190000 PSASYMSK EQU PSA+781 02191000 PSAMCHFL EQU PSA+780 02192000 PSACR0 EQU PSA+776 02193000 PSAPSWSV EQU PSA+768 02194000 PSACLHS EQU PSAHLHI 02195000 PSALKR15 EQU PSALKSA+60 02196000 PSALKR14 EQU PSALKSA+56 02197000 PSALKR13 EQU PSALKSA+52 02198000 PSALKR12 EQU PSALKSA+48 02199000 PSALKR11 EQU PSALKSA+44 02200000 PSALKR10 EQU PSALKSA+40 02201000 PSALKR9 EQU PSALKSA+36 02202000 PSALKR8 EQU PSALKSA+32 02203000 PSALKR7 EQU PSALKSA+28 02204000 PSALKR6 EQU PSALKSA+24 02205000 PSALKR5 EQU PSALKSA+20 02206000 PSALKR4 EQU PSALKSA+16 02207000 PSALKR3 EQU PSALKSA+12 02208000 PSALKR2 EQU PSALKSA+8 02209000 PSALKR1 EQU PSALKSA+4 02210000 PSALKR0 EQU PSALKSA 02211000 PSARV023 EQU PSACLHT+52 02212000 PSALOCAL EQU PSACLHT+48 02213000 PSACMSL EQU PSACLHT+44 02214000 PSAOPTL EQU PSACLHT+40 02215000 PSATPACL EQU PSACLHT+36 02216000 PSATPDNL EQU PSACLHT+32 02217000 PSATPNCL EQU PSACLHT+28 02218000 PSAIOSLL EQU PSACLHT+24 02219000 PSAIOSUL EQU PSACLHT+20 02220000 PSAIOSCL EQU PSACLHT+16 02221000 PSAIOSSL EQU PSACLHT+12 02222000 PSASALCL EQU PSACLHT+8 02223000 PSAASML EQU PSACLHT+4 02224000 PSADISPL EQU PSACLHT 02225000 PSASRSA EQU PSA+636 02226000 PSARV050 EQU PSA+634 02227000 PSADSSGO EQU PSA+633 02228000 PSARECUR EQU PSA+632 02229000 PSAHLHIS EQU PSA+628 02230000 PSAIPCSA EQU PSA+624 02231000 @NM00038 EQU PSA+621 02232000 PSAIPCDM EQU PSA+620 02233000 PSAIPCD EQU PSA+616 02234000 @NM00037 EQU PSA+613 02235000 PSAIPCRM EQU PSA+612 02236000 PSAIPCR EQU PSA+608 02237000 PSAMCHEX EQU PSA+600 02238000 PSAMPSW EQU PSA+592 02239000 PSAEXPS2 EQU PSA+584 02240000 PSAEXPS1 EQU PSA+576 02241000 PSAPIREG EQU PSA+572 02242000 PSARSREG EQU PSA+568 02243000 PSAGPREG EQU PSA+556 02244000 PSARV022 EQU PSASUP4 02245000 PSARV021 EQU PSASUP4 02246000 PSARV020 EQU PSASUP4 02247000 PSARV019 EQU PSASUP4 02248000 PSARV018 EQU PSASUP4 02249000 PSARV017 EQU PSASUP4 02250000 PSARV016 EQU PSASUP4 02251000 PSARV015 EQU PSASUP4 02252000 PSARV014 EQU PSASUP3 02253000 PSARV013 EQU PSASUP3 02254000 PSARV012 EQU PSASUP3 02255000 PSAESTA EQU PSASUP3 02256000 PSASPR EQU PSASUP3 02257000 PSAPSREG EQU PSASUP3 02258000 PSAPI2 EQU PSASUP3 02259000 PSAIOSUP EQU PSASUP3 02260000 PSALCR EQU PSASUP2 02261000 PSARTM EQU PSASUP2 02262000 PSAACR EQU PSASUP2 02263000 PSAIPCE2 EQU PSASUP2 02264000 PSAIPCES EQU PSASUP2 02265000 PSAIPCEC EQU PSASUP2 02266000 PSAGTF EQU PSASUP2 02267000 PSAIPCRI EQU PSASUP2 02268000 PSATYPE6 EQU PSASUP1 02269000 PSATCTL EQU PSASUP1 02270000 PSADISP EQU PSASUP1 02271000 PSALOCK EQU PSASUP1 02272000 PSAPI EQU PSASUP1 02273000 PSAEXT EQU PSASUP1 02274000 PSASVC EQU PSASUP1 02275000 PSAIO EQU PSASUP1 02276000 PSAANEW EQU PSA+544 02277000 PSATOLD EQU PSA+540 02278000 PSATNEW EQU PSA+536 02279000 PSALCCAR EQU PSA+532 02280000 PSALCCAV EQU PSA+528 02281000 PSAPCCAR EQU PSA+524 02282000 PSAPCCAV EQU PSA+520 02283000 PSACPULA EQU PSA+518 02284000 PSACPUPA EQU PSA+516 02285000 PSAPSA EQU PSA+512 02286000 FLCHDEND EQU PSA+512 02287000 FLCCRSAV EQU FLCMCLA+280 02288000 FLCGRSAV EQU FLCMCLA+216 02289000 FLCFPSAV EQU FLCMCLA+184 02290000 FLCFLA EQU FLCMCLA+88 02291000 FLCRGNCD EQU FLCMCLA+84 02292000 FLCFSAA EQU FLCFSA+1 02293000 @NM00036 EQU FLCFSA 02294000 @NM00035 EQU FLCMCLA+72 02295000 FLCMCIC EQU FLCMCLA+64 02296000 @NM00034 EQU FLCMCLA+20 02297000 FLCIOAA EQU FLCIOA+1 02298000 @NM00033 EQU FLCIOA 02299000 @NM00032 EQU FLCMCLA+15 02300000 @NM00031 EQU FLCMCLA+14 02301000 @NM00030 EQU FLCMCLA+12 02302000 FLCLCL EQU FLCMCLA+8 02303000 FLCIOELA EQU FLCIOEL+1 02304000 @NM00029 EQU FLCIOEL 02305000 FLCCHNID EQU FLCMCLA 02306000 @NM00028 EQU PSA+160 02307000 FLCMTRCD EQU PSA+157 02308000 @NM00027 EQU PSA+156 02309000 FLCPERA EQU FLCPER+1 02310000 @NM00026 EQU FLCPER 02311000 @NM00025 EQU PSA+151 02312000 FLCPERCD EQU PSA+150 02313000 FLCMCNUM EQU PSA+149 02314000 @NM00024 EQU PSA+148 02315000 FLCTEAA EQU FLCTEA+1 02316000 @NM00023 EQU FLCTEA 02317000 PSAPIPC EQU PSAPICOD 02318000 PSAPIMC EQU PSAPICOD 02319000 PSAPIPER EQU PSAPICOD 02320000 PSARV049 EQU FLCPICOD 02321000 FLCPILCB EQU FLCPIILC 02322000 @NM00022 EQU FLCPIILC 02323000 @NM00021 EQU PSAEPPSW 02324000 FLCSVCN EQU PSAESPSW+2 02325000 FLCSILCB EQU FLCSVILC 02326000 @NM00020 EQU FLCSVILC 02327000 @NM00019 EQU PSAESPSW 02328000 FLCEICOD EQU PSAEEPSW+2 02329000 PSASPAD EQU PSAEEPSW 02330000 @NM00018 EQU PSA+128 02331000 FLCINPSW EQU PSA+120 02332000 FLCMNPSW EQU PSA+112 02333000 FLCPNPSW EQU PSA+104 02334000 FLCSNPSW EQU PSA+96 02335000 FLCENPSW EQU PSA+88 02336000 FLCTRACE EQU PSA+84 02337000 FLCTIMER EQU PSA+80 02338000 FLCCVT2 EQU PSA+76 02339000 FLCCAW EQU PSA+72 02340000 FLCCSW EQU PSA+64 02341000 FLCIOPSW EQU PSA+56 02342000 FLCMOPSW EQU PSA+48 02343000 FLCPOPSW EQU PSA+40 02344000 FLCSOPSW EQU PSA+32 02345000 FLCEOPSW EQU PSA+24 02346000 @NM00017 EQU FLCICCW2+4 02347000 FLCICCW1 EQU FLCROPSW 02348000 FLCIPPSW EQU FLCRNPSW 02349000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02350000 @ENDDATA EQU * 02351000 END IEAVPIOI,(C'PLS1636',0701,76086) 02352000