TITLE 'ILRSRB01: ASM SRB CONTROLLER RECOVERY *00001000 ' 00002000 ILRSRB01 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ILRSRB01 76.114' 0001 00008000 DROP @15 00009000 @PROLOG BALR @10,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@10 0001 00012000 * SRBDREG=R0; /* ESTABLISH DATA REG */ 00013000 LR SRBDREG,R0 0049 00014000 * FRRWORKA=''B; /* CLEAR WORKAREA STORAGE */ 00015000 XC FRRWORKA(200,SRBDREG),FRRWORKA(SRBDREG) 0050 00016000 * SAVER14=R14; /* SAVE RETURN REGISTER */ 00017000 ST R14,SAVER14(,SRBDREG) 0051 00018000 * RFY 0052 00019000 * (R0, 0052 00020000 * R14) UNRSTD; 0052 00021000 * RSMHDPTR=ASCBRSM; /* ASMHD ADDRESSIBILITY */ 00022000 L @12,ASCBPTR 0053 00023000 L RSMHDPTR,ASCBRSM(,@12) 0053 00024000 * ASMVTPTR=CVTASMVT; /* ASMVT ADDRESSIBILITY */ 00025000 L @12,CVTPTR 0054 00026000 L ASMVTPTR,CVTASMVT(,@12) 0054 00027000 * ATAPTR=SDWAPARM; /* ATA ADDRESSIBILITY */ 00028000 L ATAPTR,SDWAPARM(,SDWAPTR) 0055 00029000 * STM(SDWAPTR,ATAPTR,REGSAVE); /* SAVE RECOVERY REGS (R1-R4) */ 00030000 STM SDWAPTR,ATAPTR,REGSAVE(SRBDREG) 0056 00031000 * SAREG=ADDR(SAVAREA); /* REG SAVE AREA */ 00032000 LA SAREG,SAVAREA(,SRBDREG) 0057 00033000 * RECSDWA=ATA; /* COPY ATA INTO RECORDING AREA */ 00034000 MVC RECSDWA+404(24,SDWAPTR),ATA(ATAPTR) 0058 00035000 * SDWAURAL=LENGTH(ATA); /* AMOUNT OF REC AREA USED */ 00036000 MVI SDWAURAL(SDWAPTR),X'18' 0059 00037000 * 0060 00038000 * /*****************************************************************/ 00039000 * /* */ 00040000 * /* THE ONLY PROCESSING FOR ILRSRBC'S RECORD ONLY ABEND IS SETTING*/ 00041000 * /* UP THE SDWA FOR RETRY. THE ASM CLASS LOCK, HELD AT THE TIME OF*/ 00042000 * /* ABEND INSURES THE VALIDITY OF THE RETRY REGISTERS(SDWASRSV), */ 00043000 * /* AND THEREFORE RETRY REGISTERS ARE NOT REINITIALIZED. */ 00044000 * /* */ 00045000 * /*****************************************************************/ 00046000 * 0060 00047000 * IF SDWACMPC=C0DABND THEN /* SRBC ISSUED 'C0D' ABEND ? */ 00048000 CLC SDWACMPC(3,SDWAPTR),@CB02080 0060 00049000 BNE @RF00060 0060 00050000 * DO; /* YES- RECORD ABEND AND RETURN */ 00051000 * DO; /* SETRP RC(4)RECPARM(IDLISTA)RET 00052000 * ADDR(NXSEQIN)RECORD(YES) */ 00053000 * RESPECIFY 0063 00054000 * (GPR00P, 0063 00055000 * GPR01P, 0063 00056000 * GPR14P, 0063 00057000 * GPR15P) RSTD; 0063 00058000 * GPR01P->SDWARCDE=4; /* STORE RC INTO SDWA */ 00059000 MVI SDWARCDE(GPR01P),X'04' 0064 00060000 * GPR01P->SDWARTYA=ADDR(NXSEQIN);/* SAVE RETRY ADDRESS */ 00061000 MVC SDWARTYA(4,GPR01P),SDWANXT1(SDWAPTR) 0065 00062000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00063000 OI SDWARCRD(GPR01P),B'10000000' 0066 00064000 * GPR15P=ADDR(IDLISTA); /* ACCESS RECORD PARAMETER LIST */ 00065000 LA GPR15P,@CC02084 0067 00066000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD 0068 00067000 * PARAMETERS */ 00068000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0068 00069000 * RESPECIFY 0069 00070000 * (GPR00P, 0069 00071000 * GPR01P, 0069 00072000 * GPR14P, 0069 00073000 * GPR15P) UNRSTD; 0069 00074000 * END; 0070 00075000 * RFY 0071 00076000 * R14 RSTD; 0071 00077000 * R14=SAVER14; /* RESTORE RETURN ADDRESS */ 00078000 L @12,SAVER14(,SRBDREG) 0072 00079000 LR R14,@12 0072 00080000 * RETURN; /* TO RTM- RETRY PATH */ 00081000 @EL00001 DS 0H 0073 00082000 @EF00001 DS 0H 0073 00083000 @ER00001 BR @14 0073 00084000 * RFY 0074 00085000 * R14 UNRSTD; 0074 00086000 * END; /* RECORD ONLY ABEND */ 00087000 * 0076 00088000 * /*****************************************************************/ 00089000 * /* */ 00090000 * /* THIS ROUTINE PERCOLATES FOR ALL UNEXPECTED ABENDS. INITIALIZE */ 00091000 * /* THE SDWA FOR RECORDING AND LOCK FREEING. */ 00092000 * /* */ 00093000 * /*****************************************************************/ 00094000 * 0076 00095000 * DO; /* SETRP RC(0)FRELOCK(ASM(ASHLOCK 00096000 * ),SALLOC,LOCAL)RECORD(YES)RECP 00097000 * ARM(IDLISTA) */ 00098000 @RF00060 DS 0H 0077 00099000 * RESPECIFY 0077 00100000 * (GPR00P, 0077 00101000 * GPR01P, 0077 00102000 * GPR14P, 0077 00103000 * GPR15P) RSTD; 0077 00104000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 00105000 MVI SDWARCDE(GPR01P),X'00' 0078 00106000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 00107000 OI SDWARCRD(GPR01P),B'10000000' 0079 00108000 * GPR15P=ADDR(IDLISTA); /* ACCESS RECORD PARAMETER LIST */ 00109000 LA GPR15P,@CC02084 0080 00110000 * GPR01P->SDWARECP=GPR15P->I256C(1:24);/* COPY RECORD PARAMETERS */ 00111000 MVC SDWARECP(24,GPR01P),I256C(GPR15P) 0081 00112000 * GPR01P->SDWAAPLW=ADDR(ASHLOCK);/* INITIALIZE ASMPAT LOCKWORD */ 00113000 LA @12,ASHLOCK(,RSMHDPTR) 0082 00114000 ST @12,SDWAAPLW(,GPR01P) 0082 00115000 * GPR01P->SDWAACF3=GPR01P->SDWAACF3|'00001100'B;/* INITIALIZE 0083 00116000 * LOCK FLAGS */ 00117000 OI SDWAACF3(GPR01P),B'00001100' 0083 00118000 * GPR01P->SDWAACF4=GPR01P->SDWAACF4|'00000001'B;/* INITIALIZE 0084 00119000 * LOCK FLAGS */ 00120000 OI SDWAACF4(GPR01P),B'00000001' 0084 00121000 * RESPECIFY 0085 00122000 * (GPR00P, 0085 00123000 * GPR01P, 0085 00124000 * GPR14P, 0085 00125000 * GPR15P) UNRSTD; 0085 00126000 * END; 0086 00127000 * 0087 00128000 * /*****************************************************************/ 00129000 * /* */ 00130000 * /* CALL ILRCQIOE FOR AN ERROR IN ILRQIOE. ILRQIOE RECEIVES */ 00131000 * /* CONTROL AT THE END OF ILRESTRT PROCESSING. */ 00132000 * /* */ 00133000 * /*****************************************************************/ 00134000 * 0087 00135000 * IF ATAQIOE=YES THEN /* ILRQIOE IN CONTROL */ 00136000 TM ATAQIOE(ATAPTR),B'10000000' 0087 00137000 BNO @RF00087 0087 00138000 * DO; /* YES- CALL QIOE RECOVERY */ 00139000 * RFY 0089 00140000 * QIOEDREG RSTD; /* ILRCQIOE WORKAREA REG */ 00141000 * QIOEDREG=ADDR(WRKAREA); /* ILRCQIOE DATA AREA */ 00142000 LA QIOEDREG,WRKAREA(,SRBDREG) 0090 00143000 * SAVBASE=BASEREG; /* DESTROYED ACROSS CALL */ 00144000 ST BASEREG,SAVBASE(,SRBDREG) 0091 00145000 * CALL ILRCQIOE; /* RECOVERY FOR ILRQIOE */ 00146000 L @15,@CV02107 0092 00147000 BALR @14,@15 0092 00148000 * BASEREG=SAVBASE; /* RESTORE BASE REGISTER */ 00149000 L BASEREG,SAVBASE(,SRBDREG) 0093 00150000 * RSMHDPTR=SAVRSMHD; /* DESTROYED ACROSS CALL */ 00151000 L RSMHDPTR,SAVRSMHD(,SRBDREG) 0094 00152000 * SDWACSCT=QIOENAME; /* SET ILRQIOE ID IN SDWA */ 00153000 MVC SDWACSCT(8,SDWAPTR),@CC02082 0095 00154000 * SDWARCDE=ZERO; /* ILRCQIOE NORMALLY ATTEMPTS 0096 00155000 * RETRY */ 00156000 MVI SDWARCDE(SDWAPTR),X'00' 0096 00157000 * RFY 0097 00158000 * QIOEDREG UNRSTD; 0097 00159000 * END; /* ILRQIOE ERROR */ 00160000 * 0099 00161000 * /*****************************************************************/ 00162000 * /* */ 00163000 * /* THE ASM CLASS LOCK SERIALIZES THE ASM HEADER LGE QUEUE AND THE*/ 00164000 * /* ILRSRBC SRB SCHEDULED FLAG IN THE ASM HEADER. THE LOCK MAY */ 00165000 * /* ALREADY BE HELD. */ 00166000 * /* */ 00167000 * /*****************************************************************/ 00168000 * 0099 00169000 * RFY 0099 00170000 * R11 RSTD; 0099 00171000 @RF00087 DS 0H 0100 00172000 * R11=ADDR(ASHLOCK); /* GET ASM LOCKWORD */ 00173000 LA R11,ASHLOCK(,RSMHDPTR) 0100 00174000 * GENERATE REFS(PSALITA); 0101 00175000 SETLOCK OBTAIN,TYPE=ASM,MODE=UNCOND,ADDR=(11),REGS=SAVE, XX00176000 RELATED=(VIO,IEAVTRTS) 00177000 * RFY 0102 00178000 * R11 UNRSTD; 0102 00179000 * 0102 00180000 * /*****************************************************************/ 00181000 * /* */ 00182000 * /* SRB CONTROLLER'S MODID WILL BE CHECKPOINTED IF THE ERROR DID */ 00183000 * /* NOT OCCUR DURING ENTRY PROCESSING. */ 00184000 * /* */ 00185000 * /*****************************************************************/ 00186000 * 0103 00187000 * IF ATAMODID^=ATAMSRBC THEN /* MODID CHECKPOINTED ? */ 00188000 CLI ATAMODID(ATAPTR),8 0103 00189000 BE @RF00103 0103 00190000 * DO; /* NO- ERROR IN ENTRY PROCESSING */ 00191000 * ASHSCHED=OFF; /* INSURE ILRSRBC IS RESCHEDULED */ 00192000 NI ASHSCHED(RSMHDPTR),B'01111111' 0105 00193000 * GOTO SCHED; /* EXIT PROCESSING */ 00194000 B SCHED 0106 00195000 * END; /* MODID NOT CHECKPOINTED */ 00196000 * 0108 00197000 */* VALIDITY CHECK THE ASMHD LGE QUEUE AND EACH LGE PROCESS QUEUE */ 00198000 * 0108 00199000 * RFY 0108 00200000 * (LGEPTR, 0108 00201000 * R5, 0108 00202000 * R6, 0108 00203000 * R7, 0108 00204000 * SAVLAST, 0108 00205000 * RTCODE) RSTD; 0108 00206000 @RF00103 DS 0H 0109 00207000 * SAVLAST=ZERO; /* CLEAR LAST LGE POINTER */ 00208000 SLR SAVLAST,SAVLAST 0109 00209000 * LGEPTR=ASHLGEQ; /* GET FIRST LGE */ 00210000 L LGEPTR,ASHLGEQ(,RSMHDPTR) 0110 00211000 * DO UNTIL LGEPTR=ZERO; /* ASMHD LGE QUEUE LOOP */ 00212000 @DL00111 DS 0H 0112 00213000 * CALL ILRVLPRQ; /* VERIFY LGE PROCESS QUEUE */ 00214000 L @15,@CV02110 0112 00215000 BALR @14,@15 0112 00216000 * IF RTCODE=BADLGE THEN /* LGE ADDRESS WAS INVALID ? */ 00217000 CH RTCODE,@CH00398 0113 00218000 BNE @RF00113 0113 00219000 * DO; /* YES- TERMINATE MEMORY */ 00220000 * 0114 00221000 * /***********************************************************/ 00222000 * /* */ 00223000 * /* SINCE IT IS IMPOSSIBLE TO DETERMINE DAMAGE TO THE LGE */ 00224000 * /* QUEUE AND ASM CAN NOT ACCEPT REQUESTS FOR LGES WHICH MAY*/ 00225000 * /* NOT EXIST, THIS MEMORY IS TERMINATED. ILRTERMR WILL */ 00226000 * /* RECOVER ASM RESOURCES. */ 00227000 * /* */ 00228000 * /***********************************************************/ 00229000 * 0115 00230000 * IF SAVLAST=ZERO THEN /* FIRST LGE INVALID ? */ 00231000 SLR @14,@14 0115 00232000 CR SAVLAST,@14 0115 00233000 BNE @RF00115 0115 00234000 * ASHLGEQ=ZERO; /* YES- CLEAR QUEUE ANCHOR */ 00235000 ST @14,ASHLGEQ(,RSMHDPTR) 0116 00236000 * ELSE 0117 00237000 * SAVLAST->LGENEXT=ZERO; /* TRUNCATE INVALID LGE */ 00238000 B @RC00115 0117 00239000 @RF00115 SLR @14,@14 0117 00240000 ST @14,LGENEXT(,SAVLAST) 0117 00241000 * RFY 0118 00242000 * (TRMCODE, 0118 00243000 * TRMASID) RSTD; 0118 00244000 @RC00115 DS 0H 0119 00245000 * TRMCODE=SDWACMPC; /* MEMTERM COMPLETION CODE */ 00246000 SLR TRMCODE,TRMCODE 0119 00247000 ICM TRMCODE,7,SDWACMPC(SDWAPTR) 0119 00248000 * SRL(TRMCODE,12); /* SHIFT FOR CALLRTM EXPANSION */ 00249000 SRL TRMCODE,12 0120 00250000 * TRMASID=ASCBASID; /* CURRENT ASCB */ 00251000 L @14,ASCBPTR 0121 00252000 SLR TRMASID,TRMASID 0121 00253000 ICM TRMASID,3,ASCBASID(@14) 0121 00254000 * GENERATE REFS(CVTBTERM) 0122 00255000 * (CALLRTM TYPE=MEMTERM,COMPCOD=(TRMCODE),ASID=(TRMASID)); 00256000 CALLRTM TYPE=MEMTERM,COMPCOD=(TRMCODE),ASID=(TRMASID) 00257000 * RFY 0123 00258000 * (TRMCODE, 0123 00259000 * TRMASID) UNRSTD; 0123 00260000 * LM(SDWAPTR,RSMHDPTR,REGSAVE);/* DESTROYED BY CALLRTM */ 00261000 LM SDWAPTR,RSMHDPTR,REGSAVE(SRBDREG) 0124 00262000 * GOTO CLEANUP; /* DO NOT RESCHEDULE ILRSRBC */ 00263000 B CLEANUP 0125 00264000 * END; /* INVALID ASMHD LGE QUEUE */ 00265000 * SAVLAST=LGEPTR; /* REMEMBER LAST LGE */ 00266000 @RF00113 LR SAVLAST,LGEPTR 0127 00267000 * LGEPTR=LGENEXT; /* GET NEXT LGE */ 00268000 LR @14,LGEPTR 0128 00269000 L LGEPTR,LGENEXT(,@14) 0128 00270000 * END; /* LGE LOOP */ 00271000 @DE00111 LTR LGEPTR,LGEPTR 0129 00272000 BNZ @DL00111 0129 00273000 * RFY 0130 00274000 * (LGEPTR, 0130 00275000 * SAVLAST, 0130 00276000 * RTCODE) UNRSTD; 0130 00277000 * 0131 00278000 * /*****************************************************************/ 00279000 * /* */ 00280000 * /* PROCESS GROUP OPERATION ACE QUEUE. */ 00281000 * /* */ 00282000 * /*****************************************************************/ 00283000 * 0131 00284000 * RFY 0131 00285000 * VERFREG RSTD; /* VERIFICATION INPUT REGISTER */ 00286000 * VERFREG=ADDR(ATAACEQ); /* ACE QUEUE TO BE VERIFIED */ 00287000 LA VERFREG,ATAACEQ(,ATAPTR) 0132 00288000 * CALL ILRVACEQ; /* VERIFY INTERNAL ACE QUEUE */ 00289000 L @15,@CV02109 0133 00290000 BALR @14,@15 0133 00291000 * RFY 0134 00292000 * (VERFREG, 0134 00293000 * R5, 0134 00294000 * R6, 0134 00295000 * R7) UNRSTD; 0134 00296000 * IF ATAACEQ^=ZERO THEN /* ANY ACES TO PROCESS ? */ 00297000 L @12,ATAACEQ(,ATAPTR) 0135 00298000 LTR @12,@12 0135 00299000 BZ @RF00135 0135 00300000 * DO; /* YES- PROCESS ATA ACE QUEUE */ 00301000 * 0136 00302000 * /*************************************************************/ 00303000 * /* */ 00304000 * /* PROCESS ACE QUEUE ANCHORED IN THE ATA. GROUP OP AND WORK */ 00305000 * /* PENDING FLAGS ARE RESET TO ALLOW THESE ACES TO BE */ 00306000 * /* REPROCESSED BY ILRSRBC. */ 00307000 * /* */ 00308000 * /*************************************************************/ 00309000 * 0137 00310000 * RFY 0137 00311000 * (SAVLAST, 0137 00312000 * ACEPTR) RSTD; 0137 00313000 * ACEPTR=ATAACEQ; /* GET ACE QUEUE ANCHOR */ 00314000 LR ACEPTR,@12 0138 00315000 * DO WHILE ACEPTR^=ZERO; /* LOOP THRU ACE QUEUE */ 00316000 B @DE00139 0139 00317000 @DL00139 DS 0H 0140 00318000 * RFY 0140 00319000 * LGEPTR RSTD; 0140 00320000 * LGEPTR=ACELGE; /* GET LGE FOR THIS ACE */ 00321000 L LGEPTR,ACELGE(,ACEPTR) 0141 00322000 * LGEGRINP=OFF; /* GROUP OPERATION NOT IN PROCESS*/ 00323000 * LGEWRKPD=ON; /* WORK NOW PENDING FOR THIS LGE */ 00324000 LR @12,LGEPTR 0143 00325000 OI LGEWRKPD(@12),B'10000000' 0143 00326000 NI LGEGRINP(@12),B'10111111' 0143 00327000 * SAVLAST=ACESRBWK; /* SAVE POINTER TO NEXT ACE */ 00328000 L SAVLAST,ACESRBWK(,ACEPTR) 0144 00329000 * ACESRBWK=ZERO; /* CLEAR INTERNAL CHAIN FIELD */ 00330000 SLR @12,@12 0145 00331000 ST @12,ACESRBWK(,ACEPTR) 0145 00332000 * ACEPTR=SAVLAST; /* UPDATE ACE POINTING TO NEXT */ 00333000 LR ACEPTR,SAVLAST 0146 00334000 * RFY 0147 00335000 * LGEPTR UNRSTD; 0147 00336000 * END; /* ATA ACE QUEUE LOOP */ 00337000 @DE00139 LTR ACEPTR,ACEPTR 0148 00338000 BNZ @DL00139 0148 00339000 * RFY 0149 00340000 * (SAVLAST, 0149 00341000 * ACEPTR) UNRSTD; 0149 00342000 * END; /* NON-ZERO ATA ACE QUEUE */ 00343000 * 0151 00344000 * /*****************************************************************/ 00345000 * /* */ 00346000 * /* PROCESS A CURRENT AIA OR ACE CHECKPOINTED IN THE ATA. THE */ 00347000 * /* ATAAIACE WILL BE ZEROED BY ILRCQIOE FOR ERRORS WHICH OCCUR IN */ 00348000 * /* ILRQIOE. */ 00349000 * /* */ 00350000 * /*****************************************************************/ 00351000 * 0151 00352000 * RFY 0151 00353000 * (VERFREG, 0151 00354000 * R5, 0151 00355000 * R6, 0151 00356000 * R7, 0151 00357000 * RTCODE) RSTD; 0151 00358000 @RF00135 DS 0H 0152 00359000 * VERFREG=ATAAIACE; /* VERIFY CURRENT AIA/ACE */ 00360000 L VERFREG,ATAAIACE(,ATAPTR) 0152 00361000 * CALL ILRVAIAC; /* VERIFICATION ROUTINE */ 00362000 L @15,@CV02112 0153 00363000 BALR @14,@15 0153 00364000 * LM(SDWAPTR,ATAPTR,REGSAVE); /* RESTORE REGISTERS */ 00365000 LM SDWAPTR,ATAPTR,REGSAVE(SRBDREG) 0154 00366000 * RFY 0155 00367000 * (VERFREG, 0155 00368000 * R5, 0155 00369000 * R6, 0155 00370000 * R7) UNRSTD; 0155 00371000 * IF RTCODE=SUCCESS THEN /* AIA/ACE VALID ? */ 00372000 SLR @14,@14 0156 00373000 CR RTCODE,@14 0156 00374000 BNE @RF00156 0156 00375000 * DO; /* AIA/ACE IS VALID */ 00376000 * RFY 0158 00377000 * ACEPTR RSTD; 0158 00378000 * ACEPTR=ATAAIACE; /* ACE ADDRESSIBILITY */ 00379000 L ACEPTR,ATAAIACE(,ATAPTR) 0159 00380000 * IF ACEOP=ACETRPAG THEN /* TRANSFER PAGE ACE ? */ 00381000 CLI ACEOP(ACEPTR),4 0160 00382000 BNE @RF00160 0160 00383000 * DO; /* YES- PROCESS ACE */ 00384000 * 0161 00385000 * /*********************************************************/ 00386000 * /* */ 00387000 * /* A CURRENT ACE IS CHECKPOINTED ONLY WHEN THE ILRTRANS */ 00388000 * /* SUBROUTINE OF ILRPOS IS PROCESSING. THE ACE CAN BE SET*/ 00389000 * /* UP FOR REPROCESSING AFTER INSURING THAT A SLOT WHICH */ 00390000 * /* MAY ALREADY HAVE BEEN FREED BY ILRTRANS WILL NOT BE */ 00391000 * /* FREED AGAIN. */ 00392000 * /* */ 00393000 * /*********************************************************/ 00394000 * 0162 00395000 * IF ACETLPME^=ZERO THEN /* SLOT ASSIGNED ? */ 00396000 L @12,ACETLPME(,ACEPTR) 0162 00397000 CR @12,@14 0162 00398000 BE @RF00162 0162 00399000 * ACETLPME->ASPLVALD=OFF;/* INVALIDATE LPME */ 00400000 NI ASPLVALD(@12),B'01111111' 0163 00401000 * ACELGE->LGEWRKPD=ON; /* REPROCESS THE ACE */ 00402000 @RF00162 L @14,ACELGE(,ACEPTR) 0164 00403000 OI LGEWRKPD(@14),B'10000000' 0164 00404000 * END; /* TRANSFER PAGE ACE */ 00405000 * ELSE 0166 00406000 * DO; /* MUST BE AN AIA */ 00407000 * 0166 00408000 B @RC00160 0166 00409000 @RF00160 DS 0H 0167 00410000 * /*********************************************************/ 00411000 * /* */ 00412000 * /* A CURRENT AIA IS CHECKPOINTED ONLY WHEN THE ILRESTRT */ 00413000 * /* SUBROUTINE OF ILRPOS IS PROCESSING. THE CURRENT AIA */ 00414000 * /* REPRESENTS THAT PART OF THE INTERNAL AIA QUEUE NOT YET*/ 00415000 * /* PROCESSED. */ 00416000 * /* */ 00417000 * /*********************************************************/ 00418000 * 0167 00419000 * RFY 0167 00420000 * AIAPTR RSTD; 0167 00421000 * AIAPTR=ATAAIACE; /* ADDRESSIBILITY TO AIA */ 00422000 L AIAPTR,ATAAIACE(,ATAPTR) 0168 00423000 * IF AIABADID=ON|AIAPRIER=ON THEN/* ERROR FLAG IN AIA ? */ 00424000 TM AIABADID(AIAPTR),B'00001001' 0169 00425000 BZ @RF00169 0169 00426000 * DO; /* YES- ADD TO PART ERROR QUEUE */ 00427000 * AIALPMEP->ASPLOPIN=ON;/* CLEAR LPME IN PROCESS FLAG */ 00428000 L @14,AIALPMEP(,AIAPTR) 0171 00429000 OI ASPLOPIN(@14),B'00100000' 0171 00430000 * ATAAIACE=AIANXAIA; /* DEQUEUE THIS AIA */ 00431000 MVC ATAAIACE(4,ATAPTR),AIANXAIA(AIAPTR) 0172 00432000 * RFY 0173 00433000 * (COMPREG, 0173 00434000 * PARTPTR) RSTD; 0173 00435000 * PARTPTR=ASMPART; /* GET PART ADDRESS */ 00436000 L PARTPTR,ASMPART(,ASMVTPTR) 0174 00437000 * COMPREG=PARTAIAE; /* GET ERROR QUEUE ANCHOR */ 00438000 L COMPREG,PARTAIAE(,PARTPTR) 0175 00439000 *RTRYCS1: 0176 00440000 * AIANXAIA=COMPREG; /* CHAIN TO THIS AIA */ 00441000 RTRYCS1 ST COMPREG,AIANXAIA(,AIAPTR) 0176 00442000 * CS(COMPREG,AIAPTR,PARTAIAE);/* UPDATE ERROR QUEUE */ 00443000 CS COMPREG,@09,PARTAIAE(PARTPTR) 0177 00444000 * BC(NE,RTRYCS1); /* FAILED ?- TRY AGAIN */ 00445000 BC 7,RTRYCS1 0178 00446000 * RFY 0179 00447000 * (COMPREG, 0179 00448000 * PARTPTR) UNRSTD; 0179 00449000 * END; /* AIA ERROR FLAG ON */ 00450000 * ELSE 0181 00451000 * DO; /* NON- ERROR FLAG PROCESSING */ 00452000 * 0181 00453000 B @RC00169 0181 00454000 @RF00169 DS 0H 0182 00455000 * /*****************************************************/ 00456000 * /* */ 00457000 * /* THE AIA COMPLETED PROCESSING IF CURRENTLY LAST ON */ 00458000 * /* ASMVT STAGE QUEUE. OTHERWISE, THE AIA IS SETUP FOR*/ 00459000 * /* REPROCESSING BY THE SRB CONTROLLER. THE ASHIOCNT, */ 00460000 * /* ASSUMED TO HAVE BEEN INCREMENTED FOR THIS AIA, IS */ 00461000 * /* DECREMENTED. FOR A WRITE AIA, A SLOT MAY HAVE BEEN*/ 00462000 * /* FREED BY ILRESTRT. INVALIDATING THE LPME WILL */ 00463000 * /* PREVENT FREEING THE SLOT TWICE. */ 00464000 * /* */ 00465000 * /*****************************************************/ 00466000 * 0182 00467000 * RFY 0182 00468000 * (R5, 0182 00469000 * R6, 0182 00470000 * R7) RSTD; /* DESTROYED BY VERIFICATION */ 00471000 * CALL ILRVASGQ; /* VERIFY STAGING QUEUE */ 00472000 L @15,@CV02111 0183 00473000 BALR @14,@15 0183 00474000 * RFY 0184 00475000 * (R5, 0184 00476000 * R6, 0184 00477000 * R7) UNRSTD; 0184 00478000 * IF AIAPTR=ASMSTAGL THEN/* AIA LAST ON STAGING QUEUE ?*/ 00479000 C AIAPTR,ASMSTAGL(,ASMVTPTR) 0185 00480000 BNE @RF00185 0185 00481000 * ATAAIACE=AIANXAIA;/* DEQUEUE FROM CURRENT AIA QUEUE*/ 00482000 MVC ATAAIACE(4,ATAPTR),AIANXAIA(AIAPTR) 0186 00483000 * ELSE 0187 00484000 * DO; /* SET UP AIA FOR REPROCESSING */ 00485000 B @RC00185 0187 00486000 @RF00185 DS 0H 0188 00487000 * ASHIOCNT=ASHIOCNT-1;/* ASSUME UPDATED FOR THIS 0188 00488000 * AIA */ 00489000 L @14,ASHIOCNT(,RSMHDPTR) 0188 00490000 BCTR @14,0 0188 00491000 ST @14,ASHIOCNT(,RSMHDPTR) 0188 00492000 * IF AIALPMEP^=ZERO THEN/* SLOT ASSIGNED TO AIA ? */ 00493000 L @14,AIALPMEP(,AIAPTR) 0189 00494000 LTR @14,@14 0189 00495000 BZ @RF00189 0189 00496000 * DO; /* LPME IDENTIFIED */ 00497000 * AIALPMEP->ASPLOPIN=ON;/* CLEAR LPME IN 0191 00498000 * PROCESS FLAG */ 00499000 OI ASPLOPIN(@14),B'00100000' 0191 00500000 * IF AIAWRITE=YES THEN/* WRITE AIA ? */ 00501000 TM AIAWRITE(AIAPTR),B'10000000' 0192 00502000 BNO @RF00192 0192 00503000 * AIALPMEP->ASPLVALD=OFF;/* INVALIDATE THE 0193 00504000 * LPME */ 00505000 NI ASPLVALD(@14),B'01111111' 0193 00506000 * END; /* NON-ZERO LPME POINTER */ 00507000 @RF00192 DS 0H 0195 00508000 * END; /* SETUP AIA REPROCESSING */ 00509000 @RF00189 DS 0H 0196 00510000 * END; /* NON ERROR FLAG PROCESSING */ 00511000 @RC00185 DS 0H 0197 00512000 * ATAAIAQ=ATAAIACE; /* GET UNPROCESSED AIAS */ 00513000 @RC00169 MVC ATAAIAQ(4,ATAPTR),ATAAIACE(ATAPTR) 0197 00514000 * RFY 0198 00515000 * AIAPTR UNRSTD; 0198 00516000 * END; /* AIA CHECKPOINTED */ 00517000 * RFY 0200 00518000 * ACEPTR UNRSTD; 0200 00519000 @RC00160 DS 0H 0201 00520000 * END; /* VALID AIA/ACE CHECKPOINTED */ 00521000 * RFY 0202 00522000 * RTCODE UNRSTD; 0202 00523000 @RF00156 DS 0H 0203 00524000 * 0203 00525000 * /*****************************************************************/ 00526000 * /* */ 00527000 * /* PROCESS ATA AIA QUEUE */ 00528000 * /* */ 00529000 * /*****************************************************************/ 00530000 * 0203 00531000 * RFY 0203 00532000 * (VERFREG, 0203 00533000 * R5, 0203 00534000 * R6, 0203 00535000 * R7) RSTD; /* VERIFICATION REGISTERS */ 00536000 * VERFREG=ADDR(ATAAIAQ); /* INTERNAL AIA QUEUE */ 00537000 LA VERFREG,ATAAIAQ(,ATAPTR) 0204 00538000 * CALL ILRVAIAQ; /* VALIDITY CHECK AIA QUEUE */ 00539000 L @15,@CV02108 0205 00540000 BALR @14,@15 0205 00541000 * RFY 0206 00542000 * AIAPTR RSTD; 0206 00543000 * AIAPTR=ATAAIAQ; /* GET FIRST AIA */ 00544000 L AIAPTR,ATAAIAQ(,ATAPTR) 0207 00545000 * DO WHILE AIAPTR^=ZERO; /* PROCESS EACH AIA */ 00546000 B @DE00208 0208 00547000 @DL00208 DS 0H 0209 00548000 * AIALPMEP->ASPLOPIN=ON; /* CLEAR LPME IN PROCESS FLAG */ 00549000 L @12,AIALPMEP(,AIAPTR) 0209 00550000 OI ASPLOPIN(@12),B'00100000' 0209 00551000 * AIALGE->LGEWRKPD=ON; /* LGE WILL BE CHECKED */ 00552000 L @12,AIALGE(,AIAPTR) 0210 00553000 OI LGEWRKPD(@12),B'10000000' 0210 00554000 * AIAPRINO=OFF; /* AIA WILL BE REPROCESSED */ 00555000 NI AIAPRINO(AIAPTR),B'10111111' 0211 00556000 * AIAPTR=AIANXAIA; /* GET NEXT AIA */ 00557000 L AIAPTR,AIANXAIA(,AIAPTR) 0212 00558000 * END; /* ATA AIA QUEUE LOOP */ 00559000 @DE00208 LTR AIAPTR,AIAPTR 0213 00560000 BNZ @DL00208 0213 00561000 * RFY 0214 00562000 * (AIAPTR, 0214 00563000 * VERFREG, 0214 00564000 * R5, 0214 00565000 * R6, 0214 00566000 * R7) UNRSTD; 0214 00567000 * 0215 00568000 * /*****************************************************************/ 00569000 * /* */ 00570000 * /* SCHEDULE SRB CONTROLLER'S SRB, IF NECESSARY, TO PROCESS WORK */ 00571000 * /* LEFT ON THE ASMHD LGE QUEUE BY THE RECOVERY ROUTINE. */ 00572000 * /* */ 00573000 * /*****************************************************************/ 00574000 * 0215 00575000 *SCHED: 0215 00576000 * IF ASHSCHED=OFF THEN /* SRBC REQUIRES A SCHEDULE ? */ 00577000 SCHED TM ASHSCHED(RSMHDPTR),B'10000000' 0215 00578000 BNZ @RF00215 0215 00579000 * DO; /* YES- SCHEDULE */ 00580000 * RFY 0217 00581000 * SRBPTR RSTD; 0217 00582000 * ASHSCHED=ON; /* INDICATE SRBC NOW SCHEDULED */ 00583000 OI ASHSCHED(RSMHDPTR),B'10000000' 0218 00584000 * SRBPTR=ASHVSRBP; /* ADDRESS OF MEMORY SRB */ 00585000 L SRBPTR,ASHVSRBP(,RSMHDPTR) 0219 00586000 * GEN REFS(CVTLSMQ,SRBFLNK)(SCHEDULE SRB=(SRBPTR),SCOPE=LOCAL); 00587000 SCHEDULE SRB=(SRBPTR),SCOPE=LOCAL 00588000 * RFY 0221 00589000 * SRBPTR UNRSTD; 0221 00590000 * END; 0222 00591000 *CLEANUP: 0223 00592000 * 0223 00593000 * /*****************************************************************/ 00594000 * /* */ 00595000 * /* FREE ILRSRBC AND ILRRLG00 WORKAREA CELLS, IF NECESSARY. IF */ 00596000 * /* ILRRLG00 WAS IN CONTROL AT THE TIME OF ERROR, A WORKAREA CELL */ 00597000 * /* AND AN ACTIVE ASPCT MAY BE CHECKPOINTED IN THE EPATH. THE */ 00598000 * /* ASPCT POINTER IN THE LGE IS ZEROED TO PREVENT FREEING ASPCT */ 00599000 * /* SLOTS TWICE. */ 00600000 * /* */ 00601000 * /*****************************************************************/ 00602000 * 0223 00603000 * RFY 0223 00604000 * EPAPTR RSTD; 0223 00605000 @RF00215 DS 0H 0223 00606000 CLEANUP DS 0H 0224 00607000 * EPAPTR=ATAEPATH; /* ADDRESSIBILITY TO EPATH */ 00608000 L EPAPTR,ATAEPATH(,ATAPTR) 0224 00609000 * IF EPAAASP^=ZERO THEN /* ACTIVE ASPCT CHECKPOINTED ? */ 00610000 SLR @12,@12 0225 00611000 L @11,EPAAASP(,EPAPTR) 0225 00612000 CR @11,@12 0225 00613000 BE @RF00225 0225 00614000 * EPAAASP->ASPLGE->LGEASPCT=ZERO;/* YES- CLEAR LGE ASPCT PTR */ 00615000 L @11,ASPLGE(,@11) 0226 00616000 ST @12,LGEASPCT(,@11) 0226 00617000 * RFY 0227 00618000 * CELLADDR RSTD; 0227 00619000 @RF00225 DS 0H 0228 00620000 * CELLADDR=EPAOWKA; /* RLG'S WORKAREA CELL */ 00621000 L CELLADDR,EPAOWKA(,EPAPTR) 0228 00622000 * CALL FREECELL; /* FREE THE CELL */ 00623000 BAL @14,FREECELL 0229 00624000 * CELLADDR=EPASWKA; /* SRB CONTROLLER'S WORK AREA */ 00625000 L CELLADDR,EPASWKA(,EPAPTR) 0230 00626000 * CALL FREECELL; /* FREE THE CELL */ 00627000 BAL @14,FREECELL 0231 00628000 * RFY 0232 00629000 * (EPAPTR, 0232 00630000 * CELLADDR) UNRSTD; 0232 00631000 * RFY 0233 00632000 * R14 RSTD; 0233 00633000 * R14=SAVER14; /* RESTORE RTM RETURN ADDRESS */ 00634000 L R14,SAVER14(,SRBDREG) 0234 00635000 * RFY 0235 00636000 * R14 UNRSTD; 0235 00637000 * RETURN; /* TO RTM */ 00638000 B @EL00001 0236 00639000 * 0237 00640000 */********************************************************************/ 00641000 */* */ 00642000 */* FREECELL: SUBROUTINE TO VERIFY AND FREE A WORKAREA CELL */ 00643000 */* */ 00644000 */* INPUT: REG 1 = SDWA ADDRESS */ 00645000 */* REG 2 = CELL ADDRESS TO BE FREED */ 00646000 */* REG 13 = ADDRESS OF 18 WORD SAVE AREA */ 00647000 */* REG 14 = RETURN ADDRESS */ 00648000 */* */ 00649000 */* PROCESS: ADDRESS VERIFY AND FREE THE WORKAREA CELL */ 00650000 */********************************************************************/ 00651000 */*FREECELL: CHART (SEQ) FREECELL SUBROUTINE */ 00652000 */*FREECELL:E ENTRY TO FREECELL SUBROUTINE */ 00653000 */* N INPUT- R1= SDWA@, R2= CELL@ OR ZERO */ 00654000 */* D (YES,%RETN2,NO,) NON-ZERO CELL ADDRESS ? */ 00655000 */* P SET UP REGISTERS FOR IEAVEADV */ 00656000 */* S IEAVEADV: VERIFY CELL STORAGE */ 00657000 */* D (YES,,NO,%RETN2) STORAGE VALID ? */ 00658000 */* P SET UP REGISTERS FOR ILRGMA */ 00659000 */* L ILRGMA: FREE WORKAREA CELL */ 00660000 */*%RETN2: R RETURN TO CALLER */ 00661000 */*FREECELL: END */ 00662000 * 0237 00663000 *FREECELL: 0237 00664000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* FREE CELL SUBROUTINE */ 00665000 FREECELL DS 0H 0238 00666000 * RFY 0238 00667000 * (R0, 0238 00668000 * R1, 0238 00669000 * R14, 0238 00670000 * CELLADDR) RSTD; 0238 00671000 * SAV2R14=R14; /* SAVE RETURN ADDRESS */ 00672000 ST R14,SAV2R14(,SRBDREG) 0239 00673000 * RFY 0240 00674000 * R14 UNRSTD; 0240 00675000 * IF CELLADDR^=ZERO THEN /* CELL ADDRESS WAS PASSED ? */ 00676000 LTR CELLADDR,CELLADDR 0241 00677000 BZ @RF00241 0241 00678000 * DO; /* YES - PROCESS CELL */ 00679000 * RFY 0243 00680000 * RTCODE RSTD; 0243 00681000 * R0=CELLGTH; /* LENGTH OF AREA TO VERIFY */ 00682000 LA R0,256 0244 00683000 * CALL IEAVEADV; /* VERIFY STORAGE ADDRESS */ 00684000 L @15,@CV02106 0245 00685000 BALR @14,@15 0245 00686000 * IF RTCODE=SUCCESS THEN /* STORAGE VALID ? */ 00687000 LTR RTCODE,RTCODE 0246 00688000 BNZ @RF00246 0246 00689000 * DO; /* YES- FREE THE CELL */ 00690000 * ASMVTPTR=SAVASMVT; /* DESTROYED BY VERIFICATION */ 00691000 L ASMVTPTR,SAVASMVT(,SRBDREG) 0248 00692000 * R1=CELLADDR; /* INPUT REGISTER FOR ILRGMA */ 00693000 LR R1,CELLADDR 0249 00694000 * 0250 00695000 * /*********************************************************/ 00696000 * /* */ 00697000 * /* BEGIN ILRGMA MACRO EXPANSION */ 00698000 * /* */ 00699000 * /*********************************************************/ 00700000 * 0250 00701000 * DO; /* ILRGMA FREE 0250 00702000 * CELL(BWK)WORKREGS(R6,R7) */ 00703000 * DECLARE /* ASMVT VECTOR TO ILRPEX */ 00704000 * ILRPEX ENTRY BASED(ASMPEX) VALRG(0); 0251 00705000 * DECLARE /* MAP FOR CELL CONTROL WORDS */ 00706000 * 1 GMACELL BASED BDY(WORD), 0252 00707000 * 2 GMANEXT PTR(31); /* PTR NEXT FREE CELL */ 00708000 * RESPECIFY 0253 00709000 * (R0, 0253 00710000 * R1, 0253 00711000 * R6, 0253 00712000 * R7, 0253 00713000 * R14, 0253 00714000 * R15) RESTRICTED; 0253 00715000 * RESPECIFY 0254 00716000 * ASMPOOLS BASED(R6); 0254 00717000 * RESPECIFY 0255 00718000 * GMACELL BASED(R1); 0255 00719000 * R6=ADDR(ASMBWKPC); 0256 00720000 LA R6,ASMBWKPC(,ASMVTPTR) 0256 00721000 * R14=ASMCPAVL; 0257 00722000 L R14,ASMCPAVL(,R6) 0257 00723000 *GMA00052: 0258 00724000 * GMANEXT=R14; /* PUT ADDR CURRENT FIRST IN 0258 00725000 * INPUT CELL */ 00726000 GMA00052 ST R14,GMANEXT(,R1) 0258 00727000 * CS(R14,R1,ASMCPAVL); /* ADD INPUT CELL TO POOL */ 00728000 CS R14,@01,ASMCPAVL(R6) 0259 00729000 * BC(7,GMA00052); 0260 00730000 BC 7,GMA00052 0260 00731000 * RESPECIFY 0261 00732000 * (R0, 0261 00733000 * R1, 0261 00734000 * R6, 0261 00735000 * R7, 0261 00736000 * R14, 0261 00737000 * R15) UNRESTRICTED; 0261 00738000 * END; /* ILRGMA FREE 0262 00739000 * CELL(BWK)WORKREGS(R6,R7) */ 00740000 * 0262 00741000 * /*********************************************************/ 00742000 * /* */ 00743000 * /* END ILRGMA MACRO EXPANSION */ 00744000 * /* */ 00745000 * /*********************************************************/ 00746000 * 0263 00747000 * END; /* VALID STORAGE ADDRESS */ 00748000 * RFY 0264 00749000 * RTCODE UNRSTD; 0264 00750000 @RF00246 DS 0H 0265 00751000 * END; /* NON ZERO CELL ADDRESS */ 00752000 * RFY 0266 00753000 * R14 RSTD; 0266 00754000 @RF00241 DS 0H 0267 00755000 * R14=SAV2R14; /* RESTORE RETURN ADDRESS */ 00756000 L R14,SAV2R14(,SRBDREG) 0267 00757000 * RFY 0268 00758000 * (R0, 0268 00759000 * R1, 0268 00760000 * R14, 0268 00761000 * CELLADDR) UNRSTD; 0268 00762000 * END FREECELL; 0269 00763000 @EL00002 DS 0H 0269 00764000 @EF00002 DS 0H 0269 00765000 @ER00002 BR @14 0269 00766000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00767000 * GPR00P PTR(31) REG(0), 0270 00768000 * GPR01P PTR(31) REG(1), 0270 00769000 * GPR14P PTR(31) REG(14), 0270 00770000 * GPR15P PTR(31) REG(15); 0270 00771000 * DECLARE /* COMMON VARIABLES */ 00772000 * I256C CHAR(256) BASED, 0271 00773000 * I031F FIXED(31) BASED, 0271 00774000 * I031P PTR(31) BASED, 0271 00775000 * I015F FIXED(15) BASED, 0271 00776000 * I015P PTR(15) BASED, 0271 00777000 * I008P PTR(8) BASED, 0271 00778000 * I001C CHAR(1) BASED; 0271 00779000 * END ILRSRB01 0272 00780000 * 0272 00781000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00782000 */*%INCLUDE SYSLIB (ILRACE ) */ 00783000 */*%INCLUDE SYSLIB (ILRAIA ) */ 00784000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00785000 */*%INCLUDE SYSLIB (ILRASMHD) */ 00786000 */*%INCLUDE SYSLIB (ILRASMVT) */ 00787000 */*%INCLUDE SYSLIB (ILRASPCT) */ 00788000 */*%INCLUDE SYSLIB (ILRATA ) */ 00789000 */*%INCLUDE SYSLIB (CVT ) */ 00790000 */*%INCLUDE SYSLIB (ILREPATH) */ 00791000 */*%INCLUDE SYSLIB (ILRLGE ) */ 00792000 */*%INCLUDE SYSLIB (ILRPART ) */ 00793000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00794000 */*%INCLUDE SYSLIB (IHARSMHD) */ 00795000 */*%INCLUDE SYSLIB (IHASDWA ) */ 00796000 */*%INCLUDE SYSLIB (IHASRB ) */ 00797000 * 0272 00798000 * ; 0272 00799000 @DATA DS 0H 00800000 @CH00398 DC H'24' 00801000 @DATD DSECT 00802000 DS 0F 00803000 ILRSRB01 CSECT 00804000 DS 0F 00805000 @DATD DSECT 00806000 DS 0D 00807000 @ENDDATD EQU * 00808000 ILRSRB01 CSECT 00809000 NOPR ((@ENDDATD-@DATD)*16) 00810000 DS 0F 00811000 @SIZDATD DC AL1(0) 00812000 DC AL3(@ENDDATD-@DATD) 00813000 @CV02106 DC V(IEAVEADV) 00814000 @CV02107 DC V(ILRCQIOE) 00815000 @CV02108 DC V(ILRVAIAQ) 00816000 @CV02109 DC V(ILRVACEQ) 00817000 @CV02110 DC V(ILRVLPRQ) 00818000 @CV02111 DC V(ILRVASGQ) 00819000 @CV02112 DC V(ILRVAIAC) 00820000 DS 0D 00821000 @CC02084 DC C'ILRSRBC ILRSRBC ILRSRB01' 00822000 @CC02082 DC C'ILRQIOE ' 00823000 @CB02080 DC X'C0D000' 00824000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00825000 @01 EQU 01 00826000 @02 EQU 02 00827000 @03 EQU 03 00828000 @04 EQU 04 00829000 @05 EQU 05 00830000 @06 EQU 06 00831000 @07 EQU 07 00832000 @08 EQU 08 00833000 @09 EQU 09 00834000 @10 EQU 10 00835000 @11 EQU 11 00836000 @12 EQU 12 00837000 @13 EQU 13 00838000 @14 EQU 14 00839000 @15 EQU 15 00840000 ACEPTR EQU @05 00841000 AIAPTR EQU @09 00842000 ASMVTPTR EQU @03 00843000 ATAPTR EQU @04 00844000 EPAPTR EQU @05 00845000 LGEPTR EQU @00 00846000 PARTPTR EQU @06 00847000 RSMHDPTR EQU @02 00848000 SDWAPTR EQU @01 00849000 SRBPTR EQU @01 00850000 R0 EQU @00 00851000 VERFREG EQU @00 00852000 R1 EQU @01 00853000 CELLADDR EQU @02 00854000 R5 EQU @05 00855000 COMPREG EQU @05 00856000 TRMCODE EQU @05 00857000 R6 EQU @06 00858000 TRMASID EQU @06 00859000 R7 EQU @07 00860000 SRBDREG EQU @08 00861000 QIOEDREG EQU @09 00862000 SAVLAST EQU @09 00863000 BASEREG EQU @10 00864000 R11 EQU @11 00865000 SAREG EQU @13 00866000 R14 EQU @14 00867000 R15 EQU @15 00868000 RTCODE EQU @15 00869000 GPR00P EQU @00 00870000 GPR01P EQU @01 00871000 GPR14P EQU @14 00872000 GPR15P EQU @15 00873000 PSA EQU 0 00874000 FLCRNPSW EQU PSA 00875000 FLCROPSW EQU PSA+8 00876000 FLCICCW2 EQU PSA+16 00877000 FLCCVT EQU FLCICCW2 00878000 PSAEEPSW EQU PSA+132 00879000 PSAESPSW EQU PSA+136 00880000 FLCSVILC EQU PSAESPSW+1 00881000 PSAEPPSW EQU PSA+140 00882000 FLCPIILC EQU PSAEPPSW+1 00883000 FLCPICOD EQU PSAEPPSW+2 00884000 PSAPICOD EQU FLCPICOD+1 00885000 FLCTEA EQU PSAEPPSW+4 00886000 FLCPER EQU PSA+152 00887000 FLCMCLA EQU PSA+168 00888000 FLCIOEL EQU FLCMCLA+4 00889000 FLCIOA EQU FLCMCLA+16 00890000 FLCFSA EQU FLCMCLA+80 00891000 PSAAOLD EQU PSA+548 00892000 PSASUPER EQU PSA+552 00893000 PSASUP1 EQU PSASUPER 00894000 PSASUP2 EQU PSASUPER+1 00895000 PSASUP3 EQU PSASUPER+2 00896000 PSASUP4 EQU PSASUPER+3 00897000 PSACLHT EQU PSA+640 00898000 PSALKSA EQU PSA+696 00899000 PSAHLHI EQU PSA+760 00900000 PSALITA EQU PSA+764 00901000 PSADSSFL EQU PSA+836 00902000 PSADSSF1 EQU PSADSSFL 00903000 PSADSSF3 EQU PSADSSFL+2 00904000 PSADSSF4 EQU PSADSSFL+3 00905000 PSARSVT EQU PSA+896 00906000 ACE EQU 0 00907000 ACEOP EQU ACE+8 00908000 ACEFLG1 EQU ACE+9 00909000 ACEFLG3 EQU ACE+11 00910000 ACELGE EQU ACE+12 00911000 ACELGN EQU ACE+16 00912000 ACERPN EQU ACELGN+4 00913000 ACETLPME EQU ACERPN 00914000 ACESYM EQU ACE+24 00915000 ACESRCID EQU ACESYM 00916000 ACESRBWK EQU ACE+36 00917000 AIA EQU 0 00918000 AIAFLG1 EQU AIA+9 00919000 AIAWRITE EQU AIAFLG1 00920000 AIAFLG2 EQU AIA+10 00921000 AIAPRIER EQU AIAFLG2 00922000 AIABADID EQU AIAFLG2 00923000 AIAFLG3 EQU AIA+11 00924000 AIAPRINO EQU AIAFLG3 00925000 AIANXAIA EQU AIA+12 00926000 AIAID EQU AIA+16 00927000 AIALPID EQU AIAID 00928000 AIALGID EQU AIALPID 00929000 AIALSID EQU AIALGID 00930000 AIASSID EQU AIALSID+1 00931000 AIARPN EQU AIALPID+4 00932000 AIALSID2 EQU AIARPN 00933000 AIALPMEP EQU AIALSID2 00934000 AIAGRPSZ EQU AIA+24 00935000 AIALGE EQU AIAGRPSZ 00936000 ASCB EQU 0 00937000 ASCBSUPC EQU ASCB+16 00938000 ASCBASID EQU ASCB+36 00939000 ASCBRSM EQU ASCB+52 00940000 ASCBFW1 EQU ASCB+100 00941000 ASCBRCTF EQU ASCBFW1+2 00942000 ASCBFLG1 EQU ASCBFW1+3 00943000 ASCBDSP1 EQU ASCB+114 00944000 ASCBFLG2 EQU ASCB+115 00945000 ASCBLKGP EQU ASCB+128 00946000 ASCBSRQ EQU ASCB+180 00947000 ASCBSRQ1 EQU ASCBSRQ 00948000 ASCBSRQ2 EQU ASCBSRQ+1 00949000 ASCBSRQ3 EQU ASCBSRQ+2 00950000 ASCBSRQ4 EQU ASCBSRQ+3 00951000 ASMVT EQU 0 00952000 ASMFLAG1 EQU ASMVT 00953000 ASMFLAG2 EQU ASMVT+1 00954000 ASMPART EQU ASMVT+8 00955000 ASMSTAGQ EQU ASMVT+32 00956000 ASMSTAGL EQU ASMSTAGQ+4 00957000 ASMPCCWQ EQU ASMVT+64 00958000 ASMLSAI EQU ASMVT+144 00959000 ASMGOSQS EQU ASMVT+152 00960000 ASMPEX EQU ASMVT+224 00961000 ASMBWKPC EQU ASMVT+312 00962000 ASMWKSA1 EQU ASMVT+368 00963000 ASMWKSA2 EQU ASMVT+448 00964000 ASMWKSA3 EQU ASMVT+528 00965000 ASMWKSA4 EQU ASMVT+608 00966000 ASMWKSA5 EQU ASMVT+688 00967000 ASMPOOLS EQU 0 00968000 ASMCPAVQ EQU ASMPOOLS+8 00969000 ASMCPAVL EQU ASMCPAVQ 00970000 ASMCPRSQ EQU ASMPOOLS+16 00971000 ASPCT EQU 0 00972000 ASPHDR EQU ASPCT 00973000 ASPBKEY EQU ASPHDR+8 00974000 ASPLGE EQU ASPHDR+24 00975000 ASPFLAG EQU ASPHDR+28 00976000 ASPEXTSN EQU 0 00977000 ASPEHDR EQU ASPEXTSN 00978000 ASPEXKEY EQU ASPEHDR+8 00979000 ASPSECTA EQU ASPEXTSN+64 00980000 ASPLPME EQU 0 00981000 ASPLPFLG EQU ASPLPME 00982000 ASPLVALD EQU ASPLPFLG 00983000 ASPLOPIN EQU ASPLPFLG 00984000 ASPVLSID EQU ASPLPME+1 00985000 ATA EQU 0 00986000 ATAMODID EQU ATA 00987000 ATASFLGS EQU ATA+1 00988000 ATAQIOE EQU ATASFLGS 00989000 ATARFLGS EQU ATA+4 00990000 ATARCRSN EQU ATA+6 00991000 ATACLEAR EQU ATA+8 00992000 ATAAIACE EQU ATACLEAR 00993000 ATAAIAQ EQU ATACLEAR+4 00994000 ATAACEQ EQU ATACLEAR+8 00995000 ATAEPATH EQU ATACLEAR+12 00996000 CVTMAP EQU 0 00997000 CVTBTERM EQU CVTMAP+52 00998000 CVTDAR EQU CVTMAP+72 00999000 CVTFLGS1 EQU CVTDAR 01000000 CVTDCB EQU CVTMAP+116 01001000 CVTIERLC EQU CVTMAP+144 01002000 CVTOPTA EQU CVTMAP+182 01003000 CVTOPTB EQU CVTMAP+183 01004000 CVTGTF EQU CVTMAP+236 01005000 CVTGTFST EQU CVTGTF 01006000 CVTGTFS EQU CVTGTFST 01007000 CVTSTATE EQU CVTGTFST 01008000 CVTTMODE EQU CVTGTFST 01009000 CVTFORM EQU CVTGTFST 01010000 CVTAQAVT EQU CVTMAP+240 01011000 CVTTCMFG EQU CVTAQAVT 01012000 CVTVOLM2 EQU CVTMAP+244 01013000 CVTTATA EQU CVTVOLM2 01014000 CVTTSKS EQU CVTTATA 01015000 CVTVOLF2 EQU CVTTSKS 01016000 CVTTAT EQU CVTTATA+1 01017000 CVTATER EQU CVTMAP+248 01018000 CVTEXT1 EQU CVTMAP+252 01019000 CVTPURG EQU CVTMAP+260 01020000 CVTQMSG EQU CVTMAP+268 01021000 CVTDMSR EQU CVTMAP+272 01022000 CVTRSV37 EQU CVTDMSR 01023000 CVTDMSRF EQU CVTRSV37 01024000 CVTERPV EQU CVTMAP+316 01025000 CVTINTLA EQU CVTMAP+320 01026000 CVTAPF EQU CVTMAP+324 01027000 CVTEXT2 EQU CVTMAP+328 01028000 CVTHJES EQU CVTMAP+332 01029000 CVTPGSIA EQU CVTMAP+348 01030000 CVTA1F1 EQU CVTMAP+356 01031000 CVTSYSK EQU CVTMAP+357 01032000 CVTVOLM1 EQU CVTMAP+380 01033000 CVTVOLF1 EQU CVTVOLM1 01034000 CVTATMCT EQU CVTMAP+388 01035000 CVTXTNT1 EQU 0 01036000 CVTXTNT2 EQU 0 01037000 CVTDSSV EQU CVTXTNT2 01038000 CVTFLGBT EQU CVTXTNT2+5 01039000 CVTQID EQU CVTXTNT2+24 01040000 CVTRV400 EQU CVTXTNT2+52 01041000 CVTRV409 EQU CVTXTNT2+53 01042000 CVTATCVT EQU CVTXTNT2+64 01043000 CVTRV429 EQU CVTXTNT2+84 01044000 CVTRV438 EQU CVTXTNT2+85 01045000 CVTRV457 EQU CVTXTNT2+112 01046000 CVTRV466 EQU CVTXTNT2+113 01047000 CVTFIX EQU 0 01048000 CVTRELNO EQU CVTFIX+252 01049000 EPATH EQU 0 01050000 EPAVSAM EQU EPATH 01051000 EPAOWKA EQU EPAVSAM 01052000 EPAVWKA EQU EPAVSAM+4 01053000 EPATMWKA EQU EPAVWKA 01054000 EPASWKA EQU EPATMWKA 01055000 EPAAASP EQU EPAVSAM+8 01056000 EPABASP EQU EPAVSAM+12 01057000 EPARASP EQU EPAVSAM+16 01058000 EPARTYRG EQU EPAVSAM+20 01059000 EPABKSLT EQU EPARTYRG 01060000 EPAFLAG1 EQU EPAVSAM+24 01061000 EPAGRPOP EQU EPAFLAG1 01062000 EPAFLAG2 EQU EPAVSAM+25 01063000 LGE EQU 0 01064000 LGEPROCQ EQU LGE 01065000 LGEFLAG1 EQU LGE+8 01066000 LGEWRKPD EQU LGEFLAG1 01067000 LGEGRINP EQU LGEFLAG1 01068000 LGEASPCT EQU LGE+12 01069000 LGENEXT EQU LGE+16 01070000 PART EQU 0 01071000 PARTHDR EQU PART 01072000 PARTAIAE EQU PARTHDR+12 01073000 PARTTPAR EQU PARTHDR+24 01074000 PARTCOMQ EQU PARTHDR+48 01075000 PARTSPLQ EQU PARTHDR+56 01076000 PARTDUPQ EQU PARTHDR+64 01077000 PARTLOCQ EQU PARTHDR+72 01078000 PARTENT EQU 0 01079000 PARELKUP EQU PARTENT+4 01080000 PARELKFL EQU PARELKUP 01081000 PARETYPE EQU PARTENT+8 01082000 PAREFLG1 EQU PARTENT+9 01083000 RSMHD EQU 0 01084000 RSMFLG1 EQU RSMHD+12 01085000 RSMQS EQU RSMHD+20 01086000 RSMLFQ EQU RSMQS 01087000 RSMLSQA EQU RSMQS+4 01088000 RSMLIOQ EQU RSMQS+8 01089000 RSMASMHD EQU RSMHD+40 01090000 SDWA EQU 0 01091000 SDWAPARM EQU SDWA 01092000 SDWAFIOB EQU SDWA+4 01093000 SDWAABCC EQU SDWAFIOB 01094000 SDWACMPF EQU SDWAABCC 01095000 SDWACMPC EQU SDWAABCC+1 01096000 SDWACTL1 EQU SDWA+8 01097000 SDWACMKA EQU SDWACTL1 01098000 SDWAMWPA EQU SDWACTL1+1 01099000 SDWAPMKA EQU SDWACTL1+4 01100000 SDWACTL2 EQU SDWA+16 01101000 SDWACMKP EQU SDWACTL2 01102000 SDWAMWPP EQU SDWACTL2+1 01103000 SDWAPMKP EQU SDWACTL2+4 01104000 SDWAGRSV EQU SDWA+24 01105000 SDWANAME EQU SDWA+88 01106000 SDWAEC1 EQU SDWA+104 01107000 SDWAEMK1 EQU SDWAEC1 01108000 SDWAMWP1 EQU SDWAEC1+1 01109000 SDWAINT1 EQU SDWAEC1+2 01110000 SDWANXT1 EQU SDWAEC1+4 01111000 SDWAAEC1 EQU SDWA+112 01112000 SDWAILC1 EQU SDWAAEC1+1 01113000 SDWAINC1 EQU SDWAAEC1+2 01114000 SDWAICD1 EQU SDWAINC1+1 01115000 SDWAEC2 EQU SDWA+120 01116000 SDWAEMK2 EQU SDWAEC2 01117000 SDWAMWP2 EQU SDWAEC2+1 01118000 SDWAINT2 EQU SDWAEC2+2 01119000 SDWANXT2 EQU SDWAEC2+4 01120000 SDWAAEC2 EQU SDWA+128 01121000 SDWAILC2 EQU SDWAAEC2+1 01122000 SDWAINC2 EQU SDWAAEC2+2 01123000 SDWAICD2 EQU SDWAINC2+1 01124000 SDWASRSV EQU SDWA+136 01125000 SDWAIDNT EQU SDWA+200 01126000 SDWAMCH EQU SDWA+204 01127000 SDWASTCK EQU SDWAMCH 01128000 SDWAMCHI EQU SDWAMCH+8 01129000 SDWAMCHS EQU SDWAMCHI 01130000 SDWAMCHD EQU SDWAMCHI+1 01131000 SDWARSR1 EQU SDWAMCH+12 01132000 SDWARSR2 EQU SDWAMCH+13 01133000 SDWAFLGS EQU SDWA+232 01134000 SDWAERRA EQU SDWAFLGS 01135000 SDWAERRB EQU SDWAFLGS+1 01136000 SDWAERRC EQU SDWAFLGS+2 01137000 SDWAERRD EQU SDWAFLGS+3 01138000 SDWAIOFS EQU SDWA+238 01139000 SDWARTYA EQU SDWA+240 01140000 SDWACPUA EQU SDWA+248 01141000 SDWAPARQ EQU SDWA+252 01142000 SDWARCDE EQU SDWAPARQ 01143000 SDWAACF2 EQU SDWAPARQ+1 01144000 SDWARCRD EQU SDWAACF2 01145000 SDWAACF3 EQU SDWAPARQ+2 01146000 SDWAACF4 EQU SDWAPARQ+3 01147000 SDWALKWA EQU SDWA+256 01148000 SDWALKWS EQU SDWALKWA 01149000 SDWAAPLW EQU SDWALKWS+16 01150000 SDWARECP EQU SDWA+292 01151000 SDWACSCT EQU SDWARECP+8 01152000 SDWASNPA EQU SDWA+320 01153000 SDWADUMP EQU SDWASNPA 01154000 SDWADPFS EQU SDWADUMP+1 01155000 SDWADDAT EQU SDWASNPA+4 01156000 SDWASDAT EQU SDWADDAT 01157000 SDWAPDAT EQU SDWADDAT+2 01158000 SDWADPSA EQU SDWA+328 01159000 SDWADPSL EQU SDWADPSA 01160000 SDWARA EQU SDWA+400 01161000 SDWADPVA EQU SDWARA+2 01162000 SDWAURAL EQU SDWARA+3 01163000 SDWAVRA EQU SDWARA+4 01164000 SRBSECT EQU 0 01165000 SRB EQU SRBSECT 01166000 SRBFLNK EQU SRB+4 01167000 SRBFLC EQU SRB+12 01168000 DATAMAP EQU 0 01169000 SAVER14 EQU DATAMAP+92 01170000 SAVBASE EQU DATAMAP+96 01171000 SAV2R14 EQU SAVBASE 01172000 REGSAVE EQU DATAMAP+100 01173000 SAVRSMHD EQU REGSAVE+4 01174000 SAVASMVT EQU REGSAVE+8 01175000 WRKAREA EQU DATAMAP+116 01176000 SAVAREA EQU WRKAREA 01177000 RECSDWA EQU 0 01178000 FRRWORKA EQU 0 01179000 NXSEQIN EQU 0 01180000 I256C EQU 0 01181000 GMACELL EQU 0 01182000 GMANEXT EQU GMACELL 01183000 ILRPEX EQU 0 01184000 I001C EQU 0 01185000 I008P EQU 0 01186000 I015F EQU 0 01187000 I015P EQU 0 01188000 I031F EQU 0 01189000 I031P EQU 0 01190000 ASCBPTR EQU PSAAOLD 01191000 DUMMY EQU RSMASMHD 01192000 ASMHD EQU DUMMY 01193000 ASHFLAG1 EQU ASMHD 01194000 ASHFLAG2 EQU ASMHD+1 01195000 ASHSCHED EQU ASHFLAG2 01196000 ASHIOCNT EQU ASMHD+8 01197000 ASHLOCK EQU ASMHD+20 01198000 ASHVSRBP EQU ASMHD+24 01199000 ASHLGEQ EQU ASMHD+28 01200000 ASM1WKSV EQU ASMWKSA1 01201000 ASM1RGSV EQU ASM1WKSV 01202000 ASM1WRKA EQU ASM1WKSV+60 01203000 ASM2WKSV EQU ASMWKSA2 01204000 ASM2WRKA EQU ASM2WKSV+52 01205000 ASM2FLGS EQU ASM2WRKA+12 01206000 ASM3WKSV EQU ASMWKSA3 01207000 ASM4WKSV EQU ASMWKSA4 01208000 ASM4RGSV EQU ASM4WKSV 01209000 ASM5WKSV EQU ASMWKSA5 01210000 ASM5RGSV EQU ASM5WKSV 01211000 ASPASST EQU ASPSECTA 01212000 CVTPTR EQU FLCCVT 01213000 CVTS01 EQU CVTPGSIA 01214000 CVTLPDIA EQU CVTS01+12 01215000 CVTDIRST EQU CVTLPDIA 01216000 CVTSLIDA EQU CVTS01+24 01217000 CVTCTLFG EQU CVTS01+50 01218000 CVTLSMQ EQU CVTS01+268 01219000 CVTASMVT EQU CVTS01+356 01220000 CVTRV210 EQU CVTS01+424 01221000 CVTRV219 EQU CVTS01+425 01222000 CVTRV228 EQU CVTS01+426 01223000 CVTRV237 EQU CVTS01+427 01224000 CVTMFRTR EQU CVTS01+452 01225000 CVTRV262 EQU CVTS01+468 01226000 CVTRV271 EQU CVTS01+469 01227000 CVTRV280 EQU CVTS01+470 01228000 CVTRV289 EQU CVTS01+471 01229000 CVTGSDA EQU CVTS01+600 01230000 PSARSVTE EQU PSARSVT 01231000 ASPLPMEE EQU ASPSECTA 01232000 FLC EQU PSA 01233000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01234000 PSARSAV EQU PSARSVTE+60 01235000 PSARSTK EQU PSARSVTE+56 01236000 PSAESAV3 EQU PSARSVTE+52 01237000 PSAESTK3 EQU PSARSVTE+48 01238000 PSAESAV2 EQU PSARSVTE+44 01239000 PSAESTK2 EQU PSARSVTE+40 01240000 PSAESAV1 EQU PSARSVTE+36 01241000 PSAESTK1 EQU PSARSVTE+32 01242000 PSAPSAV EQU PSARSVTE+28 01243000 PSAPSTK EQU PSARSVTE+24 01244000 PSAMSAV EQU PSARSVTE+20 01245000 PSAMSTK EQU PSARSVTE+16 01246000 PSASSAV EQU PSARSVTE+12 01247000 PSASSTK EQU PSARSVTE+8 01248000 PSANSTK EQU PSARSVTE+4 01249000 PSACSTK EQU PSARSVTE 01250000 CVTRV628 EQU CVTS01+728 01251000 CVTRV627 EQU CVTS01+724 01252000 CVTRV626 EQU CVTS01+720 01253000 CVTRV625 EQU CVTS01+716 01254000 CVTRV624 EQU CVTS01+712 01255000 CVTRV623 EQU CVTS01+708 01256000 CVTRV622 EQU CVTS01+704 01257000 CVTRV621 EQU CVTS01+700 01258000 CVTIHASU EQU CVTS01+696 01259000 CVTSUSP EQU CVTS01+692 01260000 CVTT6SVC EQU CVTS01+688 01261000 CVTCDAL EQU CVTS01+684 01262000 CVTTCTL EQU CVTS01+680 01263000 CVTRSUME EQU CVTS01+676 01264000 CVTJTERM EQU CVTS01+672 01265000 CVTASMRM EQU CVTS01+668 01266000 CVTTCASP EQU CVTS01+664 01267000 CVT0PT03 EQU CVTS01+660 01268000 CVT0PT0E EQU CVTS01+656 01269000 CVTRV609 EQU CVTS01+652 01270000 CVTCGK EQU CVTS01+648 01271000 CVTRAC EQU CVTS01+644 01272000 CVTRV606 EQU CVTS01+640 01273000 CVTRV605 EQU CVTS01+636 01274000 CVTRV604 EQU CVTS01+632 01275000 CVTEFF02 EQU CVTS01+628 01276000 CVTCBBR EQU CVTS01+624 01277000 CVTSSCR EQU CVTS01+620 01278000 CVTEVENT EQU CVTS01+616 01279000 CVTCRCA EQU CVTS01+612 01280000 CVTTPIO EQU CVTS01+608 01281000 CVTADV EQU CVTS01+604 01282000 CVTGSDAB EQU CVTGSDA 01283000 CVTQV3 EQU CVTS01+596 01284000 CVTQV2 EQU CVTS01+592 01285000 CVTQV1 EQU CVTS01+588 01286000 CVTRPT EQU CVTS01+584 01287000 CVTSSRB EQU CVTS01+580 01288000 CVTCSDRL EQU CVTS01+576 01289000 CVTEXP1 EQU CVTS01+572 01290000 CVTRMPMT EQU CVTS01+568 01291000 CVTRMPTT EQU CVTS01+564 01292000 CVTVPSA EQU CVTS01+560 01293000 CVTVSTOP EQU CVTS01+556 01294000 CVTGTFR8 EQU CVTS01+552 01295000 CVTQUIT EQU CVTS01+548 01296000 CVTVACR EQU CVTS01+544 01297000 CVTWTCB EQU CVTS01+540 01298000 CVTSTPRS EQU CVTS01+536 01299000 CVT0PT02 EQU CVTS01+532 01300000 CVTDARCM EQU CVTS01+528 01301000 CVTIRECM EQU CVTS01+524 01302000 CVTJRECM EQU CVTS01+520 01303000 CVTVEMS0 EQU CVTS01+516 01304000 CVTSPFRR EQU CVTS01+512 01305000 CVTRLSTG EQU CVTS01+508 01306000 CVT0TC0A EQU CVTS01+504 01307000 CVTGMBR EQU CVTS01+500 01308000 CVTLFRM EQU CVTS01+496 01309000 CVTRMBR EQU CVTS01+492 01310000 CVTVIOP EQU CVTS01+488 01311000 CVTRV307 EQU CVTS01+486 01312000 CVTRV306 EQU CVTS01+484 01313000 CVTRV305 EQU CVTS01+482 01314000 CVTRV304 EQU CVTS01+480 01315000 CVTRV303 EQU CVTS01+478 01316000 CVTRV302 EQU CVTS01+476 01317000 CVTTRCA EQU CVTS01+472 01318000 CVTRV297 EQU CVTRV289 01319000 CVTRV296 EQU CVTRV289 01320000 CVTRV295 EQU CVTRV289 01321000 CVTRV294 EQU CVTRV289 01322000 CVTRV293 EQU CVTRV289 01323000 CVTRV292 EQU CVTRV289 01324000 CVTRV291 EQU CVTRV289 01325000 CVTRV290 EQU CVTRV289 01326000 CVTRV288 EQU CVTRV280 01327000 CVTRV287 EQU CVTRV280 01328000 CVTRV286 EQU CVTRV280 01329000 CVTRV285 EQU CVTRV280 01330000 CVTRV284 EQU CVTRV280 01331000 CVTRV283 EQU CVTRV280 01332000 CVTRV282 EQU CVTRV280 01333000 CVTRV281 EQU CVTRV280 01334000 CVTRV279 EQU CVTRV271 01335000 CVTRV278 EQU CVTRV271 01336000 CVTRV277 EQU CVTRV271 01337000 CVTRV276 EQU CVTRV271 01338000 CVTRV275 EQU CVTRV271 01339000 CVTRV274 EQU CVTRV271 01340000 CVTRV273 EQU CVTRV271 01341000 CVTRV272 EQU CVTRV271 01342000 CVTRV270 EQU CVTRV262 01343000 CVTRV269 EQU CVTRV262 01344000 CVTRV268 EQU CVTRV262 01345000 CVTRV267 EQU CVTRV262 01346000 CVTRV266 EQU CVTRV262 01347000 CVTRV265 EQU CVTRV262 01348000 CVTRV264 EQU CVTRV262 01349000 CVTRV263 EQU CVTRV262 01350000 CVTVFP EQU CVTS01+464 01351000 CVTVSI EQU CVTS01+460 01352000 CVTVPSIB EQU CVTS01+456 01353000 CVTMFACT EQU CVTMFRTR 01354000 CVTMFCTL EQU CVTS01+448 01355000 CVTPVBP EQU CVTS01+444 01356000 CVTPWI EQU CVTS01+440 01357000 CVTRV254 EQU CVTS01+438 01358000 CVTRV253 EQU CVTS01+436 01359000 CVTRV252 EQU CVTS01+434 01360000 CVTRV251 EQU CVTS01+433 01361000 CVTRV250 EQU CVTS01+432 01362000 CVTRV249 EQU CVTS01+431 01363000 CVTRV248 EQU CVTS01+430 01364000 CVTRV247 EQU CVTS01+429 01365000 CVTRV246 EQU CVTS01+428 01366000 CVTRV245 EQU CVTRV237 01367000 CVTRV244 EQU CVTRV237 01368000 CVTRV243 EQU CVTRV237 01369000 CVTRV242 EQU CVTRV237 01370000 CVTRV241 EQU CVTRV237 01371000 CVTRV240 EQU CVTRV237 01372000 CVTRV239 EQU CVTRV237 01373000 CVTRV238 EQU CVTRV237 01374000 CVTRV236 EQU CVTRV228 01375000 CVTRV235 EQU CVTRV228 01376000 CVTRV234 EQU CVTRV228 01377000 CVTRV233 EQU CVTRV228 01378000 CVTRV232 EQU CVTRV228 01379000 CVTRV231 EQU CVTRV228 01380000 CVTRV230 EQU CVTRV228 01381000 CVTRV229 EQU CVTRV228 01382000 CVTRV227 EQU CVTRV219 01383000 CVTRV226 EQU CVTRV219 01384000 CVTRV225 EQU CVTRV219 01385000 CVTRV224 EQU CVTRV219 01386000 CVTRV223 EQU CVTRV219 01387000 CVTRV222 EQU CVTRV219 01388000 CVTRV221 EQU CVTRV219 01389000 CVTRV220 EQU CVTRV219 01390000 CVTRV218 EQU CVTRV210 01391000 CVTRV217 EQU CVTRV210 01392000 CVTRV216 EQU CVTRV210 01393000 CVTRV215 EQU CVTRV210 01394000 CVTRV214 EQU CVTRV210 01395000 CVTRV213 EQU CVTRV210 01396000 CVTRV212 EQU CVTRV210 01397000 CVTRV211 EQU CVTRV210 01398000 CVTLCCAT EQU CVTS01+420 01399000 CVTPCCAT EQU CVTS01+416 01400000 CVTIPCRP EQU CVTS01+412 01401000 CVTIPCRI EQU CVTS01+408 01402000 CVTIPCDS EQU CVTS01+404 01403000 CVTAIDVT EQU CVTS01+400 01404000 CVTSSAP EQU CVTS01+396 01405000 CVTEHCIR EQU CVTS01+392 01406000 CVTEHDEF EQU CVTS01+388 01407000 CVTDAIR EQU CVTS01+384 01408000 CVTPERFM EQU CVTS01+380 01409000 CVT044R2 EQU CVTS01+376 01410000 CVTFETCH EQU CVTS01+372 01411000 CVTRSTWD EQU CVTS01+368 01412000 CVTSPOST EQU CVTS01+364 01413000 CVTIOBP EQU CVTS01+360 01414000 CVTRECRQ EQU CVTS01+352 01415000 CVTWSAC EQU CVTS01+348 01416000 CVTRV149 EQU CVTS01+344 01417000 CVTWSAL EQU CVTS01+340 01418000 CVTSPSA EQU CVTS01+336 01419000 CVTGLMN EQU CVTS01+332 01420000 CVTVEAC0 EQU CVTS01+328 01421000 CVT062R1 EQU CVTS01+324 01422000 CVTRPOST EQU CVTS01+320 01423000 CVTDQIQE EQU CVTS01+316 01424000 CVTCSD EQU CVTS01+312 01425000 CVTLKRMA EQU CVTS01+308 01426000 CVTRSPIE EQU CVTS01+304 01427000 CVTRENQ EQU CVTS01+300 01428000 CVTLQCB EQU CVTS01+296 01429000 CVTFQCB EQU CVTS01+292 01430000 CVTQCS01 EQU CVTS01+288 01431000 CVTAPFT EQU CVTS01+284 01432000 CVTPARRL EQU CVTS01+280 01433000 CVTVWAIT EQU CVTS01+276 01434000 CVTGSPL EQU CVTS01+272 01435000 CVTGSMQ EQU CVTS01+264 01436000 CVTEXPRO EQU CVTS01+260 01437000 CVTOPCTP EQU CVTS01+256 01438000 CVTSIC EQU CVTS01+252 01439000 CVTTPIOS EQU CVTS01+248 01440000 CVTRTMS EQU CVTS01+244 01441000 CVTSDBF EQU CVTS01+240 01442000 CVTSCBP EQU CVTS01+236 01443000 CVTSDMP EQU CVTS01+232 01444000 CVTSV60 EQU CVTS01+228 01445000 CVTRTMCT EQU CVTS01+224 01446000 CVTASCBL EQU CVTS01+220 01447000 CVTASCBH EQU CVTS01+216 01448000 CVTGDA EQU CVTS01+212 01449000 CVTASVT EQU CVTS01+208 01450000 CVTVVMDI EQU CVTS01+204 01451000 CVTAQTOP EQU CVTS01+200 01452000 CVTIOSCS EQU CVTS01+196 01453000 CVTSDRM EQU CVTS01+192 01454000 CVTOPTE EQU CVTS01+188 01455000 CVTSTXU EQU CVTS01+184 01456000 CVTQUIS EQU CVTS01+180 01457000 CVTPARS EQU CVTS01+176 01458000 CVTS1EE EQU CVTS01+172 01459000 CVTFRAS EQU CVTS01+168 01460000 CVTQSAS EQU CVTS01+164 01461000 CVTCRAS EQU CVTS01+160 01462000 CVTCRMN EQU CVTS01+156 01463000 CVTDELCP EQU CVTS01+152 01464000 CVTFRECL EQU CVTS01+148 01465000 CVTGETCL EQU CVTS01+144 01466000 CVTBLDCP EQU CVTS01+140 01467000 CVTAUTHL EQU CVTS01+136 01468000 CVTSCAN EQU CVTS01+132 01469000 CVTRV144 EQU CVTS01+130 01470000 CVTMAXMP EQU CVTS01+128 01471000 CVTSTCK EQU CVTS01+124 01472000 CVTRV139 EQU CVTS01+123 01473000 CVTDSSAC EQU CVTS01+122 01474000 CVTRV513 EQU CVTS01+121 01475000 CVTIOSPL EQU CVTS01+120 01476000 CVTPTGT EQU CVTS01+116 01477000 CVTCSPIE EQU CVTS01+112 01478000 CVTSMFEX EQU CVTS01+108 01479000 CVTOLT0A EQU CVTS01+104 01480000 CVTSRBRT EQU CVTS01+100 01481000 CVTPUTL EQU CVTS01+96 01482000 CVTASCRL EQU CVTS01+92 01483000 CVTASCRF EQU CVTS01+88 01484000 CVTRV326 EQU CVTS01+84 01485000 CVTRV325 EQU CVTS01+80 01486000 CVTRV324 EQU CVTS01+76 01487000 CVT0VL01 EQU CVTS01+72 01488000 CVTSHRVM EQU CVTS01+68 01489000 CVTRV332 EQU CVTS01+64 01490000 CVTTAS EQU CVTS01+60 01491000 CVTRSCN EQU CVTS01+56 01492000 CVTTRAC2 EQU CVTS01+54 01493000 CVTTRACE EQU CVTS01+52 01494000 CVTAPG EQU CVTS01+51 01495000 CVTSDTRC EQU CVTCTLFG 01496000 CVTGTRCE EQU CVTCTLFG 01497000 CVTNOMP EQU CVTCTLFG 01498000 CVTRSV79 EQU CVTCTLFG 01499000 CVTDSTAT EQU CVTCTLFG 01500000 CVTRSV78 EQU CVTCTLFG 01501000 CVTRV333 EQU CVTCTLFG 01502000 CVTRV323 EQU CVTCTLFG 01503000 CVTSPVLK EQU CVTS01+49 01504000 CVTRSV77 EQU CVTS01+48 01505000 CVTRV331 EQU CVTS01+44 01506000 CVTRV330 EQU CVTS01+40 01507000 CVTRV329 EQU CVTS01+36 01508000 CVTRV328 EQU CVTS01+32 01509000 CVTRV322 EQU CVTS01+28 01510000 CVTSLID EQU CVTSLIDA+1 01511000 CVTSYLK EQU CVTSLIDA 01512000 CVTRV321 EQU CVTS01+20 01513000 CVTRV320 EQU CVTS01+16 01514000 CVTLPDIR EQU CVTLPDIA+1 01515000 CVTRSV69 EQU CVTDIRST 01516000 CVTRSV68 EQU CVTDIRST 01517000 CVTRSV67 EQU CVTDIRST 01518000 CVTRSV66 EQU CVTDIRST 01519000 CVTRSV65 EQU CVTDIRST 01520000 CVTRSV64 EQU CVTDIRST 01521000 CVTRSV63 EQU CVTDIRST 01522000 CVTDICOM EQU CVTDIRST 01523000 CVTPVTP EQU CVTS01+8 01524000 CVTLPDSR EQU CVTS01+4 01525000 CVTGETL EQU CVTS01 01526000 ASPASSTE EQU ASPASST 01527000 ASM5FLGS EQU ASM5WKSV+64 01528000 ASM5AIA EQU ASM5WKSV+60 01529000 ASM5GCTR EQU ASM5WKSV+56 01530000 ASM5SR14 EQU ASM5WKSV+52 01531000 @NM00008 EQU ASM5RGSV+4 01532000 ASM5RG2 EQU ASM5RGSV 01533000 @NM00007 EQU ASM4RGSV+4 01534000 ASM4RG2 EQU ASM4RGSV 01535000 ASM3SR13 EQU ASM3WKSV+28 01536000 ASM3R14B EQU ASM3WKSV+24 01537000 ASM3R14A EQU ASM3WKSV+20 01538000 ASM3GRPA EQU ASM3WKSV+16 01539000 ASM3TMPA EQU ASM3WKSV+12 01540000 ASM3PIOP EQU ASM3WKSV+8 01541000 ASM3GENQ EQU ASM3WKSV+4 01542000 ASM3SWPQ EQU ASM3WKSV 01543000 ASM2SR14 EQU ASM2WRKA+16 01544000 @NM00006 EQU ASM2WRKA+13 01545000 ASM2WFLG EQU ASM2FLGS 01546000 ASM2RFLG EQU ASM2FLGS 01547000 ASM2DUPQ EQU ASM2WRKA+8 01548000 ASM2CAQ EQU ASM2WRKA+4 01549000 ASM2PAQ EQU ASM2WRKA 01550000 ASM2RGSV EQU ASM2WKSV 01551000 ASM1NXTA EQU ASM1WRKA+4 01552000 ASM1ASCB EQU ASM1WRKA 01553000 ASM1RG15 EQU ASM1RGSV+56 01554000 @NM00005 EQU ASM1RGSV+4 01555000 ASM1RG1 EQU ASM1RGSV 01556000 ASHCAPQ EQU ASMHD+16 01557000 ASHSWAPQ EQU ASMHD+12 01558000 ASHBKSLT EQU ASMHD+4 01559000 ASHSWPCT EQU ASMHD+2 01560000 ASHRSV12 EQU ASHFLAG2 01561000 ASHRSV11 EQU ASHFLAG2 01562000 ASHRSV10 EQU ASHFLAG2 01563000 ASHRSV9 EQU ASHFLAG2 01564000 ASHRSV8 EQU ASHFLAG2 01565000 ASHRSV7 EQU ASHFLAG2 01566000 ASHRSV13 EQU ASHFLAG2 01567000 ASHRSV6 EQU ASHFLAG1 01568000 ASHRSV5 EQU ASHFLAG1 01569000 ASHRSV4 EQU ASHFLAG1 01570000 ASHRSV3 EQU ASHFLAG1 01571000 ASHRSV2 EQU ASHFLAG1 01572000 ASHPERME EQU ASHFLAG1 01573000 ASHCAPER EQU ASHFLAG1 01574000 ASHSWPOT EQU ASHFLAG1 01575000 @NM00104 EQU WRKAREA+72 01576000 SAVATA EQU REGSAVE+12 01577000 SAVSDWA EQU REGSAVE 01578000 VERAREA EQU DATAMAP 01579000 @NM00103 EQU SRB+40 01580000 @NM00102 EQU SRB+38 01581000 SRBPRIOR EQU SRB+37 01582000 SRBPKF EQU SRB+36 01583000 SRBSAVE EQU SRB+32 01584000 SRBPARM EQU SRB+28 01585000 SRBRMTR EQU SRB+24 01586000 SRBEP EQU SRB+20 01587000 SRBPTCB EQU SRBFLC+4 01588000 SRBPASID EQU SRBFLC+2 01589000 SRBCPAFF EQU SRBFLC 01590000 SRBASCB EQU SRB+8 01591000 SRBID EQU SRB 01592000 @NM00101 EQU SDWA+512 01593000 @NM00100 EQU SDWADPVA 01594000 SDWAEBC EQU SDWADPVA 01595000 SDWAHEX EQU SDWADPVA 01596000 SDWAVRAL EQU SDWARA 01597000 @NM00099 EQU SDWA+396 01598000 SDWACOMP EQU SDWA+392 01599000 SDWARCPL EQU SDWA+364 01600000 @NM00098 EQU SDWADPSA+32 01601000 SDWATO4 EQU SDWADPSL+28 01602000 SDWAFRM4 EQU SDWADPSL+24 01603000 SDWATO3 EQU SDWADPSL+20 01604000 SDWAFRM3 EQU SDWADPSL+16 01605000 SDWATO2 EQU SDWADPSL+12 01606000 SDWAFRM2 EQU SDWADPSL+8 01607000 SDWATO1 EQU SDWADPSL+4 01608000 SDWAFRM1 EQU SDWADPSL 01609000 @NM00097 EQU SDWADDAT+3 01610000 @NM00096 EQU SDWAPDAT 01611000 SDWAUSPL EQU SDWAPDAT 01612000 SDWADPSW EQU SDWAPDAT 01613000 SDWATJPA EQU SDWAPDAT 01614000 SDWATLPA EQU SDWAPDAT 01615000 SDWADREG EQU SDWAPDAT 01616000 SDWADSAH EQU SDWAPDAT 01617000 SDWADSAS EQU SDWAPDAT 01618000 @NM00095 EQU SDWADDAT+1 01619000 @NM00094 EQU SDWASDAT 01620000 SDWAQQS EQU SDWASDAT 01621000 SDWACBS EQU SDWASDAT 01622000 SDWAGTF EQU SDWASDAT 01623000 SDWASWA EQU SDWASDAT 01624000 SDWALSQA EQU SDWASDAT 01625000 SDWASQA EQU SDWASDAT 01626000 SDWANUC EQU SDWASDAT 01627000 @NM00093 EQU SDWADUMP+2 01628000 @NM00092 EQU SDWADPFS 01629000 SDWASLST EQU SDWADPFS 01630000 @NM00091 EQU SDWADPFS 01631000 SDWADLST EQU SDWADPFS 01632000 SDWADPT EQU SDWADPFS 01633000 SDWADPID EQU SDWADUMP 01634000 SDWADPLA EQU SDWA+316 01635000 SDWAREXN EQU SDWARECP+16 01636000 SDWAMODN EQU SDWARECP 01637000 @NM00090 EQU SDWA+290 01638000 SDWAASID EQU SDWA+288 01639000 SDWATALW EQU SDWALKWS+28 01640000 SDWATDLW EQU SDWALKWS+24 01641000 SDWATNLW EQU SDWALKWS+20 01642000 SDWAIPLW EQU SDWALKWS+12 01643000 SDWAILLW EQU SDWALKWS+8 01644000 SDWAIULW EQU SDWALKWS+4 01645000 SDWAICLW EQU SDWALKWS 01646000 SDWAFLLK EQU SDWAACF4 01647000 SDWACMS EQU SDWAACF4 01648000 SDWAOPTM EQU SDWAACF4 01649000 SDWATADB EQU SDWAACF4 01650000 SDWATDNB EQU SDWAACF4 01651000 SDWATNCB EQU SDWAACF4 01652000 SDWAILCH EQU SDWAACF4 01653000 SDWAIUCB EQU SDWAACF4 01654000 SDWAICAT EQU SDWAACF3 01655000 SDWAIPRG EQU SDWAACF3 01656000 SDWASALL EQU SDWAACF3 01657000 SDWAASMP EQU SDWAACF3 01658000 SDWADISP EQU SDWAACF3 01659000 @NM00089 EQU SDWAACF3 01660000 @NM00088 EQU SDWAACF2 01661000 SDWAFREE EQU SDWAACF2 01662000 SDWAUPRG EQU SDWAACF2 01663000 @NM00087 EQU SDWAACF2 01664000 SDWASPIN EQU SDWAACF2 01665000 @NM00086 EQU SDWAACF2 01666000 SDWALCPU EQU SDWACPUA+2 01667000 @NM00085 EQU SDWACPUA 01668000 SDWARECA EQU SDWA+244 01669000 @NM00084 EQU SDWA+239 01670000 @NM00083 EQU SDWAIOFS 01671000 SDWANIOP EQU SDWAIOFS 01672000 SDWANOIO EQU SDWAIOFS 01673000 SDWAIOHT EQU SDWAIOFS 01674000 SDWAIOQR EQU SDWAIOFS 01675000 SDWAFMID EQU SDWA+236 01676000 @NM00082 EQU SDWAERRD 01677000 SDWAMCIV EQU SDWAERRD 01678000 SDWARPIV EQU SDWAERRD 01679000 SDWAMABD EQU SDWAERRD 01680000 SDWACTS EQU SDWAERRD 01681000 SDWASTAE EQU SDWAERRD 01682000 SDWANRBE EQU SDWAERRD 01683000 SDWACLUP EQU SDWAERRD 01684000 @NM00081 EQU SDWAERRC 01685000 SDWAEAS EQU SDWAERRC 01686000 SDWAPERC EQU SDWAERRC 01687000 SDWAIRB EQU SDWAERRC 01688000 SDWASTAI EQU SDWAERRC 01689000 SDWASTAF EQU SDWAERRC 01690000 SDWASRBM EQU SDWAERRB 01691000 SDWALDIS EQU SDWAERRB 01692000 SDWAENRB EQU SDWAERRB 01693000 SDWATYP1 EQU SDWAERRB 01694000 @NM00080 EQU SDWAERRB 01695000 SDWAPGIO EQU SDWAERRA 01696000 SDWATEXC EQU SDWAERRA 01697000 SDWASVCE EQU SDWAERRA 01698000 SDWAABTM EQU SDWAERRA 01699000 SDWASVCD EQU SDWAERRA 01700000 SDWARKEY EQU SDWAERRA 01701000 SDWAPCHK EQU SDWAERRA 01702000 SDWAMCHK EQU SDWAERRA 01703000 SDWATIME EQU SDWAMCH+20 01704000 SDWARFSA EQU SDWAMCH+16 01705000 @NM00079 EQU SDWAMCH+14 01706000 SDWAVEQR EQU SDWARSR2 01707000 SDWAPGFX EQU SDWARSR2 01708000 SDWAFLSQ EQU SDWARSR2 01709000 SDWAFSQA EQU SDWARSR2 01710000 SDWANUCL EQU SDWARSR2 01711000 SDWASPER EQU SDWARSR2 01712000 SDWAINTC EQU SDWARSR2 01713000 SDWAOFLN EQU SDWARSR2 01714000 SDWACHNG EQU SDWARSR1 01715000 SDWAMSER EQU SDWARSR1 01716000 @NM00078 EQU SDWARSR1 01717000 SDWACPID EQU SDWAMCH+10 01718000 SDWATERR EQU SDWAMCHD 01719000 SDWAFPRX EQU SDWAMCHD 01720000 SDWAINSF EQU SDWAMCHD 01721000 SDWAACR EQU SDWAMCHD 01722000 SDWASCK EQU SDWAMCHD 01723000 SDWAPSWU EQU SDWAMCHD 01724000 SDWAREGU EQU SDWAMCHD 01725000 SDWASKYF EQU SDWAMCHD 01726000 @NM00077 EQU SDWAMCHS 01727000 SDWARSRF EQU SDWAMCHS 01728000 SDWARSRC EQU SDWAMCHS 01729000 SDWAINVP EQU SDWAMCHS 01730000 SDWATSVL EQU SDWAMCHS 01731000 SDWARCDF EQU SDWAMCHS 01732000 SDWASRVL EQU SDWAMCHS 01733000 SDWASCKE EQU SDWASTCK+4 01734000 SDWASCKB EQU SDWASTCK 01735000 SDWALNTH EQU SDWAIDNT+1 01736000 SDWASPID EQU SDWAIDNT 01737000 SDWASR15 EQU SDWASRSV+60 01738000 SDWASR14 EQU SDWASRSV+56 01739000 SDWASR13 EQU SDWASRSV+52 01740000 SDWASR12 EQU SDWASRSV+48 01741000 SDWASR11 EQU SDWASRSV+44 01742000 SDWASR10 EQU SDWASRSV+40 01743000 SDWASR09 EQU SDWASRSV+36 01744000 SDWASR08 EQU SDWASRSV+32 01745000 SDWASR07 EQU SDWASRSV+28 01746000 SDWASR06 EQU SDWASRSV+24 01747000 SDWASR05 EQU SDWASRSV+20 01748000 SDWASR04 EQU SDWASRSV+16 01749000 SDWASR03 EQU SDWASRSV+12 01750000 SDWASR02 EQU SDWASRSV+8 01751000 SDWASR01 EQU SDWASRSV+4 01752000 SDWASR00 EQU SDWASRSV 01753000 SDWATRN2 EQU SDWAAEC2+4 01754000 SDWAIPC2 EQU SDWAICD2 01755000 SDWAIMC2 EQU SDWAICD2 01756000 SDWAIPR2 EQU SDWAICD2 01757000 @NM00076 EQU SDWAINC2 01758000 @NM00075 EQU SDWAILC2 01759000 SDWAIL2 EQU SDWAILC2 01760000 @NM00074 EQU SDWAILC2 01761000 @NM00073 EQU SDWAAEC2 01762000 SDWAADD2 EQU SDWANXT2+1 01763000 @NM00072 EQU SDWANXT2 01764000 @NM00071 EQU SDWAEC2+3 01765000 SDWASGN2 EQU SDWAINT2 01766000 SDWAEXP2 EQU SDWAINT2 01767000 SDWADEC2 EQU SDWAINT2 01768000 SDWAFPO2 EQU SDWAINT2 01769000 SDWACC2 EQU SDWAINT2 01770000 @NM00070 EQU SDWAINT2 01771000 SDWAPGM2 EQU SDWAMWP2 01772000 SDWAWAT2 EQU SDWAMWP2 01773000 SDWAMCK2 EQU SDWAMWP2 01774000 SDWAECT2 EQU SDWAMWP2 01775000 SDWAKEY2 EQU SDWAMWP2 01776000 SDWAEXT2 EQU SDWAEMK2 01777000 SDWAIO2 EQU SDWAEMK2 01778000 SDWATRM2 EQU SDWAEMK2 01779000 @NM00069 EQU SDWAEMK2 01780000 SDWAPER2 EQU SDWAEMK2 01781000 @NM00068 EQU SDWAEMK2 01782000 SDWATRAN EQU SDWAAEC1+4 01783000 SDWAIPC1 EQU SDWAICD1 01784000 SDWAIMC1 EQU SDWAICD1 01785000 SDWAIPR1 EQU SDWAICD1 01786000 @NM00067 EQU SDWAINC1 01787000 @NM00066 EQU SDWAILC1 01788000 SDWAIL1 EQU SDWAILC1 01789000 @NM00065 EQU SDWAILC1 01790000 @NM00064 EQU SDWAAEC1 01791000 SDWAADD1 EQU SDWANXT1+1 01792000 @NM00063 EQU SDWANXT1 01793000 @NM00062 EQU SDWAEC1+3 01794000 SDWASGN1 EQU SDWAINT1 01795000 SDWAEXP1 EQU SDWAINT1 01796000 SDWADEC1 EQU SDWAINT1 01797000 SDWAFPO1 EQU SDWAINT1 01798000 SDWACC1 EQU SDWAINT1 01799000 @NM00061 EQU SDWAINT1 01800000 SDWAPGM1 EQU SDWAMWP1 01801000 SDWAWAT1 EQU SDWAMWP1 01802000 SDWAMCK1 EQU SDWAMWP1 01803000 SDWAECT1 EQU SDWAMWP1 01804000 SDWAKEY1 EQU SDWAMWP1 01805000 SDWAEXT1 EQU SDWAEMK1 01806000 SDWAIO1 EQU SDWAEMK1 01807000 SDWATRM1 EQU SDWAEMK1 01808000 @NM00060 EQU SDWAEMK1 01809000 SDWAPER1 EQU SDWAEMK1 01810000 @NM00059 EQU SDWAEMK1 01811000 SDWAIOBR EQU SDWA+100 01812000 SDWAEPA EQU SDWA+96 01813000 @NM00058 EQU SDWANAME+4 01814000 SDWARBAD EQU SDWANAME 01815000 SDWAGR15 EQU SDWAGRSV+60 01816000 SDWAGR14 EQU SDWAGRSV+56 01817000 SDWAGR13 EQU SDWAGRSV+52 01818000 SDWAGR12 EQU SDWAGRSV+48 01819000 SDWAGR11 EQU SDWAGRSV+44 01820000 SDWAGR10 EQU SDWAGRSV+40 01821000 SDWAGR09 EQU SDWAGRSV+36 01822000 SDWAGR08 EQU SDWAGRSV+32 01823000 SDWAGR07 EQU SDWAGRSV+28 01824000 SDWAGR06 EQU SDWAGRSV+24 01825000 SDWAGR05 EQU SDWAGRSV+20 01826000 SDWAGR04 EQU SDWAGRSV+16 01827000 SDWAGR03 EQU SDWAGRSV+12 01828000 SDWAGR02 EQU SDWAGRSV+8 01829000 SDWAGR01 EQU SDWAGRSV+4 01830000 SDWAGR00 EQU SDWAGRSV 01831000 SDWANXTP EQU SDWACTL2+5 01832000 SDWASGP EQU SDWAPMKP 01833000 SDWAEUP EQU SDWAPMKP 01834000 SDWADOP EQU SDWAPMKP 01835000 SDWAFPP EQU SDWAPMKP 01836000 SDWACCP EQU SDWAPMKP 01837000 SDWAILP EQU SDWAPMKP 01838000 SDWAINTP EQU SDWACTL2+2 01839000 SDWASPVP EQU SDWAMWPP 01840000 SDWAWATP EQU SDWAMWPP 01841000 SDWAMCKP EQU SDWAMWPP 01842000 @NM00057 EQU SDWAMWPP 01843000 SDWAKEYP EQU SDWAMWPP 01844000 SDWAEXTP EQU SDWACMKP 01845000 SDWAIOP EQU SDWACMKP 01846000 SDWANXTA EQU SDWACTL1+5 01847000 SDWASGA EQU SDWAPMKA 01848000 SDWAEUA EQU SDWAPMKA 01849000 SDWADOA EQU SDWAPMKA 01850000 SDWAFPA EQU SDWAPMKA 01851000 SDWACCA EQU SDWAPMKA 01852000 SDWAILA EQU SDWAPMKA 01853000 SDWAINTA EQU SDWACTL1+2 01854000 SDWASPVA EQU SDWAMWPA 01855000 SDWAWATA EQU SDWAMWPA 01856000 SDWAMCKA EQU SDWAMWPA 01857000 @NM00056 EQU SDWAMWPA 01858000 SDWAKEYA EQU SDWAMWPA 01859000 SDWAEXTA EQU SDWACMKA 01860000 SDWAIOA EQU SDWACMKA 01861000 @NM00055 EQU SDWACMPF 01862000 SDWASTCC EQU SDWACMPF 01863000 @NM00054 EQU SDWACMPF 01864000 SDWASTEP EQU SDWACMPF 01865000 SDWAREQ EQU SDWACMPF 01866000 RSMFOEQ EQU RSMHD+36 01867000 RSMLIOQL EQU RSMLIOQ+4 01868000 RSMLIOQF EQU RSMLIOQ 01869000 RSMLSQAL EQU RSMLSQA+2 01870000 RSMLSQAF EQU RSMLSQA 01871000 RSMLFQL EQU RSMLFQ+2 01872000 RSMLFQF EQU RSMLFQ 01873000 RSMRSV2 EQU RSMHD+16 01874000 RSMCNTFX EQU RSMHD+14 01875000 RSMRSV1 EQU RSMHD+13 01876000 @NM00053 EQU RSMFLG1 01877000 RSMFAIL EQU RSMFLG1 01878000 RSMGFADD EQU RSMFLG1 01879000 RSMCPNC EQU RSMFLG1 01880000 RSMCPNU EQU RSMFLG1 01881000 RSMGFAD EQU RSMFLG1 01882000 RSMIOCPC EQU RSMFLG1 01883000 RSMIOCPU EQU RSMFLG1 01884000 RSMASCB EQU RSMHD+8 01885000 RSMSPCT EQU RSMHD+4 01886000 RSMVSTO EQU RSMHD 01887000 @NM00028 EQU PARTENT+62 01888000 PARELCYL EQU PARTENT+60 01889000 PARERQTM EQU PARTENT+56 01890000 PAREWTQE EQU PARTENT+52 01891000 PARENODE EQU PARTENT+48 01892000 PAREUCBP EQU PARTENT+44 01893000 PAREEDBP EQU PARTENT+40 01894000 PAREPCTP EQU PARTENT+36 01895000 PAREPATP EQU PARTENT+32 01896000 PAREIORB EQU PARTENT+28 01897000 PARERRCT EQU PARTENT+24 01898000 PARESLTA EQU PARTENT+20 01899000 PARESZSL EQU PARTENT+16 01900000 PAREIOEQ EQU PARTENT+12 01901000 PARENN EQU PARTENT+10 01902000 @NM00027 EQU PAREFLG1 01903000 PAREINCP EQU PAREFLG1 01904000 PAREDSBD EQU PAREFLG1 01905000 PARENUSE EQU PAREFLG1 01906000 @NM00026 EQU PARETYPE 01907000 PARELOCL EQU PARETYPE 01908000 PAREDPLX EQU PARETYPE 01909000 PARECOMM EQU PARETYPE 01910000 PAREPLPA EQU PARETYPE 01911000 PARECPCT EQU PARELKUP+2 01912000 PAREIORN EQU PARELKUP+1 01913000 @NM00025 EQU PARELKFL 01914000 PAREFSIP EQU PARELKFL 01915000 PAREPARE EQU PARTENT 01916000 PARTENTS EQU PART+80 01917000 PARTLOCL EQU PARTLOCQ+4 01918000 PARTLOCF EQU PARTLOCQ 01919000 PARTDUPL EQU PARTDUPQ+4 01920000 PARTDUPF EQU PARTDUPQ 01921000 PARTSPLL EQU PARTSPLQ+4 01922000 PARTSPLF EQU PARTSPLQ 01923000 PARTCOML EQU PARTCOMQ+4 01924000 PARTCOMF EQU PARTCOMQ 01925000 PARTLOCK EQU PARTHDR+44 01926000 PARTLKUP EQU PARTHDR+40 01927000 @NM00024 EQU PARTHDR+34 01928000 PARTLCNT EQU PARTHDR+32 01929000 PARTPCTQ EQU PARTHDR+28 01930000 PARTDSNL EQU PARTTPAR 01931000 PARTCIR2 EQU PARTHDR+20 01932000 PARTCIR1 EQU PARTHDR+16 01933000 PARTEUSE EQU PARTHDR+8 01934000 PARTSIZE EQU PARTHDR+4 01935000 PARTIDEN EQU PARTHDR 01936000 @NM00023 EQU LGE+24 01937000 LGELGID EQU LGE+20 01938000 LGESLTCT EQU LGE+10 01939000 @NM00022 EQU LGE+9 01940000 LGERSV5 EQU LGEFLAG1 01941000 LGERSV4 EQU LGEFLAG1 01942000 LGERSV3 EQU LGEFLAG1 01943000 LGERSV2 EQU LGEFLAG1 01944000 LGESAVRQ EQU LGEFLAG1 01945000 LGERELLG EQU LGEFLAG1 01946000 LGEPROCL EQU LGEPROCQ+4 01947000 LGEPROCF EQU LGEPROCQ 01948000 @NM00021 EQU EPAVSAM+50 01949000 EPARSIZE EQU EPAVSAM+48 01950000 EPARBASP EQU EPAVSAM+44 01951000 EPAACE EQU EPAVSAM+40 01952000 EPASRB EQU EPAVSAM+36 01953000 EPALGEP EQU EPAVSAM+32 01954000 EPALGVTP EQU EPAVSAM+28 01955000 EPALSIZE EQU EPAVSAM+26 01956000 @NM00020 EQU EPAFLAG2 01957000 EPARECUR EQU EPAFLAG2 01958000 EPATMI EQU EPAFLAG2 01959000 EPAMAST EQU EPAFLAG2 01960000 EPABUILD EQU EPAFLAG2 01961000 EPACOLD EQU EPAFLAG2 01962000 EPAWARM EQU EPAFLAG2 01963000 EPATMXIT EQU EPAFLAG2 01964000 EPARPLB EQU EPAFLAG1 01965000 EPAUNSAV EQU EPAFLAG1 01966000 EPAASGN EQU EPAFLAG1 01967000 EPAACASR EQU EPAFLAG1 01968000 EPAACT EQU EPAGRPOP 01969000 EPASAVE EQU EPAGRPOP 01970000 EPARLG EQU EPAGRPOP 01971000 EPAVSAMI EQU EPAFLAG1 01972000 EPATMISV EQU EPABKSLT 01973000 EPATMACB EQU EPARASP 01974000 EPATMIBA EQU EPABASP 01975000 EPADSLST EQU EPAAASP 01976000 CVTLEVL EQU CVTRELNO+2 01977000 CVTNUMB EQU CVTRELNO 01978000 CVTMDL EQU CVTFIX+250 01979000 @NM00019 EQU CVTFIX+248 01980000 @NM00018 EQU CVTFIX 01981000 CVTRV482 EQU CVTXTNT2+128 01982000 CVTRV481 EQU CVTXTNT2+124 01983000 CVTRV480 EQU CVTXTNT2+120 01984000 CVTRV479 EQU CVTXTNT2+118 01985000 CVTRV478 EQU CVTXTNT2+117 01986000 CVTRV477 EQU CVTXTNT2+116 01987000 CVTRV476 EQU CVTXTNT2+115 01988000 CVTRV475 EQU CVTXTNT2+114 01989000 CVTRV474 EQU CVTRV466 01990000 CVTRV473 EQU CVTRV466 01991000 CVTRV472 EQU CVTRV466 01992000 CVTRV471 EQU CVTRV466 01993000 CVTRV470 EQU CVTRV466 01994000 CVTRV469 EQU CVTRV466 01995000 CVTRV468 EQU CVTRV466 01996000 CVTRV467 EQU CVTRV466 01997000 CVTRV465 EQU CVTRV457 01998000 CVTRV464 EQU CVTRV457 01999000 CVTRV463 EQU CVTRV457 02000000 CVTRV462 EQU CVTRV457 02001000 CVTRV461 EQU CVTRV457 02002000 CVTRV460 EQU CVTRV457 02003000 CVTRV459 EQU CVTRV457 02004000 CVTRV458 EQU CVTRV457 02005000 CVTRV456 EQU CVTXTNT2+108 02006000 CVTRV455 EQU CVTXTNT2+104 02007000 CVTRV454 EQU CVTXTNT2+100 02008000 CVTRV453 EQU CVTXTNT2+96 02009000 CVTRV452 EQU CVTXTNT2+94 02010000 CVTRV451 EQU CVTXTNT2+92 02011000 CVTRV450 EQU CVTXTNT2+90 02012000 CVTRV449 EQU CVTXTNT2+88 02013000 CVTRV448 EQU CVTXTNT2+87 02014000 CVTRV447 EQU CVTXTNT2+86 02015000 CVTRV446 EQU CVTRV438 02016000 CVTRV445 EQU CVTRV438 02017000 CVTRV444 EQU CVTRV438 02018000 CVTRV443 EQU CVTRV438 02019000 CVTRV442 EQU CVTRV438 02020000 CVTRV441 EQU CVTRV438 02021000 CVTRV440 EQU CVTRV438 02022000 CVTRV439 EQU CVTRV438 02023000 CVTRV437 EQU CVTRV429 02024000 CVTRV436 EQU CVTRV429 02025000 CVTRV435 EQU CVTRV429 02026000 CVTRV434 EQU CVTRV429 02027000 CVTRV433 EQU CVTRV429 02028000 CVTRV432 EQU CVTRV429 02029000 CVTRV431 EQU CVTRV429 02030000 CVTRV430 EQU CVTRV429 02031000 CVTRV428 EQU CVTXTNT2+80 02032000 CVTRV427 EQU CVTXTNT2+76 02033000 CVTRV426 EQU CVTXTNT2+72 02034000 CVTRV425 EQU CVTXTNT2+68 02035000 CVTATACT EQU CVTATCVT 02036000 CVTRV423 EQU CVTXTNT2+62 02037000 CVTRV422 EQU CVTXTNT2+60 02038000 CVTRV421 EQU CVTXTNT2+58 02039000 CVTRV420 EQU CVTXTNT2+56 02040000 CVTRV419 EQU CVTXTNT2+55 02041000 CVTRV418 EQU CVTXTNT2+54 02042000 CVTRV417 EQU CVTRV409 02043000 CVTRV416 EQU CVTRV409 02044000 CVTRV415 EQU CVTRV409 02045000 CVTRV414 EQU CVTRV409 02046000 CVTRV413 EQU CVTRV409 02047000 CVTRV412 EQU CVTRV409 02048000 CVTRV411 EQU CVTRV409 02049000 CVTRV410 EQU CVTRV409 02050000 CVTRV408 EQU CVTRV400 02051000 CVTRV407 EQU CVTRV400 02052000 CVTRV406 EQU CVTRV400 02053000 CVTRV405 EQU CVTRV400 02054000 CVTRV404 EQU CVTRV400 02055000 CVTRV403 EQU CVTRV400 02056000 CVTRV402 EQU CVTRV400 02057000 CVTRV401 EQU CVTRV400 02058000 CVTICB EQU CVTXTNT2+48 02059000 CVTSKTA EQU CVTXTNT2+44 02060000 CVTRSV99 EQU CVTXTNT2+40 02061000 CVTRSV98 EQU CVTXTNT2+36 02062000 CVTRSV97 EQU CVTXTNT2+34 02063000 CVTRSV96 EQU CVTXTNT2+32 02064000 CVTOLTEP EQU CVTXTNT2+28 02065000 CVTQIDA EQU CVTQID+1 02066000 CVTRSV95 EQU CVTQID 02067000 CVTRSV94 EQU CVTXTNT2+20 02068000 CVTRSV93 EQU CVTXTNT2+16 02069000 CVTRSV92 EQU CVTXTNT2+12 02070000 CVTDEBVR EQU CVTXTNT2+8 02071000 CVTRSV91 EQU CVTXTNT2+6 02072000 CVTRSV9H EQU CVTFLGBT 02073000 CVTRSV9G EQU CVTFLGBT 02074000 CVTRSV9F EQU CVTFLGBT 02075000 CVTRSV9E EQU CVTFLGBT 02076000 CVTRSV9D EQU CVTFLGBT 02077000 CVTRSV9C EQU CVTFLGBT 02078000 CVTVME EQU CVTFLGBT 02079000 CVTNPE EQU CVTFLGBT 02080000 CVTNUCLS EQU CVTXTNT2+4 02081000 CVTDSSVA EQU CVTDSSV+1 02082000 CVTRSV89 EQU CVTDSSV 02083000 CVTRSV88 EQU CVTXTNT1+8 02084000 CVTRSV87 EQU CVTXTNT1+4 02085000 CVTFACHN EQU CVTXTNT1 02086000 CVTRV488 EQU CVTMAP+412 02087000 CVTRV487 EQU CVTMAP+408 02088000 CVTRV486 EQU CVTMAP+404 02089000 CVTRV485 EQU CVTMAP+400 02090000 CVTACTAP EQU CVTMAP+396 02091000 CVTAUTH EQU CVTMAP+392 02092000 CVTATMCA EQU CVTATMCT+1 02093000 CVTATMST EQU CVTATMCT 02094000 CVTRSV61 EQU CVTMAP+384 02095000 CVTVOLT1 EQU CVTVOLM1+1 02096000 CVTVOLI1 EQU CVTVOLF1 02097000 CVTSTOA EQU CVTMAP+376 02098000 CVTRSV58 EQU CVTMAP+374 02099000 CVTRSV57 EQU CVTMAP+372 02100000 CVTDDCE EQU CVTMAP+368 02101000 CVTPNWFR EQU CVTMAP+364 02102000 CVTSMF EQU CVTMAP+360 02103000 CVTSULK EQU CVTMAP+358 02104000 CVTSLKO EQU CVTSYSK 02105000 CVTSLKP EQU CVTSYSK 02106000 CVTSLKQ EQU CVTSYSK 02107000 CVTSLKR EQU CVTSYSK 02108000 CVTRSV56 EQU CVTSYSK 02109000 CVTRSV55 EQU CVTSYSK 02110000 CVTRSV54 EQU CVTSYSK 02111000 CVTRSV53 EQU CVTSYSK 02112000 CVTRSV52 EQU CVTA1F1 02113000 CVTRSV51 EQU CVTA1F1 02114000 CVTRSV50 EQU CVTA1F1 02115000 CVTRSV49 EQU CVTA1F1 02116000 CVTRSV48 EQU CVTA1F1 02117000 CVTRSV47 EQU CVTA1F1 02118000 CVTSRSW EQU CVTA1F1 02119000 CVTPFSW EQU CVTA1F1 02120000 CVTPCVT EQU CVTMAP+352 02121000 CVTRSV46 EQU CVTMAP+344 02122000 CVTRSV45 EQU CVTMAP+340 02123000 CVTRSV44 EQU CVTMAP+338 02124000 CVTRSV43 EQU CVTMAP+336 02125000 CVTHJESA EQU CVTHJES+1 02126000 CVTRSV42 EQU CVTHJES 02127000 CVTEXT2A EQU CVTEXT2+1 02128000 CVTRSV41 EQU CVTEXT2 02129000 CVTAPFA EQU CVTAPF+1 02130000 CVTRSV40 EQU CVTAPF 02131000 CVTRV518 EQU CVTINTLA 02132000 CVTRV517 EQU CVTERPV 02133000 CVTEORM EQU CVTMAP+312 02134000 CVTMCHPR EQU CVTMAP+308 02135000 CVTTZ EQU CVTMAP+304 02136000 CVTJEPS EQU CVTMAP+300 02137000 CVTJESCT EQU CVTMAP+296 02138000 CVTMODE EQU CVTMAP+292 02139000 CVTPTRV EQU CVTMAP+288 02140000 CVTREAL EQU CVTMAP+284 02141000 CVTRSV39 EQU CVTMAP+280 02142000 CVTRSV38 EQU CVTMAP+276 02143000 CVTDMSRA EQU CVTDMSR+1 02144000 CVTRV634 EQU CVTDMSRF 02145000 CVTRV633 EQU CVTDMSRF 02146000 CVTRV632 EQU CVTDMSRF 02147000 CVTRV631 EQU CVTDMSRF 02148000 CVTRV630 EQU CVTDMSRF 02149000 CVTRV629 EQU CVTDMSRF 02150000 CVTUDUMP EQU CVTDMSRF 02151000 CVTSDUMP EQU CVTDMSRF 02152000 CVTQMSGA EQU CVTQMSG+1 02153000 CVTRSV36 EQU CVTQMSG 02154000 CVTAMFF EQU CVTMAP+264 02155000 CVTPURGA EQU CVTPURG+1 02156000 CVTRSV35 EQU CVTPURG 02157000 CVTCBSP EQU CVTMAP+256 02158000 CVTATERA EQU CVTATER+1 02159000 CVTSYST EQU CVTATER 02160000 CVTVOLT2 EQU CVTTAT 02161000 CVTVOLI2 EQU CVTVOLF2 02162000 CVTAQAVB EQU CVTAQAVT+1 02163000 CVTRSV34 EQU CVTTCMFG 02164000 CVTRSV33 EQU CVTTCMFG 02165000 CVTRSV32 EQU CVTTCMFG 02166000 CVTRSV31 EQU CVTTCMFG 02167000 CVTRSV30 EQU CVTTCMFG 02168000 CVTRSV29 EQU CVTTCMFG 02169000 CVTLDEV EQU CVTTCMFG 02170000 CVTTCRDY EQU CVTTCMFG 02171000 CVTGTFA EQU CVTGTF+1 02172000 CVTRSV27 EQU CVTGTFST 02173000 CVTRNIO EQU CVTGTFST 02174000 CVTUSR EQU CVTGTFST 02175000 CVTRV318 EQU CVTFORM 02176000 CVTRV317 EQU CVTTMODE 02177000 CVTRV316 EQU CVTSTATE 02178000 CVTRV315 EQU CVTGTFS 02179000 CVTGTFAV EQU CVTGTFS 02180000 CVT0SCR1 EQU CVTMAP+232 02181000 CVTRV515 EQU CVTMAP+228 02182000 CVTRMS EQU CVTMAP+224 02183000 CVTPATCH EQU CVTMAP+220 02184000 CVTTSCE EQU CVTMAP+216 02185000 CVTLNKSC EQU CVTMAP+214 02186000 CVTQABST EQU CVTMAP+212 02187000 CVTMDLDS EQU CVTMAP+208 02188000 CVTUSER EQU CVTMAP+204 02189000 CVTABEND EQU CVTMAP+200 02190000 CVTSMCA EQU CVTMAP+196 02191000 CVTRSV18 EQU CVTMAP+192 02192000 CVTQLPAQ EQU CVTMAP+188 02193000 CVTQCDSR EQU CVTMAP+184 02194000 CVTRSV17 EQU CVTOPTB 02195000 CVTRSV16 EQU CVTOPTB 02196000 CVTFP EQU CVTOPTB 02197000 CVTAPTHR EQU CVTOPTB 02198000 CVTNLOG EQU CVTOPTB 02199000 CVTTOD EQU CVTOPTB 02200000 CVTCTIMS EQU CVTOPTB 02201000 CVTPROT EQU CVTOPTB 02202000 CVTXPFP EQU CVTOPTA 02203000 CVTASCII EQU CVTOPTA 02204000 CVTRSV13 EQU CVTOPTA 02205000 CVTRSV12 EQU CVTOPTA 02206000 CVTNIP EQU CVTOPTA 02207000 CVTDDR EQU CVTOPTA 02208000 CVTAPR EQU CVTOPTA 02209000 CVTCCH EQU CVTOPTA 02210000 CVTSNCTR EQU CVTMAP+180 02211000 CVTQMWR EQU CVTMAP+176 02212000 CVTQOCR EQU CVTMAP+172 02213000 CVT1EF00 EQU CVTMAP+168 02214000 CVTMZ00 EQU CVTMAP+164 02215000 CVTHEAD EQU CVTMAP+160 02216000 CVTRSV11 EQU CVTMAP+156 02217000 CVT0PT01 EQU CVTMAP+152 02218000 CVTMSER EQU CVTMAP+148 02219000 CVTRV516 EQU CVTIERLC 02220000 CVTILCH EQU CVTMAP+140 02221000 CVT0DS EQU CVTMAP+136 02222000 CVTFBOSV EQU CVTMAP+132 02223000 CVTNUCB EQU CVTMAP+128 02224000 CVTIXAVL EQU CVTMAP+124 02225000 CVTIOQET EQU CVTMAP+120 02226000 CVTDCBA EQU CVTMAP+117 02227000 CVTMVS2 EQU CVTDCB 02228000 CVT6DAT EQU CVTDCB 02229000 CVT4MPS EQU CVTDCB 02230000 CVTRSV09 EQU CVTDCB 02231000 CVT4MS1 EQU CVTDCB 02232000 CVT2SPS EQU CVTDCB 02233000 CVT1SSS EQU CVTDCB 02234000 CVTRSV08 EQU CVTDCB 02235000 CVTSTB EQU CVTMAP+112 02236000 CVTQTD00 EQU CVTMAP+108 02237000 CVTQTE00 EQU CVTMAP+104 02238000 CVTCUCB EQU CVTMAP+100 02239000 CVTSJQ EQU CVTMAP+96 02240000 CVTPBLDL EQU CVTMAP+92 02241000 CVTTPC EQU CVTMAP+88 02242000 CVTSVDCB EQU CVTMAP+84 02243000 CVTBRET EQU CVTMAP+82 02244000 CVTEXIT EQU CVTMAP+80 02245000 CVT0FN00 EQU CVTMAP+76 02246000 CVTDARA EQU CVTDAR+1 02247000 CVTRSV07 EQU CVTFLGS1 02248000 CVTRSV06 EQU CVTFLGS1 02249000 CVTRSV05 EQU CVTFLGS1 02250000 CVTRSV04 EQU CVTFLGS1 02251000 CVTRSV03 EQU CVTFLGS1 02252000 CVTRSV02 EQU CVTFLGS1 02253000 CVTRSV01 EQU CVTFLGS1 02254000 CVTDMPLK EQU CVTFLGS1 02255000 CVTXITP EQU CVTMAP+68 02256000 CVTZDTAB EQU CVTMAP+64 02257000 CVTMSLT EQU CVTMAP+60 02258000 CVTDATE EQU CVTMAP+56 02259000 CVTSYSAD EQU CVTMAP+48 02260000 CVTXTLER EQU CVTMAP+44 02261000 CVTILK2 EQU CVTMAP+40 02262000 CVTILK1 EQU CVTMAP+36 02263000 CVTPRLTV EQU CVTMAP+32 02264000 CVTPCNVT EQU CVTMAP+28 02265000 CVT0VL00 EQU CVTMAP+24 02266000 CVTXAPG EQU CVTMAP+20 02267000 CVTBUF EQU CVTMAP+16 02268000 CVTJOB EQU CVTMAP+12 02269000 CVTLINK EQU CVTMAP+8 02270000 CVT0EF00 EQU CVTMAP+4 02271000 CVTTCBP EQU CVTMAP 02272000 CVT EQU CVTMAP 02273000 ATARCODE EQU ATA+7 02274000 ATARCRF8 EQU ATARCRSN 02275000 ATARCRF7 EQU ATARCRSN 02276000 ATARCRF6 EQU ATARCRSN 02277000 ATARCRF5 EQU ATARCRSN 02278000 ATARCRF4 EQU ATARCRSN 02279000 ATARCRF3 EQU ATARCRSN 02280000 ATARCRF2 EQU ATARCRSN 02281000 ATARCRF1 EQU ATARCRSN 02282000 ATARSV2 EQU ATARFLGS 02283000 ATABADPK EQU ATARFLGS 02284000 ATASCCWP EQU ATARFLGS 02285000 ATASGNST EQU ATARFLGS 02286000 ATARSV1 EQU ATASFLGS+1 02287000 ATASRT EQU ATASFLGS+1 02288000 ATASWPDR EQU ATASFLGS+1 02289000 ATATRPAG EQU ATASFLGS+1 02290000 ATASWAP EQU ATASFLGS+1 02291000 ATAPAGCM EQU ATASFLGS 02292000 ATAPAGIO EQU ATASFLGS 02293000 ATAPOS EQU ATASFLGS 02294000 ATAPCOMP EQU ATASFLGS 02295000 ATAVIOCM EQU ATASFLGS 02296000 ATASCOMP EQU ATASFLGS 02297000 ATASLSQA EQU ATASFLGS 02298000 ASPSLOT EQU ASPVLSID+1 02299000 ASPPRTNN EQU ASPVLSID 02300000 @NM00017 EQU ASPLPFLG 02301000 ASPLSVRP EQU ASPLPFLG 02302000 ASPLIOER EQU ASPLPFLG 02303000 ASPLSAVE EQU ASPLPFLG 02304000 @NM00016 EQU ASPEXTSN+1088 02305000 @NM00015 EQU ASPEHDR+24 02306000 ASPASSTI EQU ASPEHDR+22 02307000 @NM00014 EQU ASPEHDR+21 02308000 ASPASSTN EQU ASPEHDR+20 02309000 ASPEXTNM EQU ASPEXKEY+8 02310000 ASPESSYM EQU ASPEXKEY 02311000 @NM00013 EQU ASPEHDR+4 02312000 ASPEIDNT EQU ASPEHDR 02313000 @NM00012 EQU ASPCT+1088 02314000 ASPLPMES EQU ASPCT+64 02315000 ASPASSTP EQU ASPCT+48 02316000 ASPAEXCT EQU ASPHDR+46 02317000 ASPLEXCT EQU ASPHDR+44 02318000 ASPSAVCT EQU ASPHDR+40 02319000 ASPBKSLT EQU ASPHDR+36 02320000 ASPMAXPN EQU ASPHDR+32 02321000 @NM00011 EQU ASPHDR+29 02322000 @NM00010 EQU ASPFLAG 02323000 ASPSAVRP EQU ASPFLAG 02324000 ASPSAVED EQU ASPFLAG 02325000 ASPASCB EQU ASPHDR+20 02326000 @NM00009 EQU ASPBKEY+8 02327000 ASPSSYM EQU ASPBKEY 02328000 ASPLGID EQU ASPHDR+4 02329000 ASPIDENT EQU ASPHDR 02330000 ASMCPRES EQU ASMCPRSQ+4 02331000 ASMCPTAK EQU ASMCPRSQ 02332000 ASMCPCNT EQU ASMCPAVQ+4 02333000 ASMCPEXT EQU ASMPOOLS+6 02334000 ASMCPSIZ EQU ASMPOOLS+4 02335000 ASMCPID EQU ASMPOOLS 02336000 ASMRSV12 EQU ASMVT+1000 02337000 ASMSAVE EQU ASMVT+928 02338000 ASMWKSA7 EQU ASMVT+848 02339000 ASMWKSA6 EQU ASMVT+768 02340000 ASMACEPC EQU ASMVT+344 02341000 ASMSWKPC EQU ASMVT+328 02342000 ASMIOEPC EQU ASMVT+296 02343000 ASMRSV10 EQU ASMVT+280 02344000 ASMPVACE EQU ASMVT+276 02345000 ASMPIOFR EQU ASMVT+272 02346000 ASMPVACQ EQU ASMVT+268 02347000 ASMPMSGS EQU ASMVT+264 02348000 ASMPMSG0 EQU ASMVT+260 02349000 ASMPFRLG EQU ASMVT+256 02350000 ASMPRLG EQU ASMVT+252 02351000 ASMPACT EQU ASMVT+248 02352000 ASMPSAV EQU ASMVT+244 02353000 ASMPCMP EQU ASMVT+240 02354000 ASMPCMPA EQU ASMVT+236 02355000 ASMPCMPN EQU ASMVT+232 02356000 ASMPCMPD EQU ASMVT+228 02357000 ASMVRMTR EQU ASMVT+220 02358000 ASMPSRBC EQU ASMVT+216 02359000 ASMPSRMT EQU ASMVT+212 02360000 ASMPSWPD EQU ASMVT+208 02361000 ASMPTM EQU ASMVT+204 02362000 ASMPFRSW EQU ASMVT+200 02363000 ASMPFRSL EQU ASMVT+196 02364000 ASMPQIOE EQU ASMVT+192 02365000 ASMRSV8 EQU ASMVT+184 02366000 ASMTASCB EQU ASMVT+180 02367000 ASMRLGWQ EQU ASMVT+176 02368000 ASMRLGRQ EQU ASMVT+172 02369000 ASMTMECB EQU ASMVT+168 02370000 ASMTCBPT EQU ASMVT+164 02371000 ASMREQCT EQU ASMVT+160 02372000 ASMGOSWK EQU ASMGOSQS+4 02373000 ASMGOSWT EQU ASMGOSQS 02374000 ASMLSAIH EQU ASMLSAI+4 02375000 ASMLSAIL EQU ASMLSAI 02376000 ASMCINV EQU ASMVT+140 02377000 ASMSTGXA EQU ASMVT+136 02378000 ASMLGVT EQU ASMVT+132 02379000 ASMSLOTV EQU ASMVT+128 02380000 ASMERRS EQU ASMVT+124 02381000 ASMNVSC EQU ASMVT+120 02382000 ASMVSC EQU ASMVT+116 02383000 ASMSLOTS EQU ASMVT+112 02384000 ASMBKSLT EQU ASMVT+108 02385000 ASMRSV7 EQU ASMVT+92 02386000 ASMPSRB EQU ASMVT+88 02387000 ASMSRBCT EQU ASMVT+84 02388000 ASMIOCNT EQU ASMVT+80 02389000 ASMBURST EQU ASMVT+76 02390000 ASMPCCWN EQU ASMVT+72 02391000 ASMPCCWC EQU ASMPCCWQ+4 02392000 ASMPCCWA EQU ASMPCCWQ 02393000 ASMRSV6 EQU ASMVT+48 02394000 ASMIORQC EQU ASMVT+44 02395000 ASMIORQR EQU ASMVT+40 02396000 ASMSTAGF EQU ASMSTAGQ 02397000 ASMRSV5 EQU ASMVT+28 02398000 ASMMSGBF EQU ASMVT+24 02399000 ASMEREC EQU ASMVT+20 02400000 ASMTRPAG EQU ASMVT+16 02401000 ASMGOS EQU ASMVT+12 02402000 ASMSART EQU ASMVT+4 02403000 ASMRSV4 EQU ASMVT+2 02404000 ASMWARM EQU ASMFLAG2 02405000 ASMQUICK EQU ASMFLAG2 02406000 ASMNOTPT EQU ASMFLAG2 02407000 ASMNOTMR EQU ASMFLAG2 02408000 ASMNOSAV EQU ASMFLAG2 02409000 ASMCALLQ EQU ASMFLAG2 02410000 ASMPLPAS EQU ASMFLAG1 02411000 ASMCOMMF EQU ASMFLAG1 02412000 ASMPLPAF EQU ASMFLAG1 02413000 ASMNODPX EQU ASMFLAG1 02414000 ASMRSV1 EQU ASMFLAG1 02415000 ASMNOLCL EQU ASMFLAG1 02416000 ASMNOCWQ EQU ASMFLAG1 02417000 ASMDUPLX EQU ASMFLAG1 02418000 ASCBEND EQU ASCB+208 02419000 ASCBSRBT EQU ASCB+200 02420000 ASCBSWTL EQU ASCB+196 02421000 ASCBRS14 EQU ASCB+195 02422000 ASCBSMCT EQU ASCB+194 02423000 ASCBRS12 EQU ASCB+192 02424000 ASCBPCTT EQU ASCB+188 02425000 ASCBVGTT EQU ASCB+184 02426000 ASCBRV43 EQU ASCBSRQ4 02427000 ASCBRV42 EQU ASCBSRQ4 02428000 ASCBRV41 EQU ASCBSRQ4 02429000 ASCBRV40 EQU ASCBSRQ4 02430000 ASCBRV39 EQU ASCBSRQ4 02431000 ASCBRV38 EQU ASCBSRQ4 02432000 ASCBRV37 EQU ASCBSRQ4 02433000 ASCBRV36 EQU ASCBSRQ4 02434000 ASCBRV35 EQU ASCBSRQ3 02435000 ASCBRV34 EQU ASCBSRQ3 02436000 ASCBRV33 EQU ASCBSRQ3 02437000 ASCBRV32 EQU ASCBSRQ3 02438000 ASCBRV31 EQU ASCBSRQ3 02439000 ASCBRV30 EQU ASCBSRQ3 02440000 ASCBRV29 EQU ASCBSRQ3 02441000 ASCBRV28 EQU ASCBSRQ3 02442000 ASCBRV27 EQU ASCBSRQ2 02443000 ASCBRV26 EQU ASCBSRQ2 02444000 ASCBRV25 EQU ASCBSRQ2 02445000 ASCBRV24 EQU ASCBSRQ2 02446000 ASCBRV23 EQU ASCBSRQ2 02447000 ASCBRV22 EQU ASCBSRQ2 02448000 ASCBRV21 EQU ASCBSRQ2 02449000 ASCBRV20 EQU ASCBSRQ2 02450000 ASCBRV19 EQU ASCBSRQ1 02451000 ASCBRV18 EQU ASCBSRQ1 02452000 ASCBRV17 EQU ASCBSRQ1 02453000 ASCBRV16 EQU ASCBSRQ1 02454000 ASCBRV15 EQU ASCBSRQ1 02455000 ASCBRV14 EQU ASCBSRQ1 02456000 ASCBRV13 EQU ASCBSRQ1 02457000 ASCBSTA EQU ASCBSRQ1 02458000 ASCBJBNS EQU ASCB+176 02459000 ASCBJBNI EQU ASCB+172 02460000 ASCBMCC EQU ASCB+168 02461000 ASCBRTWA EQU ASCB+164 02462000 ASCBIQEA EQU ASCB+160 02463000 ASCBXMPQ EQU ASCB+156 02464000 ASCBRS01 EQU ASCB+154 02465000 ASCBFMCT EQU ASCB+152 02466000 ASCBOUXB EQU ASCB+148 02467000 ASCBOUCB EQU ASCB+144 02468000 ASCBMECB EQU ASCB+140 02469000 ASCBQECB EQU ASCB+136 02470000 ASCBLSQH EQU ASCBLKGP+4 02471000 ASCBLOCK EQU ASCBLKGP 02472000 ASCBTCBS EQU ASCB+124 02473000 ASCBNVSC EQU ASCB+122 02474000 ASCBVSC EQU ASCB+120 02475000 ASCBSRBS EQU ASCB+118 02476000 ASCBSSRB EQU ASCB+116 02477000 ASCBRV06 EQU ASCBFLG2 02478000 ASCBRV05 EQU ASCBFLG2 02479000 ASCBRV04 EQU ASCBFLG2 02480000 ASCBSNQS EQU ASCBFLG2 02481000 ASCBS2S EQU ASCBFLG2 02482000 ASCBCEXT EQU ASCBFLG2 02483000 ASCBPXMT EQU ASCBFLG2 02484000 ASCBXMPT EQU ASCBFLG2 02485000 ASCBRF07 EQU ASCBDSP1 02486000 ASCBRF06 EQU ASCBDSP1 02487000 ASCBRF05 EQU ASCBDSP1 02488000 ASCBRF04 EQU ASCBDSP1 02489000 ASCBRF03 EQU ASCBDSP1 02490000 ASCBRF02 EQU ASCBDSP1 02491000 ASCBFAIL EQU ASCBDSP1 02492000 ASCBNOQ EQU ASCBDSP1 02493000 ASCBSWCT EQU ASCB+112 02494000 ASCBASXB EQU ASCB+108 02495000 ASCBTMCH EQU ASCB+104 02496000 ASCBNSWP EQU ASCBFLG1 02497000 ASCBTYP1 EQU ASCBFLG1 02498000 ASCBSTND EQU ASCBFLG1 02499000 ASCBABNT EQU ASCBFLG1 02500000 ASCBTERM EQU ASCBFLG1 02501000 ASCBS3S EQU ASCBFLG1 02502000 ASCBCMSH EQU ASCBFLG1 02503000 ASCBTOFF EQU ASCBFLG1 02504000 ASCBRF01 EQU ASCBRCTF 02505000 ASCBTMLW EQU ASCBRCTF 02506000 ASCBOUT EQU ASCBRCTF 02507000 ASCBWAIT EQU ASCBRCTF 02508000 ASCBRV08 EQU ASCBRCTF 02509000 ASCBFQU EQU ASCBRCTF 02510000 ASCBFRS EQU ASCBRCTF 02511000 ASCBTMNO EQU ASCBRCTF 02512000 ASCBAFFN EQU ASCBFW1 02513000 ASCBDUMP EQU ASCB+96 02514000 ASCBRV44 EQU ASCB+92 02515000 ASCBUBET EQU ASCB+88 02516000 ASCBECB EQU ASCB+84 02517000 ASCBJSTL EQU ASCB+80 02518000 ASCBEWST EQU ASCB+72 02519000 ASCBEJST EQU ASCB+64 02520000 ASCBTSB EQU ASCB+60 02521000 ASCBCSCB EQU ASCB+56 02522000 ASCBLDA EQU ASCB+48 02523000 ASCBSTOR EQU ASCB+44 02524000 ASCBDP EQU ASCB+43 02525000 ASCBRV07 EQU ASCB+42 02526000 ASCBIOSM EQU ASCB+40 02527000 ASCBSEQN EQU ASCB+38 02528000 ASCBCPUS EQU ASCB+32 02529000 ASCBSPL EQU ASCB+28 02530000 ASCBIOSP EQU ASCB+24 02531000 ASCBSYNC EQU ASCBSUPC+4 02532000 ASCBSVRB EQU ASCBSUPC 02533000 ASCBCMSF EQU ASCB+12 02534000 ASCBBWDP EQU ASCB+8 02535000 ASCBFWDP EQU ASCB+4 02536000 ASCBASCB EQU ASCB 02537000 ASCBEGIN EQU ASCB 02538000 AIADPXCT EQU AIALGE 02539000 AIACEPTR EQU AIALPMEP 02540000 AIASLOT EQU AIASSID+1 02541000 @NM00004 EQU AIASSID 02542000 @NM00003 EQU AIALSID 02543000 AIARCSN EQU AIANXAIA+2 02544000 AIACYL EQU AIANXAIA 02545000 AIARSV9 EQU AIAFLG3 02546000 AIARSV8 EQU AIAFLG3 02547000 AIARSV7 EQU AIAFLG3 02548000 AIALPMEC EQU AIAFLG3 02549000 AIARSV6 EQU AIAFLG3 02550000 AIATRPSP EQU AIAFLG3 02551000 AIARSV5 EQU AIAFLG3 02552000 AIAERROR EQU AIAFLG2 02553000 AIASECER EQU AIAFLG2 02554000 AIARSV4 EQU AIAFLG2 02555000 AIAIORTY EQU AIAFLG2 02556000 AIATERMR EQU AIAFLG2 02557000 AIAFRAUX EQU AIAFLG2 02558000 AIARSV1 EQU AIAFLG1 02559000 AIASWPFX EQU AIAFLG1 02560000 AIAPAGDS EQU AIAFLG1 02561000 AIALSQA EQU AIAFLG1 02562000 AIADUPLX EQU AIAFLG1 02563000 AIAVIO EQU AIAFLG1 02564000 AIAPRIV EQU AIAFLG1 02565000 AIAOP EQU AIA+8 02566000 AIABQPA EQU AIA+4 02567000 AIAFQPA EQU AIA 02568000 @NM00002 EQU ACE+40 02569000 ACEECB EQU ACE+32 02570000 ACEAIAPT EQU ACESYM+4 02571000 ACEVLSID EQU ACESRCID+1 02572000 @NM00001 EQU ACESRCID 02573000 ACELGID EQU ACELGN 02574000 ACERSV10 EQU ACEFLG3 02575000 ACERSV9 EQU ACEFLG3 02576000 ACERSV8 EQU ACEFLG3 02577000 ACELPMEC EQU ACEFLG3 02578000 ACERSV7 EQU ACEFLG3 02579000 ACERSV6 EQU ACEFLG3 02580000 ACEPRINO EQU ACEFLG3 02581000 ACEGRPRQ EQU ACEFLG3 02582000 ACEFLG2 EQU ACE+10 02583000 ACERSV5 EQU ACEFLG1 02584000 ACERSV4 EQU ACEFLG1 02585000 ACERSV3 EQU ACEFLG1 02586000 ACERSV2 EQU ACEFLG1 02587000 ACENOACT EQU ACEFLG1 02588000 ACEOVRID EQU ACEFLG1 02589000 ACETRPWT EQU ACEFLG1 02590000 ACEUSYM EQU ACEFLG1 02591000 ACEBQPA EQU ACE+4 02592000 ACEFQPA EQU ACE 02593000 @NM00052 EQU PSA+3668 02594000 PSASTAK EQU PSA+3072 02595000 @NM00051 EQU PSA+1048 02596000 PSAUSEND EQU PSA+1048 02597000 PSARV062 EQU PSA+1044 02598000 PSACDAL EQU PSA+1040 02599000 PSAWTCOD EQU PSA+1036 02600000 PSAATCVT EQU PSA+1032 02601000 PSAPCPSW EQU PSA+1024 02602000 PSAPIR2 EQU PSA+1020 02603000 PSARV059 EQU PSA+1018 02604000 PSASVC13 EQU PSA+1016 02605000 PSALSFCC EQU PSA+1012 02606000 PSASFACC EQU PSA+1008 02607000 PSASTOP EQU PSA+992 02608000 PSASTART EQU PSA+976 02609000 PSARSPSW EQU PSA+968 02610000 PSASRPSW EQU PSA+960 02611000 PSARV045 EQU PSA+892 02612000 PSARV044 EQU PSA+888 02613000 PSARV043 EQU PSA+884 02614000 PSARV042 EQU PSA+880 02615000 PSARV041 EQU PSA+876 02616000 PSARV040 EQU PSA+872 02617000 PSARV025 EQU PSA+868 02618000 PSADSSED EQU PSA+868 02619000 PSADSSPR EQU PSA+864 02620000 PSADSSFW EQU PSA+860 02621000 PSADSS14 EQU PSA+856 02622000 PSADSSPP EQU PSA+848 02623000 PSADSSRP EQU PSA+840 02624000 PSADSS05 EQU PSADSSF4 02625000 PSADSS10 EQU PSADSSF4 02626000 PSADSSVE EQU PSADSSF4 02627000 PSADSSDE EQU PSADSSF4 02628000 PSADSSC0 EQU PSADSSF4 02629000 PSADSSIE EQU PSADSSF4 02630000 PSADSS12 EQU PSADSSF4 02631000 PSADSSRC EQU PSADSSF4 02632000 PSARV057 EQU PSADSSF3 02633000 PSARV056 EQU PSADSSF3 02634000 PSARV055 EQU PSADSSF3 02635000 PSADSSMC EQU PSADSSF3 02636000 PSADSSRW EQU PSADSSF3 02637000 PSADSSNM EQU PSADSSF3 02638000 PSADSSES EQU PSADSSF3 02639000 PSADSSGP EQU PSADSSF3 02640000 PSADSSF2 EQU PSADSSFL+1 02641000 PSADSSPI EQU PSADSSF1 02642000 PSADSSOI EQU PSADSSF1 02643000 PSADSSSP EQU PSADSSF1 02644000 PSADSSTP EQU PSADSSF1 02645000 PSADSSDW EQU PSADSSF1 02646000 PSADSSDD EQU PSADSSF1 02647000 PSADSSDM EQU PSADSSF1 02648000 PSADSSMV EQU PSADSSF1 02649000 PSADSSTS EQU PSA+816 02650000 PSADSSWK EQU PSA+812 02651000 PSADSSR3 EQU PSA+808 02652000 PSADSSR2 EQU PSA+804 02653000 PSADSSRS EQU PSA+800 02654000 PSASTOR EQU PSA+796 02655000 PSACPUSA EQU PSA+794 02656000 PSAVSTAP EQU PSA+792 02657000 PSAWKVAP EQU PSA+788 02658000 PSAWKRAP EQU PSA+784 02659000 PSAMCHIC EQU PSA+783 02660000 PSARV061 EQU PSA+782 02661000 PSASYMSK EQU PSA+781 02662000 PSAMCHFL EQU PSA+780 02663000 PSACR0 EQU PSA+776 02664000 PSAPSWSV EQU PSA+768 02665000 PSACLHS EQU PSAHLHI 02666000 PSALKR15 EQU PSALKSA+60 02667000 PSALKR14 EQU PSALKSA+56 02668000 PSALKR13 EQU PSALKSA+52 02669000 PSALKR12 EQU PSALKSA+48 02670000 PSALKR11 EQU PSALKSA+44 02671000 PSALKR10 EQU PSALKSA+40 02672000 PSALKR9 EQU PSALKSA+36 02673000 PSALKR8 EQU PSALKSA+32 02674000 PSALKR7 EQU PSALKSA+28 02675000 PSALKR6 EQU PSALKSA+24 02676000 PSALKR5 EQU PSALKSA+20 02677000 PSALKR4 EQU PSALKSA+16 02678000 PSALKR3 EQU PSALKSA+12 02679000 PSALKR2 EQU PSALKSA+8 02680000 PSALKR1 EQU PSALKSA+4 02681000 PSALKR0 EQU PSALKSA 02682000 PSARV023 EQU PSACLHT+52 02683000 PSALOCAL EQU PSACLHT+48 02684000 PSACMSL EQU PSACLHT+44 02685000 PSAOPTL EQU PSACLHT+40 02686000 PSATPACL EQU PSACLHT+36 02687000 PSATPDNL EQU PSACLHT+32 02688000 PSATPNCL EQU PSACLHT+28 02689000 PSAIOSLL EQU PSACLHT+24 02690000 PSAIOSUL EQU PSACLHT+20 02691000 PSAIOSCL EQU PSACLHT+16 02692000 PSAIOSSL EQU PSACLHT+12 02693000 PSASALCL EQU PSACLHT+8 02694000 PSAASML EQU PSACLHT+4 02695000 PSADISPL EQU PSACLHT 02696000 PSASRSA EQU PSA+636 02697000 PSARV050 EQU PSA+634 02698000 PSADSSGO EQU PSA+633 02699000 PSARECUR EQU PSA+632 02700000 PSAHLHIS EQU PSA+628 02701000 PSAIPCSA EQU PSA+624 02702000 @NM00050 EQU PSA+621 02703000 PSAIPCDM EQU PSA+620 02704000 PSAIPCD EQU PSA+616 02705000 @NM00049 EQU PSA+613 02706000 PSAIPCRM EQU PSA+612 02707000 PSAIPCR EQU PSA+608 02708000 PSAMCHEX EQU PSA+600 02709000 PSAMPSW EQU PSA+592 02710000 PSAEXPS2 EQU PSA+584 02711000 PSAEXPS1 EQU PSA+576 02712000 PSAPIREG EQU PSA+572 02713000 PSARSREG EQU PSA+568 02714000 PSAGPREG EQU PSA+556 02715000 PSARV022 EQU PSASUP4 02716000 PSARV021 EQU PSASUP4 02717000 PSARV020 EQU PSASUP4 02718000 PSARV019 EQU PSASUP4 02719000 PSARV018 EQU PSASUP4 02720000 PSARV017 EQU PSASUP4 02721000 PSARV016 EQU PSASUP4 02722000 PSARV015 EQU PSASUP4 02723000 PSARV014 EQU PSASUP3 02724000 PSARV013 EQU PSASUP3 02725000 PSARV012 EQU PSASUP3 02726000 PSAESTA EQU PSASUP3 02727000 PSASPR EQU PSASUP3 02728000 PSAPSREG EQU PSASUP3 02729000 PSAPI2 EQU PSASUP3 02730000 PSAIOSUP EQU PSASUP3 02731000 PSALCR EQU PSASUP2 02732000 PSARTM EQU PSASUP2 02733000 PSAACR EQU PSASUP2 02734000 PSAIPCE2 EQU PSASUP2 02735000 PSAIPCES EQU PSASUP2 02736000 PSAIPCEC EQU PSASUP2 02737000 PSAGTF EQU PSASUP2 02738000 PSAIPCRI EQU PSASUP2 02739000 PSATYPE6 EQU PSASUP1 02740000 PSATCTL EQU PSASUP1 02741000 PSADISP EQU PSASUP1 02742000 PSALOCK EQU PSASUP1 02743000 PSAPI EQU PSASUP1 02744000 PSAEXT EQU PSASUP1 02745000 PSASVC EQU PSASUP1 02746000 PSAIO EQU PSASUP1 02747000 PSAANEW EQU PSA+544 02748000 PSATOLD EQU PSA+540 02749000 PSATNEW EQU PSA+536 02750000 PSALCCAR EQU PSA+532 02751000 PSALCCAV EQU PSA+528 02752000 PSAPCCAR EQU PSA+524 02753000 PSAPCCAV EQU PSA+520 02754000 PSACPULA EQU PSA+518 02755000 PSACPUPA EQU PSA+516 02756000 PSAPSA EQU PSA+512 02757000 FLCHDEND EQU PSA+512 02758000 FLCCRSAV EQU FLCMCLA+280 02759000 FLCGRSAV EQU FLCMCLA+216 02760000 FLCFPSAV EQU FLCMCLA+184 02761000 FLCFLA EQU FLCMCLA+88 02762000 FLCRGNCD EQU FLCMCLA+84 02763000 FLCFSAA EQU FLCFSA+1 02764000 @NM00048 EQU FLCFSA 02765000 @NM00047 EQU FLCMCLA+72 02766000 FLCMCIC EQU FLCMCLA+64 02767000 @NM00046 EQU FLCMCLA+20 02768000 FLCIOAA EQU FLCIOA+1 02769000 @NM00045 EQU FLCIOA 02770000 @NM00044 EQU FLCMCLA+15 02771000 @NM00043 EQU FLCMCLA+14 02772000 @NM00042 EQU FLCMCLA+12 02773000 FLCLCL EQU FLCMCLA+8 02774000 FLCIOELA EQU FLCIOEL+1 02775000 @NM00041 EQU FLCIOEL 02776000 FLCCHNID EQU FLCMCLA 02777000 @NM00040 EQU PSA+160 02778000 FLCMTRCD EQU PSA+157 02779000 @NM00039 EQU PSA+156 02780000 FLCPERA EQU FLCPER+1 02781000 @NM00038 EQU FLCPER 02782000 @NM00037 EQU PSA+151 02783000 FLCPERCD EQU PSA+150 02784000 FLCMCNUM EQU PSA+149 02785000 @NM00036 EQU PSA+148 02786000 FLCTEAA EQU FLCTEA+1 02787000 @NM00035 EQU FLCTEA 02788000 PSAPIPC EQU PSAPICOD 02789000 PSAPIMC EQU PSAPICOD 02790000 PSAPIPER EQU PSAPICOD 02791000 PSARV049 EQU FLCPICOD 02792000 FLCPILCB EQU FLCPIILC 02793000 @NM00034 EQU FLCPIILC 02794000 @NM00033 EQU PSAEPPSW 02795000 FLCSVCN EQU PSAESPSW+2 02796000 FLCSILCB EQU FLCSVILC 02797000 @NM00032 EQU FLCSVILC 02798000 @NM00031 EQU PSAESPSW 02799000 FLCEICOD EQU PSAEEPSW+2 02800000 PSASPAD EQU PSAEEPSW 02801000 @NM00030 EQU PSA+128 02802000 FLCINPSW EQU PSA+120 02803000 FLCMNPSW EQU PSA+112 02804000 FLCPNPSW EQU PSA+104 02805000 FLCSNPSW EQU PSA+96 02806000 FLCENPSW EQU PSA+88 02807000 FLCTRACE EQU PSA+84 02808000 FLCTIMER EQU PSA+80 02809000 FLCCVT2 EQU PSA+76 02810000 FLCCAW EQU PSA+72 02811000 FLCCSW EQU PSA+64 02812000 FLCIOPSW EQU PSA+56 02813000 FLCMOPSW EQU PSA+48 02814000 FLCPOPSW EQU PSA+40 02815000 FLCSOPSW EQU PSA+32 02816000 FLCEOPSW EQU PSA+24 02817000 @NM00029 EQU FLCICCW2+4 02818000 FLCICCW1 EQU FLCROPSW 02819000 FLCIPPSW EQU FLCRNPSW 02820000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02821000 @ENDDATA EQU * 02822000 END ILRSRB01,(C'PLS2057',0701,76114) 02823000