TITLE 'TIMER PURGE,RECOVERY,VARY-IEAVRTI1/IEAQPGTM *00001000 ' 00002000 * /* PROLOG */ 00003000 IEAQPGTM CSECT , TIMER PURGE ENTRY POINT 00004000 USING *,15 00005000 B IEAVRTP1 BRANCH AROUND MOD I.D. 00006000 DC C'IEAVRTI1' MODULE I.D. 00007000 IEAVRTP1 STM 14,12,12(13) 00008000 LA BASEREG,IEAVRTBS 00009000 B IEAVRTBS BRANCH TO PURGE ROUTINE 00010000 SPACE 2 00011000 ENTRY IEAVRCLS SYNCHRONOUS TIMER HW RECOVERY E.P. 00012000 IEAVRCLS EQU * 00013000 USING *,15 00014000 STM 14,12,12(13) 00015000 LA BASEREG,IEAVRTBS 00016000 B IEAVRSRC BRANCH TO HW REC ROUTINE 00017000 SPACE 2 00018000 ENTRY IEAVRSPN 00019000 IEAVRSPN BALR 15,0 CPU HOLD ROUTINE ENTRY POINT 00020000 USING *,15 00021000 LA BASEREG,IEAVRTBS 00022000 B IEAVRHLD BRANCH TO HOLD ROUTINE 00023000 SPACE 2 00024000 ENTRY IEAVRNEW 00025000 IEAVRNEW BALR 15,0 VARY CPU ON-LINE ENTRY POINT 00026000 USING *,15 00027000 STM 14,12,12(13) 00028000 LA BASEREG,IEAVRTBS 00029000 B IEAVRVON BRANCH TO VARY ROUTINE 00030000 SPACE 2 00031000 ENTRY IEAVRFRR 00032000 IEAVRFRR BALR 15,0 TIMER SUPERVISION FRR 00033000 USING *,15 00034000 LA BASEREG,IEAVRTBS 00035000 B IEAVRSWR BRANCH TO SW REC ROUTINE 00036000 SPACE 2 00037000 IEAVRTBS EQU * 00038000 USING *,BASEREG 00039000 RBPRFXLN EQU 64 00040000 RBPRFLNA EQU 32 00041000 PRBLEN EQU 136 00042000 SIRBLEN EQU 200 00043000 TIRBLEN EQU 136 00044000 IRBLEN EQU 128 00045000 SVRBLEN EQU 224 00046000 * R5=R13; /* SAVE REG SAVE AREA ADDR */ 00047000 LR R5,R13 0166 00048000 * R10=R1; /* ESTABLISH PTR TO RMPL PTR */ 00049000 LR R10,R1 0167 00050000 * RESPECIFY 0168 00051000 * (R0, 0168 00052000 * R6) RSTD; 0168 00053000 * GENERATE CODE; 0169 00054000 * /* ESTABLISH ESTAE COVERAGE */ 00055000 LA R0,ESTAELEN SET R0 TO SIZE OF ESTAE PL 00056000 ICM R0,8,SQA GET AN ESTAE PL FROM SP 245 00057000 GETMAIN R,LV=(0) 00058000 LR R6,R1 SAVE PTR TO PARAMETER LIST 00059000 MVC 0(ESTAELEN,R1),ESTAEL1 INITIALIZE PARAMERTER LIST 00060000 ESTAE MF=(E,(1)) ESTABLISH ESTAE COVERAGE 00061000 LA R0,ESTAELEN 00062000 ICM R0,8,SQA 00063000 LR R1,R6 00064000 FREEMAIN R,LV=(0),A=(1) FREE THE PARAMETER LIST 00065000 * RESPECIFY 0170 00066000 * (R0, 0170 00067000 * R6) UNRSTD; 0170 00068000 * IF RMPLTCBA=0 /* IF MEMORY IS TERMINATING, */ 00069000 * THEN /* PURGE FOR ENTIRE MEMORY. */ 00070000 L @12,RMPLPTR(,R10) 0171 00071000 L @12,RMPLTCBA(,@12) 0171 00072000 LTR @12,@12 0171 00073000 BNZ @RF00171 0171 00074000 * DO; /* GET SALLOC AND DISP LOCKS */ 00075000 * RESPECIFY 0173 00076000 * (R11, 0173 00077000 * R12, 0173 00078000 * R13, 0173 00079000 * R14) RSTD; 0173 00080000 * GENERATE REFS(PSALITA,FLC); 0174 00081000 SETLOCK OBTAIN,TYPE=SALLOC,MODE=UNCOND, CC00082000 RELATED=(GETMAIN,IEAVRTI1(NONE)) 00083000 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND, CC00084000 RELATED=('TQE QUEUE',IEAVRTI1(NONE)) 00085000 * RESPECIFY 0175 00086000 * (R11, 0175 00087000 * R12, 0175 00088000 * R13, 0175 00089000 * R14) UNRSTD; /* TURN OFF TIME LIMIT CHECKING 00090000 * OF THIS MEMORY BY SETTING BIT 00091000 * ASCBTOFF TO 1 AND BIT ASCBCEXT 00092000 * TO 1. */ 00093000 * RESPECIFY 0176 00094000 * (R11, 0176 00095000 * R12, 0176 00096000 * R13, 0176 00097000 * R14) RSTD; 0176 00098000 * RESPECIFY 0177 00099000 * ASCB BASED(R14); 0177 00100000 * R14=RMPLASCB; 0178 00101000 L @08,RMPLPTR(,R10) 0178 00102000 L R14,RMPLASCB(,@08) 0178 00103000 * GENERATE REFS(ASCBAFFN,ASCBSWCT,ASCBFLG1,ASCBFLG2); 0179 00104000 LA 11,X'80' 00105000 SLL 11,24-(8*((ASCBFLG1-ASCBAFFN)-(((ASCBFLG1-ASCBAFFN)/4)*4))) 00106000 L 12,ASCBAFFN+(((ASCBFLG1-ASCBAFFN)/4)*4)(R14) 00107000 TOFFM LR 13,12 00108000 OR 13,11 00109000 CS 12,13,ASCBAFFN+(((ASCBFLG1-ASCBAFFN)/4)*4)(R14) 00110000 BNZ TOFFM * 00111000 LA 11,X'20' 00112000 SLL 11,24-(8*((ASCBFLG2-ASCBSWCT)-(((ASCBFLG2-ASCBSWCT)/4)*4))) 00113000 L 12,ASCBSWCT+(((ASCBFLG2-ASCBSWCT)/4)*4)(R14) 00114000 CEXTM LR 13,12 00115000 OR 13,11 00116000 CS 12,13,ASCBSWCT+(((ASCBFLG2-ASCBSWCT)/4)*4)(R14) 00117000 BNZ CEXTM * 00118000 * RESPECIFY 0180 00119000 * (R11, 0180 00120000 * R12, 0180 00121000 * R13, 0180 00122000 * R14) UNRSTD; 0180 00123000 * RESPECIFY 0181 00124000 * ASCB BASED(RMPLASCB); 0181 00125000 * RESPECIFY 0182 00126000 * (TPCPTR) RSTD; 0182 00127000 * TPCPTR=CVTTPC; 0183 00128000 L @12,CVTPTR 0183 00129000 L TPCPTR,CVTTPC(,@12) 0183 00130000 * TQEPTR=TPCHDCCQ; /* PT TO START OF REAL QUEUE */ 00131000 L TQEPTR,TPCHDCCQ(,TPCPTR) 0184 00132000 * RESPECIFY 0185 00133000 * (TPCPTR) UNRSTD; 0185 00134000 * RESPECIFY 0186 00135000 * (NEXTTQE) RSTD; 0186 00136000 * DO WHILE TQEDUM='0'B; /* SEARCH FOR MEMORY'S TQES */ 00137000 B @DE00187 0187 00138000 @DL00187 DS 0H 0188 00139000 * NEXTTQE=TQEFLNK; /* POINT TO NEXT TQE IN QUEUE */ 00140000 L NEXTTQE,TQEFLNK(,TQEPTR) 0188 00141000 * IF TQEUSER='1'B /* IF NOT A SYSTEM TQE */ 00142000 * THEN /* TQE CAN BELONG TO MEMORY */ 00143000 TM TQEUSER(TQEPTR),B'01000000' 0189 00144000 BNO @RF00189 0189 00145000 * IF TQEAID=RMPLASID /* IF TQE BELONGS TO MEMORY, */ 00146000 * THEN /* DEQUE IT AND FREE IT. */ 00147000 L @12,RMPLPTR(,R10) 0190 00148000 CLC TQEAID(2,TQEPTR),RMPLASID(@12) 0190 00149000 BNE @RF00190 0190 00150000 * DO; 0191 00151000 * RESPECIFY 0192 00152000 * (R2) RSTD; 0192 00153000 * R2=ADDR(DEQRET1); 0193 00154000 LA R2,DEQRET1 0193 00155000 * CALL DEQTQE; /* FIRST, DEQUEUE THE TQE */ 00156000 L @12,CVTPTR 0194 00157000 L @15,CVTQTD00(,@12) 0194 00158000 BALR @14,@15 0194 00159000 *DEQRET1: 0195 00160000 * RESPECIFY 0195 00161000 * (R2) UNRSTD; /* DEQ RETURNS HERE */ 00162000 DEQRET1 DS 0H 0196 00163000 * RESPECIFY 0196 00164000 * (R0) RSTD; 0196 00165000 * R0=128; /* SECOND, FREE TQE CORE - 128 0197 00166000 * BYTES IN SQA (SP 245) */ 00167000 LA R0,128 0197 00168000 * GENERATE REFS(CVTSPSA,CVTMAP,CVTGLMN,WSAGGMFM,WSAG) 00169000 *(FREEMAIN RU,LV=(0),A=(1),SP=245,BRANCH=(YES,GLOBAL)); 0198 00170000 FREEMAIN RU,LV=(0),A=(1),SP=245,BRANCH=(YES,GLOBAL) 00171000 * RESPECIFY 0199 00172000 * (R0) UNRSTD; 0199 00173000 * END; 0200 00174000 * TQEPTR=NEXTTQE; /* MOVE ON TO NEXT TQE */ 00175000 @RF00190 DS 0H 0201 00176000 @RF00189 LR TQEPTR,NEXTTQE 0201 00177000 * END; 0202 00178000 @DE00187 TM TQEDUM(TQEPTR),B'00010000' 0202 00179000 BZ @DL00187 0202 00180000 * RESPECIFY 0203 00181000 * (R2) UNRSTD; 0203 00182000 * RESPECIFY 0204 00183000 * (R11, 0204 00184000 * R12, 0204 00185000 * R13, 0204 00186000 * R14) RSTD; 0204 00187000 * GENERATE CODE; 0205 00188000 * /* FREE SALLOC AND DISP LOCKS */ 00189000 SETLOCK RELEASE,TYPE=SALLOC, CC00190000 RELATED=(GETMAIN,IEAVRTI1(NONE)) 00191000 SETLOCK RELEASE,TYPE=DISP, CC00192000 RELATED=('TQE QUEUE',IEAVRTI1(NONE)) 00193000 * RESPECIFY 0206 00194000 * (R11, 0206 00195000 * R12, 0206 00196000 * R13, 0206 00197000 * R14) UNRSTD; 0206 00198000 * RESPECIFY 0207 00199000 * (R6, 0207 00200000 * R7) RSTD; /* SET UP PURGEDQ INTERFACE */ 00201000 * R1=RMPLRMWA; /* R1= PTR TO PARAMETER LIST */ 00202000 L @12,RMPLPTR(,R10) 0208 00203000 L R1,RMPLRMWA(,@12) 0208 00204000 * R6=ADDR(RMPLASID); /* R6= PTR TO MEMORY'S ID */ 00205000 LA R6,RMPLASID(,@12) 0209 00206000 * R7=ADDR(DBLZ); /* R7= DEFAULT TO ALL TCBS */ 00207000 LA R7,DBLZ 0210 00208000 * GENERATE /* NOW PURGE SRBS FOR MEMORY */ 00209000 * (PURGEDQ MF=(E,(R1)),ASID=(R6),ASIDTCB=(R7),RMTR=IEAVRSPG); 00210000 PURGEDQ MF=(E,(R1)),ASID=(R6),ASIDTCB=(R7),RMTR=IEAVRSPG 00211000 * END; 0212 00212000 * ELSE /* HERE IF TCB IS TERMINATING */ 00213000 * DO; 0213 00214000 B @RC00171 0213 00215000 @RF00171 DS 0H 0214 00216000 * RESPECIFY 0214 00217000 * (R11, 0214 00218000 * R12, 0214 00219000 * R13, 0214 00220000 * R14) RSTD; 0214 00221000 * GENERATE; 0215 00222000 * /* GET DISPATCHER LOCK */ 00223000 SETLOCK OBTAIN,TYPE=DISP,MODE=UNCOND, CC00224000 RELATED=('TQE QUEUE',IEAVRTI1(NONE)) 00225000 * RESPECIFY 0216 00226000 * (R11, 0216 00227000 * R12, 0216 00228000 * R13, 0216 00229000 * R14) UNRSTD; 0216 00230000 * IF TCBJSTCB=RMPLTCBA /* IF TCBJST POINTS TO SELF */ 00231000 * THEN /* ITS JOB STEP TCB OR HIGHER */ 00232000 L @12,RMPLPTR(,R10) 0217 00233000 L @11,RMPLTCBA(,@12) 0217 00234000 C @11,TCBJSTCB(,@11) 0217 00235000 BNE @RF00217 0217 00236000 * DO; /* TURN OFF TIME LIMIT CHECKING 00237000 * OF THIS MEMORY BY SETTING BIT 00238000 * ASCBTOFF TO 1 AND BIT ASCBCEXT 00239000 * TO 1. */ 00240000 * RESPECIFY 0219 00241000 * (R11, 0219 00242000 * R12, 0219 00243000 * R13, 0219 00244000 * R14) RSTD; 0219 00245000 * R14=RMPLASCB; 0220 00246000 L @08,RMPLPTR(,R10) 0220 00247000 L R14,RMPLASCB(,@08) 0220 00248000 * GENERATE REFS(ASCBAFFN,ASCBSWCT,ASCBFLG1,ASCBFLG2); 0221 00249000 LA 11,X'80' 00250000 SLL 11,24-(8*((ASCBFLG1-ASCBAFFN)-(((ASCBFLG1-ASCBAFFN)/4)*4))) 00251000 TOFFT L 12,ASCBAFFN+(((ASCBFLG1-ASCBAFFN)/4)*4)(R14) 00252000 LR 13,12 00253000 OR 13,11 00254000 CS 12,13,ASCBAFFN+(((ASCBFLG1-ASCBAFFN)/4)*4)(R14) 00255000 BNZ TOFFT * 00256000 LA 11,X'20' 00257000 SLL 11,24-(8*((ASCBFLG2-ASCBSWCT)-(((ASCBFLG2-ASCBSWCT)/4)*4))) 00258000 CEXTT L 12,ASCBSWCT+(((ASCBFLG2-ASCBSWCT)/4)*4)(R14) 00259000 LR 13,12 00260000 OR 13,11 00261000 CS 12,13,ASCBSWCT+(((ASCBFLG2-ASCBSWCT)/4)*4)(R14) 00262000 BNZ CEXTT * 00263000 * RESPECIFY 0222 00264000 * (R11, 0222 00265000 * R12, 0222 00266000 * R13, 0222 00267000 * R14) UNRSTD; 0222 00268000 * RESPECIFY 0223 00269000 * ASCB BASED(RMPLASCB); 0223 00270000 * END; 0224 00271000 * TQEPTR=TCBTME; /* SET UP TQE POINTER */ 00272000 @RF00217 L @12,RMPLPTR(,R10) 0225 00273000 L @12,RMPLTCBA(,@12) 0225 00274000 L TQEPTR,TCBTME(,@12) 0225 00275000 * IF TQEPTR^=0& /* IF THERE IS A TQE FOR TCB, */ 00276000 * TQEOFF='0'B /* ON THE QUEUE, */ 00277000 * THEN /* DEQUE IT AND FREE IT. */ 00278000 LTR TQEPTR,TQEPTR 0226 00279000 BZ @RF00226 0226 00280000 TM TQEOFF(TQEPTR),B'10000000' 0226 00281000 BNZ @RF00226 0226 00282000 * DO; 0227 00283000 * RESPECIFY 0228 00284000 * (R2) RSTD; 0228 00285000 * R2=ADDR(DEQRET2); 0229 00286000 LA R2,DEQRET2 0229 00287000 * CALL DEQTQE; /* FIRST DEQUEUE THE TQE. */ 00288000 L @12,CVTPTR 0230 00289000 L @15,CVTQTD00(,@12) 0230 00290000 BALR @14,@15 0230 00291000 *DEQRET2: 0231 00292000 * TCBTME=0; /* CLEAR TQE POINTER IN TCB */ 00293000 DEQRET2 L @12,RMPLPTR(,R10) 0231 00294000 L @12,RMPLTCBA(,@12) 0231 00295000 SLR @11,@11 0231 00296000 ST @11,TCBTME(,@12) 0231 00297000 * RESPECIFY 0232 00298000 * (R2) UNRSTD; 0232 00299000 * RESPECIFY 0233 00300000 * (R11, 0233 00301000 * R12, 0233 00302000 * R13, 0233 00303000 * R14) RSTD; 0233 00304000 * GENERATE; 0234 00305000 * /* SECOND, FREE THE DISP LOCK */ 00306000 SETLOCK RELEASE,TYPE=DISP, CC00307000 RELATED=('TQE QUEUE',IEAVRTI1(NONE)) 00308000 * RESPECIFY 0235 00309000 * (R11, 0235 00310000 * R12, 0235 00311000 * R13, 0235 00312000 * R14) UNRSTD; 0235 00313000 * RESPECIFY 0236 00314000 * (R0) RSTD; 0236 00315000 * R0=LENGTH(TQE); 0237 00316000 LA R0,128 0237 00317000 * IF TQETYPE='00'B /* IF IT IS A TASK TYPE TQE */ 00318000 * THEN /* FREE IT FROM LSQA (SP253) */ 00319000 TM TQETYPE(TQEPTR),B'00000011' 0238 00320000 BNZ @RF00238 0238 00321000 * GENERATE(ICM R0,8,LSQA); 0239 00322000 ICM R0,8,LSQA 00323000 * ELSE /* HERE IF REAL TYPE */ 00324000 * GENERATE /* FREE IT FROM SQA (SP245) */ 00325000 * (ICM R0,8,SQA); 0240 00326000 B @RC00238 0240 00327000 @RF00238 DS 0H 0240 00328000 ICM R0,8,SQA 00329000 * GENERATE /* THIRD, FREE TQE,PURGE SRBS */ 00330000 * (FREEMAIN R,LV=(0),A=(1)); 0241 00331000 @RC00238 DS 0H 0241 00332000 FREEMAIN R,LV=(0),A=(1) 00333000 * END; 0242 00334000 * ELSE /* HERE IF TCB HAS NO TQE */ 00335000 * DO; /* RELEASE THE DISP LOCK */ 00336000 B @RC00226 0243 00337000 @RF00226 DS 0H 0244 00338000 * RESPECIFY 0244 00339000 * (R11, 0244 00340000 * R12, 0244 00341000 * R13, 0244 00342000 * R14) RSTD; 0244 00343000 * GENERATE; 0245 00344000 SETLOCK RELEASE,TYPE=DISP, CC00345000 RELATED=('TQE QUEUE',IEAVRTI1(NONE)) 00346000 * RESPECIFY 0246 00347000 * (R11, 0246 00348000 * R12, 0246 00349000 * R13, 0246 00350000 * R14) UNRSTD; 0246 00351000 * END; 0247 00352000 * GENERATE /* PURGE SRBS */ 00353000 * (PURGEDQ RMTR=IEAVRSPG); 0248 00354000 @RC00226 DS 0H 0248 00355000 PURGEDQ RMTR=IEAVRSPG 00356000 * RESPECIFY 0249 00357000 * (R0) UNRSTD; 0249 00358000 * END; 0250 00359000 * RESPECIFY 0251 00360000 * TCB BASED(TCBPTR); 0251 00361000 @RC00171 DS 0H 0252 00362000 * R13=R5; /* RESTORE SAVE AREA POINTER */ 00363000 LR R13,R5 0252 00364000 * GENERATE; 0253 00365000 * /* CLEAR ESTAE, RESTORE REGS */ 00366000 ESTAE 0 00367000 LM 14,12,12(R13) 00368000 * RETURN CODE(0); /* RETURN WITH ZERO RET CODE */ 00369000 SLR @15,@15 0254 00370000 @EL00001 DS 0H 0254 00371000 @EF00001 DS 0H 0254 00372000 @ER00001 BR @14 0254 00373000 * RESPECIFY 0255 00374000 * (R5, 0255 00375000 * R10) UNRSTD; 0255 00376000 * 0256 00377000 */* *****************************************************************/ 00378000 */* */ 00379000 */* SYNCHRONOUS RECOVERY ROUTINE */ 00380000 */* */ 00381000 */* *****************************************************************/ 00382000 * 0256 00383000 *IEAVRSRC: 0256 00384000 * RESPECIFY 0256 00385000 * CSD BASED(CSDPTR); 0256 00386000 IEAVRSRC DS 0H 0257 00387000 * RESPECIFY 0257 00388000 * (R10, 0257 00389000 * BADCPU, 0257 00390000 * LCCAPTR, 0257 00391000 * PCCAPTR) RSTD; 0257 00392000 * RESPECIFY 0258 00393000 * (R5) RSTD; 0258 00394000 * R5=R13; /* SAVE SAVE AREA ADDRESS */ 00395000 LR R5,R13 0259 00396000 * R10=0; /* INITIALIZE-'NEED IEAVRCLS' */ 00397000 SLR R10,R10 0260 00398000 * LCCAPTR=PSALCCAV; /* SET UP LCCA ADDRESSABILITY */ 00399000 L LCCAPTR,PSALCCAV 0261 00400000 * IF LCCAACR='1'B /* IF ENTRY IS DUE TO ACR */ 00401000 * THEN /* ADJUST FOR DOWN CPU */ 00402000 TM LCCAACR(LCCAPTR),B'10000000' 0262 00403000 BNO @RF00262 0262 00404000 * DO; 0263 00405000 * PCCAPTR=PCCAT00P(BADCPU+1); /* GET PTR TO BAD CPU'S PCCA */ 00406000 LR @12,BADCPU 0264 00407000 SLL @12,2 0264 00408000 L @11,CVTPTR 0264 00409000 L @08,CVTPCCAT(,@11) 0264 00410000 L PCCAPTR,PCCAT00P(@12,@08) 0264 00411000 * RESPECIFY 0265 00412000 * (BADCPU) UNRSTD; 0265 00413000 * CSDPTR=CVTCSD; /* SET UP CSD ADDRESSABILITY */ 00414000 L CSDPTR,CVTCSD(,@11) 0266 00415000 * RESPECIFY 0267 00416000 * (R6, 0267 00417000 * R7) RSTD; 0267 00418000 * IF PCCANFCC='0'B /* IF CLOCK COMPARATOR IS NOT 0268 00419000 * PERMANENTLY DAMAGED, */ 00420000 * THEN /* TREAT IT AS SUCH. */ 00421000 TM PCCANFCC(PCCAPTR),B'01000000' 0268 00422000 BNZ @RF00268 0268 00423000 * DO; 0269 00424000 * PCCACCE='FF'X; /* MARK CLR COMP PERM DAMAGED */ 00425000 MVI PCCACCE(PCCAPTR),X'FF' 0270 00426000 * R6=CSDGDCC; 0271 00427000 L R6,CSDGDCC(,CSDPTR) 0271 00428000 *REDOCC: 0272 00429000 * R7=R6-1; /* REDUCE BY ONE THE COUNT OF */ 00430000 REDOCC LR R7,R6 0272 00431000 BCTR R7,0 0272 00432000 * GENERATE CODE; 0273 00433000 * /* USABLE CLK COMPS IN SYSTEM */ 00434000 CS R6,R7,CSDGDCC(CSDPTR) 00435000 BNZ REDOCC 00436000 * END; 0274 00437000 * IF PCCANFTD='0'B /* IF TOPC NOT PERM DAMAGED, */ 00438000 * THEN /* TREAT IT AS SUCH. */ 00439000 @RF00268 TM PCCANFTD(PCCAPTR),B'01000000' 0275 00440000 BNZ @RF00275 0275 00441000 * DO; 0276 00442000 * PCCATODE='FF'X; /* MARK TOD CLK PERM DAMAGED */ 00443000 MVI PCCATODE(PCCAPTR),X'FF' 0277 00444000 * R6=CSDGDTOD; 0278 00445000 L R6,CSDGDTOD(,CSDPTR) 0278 00446000 *REDOTOD: 0279 00447000 * R7=R6-1; /* REDUCE BY 1 THE NUMBER OF */ 00448000 REDOTOD LR R7,R6 0279 00449000 BCTR R7,0 0279 00450000 * GENERATE; 0280 00451000 * /* CPUS WITH GOOD TOD CLOCKS */ 00452000 CS R6,R7,CSDGDTOD(CSDPTR) 00453000 BNZ REDOTOD 00454000 * END; 0281 00455000 * IF PCCANFIN='0'B /* IF CPU TMR NOT PER DAMAGED */ 00456000 * THEN /* TREAT IT AS SUCH */ 00457000 @RF00275 TM PCCANFIN(PCCAPTR),B'01000000' 0282 00458000 BNZ @RF00282 0282 00459000 * DO; 0283 00460000 * PCCAINTE='FF'X; /* MARK CPU TMR PERM DAMAGED */ 00461000 MVI PCCAINTE(PCCAPTR),X'FF' 0284 00462000 * R6=CSDGDINT; 0285 00463000 L R6,CSDGDINT(,CSDPTR) 0285 00464000 *REDONT: 0286 00465000 * R7=R6-1; /* REDUCE BY ONE THE COUNT OF */ 00466000 REDONT LR R7,R6 0286 00467000 BCTR R7,0 0286 00468000 * GENERATE CODE; 0287 00469000 * /* USABLE CPU TMRS IN SYSTEM */ 00470000 CS R6,R7,CSDGDINT(CSDPTR) 00471000 BNZ REDONT 00472000 * END; 0288 00473000 * IF PCCATQEP^=0 /* IF BAD CPU WAS TIMNG A TQE */ 00474000 * THEN /* MARK TQE AS NO LONGER */ 00475000 @RF00282 L @12,PCCATQEP(,PCCAPTR) 0289 00476000 LTR @12,@12 0289 00477000 BZ @RF00289 0289 00478000 * PCCATQEP->TQECOMP='0'B; /* BEING TIMED */ 00479000 NI TQECOMP(@12),B'01111111' 0290 00480000 * RESPECIFY 0291 00481000 * (R6, 0291 00482000 * R7, 0291 00483000 * CSDPTR) UNRSTD; 0291 00484000 @RF00289 DS 0H 0292 00485000 * END; 0292 00486000 * ELSE /* HERE IF A MACHINE CHECK */ 00487000 * DO; 0293 00488000 B @RC00262 0293 00489000 @RF00262 DS 0H 0294 00490000 * PCCAPTR=PSAPCCAV; /* SET UP PCCA ADDRESSABILITY */ 00491000 L PCCAPTR,PSAPCCAV 0294 00492000 * IF PCCAINIT='0'B /* IF NOT YET INITIALIZED */ 00493000 * THEN /* INDICATE IEAVRCLS NOT */ 00494000 TM PCCAINIT(PCCAPTR),B'10000000' 0295 00495000 BNZ @RF00295 0295 00496000 * R10=1; /* NEEDED. (R10 NOT ZERO) */ 00497000 LA R10,1 0296 00498000 * ELSE /* HERE IF INITIALIZED */ 00499000 * DO; 0297 00500000 B @RC00295 0297 00501000 @RF00295 DS 0H 0298 00502000 * IF(LRBMITOD='1'B& /* IF AN INVALID MACH CK */ 00503000 * PCCANUTD='1'B)| /* (MCH CK INVALID IF */ 00504000 * (LRBMICKC='1'B& /* RECEIVED FOR A */ 00505000 * PCCANUCC='1'B)| /* CLOCK WHICH IS */ 00506000 * (LRBMICTM='1'B& /* MARKED NOT IN USE) */ 00507000 * PCCANUIN='1'B) THEN /* ENSURE INTERRUPTS */ 00508000 TM LRBMITOD(LRBPTR),B'00001000' 0298 00509000 BNO @GL00003 0298 00510000 TM PCCANUTD(PCCAPTR),B'10000000' 0298 00511000 BO @RT00298 0298 00512000 @GL00003 TM LRBMICKC(LRBPTR),B'00000100' 0298 00513000 BNO @GL00002 0298 00514000 TM PCCANUCC(PCCAPTR),B'10000000' 0298 00515000 BO @RT00298 0298 00516000 @GL00002 TM LRBMICTM(LRBPTR),B'00000010' 0298 00517000 BNO @RF00298 0298 00518000 TM PCCANUIN(PCCAPTR),B'10000000' 0298 00519000 BNO @RF00298 0298 00520000 @RT00298 DS 0H 0299 00521000 * DO; /* DISABLED- THEN EXIT. */ 00522000 * RESPECIFY 0300 00523000 * (R6) RSTD; 0300 00524000 * R6=ADDR(TIMESAVE); 0301 00525000 L @12,LCCACPUS(,LCCAPTR) 0301 00526000 L R6,WSACTIME(,@12) 0301 00527000 * IF LRBMICKC='1'B /* IF CLOCK COMP, */ 00528000 * THEN /* DISABLE IN CR0- */ 00529000 TM LRBMICKC(LRBPTR),B'00000100' 0302 00530000 BNO @RF00302 0302 00531000 * DO; 0303 00532000 * GENERATE; 0304 00533000 * /* SET BIT 20 TO 0 */ 00534000 STCTL 0,0,0(R6) 00535000 NI 2(R6),X'F7' 00536000 LCTL 0,0,0(R6) 00537000 * END; 0305 00538000 * IF LRBMICTM='1'B /* IF CPU TIMER, */ 00539000 * THEN /* DISABLE IN CR0- */ 00540000 @RF00302 TM LRBMICTM(LRBPTR),B'00000010' 0306 00541000 BNO @RF00306 0306 00542000 * DO; 0307 00543000 * GENERATE CODE; 0308 00544000 * /* SET BIT 21 TO 0 */ 00545000 STCTL 0,0,0(R6) 00546000 NI 2(R6),X'FB' 00547000 LCTL 0,0,0(R6) 00548000 * END; 0309 00549000 * RESPECIFY 0310 00550000 * (R6) UNRSTD; 0310 00551000 @RF00306 DS 0H 0311 00552000 * R10=1; /* SET IEAVRCLS NOT NEEDED */ 00553000 LA R10,1 0311 00554000 * END; 0312 00555000 * ELSE /* HERE IF VALID MCH CHECK */ 00556000 * DO; 0313 00557000 B @RC00298 0313 00558000 @RF00298 DS 0H 0314 00559000 * IF LRBMITOD='1'B /* IF TOD CLOCK */ 00560000 * THEN /* PROCESS BY... */ 00561000 TM LRBMITOD(LRBPTR),B'00001000' 0314 00562000 BNO @RF00314 0314 00563000 * DO; 0315 00564000 * PCCANUTD='1'B; /* MARK NOT USABLE */ 00565000 OI PCCANUTD(PCCAPTR),B'10000000' 0316 00566000 * PCCANUCC='1'B; /* ALSO CLOCK COMP. */ 00567000 OI PCCANUCC(PCCAPTR),B'10000000' 0317 00568000 * LCCAPTR=PSALCCAV;/* POINT TO LCCA */ 00569000 L LCCAPTR,PSALCCAV 0318 00570000 * RESPECIFY 0319 00571000 * (R6) RSTD; 0319 00572000 * R6=ADDR(TIMESAVE); 0320 00573000 L @12,LCCACPUS(,LCCAPTR) 0320 00574000 L R6,WSACTIME(,@12) 0320 00575000 * GENERATE; 0321 00576000 * /* DISABLE CC INTERRUPTS */ 00577000 STCTL 0,0,0(R6) 00578000 NI 2(R6),X'F7' SET BIT 20 = 0 00579000 LCTL 0,0,0(R6) 00580000 * RESPECIFY 0322 00581000 * (R6) UNRSTD; 0322 00582000 * IF PCCATQEP^=0 /* IF CPU WAS TIMING A TQE WITH 00583000 * ITS CC */ 00584000 * THEN /* MARK TQE AS NOT */ 00585000 SLR @12,@12 0323 00586000 L @11,PCCATQEP(,PCCAPTR) 0323 00587000 CR @11,@12 0323 00588000 BE @RF00323 0323 00589000 * DO; /* BEING TIMED. */ 00590000 * PCCATQEP->TQECOMP='0'B; 0325 00591000 NI TQECOMP(@11),B'01111111' 0325 00592000 * PCCATQEP=0; 0326 00593000 ST @12,PCCATQEP(,PCCAPTR) 0326 00594000 * END; 0327 00595000 * END; 0328 00596000 * ELSE /* HERE IF NOT TODC */ 00597000 * DO; 0329 00598000 B @RC00314 0329 00599000 @RF00314 DS 0H 0330 00600000 * IF LRBMICKC='1'B/* IF CLOCK COMP, */ 00601000 * THEN /* PROCESS BY... */ 00602000 TM LRBMICKC(LRBPTR),B'00000100' 0330 00603000 BNO @RF00330 0330 00604000 * DO; 0331 00605000 * PCCANUCC='1'B;/* MARK CC UNUSABLE */ 00606000 OI PCCANUCC(PCCAPTR),B'10000000' 0332 00607000 * IF PCCATQEP^=0/* IF CPU TMG A TQE */ 00608000 * THEN /* CLEAR INDICATORS */ 00609000 SLR @12,@12 0333 00610000 L @11,PCCATQEP(,PCCAPTR) 0333 00611000 CR @11,@12 0333 00612000 BE @RF00333 0333 00613000 * DO; 0334 00614000 * PCCATQEP->TQECOMP='0'B; 0335 00615000 NI TQECOMP(@11),B'01111111' 0335 00616000 * PCCATQEP=0; 0336 00617000 ST @12,PCCATQEP(,PCCAPTR) 0336 00618000 * END; 0337 00619000 * PCCACCE=PCCACCE+ERRINCR;/* BUMP ERROR CNT */ 00620000 @RF00333 SLR @12,@12 0338 00621000 IC @12,PCCACCE(,PCCAPTR) 0338 00622000 SLR @11,@11 0338 00623000 IC @11,ERRINCR 0338 00624000 ALR @12,@11 0338 00625000 STC @12,PCCACCE(,PCCAPTR) 0338 00626000 * IF PCCANFCC='1'B/* IF CLOCK COMPARATOR IS 0339 00627000 * PERM DAMAGED, */ 00628000 * THEN /* CLOSE IT DOWN */ 00629000 TM PCCANFCC(PCCAPTR),B'01000000' 0339 00630000 BNO @RF00339 0339 00631000 * DO; 0340 00632000 * PCCANFCC='0'B;/* THIS BIT MUST BE ZERO 0341 00633000 * FOR IEAVRCLS TO PROCESS CLOCK */ 00634000 NI PCCANFCC(PCCAPTR),B'10111111' 0341 00635000 * PCCAMCC='1'B;/* INDICATE PERM DAMGD 0342 00636000 * MESSAGE NEEDED */ 00637000 OI PCCAMCC(PCCAPTR),B'00010000' 0342 00638000 * RESPECIFY 0343 00639000 * (R6) RSTD; 0343 00640000 * R6=ADDR(TIMESAVE);/* TURN OFF ANY FURTHER 00641000 * INTERRUPTS */ 00642000 L @12,LCCACPUS(,LCCAPTR) 0344 00643000 L R6,WSACTIME(,@12) 0344 00644000 * GENERATE REFS(R6,CCODD,CCEVEN); 0345 00645000 * /*@ZA00075*/ 00646000 STCTL 0,0,0(R6) 00647000 NI 2(R6),X'F7' 00648000 LCTL 0,0,0(R6) 00649000 * @ZA00075 00650000 * FIRST TRY SETTING THE CLK COMP WITH AN ALTERNATING BIT @ZA00075 00651000 * PATTERN OF 1010101...ETC. IN A 168, IF ONE OR MORE OF THE @ZA00075 00652000 * EVEN-NUMBERED BITS (0,2,4,...,62) HAD A PARITY ERROR, THIS @ZA00075 00653000 * SHOULD CLEAR IT. IF IT DOES NOT, WHEN THE CLK COMP IS @ZA00075 00654000 * STORED, THE STORED VALUE WILL BE ZERO. IF ZERO, @ZA00075 00655000 * THE CLK COMP WILL BE SET WITH AN ALTERNATING BIT PATTERN @ZA00075 00656000 * OF 0101010...ETC., TO CLEAR PARITY ERRORS IN ODD-NUMBERED @ZA00075 00657000 * BITS. IN A 158, EVEN IF THE CLK COMP REMAINS IN THE @ZA00075 00658000 * ERROR STATE AFTER THE FIRST SCKC, THE VALUE STORED BY THE @ZA00075 00659000 * STCKC WILL BE NON-ZERO. THUS ALTHOUGH THE ERROR STATE MAY @ZA00075 00660000 * PERSIST, CLK COMP MCK INTERRUPTS, WILL BE DISABLED BY @ZA00075 00661000 * IEAVRCLS THE NEXT TIME A CLK COMP MCK INTERRUPT OCCURS. @ZA00075 00662000 * @ZA00075 00663000 SCKC CCEVEN @ZA00075 00664000 STCKC 0(R6) @ZA00075 00665000 OC 0(8,R6),0(R6) @ZA00075 00666000 BNZ CCOK @ZA00075 00667000 SCKC CCODD @ZA00075 00668000 CCOK DS 0H @ZA00075 00669000 * RESPECIFY 0346 00670000 * (R6) UNRSTD; 0346 00671000 * END; 0347 00672000 * ELSE /* IF NOT PERM DAMAGE */ 00673000 * DO; 0348 00674000 B @RC00339 0348 00675000 @RF00339 DS 0H 0349 00676000 * GENERATE/* RESET CLR COMP */ 00677000 * (SCKC MAXCC); 0349 00678000 SCKC MAXCC 00679000 * PCCANUCC='0'B;/* ALLOW THE CLOCK COMP TO 00680000 * BE USED AGAIN. */ 00681000 NI PCCANUCC(PCCAPTR),B'01111111' 0350 00682000 * END; 0351 00683000 * END; 0352 00684000 * ELSE /* HERE IF NOT CC */ 00685000 * IF LRBMICTM='1'B/* IF CPU TIMER, */ 00686000 * THEN /* PROCESS BY... */ 00687000 B @RC00330 0353 00688000 @RF00330 TM LRBMICTM(LRBPTR),B'00000010' 0353 00689000 BNO @RF00353 0353 00690000 * DO; /* BUMP ERROR CNT */ 00691000 * PCCANUIN='1'B;/* MARK AS UNUSABLE */ 00692000 OI PCCANUIN(PCCAPTR),B'10000000' 0355 00693000 * PCCAINTE=PCCAINTE+ERRINCR; 0356 00694000 SLR @12,@12 0356 00695000 IC @12,PCCAINTE(,PCCAPTR) 0356 00696000 SLR @11,@11 0356 00697000 IC @11,ERRINCR 0356 00698000 ALR @12,@11 0356 00699000 STC @12,PCCAINTE(,PCCAPTR) 0356 00700000 * IF PCCANFIN='1'B/* IF CPU TIMER IS PERM 0357 00701000 * DAMAGED, */ 00702000 * THEN /* CLOSE IT DOWN. */ 00703000 TM PCCANFIN(PCCAPTR),B'01000000' 0357 00704000 BNO @RF00357 0357 00705000 * DO; 0358 00706000 * PCCANFIN='0'B;/* ZERO BIT FOR IEAVRCLS */ 00707000 NI PCCANFIN(PCCAPTR),B'10111111' 0359 00708000 * PCCAMINT='1'B;/* INDICATE PERM DAMGD 0360 00709000 * MESSAGE NEEDED */ 00710000 OI PCCAMINT(PCCAPTR),B'00001000' 0360 00711000 * RESPECIFY 0361 00712000 * (R6) RSTD; 0361 00713000 * R6=ADDR(TIMESAVE);/* TURN OFF ANY 0362 00714000 * FURTHER INTERRUPTS */ 00715000 L @12,LCCACPUS(,LCCAPTR) 0362 00716000 L R6,WSACTIME(,@12) 0362 00717000 * GENERATE; 0363 00718000 STCTL 0,0,0(R6) 00719000 NI 2(R6),X'FB' 00720000 LCTL 0,0,0(R6) 00721000 * RESPECIFY 0364 00722000 * (TPCPTR) UNRSTD; 0364 00723000 * END; 0365 00724000 * ELSE /* IF NO PERM DAMG */ 00725000 * DO; 0366 00726000 B @RC00357 0366 00727000 @RF00357 DS 0H 0367 00728000 * GENERATE/* RESET CPU TIMER */ 00729000 * (SPT MAXCPUT); 0367 00730000 SPT MAXCPUT 00731000 * RESPECIFY 0368 00732000 * (R6) UNRSTD; 0368 00733000 * RESPECIFY 0369 00734000 * (TQEPTR2) RSTD; 0369 00735000 * TCBPTR=PSATOLD;/* SET TCB POINTER */ 00736000 L TCBPTR,PSATOLD 0370 00737000 * IF TCBPTR^=0/* IF A TCB WAS EXECUTING, */ 00738000 * THEN/* CHECK FOR A TQE */ 00739000 SLR @15,@15 0371 00740000 CR TCBPTR,@15 0371 00741000 BE @RF00371 0371 00742000 * DO; 0372 00743000 * TQEPTR2=TCBTME;/* SET TQE POINTER */ 00744000 L TQEPTR2,TCBTME(,TCBPTR) 0373 00745000 * IF TQEPTR2^=0/* IF THERE IS TQE */ 00746000 * THEN/* RESET THE CPU TIMER WITH 00747000 * THE REMAINING INTERVAL */ 00748000 CR TQEPTR2,@15 0374 00749000 BE @RF00374 0374 00750000 * DO; 0375 00751000 * RESPECIFY 0376 00752000 * TQE BASED(TQEPTR2); 0376 00753000 * LCCAPTR=PSALCCAV; 0377 00754000 L LCCAPTR,PSALCCAV 0377 00755000 * RESPECIFY 0378 00756000 * (R6, 0378 00757000 * R7) RSTD; 0378 00758000 * IF LCCADTLH>LCCASTLH|(LCCADTLH= 00759000 * LCCASTLH&(LCCADTRH>LCCASTRH)) 00760000 * THEN/* RESET STIMER TOD */ 00761000 L @15,LCCADTLH(,LCCAPTR) 0379 00762000 L @12,LCCASTLH(,LCCAPTR) 0379 00763000 CLR @15,@12 0379 00764000 BH @RT00379 0379 00765000 CLR @15,@12 0379 00766000 BNE @RF00379 0379 00767000 CLC LCCADTRH(4,LCCAPTR),LCCASTRH(LCCAPTR) 0379 00768000 BNH @RF00379 0379 00769000 @RT00379 DS 0H 0380 00770000 * LCCASTOD=LCCADTOD; 0380 00771000 MVC LCCASTOD(8,LCCAPTR),LCCADTOD(LCCAPTR) 0380 00772000 * R6=TQEVALLH; 0381 00773000 @RF00379 L R6,TQEVALLH(,TQEPTR2) 0381 00774000 * R7=TQEVALRH; 0382 00775000 L R7,TQEVALRH(,TQEPTR2) 0382 00776000 * GENERATE REFS(LRBTODLH,LRBTODRH); 00777000 AL R7,LCCASTRH(LCCAPTR) 00778000 BC 12,ADDLEFT1 00779000 AL R6,ONE 00780000 ADDLEFT1 AL R6,LCCASTLH(LCCAPTR) 00781000 SL R7,LRBTODRH(LRBPTR) 00782000 BC 11,SUBLEFT1 00783000 BCTR R6,0 00784000 SUBLEFT1 SL R6,LRBTODLH(LRBPTR) 00785000 * TQEVALLH=R6; 0384 00786000 ST R6,TQEVALLH(,TQEPTR2) 0384 00787000 * TQEVALRH=R7; 0385 00788000 ST R7,TQEVALRH(,TQEPTR2) 0385 00789000 * LCCASTOD=ERRTIME; 0386 00790000 MVC LCCASTOD(8,LCCAPTR),ERRTIME(LRBPTR) 0386 00791000 * GENERATE(SPT TQEVAL(TQEPTR2)); 00792000 SPT TQEVAL(TQEPTR2) 00793000 * RESPECIFY 0388 00794000 * TQE BASED(TQEPTR); 0388 00795000 * RESPECIFY 0389 00796000 * (R6, 0389 00797000 * R7, 0389 00798000 * TQEPTR2) UNRSTD; 0389 00799000 * END; 0390 00800000 * END; 0391 00801000 @RF00374 DS 0H 0392 00802000 * PCCANUIN='0'B;/* ALLOW USE OF CPUT */ 00803000 @RF00371 NI PCCANUIN(PCCAPTR),B'01111111' 0392 00804000 * END; 0393 00805000 * END; 0394 00806000 * ELSE /* IF NOT CPU TIMER */ 00807000 * R10=1; /* IGNORE INTERRUPT */ 00808000 B @RC00353 0395 00809000 @RF00353 LA R10,1 0395 00810000 * END; 0396 00811000 @RC00353 DS 0H 0396 00812000 @RC00330 DS 0H 0397 00813000 * END; 0397 00814000 @RC00314 DS 0H 0398 00815000 * END; 0398 00816000 @RC00298 DS 0H 0399 00817000 * END; 0399 00818000 @RC00295 DS 0H 0400 00819000 * IF R10=0 /* IF IEAVRCLS NEEDED */ 00820000 * THEN /* SCHEDULE THE SRB */ 00821000 @RC00262 LTR R10,R10 0400 00822000 BNZ @RF00400 0400 00823000 * DO; 0401 00824000 * RESPECIFY 0402 00825000 * (SRBPTR, 0402 00826000 * TPCPTR) RSTD; 0402 00827000 * TPCPTR=CVTTPC; 0403 00828000 L @12,CVTPTR 0403 00829000 L TPCPTR,CVTTPC(,@12) 0403 00830000 * SRBPTR=ADDR(TPCRSRB(1)); /* SET PTR TO RECOVERY SRB */ 00831000 LA SRBPTR,TPCRSRB(,TPCPTR) 0404 00832000 * RESPECIFY 0405 00833000 * (TPCPTR) UNRSTD; 0405 00834000 * RESPECIFY 0406 00835000 * (R6, 0406 00836000 * R7) RSTD; 0406 00837000 *AGAIN: 0407 00838000 * R6=SRBPARM; 0407 00839000 AGAIN L R6,SRBPARM(,SRBPTR) 0407 00840000 * R7=1; /* CLATC BIT */ 00841000 LA R7,1 0408 00842000 * GENERATE CODE; 0409 00843000 * /* INDICATE SERVICE NEEDED */ 00844000 OR R7,R6 00845000 CS R6,R7,SRBPARM(SRBPTR) 00846000 BNZ AGAIN 00847000 * RESPECIFY 0410 00848000 * (R6, 0410 00849000 * R7) UNRSTD; 0410 00850000 * IF CLASIU='0'B /* IF IEAVRCLS NOT GOING */ 00851000 * THEN /* SCHEDULE THE SRB */ 00852000 TM CLASIU(SRBPTR),B'00000010' 0411 00853000 BNZ @RF00411 0411 00854000 * DO; 0412 00855000 * CLASIU='1'B; /* MARK IEAVRCLA IN USE */ 00856000 OI CLASIU(SRBPTR),B'00000010' 0413 00857000 * SRBEP=ADDR(IEAVRCLX); /* SET ENTRY PT TO IEAVRCLX */ 00858000 LA @12,IEAVRCLX 0414 00859000 ST @12,SRBEP(,SRBPTR) 0414 00860000 * GENERATE REFS(CVT,CVTGSMQ,SRBFLNK) 0415 00861000 * (SCHEDULE SRB=(SRBPTR),SCOPE=GLOBAL); 0415 00862000 SCHEDULE SRB=(SRBPTR),SCOPE=GLOBAL 00863000 * END; 0416 00864000 * END; 0417 00865000 @RF00411 DS 0H 0418 00866000 * R13=R5; /* RESTORE SAVE AREA POINTER */ 00867000 @RF00400 LR R13,R5 0418 00868000 * GENERATE; 0419 00869000 * /* RESTORE REGS AND RETURN */ 00870000 LM 14,12,12(R13) 00871000 BR RETADDR 00872000 * RESPECIFY 0420 00873000 * (R10, 0420 00874000 * LCCAPTR, 0420 00875000 * PCCAPTR, 0420 00876000 * SRBPTR) UNRSTD; 0420 00877000 * RESPECIFY 0421 00878000 * (R5) UNRSTD; 0421 00879000 * 0422 00880000 */* *****************************************************************/ 00881000 */* */ 00882000 */* CPU HOLD ROUTINE */ 00883000 */* */ 00884000 */* *****************************************************************/ 00885000 * 0422 00886000 *IEAVRHLD: 0422 00887000 * RESPECIFY 0422 00888000 * (TPCPTR, 0422 00889000 * FRRPTR, 0422 00890000 * TFRRPTR, 0422 00891000 * FRRSPTR, 0422 00892000 * FRREPTR) RSTD; 0422 00893000 IEAVRHLD DS 0H 0423 00894000 * TPCPTR=CVTTPC; 0423 00895000 L @15,CVTPTR 0423 00896000 L TPCPTR,CVTTPC(,@15) 0423 00897000 * FRRPTR=TPCFRRP; /* SET PTR TO FRR ROUTINE */ 00898000 L FRRPTR,TPCFRRP(,TPCPTR) 0424 00899000 * GENERATE REFS(PSA,FRRSPTR,FRRSLAST,FRRSFRRA,FRRSPARM,PSALSFCC); 00900000 SETFRR A,FRRAD=(FRRPTR),PARMAD=(TFRRPTR), CC00901000 WRKREGS=(FRRSPTR,FRREPTR), CC00902000 RELATED=('cpu hold rtn',IEAVRTI1(NONE)) 00903000 * TFRRID=CPUHID; /* SET FOOTPRINT FOR FRR */ 00904000 MVC TFRRID(4,TFRRPTR),@CB03370 0426 00905000 * RESPECIFY 0427 00906000 * (TPCPTR, 0427 00907000 * FRRPTR, 0427 00908000 * TFRRPTR, 0427 00909000 * FRRSPTR, 0427 00910000 * FRREPTR) UNRSTD; 0427 00911000 * RESPECIFY 0428 00912000 * (LCCAPTR) RSTD; 0428 00913000 * CSDPTR=CVTCSD; /* SET UP CSD ADDRESSABILITY */ 00914000 L @12,CVTPTR 0429 00915000 L CSDPTR,CVTCSD(,@12) 0429 00916000 * LCCAPTR=PSALCCAV; /* SET UP LCCA ADDRESSABILITY 0430 00917000 * ENSURE CONTROL COME RIGHT */ 00918000 L LCCAPTR,PSALCCAV 0430 00919000 * LCCATSPN='1'B; /* BACK ON AN INTERRUPT */ 00920000 OI LCCATSPN(LCCAPTR),B'00010000' 0431 00921000 * RESPECIFY 0432 00922000 * (R10, 0432 00923000 * R13) RSTD; /* @YM02668*/ 00924000 * R13=ADDR(LCCADTRH); /* FOR WINDOW @YM02668*/ 00925000 LA R13,LCCADTRH(,LCCAPTR) 0433 00926000 * R10=1; /* INITIALIZE R10 NOT ZERO LOOP 00927000 * UNTIL TOD CLOCK IS 0434 00928000 * SYNCHRONIZED BY ANOTHER CPU OR 00929000 * IF ALL OTHER CPUS BOMB OUT - 00930000 * EITHER CASE IS INDICATED IF 0434 00931000 * R10 STAYS 0 */ 00932000 LA R10,1 0434 00933000 * DO WHILE R10^=0; /* OPEN/CLOSE ES & MFA WIND. */ 00934000 B @DE00435 0435 00935000 @DL00435 DS 0H 0436 00936000 * GENERATE REFS(PSACR0,LCCAPSMK)/* @YM02668*/ 00937000 * (WINDOW (R13)); /* @YM02668*/ 00938000 WINDOW (R13) 00939000 * R10=0; /* INITIALIZE R10 */ 00940000 SLR R10,R10 0437 00941000 * RESPECIFY 0438 00942000 * (SLOTCNT, 0438 00943000 * LCCAPTR2, 0438 00944000 * PCCAPTR2) RSTD; /* IF CLOCK NOT YET */ 00945000 * IF LCCATIMR='1'B /* SYNCHRONIZED BY IEAVRSSC */ 00946000 * THEN /* MAKE SURE THERE IS STILL 0439 00947000 * ANOTHER LIVE CPU. */ 00948000 TM LCCATIMR(LCCAPTR),B'00010000' 0439 00949000 BNO @RF00439 0439 00950000 * DO SLOTCNT=DIM(LCCAT00P) TO 1/* EXAMINE ALL LCCA ENTRIES */ 00951000 * BY-1 WHILE R10=0; /* TO DETERMINE THIS. */ 00952000 LA SLOTCNT,16 0440 00953000 @DL00440 SLR @12,@12 0440 00954000 CR R10,@12 0440 00955000 BNE @DC00440 0440 00956000 * LCCAPTR2=LCCAT00P(SLOTCNT); 0441 00957000 LR @11,SLOTCNT 0441 00958000 SLA @11,2 0441 00959000 L @08,CVTPTR 0441 00960000 L @07,CVTLCCAT(,@08) 0441 00961000 AL @07,@CF03506 0441 00962000 L LCCAPTR2,LCCAT00P(@11,@07) 0441 00963000 * PCCAPTR2=PCCAT00P(SLOTCNT); 0442 00964000 L @08,CVTPCCAT(,@08) 0442 00965000 AL @08,@CF03506 0442 00966000 L PCCAPTR2,PCCAT00P(@11,@08) 0442 00967000 * IF LCCAPTR2^=0& /* IF THERE IS AN LCCA ENTRY */ 00968000 * LCCAPTR2^=LCCAPTR /* WHICH IS NOT THIS CPU'S */ 00969000 * THEN /* CHECK IT OUT. */ 00970000 CR LCCAPTR2,@12 0443 00971000 BE @RF00443 0443 00972000 CR LCCAPTR2,LCCAPTR 0443 00973000 BE @RF00443 0443 00974000 * DO; 0444 00975000 * IF LCCAPTR2->LCCAACR='0'B&/* IF CPU NOT IN ACR */ 00976000 * PCCAPTR2->PCCANUTD='0'B/* WITH GOOD TOD CLOCK */ 00977000 * THEN /* SEE IF IT IS ONLINE */ 00978000 TM LCCAACR(LCCAPTR2),B'10000000' 0445 00979000 BNZ @RF00445 0445 00980000 TM PCCANUTD(PCCAPTR2),B'10000000' 0445 00981000 BNZ @RF00445 0445 00982000 * DO; 0446 00983000 * RESPECIFY 0447 00984000 * (R11) RSTD; 0447 00985000 * 0447 00986000 * /***************************************************/ 00987000 * /* */ 00988000 * /* LCCAPTR2 HAS CHANGED @ZA07011*/ 00989000 * /* */ 00990000 * /***************************************************/ 00991000 * 0448 00992000 * GENERATE REFS(LCCADTOD,CSDCPUAL,MASK,ZERO); 0448 00993000 LR R11,SLOTCNT 00994000 AR R11,R11 00995000 MVC LCCADTOD+4(2,LCCAPTR),CSDCPUAL(CSDPTR) 00996000 LA R11,MASK-2(R11) 00997000 NC LCCADTOD+4(2,LCCAPTR),0(R11) 00998000 CLC LCCADTOD+4(2,LCCAPTR),ZERO 00999000 BE NOTON 01000000 LA R10,1 01001000 NOTON EQU * 01002000 * RESPECIFY 0449 01003000 * (R11) UNRSTD; 0449 01004000 * END; 0450 01005000 * END; 0451 01006000 @RF00445 DS 0H 0452 01007000 * END; 0452 01008000 @RF00443 BCTR SLOTCNT,0 0452 01009000 LTR SLOTCNT,SLOTCNT 0452 01010000 BP @DL00440 0452 01011000 @DC00440 DS 0H 0453 01012000 * RESPECIFY 0453 01013000 * (SLOTCNT, 0453 01014000 * LCCAPTR2, 0453 01015000 * PCCAPTR2) UNRSTD; 0453 01016000 @RF00439 DS 0H 0454 01017000 * END; 0454 01018000 @DE00435 LTR R10,R10 0454 01019000 BNZ @DL00435 0454 01020000 * RESPECIFY 0455 01021000 * (R10, 0455 01022000 * R13) UNRSTD; /* @YM02668 01023000 * HERE IF TOD CLOCK HAS BEEN 0455 01024000 * SYNCHRONIZED OR THERE IS NO 0455 01025000 * OTHER GOOD CPU. */ 01026000 * LCCATIMR='0'B; /* CLEAR DISPATCHER SWITCH */ 01027000 NI LCCATIMR(LCCAPTR),B'11101111' 0456 01028000 * LCCATSPN='0'B; /* CLEAR INTERRUPT SWITCH */ 01029000 NI LCCATSPN(LCCAPTR),B'11101111' 0457 01030000 * RESPECIFY 0458 01031000 * (PCCAPTR) RSTD; 0458 01032000 * PCCAPTR=PSAPCCAV; 0459 01033000 L PCCAPTR,PSAPCCAV 0459 01034000 * RESPECIFY 0460 01035000 * (FRRSPTR, 0460 01036000 * FRREPTR) RSTD; 0460 01037000 * GENERATE REFS(PSACSTK,FRRSCURR,FRRS,FRRSEMP,FRRSELEN); 0461 01038000 SETFRR D,WRKREGS=(FRRSPTR,FRREPTR), CC01039000 RELATED=('CPU HOLD RTN',IEAVRTI1(NONE)) 01040000 * RESPECIFY 0462 01041000 * (FRRSPTR, 0462 01042000 * FRREPTR) UNRSTD; 0462 01043000 * IF PCCAVKIL='1'B /* IF CPU SHOLDN'T GO ONLINE */ 01044000 * THEN /* CANCEL THE VARY ONLINE */ 01045000 TM PCCAVKIL(PCCAPTR),B'00100000' 0463 01046000 BNO @RF00463 0463 01047000 * DO; 0464 01048000 * CALL VARYSTOP; /* GO TO IEEVSTOP */ 01049000 L @12,CVTPTR 0465 01050000 L @15,CVTVSTOP(,@12) 0465 01051000 BALR @14,@15 0465 01052000 * END; 0466 01053000 * ELSE /* HERE IF NO VARY FAILURE */ 01054000 * DO; 0467 01055000 B @RC00463 0467 01056000 @RF00463 DS 0H 0468 01057000 * IF PCCANFCC='0'B /* IF CLOCK COMP. IS O.K. */ 01058000 * THEN /* ENABLE CLK COMP INTERRUPTS */ 01059000 TM PCCANFCC(PCCAPTR),B'01000000' 0468 01060000 BNZ @RF00468 0468 01061000 * DO; 0469 01062000 * RESPECIFY 0470 01063000 * (R6) RSTD; 0470 01064000 * R6=ADDR(TIMESAVE); 0471 01065000 L @12,LCCACPUS(,LCCAPTR) 0471 01066000 L R6,WSACTIME(,@12) 0471 01067000 * GENERATE; 0472 01068000 STCTL 0,0,0(R6) 01069000 OI 2(R6),X'08' SET BIT 20=1 IN CR 0 01070000 LCTL 0,0,0(R6) 01071000 * RESPECIFY 0473 01072000 * (R6) UNRSTD; 0473 01073000 * END; 0474 01074000 * CALL DISPATCH; /* GO TO DISPATCHER */ 01075000 @RF00468 L @12,CVTPTR 0475 01076000 L @15,CVT0DS(,@12) 0475 01077000 BALR @14,@15 0475 01078000 * END; 0476 01079000 * RESPECIFY 0477 01080000 * (LCCAPTR, 0477 01081000 * PCCAPTR) UNRSTD; 0477 01082000 @RC00463 DS 0H 0478 01083000 * 0478 01084000 */* *****************************************************************/ 01085000 */* */ 01086000 */* VARY CPU ON-LINE - IEAVRNEW */ 01087000 */* */ 01088000 */* *****************************************************************/ 01089000 * 0478 01090000 *IEAVRVON: 0478 01091000 * RESPECIFY 0478 01092000 * (R6, 0478 01093000 * R13, 0478 01094000 * LCCAPTR) RSTD; 0478 01095000 IEAVRVON DS 0H 0479 01096000 * LCCAPTR=PSALCCAV; 0479 01097000 L LCCAPTR,PSALCCAV 0479 01098000 * R6=ADDR(TIMESAVE); 0480 01099000 L @12,LCCACPUS(,LCCAPTR) 0480 01100000 L R6,WSACTIME(,@12) 0480 01101000 * GENERATE REFS(MAXCC,MAXCPUT); 0481 01102000 STCTL 0,0,0(R6) 01103000 OI 2(R6),X'04' ENABLE CPU TIMER INTERRUPTS 01104000 NI 2(R6),X'F7' DISABLE CLOCK COMPARATOR INTERRUPTS 01105000 NI 3(R6),X'7F' DISABLE LOCATION 80 TIMER 01106000 LCTL 0,0,0(R6) 01107000 SCKC MAXCC SET HIGH VALUE INTO CLOCK COMPARATOR 01108000 SPT MAXCPUT SET HIGH VALUE INTO CPU TIMER 01109000 * RESPECIFY 0482 01110000 * (R6, 0482 01111000 * LCCAPTR) UNRSTD; 0482 01112000 * RESPECIFY 0483 01113000 * (PCCAPTR) RSTD; 0483 01114000 * PCCAPTR=PSAPCCAV; /* INITIALIZE THE PCCA ENTRY */ 01115000 L PCCAPTR,PSAPCCAV 0484 01116000 * PCCATQEP=0; /* NEW CPU NOT TIMING A TQE */ 01117000 SLR @12,@12 0485 01118000 ST @12,PCCATQEP(,PCCAPTR) 0485 01119000 * PCCATMST='00C00000'X; 0486 01120000 MVC PCCATMST(4,PCCAPTR),@CB03449 0486 01121000 * RESPECIFY 0487 01122000 * (PCCAPTR) UNRSTD; 0487 01123000 * RESPECIFY 0488 01124000 * (LCCAPTR) RSTD; 0488 01125000 * LCCAPTR=PSALCCAV; /* INITIALIZE THE LCCA */ 01126000 L LCCAPTR,PSALCCAV 0489 01127000 * LCCASTOD='0000000000000000'X; /* NO INITIAL STIMER TIME */ 01128000 MVC LCCASTOD(8,LCCAPTR),@CB03349 0490 01129000 * LCCATIMR='1'B; /* GET CPU TO IEAVRSPN */ 01130000 OI LCCATIMR(LCCAPTR),B'00010000' 0491 01131000 * RESPECIFY 0492 01132000 * (LCCAPTR) UNRSTD; 0492 01133000 * GENERATE; 0493 01134000 LM 14,12,12(13) RESTORE REGISTERS 01135000 BR RETADDR RETURN TO IEEVCPU 01136000 * RESPECIFY 0494 01137000 * (R13) UNRSTD; 0494 01138000 * 0495 01139000 */* *****************************************************************/ 01140000 */* */ 01141000 */* SRB PURGE ROUTINE - IEAVRSPG */ 01142000 */* */ 01143000 */* *****************************************************************/ 01144000 * 0495 01145000 *IEAVRSPG: /* ENTRY TO SRB PURGE ROUTINE */ 01146000 * GENERATE; 0495 01147000 IEAVRSPG DS 0H 0495 01148000 * /* ESTABLISH ADDRESSABILITY */ 01149000 ENTRY IEAVRSPG 01150000 BALR BASEREG,0 01151000 USING *,BASEREG 01152000 * RESPECIFY 0496 01153000 * (R0, 0496 01154000 * R6, 0496 01155000 * RETADDR) RSTD; 0496 01156000 * R6=RETADDR; /* SAVE RETURN ADDRESS */ 01157000 LR R6,RETADDR 0497 01158000 * RESPECIFY 0498 01159000 * (RETADDR) UNRSTD; 0498 01160000 * RESPECIFY 0499 01161000 * SRBSECT BASED(R0); 0499 01162000 * IF PRGPARM<0 /* IF SRB EMBEDDED IN TQE */ 01163000 * THEN /* FREE TQE WITH THE SRB */ 01164000 LTR PRGPARM,PRGPARM 0500 01165000 BNM @RF00500 0500 01166000 * DO; 0501 01167000 * R0=LENGTH(TQE); /* SET R0= SIZE OF TQE */ 01168000 LA R0,128 0502 01169000 * R1=PRGPARM&HOBITOFF; /* SET H.O. BIT TO 0 @YM08151*/ 01170000 LR R1,PRGPARM 0503 01171000 N R1,HOBITOFF 0503 01172000 * END; 0504 01173000 * ELSE /* FREE JUST SRB IF NOT EMBD. */ 01174000 * DO; 0505 01175000 * 0505 01176000 B @RC00500 0505 01177000 @RF00500 DS 0H 0506 01178000 */* D462000 @YM08151*/ 01179000 * 0506 01180000 * R0=LENGTH(SRBSECT); /* SET R0= SIZE OF SRB */ 01181000 LA R0,44 0506 01182000 * END; /* PUT SP NO 245 (SQA) INTO R0 0507 01183000 * AND THEN FREE THE CORE */ 01184000 * GENERATE CODE; 0508 01185000 @RC00500 DS 0H 0508 01186000 ICM R0,8,SQA 01187000 FREEMAIN R,LV=(0),A=(1) 01188000 * RESPECIFY 0509 01189000 * (RETADDR) RSTD; 0509 01190000 * RETADDR=R6; /* RESTORE RETURN ADDRESS */ 01191000 LR RETADDR,R6 0510 01192000 * GENERATE /* AND RETURN TO CALLER */ 01193000 * (BR RETADDR); 0511 01194000 BR RETADDR 01195000 * RESPECIFY 0512 01196000 * (R6, 0512 01197000 * RETADDR) UNRSTD; 0512 01198000 * RESPECIFY 0513 01199000 * SRBSECT BASED(SRBPTR); 0513 01200000 * 0514 01201000 */* *****************************************************************/ 01202000 */* */ 01203000 */* RECOVERY SRB ROUTINE - IEAVRCLX */ 01204000 */* */ 01205000 */* *****************************************************************/ 01206000 * 0514 01207000 *IEAVRCLX: /* ENTRY TO RECOVERY SRB RTN */ 01208000 * GENERATE; 0514 01209000 IEAVRCLX DS 0H 0514 01210000 * /* ESTABLISH ADDRESSABILITY */ 01211000 BALR BASEREG,0 01212000 USING *,BASEREG 01213000 * RESPECIFY 0515 01214000 * (R0, 0515 01215000 * R6, 0515 01216000 * TPCPTR, 0515 01217000 * SRBPTR, 0515 01218000 * RETADDR) RSTD; 0515 01219000 * SRBPTR=R0; /* ESTABLISH SRBPTR */ 01220000 LR SRBPTR,R0 0516 01221000 * R6=RETADDR; /* SAVE RETURN ADDRESS */ 01222000 LR R6,RETADDR 0517 01223000 * RESPECIFY 0518 01224000 * (RETADDR) UNRSTD; 0518 01225000 * RESPECIFY 0519 01226000 * (TPCPTR, 0519 01227000 * R11, 0519 01228000 * R12, 0519 01229000 * TFRRPTR, 0519 01230000 * R14) RSTD; 0519 01231000 * GENERATE; 0520 01232000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, CC01233000 RELATED=(MEMORY,IEAVRTI1(NONE)) 01234000 * TPCPTR=CVTTPC; 0521 01235000 L @15,CVTPTR 0521 01236000 L TPCPTR,CVTTPC(,@15) 0521 01237000 * FRRPTR=TPCFRRP; /* SET PTR TO FRR ROUTINE */ 01238000 L FRRPTR,TPCFRRP(,TPCPTR) 0522 01239000 * GENERATE REFS(PSA,FRRSPTR,FRRSLAST,FRRSFRRA,FRRSPARM); 0523 01240000 SETFRR A,FRRAD=(FRRPTR),PARMAD=(TFRRPTR), CC01241000 WRKREGS=(FRRSPTR,FRREPTR), CC01242000 RELATED=('recovery srb rtn',IEAVRTI1(NONE)) 01243000 * TFRRLOCL='1'B; /* INDICATE LOCAL LOCK GOTTEN */ 01244000 OI TFRRLOCL(TFRRPTR),B'01000000' 0524 01245000 * TFRRID=CLXID; /* SET FOOTPRINT ID FOR FRR */ 01246000 MVC TFRRID(4,TFRRPTR),@CB03368 0525 01247000 * RESPECIFY 0526 01248000 * (R11, 0526 01249000 * R13, 0526 01250000 * R14) UNRSTD; 0526 01251000 * RESPECIFY 0527 01252000 * (R3, 0527 01253000 * R4, 0527 01254000 * R7, 0527 01255000 * R14, 0527 01256000 * R15) RSTD; 0527 01257000 * R0='FD000098'X; /* IRB/IQE SIZE IN LSQA */ 01258000 L R0,@CF03455 0528 01259000 * R4=SRBPTCB; /* POINTER TO M.S. TCB */ 01260000 L R4,SRBPTCB(,SRBPTR) 0529 01261000 * R7=SRBASCB; /* POINTER TO M.S. ASCB GET CORE 01262000 * FOR IRB/IQE */ 01263000 L R7,SRBASCB(,SRBPTR) 0530 01264000 * GENERATE REFS(CVTMAP,CVTRMBR); 0531 01265000 GETMAIN R,LV=(0),BRANCH=YES 01266000 XC 0(152,R1),0(R1) 01267000 * RBPTR=R1+32; /* SET RB POINTER NOW BUILD THE 01268000 * IRB */ 01269000 LA @05,32 0532 01270000 ALR @05,R1 0532 01271000 LR RBPTR,@05 0532 01272000 * RESPECIFY 0533 01273000 * (R0, 0533 01274000 * R3, 0533 01275000 * R4, 0533 01276000 * R7, 0533 01277000 * R14, 0533 01278000 * R15) UNRSTD; 0533 01279000 * TPCPTR=CVTTPC; 0534 01280000 L @07,CVTPTR 0534 01281000 L TPCPTR,CVTTPC(,@07) 0534 01282000 * RBEP=TPCCLA; /* IEAVRCLS ENTRY POINT */ 01283000 L @07,TPCCLA(,TPCPTR) 0535 01284000 ST @07,RBEP(,RBPTR) 0535 01285000 * RESPECIFY 0536 01286000 * (TPCPTR) UNRSTD; 0536 01287000 * RBPPSAV=0; /* NO PP SAVE AREA */ 01288000 SLR @07,@07 0537 01289000 ST @07,RBPPSAV(,RBPTR) 0537 01290000 * RBWCSA='00'X; /* NO WAIT COUNT */ 01291000 LR @15,RBPTR 0538 01292000 AL @15,@CF03506 0538 01293000 MVI RBWCSA-60(@15),X'00' 0538 01294000 * RBSIZE='13'X; /* IRB/IQE SIZE=19 DBL WORDS */ 01295000 LA @00,19 0539 01296000 STH @00,RBSIZE(,RBPTR) 0539 01297000 * RBSTAB1='40'X; 0540 01298000 MVI RBSTAB1(RBPTR),X'40' 0540 01299000 * RBSTAB2='0E'X; 0541 01300000 MVI RBSTAB2(RBPTR),X'0E' 0541 01301000 * RBOPSW='070C'X; /* PSW-LEFT HALF */ 01302000 XC RBOPSW+2(6,RBPTR),RBOPSW+2(RBPTR) 0542 01303000 MVC RBOPSW(2,RBPTR),@CB03458 0542 01304000 * RBUSE='00'X; 0543 01305000 MVI RBUSE(RBPTR),X'00' 0543 01306000 * RBIQE=0; 0544 01307000 ST @07,RBIQE(,RBPTR) 0544 01308000 * RESPECIFY 0545 01309000 * (IQEPTR) RSTD; 0545 01310000 * IQEPTR=RBPTR+96; /* NOW BUILD THE IQE */ 01311000 LA IQEPTR,96 0546 01312000 ALR IQEPTR,RBPTR 0546 01313000 * IQEIRBA=RBPTR; /* SET POINTER TO THE IRB */ 01314000 STCM RBPTR,7,IQEIRBA(IQEPTR) 0547 01315000 * IQETCBA=SRBPTCB; /* POINTER TO MASTER'S TCB */ 01316000 MVC IQETCBA(3,IQEPTR),SRBPTCB+1(SRBPTR) 0548 01317000 * IQEPARAM=0; 0549 01318000 ST @07,IQEPARAM(,IQEPTR) 0549 01319000 * RESPECIFY 0550 01320000 * (SRBPTR) UNRSTD; 0550 01321000 * RESPECIFY 0551 01322000 * (R1, 0551 01323000 * R15) RSTD; 0551 01324000 * R1=IQEPTR; /* SET R1 TO POINT TO IQE- */ 01325000 LR R1,IQEPTR 0552 01326000 * RESPECIFY 0553 01327000 * (IQEPTR) UNRSTD; /* IN COMPLEMENT FORM */ 01328000 * GENERATE(LCR R1,R1); 0554 01329000 LCR R1,R1 01330000 * TFRREXEF='1'B; /* SET FOOTPRINT FOR FRR */ 01331000 OI TFRREXEF(TFRRPTR),B'00010000' 0555 01332000 * RESPECIFY 0556 01333000 * (TFRRPTR) UNRSTD; 0556 01334000 * CALL STAGE2; /* SCHEDULE IEAVRCLA */ 01335000 L @08,CVTPTR 0557 01336000 L @15,CVT0EF00(,@08) 0557 01337000 BALR @14,@15 0557 01338000 * RESPECIFY 0558 01339000 * (R11, 0558 01340000 * R12, 0558 01341000 * R13, 0558 01342000 * R14) RSTD; 0558 01343000 * GENERATE REFS(PSACSTK,FRRSCURR,FRRS,FRRSEMP,FRRSELEN); 0559 01344000 SETFRR D,WRKREGS=(FRRSPTR,FRREPTR), CC01345000 RELATED=('CPU HOLD RTN',IEAVRTI1(NONE)) 01346000 SETLOCK RELEASE,TYPE=LOCAL, CC01347000 RELATED=(MEMORY,IEAVRTI1(NONE)) 01348000 * RESPECIFY 0560 01349000 * (R11, 0560 01350000 * R12, 0560 01351000 * R13, 0560 01352000 * R14) UNRSTD; 0560 01353000 * RESPECIFY 0561 01354000 * (RETADDR) RSTD; 0561 01355000 * RETADDR=R6; /* RESTORE RETURN ADDRESS */ 01356000 LR RETADDR,R6 0562 01357000 * GENERATE /* RETURN TO CALLER */ 01358000 * (BR RETADDR); 0563 01359000 BR RETADDR 01360000 * RESPECIFY 0564 01361000 * (R6, 0564 01362000 * RETADDR, 0564 01363000 * TPCPTR) UNRSTD; 0564 01364000 * 0565 01365000 */* ******************************************************************/ 01366000 */* */ 01367000 */* TIMER SUPERVISION COMMON FRR - IEAVRFRR */ 01368000 */* */ 01369000 */* ******************************************************************/ 01370000 * 0565 01371000 *IEAVRSWR: 0565 01372000 * GENERATE; 0565 01373000 IEAVRSWR DS 0H 0565 01374000 * /* ESTABLISH ADDRESSABILITY */ 01375000 USING IEAVRTBS,BASEREG 01376000 * RESPECIFY 0566 01377000 * (R5, 0566 01378000 * TFRRPTR) RSTD; 0566 01379000 * R5=RETADDR; /* SAVE RETURN ADDRESS */ 01380000 LR R5,RETADDR 0567 01381000 * TFRRPTR=SDWAPARM; /* INIT PTR TO FRR PARM LIST */ 01382000 L TFRRPTR,SDWAPARM(,SDWAPTR) 0568 01383000 * IF TFRRRCUR='0'B /* IF NOT A RECURSION */ 01384000 * THEN /* EXECUTE FRR ROUTINE */ 01385000 TM TFRRRCUR(TFRRPTR),B'10000000' 0569 01386000 BNZ @RF00569 0569 01387000 * DO; 0570 01388000 * TFRRRCUR='1'B; /* TURN ON RECURSION INDIC. NEXT, 01389000 * INITIALIZE SDWA */ 01390000 OI TFRRRCUR(TFRRPTR),B'10000000' 0571 01391000 * DO; /* SETRP RECORD(YES)WKAREA(SDWAPT 01392000 * R)RC(0) */ 01393000 * RESPECIFY 0573 01394000 * (GPR00P, 0573 01395000 * GPR01P, 0573 01396000 * GPR14P, 0573 01397000 * GPR15P) RSTD; 0573 01398000 * GPR01P=SDWAPTR; 0574 01399000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 01400000 MVI SDWARCDE(GPR01P),X'00' 0575 01401000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 01402000 OI SDWARCRD(GPR01P),B'10000000' 0576 01403000 * RESPECIFY 0577 01404000 * (GPR00P, 0577 01405000 * GPR01P, 0577 01406000 * GPR14P, 0577 01407000 * GPR15P) UNRSTD; 0577 01408000 * END; 0578 01409000 * RESPECIFY 0579 01410000 * SDWA BASED(SDWAPTR); 0579 01411000 * IF TFRRDISP='1'B /* IF DISP LOCK WAS HELD */ 01412000 * THEN /* SET DISP LOCK BIT IN SDWA */ 01413000 TM TFRRDISP(TFRRPTR),B'10000000' 0580 01414000 BNO @RF00580 0580 01415000 * SDWADISP='1'B; 0581 01416000 OI SDWADISP(SDWAPTR),B'00010000' 0581 01417000 * IF TFRRLOCL='1'B /* IF LOCAL LOCK WAS HELD */ 01418000 * THEN /* SET LOCAL LK BIT IN SDWA */ 01419000 @RF00580 TM TFRRLOCL(TFRRPTR),B'01000000' 0582 01420000 BNO @RF00582 0582 01421000 * SDWAFLLK='1'B; 0583 01422000 OI SDWAFLLK(SDWAPTR),B'00000001' 0583 01423000 * IF TFRRSALL='1'B /* IF SALLOC LOCK WAS HELD */ 01424000 * THEN /* SET SALLOC LK BIT IN SDWA */ 01425000 @RF00582 TM TFRRSALL(TFRRPTR),B'00100000' 0584 01426000 BNO @RF00584 0584 01427000 * SDWASALL='1'B; 0585 01428000 OI SDWASALL(SDWAPTR),B'00000100' 0585 01429000 * SDWAREXN='IEAVRFRR'; /* SET NAME OF FRR ROUTINE */ 01430000 @RF00584 MVC SDWAREXN(8,SDWAPTR),@CC03466 0586 01431000 * SDWAMODN=MNAME(TFRRIDDX,1:8);/* SET MODULE NAME */ 01432000 SLR @14,@14 0587 01433000 IC @14,TFRRIDDX(,TFRRPTR) 0587 01434000 SLA @14,3 0587 01435000 LA @08,MNAME-8(@14) 0587 01436000 MVC SDWAMODN(8,SDWAPTR),0(@08) 0587 01437000 * SDWACSCT=CNAME(TFRRIDDX,1:8);/* SET CSECT NAME */ 01438000 LA @08,CNAME-8(@14) 0588 01439000 MVC SDWACSCT(8,SDWAPTR),0(@08) 0588 01440000 * IF TFRRTS='1'B /* IF TIMING SERVICES */ 01441000 * THEN /* DO ITS UNIQUE RECOVERY */ 01442000 TM TFRRTS(TFRRPTR),B'01000000' 0589 01443000 BNO @RF00589 0589 01444000 * DO; 0590 01445000 * IF TFRRSLIH='1'B /* IF TIMER SLIH WAS IN CTL */ 01446000 * THEN /* CHECK TYPE OF EXT INTERRUPT */ 01447000 TM TFRRSLIH(TFRRPTR),B'10000000' 0591 01448000 BNO @RF00591 0591 01449000 * DO; 0592 01450000 * IF TFRRSYNC='1'B /* IF SYNC CHECK INITERRUPT */ 01451000 * THEN /* DISABLE SYNC CHECKS */ 01452000 TM TFRRSYNC(TFRRPTR),B'10000000' 0593 01453000 BNO @RF00593 0593 01454000 * DO; 0594 01455000 * RESPECIFY 0595 01456000 * (LCCAPTR, 0595 01457000 * R13) RSTD; 0595 01458000 * LCCAPTR=PSALCCAV; 0596 01459000 L LCCAPTR,PSALCCAV 0596 01460000 * R13=ADDR(TIMESAVE); 0597 01461000 L @14,LCCACPUS(,LCCAPTR) 0597 01462000 L R13,WSACTIME(,@14) 0597 01463000 * GENERATE; 0598 01464000 STCTL 0,0,0(R13) 01465000 NI 2(R13),X'EF' 01466000 LCTL 0,0,0(R13) 01467000 * RESPECIFY 0599 01468000 * (LCCAPTR, 0599 01469000 * R13) UNRSTD; 0599 01470000 * RESPECIFY 0600 01471000 * (TPCPTR) RSTD; 0600 01472000 * TPCPTR=CVTTPC; 0601 01473000 L @14,CVTPTR 0601 01474000 L TPCPTR,CVTTPC(,@14) 0601 01475000 * TPCSYNC='1'B; /* SET SYNC BIT IN TPC */ 01476000 OI TPCSYNC(TPCPTR),B'01000000' 0602 01477000 * RESPECIFY 0603 01478000 * (TPCPTR) UNRSTD; 0603 01479000 * END; 0604 01480000 * ELSE /* HERE IF NOT SYNC CHECK */ 01481000 * DO; 0605 01482000 B @RC00593 0605 01483000 @RF00593 DS 0H 0606 01484000 * IF TFRRCPUT='1'B/* IF A CPU TIMER INTERRUPT */ 01485000 * THEN /* CHECK FOR CORRECT MEMORY */ 01486000 TM TFRRCPUT(TFRRPTR),B'01000000' 0606 01487000 BNO @RF00606 0606 01488000 * DO; 0607 01489000 * IF SDWAFMID=0&/* IF IN THE RIGHT MEMORY AND */ 01490000 * SLIHTQE^=0/* TQE POINTER WAS SAVED */ 01491000 * THEN /* RECORD CPU TIMER INFO */ 01492000 SLR @14,@14 0608 01493000 LH @08,SDWAFMID(,SDWAPTR) 0608 01494000 N @08,@CF03511 0608 01495000 CR @14,@08 0608 01496000 BNE @RF00608 0608 01497000 L @08,SLIHTQE(,TFRRPTR) 0608 01498000 CR @08,@14 0608 01499000 BE @RF00608 0608 01500000 * DO; 0609 01501000 * RESPECIFY 0610 01502000 * TQE BASED(SLIHTQE); 0610 01503000 * SLIHASID=TQEAID;/* RECORD ASID */ 01504000 LH @14,TQEAID(,@08) 0611 01505000 N @14,@CF03511 0611 01506000 STH @14,SLIHASID(,TFRRPTR) 0611 01507000 * SLIHFL1=TQEFLGS;/* RECORD TQE FLAGS */ 01508000 MVC SLIHFL1(1,TFRRPTR),TQEFLGS(@08) 0612 01509000 * SLIHFL2=TQEFLGS2;/* RECORD TQE FLAGS */ 01510000 MVC SLIHFL2(1,TFRRPTR),TQEFLGS2(@08) 0613 01511000 * SLIHTCB=TQETCB;/* RECORD TQETCB */ 01512000 L @14,TQETCB(,@08) 0614 01513000 ST @14,SLIHTCB(,TFRRPTR) 0614 01514000 * RESPECIFY 0615 01515000 * TQE BASED(TQEPTR); 0615 01516000 * TFRRRCDC='1'B;/* RECORDING COMPLETE */ 01517000 OI TFRRRCDC(TFRRPTR),B'00100000' 0616 01518000 * END; 0617 01519000 * END; 0618 01520000 * ELSE /* HERE IF NOT SYNC CK OR CPUT */ 01521000 * IF TFRRCLKC='1'B/* IF A CLOCK COMP INTERRUPT */ 01522000 * THEN /* SAVE SYSTEM TQES */ 01523000 B @RC00606 0619 01524000 @RF00606 TM TFRRCLKC(TFRRPTR),B'00100000' 0619 01525000 BNO @RF00619 0619 01526000 * DO; 0620 01527000 * IF SLIHTQE^=0/* IF TQE POINTER WAS SAVED */ 01528000 * THEN /* CAN PROCEED */ 01529000 L @14,SLIHTQE(,TFRRPTR) 0621 01530000 LTR @14,@14 0621 01531000 BZ @RF00621 0621 01532000 * DO; 0622 01533000 * RESPECIFY 0623 01534000 * (R0, 0623 01535000 * R14, 0623 01536000 * R15) RSTD; 0623 01537000 * R0=SLIHTQE; 0624 01538000 L @08,SLIHTQE(,TFRRPTR) 0624 01539000 LR R0,@08 0624 01540000 * CALL IEAVRTVR;/* VALIDATE THE TQE */ 01541000 BAL @14,IEAVRTVR 0625 01542000 * RESPECIFY 0626 01543000 * (SDWAPTR2) RSTD; 0626 01544000 * SDWAPTR2=SDWAPTR;/* SAVE SDWA PTR */ 01545000 LR SDWAPTR2,SDWAPTR 0627 01546000 * RESPECIFY 0628 01547000 * TQE BASED(TQEPTR); 0628 01548000 * TQEPTR=R0; 0629 01549000 LR TQEPTR,R0 0629 01550000 * RESPECIFY 0630 01551000 * (R0, 0630 01552000 * R14) UNRSTD; 0630 01553000 * IF R15=8/* IF THE RETURN CODE IS 8 */ 01554000 * THEN/* TURN ON BIT SLIHTNA */ 01555000 C R15,@CF00036 0631 01556000 BNE @RF00631 0631 01557000 * SLIHTNA='1'B; 0632 01558000 OI SLIHTNA(TFRRPTR),B'10000000' 0632 01559000 * ELSE /* HERE IF R15 NOT 8 */ 01560000 * DO; 0633 01561000 B @RC00631 0633 01562000 @RF00631 DS 0H 0634 01563000 * IF R15=4/* IF RETURN CODE IS 4 */ 01564000 * THEN/* TURN ON BIT SLIHTDNG */ 01565000 C R15,@CF00044 0634 01566000 BNE @RF00634 0634 01567000 * SLIHTDNG='1'B; 0635 01568000 OI SLIHTDNG(TFRRPTR),B'01000000' 0635 01569000 * ELSE/* HERE IF A VALID TQE */ 01570000 * DO; 0636 01571000 B @RC00634 0636 01572000 @RF00634 DS 0H 0637 01573000 * RESPECIFY 0637 01574000 * (R15) UNRSTD; 0637 01575000 * SLIHASID=TQEAID;/* RECORD ASID */ 01576000 LH @08,TQEAID(,TQEPTR) 0638 01577000 N @08,@CF03511 0638 01578000 STH @08,SLIHASID(,TFRRPTR) 0638 01579000 * SLIHFL1=TQEFLGS;/* RECORD TQE 0639 01580000 * FLAGS */ 01581000 MVC SLIHFL1(1,TFRRPTR),TQEFLGS(TQEPTR) 0639 01582000 * SLIHFL2=TQEFLGS2;/* RECORD TQE 01583000 * FLAGS */ 01584000 MVC SLIHFL2(1,TFRRPTR),TQEFLGS2(TQEPTR) 0640 01585000 * SLIHFL3=TQEFLGS3;/* @Z40FPYB*/ 01586000 MVC SLIHFL3(1,TFRRPTR),TQEFLGS3(TQEPTR) 0641 01587000 * IF TQEUSER='0'B/* IF A SYSTEM 0642 01588000 * TQE */ 01589000 * THEN/* ENSURE ITS ON Q */ 01590000 TM TQEUSER(TQEPTR),B'01000000' 0642 01591000 BNZ @RF00642 0642 01592000 * DO; 0643 01593000 * TFRRRCDC='1'B;/* RECORDING 0644 01594000 * DONE */ 01595000 OI TFRRRCDC(TFRRPTR),B'00100000' 0644 01596000 * IF TQEOFF='1'B/* IF NOT ON RTQ*/ 01597000 * THEN/* REENQUEUE IT */ 01598000 TM TQEOFF(TQEPTR),B'10000000' 0645 01599000 BNO @RF00645 0645 01600000 * DO; 0646 01601000 * IF TQELM='1'B/* IF JST TQE */ 01602000 * THEN/* UPDATE TQEVAL */ 01603000 TM TQELM(TQEPTR),B'00001000' 0647 01604000 BNO @RF00647 0647 01605000 * TQEVALLH=TQEVALLH+1; 0648 01606000 LA @08,1 0648 01607000 AL @08,TQEVALLH(,TQEPTR) 0648 01608000 ST @08,TQEVALLH(,TQEPTR) 0648 01609000 * IF TQEMIDN='1'B/* IF 0649 01610000 * MODNIGHT */ 01611000 * THEN/* UPDATE TQEVAL */ 01612000 @RF00647 TM TQEMIDN(TQEPTR),B'00000001' 0649 01613000 BNO @RF00649 0649 01614000 * DO; 0650 01615000 * RESPECIFY 0651 01616000 * (R2, 0651 01617000 * R11) RSTD; 0651 01618000 * R11=DAYLH; 0652 01619000 L R11,DAYLH 0652 01620000 * R2=DAYRH; 0653 01621000 L R2,DAYRH 0653 01622000 * GEN REFS(TQEVALRH,TQEVALLH); 01623000 AL R2,TQEVALRH(TQEPTR) 01624000 BC 12,FRRADD 01625000 LA R11,1(R11) 01626000 FRRADD AL R11,TQEVALLH(TQEPTR) 01627000 * TQEVALLH=R11; 0655 01628000 ST R11,TQEVALLH(,TQEPTR) 0655 01629000 * TQEVALRH=R2; 0656 01630000 ST R2,TQEVALRH(,TQEPTR) 0656 01631000 * END; 0657 01632000 * R2=ADDR(FRRRET1); 0658 01633000 @RF00649 LA R2,FRRRET1 0658 01634000 * CALL ENQTQE;/* ENQUEUE THE 01635000 * TQE */ 01636000 L @10,CVTPTR 0659 01637000 L @15,CVTQTE00(,@10) 0659 01638000 BALR @14,@15 0659 01639000 *FRRRET1: 0660 01640000 * RESPECIFY 0660 01641000 * (R2, 0660 01642000 * R11) UNRSTD; 0660 01643000 FRRRET1 DS 0H 0661 01644000 * END; 0661 01645000 * END; 0662 01646000 * ELSE/* HERE IF A USER TQE */ 01647000 * DO; 0663 01648000 B @RC00642 0663 01649000 @RF00642 DS 0H 0664 01650000 * SLIHTCB=TQETCB;/* RECORD 0664 01651000 * TQETCB */ 01652000 L @08,TQETCB(,TQEPTR) 0664 01653000 ST @08,SLIHTCB(,TFRRPTR) 0664 01654000 * TFRRRCDC='1'B;/* RECORDING 0665 01655000 * DONE */ 01656000 OI TFRRRCDC(TFRRPTR),B'00100000' 0665 01657000 * END; 0666 01658000 * END; 0667 01659000 @RC00642 DS 0H 0668 01660000 * END; 0668 01661000 @RC00634 DS 0H 0669 01662000 * SDWAPTR=SDWAPTR2;/* RESTORE SDWAPTR */ 01663000 @RC00631 LR SDWAPTR,SDWAPTR2 0669 01664000 * RESPECIFY 0670 01665000 * (SDWAPTR2) UNRSTD; 0670 01666000 * END; 0671 01667000 * END; 0672 01668000 * END; 0673 01669000 * END; 0674 01670000 * ELSE /* HERE IF NOT TIMER SLIH */ 01671000 * DO; 0675 01672000 B @RC00591 0675 01673000 @RF00591 DS 0H 0676 01674000 * IF TFRRCLXR='1'B& /* IF CLX WAS IN CONTROL AND */ 01675000 * TFRREXEF='0'B /* STAGE 2 NOT YET ENTERED */ 01676000 * THEN /* MARK RECOV SRB NOT IN USE */ 01677000 TM TFRRCLXR(TFRRPTR),B'00000010' 0676 01678000 BNO @RF00676 0676 01679000 TM TFRREXEF(TFRRPTR),B'00010000' 0676 01680000 BNZ @RF00676 0676 01681000 * DO; 0677 01682000 * RESPECIFY 0678 01683000 * (TPCPTR, 0678 01684000 * SRBPTR) RSTD; 0678 01685000 * TPCPTR=CVTTPC; 0679 01686000 L @07,CVTPTR 0679 01687000 L TPCPTR,CVTTPC(,@07) 0679 01688000 * SRBPTR=ADDR(TPCRSRB); 0680 01689000 LA SRBPTR,TPCRSRB(,TPCPTR) 0680 01690000 * CLASIU='0'B; 0681 01691000 NI CLASIU(SRBPTR),B'11111101' 0681 01692000 * RESPECIFY 0682 01693000 * (TPCPTR, 0682 01694000 * SRBPTR) UNRSTD; 0682 01695000 * END; 0683 01696000 * ELSE /* HERE IF CLX WAS NOT IN CTL */ 01697000 * DO; 0684 01698000 B @RC00676 0684 01699000 @RF00676 DS 0H 0685 01700000 * IF TFRRCPUH='1'B/* IF CPU HOLD WAS IN CONTROL */ 01701000 * THEN /* CHECK IF SHOULD STOP VARY */ 01702000 TM TFRRCPUH(TFRRPTR),B'00000001' 0685 01703000 BNO @RF00685 0685 01704000 * DO; 0686 01705000 * RESPECIFY 0687 01706000 * (LCCAPTR, 0687 01707000 * PCCAPTR) RSTD; 0687 01708000 * LCCAPTR=PSALCCAV;/* INITIALIZE LCCA POINTER */ 01709000 L LCCAPTR,PSALCCAV 0688 01710000 * PCCAPTR=PSAPCCAV;/* INITIALIZE PCCA POINTER */ 01711000 L PCCAPTR,PSAPCCAV 0689 01712000 * IF LCCATIMR='0'B&/* IF LCCATIMR BIT WAS 0690 01713000 * CLEARED */ 01714000 * PCCAVKIL='1'B/* AND THE KILL VARY BIT IS 01715000 * ON */ 01716000 * THEN /* CANCEL THE VARY CPU ONLINE */ 01717000 TM LCCATIMR(LCCAPTR),B'00010000' 0690 01718000 BNZ @RF00690 0690 01719000 TM PCCAVKIL(PCCAPTR),B'00100000' 0690 01720000 BNO @RF00690 0690 01721000 * CALL VARYSTOP;/* GO TO IEEVSTOP */ 01722000 L @08,CVTPTR 0691 01723000 L @15,CVTVSTOP(,@08) 0691 01724000 BALR @14,@15 0691 01725000 * RESPECIFY 0692 01726000 * (LCCAPTR, 0692 01727000 * PCCAPTR) UNRSTD; 0692 01728000 @RF00690 DS 0H 0693 01729000 * END; 0693 01730000 * END; 0694 01731000 * END; 0695 01732000 * END; 0696 01733000 * ELSE /* HERE IF NOT TIMING SERVICES */ 01734000 * IF TFRRTODC='1'B /* IF TODC MANAGEMENT */ 01735000 * THEN /* DO ITS UNIQUE RECOVERY */ 01736000 B @RC00589 0697 01737000 @RF00589 TM TFRRTODC(TFRRPTR),B'10000000' 0697 01738000 BNO @RF00697 0697 01739000 * DO; 0698 01740000 * END; 0699 01741000 * SDWAURAL=24; /* INDICATE 24 BYTES RECORDED */ 01742000 @RF00697 DS 0H 0700 01743000 @RC00589 MVI SDWAURAL(SDWAPTR),X'18' 0700 01744000 * SDWAVRA(1:24)=TFRRPARM; /* MOVE RECORDE INFO TO SDWA */ 01745000 MVC SDWAVRA(24,SDWAPTR),TFRRPARM(TFRRPTR) 0701 01746000 * IF TFRRDISP='1'B| /* IF DISP LOCK WAS HELD OR */ 01747000 * TFRRTQEE='1'B| /* TQE ENQ IN CONTROL OR */ 01748000 * TFRRTQED='1'B /* TQE DEQ IN CONTROL */ 01749000 * THEN /* VALIDATE REAL TIME QUEUE */ 01750000 TM TFRRDISP(TFRRPTR),B'10000000' 0702 01751000 BO @RT00702 0702 01752000 TM TFRRTQEE(TFRRPTR),B'01100000' 0702 01753000 BZ @RF00702 0702 01754000 @RT00702 DS 0H 0703 01755000 * DO; 0703 01756000 * TFRRRTQV='1'B; /* RTQ VALIDATION STARTED */ 01757000 OI TFRRRTQV(TFRRPTR),B'00010000' 0704 01758000 * RESPECIFY 0705 01759000 * (R0, 0705 01760000 * TPCPTR, 0705 01761000 * R3, 0705 01762000 * R14, 0705 01763000 * R15) RSTD; 0705 01764000 * TPCPTR=CVTTPC; 0706 01765000 L @08,CVTPTR 0706 01766000 L TPCPTR,CVTTPC(,@08) 0706 01767000 * R0=LENGTH(TPC); 0707 01768000 LA R0,420 0707 01769000 * CALL IEAVEADV; /* VALIDATE THE TPC TO START */ 01770000 L @15,@CV03330 0708 01771000 BALR @14,@15 0708 01772000 * RESPECIFY 0709 01773000 * (R0, 0709 01774000 * R3) UNRSTD; 0709 01775000 * IF R15^=0 /* IF TPC IS INVALID */ 01776000 * THEN /* FORGET THE RTQ VALIDATION */ 01777000 LTR R15,R15 0710 01778000 BZ @RF00710 0710 01779000 * TFRRTPCB='1'B; /* INDICATE INVALID TPC */ 01780000 OI TFRRTPCB(TFRRPTR),B'00001000' 0711 01781000 * ELSE /* HERE IF THE TPC IS GOOD */ 01782000 * DO; 0712 01783000 B @RC00710 0712 01784000 @RF00710 DS 0H 0713 01785000 * TPCMISC(1)=ADDR(TPCDMTQE);/* SET UP A RTQ TRAILER */ 01786000 LA @08,TPCDMTQE(,TPCPTR) 0713 01787000 ST @08,TPCMISC(,TPCPTR) 0713 01788000 * RESPECIFY 0714 01789000 * (R0, 0714 01790000 * R13) RSTD; 0714 01791000 * R0=SDWAPTR; /* R0 NOW POINTS TO THE SDWA */ 01792000 LR R0,SDWAPTR 0715 01793000 * QVPLPTR=ADDR(TPCSAVE1);/* NOW, INITIALIZE QVPL */ 01794000 LA QVPLPTR,TPCSAVE1(,TPCPTR) 0716 01795000 * AREAQVPL=AREAQVPL&&AREAQVPL;/* CLEAR TPCSAVE1 */ 01796000 XC AREAQVPL(64,TPCPTR),AREAQVPL(TPCPTR) 0717 01797000 * QVPLEVR=ADDR(IEAVRTVR);/* PTR TO TQE VALIDATION RTN */ 01798000 LA @08,IEAVRTVR 0718 01799000 ST @08,QVPLEVR(,QVPLPTR) 0718 01800000 * QVPLODA=ADDR(R0->SDWARA);/* EQUATE ODA TO SDWAREA */ 01801000 LR @08,R0 0719 01802000 LA @08,SDWARA(,@08) 0719 01803000 ST @08,QVPLODA(,QVPLPTR) 0719 01804000 * QVPLWKA=ADDR(TPCMISC(2));/* LET QV USE MISC FOR WA */ 01805000 LA @08,TPCMISC+4(,TPCPTR) 0720 01806000 ST @08,QVPLWKA(,QVPLPTR) 0720 01807000 * QVPLHDR=ADDR(TPCHDCCQ);/* PTR TO RTQ HEADER */ 01808000 LA @08,TPCHDCCQ(,TPCPTR) 0721 01809000 ST @08,QVPLHDR(,QVPLPTR) 0721 01810000 * QVPLHD3='0'B; /* INDICATE 4 BYTE HEADER */ 01811000 NI QVPLHD3(QVPLPTR),B'01111111' 0722 01812000 * QVPLFPTR=ADDR(TQEFLNK)-ADDR(TQE);/* TQEBLNK OFFSET */ 01813000 LA @07,4 0723 01814000 STH @07,QVPLFPTR(,QVPLPTR) 0723 01815000 * QVPLFP3='0'B; /* INDICATE 4 BYTE TQEFLNK */ 01816000 NI QVPLFP3(QVPLPTR),B'01111111' 0724 01817000 * QVPLLELM=0; /* LAST TQES TQEFLNK FIELD */ 01818000 SLR @04,@04 0725 01819000 ST @04,QVPLLELM(,QVPLPTR) 0725 01820000 * QVPLNOEL=ADDR(TPCSAVE1);/* ANYTHING BUT A TQE PTR */ 01821000 LA @03,TPCSAVE1(,TPCPTR) 0726 01822000 ST @03,QVPLNOEL(,QVPLPTR) 0726 01823000 * QVPLTRLR=ADDR(TPCMISC(1));/* PTR TO RTQ TRAILER */ 01824000 LA @03,TPCMISC(,TPCPTR) 0727 01825000 ST @03,QVPLTRLR(,QVPLPTR) 0727 01826000 * QVPLTR3='0'B; /* INDICATE 4 BYTE TRAILER */ 01827000 NI QVPLTR3(QVPLPTR),B'01111111' 0728 01828000 * QVPLBPTR=ADDR(TQEBLNK)-ADDR(TQE);/* TQEBLNK OFFSET */ 01829000 MVC QVPLBPTR(2,QVPLPTR),@CH00036 0729 01830000 * QVPLBP3='0'B; /* INDICATE 4 BYTE TQEBLNK */ 01831000 NI QVPLBP3(QVPLPTR),B'01111111' 0730 01832000 * QVPLFELM=ADDR(TPCHDCCQ)-QVPLFPTR;/* TQEBLNK-1ST TQE */ 01833000 SLR @08,@07 0731 01834000 ST @08,QVPLFELM(,QVPLPTR) 0731 01835000 * TPCMISC->TQEFLNK=0; /* CLEAR DUMMYS FWD TQE PTR */ 01836000 L @08,TPCMISC(,TPCPTR) 0732 01837000 ST @04,TQEFLNK(,@08) 0732 01838000 * RESPECIFY 0733 01839000 * (LCCAPTR) RSTD; 0733 01840000 * LCCAPTR=PSALCCAV; 0734 01841000 L LCCAPTR,PSALCCAV 0734 01842000 * R13=ADDR(TIMESAVE); /* GET SAVE AREA FOR IEAVEQV0 */ 01843000 L @08,LCCACPUS(,LCCAPTR) 0735 01844000 L R13,WSACTIME(,@08) 0735 01845000 * RESPECIFY 0736 01846000 * (LCCAPTR) UNRSTD; 0736 01847000 * CALL QVALID; /* VALIDATE THE REAL TIME QUE */ 01848000 L @08,CVTPTR 0737 01849000 L @15,CVTQV3(,@08) 0737 01850000 BALR @14,@15 0737 01851000 * TPCMISC->TQEFLNK=ADDR(TPCDMTQE);/* RESTORE DUMMYS PTR*/ 01852000 L @08,TPCMISC(,TPCPTR) 0738 01853000 LA @07,TPCDMTQE(,TPCPTR) 0738 01854000 ST @07,TQEFLNK(,@08) 0738 01855000 * RESPECIFY 0739 01856000 * (TPCPTR) UNRSTD; 0739 01857000 * SDWAPTR=R0; /* RESTORE SDWA POINTER */ 01858000 LR SDWAPTR,R0 0740 01859000 * RESPECIFY 0741 01860000 * (R0, 0741 01861000 * R14) UNRSTD; 0741 01862000 * IF TFRRDUMG='1'B /* IF DUMMY TQE WAS FOUND OK */ 01863000 * THEN /* GO TO SETCC-KEEP RTQ ALIVE */ 01864000 TM TFRRDUMG(TFRRPTR),B'00000100' 0742 01865000 BNO @RF00742 0742 01866000 * DO; 0743 01867000 * RESPECIFY 0744 01868000 * (R2) RSTD; 0744 01869000 * R2=ADDR(FRRRET2); 0745 01870000 LA R2,FRRRET2 0745 01871000 * CALL IEAVRCKQ; 0746 01872000 L @15,@CV03331 0746 01873000 BALR @14,@15 0746 01874000 *FRRRET2: 0747 01875000 * RESPECIFY 0747 01876000 * (R2, 0747 01877000 * R13, 0747 01878000 * R14) UNRSTD; 0747 01879000 FRRRET2 DS 0H 0748 01880000 * END; 0748 01881000 * END; 0749 01882000 @RF00742 DS 0H 0750 01883000 * SDWAVRA(1:24)=TFRRPARM; /* RECORD LATEST TFRRPARM VALS */ 01884000 @RC00710 MVC SDWAVRA(24,SDWAPTR),TFRRPARM(TFRRPTR) 0750 01885000 * END; 0751 01886000 * IF SDWAPERC='0'B /* IF NOT PERCOLATED TO, */ 01887000 * THEN /* DUMP INFORMATION */ 01888000 @RF00702 TM SDWAPERC(SDWAPTR),B'00010000' 0752 01889000 BNZ @RF00752 0752 01890000 * DO; 0753 01891000 * RESPECIFY 0754 01892000 * (TPCPTR, 0754 01893000 * ASIDREG, 0754 01894000 * SRBPTR, 0754 01895000 * R13) RSTD; 0754 01896000 * TPCPTR=CVTTPC; 0755 01897000 L @14,CVTPTR 0755 01898000 L TPCPTR,CVTTPC(,@14) 0755 01899000 * R13=ADDR(TPCSAVE2); /* GET SAVE AREA FOR SDUMP */ 01900000 LA R13,TPCSAVE2(,TPCPTR) 0756 01901000 * ASIDREG=0; /* PUT CURRENT ASID INTO ASIDREG 01902000 * @ZA18119*/ 01903000 SLR ASIDREG,ASIDREG 0757 01904000 * RESPECIFY 0758 01905000 * (TPCPTR, 0758 01906000 * SRBPTR) UNRSTD; 0758 01907000 * RESPECIFY 0759 01908000 * (R0, 0759 01909000 * R1, 0759 01910000 * R14, 0759 01911000 * R15) RSTD; 0759 01912000 * GENERATE REFS(CVTMAP,CVTSDMP); 0760 01913000 SDUMP HDR='TIMER FRR DUMP', cc01914000 ASID=(ASIDREG),SDATA=(PSA,NUC,LSQA,SQA,TRT), @ZA18119CC01915000 BRANCH=YES 01916000 * RESPECIFY 0761 01917000 * (ASIDREG, 0761 01918000 * R0, 0761 01919000 * R1, 0761 01920000 * R13, 0761 01921000 * R14, 0761 01922000 * R15) UNRSTD; 0761 01923000 * END; 0762 01924000 * END; 0763 01925000 * ELSE /* HERE IF A RECURSION */ 01926000 * TFRRRYES='1'B; /* SET RECURSION HAS OCCURRED */ 01927000 B @RC00569 0764 01928000 @RF00569 OI TFRRRYES(TFRRPTR),B'01000000' 0764 01929000 * RETADDR=R5; /* RESTORE RETURN ADDRESS */ 01930000 @RC00569 LR RETADDR,R5 0765 01931000 * GENERATE /* RETURN TO RTM */ 01932000 * (BR RETADDR); 0766 01933000 BR RETADDR 01934000 * RESPECIFY 0767 01935000 * (R5, 0767 01936000 * TFRRPTR) UNRSTD; 0767 01937000 * 0768 01938000 */* *****************************************************************/ 01939000 */* */ 01940000 */* REAL/WAIT TQE VALIDATION ROUTINE - IEAVRTVR */ 01941000 */* */ 01942000 */* *****************************************************************/ 01943000 */* */ 01944000 */* FUNCTION - CHECKS THE VALIDITY OF A GIVEN TQE AS TO */ 01945000 */* DATA AND ADDRESS ACCESSABILITY */ 01946000 */* */ 01947000 */* INPUT - 1. DISPATCHER LOCK HELD */ 01948000 */* 2. PROTECT KEY ZERO */ 01949000 */* 3. SUPERVISOR STATE */ 01950000 */* 4. R0 = POINTER TO TQE */ 01951000 */* 5. R1 = POINTER TO SDWA */ 01952000 */* 6. R14= RETURN ADDRESS */ 01953000 */* 7. VALID TPCSAVE2 AREA FOR SAVING REGS */ 01954000 */* */ 01955000 */* OUTPUT - RETURN CODE IN R15 */ 01956000 */* 0 IF TQE IS VALID */ 01957000 */* 4 IF TQE CONTAINS BAD DATA */ 01958000 */* 8 IF TQE HAS UNACCESSABLE ADDRESSES */ 01959000 */* */ 01960000 */* ENVIRONMENT */ 01961000 */* CHANGES - NONE */ 01962000 */* */ 01963000 */* OTHER RTNS */ 01964000 */* CALLED - IEAVEADV */ 01965000 */* */ 01966000 */* CALLERS - 1. TIMING SERVICES UNIQUE PORTION OF FRR */ 01967000 */* 2. QUEUE VALIDATION ROUTINE (IEAVEQV0) */ 01968000 */* */ 01969000 */* *****************************************************************/ 01970000 * 0768 01971000 *IEAVRTVR: 0768 01972000 * RESPECIFY 0768 01973000 * TFRRPARM BASED(SDWAPARM); 0768 01974000 IEAVRTVR DS 0H 0769 01975000 * RESPECIFY 0769 01976000 * (R0, 0769 01977000 * R2, 0769 01978000 * R3, 0769 01979000 * R7, 0769 01980000 * R14, 0769 01981000 * R15) RSTD; 0769 01982000 * R15=CVTPTR; 0770 01983000 L R15,CVTPTR 0770 01984000 * GENERATE REFS(TPCSAVE2); 0771 01985000 L R15,CVTTPC(R15) 01986000 STM R0,R14,TPCSAVE2(R15) SAVE REGISTERS AND 01987000 BALR BASEREG,0 ESTABLISH ADDRESSABILITY. 01988000 USING *,BASEREG 01989000 * /* SET INTERFACE TO IEAVEAV0 R1 01990000 * PTS TO SDWA, R3 WORK REG */ 01991000 * R2=R0; /* R2 POINTS TO TQE */ 01992000 LR R2,R0 0772 01993000 * R0=24; /* R0 EQUALS LEN TO VALIDATE */ 01994000 LA R0,24 0773 01995000 * CALL IEAVEADV; /* VALIDATE 1ST 24 TQE BYTES */ 01996000 L @15,@CV03330 0774 01997000 BALR @14,@15 0774 01998000 * RESPECIFY 0775 01999000 * (R0, 0775 02000000 * R3) UNRSTD; 0775 02001000 * IF R15^=0 /* IF BYTES ARE INVALID */ 02002000 * THEN /* SET A RETURN CODE OF 8 */ 02003000 LTR R15,R15 0776 02004000 BZ @RF00776 0776 02005000 * R15=8; 0777 02006000 LA R15,8 0777 02007000 * ELSE /* IF BYTES ARE VALID */ 02008000 * DO; /* A CONTINUE VALIDATION */ 02009000 B @RC00776 0778 02010000 @RF00776 DS 0H 0779 02011000 * RESPECIFY 0779 02012000 * TQE BASED(R2); 0779 02013000 * IF TQETQE^=' TQE' /* IF 1ST WORD NOT 'TQE' */ 02014000 * THEN /* SET A RETURN CODE OF 4 */ 02015000 CLC TQETQE(4,R2),@CC03194 0780 02016000 BE @RF00780 0780 02017000 * R15=4; 0781 02018000 LA R15,4 0781 02019000 * ELSE /* IF DATA IN 1ST WORD VALID */ 02020000 * DO; /* B CONTINUE VALIDATION */ 02021000 B @RC00780 0782 02022000 @RF00780 DS 0H 0783 02023000 * IF TFRRRTQV='1'B /* IF RTQ BEING VALIDATED */ 02024000 * THEN /* CHECK BITS TQEOFF,TQEINCOM */ 02025000 L @12,SDWAPARM(,SDWAPTR) 0783 02026000 TM TFRRRTQV(@12),B'00010000' 0783 02027000 BNO @RF00783 0783 02028000 * DO; 0784 02029000 * IF TQEOFF='1'B| /* IF TQEOFF AND TQEINCUM */ 02030000 * TQEINCOM='1'B /* BOTH NOT ZERO */ 02031000 * THEN /* SET A RETURN CODE OF 4 */ 02032000 TM TQEOFF(R2),B'10001000' 0785 02033000 BZ @RF00785 0785 02034000 * R15=4; 0786 02035000 LA R15,4 0786 02036000 * END; 0787 02037000 @RF00785 DS 0H 0788 02038000 * IF TQETYPE='00'B| /* IF TQETYPE NOT REAL TYPE */ 02039000 * TQETYPE='10'B /* OR NOT WAIT TYPE */ 02040000 * THEN /* SET A RETURN CODE OF 4 */ 02041000 @RF00783 TM TQETYPE(R2),B'00000011' 0788 02042000 BZ @RT00788 0788 02043000 TM TQETYPE(R2),B'00000010' 0788 02044000 BNO @RF00788 0788 02045000 TM TQETYPE(R2),B'00000001' 0788 02046000 BNZ @RF00788 0788 02047000 @RT00788 DS 0H 0789 02048000 * R15=4; 0789 02049000 LA R15,4 0789 02050000 * IF R15=0 /* IF NO ERROR YET, */ 02051000 * THEN /* CONTINUE VALIDATION */ 02052000 @RF00788 LTR R15,R15 0790 02053000 BNZ @RF00790 0790 02054000 * DO; /* C */ 02055000 * IF TQEUSER='1'B /* IF A USER TQE */ 02056000 * THEN /* CHECK REST OF TQE */ 02057000 TM TQEUSER(R2),B'01000000' 0792 02058000 BNO @RF00792 0792 02059000 * DO; /* E */ 02060000 * RESPECIFY 0794 02061000 * (R0, 0794 02062000 * R3) RSTD; 0794 02063000 * R0=LENGTH(TQE); 0795 02064000 LA R0,128 0795 02065000 * CALL IEAVEADV; /* VALIDATE ENTIRE TQE */ 02066000 L @15,@CV03330 0796 02067000 BALR @14,@15 0796 02068000 * RESPECIFY 0797 02069000 * (R0, 0797 02070000 * R3) UNRSTD; 0797 02071000 * IF R15^=0 /* IF REST OF TQE BYTES BAD */ 02072000 * THEN /* SET A RETURN CODE OF 8 */ 02073000 LTR R15,R15 0798 02074000 BZ @RF00798 0798 02075000 * R15=8; 0799 02076000 LA R15,8 0799 02077000 * ELSE 0800 02078000 * DO; /* F */ 02079000 B @RC00798 0800 02080000 @RF00798 DS 0H 0801 02081000 * IF(TQEASCB=0|/* IF NO ASCB PTR PRESENT */ 02082000 * TQELHPSW=0)&/* OR IF NON VALID LH PSW */ 02083000 * TQEDIE='0'B/* AND NOT DIE TQE @Z40FPYB*/ 02084000 * THEN /* SET A RETURN CODE OF 4 */ 02085000 SLR @12,@12 0801 02086000 C @12,TQEASCB(,R2) 0801 02087000 BE @GL00016 0801 02088000 CL @12,TQELHPSW(,R2) 0801 02089000 BNE @RF00801 0801 02090000 @GL00016 TM TQEDIE(R2),B'10000000' 0801 02091000 BNZ @RF00801 0801 02092000 * R15=4; 0802 02093000 LA R15,4 0802 02094000 * ELSE 0803 02095000 * DO; 0803 02096000 B @RC00801 0803 02097000 @RF00801 DS 0H 0804 02098000 * IF TQEXITSP='1'B/* IF AN EXIT SPEC. */ 02099000 * THEN /* ENSURE NON ZERO */ 02100000 TM TQEXITSP(R2),B'00000100' 0804 02101000 BNO @RF00804 0804 02102000 * DO; 0805 02103000 * IF TQEEXIT=0/* IF ZERO EXIT ADD */ 02104000 * THEN/* SET RET CODE 4 */ 02105000 L @12,TQEEXIT(,R2) 0806 02106000 LTR @12,@12 0806 02107000 BNZ @RF00806 0806 02108000 * R15=4; 0807 02109000 LA R15,4 0807 02110000 * END; 0808 02111000 * ELSE /* @Z40FPYB*/ 02112000 * DO; /* IF NO EXIT @Z40FPYB*/ 02113000 B @RC00804 0809 02114000 @RF00804 DS 0H 0810 02115000 * IF TQEDIE='1'B THEN/* AND IT IS A DIE 02116000 * TQE @Z40FPYB*/ 02117000 TM TQEDIE(R2),B'10000000' 0810 02118000 BNO @RF00810 0810 02119000 * R15=4;/* SET RC=4. @Z40FPYB*/ 02120000 LA R15,4 0811 02121000 * END; /* @Z40FPYB*/ 02122000 * END; 0813 02123000 * END; /* F */ 02124000 * END; /* E */ 02125000 * ELSE /* IF A SYSTEM TQE */ 02126000 * DO; /* G CHECK FOR VALID FLAGS */ 02127000 B @RC00792 0816 02128000 @RF00792 DS 0H 0817 02129000 * IF TQEFLGS2(5:8)^='0001'B&/* IF NOT MIDN TQE */ 02130000 * TQEFLGS2(5:8)^='0010'B&/* MF/1 TQE */ 02131000 * TQEFLGS2(5:8)^='0100'B&/* OPTIMIZER TQE */ 02132000 * TQEFLGS2(5:8)^='1000'B&/* JOB STP TIMNG TQE */ 02133000 * TQEFLGS2(3:8)^='100000'B/* OR CINTER TQE 0817 02134000 * @ZM30496*/ 02135000 * THEN /* CHECK FOR DUMMY TQE */ 02136000 TM TQEFLGS2(R2),B'00000001' 0817 02137000 BNO @GL00021 0817 02138000 TM TQEFLGS2(R2),B'00001110' 0817 02139000 BZ @RF00817 0817 02140000 @GL00021 TM TQEFLGS2(R2),B'00000010' 0817 02141000 BNO @GL00020 0817 02142000 TM TQEFLGS2(R2),B'00001101' 0817 02143000 BZ @RF00817 0817 02144000 @GL00020 TM TQEFLGS2(R2),B'00000100' 0817 02145000 BNO @GL00019 0817 02146000 TM TQEFLGS2(R2),B'00001011' 0817 02147000 BZ @RF00817 0817 02148000 @GL00019 TM TQEFLGS2(R2),B'00001000' 0817 02149000 BNO @GL00018 0817 02150000 TM TQEFLGS2(R2),B'00000111' 0817 02151000 BZ @RF00817 0817 02152000 @GL00018 TM TQEFLGS2(R2),B'00100000' 0817 02153000 BNO @RT00817 0817 02154000 TM TQEFLGS2(R2),B'00011111' 0817 02155000 BZ @RF00817 0817 02156000 @RT00817 DS 0H 0818 02157000 * DO; /* H */ 02158000 * IF TQEFLGS2(4:8)^='10000'B/* IF NOT DUMMY */ 02159000 * THEN /* SET A RETURN CODE OF 4 */ 02160000 TM TQEFLGS2(R2),B'00010000' 0819 02161000 BNO @RT00819 0819 02162000 TM TQEFLGS2(R2),B'00001111' 0819 02163000 BZ @RF00819 0819 02164000 @RT00819 DS 0H 0820 02165000 * R15=4; 0820 02166000 LA R15,4 0820 02167000 * ELSE /* IF THE DUMMY TQE */ 02168000 * DO; /* I CHECK FOR TQEVAL OF FOXES */ 02169000 B @RC00819 0821 02170000 @RF00819 DS 0H 0822 02171000 * IF TQEVAL^='FFFFFFFFFFFFFFFF'X THEN/* IF 02172000 * NOT ALL FOXES, */ 02173000 CLC TQEVAL(8,R2),@CB03203 0822 02174000 BE @RF00822 0822 02175000 * R15=4;/* SET RETCODE TO 4 */ 02176000 LA R15,4 0823 02177000 * ELSE 0824 02178000 * IF TFRRRTQV='1'B/* IF RTQ VALID. */ 02179000 * THEN/* TURN ON TFFRDUMG */ 02180000 B @RC00822 0824 02181000 @RF00822 L @12,SDWAPARM(,SDWAPTR) 0824 02182000 TM TFRRRTQV(@12),B'00010000' 0824 02183000 BNO @RF00824 0824 02184000 * TFRRDUMG='1'B; 0825 02185000 OI TFRRDUMG(@12),B'00000100' 0825 02186000 * END; /* I */ 02187000 @RF00824 DS 0H 0826 02188000 @RC00822 DS 0H 0827 02189000 * END; /* H */ 02190000 @RC00819 DS 0H 0828 02191000 * END; /* G */ 02192000 @RF00817 DS 0H 0829 02193000 * END; /* C */ 02194000 @RC00792 DS 0H 0830 02195000 * END; /* B */ 02196000 @RF00790 DS 0H 0831 02197000 * RESPECIFY 0831 02198000 * TQE BASED(TQEPTR); 0831 02199000 @RC00780 DS 0H 0832 02200000 * END; /* A */ 02201000 * R2=CVTPTR; 0833 02202000 @RC00776 L R2,CVTPTR 0833 02203000 * GENERATE REFS(TPCSAVE2); 0834 02204000 L R2,CVTTPC(R2) 02205000 LM R0,R14,TPCSAVE2(R2) RESTORE REGS AND 02206000 BR R14 RETURN 02207000 * RESPECIFY 0835 02208000 * (R2, 0835 02209000 * R7, 0835 02210000 * R14, 0835 02211000 * R15) UNRSTD; 0835 02212000 * RESPECIFY 0836 02213000 * TFRRPARM BASED(TFRRPTR); 0836 02214000 * 0837 02215000 */* *****************************************************************/ 02216000 */* */ 02217000 */* PURGE ESTAE ROUTINE */ 02218000 */* */ 02219000 */* *****************************************************************/ 02220000 */* */ 02221000 */* FUNCTION - TO RECORD ANY ERROR OCCURRENCE IN THE */ 02222000 */* TQE/SRB PURGE ROUTINE. */ 02223000 */* */ 02224000 */* INPUT - 1. R0^=12 IF AN SDWA PRESENT */ 02225000 */* 2. R1= POINTER TO THE SDWA IF PRESENT */ 02226000 */* 3. R13= POINTER TO 72 BYTE SAVE AREA */ 02227000 */* 4. R14= RETURN ADDRESS */ 02228000 */* */ 02229000 */* ENVIRONMENT */ 02230000 */* CHANGES - NONE */ 02231000 */* */ 02232000 */* OTHER RTNS */ 02233000 */* USED - SETRP */ 02234000 */* */ 02235000 */* CALLERS - RTM */ 02236000 */* */ 02237000 */* OUTPUT - SDWA INITIALIZED FOR RECORDING. */ 02238000 */* */ 02239000 */* *****************************************************************/ 02240000 * 0837 02241000 *PRGESTAE: /* ENTRY POINT TO PURGE ESTAE */ 02242000 * RESPECIFY 0837 02243000 * (R0, 0837 02244000 * R13) RSTD; 0837 02245000 PRGESTAE DS 0H 0838 02246000 * GENERATE; 0838 02247000 SR R15,R15 CLEAR R15 FOR R0=12 CASE. 02248000 LA R11,12 CANNOT DO ANYTHING IF R0=12. 02249000 CR R0,R11 IF R0=12, RETURN IMMEDIATELY 02250000 BE 0(R14) WITH ZERO IN R15. 02251000 STM 14,12,12(R13) OTHERWISE, SAVE ALL REGISTERS 02252000 BALR BASEREG,0 ESTABLISH ADDRESSABILITY 02253000 USING *,BASEREG 02254000 * SDWAMODN='IEANUC01'; /* PUT MODULE NAME INTO SDWA */ 02255000 MVC SDWAMODN(8,SDWAPTR),@CC03335 0839 02256000 * SDWACSCT='IEAQPGTM'; /* PUT CSECT NAME INTO SDWA */ 02257000 MVC SDWACSCT(8,SDWAPTR),@CC03340 0840 02258000 * SDWAREXN='PRGESTAE'; /* PUT RECOV RTN NAME IN SDWA */ 02259000 MVC SDWAREXN(8,SDWAPTR),@CC03489 0841 02260000 * DO; /* SETRP RECORD(YES)WKAREA(SDWAPT 02261000 * R)RC(0) */ 02262000 * RESPECIFY 0843 02263000 * (GPR00P, 0843 02264000 * GPR01P, 0843 02265000 * GPR14P, 0843 02266000 * GPR15P) RSTD; 0843 02267000 * GPR01P=SDWAPTR; 0844 02268000 * GPR01P->SDWARCDE=0; /* SAVE RC VALUE */ 02269000 MVI SDWARCDE(GPR01P),X'00' 0845 02270000 * GPR01P->SDWARCRD='1'B; /* TURN ON RECORD INDICATOR */ 02271000 OI SDWARCRD(GPR01P),B'10000000' 0846 02272000 * RESPECIFY 0847 02273000 * (GPR00P, 0847 02274000 * GPR01P, 0847 02275000 * GPR14P, 0847 02276000 * GPR15P) UNRSTD; 0847 02277000 * END; 0848 02278000 * GENERATE; 0849 02279000 LM 14,12,12(R13) RESTORE ALL REGISTERS 02280000 BR R14 RETURN 02281000 * RESPECIFY 0850 02282000 * (R0, 0850 02283000 * R13) UNRSTD; 0850 02284000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 02285000 * GPR00P PTR(31) REG(0), 0851 02286000 * GPR01P PTR(31) REG(1), 0851 02287000 * GPR14P PTR(31) REG(14), 0851 02288000 * GPR15P PTR(31) REG(15); 0851 02289000 * DECLARE /* COMMON VARIABLES */ 02290000 * I256C CHAR(256) BASED, 0852 02291000 * I031F FIXED(31) BASED, 0852 02292000 * I031P PTR(31) BASED, 0852 02293000 * I015F FIXED(15) BASED, 0852 02294000 * I015P PTR(15) BASED, 0852 02295000 * I008P PTR(8) BASED, 0852 02296000 * I001C CHAR(1) BASED; 0852 02297000 * GENERATE; 0853 02298000 * /* ESTAE PARAMETER LISTS */ 02299000 ESTAEL1 ESTAE PRGESTAE,RECORD=YES,MF=L 02300000 ESTAELEN EQU *-ESTAEL1 02301000 * END IEAQPGTM 0854 02302000 * 0854 02303000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 02304000 */*%INCLUDE SYSLIB (IHAPSA ) */ 02305000 */*%INCLUDE SYSLIB (CVT ) */ 02306000 */*%INCLUDE SYSLIB (IHACSD ) */ 02307000 */*%INCLUDE SYSLIB (IHAWSAVT) */ 02308000 */*%INCLUDE SYSLIB (IHAPCCAT) */ 02309000 */*%INCLUDE SYSLIB (IHAPCCA ) */ 02310000 */*%INCLUDE SYSLIB (IHALCCAT) */ 02311000 */*%INCLUDE SYSLIB (IHALCCA ) */ 02312000 */*%INCLUDE SYSLIB (IHAASCB ) */ 02313000 */*%INCLUDE SYSLIB (IHALRB ) */ 02314000 */*%INCLUDE SYSLIB (IKJTCB ) */ 02315000 */*%INCLUDE SYSLIB (IHASRB ) */ 02316000 */*%INCLUDE SYSLIB (IHARB ) */ 02317000 */*%INCLUDE SYSLIB (IKJRB ) */ 02318000 */*%INCLUDE SYSLIB (IHAIQE ) */ 02319000 */*%INCLUDE SYSLIB (IHARMPL ) */ 02320000 */*%INCLUDE SYSLIB (IHASDWA ) */ 02321000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 02322000 */*%INCLUDE SYSLIB (IHAQVPL ) */ 02323000 */*%INCLUDE SYSLIB (IHAQVOD ) */ 02324000 */*%INCLUDE SYSLIB (IHATQE ) */ 02325000 */*%INCLUDE SYSLIB (IEAVVTPC) */ 02326000 * 0854 02327000 * ; 0854 02328000 B @EL00001 0854 02329000 @DATA DS 0H 02330000 DS 0F 02331000 DS 0F 02332000 @CF00044 DC F'4' 02333000 @CF00036 DC F'8' 02334000 @CH00036 EQU @CF00036+2 02335000 @CF03506 DC F'-4' 02336000 @CF03455 DC XL4'FD000098' 02337000 @CF03511 DC XL4'0000FFFF' 02338000 @CV03330 DC V(IEAVEADV) 02339000 @CV03331 DC V(IEAVRCKQ) 02340000 DS 0D 02341000 ONE DC F'1' 02342000 DAYLH DC A(82397) 02343000 DAYRH DC A((16777215+1962934273)) 02344000 ZERO DC AL2(0) 02345000 ERRINCR DC XL1'20' 02346000 @CC03335 DC C'IEANUC01' 02347000 @CC03340 DC C'IEAQPGTM' 02348000 @CC03466 DC C'IEAVRFRR' 02349000 @CC03489 DC C'PRGESTAE' 02350000 @CC03194 DC C' TQE' 02351000 @CB03203 DC X'FFFFFFFFFFFFFFFF' 02352000 @CB03349 DC X'0000000000000000' 02353000 @CB03368 DC X'02400002' 02354000 @CB03370 DC X'02400001' 02355000 @CB03449 DC X'00C00000' 02356000 @CB03458 DC X'070C' 02357000 DS CL7 02358000 DBLZ DC X'0000000000000000' 02359000 LSQA DC X'FD' 02360000 SQA DC X'F5' 02361000 DS CL6 02362000 MAXCC DC X'FFFFFFFFFFFFFFFF' 02363000 CCEVEN DC X'AAAAAAAAAAAAAAAA' 02364000 CCODD DC X'5555555555555555' 02365000 MAXCPUT DS CL8 02366000 ORG MAXCPUT 02367000 HOBITOFF DC X'7FFFFFFF' 02368000 @NM00202 DC X'FFFFFFFF' 02369000 ORG MAXCPUT+8 02370000 MNAME DC CL8'IEANUC01' 02371000 DC CL8'IEANUC01' 02372000 DC CL8'IEAVRTOD' 02373000 DC CL8'IGC0003D' 02374000 DS 4XL8 02375000 CNAME DC CL8'IEA0TI00' 02376000 DC CL8'IEAQPGTM' 02377000 DC CL8'IEAVRTOD' 02378000 DC CL8'IEE6503D' 02379000 DS 4XL8 02380000 MASK DC X'8000' 02381000 DC X'4000' 02382000 DC X'2000' 02383000 DC X'1000' 02384000 DC X'0800' 02385000 DC X'0400' 02386000 DC X'0200' 02387000 DC X'0100' 02388000 DC X'0080' 02389000 DC X'0040' 02390000 DC X'0020' 02391000 DC X'0010' 02392000 DC X'0008' 02393000 DC X'0004' 02394000 DC X'0002' 02395000 DC X'0001' 02396000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02397000 @01 EQU 01 02398000 @02 EQU 02 02399000 @03 EQU 03 02400000 @04 EQU 04 02401000 @05 EQU 05 02402000 @06 EQU 06 02403000 @07 EQU 07 02404000 @08 EQU 08 02405000 @09 EQU 09 02406000 @10 EQU 10 02407000 @11 EQU 11 02408000 @12 EQU 12 02409000 @13 EQU 13 02410000 @14 EQU 14 02411000 @15 EQU 15 02412000 PCCAPTR EQU @04 02413000 LCCAPTR EQU @02 02414000 LRBPTR EQU @01 02415000 TCBPTR EQU @14 02416000 SRBPTR EQU @08 02417000 RBPTR EQU @01 02418000 IQEPTR EQU @14 02419000 R10 EQU @10 02420000 SDWAPTR EQU @01 02421000 FRRSPTR EQU @13 02422000 FRREPTR EQU @14 02423000 QVPLPTR EQU @01 02424000 TQEPTR EQU @01 02425000 TPCPTR EQU @02 02426000 TFRRPTR EQU @12 02427000 BADCPU EQU @00 02428000 CSDPTR EQU @01 02429000 PRGPARM EQU @02 02430000 PCCAPTR2 EQU @04 02431000 SDWAPTR2 EQU @04 02432000 ASIDREG EQU @04 02433000 NEXTTQE EQU @06 02434000 BASEREG EQU @09 02435000 FRRPTR EQU @11 02436000 RETADDR EQU @14 02437000 TQEPTR2 EQU @14 02438000 SLOTCNT EQU @14 02439000 LCCAPTR2 EQU @15 02440000 R0 EQU @00 02441000 R1 EQU @01 02442000 R2 EQU @02 02443000 R3 EQU @03 02444000 R4 EQU @04 02445000 R5 EQU @05 02446000 R6 EQU @06 02447000 R7 EQU @07 02448000 R11 EQU @11 02449000 R12 EQU @12 02450000 R13 EQU @13 02451000 R14 EQU @14 02452000 R15 EQU @15 02453000 GPR00P EQU @00 02454000 GPR01P EQU @01 02455000 GPR14P EQU @14 02456000 GPR15P EQU @15 02457000 PSA EQU 0 02458000 FLCRNPSW EQU PSA 02459000 FLCROPSW EQU PSA+8 02460000 FLCICCW2 EQU PSA+16 02461000 PSAEEPSW EQU PSA+132 02462000 PSAESPSW EQU PSA+136 02463000 FLCSVILC EQU PSAESPSW+1 02464000 PSAEPPSW EQU PSA+140 02465000 FLCPIILC EQU PSAEPPSW+1 02466000 FLCPICOD EQU PSAEPPSW+2 02467000 PSAPICOD EQU FLCPICOD+1 02468000 FLCTEA EQU PSAEPPSW+4 02469000 FLCPER EQU PSA+152 02470000 FLCMCLA EQU PSA+168 02471000 FLCIOEL EQU FLCMCLA+4 02472000 FLCIOA EQU FLCMCLA+16 02473000 FLCFSA EQU FLCMCLA+80 02474000 PSAPCCAV EQU PSA+520 02475000 PSALCCAV EQU PSA+528 02476000 PSATOLD EQU PSA+540 02477000 PSASUPER EQU PSA+552 02478000 PSASUP1 EQU PSASUPER 02479000 PSASUP2 EQU PSASUPER+1 02480000 PSASUP3 EQU PSASUPER+2 02481000 PSASUP4 EQU PSASUPER+3 02482000 PSACLHT EQU PSA+640 02483000 PSALKSA EQU PSA+696 02484000 PSAHLHI EQU PSA+760 02485000 PSALITA EQU PSA+764 02486000 PSACR0 EQU PSA+776 02487000 PSADSSFL EQU PSA+836 02488000 PSADSSF1 EQU PSADSSFL 02489000 PSADSSF3 EQU PSADSSFL+2 02490000 PSADSSF4 EQU PSADSSFL+3 02491000 PSARSVT EQU PSA+896 02492000 PSALSFCC EQU PSA+1012 02493000 CVTPTR EQU 16 02494000 CVTMAP EQU 0 02495000 CVT EQU CVTMAP 02496000 CVT0EF00 EQU CVTMAP+4 02497000 CVTDAR EQU CVTMAP+72 02498000 CVTFLGS1 EQU CVTDAR 02499000 CVTTPC EQU CVTMAP+88 02500000 CVTQTE00 EQU CVTMAP+104 02501000 CVTQTD00 EQU CVTMAP+108 02502000 CVTDCB EQU CVTMAP+116 02503000 CVTIOQET EQU CVTMAP+120 02504000 CVT0DS EQU CVTMAP+136 02505000 CVTIERLC EQU CVTMAP+144 02506000 CVTHEAD EQU CVTMAP+160 02507000 CVTSV76C EQU CVTHEAD 02508000 CVTOPTA EQU CVTMAP+182 02509000 CVTOPTB EQU CVTMAP+183 02510000 CVTGTF EQU CVTMAP+236 02511000 CVTGTFST EQU CVTGTF 02512000 CVTGTFS EQU CVTGTFST 02513000 CVTSTATE EQU CVTGTFST 02514000 CVTTMODE EQU CVTGTFST 02515000 CVTFORM EQU CVTGTFST 02516000 CVTAQAVT EQU CVTMAP+240 02517000 CVTTCMFG EQU CVTAQAVT 02518000 CVTVOLM2 EQU CVTMAP+244 02519000 CVTTATA EQU CVTVOLM2 02520000 CVTTSKS EQU CVTTATA 02521000 CVTVOLF2 EQU CVTTSKS 02522000 CVTTAT EQU CVTTATA+1 02523000 CVTATER EQU CVTMAP+248 02524000 CVTEXT1 EQU CVTMAP+252 02525000 CVTPURG EQU CVTMAP+260 02526000 CVTQMSG EQU CVTMAP+268 02527000 CVTDMSR EQU CVTMAP+272 02528000 CVTRSV37 EQU CVTDMSR 02529000 CVTDMSRF EQU CVTRSV37 02530000 CVTERPV EQU CVTMAP+316 02531000 CVTINTLA EQU CVTMAP+320 02532000 CVTAPF EQU CVTMAP+324 02533000 CVTEXT2 EQU CVTMAP+328 02534000 CVTHJES EQU CVTMAP+332 02535000 CVTPGSIA EQU CVTMAP+348 02536000 CVTA1F1 EQU CVTMAP+356 02537000 CVTSYSK EQU CVTMAP+357 02538000 CVTVOLM1 EQU CVTMAP+380 02539000 CVTVOLF1 EQU CVTVOLM1 02540000 CVTATMCT EQU CVTMAP+388 02541000 CVTXTNT1 EQU 0 02542000 CVTXTNT2 EQU 0 02543000 CVTDSSV EQU CVTXTNT2 02544000 CVTFLGBT EQU CVTXTNT2+5 02545000 CVTQID EQU CVTXTNT2+24 02546000 CVTRV400 EQU CVTXTNT2+52 02547000 CVTRV409 EQU CVTXTNT2+53 02548000 CVTATCVT EQU CVTXTNT2+64 02549000 CVTRV429 EQU CVTXTNT2+84 02550000 CVTRV438 EQU CVTXTNT2+85 02551000 CVTRV457 EQU CVTXTNT2+112 02552000 CVTRV466 EQU CVTXTNT2+113 02553000 CVTFIX EQU 0 02554000 CVTRELNO EQU CVTFIX+252 02555000 CSD EQU 0 02556000 CSDCPUAL EQU CSD+8 02557000 CSDSCWRD EQU CSD+12 02558000 CSDSCFL1 EQU CSDSCWRD 02559000 CSDSCFL2 EQU CSDSCWRD+1 02560000 CSDSCFL3 EQU CSDSCWRD+2 02561000 CSDSCFL4 EQU CSDSCWRD+3 02562000 CSDFLAGS EQU CSD+23 02563000 CSDGDCC EQU CSD+108 02564000 CSDGDINT EQU CSD+112 02565000 CSDGDTOD EQU CSD+116 02566000 WSAG EQU 0 02567000 WSAGGMFM EQU WSAG+4 02568000 WSAC EQU 0 02569000 WSACTIME EQU WSAC+12 02570000 PCCAVT EQU 0 02571000 PCCAT00P EQU PCCAVT 02572000 PCCA EQU 0 02573000 PCCATQEP EQU PCCA+20 02574000 PCCATMST EQU PCCA+128 02575000 PCCATMFL EQU PCCATMST 02576000 PCCAINIT EQU PCCATMFL 02577000 PCCAVKIL EQU PCCATMFL 02578000 PCCAMCC EQU PCCATMFL 02579000 PCCAMINT EQU PCCATMFL 02580000 PCCATODE EQU PCCATMST+1 02581000 PCCANUTD EQU PCCATODE 02582000 PCCANFTD EQU PCCATODE 02583000 PCCACCE EQU PCCATMST+2 02584000 PCCANUCC EQU PCCACCE 02585000 PCCANFCC EQU PCCACCE 02586000 PCCAINTE EQU PCCATMST+3 02587000 PCCANUIN EQU PCCAINTE 02588000 PCCANFIN EQU PCCAINTE 02589000 PCCAEMSB EQU PCCA+136 02590000 PCCAEMSI EQU PCCAEMSB 02591000 PCCARISP EQU PCCAEMSI 02592000 PCCAEMS2 EQU PCCAEMSI+1 02593000 PCCAEMS3 EQU PCCAEMSI+2 02594000 PCCARMSB EQU PCCAEMSI+3 02595000 PCCAWERP EQU PCCA+280 02596000 PCCACHPF EQU PCCAWERP+4 02597000 PCCACHBL EQU PCCAWERP+5 02598000 PCCACHVA EQU PCCAWERP+6 02599000 PCCACHTS EQU PCCAWERP+7 02600000 PCCACHS1 EQU PCCA+288 02601000 PCCACHS2 EQU PCCA+289 02602000 PCCACHRB EQU PCCA+290 02603000 PCCACHF1 EQU PCCA+308 02604000 PCCACHF2 EQU PCCA+309 02605000 PCCACHF3 EQU PCCA+310 02606000 PCCACHF4 EQU PCCA+311 02607000 LCCAVT EQU 0 02608000 LCCAT00P EQU LCCAVT 02609000 LCCA EQU 0 02610000 LCCAIHRC EQU LCCA+520 02611000 LCCAIHR1 EQU LCCAIHRC 02612000 LCCAIHR2 EQU LCCAIHRC+1 02613000 LCCAIHR3 EQU LCCAIHRC+2 02614000 LCCAIHR4 EQU LCCAIHRC+3 02615000 LCCASPIN EQU LCCA+524 02616000 LCCASPN1 EQU LCCASPIN 02617000 LCCATSPN EQU LCCASPN1 02618000 LCCASPN2 EQU LCCASPIN+1 02619000 LCCASPN3 EQU LCCASPIN+2 02620000 LCCASPN4 EQU LCCASPIN+3 02621000 LCCACPUS EQU LCCA+536 02622000 LCCADSF1 EQU LCCA+540 02623000 LCCAACR EQU LCCADSF1 02624000 LCCATIMR EQU LCCADSF1 02625000 LCCADSF2 EQU LCCA+541 02626000 LCCAPSMK EQU LCCA+542 02627000 LCCASPSA EQU LCCA+544 02628000 LCCASTOD EQU LCCA+592 02629000 LCCADTOD EQU LCCA+600 02630000 LCCACRFL EQU LCCA+692 02631000 LCCACREX EQU LCCA+693 02632000 LCCALKFG EQU LCCA+694 02633000 LCCASRBF EQU LCCA+720 02634000 ASCB EQU 0 02635000 ASCBSUPC EQU ASCB+16 02636000 ASCBRSM EQU ASCB+52 02637000 ASCBRSMF EQU ASCBRSM 02638000 ASCBFW1 EQU ASCB+100 02639000 ASCBAFFN EQU ASCBFW1 02640000 ASCBRCTF EQU ASCBFW1+2 02641000 ASCBFLG1 EQU ASCBFW1+3 02642000 ASCBSWCT EQU ASCB+112 02643000 ASCBDSP1 EQU ASCB+114 02644000 ASCBFLG2 EQU ASCB+115 02645000 ASCBLKGP EQU ASCB+128 02646000 ASCBSRQ EQU ASCB+180 02647000 ASCBSRQ1 EQU ASCBSRQ 02648000 ASCBSRQ2 EQU ASCBSRQ+1 02649000 ASCBSRQ3 EQU ASCBSRQ+2 02650000 ASCBSRQ4 EQU ASCBSRQ+3 02651000 LRB EQU 0 02652000 LRBHREL EQU LRB+1 02653000 LRBHSYS EQU LRBHREL 02654000 LRBHSW0 EQU LRB+2 02655000 LRBHSW1 EQU LRB+3 02656000 LRBHSW2 EQU LRB+4 02657000 LRBMACT EQU LRBHSW2 02658000 LRBHSW3 EQU LRB+5 02659000 LRBHDATE EQU LRB+8 02660000 LRBHCPID EQU LRB+16 02661000 LRBBASE EQU LRB+24 02662000 LRBCVAR EQU 0 02663000 LRBCMP EQU LRBCVAR+8 02664000 TCBFIX EQU 0 02665000 TCBFRS EQU TCBFIX 02666000 TCB EQU 0 02667000 TCBPIE EQU TCB+4 02668000 TCBPMASK EQU TCBPIE 02669000 TCBCMP EQU TCB+16 02670000 TCBCMPF EQU TCBCMP 02671000 TCBCPP EQU TCBCMPF 02672000 TCBSTCC EQU TCBCMPF 02673000 TCBCDBL EQU TCBCMPF 02674000 TCBCWTO EQU TCBCMPF 02675000 TCBCIND EQU TCBCMPF 02676000 TCBCMSG EQU TCBCMPF 02677000 TCBTRN EQU TCB+20 02678000 TCBABF EQU TCBTRN 02679000 TCBMSS EQU TCB+24 02680000 TCBPKF EQU TCB+28 02681000 TCBFLGS EQU TCB+29 02682000 TCBFLGS1 EQU TCBFLGS 02683000 TCBFLGS2 EQU TCBFLGS+1 02684000 TCBFLGS3 EQU TCBFLGS+2 02685000 TCBFLGS4 EQU TCBFLGS+3 02686000 TCBFLGS5 EQU TCBFLGS+4 02687000 TCBABWF EQU TCBFLGS5 02688000 TCBJPQ EQU TCB+44 02689000 TCBPURGE EQU TCBJPQ 02690000 TCBGRS EQU TCB+48 02691000 TCBFSA EQU TCB+112 02692000 TCBTME EQU TCB+120 02693000 TCBJSTCB EQU TCB+124 02694000 TCBTSFLG EQU TCB+148 02695000 TCBTSTSK EQU TCBTSFLG 02696000 TCBSTAB EQU TCB+160 02697000 TCBNSTAE EQU TCBSTAB 02698000 TCBTCT EQU TCB+164 02699000 TCBTCTGF EQU TCBTCT 02700000 TCBSCNDY EQU TCB+172 02701000 TCBNDSP EQU TCBSCNDY 02702000 TCBNDSP1 EQU TCBNDSP+1 02703000 TCBNDSP2 EQU TCBNDSP+2 02704000 TCBNDSP3 EQU TCBNDSP+3 02705000 TCBJSCB EQU TCB+180 02706000 TCBRECDE EQU TCBJSCB 02707000 TCBEXT1 EQU TCB+196 02708000 TCBBITS EQU TCB+200 02709000 TCBNDSP4 EQU TCBBITS 02710000 TCBNDSP5 EQU TCBBITS+1 02711000 TCBFLGS6 EQU TCBBITS+2 02712000 TCBFLGS7 EQU TCBBITS+3 02713000 TCBDAR EQU TCB+204 02714000 TCBDARC EQU TCBDAR 02715000 TCBEXT2 EQU TCB+208 02716000 TCBXSCT EQU TCB+240 02717000 TCBXSCT1 EQU TCBXSCT 02718000 TCBFOE EQU TCB+244 02719000 TCBESTAE EQU TCB+264 02720000 TCBESTRM EQU TCBESTAE+1 02721000 TCBFBYT1 EQU TCB+276 02722000 TCBFBYT2 EQU TCB+277 02723000 TCBRV124 EQU TCB+278 02724000 TCBRV133 EQU TCB+279 02725000 TCBXTNT2 EQU 0 02726000 TCBGTF EQU TCBXTNT2 02727000 TCBTFLG EQU TCBGTF 02728000 TCBRV146 EQU TCBXTNT2+28 02729000 TCBRV155 EQU TCBXTNT2+29 02730000 TCBRV164 EQU TCBXTNT2+30 02731000 TCBRV173 EQU TCBXTNT2+31 02732000 SRBSECT EQU 0 02733000 SRB EQU SRBSECT 02734000 SRBFLNK EQU SRB+4 02735000 SRBASCB EQU SRB+8 02736000 SRBFLC EQU SRB+12 02737000 SRBPTCB EQU SRBFLC+4 02738000 SRBEP EQU SRB+20 02739000 SRBPARM EQU SRB+28 02740000 RBPRFX EQU 0 02741000 RBBASIC EQU 0 02742000 RBEXRTNM EQU RBBASIC 02743000 RBTMFLD EQU RBEXRTNM 02744000 RBSTAB EQU RBBASIC+10 02745000 XSTAB EQU RBSTAB 02746000 RBSTAB1 EQU XSTAB 02747000 XSTAB1 EQU RBSTAB1 02748000 RBFTCKPT EQU XSTAB1 02749000 RBSTAB2 EQU XSTAB+1 02750000 XSTAB2 EQU RBSTAB2 02751000 RBTCBNXT EQU XSTAB2 02752000 RBFACTV EQU XSTAB2 02753000 RBFDYN EQU XSTAB2 02754000 RBECBWT EQU XSTAB2 02755000 RBOPSW EQU RBBASIC+16 02756000 XRBPSW EQU RBOPSW 02757000 RBOPSWB2 EQU XRBPSW+1 02758000 RBLINK EQU RBBASIC+28 02759000 XRBLNK EQU RBLINK 02760000 RBWCF EQU XRBLNK 02761000 RBLINKB EQU XRBLNK+1 02762000 RBGRSAVE EQU RBBASIC+32 02763000 XRBREG EQU RBGRSAVE 02764000 RBGRS0 EQU XRBREG 02765000 RBGRS1 EQU XRBREG+4 02766000 RBGRS2 EQU XRBREG+8 02767000 RBGRS3 EQU XRBREG+12 02768000 RBGRS4 EQU XRBREG+16 02769000 RBGRS5 EQU XRBREG+20 02770000 RBGRS6 EQU XRBREG+24 02771000 RBGRS7 EQU XRBREG+28 02772000 RBGRS8 EQU XRBREG+32 02773000 RBGRS9 EQU XRBREG+36 02774000 RBGRS10 EQU XRBREG+40 02775000 RBGRS11 EQU XRBREG+44 02776000 RBGRS12 EQU XRBREG+48 02777000 RBGRS13 EQU XRBREG+52 02778000 RBGRS14 EQU XRBREG+56 02779000 RBGRS15 EQU XRBREG+60 02780000 XRBESA EQU RBBASIC+96 02781000 RBPREFIX EQU 0 02782000 RBRSV019 EQU RBPREFIX+14 02783000 RBRSV028 EQU RBPREFIX+15 02784000 RBRSV041 EQU RBPREFIX+27 02785000 RBRSV054 EQU RBPREFIX+39 02786000 RBRTOPSW EQU RBPREFIX+40 02787000 RBRTPSW2 EQU RBRTOPSW+8 02788000 RBRTICIL EQU RBRTPSW2 02789000 RBFLAGS1 EQU RBPREFIX+56 02790000 RBWCSA EQU RBPREFIX+60 02791000 RBINTCDA EQU RBPREFIX+61 02792000 RBSECT EQU 0 02793000 RBPPSAV EQU RBSECT 02794000 RBSIZE EQU RBSECT+8 02795000 @NM00078 EQU RBSECT+10 02796000 @NM00079 EQU @NM00078 02797000 RBTRSVRB EQU @NM00079 02798000 @NM00081 EQU @NM00078+1 02799000 RBETXR EQU @NM00081 02800000 RBEP EQU RBSECT+12 02801000 RBPGMQ EQU RBSECT+24 02802000 @NM00088 EQU RBSECT+28 02803000 @NM00089 EQU @NM00088 02804000 IRBEND EQU RBSECT+96 02805000 @NM00092 EQU RBSECT+96 02806000 RBRSV138 EQU @NM00092+7 02807000 RBSCBB EQU RBSECT+144 02808000 RBSPARM EQU RBSCBB+8 02809000 RBSFLGS1 EQU RBSPARM 02810000 RBSIOPRC EQU RBSFLGS1 02811000 RBSOWNR EQU RBSCBB+12 02812000 RBSFLGS2 EQU RBSOWNR 02813000 RBSDATA EQU RBSCBB+16 02814000 RBSFLG3 EQU RBSDATA 02815000 RBRSV150 EQU RBSECT+167 02816000 IQESECT EQU 0 02817000 IQELNK EQU IQESECT 02818000 IQEPARAM EQU IQESECT+4 02819000 IQEIRB EQU IQESECT+8 02820000 IQEFLAGS EQU IQEIRB 02821000 IQEIRBA EQU IQEIRB+1 02822000 IQETCB EQU IQESECT+12 02823000 IQETCBA EQU IQETCB+1 02824000 RMPL EQU 0 02825000 RMPLFLG1 EQU RMPL 02826000 RMPLASID EQU RMPL+2 02827000 RMPLASCB EQU RMPL+4 02828000 RMPLTCBA EQU RMPL+8 02829000 RMPLRMWA EQU RMPL+16 02830000 RMPLPTR EQU 0 02831000 SDWA EQU 0 02832000 SDWAPARM EQU SDWA 02833000 SDWAFIOB EQU SDWA+4 02834000 SDWAABCC EQU SDWAFIOB 02835000 SDWACMPF EQU SDWAABCC 02836000 SDWACTL1 EQU SDWA+8 02837000 SDWACMKA EQU SDWACTL1 02838000 SDWAMWPA EQU SDWACTL1+1 02839000 SDWAPMKA EQU SDWACTL1+4 02840000 SDWACTL2 EQU SDWA+16 02841000 SDWACMKP EQU SDWACTL2 02842000 SDWAMWPP EQU SDWACTL2+1 02843000 SDWAPMKP EQU SDWACTL2+4 02844000 SDWAGRSV EQU SDWA+24 02845000 SDWANAME EQU SDWA+88 02846000 SDWAEC1 EQU SDWA+104 02847000 SDWAEMK1 EQU SDWAEC1 02848000 SDWAMWP1 EQU SDWAEC1+1 02849000 SDWAINT1 EQU SDWAEC1+2 02850000 SDWANXT1 EQU SDWAEC1+4 02851000 SDWAAEC1 EQU SDWA+112 02852000 SDWAILC1 EQU SDWAAEC1+1 02853000 SDWAINC1 EQU SDWAAEC1+2 02854000 SDWAICD1 EQU SDWAINC1+1 02855000 SDWAEC2 EQU SDWA+120 02856000 SDWAEMK2 EQU SDWAEC2 02857000 SDWAMWP2 EQU SDWAEC2+1 02858000 SDWAINT2 EQU SDWAEC2+2 02859000 SDWANXT2 EQU SDWAEC2+4 02860000 SDWAAEC2 EQU SDWA+128 02861000 SDWAILC2 EQU SDWAAEC2+1 02862000 SDWAINC2 EQU SDWAAEC2+2 02863000 SDWAICD2 EQU SDWAINC2+1 02864000 SDWASRSV EQU SDWA+136 02865000 SDWAIDNT EQU SDWA+200 02866000 SDWAMCH EQU SDWA+204 02867000 SDWASTCK EQU SDWAMCH 02868000 SDWAMCHI EQU SDWAMCH+8 02869000 SDWAMCHS EQU SDWAMCHI 02870000 SDWAMCHD EQU SDWAMCHI+1 02871000 SDWARSR1 EQU SDWAMCH+12 02872000 SDWARSR2 EQU SDWAMCH+13 02873000 SDWAFLGS EQU SDWA+232 02874000 SDWAERRA EQU SDWAFLGS 02875000 SDWAERRB EQU SDWAFLGS+1 02876000 SDWAERRC EQU SDWAFLGS+2 02877000 SDWAPERC EQU SDWAERRC 02878000 SDWAERRD EQU SDWAFLGS+3 02879000 SDWAFMID EQU SDWA+236 02880000 SDWAIOFS EQU SDWA+238 02881000 SDWACPUA EQU SDWA+248 02882000 SDWAPARQ EQU SDWA+252 02883000 SDWARCDE EQU SDWAPARQ 02884000 SDWAACF2 EQU SDWAPARQ+1 02885000 SDWARCRD EQU SDWAACF2 02886000 SDWAACF3 EQU SDWAPARQ+2 02887000 SDWADISP EQU SDWAACF3 02888000 SDWASALL EQU SDWAACF3 02889000 SDWAACF4 EQU SDWAPARQ+3 02890000 SDWAFLLK EQU SDWAACF4 02891000 SDWALKWA EQU SDWA+256 02892000 SDWALKWS EQU SDWALKWA 02893000 SDWARECP EQU SDWA+292 02894000 SDWAMODN EQU SDWARECP 02895000 SDWACSCT EQU SDWARECP+8 02896000 SDWAREXN EQU SDWARECP+16 02897000 SDWASNPA EQU SDWA+320 02898000 SDWADUMP EQU SDWASNPA 02899000 SDWADPFS EQU SDWADUMP+1 02900000 SDWADDAT EQU SDWASNPA+4 02901000 SDWASDAT EQU SDWADDAT 02902000 SDWAPDAT EQU SDWADDAT+2 02903000 SDWADPSA EQU SDWA+328 02904000 SDWADPSL EQU SDWADPSA 02905000 SDWARA EQU SDWA+400 02906000 SDWADPVA EQU SDWARA+2 02907000 SDWAURAL EQU SDWARA+3 02908000 SDWAVRA EQU SDWARA+4 02909000 FRRS EQU 0 02910000 FRRSHEAD EQU FRRS 02911000 FRRSEMP EQU FRRSHEAD 02912000 FRRSLAST EQU FRRSHEAD+4 02913000 FRRSELEN EQU FRRSHEAD+8 02914000 FRRSCURR EQU FRRSHEAD+12 02915000 FRRSENTR EQU 0 02916000 FRRSFRRA EQU FRRSENTR 02917000 FRRSFLGS EQU FRRSENTR+4 02918000 FRRSFLG1 EQU FRRSFLGS 02919000 FRRSPARM EQU FRRSENTR+8 02920000 QVPL EQU 0 02921000 QVPLTYP3 EQU QVPL 02922000 QVPLTYP2 EQU QVPLTYP3 02923000 QVPLTYP1 EQU QVPLTYP2 02924000 QVPLEVR EQU QVPLTYP1 02925000 QVPLODA EQU QVPLTYP1+4 02926000 QVPLWKA EQU QVPLTYP1+8 02927000 QVPLNOEL EQU QVPLTYP1+12 02928000 QVPLHDR EQU QVPLTYP1+16 02929000 QVPLHF EQU QVPLTYP1+20 02930000 QVPLFLGH EQU QVPLHF 02931000 QVPLHD3 EQU QVPLFLGH 02932000 QVPLFLGF EQU QVPLHF+1 02933000 QVPLFP3 EQU QVPLFLGF 02934000 QVPLFPTR EQU QVPLHF+2 02935000 QVPLLELM EQU QVPLTYP1+24 02936000 QVPLTRLR EQU QVPLTYP2+28 02937000 QVPLTB EQU QVPLTYP2+32 02938000 QVPLFLGT EQU QVPLTB 02939000 QVPLTR3 EQU QVPLFLGT 02940000 QVPLFLGB EQU QVPLTB+1 02941000 QVPLBP3 EQU QVPLFLGB 02942000 QVPLBPTR EQU QVPLTB+2 02943000 QVPLFELM EQU QVPLTYP2+36 02944000 QVODHDR EQU 0 02945000 QVODVRA EQU 0 02946000 QVODCMMN EQU QVODVRA 02947000 QVODR15 EQU QVODCMMN 02948000 QVODFLGS EQU QVODR15 02949000 QVODENT EQU QVODVRA+4 02950000 QVODCDAT EQU QVODENT 02951000 QVODVDAT EQU QVODENT+4 02952000 TQE EQU 0 02953000 TQETQE EQU TQE 02954000 TQEFLNK EQU TQE+4 02955000 TQEBLNK EQU TQE+8 02956000 TQEAID EQU TQE+12 02957000 TQEFLGS EQU TQE+14 02958000 TQEOFF EQU TQEFLGS 02959000 TQEINCOM EQU TQEFLGS 02960000 TQEXITSP EQU TQEFLGS 02961000 TQETYPE EQU TQEFLGS 02962000 TQEFLGS2 EQU TQE+15 02963000 TQECOMP EQU TQEFLGS2 02964000 TQEUSER EQU TQEFLGS2 02965000 TQEDUM EQU TQEFLGS2 02966000 TQELM EQU TQEFLGS2 02967000 TQEMIDN EQU TQEFLGS2 02968000 TQEVAL EQU TQE+16 02969000 TQEVALLH EQU TQEVAL 02970000 TQEVALRH EQU TQEVAL+4 02971000 TQEEXIT EQU TQE+28 02972000 TQETCB EQU TQE+32 02973000 TQEASCB EQU TQE+36 02974000 TQELHPSW EQU TQE+40 02975000 TQESRB EQU TQE+44 02976000 TQEFLGS3 EQU TQE+88 02977000 TQEDIE EQU TQEFLGS3 02978000 TQESTCK EQU TQE+120 02979000 TPC EQU 0 02980000 IEATPC EQU TPC 02981000 TPCFLGS1 EQU IEATPC+4 02982000 TPCSYNC EQU TPCFLGS1 02983000 TPCHDCCQ EQU IEATPC+12 02984000 TPCDMTQE EQU IEATPC+16 02985000 DFD EQU TPCDMTQE+4 02986000 TPCMNTQE EQU IEATPC+40 02987000 MNIGHT EQU TPCMNTQE+16 02988000 TPCMFTQE EQU IEATPC+64 02989000 IEATSELM EQU IEATPC+88 02990000 TPCLMTQE EQU IEATPC+112 02991000 TPCSAVE1 EQU IEATPC+136 02992000 TPCSAVE2 EQU IEATPC+200 02993000 TPCWORK EQU IEATPC+264 02994000 TPCMISC EQU IEATPC+272 02995000 TPCFRRP EQU IEATPC+348 02996000 TPCRSRB EQU IEATPC+360 02997000 TPCCLA EQU IEATPC+408 02998000 TFRRPARM EQU 0 02999000 TFRRID EQU TFRRPARM 03000000 TFRRIDDX EQU TFRRID 03001000 TFRRFOOT EQU TFRRID+1 03002000 TFRRTODC EQU TFRRFOOT 03003000 TFRRTS EQU TFRRFOOT 03004000 TFRRSLIH EQU TFRRFOOT+2 03005000 TFRRTQEE EQU TFRRFOOT+2 03006000 TFRRTQED EQU TFRRFOOT+2 03007000 TFRRCLXR EQU TFRRFOOT+2 03008000 TFRRCPUH EQU TFRRFOOT+2 03009000 TFRRLOCK EQU TFRRPARM+4 03010000 TFRRDISP EQU TFRRLOCK 03011000 TFRRLOCL EQU TFRRLOCK 03012000 TFRRSALL EQU TFRRLOCK 03013000 TFRRFLGS EQU TFRRPARM+5 03014000 TFRRRCUR EQU TFRRFLGS 03015000 TFRRRYES EQU TFRRFLGS 03016000 TFRRRCDC EQU TFRRFLGS 03017000 TFRRRTQV EQU TFRRFLGS 03018000 TFRRTPCB EQU TFRRFLGS 03019000 TFRRDUMG EQU TFRRFLGS 03020000 TFRRFLG1 EQU TFRRPARM+6 03021000 TFRRFLG2 EQU TFRRPARM+7 03022000 TFRRSYNC EQU TFRRFLG2 03023000 TFRRCPUT EQU TFRRFLG2 03024000 TFRRCLKC EQU TFRRFLG2 03025000 TFRREXEF EQU TFRRFLG2 03026000 TFRRURCD EQU TFRRPARM+8 03027000 DISPATCH EQU 0 03028000 ENQTQE EQU 0 03029000 DEQTQE EQU 0 03030000 STAGE2 EQU 0 03031000 VARYSTOP EQU 0 03032000 QVALID EQU 0 03033000 TIMESAVE EQU 0 03034000 IQEEND EQU 0 03035000 I001C EQU 0 03036000 I008P EQU 0 03037000 I015F EQU 0 03038000 I015P EQU 0 03039000 I031F EQU 0 03040000 I031P EQU 0 03041000 I256C EQU 0 03042000 FLC EQU PSA 03043000 PSARSVTE EQU PSARSVT 03044000 PSACSTK EQU PSARSVTE 03045000 CVTS01 EQU CVTPGSIA 03046000 CVTLPDIA EQU CVTS01+12 03047000 CVTDIRST EQU CVTLPDIA 03048000 CVTSLIDA EQU CVTS01+24 03049000 CVTCTLFG EQU CVTS01+50 03050000 CVTSDMP EQU CVTS01+232 03051000 CVTGSMQ EQU CVTS01+264 03052000 CVTCSD EQU CVTS01+312 03053000 CVTGLMN EQU CVTS01+332 03054000 CVTSPSA EQU CVTS01+336 03055000 CVTPCCAT EQU CVTS01+416 03056000 CVTLCCAT EQU CVTS01+420 03057000 CVTRV210 EQU CVTS01+424 03058000 CVTRV219 EQU CVTS01+425 03059000 CVTRV228 EQU CVTS01+426 03060000 CVTRV237 EQU CVTS01+427 03061000 CVTMFRTR EQU CVTS01+452 03062000 CVTRV262 EQU CVTS01+468 03063000 CVTRV271 EQU CVTS01+469 03064000 CVTRV280 EQU CVTS01+470 03065000 CVTRV289 EQU CVTS01+471 03066000 CVTRMBR EQU CVTS01+492 03067000 CVTVSTOP EQU CVTS01+556 03068000 CVTQV3 EQU CVTS01+596 03069000 CVTGSDA EQU CVTS01+600 03070000 STMRTIME EQU LCCASTOD 03071000 LCCASTLH EQU STMRTIME 03072000 LCCASTRH EQU STMRTIME+4 03073000 DISPTIME EQU LCCADTOD 03074000 LCCADTLH EQU DISPTIME 03075000 LCCADTRH EQU DISPTIME+4 03076000 LRBHRSW1 EQU LRBHSW1 03077000 LRBHCSW1 EQU LRBHSW1 03078000 LRBHMSW1 EQU LRBHSW1 03079000 LRBMMCH EQU LRBBASE 03080000 LRBMCEIA EQU LRBMMCH+8 03081000 LRBMTERM EQU LRBMCEIA 03082000 LRBMHARD EQU LRBMCEIA+1 03083000 LRBMINTM EQU LRBMCEIA+2 03084000 LRBMITOD EQU LRBMINTM 03085000 LRBMICKC EQU LRBMINTM 03086000 LRBMICTM EQU LRBMINTM 03087000 LRBMSOFT EQU LRBMCEIA+3 03088000 LRBMPDAR EQU LRBMMCH+12 03089000 LRBMRSR1 EQU LRBMMCH+13 03090000 LRBMRSR2 EQU LRBMMCH+14 03091000 LRBMFLO EQU LRBMMCH+24 03092000 LRBMCIC EQU LRBMFLO 03093000 @NM00046 EQU LRBMCIC 03094000 @NM00048 EQU LRBMCIC+1 03095000 @NM00050 EQU LRBMCIC+2 03096000 @NM00052 EQU LRBMCIC+3 03097000 @NM00055 EQU LRBMCIC+5 03098000 LRBRDDR EQU LRBBASE 03099000 LRBCCCH EQU LRBBASE 03100000 LRBCCUA EQU LRBCCCH+49 03101000 LRBDMDR EQU LRBBASE 03102000 LRBNMIH EQU LRBBASE 03103000 LRBTTER EQU LRBBASE 03104000 ERRTIME EQU LRBHDATE 03105000 LRBTODLH EQU ERRTIME 03106000 LRBTODRH EQU ERRTIME+4 03107000 CLASIUTC EQU SRBPARM 03108000 CLASIU EQU CLASIUTC+3 03109000 RBSECS03 EQU RBEP 03110000 RBCDE EQU RBSECS03 03111000 RBCDFLGS EQU RBCDE 03112000 RBSECS05 EQU RBPGMQ 03113000 RBSQE EQU RBSECS05 03114000 RBSECS06 EQU RBPGMQ 03115000 RBIQE EQU RBSECS06 03116000 RBUSE EQU RBIQE 03117000 RBSECS07 EQU RBPGMQ 03118000 RBIQE2 EQU RBSECS07 03119000 RBSECS08 EQU IRBEND 03120000 RBSECS09 EQU IRBEND 03121000 AREAQVPL EQU TPCSAVE1 03122000 @NM00199 EQU TFRRURCD 03123000 SLIHFLGS EQU @NM00199 03124000 SLIHTNA EQU SLIHFLGS 03125000 SLIHTDNG EQU SLIHFLGS 03126000 SLIHFL3 EQU @NM00199+1 03127000 SLIHASID EQU @NM00199+4 03128000 SLIHFL1 EQU @NM00199+6 03129000 SLIHFL2 EQU @NM00199+7 03130000 SLIHTQE EQU @NM00199+8 03131000 SLIHTCB EQU @NM00199+12 03132000 TQEECB EQU TQEEXIT 03133000 AGO .@UNREFD START UNREFERENCED COMPONENTS 03134000 @NM00201 EQU @NM00199+2 03135000 @NM00200 EQU SLIHFLGS 03136000 RBRSV161 EQU RBSECS09+64 03137000 RBSIRBWA EQU RBSECS09 03138000 RBIQEWRK EQU RBSECS08+4 03139000 RBNEXAV EQU RBSECS08 03140000 RBIQEA EQU RBIQE2 03141000 RBIQE1 EQU RBIQE+1 03142000 RBSQEA EQU RBSQE+1 03143000 @NM00093 EQU RBSQE 03144000 RBCDE1 EQU RBCDE+1 03145000 RBCDLOAD EQU RBCDFLGS 03146000 RBCDXCTL EQU RBCDFLGS 03147000 RBCDSYNC EQU RBCDFLGS 03148000 RBCDNODE EQU RBCDFLGS 03149000 RBRSV010 EQU RBCDFLGS 03150000 RBCDATCH EQU RBCDFLGS 03151000 RBRSV009 EQU RBCDFLGS 03152000 RBNOCELL EQU RBCDFLGS 03153000 CLATC EQU CLASIUTC+3 03154000 @NM00066 EQU CLASIUTC 03155000 LRBTUSR EQU LRBTTER+8 03156000 LRBTWSC EQU LRBTTER+4 03157000 LRBTLNH EQU LRBTTER 03158000 LRBNINT EQU LRBNMIH+24 03159000 LRBNDEVT EQU LRBNMIH+20 03160000 LRBNVOL EQU LRBNMIH+14 03161000 LRBNCUA1 EQU LRBNMIH+11 03162000 LRBNCUA2 EQU LRBNMIH+8 03163000 LRBNJOB EQU LRBNMIH 03164000 LRBDSENS EQU LRBDMDR+8 03165000 LRBDVOL EQU LRBDMDR+2 03166000 LRBDCUA1 EQU LRBDMDR 03167000 LRBCCLOG EQU LRBCCCH+56 03168000 LRBCLOGL EQU LRBCCCH+54 03169000 LRBCHCUA EQU LRBCCCH+52 03170000 LRBCCUA2 EQU LRBCCUA+1 03171000 @NM00059 EQU LRBCCUA 03172000 LRBCCHID EQU LRBCCCH+48 03173000 LRBCDEVT EQU LRBCCCH+44 03174000 LRBCECSW EQU LRBCCCH+40 03175000 LRBCFCSW EQU LRBCCCH+32 03176000 LRBCFCCW EQU LRBCCCH+24 03177000 LRBCAIO EQU LRBCCCH+8 03178000 LRBCJOB EQU LRBCCCH 03179000 LRBRDEV2 EQU LRBRDDR+32 03180000 LRBRCUA2 EQU LRBRDDR+29 03181000 LRBRPH2 EQU LRBRDDR+28 03182000 LRBRDEV1 EQU LRBRDDR+24 03183000 LRBRCUA1 EQU LRBRDDR+21 03184000 LRBRPH1 EQU LRBRDDR+20 03185000 LRBRVOL2 EQU LRBRDDR+14 03186000 LRBRVOL1 EQU LRBRDDR+8 03187000 LRBRJOB EQU LRBRDDR 03188000 LRBMCEL EQU LRBMMCH+304 03189000 @NM00058 EQU LRBMFLO+20 03190000 LRBMFSA EQU LRBMFLO+16 03191000 @NM00057 EQU LRBMFLO+8 03192000 LRBMCELL EQU LRBMCIC+6 03193000 LRBMVCC EQU @NM00055 03194000 LRBMVPT EQU @NM00055 03195000 @NM00056 EQU @NM00055 03196000 @NM00054 EQU LRBMCIC+4 03197000 LRBMVST EQU @NM00052 03198000 LRBMVLG EQU @NM00052 03199000 LRBMVCR EQU @NM00052 03200000 LRBMVGR EQU @NM00052 03201000 LRBMVFP EQU @NM00052 03202000 @NM00053 EQU @NM00052 03203000 LRBMVRC EQU @NM00052 03204000 LRBMVFA EQU @NM00052 03205000 LRBMVIA EQU @NM00050 03206000 LRBMVPM EQU @NM00050 03207000 LRBMVMS EQU @NM00050 03208000 LRBMVWP EQU @NM00050 03209000 @NM00051 EQU @NM00050 03210000 LRBMFKE EQU @NM00050 03211000 LRBMFSC EQU @NM00050 03212000 LRBMFSE EQU @NM00050 03213000 LRBMIDY EQU @NM00048 03214000 LRBMIBU EQU @NM00048 03215000 @NM00049 EQU @NM00048 03216000 LRBMFWN EQU @NM00048 03217000 LRBMFDG EQU @NM00046 03218000 @NM00047 EQU @NM00046 03219000 LRBMFED EQU @NM00046 03220000 LRBMFCD EQU @NM00046 03221000 LRBMFTD EQU @NM00046 03222000 LRBMFSR EQU @NM00046 03223000 LRBMFPD EQU @NM00046 03224000 LRBMFSD EQU @NM00046 03225000 LRBMMOSW EQU LRBMMCH+16 03226000 LRBMPWL EQU LRBMMCH+15 03227000 LRBMVEQR EQU LRBMRSR2 03228000 LRBMPGFX EQU LRBMRSR2 03229000 LRBMLSQA EQU LRBMRSR2 03230000 LRBMFSQA EQU LRBMRSR2 03231000 LRBMNUCL EQU LRBMRSR2 03232000 LRBMSPER EQU LRBMRSR2 03233000 LRBMINTC EQU LRBMRSR2 03234000 LRBMOFLN EQU LRBMRSR2 03235000 LRBMCHNG EQU LRBMRSR1 03236000 LRBMSER EQU LRBMRSR1 03237000 @NM00045 EQU LRBMRSR1 03238000 @NM00044 EQU LRBMPDAR 03239000 LRBMRSRF EQU LRBMPDAR 03240000 LRBMRSRC EQU LRBMPDAR 03241000 LRBMINVP EQU LRBMPDAR 03242000 @NM00043 EQU LRBMPDAR 03243000 LRBMSBUF EQU LRBMSOFT 03244000 LRBMSHIR EQU LRBMSOFT 03245000 LRBMSECC EQU LRBMSOFT 03246000 LRBMSEXD EQU LRBMSOFT 03247000 @NM00042 EQU LRBMSOFT 03248000 LRBMSSFT EQU LRBMSOFT 03249000 LRBMIL80 EQU LRBMINTM 03250000 @NM00041 EQU LRBMINTM 03251000 LRBMHIPD EQU LRBMHARD 03252000 LRBMHSPF EQU LRBMHARD 03253000 LRBMHSTO EQU LRBMHARD 03254000 LRBMHINV EQU LRBMHARD 03255000 @NM00040 EQU LRBMHARD 03256000 LRBMHHRD EQU LRBMHARD 03257000 LRBMTINV EQU LRBMTERM 03258000 LRBMTDMG EQU LRBMTERM 03259000 LRBMTWRN EQU LRBMTERM 03260000 LRBMTCKS EQU LRBMTERM 03261000 LRBMTSEC EQU LRBMTERM 03262000 @NM00039 EQU LRBMTERM 03263000 LRBMWSC EQU LRBMMCH+4 03264000 LRBMLNH EQU LRBMMCH 03265000 @NM00038 EQU LRBHMSW1 03266000 LRBMSYST EQU LRBHMSW1 03267000 @NM00037 EQU LRBHMSW1 03268000 @NM00036 EQU LRBHCSW1 03269000 LRBCERPP EQU LRBHCSW1 03270000 LRBCDATA EQU LRBHCSW1 03271000 LRBCICUA EQU LRBHCSW1 03272000 LRBCNOSP EQU LRBHCSW1 03273000 @NM00035 EQU LRBHCSW1 03274000 LRBCINCO EQU LRBHCSW1 03275000 LRBCMESG EQU LRBHCSW1 03276000 @NM00034 EQU LRBHRSW1 03277000 LRBRSYSI EQU LRBHRSW1 03278000 LRBROPER EQU LRBHRSW1 03279000 LRBRSEC EQU LRBHRSW1 03280000 LRBRPRIM EQU LRBHRSW1 03281000 CVTRV628 EQU CVTS01+728 03282000 CVTRV627 EQU CVTS01+724 03283000 CVTRV626 EQU CVTS01+720 03284000 CVTRV625 EQU CVTS01+716 03285000 CVTRV624 EQU CVTS01+712 03286000 CVTRV623 EQU CVTS01+708 03287000 CVTRV622 EQU CVTS01+704 03288000 CVTRV621 EQU CVTS01+700 03289000 CVTIHASU EQU CVTS01+696 03290000 CVTSUSP EQU CVTS01+692 03291000 CVTT6SVC EQU CVTS01+688 03292000 CVTCDAL EQU CVTS01+684 03293000 CVTTCTL EQU CVTS01+680 03294000 CVTRSUME EQU CVTS01+676 03295000 CVTJTERM EQU CVTS01+672 03296000 CVTASMRM EQU CVTS01+668 03297000 CVTTCASP EQU CVTS01+664 03298000 CVT0PT03 EQU CVTS01+660 03299000 CVT0PT0E EQU CVTS01+656 03300000 CVTRV609 EQU CVTS01+652 03301000 CVTCGK EQU CVTS01+648 03302000 CVTRAC EQU CVTS01+644 03303000 CVTRV606 EQU CVTS01+640 03304000 CVTRV605 EQU CVTS01+636 03305000 CVTRV604 EQU CVTS01+632 03306000 CVTEFF02 EQU CVTS01+628 03307000 CVTCBBR EQU CVTS01+624 03308000 CVTSSCR EQU CVTS01+620 03309000 CVTEVENT EQU CVTS01+616 03310000 CVTCRCA EQU CVTS01+612 03311000 CVTTPIO EQU CVTS01+608 03312000 CVTADV EQU CVTS01+604 03313000 CVTGSDAB EQU CVTGSDA 03314000 CVTQV2 EQU CVTS01+592 03315000 CVTQV1 EQU CVTS01+588 03316000 CVTRPT EQU CVTS01+584 03317000 CVTSSRB EQU CVTS01+580 03318000 CVTCSDRL EQU CVTS01+576 03319000 CVTEXP1 EQU CVTS01+572 03320000 CVTRMPMT EQU CVTS01+568 03321000 CVTRMPTT EQU CVTS01+564 03322000 CVTVPSA EQU CVTS01+560 03323000 CVTGTFR8 EQU CVTS01+552 03324000 CVTQUIT EQU CVTS01+548 03325000 CVTVACR EQU CVTS01+544 03326000 CVTWTCB EQU CVTS01+540 03327000 CVTSTPRS EQU CVTS01+536 03328000 CVT0PT02 EQU CVTS01+532 03329000 CVTDARCM EQU CVTS01+528 03330000 CVTIRECM EQU CVTS01+524 03331000 CVTJRECM EQU CVTS01+520 03332000 CVTVEMS0 EQU CVTS01+516 03333000 CVTSPFRR EQU CVTS01+512 03334000 CVTRLSTG EQU CVTS01+508 03335000 CVT0TC0A EQU CVTS01+504 03336000 CVTGMBR EQU CVTS01+500 03337000 CVTLFRM EQU CVTS01+496 03338000 CVTVIOP EQU CVTS01+488 03339000 CVTRV307 EQU CVTS01+486 03340000 CVTRV306 EQU CVTS01+484 03341000 CVTRV305 EQU CVTS01+482 03342000 CVTRV304 EQU CVTS01+480 03343000 CVTRV303 EQU CVTS01+478 03344000 CVTRV302 EQU CVTS01+476 03345000 CVTTRCA EQU CVTS01+472 03346000 CVTRV297 EQU CVTRV289 03347000 CVTRV296 EQU CVTRV289 03348000 CVTRV295 EQU CVTRV289 03349000 CVTRV294 EQU CVTRV289 03350000 CVTRV293 EQU CVTRV289 03351000 CVTRV292 EQU CVTRV289 03352000 CVTRV291 EQU CVTRV289 03353000 CVTRV290 EQU CVTRV289 03354000 CVTRV288 EQU CVTRV280 03355000 CVTRV287 EQU CVTRV280 03356000 CVTRV286 EQU CVTRV280 03357000 CVTRV285 EQU CVTRV280 03358000 CVTRV284 EQU CVTRV280 03359000 CVTRV283 EQU CVTRV280 03360000 CVTRV282 EQU CVTRV280 03361000 CVTRV281 EQU CVTRV280 03362000 CVTRV279 EQU CVTRV271 03363000 CVTRV278 EQU CVTRV271 03364000 CVTRV277 EQU CVTRV271 03365000 CVTRV276 EQU CVTRV271 03366000 CVTRV275 EQU CVTRV271 03367000 CVTRV274 EQU CVTRV271 03368000 CVTRV273 EQU CVTRV271 03369000 CVTRV272 EQU CVTRV271 03370000 CVTRV270 EQU CVTRV262 03371000 CVTRV269 EQU CVTRV262 03372000 CVTRV268 EQU CVTRV262 03373000 CVTRV267 EQU CVTRV262 03374000 CVTRV266 EQU CVTRV262 03375000 CVTRV265 EQU CVTRV262 03376000 CVTRV264 EQU CVTRV262 03377000 CVTRV263 EQU CVTRV262 03378000 CVTVFP EQU CVTS01+464 03379000 CVTVSI EQU CVTS01+460 03380000 CVTVPSIB EQU CVTS01+456 03381000 CVTMFACT EQU CVTMFRTR 03382000 CVTMFCTL EQU CVTS01+448 03383000 CVTPVBP EQU CVTS01+444 03384000 CVTPWI EQU CVTS01+440 03385000 CVTRV254 EQU CVTS01+438 03386000 CVTRV253 EQU CVTS01+436 03387000 CVTRV252 EQU CVTS01+434 03388000 CVTRV251 EQU CVTS01+433 03389000 CVTRV250 EQU CVTS01+432 03390000 CVTRV249 EQU CVTS01+431 03391000 CVTRV248 EQU CVTS01+430 03392000 CVTRV247 EQU CVTS01+429 03393000 CVTRV246 EQU CVTS01+428 03394000 CVTRV245 EQU CVTRV237 03395000 CVTRV244 EQU CVTRV237 03396000 CVTRV243 EQU CVTRV237 03397000 CVTRV242 EQU CVTRV237 03398000 CVTRV241 EQU CVTRV237 03399000 CVTRV240 EQU CVTRV237 03400000 CVTRV239 EQU CVTRV237 03401000 CVTRV238 EQU CVTRV237 03402000 CVTRV236 EQU CVTRV228 03403000 CVTRV235 EQU CVTRV228 03404000 CVTRV234 EQU CVTRV228 03405000 CVTRV233 EQU CVTRV228 03406000 CVTRV232 EQU CVTRV228 03407000 CVTRV231 EQU CVTRV228 03408000 CVTRV230 EQU CVTRV228 03409000 CVTRV229 EQU CVTRV228 03410000 CVTRV227 EQU CVTRV219 03411000 CVTRV226 EQU CVTRV219 03412000 CVTRV225 EQU CVTRV219 03413000 CVTRV224 EQU CVTRV219 03414000 CVTRV223 EQU CVTRV219 03415000 CVTRV222 EQU CVTRV219 03416000 CVTRV221 EQU CVTRV219 03417000 CVTRV220 EQU CVTRV219 03418000 CVTRV218 EQU CVTRV210 03419000 CVTRV217 EQU CVTRV210 03420000 CVTRV216 EQU CVTRV210 03421000 CVTRV215 EQU CVTRV210 03422000 CVTRV214 EQU CVTRV210 03423000 CVTRV213 EQU CVTRV210 03424000 CVTRV212 EQU CVTRV210 03425000 CVTRV211 EQU CVTRV210 03426000 CVTIPCRP EQU CVTS01+412 03427000 CVTIPCRI EQU CVTS01+408 03428000 CVTIPCDS EQU CVTS01+404 03429000 CVTAIDVT EQU CVTS01+400 03430000 CVTSSAP EQU CVTS01+396 03431000 CVTEHCIR EQU CVTS01+392 03432000 CVTEHDEF EQU CVTS01+388 03433000 CVTDAIR EQU CVTS01+384 03434000 CVTPERFM EQU CVTS01+380 03435000 CVT044R2 EQU CVTS01+376 03436000 CVTFETCH EQU CVTS01+372 03437000 CVTRSTWD EQU CVTS01+368 03438000 CVTSPOST EQU CVTS01+364 03439000 CVTIOBP EQU CVTS01+360 03440000 CVTASMVT EQU CVTS01+356 03441000 CVTRECRQ EQU CVTS01+352 03442000 CVTWSAC EQU CVTS01+348 03443000 CVTRV149 EQU CVTS01+344 03444000 CVTWSAL EQU CVTS01+340 03445000 CVTVEAC0 EQU CVTS01+328 03446000 CVT062R1 EQU CVTS01+324 03447000 CVTRPOST EQU CVTS01+320 03448000 CVTDQIQE EQU CVTS01+316 03449000 CVTLKRMA EQU CVTS01+308 03450000 CVTRSPIE EQU CVTS01+304 03451000 CVTRENQ EQU CVTS01+300 03452000 CVTLQCB EQU CVTS01+296 03453000 CVTFQCB EQU CVTS01+292 03454000 CVTQCS01 EQU CVTS01+288 03455000 CVTAPFT EQU CVTS01+284 03456000 CVTPARRL EQU CVTS01+280 03457000 CVTVWAIT EQU CVTS01+276 03458000 CVTGSPL EQU CVTS01+272 03459000 CVTLSMQ EQU CVTS01+268 03460000 CVTEXPRO EQU CVTS01+260 03461000 CVTOPCTP EQU CVTS01+256 03462000 CVTSIC EQU CVTS01+252 03463000 CVTTPIOS EQU CVTS01+248 03464000 CVTRTMS EQU CVTS01+244 03465000 CVTSDBF EQU CVTS01+240 03466000 CVTSCBP EQU CVTS01+236 03467000 CVTSV60 EQU CVTS01+228 03468000 CVTRTMCT EQU CVTS01+224 03469000 CVTASCBL EQU CVTS01+220 03470000 CVTASCBH EQU CVTS01+216 03471000 CVTGDA EQU CVTS01+212 03472000 CVTASVT EQU CVTS01+208 03473000 CVTVVMDI EQU CVTS01+204 03474000 CVTAQTOP EQU CVTS01+200 03475000 CVTIOSCS EQU CVTS01+196 03476000 CVTSDRM EQU CVTS01+192 03477000 CVTOPTE EQU CVTS01+188 03478000 CVTSTXU EQU CVTS01+184 03479000 CVTQUIS EQU CVTS01+180 03480000 CVTPARS EQU CVTS01+176 03481000 CVTS1EE EQU CVTS01+172 03482000 CVTFRAS EQU CVTS01+168 03483000 CVTQSAS EQU CVTS01+164 03484000 CVTCRAS EQU CVTS01+160 03485000 CVTCRMN EQU CVTS01+156 03486000 CVTDELCP EQU CVTS01+152 03487000 CVTFRECL EQU CVTS01+148 03488000 CVTGETCL EQU CVTS01+144 03489000 CVTBLDCP EQU CVTS01+140 03490000 CVTAUTHL EQU CVTS01+136 03491000 CVTSCAN EQU CVTS01+132 03492000 CVTRV144 EQU CVTS01+130 03493000 CVTMAXMP EQU CVTS01+128 03494000 CVTSTCK EQU CVTS01+124 03495000 CVTRV139 EQU CVTS01+123 03496000 CVTDSSAC EQU CVTS01+122 03497000 CVTRV513 EQU CVTS01+121 03498000 CVTIOSPL EQU CVTS01+120 03499000 CVTPTGT EQU CVTS01+116 03500000 CVTCSPIE EQU CVTS01+112 03501000 CVTSMFEX EQU CVTS01+108 03502000 CVTOLT0A EQU CVTS01+104 03503000 CVTSRBRT EQU CVTS01+100 03504000 CVTPUTL EQU CVTS01+96 03505000 CVTASCRL EQU CVTS01+92 03506000 CVTASCRF EQU CVTS01+88 03507000 CVTRV326 EQU CVTS01+84 03508000 CVTRV325 EQU CVTS01+80 03509000 CVTRV324 EQU CVTS01+76 03510000 CVT0VL01 EQU CVTS01+72 03511000 CVTSHRVM EQU CVTS01+68 03512000 CVTRV332 EQU CVTS01+64 03513000 CVTTAS EQU CVTS01+60 03514000 CVTRSCN EQU CVTS01+56 03515000 CVTTRAC2 EQU CVTS01+54 03516000 CVTTRACE EQU CVTS01+52 03517000 CVTAPG EQU CVTS01+51 03518000 CVTSDTRC EQU CVTCTLFG 03519000 CVTGTRCE EQU CVTCTLFG 03520000 CVTNOMP EQU CVTCTLFG 03521000 CVTRSV79 EQU CVTCTLFG 03522000 CVTDSTAT EQU CVTCTLFG 03523000 CVTRSV78 EQU CVTCTLFG 03524000 CVTRV333 EQU CVTCTLFG 03525000 CVTRV323 EQU CVTCTLFG 03526000 CVTSPVLK EQU CVTS01+49 03527000 CVTRSV77 EQU CVTS01+48 03528000 CVTRV331 EQU CVTS01+44 03529000 CVTRV330 EQU CVTS01+40 03530000 CVTRV329 EQU CVTS01+36 03531000 CVTRV328 EQU CVTS01+32 03532000 CVTRV322 EQU CVTS01+28 03533000 CVTSLID EQU CVTSLIDA+1 03534000 CVTSYLK EQU CVTSLIDA 03535000 CVTRV321 EQU CVTS01+20 03536000 CVTRV320 EQU CVTS01+16 03537000 CVTLPDIR EQU CVTLPDIA+1 03538000 CVTRSV69 EQU CVTDIRST 03539000 CVTRSV68 EQU CVTDIRST 03540000 CVTRSV67 EQU CVTDIRST 03541000 CVTRSV66 EQU CVTDIRST 03542000 CVTRSV65 EQU CVTDIRST 03543000 CVTRSV64 EQU CVTDIRST 03544000 CVTRSV63 EQU CVTDIRST 03545000 CVTDICOM EQU CVTDIRST 03546000 CVTPVTP EQU CVTS01+8 03547000 CVTLPDSR EQU CVTS01+4 03548000 CVTGETL EQU CVTS01 03549000 PSARSAV EQU PSARSVTE+60 03550000 PSARSTK EQU PSARSVTE+56 03551000 PSAESAV3 EQU PSARSVTE+52 03552000 PSAESTK3 EQU PSARSVTE+48 03553000 PSAESAV2 EQU PSARSVTE+44 03554000 PSAESTK2 EQU PSARSVTE+40 03555000 PSAESAV1 EQU PSARSVTE+36 03556000 PSAESTK1 EQU PSARSVTE+32 03557000 PSAPSAV EQU PSARSVTE+28 03558000 PSAPSTK EQU PSARSVTE+24 03559000 PSAMSAV EQU PSARSVTE+20 03560000 PSAMSTK EQU PSARSVTE+16 03561000 PSASSAV EQU PSARSVTE+12 03562000 PSASSTK EQU PSARSVTE+8 03563000 PSANSTK EQU PSARSVTE+4 03564000 @NM00198 EQU TFRRURCD+12 03565000 TFRRTQEP EQU TFRRURCD+8 03566000 @NM00197 EQU TFRRURCD+4 03567000 @NM00196 EQU TFRRURCD 03568000 @NM00195 EQU TFRRFLG2 03569000 TFRRDIER EQU TFRRFLG2 03570000 @NM00194 EQU TFRRFLG1 03571000 TFRRPHS3 EQU TFRRFLG1 03572000 TFRRPHS2 EQU TFRRFLG1 03573000 TFRRPHS1 EQU TFRRFLG1 03574000 @NM00193 EQU TFRRFLGS 03575000 TFRRRTQB EQU TFRRFLGS 03576000 @NM00192 EQU TFRRLOCK 03577000 TFRRRQCK EQU TFRRFOOT+2 03578000 TFRRAESR EQU TFRRFOOT+2 03579000 TFRRSETC EQU TFRRFOOT+2 03580000 @NM00191 EQU TFRRFOOT+1 03581000 TFRRSETL EQU TFRRFOOT+1 03582000 TFRRHWRC EQU TFRRFOOT+1 03583000 TFRRVARY EQU TFRRFOOT+1 03584000 @NM00190 EQU TFRRFOOT 03585000 TPCOCL EQU IEATPC+416 03586000 TPCSDIE EQU IEATPC+412 03587000 TPCCKQ EQU IEATPC+404 03588000 TPCTCWA EQU IEATPC+356 03589000 TPCCRSAV EQU IEATPC+352 03590000 TPCVPTR EQU IEATPC+344 03591000 TPCWORKR EQU TPCWORK+4 03592000 TPCWORKL EQU TPCWORK 03593000 @NM00189 EQU TPCLMTQE+16 03594000 @NM00188 EQU TPCLMTQE+15 03595000 @NM00187 EQU TPCLMTQE+14 03596000 @NM00186 EQU TPCLMTQE+12 03597000 @NM00185 EQU TPCLMTQE+8 03598000 @NM00184 EQU TPCLMTQE+4 03599000 @NM00183 EQU TPCLMTQE 03600000 @NM00182 EQU IEATSELM+16 03601000 @NM00181 EQU IEATSELM+15 03602000 @NM00180 EQU IEATSELM+14 03603000 @NM00179 EQU IEATSELM+12 03604000 @NM00178 EQU IEATSELM+8 03605000 @NM00177 EQU IEATSELM+4 03606000 @NM00176 EQU IEATSELM 03607000 @NM00175 EQU TPCMFTQE+16 03608000 @NM00174 EQU TPCMFTQE+15 03609000 @NM00173 EQU TPCMFTQE+14 03610000 @NM00172 EQU TPCMFTQE+12 03611000 @NM00171 EQU TPCMFTQE+8 03612000 @NM00170 EQU TPCMFTQE+4 03613000 @NM00169 EQU TPCMFTQE 03614000 MNIGHTRH EQU MNIGHT+4 03615000 MNIGHTLH EQU MNIGHT 03616000 @NM00168 EQU TPCMNTQE+15 03617000 @NM00167 EQU TPCMNTQE+14 03618000 @NM00166 EQU TPCMNTQE+12 03619000 @NM00165 EQU TPCMNTQE+8 03620000 @NM00164 EQU TPCMNTQE+4 03621000 @NM00163 EQU TPCMNTQE 03622000 @NM00162 EQU TPCDMTQE+16 03623000 @NM00161 EQU TPCDMTQE+15 03624000 @NM00160 EQU TPCDMTQE+14 03625000 @NM00159 EQU TPCDMTQE+12 03626000 @NM00158 EQU TPCDMTQE+8 03627000 @NM00157 EQU TPCDMTQE 03628000 TPCTZORG EQU IEATPC+8 03629000 TPCCC EQU IEATPC+7 03630000 @NM00156 EQU IEATPC+5 03631000 @NM00155 EQU TPCFLGS1 03632000 TPCABND EQU TPCFLGS1 03633000 TPCTPCA EQU IEATPC 03634000 TQESTCKR EQU TQESTCK+4 03635000 TQESTCKL EQU TQESTCK 03636000 TQERSAVE EQU TQE+116 03637000 @NM00154 EQU TQE+89 03638000 @NM00153 EQU TQEFLGS3 03639000 TQEDREGS EQU TQESRB 03640000 TQESADDR EQU TQE+24 03641000 TQEMF1 EQU TQEFLGS2 03642000 TQEOPT EQU TQEFLGS2 03643000 TQECRH EQU TQEFLGS2 03644000 TQEWLIM EQU TQEFLGS 03645000 @NM00152 EQU TQEFLGS 03646000 TQETOD EQU TQEFLGS 03647000 QVODVW3 EQU QVODVDAT+8 03648000 QVODVW2 EQU QVODVDAT+4 03649000 QVODVW1 EQU QVODVDAT 03650000 QVODRES4 EQU QVODCDAT+2 03651000 QVODERRX EQU QVODCDAT+1 03652000 QVODERRC EQU QVODCDAT 03653000 QVODRCOD EQU QVODR15+3 03654000 QVODNDET EQU QVODR15+2 03655000 QVODNREC EQU QVODR15+1 03656000 QVODRES3 EQU QVODFLGS 03657000 QVODOVFL EQU QVODFLGS 03658000 QVODUSED EQU QVODHDR+3 03659000 QVODRES2 EQU QVODHDR+2 03660000 QVODSIZE EQU QVODHDR+1 03661000 QVODRES1 EQU QVODHDR 03662000 QVPLRES4 EQU QVPLFLGB 03663000 QVPLRES3 EQU QVPLFLGT 03664000 QVPLRES2 EQU QVPLFLGF 03665000 QVPLRES1 EQU QVPLFLGH 03666000 @NM00151 EQU FRRSFLGS+1 03667000 @NM00150 EQU FRRSFLG1 03668000 FRRSNEST EQU FRRSFLG1 03669000 FRRSRCUR EQU FRRSFLG1 03670000 FRRSENTS EQU FRRS+84 03671000 FRRSRTMW EQU FRRS+16 03672000 @NM00149 EQU SDWA+512 03673000 @NM00148 EQU SDWADPVA 03674000 SDWAEBC EQU SDWADPVA 03675000 SDWAHEX EQU SDWADPVA 03676000 SDWAVRAL EQU SDWARA 03677000 @NM00147 EQU SDWA+396 03678000 SDWACOMP EQU SDWA+392 03679000 SDWARCPL EQU SDWA+364 03680000 @NM00146 EQU SDWADPSA+32 03681000 SDWATO4 EQU SDWADPSL+28 03682000 SDWAFRM4 EQU SDWADPSL+24 03683000 SDWATO3 EQU SDWADPSL+20 03684000 SDWAFRM3 EQU SDWADPSL+16 03685000 SDWATO2 EQU SDWADPSL+12 03686000 SDWAFRM2 EQU SDWADPSL+8 03687000 SDWATO1 EQU SDWADPSL+4 03688000 SDWAFRM1 EQU SDWADPSL 03689000 @NM00145 EQU SDWADDAT+3 03690000 @NM00144 EQU SDWAPDAT 03691000 SDWAUSPL EQU SDWAPDAT 03692000 SDWADPSW EQU SDWAPDAT 03693000 SDWATJPA EQU SDWAPDAT 03694000 SDWATLPA EQU SDWAPDAT 03695000 SDWADREG EQU SDWAPDAT 03696000 SDWADSAH EQU SDWAPDAT 03697000 SDWADSAS EQU SDWAPDAT 03698000 @NM00143 EQU SDWADDAT+1 03699000 @NM00142 EQU SDWASDAT 03700000 SDWAQQS EQU SDWASDAT 03701000 SDWACBS EQU SDWASDAT 03702000 SDWAGTF EQU SDWASDAT 03703000 SDWASWA EQU SDWASDAT 03704000 SDWALSQA EQU SDWASDAT 03705000 SDWASQA EQU SDWASDAT 03706000 SDWANUC EQU SDWASDAT 03707000 @NM00141 EQU SDWADUMP+2 03708000 @NM00140 EQU SDWADPFS 03709000 SDWASLST EQU SDWADPFS 03710000 @NM00139 EQU SDWADPFS 03711000 SDWADLST EQU SDWADPFS 03712000 SDWADPT EQU SDWADPFS 03713000 SDWADPID EQU SDWADUMP 03714000 SDWADPLA EQU SDWA+316 03715000 @NM00138 EQU SDWA+290 03716000 SDWAASID EQU SDWA+288 03717000 SDWATALW EQU SDWALKWS+28 03718000 SDWATDLW EQU SDWALKWS+24 03719000 SDWATNLW EQU SDWALKWS+20 03720000 SDWAAPLW EQU SDWALKWS+16 03721000 SDWAIPLW EQU SDWALKWS+12 03722000 SDWAILLW EQU SDWALKWS+8 03723000 SDWAIULW EQU SDWALKWS+4 03724000 SDWAICLW EQU SDWALKWS 03725000 SDWACMS EQU SDWAACF4 03726000 SDWAOPTM EQU SDWAACF4 03727000 SDWATADB EQU SDWAACF4 03728000 SDWATDNB EQU SDWAACF4 03729000 SDWATNCB EQU SDWAACF4 03730000 SDWAILCH EQU SDWAACF4 03731000 SDWAIUCB EQU SDWAACF4 03732000 SDWAICAT EQU SDWAACF3 03733000 SDWAIPRG EQU SDWAACF3 03734000 SDWAASMP EQU SDWAACF3 03735000 @NM00137 EQU SDWAACF3 03736000 @NM00136 EQU SDWAACF2 03737000 SDWAFREE EQU SDWAACF2 03738000 SDWAUPRG EQU SDWAACF2 03739000 @NM00135 EQU SDWAACF2 03740000 SDWASPIN EQU SDWAACF2 03741000 @NM00134 EQU SDWAACF2 03742000 SDWALCPU EQU SDWACPUA+2 03743000 @NM00133 EQU SDWACPUA 03744000 SDWARECA EQU SDWA+244 03745000 SDWARTYA EQU SDWA+240 03746000 @NM00132 EQU SDWA+239 03747000 @NM00131 EQU SDWAIOFS 03748000 SDWANIOP EQU SDWAIOFS 03749000 SDWANOIO EQU SDWAIOFS 03750000 SDWAIOHT EQU SDWAIOFS 03751000 SDWAIOQR EQU SDWAIOFS 03752000 @NM00130 EQU SDWAERRD 03753000 SDWAMCIV EQU SDWAERRD 03754000 SDWARPIV EQU SDWAERRD 03755000 SDWAMABD EQU SDWAERRD 03756000 SDWACTS EQU SDWAERRD 03757000 SDWASTAE EQU SDWAERRD 03758000 SDWANRBE EQU SDWAERRD 03759000 SDWACLUP EQU SDWAERRD 03760000 @NM00129 EQU SDWAERRC 03761000 SDWAEAS EQU SDWAERRC 03762000 SDWAIRB EQU SDWAERRC 03763000 SDWASTAI EQU SDWAERRC 03764000 SDWASTAF EQU SDWAERRC 03765000 SDWASRBM EQU SDWAERRB 03766000 SDWALDIS EQU SDWAERRB 03767000 SDWAENRB EQU SDWAERRB 03768000 SDWATYP1 EQU SDWAERRB 03769000 @NM00128 EQU SDWAERRB 03770000 SDWAPGIO EQU SDWAERRA 03771000 SDWATEXC EQU SDWAERRA 03772000 SDWASVCE EQU SDWAERRA 03773000 SDWAABTM EQU SDWAERRA 03774000 SDWASVCD EQU SDWAERRA 03775000 SDWARKEY EQU SDWAERRA 03776000 SDWAPCHK EQU SDWAERRA 03777000 SDWAMCHK EQU SDWAERRA 03778000 SDWATIME EQU SDWAMCH+20 03779000 SDWARFSA EQU SDWAMCH+16 03780000 @NM00127 EQU SDWAMCH+14 03781000 SDWAVEQR EQU SDWARSR2 03782000 SDWAPGFX EQU SDWARSR2 03783000 SDWAFLSQ EQU SDWARSR2 03784000 SDWAFSQA EQU SDWARSR2 03785000 SDWANUCL EQU SDWARSR2 03786000 SDWASPER EQU SDWARSR2 03787000 SDWAINTC EQU SDWARSR2 03788000 SDWAOFLN EQU SDWARSR2 03789000 SDWACHNG EQU SDWARSR1 03790000 SDWAMSER EQU SDWARSR1 03791000 @NM00126 EQU SDWARSR1 03792000 SDWACPID EQU SDWAMCH+10 03793000 SDWATERR EQU SDWAMCHD 03794000 SDWAFPRX EQU SDWAMCHD 03795000 SDWAINSF EQU SDWAMCHD 03796000 SDWAACR EQU SDWAMCHD 03797000 SDWASCK EQU SDWAMCHD 03798000 SDWAPSWU EQU SDWAMCHD 03799000 SDWAREGU EQU SDWAMCHD 03800000 SDWASKYF EQU SDWAMCHD 03801000 @NM00125 EQU SDWAMCHS 03802000 SDWARSRF EQU SDWAMCHS 03803000 SDWARSRC EQU SDWAMCHS 03804000 SDWAINVP EQU SDWAMCHS 03805000 SDWATSVL EQU SDWAMCHS 03806000 SDWARCDF EQU SDWAMCHS 03807000 SDWASRVL EQU SDWAMCHS 03808000 SDWASCKE EQU SDWASTCK+4 03809000 SDWASCKB EQU SDWASTCK 03810000 SDWALNTH EQU SDWAIDNT+1 03811000 SDWASPID EQU SDWAIDNT 03812000 SDWASR15 EQU SDWASRSV+60 03813000 SDWASR14 EQU SDWASRSV+56 03814000 SDWASR13 EQU SDWASRSV+52 03815000 SDWASR12 EQU SDWASRSV+48 03816000 SDWASR11 EQU SDWASRSV+44 03817000 SDWASR10 EQU SDWASRSV+40 03818000 SDWASR09 EQU SDWASRSV+36 03819000 SDWASR08 EQU SDWASRSV+32 03820000 SDWASR07 EQU SDWASRSV+28 03821000 SDWASR06 EQU SDWASRSV+24 03822000 SDWASR05 EQU SDWASRSV+20 03823000 SDWASR04 EQU SDWASRSV+16 03824000 SDWASR03 EQU SDWASRSV+12 03825000 SDWASR02 EQU SDWASRSV+8 03826000 SDWASR01 EQU SDWASRSV+4 03827000 SDWASR00 EQU SDWASRSV 03828000 SDWATRN2 EQU SDWAAEC2+4 03829000 SDWAIPC2 EQU SDWAICD2 03830000 SDWAIMC2 EQU SDWAICD2 03831000 SDWAIPR2 EQU SDWAICD2 03832000 @NM00124 EQU SDWAINC2 03833000 @NM00123 EQU SDWAILC2 03834000 SDWAIL2 EQU SDWAILC2 03835000 @NM00122 EQU SDWAILC2 03836000 @NM00121 EQU SDWAAEC2 03837000 SDWAADD2 EQU SDWANXT2+1 03838000 @NM00120 EQU SDWANXT2 03839000 @NM00119 EQU SDWAEC2+3 03840000 SDWASGN2 EQU SDWAINT2 03841000 SDWAEXP2 EQU SDWAINT2 03842000 SDWADEC2 EQU SDWAINT2 03843000 SDWAFPO2 EQU SDWAINT2 03844000 SDWACC2 EQU SDWAINT2 03845000 @NM00118 EQU SDWAINT2 03846000 SDWAPGM2 EQU SDWAMWP2 03847000 SDWAWAT2 EQU SDWAMWP2 03848000 SDWAMCK2 EQU SDWAMWP2 03849000 SDWAECT2 EQU SDWAMWP2 03850000 SDWAKEY2 EQU SDWAMWP2 03851000 SDWAEXT2 EQU SDWAEMK2 03852000 SDWAIO2 EQU SDWAEMK2 03853000 SDWATRM2 EQU SDWAEMK2 03854000 @NM00117 EQU SDWAEMK2 03855000 SDWAPER2 EQU SDWAEMK2 03856000 @NM00116 EQU SDWAEMK2 03857000 SDWATRAN EQU SDWAAEC1+4 03858000 SDWAIPC1 EQU SDWAICD1 03859000 SDWAIMC1 EQU SDWAICD1 03860000 SDWAIPR1 EQU SDWAICD1 03861000 @NM00115 EQU SDWAINC1 03862000 @NM00114 EQU SDWAILC1 03863000 SDWAIL1 EQU SDWAILC1 03864000 @NM00113 EQU SDWAILC1 03865000 @NM00112 EQU SDWAAEC1 03866000 SDWAADD1 EQU SDWANXT1+1 03867000 @NM00111 EQU SDWANXT1 03868000 @NM00110 EQU SDWAEC1+3 03869000 SDWASGN1 EQU SDWAINT1 03870000 SDWAEXP1 EQU SDWAINT1 03871000 SDWADEC1 EQU SDWAINT1 03872000 SDWAFPO1 EQU SDWAINT1 03873000 SDWACC1 EQU SDWAINT1 03874000 @NM00109 EQU SDWAINT1 03875000 SDWAPGM1 EQU SDWAMWP1 03876000 SDWAWAT1 EQU SDWAMWP1 03877000 SDWAMCK1 EQU SDWAMWP1 03878000 SDWAECT1 EQU SDWAMWP1 03879000 SDWAKEY1 EQU SDWAMWP1 03880000 SDWAEXT1 EQU SDWAEMK1 03881000 SDWAIO1 EQU SDWAEMK1 03882000 SDWATRM1 EQU SDWAEMK1 03883000 @NM00108 EQU SDWAEMK1 03884000 SDWAPER1 EQU SDWAEMK1 03885000 @NM00107 EQU SDWAEMK1 03886000 SDWAIOBR EQU SDWA+100 03887000 SDWAEPA EQU SDWA+96 03888000 @NM00106 EQU SDWANAME+4 03889000 SDWARBAD EQU SDWANAME 03890000 SDWAGR15 EQU SDWAGRSV+60 03891000 SDWAGR14 EQU SDWAGRSV+56 03892000 SDWAGR13 EQU SDWAGRSV+52 03893000 SDWAGR12 EQU SDWAGRSV+48 03894000 SDWAGR11 EQU SDWAGRSV+44 03895000 SDWAGR10 EQU SDWAGRSV+40 03896000 SDWAGR09 EQU SDWAGRSV+36 03897000 SDWAGR08 EQU SDWAGRSV+32 03898000 SDWAGR07 EQU SDWAGRSV+28 03899000 SDWAGR06 EQU SDWAGRSV+24 03900000 SDWAGR05 EQU SDWAGRSV+20 03901000 SDWAGR04 EQU SDWAGRSV+16 03902000 SDWAGR03 EQU SDWAGRSV+12 03903000 SDWAGR02 EQU SDWAGRSV+8 03904000 SDWAGR01 EQU SDWAGRSV+4 03905000 SDWAGR00 EQU SDWAGRSV 03906000 SDWANXTP EQU SDWACTL2+5 03907000 SDWASGP EQU SDWAPMKP 03908000 SDWAEUP EQU SDWAPMKP 03909000 SDWADOP EQU SDWAPMKP 03910000 SDWAFPP EQU SDWAPMKP 03911000 SDWACCP EQU SDWAPMKP 03912000 SDWAILP EQU SDWAPMKP 03913000 SDWAINTP EQU SDWACTL2+2 03914000 SDWASPVP EQU SDWAMWPP 03915000 SDWAWATP EQU SDWAMWPP 03916000 SDWAMCKP EQU SDWAMWPP 03917000 @NM00105 EQU SDWAMWPP 03918000 SDWAKEYP EQU SDWAMWPP 03919000 SDWAEXTP EQU SDWACMKP 03920000 SDWAIOP EQU SDWACMKP 03921000 SDWANXTA EQU SDWACTL1+5 03922000 SDWASGA EQU SDWAPMKA 03923000 SDWAEUA EQU SDWAPMKA 03924000 SDWADOA EQU SDWAPMKA 03925000 SDWAFPA EQU SDWAPMKA 03926000 SDWACCA EQU SDWAPMKA 03927000 SDWAILA EQU SDWAPMKA 03928000 SDWAINTA EQU SDWACTL1+2 03929000 SDWASPVA EQU SDWAMWPA 03930000 SDWAWATA EQU SDWAMWPA 03931000 SDWAMCKA EQU SDWAMWPA 03932000 @NM00104 EQU SDWAMWPA 03933000 SDWAKEYA EQU SDWAMWPA 03934000 SDWAEXTA EQU SDWACMKA 03935000 SDWAIOA EQU SDWACMKA 03936000 SDWACMPC EQU SDWAABCC+1 03937000 @NM00103 EQU SDWACMPF 03938000 SDWASTCC EQU SDWACMPF 03939000 @NM00102 EQU SDWACMPF 03940000 SDWASTEP EQU SDWACMPF 03941000 SDWAREQ EQU SDWACMPF 03942000 RMPLDCBL EQU RMPL+20 03943000 RMPLRBPA EQU RMPL+12 03944000 RMPLFLG2 EQU RMPL+1 03945000 @NM00101 EQU RMPLFLG1 03946000 RMPLWT1M EQU RMPLFLG1 03947000 RMPLJST EQU RMPLFLG1 03948000 RMPLRCOV EQU RMPLFLG1 03949000 RMPLIPUF EQU RMPLFLG1 03950000 RMPLRBPP EQU RMPLFLG1 03951000 RMPLTERM EQU RMPLFLG1 03952000 RMPLTYPE EQU RMPLFLG1 03953000 IQEOUTLM EQU IQESECT+20 03954000 IQEDCB EQU IQESECT+16 03955000 IQESTAT2 EQU IQETCB 03956000 @NM00100 EQU IQEFLAGS 03957000 @NM00099 EQU IQEFLAGS 03958000 @NM00098 EQU IQEFLAGS 03959000 @NM00097 EQU IQEFLAGS 03960000 @NM00096 EQU IQEFLAGS 03961000 @NM00095 EQU IQEFLAGS 03962000 @NM00094 EQU IQEFLAGS 03963000 IQEPURGE EQU IQEFLAGS 03964000 IQELNKA EQU IQELNK+1 03965000 IQESTAT1 EQU IQELNK 03966000 SVRBEND EQU RBSECT+192 03967000 RBFEPARM EQU RBSECT+168 03968000 SIRBEND EQU RBSECT+168 03969000 RBRSV158 EQU RBRSV150 03970000 RBRSV157 EQU RBRSV150 03971000 RBRSV156 EQU RBRSV150 03972000 RBRSV155 EQU RBRSV150 03973000 RBRSV154 EQU RBRSV150 03974000 RBRSV153 EQU RBRSV150 03975000 RBRSV152 EQU RBRSV150 03976000 RBRSV151 EQU RBRSV150 03977000 RBRSV149 EQU RBSECT+166 03978000 RBRSV148 EQU RBSECT+164 03979000 RBRSV169 EQU RBSDATA+3 03980000 RBSID EQU RBSDATA+2 03981000 RBSPKEY EQU RBSDATA+1 03982000 RBRSV168 EQU RBSFLG3 03983000 RBSTERMO EQU RBSFLG3 03984000 RBSBRNTR EQU RBSFLG3 03985000 RBSPRNTR EQU RBSFLG3 03986000 RBSCNCEL EQU RBSFLG3 03987000 RBSRECRD EQU RBSFLG3 03988000 RBSTERMI EQU RBSFLG3 03989000 RBRSV167 EQU RBSFLG3 03990000 RBSOWNRA EQU RBSOWNR+1 03991000 RBSSUPER EQU RBSFLGS2 03992000 RBSKEY0 EQU RBSFLGS2 03993000 RBRSV166 EQU RBSFLGS2 03994000 RBRSV165 EQU RBSFLGS2 03995000 RBSINUSE EQU RBSFLGS2 03996000 RBRSV164 EQU RBSFLGS2 03997000 RBSXCTL2 EQU RBSFLGS2 03998000 RBRSV163 EQU RBSFLGS2 03999000 RBSPARMA EQU RBSPARM+1 04000000 RBSHALT EQU RBSIOPRC 04001000 RBSNOIOP EQU RBSIOPRC 04002000 RBSASYNC EQU RBSFLGS1 04003000 RBRSV162 EQU RBSFLGS1 04004000 RBSESTAE EQU RBSFLGS1 04005000 RBSDUMMY EQU RBSFLGS1 04006000 RBSSTAR EQU RBSFLGS1 04007000 RBSSTAI EQU RBSFLGS1 04008000 RBSEXIT EQU RBSCBB+4 04009000 RBSCHAIN EQU RBSCBB 04010000 TIRBEND EQU @NM00092+8 04011000 PRBEND EQU @NM00092+8 04012000 RBRSV146 EQU RBRSV138 04013000 RBRSV145 EQU RBRSV138 04014000 RBRSV144 EQU RBRSV138 04015000 RBRSV143 EQU RBRSV138 04016000 RBRSV142 EQU RBRSV138 04017000 RBRSV141 EQU RBRSV138 04018000 RBRSV140 EQU RBRSV138 04019000 RBRSV139 EQU RBRSV138 04020000 RBRSV137 EQU @NM00092+6 04021000 RBRSV136 EQU @NM00092+4 04022000 RBRSV135 EQU @NM00092 04023000 @NM00091 EQU RBSECT+32 04024000 @NM00090 EQU @NM00088+1 04025000 RBSCF EQU @NM00089 04026000 RBPGMQ1 EQU RBPGMQ+1 04027000 @NM00087 EQU RBPGMQ 04028000 @NM00086 EQU RBSECT+16 04029000 @NM00085 EQU @NM00081 04030000 @NM00084 EQU @NM00081 04031000 RBIQETP EQU @NM00081 04032000 RBUSIQE EQU RBETXR 04033000 RBATTN EQU @NM00081 04034000 @NM00083 EQU @NM00081 04035000 @NM00082 EQU @NM00081 04036000 RBPMSVRB EQU @NM00079 04037000 RBATNXIT EQU @NM00079 04038000 @NM00080 EQU @NM00079 04039000 RBWAITP EQU @NM00079 04040000 RBFNSVRB EQU RBTRSVRB 04041000 RBFTP EQU @NM00079 04042000 RBABOPSW EQU RBSECT+4 04043000 RBPPSAV1 EQU RBPPSAV+1 04044000 @NM00077 EQU RBPPSAV 04045000 RBPRFXND EQU RBPREFIX+64 04046000 RBINTCOD EQU RBINTCDA+1 04047000 RBINLNTH EQU RBINTCDA 04048000 RBRSV004 EQU RBPREFIX+57 04049000 RBSSSYN EQU RBFLAGS1 04050000 RBSCB EQU RBFLAGS1 04051000 RBLONGWT EQU RBFLAGS1 04052000 RBASIR EQU RBFLAGS1 04053000 RBRSV159 EQU RBFLAGS1 04054000 RBABEND EQU RBFLAGS1 04055000 RBXWAIT EQU RBFLAGS1 04056000 RBSLOCK EQU RBFLAGS1 04057000 RBRTRAN EQU RBRTPSW2+4 04058000 RBRTINCD EQU RBRTICIL+2 04059000 RBRTILC EQU RBRTICIL+1 04060000 RBRSV160 EQU RBRTICIL 04061000 RBRTPSW1 EQU RBRTOPSW 04062000 RBRSV062 EQU RBRSV054 04063000 RBRSV061 EQU RBRSV054 04064000 RBRSV060 EQU RBRSV054 04065000 RBRSV059 EQU RBRSV054 04066000 RBRSV058 EQU RBRSV054 04067000 RBRSV057 EQU RBRSV054 04068000 RBRSV056 EQU RBRSV054 04069000 RBRSV055 EQU RBRSV054 04070000 RBRSV053 EQU RBPREFIX+38 04071000 RBRSV052 EQU RBPREFIX+36 04072000 RBRSV051 EQU RBPREFIX+32 04073000 RBPRFXST EQU RBPREFIX+32 04074000 RBRSV050 EQU RBPREFIX+28 04075000 RBRSV049 EQU RBRSV041 04076000 RBRSV048 EQU RBRSV041 04077000 RBRSV047 EQU RBRSV041 04078000 RBRSV046 EQU RBRSV041 04079000 RBRSV045 EQU RBRSV041 04080000 RBRSV044 EQU RBRSV041 04081000 RBRSV043 EQU RBRSV041 04082000 RBRSV042 EQU RBRSV041 04083000 RBRSV040 EQU RBPREFIX+26 04084000 RBRSV039 EQU RBPREFIX+24 04085000 RBRSV038 EQU RBPREFIX+20 04086000 RBRSV037 EQU RBPREFIX+16 04087000 RBRSV036 EQU RBRSV028 04088000 RBRSV035 EQU RBRSV028 04089000 RBRSV034 EQU RBRSV028 04090000 RBRSV033 EQU RBRSV028 04091000 RBRSV032 EQU RBRSV028 04092000 RBRSV031 EQU RBRSV028 04093000 RBRSV030 EQU RBRSV028 04094000 RBRSV029 EQU RBRSV028 04095000 RBRSV027 EQU RBRSV019 04096000 RBRSV026 EQU RBRSV019 04097000 RBRSV025 EQU RBRSV019 04098000 RBRSV024 EQU RBRSV019 04099000 RBRSV023 EQU RBRSV019 04100000 RBRSV022 EQU RBRSV019 04101000 RBRSV021 EQU RBRSV019 04102000 RBRSV020 EQU RBRSV019 04103000 RBRSV018 EQU RBPREFIX+13 04104000 RBRSV017 EQU RBPREFIX+12 04105000 RBSRV016 EQU RBPREFIX+11 04106000 RBRSV015 EQU RBPREFIX+10 04107000 RBRSV014 EQU RBPREFIX+8 04108000 RBRSV013 EQU RBPREFIX+4 04109000 RBRSV012 EQU RBPREFIX 04110000 RBEXSAVE EQU XRBESA 04111000 XRBREG15 EQU RBGRS15 04112000 XRBREG14 EQU RBGRS14 04113000 XRBREG13 EQU RBGRS13 04114000 XRBREG12 EQU RBGRS12 04115000 XRBREG11 EQU RBGRS11 04116000 XRBREG10 EQU RBGRS10 04117000 XRBREG9 EQU RBGRS9 04118000 XRBREG8 EQU RBGRS8 04119000 XRBREG7 EQU RBGRS7 04120000 XRBREG6 EQU RBGRS6 04121000 XRBREG5 EQU RBGRS5 04122000 XRBREG4 EQU RBGRS4 04123000 XRBREG3 EQU RBGRS3 04124000 XRBREG2 EQU RBGRS2 04125000 XRBREG1 EQU RBGRS1 04126000 XRBREG0 EQU RBGRS0 04127000 XRBLNKA EQU RBLINKB 04128000 XRBWT EQU RBWCF 04129000 @NM00076 EQU RBBASIC+24 04130000 RBOPSWPS EQU RBOPSWB2 04131000 @NM00075 EQU RBOPSWB2 04132000 @NM00074 EQU XRBPSW 04133000 @NM00073 EQU RBBASIC+12 04134000 XRBWAIT EQU RBECBWT 04135000 XRBFRRB EQU RBFDYN 04136000 @NM00072 EQU XSTAB2 04137000 XRBACTV EQU RBFACTV 04138000 XRBTCBP EQU RBTCBNXT 04139000 @NM00071 EQU XSTAB1 04140000 XRBCKPT EQU RBFTCKPT 04141000 @NM00070 EQU XSTAB1 04142000 @NM00069 EQU RBBASIC+8 04143000 @NM00068 EQU RBEXRTNM+1 04144000 RBTMIND3 EQU RBTMFLD 04145000 RBTMIND2 EQU RBTMFLD 04146000 RBTMCMP EQU RBTMFLD 04147000 RBWLIM EQU RBTMFLD 04148000 RBRSV005 EQU RBTMFLD 04149000 RBTMTOD EQU RBTMFLD 04150000 RBTMQUE EQU RBTMFLD 04151000 @NM00067 EQU RBPRFX 04152000 @NM00065 EQU SRB+40 04153000 @NM00064 EQU SRB+38 04154000 SRBPRIOR EQU SRB+37 04155000 SRBPKF EQU SRB+36 04156000 SRBSAVE EQU SRB+32 04157000 SRBRMTR EQU SRB+24 04158000 SRBPASID EQU SRBFLC+2 04159000 SRBCPAFF EQU SRBFLC 04160000 SRBID EQU SRB 04161000 @NM00063 EQU TCBXTNT2+32 04162000 TCBRV181 EQU TCBRV173 04163000 TCBRV180 EQU TCBRV173 04164000 TCBRV179 EQU TCBRV173 04165000 TCBRV178 EQU TCBRV173 04166000 TCBRV177 EQU TCBRV173 04167000 TCBRV176 EQU TCBRV173 04168000 TCBRV175 EQU TCBRV173 04169000 TCBRV174 EQU TCBRV173 04170000 TCBRV172 EQU TCBRV164 04171000 TCBRV171 EQU TCBRV164 04172000 TCBRV170 EQU TCBRV164 04173000 TCBRV169 EQU TCBRV164 04174000 TCBRV168 EQU TCBRV164 04175000 TCBRV167 EQU TCBRV164 04176000 TCBRV166 EQU TCBRV164 04177000 TCBRV165 EQU TCBRV164 04178000 TCBRV163 EQU TCBRV155 04179000 TCBRV162 EQU TCBRV155 04180000 TCBRV161 EQU TCBRV155 04181000 TCBRV160 EQU TCBRV155 04182000 TCBRV159 EQU TCBRV155 04183000 TCBRV158 EQU TCBRV155 04184000 TCBRV157 EQU TCBRV155 04185000 TCBRV156 EQU TCBRV155 04186000 TCBRV154 EQU TCBRV146 04187000 TCBRV153 EQU TCBRV146 04188000 TCBRV152 EQU TCBRV146 04189000 TCBRV151 EQU TCBRV146 04190000 TCBRV150 EQU TCBRV146 04191000 TCBRV149 EQU TCBRV146 04192000 TCBRV148 EQU TCBRV146 04193000 TCBRV147 EQU TCBRV146 04194000 TCBRV145 EQU TCBXTNT2+26 04195000 TCBRV144 EQU TCBXTNT2+24 04196000 TCBRV143 EQU TCBXTNT2+20 04197000 TCBRV142 EQU TCBXTNT2+16 04198000 TCBRSV49 EQU TCBXTNT2+12 04199000 TCBEVENT EQU TCBXTNT2+8 04200000 TCBRCMP EQU TCBXTNT2+5 04201000 TCBRSVAB EQU TCBXTNT2+4 04202000 TCBGTFA EQU TCBGTF+1 04203000 TCBRSV47 EQU TCBTFLG 04204000 TCBRSV46 EQU TCBTFLG 04205000 TCBRSV45 EQU TCBTFLG 04206000 TCBRSV44 EQU TCBTFLG 04207000 TCBRSV43 EQU TCBTFLG 04208000 TCBDSPIT EQU TCBTFLG 04209000 TCBERRTN EQU TCBTFLG 04210000 TCBASYNC EQU TCBTFLG 04211000 @NM00062 EQU TCB+296 04212000 TCBSVCA2 EQU TCB+292 04213000 TCBSWASA EQU TCB+288 04214000 TCBDBTB EQU TCB+284 04215000 TCBRPT EQU TCB+280 04216000 TCBRV141 EQU TCBRV133 04217000 TCBRV140 EQU TCBRV133 04218000 TCBRV139 EQU TCBRV133 04219000 TCBRV138 EQU TCBRV133 04220000 TCBRV137 EQU TCBRV133 04221000 TCBRV136 EQU TCBRV133 04222000 TCBRV135 EQU TCBRV133 04223000 TCBRV134 EQU TCBRV133 04224000 TCBRV132 EQU TCBRV124 04225000 TCBRV131 EQU TCBRV124 04226000 TCBRV130 EQU TCBRV124 04227000 TCBRV129 EQU TCBRV124 04228000 TCBRV128 EQU TCBRV124 04229000 TCBRV127 EQU TCBRV124 04230000 TCBRV126 EQU TCBRV124 04231000 TCBRV125 EQU TCBRV124 04232000 TCBRV123 EQU TCBFBYT2 04233000 TCBRV122 EQU TCBFBYT2 04234000 TCBECBNV EQU TCBFBYT2 04235000 TCBSSSYN EQU TCBFBYT2 04236000 TCBFPRAP EQU TCBFBYT2 04237000 TCBFDW EQU TCBFBYT2 04238000 TCBFMW EQU TCBFBYT2 04239000 TCBCNCB EQU TCBFBYT2 04240000 TCBLLH EQU TCBFBYT1 04241000 TCBRV113 EQU TCBFBYT1 04242000 TCBEOT EQU TCBFBYT1 04243000 TCBRTM2 EQU TCBFBYT1 04244000 TCBPGNLY EQU TCBFBYT1 04245000 TCBNDIOS EQU TCBFBYT1 04246000 TCBRV327 EQU TCBFBYT1 04247000 TCBEOTFM EQU TCBFBYT1 04248000 TCBAFFN EQU TCB+274 04249000 TCBRV326 EQU TCB+272 04250000 TCBUKYSP EQU TCB+268 04251000 TCBMODE EQU TCBESTAE+3 04252000 TCBERTYP EQU TCBESTAE+2 04253000 TCBRV314 EQU TCBESTRM 04254000 TCBRV313 EQU TCBESTRM 04255000 TCBRV312 EQU TCBESTRM 04256000 TCBRV311 EQU TCBESTRM 04257000 TCBRV310 EQU TCBESTRM 04258000 TCBRV309 EQU TCBESTRM 04259000 TCBRV308 EQU TCBESTRM 04260000 TCBETERM EQU TCBESTRM 04261000 TCBSCBKY EQU TCBESTAE 04262000 TCBRTM12 EQU TCB+260 04263000 TCBTCBID EQU TCB+256 04264000 TCBSTAWA EQU TCB+252 04265000 TCBSWA EQU TCB+248 04266000 TCBFOEA EQU TCBFOE+1 04267000 TCBRSV42 EQU TCBFOE 04268000 TCBCCPVI EQU TCBXSCT+2 04269000 TCBRV325 EQU TCBXSCT+1 04270000 TCBRV324 EQU TCBXSCT1 04271000 TCBRV323 EQU TCBXSCT1 04272000 TCBRV322 EQU TCBXSCT1 04273000 TCBRV321 EQU TCBXSCT1 04274000 TCBRV320 EQU TCBXSCT1 04275000 TCBRV319 EQU TCBXSCT1 04276000 TCBS3A EQU TCBXSCT1 04277000 TCBACTIV EQU TCBXSCT1 04278000 TCBRSV41 EQU TCB+239 04279000 TCBTID EQU TCB+238 04280000 TCBRSVAA EQU TCB+237 04281000 TCBABCUR EQU TCB+236 04282000 TCBTMSAV EQU TCB+232 04283000 TCBIOTIM EQU TCB+228 04284000 TCBRTWA EQU TCB+224 04285000 TCBBACK EQU TCB+220 04286000 TCBTIRB EQU TCB+216 04287000 TCBAECB EQU TCB+212 04288000 TCBEXT2A EQU TCBEXT2+1 04289000 TCBRSV39 EQU TCBEXT2 04290000 TCBSTMCT EQU TCB+207 04291000 TCBSYSCT EQU TCB+206 04292000 TCBRSV37 EQU TCB+205 04293000 TCBEXSVC EQU TCBDAR 04294000 TCBDARMS EQU TCBDAR 04295000 TCBDARWT EQU TCBDAR 04296000 TCBDARO EQU TCBDAR 04297000 TCBDARMC EQU TCBDARC 04298000 TCBDARD EQU TCBDAR 04299000 TCBDARS EQU TCBDAR 04300000 TCBDARP EQU TCBDAR 04301000 TCBGTOFM EQU TCBFLGS7 04302000 TCBADMP EQU TCBFLGS7 04303000 TCBRSTSK EQU TCBFLGS7 04304000 TCBSVCS EQU TCBFLGS7 04305000 TCBSTACK EQU TCBFLGS7 04306000 TCBRSV34 EQU TCBFLGS7 04307000 TCBRSV33 EQU TCBFLGS7 04308000 TCBGPECB EQU TCBFLGS7 04309000 TCBNTJS EQU TCBFLGS6 04310000 TCBAPG EQU TCBFLGS6 04311000 TCBMIGR EQU TCBFLGS6 04312000 TCBRV303 EQU TCBFLGS6 04313000 TCBSPVLK EQU TCBFLGS6 04314000 TCBCPU EQU TCBFLGS6 04315000 TCBPIE17 EQU TCBFLGS6 04316000 TCBRV EQU TCBFLGS6 04317000 TCBRSV79 EQU TCBNDSP5 04318000 TCBRSV78 EQU TCBNDSP5 04319000 TCBRSV77 EQU TCBNDSP5 04320000 TCBRSV76 EQU TCBNDSP5 04321000 TCBRSV75 EQU TCBNDSP5 04322000 TCBRSV74 EQU TCBNDSP5 04323000 TCBRSV95 EQU TCBNDSP5 04324000 TCBRSV94 EQU TCBNDSP5 04325000 TCBRSV93 EQU TCBNDSP4 04326000 TCBRSV92 EQU TCBNDSP4 04327000 TCBRSV91 EQU TCBNDSP4 04328000 TCBRSV90 EQU TCBNDSP4 04329000 TCBRSV89 EQU TCBNDSP4 04330000 TCBRSV88 EQU TCBNDSP4 04331000 TCBRSV87 EQU TCBNDSP4 04332000 TCBRSV86 EQU TCBNDSP4 04333000 TCBEXT1A EQU TCBEXT1+1 04334000 TCBRSV32 EQU TCBEXT1 04335000 TCBEXCPD EQU TCB+192 04336000 TCBIOBRC EQU TCB+188 04337000 TCBDDWTC EQU TCB+186 04338000 TCBDDEXC EQU TCB+184 04339000 TCBJSCBB EQU TCBJSCB+1 04340000 @NM00061 EQU TCBRECDE 04341000 TCBREC EQU TCBRECDE 04342000 TCBMDIDS EQU TCB+176 04343000 TCBNDINT EQU TCBNDSP3 04344000 TCBRSV27 EQU TCBNDSP3 04345000 TCBRSV26 EQU TCBNDSP3 04346000 TCBRSV25 EQU TCBNDSP3 04347000 TCBRSV24 EQU TCBNDSP3 04348000 TCBSRBND EQU TCBNDSP3 04349000 TCBRV302 EQU TCBNDSP3 04350000 TCBLJSND EQU TCBNDSP3 04351000 TCBABE EQU TCBNDSP2 04352000 TCBDSS EQU TCBNDSP2 04353000 TCBOWAIT EQU TCBNDSP2 04354000 TCBIWAIT EQU TCBNDSP2 04355000 TCBNDTS EQU TCBNDSP2 04356000 TCBNDSVC EQU TCBNDSP2 04357000 TCBSTPP EQU TCBNDSP2 04358000 TCBABD EQU TCBNDSP2 04359000 TCBRSV22 EQU TCBNDSP1 04360000 TCBPIEND EQU TCBNDSP1 04361000 TCBTPSP EQU TCBNDSP1 04362000 TCBDDRND EQU TCBNDSP1 04363000 TCBRSPND EQU TCBNDSP1 04364000 TCBRSTND EQU TCBNDSP1 04365000 TCBDARPN EQU TCBNDSP1 04366000 TCBDARTN EQU TCBNDSP1 04367000 TCBNDSP0 EQU TCBNDSP 04368000 TCBUSER EQU TCB+168 04369000 TCBTCTB EQU TCBTCT+1 04370000 TCBRSV9C EQU TCBTCTGF 04371000 TCBRSV9B EQU TCBTCTGF 04372000 TCBRSV9A EQU TCBTCTGF 04373000 TCBRSV99 EQU TCBTCTGF 04374000 TCBRSV98 EQU TCBTCTGF 04375000 TCBRSV97 EQU TCBTCTGF 04376000 TCBRSV20 EQU TCBTCTGF 04377000 TCBSMFGF EQU TCBTCTGF 04378000 TCBSTABB EQU TCBSTAB+1 04379000 TCBSTCUR EQU TCBNSTAE 04380000 TCBRV301 EQU TCBNSTAE 04381000 TCBSYNCH EQU TCBNSTAE 04382000 TCBHALT EQU TCBNSTAE 04383000 TCBPPSUP EQU TCBNSTAE 04384000 TCB33E EQU TCBNSTAE 04385000 TCBQUIES EQU TCBNSTAE 04386000 TCBSTABE EQU TCBNSTAE 04387000 TCBAQE EQU TCB+156 04388000 TCBPQE EQU TCB+152 04389000 TCBTSDP EQU TCB+151 04390000 TCBTSLP EQU TCB+150 04391000 TCBSTPCT EQU TCB+149 04392000 TCBCPUBN EQU TCBTSFLG 04393000 TCBDYDSP EQU TCBTSFLG 04394000 TCBRSV18 EQU TCBTSFLG 04395000 TCBRSV17 EQU TCBTSFLG 04396000 TCBTIOTG EQU TCBTSFLG 04397000 TCBATT EQU TCBTSFLG 04398000 TCBSTPPR EQU TCBTSFLG 04399000 TCBRV300 EQU TCBTSTSK 04400000 TCBECB EQU TCB+144 04401000 TCBIQE EQU TCB+140 04402000 TCBLTC EQU TCB+136 04403000 TCBOTC EQU TCB+132 04404000 TCBNTC EQU TCB+128 04405000 TCBJSTCA EQU TCBJSTCB+1 04406000 TCBRSV16 EQU TCBJSTCB 04407000 TCBTQET EQU TCBTME 04408000 TCBTCB EQU TCB+116 04409000 TCBFSAB EQU TCBFSA+1 04410000 TCBQEL EQU TCBFSA 04411000 TCBGRS15 EQU TCBGRS+60 04412000 TCBGRS14 EQU TCBGRS+56 04413000 TCBGRS13 EQU TCBGRS+52 04414000 TCBGRS12 EQU TCBGRS+48 04415000 TCBGRS11 EQU TCBGRS+44 04416000 TCBGRS10 EQU TCBGRS+40 04417000 TCBGRS9 EQU TCBGRS+36 04418000 TCBGRS8 EQU TCBGRS+32 04419000 TCBGRS7 EQU TCBGRS+28 04420000 TCBGRS6 EQU TCBGRS+24 04421000 TCBGRS5 EQU TCBGRS+20 04422000 TCBGRS4 EQU TCBGRS+16 04423000 TCBGRS3 EQU TCBGRS+12 04424000 TCBGRS2 EQU TCBGRS+8 04425000 TCBGRS1 EQU TCBGRS+4 04426000 TCBGRS0 EQU TCBGRS 04427000 TCBJPQB EQU TCBJPQ+1 04428000 TCBRSV15 EQU TCBPURGE 04429000 TCBRSV14 EQU TCBPURGE 04430000 TCBRSV13 EQU TCBPURGE 04431000 TCBRSV12 EQU TCBPURGE 04432000 TCBRSV11 EQU TCBPURGE 04433000 TCBRSV10 EQU TCBPURGE 04434000 TCBRSV09 EQU TCBPURGE 04435000 TCBJPQF EQU TCBPURGE 04436000 TCBJLB EQU TCB+40 04437000 TCBLLS EQU TCB+36 04438000 TCBDSP EQU TCB+35 04439000 TCBLMP EQU TCB+34 04440000 TCBPNDSP EQU TCBFLGS5 04441000 TCBFCD1 EQU TCBFLGS5 04442000 TCBSTP EQU TCBFLGS5 04443000 TCBSYS EQU TCBFLGS5 04444000 TCBANDSP EQU TCBFLGS5 04445000 TCBPAGE EQU TCBFLGS5 04446000 TCBUXNDF EQU TCBABWF 04447000 TCBFC EQU TCBFLGS5 04448000 TCBONDSP EQU TCBFLGS4 04449000 TCBMPCND EQU TCBFLGS4 04450000 TCBMPCVQ EQU TCBFLGS4 04451000 TCBUXNDV EQU TCBFLGS4 04452000 TCBHNDSP EQU TCBFLGS4 04453000 TCBRQENA EQU TCBFLGS4 04454000 TCBSER EQU TCBFLGS4 04455000 TCBNDUMP EQU TCBFLGS4 04456000 TCBDWSTA EQU TCBFLGS3 04457000 TCBRSV08 EQU TCBFLGS3 04458000 TCBRSV07 EQU TCBFLGS3 04459000 TCBRSV06 EQU TCBFLGS3 04460000 TCBABGM EQU TCBFLGS3 04461000 TCBABTRM EQU TCBFLGS3 04462000 TCBADINP EQU TCBFLGS3 04463000 TCBFSM EQU TCBFLGS3 04464000 TCBFTS EQU TCBFLGS2 04465000 TCBFETXR EQU TCBFLGS2 04466000 TCBFDSOP EQU TCBFLGS2 04467000 TCBFJMC EQU TCBFLGS2 04468000 TCBFSMC EQU TCBFLGS2 04469000 TCBFABOP EQU TCBFLGS2 04470000 TCBFSTI EQU TCBFLGS2 04471000 TCBFOINP EQU TCBFLGS2 04472000 TCBFX EQU TCBFLGS1 04473000 TCBFS EQU TCBFLGS1 04474000 TCBFT EQU TCBFLGS1 04475000 TCBPDUMP EQU TCBFLGS1 04476000 TCBNONPR EQU TCBFLGS1 04477000 TCBFERA EQU TCBFLGS1 04478000 TCBFE EQU TCBFLGS1 04479000 TCBFA EQU TCBFLGS1 04480000 TCBZERO EQU TCBPKF 04481000 TCBFLAG EQU TCBPKF 04482000 TCBMSSB EQU TCBMSS+1 04483000 TCBRSV03 EQU TCBMSS 04484000 TCBTRNB EQU TCBTRN+1 04485000 TCBRSV02 EQU TCBABF 04486000 TCBOLTEP EQU TCBABF 04487000 TCBTCP EQU TCBABF 04488000 TCBTCPP EQU TCBABF 04489000 TCBRSV01 EQU TCBABF 04490000 TCBGRPH EQU TCBABF 04491000 TCBNOCHK EQU TCBABF 04492000 TCBMOD91 EQU TCBABF 04493000 TCBCMPC EQU TCBCMP+1 04494000 TCBRV318 EQU TCBCMSG 04495000 TCBRV317 EQU TCBCIND 04496000 TCBRV316 EQU TCBCWTO 04497000 TCBCASID EQU TCBCDBL 04498000 TCBNOCC EQU TCBSTCC 04499000 TCBDMPO EQU TCBCPP 04500000 TCBCSTEP EQU TCBCMPF 04501000 TCBCREQ EQU TCBCMPF 04502000 TCBTIO EQU TCB+12 04503000 TCBDEB EQU TCB+8 04504000 TCBPIEA EQU TCBPIE+1 04505000 TCBPM EQU TCBPMASK 04506000 @NM00060 EQU TCBPMASK 04507000 TCBRBP EQU TCB 04508000 TCBFRS6 EQU TCBFRS+24 04509000 TCBFRS4 EQU TCBFRS+16 04510000 TCBFRS2 EQU TCBFRS+8 04511000 TCBFRS0 EQU TCBFRS 04512000 LRBCMPCS EQU LRBCMP+2 04513000 LRBCMPPA EQU LRBCMP 04514000 LRBCMPNO EQU LRBCVAR+6 04515000 LRBCMPF2 EQU LRBCVAR+5 04516000 LRBCMPF1 EQU LRBCVAR+4 04517000 LRBCRESD EQU LRBCVAR+2 04518000 LRBCFT EQU LRBCVAR 04519000 LRBHMCEL EQU LRBHCPID+6 04520000 LRBHMDL EQU LRBHCPID+4 04521000 LRBHCSER EQU LRBHCPID+1 04522000 @NM00033 EQU LRBHCPID 04523000 LRBHTIME EQU LRB+12 04524000 @NM00032 EQU LRB+7 04525000 LRBHCNT EQU LRB+6 04526000 LRBMCLB EQU LRBHSW3 04527000 LRBNDEM EQU LRBMACT 04528000 LRBNCEM EQU LRBMACT 04529000 @NM00031 EQU LRBHSW0 04530000 LRBHTMC EQU LRBHSW0 04531000 @NM00030 EQU LRBHSW0 04532000 LRBHNS EQU LRBHSW0 04533000 LRBHMORE EQU LRBHSW0 04534000 @NM00029 EQU LRBHSYS 04535000 LRBHSYSB EQU LRBHSYS 04536000 LRBHTYPE EQU LRB 04537000 ASCBEND EQU ASCB+208 04538000 ASCBSRBT EQU ASCB+200 04539000 ASCBSWTL EQU ASCB+196 04540000 ASCBRS14 EQU ASCB+195 04541000 ASCBSMCT EQU ASCB+194 04542000 ASCBRS12 EQU ASCB+192 04543000 ASCBPCTT EQU ASCB+188 04544000 ASCBVGTT EQU ASCB+184 04545000 ASCBRV43 EQU ASCBSRQ4 04546000 ASCBRV42 EQU ASCBSRQ4 04547000 ASCBRV41 EQU ASCBSRQ4 04548000 ASCBRV40 EQU ASCBSRQ4 04549000 ASCBRV39 EQU ASCBSRQ4 04550000 ASCBRV38 EQU ASCBSRQ4 04551000 ASCBRV37 EQU ASCBSRQ4 04552000 ASCBRV36 EQU ASCBSRQ4 04553000 ASCBRV35 EQU ASCBSRQ3 04554000 ASCBRV34 EQU ASCBSRQ3 04555000 ASCBRV33 EQU ASCBSRQ3 04556000 ASCBRV32 EQU ASCBSRQ3 04557000 ASCBRV31 EQU ASCBSRQ3 04558000 ASCBRV30 EQU ASCBSRQ3 04559000 ASCBRV29 EQU ASCBSRQ3 04560000 ASCBRV28 EQU ASCBSRQ3 04561000 ASCBRV27 EQU ASCBSRQ2 04562000 ASCBRV26 EQU ASCBSRQ2 04563000 ASCBRV25 EQU ASCBSRQ2 04564000 ASCBRV24 EQU ASCBSRQ2 04565000 ASCBRV23 EQU ASCBSRQ2 04566000 ASCBRV22 EQU ASCBSRQ2 04567000 ASCBRV21 EQU ASCBSRQ2 04568000 ASCBRV20 EQU ASCBSRQ2 04569000 ASCBRV19 EQU ASCBSRQ1 04570000 ASCBRV18 EQU ASCBSRQ1 04571000 ASCBRV17 EQU ASCBSRQ1 04572000 ASCBRV16 EQU ASCBSRQ1 04573000 ASCBRV15 EQU ASCBSRQ1 04574000 ASCBRV14 EQU ASCBSRQ1 04575000 ASCBRV13 EQU ASCBSRQ1 04576000 ASCBSTA EQU ASCBSRQ1 04577000 ASCBJBNS EQU ASCB+176 04578000 ASCBJBNI EQU ASCB+172 04579000 ASCBMCC EQU ASCB+168 04580000 ASCBRTWA EQU ASCB+164 04581000 ASCBIQEA EQU ASCB+160 04582000 ASCBXMPQ EQU ASCB+156 04583000 ASCBRS01 EQU ASCB+154 04584000 ASCBFMCT EQU ASCB+152 04585000 ASCBOUXB EQU ASCB+148 04586000 ASCBOUCB EQU ASCB+144 04587000 ASCBMECB EQU ASCB+140 04588000 ASCBQECB EQU ASCB+136 04589000 ASCBLSQH EQU ASCBLKGP+4 04590000 ASCBLOCK EQU ASCBLKGP 04591000 ASCBTCBS EQU ASCB+124 04592000 ASCBNVSC EQU ASCB+122 04593000 ASCBVSC EQU ASCB+120 04594000 ASCBSRBS EQU ASCB+118 04595000 ASCBSSRB EQU ASCB+116 04596000 ASCBRV06 EQU ASCBFLG2 04597000 ASCBRV05 EQU ASCBFLG2 04598000 ASCBRV04 EQU ASCBFLG2 04599000 ASCBSNQS EQU ASCBFLG2 04600000 ASCBS2S EQU ASCBFLG2 04601000 ASCBCEXT EQU ASCBFLG2 04602000 ASCBPXMT EQU ASCBFLG2 04603000 ASCBXMPT EQU ASCBFLG2 04604000 ASCBRF07 EQU ASCBDSP1 04605000 ASCBRF06 EQU ASCBDSP1 04606000 ASCBRF05 EQU ASCBDSP1 04607000 ASCBRF04 EQU ASCBDSP1 04608000 ASCBRF03 EQU ASCBDSP1 04609000 ASCBRF02 EQU ASCBDSP1 04610000 ASCBFAIL EQU ASCBDSP1 04611000 ASCBNOQ EQU ASCBDSP1 04612000 ASCBASXB EQU ASCB+108 04613000 ASCBTMCH EQU ASCB+104 04614000 ASCBNSWP EQU ASCBFLG1 04615000 ASCBTYP1 EQU ASCBFLG1 04616000 ASCBSTND EQU ASCBFLG1 04617000 ASCBABNT EQU ASCBFLG1 04618000 ASCBTERM EQU ASCBFLG1 04619000 ASCBS3S EQU ASCBFLG1 04620000 ASCBCMSH EQU ASCBFLG1 04621000 ASCBTOFF EQU ASCBFLG1 04622000 ASCBRF01 EQU ASCBRCTF 04623000 ASCBTMLW EQU ASCBRCTF 04624000 ASCBOUT EQU ASCBRCTF 04625000 ASCBWAIT EQU ASCBRCTF 04626000 ASCBRV08 EQU ASCBRCTF 04627000 ASCBFQU EQU ASCBRCTF 04628000 ASCBFRS EQU ASCBRCTF 04629000 ASCBTMNO EQU ASCBRCTF 04630000 ASCBDUMP EQU ASCB+96 04631000 ASCBRV44 EQU ASCB+92 04632000 ASCBUBET EQU ASCB+88 04633000 ASCBECB EQU ASCB+84 04634000 ASCBJSTL EQU ASCB+80 04635000 ASCBEWST EQU ASCB+72 04636000 ASCBEJST EQU ASCB+64 04637000 ASCBTSB EQU ASCB+60 04638000 ASCBCSCB EQU ASCB+56 04639000 ASCBRSMA EQU ASCBRSM+1 04640000 ASCBRV54 EQU ASCBRSMF 04641000 ASCBRV53 EQU ASCBRSMF 04642000 ASCBRV52 EQU ASCBRSMF 04643000 ASCBRV51 EQU ASCBRSMF 04644000 ASCBVEQR EQU ASCBRSMF 04645000 ASCBN2LP EQU ASCBRSMF 04646000 ASCB1LPU EQU ASCBRSMF 04647000 ASCB2LPU EQU ASCBRSMF 04648000 ASCBLDA EQU ASCB+48 04649000 ASCBSTOR EQU ASCB+44 04650000 ASCBDP EQU ASCB+43 04651000 ASCBRV07 EQU ASCB+42 04652000 ASCBIOSM EQU ASCB+40 04653000 ASCBSEQN EQU ASCB+38 04654000 ASCBASID EQU ASCB+36 04655000 ASCBCPUS EQU ASCB+32 04656000 ASCBSPL EQU ASCB+28 04657000 ASCBIOSP EQU ASCB+24 04658000 ASCBSYNC EQU ASCBSUPC+4 04659000 ASCBSVRB EQU ASCBSUPC 04660000 ASCBCMSF EQU ASCB+12 04661000 ASCBBWDP EQU ASCB+8 04662000 ASCBFWDP EQU ASCB+4 04663000 ASCBASCB EQU ASCB 04664000 ASCBEGIN EQU ASCB 04665000 LCCAR125 EQU LCCA+964 04666000 LCCAR124 EQU LCCA+960 04667000 LCCASGPR EQU LCCA+896 04668000 LCCADRT2 EQU LCCA+888 04669000 LCCADRT1 EQU LCCA+880 04670000 LCCAR103 EQU LCCA+876 04671000 LCCAESS2 EQU LCCA+872 04672000 LCCASPLJ EQU LCCA+868 04673000 LCCASMQJ EQU LCCA+864 04674000 LCCAIRT EQU LCCA+736 04675000 LCCAASID EQU LCCA+732 04676000 LCCARV89 EQU LCCA+728 04677000 LCCAPGTA EQU LCCASRBF+2 04678000 LCCASAFN EQU LCCASRBF 04679000 LCCAECSA EQU LCCA+716 04680000 LCCAICR0 EQU LCCA+712 04681000 LCCALWTM EQU LCCA+704 04682000 LCCARV78 EQU LCCA+700 04683000 LCCAPINV EQU LCCA+696 04684000 LCCARV88 EQU LCCA+695 04685000 LCCARV87 EQU LCCALKFG 04686000 LCCARV86 EQU LCCALKFG 04687000 LCCARV85 EQU LCCALKFG 04688000 LCCARV84 EQU LCCALKFG 04689000 LCCALKRD EQU LCCALKFG 04690000 LCCALKAQ EQU LCCALKFG 04691000 LCCALKSA EQU LCCALKFG 04692000 LCCALKDP EQU LCCALKFG 04693000 LCCACRST EQU LCCACREX 04694000 LCCACRDP EQU LCCACREX 04695000 LCCACRLM EQU LCCACREX 04696000 LCCACRIN EQU LCCACREX 04697000 LCCACRRT EQU LCCACREX 04698000 LCCACRLE EQU LCCACREX 04699000 LCCACRRM EQU LCCACREX 04700000 LCCACREF EQU LCCACREX 04701000 LCCAVARY EQU LCCACRFL 04702000 LCCARV73 EQU LCCACRFL 04703000 LCCARV72 EQU LCCACRFL 04704000 LCCARV71 EQU LCCACRFL 04705000 LCCARV70 EQU LCCACRFL 04706000 LCCARV69 EQU LCCACRFL 04707000 LCCACLMS EQU LCCACRFL 04708000 LCCACRTM EQU LCCACRFL 04709000 LCCALCR0 EQU LCCA+688 04710000 LCCACRLC EQU LCCA+684 04711000 LCCARCPU EQU LCCA+680 04712000 LCCADCPU EQU LCCA+676 04713000 LCCASRBJ EQU LCCA+672 04714000 LCCADSSR EQU LCCA+668 04715000 LCCADSSC EQU LCCA+660 04716000 LCCADSS3 EQU LCCA+648 04717000 LCCADSS2 EQU LCCA+636 04718000 LCCADSS1 EQU LCCA+624 04719000 LCCAWTIM EQU LCCA+616 04720000 LCCAITOD EQU LCCA+608 04721000 LCCARIR5 EQU LCCASPSA+44 04722000 LCCARIR4 EQU LCCASPSA+40 04723000 LCCARIR3 EQU LCCASPSA+36 04724000 LCCARIR2 EQU LCCASPSA+32 04725000 LCCARPR5 EQU LCCASPSA+28 04726000 LCCARPR4 EQU LCCASPSA+24 04727000 LCCARPR3 EQU LCCASPSA+20 04728000 LCCARPR2 EQU LCCASPSA+16 04729000 LCCADSR5 EQU LCCASPSA+12 04730000 LCCADSR4 EQU LCCASPSA+8 04731000 LCCADSR3 EQU LCCASPSA+4 04732000 LCCADSR2 EQU LCCASPSA 04733000 LCCARV68 EQU LCCA+543 04734000 LCCARV67 EQU LCCADSF2 04735000 LCCARV66 EQU LCCADSF2 04736000 LCCARV65 EQU LCCADSF2 04737000 LCCARV64 EQU LCCADSF2 04738000 LCCADSRW EQU LCCADSF2 04739000 LCCADSPL EQU LCCADSF2 04740000 LCCAGSRB EQU LCCADSF2 04741000 LCCASRBM EQU LCCADSF2 04742000 LCCARV61 EQU LCCADSF1 04743000 LCCARV60 EQU LCCADSF1 04744000 LCCARV59 EQU LCCADSF1 04745000 LCCARV58 EQU LCCADSF1 04746000 LCCADSS EQU LCCADSF1 04747000 LCCAVCPU EQU LCCADSF1 04748000 LCCAASCP EQU LCCA+532 04749000 LCCAESSA EQU LCCA+528 04750000 LCCARV55 EQU LCCASPN4 04751000 LCCARV54 EQU LCCASPN4 04752000 LCCARV53 EQU LCCASPN4 04753000 LCCARV52 EQU LCCASPN4 04754000 LCCARV51 EQU LCCASPN4 04755000 LCCARV50 EQU LCCASPN4 04756000 LCCARV49 EQU LCCASPN4 04757000 LCCARV48 EQU LCCASPN4 04758000 LCCARV47 EQU LCCASPN3 04759000 LCCARV46 EQU LCCASPN3 04760000 LCCARV45 EQU LCCASPN3 04761000 LCCARV44 EQU LCCASPN3 04762000 LCCARV43 EQU LCCASPN3 04763000 LCCARV42 EQU LCCASPN3 04764000 LCCARV41 EQU LCCASPN3 04765000 LCCARV40 EQU LCCASPN3 04766000 LCCARV39 EQU LCCASPN2 04767000 LCCARV38 EQU LCCASPN2 04768000 LCCARV37 EQU LCCASPN2 04769000 LCCARV36 EQU LCCASPN2 04770000 LCCARV35 EQU LCCASPN2 04771000 LCCARV34 EQU LCCASPN2 04772000 LCCARV33 EQU LCCASPN2 04773000 LCCARV32 EQU LCCASPN2 04774000 LCCARV31 EQU LCCASPN1 04775000 LCCARV30 EQU LCCASPN1 04776000 LCCAMFIO EQU LCCASPN1 04777000 LCCARSTR EQU LCCASPN1 04778000 LCCALOCK EQU LCCASPN1 04779000 LCCASIGP EQU LCCASPN1 04780000 LCCAPTLB EQU LCCASPN1 04781000 LCCARV27 EQU LCCAIHR4 04782000 LCCARV26 EQU LCCAIHR4 04783000 LCCARV25 EQU LCCAIHR4 04784000 LCCARV24 EQU LCCAIHR4 04785000 LCCARV23 EQU LCCAIHR4 04786000 LCCARV22 EQU LCCAIHR4 04787000 LCCARV21 EQU LCCAIHR4 04788000 LCCARV20 EQU LCCAIHR4 04789000 LCCARV19 EQU LCCAIHR3 04790000 LCCARV18 EQU LCCAIHR3 04791000 LCCARV17 EQU LCCAIHR3 04792000 LCCARV16 EQU LCCAIHR3 04793000 LCCARV15 EQU LCCAIHR3 04794000 LCCARV14 EQU LCCAIHR3 04795000 LCCARV13 EQU LCCAIHR3 04796000 LCCARV12 EQU LCCAIHR3 04797000 LCCARV11 EQU LCCAIHR2 04798000 LCCARV10 EQU LCCAIHR2 04799000 LCCARV09 EQU LCCAIHR2 04800000 LCCARV08 EQU LCCAIHR2 04801000 LCCARV07 EQU LCCAIHR2 04802000 LCCARV06 EQU LCCAIHR2 04803000 LCCARV05 EQU LCCAIHR2 04804000 LCCARV04 EQU LCCAIHR2 04805000 LCCARV03 EQU LCCAIHR1 04806000 LCCARV02 EQU LCCAIHR1 04807000 LCCARV01 EQU LCCAIHR1 04808000 LCCAPPIE EQU LCCAIHR1 04809000 LCCAPSG1 EQU LCCAIHR1 04810000 LCCAPDAT EQU LCCAIHR1 04811000 LCCAXRC2 EQU LCCAIHR1 04812000 LCCAXRC1 EQU LCCAIHR1 04813000 LCCAIOPS EQU LCCA+512 04814000 LCCAGPGR EQU LCCA+448 04815000 LCCAR133 EQU LCCA+444 04816000 LCCAR132 EQU LCCA+440 04817000 LCCAR131 EQU LCCA+436 04818000 LCCAR130 EQU LCCA+432 04819000 LCCAR129 EQU LCCA+428 04820000 LCCAR128 EQU LCCA+424 04821000 LCCAR127 EQU LCCA+420 04822000 LCCAR126 EQU LCCA+416 04823000 LCCARSGR EQU LCCA+352 04824000 LCCAXGR3 EQU LCCA+288 04825000 LCCAXGR2 EQU LCCA+224 04826000 LCCAXGR1 EQU LCCA+160 04827000 LCCACR0 EQU LCCA+156 04828000 LCCAMCR1 EQU LCCA+152 04829000 LCCAPVAD EQU LCCA+148 04830000 LCCAPINT EQU LCCA+144 04831000 LCCAPPSW EQU LCCA+136 04832000 LCCAPGR2 EQU LCCA+72 04833000 LCCAPGR1 EQU LCCA+8 04834000 LCCARV77 EQU LCCA+6 04835000 LCCACPUA EQU LCCA+4 04836000 LCCALCCA EQU LCCA 04837000 @NM00028 EQU PCCA+512 04838000 PCCACAT EQU PCCA+384 04839000 PCCARV36 EQU PCCA+380 04840000 PCCARV35 EQU PCCA+378 04841000 PCCARV01 EQU PCCA+377 04842000 PCCACPUM EQU PCCA+376 04843000 PCCARV63 EQU PCCA+372 04844000 PCCARV62 EQU PCCA+368 04845000 PCCARV61 EQU PCCA+364 04846000 PCCARV60 EQU PCCA+360 04847000 PCCARV59 EQU PCCA+356 04848000 PCCARV58 EQU PCCA+352 04849000 PCCARV57 EQU PCCA+348 04850000 PCCARV56 EQU PCCA+344 04851000 PCCARV55 EQU PCCA+340 04852000 PCCARV54 EQU PCCA+336 04853000 PCCALOGA EQU PCCA+332 04854000 PCCACHID EQU PCCA+324 04855000 PCCACHSV EQU PCCA+312 04856000 PCCARV79 EQU PCCACHF4 04857000 PCCARV78 EQU PCCACHF4 04858000 PCCARV77 EQU PCCACHF4 04859000 PCCARV76 EQU PCCACHF4 04860000 PCCARV75 EQU PCCACHF4 04861000 PCCARV74 EQU PCCACHF4 04862000 PCCARV73 EQU PCCACHF4 04863000 PCCARV72 EQU PCCACHF4 04864000 PCCARV71 EQU PCCACHF3 04865000 PCCARV70 EQU PCCACHF3 04866000 PCCARV69 EQU PCCACHF3 04867000 PCCARV68 EQU PCCACHF3 04868000 PCCARV67 EQU PCCACHF3 04869000 PCCARV66 EQU PCCACHF3 04870000 PCCARV65 EQU PCCACHF3 04871000 PCCARV64 EQU PCCACHF3 04872000 PCCACF28 EQU PCCACHF2 04873000 PCCACF27 EQU PCCACHF2 04874000 PCCACF26 EQU PCCACHF2 04875000 PCCACF25 EQU PCCACHF2 04876000 PCCACF24 EQU PCCACHF2 04877000 PCCACF23 EQU PCCACHF2 04878000 PCCACF22 EQU PCCACHF2 04879000 PCCACF21 EQU PCCACHF2 04880000 PCCACF18 EQU PCCACHF1 04881000 PCCACF17 EQU PCCACHF1 04882000 PCCACF16 EQU PCCACHF1 04883000 PCCACF15 EQU PCCACHF1 04884000 PCCACF14 EQU PCCACHF1 04885000 PCCACF13 EQU PCCACHF1 04886000 PCCACF12 EQU PCCACHF1 04887000 PCCACF11 EQU PCCACHF1 04888000 PCCARV05 EQU PCCA+306 04889000 PCCACHPB EQU PCCA+305 04890000 PCCALGP2 EQU PCCA+304 04891000 PCCALGP1 EQU PCCA+303 04892000 PCCALOGL EQU PCCA+302 04893000 PCCARV80 EQU PCCA+300 04894000 PCCACHW2 EQU PCCA+296 04895000 PCCACHW1 EQU PCCA+292 04896000 PCCAIOSI EQU PCCA+291 04897000 PCCACNRB EQU PCCACHRB 04898000 PCCACCVB EQU PCCACHRB 04899000 PCCACSNB EQU PCCACHRB 04900000 PCCARV52 EQU PCCACHRB 04901000 PCCACHIB EQU PCCACHRB 04902000 PCCACTIB EQU PCCACHRB 04903000 PCCACINB EQU PCCACHRB 04904000 PCCACSIB EQU PCCACHRB 04905000 PCCARV51 EQU PCCACHS2 04906000 PCCARV50 EQU PCCACHS2 04907000 PCCACCRA EQU PCCACHS2 04908000 PCCACURC EQU PCCACHS2 04909000 PCCACNLG EQU PCCACHS2 04910000 PCCACMOD EQU PCCACHS2 04911000 PCCACALT EQU PCCACHS2 04912000 PCCACIOR EQU PCCACHS2 04913000 PCCARV47 EQU PCCACHS1 04914000 PCCACUCB EQU PCCACHS1 04915000 PCCACIBC EQU PCCACHS1 04916000 PCCACAND EQU PCCACHS1 04917000 PCCACNLS EQU PCCACHS1 04918000 PCCACFRR EQU PCCACHS1 04919000 PCCACNRE EQU PCCACHS1 04920000 PCCACCMP EQU PCCACHS1 04921000 PCCACSEQ EQU PCCACHTS 04922000 PCCACDIN EQU PCCACHTS 04923000 PCCARV44 EQU PCCACHTS 04924000 PCCARV43 EQU PCCACHTS 04925000 PCCACTEC EQU PCCACHTS 04926000 PCCACDAV EQU PCCACHVA 04927000 PCCACCHV EQU PCCACHVA 04928000 PCCACCMD EQU PCCACHVA 04929000 PCCACUNS EQU PCCACHVA 04930000 PCCACSQV EQU PCCACHVA 04931000 PCCARV42 EQU PCCACHVA 04932000 PCCARV41 EQU PCCACHVA 04933000 PCCACITF EQU PCCACHVA 04934000 PCCARV40 EQU PCCACHBL 04935000 PCCARV39 EQU PCCACHBL 04936000 PCCARV38 EQU PCCACHBL 04937000 PCCACCUE EQU PCCACHBL 04938000 PCCACSTG EQU PCCACHBL 04939000 PCCACSCU EQU PCCACHBL 04940000 PCCACCHA EQU PCCACHBL 04941000 PCCACCPU EQU PCCACHBL 04942000 PCCACNOR EQU PCCACHPF 04943000 PCCACCNT EQU PCCACHPF 04944000 PCCACSNS EQU PCCACHPF 04945000 PCCARV37 EQU PCCACHPF 04946000 PCCACHIO EQU PCCACHPF 04947000 PCCACTIO EQU PCCACHPF 04948000 PCCACINT EQU PCCACHPF 04949000 PCCACSIO EQU PCCACHPF 04950000 PCCACHUB EQU PCCAWERP 04951000 PCCACHEL EQU PCCA+168 04952000 PCCALRBR EQU PCCA+164 04953000 PCCALRBV EQU PCCA+160 04954000 PCCAPWAR EQU PCCA+156 04955000 PCCAPWAV EQU PCCA+152 04956000 PCCAEMSA EQU PCCAEMSB+12 04957000 PCCAEMSE EQU PCCAEMSB+8 04958000 PCCAEMSP EQU PCCAEMSB+4 04959000 PCCARMS EQU PCCARMSB 04960000 PCCARV34 EQU PCCARMSB 04961000 PCCARV33 EQU PCCARMSB 04962000 PCCARV32 EQU PCCARMSB 04963000 PCCARV31 EQU PCCARMSB 04964000 PCCARV30 EQU PCCARMSB 04965000 PCCARV29 EQU PCCARMSB 04966000 PCCARV28 EQU PCCARMSB 04967000 PCCARV27 EQU PCCAEMS3 04968000 PCCARV26 EQU PCCAEMS3 04969000 PCCARV25 EQU PCCAEMS3 04970000 PCCARV24 EQU PCCAEMS3 04971000 PCCARV23 EQU PCCAEMS3 04972000 PCCARV22 EQU PCCAEMS3 04973000 PCCARV21 EQU PCCAEMS3 04974000 PCCARV20 EQU PCCAEMS3 04975000 PCCARV19 EQU PCCAEMS2 04976000 PCCARV18 EQU PCCAEMS2 04977000 PCCARV17 EQU PCCAEMS2 04978000 PCCARV16 EQU PCCAEMS2 04979000 PCCARV15 EQU PCCAEMS2 04980000 PCCARV14 EQU PCCAEMS2 04981000 PCCARV13 EQU PCCAEMS2 04982000 PCCARV12 EQU PCCAEMS2 04983000 PCCARV11 EQU PCCARISP 04984000 PCCARV10 EQU PCCARISP 04985000 PCCARV09 EQU PCCARISP 04986000 PCCARV08 EQU PCCARISP 04987000 PCCARV07 EQU PCCARISP 04988000 PCCARV06 EQU PCCARISP 04989000 PCCASERL EQU PCCARISP 04990000 PCCAPARL EQU PCCARISP 04991000 PCCARPB EQU PCCA+132 04992000 PCCACTIN EQU PCCAINTE 04993000 PCCACTCC EQU PCCACCE 04994000 PCCACTTD EQU PCCATODE 04995000 PCCARV04 EQU PCCATMFL 04996000 PCCARV03 EQU PCCATMFL 04997000 PCCARV02 EQU PCCATMFL 04998000 PCCASYNC EQU PCCATMFL 04999000 PCCARV9E EQU PCCA+124 05000000 PCCARV9D EQU PCCA+120 05001000 PCCARV9C EQU PCCA+116 05002000 PCCARV9B EQU PCCA+112 05003000 PCCARV9A EQU PCCA+108 05004000 PCCARV99 EQU PCCA+104 05005000 PCCARV98 EQU PCCA+100 05006000 PCCARV97 EQU PCCA+96 05007000 PCCARV96 EQU PCCA+92 05008000 PCCARV95 EQU PCCA+88 05009000 PCCARV94 EQU PCCA+84 05010000 PCCARV93 EQU PCCA+80 05011000 PCCARV92 EQU PCCA+76 05012000 PCCARV91 EQU PCCA+72 05013000 PCCARV90 EQU PCCA+68 05014000 PCCARV89 EQU PCCA+64 05015000 PCCARV88 EQU PCCA+60 05016000 PCCARV87 EQU PCCA+56 05017000 PCCARV86 EQU PCCA+52 05018000 PCCARV85 EQU PCCA+48 05019000 PCCARV84 EQU PCCA+44 05020000 PCCARV83 EQU PCCA+40 05021000 PCCARV82 EQU PCCA+36 05022000 PCCARV81 EQU PCCA+32 05023000 PCCAPSAR EQU PCCA+28 05024000 PCCAPSAV EQU PCCA+24 05025000 PCCACAFM EQU PCCA+18 05026000 PCCACPUA EQU PCCA+16 05027000 PCCACPID EQU PCCA+4 05028000 PCCAPCCA EQU PCCA 05029000 WSACASMS EQU WSAC+60 05030000 WSACASMD EQU WSAC+56 05031000 WSACCCH EQU WSAC+52 05032000 WSACRRSA EQU WSAC+48 05033000 WSACREST EQU WSAC+44 05034000 WSACRSTI EQU WSAC+40 05035000 WSACABTM EQU WSAC+36 05036000 WSACMF1 EQU WSAC+32 05037000 WSACEDS0 EQU WSAC+28 05038000 WSACIOS EQU WSAC+24 05039000 WSACRTMK EQU WSAC+20 05040000 WSACACR EQU WSAC+16 05041000 WSACOPTM EQU WSAC+8 05042000 WSACGTF EQU WSAC+4 05043000 WSACCWSA EQU WSAC 05044000 WSAGSCHE EQU WSAG+40 05045000 WSAGREST EQU WSAG+36 05046000 WSAGNQDQ EQU WSAG+32 05047000 WSAGMEMT EQU WSAG+28 05048000 WSAGOPTM EQU WSAG+24 05049000 WSAGSTAT EQU WSAG+20 05050000 WSAGEMS0 EQU WSAG+16 05051000 WSAGSSRS EQU WSAG+12 05052000 WSAGRSM EQU WSAG+8 05053000 WSAGPGIO EQU WSAG 05054000 @NM00027 EQU CSD+160 05055000 CSDMASK EQU CSD+128 05056000 CSDUCNT EQU CSD+124 05057000 CSDTCNT EQU CSD+120 05058000 CSDDDRCT EQU CSD+106 05059000 CSDRV044 EQU CSD+104 05060000 CSDMAFF EQU CSD+24 05061000 CSDRV038 EQU CSDFLAGS 05062000 CSDRV037 EQU CSDFLAGS 05063000 CSDRV036 EQU CSDFLAGS 05064000 CSDRV035 EQU CSDFLAGS 05065000 CSDRV034 EQU CSDFLAGS 05066000 CSDRV033 EQU CSDFLAGS 05067000 CSDRV032 EQU CSDFLAGS 05068000 CSDMP EQU CSDFLAGS 05069000 CSDACR EQU CSD+22 05070000 CSDMF1CP EQU CSD+20 05071000 CSDRV043 EQU CSD+16 05072000 CSDRV030 EQU CSDSCFL4 05073000 CSDRV029 EQU CSDSCFL4 05074000 CSDRV028 EQU CSDSCFL4 05075000 CSDRV027 EQU CSDSCFL4 05076000 CSDRV026 EQU CSDSCFL4 05077000 CSDRV025 EQU CSDSCFL4 05078000 CSDRV024 EQU CSDSCFL4 05079000 CSDRV023 EQU CSDSCFL4 05080000 CSDRV022 EQU CSDSCFL3 05081000 CSDRV021 EQU CSDSCFL3 05082000 CSDRV020 EQU CSDSCFL3 05083000 CSDRV019 EQU CSDSCFL3 05084000 CSDRV018 EQU CSDSCFL3 05085000 CSDRV017 EQU CSDSCFL3 05086000 CSDRV016 EQU CSDSCFL3 05087000 CSDRV015 EQU CSDSCFL3 05088000 CSDRV014 EQU CSDSCFL2 05089000 CSDRV013 EQU CSDSCFL2 05090000 CSDRV012 EQU CSDSCFL2 05091000 CSDRV011 EQU CSDSCFL2 05092000 CSDRV010 EQU CSDSCFL2 05093000 CSDRV009 EQU CSDSCFL2 05094000 CSDRV008 EQU CSDSCFL2 05095000 CSDRV007 EQU CSDSCFL2 05096000 CSDRV006 EQU CSDSCFL1 05097000 CSDRV005 EQU CSDSCFL1 05098000 CSDRV004 EQU CSDSCFL1 05099000 CSDRV003 EQU CSDSCFL1 05100000 CSDRV002 EQU CSDSCFL1 05101000 CSDRV001 EQU CSDSCFL1 05102000 CSDSYSND EQU CSDSCFL1 05103000 CSDRV042 EQU CSDSCFL1 05104000 CSDCPUOL EQU CSD+10 05105000 CSDSAFF EQU CSDCPUAL 05106000 CSDCHAD EQU CSD+6 05107000 CSDCPUJS EQU CSD+4 05108000 CSDCSD EQU CSD 05109000 CVTLEVL EQU CVTRELNO+2 05110000 CVTNUMB EQU CVTRELNO 05111000 CVTMDL EQU CVTFIX+250 05112000 @NM00026 EQU CVTFIX+248 05113000 @NM00025 EQU CVTFIX 05114000 CVTRV482 EQU CVTXTNT2+128 05115000 CVTRV481 EQU CVTXTNT2+124 05116000 CVTRV480 EQU CVTXTNT2+120 05117000 CVTRV479 EQU CVTXTNT2+118 05118000 CVTRV478 EQU CVTXTNT2+117 05119000 CVTRV477 EQU CVTXTNT2+116 05120000 CVTRV476 EQU CVTXTNT2+115 05121000 CVTRV475 EQU CVTXTNT2+114 05122000 CVTRV474 EQU CVTRV466 05123000 CVTRV473 EQU CVTRV466 05124000 CVTRV472 EQU CVTRV466 05125000 CVTRV471 EQU CVTRV466 05126000 CVTRV470 EQU CVTRV466 05127000 CVTRV469 EQU CVTRV466 05128000 CVTRV468 EQU CVTRV466 05129000 CVTRV467 EQU CVTRV466 05130000 CVTRV465 EQU CVTRV457 05131000 CVTRV464 EQU CVTRV457 05132000 CVTRV463 EQU CVTRV457 05133000 CVTRV462 EQU CVTRV457 05134000 CVTRV461 EQU CVTRV457 05135000 CVTRV460 EQU CVTRV457 05136000 CVTRV459 EQU CVTRV457 05137000 CVTRV458 EQU CVTRV457 05138000 CVTRV456 EQU CVTXTNT2+108 05139000 CVTRV455 EQU CVTXTNT2+104 05140000 CVTRV454 EQU CVTXTNT2+100 05141000 CVTRV453 EQU CVTXTNT2+96 05142000 CVTRV452 EQU CVTXTNT2+94 05143000 CVTRV451 EQU CVTXTNT2+92 05144000 CVTRV450 EQU CVTXTNT2+90 05145000 CVTRV449 EQU CVTXTNT2+88 05146000 CVTRV448 EQU CVTXTNT2+87 05147000 CVTRV447 EQU CVTXTNT2+86 05148000 CVTRV446 EQU CVTRV438 05149000 CVTRV445 EQU CVTRV438 05150000 CVTRV444 EQU CVTRV438 05151000 CVTRV443 EQU CVTRV438 05152000 CVTRV442 EQU CVTRV438 05153000 CVTRV441 EQU CVTRV438 05154000 CVTRV440 EQU CVTRV438 05155000 CVTRV439 EQU CVTRV438 05156000 CVTRV437 EQU CVTRV429 05157000 CVTRV436 EQU CVTRV429 05158000 CVTRV435 EQU CVTRV429 05159000 CVTRV434 EQU CVTRV429 05160000 CVTRV433 EQU CVTRV429 05161000 CVTRV432 EQU CVTRV429 05162000 CVTRV431 EQU CVTRV429 05163000 CVTRV430 EQU CVTRV429 05164000 CVTRV428 EQU CVTXTNT2+80 05165000 CVTRV427 EQU CVTXTNT2+76 05166000 CVTRV426 EQU CVTXTNT2+72 05167000 CVTRV425 EQU CVTXTNT2+68 05168000 CVTATACT EQU CVTATCVT 05169000 CVTRV423 EQU CVTXTNT2+62 05170000 CVTRV422 EQU CVTXTNT2+60 05171000 CVTRV421 EQU CVTXTNT2+58 05172000 CVTRV420 EQU CVTXTNT2+56 05173000 CVTRV419 EQU CVTXTNT2+55 05174000 CVTRV418 EQU CVTXTNT2+54 05175000 CVTRV417 EQU CVTRV409 05176000 CVTRV416 EQU CVTRV409 05177000 CVTRV415 EQU CVTRV409 05178000 CVTRV414 EQU CVTRV409 05179000 CVTRV413 EQU CVTRV409 05180000 CVTRV412 EQU CVTRV409 05181000 CVTRV411 EQU CVTRV409 05182000 CVTRV410 EQU CVTRV409 05183000 CVTRV408 EQU CVTRV400 05184000 CVTRV407 EQU CVTRV400 05185000 CVTRV406 EQU CVTRV400 05186000 CVTRV405 EQU CVTRV400 05187000 CVTRV404 EQU CVTRV400 05188000 CVTRV403 EQU CVTRV400 05189000 CVTRV402 EQU CVTRV400 05190000 CVTRV401 EQU CVTRV400 05191000 CVTICB EQU CVTXTNT2+48 05192000 CVTSKTA EQU CVTXTNT2+44 05193000 CVTRSV99 EQU CVTXTNT2+40 05194000 CVTRSV98 EQU CVTXTNT2+36 05195000 CVTRSV97 EQU CVTXTNT2+34 05196000 CVTRSV96 EQU CVTXTNT2+32 05197000 CVTOLTEP EQU CVTXTNT2+28 05198000 CVTQIDA EQU CVTQID+1 05199000 CVTRSV95 EQU CVTQID 05200000 CVTRSV94 EQU CVTXTNT2+20 05201000 CVTRSV93 EQU CVTXTNT2+16 05202000 CVTRSV92 EQU CVTXTNT2+12 05203000 CVTDEBVR EQU CVTXTNT2+8 05204000 CVTRSV91 EQU CVTXTNT2+6 05205000 CVTRSV9H EQU CVTFLGBT 05206000 CVTRSV9G EQU CVTFLGBT 05207000 CVTRSV9F EQU CVTFLGBT 05208000 CVTRSV9E EQU CVTFLGBT 05209000 CVTRSV9D EQU CVTFLGBT 05210000 CVTRSV9C EQU CVTFLGBT 05211000 CVTVME EQU CVTFLGBT 05212000 CVTNPE EQU CVTFLGBT 05213000 CVTNUCLS EQU CVTXTNT2+4 05214000 CVTDSSVA EQU CVTDSSV+1 05215000 CVTRSV89 EQU CVTDSSV 05216000 CVTRSV88 EQU CVTXTNT1+8 05217000 CVTRSV87 EQU CVTXTNT1+4 05218000 CVTFACHN EQU CVTXTNT1 05219000 CVTRV488 EQU CVTMAP+412 05220000 CVTRV487 EQU CVTMAP+408 05221000 CVTRV486 EQU CVTMAP+404 05222000 CVTRV485 EQU CVTMAP+400 05223000 CVTACTAP EQU CVTMAP+396 05224000 CVTAUTH EQU CVTMAP+392 05225000 CVTATMCA EQU CVTATMCT+1 05226000 CVTATMST EQU CVTATMCT 05227000 CVTRSV61 EQU CVTMAP+384 05228000 CVTVOLT1 EQU CVTVOLM1+1 05229000 CVTVOLI1 EQU CVTVOLF1 05230000 CVTSTOA EQU CVTMAP+376 05231000 CVTRSV58 EQU CVTMAP+374 05232000 CVTRSV57 EQU CVTMAP+372 05233000 CVTDDCE EQU CVTMAP+368 05234000 CVTPNWFR EQU CVTMAP+364 05235000 CVTSMF EQU CVTMAP+360 05236000 CVTSULK EQU CVTMAP+358 05237000 CVTSLKO EQU CVTSYSK 05238000 CVTSLKP EQU CVTSYSK 05239000 CVTSLKQ EQU CVTSYSK 05240000 CVTSLKR EQU CVTSYSK 05241000 CVTRSV56 EQU CVTSYSK 05242000 CVTRSV55 EQU CVTSYSK 05243000 CVTRSV54 EQU CVTSYSK 05244000 CVTRSV53 EQU CVTSYSK 05245000 CVTRSV52 EQU CVTA1F1 05246000 CVTRSV51 EQU CVTA1F1 05247000 CVTRSV50 EQU CVTA1F1 05248000 CVTRSV49 EQU CVTA1F1 05249000 CVTRSV48 EQU CVTA1F1 05250000 CVTRSV47 EQU CVTA1F1 05251000 CVTSRSW EQU CVTA1F1 05252000 CVTPFSW EQU CVTA1F1 05253000 CVTPCVT EQU CVTMAP+352 05254000 CVTRSV46 EQU CVTMAP+344 05255000 CVTRSV45 EQU CVTMAP+340 05256000 CVTRSV44 EQU CVTMAP+338 05257000 CVTRSV43 EQU CVTMAP+336 05258000 CVTHJESA EQU CVTHJES+1 05259000 CVTRSV42 EQU CVTHJES 05260000 CVTEXT2A EQU CVTEXT2+1 05261000 CVTRSV41 EQU CVTEXT2 05262000 CVTAPFA EQU CVTAPF+1 05263000 CVTRSV40 EQU CVTAPF 05264000 CVTRV518 EQU CVTINTLA 05265000 CVTRV517 EQU CVTERPV 05266000 CVTEORM EQU CVTMAP+312 05267000 CVTMCHPR EQU CVTMAP+308 05268000 CVTTZ EQU CVTMAP+304 05269000 CVTJEPS EQU CVTMAP+300 05270000 CVTJESCT EQU CVTMAP+296 05271000 CVTMODE EQU CVTMAP+292 05272000 CVTPTRV EQU CVTMAP+288 05273000 CVTREAL EQU CVTMAP+284 05274000 CVTRSV39 EQU CVTMAP+280 05275000 CVTRSV38 EQU CVTMAP+276 05276000 CVTDMSRA EQU CVTDMSR+1 05277000 CVTRV634 EQU CVTDMSRF 05278000 CVTRV633 EQU CVTDMSRF 05279000 CVTRV632 EQU CVTDMSRF 05280000 CVTRV631 EQU CVTDMSRF 05281000 CVTRV630 EQU CVTDMSRF 05282000 CVTRV629 EQU CVTDMSRF 05283000 CVTUDUMP EQU CVTDMSRF 05284000 CVTSDUMP EQU CVTDMSRF 05285000 CVTQMSGA EQU CVTQMSG+1 05286000 CVTRSV36 EQU CVTQMSG 05287000 CVTAMFF EQU CVTMAP+264 05288000 CVTPURGA EQU CVTPURG+1 05289000 CVTRSV35 EQU CVTPURG 05290000 CVTCBSP EQU CVTMAP+256 05291000 CVTATERA EQU CVTATER+1 05292000 CVTSYST EQU CVTATER 05293000 CVTVOLT2 EQU CVTTAT 05294000 CVTVOLI2 EQU CVTVOLF2 05295000 CVTAQAVB EQU CVTAQAVT+1 05296000 CVTRSV34 EQU CVTTCMFG 05297000 CVTRSV33 EQU CVTTCMFG 05298000 CVTRSV32 EQU CVTTCMFG 05299000 CVTRSV31 EQU CVTTCMFG 05300000 CVTRSV30 EQU CVTTCMFG 05301000 CVTRSV29 EQU CVTTCMFG 05302000 CVTLDEV EQU CVTTCMFG 05303000 CVTTCRDY EQU CVTTCMFG 05304000 CVTGTFA EQU CVTGTF+1 05305000 CVTRSV27 EQU CVTGTFST 05306000 CVTRNIO EQU CVTGTFST 05307000 CVTUSR EQU CVTGTFST 05308000 CVTRV318 EQU CVTFORM 05309000 CVTRV317 EQU CVTTMODE 05310000 CVTRV316 EQU CVTSTATE 05311000 CVTRV315 EQU CVTGTFS 05312000 CVTGTFAV EQU CVTGTFS 05313000 CVT0SCR1 EQU CVTMAP+232 05314000 CVTRV515 EQU CVTMAP+228 05315000 CVTRMS EQU CVTMAP+224 05316000 CVTPATCH EQU CVTMAP+220 05317000 CVTTSCE EQU CVTMAP+216 05318000 CVTLNKSC EQU CVTMAP+214 05319000 CVTQABST EQU CVTMAP+212 05320000 CVTMDLDS EQU CVTMAP+208 05321000 CVTUSER EQU CVTMAP+204 05322000 CVTABEND EQU CVTMAP+200 05323000 CVTSMCA EQU CVTMAP+196 05324000 CVTRSV18 EQU CVTMAP+192 05325000 CVTQLPAQ EQU CVTMAP+188 05326000 CVTQCDSR EQU CVTMAP+184 05327000 CVTRSV17 EQU CVTOPTB 05328000 CVTRSV16 EQU CVTOPTB 05329000 CVTFP EQU CVTOPTB 05330000 CVTAPTHR EQU CVTOPTB 05331000 CVTNLOG EQU CVTOPTB 05332000 CVTTOD EQU CVTOPTB 05333000 CVTCTIMS EQU CVTOPTB 05334000 CVTPROT EQU CVTOPTB 05335000 CVTXPFP EQU CVTOPTA 05336000 CVTASCII EQU CVTOPTA 05337000 CVTRSV13 EQU CVTOPTA 05338000 CVTRSV12 EQU CVTOPTA 05339000 CVTNIP EQU CVTOPTA 05340000 CVTDDR EQU CVTOPTA 05341000 CVTAPR EQU CVTOPTA 05342000 CVTCCH EQU CVTOPTA 05343000 CVTSNCTR EQU CVTMAP+180 05344000 CVTQMWR EQU CVTMAP+176 05345000 CVTQOCR EQU CVTMAP+172 05346000 CVT1EF00 EQU CVTMAP+168 05347000 CVTMZ00 EQU CVTMAP+164 05348000 CVTSV76Q EQU CVTSV76C 05349000 CVTRSV11 EQU CVTMAP+156 05350000 CVT0PT01 EQU CVTMAP+152 05351000 CVTMSER EQU CVTMAP+148 05352000 CVTRV516 EQU CVTIERLC 05353000 CVTILCH EQU CVTMAP+140 05354000 CVTFBOSV EQU CVTMAP+132 05355000 CVTNUCB EQU CVTMAP+128 05356000 CVTIXAVL EQU CVTMAP+124 05357000 CVTSV76M EQU CVTIOQET 05358000 CVTDCBA EQU CVTMAP+117 05359000 CVTMVS2 EQU CVTDCB 05360000 CVT6DAT EQU CVTDCB 05361000 CVT4MPS EQU CVTDCB 05362000 CVTRSV09 EQU CVTDCB 05363000 CVT4MS1 EQU CVTDCB 05364000 CVT2SPS EQU CVTDCB 05365000 CVT1SSS EQU CVTDCB 05366000 CVTRSV08 EQU CVTDCB 05367000 CVTSTB EQU CVTMAP+112 05368000 CVTCUCB EQU CVTMAP+100 05369000 CVTSJQ EQU CVTMAP+96 05370000 CVTPBLDL EQU CVTMAP+92 05371000 CVTSVDCB EQU CVTMAP+84 05372000 CVTBRET EQU CVTMAP+82 05373000 CVTEXIT EQU CVTMAP+80 05374000 CVT0FN00 EQU CVTMAP+76 05375000 CVTDARA EQU CVTDAR+1 05376000 CVTRSV07 EQU CVTFLGS1 05377000 CVTRSV06 EQU CVTFLGS1 05378000 CVTRSV05 EQU CVTFLGS1 05379000 CVTRSV04 EQU CVTFLGS1 05380000 CVTRSV03 EQU CVTFLGS1 05381000 CVTRSV02 EQU CVTFLGS1 05382000 CVTRSV01 EQU CVTFLGS1 05383000 CVTDMPLK EQU CVTFLGS1 05384000 CVTXITP EQU CVTMAP+68 05385000 CVTZDTAB EQU CVTMAP+64 05386000 CVTMSLT EQU CVTMAP+60 05387000 CVTDATE EQU CVTMAP+56 05388000 CVTBTERM EQU CVTMAP+52 05389000 CVTSYSAD EQU CVTMAP+48 05390000 CVTXTLER EQU CVTMAP+44 05391000 CVTILK2 EQU CVTMAP+40 05392000 CVTILK1 EQU CVTMAP+36 05393000 CVTPRLTV EQU CVTMAP+32 05394000 CVTPCNVT EQU CVTMAP+28 05395000 CVT0VL00 EQU CVTMAP+24 05396000 CVTXAPG EQU CVTMAP+20 05397000 CVTBUF EQU CVTMAP+16 05398000 CVTJOB EQU CVTMAP+12 05399000 CVTLINK EQU CVTMAP+8 05400000 CVTTCBP EQU CVTMAP 05401000 @NM00024 EQU PSA+3668 05402000 PSASTAK EQU PSA+3072 05403000 @NM00023 EQU PSA+1048 05404000 PSAUSEND EQU PSA+1048 05405000 PSARV062 EQU PSA+1044 05406000 PSACDAL EQU PSA+1040 05407000 PSAWTCOD EQU PSA+1036 05408000 PSAATCVT EQU PSA+1032 05409000 PSAPCPSW EQU PSA+1024 05410000 PSAPIR2 EQU PSA+1020 05411000 PSARV059 EQU PSA+1018 05412000 PSASVC13 EQU PSA+1016 05413000 PSASFACC EQU PSA+1008 05414000 PSASTOP EQU PSA+992 05415000 PSASTART EQU PSA+976 05416000 PSARSPSW EQU PSA+968 05417000 PSASRPSW EQU PSA+960 05418000 PSARV045 EQU PSA+892 05419000 PSARV044 EQU PSA+888 05420000 PSARV043 EQU PSA+884 05421000 PSARV042 EQU PSA+880 05422000 PSARV041 EQU PSA+876 05423000 PSARV040 EQU PSA+872 05424000 PSARV025 EQU PSA+868 05425000 PSADSSED EQU PSA+868 05426000 PSADSSPR EQU PSA+864 05427000 PSADSSFW EQU PSA+860 05428000 PSADSS14 EQU PSA+856 05429000 PSADSSPP EQU PSA+848 05430000 PSADSSRP EQU PSA+840 05431000 PSADSS05 EQU PSADSSF4 05432000 PSADSS10 EQU PSADSSF4 05433000 PSADSSVE EQU PSADSSF4 05434000 PSADSSDE EQU PSADSSF4 05435000 PSADSSC0 EQU PSADSSF4 05436000 PSADSSIE EQU PSADSSF4 05437000 PSADSS12 EQU PSADSSF4 05438000 PSADSSRC EQU PSADSSF4 05439000 PSARV057 EQU PSADSSF3 05440000 PSARV056 EQU PSADSSF3 05441000 PSARV055 EQU PSADSSF3 05442000 PSADSSMC EQU PSADSSF3 05443000 PSADSSRW EQU PSADSSF3 05444000 PSADSSNM EQU PSADSSF3 05445000 PSADSSES EQU PSADSSF3 05446000 PSADSSGP EQU PSADSSF3 05447000 PSADSSF2 EQU PSADSSFL+1 05448000 PSADSSPI EQU PSADSSF1 05449000 PSADSSOI EQU PSADSSF1 05450000 PSADSSSP EQU PSADSSF1 05451000 PSADSSTP EQU PSADSSF1 05452000 PSADSSDW EQU PSADSSF1 05453000 PSADSSDD EQU PSADSSF1 05454000 PSADSSDM EQU PSADSSF1 05455000 PSADSSMV EQU PSADSSF1 05456000 PSADSSTS EQU PSA+816 05457000 PSADSSWK EQU PSA+812 05458000 PSADSSR3 EQU PSA+808 05459000 PSADSSR2 EQU PSA+804 05460000 PSADSSRS EQU PSA+800 05461000 PSASTOR EQU PSA+796 05462000 PSACPUSA EQU PSA+794 05463000 PSAVSTAP EQU PSA+792 05464000 PSAWKVAP EQU PSA+788 05465000 PSAWKRAP EQU PSA+784 05466000 PSAMCHIC EQU PSA+783 05467000 PSARV061 EQU PSA+782 05468000 PSASYMSK EQU PSA+781 05469000 PSAMCHFL EQU PSA+780 05470000 PSAPSWSV EQU PSA+768 05471000 PSACLHS EQU PSAHLHI 05472000 PSALKR15 EQU PSALKSA+60 05473000 PSALKR14 EQU PSALKSA+56 05474000 PSALKR13 EQU PSALKSA+52 05475000 PSALKR12 EQU PSALKSA+48 05476000 PSALKR11 EQU PSALKSA+44 05477000 PSALKR10 EQU PSALKSA+40 05478000 PSALKR9 EQU PSALKSA+36 05479000 PSALKR8 EQU PSALKSA+32 05480000 PSALKR7 EQU PSALKSA+28 05481000 PSALKR6 EQU PSALKSA+24 05482000 PSALKR5 EQU PSALKSA+20 05483000 PSALKR4 EQU PSALKSA+16 05484000 PSALKR3 EQU PSALKSA+12 05485000 PSALKR2 EQU PSALKSA+8 05486000 PSALKR1 EQU PSALKSA+4 05487000 PSALKR0 EQU PSALKSA 05488000 PSARV023 EQU PSACLHT+52 05489000 PSALOCAL EQU PSACLHT+48 05490000 PSACMSL EQU PSACLHT+44 05491000 PSAOPTL EQU PSACLHT+40 05492000 PSATPACL EQU PSACLHT+36 05493000 PSATPDNL EQU PSACLHT+32 05494000 PSATPNCL EQU PSACLHT+28 05495000 PSAIOSLL EQU PSACLHT+24 05496000 PSAIOSUL EQU PSACLHT+20 05497000 PSAIOSCL EQU PSACLHT+16 05498000 PSAIOSSL EQU PSACLHT+12 05499000 PSASALCL EQU PSACLHT+8 05500000 PSAASML EQU PSACLHT+4 05501000 PSADISPL EQU PSACLHT 05502000 PSASRSA EQU PSA+636 05503000 PSARV050 EQU PSA+634 05504000 PSADSSGO EQU PSA+633 05505000 PSARECUR EQU PSA+632 05506000 PSAHLHIS EQU PSA+628 05507000 PSAIPCSA EQU PSA+624 05508000 @NM00022 EQU PSA+621 05509000 PSAIPCDM EQU PSA+620 05510000 PSAIPCD EQU PSA+616 05511000 @NM00021 EQU PSA+613 05512000 PSAIPCRM EQU PSA+612 05513000 PSAIPCR EQU PSA+608 05514000 PSAMCHEX EQU PSA+600 05515000 PSAMPSW EQU PSA+592 05516000 PSAEXPS2 EQU PSA+584 05517000 PSAEXPS1 EQU PSA+576 05518000 PSAPIREG EQU PSA+572 05519000 PSARSREG EQU PSA+568 05520000 PSAGPREG EQU PSA+556 05521000 PSARV022 EQU PSASUP4 05522000 PSARV021 EQU PSASUP4 05523000 PSARV020 EQU PSASUP4 05524000 PSARV019 EQU PSASUP4 05525000 PSARV018 EQU PSASUP4 05526000 PSARV017 EQU PSASUP4 05527000 PSARV016 EQU PSASUP4 05528000 PSARV015 EQU PSASUP4 05529000 PSARV014 EQU PSASUP3 05530000 PSARV013 EQU PSASUP3 05531000 PSARV012 EQU PSASUP3 05532000 PSAESTA EQU PSASUP3 05533000 PSASPR EQU PSASUP3 05534000 PSAPSREG EQU PSASUP3 05535000 PSAPI2 EQU PSASUP3 05536000 PSAIOSUP EQU PSASUP3 05537000 PSALCR EQU PSASUP2 05538000 PSARTM EQU PSASUP2 05539000 PSAACR EQU PSASUP2 05540000 PSAIPCE2 EQU PSASUP2 05541000 PSAIPCES EQU PSASUP2 05542000 PSAIPCEC EQU PSASUP2 05543000 PSAGTF EQU PSASUP2 05544000 PSAIPCRI EQU PSASUP2 05545000 PSATYPE6 EQU PSASUP1 05546000 PSATCTL EQU PSASUP1 05547000 PSADISP EQU PSASUP1 05548000 PSALOCK EQU PSASUP1 05549000 PSAPI EQU PSASUP1 05550000 PSAEXT EQU PSASUP1 05551000 PSASVC EQU PSASUP1 05552000 PSAIO EQU PSASUP1 05553000 PSAAOLD EQU PSA+548 05554000 PSAANEW EQU PSA+544 05555000 PSATNEW EQU PSA+536 05556000 PSALCCAR EQU PSA+532 05557000 PSAPCCAR EQU PSA+524 05558000 PSACPULA EQU PSA+518 05559000 PSACPUPA EQU PSA+516 05560000 PSAPSA EQU PSA+512 05561000 FLCHDEND EQU PSA+512 05562000 FLCCRSAV EQU FLCMCLA+280 05563000 FLCGRSAV EQU FLCMCLA+216 05564000 FLCFPSAV EQU FLCMCLA+184 05565000 FLCFLA EQU FLCMCLA+88 05566000 FLCRGNCD EQU FLCMCLA+84 05567000 FLCFSAA EQU FLCFSA+1 05568000 @NM00020 EQU FLCFSA 05569000 @NM00019 EQU FLCMCLA+72 05570000 FLCMCIC EQU FLCMCLA+64 05571000 @NM00018 EQU FLCMCLA+20 05572000 FLCIOAA EQU FLCIOA+1 05573000 @NM00017 EQU FLCIOA 05574000 @NM00016 EQU FLCMCLA+15 05575000 @NM00015 EQU FLCMCLA+14 05576000 @NM00014 EQU FLCMCLA+12 05577000 FLCLCL EQU FLCMCLA+8 05578000 FLCIOELA EQU FLCIOEL+1 05579000 @NM00013 EQU FLCIOEL 05580000 FLCCHNID EQU FLCMCLA 05581000 @NM00012 EQU PSA+160 05582000 FLCMTRCD EQU PSA+157 05583000 @NM00011 EQU PSA+156 05584000 FLCPERA EQU FLCPER+1 05585000 @NM00010 EQU FLCPER 05586000 @NM00009 EQU PSA+151 05587000 FLCPERCD EQU PSA+150 05588000 FLCMCNUM EQU PSA+149 05589000 @NM00008 EQU PSA+148 05590000 FLCTEAA EQU FLCTEA+1 05591000 @NM00007 EQU FLCTEA 05592000 PSAPIPC EQU PSAPICOD 05593000 PSAPIMC EQU PSAPICOD 05594000 PSAPIPER EQU PSAPICOD 05595000 PSARV049 EQU FLCPICOD 05596000 FLCPILCB EQU FLCPIILC 05597000 @NM00006 EQU FLCPIILC 05598000 @NM00005 EQU PSAEPPSW 05599000 FLCSVCN EQU PSAESPSW+2 05600000 FLCSILCB EQU FLCSVILC 05601000 @NM00004 EQU FLCSVILC 05602000 @NM00003 EQU PSAESPSW 05603000 FLCEICOD EQU PSAEEPSW+2 05604000 PSASPAD EQU PSAEEPSW 05605000 @NM00002 EQU PSA+128 05606000 FLCINPSW EQU PSA+120 05607000 FLCMNPSW EQU PSA+112 05608000 FLCPNPSW EQU PSA+104 05609000 FLCSNPSW EQU PSA+96 05610000 FLCENPSW EQU PSA+88 05611000 FLCTRACE EQU PSA+84 05612000 FLCTIMER EQU PSA+80 05613000 FLCCVT2 EQU PSA+76 05614000 FLCCAW EQU PSA+72 05615000 FLCCSW EQU PSA+64 05616000 FLCIOPSW EQU PSA+56 05617000 FLCMOPSW EQU PSA+48 05618000 FLCPOPSW EQU PSA+40 05619000 FLCSOPSW EQU PSA+32 05620000 FLCEOPSW EQU PSA+24 05621000 @NM00001 EQU FLCICCW2+4 05622000 FLCCVT EQU FLCICCW2 05623000 FLCICCW1 EQU FLCROPSW 05624000 FLCIPPSW EQU FLCRNPSW 05625000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 05626000 @RF00323 EQU @RC00314 05627000 @RC00339 EQU @RC00330 05628000 @RC00357 EQU @RC00353 05629000 @RF00645 EQU @RC00642 05630000 @RC00591 EQU @RC00589 05631000 @RC00676 EQU @RC00589 05632000 @RF00685 EQU @RC00589 05633000 @RF00752 EQU @RC00569 05634000 @RC00798 EQU @RC00792 05635000 @RC00801 EQU @RC00792 05636000 @RC00804 EQU @RC00792 05637000 @RF00810 EQU @RC00792 05638000 @RC00593 EQU @RC00591 05639000 @RF00619 EQU @RC00591 05640000 @RC00606 EQU @RC00591 05641000 @RF00621 EQU @RC00591 05642000 @RF00806 EQU @RC00804 05643000 @RF00608 EQU @RC00606 05644000 @ENDDATA EQU * 05645000 END IEAQPGTM,(C'PLS2013',0701,77144) 05646000