TITLE 'ILRVIOCM - VIO COMPLETION ROUTINE *00001000 ' 00002000 ILRVIOCM CSECT 00003000 USING *,15 00004000 MODID 00005000 DROP 15 00006000 STM 0,14,ASMWKSA6(ASMVTPTR) 00007000 BALR 10,0 00008000 USING *,10 00009000 * ATAVIOCM=ON; /* SET ENTRY INFO IN ATA */ 00010000 OI ATAVIOCM(ATAPTR),B'00010000' 0058 00011000 * AIAPTR=ATAAIA; /* GET AIA POINTER FROM ATA */ 00012000 L AIAPTR,ATAAIA(,ATAPTR) 0059 00013000 * RFY 0060 00014000 * (R11, 0060 00015000 * R12, 0060 00016000 * R13, 0060 00017000 * R14) RSTD; /* RESTRICT USE OF REGS 11-14 */ 00018000 * R11=ADDR(ASHLOCK); /* GET ADDRESS OF ASM LOCKWORD */ 00019000 LA R11,ASHLOCK(,RSMHDPTR) 0061 00020000 * GEN REFS(PSALITA,R11) SETS(R12,R13,R14); 0062 00021000 SET SETLOCK OBTAIN,TYPE=ASM,ADDR=(11),MODE=UNCOND,DISABLED, XX00022000 RELATED=RELE 00023000 * RFY 0063 00024000 * (R11, 0063 00025000 * R12, 0063 00026000 * R13, 0063 00027000 * R14) UNRSTD; /* RELEASE REGS 11-14 FOR USE */ 00028000 * ASCBPTR=RSMASCB; /* SET POINTER TO ASCB */ 00029000 L ASCBPTR,RSMASCB(,RSMHDPTR) 0064 00030000 * 0065 00031000 */********************************************************************/ 00032000 */* */ 00033000 */* SPECIAL AIA */ 00034000 */* THIS SEGMENT OF CODE IS EXECUTED WHENEVER THE AIA IS A */ 00035000 */* SPECIAL CASE CREATED BY POS WHEN TRANSFER-PAGE WAS RE- */ 00036000 */* QUESTED, AND THE SOURCE LSID HAD NOT YET BEEN DETERMINED */ 00037000 */* DUE TO A PAGE-OUT IN PROGRESS. */ 00038000 */* */ 00039000 */********************************************************************/ 00040000 * 0065 00041000 * RFY 0065 00042000 * LGEPTR RSTD; /* RESTRICT USE OF REGISTER 7 */ 00043000 * IF AIATRPSP='1'B THEN /* IF THIS AIA MARKED 'SPECIAL' */ 00044000 TM AIATRPSP(AIAPTR),B'00100000' 0066 00045000 BNO @RF00066 0066 00046000 * DO; 0067 00047000 * LGEPTR=ACELGE; /* GET POINTER TO LGE */ 00048000 L @12,ACEPTR(,AIAPTR) 0068 00049000 L LGEPTR,ACELGE(,@12) 0068 00050000 * IF(AIAERROR=OFF&AIABADID=OFF)/* AIA MARKED BAD BY POS? */ 00051000 * THEN 0069 00052000 TM AIAERROR(AIAPTR),B'00000011' 0069 00053000 BNZ @RF00069 0069 00054000 * DO; 0070 00055000 * ACESRCID=AIALSID; /* MOVE LSID FROM AIA TO ACE */ 00056000 L @00,AIALSID(,AIAPTR) 0071 00057000 ST @00,ACESRCID(,@12) 0071 00058000 * ACETRPWT=OFF; /* RESET ACE WAITING-FOR-I/O FLAG*/ 00059000 * ACEOVRID=ON; /* SET ACE OVERRIDE PROCESS-IN- 00060000 * OPERATION FLAG */ 00061000 OI ACEOVRID(@12),B'00100000' 0073 00062000 NI ACETRPWT(@12),B'10111111' 0073 00063000 * LGEWRKPD=ON; /* SET LGE WORK-PENDING FLAG */ 00064000 OI LGEWRKPD(LGEPTR),B'10000000' 0074 00065000 * END; 0075 00066000 * ELSE /* AIA MARKED BAD BY POS */ 00067000 * DO; 0076 00068000 B @RC00069 0076 00069000 @RF00069 DS 0H 0077 00070000 * LPMEPTR=ACETLPME; /* SET POINTER TO LPME */ 00071000 L @12,ACEPTR(,AIAPTR) 0077 00072000 L LPMEPTR,ACETLPME(,@12) 0077 00073000 * ATAASCB=ASCBPTR; /* SET ASCB@ IN ATA */ 00074000 ST ASCBPTR,ATAASCB(,ATAPTR) 0078 00075000 * DO; /* ILRTRAS TO(ASCBPTR) */ 00076000 * DCL 0080 00077000 * TRASASID PTR(15) DEFINED(ASCBASID); 0080 00078000 * PSALCCAV->LCCAASID=ASCBPTR->TRASASID; 0081 00079000 LH @12,TRASASID(,ASCBPTR) 0081 00080000 L @15,PSALCCAV 0081 00081000 ST @12,LCCAASID(,@15) 0081 00082000 * GEN(LCTL 1,1,ASCBSTOR(ASCBPTR)) 0082 00083000 * REFS(ASCBSTOR,ASCBPTR); 0082 00084000 LCTL 1,1,ASCBSTOR(ASCBPTR) 00085000 * END; /* ILRTRAS TO(ASCBPTR) TRANSFER 00086000 * ADDRESS SPACE */ 00087000 * ASPLOPIN=OFF; /* RESET PROCESS-IN-OPEATION FLAG*/ 00088000 NI ASPLOPIN(LPMEPTR),B'11011111' 0084 00089000 * DO; /* ILRTRAS BACK */ 00090000 * RFY 0086 00091000 * R15 RSTD; 0086 00092000 * R15=PSAAOLD; 0087 00093000 L R15,PSAAOLD 0087 00094000 * GEN(LCTL 1,1,ASCBSTOR(15)) 0088 00095000 * REFS(ASCBSTOR); 0088 00096000 LCTL 1,1,ASCBSTOR(15) 00097000 * PSALCCAV->LCCAASID=0; 0089 00098000 SLR @14,@14 0089 00099000 L @12,PSALCCAV 0089 00100000 ST @14,LCCAASID(,@12) 0089 00101000 * RFY 0090 00102000 * R15 UNRSTD; 0090 00103000 * END; /* ILRTRAS BACK TRAS BACK TO 0091 00104000 * CURRENT ADDR SPACE */ 00105000 * ATAASCB=ZERO; /* ZERO ASCB FIELD IN ATA */ 00106000 ST @14,ATAASCB(,ATAPTR) 0092 00107000 * AIAPTR=AIACEPTR; /* ACE POINTER FOR DQSUB */ 00108000 L AIAPTR,AIACEPTR(,AIAPTR) 0093 00109000 * CALL DQSUB; /* DEQUEUE THIS ACE */ 00110000 * 0094 00111000 BAL @14,DQSUB 0094 00112000 * /*********************************************************/ 00113000 * /* */ 00114000 * /* BEGIN ILRGMA MACRO EXPANSION */ 00115000 * /* */ 00116000 * /*********************************************************/ 00117000 * 0095 00118000 * DO; /* ILRGMA FREE 0095 00119000 * CELL(ACE)WORKREGS(R11,R12) */ 00120000 * DECLARE /* ASMVT VECTOR TO ILRPEX */ 00121000 * ILRPEX ENTRY BASED(ASMPEX) VALRG(0); 0096 00122000 * DECLARE /* MAP FOR CELL CONTROL WORDS */ 00123000 * 1 GMACELL BASED BDY(WORD), 0097 00124000 * 2 GMANEXT PTR(31); /* PTR NEXT FREE CELL */ 00125000 * RESPECIFY 0098 00126000 * (R0, 0098 00127000 * R1, 0098 00128000 * R11, 0098 00129000 * R12, 0098 00130000 * R14, 0098 00131000 * R15) RESTRICTED; 0098 00132000 * RESPECIFY 0099 00133000 * ASMPOOLS BASED(R11); 0099 00134000 * RESPECIFY 0100 00135000 * GMACELL BASED(R1); 0100 00136000 * R11=ADDR(ASMACEPC); 0101 00137000 LA R11,ASMACEPC(,ASMVTPTR) 0101 00138000 * LM(R14,R15,ASMCPRSQ); /* GET CONTENTS OF Q */ 00139000 LM R14,R15,ASMCPRSQ(R11) 0102 00140000 *GMA00031: 0103 00141000 * IF R14^=0 THEN /* TEST RESERVE Q */ 00142000 GMA00031 LTR R14,R14 0103 00143000 BZ @RF00103 0103 00144000 * DO; /* REPLENISH ACE RESERVE Q */ 00145000 * R0=R14-1; /* SET UP FOR COMPARE AND SWAP */ 00146000 LR R0,R14 0105 00147000 BCTR R0,0 0105 00148000 * GMANEXT=R15; /* CELL TO FREE IN R1 */ 00149000 ST R15,GMANEXT(,R1) 0106 00150000 * CDS(R14,R0,ASMCPRSQ);/* ADD CELL TO RESERVE Q */ 00151000 CDS R14,R0,ASMCPRSQ(R11) 0107 00152000 * BC(7,GMA00031); 0108 00153000 BC 7,GMA00031 0108 00154000 * END; 0109 00155000 * ELSE 0110 00156000 * DO; /* RETURN ACE TO NORMAL Q */ 00157000 B @RC00103 0110 00158000 @RF00103 DS 0H 0111 00159000 * R14=ASMCPAVL; 0111 00160000 L R14,ASMCPAVL(,R11) 0111 00161000 *GMA00032: 0112 00162000 * GMANEXT=R14; /* PUT ADDR CURRENT FIRST IN 0112 00163000 * INPUT CELL */ 00164000 GMA00032 ST R14,GMANEXT(,R1) 0112 00165000 * CS(R14,R1,ASMCPAVL);/* ADD INPUT CELL TO POOL */ 00166000 CS R14,@01,ASMCPAVL(R11) 0113 00167000 * BC(7,GMA00032); 0114 00168000 BC 7,GMA00032 0114 00169000 * END; /* ACE RETURNED TO NORMAL Q */ 00170000 * RESPECIFY 0116 00171000 * (R0, 0116 00172000 * R1, 0116 00173000 * R11, 0116 00174000 * R12, 0116 00175000 * R14, 0116 00176000 * R15) UNRESTRICTED; 0116 00177000 @RC00103 DS 0H 0117 00178000 * END; /* ILRGMA FREE 0117 00179000 * CELL(ACE)WORKREGS(R11,R12) */ 00180000 * 0117 00181000 * /*********************************************************/ 00182000 * /* */ 00183000 * /* END ILRGMA MACRO EXPANSION */ 00184000 * /* */ 00185000 * /*********************************************************/ 00186000 * 0118 00187000 * /* FREE ACE */ 00188000 * END; 0118 00189000 * END; /* END SPECIAL PROCESSING */ 00190000 * 0120 00191000 */********************************************************************/ 00192000 */* */ 00193000 */* NORMAL AIA */ 00194000 */* IF THE AIA WAS NOT MARKED SPECIAL BY POS, THEN THIS */ 00195000 */* SEGMENT OF CODE IS EXECUTED. */ 00196000 */* */ 00197000 */********************************************************************/ 00198000 * 0120 00199000 * ELSE 0120 00200000 * DO; /* NORMAL AIA */ 00201000 B @RC00066 0120 00202000 @RF00066 DS 0H 0121 00203000 * LGEPTR=AIALGE; /* GET PTR TO LGE */ 00204000 L LGEPTR,AIALGE(,AIAPTR) 0121 00205000 * IF(AIAERROR=OFF&AIABADID=OFF) THEN/* NO ERROR */ 00206000 TM AIAERROR(AIAPTR),B'00000011' 0122 00207000 BNZ @RF00122 0122 00208000 * DO; /* NORMAL AIA WITH NO ERRORS */ 00209000 * LPMEPTR=AIALPMEP; /* GET POINTER TO LPME */ 00210000 L LPMEPTR,AIALPMEP(,AIAPTR) 0124 00211000 * ATAASCB=ASCBPTR; /* SET ASCB@ IN ATA */ 00212000 ST ASCBPTR,ATAASCB(,ATAPTR) 0125 00213000 * DO; /* ILRTRAS TO(ASCBPTR) */ 00214000 * PSALCCAV->LCCAASID=ASCBPTR->TRASASID; 0127 00215000 LH @12,TRASASID(,ASCBPTR) 0127 00216000 L @15,PSALCCAV 0127 00217000 ST @12,LCCAASID(,@15) 0127 00218000 * GEN(LCTL 1,1,ASCBSTOR(ASCBPTR)) 0128 00219000 * REFS(ASCBSTOR,ASCBPTR); 0128 00220000 LCTL 1,1,ASCBSTOR(ASCBPTR) 00221000 * END; /* ILRTRAS TO(ASCBPTR) TRANSFER 00222000 * ADDRESS SPACE */ 00223000 * IF AIAWRITE=ON THEN /* DETERMINE IF PAGE-IN OR 0130 00224000 * PAGEOUT */ 00225000 TM AIAWRITE(AIAPTR),B'10000000' 0130 00226000 BNO @RF00130 0130 00227000 * DO; 0131 00228000 * ASPVLSID=AIASSID; /* FOR PAGE-OUT, MOVE LSID TO 0132 00229000 * LPME */ 00230000 MVC ASPVLSID(3,LPMEPTR),AIASSID(AIAPTR) 0132 00231000 * ASPLVALD=ON; /* SET LPME VALID FLAG */ 00232000 OI ASPLVALD(LPMEPTR),B'10000000' 0133 00233000 * END; 0134 00234000 * ELSE /* PAGE-IN (READ) */ 00235000 * IF AIAPRIER=ON /* CHECK I/O ERROR FLAG IN AIA */ 00236000 * THEN 0135 00237000 B @RC00130 0135 00238000 @RF00130 TM AIAPRIER(AIAPTR),B'00001000' 0135 00239000 BNO @RF00135 0135 00240000 * ASPLIOER=ON; /* SET I/O ERROR FLAG IN LPME */ 00241000 OI ASPLIOER(LPMEPTR),B'00010000' 0136 00242000 * ASPLOPIN=OFF; /* RESET PROCESS-IN-OPERATION 0137 00243000 * FLAG IN LPME */ 00244000 @RF00135 DS 0H 0137 00245000 @RC00130 NI ASPLOPIN(LPMEPTR),B'11011111' 0137 00246000 * DO; /* ILRTRAS BACK */ 00247000 * RFY 0139 00248000 * R15 RSTD; 0139 00249000 * R15=PSAAOLD; 0140 00250000 L R15,PSAAOLD 0140 00251000 * GEN(LCTL 1,1,ASCBSTOR(15)) 0141 00252000 * REFS(ASCBSTOR); 0141 00253000 LCTL 1,1,ASCBSTOR(15) 00254000 * PSALCCAV->LCCAASID=0; 0142 00255000 SLR @14,@14 0142 00256000 L @12,PSALCCAV 0142 00257000 ST @14,LCCAASID(,@12) 0142 00258000 * RFY 0143 00259000 * R15 UNRSTD; 0143 00260000 * END; /* ILRTRAS BACK TRAS BACK TO 0144 00261000 * CURRENT ADDR SPACE */ 00262000 * ATAASCB=ZERO; /* ZERO ASCB FIELD IN ATA */ 00263000 ST @14,ATAASCB(,ATAPTR) 0145 00264000 * END; /* END PROCESSING OF NO-ERROR AIA*/ 00265000 * CALL DQSUB; /* DEQUEUE THIS AIA */ 00266000 @RF00122 BAL @14,DQSUB 0147 00267000 * AIAPRINO=OFF; /* RESET PROCESS-IN-OPER FLAG */ 00268000 NI AIAPRINO(AIAPTR),B'10111111' 0148 00269000 * END; /* END NORMAL PROCESSING */ 00270000 * 0150 00271000 */****************************************************************** */ 00272000 */* */ 00273000 */* SCHEDULE AN SRB FOR SRB CONTROLLER (IF NOT ALREADY */ 00274000 */* SCHEDULED), AND RELEASE THE ASM LOCK. */ 00275000 */* */ 00276000 */****************************************************************** */ 00277000 * 0150 00278000 * IF LGEWRKPD=ON THEN /* CHECK FOR WORK PENDING */ 00279000 @RC00066 TM LGEWRKPD(LGEPTR),B'10000000' 0150 00280000 BNO @RF00150 0150 00281000 * IF ASHSCHED=OFF /* IF SRB NOT YET SCHEDULED, */ 00282000 * THEN /* SCHEDULE ONE FOR SRB 0151 00283000 * CONTROLLER */ 00284000 TM ASHSCHED(RSMHDPTR),B'10000000' 0151 00285000 BNZ @RF00151 0151 00286000 * DO; 0152 00287000 * R1=ASHVSRBP; 0153 00288000 L R1,ASHVSRBP(,RSMHDPTR) 0153 00289000 * GEN(SCHEDULE SRB=(1),SCOPE=GLOBAL) 0154 00290000 * REFS(ASHVSRBP,CVTPTR,CVTGSMQ,CVTMAP,SRBFLNK,SRBSECT); 0154 00291000 SCHEDULE SRB=(1),SCOPE=GLOBAL 00292000 * ASHSCHED=ON; /* SET SCHEDULED FLAG IN ASMHD */ 00293000 OI ASHSCHED(RSMHDPTR),B'10000000' 0155 00294000 * END; 0156 00295000 * RFY 0157 00296000 * LGEPTR UNRSTD; /* FREE REG 7 FOR USE */ 00297000 @RF00151 DS 0H 0157 00298000 @RF00150 DS 0H 0158 00299000 * RFY 0158 00300000 * (R11, 0158 00301000 * R12, 0158 00302000 * R13, 0158 00303000 * R14) RSTD; /* RESTRICT USE OF R11-R14 */ 00304000 * R11=ADDR(ASHLOCK); /* ASM LOCKWORD FOR SETLOCK */ 00305000 LA R11,ASHLOCK(,RSMHDPTR) 0159 00306000 * GEN REFS(PSALITA,R11) SETS(R12,R13,R14); 0160 00307000 RELE SETLOCK RELEASE,TYPE=ASM,ADDR=(11),DISABLED, XX00308000 RELATED=SET 00309000 * RFY 0161 00310000 * (R11, 0161 00311000 * R12, 0161 00312000 * R13, 0161 00313000 * R14) UNRSTD; /* RELEASE REGS 11-14 */ 00314000 * ATAVIOCM=OFF; /* RESET ENTRY INFO IN ATA */ 00315000 NI ATAVIOCM(ATAPTR),B'11101111' 0162 00316000 * LM(R0,R14,ASMWKSA6); /* RESTORE REGISTERS */ 00317000 LM R0,R14,ASMWKSA6(ASMVTPTR) 0163 00318000 * DECLARE /* COMMON VARIABLES */ 00319000 * I256C CHAR(256) BASED, 0164 00320000 * I031F FIXED(31) BASED, 0164 00321000 * I031P PTR(31) BASED, 0164 00322000 * I015F FIXED(15) BASED, 0164 00323000 * I015P PTR(15) BASED, 0164 00324000 * I008P PTR(8) BASED, 0164 00325000 * I001C CHAR(1) BASED; 0164 00326000 * RETURN; /* RETURN TO ILRPAGCM */ 00327000 @EL00001 DS 0H 0165 00328000 @EF00001 DS 0H 0165 00329000 @ER00001 BR @14 0165 00330000 * 0166 00331000 */********************************************************************/ 00332000 */* */ 00333000 */* DEQUEUING SUBROUTINE */ 00334000 */* AN INTERNAL SUBROUTINE WHICH DEQUEUES AN AIA OR ACE */ 00335000 */* FROM THE LGE PROCESS QUEUE. */ 00336000 */* */ 00337000 */********************************************************************/ 00338000 * 0166 00339000 *DQSUB: 0166 00340000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0166 00341000 DQSUB DS 0H 0167 00342000 * RFY 0167 00343000 * LGEPTR RSTD; 0167 00344000 * IF AIAPTR=LGEPROCF THEN /* IF THIS IS THE FIRST AIA/ACE */ 00345000 C AIAPTR,LGEPROCF(,LGEPTR) 0168 00346000 BNE @RF00168 0168 00347000 * DO; /* IN THE QUEUE, */ 00348000 * LGEPROCF=AIAFQPA; /* CHANGE PTR TO FIRST AIA/ACE */ 00349000 L @12,AIAFQPA(,AIAPTR) 0170 00350000 ST @12,LGEPROCF(,LGEPTR) 0170 00351000 * IF AIAFQPA=ZERO THEN /* MORE AIA/ACE'S? */ 00352000 SLR @15,@15 0171 00353000 CR @12,@15 0171 00354000 BNE @RF00171 0171 00355000 * LGEPROCL=ZERO; /* NO, ZERO PTR TO LAST AIA */ 00356000 ST @15,LGEPROCL(,LGEPTR) 0172 00357000 * ELSE /* MORE AIA'S */ 00358000 * AIAFQPA->AIABQPA=ZERO; /* ZERO SECOND AIA'S BACK PTR */ 00359000 B @RC00171 0173 00360000 @RF00171 L @12,AIAFQPA(,AIAPTR) 0173 00361000 SLR @00,@00 0173 00362000 ST @00,AIABQPA(,@12) 0173 00363000 * END; 0174 00364000 * ELSE 0175 00365000 * DO; 0175 00366000 B @RC00168 0175 00367000 @RF00168 DS 0H 0176 00368000 * IF AIAPTR=LGEPROCL THEN /* IS THIS THE LAST AIA/ACE IN Q?*/ 00369000 C AIAPTR,LGEPROCL(,LGEPTR) 0176 00370000 BNE @RF00176 0176 00371000 * DO; 0177 00372000 * LGEPROCL=AIABQPA; /* CHANGE PTR TO LAST AIA/ACE */ 00373000 L @12,AIABQPA(,AIAPTR) 0178 00374000 ST @12,LGEPROCL(,LGEPTR) 0178 00375000 * AIABQPA->AIAFQPA=ZERO; /* ZERO NEXT TO LAST AIA/ACE'S 0179 00376000 * FORWARD PTR */ 00377000 SLR @00,@00 0179 00378000 ST @00,AIAFQPA(,@12) 0179 00379000 * END; 0180 00380000 * ELSE 0181 00381000 * DO; 0181 00382000 B @RC00176 0181 00383000 @RF00176 DS 0H 0182 00384000 * AIAFQPA->AIABQPA=AIAPTR->AIABQPA;/* CHANGE NEXT AIA/ACE'S 00385000 * BACK PTR */ 00386000 L @12,AIAFQPA(,AIAPTR) 0182 00387000 L @15,AIABQPA(,AIAPTR) 0182 00388000 ST @15,AIABQPA(,@12) 0182 00389000 * AIABQPA->AIAFQPA=AIAPTR->AIAFQPA;/* CHANGE PREVIOUS 0183 00390000 * AIA/ACE'S FORWARD PTR */ 00391000 ST @12,AIAFQPA(,@15) 0183 00392000 * END; 0184 00393000 * END; 0185 00394000 @RC00176 DS 0H 0186 00395000 * AIAFQPA=ZERO; /* RESET FORWARD */ 00396000 @RC00168 SLR @12,@12 0186 00397000 ST @12,AIAFQPA(,AIAPTR) 0186 00398000 * AIABQPA=ZERO; /* AND BACKWARD PTRS IN THIS AIA */ 00399000 ST @12,AIABQPA(,AIAPTR) 0187 00400000 * END DQSUB; /* END DEQUEUING SUBROUTINE */ 00401000 @EL00002 DS 0H 0188 00402000 @EF00002 DS 0H 0188 00403000 @ER00002 BR @14 0188 00404000 * END ILRVIOCM /* END VIO COMPLETION */ 00405000 * 0189 00406000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00407000 */*%INCLUDE SYSLIB (ILRACE ) */ 00408000 */*%INCLUDE SYSLIB (ILRAIA ) */ 00409000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00410000 */*%INCLUDE SYSLIB (ILRASMVT) */ 00411000 */*%INCLUDE SYSLIB (ILRASPCT) */ 00412000 */*%INCLUDE SYSLIB (ILRATA ) */ 00413000 */*%INCLUDE SYSLIB (CVT ) */ 00414000 */*%INCLUDE SYSLIB (IHALCCA ) */ 00415000 */*%INCLUDE SYSLIB (ILRLGE ) */ 00416000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00417000 */*%INCLUDE SYSLIB (IHARSMHD) */ 00418000 */*%INCLUDE SYSLIB (ILRASMHD) */ 00419000 */*%INCLUDE SYSLIB (IHASRB ) */ 00420000 * 0189 00421000 * ; 0189 00422000 @DATA DS 0H 00423000 @DATD DSECT 00424000 DS 0F 00425000 ILRVIOCM CSECT 00426000 DS 0F 00427000 @DATD DSECT 00428000 DS 0D 00429000 @ENDDATD EQU * 00430000 ILRVIOCM CSECT 00431000 NOPR ((@ENDDATD-@DATD)*16) 00432000 DS 0F 00433000 @SIZDATD DC AL1(0) 00434000 DC AL3(@ENDDATD-@DATD) 00435000 DS 0D 00436000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00437000 @01 EQU 01 00438000 @02 EQU 02 00439000 @03 EQU 03 00440000 @04 EQU 04 00441000 @05 EQU 05 00442000 @06 EQU 06 00443000 @07 EQU 07 00444000 @08 EQU 08 00445000 @09 EQU 09 00446000 @10 EQU 10 00447000 @11 EQU 11 00448000 @12 EQU 12 00449000 @13 EQU 13 00450000 @14 EQU 14 00451000 @15 EQU 15 00452000 AIAPTR EQU @01 00453000 ASCBPTR EQU @06 00454000 ASMVTPTR EQU @03 00455000 LPMEPTR EQU @05 00456000 ATAPTR EQU @04 00457000 LGEPTR EQU @07 00458000 RSMHDPTR EQU @02 00459000 R0 EQU @00 00460000 R1 EQU @01 00461000 R11 EQU @11 00462000 R12 EQU @12 00463000 R13 EQU @13 00464000 R14 EQU @14 00465000 R15 EQU @15 00466000 PSA EQU 0 00467000 FLCRNPSW EQU PSA 00468000 FLCROPSW EQU PSA+8 00469000 FLCICCW2 EQU PSA+16 00470000 FLCCVT EQU FLCICCW2 00471000 PSAEEPSW EQU PSA+132 00472000 PSAESPSW EQU PSA+136 00473000 FLCSVILC EQU PSAESPSW+1 00474000 PSAEPPSW EQU PSA+140 00475000 FLCPIILC EQU PSAEPPSW+1 00476000 FLCPICOD EQU PSAEPPSW+2 00477000 PSAPICOD EQU FLCPICOD+1 00478000 FLCTEA EQU PSAEPPSW+4 00479000 FLCPER EQU PSA+152 00480000 FLCMCLA EQU PSA+168 00481000 FLCIOEL EQU FLCMCLA+4 00482000 FLCIOA EQU FLCMCLA+16 00483000 FLCFSA EQU FLCMCLA+80 00484000 PSALCCAV EQU PSA+528 00485000 PSAAOLD EQU PSA+548 00486000 PSASUPER EQU PSA+552 00487000 PSASUP1 EQU PSASUPER 00488000 PSASUP2 EQU PSASUPER+1 00489000 PSASUP3 EQU PSASUPER+2 00490000 PSASUP4 EQU PSASUPER+3 00491000 PSACLHT EQU PSA+640 00492000 PSALKSA EQU PSA+696 00493000 PSAHLHI EQU PSA+760 00494000 PSALITA EQU PSA+764 00495000 PSADSSFL EQU PSA+836 00496000 PSADSSF1 EQU PSADSSFL 00497000 PSADSSF3 EQU PSADSSFL+2 00498000 PSADSSF4 EQU PSADSSFL+3 00499000 PSARSVT EQU PSA+896 00500000 ACE EQU 0 00501000 ACEFLG1 EQU ACE+9 00502000 ACETRPWT EQU ACEFLG1 00503000 ACEOVRID EQU ACEFLG1 00504000 ACEFLG3 EQU ACE+11 00505000 ACELGE EQU ACE+12 00506000 ACELGN EQU ACE+16 00507000 ACERPN EQU ACELGN+4 00508000 ACETLPME EQU ACERPN 00509000 ACESYM EQU ACE+24 00510000 ACESRCID EQU ACESYM 00511000 AIA EQU 0 00512000 AIAFQPA EQU AIA 00513000 AIABQPA EQU AIA+4 00514000 AIAFLG1 EQU AIA+9 00515000 AIAWRITE EQU AIAFLG1 00516000 AIAFLG2 EQU AIA+10 00517000 AIAPRIER EQU AIAFLG2 00518000 AIAERROR EQU AIAFLG2 00519000 AIABADID EQU AIAFLG2 00520000 AIAFLG3 EQU AIA+11 00521000 AIAPRINO EQU AIAFLG3 00522000 AIATRPSP EQU AIAFLG3 00523000 AIANXAIA EQU AIA+12 00524000 AIAID EQU AIA+16 00525000 AIALPID EQU AIAID 00526000 AIALGID EQU AIALPID 00527000 AIALSID EQU AIALGID 00528000 AIASSID EQU AIALSID+1 00529000 AIARPN EQU AIALPID+4 00530000 AIALSID2 EQU AIARPN 00531000 AIALPMEP EQU AIALSID2 00532000 AIACEPTR EQU AIALPMEP 00533000 AIAGRPSZ EQU AIA+24 00534000 AIALGE EQU AIAGRPSZ 00535000 ASCB EQU 0 00536000 ASCBSUPC EQU ASCB+16 00537000 ASCBASID EQU ASCB+36 00538000 ASCBSTOR EQU ASCB+44 00539000 ASCBFW1 EQU ASCB+100 00540000 ASCBRCTF EQU ASCBFW1+2 00541000 ASCBFLG1 EQU ASCBFW1+3 00542000 ASCBDSP1 EQU ASCB+114 00543000 ASCBFLG2 EQU ASCB+115 00544000 ASCBLKGP EQU ASCB+128 00545000 ASCBSRQ EQU ASCB+180 00546000 ASCBSRQ1 EQU ASCBSRQ 00547000 ASCBSRQ2 EQU ASCBSRQ+1 00548000 ASCBSRQ3 EQU ASCBSRQ+2 00549000 ASCBSRQ4 EQU ASCBSRQ+3 00550000 ASMVT EQU 0 00551000 ASMFLAG1 EQU ASMVT 00552000 ASMFLAG2 EQU ASMVT+1 00553000 ASMSTAGQ EQU ASMVT+32 00554000 ASMPCCWQ EQU ASMVT+64 00555000 ASMLSAI EQU ASMVT+144 00556000 ASMGOSQS EQU ASMVT+152 00557000 ASMPEX EQU ASMVT+224 00558000 ASMACEPC EQU ASMVT+344 00559000 ASMWKSA1 EQU ASMVT+368 00560000 ASMWKSA2 EQU ASMVT+448 00561000 ASMWKSA3 EQU ASMVT+528 00562000 ASMWKSA4 EQU ASMVT+608 00563000 ASMWKSA5 EQU ASMVT+688 00564000 ASMWKSA6 EQU ASMVT+768 00565000 ASMPOOLS EQU 0 00566000 ASMCPAVQ EQU ASMPOOLS+8 00567000 ASMCPAVL EQU ASMCPAVQ 00568000 ASMCPRSQ EQU ASMPOOLS+16 00569000 ASPCT EQU 0 00570000 ASPHDR EQU ASPCT 00571000 ASPBKEY EQU ASPHDR+8 00572000 ASPFLAG EQU ASPHDR+28 00573000 ASPCTPTR EQU 0 00574000 ASPEXTSN EQU 0 00575000 ASPEHDR EQU ASPEXTSN 00576000 ASPEXKEY EQU ASPEHDR+8 00577000 ASPSECTA EQU ASPEXTSN+64 00578000 ASPEXPTR EQU 0 00579000 ASPLPME EQU 0 00580000 ASPLPFLG EQU ASPLPME 00581000 ASPLVALD EQU ASPLPFLG 00582000 ASPLOPIN EQU ASPLPFLG 00583000 ASPLIOER EQU ASPLPFLG 00584000 ASPVLSID EQU ASPLPME+1 00585000 ATA EQU 0 00586000 ATASFLGS EQU ATA+1 00587000 ATAVIOCM EQU ATASFLGS 00588000 ATARFLGS EQU ATA+4 00589000 ATARCRSN EQU ATA+6 00590000 ATACLEAR EQU ATA+8 00591000 ATAAIA EQU ATACLEAR 00592000 ATAASCB EQU ATACLEAR+4 00593000 ATALGE EQU ATAASCB 00594000 CVTMAP EQU 0 00595000 CVTDAR EQU CVTMAP+72 00596000 CVTFLGS1 EQU CVTDAR 00597000 CVTDCB EQU CVTMAP+116 00598000 CVTIERLC EQU CVTMAP+144 00599000 CVTOPTA EQU CVTMAP+182 00600000 CVTOPTB EQU CVTMAP+183 00601000 CVTGTF EQU CVTMAP+236 00602000 CVTGTFST EQU CVTGTF 00603000 CVTGTFS EQU CVTGTFST 00604000 CVTSTATE EQU CVTGTFST 00605000 CVTTMODE EQU CVTGTFST 00606000 CVTFORM EQU CVTGTFST 00607000 CVTAQAVT EQU CVTMAP+240 00608000 CVTTCMFG EQU CVTAQAVT 00609000 CVTVOLM2 EQU CVTMAP+244 00610000 CVTTATA EQU CVTVOLM2 00611000 CVTTSKS EQU CVTTATA 00612000 CVTVOLF2 EQU CVTTSKS 00613000 CVTTAT EQU CVTTATA+1 00614000 CVTATER EQU CVTMAP+248 00615000 CVTEXT1 EQU CVTMAP+252 00616000 CVTPURG EQU CVTMAP+260 00617000 CVTQMSG EQU CVTMAP+268 00618000 CVTDMSR EQU CVTMAP+272 00619000 CVTRSV37 EQU CVTDMSR 00620000 CVTDMSRF EQU CVTRSV37 00621000 CVTERPV EQU CVTMAP+316 00622000 CVTINTLA EQU CVTMAP+320 00623000 CVTAPF EQU CVTMAP+324 00624000 CVTEXT2 EQU CVTMAP+328 00625000 CVTHJES EQU CVTMAP+332 00626000 CVTPGSIA EQU CVTMAP+348 00627000 CVTA1F1 EQU CVTMAP+356 00628000 CVTSYSK EQU CVTMAP+357 00629000 CVTVOLM1 EQU CVTMAP+380 00630000 CVTVOLF1 EQU CVTVOLM1 00631000 CVTATMCT EQU CVTMAP+388 00632000 CVTXTNT1 EQU 0 00633000 CVTXTNT2 EQU 0 00634000 CVTDSSV EQU CVTXTNT2 00635000 CVTFLGBT EQU CVTXTNT2+5 00636000 CVTQID EQU CVTXTNT2+24 00637000 CVTRV400 EQU CVTXTNT2+52 00638000 CVTRV409 EQU CVTXTNT2+53 00639000 CVTATCVT EQU CVTXTNT2+64 00640000 CVTRV429 EQU CVTXTNT2+84 00641000 CVTRV438 EQU CVTXTNT2+85 00642000 CVTRV457 EQU CVTXTNT2+112 00643000 CVTRV466 EQU CVTXTNT2+113 00644000 CVTFIX EQU 0 00645000 CVTRELNO EQU CVTFIX+252 00646000 LCCA EQU 0 00647000 LCCAIHRC EQU LCCA+520 00648000 LCCAIHR1 EQU LCCAIHRC 00649000 LCCAIHR2 EQU LCCAIHRC+1 00650000 LCCAIHR3 EQU LCCAIHRC+2 00651000 LCCAIHR4 EQU LCCAIHRC+3 00652000 LCCASPIN EQU LCCA+524 00653000 LCCASPN1 EQU LCCASPIN 00654000 LCCASPN2 EQU LCCASPIN+1 00655000 LCCASPN3 EQU LCCASPIN+2 00656000 LCCASPN4 EQU LCCASPIN+3 00657000 LCCADSF1 EQU LCCA+540 00658000 LCCADSF2 EQU LCCA+541 00659000 LCCASPSA EQU LCCA+544 00660000 LCCACRFL EQU LCCA+692 00661000 LCCACREX EQU LCCA+693 00662000 LCCALKFG EQU LCCA+694 00663000 LCCASRBF EQU LCCA+720 00664000 LCCAASID EQU LCCA+732 00665000 LCCAPTR EQU 0 00666000 LGE EQU 0 00667000 LGEPROCQ EQU LGE 00668000 LGEPROCF EQU LGEPROCQ 00669000 LGEPROCL EQU LGEPROCQ+4 00670000 LGEFLAG1 EQU LGE+8 00671000 LGEWRKPD EQU LGEFLAG1 00672000 RSMHD EQU 0 00673000 RSMASCB EQU RSMHD+8 00674000 RSMFLG1 EQU RSMHD+12 00675000 RSMQS EQU RSMHD+20 00676000 RSMLFQ EQU RSMQS 00677000 RSMLSQA EQU RSMQS+4 00678000 RSMLIOQ EQU RSMQS+8 00679000 RSMASMHD EQU RSMHD+40 00680000 SRBSECT EQU 0 00681000 SRB EQU SRBSECT 00682000 SRBFLNK EQU SRB+4 00683000 SRBFLC EQU SRB+12 00684000 SRBPTR EQU 0 00685000 GMACELL EQU 0 00686000 GMANEXT EQU GMACELL 00687000 ILRPEX EQU 0 00688000 I001C EQU 0 00689000 I008P EQU 0 00690000 I015F EQU 0 00691000 I015P EQU 0 00692000 I031F EQU 0 00693000 I031P EQU 0 00694000 I256C EQU 0 00695000 ACEPTR EQU AIACEPTR 00696000 ASM1WKSV EQU ASMWKSA1 00697000 ASM1RGSV EQU ASM1WKSV 00698000 ASM1WRKA EQU ASM1WKSV+60 00699000 ASM2WKSV EQU ASMWKSA2 00700000 ASM2WRKA EQU ASM2WKSV+52 00701000 ASM2FLGS EQU ASM2WRKA+12 00702000 ASM3WKSV EQU ASMWKSA3 00703000 ASM4WKSV EQU ASMWKSA4 00704000 ASM4RGSV EQU ASM4WKSV 00705000 ASM5WKSV EQU ASMWKSA5 00706000 ASM5RGSV EQU ASM5WKSV 00707000 ASPASST EQU ASPSECTA 00708000 CVTPTR EQU FLCCVT 00709000 CVTS01 EQU CVTPGSIA 00710000 CVTLPDIA EQU CVTS01+12 00711000 CVTDIRST EQU CVTLPDIA 00712000 CVTSLIDA EQU CVTS01+24 00713000 CVTCTLFG EQU CVTS01+50 00714000 CVTGSMQ EQU CVTS01+264 00715000 CVTRV210 EQU CVTS01+424 00716000 CVTRV219 EQU CVTS01+425 00717000 CVTRV228 EQU CVTS01+426 00718000 CVTRV237 EQU CVTS01+427 00719000 CVTMFRTR EQU CVTS01+452 00720000 CVTRV262 EQU CVTS01+468 00721000 CVTRV271 EQU CVTS01+469 00722000 CVTRV280 EQU CVTS01+470 00723000 CVTRV289 EQU CVTS01+471 00724000 CVTGSDA EQU CVTS01+600 00725000 PSARSVTE EQU PSARSVT 00726000 ASMHDDCL EQU RSMASMHD 00727000 ASMHD EQU ASMHDDCL 00728000 ASHFLAG1 EQU ASMHD 00729000 ASHFLAG2 EQU ASMHD+1 00730000 ASHSCHED EQU ASHFLAG2 00731000 ASHLOCK EQU ASMHD+20 00732000 ASHVSRBP EQU ASMHD+24 00733000 TRASASID EQU ASCBASID 00734000 ASPLPMEE EQU ASPSECTA 00735000 FLC EQU PSA 00736000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00737000 ASHLGEQ EQU ASMHD+28 00738000 ASHCAPQ EQU ASMHD+16 00739000 ASHSWAPQ EQU ASMHD+12 00740000 ASHIOCNT EQU ASMHD+8 00741000 ASHBKSLT EQU ASMHD+4 00742000 ASHSWPCT EQU ASMHD+2 00743000 ASHRSV12 EQU ASHFLAG2 00744000 ASHRSV11 EQU ASHFLAG2 00745000 ASHRSV10 EQU ASHFLAG2 00746000 ASHRSV9 EQU ASHFLAG2 00747000 ASHRSV8 EQU ASHFLAG2 00748000 ASHRSV7 EQU ASHFLAG2 00749000 ASHRSV13 EQU ASHFLAG2 00750000 ASHRSV6 EQU ASHFLAG1 00751000 ASHRSV5 EQU ASHFLAG1 00752000 ASHRSV4 EQU ASHFLAG1 00753000 ASHRSV3 EQU ASHFLAG1 00754000 ASHRSV2 EQU ASHFLAG1 00755000 ASHPERME EQU ASHFLAG1 00756000 ASHCAPER EQU ASHFLAG1 00757000 ASHSWPOT EQU ASHFLAG1 00758000 PSARSAV EQU PSARSVTE+60 00759000 PSARSTK EQU PSARSVTE+56 00760000 PSAESAV3 EQU PSARSVTE+52 00761000 PSAESTK3 EQU PSARSVTE+48 00762000 PSAESAV2 EQU PSARSVTE+44 00763000 PSAESTK2 EQU PSARSVTE+40 00764000 PSAESAV1 EQU PSARSVTE+36 00765000 PSAESTK1 EQU PSARSVTE+32 00766000 PSAPSAV EQU PSARSVTE+28 00767000 PSAPSTK EQU PSARSVTE+24 00768000 PSAMSAV EQU PSARSVTE+20 00769000 PSAMSTK EQU PSARSVTE+16 00770000 PSASSAV EQU PSARSVTE+12 00771000 PSASSTK EQU PSARSVTE+8 00772000 PSANSTK EQU PSARSVTE+4 00773000 PSACSTK EQU PSARSVTE 00774000 CVTRV628 EQU CVTS01+728 00775000 CVTRV627 EQU CVTS01+724 00776000 CVTRV626 EQU CVTS01+720 00777000 CVTRV625 EQU CVTS01+716 00778000 CVTRV624 EQU CVTS01+712 00779000 CVTRV623 EQU CVTS01+708 00780000 CVTRV622 EQU CVTS01+704 00781000 CVTRV621 EQU CVTS01+700 00782000 CVTIHASU EQU CVTS01+696 00783000 CVTSUSP EQU CVTS01+692 00784000 CVTT6SVC EQU CVTS01+688 00785000 CVTCDAL EQU CVTS01+684 00786000 CVTTCTL EQU CVTS01+680 00787000 CVTRSUME EQU CVTS01+676 00788000 CVTJTERM EQU CVTS01+672 00789000 CVTASMRM EQU CVTS01+668 00790000 CVTTCASP EQU CVTS01+664 00791000 CVT0PT03 EQU CVTS01+660 00792000 CVT0PT0E EQU CVTS01+656 00793000 CVTRV609 EQU CVTS01+652 00794000 CVTCGK EQU CVTS01+648 00795000 CVTRAC EQU CVTS01+644 00796000 CVTRV606 EQU CVTS01+640 00797000 CVTRV605 EQU CVTS01+636 00798000 CVTRV604 EQU CVTS01+632 00799000 CVTEFF02 EQU CVTS01+628 00800000 CVTCBBR EQU CVTS01+624 00801000 CVTSSCR EQU CVTS01+620 00802000 CVTEVENT EQU CVTS01+616 00803000 CVTCRCA EQU CVTS01+612 00804000 CVTTPIO EQU CVTS01+608 00805000 CVTADV EQU CVTS01+604 00806000 CVTGSDAB EQU CVTGSDA 00807000 CVTQV3 EQU CVTS01+596 00808000 CVTQV2 EQU CVTS01+592 00809000 CVTQV1 EQU CVTS01+588 00810000 CVTRPT EQU CVTS01+584 00811000 CVTSSRB EQU CVTS01+580 00812000 CVTCSDRL EQU CVTS01+576 00813000 CVTEXP1 EQU CVTS01+572 00814000 CVTRMPMT EQU CVTS01+568 00815000 CVTRMPTT EQU CVTS01+564 00816000 CVTVPSA EQU CVTS01+560 00817000 CVTVSTOP EQU CVTS01+556 00818000 CVTGTFR8 EQU CVTS01+552 00819000 CVTQUIT EQU CVTS01+548 00820000 CVTVACR EQU CVTS01+544 00821000 CVTWTCB EQU CVTS01+540 00822000 CVTSTPRS EQU CVTS01+536 00823000 CVT0PT02 EQU CVTS01+532 00824000 CVTDARCM EQU CVTS01+528 00825000 CVTIRECM EQU CVTS01+524 00826000 CVTJRECM EQU CVTS01+520 00827000 CVTVEMS0 EQU CVTS01+516 00828000 CVTSPFRR EQU CVTS01+512 00829000 CVTRLSTG EQU CVTS01+508 00830000 CVT0TC0A EQU CVTS01+504 00831000 CVTGMBR EQU CVTS01+500 00832000 CVTLFRM EQU CVTS01+496 00833000 CVTRMBR EQU CVTS01+492 00834000 CVTVIOP EQU CVTS01+488 00835000 CVTRV307 EQU CVTS01+486 00836000 CVTRV306 EQU CVTS01+484 00837000 CVTRV305 EQU CVTS01+482 00838000 CVTRV304 EQU CVTS01+480 00839000 CVTRV303 EQU CVTS01+478 00840000 CVTRV302 EQU CVTS01+476 00841000 CVTTRCA EQU CVTS01+472 00842000 CVTRV297 EQU CVTRV289 00843000 CVTRV296 EQU CVTRV289 00844000 CVTRV295 EQU CVTRV289 00845000 CVTRV294 EQU CVTRV289 00846000 CVTRV293 EQU CVTRV289 00847000 CVTRV292 EQU CVTRV289 00848000 CVTRV291 EQU CVTRV289 00849000 CVTRV290 EQU CVTRV289 00850000 CVTRV288 EQU CVTRV280 00851000 CVTRV287 EQU CVTRV280 00852000 CVTRV286 EQU CVTRV280 00853000 CVTRV285 EQU CVTRV280 00854000 CVTRV284 EQU CVTRV280 00855000 CVTRV283 EQU CVTRV280 00856000 CVTRV282 EQU CVTRV280 00857000 CVTRV281 EQU CVTRV280 00858000 CVTRV279 EQU CVTRV271 00859000 CVTRV278 EQU CVTRV271 00860000 CVTRV277 EQU CVTRV271 00861000 CVTRV276 EQU CVTRV271 00862000 CVTRV275 EQU CVTRV271 00863000 CVTRV274 EQU CVTRV271 00864000 CVTRV273 EQU CVTRV271 00865000 CVTRV272 EQU CVTRV271 00866000 CVTRV270 EQU CVTRV262 00867000 CVTRV269 EQU CVTRV262 00868000 CVTRV268 EQU CVTRV262 00869000 CVTRV267 EQU CVTRV262 00870000 CVTRV266 EQU CVTRV262 00871000 CVTRV265 EQU CVTRV262 00872000 CVTRV264 EQU CVTRV262 00873000 CVTRV263 EQU CVTRV262 00874000 CVTVFP EQU CVTS01+464 00875000 CVTVSI EQU CVTS01+460 00876000 CVTVPSIB EQU CVTS01+456 00877000 CVTMFACT EQU CVTMFRTR 00878000 CVTMFCTL EQU CVTS01+448 00879000 CVTPVBP EQU CVTS01+444 00880000 CVTPWI EQU CVTS01+440 00881000 CVTRV254 EQU CVTS01+438 00882000 CVTRV253 EQU CVTS01+436 00883000 CVTRV252 EQU CVTS01+434 00884000 CVTRV251 EQU CVTS01+433 00885000 CVTRV250 EQU CVTS01+432 00886000 CVTRV249 EQU CVTS01+431 00887000 CVTRV248 EQU CVTS01+430 00888000 CVTRV247 EQU CVTS01+429 00889000 CVTRV246 EQU CVTS01+428 00890000 CVTRV245 EQU CVTRV237 00891000 CVTRV244 EQU CVTRV237 00892000 CVTRV243 EQU CVTRV237 00893000 CVTRV242 EQU CVTRV237 00894000 CVTRV241 EQU CVTRV237 00895000 CVTRV240 EQU CVTRV237 00896000 CVTRV239 EQU CVTRV237 00897000 CVTRV238 EQU CVTRV237 00898000 CVTRV236 EQU CVTRV228 00899000 CVTRV235 EQU CVTRV228 00900000 CVTRV234 EQU CVTRV228 00901000 CVTRV233 EQU CVTRV228 00902000 CVTRV232 EQU CVTRV228 00903000 CVTRV231 EQU CVTRV228 00904000 CVTRV230 EQU CVTRV228 00905000 CVTRV229 EQU CVTRV228 00906000 CVTRV227 EQU CVTRV219 00907000 CVTRV226 EQU CVTRV219 00908000 CVTRV225 EQU CVTRV219 00909000 CVTRV224 EQU CVTRV219 00910000 CVTRV223 EQU CVTRV219 00911000 CVTRV222 EQU CVTRV219 00912000 CVTRV221 EQU CVTRV219 00913000 CVTRV220 EQU CVTRV219 00914000 CVTRV218 EQU CVTRV210 00915000 CVTRV217 EQU CVTRV210 00916000 CVTRV216 EQU CVTRV210 00917000 CVTRV215 EQU CVTRV210 00918000 CVTRV214 EQU CVTRV210 00919000 CVTRV213 EQU CVTRV210 00920000 CVTRV212 EQU CVTRV210 00921000 CVTRV211 EQU CVTRV210 00922000 CVTLCCAT EQU CVTS01+420 00923000 CVTPCCAT EQU CVTS01+416 00924000 CVTIPCRP EQU CVTS01+412 00925000 CVTIPCRI EQU CVTS01+408 00926000 CVTIPCDS EQU CVTS01+404 00927000 CVTAIDVT EQU CVTS01+400 00928000 CVTSSAP EQU CVTS01+396 00929000 CVTEHCIR EQU CVTS01+392 00930000 CVTEHDEF EQU CVTS01+388 00931000 CVTDAIR EQU CVTS01+384 00932000 CVTPERFM EQU CVTS01+380 00933000 CVT044R2 EQU CVTS01+376 00934000 CVTFETCH EQU CVTS01+372 00935000 CVTRSTWD EQU CVTS01+368 00936000 CVTSPOST EQU CVTS01+364 00937000 CVTIOBP EQU CVTS01+360 00938000 CVTASMVT EQU CVTS01+356 00939000 CVTRECRQ EQU CVTS01+352 00940000 CVTWSAC EQU CVTS01+348 00941000 CVTRV149 EQU CVTS01+344 00942000 CVTWSAL EQU CVTS01+340 00943000 CVTSPSA EQU CVTS01+336 00944000 CVTGLMN EQU CVTS01+332 00945000 CVTVEAC0 EQU CVTS01+328 00946000 CVT062R1 EQU CVTS01+324 00947000 CVTRPOST EQU CVTS01+320 00948000 CVTDQIQE EQU CVTS01+316 00949000 CVTCSD EQU CVTS01+312 00950000 CVTLKRMA EQU CVTS01+308 00951000 CVTRSPIE EQU CVTS01+304 00952000 CVTRENQ EQU CVTS01+300 00953000 CVTLQCB EQU CVTS01+296 00954000 CVTFQCB EQU CVTS01+292 00955000 CVTQCS01 EQU CVTS01+288 00956000 CVTAPFT EQU CVTS01+284 00957000 CVTPARRL EQU CVTS01+280 00958000 CVTVWAIT EQU CVTS01+276 00959000 CVTGSPL EQU CVTS01+272 00960000 CVTLSMQ EQU CVTS01+268 00961000 CVTEXPRO EQU CVTS01+260 00962000 CVTOPCTP EQU CVTS01+256 00963000 CVTSIC EQU CVTS01+252 00964000 CVTTPIOS EQU CVTS01+248 00965000 CVTRTMS EQU CVTS01+244 00966000 CVTSDBF EQU CVTS01+240 00967000 CVTSCBP EQU CVTS01+236 00968000 CVTSDMP EQU CVTS01+232 00969000 CVTSV60 EQU CVTS01+228 00970000 CVTRTMCT EQU CVTS01+224 00971000 CVTASCBL EQU CVTS01+220 00972000 CVTASCBH EQU CVTS01+216 00973000 CVTGDA EQU CVTS01+212 00974000 CVTASVT EQU CVTS01+208 00975000 CVTVVMDI EQU CVTS01+204 00976000 CVTAQTOP EQU CVTS01+200 00977000 CVTIOSCS EQU CVTS01+196 00978000 CVTSDRM EQU CVTS01+192 00979000 CVTOPTE EQU CVTS01+188 00980000 CVTSTXU EQU CVTS01+184 00981000 CVTQUIS EQU CVTS01+180 00982000 CVTPARS EQU CVTS01+176 00983000 CVTS1EE EQU CVTS01+172 00984000 CVTFRAS EQU CVTS01+168 00985000 CVTQSAS EQU CVTS01+164 00986000 CVTCRAS EQU CVTS01+160 00987000 CVTCRMN EQU CVTS01+156 00988000 CVTDELCP EQU CVTS01+152 00989000 CVTFRECL EQU CVTS01+148 00990000 CVTGETCL EQU CVTS01+144 00991000 CVTBLDCP EQU CVTS01+140 00992000 CVTAUTHL EQU CVTS01+136 00993000 CVTSCAN EQU CVTS01+132 00994000 CVTRV144 EQU CVTS01+130 00995000 CVTMAXMP EQU CVTS01+128 00996000 CVTSTCK EQU CVTS01+124 00997000 CVTRV139 EQU CVTS01+123 00998000 CVTDSSAC EQU CVTS01+122 00999000 CVTRV513 EQU CVTS01+121 01000000 CVTIOSPL EQU CVTS01+120 01001000 CVTPTGT EQU CVTS01+116 01002000 CVTCSPIE EQU CVTS01+112 01003000 CVTSMFEX EQU CVTS01+108 01004000 CVTOLT0A EQU CVTS01+104 01005000 CVTSRBRT EQU CVTS01+100 01006000 CVTPUTL EQU CVTS01+96 01007000 CVTASCRL EQU CVTS01+92 01008000 CVTASCRF EQU CVTS01+88 01009000 CVTRV326 EQU CVTS01+84 01010000 CVTRV325 EQU CVTS01+80 01011000 CVTRV324 EQU CVTS01+76 01012000 CVT0VL01 EQU CVTS01+72 01013000 CVTSHRVM EQU CVTS01+68 01014000 CVTRV332 EQU CVTS01+64 01015000 CVTTAS EQU CVTS01+60 01016000 CVTRSCN EQU CVTS01+56 01017000 CVTTRAC2 EQU CVTS01+54 01018000 CVTTRACE EQU CVTS01+52 01019000 CVTAPG EQU CVTS01+51 01020000 CVTSDTRC EQU CVTCTLFG 01021000 CVTGTRCE EQU CVTCTLFG 01022000 CVTNOMP EQU CVTCTLFG 01023000 CVTRSV79 EQU CVTCTLFG 01024000 CVTDSTAT EQU CVTCTLFG 01025000 CVTRSV78 EQU CVTCTLFG 01026000 CVTRV333 EQU CVTCTLFG 01027000 CVTRV323 EQU CVTCTLFG 01028000 CVTSPVLK EQU CVTS01+49 01029000 CVTRSV77 EQU CVTS01+48 01030000 CVTRV331 EQU CVTS01+44 01031000 CVTRV330 EQU CVTS01+40 01032000 CVTRV329 EQU CVTS01+36 01033000 CVTRV328 EQU CVTS01+32 01034000 CVTRV322 EQU CVTS01+28 01035000 CVTSLID EQU CVTSLIDA+1 01036000 CVTSYLK EQU CVTSLIDA 01037000 CVTRV321 EQU CVTS01+20 01038000 CVTRV320 EQU CVTS01+16 01039000 CVTLPDIR EQU CVTLPDIA+1 01040000 CVTRSV69 EQU CVTDIRST 01041000 CVTRSV68 EQU CVTDIRST 01042000 CVTRSV67 EQU CVTDIRST 01043000 CVTRSV66 EQU CVTDIRST 01044000 CVTRSV65 EQU CVTDIRST 01045000 CVTRSV64 EQU CVTDIRST 01046000 CVTRSV63 EQU CVTDIRST 01047000 CVTDICOM EQU CVTDIRST 01048000 CVTPVTP EQU CVTS01+8 01049000 CVTLPDSR EQU CVTS01+4 01050000 CVTGETL EQU CVTS01 01051000 ASPASSTE EQU ASPASST 01052000 ASM5FLGS EQU ASM5WKSV+64 01053000 ASM5AIA EQU ASM5WKSV+60 01054000 ASM5GCTR EQU ASM5WKSV+56 01055000 ASM5SR14 EQU ASM5WKSV+52 01056000 @NM00008 EQU ASM5RGSV+4 01057000 ASM5RG2 EQU ASM5RGSV 01058000 @NM00007 EQU ASM4RGSV+4 01059000 ASM4RG2 EQU ASM4RGSV 01060000 ASM3SR13 EQU ASM3WKSV+28 01061000 ASM3R14B EQU ASM3WKSV+24 01062000 ASM3R14A EQU ASM3WKSV+20 01063000 ASM3GRPA EQU ASM3WKSV+16 01064000 ASM3TMPA EQU ASM3WKSV+12 01065000 ASM3PIOP EQU ASM3WKSV+8 01066000 ASM3GENQ EQU ASM3WKSV+4 01067000 ASM3SWPQ EQU ASM3WKSV 01068000 ASM2SR14 EQU ASM2WRKA+16 01069000 @NM00006 EQU ASM2WRKA+13 01070000 ASM2WFLG EQU ASM2FLGS 01071000 ASM2RFLG EQU ASM2FLGS 01072000 ASM2DUPQ EQU ASM2WRKA+8 01073000 ASM2CAQ EQU ASM2WRKA+4 01074000 ASM2PAQ EQU ASM2WRKA 01075000 ASM2RGSV EQU ASM2WKSV 01076000 ASM1NXTA EQU ASM1WRKA+4 01077000 ASM1ASCB EQU ASM1WRKA 01078000 ASM1RG15 EQU ASM1RGSV+56 01079000 @NM00005 EQU ASM1RGSV+4 01080000 ASM1RG1 EQU ASM1RGSV 01081000 @NM00048 EQU SRB+40 01082000 @NM00047 EQU SRB+38 01083000 SRBPRIOR EQU SRB+37 01084000 SRBPKF EQU SRB+36 01085000 SRBSAVE EQU SRB+32 01086000 SRBPARM EQU SRB+28 01087000 SRBRMTR EQU SRB+24 01088000 SRBEP EQU SRB+20 01089000 SRBPTCB EQU SRBFLC+4 01090000 SRBPASID EQU SRBFLC+2 01091000 SRBCPAFF EQU SRBFLC 01092000 SRBASCB EQU SRB+8 01093000 SRBID EQU SRB 01094000 RSMFOEQ EQU RSMHD+36 01095000 RSMLIOQL EQU RSMLIOQ+4 01096000 RSMLIOQF EQU RSMLIOQ 01097000 RSMLSQAL EQU RSMLSQA+2 01098000 RSMLSQAF EQU RSMLSQA 01099000 RSMLFQL EQU RSMLFQ+2 01100000 RSMLFQF EQU RSMLFQ 01101000 RSMRSV2 EQU RSMHD+16 01102000 RSMCNTFX EQU RSMHD+14 01103000 RSMRSV1 EQU RSMHD+13 01104000 @NM00046 EQU RSMFLG1 01105000 RSMFAIL EQU RSMFLG1 01106000 RSMGFADD EQU RSMFLG1 01107000 RSMCPNC EQU RSMFLG1 01108000 RSMCPNU EQU RSMFLG1 01109000 RSMGFAD EQU RSMFLG1 01110000 RSMIOCPC EQU RSMFLG1 01111000 RSMIOCPU EQU RSMFLG1 01112000 RSMSPCT EQU RSMHD+4 01113000 RSMVSTO EQU RSMHD 01114000 @NM00021 EQU LGE+24 01115000 LGELGID EQU LGE+20 01116000 LGENEXT EQU LGE+16 01117000 LGEASPCT EQU LGE+12 01118000 LGESLTCT EQU LGE+10 01119000 @NM00020 EQU LGE+9 01120000 LGERSV5 EQU LGEFLAG1 01121000 LGERSV4 EQU LGEFLAG1 01122000 LGERSV3 EQU LGEFLAG1 01123000 LGERSV2 EQU LGEFLAG1 01124000 LGESAVRQ EQU LGEFLAG1 01125000 LGERELLG EQU LGEFLAG1 01126000 LGEGRINP EQU LGEFLAG1 01127000 LCCAR125 EQU LCCA+964 01128000 LCCAR124 EQU LCCA+960 01129000 LCCASGPR EQU LCCA+896 01130000 LCCADRT2 EQU LCCA+888 01131000 LCCADRT1 EQU LCCA+880 01132000 LCCAR103 EQU LCCA+876 01133000 LCCAESS2 EQU LCCA+872 01134000 LCCASPLJ EQU LCCA+868 01135000 LCCASMQJ EQU LCCA+864 01136000 LCCAIRT EQU LCCA+736 01137000 LCCARV89 EQU LCCA+728 01138000 LCCAPGTA EQU LCCASRBF+2 01139000 LCCASAFN EQU LCCASRBF 01140000 LCCAECSA EQU LCCA+716 01141000 LCCAICR0 EQU LCCA+712 01142000 LCCALWTM EQU LCCA+704 01143000 LCCARV78 EQU LCCA+700 01144000 LCCAPINV EQU LCCA+696 01145000 LCCARV88 EQU LCCA+695 01146000 LCCARV87 EQU LCCALKFG 01147000 LCCARV86 EQU LCCALKFG 01148000 LCCARV85 EQU LCCALKFG 01149000 LCCARV84 EQU LCCALKFG 01150000 LCCALKRD EQU LCCALKFG 01151000 LCCALKAQ EQU LCCALKFG 01152000 LCCALKSA EQU LCCALKFG 01153000 LCCALKDP EQU LCCALKFG 01154000 LCCACRST EQU LCCACREX 01155000 LCCACRDP EQU LCCACREX 01156000 LCCACRLM EQU LCCACREX 01157000 LCCACRIN EQU LCCACREX 01158000 LCCACRRT EQU LCCACREX 01159000 LCCACRLE EQU LCCACREX 01160000 LCCACRRM EQU LCCACREX 01161000 LCCACREF EQU LCCACREX 01162000 LCCAVARY EQU LCCACRFL 01163000 LCCARV73 EQU LCCACRFL 01164000 LCCARV72 EQU LCCACRFL 01165000 LCCARV71 EQU LCCACRFL 01166000 LCCARV70 EQU LCCACRFL 01167000 LCCARV69 EQU LCCACRFL 01168000 LCCACLMS EQU LCCACRFL 01169000 LCCACRTM EQU LCCACRFL 01170000 LCCALCR0 EQU LCCA+688 01171000 LCCACRLC EQU LCCA+684 01172000 LCCARCPU EQU LCCA+680 01173000 LCCADCPU EQU LCCA+676 01174000 LCCASRBJ EQU LCCA+672 01175000 LCCADSSR EQU LCCA+668 01176000 LCCADSSC EQU LCCA+660 01177000 LCCADSS3 EQU LCCA+648 01178000 LCCADSS2 EQU LCCA+636 01179000 LCCADSS1 EQU LCCA+624 01180000 LCCAWTIM EQU LCCA+616 01181000 LCCAITOD EQU LCCA+608 01182000 LCCADTOD EQU LCCA+600 01183000 LCCASTOD EQU LCCA+592 01184000 LCCARIR5 EQU LCCASPSA+44 01185000 LCCARIR4 EQU LCCASPSA+40 01186000 LCCARIR3 EQU LCCASPSA+36 01187000 LCCARIR2 EQU LCCASPSA+32 01188000 LCCARPR5 EQU LCCASPSA+28 01189000 LCCARPR4 EQU LCCASPSA+24 01190000 LCCARPR3 EQU LCCASPSA+20 01191000 LCCARPR2 EQU LCCASPSA+16 01192000 LCCADSR5 EQU LCCASPSA+12 01193000 LCCADSR4 EQU LCCASPSA+8 01194000 LCCADSR3 EQU LCCASPSA+4 01195000 LCCADSR2 EQU LCCASPSA 01196000 LCCARV68 EQU LCCA+543 01197000 LCCAPSMK EQU LCCA+542 01198000 LCCARV67 EQU LCCADSF2 01199000 LCCARV66 EQU LCCADSF2 01200000 LCCARV65 EQU LCCADSF2 01201000 LCCARV64 EQU LCCADSF2 01202000 LCCADSRW EQU LCCADSF2 01203000 LCCADSPL EQU LCCADSF2 01204000 LCCAGSRB EQU LCCADSF2 01205000 LCCASRBM EQU LCCADSF2 01206000 LCCARV61 EQU LCCADSF1 01207000 LCCARV60 EQU LCCADSF1 01208000 LCCARV59 EQU LCCADSF1 01209000 LCCARV58 EQU LCCADSF1 01210000 LCCATIMR EQU LCCADSF1 01211000 LCCADSS EQU LCCADSF1 01212000 LCCAVCPU EQU LCCADSF1 01213000 LCCAACR EQU LCCADSF1 01214000 LCCACPUS EQU LCCA+536 01215000 LCCAASCP EQU LCCA+532 01216000 LCCAESSA EQU LCCA+528 01217000 LCCARV55 EQU LCCASPN4 01218000 LCCARV54 EQU LCCASPN4 01219000 LCCARV53 EQU LCCASPN4 01220000 LCCARV52 EQU LCCASPN4 01221000 LCCARV51 EQU LCCASPN4 01222000 LCCARV50 EQU LCCASPN4 01223000 LCCARV49 EQU LCCASPN4 01224000 LCCARV48 EQU LCCASPN4 01225000 LCCARV47 EQU LCCASPN3 01226000 LCCARV46 EQU LCCASPN3 01227000 LCCARV45 EQU LCCASPN3 01228000 LCCARV44 EQU LCCASPN3 01229000 LCCARV43 EQU LCCASPN3 01230000 LCCARV42 EQU LCCASPN3 01231000 LCCARV41 EQU LCCASPN3 01232000 LCCARV40 EQU LCCASPN3 01233000 LCCARV39 EQU LCCASPN2 01234000 LCCARV38 EQU LCCASPN2 01235000 LCCARV37 EQU LCCASPN2 01236000 LCCARV36 EQU LCCASPN2 01237000 LCCARV35 EQU LCCASPN2 01238000 LCCARV34 EQU LCCASPN2 01239000 LCCARV33 EQU LCCASPN2 01240000 LCCARV32 EQU LCCASPN2 01241000 LCCARV31 EQU LCCASPN1 01242000 LCCARV30 EQU LCCASPN1 01243000 LCCAMFIO EQU LCCASPN1 01244000 LCCARSTR EQU LCCASPN1 01245000 LCCATSPN EQU LCCASPN1 01246000 LCCALOCK EQU LCCASPN1 01247000 LCCASIGP EQU LCCASPN1 01248000 LCCAPTLB EQU LCCASPN1 01249000 LCCARV27 EQU LCCAIHR4 01250000 LCCARV26 EQU LCCAIHR4 01251000 LCCARV25 EQU LCCAIHR4 01252000 LCCARV24 EQU LCCAIHR4 01253000 LCCARV23 EQU LCCAIHR4 01254000 LCCARV22 EQU LCCAIHR4 01255000 LCCARV21 EQU LCCAIHR4 01256000 LCCARV20 EQU LCCAIHR4 01257000 LCCARV19 EQU LCCAIHR3 01258000 LCCARV18 EQU LCCAIHR3 01259000 LCCARV17 EQU LCCAIHR3 01260000 LCCARV16 EQU LCCAIHR3 01261000 LCCARV15 EQU LCCAIHR3 01262000 LCCARV14 EQU LCCAIHR3 01263000 LCCARV13 EQU LCCAIHR3 01264000 LCCARV12 EQU LCCAIHR3 01265000 LCCARV11 EQU LCCAIHR2 01266000 LCCARV10 EQU LCCAIHR2 01267000 LCCARV09 EQU LCCAIHR2 01268000 LCCARV08 EQU LCCAIHR2 01269000 LCCARV07 EQU LCCAIHR2 01270000 LCCARV06 EQU LCCAIHR2 01271000 LCCARV05 EQU LCCAIHR2 01272000 LCCARV04 EQU LCCAIHR2 01273000 LCCARV03 EQU LCCAIHR1 01274000 LCCARV02 EQU LCCAIHR1 01275000 LCCARV01 EQU LCCAIHR1 01276000 LCCAPPIE EQU LCCAIHR1 01277000 LCCAPSG1 EQU LCCAIHR1 01278000 LCCAPDAT EQU LCCAIHR1 01279000 LCCAXRC2 EQU LCCAIHR1 01280000 LCCAXRC1 EQU LCCAIHR1 01281000 LCCAIOPS EQU LCCA+512 01282000 LCCAGPGR EQU LCCA+448 01283000 LCCAR133 EQU LCCA+444 01284000 LCCAR132 EQU LCCA+440 01285000 LCCAR131 EQU LCCA+436 01286000 LCCAR130 EQU LCCA+432 01287000 LCCAR129 EQU LCCA+428 01288000 LCCAR128 EQU LCCA+424 01289000 LCCAR127 EQU LCCA+420 01290000 LCCAR126 EQU LCCA+416 01291000 LCCARSGR EQU LCCA+352 01292000 LCCAXGR3 EQU LCCA+288 01293000 LCCAXGR2 EQU LCCA+224 01294000 LCCAXGR1 EQU LCCA+160 01295000 LCCACR0 EQU LCCA+156 01296000 LCCAMCR1 EQU LCCA+152 01297000 LCCAPVAD EQU LCCA+148 01298000 LCCAPINT EQU LCCA+144 01299000 LCCAPPSW EQU LCCA+136 01300000 LCCAPGR2 EQU LCCA+72 01301000 LCCAPGR1 EQU LCCA+8 01302000 LCCARV77 EQU LCCA+6 01303000 LCCACPUA EQU LCCA+4 01304000 LCCALCCA EQU LCCA 01305000 CVTLEVL EQU CVTRELNO+2 01306000 CVTNUMB EQU CVTRELNO 01307000 CVTMDL EQU CVTFIX+250 01308000 @NM00019 EQU CVTFIX+248 01309000 @NM00018 EQU CVTFIX 01310000 CVTRV482 EQU CVTXTNT2+128 01311000 CVTRV481 EQU CVTXTNT2+124 01312000 CVTRV480 EQU CVTXTNT2+120 01313000 CVTRV479 EQU CVTXTNT2+118 01314000 CVTRV478 EQU CVTXTNT2+117 01315000 CVTRV477 EQU CVTXTNT2+116 01316000 CVTRV476 EQU CVTXTNT2+115 01317000 CVTRV475 EQU CVTXTNT2+114 01318000 CVTRV474 EQU CVTRV466 01319000 CVTRV473 EQU CVTRV466 01320000 CVTRV472 EQU CVTRV466 01321000 CVTRV471 EQU CVTRV466 01322000 CVTRV470 EQU CVTRV466 01323000 CVTRV469 EQU CVTRV466 01324000 CVTRV468 EQU CVTRV466 01325000 CVTRV467 EQU CVTRV466 01326000 CVTRV465 EQU CVTRV457 01327000 CVTRV464 EQU CVTRV457 01328000 CVTRV463 EQU CVTRV457 01329000 CVTRV462 EQU CVTRV457 01330000 CVTRV461 EQU CVTRV457 01331000 CVTRV460 EQU CVTRV457 01332000 CVTRV459 EQU CVTRV457 01333000 CVTRV458 EQU CVTRV457 01334000 CVTRV456 EQU CVTXTNT2+108 01335000 CVTRV455 EQU CVTXTNT2+104 01336000 CVTRV454 EQU CVTXTNT2+100 01337000 CVTRV453 EQU CVTXTNT2+96 01338000 CVTRV452 EQU CVTXTNT2+94 01339000 CVTRV451 EQU CVTXTNT2+92 01340000 CVTRV450 EQU CVTXTNT2+90 01341000 CVTRV449 EQU CVTXTNT2+88 01342000 CVTRV448 EQU CVTXTNT2+87 01343000 CVTRV447 EQU CVTXTNT2+86 01344000 CVTRV446 EQU CVTRV438 01345000 CVTRV445 EQU CVTRV438 01346000 CVTRV444 EQU CVTRV438 01347000 CVTRV443 EQU CVTRV438 01348000 CVTRV442 EQU CVTRV438 01349000 CVTRV441 EQU CVTRV438 01350000 CVTRV440 EQU CVTRV438 01351000 CVTRV439 EQU CVTRV438 01352000 CVTRV437 EQU CVTRV429 01353000 CVTRV436 EQU CVTRV429 01354000 CVTRV435 EQU CVTRV429 01355000 CVTRV434 EQU CVTRV429 01356000 CVTRV433 EQU CVTRV429 01357000 CVTRV432 EQU CVTRV429 01358000 CVTRV431 EQU CVTRV429 01359000 CVTRV430 EQU CVTRV429 01360000 CVTRV428 EQU CVTXTNT2+80 01361000 CVTRV427 EQU CVTXTNT2+76 01362000 CVTRV426 EQU CVTXTNT2+72 01363000 CVTRV425 EQU CVTXTNT2+68 01364000 CVTATACT EQU CVTATCVT 01365000 CVTRV423 EQU CVTXTNT2+62 01366000 CVTRV422 EQU CVTXTNT2+60 01367000 CVTRV421 EQU CVTXTNT2+58 01368000 CVTRV420 EQU CVTXTNT2+56 01369000 CVTRV419 EQU CVTXTNT2+55 01370000 CVTRV418 EQU CVTXTNT2+54 01371000 CVTRV417 EQU CVTRV409 01372000 CVTRV416 EQU CVTRV409 01373000 CVTRV415 EQU CVTRV409 01374000 CVTRV414 EQU CVTRV409 01375000 CVTRV413 EQU CVTRV409 01376000 CVTRV412 EQU CVTRV409 01377000 CVTRV411 EQU CVTRV409 01378000 CVTRV410 EQU CVTRV409 01379000 CVTRV408 EQU CVTRV400 01380000 CVTRV407 EQU CVTRV400 01381000 CVTRV406 EQU CVTRV400 01382000 CVTRV405 EQU CVTRV400 01383000 CVTRV404 EQU CVTRV400 01384000 CVTRV403 EQU CVTRV400 01385000 CVTRV402 EQU CVTRV400 01386000 CVTRV401 EQU CVTRV400 01387000 CVTICB EQU CVTXTNT2+48 01388000 CVTSKTA EQU CVTXTNT2+44 01389000 CVTRSV99 EQU CVTXTNT2+40 01390000 CVTRSV98 EQU CVTXTNT2+36 01391000 CVTRSV97 EQU CVTXTNT2+34 01392000 CVTRSV96 EQU CVTXTNT2+32 01393000 CVTOLTEP EQU CVTXTNT2+28 01394000 CVTQIDA EQU CVTQID+1 01395000 CVTRSV95 EQU CVTQID 01396000 CVTRSV94 EQU CVTXTNT2+20 01397000 CVTRSV93 EQU CVTXTNT2+16 01398000 CVTRSV92 EQU CVTXTNT2+12 01399000 CVTDEBVR EQU CVTXTNT2+8 01400000 CVTRSV91 EQU CVTXTNT2+6 01401000 CVTRSV9H EQU CVTFLGBT 01402000 CVTRSV9G EQU CVTFLGBT 01403000 CVTRSV9F EQU CVTFLGBT 01404000 CVTRSV9E EQU CVTFLGBT 01405000 CVTRSV9D EQU CVTFLGBT 01406000 CVTRSV9C EQU CVTFLGBT 01407000 CVTVME EQU CVTFLGBT 01408000 CVTNPE EQU CVTFLGBT 01409000 CVTNUCLS EQU CVTXTNT2+4 01410000 CVTDSSVA EQU CVTDSSV+1 01411000 CVTRSV89 EQU CVTDSSV 01412000 CVTRSV88 EQU CVTXTNT1+8 01413000 CVTRSV87 EQU CVTXTNT1+4 01414000 CVTFACHN EQU CVTXTNT1 01415000 CVTRV488 EQU CVTMAP+412 01416000 CVTRV487 EQU CVTMAP+408 01417000 CVTRV486 EQU CVTMAP+404 01418000 CVTRV485 EQU CVTMAP+400 01419000 CVTACTAP EQU CVTMAP+396 01420000 CVTAUTH EQU CVTMAP+392 01421000 CVTATMCA EQU CVTATMCT+1 01422000 CVTATMST EQU CVTATMCT 01423000 CVTRSV61 EQU CVTMAP+384 01424000 CVTVOLT1 EQU CVTVOLM1+1 01425000 CVTVOLI1 EQU CVTVOLF1 01426000 CVTSTOA EQU CVTMAP+376 01427000 CVTRSV58 EQU CVTMAP+374 01428000 CVTRSV57 EQU CVTMAP+372 01429000 CVTDDCE EQU CVTMAP+368 01430000 CVTPNWFR EQU CVTMAP+364 01431000 CVTSMF EQU CVTMAP+360 01432000 CVTSULK EQU CVTMAP+358 01433000 CVTSLKO EQU CVTSYSK 01434000 CVTSLKP EQU CVTSYSK 01435000 CVTSLKQ EQU CVTSYSK 01436000 CVTSLKR EQU CVTSYSK 01437000 CVTRSV56 EQU CVTSYSK 01438000 CVTRSV55 EQU CVTSYSK 01439000 CVTRSV54 EQU CVTSYSK 01440000 CVTRSV53 EQU CVTSYSK 01441000 CVTRSV52 EQU CVTA1F1 01442000 CVTRSV51 EQU CVTA1F1 01443000 CVTRSV50 EQU CVTA1F1 01444000 CVTRSV49 EQU CVTA1F1 01445000 CVTRSV48 EQU CVTA1F1 01446000 CVTRSV47 EQU CVTA1F1 01447000 CVTSRSW EQU CVTA1F1 01448000 CVTPFSW EQU CVTA1F1 01449000 CVTPCVT EQU CVTMAP+352 01450000 CVTRSV46 EQU CVTMAP+344 01451000 CVTRSV45 EQU CVTMAP+340 01452000 CVTRSV44 EQU CVTMAP+338 01453000 CVTRSV43 EQU CVTMAP+336 01454000 CVTHJESA EQU CVTHJES+1 01455000 CVTRSV42 EQU CVTHJES 01456000 CVTEXT2A EQU CVTEXT2+1 01457000 CVTRSV41 EQU CVTEXT2 01458000 CVTAPFA EQU CVTAPF+1 01459000 CVTRSV40 EQU CVTAPF 01460000 CVTRV518 EQU CVTINTLA 01461000 CVTRV517 EQU CVTERPV 01462000 CVTEORM EQU CVTMAP+312 01463000 CVTMCHPR EQU CVTMAP+308 01464000 CVTTZ EQU CVTMAP+304 01465000 CVTJEPS EQU CVTMAP+300 01466000 CVTJESCT EQU CVTMAP+296 01467000 CVTMODE EQU CVTMAP+292 01468000 CVTPTRV EQU CVTMAP+288 01469000 CVTREAL EQU CVTMAP+284 01470000 CVTRSV39 EQU CVTMAP+280 01471000 CVTRSV38 EQU CVTMAP+276 01472000 CVTDMSRA EQU CVTDMSR+1 01473000 CVTRV634 EQU CVTDMSRF 01474000 CVTRV633 EQU CVTDMSRF 01475000 CVTRV632 EQU CVTDMSRF 01476000 CVTRV631 EQU CVTDMSRF 01477000 CVTRV630 EQU CVTDMSRF 01478000 CVTRV629 EQU CVTDMSRF 01479000 CVTUDUMP EQU CVTDMSRF 01480000 CVTSDUMP EQU CVTDMSRF 01481000 CVTQMSGA EQU CVTQMSG+1 01482000 CVTRSV36 EQU CVTQMSG 01483000 CVTAMFF EQU CVTMAP+264 01484000 CVTPURGA EQU CVTPURG+1 01485000 CVTRSV35 EQU CVTPURG 01486000 CVTCBSP EQU CVTMAP+256 01487000 CVTATERA EQU CVTATER+1 01488000 CVTSYST EQU CVTATER 01489000 CVTVOLT2 EQU CVTTAT 01490000 CVTVOLI2 EQU CVTVOLF2 01491000 CVTAQAVB EQU CVTAQAVT+1 01492000 CVTRSV34 EQU CVTTCMFG 01493000 CVTRSV33 EQU CVTTCMFG 01494000 CVTRSV32 EQU CVTTCMFG 01495000 CVTRSV31 EQU CVTTCMFG 01496000 CVTRSV30 EQU CVTTCMFG 01497000 CVTRSV29 EQU CVTTCMFG 01498000 CVTRSV28 EQU CVTTCMFG 01499000 CVTTCRDY EQU CVTTCMFG 01500000 CVTGTFA EQU CVTGTF+1 01501000 CVTRSV27 EQU CVTGTFST 01502000 CVTRNIO EQU CVTGTFST 01503000 CVTUSR EQU CVTGTFST 01504000 CVTRV318 EQU CVTFORM 01505000 CVTRV317 EQU CVTTMODE 01506000 CVTRV316 EQU CVTSTATE 01507000 CVTRV315 EQU CVTGTFS 01508000 CVTGTFAV EQU CVTGTFS 01509000 CVT0SCR1 EQU CVTMAP+232 01510000 CVTRV515 EQU CVTMAP+228 01511000 CVTRMS EQU CVTMAP+224 01512000 CVTPATCH EQU CVTMAP+220 01513000 CVTTSCE EQU CVTMAP+216 01514000 CVTLNKSC EQU CVTMAP+214 01515000 CVTQABST EQU CVTMAP+212 01516000 CVTMDLDS EQU CVTMAP+208 01517000 CVTUSER EQU CVTMAP+204 01518000 CVTABEND EQU CVTMAP+200 01519000 CVTSMCA EQU CVTMAP+196 01520000 CVTRSV18 EQU CVTMAP+192 01521000 CVTQLPAQ EQU CVTMAP+188 01522000 CVTQCDSR EQU CVTMAP+184 01523000 CVTRSV17 EQU CVTOPTB 01524000 CVTRSV16 EQU CVTOPTB 01525000 CVTFP EQU CVTOPTB 01526000 CVTAPTHR EQU CVTOPTB 01527000 CVTNLOG EQU CVTOPTB 01528000 CVTTOD EQU CVTOPTB 01529000 CVTCTIMS EQU CVTOPTB 01530000 CVTPROT EQU CVTOPTB 01531000 CVTXPFP EQU CVTOPTA 01532000 CVTASCII EQU CVTOPTA 01533000 CVTRSV13 EQU CVTOPTA 01534000 CVTRSV12 EQU CVTOPTA 01535000 CVTNIP EQU CVTOPTA 01536000 CVTDDR EQU CVTOPTA 01537000 CVTAPR EQU CVTOPTA 01538000 CVTCCH EQU CVTOPTA 01539000 CVTSNCTR EQU CVTMAP+180 01540000 CVTQMWR EQU CVTMAP+176 01541000 CVTQOCR EQU CVTMAP+172 01542000 CVT1EF00 EQU CVTMAP+168 01543000 CVTMZ00 EQU CVTMAP+164 01544000 CVTHEAD EQU CVTMAP+160 01545000 CVTRSV11 EQU CVTMAP+156 01546000 CVT0PT01 EQU CVTMAP+152 01547000 CVTMSER EQU CVTMAP+148 01548000 CVTRV516 EQU CVTIERLC 01549000 CVTILCH EQU CVTMAP+140 01550000 CVT0DS EQU CVTMAP+136 01551000 CVTFBOSV EQU CVTMAP+132 01552000 CVTNUCB EQU CVTMAP+128 01553000 CVTIXAVL EQU CVTMAP+124 01554000 CVTIOQET EQU CVTMAP+120 01555000 CVTDCBA EQU CVTMAP+117 01556000 CVTMVS2 EQU CVTDCB 01557000 CVT6DAT EQU CVTDCB 01558000 CVT4MPS EQU CVTDCB 01559000 CVTRSV09 EQU CVTDCB 01560000 CVT4MS1 EQU CVTDCB 01561000 CVT2SPS EQU CVTDCB 01562000 CVT1SSS EQU CVTDCB 01563000 CVTRSV08 EQU CVTDCB 01564000 CVTSTB EQU CVTMAP+112 01565000 CVTQTD00 EQU CVTMAP+108 01566000 CVTQTE00 EQU CVTMAP+104 01567000 CVTCUCB EQU CVTMAP+100 01568000 CVTSJQ EQU CVTMAP+96 01569000 CVTPBLDL EQU CVTMAP+92 01570000 CVTTPC EQU CVTMAP+88 01571000 CVTSVDCB EQU CVTMAP+84 01572000 CVTBRET EQU CVTMAP+82 01573000 CVTEXIT EQU CVTMAP+80 01574000 CVT0FN00 EQU CVTMAP+76 01575000 CVTDARA EQU CVTDAR+1 01576000 CVTRSV07 EQU CVTFLGS1 01577000 CVTRSV06 EQU CVTFLGS1 01578000 CVTRSV05 EQU CVTFLGS1 01579000 CVTRSV04 EQU CVTFLGS1 01580000 CVTRSV03 EQU CVTFLGS1 01581000 CVTRSV02 EQU CVTFLGS1 01582000 CVTRSV01 EQU CVTFLGS1 01583000 CVTDMPLK EQU CVTFLGS1 01584000 CVTXITP EQU CVTMAP+68 01585000 CVTZDTAB EQU CVTMAP+64 01586000 CVTMSLT EQU CVTMAP+60 01587000 CVTDATE EQU CVTMAP+56 01588000 CVTBTERM EQU CVTMAP+52 01589000 CVTSYSAD EQU CVTMAP+48 01590000 CVTXTLER EQU CVTMAP+44 01591000 CVTILK2 EQU CVTMAP+40 01592000 CVTILK1 EQU CVTMAP+36 01593000 CVTPRLTV EQU CVTMAP+32 01594000 CVTPCNVT EQU CVTMAP+28 01595000 CVT0VL00 EQU CVTMAP+24 01596000 CVTXAPG EQU CVTMAP+20 01597000 CVTBUF EQU CVTMAP+16 01598000 CVTJOB EQU CVTMAP+12 01599000 CVTLINK EQU CVTMAP+8 01600000 CVT0EF00 EQU CVTMAP+4 01601000 CVTTCBP EQU CVTMAP 01602000 CVT EQU CVTMAP 01603000 ATAAIAQ EQU ATALGE 01604000 ATAACE EQU ATAAIA 01605000 ATARCODE EQU ATA+7 01606000 ATARCRF8 EQU ATARCRSN 01607000 ATARCRF7 EQU ATARCRSN 01608000 ATARCRF6 EQU ATARCRSN 01609000 ATARCRF5 EQU ATARCRSN 01610000 ATARCRF4 EQU ATARCRSN 01611000 ATARCRF3 EQU ATARCRSN 01612000 ATARCRF2 EQU ATARCRSN 01613000 ATARCRF1 EQU ATARCRSN 01614000 ATARSV2 EQU ATARFLGS 01615000 ATABADPK EQU ATARFLGS 01616000 ATASCCWP EQU ATARFLGS 01617000 ATASGNST EQU ATARFLGS 01618000 ATARSV1 EQU ATASFLGS+1 01619000 ATASRT EQU ATASFLGS+1 01620000 ATASWPDR EQU ATASFLGS+1 01621000 ATATRPAG EQU ATASFLGS+1 01622000 ATASWAP EQU ATASFLGS+1 01623000 ATAPAGCM EQU ATASFLGS 01624000 ATAPAGIO EQU ATASFLGS 01625000 ATAPOS EQU ATASFLGS 01626000 ATAPCOMP EQU ATASFLGS 01627000 ATASCOMP EQU ATASFLGS 01628000 ATASLSQA EQU ATASFLGS 01629000 ATAQIOE EQU ATASFLGS 01630000 ATAMODID EQU ATA 01631000 ASPSLOT EQU ASPVLSID+1 01632000 ASPPRTNN EQU ASPVLSID 01633000 @NM00017 EQU ASPLPFLG 01634000 ASPLSVRP EQU ASPLPFLG 01635000 ASPLSAVE EQU ASPLPFLG 01636000 @NM00016 EQU ASPEXTSN+1088 01637000 @NM00015 EQU ASPEHDR+24 01638000 ASPASSTI EQU ASPEHDR+22 01639000 @NM00014 EQU ASPEHDR+21 01640000 ASPASSTN EQU ASPEHDR+20 01641000 ASPEXTNM EQU ASPEXKEY+8 01642000 ASPESSYM EQU ASPEXKEY 01643000 @NM00013 EQU ASPEHDR+4 01644000 ASPEIDNT EQU ASPEHDR 01645000 @NM00012 EQU ASPCT+1088 01646000 ASPLPMES EQU ASPCT+64 01647000 ASPASSTP EQU ASPCT+48 01648000 ASPAEXCT EQU ASPHDR+46 01649000 ASPLEXCT EQU ASPHDR+44 01650000 ASPSAVCT EQU ASPHDR+40 01651000 ASPBKSLT EQU ASPHDR+36 01652000 ASPMAXPN EQU ASPHDR+32 01653000 @NM00011 EQU ASPHDR+29 01654000 @NM00010 EQU ASPFLAG 01655000 ASPSAVRP EQU ASPFLAG 01656000 ASPSAVED EQU ASPFLAG 01657000 ASPLGE EQU ASPHDR+24 01658000 ASPASCB EQU ASPHDR+20 01659000 @NM00009 EQU ASPBKEY+8 01660000 ASPSSYM EQU ASPBKEY 01661000 ASPLGID EQU ASPHDR+4 01662000 ASPIDENT EQU ASPHDR 01663000 ASMCPRES EQU ASMCPRSQ+4 01664000 ASMCPTAK EQU ASMCPRSQ 01665000 ASMCPCNT EQU ASMCPAVQ+4 01666000 ASMCPEXT EQU ASMPOOLS+6 01667000 ASMCPSIZ EQU ASMPOOLS+4 01668000 ASMCPID EQU ASMPOOLS 01669000 ASMRSV12 EQU ASMVT+1000 01670000 ASMSAVE EQU ASMVT+928 01671000 ASMWKSA7 EQU ASMVT+848 01672000 ASMSWKPC EQU ASMVT+328 01673000 ASMBWKPC EQU ASMVT+312 01674000 ASMIOEPC EQU ASMVT+296 01675000 ASMRSV10 EQU ASMVT+280 01676000 ASMPVACE EQU ASMVT+276 01677000 ASMPIOFR EQU ASMVT+272 01678000 ASMPVACQ EQU ASMVT+268 01679000 ASMPMSGS EQU ASMVT+264 01680000 ASMPMSG0 EQU ASMVT+260 01681000 ASMPFRLG EQU ASMVT+256 01682000 ASMPRLG EQU ASMVT+252 01683000 ASMPACT EQU ASMVT+248 01684000 ASMPSAV EQU ASMVT+244 01685000 ASMPCMP EQU ASMVT+240 01686000 ASMPCMPA EQU ASMVT+236 01687000 ASMPCMPN EQU ASMVT+232 01688000 ASMPCMPD EQU ASMVT+228 01689000 ASMVRMTR EQU ASMVT+220 01690000 ASMPSRBC EQU ASMVT+216 01691000 ASMPSRMT EQU ASMVT+212 01692000 ASMPSWPD EQU ASMVT+208 01693000 ASMPTM EQU ASMVT+204 01694000 ASMPFRSW EQU ASMVT+200 01695000 ASMPFRSL EQU ASMVT+196 01696000 ASMPQIOE EQU ASMVT+192 01697000 ASMRSV8 EQU ASMVT+184 01698000 ASMTASCB EQU ASMVT+180 01699000 ASMRLGWQ EQU ASMVT+176 01700000 ASMRLGRQ EQU ASMVT+172 01701000 ASMTMECB EQU ASMVT+168 01702000 ASMTCBPT EQU ASMVT+164 01703000 ASMREQCT EQU ASMVT+160 01704000 ASMGOSWK EQU ASMGOSQS+4 01705000 ASMGOSWT EQU ASMGOSQS 01706000 ASMLSAIH EQU ASMLSAI+4 01707000 ASMLSAIL EQU ASMLSAI 01708000 ASMCINV EQU ASMVT+140 01709000 ASMSTGXA EQU ASMVT+136 01710000 ASMLGVT EQU ASMVT+132 01711000 ASMSLOTV EQU ASMVT+128 01712000 ASMERRS EQU ASMVT+124 01713000 ASMNVSC EQU ASMVT+120 01714000 ASMVSC EQU ASMVT+116 01715000 ASMSLOTS EQU ASMVT+112 01716000 ASMBKSLT EQU ASMVT+108 01717000 ASMRSV7 EQU ASMVT+92 01718000 ASMPSRB EQU ASMVT+88 01719000 ASMSRBCT EQU ASMVT+84 01720000 ASMIOCNT EQU ASMVT+80 01721000 ASMBURST EQU ASMVT+76 01722000 ASMPCCWN EQU ASMVT+72 01723000 ASMPCCWC EQU ASMPCCWQ+4 01724000 ASMPCCWA EQU ASMPCCWQ 01725000 ASMRSV6 EQU ASMVT+48 01726000 ASMIORQC EQU ASMVT+44 01727000 ASMIORQR EQU ASMVT+40 01728000 ASMSTAGL EQU ASMSTAGQ+4 01729000 ASMSTAGF EQU ASMSTAGQ 01730000 ASMRSV5 EQU ASMVT+28 01731000 ASMMSGBF EQU ASMVT+24 01732000 ASMEREC EQU ASMVT+20 01733000 ASMTRPAG EQU ASMVT+16 01734000 ASMGOS EQU ASMVT+12 01735000 ASMPART EQU ASMVT+8 01736000 ASMSART EQU ASMVT+4 01737000 ASMRSV4 EQU ASMVT+2 01738000 ASMWARM EQU ASMFLAG2 01739000 ASMQUICK EQU ASMFLAG2 01740000 ASMNOTPT EQU ASMFLAG2 01741000 ASMNOTMR EQU ASMFLAG2 01742000 ASMNOSAV EQU ASMFLAG2 01743000 ASMCALLQ EQU ASMFLAG2 01744000 ASMPLPAS EQU ASMFLAG1 01745000 ASMCOMMF EQU ASMFLAG1 01746000 ASMPLPAF EQU ASMFLAG1 01747000 ASMNODPX EQU ASMFLAG1 01748000 ASMRSV1 EQU ASMFLAG1 01749000 ASMNOLCL EQU ASMFLAG1 01750000 ASMNOCWQ EQU ASMFLAG1 01751000 ASMDUPLX EQU ASMFLAG1 01752000 ASCBEND EQU ASCB+208 01753000 ASCBSRBT EQU ASCB+200 01754000 ASCBSWTL EQU ASCB+196 01755000 ASCBRS14 EQU ASCB+195 01756000 ASCBSMCT EQU ASCB+194 01757000 ASCBRS12 EQU ASCB+192 01758000 ASCBPCTT EQU ASCB+188 01759000 ASCBVGTT EQU ASCB+184 01760000 ASCBRV43 EQU ASCBSRQ4 01761000 ASCBRV42 EQU ASCBSRQ4 01762000 ASCBRV41 EQU ASCBSRQ4 01763000 ASCBRV40 EQU ASCBSRQ4 01764000 ASCBRV39 EQU ASCBSRQ4 01765000 ASCBRV38 EQU ASCBSRQ4 01766000 ASCBRV37 EQU ASCBSRQ4 01767000 ASCBRV36 EQU ASCBSRQ4 01768000 ASCBRV35 EQU ASCBSRQ3 01769000 ASCBRV34 EQU ASCBSRQ3 01770000 ASCBRV33 EQU ASCBSRQ3 01771000 ASCBRV32 EQU ASCBSRQ3 01772000 ASCBRV31 EQU ASCBSRQ3 01773000 ASCBRV30 EQU ASCBSRQ3 01774000 ASCBRV29 EQU ASCBSRQ3 01775000 ASCBRV28 EQU ASCBSRQ3 01776000 ASCBRV27 EQU ASCBSRQ2 01777000 ASCBRV26 EQU ASCBSRQ2 01778000 ASCBRV25 EQU ASCBSRQ2 01779000 ASCBRV24 EQU ASCBSRQ2 01780000 ASCBRV23 EQU ASCBSRQ2 01781000 ASCBRV22 EQU ASCBSRQ2 01782000 ASCBRV21 EQU ASCBSRQ2 01783000 ASCBRV20 EQU ASCBSRQ2 01784000 ASCBRV19 EQU ASCBSRQ1 01785000 ASCBRV18 EQU ASCBSRQ1 01786000 ASCBRV17 EQU ASCBSRQ1 01787000 ASCBRV16 EQU ASCBSRQ1 01788000 ASCBRV15 EQU ASCBSRQ1 01789000 ASCBRV14 EQU ASCBSRQ1 01790000 ASCBRV13 EQU ASCBSRQ1 01791000 ASCBSTA EQU ASCBSRQ1 01792000 ASCBJBNS EQU ASCB+176 01793000 ASCBJBNI EQU ASCB+172 01794000 ASCBMCC EQU ASCB+168 01795000 ASCBRTWA EQU ASCB+164 01796000 ASCBIQEA EQU ASCB+160 01797000 ASCBXMPQ EQU ASCB+156 01798000 ASCBRS01 EQU ASCB+154 01799000 ASCBFMCT EQU ASCB+152 01800000 ASCBOUXB EQU ASCB+148 01801000 ASCBOUCB EQU ASCB+144 01802000 ASCBMECB EQU ASCB+140 01803000 ASCBQECB EQU ASCB+136 01804000 ASCBLSQH EQU ASCBLKGP+4 01805000 ASCBLOCK EQU ASCBLKGP 01806000 ASCBTCBS EQU ASCB+124 01807000 ASCBNVSC EQU ASCB+122 01808000 ASCBVSC EQU ASCB+120 01809000 ASCBSRBS EQU ASCB+118 01810000 ASCBSSRB EQU ASCB+116 01811000 ASCBRV06 EQU ASCBFLG2 01812000 ASCBRV05 EQU ASCBFLG2 01813000 ASCBRV04 EQU ASCBFLG2 01814000 ASCBSNQS EQU ASCBFLG2 01815000 ASCBS2S EQU ASCBFLG2 01816000 ASCBCEXT EQU ASCBFLG2 01817000 ASCBPXMT EQU ASCBFLG2 01818000 ASCBXMPT EQU ASCBFLG2 01819000 ASCBRF07 EQU ASCBDSP1 01820000 ASCBRF06 EQU ASCBDSP1 01821000 ASCBRF05 EQU ASCBDSP1 01822000 ASCBRF04 EQU ASCBDSP1 01823000 ASCBRF03 EQU ASCBDSP1 01824000 ASCBRF02 EQU ASCBDSP1 01825000 ASCBFAIL EQU ASCBDSP1 01826000 ASCBNOQ EQU ASCBDSP1 01827000 ASCBSWCT EQU ASCB+112 01828000 ASCBASXB EQU ASCB+108 01829000 ASCBTMCH EQU ASCB+104 01830000 ASCBNSWP EQU ASCBFLG1 01831000 ASCBTYP1 EQU ASCBFLG1 01832000 ASCBSTND EQU ASCBFLG1 01833000 ASCBABNT EQU ASCBFLG1 01834000 ASCBTERM EQU ASCBFLG1 01835000 ASCBS3S EQU ASCBFLG1 01836000 ASCBCMSH EQU ASCBFLG1 01837000 ASCBTOFF EQU ASCBFLG1 01838000 ASCBRF01 EQU ASCBRCTF 01839000 ASCBTMLW EQU ASCBRCTF 01840000 ASCBOUT EQU ASCBRCTF 01841000 ASCBWAIT EQU ASCBRCTF 01842000 ASCBRV08 EQU ASCBRCTF 01843000 ASCBFQU EQU ASCBRCTF 01844000 ASCBFRS EQU ASCBRCTF 01845000 ASCBTMNO EQU ASCBRCTF 01846000 ASCBAFFN EQU ASCBFW1 01847000 ASCBDUMP EQU ASCB+96 01848000 ASCBRV44 EQU ASCB+92 01849000 ASCBUBET EQU ASCB+88 01850000 ASCBECB EQU ASCB+84 01851000 ASCBJSTL EQU ASCB+80 01852000 ASCBEWST EQU ASCB+72 01853000 ASCBEJST EQU ASCB+64 01854000 ASCBTSB EQU ASCB+60 01855000 ASCBCSCB EQU ASCB+56 01856000 ASCBRSM EQU ASCB+52 01857000 ASCBLDA EQU ASCB+48 01858000 ASCBDP EQU ASCB+43 01859000 ASCBRV07 EQU ASCB+42 01860000 ASCBIOSM EQU ASCB+40 01861000 ASCBSEQN EQU ASCB+38 01862000 ASCBCPUS EQU ASCB+32 01863000 ASCBSPL EQU ASCB+28 01864000 ASCBIOSP EQU ASCB+24 01865000 ASCBSYNC EQU ASCBSUPC+4 01866000 ASCBSVRB EQU ASCBSUPC 01867000 ASCBCMSF EQU ASCB+12 01868000 ASCBBWDP EQU ASCB+8 01869000 ASCBFWDP EQU ASCB+4 01870000 ASCBASCB EQU ASCB 01871000 ASCBEGIN EQU ASCB 01872000 AIADPXCT EQU AIALGE 01873000 AIASLOT EQU AIASSID+1 01874000 @NM00004 EQU AIASSID 01875000 @NM00003 EQU AIALSID 01876000 AIARCSN EQU AIANXAIA+2 01877000 AIACYL EQU AIANXAIA 01878000 AIARSV9 EQU AIAFLG3 01879000 AIARSV8 EQU AIAFLG3 01880000 AIARSV7 EQU AIAFLG3 01881000 AIALPMEC EQU AIAFLG3 01882000 AIARSV6 EQU AIAFLG3 01883000 AIARSV5 EQU AIAFLG3 01884000 AIASECER EQU AIAFLG2 01885000 AIARSV4 EQU AIAFLG2 01886000 AIAIORTY EQU AIAFLG2 01887000 AIATERMR EQU AIAFLG2 01888000 AIAFRAUX EQU AIAFLG2 01889000 AIARSV1 EQU AIAFLG1 01890000 AIASWPFX EQU AIAFLG1 01891000 AIAPAGDS EQU AIAFLG1 01892000 AIALSQA EQU AIAFLG1 01893000 AIADUPLX EQU AIAFLG1 01894000 AIAVIO EQU AIAFLG1 01895000 AIAPRIV EQU AIAFLG1 01896000 AIAOP EQU AIA+8 01897000 @NM00002 EQU ACE+40 01898000 ACESRBWK EQU ACE+36 01899000 ACEECB EQU ACE+32 01900000 ACEAIAPT EQU ACESYM+4 01901000 ACEVLSID EQU ACESRCID+1 01902000 @NM00001 EQU ACESRCID 01903000 ACELGID EQU ACELGN 01904000 ACERSV10 EQU ACEFLG3 01905000 ACERSV9 EQU ACEFLG3 01906000 ACERSV8 EQU ACEFLG3 01907000 ACELPMEC EQU ACEFLG3 01908000 ACERSV7 EQU ACEFLG3 01909000 ACERSV6 EQU ACEFLG3 01910000 ACEPRINO EQU ACEFLG3 01911000 ACEGRPRQ EQU ACEFLG3 01912000 ACEFLG2 EQU ACE+10 01913000 ACERSV5 EQU ACEFLG1 01914000 ACERSV4 EQU ACEFLG1 01915000 ACERSV3 EQU ACEFLG1 01916000 ACERSV2 EQU ACEFLG1 01917000 ACENOACT EQU ACEFLG1 01918000 ACEUSYM EQU ACEFLG1 01919000 ACEOP EQU ACE+8 01920000 ACEBQPA EQU ACE+4 01921000 ACEFQPA EQU ACE 01922000 @NM00045 EQU PSA+3668 01923000 PSASTAK EQU PSA+3072 01924000 @NM00044 EQU PSA+1048 01925000 PSAUSEND EQU PSA+1048 01926000 PSARV062 EQU PSA+1044 01927000 PSACDAL EQU PSA+1040 01928000 PSAWTCOD EQU PSA+1036 01929000 PSAATCVT EQU PSA+1032 01930000 PSAPCPSW EQU PSA+1024 01931000 PSAPIR2 EQU PSA+1020 01932000 PSARV059 EQU PSA+1018 01933000 PSASVC13 EQU PSA+1016 01934000 PSALSFCC EQU PSA+1012 01935000 PSASFACC EQU PSA+1008 01936000 PSASTOP EQU PSA+992 01937000 PSASTART EQU PSA+976 01938000 PSARSPSW EQU PSA+968 01939000 PSASRPSW EQU PSA+960 01940000 PSARV045 EQU PSA+892 01941000 PSARV044 EQU PSA+888 01942000 PSARV043 EQU PSA+884 01943000 PSARV042 EQU PSA+880 01944000 PSARV041 EQU PSA+876 01945000 PSARV040 EQU PSA+872 01946000 PSARV025 EQU PSA+868 01947000 PSADSSED EQU PSA+868 01948000 PSADSSPR EQU PSA+864 01949000 PSADSSFW EQU PSA+860 01950000 PSADSS14 EQU PSA+856 01951000 PSADSSPP EQU PSA+848 01952000 PSADSSRP EQU PSA+840 01953000 PSADSS05 EQU PSADSSF4 01954000 PSADSS10 EQU PSADSSF4 01955000 PSADSSVE EQU PSADSSF4 01956000 PSADSSDE EQU PSADSSF4 01957000 PSADSSC0 EQU PSADSSF4 01958000 PSADSSIE EQU PSADSSF4 01959000 PSADSS12 EQU PSADSSF4 01960000 PSADSSRC EQU PSADSSF4 01961000 PSARV057 EQU PSADSSF3 01962000 PSARV056 EQU PSADSSF3 01963000 PSARV055 EQU PSADSSF3 01964000 PSADSSMC EQU PSADSSF3 01965000 PSADSSRW EQU PSADSSF3 01966000 PSADSSNM EQU PSADSSF3 01967000 PSADSSES EQU PSADSSF3 01968000 PSADSSGP EQU PSADSSF3 01969000 PSADSSF2 EQU PSADSSFL+1 01970000 PSADSSPI EQU PSADSSF1 01971000 PSADSSOI EQU PSADSSF1 01972000 PSADSSSP EQU PSADSSF1 01973000 PSADSSTP EQU PSADSSF1 01974000 PSADSSDW EQU PSADSSF1 01975000 PSADSSDD EQU PSADSSF1 01976000 PSADSSDM EQU PSADSSF1 01977000 PSADSSMV EQU PSADSSF1 01978000 PSADSSTS EQU PSA+816 01979000 PSADSSWK EQU PSA+812 01980000 PSADSSR3 EQU PSA+808 01981000 PSADSSR2 EQU PSA+804 01982000 PSADSSRS EQU PSA+800 01983000 PSASTOR EQU PSA+796 01984000 PSACPUSA EQU PSA+794 01985000 PSAVSTAP EQU PSA+792 01986000 PSAWKVAP EQU PSA+788 01987000 PSAWKRAP EQU PSA+784 01988000 PSAMCHIC EQU PSA+783 01989000 PSARV061 EQU PSA+782 01990000 PSASYMSK EQU PSA+781 01991000 PSAMCHFL EQU PSA+780 01992000 PSACR0 EQU PSA+776 01993000 PSAPSWSV EQU PSA+768 01994000 PSACLHS EQU PSAHLHI 01995000 PSALKR15 EQU PSALKSA+60 01996000 PSALKR14 EQU PSALKSA+56 01997000 PSALKR13 EQU PSALKSA+52 01998000 PSALKR12 EQU PSALKSA+48 01999000 PSALKR11 EQU PSALKSA+44 02000000 PSALKR10 EQU PSALKSA+40 02001000 PSALKR9 EQU PSALKSA+36 02002000 PSALKR8 EQU PSALKSA+32 02003000 PSALKR7 EQU PSALKSA+28 02004000 PSALKR6 EQU PSALKSA+24 02005000 PSALKR5 EQU PSALKSA+20 02006000 PSALKR4 EQU PSALKSA+16 02007000 PSALKR3 EQU PSALKSA+12 02008000 PSALKR2 EQU PSALKSA+8 02009000 PSALKR1 EQU PSALKSA+4 02010000 PSALKR0 EQU PSALKSA 02011000 PSARV023 EQU PSACLHT+52 02012000 PSALOCAL EQU PSACLHT+48 02013000 PSACMSL EQU PSACLHT+44 02014000 PSAOPTL EQU PSACLHT+40 02015000 PSATPACL EQU PSACLHT+36 02016000 PSATPDNL EQU PSACLHT+32 02017000 PSATPNCL EQU PSACLHT+28 02018000 PSAIOSLL EQU PSACLHT+24 02019000 PSAIOSUL EQU PSACLHT+20 02020000 PSAIOSCL EQU PSACLHT+16 02021000 PSAIOSSL EQU PSACLHT+12 02022000 PSASALCL EQU PSACLHT+8 02023000 PSAASML EQU PSACLHT+4 02024000 PSADISPL EQU PSACLHT 02025000 PSASRSA EQU PSA+636 02026000 PSARV050 EQU PSA+634 02027000 PSADSSGO EQU PSA+633 02028000 PSARECUR EQU PSA+632 02029000 PSAHLHIS EQU PSA+628 02030000 PSAIPCSA EQU PSA+624 02031000 @NM00043 EQU PSA+621 02032000 PSAIPCDM EQU PSA+620 02033000 PSAIPCD EQU PSA+616 02034000 @NM00042 EQU PSA+613 02035000 PSAIPCRM EQU PSA+612 02036000 PSAIPCR EQU PSA+608 02037000 PSAMCHEX EQU PSA+600 02038000 PSAMPSW EQU PSA+592 02039000 PSAEXPS2 EQU PSA+584 02040000 PSAEXPS1 EQU PSA+576 02041000 PSAPIREG EQU PSA+572 02042000 PSARSREG EQU PSA+568 02043000 PSAGPREG EQU PSA+556 02044000 PSARV022 EQU PSASUP4 02045000 PSARV021 EQU PSASUP4 02046000 PSARV020 EQU PSASUP4 02047000 PSARV019 EQU PSASUP4 02048000 PSARV018 EQU PSASUP4 02049000 PSARV017 EQU PSASUP4 02050000 PSARV016 EQU PSASUP4 02051000 PSARV015 EQU PSASUP4 02052000 PSARV014 EQU PSASUP3 02053000 PSARV013 EQU PSASUP3 02054000 PSARV012 EQU PSASUP3 02055000 PSAESTA EQU PSASUP3 02056000 PSASPR EQU PSASUP3 02057000 PSAPSREG EQU PSASUP3 02058000 PSAPI2 EQU PSASUP3 02059000 PSAIOSUP EQU PSASUP3 02060000 PSALCR EQU PSASUP2 02061000 PSARTM EQU PSASUP2 02062000 PSAACR EQU PSASUP2 02063000 PSAIPCE2 EQU PSASUP2 02064000 PSAIPCES EQU PSASUP2 02065000 PSAIPCEC EQU PSASUP2 02066000 PSAGTF EQU PSASUP2 02067000 PSAIPCRI EQU PSASUP2 02068000 PSATYPE6 EQU PSASUP1 02069000 PSATCTL EQU PSASUP1 02070000 PSADISP EQU PSASUP1 02071000 PSALOCK EQU PSASUP1 02072000 PSAPI EQU PSASUP1 02073000 PSAEXT EQU PSASUP1 02074000 PSASVC EQU PSASUP1 02075000 PSAIO EQU PSASUP1 02076000 PSAANEW EQU PSA+544 02077000 PSATOLD EQU PSA+540 02078000 PSATNEW EQU PSA+536 02079000 PSALCCAR EQU PSA+532 02080000 PSAPCCAR EQU PSA+524 02081000 PSAPCCAV EQU PSA+520 02082000 PSACPULA EQU PSA+518 02083000 PSACPUPA EQU PSA+516 02084000 PSAPSA EQU PSA+512 02085000 FLCHDEND EQU PSA+512 02086000 FLCCRSAV EQU FLCMCLA+280 02087000 FLCGRSAV EQU FLCMCLA+216 02088000 FLCFPSAV EQU FLCMCLA+184 02089000 FLCFLA EQU FLCMCLA+88 02090000 FLCRGNCD EQU FLCMCLA+84 02091000 FLCFSAA EQU FLCFSA+1 02092000 @NM00041 EQU FLCFSA 02093000 @NM00040 EQU FLCMCLA+72 02094000 FLCMCIC EQU FLCMCLA+64 02095000 @NM00039 EQU FLCMCLA+20 02096000 FLCIOAA EQU FLCIOA+1 02097000 @NM00038 EQU FLCIOA 02098000 @NM00037 EQU FLCMCLA+15 02099000 @NM00036 EQU FLCMCLA+14 02100000 @NM00035 EQU FLCMCLA+12 02101000 FLCLCL EQU FLCMCLA+8 02102000 FLCIOELA EQU FLCIOEL+1 02103000 @NM00034 EQU FLCIOEL 02104000 FLCCHNID EQU FLCMCLA 02105000 @NM00033 EQU PSA+160 02106000 FLCMTRCD EQU PSA+157 02107000 @NM00032 EQU PSA+156 02108000 FLCPERA EQU FLCPER+1 02109000 @NM00031 EQU FLCPER 02110000 @NM00030 EQU PSA+151 02111000 FLCPERCD EQU PSA+150 02112000 FLCMCNUM EQU PSA+149 02113000 @NM00029 EQU PSA+148 02114000 FLCTEAA EQU FLCTEA+1 02115000 @NM00028 EQU FLCTEA 02116000 PSAPIPC EQU PSAPICOD 02117000 PSAPIMC EQU PSAPICOD 02118000 PSAPIPER EQU PSAPICOD 02119000 PSARV049 EQU FLCPICOD 02120000 FLCPILCB EQU FLCPIILC 02121000 @NM00027 EQU FLCPIILC 02122000 @NM00026 EQU PSAEPPSW 02123000 FLCSVCN EQU PSAESPSW+2 02124000 FLCSILCB EQU FLCSVILC 02125000 @NM00025 EQU FLCSVILC 02126000 @NM00024 EQU PSAESPSW 02127000 FLCEICOD EQU PSAEEPSW+2 02128000 PSASPAD EQU PSAEEPSW 02129000 @NM00023 EQU PSA+128 02130000 FLCINPSW EQU PSA+120 02131000 FLCMNPSW EQU PSA+112 02132000 FLCPNPSW EQU PSA+104 02133000 FLCSNPSW EQU PSA+96 02134000 FLCENPSW EQU PSA+88 02135000 FLCTRACE EQU PSA+84 02136000 FLCTIMER EQU PSA+80 02137000 FLCCVT2 EQU PSA+76 02138000 FLCCAW EQU PSA+72 02139000 FLCCSW EQU PSA+64 02140000 FLCIOPSW EQU PSA+56 02141000 FLCMOPSW EQU PSA+48 02142000 FLCPOPSW EQU PSA+40 02143000 FLCSOPSW EQU PSA+32 02144000 FLCEOPSW EQU PSA+24 02145000 @NM00022 EQU FLCICCW2+4 02146000 FLCICCW1 EQU FLCROPSW 02147000 FLCIPPSW EQU FLCRNPSW 02148000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02149000 @RC00069 EQU @RC00066 02150000 @RC00171 EQU @RC00168 02151000 @ENDDATA EQU * 02152000 END ILRVIOCM,(C'PLS1210',0701,76091) 02153000