TITLE 'ISTAPM31-TPEXIT PROCESS *00001000 ' 00002000 ISTAPC31 CSECT , 0001 00003000 @PROLOG BALR @12,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@12 0001 00006000 EJECT 00007000 EJECT 00008000 MODESET EXTKEY=ZERO,SAVEKEY=(2) 00009000 * CRAPTR=RPHCRR; /* ESTABLISH CRA BASE */ 00010000 L CRAPTR,RPHCRR(,RPHPTR) 0249 00011000 * CRRPTR=ADDR(CRAPSS); /* ESTABLISH CRR BASE */ 00012000 LA CRRPTR,CRAPSS(,CRAPTR) 0250 00013000 * APCRFLG=0; /* CLEAR TRACE FLAGS @Z40GKF6*/ 00014000 SLR @10,@10 0251 00015000 STH @10,APCRFLG(,CRRPTR) 0251 00016000 * APC31R=ONBIT; /* 31 WAS ENTERED THIS DISPATCH */ 00017000 OI APC31R(CRRPTR),B'00000001' 0252 00018000 * APC31E=ONBIT; /* 31 ENTERED SINCE CRA OBTAINED */ 00019000 OI APC31E(CRRPTR),B'00000001' 0253 00020000 * APC31FLG=0; /* CLEAR TRACE FLAGS @Z40GKF6*/ 00021000 MVI APC31FLG(CRRPTR),X'00' 0254 00022000 * CURPAB=RPHMAJCB+RPHPABOF; /* LOOK AT EXITING PAB */ 00023000 L CURPAB,RPHMAJCB-1(,RPHPTR) 0255 00024000 LA CURPAB,0(,CURPAB) 0255 00025000 SLR @07,@07 0255 00026000 IC @07,RPHPABOF(,RPHPTR) 0255 00027000 ALR CURPAB,@07 0255 00028000 * IF CURPAB^=0 /* IF NOT DYPAB @Z40GKF6*/ 00029000 * THEN 0256 00030000 CR CURPAB,@10 0256 00031000 BE @RF00256 0256 00032000 * PABRUNNG=OFFBIT; /* SHOW PAB IS NOT ACTIVE 0257 00033000 * @Z40GKF6*/ 00034000 NI PABRUNNG(CURPAB),B'11111011' 0257 00035000 * ELSE 0258 00036000 * ; /* @Z40GKF6*/ 00037000 @RF00256 DS 0H 0259 00038000 * IF RPHRESUM=0 /* EXITING FOR TPWAIT ? @Z40GKF6*/ 00039000 * THEN 0259 00040000 L @10,RPHRESUM-1(,RPHPTR) 0259 00041000 LA @10,0(,@10) 0259 00042000 LTR @10,@10 0259 00043000 BNZ @RF00259 0259 00044000 * DO; /* NO - THEN SET UP CRA HDR */ 00045000 * CRACRR=CRRPTR; /* INSURE CRACRR PTS TO CRR FOR 00046000 * PSS @ZM32638*/ 00047000 ST CRRPTR,CRACRR(,CRAPTR) 0261 00048000 * IF CRALKACT^=0 /* ANY LOCKS HELD ? @Z40GKF6*/ 00049000 * THEN 0262 00050000 L @10,CRALKACT(,CRAPTR) 0262 00051000 LTR @10,@10 0262 00052000 BZ @RF00262 0262 00053000 * DO; /* YES, THEN ABEND */ 00054000 * RFY 0264 00055000 * (REG15) RSTD; 0264 00056000 * REG15=ABNDRESN; /* LOAD REG 15 WITH REASON */ 00057000 L REG15,@CF02797 0265 00058000 * GEN CODE(ABEND 169,,,SYSTEM); 0266 00059000 ABEND 169,,,SYSTEM 00060000 * RFY 0267 00061000 * (REG15) UNRSTD; 0267 00062000 * END; 0268 00063000 * ELSE 0269 00064000 * ; /* NO LOCKS HELD,NO ERROR */ 00065000 @RF00262 DS 0H 0270 00066000 */********************************************************************/ 00067000 */* */ 00068000 */* RESCHEDULE EXITING PAB IF REQUESTED/REQUIRED */ 00069000 */* */ 00070000 */********************************************************************/ 00071000 * 0270 00072000 * IF CURPAB^=0 /* @Z40GKF6*/ 00073000 * THEN 0270 00074000 SLR @10,@10 0270 00075000 CR CURPAB,@10 0270 00076000 BE @RF00270 0270 00077000 * DO; 0271 00078000 * PABRPHA=0; /* DISCONNECT RPH FROM PAB 0272 00079000 * @Z40GKF6*/ 00080000 STCM @10,7,PABRPHA(CURPAB) 0272 00081000 * IF SCHEDREG=0 THEN /* RESCH PAB? @Z40GKF6*/ 00082000 CR SCHEDREG,@10 0273 00083000 BNE @RF00273 0273 00084000 *CKRSCD: 0274 00085000 * IF PABRESCH^=ONBIT THEN 0274 00086000 CKRSCD TM PABRESCH(CURPAB),B'01000000' 0274 00087000 BO @RF00274 0274 00088000 * DO; /* PAB NOT RESCHEDULED BY ANOTHER 00089000 * PROCESS TO THIS POINT BUT MUST 00090000 * INSURE PABRESCH BIT IS OFF VIA 00091000 * CS */ 00092000 * OLD=PABCHAIN; 0276 00093000 L OLD,PABCHAIN(,CURPAB) 0276 00094000 * NEW=OLD&PABCHNG0; /* TURN OFF PAB RUNNING FLAG */ 00095000 LR NEW,OLD 0277 00096000 N NEW,@CF01339 0277 00097000 * CS(OLD,NEW,PABCHAIN);/* SWAP BIT */ 00098000 CS OLD,@06,PABCHAIN(CURPAB) 0278 00099000 * BC(7,CKRSCD); /* FAIL,LOOP AGAIN */ 00100000 BC 7,CKRSCD 0279 00101000 * END; 0280 00102000 * ELSE 0281 00103000 * GOTO RESCHED; /* PAB RESCHED BIT IS ON. GO 0281 00104000 * RESCHEDULE */ 00105000 * ELSE 0282 00106000 * DO; /* SCHEDREG NOT ZERO @Z40GKF6*/ 00107000 B @RC00273 0282 00108000 @RF00273 DS 0H 0283 00109000 *RESCHED: 0283 00110000 * OLD=PABCHAIN; /* GET RESCHED BIT (PABRESCH) */ 00111000 RESCHED L OLD,PABCHAIN(,CURPAB) 0283 00112000 * RFY 0284 00113000 * (OLDEVEN, 0284 00114000 * OLDODD, 0284 00115000 * NEWEVEN, 0284 00116000 * NEWEVENF, 0284 00117000 * NEWODD, 0284 00118000 * GPR14P) RSTD; 0284 00119000 *SWAPRESC: 0285 00120000 * NEW=OLD&PABRESC0; /* TURN RESCHED BIT OFF */ 00121000 SWAPRESC LR NEW,OLD 0285 00122000 N NEW,@CF01345 0285 00123000 * CS(OLD,NEW,PABCHAIN);/* TRY TO TURN RESCHED BIT OFF */ 00124000 CS OLD,@06,PABCHAIN(CURPAB) 0286 00125000 * BC(7,SWAPRESC); /* SWAP TILL OFF */ 00126000 BC 7,SWAPRESC 0287 00127000 *RSCDS: 0288 00128000 * OLDEVEN=PABWEQA; /* GET WORK ELEMENT QUEUE */ 00129000 RSCDS L OLDEVEN,PABWEQA(,CURPAB) 0288 00130000 * NEWEVEN=OLDEVEN&PABWEQG0;/* TURN OFF GATEBIT */ 00131000 LR NEWEVEN,OLDEVEN 0289 00132000 N NEWEVEN,@CF01339 0289 00133000 * OLDODD=PABCHAIN; /* LOOK AT PABCHAIN */ 00134000 L OLDODD,PABCHAIN(,CURPAB) 0290 00135000 * NEWODD=OLDODD&PABUNCO1;/* LOOK AT UNCONDITIONAL 0291 00136000 * RESCHED FL */ 00137000 * 0291 00138000 LR NEWODD,OLDODD 0291 00139000 N NEWODD,@CF01357 0291 00140000 * /*****************************************************/ 00141000 * /* */ 00142000 * /* IF WORK EXISTS ON WORK ELEMENT QUEUE OR PAB HAS */ 00143000 * /* BEEN UNCONDITIONALLY RESCHEDULED THEN PUT ON */ 00144000 * /* RPHPABQ */ 00145000 * /* */ 00146000 * /*****************************************************/ 00147000 * 0292 00148000 * IF(NEWEVENF>0|NEWODD^=0)/* @Z40GKF6*/ 00149000 * THEN /* WORK PRESENT OR UNCOND. 0292 00150000 * RESCHED */ 00151000 SLR @15,@15 0292 00152000 CR NEWEVENF,@15 0292 00153000 BH @RT00292 0292 00154000 CR NEWODD,@15 0292 00155000 BE @RF00292 0292 00156000 @RT00292 DS 0H 0293 00157000 * DO; 0293 00158000 *SWAPUNC: 0294 00159000 * NEWODD=OLDODD&PABUNCO0;/* UNCOND RESCHD BIT OFF */ 00160000 SWAPUNC LR NEWODD,OLDODD 0294 00161000 N NEWODD,@CF01355 0294 00162000 * CS(OLDODD,NEWODD,PABCHAIN);/* TURN IT OFF IN PAB */ 00163000 CS OLDODD,@07,PABCHAIN(CURPAB) 0295 00164000 * BC(7,SWAPUNC); /* TRY TILL SUCCEED */ 00165000 BC 7,SWAPUNC 0296 00166000 * PABCHNGP=RPHPABQP;/* PUT PAB ON RPH PAB QUEUE */ 00167000 MVC PABCHNGP(3,CURPAB),RPHPABQP(RPHPTR) 0297 00168000 * RPHPABQP=CURPAB; 0298 00169000 STCM CURPAB,7,RPHPABQP(RPHPTR) 0298 00170000 * END; 0299 00171000 * ELSE /* NO WORK,OR NOT UNCOND. RESCHED*/ 00172000 * DO; /* SO SUSPEND PAB */ 00173000 B @RC00292 0300 00174000 @RF00292 DS 0H 0301 00175000 * NEWODD=OLDODD&PABCHNG0;/* TURN OFF PAB RUNNING 0301 00176000 * BIT */ 00177000 LR NEWODD,OLDODD 0301 00178000 N NEWODD,@CF01339 0301 00179000 * CDS(OLDEVEN,NEWEVEN,PABWQCHN);/* SUSPEND PAB 0302 00180000 * @Z40GKF6*/ 00181000 CDS OLDEVEN,NEWEVEN,PABWQCHN(CURPAB) 0302 00182000 * BC(7,RSCDS); /* IF FAIL, MUST CHK ALL FLGS 0303 00183000 * AGAIN */ 00184000 BC 7,RSCDS 0303 00185000 * END; 0304 00186000 * END; /* END RESCHEDULE PAB */ 00187000 @RC00292 DS 0H 0306 00188000 * RFY 0306 00189000 * (OLDEVEN, 0306 00190000 * OLDODD, 0306 00191000 * NEWEVEN, 0306 00192000 * NEWEVENF, 0306 00193000 * NEWODD, 0306 00194000 * GPR14P) UNRSTD; 0306 00195000 @RC00273 DS 0H 0307 00196000 * END; /* END - NOT DYNAPAB RESCHEDULE 00197000 * CHECK */ 00198000 * RFY 0308 00199000 * SCHEDREG UNRSTD; 0308 00200000 @RF00270 DS 0H 0309 00201000 * RPHPAB=0; /* ZERO PAB OFFSET & MAJOR CB 0309 00202000 * @Z40GKF6*/ 00203000 SLR @10,@10 0309 00204000 ST @10,RPHPAB(,RPHPTR) 0309 00205000 * APCRESCH=ONBIT; /* AUDIT TRACE, RESCHED. 0310 00206000 * COMPLETED */ 00207000 OI APCRESCH(CRRPTR),B'01000000' 0310 00208000 * END; /* END OF NOT EXITING FOR TPWAIT 00209000 * @ZM31164*/ 00210000 * ELSE 0312 00211000 * DO; /* CODE DONE ONLY FOR TPWAIT 0312 00212000 * @Z401406*/ 00213000 B @RC00259 0312 00214000 @RF00259 DS 0H 0313 00215000 * SLL(KEYREG,24); /* GET CALLERS KEY IN HI FOUR 0313 00216000 * BITS @Z401406*/ 00217000 SLL KEYREG,24 0313 00218000 * OLD=RPHRESMA; /* GET FLAGS & RESUME ADDR 0314 00219000 * @Z401406*/ 00220000 L OLD,RPHRESMA(,RPHPTR) 0314 00221000 *SAVKEY: 0315 00222000 * ; /* @Z401406*/ 00223000 SAVKEY DS 0H 0316 00224000 * NEW=OLD|KEYREG; /* OR IN CALLER KEY TO 4 HI BITS 00225000 * @Z401406*/ 00226000 LR NEW,OLD 0316 00227000 OR NEW,KEYREG 0316 00228000 * CS(OLD,NEW,RPHRESMA); /* SWAP IN NEW KEY @Z401406*/ 00229000 CS OLD,@06,RPHRESMA(RPHPTR) 0317 00230000 * BC(7,SAVKEY); /* TRY UNTIL SUCCEED @Z401406*/ 00231000 BC 7,SAVKEY 0318 00232000 * RFY 0319 00233000 * KEYREG UNRSTD; /* @Z401406*/ 00234000 * END; /* END OF TPWAIT UNIQUE CODE 0320 00235000 * @Z401406*/ 00236000 */********************************************************************/ 00237000 */* PABS WHICH ARE NOW ON THE RPHPAB QUEUE (PUT THERE WHEN SCHEDULED */ 00238000 */* BY THE PROCESS NOW EXITING) ARE SCHEDULED VIA CALLS TO ISTAPC32 */ 00239000 */* TO PLACE THEM ON THEIR ASSOCITED PSTS/MPSTS. ONE */ 00240000 */* PAB IS SAVED FOR DIRECT DISPATCH IF THE EXITING PROCESS IS */ 00241000 */* RUNNING UNDER AN SRB AND A PAB CAN BE FOUND WHICH IS ASSOCIATED */ 00242000 */* WITH THE MEMORY OF THE EXITING TASK */ 00243000 */********************************************************************/ 00244000 * 0321 00245000 * /* */ 00246000 * APCPABSV=0; /* NO PAB SAVED FOR DISPATCH YET 00247000 * @Z40GKF6*/ 00248000 @RC00259 SLR @10,@10 0321 00249000 ST @10,APCPABSV(,CRRPTR) 0321 00250000 *TEST: 0322 00251000 * CURPAB=RPHPABQP; /* GET RPH PAB QUEUE CONTENTS 0322 00252000 * @Z40GKF6*/ 00253000 TEST L CURPAB,RPHPABQP-1(,RPHPTR) 0322 00254000 LA CURPAB,0(,CURPAB) 0322 00255000 * IF CURPAB^=0 /* ANYTHING ON PAB QUEUE? 0323 00256000 * @Z40GKF6*/ 00257000 * THEN /* YES @Z40GKF6*/ 00258000 SLR @10,@10 0323 00259000 CR CURPAB,@10 0323 00260000 BE @RF00323 0323 00261000 * DO; /* @Z40GKF6*/ 00262000 * IF PABCHNGP=0 /* ONLY ONE PAB ON Q? @Z40GKF6*/ 00263000 * THEN /* YES @Z40GKF6*/ 00264000 L @07,PABCHNGP-1(,CURPAB) 0325 00265000 LA @07,0(,@07) 0325 00266000 LTR @07,@07 0325 00267000 BNZ @RF00325 0325 00268000 * RPHPABQA=0; /* ZERO ANCHOR @Z40GKF6*/ 00269000 ST @10,RPHPABQA(,RPHPTR) 0326 00270000 * ELSE /* SEVERAL PABS ON Q @Z40GKF6*/ 00271000 * DO; /* UPDATE @Z40GKF6*/ 00272000 B @RC00325 0327 00273000 @RF00325 DS 0H 0328 00274000 * RFY 0328 00275000 * BACKPAB RSTD; /* @Z40GKF6*/ 00276000 *UPDATE: 0329 00277000 * BACKPAB=CURPAB; /* UPDATE BACK PTR @Z40GKF6*/ 00278000 UPDATE LR BACKPAB,CURPAB 0329 00279000 * CURPAB=PABCHNGP; /* UPDATE PAB PTR @Z40GKF6*/ 00280000 L @10,PABCHNGP-1(,CURPAB) 0330 00281000 LA @10,0(,@10) 0330 00282000 LR CURPAB,@10 0330 00283000 * IF PABCHNGP=0 /* DO WE HAVE LAST PAB? @Z40GKF6*/ 00284000 * THEN /* YES @Z40GKF6*/ 00285000 L @10,PABCHNGP-1(,CURPAB) 0331 00286000 LA @10,0(,@10) 0331 00287000 LTR @10,@10 0331 00288000 BNZ @RF00331 0331 00289000 * BACKPAB->PABCHNGP=0; /* ZERO LAST PTR @Z40GKF6*/ 00290000 SLR @10,@10 0332 00291000 STCM @10,7,PABCHNGP(BACKPAB) 0332 00292000 * ELSE /* NO @Z40GKF6*/ 00293000 * GOTO UPDATE; /* UPDATE POINTERS @Z40GKF6*/ 00294000 * END; /* END DEQUED LAST OF SEVERAL 0334 00295000 * PABS @Z40GKF6*/ 00296000 * RFY 0335 00297000 * BACKPAB UNRSTD; /* @Z40GKF6*/ 00298000 @RC00325 DS 0H 0336 00299000 */* PABS QUEUED OFF THE RPH PAB QUEUE ARE ALL FOR THE SAME TASK. IF */ 00300000 */* EXITING RPH IS ABENDING, THESE PABS MUST NOT BE DISPATCHED AND IF*/ 00301000 */* THEY ARE CONNECTED TO CRA'S THESE CRA'S MUST BE RELEASED. */ 00302000 * 0336 00303000 * IF RPHTSKID->PSTABINP=ONBIT /* IS EXITING TASK ABENDING 0336 00304000 * @Z40GKF6*/ 00305000 * THEN /* YES @Z40GKD6*/ 00306000 L @10,RPHTSKID(,RPHPTR) 0336 00307000 TM PSTABINP(@10),B'00000001' 0336 00308000 BNO @RF00336 0336 00309000 * DO; /* TURN ON RELEASE CRA FLAG 0337 00310000 * @Z40GKF6*/ 00311000 * IF PABRPHA^=0 /* DOES THIS PAB HAVE AN RPH 0338 00312000 * @Z40GKF6*/ 00313000 * THEN 0338 00314000 L @10,PABRPHA-1(,CURPAB) 0338 00315000 LA @10,0(,@10) 0338 00316000 LTR @10,@10 0338 00317000 BZ @RF00338 0338 00318000 * PABRPHA->RPHRLCRA=ONBIT;/* YES - FLAG ON @Z40GKF6*/ 00319000 OI RPHRLCRA(@10),B'00000100' 0339 00320000 * ELSE 0340 00321000 * ; /* NO @Z40GKF6*/ 00322000 @RF00338 DS 0H 0341 00323000 * END; /* END PAB TASK ABENDING @Z40GKF6*/ 00324000 * ELSE 0342 00325000 * DO; /* PROCESSING FOR NON-ABENDING 0342 00326000 * TASK @Z40GKF6*/ 00327000 B @RC00336 0342 00328000 @RF00336 DS 0H 0343 00329000 * IF PABAPYP=ONBIT /* USER EXIT PAB ? */ 00330000 * THEN 0343 00331000 TM PABAPYP(CURPAB),B'10000000' 0343 00332000 BNO @RF00343 0343 00333000 * PABSSN=ONBIT; /* ALL USER EXITS TO RUN UNDER 0344 00334000 * IRB */ 00335000 OI PABSSN(CURPAB),B'00001000' 0344 00336000 * ELSE 0345 00337000 * ; /* @Z40GKF6*/ 00338000 @RF00343 DS 0H 0346 00339000 * IF(RPHAUTEX=ONBIT| /* AUTH USER EXIT SAVED? @Z40GKF6*/ 00340000 * PABSSN=ONBIT| /* OR SYSTEM SERVICE PAB DEQUED 00341000 * @Z40GKF6*/ 00342000 * APCSSTSK=ONBIT| /* OR RUNNING UNDER IRB @Z40GKF6*/ 00343000 * RPHRESUM^=0) /* OR EXITING FOR TPWAIT @Z40GKF6*/ 00344000 * THEN /* IF ANY OF THESE CONDITIONS ARE 00345000 * @Z40GKF6*/ 00346000 TM RPHAUTEX(RPHPTR),B'00100000' 0346 00347000 BO @RT00346 0346 00348000 TM PABSSN(CURPAB),B'00001000' 0346 00349000 BO @RT00346 0346 00350000 TM APCSSTSK(CRRPTR),B'10000000' 0346 00351000 BO @RT00346 0346 00352000 L @10,RPHRESUM-1(,RPHPTR) 0346 00353000 LA @10,0(,@10) 0346 00354000 LTR @10,@10 0346 00355000 BZ @RF00346 0346 00356000 @RT00346 DS 0H 0347 00357000 * DO; /* TRUE THEN OFF WE GO TO APC32 00358000 * @Z40GKF6*/ 00359000 * GOTO APC32; /* @Z40GKF6*/ 00360000 B APC32 0348 00361000 * END; /* FALL THRU TO CODE TO CHECK 0349 00362000 * MPST IF BITS OFF @Z40GKF6*/ 00363000 * RFY 0350 00364000 * PABMPST RSTD; /* WE ALSO MUST TEST THE MPST 0350 00365000 * @Z40GKF6*/ 00366000 @RF00346 DS 0H 0351 00367000 * CURMPST=PSAAOLD->ASCBASXB->ASXBMPST;/* MPST OF CURRENT 0351 00368000 * MEMORY */ 00369000 L @07,PSAAOLD 0351 00370000 L @07,ASCBASXB(,@07) 0351 00371000 L CURMPST,ASXBMPST(,@07) 0351 00372000 * PABMPST=(CURPAB-PABOFFST)->DYPTSKID;/* PST OF CURRENT PAB*/ 00373000 LR @10,CURPAB 0352 00374000 SLR @07,@07 0352 00375000 IC @07,PABOFFST(,CURPAB) 0352 00376000 SLR @10,@07 0352 00377000 L PABMPST,DYPTSKID(,@10) 0352 00378000 * PABMPST=PABMPST->PSTMPSTP;/* MPST OF CURRENT PAB */ 00379000 L PABMPST,PSTMPSTP(,PABMPST) 0353 00380000 * IF PABMPST->MPSASID^=MPSASID/* PAB NOT IN SAME ADDRESS 0354 00381000 * SPACE? */ 00382000 * THEN /* @Z40GKF6*/ 00383000 CLC MPSASID(2,PABMPST),MPSASID(CURMPST) 0354 00384000 BE @RF00354 0354 00385000 * DO; /* PAB NOT DIRECTLY 0355 00386000 * DISPATCHABLE-SEND TO 32 0355 00387000 * @Z40GKF6*/ 00388000 *APC32: 0356 00389000 * RFY 0356 00390000 * (GPR00P, 0356 00391000 * GPR05P, 0356 00392000 * GPR15P, 0356 00393000 * SAVREG) RSTD; /* @Z40GKF6*/ 00394000 APC32 DS 0H 0357 00395000 * GPR00P=0; /* @Z40GKF6*/ 00396000 SLR GPR00P,GPR00P 0357 00397000 * SAVREG=RPHPTR; /* SAVEDRPH PTR ACROSS CALL 0358 00398000 * @Z40GKF6*/ 00399000 LR SAVREG,RPHPTR 0358 00400000 * GPR05P=CURPAB; /* PAB INTERFACE TO APC32 0359 00401000 * @Z40GKF6*/ 00402000 LR GPR05P,CURPAB 0359 00403000 * DO; /* LISATCVT 0360 00404000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00405000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00406000 L GPR15P,ATCLCPTR 0361 00407000 * END; /* LISATCVT @Z40GKF6*/ 00408000 * CALL GPR15P->ATCAP32;/* CALL APC32 @Z40GKF6*/ 00409000 L @14,ATCAP32(,GPR15P) 0363 00410000 LR @15,@14 0363 00411000 BALR @14,@15 0363 00412000 * RPHPTR=SAVREG; /* RESTORE RPH PTR @Z40GKF6*/ 00413000 LR RPHPTR,SAVREG 0364 00414000 * RFY 0365 00415000 * (GPR00P, 0365 00416000 * GPR05P, 0365 00417000 * GPR15P, 0365 00418000 * SAVREG) UNRSTD; /* @Z40GKF6*/ 00419000 * END; /* END SEND NONDIRECTDISPATCH 0366 00420000 * PABS TO APC32 @Z40GKF6*/ 00421000 * ELSE /* ALL BITS OFF & WE HAVE SAME 0367 00422000 * MPST @Z40GKF6*/ 00423000 * DO; /* PAB IS 0367 00424000 * DIRECTLYDISPATCHABLE-SAVE IT 00425000 * @Z40GKF6*/ 00426000 B @RC00354 0367 00427000 @RF00354 DS 0H 0368 00428000 * IF APCPABSV^=0 /* IS A PAB SAVED? @Z40GKF6*/ 00429000 * THEN /* YES @Z40GKF6*/ 00430000 L @10,APCPABSV(,CRRPTR) 0368 00431000 LTR @10,@10 0368 00432000 BZ @RF00368 0368 00433000 * DO; /* EITHER OLD OR NEW TO APC32 0369 00434000 * @Z402050*/ 00435000 * IF APCPABSV->PABRPHA^=0/* HAS IT AN RPH? @Z40GKF6*/ 00436000 * THEN /* YES @Z40GKF6*/ 00437000 L @07,PABRPHA-1(,@10) 0370 00438000 LA @07,0(,@07) 0370 00439000 LTR @07,@07 0370 00440000 BZ @RF00370 0370 00441000 * DO; /* SWITCH PABS @Z40GKF6*/ 00442000 * RFY 0372 00443000 * PABMPST UNRSTD;/* @Z40GKF6*/ 00444000 * RFY 0373 00445000 * WORK RSTD;/* @Z40GKF6*/ 00446000 * WORK=CURPAB;/* @Z40GKF6*/ 00447000 LR WORK,CURPAB 0374 00448000 * CURPAB=APCPABSV;/* @Z40GKF6*/ 00449000 LR CURPAB,@10 0375 00450000 * APCPABSV=WORK;/* @Z40GKF6*/ 00451000 ST WORK,APCPABSV(,CRRPTR) 0376 00452000 * RFY 0377 00453000 * WORK UNRSTD;/* @Z40GKF6*/ 00454000 * END; /* END PAB SWITCH @Z40GKF6*/ 00455000 * ELSE 0379 00456000 * ; /* DONT SAVE PAB-WE HAVE ONE SANS 00457000 * RPH @Z40GKF6*/ 00458000 @RF00370 DS 0H 0380 00459000 * GOTO APC32; /* MUST GO TO 32 IF +1 DIRDISPAB 00460000 * @Z402050*/ 00461000 B APC32 0380 00462000 * END; /* END OF HAVING FOUND +1 DIRECT 00463000 * DIS PAB @Z402050*/ 00464000 * ELSE /* NO PAB SAVED @Z40GKF6*/ 00465000 * APCPABSV=CURPAB; /* SAVE FIRST PAB @Z40GKF6*/ 00466000 @RF00368 ST CURPAB,APCPABSV(,CRRPTR) 0382 00467000 * END; /* END OF PAB SAVE FOR DIRECT 0383 00468000 * DISPATCTH @Z40GKF6*/ 00469000 * GOTO TEST; /* SEE WHATS LEFT ON RPHPABQ 0384 00470000 * @Z40GKF6*/ 00471000 B TEST 0384 00472000 * END; /* END PAB TASK NOT ABENDING 0385 00473000 * @Z40GKF6*/ 00474000 * END; /* END OF SOMETHING OF RPHPABQ 0386 00475000 * @Z40GKF6*/ 00476000 * ELSE 0387 00477000 * ; /* NOW WE WANT TO KNOW IF EXIT 0387 00478000 * PROC POSTED @Z40GKF6*/ 00479000 @RF00323 DS 0H 0388 00480000 * IF APCSSTSK^=OFFBIT /* IS TASK RUNNING UNDER SRB ? */ 00481000 * THEN 0388 00482000 @RC00323 TM APCSSTSK(CRRPTR),B'10000000' 0388 00483000 BZ @RF00388 0388 00484000 * DO; /* NO */ 00485000 * IF RPHRESUM^=0 /* IS EXITING PAB TPWAITED ? 0390 00486000 * @Z40GKF6*/ 00487000 * THEN 0390 00488000 L @10,RPHRESUM-1(,RPHPTR) 0390 00489000 LA @10,0(,@10) 0390 00490000 LTR @10,@10 0390 00491000 BZ @RF00390 0390 00492000 * DO; /* YES, SO HIS RPH/CRA IS NOT 0391 00493000 * AVAILABLE, MUST GET A NEW ONE 00494000 * REG 13 HAS CRR POINTER AT THIS 00495000 * POINT */ 00496000 * RFY 0392 00497000 * GPR15P RSTD; 0392 00498000 * DO; /* LISATCVT 0393 00499000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00500000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00501000 L GPR15P,ATCLCPTR 0394 00502000 * END; /* LISATCVT */ 00503000 * CALL GPR15P->ATCAP53; /* GET CRA/RPH */ 00504000 L @14,ATCAP53(,GPR15P) 0396 00505000 LR @15,@14 0396 00506000 BALR @14,@15 0396 00507000 * RFY 0397 00508000 * GPR15P UNRSTD; 0397 00509000 * RFY 0398 00510000 * (NEWCRA, 0398 00511000 * NEWCRR, 0398 00512000 * NEWRPH, 0398 00513000 * GPR00F) RSTD; 0398 00514000 * IF GPR00F<0 /* SMS CRA OBTAINED ? @Z40GKF6*/ 00515000 * THEN 0399 00516000 LTR GPR00F,GPR00F 0399 00517000 BNM @RF00399 0399 00518000 * DO; /* YES, GET CRA ADDRESS */ 00519000 * GEN REFS(GPR00F,NEWCRA) SETS(NEWCRA) 0401 00520000 * (LCR NEWCRA,GPR00F); 0401 00521000 LCR NEWCRA,GPR00F 00522000 * NEWCRR=ADDR(NEWCRA->CRAPSS);/* LOCATE PSS CRR */ 00523000 LA NEWCRR,CRAPSS(,NEWCRA) 0402 00524000 * NEWCRR->APCCOMF=APCCOMF; 0403 00525000 MVC APCCOMF(4,NEWCRR),APCCOMF(CRRPTR) 0403 00526000 * NEWCRR->APCSMCR=ONBIT; 0404 00527000 OI APCSMCR(NEWCRR),B'00100000' 0404 00528000 * END; 0405 00529000 * ELSE 0406 00530000 * DO; /* NO,NORMAL DISPATCH CRR INIT. */ 00531000 * 0406 00532000 B @RC00399 0406 00533000 @RF00399 DS 0H 0407 00534000 * /*****************************************************/ 00535000 * /* */ 00536000 * /* COPY AND INITIALIZE THE NEW CRA FROM TPWAITED CRA */ 00537000 * /* */ 00538000 * /*****************************************************/ 00539000 * 0407 00540000 * NEWCRA=GPR00F; /* GET CRA ADDRESS */ 00541000 LR NEWCRA,GPR00F 0407 00542000 * NEWCRR=ADDR(NEWCRA->CRAPSS); 0408 00543000 LA NEWCRR,CRAPSS(,NEWCRA) 0408 00544000 * NEWCRA->CRACRR=NEWCRR; 0409 00545000 ST NEWCRR,CRACRR(,NEWCRA) 0409 00546000 * NEWCRA->CRAFRR=0; /* NO FRR ADDR @Z40GKF6*/ 00547000 SLR @10,@10 0410 00548000 ST @10,CRAFRR(,NEWCRA) 0410 00549000 * NEWRPH=ADDR(NEWCRA->CRARPH); 0411 00550000 LA NEWRPH,CRARPH(,NEWCRA) 0411 00551000 * NEWRPH->RPHCRR=NEWCRA; 0412 00552000 ST NEWCRA,RPHCRR(,NEWRPH) 0412 00553000 * NEWCRA->CRALKACT=0; /* @Z40GKF6*/ 00554000 ST @10,CRALKACT(,NEWCRA) 0413 00555000 * NEWCRR->APCHDRSV=NEWCRR->APCHDRSV&&NEWCRR->APCHDRSV; 00556000 XC APCHDRSV(16,NEWCRR),APCHDRSV(NEWCRR) 0414 00557000 * NEWCRR->APCCOMF=CRRPTR->APCCOMF; 0415 00558000 MVC APCCOMF(4,NEWCRR),APCCOMF(CRRPTR) 0415 00559000 * END; /* END NORMAL DISPATCH CRR INIT. */ 00560000 * RFY 0417 00561000 * GPR00F UNRSTD; 0417 00562000 * 0417 00563000 @RC00399 DS 0H 0418 00564000 * /*********************************************************/ 00565000 * /* */ 00566000 * /* COPY TCB @, PST @, RETURN @, & FLAGS */ 00567000 * /* */ 00568000 * /*********************************************************/ 00569000 * 0418 00570000 * NEWCRR->APCTCBA=APCTCBA;/* COPY TCB ADDR */ 00571000 L @10,APCTCBA(,CRRPTR) 0418 00572000 ST @10,APCTCBA(,NEWCRR) 0418 00573000 * NEWCRR->APCPSTA=APCPSTA;/* COPY PST ADDR */ 00574000 L @10,APCPSTA(,CRRPTR) 0419 00575000 ST @10,APCPSTA(,NEWCRR) 0419 00576000 * NEWCRR->APCRTRN=APCRTRN;/* COPY RETURN ADDR */ 00577000 L @02,APCRTRN(,CRRPTR) 0420 00578000 ST @02,APCRTRN(,NEWCRR) 0420 00579000 * NEWCRR->APCRFLG=APCRFLG;/* COPY RUNNING FLAGS */ 00580000 MVC APCRFLG(2,NEWCRR),APCRFLG(CRRPTR) 0421 00581000 * NEWCRR->APC31FLG=APC31FLG;/* COPY APC31 FLAGS */ 00582000 MVC APC31FLG(1,NEWCRR),APC31FLG(CRRPTR) 0422 00583000 * NEWCRR->APCATFLG=APCATFLG;/* COPY ACTIVE FLAGS */ 00584000 MVC APCATFLG(2,NEWCRR),APCATFLG(CRRPTR) 0423 00585000 * CURMPST=APCPSTA->PSTMPSTP;/* GET PTR TO MPST */ 00586000 * 0424 00587000 L CURMPST,PSTMPSTP(,@10) 0424 00588000 * /*********************************************************/ 00589000 * /* */ 00590000 * /* BEFORE CONTINUING, THE PAB WHICH EXITED IS EITHER */ 00591000 * /* REDISPATCHED (IF POSTED BETWEEN WAIT & NOW OR IS */ 00592000 * /* OFFICIALLY TPWAITED VIA COMPARE AND SWAP LOGIC THE */ 00593000 * /* CODE WHICH SET UP THE PARAMETER LIST @ZA18938*/ 00594000 * /* AND EXECUTED ESTAE SVC WAS MOVED PAST THE @ZA18938*/ 00595000 * /* FOLLOWING WAIT/POST LOGIC. THIS IS TO @ZA18938*/ 00596000 * /* ENSURE THAT IF AN ABEND OCCURS, THE SCB @ZA18938*/ 00597000 * /* PARM POINTS TO THE TPWAITING RPH, NOT THE @ZA18938*/ 00598000 * /* CRA ON WHICH PSS IS NOW RUNNING @ZA18938*/ 00599000 * /* */ 00600000 * /*********************************************************/ 00601000 * 0425 00602000 * OLD=RPHRESMA; /* LOOK AT RESUME ADDRESS */ 00603000 L OLD,RPHRESMA(,RPHPTR) 0425 00604000 *TSTPST1: 0426 00605000 * IF RPHPT=ONBIT /* PAB/RPH POSTED ? */ 00606000 * THEN /* YES,TURN OFF WAIT/EXIT FLG AND 00607000 * POST FLAG */ 00608000 TSTPST1 TM RPHPT(RPHPTR),B'00000100' 0426 00609000 BNO @RF00426 0426 00610000 * DO; 0427 00611000 *SWAPWTPT: 0428 00612000 * NEW=OLD&RPHWT0&RPHPT0;/* SWAP RPH WT & PT BITS OFF */ 00613000 SWAPWTPT LR NEW,OLD 0428 00614000 N NEW,@CF02894 0428 00615000 * CS(OLD,NEW,RPHRESMA);/* TRY TO TURN OFF */ 00616000 CS OLD,@06,RPHRESMA(RPHPTR) 0429 00617000 * BC(7,SWAPWTPT); /* TRY TILL SUCCEED */ 00618000 * 0430 00619000 BC 7,SWAPWTPT 0430 00620000 * /*****************************************************/ 00621000 * /* */ 00622000 * /* SINCE PAB IS POSTED, WE WILL REDIS- PATCH IT VIA */ 00623000 * /* CALL TO 32 */ 00624000 * /* */ 00625000 * /*****************************************************/ 00626000 * 0431 00627000 * RFY 0431 00628000 * (GPR00P, 0431 00629000 * GPR05P, 0431 00630000 * GPR15P, 0431 00631000 * SAVREG) RSTD; 0431 00632000 * GPR00P=0; /* SET REG 0 = 0 FOR APC32 0432 00633000 * @Z40GKF6*/ 00634000 SLR GPR00P,GPR00P 0432 00635000 * SAVREG=GPR05P; /* SAVE NEW CRR ADDR */ 00636000 LR SAVREG,GPR05P 0433 00637000 * GPR05P=RPHMAJCB+RPHPABOF;/* PASS PAB ADDR */ 00638000 L GPR05P,RPHMAJCB-1(,RPHPTR) 0434 00639000 LA GPR05P,0(,GPR05P) 0434 00640000 SLR @14,@14 0434 00641000 IC @14,RPHPABOF(,RPHPTR) 0434 00642000 ALR GPR05P,@14 0434 00643000 * DO; /* LISATCVT 0435 00644000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00645000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00646000 L GPR15P,ATCLCPTR 0436 00647000 * END; /* LISATCVT */ 00648000 * CALL GPR15P->ATCAP32; 0438 00649000 L @14,ATCAP32(,GPR15P) 0438 00650000 LR @15,@14 0438 00651000 BALR @14,@15 0438 00652000 * GPR05P=SAVREG; /* RESTORE NEWCRR ADDR */ 00653000 LR GPR05P,SAVREG 0439 00654000 * RFY 0440 00655000 * (GPR00P, 0440 00656000 * GPR05P, 0440 00657000 * GPR15P, 0440 00658000 * SAVREG) UNRSTD; 0440 00659000 * END; 0441 00660000 * ELSE 0442 00661000 * DO; /* PAB NOT POSTED, SWAP WAIT/EXIT 00662000 * BIT OFF */ 00663000 B @RC00426 0442 00664000 @RF00426 DS 0H 0443 00665000 * NEW=OLD&RPHWT0; /* WAIT/EXIT FLG OFF */ 00666000 LR NEW,OLD 0443 00667000 N NEW,@CF01298 0443 00668000 * CS(OLD,NEW,RPHRESMA);/* TRY TO TURN OFF */ 00669000 CS OLD,@06,RPHRESMA(RPHPTR) 0444 00670000 * BC(7,TSTPST1); /* FAIL,GO TO TOP OF LOOP */ 00671000 BC 7,TSTPST1 0445 00672000 * END; 0446 00673000 * 0446 00674000 * /*********************************************************/ 00675000 * /* */ 00676000 * /* COPY ESTAE PARAM LIST TO CRR @ZA18938*/ 00677000 * /* */ 00678000 * /*********************************************************/ 00679000 * 0447 00680000 * NEWCRR->APCESTAL(1:(ADDR(ENDEST31)-ADDR(ESTAL31)))=ESTALIST 00681000 * (1:(ADDR(ENDEST31)-ADDR(ESTAL31)));/* @ZA18938*/ 00682000 @RC00426 LA @10,ENDEST31 0447 00683000 LA @02,ESTAL31 0447 00684000 SLR @10,@02 0447 00685000 BCTR @10,0 0447 00686000 EX @10,@SM02902 0447 00687000 * RFY 0448 00688000 * (GPR01P, 0448 00689000 * GPR15P, 0448 00690000 * EXITADDR, 0448 00691000 * SAVREG) RSTD; /* @ZA18938*/ 00692000 * DO; /* LISATCVT 0449 00693000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00694000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00695000 L GPR15P,ATCLCPTR 0450 00696000 * END; /* LISATCVT @ZA18938*/ 00697000 * EXITADDR=GPR15P->ATCAP61;/* GET RECOVERY RTN ADDR 0452 00698000 * @ZA18938*/ 00699000 L EXITADDR,ATCAP61(,GPR15P) 0452 00700000 * SAVREG=GPR01P; /* SAVE RPHPTR @ZA18938*/ 00701000 LR SAVREG,GPR01P 0453 00702000 * GPR01P=ADDR(NEWCRR->APCESTAL);/* PASS LIST TO SVC 0454 00703000 * @ZA18938*/ 00704000 LA GPR01P,APCESTAL(,NEWCRR) 0454 00705000 * GEN CODE REFS(EXITADDR,NEWCRR)/* @ZA18938*/ 00706000 * (ESTAE (EXITADDR),OV,PARAM=(NEWCRA),MF=(E,(1))); 0455 00707000 ESTAE (EXITADDR),OV,PARAM=(NEWCRA),MF=(E,(1)) 00708000 * GPR01P=SAVREG; /* RESTORE RPH PTR @ZA18938*/ 00709000 LR GPR01P,SAVREG 0456 00710000 * RFY 0457 00711000 * (GPR01P, 0457 00712000 * GPR15P, 0457 00713000 * EXITADDR, 0457 00714000 * SAVREG); /* @ZA18938*/ 00715000 * RFY 0458 00716000 * (GPR01P, 0458 00717000 * GPR13P) RSTD; 0458 00718000 * 0458 00719000 * /*********************************************************/ 00720000 * /* */ 00721000 * /* IS NEWCRR THE SMS PREALLOC.CRR? */ 00722000 * /* */ 00723000 * /*********************************************************/ 00724000 * 0459 00725000 * IF NEWCRR->APCSMCR=ONBIT THEN 0459 00726000 TM APCSMCR(NEWCRR),B'00100000' 0459 00727000 BNO @RF00459 0459 00728000 * GPR01P=0; /* YES, NO RPH @Z40GKF6*/ 00729000 SLR GPR01P,GPR01P 0460 00730000 * ELSE 0461 00731000 * GPR01P=NEWRPH; /* NO,PASS RPH */ 00732000 B @RC00459 0461 00733000 @RF00459 LR GPR01P,NEWRPH 0461 00734000 * GPR13P=NEWCRR; /* PASS NEW CRR */ 00735000 @RC00459 LR GPR13P,NEWCRR 0462 00736000 * END; /* END EXITING PAB TPWAITED LEG */ 00737000 * ELSE 0464 00738000 * ; /* EXITING PAB NOT TPWAITED */ 00739000 @RF00390 DS 0H 0465 00740000 * RFY 0465 00741000 * GPR15P RSTD; /* */ 00742000 * DO; /* LISATCVT 0466 00743000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00744000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00745000 L GPR15P,ATCLCPTR 0467 00746000 * END; /* LISATCVT */ 00747000 * GPR15P=GPR15P->ATCAP52; /* GET 52'S ADDR */ 00748000 L GPR15P,ATCAP52(,GPR15P) 0469 00749000 * RFY 0470 00750000 * (GPR01P, 0470 00751000 * GPR13P, 0470 00752000 * GPR15P) UNRSTD; 0470 00753000 * RFY 0471 00754000 * (NEWCRA, 0471 00755000 * NEWCRR, 0471 00756000 * NEWRPH) UNRSTD; 0471 00757000 * END; /* END TASK ^ RUNNING UNDER SRB 00758000 * LEG */ 00759000 * 0472 00760000 * /*****************************************************************/ 00761000 * /* */ 00762000 * /* THIS TASK IS RUNNING UNDER AN SRB. IF THE EXITING PAB WAS */ 00763000 * /* EXITING ON A TPWAIT, THEN THAT PAB IS SUSPENDED, OR REDISPAT- */ 00764000 * /* CHED IF POSTED BETWEEN TPWAIT & NOW. IF THE EXITING PAB IS */ 00765000 * /* SUSPENDED, THE SAVED PAB IS DISPATCHED. IF NO PAB WAS SAVED */ 00766000 * /* FOR DISPATCHED, EXIT IS MADE TO THE SYSTEM */ 00767000 * /* */ 00768000 * /*****************************************************************/ 00769000 * 0473 00770000 * ELSE 0473 00771000 * IF RPHRESUM^=0 /* EXITING FOR TPWAIT ? @Z40GKF6*/ 00772000 * THEN /* YES, SO WAIT/EXIT CONTENTION 00773000 * MUST BE RESOLVED */ 00774000 B @RC00388 0473 00775000 @RF00388 L @10,RPHRESUM-1(,RPHPTR) 0473 00776000 LA @10,0(,@10) 0473 00777000 LTR @10,@10 0473 00778000 BZ @RF00473 0473 00779000 * DO; 0474 00780000 * OLD=RPHRESMA; /* LOOK AT WAIT/EXIT & POST FLAGS*/ 00781000 L OLD,RPHRESMA(,RPHPTR) 0475 00782000 *TSTPST2: 0476 00783000 * IF RPHPT=ONBIT /* HAS PAB/RPH BEEN POSTED? */ 00784000 * THEN /* YES,TURN OFF WAIT/EXIT AND 0476 00785000 * POST FLAGS,& REDISPATCH POSTED 00786000 * PAB */ 00787000 TSTPST2 TM RPHPT(RPHPTR),B'00000100' 0476 00788000 BNO @RF00476 0476 00789000 * DO; 0477 00790000 *SWAPWEP2: 0478 00791000 * NEW=OLD&RPHWT0&RPHPT0;/* TURN OFF WAIT/EXIT/POST FLAGS */ 00792000 SWAPWEP2 LR NEW,OLD 0478 00793000 N NEW,@CF02894 0478 00794000 * CS(OLD,NEW,RPHRESMA); /* TRY TO TURN OFF */ 00795000 CS OLD,@06,RPHRESMA(RPHPTR) 0479 00796000 * BC(7,SWAPWEP2); /* TRY TILL SUCCEED */ 00797000 BC 7,SWAPWEP2 0480 00798000 * RFY 0481 00799000 * (GPR01P, 0481 00800000 * GPR09P, 0481 00801000 * GPR15P) RSTD; 0481 00802000 * GPR09P=RPHMAJCB+RPHPABOF;/* LOCATE POSTED PAB */ 00803000 L GPR09P,RPHMAJCB-1(,RPHPTR) 0482 00804000 LA GPR09P,0(,GPR09P) 0482 00805000 SLR @14,@14 0482 00806000 IC @14,RPHPABOF(,RPHPTR) 0482 00807000 ALR GPR09P,@14 0482 00808000 * GPR01P=0; /* PAB HAS OWN RPH @Z40GKF6*/ 00809000 SLR GPR01P,GPR01P 0483 00810000 * DO; /* LISATCVT 0484 00811000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00812000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00813000 L GPR15P,ATCLCPTR 0485 00814000 * END; /* LISATCVT */ 00815000 * GPR15P=GPR15P->ATCAP57;/* DIRECT DISPATCH PAB */ 00816000 L GPR15P,ATCAP57(,GPR15P) 0487 00817000 * RFY 0488 00818000 * (GPR01P, 0488 00819000 * GPR09P, 0488 00820000 * GPR15P) UNRSTD; 0488 00821000 * END; /* END POSTED LEG */ 00822000 * ELSE /* NOT POSTED, TURN OFF WAIT FLAG*/ 00823000 * DO; 0490 00824000 B @RC00476 0490 00825000 @RF00476 DS 0H 0491 00826000 * RFY 0491 00827000 * GPR15P RSTD; 0491 00828000 * NEW=OLD&RPHWT0; /* WAIT BIT OFF */ 00829000 LR NEW,OLD 0492 00830000 N NEW,@CF01298 0492 00831000 * GPR15P=CVTSRBRT; /* WILL EXIT TO SYSTEM @ZM32636*/ 00832000 L @10,CVTPTR 0493 00833000 L GPR15P,CVTSRBRT(,@10) 0493 00834000 * CS(OLD,NEW,RPHRESMA); /* TRY TO TURN WAIT/EXIT OFF */ 00835000 CS OLD,@06,RPHRESMA(RPHPTR) 0494 00836000 * BC(7,TSTPST2); /* FAIL, LOOP AGAIN */ 00837000 BC 7,TSTPST2 0495 00838000 * RFY 0496 00839000 * (WRKA, 0496 00840000 * WRKB) RSTD; 0496 00841000 * GEN REFS(WRKA,WRKB,PSA,PSACSTK,FRRSCURR,FRRSEMP,FRRSELEN, 00842000 * FRRSCURR,FRRS)(SETFRR D,WRKREGS=(WRKA,WRKB)); 0497 00843000 SETFRR D,WRKREGS=(WRKA,WRKB) 00844000 * RFY 0498 00845000 * (WRKA, 0498 00846000 * WRKB) UNRSTD; 0498 00847000 * RFY 0499 00848000 * GPR15P UNRSTD; 0499 00849000 * END; /* END NOT POSTED LEG */ 00850000 * END; /* END TPWAITED LEG */ 00851000 * ELSE /* PAB NOT EXITING FOR TPWAIT */ 00852000 * DO; 0502 00853000 B @RC00473 0502 00854000 @RF00473 DS 0H 0503 00855000 * IF APCPABSV^=0 /* PAB SAVED FOR DISPATCH ? 0503 00856000 * @Z40GKF6*/ 00857000 * THEN 0503 00858000 L @10,APCPABSV(,CRRPTR) 0503 00859000 LTR @10,@10 0503 00860000 BZ @RF00503 0503 00861000 * DO; 0504 00862000 * CURPAB=APCPABSV; /* LOOK AT PAB */ 00863000 LR CURPAB,@10 0505 00864000 * IF PABRPHA^=0 /* HAVE RPH? @Z40GKF6*/ 00865000 * THEN 0506 00866000 L @10,PABRPHA-1(,CURPAB) 0506 00867000 LA @10,0(,@10) 0506 00868000 LTR @10,@10 0506 00869000 BNZ @RT00506 0506 00870000 * ; /* YES, NO ACTION, R1 ALREADY HAS 00871000 * RPHADDR */ 00872000 * ELSE /* PAB DOESNT HAVE RPH */ 00873000 * DO; /* INIT CRR FOR PAB TO DISPATCH */ 00874000 * 0508 00875000 * /***************************************************/ 00876000 * /* */ 00877000 * /* PUT PST ADDR IN CRR */ 00878000 * /* */ 00879000 * /***************************************************/ 00880000 * 0509 00881000 * APCPSTA=(CURPAB-PABOFFST)->DYPTSKID; 0509 00882000 LR @10,CURPAB 0509 00883000 SLR @07,@07 0509 00884000 IC @07,PABOFFST(,CURPAB) 0509 00885000 SLR @10,@07 0509 00886000 L @10,DYPTSKID(,@10) 0509 00887000 ST @10,APCPSTA(,CRRPTR) 0509 00888000 * PABRPHA=ADDR(CRARPH);/* LINK PAB TO RPH */ 00889000 LA @10,CRARPH(,CRAPTR) 0510 00890000 STCM @10,7,PABRPHA(CURPAB) 0510 00891000 * RPHPTR=0; /* NO RPH TO RELEASE @Z40GKF6*/ 00892000 SLR RPHPTR,RPHPTR 0511 00893000 * END; 0512 00894000 * RFY 0513 00895000 * GPR15P RSTD; 0513 00896000 @RT00506 DS 0H 0514 00897000 * DO; /* LISATCVT 0514 00898000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00899000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00900000 L GPR15P,ATCLCPTR 0515 00901000 * END; /* LISATCVT */ 00902000 * GPR15P=GPR15P->ATCAP57;/* GET ADDR OF ISTAPC57 */ 00903000 L GPR15P,ATCAP57(,GPR15P) 0517 00904000 * APC31R=OFFBIT; /* @Z40GKF6*/ 00905000 NI APC31R(CRRPTR),B'11111110' 0518 00906000 * CALL GPR15P; /* EXIT TO APC57 @Z40GKF6*/ 00907000 BALR @14,@15 0519 00908000 * END; 0520 00909000 * ELSE 0521 00910000 * ; /* NO PAB SAVED, EXIT TO SYSTEM 00911000 * @Z40GKF6*/ 00912000 @RF00503 DS 0H 0522 00913000 * IF((RPHTSKID->PSTABINP=ONBIT)/* ABENDING? @Z40GKF6*/ 00914000 * &(RPHAUTEX=ONBIT)) /* AND AUTHORIZED? @Z40GKF6*/ 00915000 * THEN /* YES @Z40GKF6*/ 00916000 L @14,RPHTSKID(,RPHPTR) 0522 00917000 TM PSTABINP(@14),B'00000001' 0522 00918000 BNO @RF00522 0522 00919000 TM RPHAUTEX(RPHPTR),B'00100000' 0522 00920000 BNO @RF00522 0522 00921000 * DO; /* @Z40GKF6*/ 00922000 * RPHAUTEX=OFFBIT; /* RESET AUTH BIT @Z40GKF6*/ 00923000 NI RPHAUTEX(RPHPTR),B'11011111' 0524 00924000 * APCRTRN=CVTSRBRT; /* SET RETURN ADDRESS @Z40GKF6*/ 00925000 L @14,CVTPTR 0525 00926000 L @14,CVTSRBRT(,@14) 0525 00927000 ST @14,APCRTRN(,CRRPTR) 0525 00928000 * END; /* END ABEND & AUTHORIZED 0526 00929000 * @Z40GKF6*/ 00930000 * ELSE 0527 00931000 * ; /* @Z40GKF6*/ 00932000 @RF00522 DS 0H 0528 00933000 * DO; /* LISATCVT 0528 00934000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00935000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00936000 L GPR15P,ATCLCPTR 0529 00937000 * END; /* LISATCVT */ 00938000 * GPR15P=GPR15P->ATCAP58; /* GET ADDR OF ISTAPC58 */ 00939000 L GPR15P,ATCAP58(,GPR15P) 0531 00940000 * APCEXIT=ONBIT; /* EXIT TO SYSTEM */ 00941000 * APCRELR=OFFBIT; /* DO NOT RETURN */ 00942000 OI APCEXIT(CRRPTR),B'00000010' 0533 00943000 NI APCRELR(CRRPTR),B'11111011' 0533 00944000 * END; 0534 00945000 * APC31R=OFFBIT; /* APC31 NO LONGER RUNNING 0535 00946000 * @Z30APGA*/ 00947000 @RC00473 DS 0H 0535 00948000 @RC00388 NI APC31R(CRRPTR),B'11111110' 0535 00949000 * CALL GPR15P; /* EXIT TO 52 OR 58 @Z40GKF6*/ 00950000 BALR @14,@15 0536 00951000 * RFY 0537 00952000 * GPR15P UNRSTD; 0537 00953000 * GEN(EJECT); 0538 00954000 EJECT 00955000 * GEN CODE DEFS(ESTAL31,ENDEST31); 0539 00956000 * 0539 00957000 DS 0F 00958000 ESTAL31 EQU * 00959000 ESTAE ,OV,XCTL=NO,PURGE=NONE,ASYNCH=YES,ESTAR=NO,TERM=YES,MF=L 00960000 ENDEST31 EQU * 00961000 */* TPEPILOG */ 00962000 * 0540 00963000 * GEN(PRINT OFF); 0540 00964000 PRINT OFF 00965000 * GEN(PRINT ON); 0541 00966000 * 0541 00967000 PRINT ON 00968000 */* END OF TPEPILOG */ 00969000 * 0542 00970000 * END ISTAPC31 0542 00971000 * 0542 00972000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00973000 */*%INCLUDE SYSLIB (CVT ) */ 00974000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 00975000 */*%INCLUDE SYSLIB (IHAASCB ) */ 00976000 */*%INCLUDE SYSLIB (IHAASXB ) */ 00977000 */*%INCLUDE SYSLIB (IHAPSA ) */ 00978000 */*%INCLUDE SYSLIB (IHASRB ) */ 00979000 * 0542 00980000 * ; 0542 00981000 @EL00001 DS 0H 0542 00982000 @EF00001 DS 0H 0542 00983000 @ER00001 BR @14 0542 00984000 @DATA DS 0H 00985000 @SM02902 MVC APCESTAL(0,NEWCRR),ESTALIST 00986000 @DATD DSECT 00987000 DS 0F 00988000 ISTAPC31 CSECT 00989000 DS 0F 00990000 @CF02797 DC F'12561' 00991000 @CF02894 DC F'-201326593' 00992000 @CF01298 DC XL4'F7FFFFFF' 00993000 @CF01339 DC XL4'7FFFFFFF' 00994000 @CF01345 DC XL4'BFFFFFFF' 00995000 @CF01355 DC XL4'EFFFFFFF' 00996000 @CF01357 DC XL4'10000000' 00997000 @DATD DSECT 00998000 DS 0D 00999000 FRRSPTR DS A 01000000 FRREPTR DS A 01001000 ASCBPTR DS A 01002000 ASXBPTR DS A 01003000 SRBPTR DS A 01004000 LCPBPTR DS A 01005000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01006000 @ENDDATD EQU * 01007000 ISTAPC31 CSECT 01008000 DS 0F 01009000 @SIZDATD DC AL1(0) 01010000 DC AL3(@ENDDATD-@DATD) 01011000 DS 0D 01012000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01013000 @01 EQU 01 01014000 @02 EQU 02 01015000 @03 EQU 03 01016000 @04 EQU 04 01017000 @05 EQU 05 01018000 @06 EQU 06 01019000 @07 EQU 07 01020000 @08 EQU 08 01021000 @09 EQU 09 01022000 @10 EQU 10 01023000 @11 EQU 11 01024000 @12 EQU 12 01025000 @13 EQU 13 01026000 @14 EQU 14 01027000 @15 EQU 15 01028000 RPHPTR EQU @01 01029000 REG15 EQU @15 01030000 SCHEDREG EQU @00 01031000 KEYREG EQU @02 01032000 NEWCRA EQU @03 01033000 WORK EQU @03 01034000 PABMPST EQU @03 01035000 BACKPAB EQU @03 01036000 OLDEVEN EQU @04 01037000 EXITADDR EQU @04 01038000 OLD EQU @04 01039000 OLDODD EQU @05 01040000 NEWCRR EQU @05 01041000 WRKA EQU @05 01042000 NEWEVEN EQU @06 01043000 NEWEVENF EQU @06 01044000 SAVREG EQU @06 01045000 NEW EQU @06 01046000 NEWRPH EQU @07 01047000 NEWODD EQU @07 01048000 WRKB EQU @07 01049000 CRAPTR EQU @08 01050000 CURPAB EQU @09 01051000 CURMPST EQU @11 01052000 BASER EQU @12 01053000 CRRPTR EQU @13 01054000 GPR00F EQU @00 01055000 GPR00P EQU @00 01056000 GPR01P EQU @01 01057000 GPR05P EQU @05 01058000 GPR09P EQU @09 01059000 GPR13P EQU @13 01060000 GPR14P EQU @14 01061000 GPR15P EQU @15 01062000 GPR01F EQU @01 01063000 GPR05F EQU @05 01064000 GPR09F EQU @09 01065000 GPR11F EQU @11 01066000 GPR11P EQU @11 01067000 GPR12F EQU @12 01068000 GPR12P EQU @12 01069000 GPR13F EQU @13 01070000 GPR14F EQU @14 01071000 GPR15F EQU @15 01072000 REG1 EQU @01 01073000 SAVBASE EQU @10 01074000 CVTPTR EQU 16 01075000 PSA EQU 0 01076000 FLCRNPSW EQU PSA 01077000 FLCROPSW EQU PSA+8 01078000 FLCICCW2 EQU PSA+16 01079000 PSAEEPSW EQU PSA+132 01080000 PSAESPSW EQU PSA+136 01081000 FLCSVILC EQU PSAESPSW+1 01082000 PSAEPPSW EQU PSA+140 01083000 FLCPIILC EQU PSAEPPSW+1 01084000 FLCPICOD EQU PSAEPPSW+2 01085000 PSAPICOD EQU FLCPICOD+1 01086000 FLCTEA EQU PSAEPPSW+4 01087000 FLCPER EQU PSA+152 01088000 FLCMCLA EQU PSA+168 01089000 FLCIOEL EQU FLCMCLA+4 01090000 FLCIOA EQU FLCMCLA+16 01091000 FLCFSA EQU FLCMCLA+80 01092000 PSAAOLD EQU PSA+548 01093000 PSASUPER EQU PSA+552 01094000 PSASUP1 EQU PSASUPER 01095000 PSASUP2 EQU PSASUPER+1 01096000 PSASUP3 EQU PSASUPER+2 01097000 PSASUP4 EQU PSASUPER+3 01098000 PSACLHT EQU PSA+640 01099000 PSALKSA EQU PSA+696 01100000 PSAHLHI EQU PSA+760 01101000 PSADSSFL EQU PSA+836 01102000 PSADSSF1 EQU PSADSSFL 01103000 PSADSSF3 EQU PSADSSFL+2 01104000 PSADSSF4 EQU PSADSSFL+3 01105000 PSARSVT EQU PSA+896 01106000 ATCLCPTR EQU 1032 01107000 CVTMAP EQU 0 01108000 CVTDAR EQU CVTMAP+72 01109000 CVTFLGS1 EQU CVTDAR 01110000 CVTDCB EQU CVTMAP+116 01111000 CVTIERLC EQU CVTMAP+144 01112000 CVTOPTA EQU CVTMAP+182 01113000 CVTOPTB EQU CVTMAP+183 01114000 CVTGTF EQU CVTMAP+236 01115000 CVTGTFST EQU CVTGTF 01116000 CVTGTFS EQU CVTGTFST 01117000 CVTSTATE EQU CVTGTFST 01118000 CVTTMODE EQU CVTGTFST 01119000 CVTFORM EQU CVTGTFST 01120000 CVTAQAVT EQU CVTMAP+240 01121000 CVTTCMFG EQU CVTAQAVT 01122000 CVTVOLM2 EQU CVTMAP+244 01123000 CVTTATA EQU CVTVOLM2 01124000 CVTTSKS EQU CVTTATA 01125000 CVTVOLF2 EQU CVTTSKS 01126000 CVTTAT EQU CVTTATA+1 01127000 CVTATER EQU CVTMAP+248 01128000 CVTEXT1 EQU CVTMAP+252 01129000 CVTPURG EQU CVTMAP+260 01130000 CVTQMSG EQU CVTMAP+268 01131000 CVTDMSR EQU CVTMAP+272 01132000 CVTRSV37 EQU CVTDMSR 01133000 CVTDMSRF EQU CVTRSV37 01134000 CVTERPV EQU CVTMAP+316 01135000 CVTINTLA EQU CVTMAP+320 01136000 CVTAPF EQU CVTMAP+324 01137000 CVTEXT2 EQU CVTMAP+328 01138000 CVTHJES EQU CVTMAP+332 01139000 CVTPGSIA EQU CVTMAP+348 01140000 CVTA1F1 EQU CVTMAP+356 01141000 CVTSYSK EQU CVTMAP+357 01142000 CVTVOLM1 EQU CVTMAP+380 01143000 CVTVOLF1 EQU CVTVOLM1 01144000 CVTATMCT EQU CVTMAP+388 01145000 CVTXTNT1 EQU 0 01146000 CVTXTNT2 EQU 0 01147000 CVTDSSV EQU CVTXTNT2 01148000 CVTFLGBT EQU CVTXTNT2+5 01149000 CVTQID EQU CVTXTNT2+24 01150000 CVTSHS EQU CVTXTNT2+40 01151000 CVTRV400 EQU CVTXTNT2+52 01152000 CVTRV409 EQU CVTXTNT2+53 01153000 CVTATCVT EQU CVTXTNT2+64 01154000 CVTRV429 EQU CVTXTNT2+84 01155000 CVTRV438 EQU CVTXTNT2+85 01156000 CVTRV457 EQU CVTXTNT2+112 01157000 CVTRV466 EQU CVTXTNT2+113 01158000 CVTFIX EQU 0 01159000 CVTRELNO EQU CVTFIX+252 01160000 FRRS EQU 0 01161000 FRRSHEAD EQU FRRS 01162000 FRRSEMP EQU FRRSHEAD 01163000 FRRSELEN EQU FRRSHEAD+8 01164000 FRRSCURR EQU FRRSHEAD+12 01165000 FRRSENTR EQU 0 01166000 FRRSFLGS EQU FRRSENTR+4 01167000 FRRSFLG1 EQU FRRSFLGS 01168000 ASCB EQU 0 01169000 ASCBSUPC EQU ASCB+16 01170000 ASCBFW1 EQU ASCB+100 01171000 ASCBRCTF EQU ASCBFW1+2 01172000 ASCBFLG1 EQU ASCBFW1+3 01173000 ASCBASXB EQU ASCB+108 01174000 ASCBDSP1 EQU ASCB+114 01175000 ASCBFLG2 EQU ASCB+115 01176000 ASCBLKGP EQU ASCB+128 01177000 ASCBSRQ EQU ASCB+180 01178000 ASCBSRQ1 EQU ASCBSRQ 01179000 ASCBSRQ2 EQU ASCBSRQ+1 01180000 ASCBSRQ3 EQU ASCBSRQ+2 01181000 ASCBSRQ4 EQU ASCBSRQ+3 01182000 ASXB EQU 0 01183000 ASXBMPST EQU ASXB+16 01184000 ASXBAEQ EQU ASXB+168 01185000 ASXBCASW EQU ASXB+216 01186000 ASXBCRB1 EQU ASXBCASW 01187000 SRBSECT EQU 0 01188000 SRBFLC EQU SRBSECT+12 01189000 ISTRPH EQU 0 01190000 RPHCNTL EQU ISTRPH 01191000 RPHFLAGS EQU RPHCNTL+2 01192000 RPHAPTYP EQU RPHFLAGS 01193000 RPHAUTEX EQU RPHAPTYP 01194000 RPHFSTLC EQU RPHFLAGS 01195000 RPHFLGB EQU RPHCNTL+3 01196000 RPHRLCRA EQU RPHFLGB 01197000 RPHRPHA EQU ISTRPH+4 01198000 RPHTSKID EQU ISTRPH+8 01199000 RPHRESMA EQU ISTRPH+16 01200000 RPHWPFLG EQU RPHRESMA 01201000 RPHPT EQU RPHWPFLG 01202000 RPHRESUM EQU RPHRESMA+1 01203000 RPHPABOF EQU ISTRPH+20 01204000 RPHMAJCB EQU ISTRPH+21 01205000 RPHWEA EQU ISTRPH+24 01206000 RPHCSPA EQU RPHWEA 01207000 RPHSRPRM EQU ISTRPH+28 01208000 RPHCRR EQU ISTRPH+32 01209000 RPHPABQA EQU ISTRPH+36 01210000 RPHPABQP EQU RPHPABQA+1 01211000 RPHWORK EQU ISTRPH+40 01212000 RPHSAVE1 EQU RPHWORK 01213000 RPHSBITS EQU RPHSAVE1+1 01214000 ISTPAB EQU 0 01215000 PABWQCHN EQU ISTPAB 01216000 PABWEQA EQU PABWQCHN 01217000 PABCHAIN EQU PABWQCHN+4 01218000 PABRESCH EQU PABCHAIN 01219000 PABRUNNG EQU PABCHAIN 01220000 PABCHNGP EQU PABCHAIN+1 01221000 PABOFFST EQU ISTPAB+8 01222000 PABRPHFG EQU ISTPAB+12 01223000 PABFLAGS EQU PABRPHFG 01224000 PABAPYP EQU PABFLAGS 01225000 PABSSN EQU PABFLAGS 01226000 PABERLCK EQU PABFLAGS 01227000 PABERRLK EQU PABERLCK 01228000 PABRPHA EQU PABRPHFG+1 01229000 ISTDYPAB EQU 0 01230000 DYPTSKID EQU ISTDYPAB+8 01231000 ISTPST EQU 0 01232000 PSTRQFGA EQU ISTPST+8 01233000 PSTRQUE EQU PSTRQFGA 01234000 PSTFLGA EQU PSTRQFGA+4 01235000 PSTABINP EQU PSTFLGA 01236000 PSTMPSTP EQU ISTPST+20 01237000 PSTDMPS EQU ISTPST+132 01238000 ISTMPST EQU 0 01239000 MPSRSV07 EQU ISTMPST+4 01240000 MPSRQUE EQU ISTMPST+8 01241000 MPSFLGA EQU ISTMPST+12 01242000 MPSASID EQU MPSFLGA+2 01243000 MPSCRA EQU ISTMPST+24 01244000 MPSCRACT EQU MPSCRA+4 01245000 MPSSRB EQU ISTMPST+32 01246000 MPSSRBCT EQU MPSSRB+4 01247000 MPSCRPL EQU ISTMPST+40 01248000 MPSRPLCT EQU MPSCRPL+4 01249000 ISTPFCRR EQU 0 01250000 PFCCRR EQU ISTPFCRR 01251000 PFCCRRID EQU PFCCRR 01252000 PFCCRRLN EQU PFCCRR+2 01253000 PFCHDR EQU ISTPFCRR+4 01254000 PFCCRRO EQU PFCHDR 01255000 PFCFRRO EQU PFCHDR+4 01256000 ISTLCCW EQU 0 01257000 LCCWOP EQU ISTLCCW 01258000 LCCWRWOP EQU LCCWOP 01259000 LCCWCTL EQU LCCWRWOP 01260000 LCCWFLAG EQU ISTLCCW+1 01261000 LCCWLSI EQU LCCWFLAG 01262000 ISTLCPB EQU 0 01263000 LCPREQTG EQU ISTLCPB+2 01264000 LCPFLAGS EQU LCPREQTG 01265000 LCPZF001 EQU LCPFLAGS 01266000 LCPZRT02 EQU LCPZF001 01267000 LCPZF002 EQU LCPFLAGS 01268000 LCPZRT03 EQU LCPZF002 01269000 LCPZF003 EQU LCPFLAGS 01270000 LCPZRT04 EQU LCPZF003 01271000 LCPZF004 EQU LCPFLAGS 01272000 LCPZRT05 EQU LCPZF004 01273000 LCPZRT06 EQU LCPFLAGS 01274000 LCPZRT07 EQU LCPFLAGS 01275000 LCPMNRCD EQU LCPREQTG+1 01276000 LCPZRT08 EQU LCPMNRCD 01277000 LCPZRT09 EQU LCPMNRCD 01278000 LCPCHAIN EQU ISTLCPB+4 01279000 LCPCHAI1 EQU LCPCHAIN 01280000 LCPRUCNT EQU ISTLCPB+8 01281000 LCPFLAG2 EQU ISTLCPB+9 01282000 LCPTLBPI EQU LCPFLAG2 01283000 LCPFID0 EQU LCPFLAG2 01284000 LCPSEQ EQU ISTLCPB+10 01285000 LCPCID EQU ISTLCPB+16 01286000 LCPFDBA EQU ISTLCPB+24 01287000 LCPFLG1 EQU ISTLCPB+37 01288000 LCPFLCCW EQU ISTLCPB+40 01289000 LCPLCCW EQU ISTLCPB+48 01290000 LCPPABA EQU LCPLCCW+4 01291000 LCPRPHA EQU LCPPABA 01292000 ISTZSAVE EQU 0 01293000 ZSAZSVBC EQU ISTZSAVE 01294000 ZSAZSVMS EQU ZSAZSVBC 01295000 ISTCFCRR EQU 0 01296000 CFCAUDIT EQU ISTCFCRR 01297000 CFCNTRD EQU CFCAUDIT 01298000 CFCCRT EQU CFCAUDIT+1 01299000 ISTZCRR EQU 0 01300000 ZCRCRR EQU ISTZCRR 01301000 ZCRFLGS1 EQU ISTZCRR+12 01302000 ZCRFLGS2 EQU ISTZCRR+13 01303000 ZCRSWFLD EQU ISTZCRR+14 01304000 ZCRENDSH EQU ZCRSWFLD 01305000 ZCRNDLCP EQU ZCRSWFLD 01306000 ZCRRESET EQU ZCRSWFLD 01307000 ZCRFLGS3 EQU ISTZCRR+15 01308000 ZCRGENSW EQU ISTZCRR+16 01309000 ZCRPFLGS EQU ISTZCRR+17 01310000 ZCRIBPR EQU ISTZCRR+18 01311000 ZCRSCPSW EQU ISTZCRR+19 01312000 ZCRPARMS EQU ISTZCRR+24 01313000 ZCRFBPTR EQU ZCRPARMS 01314000 ZCRDFRDA EQU ZCRPARMS+10 01315000 ZCRPCOD1 EQU ZCRPARMS+12 01316000 ZCRPLSBF EQU ZCRPCOD1 01317000 ZCRPCOD2 EQU ZCRPARMS+13 01318000 ZCRSVRTN EQU ISTZCRR+56 01319000 ZCRWKARA EQU ISTZCRR+156 01320000 ZCRCIDSV EQU ISTZCRR+192 01321000 ZCRAUDIT EQU ISTZCRR+440 01322000 ZCRENTER EQU ZCRAUDIT+5 01323000 ZCRLCPB EQU ISTZCRR+480 01324000 ZCRRHRU EQU ZCRLCPB 01325000 ISTASCRR EQU 0 01326000 ASCFLAGS EQU ISTASCRR+16 01327000 ASCFLG1 EQU ASCFLAGS 01328000 ASCFLG2 EQU ASCFLAGS+2 01329000 ASCFLG3 EQU ASCFLAGS+4 01330000 ASCUSRGS EQU ISTASCRR+28 01331000 ISTAPCRR EQU 0 01332000 APCHDRSV EQU ISTAPCRR 01333000 APCATFLG EQU ISTAPCRR+16 01334000 APC31E EQU APCATFLG 01335000 APCRFLG EQU ISTAPCRR+18 01336000 APC31R EQU APCRFLG 01337000 APCPSTA EQU ISTAPCRR+20 01338000 APCTCBA EQU ISTAPCRR+24 01339000 APCRTRN EQU ISTAPCRR+28 01340000 APCPABSV EQU ISTAPCRR+32 01341000 APCSAVE EQU ISTAPCRR+44 01342000 APCESTAL EQU APCSAVE 01343000 APCCOMF EQU ISTAPCRR+116 01344000 APCCOMF1 EQU APCCOMF 01345000 APCSSTSK EQU APCCOMF1 01346000 APCSMCR EQU APCCOMF1 01347000 APCRELR EQU APCCOMF1 01348000 APCEXIT EQU APCCOMF1 01349000 APCSWTWD EQU ISTAPCRR+128 01350000 APC31FLG EQU ISTAPCRR+132 01351000 APCRESCH EQU APC31FLG 01352000 APC52FLG EQU ISTAPCRR+133 01353000 APC53FLG EQU ISTAPCRR+134 01354000 APC54FLG EQU ISTAPCRR+135 01355000 APC57FLG EQU ISTAPCRR+136 01356000 ISTCRA EQU 0 01357000 CRABASIC EQU ISTCRA 01358000 CRAHDR EQU CRABASIC 01359000 CRACRR EQU CRAHDR 01360000 CRAFRR EQU CRAHDR+4 01361000 CRALKACT EQU CRABASIC+8 01362000 CRARPH EQU ISTCRA+52 01363000 CRAPSS EQU ISTCRA+160 01364000 CRASVC EQU ISTCRA+848 01365000 CRABUFA EQU CRASVC+68 01366000 ISTLOK EQU 0 01367000 LOKCHN EQU ISTLOK+1 01368000 LOKCHNG EQU LOKCHN 01369000 @NM00050 EQU LOKCHNG+2 01370000 ISTATCVT EQU 0 01371000 ATCCOM EQU ISTATCVT 01372000 ATCSTAT EQU ATCCOM 01373000 ATCSTAT1 EQU ATCSTAT 01374000 ATCSTFLG EQU ATCSTAT+1 01375000 ATCPOFLG EQU ATCSTAT+2 01376000 ATCSTAT4 EQU ATCSTAT+3 01377000 ATCIOTRC EQU ATCCOM+140 01378000 ATCTHTRC EQU ATCIOTRC 01379000 ATCCSMR EQU ISTATCVT+296 01380000 ATCSHRFG EQU ISTATCVT+316 01381000 ATCHPGM EQU ISTATCVT+384 01382000 ATCVLCNT EQU ISTATCVT+772 01383000 ATCRNO EQU ISTATCVT+788 01384000 ATCSOPD EQU ISTATCVT+792 01385000 ATCSIPD EQU ISTATCVT+800 01386000 ATCSECST EQU ISTATCVT+812 01387000 ATCSTAT2 EQU ISTATCVT+818 01388000 ATCVTBAM EQU ISTATCVT+908 01389000 @NM00058 EQU ATCVTBAM+3 01390000 ATCAOSM EQU ISTATCVT+912 01391000 ATCGSRBQ EQU ATCAOSM+4 01392000 ATCGSRBG EQU ATCGSRBQ 01393000 ATCAP32 EQU ATCAOSM+28 01394000 ATCAP52 EQU ATCAOSM+36 01395000 ATCAP53 EQU ATCAOSM+40 01396000 ATCAP57 EQU ATCAOSM+48 01397000 ATCAP58 EQU ATCAOSM+52 01398000 ATCAP61 EQU ATCAOSM+56 01399000 ATCICAPP EQU ATCAOSM+100 01400000 ATCLDAPP EQU ATCAOSM+120 01401000 ATCDAPVT EQU ATCAOSM+140 01402000 ATCCRA EQU ATCAOSM+280 01403000 ATCCRACN EQU ATCCRA+4 01404000 ATCSRB EQU ATCAOSM+288 01405000 ATCSRBCN EQU ATCSRB+4 01406000 ATCCRPL EQU ATCAOSM+296 01407000 ATCRPLCN EQU ATCCRPL+4 01408000 ATCVTFLG EQU ATCAOSM+392 01409000 ATCZFLAG EQU ATCAOSM+588 01410000 CVTS01 EQU CVTPGSIA 01411000 CVTLPDIA EQU CVTS01+12 01412000 CVTDIRST EQU CVTLPDIA 01413000 CVTSLIDA EQU CVTS01+24 01414000 CVTCTLFG EQU CVTS01+50 01415000 CVTSRBRT EQU CVTS01+100 01416000 CVTRV210 EQU CVTS01+424 01417000 CVTRV219 EQU CVTS01+425 01418000 CVTRV228 EQU CVTS01+426 01419000 CVTRV237 EQU CVTS01+427 01420000 CVTMFRTR EQU CVTS01+452 01421000 CVTRV262 EQU CVTS01+468 01422000 CVTRV271 EQU CVTS01+469 01423000 CVTRV280 EQU CVTS01+470 01424000 CVTRV289 EQU CVTS01+471 01425000 CVTGSDA EQU CVTS01+600 01426000 PSARSVTE EQU PSARSVT 01427000 PSACSTK EQU PSARSVTE 01428000 LCPZTIE EQU LCPCID 01429000 LCPZSNAM EQU LCPZTIE+8 01430000 APC31SWT EQU APCSWTWD 01431000 ESTALIST EQU ESTAL31 01432000 RPHPAB EQU RPHPABOF 01433000 FLC EQU PSA 01434000 SRB EQU SRBSECT 01435000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01436000 RESCHEDD EQU APC31SWT 01437000 CALL32F EQU APC31SWT 01438000 DEQUEF EQU APC31SWT 01439000 RESCHEDF EQU APC31SWT 01440000 LCPZTRV4 EQU LCPZSNAM+4 01441000 LCPZTRV1 EQU LCPZSNAM 01442000 LCPZSNA EQU LCPZTIE+4 01443000 LCPZFMCA EQU LCPZTIE 01444000 PSARSAV EQU PSARSVTE+60 01445000 PSARSTK EQU PSARSVTE+56 01446000 PSAESAV3 EQU PSARSVTE+52 01447000 PSAESTK3 EQU PSARSVTE+48 01448000 PSAESAV2 EQU PSARSVTE+44 01449000 PSAESTK2 EQU PSARSVTE+40 01450000 PSAESAV1 EQU PSARSVTE+36 01451000 PSAESTK1 EQU PSARSVTE+32 01452000 PSAPSAV EQU PSARSVTE+28 01453000 PSAPSTK EQU PSARSVTE+24 01454000 PSAMSAV EQU PSARSVTE+20 01455000 PSAMSTK EQU PSARSVTE+16 01456000 PSASSAV EQU PSARSVTE+12 01457000 PSASSTK EQU PSARSVTE+8 01458000 PSANSTK EQU PSARSVTE+4 01459000 CVTRV628 EQU CVTS01+728 01460000 CVTRV627 EQU CVTS01+724 01461000 CVTRV626 EQU CVTS01+720 01462000 CVTRV625 EQU CVTS01+716 01463000 CVTRV624 EQU CVTS01+712 01464000 CVTRV623 EQU CVTS01+708 01465000 CVTRV622 EQU CVTS01+704 01466000 CVTRV621 EQU CVTS01+700 01467000 CVTRV620 EQU CVTS01+696 01468000 CVTRV619 EQU CVTS01+692 01469000 CVTRV618 EQU CVTS01+688 01470000 CVTRV617 EQU CVTS01+684 01471000 CVTRV616 EQU CVTS01+680 01472000 CVTRV615 EQU CVTS01+676 01473000 CVTRV614 EQU CVTS01+672 01474000 CVTRV613 EQU CVTS01+668 01475000 CVTTCASP EQU CVTS01+664 01476000 CVT0PT03 EQU CVTS01+660 01477000 CVT0PT0E EQU CVTS01+656 01478000 CVTIRM EQU CVTS01+652 01479000 CVTCGK EQU CVTS01+648 01480000 CVTRV607 EQU CVTS01+644 01481000 CVTRV606 EQU CVTS01+640 01482000 CVTRV605 EQU CVTS01+636 01483000 CVTRV604 EQU CVTS01+632 01484000 CVTEFF02 EQU CVTS01+628 01485000 CVTCBBR EQU CVTS01+624 01486000 CVTSSCR EQU CVTS01+620 01487000 CVTEVENT EQU CVTS01+616 01488000 CVTCRCA EQU CVTS01+612 01489000 CVTTPIO EQU CVTS01+608 01490000 CVTADV EQU CVTS01+604 01491000 CVTGSDAB EQU CVTGSDA 01492000 CVTQV3 EQU CVTS01+596 01493000 CVTQV2 EQU CVTS01+592 01494000 CVTQV1 EQU CVTS01+588 01495000 CVTRPT EQU CVTS01+584 01496000 CVTSSRB EQU CVTS01+580 01497000 CVTCSDRL EQU CVTS01+576 01498000 CVTEXP1 EQU CVTS01+572 01499000 CVTRMPMT EQU CVTS01+568 01500000 CVTRMPTT EQU CVTS01+564 01501000 CVTVPSA EQU CVTS01+560 01502000 CVTVSTOP EQU CVTS01+556 01503000 CVTGTFR8 EQU CVTS01+552 01504000 CVTQUIT EQU CVTS01+548 01505000 CVTVACR EQU CVTS01+544 01506000 CVTWTCB EQU CVTS01+540 01507000 CVTSTPRS EQU CVTS01+536 01508000 CVT0PT02 EQU CVTS01+532 01509000 CVTDARCM EQU CVTS01+528 01510000 CVTIRECM EQU CVTS01+524 01511000 CVTJRECM EQU CVTS01+520 01512000 CVTVEMS0 EQU CVTS01+516 01513000 CVTSPFRR EQU CVTS01+512 01514000 CVTRLSTG EQU CVTS01+508 01515000 CVT0TC0A EQU CVTS01+504 01516000 CVTGMBR EQU CVTS01+500 01517000 CVTLFRM EQU CVTS01+496 01518000 CVTRMBR EQU CVTS01+492 01519000 CVTVIOP EQU CVTS01+488 01520000 CVTRV307 EQU CVTS01+486 01521000 CVTRV306 EQU CVTS01+484 01522000 CVTRV305 EQU CVTS01+482 01523000 CVTRV304 EQU CVTS01+480 01524000 CVTRV303 EQU CVTS01+478 01525000 CVTRV302 EQU CVTS01+476 01526000 CVTTRCA EQU CVTS01+472 01527000 CVTRV297 EQU CVTRV289 01528000 CVTRV296 EQU CVTRV289 01529000 CVTRV295 EQU CVTRV289 01530000 CVTRV294 EQU CVTRV289 01531000 CVTRV293 EQU CVTRV289 01532000 CVTRV292 EQU CVTRV289 01533000 CVTRV291 EQU CVTRV289 01534000 CVTRV290 EQU CVTRV289 01535000 CVTRV288 EQU CVTRV280 01536000 CVTRV287 EQU CVTRV280 01537000 CVTRV286 EQU CVTRV280 01538000 CVTRV285 EQU CVTRV280 01539000 CVTRV284 EQU CVTRV280 01540000 CVTRV283 EQU CVTRV280 01541000 CVTRV282 EQU CVTRV280 01542000 CVTRV281 EQU CVTRV280 01543000 CVTRV279 EQU CVTRV271 01544000 CVTRV278 EQU CVTRV271 01545000 CVTRV277 EQU CVTRV271 01546000 CVTRV276 EQU CVTRV271 01547000 CVTRV275 EQU CVTRV271 01548000 CVTRV274 EQU CVTRV271 01549000 CVTRV273 EQU CVTRV271 01550000 CVTRV272 EQU CVTRV271 01551000 CVTRV270 EQU CVTRV262 01552000 CVTRV269 EQU CVTRV262 01553000 CVTRV268 EQU CVTRV262 01554000 CVTRV267 EQU CVTRV262 01555000 CVTRV266 EQU CVTRV262 01556000 CVTRV265 EQU CVTRV262 01557000 CVTRV264 EQU CVTRV262 01558000 CVTRV263 EQU CVTRV262 01559000 CVTVFP EQU CVTS01+464 01560000 CVTVSI EQU CVTS01+460 01561000 CVTVPSIB EQU CVTS01+456 01562000 CVTMFACT EQU CVTMFRTR 01563000 CVTMFCTL EQU CVTS01+448 01564000 CVTPVBP EQU CVTS01+444 01565000 CVTPWI EQU CVTS01+440 01566000 CVTRV254 EQU CVTS01+438 01567000 CVTRV253 EQU CVTS01+436 01568000 CVTRV252 EQU CVTS01+434 01569000 CVTRV251 EQU CVTS01+433 01570000 CVTRV250 EQU CVTS01+432 01571000 CVTRV249 EQU CVTS01+431 01572000 CVTRV248 EQU CVTS01+430 01573000 CVTRV247 EQU CVTS01+429 01574000 CVTRV246 EQU CVTS01+428 01575000 CVTRV245 EQU CVTRV237 01576000 CVTRV244 EQU CVTRV237 01577000 CVTRV243 EQU CVTRV237 01578000 CVTRV242 EQU CVTRV237 01579000 CVTRV241 EQU CVTRV237 01580000 CVTRV240 EQU CVTRV237 01581000 CVTRV239 EQU CVTRV237 01582000 CVTRV238 EQU CVTRV237 01583000 CVTRV236 EQU CVTRV228 01584000 CVTRV235 EQU CVTRV228 01585000 CVTRV234 EQU CVTRV228 01586000 CVTRV233 EQU CVTRV228 01587000 CVTRV232 EQU CVTRV228 01588000 CVTRV231 EQU CVTRV228 01589000 CVTRV230 EQU CVTRV228 01590000 CVTRV229 EQU CVTRV228 01591000 CVTRV227 EQU CVTRV219 01592000 CVTRV226 EQU CVTRV219 01593000 CVTRV225 EQU CVTRV219 01594000 CVTRV224 EQU CVTRV219 01595000 CVTRV223 EQU CVTRV219 01596000 CVTRV222 EQU CVTRV219 01597000 CVTRV221 EQU CVTRV219 01598000 CVTRV220 EQU CVTRV219 01599000 CVTRV218 EQU CVTRV210 01600000 CVTRV217 EQU CVTRV210 01601000 CVTRV216 EQU CVTRV210 01602000 CVTRV215 EQU CVTRV210 01603000 CVTRV214 EQU CVTRV210 01604000 CVTRV213 EQU CVTRV210 01605000 CVTRV212 EQU CVTRV210 01606000 CVTRV211 EQU CVTRV210 01607000 CVTLCCAT EQU CVTS01+420 01608000 CVTPCCAT EQU CVTS01+416 01609000 CVTIPCRP EQU CVTS01+412 01610000 CVTIPCRI EQU CVTS01+408 01611000 CVTIPCDS EQU CVTS01+404 01612000 CVTAIDVT EQU CVTS01+400 01613000 CVTSSAP EQU CVTS01+396 01614000 CVTEHCIR EQU CVTS01+392 01615000 CVTEHDEF EQU CVTS01+388 01616000 CVTDAIR EQU CVTS01+384 01617000 CVTPERFM EQU CVTS01+380 01618000 CVT044R2 EQU CVTS01+376 01619000 CVTFETCH EQU CVTS01+372 01620000 CVTRSTWD EQU CVTS01+368 01621000 CVTSPOST EQU CVTS01+364 01622000 CVTIOBP EQU CVTS01+360 01623000 CVTASMVT EQU CVTS01+356 01624000 CVTRECRQ EQU CVTS01+352 01625000 CVTWSAC EQU CVTS01+348 01626000 CVTRV149 EQU CVTS01+344 01627000 CVTWSAL EQU CVTS01+340 01628000 CVTSPSA EQU CVTS01+336 01629000 CVTGLMN EQU CVTS01+332 01630000 CVTVEAC0 EQU CVTS01+328 01631000 CVT062R1 EQU CVTS01+324 01632000 CVTRPOST EQU CVTS01+320 01633000 CVTDQIQE EQU CVTS01+316 01634000 CVTCSD EQU CVTS01+312 01635000 CVTLKRMA EQU CVTS01+308 01636000 CVTRSPIE EQU CVTS01+304 01637000 CVTRENQ EQU CVTS01+300 01638000 CVTLQCB EQU CVTS01+296 01639000 CVTFQCB EQU CVTS01+292 01640000 CVTQCS01 EQU CVTS01+288 01641000 CVTAPFT EQU CVTS01+284 01642000 CVTPARRL EQU CVTS01+280 01643000 CVTVWAIT EQU CVTS01+276 01644000 CVTGSPL EQU CVTS01+272 01645000 CVTLSMQ EQU CVTS01+268 01646000 CVTGSMQ EQU CVTS01+264 01647000 CVTEXPRO EQU CVTS01+260 01648000 CVTOPCTP EQU CVTS01+256 01649000 CVTSIC EQU CVTS01+252 01650000 CVTTPIOS EQU CVTS01+248 01651000 CVTRTMS EQU CVTS01+244 01652000 CVTSDBF EQU CVTS01+240 01653000 CVTSCBP EQU CVTS01+236 01654000 CVTSDMP EQU CVTS01+232 01655000 CVTSV60 EQU CVTS01+228 01656000 CVTRTMCT EQU CVTS01+224 01657000 CVTASCBL EQU CVTS01+220 01658000 CVTASCBH EQU CVTS01+216 01659000 CVTGDA EQU CVTS01+212 01660000 CVTASVT EQU CVTS01+208 01661000 CVTVVMDI EQU CVTS01+204 01662000 CVTAQTOP EQU CVTS01+200 01663000 CVTIOSCS EQU CVTS01+196 01664000 CVTSDRM EQU CVTS01+192 01665000 CVTOPTE EQU CVTS01+188 01666000 CVTSTXU EQU CVTS01+184 01667000 CVTQUIS EQU CVTS01+180 01668000 CVTPARS EQU CVTS01+176 01669000 CVTS1EE EQU CVTS01+172 01670000 CVTFRAS EQU CVTS01+168 01671000 CVTQSAS EQU CVTS01+164 01672000 CVTCRAS EQU CVTS01+160 01673000 CVTCRMN EQU CVTS01+156 01674000 CVTDELCP EQU CVTS01+152 01675000 CVTFRECL EQU CVTS01+148 01676000 CVTGETCL EQU CVTS01+144 01677000 CVTBLDCP EQU CVTS01+140 01678000 CVTAUTHL EQU CVTS01+136 01679000 CVTSCAN EQU CVTS01+132 01680000 CVTRV144 EQU CVTS01+130 01681000 CVTMAXMP EQU CVTS01+128 01682000 CVTSTCK EQU CVTS01+124 01683000 CVTRV139 EQU CVTS01+123 01684000 CVTDSSAC EQU CVTS01+122 01685000 CVTRV513 EQU CVTS01+121 01686000 CVTIOSPL EQU CVTS01+120 01687000 CVTPTGT EQU CVTS01+116 01688000 CVTCSPIE EQU CVTS01+112 01689000 CVTSMFEX EQU CVTS01+108 01690000 CVTOLT0A EQU CVTS01+104 01691000 CVTPUTL EQU CVTS01+96 01692000 CVTASCRL EQU CVTS01+92 01693000 CVTASCRF EQU CVTS01+88 01694000 CVTRV326 EQU CVTS01+84 01695000 CVTRV325 EQU CVTS01+80 01696000 CVTRV324 EQU CVTS01+76 01697000 CVT0VL01 EQU CVTS01+72 01698000 CVTSHRVM EQU CVTS01+68 01699000 CVTRV332 EQU CVTS01+64 01700000 CVTTAS EQU CVTS01+60 01701000 CVTRSCN EQU CVTS01+56 01702000 CVTTRAC2 EQU CVTS01+54 01703000 CVTTRACE EQU CVTS01+52 01704000 CVTAPG EQU CVTS01+51 01705000 CVTSDTRC EQU CVTCTLFG 01706000 CVTGTRCE EQU CVTCTLFG 01707000 CVTNOMP EQU CVTCTLFG 01708000 CVTRSV79 EQU CVTCTLFG 01709000 CVTDSTAT EQU CVTCTLFG 01710000 CVTRSV78 EQU CVTCTLFG 01711000 CVTRV333 EQU CVTCTLFG 01712000 CVTRV323 EQU CVTCTLFG 01713000 CVTSPVLK EQU CVTS01+49 01714000 CVTRSV77 EQU CVTS01+48 01715000 CVTRV331 EQU CVTS01+44 01716000 CVTRV330 EQU CVTS01+40 01717000 CVTRV329 EQU CVTS01+36 01718000 CVTRV328 EQU CVTS01+32 01719000 CVTRV322 EQU CVTS01+28 01720000 CVTSLID EQU CVTSLIDA+1 01721000 CVTSYLK EQU CVTSLIDA 01722000 CVTRV321 EQU CVTS01+20 01723000 CVTRV320 EQU CVTS01+16 01724000 CVTLPDIR EQU CVTLPDIA+1 01725000 CVTRSV69 EQU CVTDIRST 01726000 CVTRSV68 EQU CVTDIRST 01727000 CVTRSV67 EQU CVTDIRST 01728000 CVTRSV66 EQU CVTDIRST 01729000 CVTRSV65 EQU CVTDIRST 01730000 CVTRSV64 EQU CVTDIRST 01731000 CVTRSV63 EQU CVTDIRST 01732000 CVTDICOM EQU CVTDIRST 01733000 CVTPVTP EQU CVTS01+8 01734000 CVTLPDSR EQU CVTS01+4 01735000 CVTGETL EQU CVTS01 01736000 ATCAOS EQU ISTATCVT+1584 01737000 ATCPOPAB EQU ATCAOSM+640 01738000 ATCVIOPM EQU ATCAOSM+636 01739000 ATCTPMMI EQU ATCAOSM+632 01740000 ATCTPMPB EQU ATCAOSM+600 01741000 ATCRSV88 EQU ATCAOSM+596 01742000 ATCRPLCT EQU ATCAOSM+594 01743000 ATCCRACT EQU ATCAOSM+592 01744000 ATCSRBCT EQU ATCAOSM+590 01745000 ATCRSV75 EQU ATCAOSM+589 01746000 ATCRSV66 EQU ATCZFLAG 01747000 ATCZF001 EQU ATCZFLAG 01748000 ATCTPCP1 EQU ATCAOSM+584 01749000 ATCTPCP0 EQU ATCAOSM+580 01750000 ATCAICTN EQU ATCAOSM+576 01751000 ATCZR01 EQU ATCAOSM+572 01752000 ATCMPLTA EQU ATCAOSM+568 01753000 ATCASCB EQU ATCAOSM+564 01754000 ATCAP86 EQU ATCAOSM+560 01755000 ATCAP85 EQU ATCAOSM+556 01756000 ATCAP84 EQU ATCAOSM+552 01757000 ATCAP83 EQU ATCAOSM+548 01758000 ATCAP82 EQU ATCAOSM+544 01759000 ATCAP69 EQU ATCAOSM+540 01760000 ATCAP66 EQU ATCAOSM+536 01761000 ATCAP62 EQU ATCAOSM+532 01762000 ATCAPC59 EQU ATCAOSM+528 01763000 ATCAP56 EQU ATCAOSM+524 01764000 ATCAP55 EQU ATCAOSM+520 01765000 ATCRCFY0 EQU ATCAOSM+516 01766000 ATCAP41 EQU ATCAOSM+512 01767000 ATCAPC25 EQU ATCAOSM+508 01768000 ATCAP23 EQU ATCAOSM+504 01769000 ATCTPSPB EQU ATCAOSM+472 01770000 ATCTRMPB EQU ATCAOSM+440 01771000 ATCAPBE EQU ATCAOSM+436 01772000 ATCPSTA EQU ATCAOSM+432 01773000 ATCSMABF EQU ATCAOSM+428 01774000 ATCSMAPR EQU ATCAOSM+424 01775000 ATCTPWQA EQU ATCAOSM+420 01776000 ATCSMAID EQU ATCAOSM+416 01777000 ATCSMARA EQU ATCAOSM+412 01778000 ATCCACXA EQU ATCAOSM+408 01779000 ATCZLAAB EQU ATCAOSM+404 01780000 ATCATA10 EQU ATCAOSM+400 01781000 ATCHLTCB EQU ATCAOSM+396 01782000 @NM00060 EQU ATCVTFLG 01783000 ATCVTACT EQU ATCVTFLG 01784000 ATCRPT40 EQU ATCAOSM+388 01785000 ATCRPT39 EQU ATCAOSM+384 01786000 ATCRPT38 EQU ATCAOSM+380 01787000 ATCRPT37 EQU ATCAOSM+376 01788000 ATCRPT36 EQU ATCAOSM+372 01789000 ATCRPT35 EQU ATCAOSM+368 01790000 ATCRPT34 EQU ATCAOSM+364 01791000 ATCRPT33 EQU ATCAOSM+360 01792000 ATCRPT32 EQU ATCAOSM+356 01793000 ATCRPT31 EQU ATCAOSM+352 01794000 ATCRPT30 EQU ATCAOSM+348 01795000 ATCRPT29 EQU ATCAOSM+344 01796000 ATCRPT28 EQU ATCAOSM+340 01797000 ATCRPT27 EQU ATCAOSM+336 01798000 ATCRPT26 EQU ATCAOSM+332 01799000 ATCRPT25 EQU ATCAOSM+328 01800000 ATCRPT24 EQU ATCAOSM+324 01801000 ATCRPT23 EQU ATCAOSM+320 01802000 ATCRPT22 EQU ATCAOSM+316 01803000 ATCRPT21 EQU ATCAOSM+312 01804000 ATCRPT20 EQU ATCAOSM+308 01805000 ATCRPT19 EQU ATCAOSM+304 01806000 ATCRPLAC EQU ATCRPLCN+2 01807000 ATCRPLRC EQU ATCRPLCN 01808000 ATCCRPLQ EQU ATCCRPL 01809000 ATCSRBAC EQU ATCSRBCN+2 01810000 ATCSRBRC EQU ATCSRBCN 01811000 ATCSRBQ EQU ATCSRB 01812000 ATCCRAAC EQU ATCCRACN+2 01813000 ATCCRARC EQU ATCCRACN 01814000 ATCCRAQ EQU ATCCRA 01815000 ATCRPT12 EQU ATCAOSM+276 01816000 ATCDMAPP EQU ATCAOSM+272 01817000 ATCAP38 EQU ATCAOSM+268 01818000 ATCAP37 EQU ATCAOSM+264 01819000 ATCZDFJ0 EQU ATCAOSM+260 01820000 ATCAP51 EQU ATCAOSM+256 01821000 ATCZPAB2 EQU ATCAOSM+224 01822000 ATCZPAB1 EQU ATCAOSM+192 01823000 ATCZLFVT EQU ATCAOSM+188 01824000 ATCZLPVT EQU ATCAOSM+184 01825000 ATCZDVTX EQU ATCAOSM+180 01826000 ATCZDVTA EQU ATCAOSM+176 01827000 ATCZDVT9 EQU ATCAOSM+172 01828000 ATCZDVT8 EQU ATCAOSM+168 01829000 ATCZDVT7 EQU ATCAOSM+164 01830000 ATCRSV56 EQU ATCDAPVT+22 01831000 ATCDAPDG EQU ATCDAPVT+20 01832000 ATCDXCEA EQU ATCDAPVT+16 01833000 ATCDCEA EQU ATCDAPVT+12 01834000 ATCDPCIA EQU ATCDAPVT+8 01835000 ATCDSIOA EQU ATCDAPVT+4 01836000 ATCDEOEA EQU ATCDAPVT 01837000 ATCZLAEA EQU ATCLDAPP+16 01838000 ATCZLCEA EQU ATCLDAPP+12 01839000 ATCRSV17 EQU ATCLDAPP+8 01840000 ATCSMFRR EQU ATCLDAPP+4 01841000 ATCCDTID EQU ATCLDAPP 01842000 ATCZAEA EQU ATCICAPP+16 01843000 ATCZCEA EQU ATCICAPP+12 01844000 ATCCDTCB EQU ATCICAPP+8 01845000 ATCZSIOA EQU ATCICAPP+4 01846000 ATCCDRPH EQU ATCICAPP 01847000 ATCAP65 EQU ATCAOSM+96 01848000 ATCZDVT6 EQU ATCAOSM+92 01849000 ATCZDVT4 EQU ATCAOSM+88 01850000 ATCZDVT3 EQU ATCAOSM+84 01851000 ATCZDVT1 EQU ATCAOSM+80 01852000 ATCICNCB EQU ATCAOSM+76 01853000 ATCZPSVT EQU ATCAOSM+72 01854000 ATCZFSVT EQU ATCAOSM+68 01855000 ATCAP64 EQU ATCAOSM+64 01856000 ATCAP63 EQU ATCAOSM+60 01857000 ATCAP54 EQU ATCAOSM+44 01858000 ATCAP34 EQU ATCAOSM+32 01859000 ATCAP31 EQU ATCAOSM+24 01860000 ATCAP12 EQU ATCAOSM+20 01861000 ATCAP11 EQU ATCAOSM+16 01862000 ATCCMTCB EQU ATCAOSM+12 01863000 ATCPRPH EQU ATCAOSM+8 01864000 ATCGSRBF EQU ATCGSRBG 01865000 ATCSRBRT EQU ATCAOSM 01866000 @NM00059 EQU @NM00058 01867000 ATCVTMAB EQU @NM00058 01868000 @NM00057 EQU ATCVTBAM 01869000 ATCVDLOK EQU ISTATCVT+904 01870000 ATCVFPAB EQU ISTATCVT+872 01871000 ATCVDPAB EQU ISTATCVT+840 01872000 ATCIOECB EQU ISTATCVT+836 01873000 ATCINCW3 EQU ISTATCVT+832 01874000 ATCMODTB EQU ISTATCVT+828 01875000 ATCUSSPT EQU ISTATCVT+824 01876000 ATCSRTAB EQU ISTATCVT+820 01877000 @NM00056 EQU ISTATCVT+819 01878000 @NM00055 EQU ATCSTAT2 01879000 ATCTRSMS EQU ATCSTAT2 01880000 ATCTRLOK EQU ATCSTAT2 01881000 ATCTRPSS EQU ATCSTAT2 01882000 ATCTRESC EQU ATCSTAT2 01883000 ATCTRAPI EQU ATCSTAT2 01884000 ATCNMCTR EQU ISTATCVT+816 01885000 ATCSEC51 EQU ATCSECST 01886000 ATCSEC40 EQU ATCSIPD+8 01887000 ATCSEC30 EQU ATCSIPD+4 01888000 ATCSEC21 EQU ATCSIPD 01889000 ATCSEC10 EQU ATCSOPD+4 01890000 ATCSEC01 EQU ATCSOPD 01891000 ATCPOIA EQU ATCRNO+1 01892000 @NM00054 EQU ATCRNO 01893000 ATCPODVT EQU ISTATCVT+784 01894000 ATCS49XL EQU ISTATCVT+780 01895000 ATCS49XI EQU ISTATCVT+776 01896000 ATCLCLCT EQU ATCVLCNT+2 01897000 ATCRNCNT EQU ATCVLCNT 01898000 ATCCFEAD EQU ISTATCVT+768 01899000 ATCPTR00 EQU ISTATCVT+736 01900000 ATCRSV10 EQU ISTATCVT+704 01901000 ATCTACB EQU ISTATCVT+700 01902000 ATCVTINM EQU ISTATCVT+696 01903000 ATCTCLIM EQU ISTATCVT+692 01904000 ATCTCLOM EQU ISTATCVT+688 01905000 ATCVTIPB EQU ISTATCVT+656 01906000 ATCTCIPB EQU ISTATCVT+624 01907000 ATCTIPAB EQU ISTATCVT+592 01908000 ATCOCCCB EQU ISTATCVT+588 01909000 ATCOCCOB EQU ISTATCVT+584 01910000 ATCCDLAD EQU ISTATCVT+580 01911000 ATCCCLAD EQU ISTATCVT+576 01912000 ATCDLRPB EQU ISTATCVT+544 01913000 ATCPGPAB EQU ISTATCVT+512 01914000 ATCVPAB1 EQU ISTATCVT+480 01915000 ATCRSV97 EQU ISTATCVT+476 01916000 ATCRDTLK EQU ISTATCVT+472 01917000 ATCVOCLK EQU ISTATCVT+468 01918000 ATCCDFDN EQU ISTATCVT+464 01919000 ATCCDFIN EQU ISTATCVT+460 01920000 ATCDVTLK EQU ISTATCVT+456 01921000 ATCAP36 EQU ISTATCVT+452 01922000 ATCAP35 EQU ISTATCVT+448 01923000 ATCAP33 EQU ISTATCVT+444 01924000 ATCRSV99 EQU ISTATCVT+440 01925000 ATCONFIG EQU ISTATCVT+432 01926000 ATCNODDS EQU ISTATCVT+428 01927000 ATCNODEL EQU ISTATCVT+420 01928000 ATCRSV69 EQU ISTATCVT+416 01929000 ATCAPCR5 EQU ISTATCVT+412 01930000 ATCLDECB EQU ISTATCVT+408 01931000 ATCLDNCS EQU ISTATCVT+404 01932000 ATCCDPTR EQU ISTATCVT+400 01933000 ATCADEL EQU ISTATCVT+396 01934000 ATCTODVT EQU ISTATCVT+392 01935000 ATCDEBCH EQU ISTATCVT+388 01936000 ATCHBSIZ EQU ATCHPGM+2 01937000 ATCHBFNO EQU ATCHPGM 01938000 ATCCRME EQU ISTATCVT+380 01939000 ATCRVCHS EQU ISTATCVT+372 01940000 ATCECTLP EQU ISTATCVT+368 01941000 ATCZDVTB EQU ISTATCVT+364 01942000 ATCECPRT EQU ISTATCVT+360 01943000 ATCVTLOD EQU ISTATCVT+356 01944000 ATCTRPAB EQU ISTATCVT+352 01945000 ATCMSGM EQU ISTATCVT+348 01946000 ATCMSGP EQU ISTATCVT+344 01947000 ATCEPT EQU ISTATCVT+340 01948000 ATCDVT EQU ISTATCVT+336 01949000 ATCTRCPT EQU ISTATCVT+332 01950000 ATCDVLOD EQU ISTATCVT+328 01951000 ATCALERT EQU ISTATCVT+324 01952000 ATCEPA EQU ISTATCVT+320 01953000 ATCSAF EQU ISTATCVT+318 01954000 ATCXRANG EQU ISTATCVT+317 01955000 ATCLAST EQU ATCSHRFG 01956000 ATCSHRTN EQU ISTATCVT+308 01957000 ATCUEP EQU ISTATCVT+304 01958000 ATCOCRT EQU ISTATCVT+300 01959000 ATCCSMA EQU ATCCSMR 01960000 ATCESC02 EQU ISTATCVT+292 01961000 ATCESC01 EQU ISTATCVT+288 01962000 ATCCDFND EQU ISTATCVT+284 01963000 ATCCDDEL EQU ISTATCVT+280 01964000 ATCCDADD EQU ISTATCVT+276 01965000 ATCMNT EQU ISTATCVT+272 01966000 ATCRSV16 EQU ISTATCVT+270 01967000 ATCMAXID EQU ISTATCVT+269 01968000 ATCMSGSP EQU ATCCOM+268 01969000 ATCCIDM EQU ATCCOM+266 01970000 ATCACTRM EQU ATCCOM+264 01971000 ATCNERAP EQU ATCCOM+260 01972000 ATCNESAL EQU ATCCOM+256 01973000 ATCRCC65 EQU ATCCOM+252 01974000 ATCRCC26 EQU ATCCOM+248 01975000 ATCRCC63 EQU ATCCOM+244 01976000 ATCRSV11 EQU ATCCOM+242 01977000 ATCVTMID EQU ATCCOM+240 01978000 ATCAPOST EQU ATCCOM+236 01979000 ATCNERFN EQU ATCCOM+232 01980000 ATCNERNE EQU ATCCOM+228 01981000 ATCNERCV EQU ATCCOM+224 01982000 ATCNERST EQU ATCCOM+220 01983000 ATCDCC61 EQU ATCCOM+216 01984000 ATCDCC60 EQU ATCCOM+212 01985000 ATCSRTDF EQU ATCCOM+208 01986000 ATCSRTAD EQU ATCCOM+204 01987000 ATCFIRA EQU ATCCOM+200 01988000 ATCSMBQ EQU ATCCOM+196 01989000 ATCSMRC EQU ATCCOM+192 01990000 ATCSMRS EQU ATCCOM+188 01991000 ATCSMQU EQU ATCCOM+184 01992000 ATCSMRQ EQU ATCCOM+180 01993000 ATCACDA EQU ATCCOM+176 01994000 ATCSTMA EQU ATCCOM+172 01995000 ATCFRSTR EQU ATCCOM+168 01996000 ATCGTSTR EQU ATCCOM+164 01997000 ATCREADA EQU ATCCOM+160 01998000 ATCALOAD EQU ATCCOM+156 01999000 ATCBLDLA EQU ATCCOM+152 02000000 ATCFBRPH EQU ATCCOM+148 02001000 ATCBFTRC EQU ATCCOM+144 02002000 ATCTPBUF EQU ATCTHTRC 02003000 ATCREMOV EQU ATCCOM+136 02004000 ATCADD EQU ATCCOM+132 02005000 ATCBPDA EQU ATCCOM+128 02006000 ATCDVTPT EQU ATCCOM+124 02007000 ATCFEPT EQU ATCCOM+120 02008000 ATCFDVT EQU ATCCOM+116 02009000 ATCCONFT EQU ATCCOM+112 02010000 ATCPTCHA EQU ATCCOM+108 02011000 ATCAUTHA EQU ATCCOM+104 02012000 ATCACCTA EQU ATCCOM+100 02013000 ATCRDTH EQU ATCCOM+96 02014000 ATCFRSCH EQU ATCCOM+92 02015000 ATCFSB EQU ATCCOM+88 02016000 ATCHLTMS EQU ATCCOM+84 02017000 ATCECPRM EQU ATCCOM+80 02018000 ATCECNET EQU ATCCOM+76 02019000 ATCECOPC EQU ATCCOM+72 02020000 ATCVPARM EQU ATCCOM+68 02021000 ATCECVRQ EQU ATCCOM+64 02022000 ATCECSES EQU ATCCOM+60 02023000 ATCOCHA EQU ATCCOM+56 02024000 ATCDSPLQ EQU ATCCOM+52 02025000 ATCECDSP EQU ATCCOM+48 02026000 ATCVARYQ EQU ATCCOM+44 02027000 ATCECVRY EQU ATCCOM+40 02028000 ATCHALTQ EQU ATCCOM+36 02029000 ATCECHLT EQU ATCCOM+32 02030000 ATCMODQ EQU ATCCOM+28 02031000 ATCECMOD EQU ATCCOM+24 02032000 ATCASCHD EQU ATCCOM+20 02033000 ATCSRT EQU ATCCOM+16 02034000 ATCRDT EQU ATCCOM+12 02035000 ATCDCFRR EQU ATCCOM+8 02036000 ATCAPI EQU ATCCOM+4 02037000 ATCRSV04 EQU ATCSTAT4 02038000 ATCVTTRC EQU ATCSTAT4 02039000 ATCNCSD EQU ATCSTAT4 02040000 ATCMTST EQU ATCSTAT4 02041000 ATCTPRT EQU ATCSTAT4 02042000 ATCPRTAT EQU ATCSTAT4 02043000 @NM00053 EQU ATCPOFLG 02044000 ATCPOUNS EQU ATCPOFLG 02045000 ATCHSDMF EQU ATCSTFLG 02046000 @NM00052 EQU ATCSTAT1 02047000 ATCMDHLT EQU ATCSTAT1 02048000 ATCINHLT EQU ATCSTAT1 02049000 ATCNETSL EQU ATCSTAT1 02050000 ATCQKHLT EQU ATCSTAT1 02051000 ATCSNHLT EQU ATCSTAT1 02052000 ATCACTIV EQU ATCSTAT1 02053000 ATCSTART EQU ATCSTAT1 02054000 LOKXCL EQU @NM00050 02055000 LOKPRY EQU @NM00050 02056000 @NM00051 EQU @NM00050 02057000 @NM00049 EQU LOKCHNG 02058000 LOKCT EQU ISTLOK 02059000 CRACHAIN EQU ISTCRA+928 02060000 CRARSV02 EQU ISTCRA+924 02061000 CRARSV01 EQU ISTCRA+920 02062000 CRABFTBA EQU CRABUFA 02063000 CRAMASK EQU CRASVC+64 02064000 CRAHSIZ EQU CRASVC+60 02065000 CRAASCRR EQU CRASVC 02066000 CRAPROCR EQU ISTCRA+312 02067000 CRALAPTR EQU CRABASIC+48 02068000 CRAL9PTR EQU CRABASIC+44 02069000 CRAL8PTR EQU CRABASIC+40 02070000 CRAL7PTR EQU CRABASIC+36 02071000 CRAL6PTR EQU CRABASIC+32 02072000 CRAL5PTR EQU CRABASIC+28 02073000 CRAL4PTR EQU CRABASIC+24 02074000 CRAL3PTR EQU CRABASIC+20 02075000 CRAL2PTR EQU CRABASIC+16 02076000 CRAL1PTR EQU CRABASIC+12 02077000 CRALEV01 EQU CRALKACT+3 02078000 CRALEV02 EQU CRALKACT+3 02079000 CRALEV03 EQU CRALKACT+3 02080000 CRALEV04 EQU CRALKACT+3 02081000 CRALEV05 EQU CRALKACT+3 02082000 CRALEV06 EQU CRALKACT+3 02083000 CRALEV07 EQU CRALKACT+3 02084000 CRALEV08 EQU CRALKACT+3 02085000 CRALEV09 EQU CRALKACT+2 02086000 CRALEV10 EQU CRALKACT+2 02087000 CRALEV11 EQU CRALKACT+2 02088000 CRALEV12 EQU CRALKACT+2 02089000 CRALEV13 EQU CRALKACT+2 02090000 CRALEV14 EQU CRALKACT+2 02091000 CRALEV15 EQU CRALKACT+2 02092000 CRALEV16 EQU CRALKACT+2 02093000 CRALEV17 EQU CRALKACT+1 02094000 CRALEV18 EQU CRALKACT+1 02095000 CRALEV19 EQU CRALKACT+1 02096000 CRALEV20 EQU CRALKACT+1 02097000 CRALEV21 EQU CRALKACT+1 02098000 CRALEV22 EQU CRALKACT+1 02099000 CRALEV23 EQU CRALKACT+1 02100000 CRALEV24 EQU CRALKACT+1 02101000 CRALEV25 EQU CRALKACT 02102000 CRALEV26 EQU CRALKACT 02103000 CRALEV27 EQU CRALKACT 02104000 CRALEV28 EQU CRALKACT 02105000 CRALEV29 EQU CRALKACT 02106000 CRALEV30 EQU CRALKACT 02107000 CRALEV31 EQU CRALKACT 02108000 CRALEV32 EQU CRALKACT 02109000 @NM00048 EQU ISTAPCRR+137 02110000 @NM00047 EQU APC57FLG 02111000 APCNREL EQU APC57FLG 02112000 APCRECRA EQU APC57FLG 02113000 @NM00046 EQU APC54FLG 02114000 APCRLST EQU APC54FLG 02115000 APCPR153 EQU APC53FLG 02116000 @NM00045 EQU APC52FLG 02117000 APCWKF EQU APC52FLG 02118000 APCNWF EQU APC52FLG 02119000 APCRDQ EQU APC52FLG 02120000 APCQENQ EQU APC52FLG 02121000 APCSMSR EQU APC52FLG 02122000 APCCKRQ EQU APC52FLG 02123000 @NM00044 EQU APC31FLG 02124000 APCSORT EQU APC31FLG 02125000 APCTPXIT EQU APC31FLG 02126000 APCSAV2 EQU ISTAPCRR+124 02127000 APCSAV1 EQU ISTAPCRR+120 02128000 APCRETCD EQU APCCOMF+2 02129000 @NM00043 EQU APCCOMF1+1 02130000 APCZLBER EQU APCCOMF1 02131000 APCIRB2 EQU APCCOMF1 02132000 APCIRB1 EQU APCCOMF1 02133000 APCUETSK EQU APCCOMF1 02134000 APCFRRPM EQU ISTAPCRR+40 02135000 APCQWFO EQU ISTAPCRR+36 02136000 @NM00042 EQU APCRFLG+1 02137000 APC58R EQU APCRFLG 02138000 APC57R EQU APCRFLG 02139000 APC56R EQU APCRFLG 02140000 APC54R EQU APCRFLG 02141000 APC53R EQU APCRFLG 02142000 APC52R EQU APCRFLG 02143000 APC51R EQU APCRFLG 02144000 @NM00041 EQU APCATFLG+1 02145000 APC58E EQU APCATFLG 02146000 APC57E EQU APCATFLG 02147000 APC56E EQU APCATFLG 02148000 APC54E EQU APCATFLG 02149000 APC53E EQU APCATFLG 02150000 APC52E EQU APCATFLG 02151000 APC51E EQU APCATFLG 02152000 ASCPSREG EQU ISTASCRR+44 02153000 ASCUSR01 EQU ASCUSRGS+12 02154000 ASCUSR00 EQU ASCUSRGS+8 02155000 ASCUSR15 EQU ASCUSRGS+4 02156000 ASCUSR14 EQU ASCUSRGS 02157000 ASCETRYA EQU ISTASCRR+24 02158000 ASCKEY EQU ISTASCRR+23 02159000 ASCAUDIT EQU ASCFLG3 02160000 ASCFBDUD EQU ASCFLG3 02161000 ASCLLKF EQU ASCFLG3 02162000 ASCKEYF EQU ASCFLG3 02163000 ASCFBDAL EQU ASCFLG3 02164000 ASCFSRGT EQU ASCFLG3 02165000 ASCICR EQU ASCFLG2 02166000 ASCFSRIC EQU ASCFLG2 02167000 ASCFBDIC EQU ASCFLG2 02168000 ASCFBAIC EQU ASCFLG2 02169000 ASCPASTR EQU ASCFLG1 02170000 ASCFSR EQU ASCFLG1 02171000 ASCFBD EQU ASCFLG1 02172000 ASCFBA EQU ASCFLG1 02173000 ASCPFCRR EQU ISTASCRR 02174000 ZCRRU EQU ZCRRHRU+3 02175000 ZCRRH EQU ZCRRHRU 02176000 ZCRWORDA EQU ISTZCRR+477 02177000 ZCRCMNRC EQU ISTZCRR+476 02178000 ZCRRSV97 EQU ZCRENTER+18 02179000 ZCREIC2B EQU ZCRENTER+18 02180000 ZCREAC2B EQU ZCRENTER+18 02181000 ZCRELCAB EQU ZCRENTER+18 02182000 ZCREDCMF EQU ZCRENTER+18 02183000 ZCREBCIF EQU ZCRENTER+18 02184000 ZCREICSG EQU ZCRENTER+18 02185000 ZCREDCK0 EQU ZCRENTER+18 02186000 ZCRECFY0 EQU ZCRENTER+17 02187000 ZCREKCCB EQU ZCRENTER+17 02188000 ZCREDCNB EQU ZCRENTER+17 02189000 ZCREICOE EQU ZCRENTER+17 02190000 ZCREBCNB EQU ZCRENTER+17 02191000 ZCREBC0L EQU ZCRENTER+17 02192000 ZCREBCAL EQU ZCRENTER+17 02193000 ZCREDCQR EQU ZCRENTER+17 02194000 ZCREDCPR EQU ZCRENTER+16 02195000 ZCREBCSB EQU ZCRENTER+16 02196000 ZCREAC1R EQU ZCRENTER+16 02197000 ZCRECCCI EQU ZCRENTER+16 02198000 ZCRECCAI EQU ZCRENTER+16 02199000 ZCRECCBI EQU ZCRENTER+16 02200000 ZCREBCAR EQU ZCRENTER+16 02201000 ZCREBCDR EQU ZCRENTER+16 02202000 ZCREBCBR EQU ZCRENTER+15 02203000 ZCREDCXR EQU ZCRENTER+15 02204000 ZCREDCWB EQU ZCRENTER+15 02205000 ZCREDCWR EQU ZCRENTER+15 02206000 ZCREKCCN EQU ZCRENTER+15 02207000 ZCREKCBN EQU ZCRENTER+15 02208000 ZCREKCBB EQU ZCRENTER+15 02209000 ZCREJC0B EQU ZCRENTER+15 02210000 ZCREJCDB EQU ZCRENTER+14 02211000 ZCREJCCB EQU ZCRENTER+14 02212000 ZCREJCBB EQU ZCRENTER+14 02213000 ZCREJCAB EQU ZCRENTER+14 02214000 ZCREIC1B EQU ZCRENTER+14 02215000 ZCREIC0B EQU ZCRENTER+14 02216000 ZCREICX0 EQU ZCRENTER+14 02217000 ZCREICWB EQU ZCRENTER+14 02218000 ZCREICVB EQU ZCRENTER+13 02219000 ZCREICUB EQU ZCRENTER+13 02220000 ZCREICTB EQU ZCRENTER+13 02221000 ZCREICSC EQU ZCRENTER+13 02222000 ZCREICSB EQU ZCRENTER+13 02223000 ZCREICRB EQU ZCRENTER+13 02224000 ZCREICQB EQU ZCRENTER+13 02225000 ZCREICQA EQU ZCRENTER+13 02226000 ZCREICOB EQU ZCRENTER+12 02227000 ZCREICOA EQU ZCRENTER+12 02228000 ZCREICNB EQU ZCRENTER+12 02229000 ZCREICNA EQU ZCRENTER+12 02230000 ZCREICMB EQU ZCRENTER+12 02231000 ZCREICLB EQU ZCRENTER+12 02232000 ZCREICKG EQU ZCRENTER+12 02233000 ZCREICKE EQU ZCRENTER+12 02234000 ZCREICKB EQU ZCRENTER+11 02235000 ZCREICJB EQU ZCRENTER+11 02236000 ZCREICID EQU ZCRENTER+11 02237000 ZCREICIB EQU ZCRENTER+11 02238000 ZCREICHB EQU ZCRENTER+11 02239000 ZCREICGB EQU ZCRENTER+11 02240000 ZCREICEB EQU ZCRENTER+11 02241000 ZCREICDB EQU ZCRENTER+11 02242000 ZCREICCI EQU ZCRENTER+10 02243000 ZCREICCB EQU ZCRENTER+10 02244000 ZCREICBI EQU ZCRENTER+10 02245000 ZCREICBB EQU ZCRENTER+10 02246000 ZCREICAB EQU ZCRENTER+10 02247000 ZCREICAA EQU ZCRENTER+10 02248000 ZCREHCAN EQU ZCRENTER+10 02249000 ZCREGC0B EQU ZCRENTER+10 02250000 ZCREGC0A EQU ZCRENTER+9 02251000 ZCREGCLA EQU ZCRENTER+9 02252000 ZCREGCEB EQU ZCRENTER+9 02253000 ZCREGCDB EQU ZCRENTER+9 02254000 @NM00040 EQU ZCRENTER+9 02255000 ZCREGCBB EQU ZCRENTER+9 02256000 ZCREGCAB EQU ZCRENTER+9 02257000 ZCREFCEB EQU ZCRENTER+9 02258000 ZCREFCEA EQU ZCRENTER+8 02259000 ZCREECTA EQU ZCRENTER+8 02260000 ZCREECEA EQU ZCRENTER+8 02261000 ZCREECDA EQU ZCRENTER+8 02262000 ZCREECCB EQU ZCRENTER+8 02263000 ZCREECCA EQU ZCRENTER+8 02264000 ZCREECBB EQU ZCRENTER+8 02265000 ZCREECBA EQU ZCRENTER+8 02266000 ZCREDCMB EQU ZCRENTER+7 02267000 ZCREDCL0 EQU ZCRENTER+7 02268000 ZCREDCKB EQU ZCRENTER+7 02269000 ZCREDCKA EQU ZCRENTER+7 02270000 ZCREDCJ0 EQU ZCRENTER+7 02271000 ZCREDCI0 EQU ZCRENTER+7 02272000 ZCREDCH0 EQU ZCRENTER+7 02273000 ZCREDCF0 EQU ZCRENTER+7 02274000 ZCREDCE0 EQU ZCRENTER+6 02275000 ZCREDCD0 EQU ZCRENTER+6 02276000 ZCREDCC0 EQU ZCRENTER+6 02277000 ZCREDCB0 EQU ZCRENTER+6 02278000 ZCREDCA0 EQU ZCRENTER+6 02279000 ZCRECC2B EQU ZCRENTER+6 02280000 ZCRECC1B EQU ZCRENTER+6 02281000 ZCRECC1A EQU ZCRENTER+6 02282000 ZCRECC0B EQU ZCRENTER+5 02283000 ZCRECC0A EQU ZCRENTER+5 02284000 ZCREBC0B EQU ZCRENTER+5 02285000 ZCREBC0A EQU ZCRENTER+5 02286000 ZCREBCZ0 EQU ZCRENTER+5 02287000 ZCREBCY0 EQU ZCRENTER+5 02288000 ZCREBCX0 EQU ZCRENTER+5 02289000 ZCREBCXA EQU ZCRENTER+5 02290000 ZCREBCSC EQU ZCRENTER+4 02291000 ZCREBCRB EQU ZCRENTER+4 02292000 ZCREBCRA EQU ZCRENTER+4 02293000 ZCREBCQB EQU ZCRENTER+4 02294000 ZCREBCPB EQU ZCRENTER+4 02295000 ZCREBCOB EQU ZCRENTER+4 02296000 ZCREBCNE EQU ZCRENTER+4 02297000 ZCREBCND EQU ZCRENTER+4 02298000 ZCREBCMB EQU ZCRENTER+3 02299000 ZCREBCLB EQU ZCRENTER+3 02300000 ZCREBCLA EQU ZCRENTER+3 02301000 ZCREBCKB EQU ZCRENTER+3 02302000 ZCREBCKA EQU ZCRENTER+3 02303000 ZCREBCJB EQU ZCRENTER+3 02304000 ZCREBCJA EQU ZCRENTER+3 02305000 ZCREBCID EQU ZCRENTER+3 02306000 ZCREBCIB EQU ZCRENTER+2 02307000 ZCREBCIA EQU ZCRENTER+2 02308000 ZCREBCHB EQU ZCRENTER+2 02309000 ZCREBCHA EQU ZCRENTER+2 02310000 ZCREBCGB EQU ZCRENTER+2 02311000 ZCREBCGA EQU ZCRENTER+2 02312000 ZCREBCFB EQU ZCRENTER+2 02313000 ZCREBCFA EQU ZCRENTER+2 02314000 ZCREBCEB EQU ZCRENTER+1 02315000 ZCREBCDI EQU ZCRENTER+1 02316000 ZCREBCCB EQU ZCRENTER+1 02317000 ZCREBCBI EQU ZCRENTER+1 02318000 ZCREBCBB EQU ZCRENTER+1 02319000 ZCREBCBA EQU ZCRENTER+1 02320000 ZCREBCAM EQU ZCRENTER+1 02321000 ZCREBCAI EQU ZCRENTER+1 02322000 ZCREBCAG EQU ZCRENTER 02323000 ZCREBCAE EQU ZCRENTER 02324000 ZCREBCAB EQU ZCRENTER 02325000 ZCREBCAA EQU ZCRENTER 02326000 ZCREAC1B EQU ZCRENTER 02327000 ZCREAC0B EQU ZCRENTER 02328000 ZCREAC0A EQU ZCRENTER 02329000 ZCREAC1A EQU ZCRENTER 02330000 ZCRTNAME EQU ZCRAUDIT+1 02331000 ZCRTID EQU ZCRAUDIT 02332000 ZCRREMIC EQU ISTZCRR+436 02333000 ZCRSAVEZ EQU ISTZCRR+196 02334000 ZCRDAFSV EQU ZCRCIDSV+2 02335000 ZCRSAFSV EQU ZCRCIDSV 02336000 ZCRR13SV EQU ISTZCRR+188 02337000 ZCRR2SV EQU ISTZCRR+184 02338000 ZCROPCDE EQU ISTZCRR+183 02339000 ZCRPRMTC EQU ISTZCRR+182 02340000 ZCRRCDSV EQU ISTZCRR+181 02341000 ZCRAWQSW EQU ISTZCRR+180 02342000 ZCRTOPQ EQU ISTZCRR+180 02343000 ZCRLSTFB EQU ISTZCRR+180 02344000 ZCRXSCHD EQU ISTZCRR+180 02345000 ZCRNXTEL EQU ISTZCRR+180 02346000 ZCRSCANQ EQU ISTZCRR+180 02347000 ZCRMOREL EQU ISTZCRR+180 02348000 ZCRFBPRC EQU ISTZCRR+180 02349000 ZCRFSBSV EQU ISTZCRR+176 02350000 ZCRSVWK5 EQU ZCRWKARA+16 02351000 ZCRSVWK4 EQU ZCRWKARA+12 02352000 ZCRSVWK3 EQU ZCRWKARA+8 02353000 ZCRSVWK2 EQU ZCRWKARA+4 02354000 ZCRSVWK1 EQU ZCRWKARA 02355000 ZCRSVF25 EQU ZCRSVRTN+96 02356000 ZCRSVF24 EQU ZCRSVRTN+92 02357000 ZCRSVF23 EQU ZCRSVRTN+88 02358000 ZCRSVF22 EQU ZCRSVRTN+84 02359000 ZCRSVF21 EQU ZCRSVRTN+80 02360000 ZCRSVF20 EQU ZCRSVRTN+76 02361000 ZCRSVF19 EQU ZCRSVRTN+72 02362000 ZCRSVF18 EQU ZCRSVRTN+68 02363000 ZCRSVF17 EQU ZCRSVRTN+64 02364000 ZCRSVF16 EQU ZCRSVRTN+60 02365000 ZCRSVF15 EQU ZCRSVRTN+56 02366000 ZCRSVF14 EQU ZCRSVRTN+52 02367000 ZCRSVF13 EQU ZCRSVRTN+48 02368000 ZCRSVF12 EQU ZCRSVRTN+44 02369000 ZCRSVF11 EQU ZCRSVRTN+40 02370000 ZCRSVF10 EQU ZCRSVRTN+36 02371000 ZCRSVF9 EQU ZCRSVRTN+32 02372000 ZCRSVF8 EQU ZCRSVRTN+28 02373000 ZCRSVF7 EQU ZCRSVRTN+24 02374000 ZCRSVF6 EQU ZCRSVRTN+20 02375000 ZCRSVF5 EQU ZCRSVRTN+16 02376000 ZCRSVF4 EQU ZCRSVRTN+12 02377000 ZCRSVF3 EQU ZCRSVRTN+8 02378000 ZCRSVF2 EQU ZCRSVRTN+4 02379000 ZCRSVF1 EQU ZCRSVRTN 02380000 ZCRPVZB EQU ISTZCRR+52 02381000 ZCRZLB EQU ISTZCRR+48 02382000 ZCRBFPTR EQU ISTZCRR+44 02383000 ZCRCCWA EQU ISTZCRR+40 02384000 ZCRPSW EQU ZCRPARMS+15 02385000 ZCRPCHAR EQU ZCRPARMS+14 02386000 ZCRPRES2 EQU ZCRPCOD2 02387000 ZCRPMFGF EQU ZCRPCOD2 02388000 ZCRPFHDR EQU ZCRPCOD2 02389000 ZCRPPG2 EQU ZCRPCOD2 02390000 ZCRPRES EQU ZCRPCOD1 02391000 ZCRPCFTX EQU ZCRPCOD1 02392000 ZCRPBUF EQU ZCRPCOD1 02393000 ZCRPLSCB EQU ZCRPCOD1 02394000 ZCRPLSBQ EQU ZCRPLSBF 02395000 ZCRPFSB EQU ZCRPCOD1 02396000 ZCRPLNG EQU ZCRPCOD1 02397000 ZCRPPG EQU ZCRPCOD1 02398000 ZCRDTODA EQU ZCRDFRDA 02399000 ZCRMLNG EQU ZCRPARMS+8 02400000 ZCRTBPTR EQU ZCRPARMS+4 02401000 ZCRCBPTR EQU ZCRFBPTR 02402000 ZCRCRLCP EQU ISTZCRR+20 02403000 @NM00039 EQU ZCRSCPSW 02404000 ZCRSKIPT EQU ZCRSCPSW 02405000 ZCRFSBWE EQU ZCRSCPSW 02406000 ZCRPRCMP EQU ZCRSCPSW 02407000 ZCRLREQ EQU ZCRSCPSW 02408000 ZCRRJLCP EQU ZCRSCPSW 02409000 ZCRTPINV EQU ZCRSCPSW 02410000 ZCRTPEX EQU ZCRSCPSW 02411000 @NM00038 EQU ZCRIBPR 02412000 ZCR3270R EQU ZCRIBPR 02413000 ZCR3270 EQU ZCRIBPR 02414000 ZCRLCPFD EQU ZCRIBPR 02415000 ZCRLCPFR EQU ZCRIBPR 02416000 ZCRRELK EQU ZCRIBPR 02417000 ZCRERR EQU ZCRIBPR 02418000 ZCRNOBUF EQU ZCRIBPR 02419000 @NM00037 EQU ZCRPFLGS 02420000 ZCRQAHED EQU ZCRPFLGS 02421000 ZCRF1RES EQU ZCRGENSW 02422000 ZCRBRIS EQU ZCRGENSW 02423000 ZCRCLRBD EQU ZCRGENSW 02424000 ZCREXRES EQU ZCRGENSW 02425000 ZCRLCSYN EQU ZCRGENSW 02426000 ZCRRT06 EQU ZCRGENSW 02427000 ZCRTSW2 EQU ZCRGENSW 02428000 ZCRTSW1 EQU ZCRGENSW 02429000 ZCRINLCP EQU ZCRFLGS3 02430000 ZCRWRPTR EQU ZCRFLGS3 02431000 ZCRNOFRE EQU ZCRFLGS3 02432000 ZCREDRIV EQU ZCRFLGS3 02433000 ZCRDISC EQU ZCRFLGS3 02434000 ZCRTPDIS EQU ZCRFLGS3 02435000 ZCRTPCON EQU ZCRFLGS3 02436000 ZCRTIC EQU ZCRFLGS3 02437000 ZCRCNLXL EQU ZCRRESET 02438000 ZCRENDAN EQU ZCRSWFLD 02439000 ZCRENDXL EQU ZCRSWFLD 02440000 ZCRENDX EQU ZCRSWFLD 02441000 ZCROB1 EQU ZCRNDLCP 02442000 ZCRENDPR EQU ZCRSWFLD 02443000 ZCREXTYP EQU ZCRSWFLD 02444000 ZCRSLCP EQU ZCRENDSH 02445000 ZCRIF0E3 EQU ZCRFLGS2 02446000 ZCRIF0E2 EQU ZCRFLGS2 02447000 ZCRIF0E1 EQU ZCRFLGS2 02448000 ZCROB EQU ZCRFLGS2 02449000 ZCRFMSED EQU ZCRFLGS2 02450000 ZCRSHEDI EQU ZCRFLGS2 02451000 ZCRLOCAL EQU ZCRFLGS2 02452000 ZCRFEXIT EQU ZCRFLGS1 02453000 ZCRUNSOL EQU ZCRFLGS1 02454000 ZCRENDLP EQU ZCRFLGS1 02455000 ZCRNRMEX EQU ZCRFLGS1 02456000 ZCRWAIT EQU ZCRFLGS1 02457000 ZCRDEQSW EQU ZCRFLGS1 02458000 ZCRQUESW EQU ZCRFLGS1 02459000 ZCREXSW EQU ZCRFLGS1 02460000 ZCRFRRA EQU ISTZCRR+8 02461000 ZCRCHAIN EQU ISTZCRR+4 02462000 ZCRFLAG EQU ZCRCRR+3 02463000 ZCRLEN EQU ZCRCRR+1 02464000 ZCRID EQU ZCRCRR 02465000 CCFRSVD1 EQU CFCCRT 02466000 CCFCR2 EQU CFCCRT 02467000 CCFCRP EQU CFCCRT 02468000 CCFCR1 EQU CFCCRT 02469000 CCFCS2 EQU CFCCRT 02470000 CCFCS1 EQU CFCCRT 02471000 NCFRSVD EQU CFCNTRD 02472000 NCFCR2 EQU CFCNTRD 02473000 NCFCRP EQU CFCNTRD 02474000 NCFCR1 EQU CFCNTRD 02475000 NCFCS2 EQU CFCNTRD 02476000 NCFCS1 EQU CFCNTRD 02477000 ZSAZTRAC EQU ISTZSAVE+36 02478000 ZSAZSVVR EQU ISTZSAVE+12 02479000 ZSAZSVRR EQU ISTZSAVE+8 02480000 ZSAZSVFC EQU ISTZSAVE+4 02481000 ZSAZACTV EQU ZSAZSVMS 02482000 LCPFTYPE EQU LCPRPHA 02483000 LCPRSTQH EQU LCPLCCW 02484000 LCPCLREP EQU ISTLCPB+44 02485000 LCPUBFSB EQU LCPFLCCW 02486000 LCPRSV77 EQU ISTLCPB+39 02487000 LCPLCCWC EQU ISTLCPB+38 02488000 LCPRSV78 EQU LCPFLG1 02489000 LCPTRANS EQU LCPFLG1 02490000 LCPSTLB EQU LCPFLG1 02491000 LCPREDRV EQU LCPFLG1 02492000 LCPDIRPT EQU LCPFLG1 02493000 LCPINTER EQU LCPFLG1 02494000 LCPRESET EQU LCPFLG1 02495000 LCPSTYPE EQU ISTLCPB+36 02496000 LCPFSNCH EQU ISTLCPB+34 02497000 LCPFOSN EQU ISTLCPB+32 02498000 LCPTLBAD EQU ISTLCPB+28 02499000 LCPFDB2 EQU LCPFDBA+1 02500000 LCPFDB1 EQU LCPFDBA 02501000 LCPNXLCW EQU ISTLCPB+20 02502000 LCPDAF EQU LCPCID+2 02503000 LCPSAF EQU LCPCID 02504000 LCPLCCW1 EQU ISTLCPB+12 02505000 LCPRRCNT EQU LCPSEQ+1 02506000 LCPRRCCT EQU LCPSEQ 02507000 LCPATOP EQU LCPFLAG2 02508000 LCPFREE EQU LCPFLAG2 02509000 LCPDSTAT EQU LCPFLAG2 02510000 LCPEXRES EQU LCPFID0 02511000 LCPZRIMM EQU LCPTLBPI 02512000 LCPRSTRT EQU LCPFLAG2 02513000 LCPASYN EQU LCPFLAG2 02514000 LCPPRFLG EQU LCPFLAG2 02515000 LCPZMIRC EQU LCPRUCNT 02516000 LCPCHAI2 EQU LCPCHAIN+1 02517000 LCPCHNG EQU LCPCHAI1 02518000 LCPZRT0B EQU LCPMNRCD 02519000 LCPZRT0A EQU LCPMNRCD 02520000 LCPZRTL9 EQU LCPZRT09 02521000 LCPZRTL8 EQU LCPZRT08 02522000 LCPZRTL7 EQU LCPZRT07 02523000 LCPZRTL6 EQU LCPZRT06 02524000 LCPZRTL5 EQU LCPZRT05 02525000 LCPZRTL4 EQU LCPZRT04 02526000 LCPZRTL3 EQU LCPZRT03 02527000 LCPZRTL2 EQU LCPZRT02 02528000 LCPZRT01 EQU LCPFLAGS 02529000 LCPZRT00 EQU LCPFLAGS 02530000 LCPLNGTH EQU ISTLCPB+1 02531000 LCPTYPE EQU ISTLCPB 02532000 LCCWDATA EQU ISTLCCW+4 02533000 LCCWCNT EQU ISTLCCW+2 02534000 LCCWACI EQU LCCWFLAG 02535000 LCCWRFI EQU LCCWFLAG 02536000 LCCWPER EQU LCCWLSI 02537000 LCCWIDAT EQU LCCWFLAG 02538000 LCCWNTVC EQU LCCWFLAG 02539000 LCCWCKPT EQU LCCWFLAG 02540000 LCCWCC EQU LCCWFLAG 02541000 LCCWCD EQU LCCWFLAG 02542000 LCCWTYPE EQU LCCWCTL 02543000 LCCWMODE EQU LCCWCTL 02544000 LCCWSOP EQU LCCWRWOP 02545000 @NM00036 EQU LCCWRWOP 02546000 LCCWSD EQU LCCWOP 02547000 LCCWSI EQU LCCWOP 02548000 PFCRSV01 EQU ISTPFCRR+13 02549000 PFCFTA EQU ISTPFCRR+12 02550000 CRRFRR EQU PFCFRRO 02551000 CRRCHAIN EQU PFCCRRO 02552000 CRRLEN EQU PFCCRRLN 02553000 PFCRSV10 EQU PFCCRR+1 02554000 CRRID EQU PFCCRRID 02555000 MPSSRB1 EQU ISTMPST+172 02556000 MPSSAVE EQU ISTMPST+140 02557000 MPSMQLBP EQU ISTMPST+136 02558000 MPSSYSRT EQU ISTMPST+132 02559000 MPSQEL EQU ISTMPST+128 02560000 MPSDBTBL EQU ISTMPST+124 02561000 MPSASCB EQU ISTMPST+120 02562000 MPSTPPAB EQU ISTMPST+88 02563000 MPSSMPAB EQU ISTMPST+56 02564000 MPSSMRPH EQU ISTMPST+52 02565000 MPSSRB55 EQU ISTMPST+48 02566000 MPSRPLAC EQU MPSRPLCT+2 02567000 MPSRPLRC EQU MPSRPLCT 02568000 MPSCRPLQ EQU MPSCRPL 02569000 MPSSRBAC EQU MPSSRBCT+2 02570000 MPSSRBRC EQU MPSSRBCT 02571000 MPSSRBQ EQU MPSSRB 02572000 MPSCRAAC EQU MPSCRACT+2 02573000 MPSCRARC EQU MPSCRACT 02574000 MPSCRAQ EQU MPSCRA 02575000 MPSMPSTP EQU ISTMPST+20 02576000 MPSPSTCT EQU ISTMPST+16 02577000 MPSRSV02 EQU MPSFLGA+1 02578000 MPSPSTAB EQU MPSFLGA 02579000 MPSRSV01 EQU MPSFLGA 02580000 MPSTPBU EQU MPSFLGA 02581000 MPMEMTRM EQU MPSFLGA 02582000 MPSAUTH EQU MPSFLGA 02583000 MPSCRAO EQU MPSFLGA 02584000 MPSSRBO EQU MPSFLGA 02585000 MPSRQUEG EQU MPSRQUE 02586000 MPSTSOIW EQU MPSRSV07 02587000 MPSID EQU ISTMPST 02588000 PSTDRDYQ EQU PSTDMPS+1 02589000 @NM00035 EQU PSTDMPS 02590000 PSTDGATE EQU PSTDMPS 02591000 PSTDEBP EQU ISTPST+128 02592000 PSTSAVE EQU ISTPST+96 02593000 PSTSMDYP EQU ISTPST+64 02594000 PSTCRRS EQU ISTPST+60 02595000 PSTCRR1 EQU ISTPST+56 02596000 PSTIQE22 EQU ISTPST+52 02597000 PSTIQE21 EQU ISTPST+48 02598000 PSTIQE12 EQU ISTPST+44 02599000 PSTIQE11 EQU ISTPST+40 02600000 PSTUEQ EQU ISTPST+36 02601000 PSTNSSQ EQU ISTPST+32 02602000 PSTPSSQ EQU ISTPST+28 02603000 PSTACBCT EQU ISTPST+24 02604000 PSTTCBA EQU ISTPST+16 02605000 PSTRSV08 EQU PSTFLGA+1 02606000 PSTDMPC EQU PSTFLGA+1 02607000 PSTABEND EQU PSTABINP 02608000 PSTAUTH EQU PSTFLGA 02609000 PSTSMCU EQU PSTFLGA 02610000 PSTSMQR EQU PSTFLGA 02611000 PSTIRBU2 EQU PSTFLGA 02612000 PSTIRBU1 EQU PSTFLGA 02613000 PSTUERN EQU PSTFLGA 02614000 PSTSSRN EQU PSTFLGA 02615000 PSTRQUEA EQU PSTRQUE+1 02616000 PSTRSV07 EQU PSTRQUE 02617000 PSTRSV06 EQU PSTRQUE 02618000 PSTRSV05 EQU PSTRQUE 02619000 PSTRSV04 EQU PSTRQUE 02620000 PSTRSV03 EQU PSTRQUE 02621000 PSTRSV02 EQU PSTRQUE 02622000 PSTRSV01 EQU PSTRQUE 02623000 PSTRQFLG EQU PSTRQUE 02624000 PSTCHAIN EQU ISTPST+4 02625000 @NM00034 EQU ISTPST+2 02626000 PSTLNGTH EQU ISTPST+1 02627000 PSTTYPE EQU ISTPST 02628000 DYPPAB EQU ISTDYPAB+16 02629000 DYPRSV01 EQU ISTDYPAB+12 02630000 DYPCHAIN EQU ISTDYPAB+4 02631000 DYPFLGS EQU ISTDYPAB+2 02632000 DYPLNGTH EQU ISTDYPAB+1 02633000 DYPTYPE EQU ISTDYPAB 02634000 PABNODQ EQU PABFLAGS 02635000 PABINHBT EQU PABFLAGS 02636000 PABERLOK EQU PABERRLK 02637000 PABDYNAM EQU PABFLAGS 02638000 PABNORPR EQU PABFLAGS 02639000 PABPRIOR EQU PABFLAGS 02640000 PABDVTA EQU ISTPAB+9 02641000 PABRSV02 EQU PABCHAIN 02642000 PABDELAY EQU PABCHAIN 02643000 PABRESET EQU PABCHAIN 02644000 PABUNCON EQU PABCHAIN 02645000 PABCDP EQU PABCHAIN 02646000 PABCHNG EQU PABCHAIN 02647000 PABWEQP EQU PABWEQA+1 02648000 PABRSV01 EQU PABWEQA 02649000 PABWEQG EQU PABWEQA 02650000 RPHNEXPO EQU ISTRPH+104 02651000 RPHSAV16 EQU RPHWORK+60 02652000 RPHSAV15 EQU RPHWORK+56 02653000 RPHSAV14 EQU RPHWORK+52 02654000 RPHSAV13 EQU RPHWORK+48 02655000 RPHSAV12 EQU RPHWORK+44 02656000 RPHSAV11 EQU RPHWORK+40 02657000 RPHSAV10 EQU RPHWORK+36 02658000 RPHSAVE9 EQU RPHWORK+32 02659000 RPHSAVE8 EQU RPHWORK+28 02660000 RPHSAVE7 EQU RPHWORK+24 02661000 RPHSAVE6 EQU RPHWORK+20 02662000 RPHSAVE5 EQU RPHWORK+16 02663000 RPHSAVE4 EQU RPHWORK+12 02664000 RPHSAVE3 EQU RPHWORK+8 02665000 RPHSAVE2 EQU RPHWORK+4 02666000 RPHSHALF EQU RPHSAVE1+2 02667000 RPHSBIT8 EQU RPHSBITS 02668000 RPHSBIT7 EQU RPHSBITS 02669000 RPHSBIT6 EQU RPHSBITS 02670000 RPHSBIT5 EQU RPHSBITS 02671000 RPHSBIT4 EQU RPHSBITS 02672000 RPHSBIT3 EQU RPHSBITS 02673000 RPHSBIT2 EQU RPHSBITS 02674000 RPHSBIT1 EQU RPHSBITS 02675000 RPHSBYTE EQU RPHSAVE1 02676000 RPHPABFG EQU RPHPABQA 02677000 RPHSRP34 EQU RPHSRPRM+2 02678000 RPHSRP12 EQU RPHSRPRM 02679000 RPHWEGT EQU RPHCSPA 02680000 RPHRSV01 EQU RPHWPFLG 02681000 RPHPURGE EQU RPHWPFLG 02682000 RPHWT EQU RPHWPFLG 02683000 RPHRSKEY EQU RPHWPFLG 02684000 RPHDVTA EQU ISTRPH+12 02685000 RPHTIK EQU RPHTSKID+3 02686000 @NM00033 EQU RPHTSKID 02687000 RPHRPHAP EQU RPHRPHA+1 02688000 @NM00032 EQU RPHRPHA 02689000 RPHGATE EQU RPHRPHA 02690000 @NM00031 EQU RPHFLGB 02691000 RPHNRSAV EQU RPHFLGB 02692000 RPHPGCMP EQU RPHFLGB 02693000 RPHFBAPS EQU RPHFLGB 02694000 RPHBSSP EQU RPHFLGB 02695000 RPHLOCK EQU RPHFLGB 02696000 RPHFNFLG EQU RPHFSTLC 02697000 RPHMLTCP EQU RPHFLAGS 02698000 RPHSMCLR EQU RPHFLAGS 02699000 RPHSMTYP EQU RPHFLAGS 02700000 RPHSMQ EQU RPHFLAGS 02701000 RPHSPGIN EQU RPHFLAGS 02702000 RPHOGIND EQU RPHFLAGS 02703000 RPHLNGTH EQU RPHCNTL+1 02704000 RPHTYPE EQU RPHCNTL 02705000 @NM00030 EQU SRBSECT+40 02706000 @NM00029 EQU SRBSECT+38 02707000 SRBPRIOR EQU SRBSECT+37 02708000 SRBPKF EQU SRBSECT+36 02709000 SRBSAVE EQU SRBSECT+32 02710000 SRBPARM EQU SRBSECT+28 02711000 SRBRMTR EQU SRBSECT+24 02712000 SRBEP EQU SRBSECT+20 02713000 SRBPTCB EQU SRBFLC+4 02714000 SRBPASID EQU SRBFLC+2 02715000 SRBCPAFF EQU SRBFLC 02716000 SRBASCB EQU SRBSECT+8 02717000 SRBFLNK EQU SRBSECT+4 02718000 SRBID EQU SRBSECT 02719000 ASXBEND EQU ASXB+232 02720000 ASXBRV25 EQU ASXB+228 02721000 ASXBRV24 EQU ASXB+224 02722000 ASXBPT0E EQU ASXB+220 02723000 ASXBCRB4 EQU ASXBCASW+3 02724000 ASXBCRB3 EQU ASXBCASW+2 02725000 ASXBCRB2 EQU ASXBCASW+1 02726000 ASXBCR06 EQU ASXBCRB1 02727000 ASXBCR05 EQU ASXBCRB1 02728000 ASXBCR04 EQU ASXBCRB1 02729000 ASXBCR03 EQU ASXBCRB1 02730000 ASXBCR02 EQU ASXBCRB1 02731000 ASXBCR01 EQU ASXBCRB1 02732000 ASXBTFD EQU ASXBCRB1 02733000 ASXBPIP EQU ASXBCRB1 02734000 ASXBCTDC EQU ASXB+212 02735000 ASXBTDCB EQU ASXB+208 02736000 ASXBRV19 EQU ASXB+204 02737000 ASXBRV18 EQU ASXB+200 02738000 ASXBRV17 EQU ASXB+196 02739000 ASXBRV16 EQU ASXB+192 02740000 ASXBLSRB EQU ASXBAEQ+20 02741000 ASXBFSRB EQU ASXBAEQ+16 02742000 ASXBLRQE EQU ASXBAEQ+12 02743000 ASXBFRQE EQU ASXBAEQ+8 02744000 ASXBLIQE EQU ASXBAEQ+4 02745000 ASXBFIQE EQU ASXBAEQ 02746000 ASXBETSK EQU ASXB+164 02747000 ASXBSIRB EQU ASXB+160 02748000 ASXBPSWD EQU ASXB+152 02749000 ASXBPRG EQU ASXB+136 02750000 ASXBRV26 EQU ASXB+132 02751000 ASXBOUSB EQU ASXB+128 02752000 ASXBDDR EQU ASXB+124 02753000 ASXBRCTD EQU ASXB+120 02754000 ASXBRSMD EQU ASXB+116 02755000 ASXBSPSA EQU ASXB+112 02756000 ASXBFRWA EQU ASXB+108 02757000 ASXBFLSA EQU ASXB+36 02758000 ASXBIHSA EQU ASXB+32 02759000 ASXBRV15 EQU ASXB+28 02760000 ASXBRV14 EQU ASXB+24 02761000 ASXBLWA EQU ASXB+20 02762000 ASXBRS00 EQU ASXB+14 02763000 ASXBTCBS EQU ASXB+12 02764000 ASXBLTCB EQU ASXB+8 02765000 ASXBFTCB EQU ASXB+4 02766000 ASXBASXB EQU ASXB 02767000 ASXBEGIN EQU ASXB 02768000 ASCBEND EQU ASCB+208 02769000 ASCBSRBT EQU ASCB+200 02770000 ASCBSWTL EQU ASCB+196 02771000 ASCBRS14 EQU ASCB+195 02772000 ASCBSMCT EQU ASCB+194 02773000 ASCBRS12 EQU ASCB+192 02774000 ASCBPCTT EQU ASCB+188 02775000 ASCBVGTT EQU ASCB+184 02776000 ASCBRV43 EQU ASCBSRQ4 02777000 ASCBRV42 EQU ASCBSRQ4 02778000 ASCBRV41 EQU ASCBSRQ4 02779000 ASCBRV40 EQU ASCBSRQ4 02780000 ASCBRV39 EQU ASCBSRQ4 02781000 ASCBRV38 EQU ASCBSRQ4 02782000 ASCBRV37 EQU ASCBSRQ4 02783000 ASCBRV36 EQU ASCBSRQ4 02784000 ASCBRV35 EQU ASCBSRQ3 02785000 ASCBRV34 EQU ASCBSRQ3 02786000 ASCBRV33 EQU ASCBSRQ3 02787000 ASCBRV32 EQU ASCBSRQ3 02788000 ASCBRV31 EQU ASCBSRQ3 02789000 ASCBRV30 EQU ASCBSRQ3 02790000 ASCBRV29 EQU ASCBSRQ3 02791000 ASCBRV28 EQU ASCBSRQ3 02792000 ASCBRV27 EQU ASCBSRQ2 02793000 ASCBRV26 EQU ASCBSRQ2 02794000 ASCBRV25 EQU ASCBSRQ2 02795000 ASCBRV24 EQU ASCBSRQ2 02796000 ASCBRV23 EQU ASCBSRQ2 02797000 ASCBRV22 EQU ASCBSRQ2 02798000 ASCBRV21 EQU ASCBSRQ2 02799000 ASCBRV20 EQU ASCBSRQ2 02800000 ASCBRV19 EQU ASCBSRQ1 02801000 ASCBRV18 EQU ASCBSRQ1 02802000 ASCBRV17 EQU ASCBSRQ1 02803000 ASCBRV16 EQU ASCBSRQ1 02804000 ASCBRV15 EQU ASCBSRQ1 02805000 ASCBRV14 EQU ASCBSRQ1 02806000 ASCBRV13 EQU ASCBSRQ1 02807000 ASCBSTA EQU ASCBSRQ1 02808000 ASCBJBNS EQU ASCB+176 02809000 ASCBJBNI EQU ASCB+172 02810000 ASCBMCC EQU ASCB+168 02811000 ASCBRTWA EQU ASCB+164 02812000 ASCBIQEA EQU ASCB+160 02813000 ASCBXMPQ EQU ASCB+156 02814000 ASCBRS01 EQU ASCB+154 02815000 ASCBFMCT EQU ASCB+152 02816000 ASCBOUXB EQU ASCB+148 02817000 ASCBOUCB EQU ASCB+144 02818000 ASCBMECB EQU ASCB+140 02819000 ASCBQECB EQU ASCB+136 02820000 ASCBLSQH EQU ASCBLKGP+4 02821000 ASCBLOCK EQU ASCBLKGP 02822000 ASCBTCBS EQU ASCB+124 02823000 ASCBNVSC EQU ASCB+122 02824000 ASCBVSC EQU ASCB+120 02825000 ASCBSRBS EQU ASCB+118 02826000 ASCBSSRB EQU ASCB+116 02827000 ASCBRV06 EQU ASCBFLG2 02828000 ASCBRV05 EQU ASCBFLG2 02829000 ASCBRV04 EQU ASCBFLG2 02830000 ASCBSNQS EQU ASCBFLG2 02831000 ASCBS2S EQU ASCBFLG2 02832000 ASCBCEXT EQU ASCBFLG2 02833000 ASCBPXMT EQU ASCBFLG2 02834000 ASCBXMPT EQU ASCBFLG2 02835000 ASCBRF07 EQU ASCBDSP1 02836000 ASCBRF06 EQU ASCBDSP1 02837000 ASCBRF05 EQU ASCBDSP1 02838000 ASCBRF04 EQU ASCBDSP1 02839000 ASCBRF03 EQU ASCBDSP1 02840000 ASCBRF02 EQU ASCBDSP1 02841000 ASCBFAIL EQU ASCBDSP1 02842000 ASCBNOQ EQU ASCBDSP1 02843000 ASCBSWCT EQU ASCB+112 02844000 ASCBTMCH EQU ASCB+104 02845000 ASCBNSWP EQU ASCBFLG1 02846000 ASCBTYP1 EQU ASCBFLG1 02847000 ASCBSTND EQU ASCBFLG1 02848000 ASCBABNT EQU ASCBFLG1 02849000 ASCBTERM EQU ASCBFLG1 02850000 ASCBS3S EQU ASCBFLG1 02851000 ASCBCMSH EQU ASCBFLG1 02852000 ASCBTOFF EQU ASCBFLG1 02853000 ASCBRF01 EQU ASCBRCTF 02854000 ASCBTMLW EQU ASCBRCTF 02855000 ASCBOUT EQU ASCBRCTF 02856000 ASCBWAIT EQU ASCBRCTF 02857000 ASCBRV08 EQU ASCBRCTF 02858000 ASCBFQU EQU ASCBRCTF 02859000 ASCBFRS EQU ASCBRCTF 02860000 ASCBTMNO EQU ASCBRCTF 02861000 ASCBAFFN EQU ASCBFW1 02862000 ASCBDUMP EQU ASCB+96 02863000 ASCBQSVC EQU ASCB+92 02864000 ASCBUBET EQU ASCB+88 02865000 ASCBECB EQU ASCB+84 02866000 ASCBJSTL EQU ASCB+80 02867000 ASCBEWST EQU ASCB+72 02868000 ASCBEJST EQU ASCB+64 02869000 ASCBTSB EQU ASCB+60 02870000 ASCBCSCB EQU ASCB+56 02871000 ASCBRSM EQU ASCB+52 02872000 ASCBLDA EQU ASCB+48 02873000 ASCBSTOR EQU ASCB+44 02874000 ASCBDP EQU ASCB+43 02875000 ASCBRV07 EQU ASCB+42 02876000 ASCBIOSM EQU ASCB+40 02877000 ASCBSEQN EQU ASCB+38 02878000 ASCBASID EQU ASCB+36 02879000 ASCBCPUS EQU ASCB+32 02880000 ASCBSPL EQU ASCB+28 02881000 ASCBIOSP EQU ASCB+24 02882000 ASCBSYNC EQU ASCBSUPC+4 02883000 ASCBSVRB EQU ASCBSUPC 02884000 ASCBCMSF EQU ASCB+12 02885000 ASCBBWDP EQU ASCB+8 02886000 ASCBFWDP EQU ASCB+4 02887000 ASCBASCB EQU ASCB 02888000 ASCBEGIN EQU ASCB 02889000 FRRSPARM EQU FRRSENTR+8 02890000 @NM00004 EQU FRRSFLGS+1 02891000 @NM00003 EQU FRRSFLG1 02892000 FRRSRCUR EQU FRRSFLG1 02893000 FRRSFRRA EQU FRRSENTR 02894000 FRRSENTS EQU FRRS+84 02895000 FRRSRTMW EQU FRRS+16 02896000 FRRSLAST EQU FRRSHEAD+4 02897000 CVTLEVL EQU CVTRELNO+2 02898000 CVTNUMB EQU CVTRELNO 02899000 CVTMDL EQU CVTFIX+250 02900000 @NM00002 EQU CVTFIX+248 02901000 @NM00001 EQU CVTFIX 02902000 CVTRV482 EQU CVTXTNT2+128 02903000 CVTRV481 EQU CVTXTNT2+124 02904000 CVTRV480 EQU CVTXTNT2+120 02905000 CVTRV479 EQU CVTXTNT2+118 02906000 CVTRV478 EQU CVTXTNT2+117 02907000 CVTRV477 EQU CVTXTNT2+116 02908000 CVTRV476 EQU CVTXTNT2+115 02909000 CVTRV475 EQU CVTXTNT2+114 02910000 CVTRV474 EQU CVTRV466 02911000 CVTRV473 EQU CVTRV466 02912000 CVTRV472 EQU CVTRV466 02913000 CVTRV471 EQU CVTRV466 02914000 CVTRV470 EQU CVTRV466 02915000 CVTRV469 EQU CVTRV466 02916000 CVTRV468 EQU CVTRV466 02917000 CVTRV467 EQU CVTRV466 02918000 CVTRV465 EQU CVTRV457 02919000 CVTRV464 EQU CVTRV457 02920000 CVTRV463 EQU CVTRV457 02921000 CVTRV462 EQU CVTRV457 02922000 CVTRV461 EQU CVTRV457 02923000 CVTRV460 EQU CVTRV457 02924000 CVTRV459 EQU CVTRV457 02925000 CVTRV458 EQU CVTRV457 02926000 CVTRV456 EQU CVTXTNT2+108 02927000 CVTRV455 EQU CVTXTNT2+104 02928000 CVTRV454 EQU CVTXTNT2+100 02929000 CVTRV453 EQU CVTXTNT2+96 02930000 CVTRV452 EQU CVTXTNT2+94 02931000 CVTRV451 EQU CVTXTNT2+92 02932000 CVTRV450 EQU CVTXTNT2+90 02933000 CVTRV449 EQU CVTXTNT2+88 02934000 CVTRV448 EQU CVTXTNT2+87 02935000 CVTRV447 EQU CVTXTNT2+86 02936000 CVTRV446 EQU CVTRV438 02937000 CVTRV445 EQU CVTRV438 02938000 CVTRV444 EQU CVTRV438 02939000 CVTRV443 EQU CVTRV438 02940000 CVTRV442 EQU CVTRV438 02941000 CVTRV441 EQU CVTRV438 02942000 CVTRV440 EQU CVTRV438 02943000 CVTRV439 EQU CVTRV438 02944000 CVTRV437 EQU CVTRV429 02945000 CVTRV436 EQU CVTRV429 02946000 CVTRV435 EQU CVTRV429 02947000 CVTRV434 EQU CVTRV429 02948000 CVTRV433 EQU CVTRV429 02949000 CVTRV432 EQU CVTRV429 02950000 CVTRV431 EQU CVTRV429 02951000 CVTRV430 EQU CVTRV429 02952000 CVTRV428 EQU CVTXTNT2+80 02953000 CVTRV427 EQU CVTXTNT2+76 02954000 CVTRV426 EQU CVTXTNT2+72 02955000 CVTRV425 EQU CVTXTNT2+68 02956000 CVTATACT EQU CVTATCVT 02957000 CVTRV423 EQU CVTXTNT2+62 02958000 CVTRV422 EQU CVTXTNT2+60 02959000 CVTRV421 EQU CVTXTNT2+58 02960000 CVTRV420 EQU CVTXTNT2+56 02961000 CVTRV419 EQU CVTXTNT2+55 02962000 CVTRV418 EQU CVTXTNT2+54 02963000 CVTRV417 EQU CVTRV409 02964000 CVTRV416 EQU CVTRV409 02965000 CVTRV415 EQU CVTRV409 02966000 CVTRV414 EQU CVTRV409 02967000 CVTRV413 EQU CVTRV409 02968000 CVTRV412 EQU CVTRV409 02969000 CVTRV411 EQU CVTRV409 02970000 CVTRV410 EQU CVTRV409 02971000 CVTRV408 EQU CVTRV400 02972000 CVTRV407 EQU CVTRV400 02973000 CVTRV406 EQU CVTRV400 02974000 CVTRV405 EQU CVTRV400 02975000 CVTRV404 EQU CVTRV400 02976000 CVTRV403 EQU CVTRV400 02977000 CVTRV402 EQU CVTRV400 02978000 CVTRV401 EQU CVTRV400 02979000 CVTICB EQU CVTXTNT2+48 02980000 CVTSKTA EQU CVTXTNT2+44 02981000 CVTSHSB EQU CVTSHS 02982000 CVTRSV98 EQU CVTXTNT2+36 02983000 CVTRSV97 EQU CVTXTNT2+34 02984000 CVTRSV96 EQU CVTXTNT2+32 02985000 CVTOLTEP EQU CVTXTNT2+28 02986000 CVTQIDA EQU CVTQID+1 02987000 CVTRSV95 EQU CVTQID 02988000 CVTRSV94 EQU CVTXTNT2+20 02989000 CVTRSV93 EQU CVTXTNT2+16 02990000 CVTRSV92 EQU CVTXTNT2+12 02991000 CVTDEBVR EQU CVTXTNT2+8 02992000 CVTRSV91 EQU CVTXTNT2+6 02993000 CVTRSV9H EQU CVTFLGBT 02994000 CVTRSV9G EQU CVTFLGBT 02995000 CVTRSV9F EQU CVTFLGBT 02996000 CVTRSV9E EQU CVTFLGBT 02997000 CVTRSV9D EQU CVTFLGBT 02998000 CVTRSV9C EQU CVTFLGBT 02999000 CVTVME EQU CVTFLGBT 03000000 CVTNPE EQU CVTFLGBT 03001000 CVTNUCLS EQU CVTXTNT2+4 03002000 CVTDSSVA EQU CVTDSSV+1 03003000 CVTRSV89 EQU CVTDSSV 03004000 CVTRSV88 EQU CVTXTNT1+8 03005000 CVTRSV87 EQU CVTXTNT1+4 03006000 CVTFACHN EQU CVTXTNT1 03007000 CVTRV488 EQU CVTMAP+412 03008000 CVTRV487 EQU CVTMAP+408 03009000 CVTRV486 EQU CVTMAP+404 03010000 CVTRV485 EQU CVTMAP+400 03011000 CVTACTAP EQU CVTMAP+396 03012000 CVTAUTH EQU CVTMAP+392 03013000 CVTATMCA EQU CVTATMCT+1 03014000 CVTATMST EQU CVTATMCT 03015000 CVTRSV61 EQU CVTMAP+384 03016000 CVTVOLT1 EQU CVTVOLM1+1 03017000 CVTVOLI1 EQU CVTVOLF1 03018000 CVTSTOA EQU CVTMAP+376 03019000 CVTRSV58 EQU CVTMAP+374 03020000 CVTRSV57 EQU CVTMAP+372 03021000 CVTDDCE EQU CVTMAP+368 03022000 CVTPNWFR EQU CVTMAP+364 03023000 CVTSMF EQU CVTMAP+360 03024000 CVTSULK EQU CVTMAP+358 03025000 CVTSLKO EQU CVTSYSK 03026000 CVTSLKP EQU CVTSYSK 03027000 CVTSLKQ EQU CVTSYSK 03028000 CVTSLKR EQU CVTSYSK 03029000 CVTRSV56 EQU CVTSYSK 03030000 CVTRSV55 EQU CVTSYSK 03031000 CVTRSV54 EQU CVTSYSK 03032000 CVTRSV53 EQU CVTSYSK 03033000 CVTRSV52 EQU CVTA1F1 03034000 CVTRSV51 EQU CVTA1F1 03035000 CVTRSV50 EQU CVTA1F1 03036000 CVTRSV49 EQU CVTA1F1 03037000 CVTRSV48 EQU CVTA1F1 03038000 CVTRSV47 EQU CVTA1F1 03039000 CVTSRSW EQU CVTA1F1 03040000 CVTPFSW EQU CVTA1F1 03041000 CVTPCVT EQU CVTMAP+352 03042000 CVTRSV46 EQU CVTMAP+344 03043000 CVTRSV45 EQU CVTMAP+340 03044000 CVTRSV44 EQU CVTMAP+338 03045000 CVTRSV43 EQU CVTMAP+336 03046000 CVTHJESA EQU CVTHJES+1 03047000 CVTRSV42 EQU CVTHJES 03048000 CVTEXT2A EQU CVTEXT2+1 03049000 CVTRSV41 EQU CVTEXT2 03050000 CVTAPFA EQU CVTAPF+1 03051000 CVTRSV40 EQU CVTAPF 03052000 CVTRV518 EQU CVTINTLA 03053000 CVTRV517 EQU CVTERPV 03054000 CVTEORM EQU CVTMAP+312 03055000 CVTMCHPR EQU CVTMAP+308 03056000 CVTTZ EQU CVTMAP+304 03057000 CVTJEPS EQU CVTMAP+300 03058000 CVTJESCT EQU CVTMAP+296 03059000 CVTMODE EQU CVTMAP+292 03060000 CVTPTRV EQU CVTMAP+288 03061000 CVTREAL EQU CVTMAP+284 03062000 CVTRSV39 EQU CVTMAP+280 03063000 CVTRSV38 EQU CVTMAP+276 03064000 CVTDMSRA EQU CVTDMSR+1 03065000 CVTRV634 EQU CVTDMSRF 03066000 CVTRV633 EQU CVTDMSRF 03067000 CVTRV632 EQU CVTDMSRF 03068000 CVTRV631 EQU CVTDMSRF 03069000 CVTRV630 EQU CVTDMSRF 03070000 CVTRV629 EQU CVTDMSRF 03071000 CVTUDUMP EQU CVTDMSRF 03072000 CVTSDUMP EQU CVTDMSRF 03073000 CVTQMSGA EQU CVTQMSG+1 03074000 CVTRSV36 EQU CVTQMSG 03075000 CVTAMFF EQU CVTMAP+264 03076000 CVTPURGA EQU CVTPURG+1 03077000 CVTRSV35 EQU CVTPURG 03078000 CVTCBSP EQU CVTMAP+256 03079000 CVTATERA EQU CVTATER+1 03080000 CVTSYST EQU CVTATER 03081000 CVTVOLT2 EQU CVTTAT 03082000 CVTVOLI2 EQU CVTVOLF2 03083000 CVTAQAVB EQU CVTAQAVT+1 03084000 CVTRSV34 EQU CVTTCMFG 03085000 CVTRSV33 EQU CVTTCMFG 03086000 CVTRSV32 EQU CVTTCMFG 03087000 CVTRSV31 EQU CVTTCMFG 03088000 CVTRSV30 EQU CVTTCMFG 03089000 CVTRSV29 EQU CVTTCMFG 03090000 CVTRSV28 EQU CVTTCMFG 03091000 CVTTCRDY EQU CVTTCMFG 03092000 CVTGTFA EQU CVTGTF+1 03093000 CVTRSV27 EQU CVTGTFST 03094000 CVTRNIO EQU CVTGTFST 03095000 CVTUSR EQU CVTGTFST 03096000 CVTRV318 EQU CVTFORM 03097000 CVTRV317 EQU CVTTMODE 03098000 CVTRV316 EQU CVTSTATE 03099000 CVTRV315 EQU CVTGTFS 03100000 CVTGTFAV EQU CVTGTFS 03101000 CVT0SCR1 EQU CVTMAP+232 03102000 CVTRV515 EQU CVTMAP+228 03103000 CVTRMS EQU CVTMAP+224 03104000 CVTPATCH EQU CVTMAP+220 03105000 CVTTSCE EQU CVTMAP+216 03106000 CVTLNKSC EQU CVTMAP+214 03107000 CVTQABST EQU CVTMAP+212 03108000 CVTMDLDS EQU CVTMAP+208 03109000 CVTUSER EQU CVTMAP+204 03110000 CVTABEND EQU CVTMAP+200 03111000 CVTSMCA EQU CVTMAP+196 03112000 CVTRSV18 EQU CVTMAP+192 03113000 CVTQLPAQ EQU CVTMAP+188 03114000 CVTQCDSR EQU CVTMAP+184 03115000 CVTRSV17 EQU CVTOPTB 03116000 CVTRSV16 EQU CVTOPTB 03117000 CVTFP EQU CVTOPTB 03118000 CVTAPTHR EQU CVTOPTB 03119000 CVTNLOG EQU CVTOPTB 03120000 CVTTOD EQU CVTOPTB 03121000 CVTCTIMS EQU CVTOPTB 03122000 CVTPROT EQU CVTOPTB 03123000 CVTXPFP EQU CVTOPTA 03124000 CVTASCII EQU CVTOPTA 03125000 CVTRSV13 EQU CVTOPTA 03126000 CVTRSV12 EQU CVTOPTA 03127000 CVTNIP EQU CVTOPTA 03128000 CVTDDR EQU CVTOPTA 03129000 CVTAPR EQU CVTOPTA 03130000 CVTCCH EQU CVTOPTA 03131000 CVTSNCTR EQU CVTMAP+180 03132000 CVTQMWR EQU CVTMAP+176 03133000 CVTQOCR EQU CVTMAP+172 03134000 CVT1EF00 EQU CVTMAP+168 03135000 CVTMZ00 EQU CVTMAP+164 03136000 CVTHEAD EQU CVTMAP+160 03137000 CVTRSV11 EQU CVTMAP+156 03138000 CVT0PT01 EQU CVTMAP+152 03139000 CVTMSER EQU CVTMAP+148 03140000 CVTRV516 EQU CVTIERLC 03141000 CVTILCH EQU CVTMAP+140 03142000 CVT0DS EQU CVTMAP+136 03143000 CVTFBOSV EQU CVTMAP+132 03144000 CVTNUCB EQU CVTMAP+128 03145000 CVTIXAVL EQU CVTMAP+124 03146000 CVTIOQET EQU CVTMAP+120 03147000 CVTDCBA EQU CVTMAP+117 03148000 CVTMVS2 EQU CVTDCB 03149000 CVT6DAT EQU CVTDCB 03150000 CVT4MPS EQU CVTDCB 03151000 CVTRSV09 EQU CVTDCB 03152000 CVT4MS1 EQU CVTDCB 03153000 CVT2SPS EQU CVTDCB 03154000 CVT1SSS EQU CVTDCB 03155000 CVTRSV08 EQU CVTDCB 03156000 CVTSTB EQU CVTMAP+112 03157000 CVTQTD00 EQU CVTMAP+108 03158000 CVTQTE00 EQU CVTMAP+104 03159000 CVTCUCB EQU CVTMAP+100 03160000 CVTSJQ EQU CVTMAP+96 03161000 CVTPBLDL EQU CVTMAP+92 03162000 CVTTPC EQU CVTMAP+88 03163000 CVTSVDCB EQU CVTMAP+84 03164000 CVTBRET EQU CVTMAP+82 03165000 CVTEXIT EQU CVTMAP+80 03166000 CVT0FN00 EQU CVTMAP+76 03167000 CVTDARA EQU CVTDAR+1 03168000 CVTRSV07 EQU CVTFLGS1 03169000 CVTRSV06 EQU CVTFLGS1 03170000 CVTRSV05 EQU CVTFLGS1 03171000 CVTRSV04 EQU CVTFLGS1 03172000 CVTRSV03 EQU CVTFLGS1 03173000 CVTRSV02 EQU CVTFLGS1 03174000 CVTRSV01 EQU CVTFLGS1 03175000 CVTDMPLK EQU CVTFLGS1 03176000 CVTXITP EQU CVTMAP+68 03177000 CVTZDTAB EQU CVTMAP+64 03178000 CVTMSLT EQU CVTMAP+60 03179000 CVTDATE EQU CVTMAP+56 03180000 CVTBTERM EQU CVTMAP+52 03181000 CVTSYSAD EQU CVTMAP+48 03182000 CVTXTLER EQU CVTMAP+44 03183000 CVTILK2 EQU CVTMAP+40 03184000 CVTILK1 EQU CVTMAP+36 03185000 CVTPRLTV EQU CVTMAP+32 03186000 CVTPCNVT EQU CVTMAP+28 03187000 CVT0VL00 EQU CVTMAP+24 03188000 CVTXAPG EQU CVTMAP+20 03189000 CVTBUF EQU CVTMAP+16 03190000 CVTJOB EQU CVTMAP+12 03191000 CVTLINK EQU CVTMAP+8 03192000 CVT0EF00 EQU CVTMAP+4 03193000 CVTTCBP EQU CVTMAP 03194000 CVT EQU CVTMAP 03195000 @NM00028 EQU PSA+3668 03196000 PSASTAK EQU PSA+3072 03197000 @NM00027 EQU PSA+1048 03198000 PSAUSEND EQU PSA+1048 03199000 PSARV062 EQU PSA+1044 03200000 PSACDAL EQU PSA+1040 03201000 PSAWTCOD EQU PSA+1036 03202000 PSAATCVT EQU PSA+1032 03203000 PSAPCPSW EQU PSA+1024 03204000 PSAPIR2 EQU PSA+1020 03205000 PSARV059 EQU PSA+1018 03206000 PSASVC13 EQU PSA+1016 03207000 PSALSFCC EQU PSA+1012 03208000 PSASFACC EQU PSA+1008 03209000 PSASTOP EQU PSA+992 03210000 PSASTART EQU PSA+976 03211000 PSARSPSW EQU PSA+968 03212000 PSASRPSW EQU PSA+960 03213000 PSARV045 EQU PSA+892 03214000 PSARV044 EQU PSA+888 03215000 PSARV043 EQU PSA+884 03216000 PSARV042 EQU PSA+880 03217000 PSARV041 EQU PSA+876 03218000 PSARV040 EQU PSA+872 03219000 PSARV025 EQU PSA+868 03220000 PSADSSED EQU PSA+868 03221000 PSADSSPR EQU PSA+864 03222000 PSADSSFW EQU PSA+860 03223000 PSADSS14 EQU PSA+856 03224000 PSADSSPP EQU PSA+848 03225000 PSADSSRP EQU PSA+840 03226000 PSADSS05 EQU PSADSSF4 03227000 PSADSS10 EQU PSADSSF4 03228000 PSADSSVE EQU PSADSSF4 03229000 PSADSSDE EQU PSADSSF4 03230000 PSADSSC0 EQU PSADSSF4 03231000 PSADSSIE EQU PSADSSF4 03232000 PSADSS12 EQU PSADSSF4 03233000 PSADSSRC EQU PSADSSF4 03234000 PSARV057 EQU PSADSSF3 03235000 PSARV056 EQU PSADSSF3 03236000 PSARV055 EQU PSADSSF3 03237000 PSADSSMC EQU PSADSSF3 03238000 PSADSSRW EQU PSADSSF3 03239000 PSADSSNM EQU PSADSSF3 03240000 PSADSSES EQU PSADSSF3 03241000 PSADSSGP EQU PSADSSF3 03242000 PSADSSF2 EQU PSADSSFL+1 03243000 PSADSSPI EQU PSADSSF1 03244000 PSADSSOI EQU PSADSSF1 03245000 PSADSSSP EQU PSADSSF1 03246000 PSADSSTP EQU PSADSSF1 03247000 PSADSSDW EQU PSADSSF1 03248000 PSADSSDD EQU PSADSSF1 03249000 PSADSSDM EQU PSADSSF1 03250000 PSADSSMV EQU PSADSSF1 03251000 PSADSSTS EQU PSA+816 03252000 PSADSSWK EQU PSA+812 03253000 PSADSSR3 EQU PSA+808 03254000 PSADSSR2 EQU PSA+804 03255000 PSADSSRS EQU PSA+800 03256000 PSASTOR EQU PSA+796 03257000 PSACPUSA EQU PSA+794 03258000 PSAVSTAP EQU PSA+792 03259000 PSAWKVAP EQU PSA+788 03260000 PSAWKRAP EQU PSA+784 03261000 PSAMCHIC EQU PSA+783 03262000 PSARV061 EQU PSA+782 03263000 PSASYMSK EQU PSA+781 03264000 PSAMCHFL EQU PSA+780 03265000 PSACR0 EQU PSA+776 03266000 PSAPSWSV EQU PSA+768 03267000 PSALITA EQU PSA+764 03268000 PSACLHS EQU PSAHLHI 03269000 PSALKR15 EQU PSALKSA+60 03270000 PSALKR14 EQU PSALKSA+56 03271000 PSALKR13 EQU PSALKSA+52 03272000 PSALKR12 EQU PSALKSA+48 03273000 PSALKR11 EQU PSALKSA+44 03274000 PSALKR10 EQU PSALKSA+40 03275000 PSALKR9 EQU PSALKSA+36 03276000 PSALKR8 EQU PSALKSA+32 03277000 PSALKR7 EQU PSALKSA+28 03278000 PSALKR6 EQU PSALKSA+24 03279000 PSALKR5 EQU PSALKSA+20 03280000 PSALKR4 EQU PSALKSA+16 03281000 PSALKR3 EQU PSALKSA+12 03282000 PSALKR2 EQU PSALKSA+8 03283000 PSALKR1 EQU PSALKSA+4 03284000 PSALKR0 EQU PSALKSA 03285000 PSARV023 EQU PSACLHT+52 03286000 PSALOCAL EQU PSACLHT+48 03287000 PSACMSL EQU PSACLHT+44 03288000 PSAOPTL EQU PSACLHT+40 03289000 PSATPACL EQU PSACLHT+36 03290000 PSATPDNL EQU PSACLHT+32 03291000 PSATPNCL EQU PSACLHT+28 03292000 PSAIOSLL EQU PSACLHT+24 03293000 PSAIOSUL EQU PSACLHT+20 03294000 PSAIOSCL EQU PSACLHT+16 03295000 PSAIOSSL EQU PSACLHT+12 03296000 PSASALCL EQU PSACLHT+8 03297000 PSAASML EQU PSACLHT+4 03298000 PSADISPL EQU PSACLHT 03299000 PSASRSA EQU PSA+636 03300000 PSARV050 EQU PSA+634 03301000 PSADSSGO EQU PSA+633 03302000 PSARECUR EQU PSA+632 03303000 PSAHLHIS EQU PSA+628 03304000 PSAIPCSA EQU PSA+624 03305000 @NM00026 EQU PSA+621 03306000 PSAIPCDM EQU PSA+620 03307000 PSAIPCD EQU PSA+616 03308000 @NM00025 EQU PSA+613 03309000 PSAIPCRM EQU PSA+612 03310000 PSAIPCR EQU PSA+608 03311000 PSAMCHEX EQU PSA+600 03312000 PSAMPSW EQU PSA+592 03313000 PSAEXPS2 EQU PSA+584 03314000 PSAEXPS1 EQU PSA+576 03315000 PSAPIREG EQU PSA+572 03316000 PSARSREG EQU PSA+568 03317000 PSAGPREG EQU PSA+556 03318000 PSARV022 EQU PSASUP4 03319000 PSARV021 EQU PSASUP4 03320000 PSARV020 EQU PSASUP4 03321000 PSARV019 EQU PSASUP4 03322000 PSARV018 EQU PSASUP4 03323000 PSARV017 EQU PSASUP4 03324000 PSARV016 EQU PSASUP4 03325000 PSARV015 EQU PSASUP4 03326000 PSARV014 EQU PSASUP3 03327000 PSARV013 EQU PSASUP3 03328000 PSARV012 EQU PSASUP3 03329000 PSARV011 EQU PSASUP3 03330000 PSASPR EQU PSASUP3 03331000 PSAPSREG EQU PSASUP3 03332000 PSAPI2 EQU PSASUP3 03333000 PSAIOSUP EQU PSASUP3 03334000 PSALCR EQU PSASUP2 03335000 PSARTM EQU PSASUP2 03336000 PSAACR EQU PSASUP2 03337000 PSAIPCE2 EQU PSASUP2 03338000 PSAIPCES EQU PSASUP2 03339000 PSAIPCEC EQU PSASUP2 03340000 PSAGTF EQU PSASUP2 03341000 PSAIPCRI EQU PSASUP2 03342000 PSARV063 EQU PSASUP1 03343000 PSATCTL EQU PSASUP1 03344000 PSADISP EQU PSASUP1 03345000 PSALOCK EQU PSASUP1 03346000 PSAPI EQU PSASUP1 03347000 PSAEXT EQU PSASUP1 03348000 PSASVC EQU PSASUP1 03349000 PSAIO EQU PSASUP1 03350000 PSAANEW EQU PSA+544 03351000 PSATOLD EQU PSA+540 03352000 PSATNEW EQU PSA+536 03353000 PSALCCAR EQU PSA+532 03354000 PSALCCAV EQU PSA+528 03355000 PSAPCCAR EQU PSA+524 03356000 PSAPCCAV EQU PSA+520 03357000 PSACPULA EQU PSA+518 03358000 PSACPUPA EQU PSA+516 03359000 PSAPSA EQU PSA+512 03360000 FLCHDEND EQU PSA+512 03361000 FLCCRSAV EQU FLCMCLA+280 03362000 FLCGRSAV EQU FLCMCLA+216 03363000 FLCFPSAV EQU FLCMCLA+184 03364000 FLCFLA EQU FLCMCLA+88 03365000 FLCRGNCD EQU FLCMCLA+84 03366000 FLCFSAA EQU FLCFSA+1 03367000 @NM00024 EQU FLCFSA 03368000 @NM00023 EQU FLCMCLA+72 03369000 FLCMCIC EQU FLCMCLA+64 03370000 @NM00022 EQU FLCMCLA+20 03371000 FLCIOAA EQU FLCIOA+1 03372000 @NM00021 EQU FLCIOA 03373000 @NM00020 EQU FLCMCLA+15 03374000 @NM00019 EQU FLCMCLA+14 03375000 @NM00018 EQU FLCMCLA+12 03376000 FLCLCL EQU FLCMCLA+8 03377000 FLCIOELA EQU FLCIOEL+1 03378000 @NM00017 EQU FLCIOEL 03379000 FLCCHNID EQU FLCMCLA 03380000 @NM00016 EQU PSA+160 03381000 FLCMTRCD EQU PSA+157 03382000 @NM00015 EQU PSA+156 03383000 FLCPERA EQU FLCPER+1 03384000 @NM00014 EQU FLCPER 03385000 @NM00013 EQU PSA+151 03386000 FLCPERCD EQU PSA+150 03387000 FLCMCNUM EQU PSA+149 03388000 @NM00012 EQU PSA+148 03389000 FLCTEAA EQU FLCTEA+1 03390000 @NM00011 EQU FLCTEA 03391000 PSAPIPC EQU PSAPICOD 03392000 PSAPIMC EQU PSAPICOD 03393000 PSAPIPER EQU PSAPICOD 03394000 PSARV049 EQU FLCPICOD 03395000 FLCPILCB EQU FLCPIILC 03396000 @NM00010 EQU FLCPIILC 03397000 @NM00009 EQU PSAEPPSW 03398000 FLCSVCN EQU PSAESPSW+2 03399000 FLCSILCB EQU FLCSVILC 03400000 @NM00008 EQU FLCSVILC 03401000 @NM00007 EQU PSAESPSW 03402000 FLCEICOD EQU PSAEEPSW+2 03403000 PSASPAD EQU PSAEEPSW 03404000 @NM00006 EQU PSA+128 03405000 FLCINPSW EQU PSA+120 03406000 FLCMNPSW EQU PSA+112 03407000 FLCPNPSW EQU PSA+104 03408000 FLCSNPSW EQU PSA+96 03409000 FLCENPSW EQU PSA+88 03410000 FLCTRACE EQU PSA+84 03411000 FLCTIMER EQU PSA+80 03412000 FLCCVT2 EQU PSA+76 03413000 FLCCAW EQU PSA+72 03414000 FLCCSW EQU PSA+64 03415000 FLCIOPSW EQU PSA+56 03416000 FLCMOPSW EQU PSA+48 03417000 FLCPOPSW EQU PSA+40 03418000 FLCSOPSW EQU PSA+32 03419000 FLCEOPSW EQU PSA+24 03420000 @NM00005 EQU FLCICCW2+4 03421000 FLCCVT EQU FLCICCW2 03422000 FLCICCW1 EQU FLCROPSW 03423000 FLCIPPSW EQU FLCRNPSW 03424000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03425000 @RF00274 EQU RESCHED 03426000 @RF00331 EQU UPDATE 03427000 @RC00354 EQU TEST 03428000 @RC00336 EQU @RC00323 03429000 @RC00476 EQU @RC00473 03430000 @ENDDATA EQU * 03431000 END ISTAPC31,(C'PLS1804',0603,77130) 03432000