TITLE 'ISTDCC80 PURGE OUTBOUND *00001000 ' 00002000 ISTDCC80 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTDCC80 75.310' 0001 00008000 DROP @15 00009000 @PROLOG BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 * CRRPTR=ADDR(CRRSPACE); /* GET SAVE AREA ADDRESS */ 00013000 L CRRPTR,RPHCRR(,RPHPTR) 0488 00014000 LA CRRPTR,CRRSPACE+312(,CRRPTR) 0488 00015000 * RFY 0489 00016000 * CRRSAREA BASED(CRRPTR); /* COVER THE CRR */ 00017000 * CRRMAS=CRRMAS&&CRRMAS; 0490 00018000 XC CRRMAS(8,CRRPTR),CRRMAS(CRRPTR) 0490 00019000 * CRRM80=ON; /* SET AUDIT TRAILS */ 00020000 OI CRRM80(CRRPTR),B'00000010' 0491 00021000 * CRRC80=ON; /* ON IN CRR */ 00022000 OI CRRC80(CRRPTR),B'00000010' 0492 00023000 * CRRFMCB=RPHMAJCB; /* GET FMCB ADDRESS */ 00024000 L @15,RPHMAJCB-1(,RPHPTR) 0493 00025000 LA @15,0(,@15) 0493 00026000 ST @15,CRRFMCB(,CRRPTR) 0493 00027000 * FMCBPTR=CRRFMCB; /* REGISTER COVER FMCB */ 00028000 LR FMCBPTR,@15 0494 00029000 * CRRARPL=RPHWEA; /* WORK ELEMENT ADDRESS */ 00030000 L @15,RPHWEA(,RPHPTR) 0495 00031000 ST @15,CRRARPL(,CRRPTR) 0495 00032000 * RFY 0496 00033000 * ISTFMCB BASED(FMCBPTR); /* FMCB ADDRESSABILITY */ 00034000 * RFY 0497 00035000 * ISTDCLCP BASED(CRRARPL); /* COVER DCLCP */ 00036000 * RFY 0498 00037000 * ISTLCPB BASED(ADDR(DCLLCPB)); /* AND ITS LCPB */ 00038000 * RFY 0499 00039000 * IFGRPL BASED(CRRARPL); /* COVER RPL-IF ONE EXISTS */ 00040000 * DO; /* LISATCVT 0500 00041000 * CVTBASE(PAGEABLE,(CRRATCVT)) */ 00042000 * CRRATCVT=ATCLCPTR; /* SET UP ATCVT POINTER */ 00043000 L @10,ATCLCPTR 0501 00044000 ST @10,CRRATCVT(,CRRPTR) 0501 00045000 * END; /* LISATCVT */ 00046000 * IF RPLID='00'X THEN /* IF WORK ELENT IS AN RPL */ 00047000 CLI RPLID(@15),X'00' 0503 00048000 BNE @RF00503 0503 00049000 * DO; 0504 00050000 * RPLRTNCD='1C'X; /* SET PURGE STATUS IN RPL */ 00051000 MVI RPLRTNCD(@15),X'1C' 0505 00052000 * RPLFDB2=FMCPRMRC; /* MOVE MINOR RTN CODE TO RPL */ 00053000 MVC RPLFDB2(1,@15),FMCPRMRC(FMCBPTR) 0506 00054000 * RFY 0507 00055000 * ISTATCVT BASED(CRRATCVT); /* COVER VTAM CVT */ 00056000 * CALL ATCAPOST; /* CALL USER POST ROUTINE */ 00057000 L @15,ATCAPOST(,@10) 0508 00058000 BALR @14,@15 0508 00059000 * END; /* END IF WRK ELT. RPL */ 00060000 * ELSE /* IF WRK ELT. NOT RPL */ 00061000 * DO; /* IT IS AN LCPB */ 00062000 B @RC00503 0510 00063000 @RF00503 DS 0H 0511 00064000 * RFY 0511 00065000 * ISTACDEB BASED(FMCDEBA); 0511 00066000 * 0511 00067000 */*** START -TPLOCK (DEBLOCK)TYPE(XCLSIVE)- ** */ 00068000 * 0512 00069000 * DO; 0512 00070000 * DCL 0513 00071000 * GPR05F FIXED(31) REG(05); 0513 00072000 * DCL 0514 00073000 * GPR05P PTR(31) REG(05); 0514 00074000 * DCL 0515 00075000 * GPR06F FIXED(31) REG(06); 0515 00076000 * DCL 0516 00077000 * GPR06P PTR(31) REG(06); 0516 00078000 * DCL 0517 00079000 * GPR07F FIXED(31) REG(07); 0517 00080000 * DCL 0518 00081000 * GPR07P PTR(31) REG(07); 0518 00082000 * DCL 0519 00083000 * GPR08F FIXED(31) REG(08); 0519 00084000 * DCL 0520 00085000 * GPR08P PTR(31) REG(08); 0520 00086000 * DCL 0521 00087000 * GPR09F FIXED(31) REG(09); 0521 00088000 * DCL 0522 00089000 * GPR09P PTR(31) REG(09); 0522 00090000 * DCL 0523 00091000 * GPR10F FIXED(31) REG(10); 0523 00092000 * DCL 0524 00093000 * GPR10P PTR(31) REG(10); 0524 00094000 * DCL 0525 00095000 * GPR11F FIXED(31) REG(11); 0525 00096000 * DCL 0526 00097000 * GPR11P PTR(31) REG(11); 0526 00098000 * DCL 0527 00099000 * GPR12F FIXED(31) REG(12); 0527 00100000 * DCL 0528 00101000 * GPR12P PTR(31) REG(12); 0528 00102000 * DCL 0529 00103000 * GPR13F FIXED(31) REG(13); 0529 00104000 * DCL 0530 00105000 * GPR13P PTR(31) REG(13); 0530 00106000 * DCL 0531 00107000 * GPR14F FIXED(31) REG(14); 0531 00108000 * DCL 0532 00109000 * GPR14P PTR(31) REG(14); 0532 00110000 * DCL 0533 00111000 * GPR00F FIXED(31) REG(00); 0533 00112000 * DCL 0534 00113000 * GPR00P PTR(31) REG(00); 0534 00114000 * DCL 0535 00115000 * GPR01F FIXED(31) REG(01); 0535 00116000 * DCL 0536 00117000 * GPR01P PTR(31) REG(01); 0536 00118000 * DCL 0537 00119000 * GPR02F FIXED(31) REG(02); 0537 00120000 * DCL 0538 00121000 * GPR02P PTR(31) REG(02); 0538 00122000 * DCL 0539 00123000 * GPR03F FIXED(31) REG(03); 0539 00124000 * DCL 0540 00125000 * GPR03P PTR(31) REG(03); 0540 00126000 * DCL 0541 00127000 * GPR04F FIXED(31) REG(04); 0541 00128000 * DCL 0542 00129000 * GPR04P PTR(31) REG(04); 0542 00130000 * DCL 0543 00131000 * GPR15F FIXED(31) REG(15); 0543 00132000 * DCL 0544 00133000 * GPR15P PTR(31) REG(15); 0544 00134000 * RFY 0545 00135000 * (GPR00P, 0545 00136000 * GPR01P, 0545 00137000 * GPR02P, 0545 00138000 * GPR03P, 0545 00139000 * GPR04P, 0545 00140000 * GPR15P) RSTD; 0545 00141000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(RPHWORK); 00142000 STM GPR00P,GPR14P,RPHWORK(GPR01P) 00143000 * GPR02P=ADDR(ACDLOCK); /* SET PARAM - LOCKWORD PTR */ 00144000 L GPR02P,FMCDEBA(,FMCBPTR) 0547 00145000 LA GPR02P,ACDLOCK(,GPR02P) 0547 00146000 * GPR04P=GPR01P->RPHCRR; /* SET PARAM - ISTCRA PTR */ 00147000 L GPR04P,RPHCRR(,GPR01P) 0548 00148000 * GPR00P=CRALMS05; /* SET PARAM - LOCK LEVEL FLAG */ 00149000 LA GPR00P,16 0549 00150000 * GPR03P=ADDR(GPR04P->CRAL5PTR);/* SET PARAM - LOCK LEVEL PTR*/ 00151000 LA GPR03P,CRAL5PTR(,GPR04P) 0550 00152000 * GPR15P=ATCLCPTR->ATCAP36; /* ADDRESS OF LOCK ROUTINE */ 00153000 L @10,ATCLCPTR 0551 00154000 L GPR15P,ATCAP36(,@10) 0551 00155000 * DCL 0552 00156000 * FMZL0011 BASED(GPR15P) LABEL VALUERANGE(*); 0552 00157000 * CALL FMZL0011; 0553 00158000 BALR @14,@15 0553 00159000 * GENERATE REFS(GPR00P,GPR01P,GPR14P,RPHWORK) SETS(GPR00P, 0554 00160000 * GPR01P,GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P, 00161000 * GPR09P,GPR10P,GPR11P,GPR12P,GPR13P,GPR14P,GPR15P); 0554 00162000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 00163000 * RFY 0555 00164000 * (GPR00P, 0555 00165000 * GPR01P, 0555 00166000 * GPR02P, 0555 00167000 * GPR03P, 0555 00168000 * GPR04P, 0555 00169000 * GPR15P) UNRSTD; 0555 00170000 * END; 0556 00171000 * 0556 00172000 */*** END -TPLOCK (DEBLOCK)TYPE(XCLSIVE)- ** */ 00173000 * 0557 00174000 * /* LOCK THE DEB */ 00175000 */*** START -TPLOCK (CTLLOCK)TYPE(XCLSIVE)- ** */ 00176000 * 0557 00177000 * DO; 0557 00178000 * RFY 0558 00179000 * (GPR00P, 0558 00180000 * GPR01P, 0558 00181000 * GPR02P, 0558 00182000 * GPR03P, 0558 00183000 * GPR04P, 0558 00184000 * GPR15P) RSTD; 0558 00185000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(RPHWORK); 00186000 STM GPR00P,GPR14P,RPHWORK(GPR01P) 00187000 * GPR02P=ADDR(FMCDCLOK); /* SET PARAM - LOCKWORD PTR */ 00188000 LA GPR02P,FMCDCLOK(,FMCBPTR) 0560 00189000 * GPR04P=GPR01P->RPHCRR; /* SET PARAM - ISTCRA PTR */ 00190000 L GPR04P,RPHCRR(,GPR01P) 0561 00191000 * GPR00P=CRALMS08; /* SET PARAM - LOCK LEVEL FLAG */ 00192000 LA GPR00P,128 0562 00193000 * GPR03P=ADDR(GPR04P->CRAL8PTR);/* SET PARAM - LOCK LEVEL PTR*/ 00194000 LA GPR03P,CRAL8PTR(,GPR04P) 0563 00195000 * GPR15P=ATCLCPTR->ATCAP36; /* ADDRESS OF LOCK ROUTINE */ 00196000 L @10,ATCLCPTR 0564 00197000 L GPR15P,ATCAP36(,@10) 0564 00198000 * DCL 0565 00199000 * FMZL0016 BASED(GPR15P) LABEL VALUERANGE(*); 0565 00200000 * CALL FMZL0016; 0566 00201000 BALR @14,@15 0566 00202000 * GENERATE REFS(GPR00P,GPR01P,GPR14P,RPHWORK) SETS(GPR00P, 0567 00203000 * GPR01P,GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P, 00204000 * GPR09P,GPR10P,GPR11P,GPR12P,GPR13P,GPR14P,GPR15P); 0567 00205000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 00206000 * RFY 0568 00207000 * (GPR00P, 0568 00208000 * GPR01P, 0568 00209000 * GPR02P, 0568 00210000 * GPR03P, 0568 00211000 * GPR04P, 0568 00212000 * GPR15P) UNRSTD; 0568 00213000 * END; 0569 00214000 * 0569 00215000 */*** END -TPLOCK (CTLLOCK)TYPE(XCLSIVE)- ** */ 00216000 * 0570 00217000 * /* LOCK THE FMCB */ 00218000 * CRRFMCLK=ON; /* TURN ON FLAG@D33SKCF */ 00219000 OI CRRFMCLK(CRRPTR),B'10000000' 0570 00220000 * CALL LCPBINIT; /* BUILD LCPB */ 00221000 BAL @14,LCPBINIT 0571 00222000 * CALL FREEFSB; /* FREE FSBS ON DATA QUE */ 00223000 BAL @14,FREEFSB 0572 00224000 * RFY 0573 00225000 * (OLDVALUE, 0573 00226000 * NEWVALUE) RSTD; 0573 00227000 *C80A: 0574 00228000 * OLDVALUE=FMCCMPS2; /* GET OLD VALUE */ 00229000 C80A L OLDVALUE,FMCCMPS2(,FMCBPTR) 0574 00230000 * NEWVALUE=OLDVALUE|FLGA4ON; /* SET PURGE IN PROG. FLAG */ 00231000 LR NEWVALUE,OLDVALUE 0575 00232000 O NEWVALUE,@CF01603 0575 00233000 * CS(OLDVALUE,NEWVALUE,FMCCMPS2);/* STORE NEW VALUE */ 00234000 CS OLDVALUE,@08,FMCCMPS2(FMCBPTR) 0576 00235000 * BC(7,C80A); /* RETRY IF FAILED */ 00236000 BC 7,C80A 0577 00237000 * RFY 0578 00238000 * (OLDVALUE, 0578 00239000 * NEWVALUE) UNRSTD; 0578 00240000 * FMCPRMRC=CRRARPL->LCPMNRCD; /* SET PURGE MINOR RTN CODE */ 00241000 L @15,CRRARPL(,CRRPTR) 0579 00242000 MVC FMCPRMRC(1,FMCBPTR),LCPMNRCD(@15) 0579 00243000 * IF FMCPRMRC^='81'X THEN 0580 00244000 CLI FMCPRMRC(FMCBPTR),X'81' 0580 00245000 BE @RF00580 0580 00246000 * FMCPRMRC=FMCPRMRC&'7F'X; /* @XM7981K*/ 00247000 NI FMCPRMRC(FMCBPTR),X'7F' 0581 00248000 * CALL LCCWBLD; /* BUILD RESET IMM. LCCW */ 00249000 @RF00580 BAL @14,LCCWBLD 0582 00250000 */*** START -TPUNLOCK (DEBLOCK)- ** */ 00251000 * 0583 00252000 * DO; 0583 00253000 * 0583 00254000 */* ATBUILD (ISTRPH,ISTLOK,ISTCRA) */ 00255000 */* END OF ATBUILD */ 00256000 * 0584 00257000 * RFY 0584 00258000 * (GPR00P, 0584 00259000 * GPR01P, 0584 00260000 * GPR02P, 0584 00261000 * GPR03P, 0584 00262000 * GPR04P, 0584 00263000 * GPR15P) RSTD; 0584 00264000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(RPHWORK); 00265000 STM GPR00P,GPR15P,RPHWORK(GPR01P) 00266000 * GPR02P=ADDR(ACDLOCK); /* SET PARAM - LOCKWORD PTR */ 00267000 L GPR02P,FMCDEBA(,FMCBPTR) 0586 00268000 LA GPR02P,ACDLOCK(,GPR02P) 0586 00269000 * GPR04P=GPR01P->RPHCRR; /* SET PARAM - ISTCRA PTR */ 00270000 L GPR04P,RPHCRR(,GPR01P) 0587 00271000 * GPR00P=CRALMS05; /* SET PARAM - LOCK LEVEL FLAG */ 00272000 LA GPR00P,16 0588 00273000 * GPR03P=ADDR(GPR04P->CRAL5PTR);/* SET PARAM - LOCK LEVEL PTR*/ 00274000 LA GPR03P,CRAL5PTR(,GPR04P) 0589 00275000 * DO; /* LISATCVT 0590 00276000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00277000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00278000 L GPR15P,ATCLCPTR 0591 00279000 * END; /* LISATCVT */ 00280000 * GPR15P=GPR15P->ATCAP33; 0593 00281000 L GPR15P,ATCAP33(,GPR15P) 0593 00282000 * DCL 0594 00283000 * FMZL0021 BASED(GPR15P) LABEL VALUERANGE(*); 0594 00284000 * CALL FMZL0021; 0595 00285000 BALR @14,@15 0595 00286000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(GPR00P, 0596 00287000 * GPR01P,GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P, 00288000 * GPR09P,GPR10P,GPR11P,GPR12P,GPR13P,GPR14P,GPR15P); 0596 00289000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 00290000 * RFY 0597 00291000 * (GPR00P, 0597 00292000 * GPR01P, 0597 00293000 * GPR02P, 0597 00294000 * GPR03P, 0597 00295000 * GPR04P, 0597 00296000 * GPR15P) UNRSTD; 0597 00297000 * END; 0598 00298000 * 0598 00299000 */*** END -TPUNLOCK (DEBLOCK)- ** */ 00300000 * 0599 00301000 * /* UNLOCK THE ACDEB */ 00302000 * END; /* END WRK ELT. NOT RPL */ 00303000 * CRRCRR=0; /* ALLOW PSS TO REUSE CRR */ 00304000 @RC00503 L @15,RPHCRR(,RPHPTR) 0600 00305000 SLR @10,@10 0600 00306000 ST @10,CRRCRR+312(,@15) 0600 00307000 * IF CRRFMCLK=ON THEN /* IF FMCB IS LOCKE@D33SKCF */ 00308000 TM CRRFMCLK(CRRPTR),B'10000000' 0601 00309000 BNO @RF00601 0601 00310000 * DO; /* @DM08974*/ 00311000 * CRRFMCLK=OFF; /* TURN OFF FLAG @D33SKCF*/ 00312000 NI CRRFMCLK(CRRPTR),B'01111111' 0603 00313000 */*** START -TPUNLOCK (CTLLOCK)- ** */ 00314000 * 0604 00315000 * DO; 0604 00316000 * 0604 00317000 */* ATBUILD (ISTRPH,ISTLOK,ISTCRA) */ 00318000 */* END OF ATBUILD */ 00319000 * 0605 00320000 * RFY 0605 00321000 * (GPR00P, 0605 00322000 * GPR01P, 0605 00323000 * GPR02P, 0605 00324000 * GPR03P, 0605 00325000 * GPR04P, 0605 00326000 * GPR15P) RSTD; 0605 00327000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(RPHWORK); 00328000 STM GPR00P,GPR15P,RPHWORK(GPR01P) 00329000 * GPR02P=ADDR(FMCDCLOK); /* SET PARAM - LOCKWORD PTR */ 00330000 LA GPR02P,FMCDCLOK(,FMCBPTR) 0607 00331000 * GPR04P=GPR01P->RPHCRR; /* SET PARAM - ISTCRA PTR */ 00332000 L GPR04P,RPHCRR(,GPR01P) 0608 00333000 * GPR00P=CRALMS08; /* SET PARAM - LOCK LEVEL FLAG */ 00334000 LA GPR00P,128 0609 00335000 * GPR03P=ADDR(GPR04P->CRAL8PTR);/* SET PARAM - LOCK LEVEL PTR*/ 00336000 LA GPR03P,CRAL8PTR(,GPR04P) 0610 00337000 * DO; /* LISATCVT 0611 00338000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00339000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00340000 L GPR15P,ATCLCPTR 0612 00341000 * END; /* LISATCVT */ 00342000 * GPR15P=GPR15P->ATCAP33; 0614 00343000 L GPR15P,ATCAP33(,GPR15P) 0614 00344000 * DCL 0615 00345000 * FMZL0031 BASED(GPR15P) LABEL VALUERANGE(*); 0615 00346000 * CALL FMZL0031; 0616 00347000 BALR @14,@15 0616 00348000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(GPR00P, 0617 00349000 * GPR01P,GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P, 00350000 * GPR09P,GPR10P,GPR11P,GPR12P,GPR13P,GPR14P,GPR15P); 0617 00351000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 00352000 * RFY 0618 00353000 * (GPR00P, 0618 00354000 * GPR01P, 0618 00355000 * GPR02P, 0618 00356000 * GPR03P, 0618 00357000 * GPR04P, 0618 00358000 * GPR15P) UNRSTD; 0618 00359000 * END; 0619 00360000 * 0619 00361000 */*** END -TPUNLOCK (CTLLOCK)- ** */ 00362000 * 0620 00363000 * /* UNLOCK FMCB */ 00364000 * END; /* END-FMCB IS LOCKED */ 00365000 * ELSE 0621 00366000 * ; /* FMCB IS NOT LOCKED */ 00367000 @RF00601 DS 0H 0622 00368000 */* TPEXIT NORM */ 00369000 * 0622 00370000 * DO; 0622 00371000 * RESPECIFY 0623 00372000 * GPR15P RSTD; 0623 00373000 * 0623 00374000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT) */ 00375000 */* END OF ATBUILD */ 00376000 * 0624 00377000 * DO; /* LISATCVT 0624 00378000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00379000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00380000 L GPR15P,ATCLCPTR 0625 00381000 * END; /* LISATCVT */ 00382000 * RESPECIFY 0627 00383000 * GPR00F RSTD; 0627 00384000 * GPR00F=4; /* SET PARAMETER REGISTER TO 4 */ 00385000 LA GPR00F,4 0628 00386000 * GPR15P=GPR15P->ATCAP31; 0629 00387000 L GPR15P,ATCAP31(,GPR15P) 0629 00388000 * DCL 0630 00389000 * FMZL0041 BASED(GPR15P) LABEL VALUERANGE(*); 0630 00390000 * CALL FMZL0041; 0631 00391000 BALR @14,@15 0631 00392000 * RESPECIFY 0632 00393000 * (GPR00F, 0632 00394000 * GPR15P) UNRSTD; 0632 00395000 * END; /* **** END OF TPEXIT EXIT TO PSS*/ 00396000 * 0634 00397000 */********************************************************************/ 00398000 */* */ 00399000 */* ROUTINE NAME : FREEFSB - BUFFER RELEASE */ 00400000 */* */ 00401000 */* FUNCTION : */ 00402000 */* FREEFSB LOOPS DOWN THE FMCB DATA QUEUE FREEING UP ALL */ 00403000 */* FSB/FDB CHAINS FOUND THERE. IF VARY SOFT PURGE IS IN */ 00404000 */* PROGRESS THE ERROR LOCK IS SET IN THE CLOP TO STOP FURTHER */ 00405000 */* REQUESTS TO CONTROL LAYER OUTBOUND. */ 00406000 */* */ 00407000 */* INPUT : FMCBPTR (REG 11) - POINTS TO THE FMCB */ 00408000 */* */ 00409000 */* OUTPUT : SAME */ 00410000 */* */ 00411000 */* SUBROUTINES CALLED : NONE */ 00412000 */* */ 00413000 */* MACROS USED : TPDEQ, RELSTORE */ 00414000 */* */ 00415000 */********************************************************************/ 00416000 * 0634 00417000 *FREEFSB: 0634 00418000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA,NOPARMREG); 0634 00419000 B @PB00002 0634 00420000 FREEFSB DS 0H 0635 00421000 * CRRRTN1=RTNREG; /* SAVE RETURN REG */ 00422000 ST RTNREG,CRRRTN1(,CRRPTR) 0635 00423000 * RFY 0636 00424000 * ISTDCLCP BASED(CRRARPL); /* COVER WRK ELT LCPB */ 00425000 * IF LCPMNRCD^='05'X& /* NOT APPL. ABEND */ 00426000 * LCPMNRCD^='06'X THEN /* NOT CLOSE DEST */ 00427000 L @15,CRRARPL(,CRRPTR) 0637 00428000 CLI LCPMNRCD(@15),X'05' 0637 00429000 BE @RF00637 0637 00430000 CLI LCPMNRCD(@15),X'06' 0637 00431000 BE @RF00637 0637 00432000 * DO; /* IS A VARY CASE */ 00433000 * IF LCPMNRCD=FRPRARSS THEN /* IF VARY SOFT PURGE IN PROG */ 00434000 CLI LCPMNRCD(@15),X'01' 0639 00435000 BNE @RF00639 0639 00436000 * DO; 0640 00437000 * FMCVSP1=ON; /* SET VARY SOFT PURGE FLAG */ 00438000 OI FMCVSP1(FMCBPTR),B'00000001' 0641 00439000 * ADDR(FMCPAB1)->PABERRLK=ON;/* TURN ON CLOP ERR LOCK */ 00440000 OI PABERRLK+64(FMCBPTR),B'00000100' 0642 00441000 * END; /* END-VARY SOFT PURGE */ 00442000 * ELSE 0644 00443000 * ; /* NOT SOFT PURGE */ 00444000 @RF00639 DS 0H 0645 00445000 * END; /* END VARY SPECIFIED */ 00446000 * ELSE 0646 00447000 * DO; /* IF VARY NOT SPECIFIED */ 00448000 B @RC00637 0646 00449000 @RF00637 DS 0H 0647 00450000 * RFY 0647 00451000 * (FSBPTR, 0647 00452000 * FDBREG) RSTD; 0647 00453000 * 0647 00454000 */* TPDEQ (,FMCFBA) RETPTR(FSBPTR) */ 00455000 * 0648 00456000 * DO; /* BEGIN TPDEQ CODE GENERATION */ 00457000 * DCL 0649 00458000 * FMZCA049 BIT(32) CONSTANT('80000000'X); 0649 00459000 * DCL 0650 00460000 * FMZCB049 BIT(32) CONSTANT('7FFFFFFF'X); 0650 00461000 * RFY 0651 00462000 * (GPR00P, 0651 00463000 * GPR01P, 0651 00464000 * GPR14P, 0651 00465000 * GPR15P) RSTD; 0651 00466000 * RFY 0652 00467000 * ISTWKE; 0652 00468000 * GPR15P=ADDR(FMCFBA); /* ADDRESS QUEUE POINTER */ 00469000 LA GPR15P,FMCFBA(,FMCBPTR) 0653 00470000 * GPR14P=GPR15P->PABWEQA|FMZCA049; 0654 00471000 L @08,@CF01579 0654 00472000 L GPR14P,PABWEQA(,GPR15P) 0654 00473000 OR GPR14P,@08 0654 00474000 * IF GPR14P=FMZCA049 THEN 0655 00475000 CLR GPR14P,@08 0655 00476000 BE @RT00655 0655 00477000 * ; 0656 00478000 * ELSE 0657 00479000 * DO; 0657 00480000 *FMZL1049: 0658 00481000 * ; 0658 00482000 FMZL1049 DS 0H 0659 00483000 * DO WHILE(GPR14P->WKECHAIN^=FMZCA049); 0659 00484000 B @DE00659 0659 00485000 @DL00659 DS 0H 0660 00486000 * GPR15P=ADDR(GPR14P->WKECHAIN); 0660 00487000 LA GPR15P,WKECHAIN(,GPR14P) 0660 00488000 * GPR14P=GPR15P->PABWEQA; 0661 00489000 L GPR14P,PABWEQA(,GPR15P) 0661 00490000 * END; 0662 00491000 @DE00659 L @08,@CF01579 0662 00492000 CL @08,WKECHAIN(,GPR14P) 0662 00493000 BNE @DL00659 0662 00494000 * GPR00P=FMZCA049; 0663 00495000 LR GPR00P,@08 0663 00496000 * CS(GPR14P,GPR00P,GPR15P->PABWEQA); 0664 00497000 CS GPR14P,@00,PABWEQA(GPR15P) 0664 00498000 * BC(7,FMZL1049); 0665 00499000 BC 7,FMZL1049 0665 00500000 * GPR14P->WKECHAIN=0; 0666 00501000 SLR @08,@08 0666 00502000 ST @08,WKECHAIN(,GPR14P) 0666 00503000 * END; 0667 00504000 *ISTA0049: 0668 00505000 * ; 0668 00506000 @RT00655 DS 0H 0668 00507000 ISTA0049 DS 0H 0669 00508000 * GPR14P=GPR14P&FMZCB049; 0669 00509000 N GPR14P,@CF01577 0669 00510000 * FSBPTR=GPR14P; 0670 00511000 LR FSBPTR,GPR14P 0670 00512000 * RFY 0671 00513000 * (GPR00P, 0671 00514000 * GPR01P, 0671 00515000 * GPR14P, 0671 00516000 * GPR15P) UNRSTD; 0671 00517000 * END; /* END TPDEQ GENERATION GET FSB 00518000 * FROM DATA QUE */ 00519000 * DO WHILE FSBPTR^=ZERO&FSBPTR^=GATE;/* LOOP THROUGH ALL FSB */ 00520000 B @DE00673 0673 00521000 @DL00673 DS 0H 0674 00522000 * RFY 0674 00523000 * ISTFSB BASED(FSBPTR); /* COVER FSB DEQUED */ 00524000 * FDBREG=ADDR(FSBFDB); /* GET ADDR FIRST FDB */ 00525000 LA FDBREG,FSBFDB(,FSBPTR) 0675 00526000 * RFY 0676 00527000 * ISTFDB BASED(FDBREG); /* COVER FDB */ 00528000 * FSBPTR=FDBREG-FDBOFSET; /* POINT TO BEGINNING OF * * 0677 00529000 * BLOCK TO BE FREED */ 00530000 LR FSBPTR,FDBREG 0677 00531000 SH FSBPTR,FDBOFSET(,FDBREG) 0677 00532000 * FSBPTR->FDBFDBA=FDBFDBA; /* MAKE 1ST WORD NXT FDB @ */ 00533000 L @15,FDBFDBA(,FDBREG) 0678 00534000 ST @15,FDBFDBA(,FSBPTR) 0678 00535000 * RFY 0679 00536000 * ISTPROCD BASED(ADDR(FMCPROCD)); 0679 00537000 * IF PROCFTX=ON THEN /* IF CONFIDENTIAL TEXT */ 00538000 * 0680 00539000 TM PROCFTX+48(FMCBPTR),B'00000001' 0680 00540000 BNO @RF00680 0680 00541000 * /*********************************************************/ 00542000 * /* */ 00543000 * /* RELSTORE BUFADDR(FSBPTR)CLEAR(YES)CHAIN(YES) */ 00544000 * /* */ 00545000 * /*********************************************************/ 00546000 * 0681 00547000 * DO; 0681 00548000 * 0681 00549000 */* ATBUILD (ISTATCVT,ISTRPH) */ 00550000 */* END OF ATBUILD */ 00551000 * 0682 00552000 * RFY 0682 00553000 * (GPR02P, 0682 00554000 * GPR03P, 0682 00555000 * GPR04P, 0682 00556000 * GPR15P) RSTD; 0682 00557000 * RFY 0683 00558000 * (GPR01P, 0683 00559000 * GPR13P) RSTD; 0683 00560000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 0684 00561000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 00562000 * RFY 0685 00563000 * GPR13P UNRSTD; 0685 00564000 * GPR04P=FSBPTR|'80000000'X; 0686 00565000 LR GPR04P,FSBPTR 0686 00566000 O GPR04P,@CF01579 0686 00567000 * DCL 0687 00568000 * 1 FMZA0053 FIXED(31) STATIC LOCAL, 0687 00569000 * 2 * FIXED(8) INIT(80), 0687 00570000 * 2 * PTR(24) INIT(0); 0687 00571000 * GPR03F=FMZA0053; 0688 00572000 L GPR03F,FMZA0053 0688 00573000 * DO; /* LISATCVT 0689 00574000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00575000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00576000 L GPR15P,ATCLCPTR 0690 00577000 * END; /* LISATCVT */ 00578000 * GPR02P=GPR15P->ATCBPDA; 0692 00579000 L GPR02P,ATCBPDA(,GPR15P) 0692 00580000 * GPR15P=GPR15P->ATCSMRS; 0693 00581000 L GPR15P,ATCSMRS(,GPR15P) 0693 00582000 * DCL 0694 00583000 * FMZL0053 BASED(GPR15P) LABEL VALUERANGE(*); 0694 00584000 * CALL FMZL0053; 0695 00585000 BALR @14,@15 0695 00586000 * RFY 0696 00587000 * GPR13P RSTD; 0696 00588000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 0697 00589000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 00590000 * RFY 0698 00591000 * (GPR01P, 0698 00592000 * GPR13P) UNRSTD; 0698 00593000 * RFY 0699 00594000 * (GPR02P, 0699 00595000 * GPR03P, 0699 00596000 * GPR04P, 0699 00597000 * GPR15P) UNRSTD; 0699 00598000 * END; /* *********END OF RELSTORE 0700 00599000 * EXPANSION********* */ 00600000 * ELSE /* IF NOT CONFIDENTIAL */ 00601000 * 0701 00602000 * /*********************************************************/ 00603000 * /* */ 00604000 * /* RELSTORE BUFADDR(FSBPTR)CHAIN(YES) */ 00605000 * /* */ 00606000 * /*********************************************************/ 00607000 * 0701 00608000 * DO; 0701 00609000 * 0701 00610000 B @RC00680 0701 00611000 @RF00680 DS 0H 0702 00612000 */* ATBUILD (ISTATCVT,ISTRPH) */ 00613000 */* END OF ATBUILD */ 00614000 * 0702 00615000 * RFY 0702 00616000 * (GPR02P, 0702 00617000 * GPR03P, 0702 00618000 * GPR04P, 0702 00619000 * GPR15P) RSTD; 0702 00620000 * RFY 0703 00621000 * (GPR01P, 0703 00622000 * GPR13P) RSTD; 0703 00623000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 0704 00624000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 00625000 * RFY 0705 00626000 * GPR13P UNRSTD; 0705 00627000 * GPR04P=FSBPTR; 0706 00628000 LR GPR04P,FSBPTR 0706 00629000 * DCL 0707 00630000 * 1 FMZA0069 FIXED(31) STATIC LOCAL, 0707 00631000 * 2 * FIXED(8) INIT(80), 0707 00632000 * 2 * PTR(24) INIT(0); 0707 00633000 * GPR03F=FMZA0069; 0708 00634000 L GPR03F,FMZA0069 0708 00635000 * DO; /* LISATCVT 0709 00636000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00637000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00638000 L GPR15P,ATCLCPTR 0710 00639000 * END; /* LISATCVT */ 00640000 * GPR02P=GPR15P->ATCBPDA; 0712 00641000 L GPR02P,ATCBPDA(,GPR15P) 0712 00642000 * GPR15P=GPR15P->ATCSMRS; 0713 00643000 L GPR15P,ATCSMRS(,GPR15P) 0713 00644000 * DCL 0714 00645000 * FMZL0069 BASED(GPR15P) LABEL VALUERANGE(*); 0714 00646000 * CALL FMZL0069; 0715 00647000 BALR @14,@15 0715 00648000 * RFY 0716 00649000 * GPR13P RSTD; 0716 00650000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 0717 00651000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 00652000 * RFY 0718 00653000 * (GPR01P, 0718 00654000 * GPR13P) UNRSTD; 0718 00655000 * RFY 0719 00656000 * (GPR02P, 0719 00657000 * GPR03P, 0719 00658000 * GPR04P, 0719 00659000 * GPR15P) UNRSTD; 0719 00660000 * END; /* *********END OF RELSTORE 0720 00661000 * EXPANSION********* */ 00662000 */* TPDEQ (,FMCFBA) RETPTR(FSBPTR) */ 00663000 * 0721 00664000 * DO; /* BEGIN TPDEQ CODE GENERATION */ 00665000 @RC00680 DS 0H 0722 00666000 * RFY 0722 00667000 * (GPR00P, 0722 00668000 * GPR01P, 0722 00669000 * GPR14P, 0722 00670000 * GPR15P) RSTD; 0722 00671000 * GPR15P=ADDR(FMCFBA); /* ADDRESS QUEUE POINTER */ 00672000 LA GPR15P,FMCFBA(,FMCBPTR) 0723 00673000 * GPR14P=GPR15P->PABWEQA|FMZCA049; 0724 00674000 L @08,@CF01579 0724 00675000 L GPR14P,PABWEQA(,GPR15P) 0724 00676000 OR GPR14P,@08 0724 00677000 * IF GPR14P=FMZCA049 THEN 0725 00678000 CLR GPR14P,@08 0725 00679000 BE @RT00725 0725 00680000 * ; 0726 00681000 * ELSE 0727 00682000 * DO; 0727 00683000 *FMZL1085: 0728 00684000 * ; 0728 00685000 FMZL1085 DS 0H 0729 00686000 * DO WHILE(GPR14P->WKECHAIN^=FMZCA049); 0729 00687000 B @DE00729 0729 00688000 @DL00729 DS 0H 0730 00689000 * GPR15P=ADDR(GPR14P->WKECHAIN); 0730 00690000 LA GPR15P,WKECHAIN(,GPR14P) 0730 00691000 * GPR14P=GPR15P->PABWEQA; 0731 00692000 L GPR14P,PABWEQA(,GPR15P) 0731 00693000 * END; 0732 00694000 @DE00729 L @08,@CF01579 0732 00695000 CL @08,WKECHAIN(,GPR14P) 0732 00696000 BNE @DL00729 0732 00697000 * GPR00P=FMZCA049; 0733 00698000 LR GPR00P,@08 0733 00699000 * CS(GPR14P,GPR00P,GPR15P->PABWEQA); 0734 00700000 CS GPR14P,@00,PABWEQA(GPR15P) 0734 00701000 * BC(7,FMZL1085); 0735 00702000 BC 7,FMZL1085 0735 00703000 * GPR14P->WKECHAIN=0; 0736 00704000 SLR @08,@08 0736 00705000 ST @08,WKECHAIN(,GPR14P) 0736 00706000 * END; 0737 00707000 *ISTA0085: 0738 00708000 * ; 0738 00709000 @RT00725 DS 0H 0738 00710000 ISTA0085 DS 0H 0739 00711000 * GPR14P=GPR14P&FMZCB049; 0739 00712000 N GPR14P,@CF01577 0739 00713000 * FSBPTR=GPR14P; 0740 00714000 LR FSBPTR,GPR14P 0740 00715000 * RFY 0741 00716000 * (GPR00P, 0741 00717000 * GPR01P, 0741 00718000 * GPR14P, 0741 00719000 * GPR15P) UNRSTD; 0741 00720000 * END; /* END TPDEQ GENERATION GET FSB 00721000 * FROM DATA QUE */ 00722000 * END; /* END DO WHILE */ 00723000 @DE00673 LTR FSBPTR,FSBPTR 0743 00724000 BZ @DC00673 0743 00725000 CL FSBPTR,@CF01579 0743 00726000 BNE @DL00673 0743 00727000 @DC00673 DS 0H 0744 00728000 * RFY 0744 00729000 * (FSBPTR, 0744 00730000 * FDBREG) UNRSTD; 0744 00731000 * RFY 0745 00732000 * (OLDVALUE, 0745 00733000 * NEWVALUE) RSTD; 0745 00734000 *C80FR: 0746 00735000 * OLDVALUE=FMCCMPS2; /* CURRENT FLAG SETTINGS */ 00736000 C80FR L OLDVALUE,FMCCMPS2(,FMCBPTR) 0746 00737000 * NEWVALUE=OLDVALUE&FLGA5OFF; /* TURN OF THRESHOLD XCEEDED */ 00738000 LR NEWVALUE,OLDVALUE 0747 00739000 N NEWVALUE,@CF01591 0747 00740000 * CS(OLDVALUE,NEWVALUE,FMCCMPS2);/* USE COMPARE AND SWAP */ 00741000 CS OLDVALUE,@08,FMCCMPS2(FMCBPTR) 0748 00742000 * BC(7,C80FR); /* RETRY IF CS FAILS */ 00743000 BC 7,C80FR 0749 00744000 * RFY 0750 00745000 * (OLDVALUE, 0750 00746000 * NEWVALUE) UNRSTD; 0750 00747000 * END; /* END NO VARY SPECIFIED */ 00748000 * RTNREG=CRRRTN1; /* RESTORE RETURN REG */ 00749000 @RC00637 L RTNREG,CRRRTN1(,CRRPTR) 0752 00750000 * RETURN; 0753 00751000 @EL00002 DS 0H 0753 00752000 @EF00002 DS 0H 0753 00753000 @ER00002 BR @14 0753 00754000 * END FREEFSB; 0754 00755000 * 0755 00756000 */********************************************************************/ 00757000 */* */ 00758000 */* ROUTINE NAME : LCCWBLD - BUILD LCCWS */ 00759000 */* */ 00760000 */* FUNCTION : */ 00761000 */* THIS ROUTINE BUILDS A RESET IMMEDIATE LCCW IN A PURGE LCPB, */ 00762000 */* POINTS IT TO THE REQUESTOR'S ( WORK ELEMENT ) LCPB AND */ 00763000 */* SCHEDULES IT ON THE TPIOS OUTBOUND PAB SPECIFYING THE RESET */ 00764000 */* OPTION. A DISCONNECT LCPB IS ALSO BUILT IF THIS PURGE IS */ 00765000 */* FOR AN RN WHICH IS NOT SICK. THE FMCB IS TAKEN OFF THE ACDEB */ 00766000 */* READ ANY QUEUE AND FLAGGED AS SUCH. */ 00767000 */* */ 00768000 */* INPUT : RSETLCPB (REG 9) - LCPB WITH RESET IMM. LCCW */ 00769000 */* CRRARPL (WORD) - POINTER TO REQUESTOR LCPB */ 00770000 */* FMCBPTR (REG 11) - POINTS TO FMCB */ 00771000 */* */ 00772000 */* OUTPUT : SAME */ 00773000 */* */ 00774000 */* SUBROUTINES CALLED : LCPBINIT : BUILD A PURGE LCPB */ 00775000 */* */ 00776000 */* MACROS USED : TPQUE, TPDEQ, VMDESET */ 00777000 */* */ 00778000 */********************************************************************/ 00779000 * 0755 00780000 *LCCWBLD: 0755 00781000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA,NOPARMREG); 0755 00782000 LCCWBLD DS 0H 0756 00783000 * CRRRTN2=RTNREG; /* SAVE RETURN REG */ 00784000 ST RTNREG,CRRRTN2(,CRRPTR) 0756 00785000 * RFY 0757 00786000 * ISTDCLCP BASED(RSETLCPB); /* COVER RESET IMM LCPB */ 00787000 * RFY 0758 00788000 * ISTLCCW BASED(ADDR(DCLLCCW2));/* COVER SECOND LCCW */ 00789000 * LCCWOP=LXI; /* SET OP CODE TO RESET IMM */ 00790000 MVI LCCWOP+56(RSETLCPB),X'2B' 0759 00791000 * LCPNXLCW=ADDR(DCLLCCW2); /* POINT NXT LCCW TO 2ND */ 00792000 LA @15,DCLLCCW2(,RSETLCPB) 0760 00793000 ST @15,LCPNXLCW(,RSETLCPB) 0760 00794000 * DCLRPLA=CRRARPL; /* PUT WORK ELT IN LCPB */ 00795000 L @15,CRRARPL(,CRRPTR) 0761 00796000 ST @15,DCLRPLA(,RSETLCPB) 0761 00797000 * LCPFLG1=DCLRPLA->LCPFLG1; /* MOVE IN THE FLAGS @D31KKCF*/ 00798000 MVC LCPFLG1(1,RSETLCPB),LCPFLG1(@15) 0762 00799000 */* TPQUE ((RSETLCPB),FMCPAB3) RESET */ 00800000 * 0763 00801000 * DO; 0763 00802000 * RFY 0764 00803000 * (GPR00P, 0764 00804000 * GPR01P, 0764 00805000 * GPR02P, 0764 00806000 * GPR15P) RSTD; 0764 00807000 * GEN REFS(GPR01P) SETS(RPHWORK) 0765 00808000 * (STM GPR14P,GPR09P,RPHWORK(GPR01P)); 0765 00809000 STM GPR14P,GPR09P,RPHWORK(GPR01P) 00810000 * GPR00P=ADDR(FMCPAB3); 0766 00811000 LA GPR00P,FMCPAB3(,FMCBPTR) 0766 00812000 * GPR02P=(RSETLCPB); 0767 00813000 LR GPR02P,RSETLCPB 0767 00814000 * CALL ATCLCPTR->ATCAP34->ISTAPC34; 0768 00815000 L @10,ATCLCPTR 0768 00816000 L @15,ATCAP34(,@10) 0768 00817000 BALR @14,@15 0768 00818000 * GEN REFS(RPHWORK,GPR01P) NOSETS 0769 00819000 * (LM GPR14P,GPR09P,RPHWORK(GPR01P)); 0769 00820000 LM GPR14P,GPR09P,RPHWORK(GPR01P) 00821000 * RFY 0770 00822000 * (GPR00P, 0770 00823000 * GPR01P, 0770 00824000 * GPR02P, 0770 00825000 * GPR15P) UNRSTD; 0770 00826000 * END; /* *** END OF TPQUE GENERATION */ 00827000 * RFY 0772 00828000 * NCBPTR RSTD; 0772 00829000 * RFY 0773 00830000 * ISTNCB BASED(NCBPTR); /* ADDRESSABILITY FOR NCB */ 00831000 * CRRSW1=OFF; /* LOOP CONTROL OFF */ 00832000 * CRRSW2=OFF; /* NO DISCONNECT OFF */ 00833000 NI CRRSW1(CRRPTR),B'10011111' 0775 00834000 * NCBPTR=FMCDNCBA; /* GET THE FIRST NCB */ 00835000 L NCBPTR,FMCDNCBA(,FMCBPTR) 0776 00836000 * IF NCBTYPE^=DNTYPE THEN 0777 00837000 CLI NCBTYPE(NCBPTR),X'05' 0777 00838000 BE @RF00777 0777 00839000 * CRRSW2=ON; /* @XM00952*/ 00840000 OI CRRSW2(CRRPTR),B'00100000' 0778 00841000 * IF CRRSW2=OFF THEN /* IF 'NO DISCONNECT' OFF */ 00842000 @RF00777 TM CRRSW2(CRRPTR),B'00100000' 0779 00843000 BNZ @RF00779 0779 00844000 * DO; /* SEND DISCONNECT LCPB */ 00845000 * DCLSRESW=ON; /* SET SPECIAL RESET SW */ 00846000 OI DCLSRESW(RSETLCPB),B'10000000' 0781 00847000 * CALL LCPBINIT; /* BUILD DISCONN LCPB */ 00848000 BAL @14,LCPBINIT 0782 00849000 * RFY 0783 00850000 * ISTDCLCP BASED(DISCLCPB); /* COVER DISCONN LCPB */ 00851000 * RFY 0784 00852000 * ISTLCCW BASED(ADDR(DCLLCCW2)); 0784 00853000 * IF CRRARPL->LCPINTER=ON THEN 0785 00854000 L @15,CRRARPL(,CRRPTR) 0785 00855000 TM LCPINTER(@15),B'01000000' 0785 00856000 BNO @RF00785 0785 00857000 * LCPINTER=ON; /* TURN LCPINTER IN DISCONNECT 0786 00858000 * LCPB IF ON IN ORIGINAL LCPB 0786 00859000 * @XM00319*/ 00860000 OI LCPINTER(DISCLCPB),B'01000000' 0786 00861000 * IF CRRARPL->DIAL=ON&FMCMODE^=PORTSOL THEN/* @XM09301*/ 00862000 @RF00785 L @15,CRRARPL(,CRRPTR) 0787 00863000 TM DIAL(@15),B'10000000' 0787 00864000 BNO @RF00787 0787 00865000 CLC FMCMODE(8,FMCBPTR),@CC02166 0787 00866000 BE @RF00787 0787 00867000 * LCCWOP=LDEC; /* DISCONNECT END OF COMM */ 00868000 MVI LCCWOP+56(DISCLCPB),X'33' 0788 00869000 * ELSE /* NOT DIAL OUT */ 00870000 * LCCWOP=LD; /* DISCONNECT OP CODE */ 00871000 B @RC00787 0789 00872000 @RF00787 MVI LCCWOP+56(DISCLCPB),X'23' 0789 00873000 * LCPNXLCW=ADDR(DCLLCCW2); /* POINT TO 2ND LCCW SLOT */ 00874000 @RC00787 LA @15,DCLLCCW2(,DISCLCPB) 0790 00875000 ST @15,LCPNXLCW(,DISCLCPB) 0790 00876000 * DCLRPLA=CRRARPL; /* POINT TO WORK ELT LCPB */ 00877000 L @15,CRRARPL(,CRRPTR) 0791 00878000 ST @15,DCLRPLA(,DISCLCPB) 0791 00879000 */* TPQUE ((DISCLCPB),FMCPAB3) NORM */ 00880000 * 0792 00881000 * DO; 0792 00882000 * RFY 0793 00883000 * (GPR00P, 0793 00884000 * GPR01P, 0793 00885000 * GPR04P, 0793 00886000 * GPR05P, 0793 00887000 * GPR15P) RSTD; 0793 00888000 * GEN REFS(GPR01P) SETS(RPHWORK) 0794 00889000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 0794 00890000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 00891000 * GPR00P=0; 0795 00892000 SLR GPR00P,GPR00P 0795 00893000 * GPR15P=ADDR(FMCPAB3); /* HOLD PAB PTR */ 00894000 LA GPR15P,FMCPAB3(,FMCBPTR) 0796 00895000 * GPR04P=(DISCLCPB); /* WORK ELE PTR */ 00896000 LR GPR04P,DISCLCPB 0797 00897000 * GPR05P=GPR15P; /* PASS PAB PTR */ 00898000 LR GPR05P,GPR15P 0798 00899000 * CALL ATCLCPTR->ATCAP37->ISTAPC37; 0799 00900000 L @10,ATCLCPTR 0799 00901000 L @15,ATCAP37(,@10) 0799 00902000 BALR @14,@15 0799 00903000 * GEN(NOPR 0) 0800 00904000 * NOSETS NOREFS; 0800 00905000 NOPR 0 00906000 * RFY 0801 00907000 * (GPR00P, 0801 00908000 * GPR01P, 0801 00909000 * GPR04P, 0801 00910000 * GPR05P, 0801 00911000 * GPR15P) UNRSTD; 0801 00912000 * END; /* *** END OF TPQUE GENERATION */ 00913000 * END; /* END NOT SICK MODE */ 00914000 * ELSE 0804 00915000 * ; /* IS SICK MODE */ 00916000 @RF00779 DS 0H 0805 00917000 * RFY 0805 00918000 * NCBPTR UNRSTD; 0805 00919000 * 0806 00920000 */*VMDESET ((15),ZERO) */ 00921000 * 0806 00922000 * DO; /* INVOKE MODESET MACRO */ 00923000 * GEN; 0807 00924000 MODESET EXTKEY=ZERO,WORKREG=2 00925000 * RFY 0808 00926000 * (GPR15P) RSTD; 0808 00927000 * GPR15F=0; 0809 00928000 SLR GPR15F,GPR15F 0809 00929000 * RFY 0810 00930000 * (GPR15P) UNRSTD; /* PUT RETURN CODE IN RCREG */ 00931000 * END; /* VMDESET SET TO KEY ZERO LOCK 00932000 * THE ACBDEB */ 00933000 */* TPDEQ (CRRFMCB,ACDRAFQ) CHAIN(FMCRAFM) */ 00934000 * 0812 00935000 * DO; /* BEGIN TPDEQ CODE GENERATION */ 00936000 * RFY 0813 00937000 * (GPR00P, 0813 00938000 * GPR01P, 0813 00939000 * GPR14P, 0813 00940000 * GPR15P) RSTD; 0813 00941000 * GPR15P=ADDR(ACDRAFQ); /* ADDRESS QUEUE POINTER */ 00942000 L GPR15P,FMCDEBA(,FMCBPTR) 0814 00943000 LA GPR15P,ACDRAFQ(,GPR15P) 0814 00944000 * RFY 0815 00945000 * (GPR02P, 0815 00946000 * GPR03P) RSTD; 0815 00947000 * STM(GPR02P,GPR03P,GPR01P->RPHWORK(5:12)); 0816 00948000 STM GPR02P,GPR03P,RPHWORK+4(GPR01P) 0816 00949000 * GPR03P=CRRFMCB|FMZCA049; 0817 00950000 L @10,@CF01579 0817 00951000 L GPR03P,CRRFMCB(,CRRPTR) 0817 00952000 OR GPR03P,@10 0817 00953000 * GPR14P=FMZCA049; 0818 00954000 LR GPR14P,@10 0818 00955000 * GPR15P=ADDR(GPR15P->PABWEQA); 0819 00956000 * GPR02P=GPR15P->PABWEQA|FMZCA049; 0820 00957000 O @10,PABWEQA(,GPR15P) 0820 00958000 LR GPR02P,@10 0820 00959000 * DO WHILE(GPR02P^=GPR14P); 0821 00960000 B @DE00821 0821 00961000 @DL00821 DS 0H 0822 00962000 *FMZL2104: 0822 00963000 * ; 0822 00964000 FMZL2104 DS 0H 0823 00965000 * IF GPR02P=GPR03P THEN 0823 00966000 CR GPR02P,GPR03P 0823 00967000 BNE @RF00823 0823 00968000 * DO; 0824 00969000 * GPR00P=GPR02P->FMCRAFM; 0825 00970000 L GPR00P,FMCRAFM(,GPR02P) 0825 00971000 * CS(GPR02P,GPR00P,GPR15P->PABWEQA); 0826 00972000 CS GPR02P,@00,PABWEQA(GPR15P) 0826 00973000 * BC(7,FMZL3104); 0827 00974000 BC 7,FMZL3104 0827 00975000 * GPR14P=GPR02P; 0828 00976000 LR GPR14P,GPR02P 0828 00977000 * GPR14P->FMCRAFM=0; 0829 00978000 SLR @10,@10 0829 00979000 ST @10,FMCRAFM(,GPR14P) 0829 00980000 * END; 0830 00981000 * ELSE 0831 00982000 * DO; 0831 00983000 B @RC00823 0831 00984000 @RF00823 DS 0H 0832 00985000 * IF(GPR02P->FMCRAFM)=GPR14P THEN 0832 00986000 L @10,FMCRAFM(,GPR02P) 0832 00987000 CR @10,GPR14P 0832 00988000 BE @RT00832 0832 00989000 * GOTO ISTA0104; 0833 00990000 * ELSE 0834 00991000 * DO; 0834 00992000 * GPR15P=ADDR(GPR02P->FMCRAFM); 0835 00993000 LA GPR15P,FMCRAFM(,GPR02P) 0835 00994000 * GPR02P=GPR02P->FMCRAFM; 0836 00995000 LR GPR02P,@10 0836 00996000 * GOTO FMZL2104; 0837 00997000 B FMZL2104 0837 00998000 * END; 0838 00999000 * END; 0839 01000000 *FMZL3104: 0840 01001000 * ; 0840 01002000 @RC00823 DS 0H 0840 01003000 FMZL3104 DS 0H 0841 01004000 * END; 0841 01005000 @DE00821 CR GPR02P,GPR14P 0841 01006000 BNE @DL00821 0841 01007000 *ISTA0104: 0842 01008000 * ; 0842 01009000 ISTA0104 DS 0H 0843 01010000 * LM(GPR02P,GPR03P,GPR01P->RPHWORK(5:12)); 0843 01011000 LM GPR02P,GPR03P,RPHWORK+4(GPR01P) 0843 01012000 * RFY 0844 01013000 * (GPR02P, 0844 01014000 * GPR03P) UNRSTD; 0844 01015000 * GPR14P=GPR14P&FMZCB049; 0845 01016000 N GPR14P,@CF01577 0845 01017000 * GPR01P->RPHWEA=GPR14P; 0846 01018000 ST GPR14P,RPHWEA(,GPR01P) 0846 01019000 * RFY 0847 01020000 * (GPR00P, 0847 01021000 * GPR01P, 0847 01022000 * GPR14P, 0847 01023000 * GPR15P) UNRSTD; 0847 01024000 * END; /* END TPDEQ GENERATION */ 01025000 * RFY 0849 01026000 * (NEWVALUE, 0849 01027000 * OLDVALUE) RSTD; 0849 01028000 *C80B: 0850 01029000 * OLDVALUE=FMCCMPS2; /* GET OLD VALUE */ 01030000 C80B L OLDVALUE,FMCCMPS2(,FMCBPTR) 0850 01031000 * NEWVALUE=OLDVALUE&FLGA2OFF; /* TURN OFF FMCB ON DEB READ ANY 01032000 * QUEUE */ 01033000 LR NEWVALUE,OLDVALUE 0851 01034000 N NEWVALUE,@CF01587 0851 01035000 * CS(OLDVALUE,NEWVALUE,FMCCMPS2); /* TURN OFF SPEC RD ANY */ 01036000 CS OLDVALUE,@08,FMCCMPS2(FMCBPTR) 0852 01037000 * BC(7,C80B); /* RETRY IF COMPARE-SWAP FAILS */ 01038000 BC 7,C80B 0853 01039000 * RFY 0854 01040000 * (OLDVALUE, 0854 01041000 * NEWVALUE) UNRSTD; 0854 01042000 * 0854 01043000 */*VMDESET ((15),ATCAM) */ 01044000 * 0855 01045000 * DO; /* INVOKE MODESET MACRO */ 01046000 * GEN; 0856 01047000 MODESET EXTKEY=VTAM,WORKREG=2 01048000 * RFY 0857 01049000 * (GPR15P) RSTD; 0857 01050000 * GPR15F=0; 0858 01051000 SLR GPR15F,GPR15F 0858 01052000 * RFY 0859 01053000 * (GPR15P) UNRSTD; /* PUT RETURN CODE IN RCREG */ 01054000 * END; /* VMDESET SET TO VTAM KEY */ 01055000 * RTNREG=CRRRTN2; /* RESTORE RTNREG */ 01056000 L RTNREG,CRRRTN2(,CRRPTR) 0861 01057000 * RETURN; 0862 01058000 @EL00003 DS 0H 0862 01059000 @EF00003 DS 0H 0862 01060000 @ER00003 BR @14 0862 01061000 * END LCCWBLD; 0863 01062000 * 0864 01063000 */********************************************************************/ 01064000 */* */ 01065000 */* ROUTINE NAME : LCPBINIT - BUILD A LCPB */ 01066000 */* */ 01067000 */* FUNCTION : */ 01068000 */* */ 01069000 */* INPUT : FMCBPTR (REG 11) - POINTS TO THE FMCB */ 01070000 */* */ 01071000 */* OUTPUT : LCPBPTR (REG 9) - POINTS TO NEW LCPB */ 01072000 */* */ 01073000 */* SUBROUTINES CALLED : NONE */ 01074000 */* */ 01075000 */* MACROS USED : REQSTORE, TPWAIT */ 01076000 */* */ 01077000 */********************************************************************/ 01078000 * 0864 01079000 *LCPBINIT: 0864 01080000 * PROC OPTIONS(NOSAVE,NOSAVEAREA,NOPARMREG); 0864 01081000 * 0864 01082000 LCPBINIT DS 0H 0865 01083000 * /*****************************************************************/ 01084000 * /* */ 01085000 * /* ***************************************************** * THIS */ 01086000 * /* ROUTINE GETS STORAGE FOR AND INITIALIZES * * A PURGE LCPB * */ 01087000 * /* */ 01088000 * /*****************************************************************/ 01089000 * 0865 01090000 * CRRRTN4=RTNREG; /* SAVE RETURN REG */ 01091000 ST RTNREG,CRRRTN4(,CRRPTR) 0865 01092000 * RFY 0866 01093000 * RCREG RSTD; /* SAVE RETURN CODE REG */ 01094000 * 0866 01095000 * /*****************************************************************/ 01096000 * /* */ 01097000 * /* REQSTORE CBID(DCLCP)CLEAR(YES)RPH(RPHPTR) */ 01098000 * /* */ 01099000 * /*****************************************************************/ 01100000 * 0867 01101000 * DO; 0867 01102000 * 0867 01103000 */* ATBUILD (ISTDYPAB,ISTATCVT,ISTRPH) */ 01104000 */* END OF ATBUILD */ 01105000 * 0868 01106000 * RFY 0868 01107000 * (GPR02P, 0868 01108000 * GPR03P, 0868 01109000 * GPR04P, 0868 01110000 * GPR15P) RSTD; 0868 01111000 * RFY 0869 01112000 * (GPR01P, 0869 01113000 * GPR13P) RSTD; 0869 01114000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 0870 01115000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 01116000 * RFY 0871 01117000 * (GPR01P, 0871 01118000 * GPR13P) UNRSTD; 0871 01119000 * DO; /* LISATCVT 0872 01120000 * CVTBASE(PAGEABLE,(GPR15P)) */ 01121000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 01122000 L GPR15P,ATCLCPTR 0873 01123000 * END; /* LISATCVT */ 01124000 * GPR02P=GPR15P->ATCBPDA|'80000000'X; 0875 01125000 L GPR02P,ATCBPDA(,GPR15P) 0875 01126000 O GPR02P,@CF01579 0875 01127000 * DCL 0876 01128000 * 1 FMZA0113 FIXED(31) STATIC LOCAL, 0876 01129000 * 2 * FIXED(8) INIT(184), 0876 01130000 * 2 * PTR(24) INIT(0); 0876 01131000 * GPR03F=FMZA0113; 0877 01132000 L GPR03F,FMZA0113 0877 01133000 * GPR04F=5; 0878 01134000 LA GPR04F,5 0878 01135000 * GPR15P=GPR15P->ATCSMRQ; 0879 01136000 L GPR15P,ATCSMRQ(,GPR15P) 0879 01137000 * DCL 0880 01138000 * FMZL0113 BASED(GPR15P) LABEL VALUERANGE(*); 0880 01139000 * CALL FMZL0113; 0881 01140000 BALR @14,@15 0881 01141000 * RFY 0882 01142000 * (GPR13P) RSTD; 0882 01143000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 0883 01144000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 01145000 * RFY 0884 01146000 * (GPR13P) UNRSTD; 0884 01147000 * RFY 0885 01148000 * (GPR02P, 0885 01149000 * GPR03P, 0885 01150000 * GPR04P, 0885 01151000 * GPR15P) UNRSTD; 0885 01152000 * END; 0886 01153000 * 0886 01154000 * /*****************************************************************/ 01155000 * /* */ 01156000 * /* ******** END OF REQSTORE EXPANSION */ 01157000 * /* */ 01158000 * /*****************************************************************/ 01159000 * 0887 01160000 * IF RCREG=8 /* IF STORAGE NOT AVAIL */ 01161000 * THEN /* WAIT FOR IT */ 01162000 C RCREG,@CF00059 0887 01163000 BNE @RF00887 0887 01164000 */* TPWAIT */ 01165000 * 0888 01166000 * DO; /* BEGIN TPWAIT GENERATION */ 01167000 * RFY 0889 01168000 * (GPR01P, 0889 01169000 * GPR14P, 0889 01170000 * GPR15P) RSTD; 0889 01171000 * RFY 0890 01172000 * (GPR00P) RSTD; 0890 01173000 * GEN(STM GPR00P,GPR15P,RPHWORK(GPR01P)) 0891 01174000 * REFS(GPR00P,GPR01P,GPR15P) SETS(RPHWORK); 0891 01175000 STM GPR00P,GPR15P,RPHWORK(GPR01P) 01176000 * RFY 0892 01177000 * (GPR00P) UNRSTD; 0892 01178000 * GPR15P=ADDR(LHAA0132); 0893 01179000 LA GPR15P,LHAA0132 0893 01180000 * GPR14P=0; 0894 01181000 SLR GPR14P,GPR14P 0894 01182000 * GPR15P=GPR15P&'00FFFFFF'X; 0895 01183000 N GPR15P,@CF04849 0895 01184000 * GPR15P=GPR15P|RPHWT1; 0896 01185000 O GPR15P,@CF01603 0896 01186000 * CS(GPR14P,GPR15P,GPR01P->RPHRESMA); 0897 01187000 CS GPR14P,@15,RPHRESMA(GPR01P) 0897 01188000 * BC(7,LHAB0132); 0898 01189000 * 0898 01190000 BC 7,LHAB0132 0898 01191000 */* TPEXIT NONE */ 01192000 * 0899 01193000 * DO; 0899 01194000 * RESPECIFY 0900 01195000 * GPR15P RSTD; 0900 01196000 * 0900 01197000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT) */ 01198000 */* END OF ATBUILD */ 01199000 * 0901 01200000 * DO; /* LISATCVT 0901 01201000 * CVTBASE(PAGEABLE,(GPR15P)) */ 01202000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 01203000 L GPR15P,ATCLCPTR 0902 01204000 * END; /* LISATCVT */ 01205000 * RESPECIFY 0904 01206000 * GPR00F RSTD; 0904 01207000 * GPR00F=0; /* SET PARAMETER REGISTER TO 0 */ 01208000 SLR GPR00F,GPR00F 0905 01209000 * GPR15P=GPR15P->ATCAP31; 0906 01210000 L GPR15P,ATCAP31(,GPR15P) 0906 01211000 * DCL 0907 01212000 * FMZL0137 BASED(GPR15P) LABEL VALUERANGE(*); 0907 01213000 * CALL FMZL0137; 0908 01214000 BALR @14,@15 0908 01215000 * RESPECIFY 0909 01216000 * (GPR00F, 0909 01217000 * GPR15P) UNRSTD; 0909 01218000 * END; /* **** END OF TPEXIT */ 01219000 *LHAB0132: 0911 01220000 * ; 0911 01221000 LHAB0132 DS 0H 0912 01222000 * GPR01P->RPHRESMA=0; 0912 01223000 SLR @10,@10 0912 01224000 ST @10,RPHRESMA(,GPR01P) 0912 01225000 * RFY 0913 01226000 * (GPR00P) RSTD; 0913 01227000 *LHAA0132: 0914 01228000 * ; 0914 01229000 LHAA0132 DS 0H 0915 01230000 * GEN(LM GPR00P,GPR15P,RPHWORK(GPR01P)) 0915 01231000 * REFS(RPHWORK,GPR01P) SETS(GPR00P,GPR15P); 0915 01232000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 01233000 * RFY 0916 01234000 * (GPR00P, 0916 01235000 * GPR01P, 0916 01236000 * GPR14P, 0916 01237000 * GPR15P) UNRSTD; 0916 01238000 * END; /* ****END OF TPWAIT */ 01239000 * ELSE 0918 01240000 * ; 0918 01241000 @RF00887 DS 0H 0919 01242000 * RFY 0919 01243000 * RCREG UNRSTD; 0919 01244000 * LCPBPTR=RPHSRPRM; /* ADDRESS OF STORAGE */ 01245000 L LCPBPTR,RPHSRPRM(,RPHPTR) 0920 01246000 * RFY 0921 01247000 * ISTDCLCP BASED(LCPBPTR); /* COVER LCPB */ 01248000 * LCPTYPE=DCLTYPE; /* TYPE IDENTIFIER */ 01249000 MVI LCPTYPE(LCPBPTR),X'12' 0922 01250000 * LCPLNGTH=LENGTH(ISTDCLCP); /* CONTROL BLK LENGTH */ 01251000 MVI LCPLNGTH(LCPBPTR),X'64' 0923 01252000 * LCPDAF=FMCDNCBA->NCBDAF; /* DESTINATION CID */ 01253000 L @15,FMCDNCBA(,FMCBPTR) 0924 01254000 MVC LCPDAF(2,LCPBPTR),NCBDAF(@15) 0924 01255000 * LCPSAF=FMCSAF; /* SOURCE ID */ 01256000 MVC LCPSAF(2,LCPBPTR),FMCSAF(FMCBPTR) 0925 01257000 * DCLRQTP=DCLPURGE; /* SET REQ TYPE TO PURGE */ 01258000 MVI DCLRQTP(LCPBPTR),X'15' 0926 01259000 * RTNREG=CRRRTN4; /* RESTORE RETURN REG */ 01260000 L RTNREG,CRRRTN4(,CRRPTR) 0927 01261000 * RETURN; 0928 01262000 @EL00004 DS 0H 0928 01263000 @EF00004 DS 0H 0928 01264000 @ER00004 BR @14 0928 01265000 * END LCPBINIT; 0929 01266000 * 0929 01267000 @PB00004 DS 0H 0929 01268000 */* TPEPILOG */ 01269000 * 0930 01270000 * GEN(PRINT OFF); 0930 01271000 PRINT OFF 01272000 */* TEMPLATE FOR CHAIN FIELD OF WORK ELEMENT */ 0931 01273000 *DCL 1 ISTWKE BDY(WORD) BASED(WKEPTR), 0931 01274000 * 2 * CHAR(4), /* SPACE * 01275000 * 2 WKECHAIN PTR(31), /* CHAIN POINTER * 01276000 * 3 WKEFLAGS BIT(8), /* FLAGS * 01277000 * 4 WKEGATE BIT(1), /* GATE BIT * 01278000 * 4 * BIT(7), /* RESERVED * 01279000 * 3 WKECHNGP PTR(24); /* PTR ADDRESS * 01280000 * DCL 0932 01281000 * ISTAPC34 ENTRY BASED(ATCAP34) VALRG(*);/* RESET ROUTINE */ 01282000 * DCL 0933 01283000 * ISTAPC37 ENTRY BASED(ATCAP37) VALRG(*);/* TPQUE ROUTINE */ 01284000 * GEN(PRINT ON); 0934 01285000 * 0934 01286000 PRINT ON 01287000 */* END OF TPEPILOG */ 01288000 * 0935 01289000 * END ISTDCC80 0935 01290000 * 0935 01291000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01292000 */*%INCLUDE SYSLIB (CVT ) */ 01293000 */*%INCLUDE SYSLIB (IFGRPL ) */ 01294000 */*%INCLUDE SYSLIB (IFGRPLVT) */ 01295000 */*%INCLUDE SYSLIB (ISTRPLFB) */ 01296000 */*%INCLUDE SYSLIB (IEZIOB ) */ 01297000 */*%INCLUDE SYSLIB (IHASRB ) */ 01298000 */*%INCLUDE SYSLIB (IECDIOSB) */ 01299000 * 0935 01300000 * ; 0935 01301000 @DATA DS 0H 01302000 @DATD DSECT 01303000 DS 0F 01304000 ISTDCC80 CSECT 01305000 DS 0F 01306000 @CF00059 DC F'8' 01307000 @CF01577 DC XL4'7FFFFFFF' 01308000 @CF01579 DC XL4'80000000' 01309000 @CF01587 DC XL4'DFFFFFFF' 01310000 @CF01591 DC XL4'FBFFFFFF' 01311000 @CF01603 DC XL4'08000000' 01312000 @CF04849 DC XL4'00FFFFFF' 01313000 @DATD DSECT 01314000 DS 0D 01315000 CVTPTR DS A 01316000 IOBPRPTR DS A 01317000 IOBSTPTR DS A 01318000 SRBPTR DS A 01319000 IOSBPTR DS A 01320000 DNCBPTR DS A 01321000 WKEPTR DS A 01322000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01323000 @ENDDATD EQU * 01324000 ISTDCC80 CSECT 01325000 DS 0F 01326000 @SIZDATD DC AL1(0) 01327000 DC AL3(@ENDDATD-@DATD) 01328000 DS 0D 01329000 FMZA0053 DS FL4 01330000 ORG FMZA0053 01331000 @NM00093 DC AL1(80) 01332000 @NM00094 DC AL3(0) 01333000 ORG FMZA0053+4 01334000 FMZA0069 DS FL4 01335000 ORG FMZA0069 01336000 @NM00095 DC AL1(80) 01337000 @NM00096 DC AL3(0) 01338000 ORG FMZA0069+4 01339000 FMZA0113 DS FL4 01340000 ORG FMZA0113 01341000 @NM00097 DC AL1(184) 01342000 @NM00098 DC AL3(0) 01343000 ORG FMZA0113+4 01344000 @CC02166 DC C'ISTYPSOL' 01345000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01346000 @01 EQU 01 01347000 @02 EQU 02 01348000 @03 EQU 03 01349000 @04 EQU 04 01350000 @05 EQU 05 01351000 @06 EQU 06 01352000 @07 EQU 07 01353000 @08 EQU 08 01354000 @09 EQU 09 01355000 @10 EQU 10 01356000 @11 EQU 11 01357000 @12 EQU 12 01358000 @13 EQU 13 01359000 @14 EQU 14 01360000 @15 EQU 15 01361000 RPHPTR EQU @01 01362000 FMCBPTR EQU @11 01363000 FSBPTR EQU @10 01364000 LCPBPTR EQU @09 01365000 RCREG EQU @15 01366000 RTNREG EQU @14 01367000 CRRPTR EQU @13 01368000 CODREG EQU @12 01369000 FDBREG EQU @05 01370000 RSETLCPB EQU @09 01371000 DISCLCPB EQU @09 01372000 NCBPTR EQU @06 01373000 OLDVALUE EQU @04 01374000 NEWVALUE EQU @08 01375000 GPR05P EQU @05 01376000 GPR06P EQU @06 01377000 GPR07P EQU @07 01378000 GPR08P EQU @08 01379000 GPR09P EQU @09 01380000 GPR10P EQU @10 01381000 GPR11P EQU @11 01382000 GPR12P EQU @12 01383000 GPR13P EQU @13 01384000 GPR14P EQU @14 01385000 GPR00F EQU @00 01386000 GPR00P EQU @00 01387000 GPR01P EQU @01 01388000 GPR02P EQU @02 01389000 GPR03F EQU @03 01390000 GPR03P EQU @03 01391000 GPR04F EQU @04 01392000 GPR04P EQU @04 01393000 GPR15F EQU @15 01394000 GPR15P EQU @15 01395000 GPR01F EQU @01 01396000 GPR02F EQU @02 01397000 GPR05F EQU @05 01398000 GPR06F EQU @06 01399000 GPR07F EQU @07 01400000 GPR08F EQU @08 01401000 GPR09F EQU @09 01402000 GPR10F EQU @10 01403000 GPR11F EQU @11 01404000 GPR12F EQU @12 01405000 GPR13F EQU @13 01406000 GPR14F EQU @14 01407000 ATCLCPTR EQU 1032 01408000 CVTMAP EQU 0 01409000 CVTDAR EQU CVTMAP+72 01410000 CVTFLGS1 EQU CVTDAR 01411000 CVTDCB EQU CVTMAP+116 01412000 CVTIERLC EQU CVTMAP+144 01413000 CVTOPTA EQU CVTMAP+182 01414000 CVTOPTB EQU CVTMAP+183 01415000 CVTGTF EQU CVTMAP+236 01416000 CVTGTFST EQU CVTGTF 01417000 CVTGTFS EQU CVTGTFST 01418000 CVTSTATE EQU CVTGTFST 01419000 CVTTMODE EQU CVTGTFST 01420000 CVTFORM EQU CVTGTFST 01421000 CVTAQAVT EQU CVTMAP+240 01422000 CVTTCMFG EQU CVTAQAVT 01423000 CVTVOLM2 EQU CVTMAP+244 01424000 CVTTATA EQU CVTVOLM2 01425000 CVTTSKS EQU CVTTATA 01426000 CVTVOLF2 EQU CVTTSKS 01427000 CVTTAT EQU CVTTATA+1 01428000 CVTATER EQU CVTMAP+248 01429000 CVTEXT1 EQU CVTMAP+252 01430000 CVTPURG EQU CVTMAP+260 01431000 CVTQMSG EQU CVTMAP+268 01432000 CVTDMSR EQU CVTMAP+272 01433000 CVTERPV EQU CVTMAP+316 01434000 CVTINTLA EQU CVTMAP+320 01435000 CVTAPF EQU CVTMAP+324 01436000 CVTEXT2 EQU CVTMAP+328 01437000 CVTHJES EQU CVTMAP+332 01438000 CVTPGSIA EQU CVTMAP+348 01439000 CVTA1F1 EQU CVTMAP+356 01440000 CVTSYSK EQU CVTMAP+357 01441000 CVTVOLM1 EQU CVTMAP+380 01442000 CVTVOLF1 EQU CVTVOLM1 01443000 CVTATMCT EQU CVTMAP+388 01444000 CVTXTNT1 EQU 0 01445000 CVTXTNT2 EQU 0 01446000 CVTDSSV EQU CVTXTNT2 01447000 CVTFLGBT EQU CVTXTNT2+5 01448000 CVTQID EQU CVTXTNT2+24 01449000 CVTSHS EQU CVTXTNT2+40 01450000 CVTRV400 EQU CVTXTNT2+52 01451000 CVTRV409 EQU CVTXTNT2+53 01452000 CVTATCVT EQU CVTXTNT2+64 01453000 CVTRV429 EQU CVTXTNT2+84 01454000 CVTRV438 EQU CVTXTNT2+85 01455000 CVTRV457 EQU CVTXTNT2+112 01456000 CVTRV466 EQU CVTXTNT2+113 01457000 CVTFIX EQU 0 01458000 CVTRELNO EQU CVTFIX+252 01459000 IFGRPL EQU 0 01460000 RPLCOMN EQU IFGRPL 01461000 RPLIDWD EQU RPLCOMN 01462000 RPLID EQU RPLIDWD 01463000 RPLLEN EQU RPLIDWD+3 01464000 RPLECB EQU RPLCOMN+8 01465000 RPLFDBWD EQU RPLCOMN+12 01466000 RPLFDBK EQU RPLFDBWD+1 01467000 RPLRTNCD EQU RPLFDBK 01468000 RPLCNDCD EQU RPLFDBK+1 01469000 RPLCMPON EQU RPLCNDCD 01470000 RPLFDB2 EQU RPLCMPON 01471000 RPLERRCD EQU RPLCNDCD+1 01472000 RPLFDB3 EQU RPLERRCD 01473000 RPLKEYLE EQU RPLCOMN+16 01474000 RPLARG EQU RPLCOMN+36 01475000 RPLOPTCD EQU RPLCOMN+40 01476000 RPLOPT1 EQU RPLOPTCD 01477000 RPLECBSW EQU RPLOPT1 01478000 RPLOPT2 EQU RPLOPTCD+1 01479000 RPLADR EQU RPLOPT2 01480000 RPLOPT3 EQU RPLOPTCD+2 01481000 RPLOPT4 EQU RPLOPTCD+3 01482000 RPLNXTRP EQU RPLCOMN+44 01483000 RPLOPTC2 EQU RPLCOMN+56 01484000 RPLOPT5 EQU RPLOPTC2 01485000 RPLWRTYP EQU RPLOPT5 01486000 RPLOPT6 EQU RPLOPTC2+1 01487000 RPLUNTYP EQU RPLOPT6 01488000 RPLOPT7 EQU RPLOPTC2+2 01489000 RPLCNOPT EQU RPLOPT7 01490000 RPLOPT8 EQU RPLOPTC2+3 01491000 RPLRBAR EQU RPLCOMN+60 01492000 RPLAIXID EQU RPLRBAR+2 01493000 RPLEXTDS EQU RPLCOMN+68 01494000 RPLEXTD1 EQU RPLEXTDS 01495000 RPLVTEXT EQU IFGRPL+76 01496000 RPLFDBK2 EQU RPLVTEXT+12 01497000 RPLSSNSI EQU RPLFDBK2 01498000 RPLDSB EQU RPLSSNSI 01499000 RPLDSB1 EQU RPLDSB 01500000 RPLSSEI EQU RPLDSB1 01501000 RPLDSB2 EQU RPLDSB+1 01502000 RPLUSNSI EQU RPLFDBK2+2 01503000 RPLOPTC3 EQU RPLVTEXT+20 01504000 RPLOPT9 EQU RPLOPTC3 01505000 RPLOPT10 EQU RPLOPTC3+1 01506000 RPLOPT11 EQU RPLOPTC3+2 01507000 RPLOPT12 EQU RPLOPTC3+3 01508000 RPLOSENS EQU RPLVTEXT+24 01509000 RPLSSNSO EQU RPLOSENS 01510000 RPLSSEO EQU RPLSSNSO 01511000 RPLOF16 EQU 0 01512000 RPLRH3 EQU RPLOF16 01513000 RPLSRTYP EQU RPLOF16+1 01514000 RPLSTYPE EQU RPLSRTYP 01515000 RPLRTYPE EQU RPLSRTYP 01516000 RPLCHN EQU RPLOF16+2 01517000 RPLVTFL1 EQU RPLOF16+3 01518000 RPLVTFL2 EQU RPLOF16+4 01519000 RPLPOSTV EQU RPLVTFL2 01520000 RPLRESP EQU RPLVTFL2 01521000 RPLCNTRL EQU RPLOF16+5 01522000 RPLCNTDF EQU RPLCNTRL 01523000 RPLCNTDC EQU RPLCNTRL+1 01524000 RPLCNTSC EQU RPLCNTRL+2 01525000 RPLOF60 EQU 0 01526000 RPLOBSQ EQU RPLOF60+4 01527000 RPLIBSQ EQU RPLOF60+5 01528000 IOBPREFX EQU 0 01529000 IOBCFLG1 EQU IOBPREFX 01530000 IOBSTDRD EQU 0 01531000 IOBFLAG1 EQU IOBSTDRD 01532000 IOBCYCCK EQU IOBFLAG1 01533000 IOBRSTRT EQU IOBFLAG1 01534000 IOBFLAG2 EQU IOBSTDRD+1 01535000 IOBPURGE EQU IOBFLAG2 01536000 IOBRDHA0 EQU IOBFLAG2 01537000 IOBSENS0 EQU IOBSTDRD+2 01538000 IOBS0B7 EQU IOBSENS0 01539000 IOBSENS1 EQU IOBSTDRD+3 01540000 IOBECBPT EQU IOBSTDRD+4 01541000 IOBFLAG3 EQU IOBSTDRD+8 01542000 IOBFL3 EQU IOBFLAG3 01543000 IOBCNC EQU IOBFL3 01544000 IOBICL EQU IOBFL3 01545000 IOBCSW EQU IOBSTDRD+9 01546000 IOBIOCSW EQU IOBCSW 01547000 IOBSTBYT EQU IOBIOCSW+3 01548000 IOBUSTAT EQU IOBSTBYT 01549000 IOBCSTAT EQU IOBSTBYT+1 01550000 IOBSTART EQU IOBSTDRD+16 01551000 IOBDCBPT EQU IOBSTDRD+20 01552000 IOBFLAG4 EQU IOBDCBPT 01553000 IOBRESTR EQU IOBSTDRD+24 01554000 IOBINCAM EQU IOBSTDRD+28 01555000 IOBBTAMF EQU IOBINCAM 01556000 SRBSECT EQU 0 01557000 SRBFLC EQU SRBSECT+12 01558000 IOSB EQU 0 01559000 IOSFLA EQU IOSB 01560000 IOSACHN EQU IOSFLA 01561000 IOSFLB EQU IOSB+1 01562000 IOSFLC EQU IOSB+2 01563000 IOSDVALT EQU IOSFLC 01564000 IOSPKEY EQU IOSB+12 01565000 IOSOPT EQU IOSB+14 01566000 IOSOPT2 EQU IOSB+15 01567000 @NM00032 EQU IOSB+20 01568000 IOSCSW EQU @NM00032+1 01569000 IOSTATUS EQU IOSCSW+3 01570000 IOSIPIB EQU IOSB+44 01571000 IOSPATH EQU IOSB+86 01572000 IOSCHN EQU IOSPATH 01573000 IOSCKEY EQU IOSB+89 01574000 IOSEEKA EQU IOSB+100 01575000 IOSCCHH EQU IOSEEKA+3 01576000 IOSSKHH EQU IOSCCHH+2 01577000 ISTPAB EQU 0 01578000 PABWQCHN EQU ISTPAB 01579000 PABWEQA EQU PABWQCHN 01580000 PABCHAIN EQU PABWQCHN+4 01581000 PABRPHFG EQU ISTPAB+12 01582000 PABFLAGS EQU PABRPHFG 01583000 PABERLCK EQU PABFLAGS 01584000 PABERRLK EQU PABERLCK 01585000 ISTPROCD EQU 0 01586000 PROPROC EQU ISTPROCD 01587000 PROPROC1 EQU PROPROC 01588000 PROPROC2 EQU PROPROC+1 01589000 PROCFTX EQU PROPROC2 01590000 PROPROC3 EQU PROPROC+2 01591000 PROPROC4 EQU PROPROC+3 01592000 PROPROCS EQU 0 01593000 PROSETMS EQU PROPROCS+1 01594000 PROSETM2 EQU PROSETMS 01595000 PROSETM3 EQU PROSETMS+1 01596000 PROSETM4 EQU PROSETMS+2 01597000 ISTDEVCH EQU 0 01598000 DEVSHCH EQU ISTDEVCH 01599000 DEVCHAR EQU DEVSHCH 01600000 DEVTCODE EQU ISTDEVCH+1 01601000 DEVFLAGS EQU ISTDEVCH+3 01602000 DEVFCCTL EQU DEVFLAGS 01603000 DEVCHAR3 EQU DEVFLAGS 01604000 ISTRPH EQU 0 01605000 RPHCNTL EQU ISTRPH 01606000 RPHFLAGS EQU RPHCNTL+2 01607000 RPHAPTYP EQU RPHFLAGS 01608000 RPHFSTLC EQU RPHFLAGS 01609000 RPHFLGB EQU RPHCNTL+3 01610000 RPHRPHA EQU ISTRPH+4 01611000 RPHTSKID EQU ISTRPH+8 01612000 RPHRESMA EQU ISTRPH+16 01613000 RPHWPFLG EQU RPHRESMA 01614000 RPHMAJCB EQU ISTRPH+21 01615000 RPHWEA EQU ISTRPH+24 01616000 RPHCSPA EQU RPHWEA 01617000 RPHSRPRM EQU ISTRPH+28 01618000 RPHCRR EQU ISTRPH+32 01619000 RPHPABQA EQU ISTRPH+36 01620000 RPHWORK EQU ISTRPH+40 01621000 RPHSAVE1 EQU RPHWORK 01622000 RPHSBITS EQU RPHSAVE1+1 01623000 ISTLOK EQU 0 01624000 LOKCHN EQU ISTLOK+1 01625000 LOKCHNG EQU LOKCHN 01626000 @NM00042 EQU LOKCHNG+2 01627000 ISTFMCB EQU 0 01628000 FMCSAF EQU ISTFMCB+2 01629000 FMCDNCBA EQU ISTFMCB+16 01630000 FMCSTAT EQU ISTFMCB+28 01631000 FMCVSP1 EQU FMCSTAT 01632000 FMCSTAT1 EQU ISTFMCB+29 01633000 FMCCMDFL EQU ISTFMCB+31 01634000 FMCDEBA EQU ISTFMCB+32 01635000 FMCCMPS1 EQU ISTFMCB+36 01636000 FMCPROCD EQU ISTFMCB+48 01637000 FMCMODE EQU ISTFMCB+52 01638000 FMCPAB1 EQU ISTFMCB+64 01639000 FMCPAB3 EQU ISTFMCB+96 01640000 FMCSIPA EQU ISTFMCB+148 01641000 FMCNXOSQ EQU ISTFMCB+152 01642000 FMCNXCFM EQU FMCNXOSQ 01643000 FMCNXOSC EQU FMCNXOSQ+2 01644000 FMCSSTAT EQU ISTFMCB+159 01645000 FMCPACE EQU ISTFMCB+160 01646000 FMCPACEN EQU FMCPACE 01647000 FMCPACEM EQU FMCPACE+1 01648000 FMCPACPC EQU FMCPACE+2 01649000 FMCCVAL EQU FMCPACE+3 01650000 FMCOBCE EQU FMCCVAL 01651000 FMCCLEXT EQU ISTFMCB+164 01652000 FMCRPLA EQU FMCCLEXT 01653000 FMCFBA EQU FMCCLEXT+4 01654000 FMCRAFM EQU FMCCLEXT+8 01655000 FMCDCLOK EQU FMCCLEXT+12 01656000 FMCCMPS2 EQU FMCCLEXT+16 01657000 FMCFLGA EQU FMCCMPS2 01658000 FMCFLGCL EQU FMCCMPS2+1 01659000 FMCPSCMD EQU FMCCMPS2+2 01660000 FMCPSTAT EQU FMCCMPS2+3 01661000 FMCPRMRC EQU FMCCLEXT+20 01662000 FMCSTAT2 EQU ISTFMCB+186 01663000 FMCMODEB EQU ISTFMCB+189 01664000 FMCCLSEQ EQU ISTFMCB+190 01665000 FMCRRESP EQU ISTFMCB+195 01666000 FMCSSEGQ EQU ISTFMCB+200 01667000 FMCFBAS EQU ISTFMCB+216 01668000 FMCZV002 EQU FMCFBAS 01669000 FMCSNCTL EQU ISTFMCB+224 01670000 FMCSCFLG EQU FMCSNCTL 01671000 FMCVS1 EQU ISTFMCB+232 01672000 FMCZFLAG EQU FMCVS1 01673000 FMCZF006 EQU FMCZFLAG 01674000 FMCLBXM EQU FMCVS1+12 01675000 FMCSHEAQ EQU FMCLBXM 01676000 FMCLCPBQ EQU FMCVS1+16 01677000 FMCLCPAQ EQU FMCVS1+20 01678000 FMCSEQ1 EQU FMCVS1+34 01679000 FMCZFLG2 EQU FMCVS1+35 01680000 FMCCVFLG EQU FMCVS1+44 01681000 FMCFLAG EQU 0 01682000 FMCFLGB EQU FMCFLAG 01683000 ISTFDB EQU 0 01684000 FDBFDBA EQU ISTFDB 01685000 FDBOFSET EQU ISTFDB+10 01686000 ISTFSB EQU 0 01687000 FSBFSB EQU ISTFSB 01688000 FSBMNRCD EQU FSBFSB+2 01689000 FSBSFLGS EQU FSBFSB+3 01690000 FSBFSBA EQU FSBFSB+4 01691000 FSBBTH EQU FSBFSB+8 01692000 FSBCID EQU FSBBTH 01693000 FSBRQTAG EQU FSBBTH+4 01694000 FSBSEQID EQU FSBRQTAG 01695000 FSBFLAGS EQU FSBSEQID 01696000 FSBSEQ EQU FSBSEQID+1 01697000 FSBCSWST EQU FSBBTH+6 01698000 FSBTHFLD EQU FSBCSWST 01699000 FSBTH1 EQU FSBTHFLD 01700000 FSBSYSRS EQU FSBTH1 01701000 FSBTH2 EQU FSBTHFLD+1 01702000 FSBEXTRS EQU FSBTH2 01703000 FSBXFSTS EQU FSBEXTRS 01704000 FSBXCODE EQU FSBEXTRS 01705000 FSBNETRS EQU FSBFSB+16 01706000 FSBSRCAT EQU FSBNETRS 01707000 FSBERC EQU FSBNETRS+1 01708000 FSBFBMI EQU FSBERC 01709000 FSBDMGRS EQU FSBFSB+18 01710000 FSBSS1 EQU FSBDMGRS 01711000 FSBSS2 EQU FSBDMGRS+1 01712000 FSBLCPB EQU FSBFSB+20 01713000 FSBMSGID EQU FSBLCPB 01714000 FSBLCCWA EQU FSBFSB+24 01715000 FSBRLSTS EQU FSBLCCWA 01716000 FSBFDB EQU ISTFSB+32 01717000 ISTDYPAB EQU 0 01718000 ISTATCVT EQU 0 01719000 ATCCOM EQU ISTATCVT 01720000 ATCSTAT EQU ATCCOM 01721000 ATCSTAT1 EQU ATCSTAT 01722000 ATCSTFLG EQU ATCSTAT+1 01723000 ATCPOFLG EQU ATCSTAT+2 01724000 ATCSTAT4 EQU ATCSTAT+3 01725000 ATCBPDA EQU ATCCOM+128 01726000 ATCIOTRC EQU ATCCOM+140 01727000 ATCTHTRC EQU ATCIOTRC 01728000 ATCSMRQ EQU ATCCOM+180 01729000 ATCSMRS EQU ATCCOM+188 01730000 ATCAPOST EQU ATCCOM+236 01731000 ATCCSMR EQU ISTATCVT+296 01732000 ATCSHRFG EQU ISTATCVT+316 01733000 ATCHPGM EQU ISTATCVT+384 01734000 ATCAP33 EQU ISTATCVT+444 01735000 ATCAP36 EQU ISTATCVT+452 01736000 ATCVLCNT EQU ISTATCVT+772 01737000 ATCRNO EQU ISTATCVT+788 01738000 ATCSOPD EQU ISTATCVT+792 01739000 ATCSIPD EQU ISTATCVT+800 01740000 ATCSECST EQU ISTATCVT+812 01741000 ATCSTAT2 EQU ISTATCVT+818 01742000 ATCVTBAM EQU ISTATCVT+908 01743000 @NM00061 EQU ATCVTBAM+3 01744000 ATCAOSM EQU ISTATCVT+912 01745000 ATCGSRBQ EQU ATCAOSM+4 01746000 ATCGSRBG EQU ATCGSRBQ 01747000 ATCAP31 EQU ATCAOSM+24 01748000 ATCAP34 EQU ATCAOSM+32 01749000 ATCICAPP EQU ATCAOSM+100 01750000 ATCLDAPP EQU ATCAOSM+120 01751000 ATCDAPVT EQU ATCAOSM+140 01752000 ATCAP37 EQU ATCAOSM+264 01753000 ATCVTFLG EQU ATCAOSM+392 01754000 ATCZFLAG EQU ATCAOSM+588 01755000 ISTDCCRR EQU 0 01756000 CRRCRR EQU ISTDCCRR 01757000 CRRSPACE EQU ISTDCCRR+12 01758000 CRRSAREA EQU 0 01759000 CRRMAS EQU CRRSAREA+148 01760000 CRRMAS1 EQU CRRMAS 01761000 CRRMAS2 EQU CRRMAS+1 01762000 CRRMAS3 EQU CRRMAS+2 01763000 CRRM80 EQU CRRMAS3 01764000 CRRMAS4 EQU CRRMAS+3 01765000 CRRRMAS1 EQU CRRMAS+4 01766000 CRRRMAS2 EQU CRRMAS+5 01767000 CRRRMAS3 EQU CRRMAS+6 01768000 CRRSMAS EQU CRRRMAS3 01769000 CRRATS EQU CRRSAREA+156 01770000 CRRATS1 EQU CRRATS 01771000 CRRATS2 EQU CRRATS+1 01772000 CRRATS3 EQU CRRATS+2 01773000 CRRC80 EQU CRRATS3 01774000 CRRATS4 EQU CRRATS+3 01775000 CRRRATS1 EQU CRRATS+4 01776000 CRRRATS2 EQU CRRATS+5 01777000 CRRRATS3 EQU CRRATS+6 01778000 CRRSATS EQU CRRRATS3 01779000 CRRFLGS1 EQU CRRSAREA+164 01780000 CRRFLGS2 EQU CRRSAREA+165 01781000 CRRFLGS3 EQU CRRSAREA+166 01782000 CRRFLGS4 EQU CRRSAREA+167 01783000 CRRFMCLK EQU CRRFLGS4 01784000 CRRFLGS EQU CRRSAREA+168 01785000 CRRSW1 EQU CRRFLGS 01786000 CRRSW2 EQU CRRFLGS 01787000 CRRRFLG1 EQU CRRSAREA+169 01788000 CRRRTYPE EQU CRRRFLG1 01789000 CRRFDBK1 EQU CRRSAREA+170 01790000 CRRFDB2 EQU CRRFDBK1+1 01791000 CRRFDB3 EQU CRRFDBK1+2 01792000 CRRFDBK2 EQU CRRSAREA+176 01793000 CRRDSB EQU CRRFDBK2 01794000 CRRESR EQU CRRFDBK2+2 01795000 CRRFMCB EQU CRRSAREA+184 01796000 CRRTRBUF EQU CRRSAREA+204 01797000 CRRARPL EQU CRRTRBUF+4 01798000 CRRATCVT EQU CRRSAREA+216 01799000 CRRRTN1 EQU CRRSAREA+224 01800000 CRRRTN2 EQU CRRSAREA+228 01801000 CRRRTN4 EQU CRRSAREA+236 01802000 CRRBFLGS EQU CRRSAREA+280 01803000 ISTLCCW EQU 0 01804000 LCCWOP EQU ISTLCCW 01805000 LCCWRWOP EQU LCCWOP 01806000 LCCWCTL EQU LCCWRWOP 01807000 LCCWFLAG EQU ISTLCCW+1 01808000 LCCWLSI EQU LCCWFLAG 01809000 ISTLCPB EQU 0 01810000 LCPTYPE EQU ISTLCPB 01811000 LCPLNGTH EQU ISTLCPB+1 01812000 LCPREQTG EQU ISTLCPB+2 01813000 LCPFLAGS EQU LCPREQTG 01814000 LCPZF001 EQU LCPFLAGS 01815000 LCPZRT02 EQU LCPZF001 01816000 LCPZF002 EQU LCPFLAGS 01817000 LCPZRT03 EQU LCPZF002 01818000 LCPZF003 EQU LCPFLAGS 01819000 LCPZRT04 EQU LCPZF003 01820000 LCPZF004 EQU LCPFLAGS 01821000 LCPZRT05 EQU LCPZF004 01822000 LCPZRT06 EQU LCPFLAGS 01823000 LCPZRT07 EQU LCPFLAGS 01824000 LCPMNRCD EQU LCPREQTG+1 01825000 LCPZRT08 EQU LCPMNRCD 01826000 LCPZRT09 EQU LCPMNRCD 01827000 LCPCHAIN EQU ISTLCPB+4 01828000 LCPCHAI1 EQU LCPCHAIN 01829000 LCPRUCNT EQU ISTLCPB+8 01830000 LCPFLAG2 EQU ISTLCPB+9 01831000 LCPTLBPI EQU LCPFLAG2 01832000 LCPFID0 EQU LCPFLAG2 01833000 LCPSEQ EQU ISTLCPB+10 01834000 LCPCID EQU ISTLCPB+16 01835000 LCPSAF EQU LCPCID 01836000 LCPDAF EQU LCPCID+2 01837000 LCPNXLCW EQU ISTLCPB+20 01838000 LCPFDBA EQU ISTLCPB+24 01839000 LCPFLG1 EQU ISTLCPB+37 01840000 LCPINTER EQU LCPFLG1 01841000 LCPFLCCW EQU ISTLCPB+40 01842000 LCPLCCW EQU ISTLCPB+48 01843000 LCPPABA EQU LCPLCCW+4 01844000 LCPRPHA EQU LCPPABA 01845000 ISTZSAVE EQU 0 01846000 ZSAZSVBC EQU ISTZSAVE 01847000 ZSAZSVMS EQU ZSAZSVBC 01848000 ISTPFCRR EQU 0 01849000 PFCCRR EQU ISTPFCRR 01850000 PFCCRRID EQU PFCCRR 01851000 PFCCRRLN EQU PFCCRR+2 01852000 PFCHDR EQU ISTPFCRR+4 01853000 PFCCRRO EQU PFCHDR 01854000 PFCFRRO EQU PFCHDR+4 01855000 ISTCFCRR EQU 0 01856000 CFCAUDIT EQU ISTCFCRR 01857000 CFCNTRD EQU CFCAUDIT 01858000 CFCCRT EQU CFCAUDIT+1 01859000 ISTZCRR EQU 0 01860000 ZCRCRR EQU ISTZCRR 01861000 ZCRFLGS1 EQU ISTZCRR+12 01862000 ZCRFLGS2 EQU ISTZCRR+13 01863000 ZCRSWFLD EQU ISTZCRR+14 01864000 ZCRENDSH EQU ZCRSWFLD 01865000 ZCRNDLCP EQU ZCRSWFLD 01866000 ZCRRESET EQU ZCRSWFLD 01867000 ZCRFLGS3 EQU ISTZCRR+15 01868000 ZCRGENSW EQU ISTZCRR+16 01869000 ZCRPFLGS EQU ISTZCRR+17 01870000 ZCRIBPR EQU ISTZCRR+18 01871000 ZCRSCPSW EQU ISTZCRR+19 01872000 ZCRPARMS EQU ISTZCRR+24 01873000 ZCRFBPTR EQU ZCRPARMS 01874000 ZCRDFRDA EQU ZCRPARMS+10 01875000 ZCRPCOD1 EQU ZCRPARMS+12 01876000 ZCRPLSBF EQU ZCRPCOD1 01877000 ZCRPCOD2 EQU ZCRPARMS+13 01878000 ZCRSVRTN EQU ISTZCRR+56 01879000 ZCRWKARA EQU ISTZCRR+156 01880000 ZCRCIDSV EQU ISTZCRR+192 01881000 ZCRAUDIT EQU ISTZCRR+440 01882000 ZCRENTER EQU ZCRAUDIT+5 01883000 ZCRLCPB EQU ISTZCRR+480 01884000 ZCRRHRU EQU ZCRLCPB 01885000 ISTASCRR EQU 0 01886000 ASCFLAGS EQU ISTASCRR+16 01887000 ASCFLG1 EQU ASCFLAGS 01888000 ASCFLG2 EQU ASCFLAGS+2 01889000 ASCFLG3 EQU ASCFLAGS+4 01890000 ASCUSRGS EQU ISTASCRR+28 01891000 ISTAPCRR EQU 0 01892000 APCATFLG EQU ISTAPCRR+16 01893000 APCRFLG EQU ISTAPCRR+18 01894000 APCSAVE EQU ISTAPCRR+44 01895000 APCCOMF EQU ISTAPCRR+116 01896000 APCCOMF1 EQU APCCOMF 01897000 APC31FLG EQU ISTAPCRR+132 01898000 APC52FLG EQU ISTAPCRR+133 01899000 APC53FLG EQU ISTAPCRR+134 01900000 APC54FLG EQU ISTAPCRR+135 01901000 APC57FLG EQU ISTAPCRR+136 01902000 ISTCRA EQU 0 01903000 CRABASIC EQU ISTCRA 01904000 CRAHDR EQU CRABASIC 01905000 CRALKACT EQU CRABASIC+8 01906000 CRAL5PTR EQU CRABASIC+28 01907000 CRAL8PTR EQU CRABASIC+40 01908000 CRAPROCR EQU ISTCRA+312 01909000 CRASVC EQU ISTCRA+848 01910000 CRABUFA EQU CRASVC+68 01911000 ISTDCLCP EQU 0 01912000 DCLLCPB EQU ISTDCLCP 01913000 DCLLCCW2 EQU ISTDCLCP+56 01914000 DCLRPLA EQU ISTDCLCP+72 01915000 DCLRTYPE EQU ISTDCLCP+76 01916000 DCLRQTP EQU DCLRTYPE 01917000 DCLRFLG EQU DCLRTYPE+1 01918000 DCLFLAG1 EQU ISTDCLCP+78 01919000 DCLSRESW EQU DCLFLAG1 01920000 ISTNCB EQU 0 01921000 NCBTYPE EQU ISTNCB 01922000 NCBDAF EQU ISTNCB+2 01923000 NCBFLAGS EQU ISTNCB+24 01924000 NCBFRAS EQU NCBFLAGS+1 01925000 NCBFTRIO EQU NCBFRAS 01926000 NCBFLAG1 EQU NCBFLAGS+2 01927000 ISTDNCB EQU 0 01928000 DNCOS EQU ISTDNCB+56 01929000 DNCZFLGS EQU DNCOS 01930000 DNCBSCED EQU DNCOS+2 01931000 ISTICNCB EQU 0 01932000 @NM00085 EQU ISTICNCB+53 01933000 ICNCKFLD EQU ISTICNCB+96 01934000 ICNFLAG EQU ISTICNCB+100 01935000 ICNZF006 EQU ICNFLAG 01936000 ICNFFLAG EQU ISTICNCB+101 01937000 ICNZSWS EQU ISTICNCB+102 01938000 ICNFLAG2 EQU ISTICNCB+236 01939000 ICNZD001 EQU ISTICNCB+288 01940000 ICNWSCCW EQU ICNZD001 01941000 ICNZD002 EQU ISTICNCB+296 01942000 ICNZD003 EQU ISTICNCB+320 01943000 ICNRSCCW EQU ICNZD003 01944000 ICNZD004 EQU ISTICNCB+328 01945000 ICNZS1VR EQU ISTICNCB+348 01946000 ICNSRV02 EQU ICNZS1VR 01947000 ICNDIEWA EQU ICNSRV02 01948000 ICNDCDEB EQU ISTICNCB+480 01949000 ICNDIDEB EQU ICNDCDEB+12 01950000 ICNZFLAG EQU ISTICNCB+508 01951000 ICNZH002 EQU ISTICNCB+509 01952000 ICNZS002 EQU ICNZH002 01953000 ICNZS003 EQU ICNZH002 01954000 ICNZS004 EQU ICNZH002 01955000 ICNZS006 EQU ICNZH002 01956000 ICNZS007 EQU ICNZH002 01957000 ICNZS008 EQU ICNZH002 01958000 ICNZS009 EQU ICNZH002+1 01959000 ICNZS00A EQU ICNZH002+1 01960000 ICNZCONS EQU ISTICNCB+680 01961000 ISTACDEB EQU 0 01962000 ACDVTPRX EQU ISTACDEB 01963000 ACDDBPFX EQU ISTACDEB+16 01964000 ACDTBLOF EQU ACDDBPFX+6 01965000 ACDBASIC EQU ISTACDEB+24 01966000 ACDTCBAD EQU ACDBASIC 01967000 ACDNMSUB EQU ACDTCBAD 01968000 ACDDEBAD EQU ACDBASIC+4 01969000 ACDUSRPG EQU ACDBASIC+16 01970000 ACDACBAD EQU ACDBASIC+24 01971000 ACDAPPAD EQU ACDBASIC+28 01972000 ACDVTAM EQU ISTACDEB+56 01973000 ACDLOCK EQU ACDVTAM 01974000 ACDRAFQ EQU ACDVTAM+12 01975000 ACDSSFLG EQU ACDVTAM+80 01976000 ACDAPDAT EQU ACDVTAM+83 01977000 FMZL0011 EQU 0 01978000 FMZL0016 EQU 0 01979000 FMZL0021 EQU 0 01980000 FMZL0031 EQU 0 01981000 FMZL0041 EQU 0 01982000 ISTWKE EQU 0 01983000 WKECHAIN EQU ISTWKE+4 01984000 WKEFLAGS EQU WKECHAIN 01985000 FMZL0053 EQU 0 01986000 FMZL0069 EQU 0 01987000 ISTAPC34 EQU 0 01988000 ISTAPC37 EQU 0 01989000 FMZL0113 EQU 0 01990000 FMZL0137 EQU 0 01991000 ISTRPL EQU 0 01992000 CVTS01 EQU CVTPGSIA 01993000 CVTLPDIA EQU CVTS01+12 01994000 CVTDIRST EQU CVTLPDIA 01995000 CVTSLIDA EQU CVTS01+24 01996000 CVTCTLFG EQU CVTS01+50 01997000 CVTRV210 EQU CVTS01+424 01998000 CVTRV219 EQU CVTS01+425 01999000 CVTRV228 EQU CVTS01+426 02000000 CVTRV237 EQU CVTS01+427 02001000 CVTMFRTR EQU CVTS01+452 02002000 CVTRV262 EQU CVTS01+468 02003000 CVTRV271 EQU CVTS01+469 02004000 CVTRV280 EQU CVTS01+470 02005000 CVTRV289 EQU CVTS01+471 02006000 CVTGSDA EQU CVTS01+600 02007000 IOBORG01 EQU IOBPREFX+8 02008000 IOBNIOBA EQU IOBORG01 02009000 IOBNFLG1 EQU IOBNIOBA 02010000 IOBORG02 EQU IOBPREFX+8 02011000 IOBDQADA EQU IOBORG02 02012000 IOBDEQIN EQU IOBDQADA 02013000 IOBORG03 EQU IOBPREFX+12 02014000 IOBORG04 EQU IOBINCAM 02015000 IOBORG12 EQU IOBINCAM 02016000 IOBFL4 EQU IOBORG12 02017000 IOBEXTEN EQU IOBSTDRD+32 02018000 IOBSEEK EQU IOBEXTEN 02019000 IOBBB EQU IOBSEEK+1 02020000 IOBCC EQU IOBSEEK+3 02021000 IOBHH EQU IOBSEEK+5 02022000 IOBORG05 EQU IOBEXTEN 02023000 IOBORG06 EQU IOBEXTEN 02024000 IOBNXTPT EQU IOBORG06+4 02025000 IOBSTATA EQU IOBNXTPT 02026000 IOBORG07 EQU IOBEXTEN+8 02027000 W1IEXTEN EQU IOBORG07 02028000 IOBORG08 EQU IOBEXTEN+8 02029000 IOBINDCT EQU IOBORG08+4 02030000 IOBUNSQR EQU IOBORG08+5 02031000 IOBFCHAD EQU IOBORG08+8 02032000 IOBORG09 EQU IOBEXTEN+8 02033000 IOBDPLAD EQU IOBORG09+4 02034000 IOBDTYPE EQU IOBORG09+8 02035000 IOBDTYP2 EQU IOBORG09+9 02036000 IOBDSTAT EQU IOBORG09+10 02037000 IOBSTAT1 EQU IOBDSTAT 02038000 IOBORG10 EQU IOBEXTEN+8 02039000 IOBSEEK2 EQU IOBORG10 02040000 IOBORG11 EQU IOBEXTEN 02041000 IOBERCT EQU IOBORG11 02042000 IOBUCBXV EQU IOBERCT 02043000 IOBNAME EQU IOBORG11+4 02044000 IOBORG13 EQU IOBEXTEN 02045000 IOBSKADR EQU IOBORG13 02046000 IOSATTSC EQU IOSIPIB 02047000 IOSWTOWA EQU IOSIPIB 02048000 IOSPCISC EQU IOSIPIB 02049000 FSBCOMBN EQU FSBNETRS 02050000 FSBRHFLD EQU FSBCOMBN+1 02051000 FSBRH3 EQU FSBRHFLD+2 02052000 FSBLDFLG EQU FSBRH3 02053000 @NM00054 EQU FSBRQTAG 02054000 LCPZTIE EQU LCPCID 02055000 LCPZSNAM EQU LCPZTIE+8 02056000 DIAL EQU LCPMNRCD 02057000 SRB EQU SRBSECT 02058000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02059000 LCPZTRV4 EQU LCPZSNAM+4 02060000 LCPZTRV1 EQU LCPZSNAM 02061000 LCPZSNA EQU LCPZTIE+4 02062000 LCPZFMCA EQU LCPZTIE 02063000 FSBRT0B EQU @NM00054+1 02064000 FSBRT0A EQU @NM00054+1 02065000 FSBRT09 EQU @NM00054+1 02066000 FSBRT08 EQU @NM00054+1 02067000 FSBRT07 EQU @NM00054 02068000 FSBRT06 EQU @NM00054 02069000 FSBRT05 EQU @NM00054 02070000 FSBRT04 EQU @NM00054 02071000 FSBRT03 EQU @NM00054 02072000 FSBRT02 EQU @NM00054 02073000 FSBRT01 EQU @NM00054 02074000 FSBRT00 EQU @NM00054 02075000 FSBLDCUF EQU FSBLDFLG 02076000 FSBLDSIF EQU FSBLDFLG 02077000 FSBLDSOF EQU FSBLDFLG 02078000 FSBLDEBF EQU FSBLDFLG 02079000 FSBLDBBF EQU FSBLDFLG 02080000 FSBLDFME EQU FSBLDFLG 02081000 FSBLDSCF EQU FSBLDFLG 02082000 FSBLDRMF EQU FSBLDFLG 02083000 FSBRH2 EQU FSBRHFLD+1 02084000 FSBRH1 EQU FSBRHFLD 02085000 FSBALIGN EQU FSBCOMBN 02086000 IOSPCIWA EQU IOSPCISC+44 02087000 IOSPCIRS EQU IOSPCISC+8 02088000 @NM00037 EQU IOSPCISC+4 02089000 @NM00036 EQU IOSPCISC 02090000 IOSWRNDR EQU IOSWTOWA+4 02091000 IOSWTOPT EQU IOSWTOWA+3 02092000 IOSWTOCP EQU IOSWTOWA+2 02093000 IOSWTOCH EQU IOSWTOWA 02094000 IOSATTWA EQU IOSATTSC+40 02095000 @NM00035 EQU IOSATTSC+24 02096000 IOSATTSN EQU IOSATTSC 02097000 IOBSKSS EQU IOBSKADR+3 02098000 IOBSK0 EQU IOBSKADR+2 02099000 IOBSKTT EQU IOBSKADR+1 02100000 IOBSKRV EQU IOBSKADR 02101000 IOBCSWSV EQU IOBORG11+17 02102000 IOBSENSV EQU IOBORG11+16 02103000 IOBRCD EQU IOBORG11+12 02104000 IOBMDREC EQU IOBORG11+8 02105000 IOBNAMEA EQU IOBNAME+1 02106000 IOBNAMSZ EQU IOBNAME 02107000 IOBERCTA EQU IOBERCT+1 02108000 IOBRTYPE EQU IOBUCBXV 02109000 IOBRDCHP EQU IOBORG10+20 02110000 IOBNEXTA EQU IOBORG10+16 02111000 IOBREADA EQU IOBORG10+12 02112000 IOBBUFC EQU IOBORG10+8 02113000 IOBSK2R EQU IOBSEEK2+7 02114000 IOBSK2HH EQU IOBSEEK2+5 02115000 IOBSK2CC EQU IOBSEEK2+3 02116000 IOBSK2BB EQU IOBSEEK2+1 02117000 IOBSK2M EQU IOBSEEK2 02118000 IOBCHNPR EQU IOBORG09+40 02119000 IOBDNCRF EQU IOBORG09+32 02120000 IOBRSV35 EQU IOBORG09+24 02121000 IOBDQPTR EQU IOBORG09+20 02122000 IOBRSV34 EQU IOBORG09+18 02123000 IOBDBYTN EQU IOBORG09+16 02124000 IOBDCPND EQU IOBORG09+12 02125000 IOBSTAT2 EQU IOBDSTAT+1 02126000 IOBSIORT EQU IOBSTAT1 02127000 IOBADDVU EQU IOBSTAT1 02128000 IOBBUFF EQU IOBSTAT1 02129000 IOBENQUE EQU IOBSTAT1 02130000 IOBPASS2 EQU IOBSTAT1 02131000 IOBSYNCH EQU IOBSTAT1 02132000 IOBNEWVL EQU IOBSTAT1 02133000 IOBABNRM EQU IOBSTAT1 02134000 IOBRELEX EQU IOBDTYP2 02135000 IOBADDTY EQU IOBDTYP2 02136000 IOBTYPE EQU IOBDTYP2 02137000 IOBRQUST EQU IOBDTYP2 02138000 IOBSUFFX EQU IOBDTYP2 02139000 IOBSBLKL EQU IOBDTYP2 02140000 IOBSKEY EQU IOBDTYP2 02141000 IOBRELBL EQU IOBDTYPE 02142000 IOBRDEXC EQU IOBDTYPE 02143000 IOBDYNBF EQU IOBDTYPE 02144000 IOBACTAD EQU IOBDTYPE 02145000 IOBFDBCK EQU IOBDTYPE 02146000 IOBEXTSC EQU IOBDTYPE 02147000 IOBOVFLO EQU IOBDTYPE 02148000 IOBVERFY EQU IOBDTYPE 02149000 IOBDPLB EQU IOBDPLAD+1 02150000 IOBDAYLI EQU IOBDPLAD 02151000 IOBDIOBS EQU IOBORG09+2 02152000 IOBDBYTR EQU IOBORG09 02153000 IOBBCHAD EQU IOBORG08+12 02154000 IOBFCHNB EQU IOBFCHAD+1 02155000 IOBCOUNT EQU IOBFCHAD 02156000 IOBASYN EQU IOBORG08+7 02157000 IOBAPP EQU IOBORG08+6 02158000 IOBRSV32 EQU IOBUNSQR 02159000 IOBRSV31 EQU IOBUNSQR 02160000 IOBRSV30 EQU IOBUNSQR 02161000 IOBKNRWR EQU IOBUNSQR 02162000 IOBKNWR EQU IOBUNSQR 02163000 IOBNTAV2 EQU IOBUNSQR 02164000 IOBNTAV1 EQU IOBUNSQR 02165000 IOBCPBSY EQU IOBUNSQR 02166000 IOBCHNNL EQU IOBINDCT 02167000 IOBRSV29 EQU IOBINDCT 02168000 IOBRSV28 EQU IOBINDCT 02169000 IOBRSV27 EQU IOBINDCT 02170000 IOBKEYAD EQU IOBINDCT 02171000 IOBOVPTR EQU IOBINDCT 02172000 IOBUNSCH EQU IOBINDCT 02173000 IOBDEQCP EQU IOBINDCT 02174000 IOBCCWAD EQU IOBORG08 02175000 W1OEXTEN EQU W1IEXTEN 02176000 IOBCCW EQU IOBORG06+8 02177000 IOBNXTPB EQU IOBNXTPT+1 02178000 IOBRSV26 EQU IOBSTATA 02179000 IOBRSV25 EQU IOBSTATA 02180000 IOBRSV24 EQU IOBSTATA 02181000 IOBRSV23 EQU IOBSTATA 02182000 IOBRSV22 EQU IOBSTATA 02183000 IOBRSV21 EQU IOBSTATA 02184000 IOBRSV20 EQU IOBSTATA 02185000 IOBAVLFL EQU IOBSTATA 02186000 IOBRSV37 EQU IOBORG06+1 02187000 IOBUCBXG EQU IOBORG06 02188000 IOBCPA EQU IOBORG05+32 02189000 IOBERINF EQU IOBORG05+16 02190000 IOBERCCW EQU IOBORG05+8 02191000 IOBSNDPT EQU IOBORG05+7 02192000 IOBRCVPT EQU IOBORG05+6 02193000 IOBWORK EQU IOBORG05+1 02194000 IOBUCBX EQU IOBORG05 02195000 IOBR EQU IOBSEEK+7 02196000 IOBHH2 EQU IOBHH+1 02197000 IOBHH1 EQU IOBHH 02198000 IOBCC2 EQU IOBCC+1 02199000 IOBCC1 EQU IOBCC 02200000 IOBBB2 EQU IOBBB+1 02201000 IOBBB1 EQU IOBBB 02202000 IOBM EQU IOBSEEK 02203000 IOBRSV46 EQU IOBFL4 02204000 IOBRSV47 EQU IOBFL4 02205000 IOBENT EQU IOBFL4 02206000 IOBEQP EQU IOBFL4 02207000 IOBBUS EQU IOBFL4 02208000 IOBDCK EQU IOBFL4 02209000 IOBREJ EQU IOBFL4 02210000 IOBOVR EQU IOBFL4 02211000 IOBCRILC EQU IOBORG04+1 02212000 IOBCRDCC EQU IOBORG04 02213000 IOBGQECB EQU IOBORG03 02214000 IOBSWAP EQU IOBORG02+4 02215000 IOBDQADB EQU IOBDQADA+1 02216000 IOBRSV13 EQU IOBDEQIN 02217000 IOBRSV12 EQU IOBDEQIN 02218000 IOBRSV11 EQU IOBDEQIN 02219000 IOBRSV10 EQU IOBDEQIN 02220000 IOBRSV09 EQU IOBDEQIN 02221000 IOBRSV08 EQU IOBDEQIN 02222000 IOBRSV07 EQU IOBDEQIN 02223000 IOBDEQ EQU IOBDEQIN 02224000 IOBNECB EQU IOBORG01+4 02225000 IOBNIOBB EQU IOBNIOBA+1 02226000 IOBFIRST EQU IOBNFLG1 02227000 IOBUPERR EQU IOBNFLG1 02228000 IOBSPAN EQU IOBNFLG1 02229000 IOBBKSPC EQU IOBNFLG1 02230000 IOBUPDAT EQU IOBNFLG1 02231000 IOBREAD EQU IOBNFLG1 02232000 IOBWRITE EQU IOBNFLG1 02233000 IOBPRTOV EQU IOBNFLG1 02234000 CVTRV628 EQU CVTS01+728 02235000 CVTRV627 EQU CVTS01+724 02236000 CVTRV626 EQU CVTS01+720 02237000 CVTRV625 EQU CVTS01+716 02238000 CVTRV624 EQU CVTS01+712 02239000 CVTRV623 EQU CVTS01+708 02240000 CVTRV622 EQU CVTS01+704 02241000 CVTRV621 EQU CVTS01+700 02242000 CVTRV620 EQU CVTS01+696 02243000 CVTSUSP EQU CVTS01+692 02244000 CVTT6SVC EQU CVTS01+688 02245000 CVTCDAL EQU CVTS01+684 02246000 CVTTCTL EQU CVTS01+680 02247000 CVTRSUME EQU CVTS01+676 02248000 CVTJTERM EQU CVTS01+672 02249000 CVTASMRM EQU CVTS01+668 02250000 CVTTCASP EQU CVTS01+664 02251000 CVT0PT03 EQU CVTS01+660 02252000 CVT0PT0E EQU CVTS01+656 02253000 CVTIRM EQU CVTS01+652 02254000 CVTCGK EQU CVTS01+648 02255000 CVTRAC EQU CVTS01+644 02256000 CVTRV606 EQU CVTS01+640 02257000 CVTRV605 EQU CVTS01+636 02258000 CVTRV604 EQU CVTS01+632 02259000 CVTEFF02 EQU CVTS01+628 02260000 CVTCBBR EQU CVTS01+624 02261000 CVTSSCR EQU CVTS01+620 02262000 CVTEVENT EQU CVTS01+616 02263000 CVTCRCA EQU CVTS01+612 02264000 CVTTPIO EQU CVTS01+608 02265000 CVTADV EQU CVTS01+604 02266000 CVTGSDAB EQU CVTGSDA 02267000 CVTQV3 EQU CVTS01+596 02268000 CVTQV2 EQU CVTS01+592 02269000 CVTQV1 EQU CVTS01+588 02270000 CVTRPT EQU CVTS01+584 02271000 CVTSSRB EQU CVTS01+580 02272000 CVTCSDRL EQU CVTS01+576 02273000 CVTEXP1 EQU CVTS01+572 02274000 CVTRMPMT EQU CVTS01+568 02275000 CVTRMPTT EQU CVTS01+564 02276000 CVTVPSA EQU CVTS01+560 02277000 CVTVSTOP EQU CVTS01+556 02278000 CVTGTFR8 EQU CVTS01+552 02279000 CVTQUIT EQU CVTS01+548 02280000 CVTVACR EQU CVTS01+544 02281000 CVTWTCB EQU CVTS01+540 02282000 CVTSTPRS EQU CVTS01+536 02283000 CVT0PT02 EQU CVTS01+532 02284000 CVTDARCM EQU CVTS01+528 02285000 CVTIRECM EQU CVTS01+524 02286000 CVTJRECM EQU CVTS01+520 02287000 CVTVEMS0 EQU CVTS01+516 02288000 CVTSPFRR EQU CVTS01+512 02289000 CVTRLSTG EQU CVTS01+508 02290000 CVT0TC0A EQU CVTS01+504 02291000 CVTGMBR EQU CVTS01+500 02292000 CVTLFRM EQU CVTS01+496 02293000 CVTRMBR EQU CVTS01+492 02294000 CVTVIOP EQU CVTS01+488 02295000 CVTRV307 EQU CVTS01+486 02296000 CVTRV306 EQU CVTS01+484 02297000 CVTRV305 EQU CVTS01+482 02298000 CVTRV304 EQU CVTS01+480 02299000 CVTRV303 EQU CVTS01+478 02300000 CVTRV302 EQU CVTS01+476 02301000 CVTTRCA EQU CVTS01+472 02302000 CVTRV297 EQU CVTRV289 02303000 CVTRV296 EQU CVTRV289 02304000 CVTRV295 EQU CVTRV289 02305000 CVTRV294 EQU CVTRV289 02306000 CVTRV293 EQU CVTRV289 02307000 CVTRV292 EQU CVTRV289 02308000 CVTRV291 EQU CVTRV289 02309000 CVTRV290 EQU CVTRV289 02310000 CVTRV288 EQU CVTRV280 02311000 CVTRV287 EQU CVTRV280 02312000 CVTRV286 EQU CVTRV280 02313000 CVTRV285 EQU CVTRV280 02314000 CVTRV284 EQU CVTRV280 02315000 CVTRV283 EQU CVTRV280 02316000 CVTRV282 EQU CVTRV280 02317000 CVTRV281 EQU CVTRV280 02318000 CVTRV279 EQU CVTRV271 02319000 CVTRV278 EQU CVTRV271 02320000 CVTRV277 EQU CVTRV271 02321000 CVTRV276 EQU CVTRV271 02322000 CVTRV275 EQU CVTRV271 02323000 CVTRV274 EQU CVTRV271 02324000 CVTRV273 EQU CVTRV271 02325000 CVTRV272 EQU CVTRV271 02326000 CVTRV270 EQU CVTRV262 02327000 CVTRV269 EQU CVTRV262 02328000 CVTRV268 EQU CVTRV262 02329000 CVTRV267 EQU CVTRV262 02330000 CVTRV266 EQU CVTRV262 02331000 CVTRV265 EQU CVTRV262 02332000 CVTRV264 EQU CVTRV262 02333000 CVTRV263 EQU CVTRV262 02334000 CVTVFP EQU CVTS01+464 02335000 CVTVSI EQU CVTS01+460 02336000 CVTVPSIB EQU CVTS01+456 02337000 CVTMFACT EQU CVTMFRTR 02338000 CVTMFCTL EQU CVTS01+448 02339000 CVTPVBP EQU CVTS01+444 02340000 CVTPWI EQU CVTS01+440 02341000 CVTRV254 EQU CVTS01+438 02342000 CVTRV253 EQU CVTS01+436 02343000 CVTRV252 EQU CVTS01+434 02344000 CVTRV251 EQU CVTS01+433 02345000 CVTRV250 EQU CVTS01+432 02346000 CVTRV249 EQU CVTS01+431 02347000 CVTRV248 EQU CVTS01+430 02348000 CVTRV247 EQU CVTS01+429 02349000 CVTRV246 EQU CVTS01+428 02350000 CVTRV245 EQU CVTRV237 02351000 CVTRV244 EQU CVTRV237 02352000 CVTRV243 EQU CVTRV237 02353000 CVTRV242 EQU CVTRV237 02354000 CVTRV241 EQU CVTRV237 02355000 CVTRV240 EQU CVTRV237 02356000 CVTRV239 EQU CVTRV237 02357000 CVTRV238 EQU CVTRV237 02358000 CVTRV236 EQU CVTRV228 02359000 CVTRV235 EQU CVTRV228 02360000 CVTRV234 EQU CVTRV228 02361000 CVTRV233 EQU CVTRV228 02362000 CVTRV232 EQU CVTRV228 02363000 CVTRV231 EQU CVTRV228 02364000 CVTRV230 EQU CVTRV228 02365000 CVTRV229 EQU CVTRV228 02366000 CVTRV227 EQU CVTRV219 02367000 CVTRV226 EQU CVTRV219 02368000 CVTRV225 EQU CVTRV219 02369000 CVTRV224 EQU CVTRV219 02370000 CVTRV223 EQU CVTRV219 02371000 CVTRV222 EQU CVTRV219 02372000 CVTRV221 EQU CVTRV219 02373000 CVTRV220 EQU CVTRV219 02374000 CVTRV218 EQU CVTRV210 02375000 CVTRV217 EQU CVTRV210 02376000 CVTRV216 EQU CVTRV210 02377000 CVTRV215 EQU CVTRV210 02378000 CVTRV214 EQU CVTRV210 02379000 CVTRV213 EQU CVTRV210 02380000 CVTRV212 EQU CVTRV210 02381000 CVTRV211 EQU CVTRV210 02382000 CVTLCCAT EQU CVTS01+420 02383000 CVTPCCAT EQU CVTS01+416 02384000 CVTIPCRP EQU CVTS01+412 02385000 CVTIPCRI EQU CVTS01+408 02386000 CVTIPCDS EQU CVTS01+404 02387000 CVTAIDVT EQU CVTS01+400 02388000 CVTSSAP EQU CVTS01+396 02389000 CVTEHCIR EQU CVTS01+392 02390000 CVTEHDEF EQU CVTS01+388 02391000 CVTDAIR EQU CVTS01+384 02392000 CVTPERFM EQU CVTS01+380 02393000 CVT044R2 EQU CVTS01+376 02394000 CVTFETCH EQU CVTS01+372 02395000 CVTRSTWD EQU CVTS01+368 02396000 CVTSPOST EQU CVTS01+364 02397000 CVTIOBP EQU CVTS01+360 02398000 CVTASMVT EQU CVTS01+356 02399000 CVTRECRQ EQU CVTS01+352 02400000 CVTWSAC EQU CVTS01+348 02401000 CVTRV149 EQU CVTS01+344 02402000 CVTWSAL EQU CVTS01+340 02403000 CVTSPSA EQU CVTS01+336 02404000 CVTGLMN EQU CVTS01+332 02405000 CVTVEAC0 EQU CVTS01+328 02406000 CVT062R1 EQU CVTS01+324 02407000 CVTRPOST EQU CVTS01+320 02408000 CVTDQIQE EQU CVTS01+316 02409000 CVTCSD EQU CVTS01+312 02410000 CVTLKRMA EQU CVTS01+308 02411000 CVTRSPIE EQU CVTS01+304 02412000 CVTRENQ EQU CVTS01+300 02413000 CVTLQCB EQU CVTS01+296 02414000 CVTFQCB EQU CVTS01+292 02415000 CVTQCS01 EQU CVTS01+288 02416000 CVTAPFT EQU CVTS01+284 02417000 CVTPARRL EQU CVTS01+280 02418000 CVTVWAIT EQU CVTS01+276 02419000 CVTGSPL EQU CVTS01+272 02420000 CVTLSMQ EQU CVTS01+268 02421000 CVTGSMQ EQU CVTS01+264 02422000 CVTEXPRO EQU CVTS01+260 02423000 CVTOPCTP EQU CVTS01+256 02424000 CVTSIC EQU CVTS01+252 02425000 CVTTPIOS EQU CVTS01+248 02426000 CVTRTMS EQU CVTS01+244 02427000 CVTSDBF EQU CVTS01+240 02428000 CVTSCBP EQU CVTS01+236 02429000 CVTSDMP EQU CVTS01+232 02430000 CVTSV60 EQU CVTS01+228 02431000 CVTRTMCT EQU CVTS01+224 02432000 CVTASCBL EQU CVTS01+220 02433000 CVTASCBH EQU CVTS01+216 02434000 CVTGDA EQU CVTS01+212 02435000 CVTASVT EQU CVTS01+208 02436000 CVTVVMDI EQU CVTS01+204 02437000 CVTAQTOP EQU CVTS01+200 02438000 CVTIOSCS EQU CVTS01+196 02439000 CVTSDRM EQU CVTS01+192 02440000 CVTOPTE EQU CVTS01+188 02441000 CVTSTXU EQU CVTS01+184 02442000 CVTQUIS EQU CVTS01+180 02443000 CVTPARS EQU CVTS01+176 02444000 CVTS1EE EQU CVTS01+172 02445000 CVTFRAS EQU CVTS01+168 02446000 CVTQSAS EQU CVTS01+164 02447000 CVTCRAS EQU CVTS01+160 02448000 CVTCRMN EQU CVTS01+156 02449000 CVTDELCP EQU CVTS01+152 02450000 CVTFRECL EQU CVTS01+148 02451000 CVTGETCL EQU CVTS01+144 02452000 CVTBLDCP EQU CVTS01+140 02453000 CVTAUTHL EQU CVTS01+136 02454000 CVTSCAN EQU CVTS01+132 02455000 CVTRV144 EQU CVTS01+130 02456000 CVTMAXMP EQU CVTS01+128 02457000 CVTSTCK EQU CVTS01+124 02458000 CVTRV139 EQU CVTS01+123 02459000 CVTDSSAC EQU CVTS01+122 02460000 CVTRV513 EQU CVTS01+121 02461000 CVTIOSPL EQU CVTS01+120 02462000 CVTPTGT EQU CVTS01+116 02463000 CVTCSPIE EQU CVTS01+112 02464000 CVTSMFEX EQU CVTS01+108 02465000 CVTOLT0A EQU CVTS01+104 02466000 CVTSRBRT EQU CVTS01+100 02467000 CVTPUTL EQU CVTS01+96 02468000 CVTASCRL EQU CVTS01+92 02469000 CVTASCRF EQU CVTS01+88 02470000 CVTRV326 EQU CVTS01+84 02471000 CVTRV325 EQU CVTS01+80 02472000 CVTRV324 EQU CVTS01+76 02473000 CVT0VL01 EQU CVTS01+72 02474000 CVTSHRVM EQU CVTS01+68 02475000 CVTRV332 EQU CVTS01+64 02476000 CVTTAS EQU CVTS01+60 02477000 CVTRSCN EQU CVTS01+56 02478000 CVTTRAC2 EQU CVTS01+54 02479000 CVTTRACE EQU CVTS01+52 02480000 CVTAPG EQU CVTS01+51 02481000 CVTSDTRC EQU CVTCTLFG 02482000 CVTGTRCE EQU CVTCTLFG 02483000 CVTNOMP EQU CVTCTLFG 02484000 CVTRSV79 EQU CVTCTLFG 02485000 CVTDSTAT EQU CVTCTLFG 02486000 CVTRSV78 EQU CVTCTLFG 02487000 CVTRV333 EQU CVTCTLFG 02488000 CVTRV323 EQU CVTCTLFG 02489000 CVTSPVLK EQU CVTS01+49 02490000 CVTRSV77 EQU CVTS01+48 02491000 CVTRV331 EQU CVTS01+44 02492000 CVTRV330 EQU CVTS01+40 02493000 CVTRV329 EQU CVTS01+36 02494000 CVTRV328 EQU CVTS01+32 02495000 CVTRV322 EQU CVTS01+28 02496000 CVTSLID EQU CVTSLIDA+1 02497000 CVTSYLK EQU CVTSLIDA 02498000 CVTRV321 EQU CVTS01+20 02499000 CVTRV320 EQU CVTS01+16 02500000 CVTLPDIR EQU CVTLPDIA+1 02501000 CVTRSV69 EQU CVTDIRST 02502000 CVTRSV68 EQU CVTDIRST 02503000 CVTRSV67 EQU CVTDIRST 02504000 CVTRSV66 EQU CVTDIRST 02505000 CVTRSV65 EQU CVTDIRST 02506000 CVTRSV64 EQU CVTDIRST 02507000 CVTRSV63 EQU CVTDIRST 02508000 CVTDICOM EQU CVTDIRST 02509000 CVTPVTP EQU CVTS01+8 02510000 CVTLPDSR EQU CVTS01+4 02511000 CVTGETL EQU CVTS01 02512000 WKECHNGP EQU WKECHAIN+1 02513000 @NM00100 EQU WKEFLAGS 02514000 WKEGATE EQU WKEFLAGS 02515000 @NM00099 EQU ISTWKE 02516000 ACDREFQ EQU ISTACDEB+204 02517000 ACDASFQ EQU ISTACDEB+200 02518000 ACDSOP EQU ISTACDEB+184 02519000 ACDSIP EQU ISTACDEB+168 02520000 ACDRSV24 EQU ACDVTAM+108 02521000 ACDRSV23 EQU ACDVTAM+104 02522000 ACDRSV22 EQU ACDVTAM+100 02523000 ACDOCWAD EQU ACDVTAM+96 02524000 ACDRSV10 EQU ACDVTAM+92 02525000 ACDAPDDT EQU ACDAPDAT+1 02526000 ACDAPDLN EQU ACDAPDAT 02527000 ACDRSV07 EQU ACDVTAM+82 02528000 ACDRSV06 EQU ACDVTAM+81 02529000 ACDRSV09 EQU ACDSSFLG 02530000 ACDAICLS EQU ACDSSFLG 02531000 ACDABEND EQU ACDSSFLG 02532000 ACDCACB EQU ACDSSFLG 02533000 ACDRSV21 EQU ACDVTAM+64 02534000 ACDSSPAB EQU ACDVTAM+48 02535000 ACDNEPAB EQU ACDVTAM+32 02536000 ACDRSV20 EQU ACDVTAM+20 02537000 ACDRARQ EQU ACDVTAM+16 02538000 ACDFMCB EQU ACDVTAM+8 02539000 ACDRDTE EQU ACDVTAM+4 02540000 ACDAPP EQU ACDAPPAD+1 02541000 ACDEXSCL EQU ACDAPPAD 02542000 ACDACB EQU ACDACBAD+1 02543000 ACDDEBID EQU ACDACBAD 02544000 ACDPROTG EQU ACDACBAD 02545000 ACDECBAD EQU ACDBASIC+20 02546000 ACDUSRPB EQU ACDUSRPG+1 02547000 ACDNMEXT EQU ACDUSRPG 02548000 ACDPRLEN EQU ACDBASIC+15 02549000 ACDFLGS1 EQU ACDBASIC+14 02550000 ACDQSCNT EQU ACDBASIC+13 02551000 ACDOPATB EQU ACDBASIC+12 02552000 ACDIRBAD EQU ACDBASIC+8 02553000 ACDDEB EQU ACDDEBAD+1 02554000 ACDAMLNG EQU ACDDEBAD 02555000 ACDTCB EQU ACDTCBAD+1 02556000 ACDOPNAD EQU ACDNMSUB 02557000 ACDRSV03 EQU ACDTBLOF+1 02558000 ACDRSV02 EQU ACDTBLOF 02559000 ACDAMTYP EQU ACDDBPFX+5 02560000 ACDLENG EQU ACDDBPFX+4 02561000 ACDDEBX EQU ACDDBPFX 02562000 ACDRSV08 EQU ACDVTPRX+12 02563000 ACDTSKID EQU ACDVTPRX+8 02564000 ACDCHN EQU ACDVTPRX+4 02565000 ACDSAF EQU ACDVTPRX+2 02566000 ACDLNGTH EQU ACDVTPRX+1 02567000 ACDTYPE EQU ACDVTPRX 02568000 ICNZCON6 EQU ICNZCONS+10 02569000 ICNZCON5 EQU ICNZCONS+8 02570000 ICNZCON4 EQU ICNZCONS+6 02571000 ICNZCON3 EQU ICNZCONS+4 02572000 ICNZCON2 EQU ICNZCONS+2 02573000 ICNZCON1 EQU ICNZCONS 02574000 ICNZATSA EQU ISTICNCB+676 02575000 ICNZX012 EQU ISTICNCB+675 02576000 ICNZX011 EQU ISTICNCB+674 02577000 ICNZX010 EQU ISTICNCB+672 02578000 ICNSRB EQU ISTICNCB+628 02579000 ICNIOSB EQU ISTICNCB+520 02580000 ICNZC001 EQU ISTICNCB+512 02581000 ICNZX013 EQU ISTICNCB+511 02582000 ICNZS010 EQU ICNZH002+1 02583000 ICNZS00F EQU ICNZH002+1 02584000 ICNZS00E EQU ICNZH002+1 02585000 ICNZS00D EQU ICNZH002+1 02586000 ICNZS00C EQU ICNZH002+1 02587000 ICNZS00B EQU ICNZH002+1 02588000 ICNZS01A EQU ICNZS00A 02589000 ICNZS019 EQU ICNZS009 02590000 ICNZS018 EQU ICNZS008 02591000 ICNZS017 EQU ICNZS007 02592000 ICNZS016 EQU ICNZS006 02593000 ICNZS005 EQU ICNZH002 02594000 ICNZS014 EQU ICNZS004 02595000 ICNZS013 EQU ICNZS003 02596000 ICNZS012 EQU ICNZS002 02597000 ICNZS001 EQU ICNZH002 02598000 ICNZF028 EQU ICNZFLAG 02599000 ICNZF027 EQU ICNZFLAG 02600000 ICNZF026 EQU ICNZFLAG 02601000 ICNZF025 EQU ICNZFLAG 02602000 ICNZF024 EQU ICNZFLAG 02603000 ICNZF023 EQU ICNZFLAG 02604000 ICNZF022 EQU ICNZFLAG 02605000 ICNZF021 EQU ICNZFLAG 02606000 ICNWORD5 EQU ISTICNCB+504 02607000 ICNMSIZE EQU ISTICNCB+500 02608000 ICNLCVTA EQU ISTICNCB+496 02609000 ICNDEBAD EQU ICNDIDEB+1 02610000 ICNDCBIF EQU ICNDIDEB 02611000 ICNUCBAD EQU ICNDCDEB+8 02612000 ICNAPPAD EQU ICNDCDEB+5 02613000 ICNEXSCL EQU ICNDCDEB+4 02614000 ICNDCBAD EQU ICNDCDEB+1 02615000 ICNDEBID EQU ICNDCDEB 02616000 @NM00092 EQU ISTICNCB+477 02617000 ICNERCNT EQU ISTICNCB+476 02618000 ICNZX002 EQU ISTICNCB+475 02619000 ICNZX001 EQU ISTICNCB+474 02620000 ICNZH001 EQU ISTICNCB+472 02621000 ICNZSW3R EQU ISTICNCB+468 02622000 ICNZSW2R EQU ISTICNCB+464 02623000 ICNZSW1R EQU ISTICNCB+460 02624000 ICNZS4VR EQU ISTICNCB+436 02625000 ICNZS4RR EQU ISTICNCB+432 02626000 ICNZS4FC EQU ISTICNCB+428 02627000 ICNZS4BC EQU ISTICNCB+424 02628000 ICNZS3VR EQU ISTICNCB+400 02629000 ICNZS3RR EQU ISTICNCB+396 02630000 ICNZS3FC EQU ISTICNCB+392 02631000 ICNZS3BC EQU ISTICNCB+388 02632000 ICNZS1RC EQU ICNZS1VR+36 02633000 ICNDIEW3 EQU ICNDIEWA+8 02634000 ICNDIEW2 EQU ICNDIEWA+4 02635000 ICNDIEW1 EQU ICNDIEWA 02636000 ICNZS1RR EQU ISTICNCB+344 02637000 ICNZS1FC EQU ISTICNCB+340 02638000 ICNZS1BC EQU ISTICNCB+336 02639000 ICNRSTIC EQU ICNZD004 02640000 ICNRDCOD EQU ICNRSCCW 02641000 ICNZD006 EQU ISTICNCB+312 02642000 ICNZD005 EQU ISTICNCB+304 02643000 ICNWSTIC EQU ICNZD002 02644000 ICNWRCOD EQU ICNWSCCW 02645000 ICNZV008 EQU ISTICNCB+284 02646000 ICNZV007 EQU ISTICNCB+280 02647000 ICNZV006 EQU ISTICNCB+276 02648000 ICNZV005 EQU ISTICNCB+272 02649000 ICNZV004 EQU ISTICNCB+268 02650000 ICNLSTIT EQU ISTICNCB+264 02651000 ICNLSTIF EQU ISTICNCB+260 02652000 ICNZV002 EQU ISTICNCB+256 02653000 ICNZV001 EQU ISTICNCB+252 02654000 ICNZV00A EQU ISTICNCB+249 02655000 ICNBUFF EQU ISTICNCB+248 02656000 ICNCPQ EQU ISTICNCB+244 02657000 ICNNICNA EQU ISTICNCB+240 02658000 @NM00091 EQU ICNFLAG2+2 02659000 ICNZF019 EQU ICNFLAG2+2 02660000 ICNZF018 EQU ICNFLAG2+2 02661000 ICNZF017 EQU ICNFLAG2+2 02662000 ICNZF016 EQU ICNFLAG2+2 02663000 ICNZF015 EQU ICNFLAG2+2 02664000 ICNMSG EQU ICNFLAG2+1 02665000 ICNCLOSE EQU ICNFLAG2+1 02666000 ICNZF014 EQU ICNFLAG2+1 02667000 ICNZF013 EQU ICNFLAG2+1 02668000 ICNZF012 EQU ICNFLAG2+1 02669000 ICNZF011 EQU ICNFLAG2+1 02670000 ICNZF00D EQU ICNFLAG2+1 02671000 ICNZF00B EQU ICNFLAG2+1 02672000 ICNZF00A EQU ICNFLAG2 02673000 ICNZF008 EQU ICNFLAG2 02674000 ICNZF007 EQU ICNFLAG2 02675000 ICNZF005 EQU ICNFLAG2 02676000 ICNZF004 EQU ICNFLAG2 02677000 ICNZF003 EQU ICNFLAG2 02678000 ICNZF002 EQU ICNFLAG2 02679000 ICNZF001 EQU ICNFLAG2 02680000 ICNLOCK EQU ISTICNCB+232 02681000 ICNLICNA EQU ISTICNCB+228 02682000 ICNRPH EQU ISTICNCB+120 02683000 ICNZV003 EQU ISTICNCB+116 02684000 ICNLAST EQU ISTICNCB+112 02685000 ICNLSTBT EQU ISTICNCB+108 02686000 ICNSIOQ EQU ISTICNCB+104 02687000 ICNFLAG1 EQU ISTICNCB+103 02688000 ICNZSW08 EQU ICNZSWS 02689000 ICNZSW07 EQU ICNZSWS 02690000 ICNZSW06 EQU ICNZSWS 02691000 ICNZSW05 EQU ICNZSWS 02692000 ICNZSW04 EQU ICNZSWS 02693000 ICNZSW03 EQU ICNZSWS 02694000 ICNZSW02 EQU ICNZSWS 02695000 ICNZSW01 EQU ICNZSWS 02696000 ICNZFF69 EQU ICNFFLAG 02697000 @NM00090 EQU ICNFFLAG 02698000 ICNZFF05 EQU ICNFFLAG 02699000 ICNZFF04 EQU ICNFFLAG 02700000 ICNZFF03 EQU ICNFFLAG 02701000 ICNZFF02 EQU ICNFFLAG 02702000 ICNZFF01 EQU ICNFFLAG 02703000 ICNZFF00 EQU ICNFFLAG 02704000 @NM00089 EQU ICNFLAG 02705000 ICNZCRIT EQU ICNFLAG 02706000 ICNSTART EQU ICNFLAG 02707000 ICNSLOW EQU ICNFLAG 02708000 ICNZF010 EQU ICNFLAG 02709000 ICNZF00F EQU ICNFLAG 02710000 ICNZF00E EQU ICNFLAG 02711000 ICNCONF EQU ICNZF006 02712000 ICNCKPAB EQU ICNCKFLD+1 02713000 ICNRSV07 EQU ICNCKFLD 02714000 ICNCKBIT EQU ICNCKFLD 02715000 ICNZPAB4 EQU ISTICNCB+80 02716000 ICNZPAB1 EQU ISTICNCB+64 02717000 ICNRSV01 EQU ISTICNCB+60 02718000 @NM00088 EQU ISTICNCB+56 02719000 @NM00087 EQU ISTICNCB+54 02720000 @NM00086 EQU @NM00085 02721000 ICNRRY EQU @NM00085 02722000 ICNLCLUS EQU @NM00085 02723000 ICNROLN EQU @NM00085 02724000 ICNRNRY EQU @NM00085 02725000 ICNLNKMD EQU ISTICNCB+52 02726000 ICNCUUA EQU ISTICNCB+48 02727000 ICNCB EQU ISTICNCB 02728000 DNCZC001 EQU DNCOS+40 02729000 DNCLOCK EQU DNCOS+36 02730000 DNCZV005 EQU DNCOS+32 02731000 DNCZV004 EQU DNCOS+28 02732000 DNCZV003 EQU DNCOS+24 02733000 DNCZV002 EQU DNCOS+21 02734000 DNCZX001 EQU DNCOS+20 02735000 DNCZV001 EQU DNCOS+17 02736000 DNCZX003 EQU DNCOS+16 02737000 DNCZV000 EQU DNCOS+12 02738000 DNCSESCQ EQU DNCOS+8 02739000 DNCSESIQ EQU DNCOS+4 02740000 DNCACIP EQU DNCBSCED+1 02741000 DNCLICP EQU DNCBSCED 02742000 DNCZF008 EQU DNCZFLGS+1 02743000 DNCZPSRD EQU DNCZFLGS+1 02744000 DNCPSOL EQU DNCZFLGS+1 02745000 DNCZF007 EQU DNCZFLGS+1 02746000 DNCZF006 EQU DNCZFLGS+1 02747000 DNCZF005 EQU DNCZFLGS+1 02748000 DNCZF004 EQU DNCZFLGS+1 02749000 DNCZF003 EQU DNCZFLGS 02750000 DNCZF002 EQU DNCZFLGS 02751000 DNCZRSCH EQU DNCZFLGS 02752000 DNCDISC EQU DNCZFLGS 02753000 DNCCONT EQU DNCZFLGS 02754000 DNCINVIT EQU DNCZFLGS 02755000 DNCSESS EQU DNCZFLGS 02756000 DNCZF001 EQU DNCZFLGS 02757000 DNCMODE EQU ISTDNCB+49 02758000 DNCBHSET EQU ISTDNCB+48 02759000 DNCNCB EQU ISTDNCB 02760000 NCBRSV01 EQU ISTNCB+46 02761000 NCBSWDAF EQU ISTNCB+44 02762000 NCBDEVCH EQU ISTNCB+36 02763000 NCBFMCBP EQU ISTNCB+32 02764000 NCBLTRC EQU ISTNCB+30 02765000 NCBRVPT1 EQU ISTNCB+28 02766000 NCBNMLLN EQU NCBFLAGS+3 02767000 @NM00084 EQU NCBFLAG1 02768000 NCBFORCE EQU NCBFLAG1 02769000 NCBTTF EQU NCBFLAG1 02770000 NCBRSYNC EQU NCBFLAG1 02771000 NCBRSTRT EQU NCBFLAG1 02772000 NCBCONF EQU NCBFLAG1 02773000 NCBSNAI EQU NCBFLAG1 02774000 NCBFLTIO EQU NCBFTRIO 02775000 NCBCSTAT EQU NCBFLAGS 02776000 NCBNCSL EQU ISTNCB+22 02777000 NCBNCBA EQU ISTNCB+20 02778000 NCBFMCBA EQU ISTNCB+16 02779000 NCBNSNA EQU ISTNCB+12 02780000 NCBTSKID EQU ISTNCB+8 02781000 NCBRDTE EQU ISTNCB+4 02782000 NCBLNGTH EQU ISTNCB+1 02783000 DCLECHAR EQU ISTDCLCP+98 02784000 DCLIOLEN EQU ISTDCLCP+96 02785000 DCLBTLEN EQU ISTDCLCP+92 02786000 DCLCLDOA EQU ISTDCLCP+88 02787000 DCLIOBUF EQU ISTDCLCP+84 02788000 DCLLDO1 EQU ISTDCLCP+80 02789000 DCLRSV03 EQU ISTDCLCP+79 02790000 DCLRSV02 EQU DCLFLAG1 02791000 DCLRPLS EQU DCLFLAG1 02792000 DCLBTEIS EQU DCLFLAG1 02793000 DCLNODE EQU DCLFLAG1 02794000 DCLRSV04 EQU DCLFLAG1 02795000 DCLBNSP EQU DCLRFLG 02796000 DCLCONV EQU DCLRFLG 02797000 DCLRSV01 EQU DCLRFLG 02798000 DCLLCCW3 EQU ISTDCLCP+64 02799000 CRACHAIN EQU ISTCRA+928 02800000 CRARSV02 EQU ISTCRA+924 02801000 CRARSV01 EQU ISTCRA+920 02802000 CRABFTBA EQU CRABUFA 02803000 CRAMASK EQU CRASVC+64 02804000 CRAHSIZ EQU CRASVC+60 02805000 CRAASCRR EQU CRASVC 02806000 CRAPSS EQU ISTCRA+160 02807000 CRARPH EQU ISTCRA+52 02808000 CRALAPTR EQU CRABASIC+48 02809000 CRAL9PTR EQU CRABASIC+44 02810000 CRAL7PTR EQU CRABASIC+36 02811000 CRAL6PTR EQU CRABASIC+32 02812000 CRAL4PTR EQU CRABASIC+24 02813000 CRAL3PTR EQU CRABASIC+20 02814000 CRAL2PTR EQU CRABASIC+16 02815000 CRAL1PTR EQU CRABASIC+12 02816000 CRALEV01 EQU CRALKACT+3 02817000 CRALEV02 EQU CRALKACT+3 02818000 CRALEV03 EQU CRALKACT+3 02819000 CRALEV04 EQU CRALKACT+3 02820000 CRALEV05 EQU CRALKACT+3 02821000 CRALEV06 EQU CRALKACT+3 02822000 CRALEV07 EQU CRALKACT+3 02823000 CRALEV08 EQU CRALKACT+3 02824000 CRALEV09 EQU CRALKACT+2 02825000 CRALEV10 EQU CRALKACT+2 02826000 CRALEV11 EQU CRALKACT+2 02827000 CRALEV12 EQU CRALKACT+2 02828000 CRALEV13 EQU CRALKACT+2 02829000 CRALEV14 EQU CRALKACT+2 02830000 CRALEV15 EQU CRALKACT+2 02831000 CRALEV16 EQU CRALKACT+2 02832000 CRALEV17 EQU CRALKACT+1 02833000 CRALEV18 EQU CRALKACT+1 02834000 CRALEV19 EQU CRALKACT+1 02835000 CRALEV20 EQU CRALKACT+1 02836000 CRALEV21 EQU CRALKACT+1 02837000 CRALEV22 EQU CRALKACT+1 02838000 CRALEV23 EQU CRALKACT+1 02839000 CRALEV24 EQU CRALKACT+1 02840000 CRALEV25 EQU CRALKACT 02841000 CRALEV26 EQU CRALKACT 02842000 CRALEV27 EQU CRALKACT 02843000 CRALEV28 EQU CRALKACT 02844000 CRALEV29 EQU CRALKACT 02845000 CRALEV30 EQU CRALKACT 02846000 CRALEV31 EQU CRALKACT 02847000 CRALEV32 EQU CRALKACT 02848000 CRAFRR EQU CRAHDR+4 02849000 CRACRR EQU CRAHDR 02850000 @NM00083 EQU ISTAPCRR+137 02851000 @NM00082 EQU APC57FLG 02852000 APCNREL EQU APC57FLG 02853000 APCRECRA EQU APC57FLG 02854000 @NM00081 EQU APC54FLG 02855000 APCRLST EQU APC54FLG 02856000 APCPR153 EQU APC53FLG 02857000 @NM00080 EQU APC52FLG 02858000 APCWKF EQU APC52FLG 02859000 APCNWF EQU APC52FLG 02860000 APCRDQ EQU APC52FLG 02861000 APCQENQ EQU APC52FLG 02862000 APCSMSR EQU APC52FLG 02863000 APCCKRQ EQU APC52FLG 02864000 @NM00079 EQU APC31FLG 02865000 APCSORT EQU APC31FLG 02866000 APCRESCH EQU APC31FLG 02867000 APCTPXIT EQU APC31FLG 02868000 APCSWTWD EQU ISTAPCRR+128 02869000 APCSAV2 EQU ISTAPCRR+124 02870000 APCSAV1 EQU ISTAPCRR+120 02871000 APCRETCD EQU APCCOMF+2 02872000 @NM00078 EQU APCCOMF1+1 02873000 APCZLBER EQU APCCOMF1 02874000 APCEXIT EQU APCCOMF1 02875000 APCRELR EQU APCCOMF1 02876000 APCIRB2 EQU APCCOMF1 02877000 APCIRB1 EQU APCCOMF1 02878000 APCSMCR EQU APCCOMF1 02879000 APCUETSK EQU APCCOMF1 02880000 APCSSTSK EQU APCCOMF1 02881000 APCESTAL EQU APCSAVE 02882000 APCFRRPM EQU ISTAPCRR+40 02883000 APCQWFO EQU ISTAPCRR+36 02884000 APCPABSV EQU ISTAPCRR+32 02885000 APCRTRN EQU ISTAPCRR+28 02886000 APCTCBA EQU ISTAPCRR+24 02887000 APCPSTA EQU ISTAPCRR+20 02888000 @NM00077 EQU APCRFLG+1 02889000 APC31R EQU APCRFLG 02890000 APC58R EQU APCRFLG 02891000 APC57R EQU APCRFLG 02892000 APC56R EQU APCRFLG 02893000 APC54R EQU APCRFLG 02894000 APC53R EQU APCRFLG 02895000 APC52R EQU APCRFLG 02896000 APC51R EQU APCRFLG 02897000 @NM00076 EQU APCATFLG+1 02898000 APC31E EQU APCATFLG 02899000 APC58E EQU APCATFLG 02900000 APC57E EQU APCATFLG 02901000 APC56E EQU APCATFLG 02902000 APC54E EQU APCATFLG 02903000 APC53E EQU APCATFLG 02904000 APC52E EQU APCATFLG 02905000 APC51E EQU APCATFLG 02906000 APCHDRSV EQU ISTAPCRR 02907000 ASCPSREG EQU ISTASCRR+44 02908000 ASCUSR01 EQU ASCUSRGS+12 02909000 ASCUSR00 EQU ASCUSRGS+8 02910000 ASCUSR15 EQU ASCUSRGS+4 02911000 ASCUSR14 EQU ASCUSRGS 02912000 ASCETRYA EQU ISTASCRR+24 02913000 ASCKEY EQU ISTASCRR+23 02914000 ASCAUDIT EQU ASCFLG3 02915000 ASCFBDUD EQU ASCFLG3 02916000 ASCLLKF EQU ASCFLG3 02917000 ASCKEYF EQU ASCFLG3 02918000 ASCFBDAL EQU ASCFLG3 02919000 ASCFSRGT EQU ASCFLG3 02920000 ASCICR EQU ASCFLG2 02921000 ASCFSRIC EQU ASCFLG2 02922000 ASCFBDIC EQU ASCFLG2 02923000 ASCFBAIC EQU ASCFLG2 02924000 ASCPASTR EQU ASCFLG1 02925000 ASCFSR EQU ASCFLG1 02926000 ASCFBD EQU ASCFLG1 02927000 ASCFBA EQU ASCFLG1 02928000 ASCPFCRR EQU ISTASCRR 02929000 ZCRRU EQU ZCRRHRU+3 02930000 ZCRRH EQU ZCRRHRU 02931000 ZCRWORDA EQU ISTZCRR+477 02932000 ZCRCMNRC EQU ISTZCRR+476 02933000 ZCRRSV97 EQU ZCRENTER+18 02934000 ZCREIC2B EQU ZCRENTER+18 02935000 ZCREAC2B EQU ZCRENTER+18 02936000 ZCRELCAB EQU ZCRENTER+18 02937000 ZCREDCMF EQU ZCRENTER+18 02938000 ZCREBCIF EQU ZCRENTER+18 02939000 ZCREICSG EQU ZCRENTER+18 02940000 ZCREDCK0 EQU ZCRENTER+18 02941000 ZCRECFY0 EQU ZCRENTER+17 02942000 ZCREKCCB EQU ZCRENTER+17 02943000 ZCREDCNB EQU ZCRENTER+17 02944000 ZCREICOE EQU ZCRENTER+17 02945000 ZCREBCNB EQU ZCRENTER+17 02946000 ZCREBC0L EQU ZCRENTER+17 02947000 ZCREBCAL EQU ZCRENTER+17 02948000 ZCREDCQR EQU ZCRENTER+17 02949000 ZCREDCPR EQU ZCRENTER+16 02950000 ZCREBCSB EQU ZCRENTER+16 02951000 ZCREAC1R EQU ZCRENTER+16 02952000 ZCRECCCI EQU ZCRENTER+16 02953000 ZCRECCAI EQU ZCRENTER+16 02954000 ZCRECCBI EQU ZCRENTER+16 02955000 ZCREBCAR EQU ZCRENTER+16 02956000 ZCREBCDR EQU ZCRENTER+16 02957000 ZCREBCBR EQU ZCRENTER+15 02958000 ZCREDCXR EQU ZCRENTER+15 02959000 ZCREDCWB EQU ZCRENTER+15 02960000 ZCREDCWR EQU ZCRENTER+15 02961000 ZCREKCCN EQU ZCRENTER+15 02962000 ZCREKCBN EQU ZCRENTER+15 02963000 ZCREKCBB EQU ZCRENTER+15 02964000 ZCREJC0B EQU ZCRENTER+15 02965000 ZCREJCDB EQU ZCRENTER+14 02966000 ZCREJCCB EQU ZCRENTER+14 02967000 ZCREJCBB EQU ZCRENTER+14 02968000 ZCREJCAB EQU ZCRENTER+14 02969000 ZCREIC1B EQU ZCRENTER+14 02970000 ZCREIC0B EQU ZCRENTER+14 02971000 ZCREICX0 EQU ZCRENTER+14 02972000 ZCREICWB EQU ZCRENTER+14 02973000 ZCREICVB EQU ZCRENTER+13 02974000 ZCREICUB EQU ZCRENTER+13 02975000 ZCREICTB EQU ZCRENTER+13 02976000 ZCREICSC EQU ZCRENTER+13 02977000 ZCREICSB EQU ZCRENTER+13 02978000 ZCREICRB EQU ZCRENTER+13 02979000 ZCREICQB EQU ZCRENTER+13 02980000 ZCREICQA EQU ZCRENTER+13 02981000 ZCREICOB EQU ZCRENTER+12 02982000 ZCREICOA EQU ZCRENTER+12 02983000 ZCREICNB EQU ZCRENTER+12 02984000 ZCREICNA EQU ZCRENTER+12 02985000 ZCREICMB EQU ZCRENTER+12 02986000 ZCREICLB EQU ZCRENTER+12 02987000 ZCREICKG EQU ZCRENTER+12 02988000 ZCREICKE EQU ZCRENTER+12 02989000 ZCREICKB EQU ZCRENTER+11 02990000 ZCREICJB EQU ZCRENTER+11 02991000 ZCREICID EQU ZCRENTER+11 02992000 ZCREICIB EQU ZCRENTER+11 02993000 ZCREICHB EQU ZCRENTER+11 02994000 ZCREICGB EQU ZCRENTER+11 02995000 ZCREICEB EQU ZCRENTER+11 02996000 ZCREICDB EQU ZCRENTER+11 02997000 ZCREICCI EQU ZCRENTER+10 02998000 ZCREICCB EQU ZCRENTER+10 02999000 ZCREICBI EQU ZCRENTER+10 03000000 ZCREICBB EQU ZCRENTER+10 03001000 ZCREICAB EQU ZCRENTER+10 03002000 ZCREICAA EQU ZCRENTER+10 03003000 ZCREHCAN EQU ZCRENTER+10 03004000 ZCREGC0B EQU ZCRENTER+10 03005000 ZCREGC0A EQU ZCRENTER+9 03006000 ZCREGCLA EQU ZCRENTER+9 03007000 ZCREGCEB EQU ZCRENTER+9 03008000 ZCREGCDB EQU ZCRENTER+9 03009000 @NM00075 EQU ZCRENTER+9 03010000 ZCREGCBB EQU ZCRENTER+9 03011000 ZCREGCAB EQU ZCRENTER+9 03012000 ZCREFCEB EQU ZCRENTER+9 03013000 ZCREFCEA EQU ZCRENTER+8 03014000 ZCREECTA EQU ZCRENTER+8 03015000 ZCREECEA EQU ZCRENTER+8 03016000 ZCREECDA EQU ZCRENTER+8 03017000 ZCREECCB EQU ZCRENTER+8 03018000 ZCREECCA EQU ZCRENTER+8 03019000 ZCREECBB EQU ZCRENTER+8 03020000 ZCREECBA EQU ZCRENTER+8 03021000 ZCREDCMB EQU ZCRENTER+7 03022000 ZCREDCL0 EQU ZCRENTER+7 03023000 ZCREDCKB EQU ZCRENTER+7 03024000 ZCREDCKA EQU ZCRENTER+7 03025000 ZCREDCJ0 EQU ZCRENTER+7 03026000 ZCREDCI0 EQU ZCRENTER+7 03027000 ZCREDCH0 EQU ZCRENTER+7 03028000 ZCREDCF0 EQU ZCRENTER+7 03029000 ZCREDCE0 EQU ZCRENTER+6 03030000 ZCREDCD0 EQU ZCRENTER+6 03031000 ZCREDCC0 EQU ZCRENTER+6 03032000 ZCREDCB0 EQU ZCRENTER+6 03033000 ZCREDCA0 EQU ZCRENTER+6 03034000 ZCRECC2B EQU ZCRENTER+6 03035000 ZCRECC1B EQU ZCRENTER+6 03036000 ZCRECC1A EQU ZCRENTER+6 03037000 ZCRECC0B EQU ZCRENTER+5 03038000 ZCRECC0A EQU ZCRENTER+5 03039000 ZCREBC0B EQU ZCRENTER+5 03040000 ZCREBC0A EQU ZCRENTER+5 03041000 ZCREBCZ0 EQU ZCRENTER+5 03042000 ZCREBCY0 EQU ZCRENTER+5 03043000 ZCREBCX0 EQU ZCRENTER+5 03044000 ZCREBCXA EQU ZCRENTER+5 03045000 ZCREBCSC EQU ZCRENTER+4 03046000 ZCREBCRB EQU ZCRENTER+4 03047000 ZCREBCRA EQU ZCRENTER+4 03048000 ZCREBCQB EQU ZCRENTER+4 03049000 ZCREBCPB EQU ZCRENTER+4 03050000 ZCREBCOB EQU ZCRENTER+4 03051000 ZCREBCNE EQU ZCRENTER+4 03052000 ZCREBCND EQU ZCRENTER+4 03053000 ZCREBCMB EQU ZCRENTER+3 03054000 ZCREBCLB EQU ZCRENTER+3 03055000 ZCREBCLA EQU ZCRENTER+3 03056000 ZCREBCKB EQU ZCRENTER+3 03057000 ZCREBCKA EQU ZCRENTER+3 03058000 ZCREBCJB EQU ZCRENTER+3 03059000 ZCREBCJA EQU ZCRENTER+3 03060000 ZCREBCID EQU ZCRENTER+3 03061000 ZCREBCIB EQU ZCRENTER+2 03062000 ZCREBCIA EQU ZCRENTER+2 03063000 ZCREBCHB EQU ZCRENTER+2 03064000 ZCREBCHA EQU ZCRENTER+2 03065000 ZCREBCGB EQU ZCRENTER+2 03066000 ZCREBCGA EQU ZCRENTER+2 03067000 ZCREBCFB EQU ZCRENTER+2 03068000 ZCREBCFA EQU ZCRENTER+2 03069000 ZCREBCEB EQU ZCRENTER+1 03070000 ZCREBCDI EQU ZCRENTER+1 03071000 ZCREBCCB EQU ZCRENTER+1 03072000 ZCREBCBI EQU ZCRENTER+1 03073000 ZCREBCBB EQU ZCRENTER+1 03074000 ZCREBCBA EQU ZCRENTER+1 03075000 ZCREBCAM EQU ZCRENTER+1 03076000 ZCREBCAI EQU ZCRENTER+1 03077000 ZCREBCAG EQU ZCRENTER 03078000 ZCREBCAE EQU ZCRENTER 03079000 ZCREBCAB EQU ZCRENTER 03080000 ZCREBCAA EQU ZCRENTER 03081000 ZCREAC1B EQU ZCRENTER 03082000 ZCREAC0B EQU ZCRENTER 03083000 ZCREAC0A EQU ZCRENTER 03084000 ZCREAC1A EQU ZCRENTER 03085000 ZCRTNAME EQU ZCRAUDIT+1 03086000 ZCRTID EQU ZCRAUDIT 03087000 ZCRREMIC EQU ISTZCRR+436 03088000 ZCRSAVEZ EQU ISTZCRR+196 03089000 ZCRDAFSV EQU ZCRCIDSV+2 03090000 ZCRSAFSV EQU ZCRCIDSV 03091000 ZCRR13SV EQU ISTZCRR+188 03092000 ZCRR2SV EQU ISTZCRR+184 03093000 ZCROPCDE EQU ISTZCRR+183 03094000 ZCRPRMTC EQU ISTZCRR+182 03095000 ZCRRCDSV EQU ISTZCRR+181 03096000 ZCRAWQSW EQU ISTZCRR+180 03097000 ZCRTOPQ EQU ISTZCRR+180 03098000 ZCRLSTFB EQU ISTZCRR+180 03099000 ZCRXSCHD EQU ISTZCRR+180 03100000 ZCRNXTEL EQU ISTZCRR+180 03101000 ZCRSCANQ EQU ISTZCRR+180 03102000 ZCRMOREL EQU ISTZCRR+180 03103000 ZCRFBPRC EQU ISTZCRR+180 03104000 ZCRFSBSV EQU ISTZCRR+176 03105000 ZCRSVWK5 EQU ZCRWKARA+16 03106000 ZCRSVWK4 EQU ZCRWKARA+12 03107000 ZCRSVWK3 EQU ZCRWKARA+8 03108000 ZCRSVWK2 EQU ZCRWKARA+4 03109000 ZCRSVWK1 EQU ZCRWKARA 03110000 ZCRSVF25 EQU ZCRSVRTN+96 03111000 ZCRSVF24 EQU ZCRSVRTN+92 03112000 ZCRSVF23 EQU ZCRSVRTN+88 03113000 ZCRSVF22 EQU ZCRSVRTN+84 03114000 ZCRSVF21 EQU ZCRSVRTN+80 03115000 ZCRSVF20 EQU ZCRSVRTN+76 03116000 ZCRSVF19 EQU ZCRSVRTN+72 03117000 ZCRSVF18 EQU ZCRSVRTN+68 03118000 ZCRSVF17 EQU ZCRSVRTN+64 03119000 ZCRSVF16 EQU ZCRSVRTN+60 03120000 ZCRSVF15 EQU ZCRSVRTN+56 03121000 ZCRSVF14 EQU ZCRSVRTN+52 03122000 ZCRSVF13 EQU ZCRSVRTN+48 03123000 ZCRSVF12 EQU ZCRSVRTN+44 03124000 ZCRSVF11 EQU ZCRSVRTN+40 03125000 ZCRSVF10 EQU ZCRSVRTN+36 03126000 ZCRSVF9 EQU ZCRSVRTN+32 03127000 ZCRSVF8 EQU ZCRSVRTN+28 03128000 ZCRSVF7 EQU ZCRSVRTN+24 03129000 ZCRSVF6 EQU ZCRSVRTN+20 03130000 ZCRSVF5 EQU ZCRSVRTN+16 03131000 ZCRSVF4 EQU ZCRSVRTN+12 03132000 ZCRSVF3 EQU ZCRSVRTN+8 03133000 ZCRSVF2 EQU ZCRSVRTN+4 03134000 ZCRSVF1 EQU ZCRSVRTN 03135000 ZCRPVZB EQU ISTZCRR+52 03136000 ZCRZLB EQU ISTZCRR+48 03137000 ZCRBFPTR EQU ISTZCRR+44 03138000 ZCRCCWA EQU ISTZCRR+40 03139000 ZCRPSW EQU ZCRPARMS+15 03140000 ZCRPCHAR EQU ZCRPARMS+14 03141000 ZCRPRES2 EQU ZCRPCOD2 03142000 ZCRPMFGF EQU ZCRPCOD2 03143000 ZCRPFHDR EQU ZCRPCOD2 03144000 ZCRPPG2 EQU ZCRPCOD2 03145000 ZCRPRES EQU ZCRPCOD1 03146000 ZCRPCFTX EQU ZCRPCOD1 03147000 ZCRPBUF EQU ZCRPCOD1 03148000 ZCRPLSCB EQU ZCRPCOD1 03149000 ZCRPLSBQ EQU ZCRPLSBF 03150000 ZCRPFSB EQU ZCRPCOD1 03151000 ZCRPLNG EQU ZCRPCOD1 03152000 ZCRPPG EQU ZCRPCOD1 03153000 ZCRDTODA EQU ZCRDFRDA 03154000 ZCRMLNG EQU ZCRPARMS+8 03155000 ZCRTBPTR EQU ZCRPARMS+4 03156000 ZCRCBPTR EQU ZCRFBPTR 03157000 ZCRCRLCP EQU ISTZCRR+20 03158000 @NM00074 EQU ZCRSCPSW 03159000 ZCRSKIPT EQU ZCRSCPSW 03160000 ZCRFSBWE EQU ZCRSCPSW 03161000 ZCRPRCMP EQU ZCRSCPSW 03162000 ZCRLREQ EQU ZCRSCPSW 03163000 ZCRRJLCP EQU ZCRSCPSW 03164000 ZCRTPINV EQU ZCRSCPSW 03165000 ZCRTPEX EQU ZCRSCPSW 03166000 @NM00073 EQU ZCRIBPR 03167000 ZCR3270R EQU ZCRIBPR 03168000 ZCR3270 EQU ZCRIBPR 03169000 ZCRLCPFD EQU ZCRIBPR 03170000 ZCRLCPFR EQU ZCRIBPR 03171000 ZCRRELK EQU ZCRIBPR 03172000 ZCRERR EQU ZCRIBPR 03173000 ZCRNOBUF EQU ZCRIBPR 03174000 @NM00072 EQU ZCRPFLGS 03175000 ZCRQAHED EQU ZCRPFLGS 03176000 ZCRF1RES EQU ZCRGENSW 03177000 ZCRBRIS EQU ZCRGENSW 03178000 ZCRCLRBD EQU ZCRGENSW 03179000 ZCREXRES EQU ZCRGENSW 03180000 ZCRLCSYN EQU ZCRGENSW 03181000 ZCRRT06 EQU ZCRGENSW 03182000 ZCRTSW2 EQU ZCRGENSW 03183000 ZCRTSW1 EQU ZCRGENSW 03184000 ZCRINLCP EQU ZCRFLGS3 03185000 ZCRWRPTR EQU ZCRFLGS3 03186000 ZCRNOFRE EQU ZCRFLGS3 03187000 ZCREDRIV EQU ZCRFLGS3 03188000 ZCRDISC EQU ZCRFLGS3 03189000 ZCRTPDIS EQU ZCRFLGS3 03190000 ZCRTPCON EQU ZCRFLGS3 03191000 ZCRTIC EQU ZCRFLGS3 03192000 ZCRCNLXL EQU ZCRRESET 03193000 ZCRENDAN EQU ZCRSWFLD 03194000 ZCRENDXL EQU ZCRSWFLD 03195000 ZCRENDX EQU ZCRSWFLD 03196000 ZCROB1 EQU ZCRNDLCP 03197000 ZCRENDPR EQU ZCRSWFLD 03198000 ZCREXTYP EQU ZCRSWFLD 03199000 ZCRSLCP EQU ZCRENDSH 03200000 ZCRIF0E3 EQU ZCRFLGS2 03201000 ZCRIF0E2 EQU ZCRFLGS2 03202000 ZCRIF0E1 EQU ZCRFLGS2 03203000 ZCROB EQU ZCRFLGS2 03204000 ZCRFMSED EQU ZCRFLGS2 03205000 ZCRSHEDI EQU ZCRFLGS2 03206000 ZCRLOCAL EQU ZCRFLGS2 03207000 ZCRFEXIT EQU ZCRFLGS1 03208000 ZCRUNSOL EQU ZCRFLGS1 03209000 ZCRENDLP EQU ZCRFLGS1 03210000 ZCRNRMEX EQU ZCRFLGS1 03211000 ZCRWAIT EQU ZCRFLGS1 03212000 ZCRDEQSW EQU ZCRFLGS1 03213000 ZCRQUESW EQU ZCRFLGS1 03214000 ZCREXSW EQU ZCRFLGS1 03215000 ZCRFRRA EQU ISTZCRR+8 03216000 ZCRCHAIN EQU ISTZCRR+4 03217000 ZCRFLAG EQU ZCRCRR+3 03218000 ZCRLEN EQU ZCRCRR+1 03219000 ZCRID EQU ZCRCRR 03220000 CCFRSVD1 EQU CFCCRT 03221000 CCFCR2 EQU CFCCRT 03222000 CCFCRP EQU CFCCRT 03223000 CCFCR1 EQU CFCCRT 03224000 CCFCS2 EQU CFCCRT 03225000 CCFCS1 EQU CFCCRT 03226000 NCFRSVD EQU CFCNTRD 03227000 NCFCR2 EQU CFCNTRD 03228000 NCFCRP EQU CFCNTRD 03229000 NCFCR1 EQU CFCNTRD 03230000 NCFCS2 EQU CFCNTRD 03231000 NCFCS1 EQU CFCNTRD 03232000 PFCRSV01 EQU ISTPFCRR+13 03233000 PFCFTA EQU ISTPFCRR+12 03234000 CRRFRR EQU PFCFRRO 03235000 CRRCHAIN EQU PFCCRRO 03236000 CRRLEN EQU PFCCRRLN 03237000 PFCRSV10 EQU PFCCRR+1 03238000 CRRID EQU PFCCRRID 03239000 ZSAZTRAC EQU ISTZSAVE+36 03240000 ZSAZSVVR EQU ISTZSAVE+12 03241000 ZSAZSVRR EQU ISTZSAVE+8 03242000 ZSAZSVFC EQU ISTZSAVE+4 03243000 ZSAZACTV EQU ZSAZSVMS 03244000 LCPFTYPE EQU LCPRPHA 03245000 LCPRSTQH EQU LCPLCCW 03246000 LCPCLREP EQU ISTLCPB+44 03247000 LCPUBFSB EQU LCPFLCCW 03248000 LCPRSV77 EQU ISTLCPB+39 03249000 LCPLCCWC EQU ISTLCPB+38 03250000 LCPRSV78 EQU LCPFLG1 03251000 LCPTRANS EQU LCPFLG1 03252000 LCPSTLB EQU LCPFLG1 03253000 LCPREDRV EQU LCPFLG1 03254000 LCPDIRPT EQU LCPFLG1 03255000 LCPRESET EQU LCPFLG1 03256000 LCPSTYPE EQU ISTLCPB+36 03257000 LCPFSNCH EQU ISTLCPB+34 03258000 LCPFOSN EQU ISTLCPB+32 03259000 LCPTLBAD EQU ISTLCPB+28 03260000 LCPFDB2 EQU LCPFDBA+1 03261000 LCPFDB1 EQU LCPFDBA 03262000 LCPLCCW1 EQU ISTLCPB+12 03263000 LCPRRCNT EQU LCPSEQ+1 03264000 LCPRRCCT EQU LCPSEQ 03265000 LCPATOP EQU LCPFLAG2 03266000 LCPFREE EQU LCPFLAG2 03267000 LCPDSTAT EQU LCPFLAG2 03268000 LCPEXRES EQU LCPFID0 03269000 LCPZRIMM EQU LCPTLBPI 03270000 LCPRSTRT EQU LCPFLAG2 03271000 LCPASYN EQU LCPFLAG2 03272000 LCPPRFLG EQU LCPFLAG2 03273000 LCPZMIRC EQU LCPRUCNT 03274000 LCPCHAI2 EQU LCPCHAIN+1 03275000 LCPCHNG EQU LCPCHAI1 03276000 LCPZRT0B EQU LCPMNRCD 03277000 LCPZRT0A EQU LCPMNRCD 03278000 LCPZRTL9 EQU LCPZRT09 03279000 LCPZRTL8 EQU LCPZRT08 03280000 LCPZRTL7 EQU LCPZRT07 03281000 LCPZRTL6 EQU LCPZRT06 03282000 LCPZRTL5 EQU LCPZRT05 03283000 LCPZRTL4 EQU LCPZRT04 03284000 LCPZRTL3 EQU LCPZRT03 03285000 LCPZRTL2 EQU LCPZRT02 03286000 LCPZRT01 EQU LCPFLAGS 03287000 LCPZRT00 EQU LCPFLAGS 03288000 LCCWDATA EQU ISTLCCW+4 03289000 LCCWCNT EQU ISTLCCW+2 03290000 LCCWACI EQU LCCWFLAG 03291000 LCCWRFI EQU LCCWFLAG 03292000 LCCWPER EQU LCCWLSI 03293000 LCCWIDAT EQU LCCWFLAG 03294000 LCCWNTVC EQU LCCWFLAG 03295000 LCCWCKPT EQU LCCWFLAG 03296000 LCCWCC EQU LCCWFLAG 03297000 LCCWCD EQU LCCWFLAG 03298000 LCCWTYPE EQU LCCWCTL 03299000 LCCWMODE EQU LCCWCTL 03300000 LCCWSOP EQU LCCWRWOP 03301000 @NM00071 EQU LCCWRWOP 03302000 LCCWSD EQU LCCWOP 03303000 LCCWSI EQU LCCWOP 03304000 CRRRVPT5 EQU CRRSAREA+316 03305000 CRRRVPT4 EQU CRRSAREA+312 03306000 CRRRVPT3 EQU CRRSAREA+308 03307000 CRRRVPT2 EQU CRRSAREA+304 03308000 CRRRVPT1 EQU CRRSAREA+300 03309000 CRRRVCR2 EQU CRRSAREA+292 03310000 CRRRVCR1 EQU CRRSAREA+291 03311000 CRRXFNCD EQU CRRSAREA+290 03312000 CRRLDOCT EQU CRRSAREA+288 03313000 CRRBTLEN EQU CRRSAREA+284 03314000 CRRBLEN EQU CRRSAREA+282 03315000 CRRBRTCD EQU CRRSAREA+281 03316000 @NM00070 EQU CRRBFLGS 03317000 CRRBFLG1 EQU CRRBFLGS 03318000 CRRBLDAD EQU CRRSAREA+276 03319000 CRRBARAD EQU CRRSAREA+272 03320000 CRRRTN12 EQU CRRSAREA+268 03321000 CRRRTN11 EQU CRRSAREA+264 03322000 CRRRTN10 EQU CRRSAREA+260 03323000 CRRRTN9 EQU CRRSAREA+256 03324000 CRRRTN8 EQU CRRSAREA+252 03325000 CRRRTN7 EQU CRRSAREA+248 03326000 CRRRTN6 EQU CRRSAREA+244 03327000 CRRRTN5 EQU CRRSAREA+240 03328000 CRRRTN3 EQU CRRSAREA+232 03329000 CRRRES1 EQU CRRSAREA+222 03330000 CRRLCNT EQU CRRSAREA+220 03331000 CRRVALCK EQU CRRSAREA+212 03332000 CRRBIND EQU CRRTRBUF+3 03333000 CRRTRRES EQU CRRTRBUF 03334000 CRRCLDO EQU CRRSAREA+200 03335000 CRRUECB EQU CRRSAREA+196 03336000 CRRLCPB EQU CRRSAREA+192 03337000 CRRCMDAD EQU CRRSAREA+188 03338000 CRRCLCCW EQU CRRSAREA+180 03339000 CRRESR2 EQU CRRESR+1 03340000 CRRESR1 EQU CRRESR 03341000 CRRDSB2 EQU CRRDSB+1 03342000 CRRDSB1 EQU CRRDSB 03343000 CRRDTACT EQU CRRSAREA+174 03344000 CRRRSV99 EQU CRRSAREA+173 03345000 CRRRDSOH EQU CRRFDB3 03346000 CRRRLG EQU CRRFDB3 03347000 CRRLGFRC EQU CRRFDB3 03348000 CRRRDEOT EQU CRRFDB3 03349000 CRRRDEOM EQU CRRFDB3 03350000 CRRRDEOB EQU CRRFDB3 03351000 CRRUNUSD EQU CRRFDB3 03352000 CRRUINPT EQU CRRFDB3 03353000 CRRSTSAV EQU CRRFDB2 03354000 CRRCUERR EQU CRRFDB2 03355000 CRRDLGFL EQU CRRFDB2 03356000 CRRIOERR EQU CRRFDB2 03357000 CRRDVUNS EQU CRRFDB2 03358000 CRRATND EQU CRRFDB2 03359000 CRRRVID EQU CRRFDB2 03360000 CRRERLK EQU CRRFDB2 03361000 CRRRTNCD EQU CRRFDBK1 03362000 CRRNSNA EQU CRRRTYPE 03363000 CRRDFSYN EQU CRRRTYPE 03364000 CRRRESP EQU CRRRTYPE 03365000 CRRDFASY EQU CRRRTYPE 03366000 CRRDBLCK EQU CRRRFLG1 03367000 CRRRPSBD EQU CRRRFLG1 03368000 CRRRPLOQ EQU CRRRFLG1 03369000 CRRRPLS EQU CRRRFLG1 03370000 CRRSW7 EQU CRRFLGS 03371000 CRRSW6 EQU CRRFLGS 03372000 CRRSW5 EQU CRRFLGS 03373000 CRRSW4 EQU CRRFLGS 03374000 CRRSW3 EQU CRRFLGS 03375000 CRRSW0 EQU CRRFLGS 03376000 CRRRSV04 EQU CRRFLGS4 03377000 CRRDLCCW EQU CRRFLGS3 03378000 CRRRESET EQU CRRFLGS3 03379000 CRRSUBBK EQU CRRFLGS3 03380000 CRRRSV08 EQU CRRFLGS3 03381000 CRRDEBQ EQU CRRFLGS3 03382000 CRRSTSPR EQU CRRFLGS3 03383000 CRRDREQ EQU CRRFLGS3 03384000 CRRDFDBK EQU CRRFLGS3 03385000 CRRDFSB EQU CRRFLGS2 03386000 CRRDPROC EQU CRRFLGS2 03387000 CRREXTS EQU CRRFLGS2 03388000 CRRELSRI EQU CRRFLGS2 03389000 CRRPOST EQU CRRFLGS2 03390000 CRRENDLW EQU CRRFLGS2 03391000 CRRPRGIP EQU CRRFLGS2 03392000 CRRDEXP EQU CRRFLGS2 03393000 CRRSOLRQ EQU CRRFLGS1 03394000 CRRREQP EQU CRRFLGS1 03395000 CRRCPROC EQU CRRFLGS1 03396000 CRRFINI EQU CRRFLGS1 03397000 CRRPREIO EQU CRRFLGS1 03398000 CRRINIO EQU CRRFLGS1 03399000 CRRFLDOS EQU CRRFLGS1 03400000 CRRDOCUR EQU CRRFLGS1 03401000 CRRRATS4 EQU CRRATS+7 03402000 @NM00069 EQU CRRSATS 03403000 CRRASC51 EQU CRRSATS 03404000 CRRASC40 EQU CRRSATS 03405000 CRRASC30 EQU CRRSATS 03406000 CRRASC21 EQU CRRSATS 03407000 CRRASC10 EQU CRRSATS 03408000 CRRASC01 EQU CRRSATS 03409000 @NM00068 EQU CRRRATS2 03410000 CRRPLIC EQU CRRRATS2 03411000 CRRRC81 EQU CRRRATS2 03412000 CRRRC80 EQU CRRRATS2 03413000 CRRRC65 EQU CRRRATS2 03414000 CRRRC63 EQU CRRRATS2 03415000 CRRRC55 EQU CRRRATS2 03416000 CRRRC54 EQU CRRRATS2 03417000 CRRRC53 EQU CRRRATS1 03418000 CRRRC52 EQU CRRRATS1 03419000 CRRRC51 EQU CRRRATS1 03420000 CRRRC30 EQU CRRRATS1 03421000 CRRRC26 EQU CRRRATS1 03422000 CRRRC23 EQU CRRRATS1 03423000 CRRRC22 EQU CRRRATS1 03424000 CRRRC21 EQU CRRRATS1 03425000 @NM00067 EQU CRRATS4 03426000 CRRC3X EQU CRRATS4 03427000 CRRC85 EQU CRRATS4 03428000 CRRC83 EQU CRRATS4 03429000 CRRC82 EQU CRRATS4 03430000 CRRC61 EQU CRRATS4 03431000 CRRC60 EQU CRRATS4 03432000 CRRC81 EQU CRRATS3 03433000 CRRC75 EQU CRRATS3 03434000 CRRC51 EQU CRRATS3 03435000 CRRC50 EQU CRRATS3 03436000 CRRC42 EQU CRRATS3 03437000 CRRC41 EQU CRRATS3 03438000 CRRC40 EQU CRRATS3 03439000 CRRC32 EQU CRRATS2 03440000 CRRC31 EQU CRRATS2 03441000 CRRC30 EQU CRRATS2 03442000 CRRC25 EQU CRRATS2 03443000 CRRC24 EQU CRRATS2 03444000 CRRC23 EQU CRRATS2 03445000 CRRC22 EQU CRRATS2 03446000 CRRC21 EQU CRRATS2 03447000 CRRC20 EQU CRRATS1 03448000 CRRC13 EQU CRRATS1 03449000 CRRC12 EQU CRRATS1 03450000 CRRC11 EQU CRRATS1 03451000 CRRC10 EQU CRRATS1 03452000 CRRC02 EQU CRRATS1 03453000 CRRC01 EQU CRRATS1 03454000 CRRC00 EQU CRRATS1 03455000 CRRRMAS4 EQU CRRMAS+7 03456000 @NM00066 EQU CRRSMAS 03457000 CRRMSC51 EQU CRRSMAS 03458000 CRRMSC40 EQU CRRSMAS 03459000 CRRMSC30 EQU CRRSMAS 03460000 CRRMSC21 EQU CRRSMAS 03461000 CRRMSC10 EQU CRRSMAS 03462000 CRRMSC01 EQU CRRSMAS 03463000 @NM00065 EQU CRRRMAS2 03464000 CRRRM81 EQU CRRRMAS2 03465000 CRRRM80 EQU CRRRMAS2 03466000 CRRRM65 EQU CRRRMAS2 03467000 CRRRM63 EQU CRRRMAS2 03468000 CRRRM55 EQU CRRRMAS2 03469000 CRRRM54 EQU CRRRMAS2 03470000 CRRRM53 EQU CRRRMAS1 03471000 CRRRM52 EQU CRRRMAS1 03472000 CRRRM51 EQU CRRRMAS1 03473000 CRRRM30 EQU CRRRMAS1 03474000 CRRRM26 EQU CRRRMAS1 03475000 CRRRM23 EQU CRRRMAS1 03476000 CRRRM22 EQU CRRRMAS1 03477000 CRRRM21 EQU CRRRMAS1 03478000 @NM00064 EQU CRRMAS4 03479000 CRRM3X EQU CRRMAS4 03480000 CRRM85 EQU CRRMAS4 03481000 CRRM83 EQU CRRMAS4 03482000 CRRM82 EQU CRRMAS4 03483000 CRRM61 EQU CRRMAS4 03484000 CRRM60 EQU CRRMAS4 03485000 CRRM81 EQU CRRMAS3 03486000 CRRM75 EQU CRRMAS3 03487000 CRRM51 EQU CRRMAS3 03488000 CRRM50 EQU CRRMAS3 03489000 CRRM42 EQU CRRMAS3 03490000 CRRM41 EQU CRRMAS3 03491000 CRRM40 EQU CRRMAS3 03492000 CRRM32 EQU CRRMAS2 03493000 CRRM31 EQU CRRMAS2 03494000 CRRM30 EQU CRRMAS2 03495000 CRRM25 EQU CRRMAS2 03496000 CRRM24 EQU CRRMAS2 03497000 CRRM23 EQU CRRMAS2 03498000 CRRM22 EQU CRRMAS2 03499000 CRRM21 EQU CRRMAS2 03500000 CRRM20 EQU CRRMAS1 03501000 CRRM13 EQU CRRMAS1 03502000 CRRM12 EQU CRRMAS1 03503000 CRRM11 EQU CRRMAS1 03504000 CRRM10 EQU CRRMAS1 03505000 CRRM02 EQU CRRMAS1 03506000 CRRM01 EQU CRRMAS1 03507000 CRRM00 EQU CRRMAS1 03508000 CRRFSB EQU CRRSAREA+144 03509000 CRRSAVE1 EQU CRRSAREA+72 03510000 CRRSAVE EQU CRRSAREA 03511000 CRRRSV22 EQU ISTDCCRR+4 03512000 ATCAOS EQU ISTATCVT+1584 03513000 ATCPOPAB EQU ATCAOSM+640 03514000 ATCVIOPM EQU ATCAOSM+636 03515000 ATCTPMMI EQU ATCAOSM+632 03516000 ATCTPMPB EQU ATCAOSM+600 03517000 ATCRSV88 EQU ATCAOSM+596 03518000 ATCRPLCT EQU ATCAOSM+594 03519000 ATCCRACT EQU ATCAOSM+592 03520000 ATCSRBCT EQU ATCAOSM+590 03521000 ATCRSV75 EQU ATCAOSM+589 03522000 ATCRSV66 EQU ATCZFLAG 03523000 ATCZF001 EQU ATCZFLAG 03524000 ATCTPCP1 EQU ATCAOSM+584 03525000 ATCTPCP0 EQU ATCAOSM+580 03526000 ATCAICTN EQU ATCAOSM+576 03527000 ATCZR01 EQU ATCAOSM+572 03528000 ATCMPLTA EQU ATCAOSM+568 03529000 ATCASCB EQU ATCAOSM+564 03530000 ATCAP86 EQU ATCAOSM+560 03531000 ATCAP85 EQU ATCAOSM+556 03532000 ATCAP84 EQU ATCAOSM+552 03533000 ATCAP83 EQU ATCAOSM+548 03534000 ATCAP82 EQU ATCAOSM+544 03535000 ATCAP69 EQU ATCAOSM+540 03536000 ATCAP66 EQU ATCAOSM+536 03537000 ATCAP62 EQU ATCAOSM+532 03538000 ATCAPC59 EQU ATCAOSM+528 03539000 ATCAP56 EQU ATCAOSM+524 03540000 ATCAP55 EQU ATCAOSM+520 03541000 ATCRCFY0 EQU ATCAOSM+516 03542000 ATCAP41 EQU ATCAOSM+512 03543000 ATCAPC25 EQU ATCAOSM+508 03544000 ATCAP23 EQU ATCAOSM+504 03545000 ATCTPSPB EQU ATCAOSM+472 03546000 ATCTRMPB EQU ATCAOSM+440 03547000 ATCAPBE EQU ATCAOSM+436 03548000 ATCPSTA EQU ATCAOSM+432 03549000 ATCSMABF EQU ATCAOSM+428 03550000 ATCSMAPR EQU ATCAOSM+424 03551000 ATCTPWQA EQU ATCAOSM+420 03552000 ATCSMAID EQU ATCAOSM+416 03553000 ATCSMARA EQU ATCAOSM+412 03554000 ATCCACXA EQU ATCAOSM+408 03555000 ATCZLAAB EQU ATCAOSM+404 03556000 ATCATA10 EQU ATCAOSM+400 03557000 ATCHLTCB EQU ATCAOSM+396 03558000 @NM00063 EQU ATCVTFLG 03559000 ATCVTACT EQU ATCVTFLG 03560000 ATCRPT40 EQU ATCAOSM+388 03561000 ATCRPT39 EQU ATCAOSM+384 03562000 ATCRPT38 EQU ATCAOSM+380 03563000 ATCRPT37 EQU ATCAOSM+376 03564000 ATCRPT36 EQU ATCAOSM+372 03565000 ATCRPT35 EQU ATCAOSM+368 03566000 ATCRPT34 EQU ATCAOSM+364 03567000 ATCRPT33 EQU ATCAOSM+360 03568000 ATCRPT32 EQU ATCAOSM+356 03569000 ATCRPT31 EQU ATCAOSM+352 03570000 ATCRPT30 EQU ATCAOSM+348 03571000 ATCRPT29 EQU ATCAOSM+344 03572000 ATCRPT28 EQU ATCAOSM+340 03573000 ATCRPT27 EQU ATCAOSM+336 03574000 ATCRPT26 EQU ATCAOSM+332 03575000 ATCRPT25 EQU ATCAOSM+328 03576000 ATCRPT24 EQU ATCAOSM+324 03577000 ATCRPT23 EQU ATCAOSM+320 03578000 ATCRPT22 EQU ATCAOSM+316 03579000 ATCRPT21 EQU ATCAOSM+312 03580000 ATCRPT20 EQU ATCAOSM+308 03581000 ATCRPT19 EQU ATCAOSM+304 03582000 ATCRPT18 EQU ATCAOSM+300 03583000 ATCRPT17 EQU ATCAOSM+296 03584000 ATCRPT16 EQU ATCAOSM+292 03585000 ATCRPT15 EQU ATCAOSM+288 03586000 ATCRPT14 EQU ATCAOSM+284 03587000 ATCRPT13 EQU ATCAOSM+280 03588000 ATCRPT12 EQU ATCAOSM+276 03589000 ATCDMAPP EQU ATCAOSM+272 03590000 ATCAP38 EQU ATCAOSM+268 03591000 ATCZDFJ0 EQU ATCAOSM+260 03592000 ATCAP51 EQU ATCAOSM+256 03593000 ATCZPAB2 EQU ATCAOSM+224 03594000 ATCZPAB1 EQU ATCAOSM+192 03595000 ATCZLFVT EQU ATCAOSM+188 03596000 ATCZLPVT EQU ATCAOSM+184 03597000 ATCZDVTX EQU ATCAOSM+180 03598000 ATCZDVTA EQU ATCAOSM+176 03599000 ATCZDVT9 EQU ATCAOSM+172 03600000 ATCZDVT8 EQU ATCAOSM+168 03601000 ATCZDVT7 EQU ATCAOSM+164 03602000 ATCRSV56 EQU ATCDAPVT+22 03603000 ATCDAPDG EQU ATCDAPVT+20 03604000 ATCDXCEA EQU ATCDAPVT+16 03605000 ATCDCEA EQU ATCDAPVT+12 03606000 ATCDPCIA EQU ATCDAPVT+8 03607000 ATCDSIOA EQU ATCDAPVT+4 03608000 ATCDEOEA EQU ATCDAPVT 03609000 ATCZLAEA EQU ATCLDAPP+16 03610000 ATCZLCEA EQU ATCLDAPP+12 03611000 ATCRSV17 EQU ATCLDAPP+8 03612000 ATCSMFRR EQU ATCLDAPP+4 03613000 ATCCDTID EQU ATCLDAPP 03614000 ATCZAEA EQU ATCICAPP+16 03615000 ATCZCEA EQU ATCICAPP+12 03616000 ATCCDTCB EQU ATCICAPP+8 03617000 ATCZSIOA EQU ATCICAPP+4 03618000 ATCCDRPH EQU ATCICAPP 03619000 ATCAP65 EQU ATCAOSM+96 03620000 ATCZDVT6 EQU ATCAOSM+92 03621000 ATCZDVT4 EQU ATCAOSM+88 03622000 ATCZDVT3 EQU ATCAOSM+84 03623000 ATCZDVT1 EQU ATCAOSM+80 03624000 ATCICNCB EQU ATCAOSM+76 03625000 ATCZPSVT EQU ATCAOSM+72 03626000 ATCZFSVT EQU ATCAOSM+68 03627000 ATCAP64 EQU ATCAOSM+64 03628000 ATCAP63 EQU ATCAOSM+60 03629000 ATCAP61 EQU ATCAOSM+56 03630000 ATCAP58 EQU ATCAOSM+52 03631000 ATCAP57 EQU ATCAOSM+48 03632000 ATCAP54 EQU ATCAOSM+44 03633000 ATCAP53 EQU ATCAOSM+40 03634000 ATCAP52 EQU ATCAOSM+36 03635000 ATCAP32 EQU ATCAOSM+28 03636000 ATCAP12 EQU ATCAOSM+20 03637000 ATCAP11 EQU ATCAOSM+16 03638000 ATCCMTCB EQU ATCAOSM+12 03639000 ATCPRPH EQU ATCAOSM+8 03640000 ATCGSRBF EQU ATCGSRBG 03641000 ATCSRBRT EQU ATCAOSM 03642000 @NM00062 EQU @NM00061 03643000 ATCVTMAB EQU @NM00061 03644000 @NM00060 EQU ATCVTBAM 03645000 ATCVDLOK EQU ISTATCVT+904 03646000 ATCVFPAB EQU ISTATCVT+872 03647000 ATCVDPAB EQU ISTATCVT+840 03648000 ATCIOECB EQU ISTATCVT+836 03649000 ATCINCW3 EQU ISTATCVT+832 03650000 ATCMODTB EQU ISTATCVT+828 03651000 ATCUSSPT EQU ISTATCVT+824 03652000 ATCSRTAB EQU ISTATCVT+820 03653000 @NM00059 EQU ISTATCVT+819 03654000 @NM00058 EQU ATCSTAT2 03655000 ATCTRSMS EQU ATCSTAT2 03656000 ATCTRLOK EQU ATCSTAT2 03657000 ATCTRPSS EQU ATCSTAT2 03658000 ATCTRESC EQU ATCSTAT2 03659000 ATCTRAPI EQU ATCSTAT2 03660000 ATCNMCTR EQU ISTATCVT+816 03661000 ATCSEC51 EQU ATCSECST 03662000 ATCSEC40 EQU ATCSIPD+8 03663000 ATCSEC30 EQU ATCSIPD+4 03664000 ATCSEC21 EQU ATCSIPD 03665000 ATCSEC10 EQU ATCSOPD+4 03666000 ATCSEC01 EQU ATCSOPD 03667000 ATCPOIA EQU ATCRNO+1 03668000 @NM00057 EQU ATCRNO 03669000 ATCPODVT EQU ISTATCVT+784 03670000 ATCS49XL EQU ISTATCVT+780 03671000 ATCS49XI EQU ISTATCVT+776 03672000 ATCLCLCT EQU ATCVLCNT+2 03673000 ATCRNCNT EQU ATCVLCNT 03674000 ATCCFEAD EQU ISTATCVT+768 03675000 ATCPTR00 EQU ISTATCVT+736 03676000 ATCRSV10 EQU ISTATCVT+704 03677000 ATCTACB EQU ISTATCVT+700 03678000 ATCVTINM EQU ISTATCVT+696 03679000 ATCTCLIM EQU ISTATCVT+692 03680000 ATCTCLOM EQU ISTATCVT+688 03681000 ATCVTIPB EQU ISTATCVT+656 03682000 ATCTCIPB EQU ISTATCVT+624 03683000 ATCTIPAB EQU ISTATCVT+592 03684000 ATCOCCCB EQU ISTATCVT+588 03685000 ATCOCCOB EQU ISTATCVT+584 03686000 ATCCDLAD EQU ISTATCVT+580 03687000 ATCCCLAD EQU ISTATCVT+576 03688000 ATCDLRPB EQU ISTATCVT+544 03689000 ATCPGPAB EQU ISTATCVT+512 03690000 ATCVPAB1 EQU ISTATCVT+480 03691000 ATCRSV97 EQU ISTATCVT+476 03692000 ATCRDTLK EQU ISTATCVT+472 03693000 ATCVOCLK EQU ISTATCVT+468 03694000 ATCCDFDN EQU ISTATCVT+464 03695000 ATCCDFIN EQU ISTATCVT+460 03696000 ATCDVTLK EQU ISTATCVT+456 03697000 ATCAP35 EQU ISTATCVT+448 03698000 ATCRSV99 EQU ISTATCVT+440 03699000 ATCONFIG EQU ISTATCVT+432 03700000 ATCNODDS EQU ISTATCVT+428 03701000 ATCNODEL EQU ISTATCVT+420 03702000 ATCRSV69 EQU ISTATCVT+416 03703000 ATCAPCR5 EQU ISTATCVT+412 03704000 ATCLDECB EQU ISTATCVT+408 03705000 ATCLDNCS EQU ISTATCVT+404 03706000 ATCCDPTR EQU ISTATCVT+400 03707000 ATCADEL EQU ISTATCVT+396 03708000 ATCTODVT EQU ISTATCVT+392 03709000 ATCDEBCH EQU ISTATCVT+388 03710000 ATCHBSIZ EQU ATCHPGM+2 03711000 ATCHBFNO EQU ATCHPGM 03712000 ATCCRME EQU ISTATCVT+380 03713000 ATCRVCHS EQU ISTATCVT+372 03714000 ATCECTLP EQU ISTATCVT+368 03715000 ATCZDVTB EQU ISTATCVT+364 03716000 ATCECPRT EQU ISTATCVT+360 03717000 ATCVTLOD EQU ISTATCVT+356 03718000 ATCTRPAB EQU ISTATCVT+352 03719000 ATCMSGM EQU ISTATCVT+348 03720000 ATCMSGP EQU ISTATCVT+344 03721000 ATCEPT EQU ISTATCVT+340 03722000 ATCDVT EQU ISTATCVT+336 03723000 ATCTRCPT EQU ISTATCVT+332 03724000 ATCDVLOD EQU ISTATCVT+328 03725000 ATCALERT EQU ISTATCVT+324 03726000 ATCEPA EQU ISTATCVT+320 03727000 ATCSAF EQU ISTATCVT+318 03728000 ATCXRANG EQU ISTATCVT+317 03729000 ATCLAST EQU ATCSHRFG 03730000 ATCSHRTN EQU ISTATCVT+308 03731000 ATCUEP EQU ISTATCVT+304 03732000 ATCOCRT EQU ISTATCVT+300 03733000 ATCCSMA EQU ATCCSMR 03734000 ATCESC02 EQU ISTATCVT+292 03735000 ATCESC01 EQU ISTATCVT+288 03736000 ATCCDFND EQU ISTATCVT+284 03737000 ATCCDDEL EQU ISTATCVT+280 03738000 ATCCDADD EQU ISTATCVT+276 03739000 ATCMNT EQU ISTATCVT+272 03740000 ATCRSV16 EQU ISTATCVT+270 03741000 ATCMAXID EQU ISTATCVT+269 03742000 ATCMSGSP EQU ATCCOM+268 03743000 ATCCIDM EQU ATCCOM+266 03744000 ATCACTRM EQU ATCCOM+264 03745000 ATCNERAP EQU ATCCOM+260 03746000 ATCNESAL EQU ATCCOM+256 03747000 ATCRCC65 EQU ATCCOM+252 03748000 ATCRCC26 EQU ATCCOM+248 03749000 ATCRCC63 EQU ATCCOM+244 03750000 ATCRSV11 EQU ATCCOM+242 03751000 ATCVTMID EQU ATCCOM+240 03752000 ATCNERFN EQU ATCCOM+232 03753000 ATCNERNE EQU ATCCOM+228 03754000 ATCNERCV EQU ATCCOM+224 03755000 ATCNERST EQU ATCCOM+220 03756000 ATCDCC61 EQU ATCCOM+216 03757000 ATCDCC60 EQU ATCCOM+212 03758000 ATCSRTDF EQU ATCCOM+208 03759000 ATCSRTAD EQU ATCCOM+204 03760000 ATCFIRA EQU ATCCOM+200 03761000 ATCSMBQ EQU ATCCOM+196 03762000 ATCSMRC EQU ATCCOM+192 03763000 ATCSMQU EQU ATCCOM+184 03764000 ATCACDA EQU ATCCOM+176 03765000 ATCSTMA EQU ATCCOM+172 03766000 ATCFRSTR EQU ATCCOM+168 03767000 ATCGTSTR EQU ATCCOM+164 03768000 ATCREADA EQU ATCCOM+160 03769000 ATCALOAD EQU ATCCOM+156 03770000 ATCBLDLA EQU ATCCOM+152 03771000 ATCFBRPH EQU ATCCOM+148 03772000 ATCBFTRC EQU ATCCOM+144 03773000 ATCTPBUF EQU ATCTHTRC 03774000 ATCREMOV EQU ATCCOM+136 03775000 ATCADD EQU ATCCOM+132 03776000 ATCDVTPT EQU ATCCOM+124 03777000 ATCFEPT EQU ATCCOM+120 03778000 ATCFDVT EQU ATCCOM+116 03779000 ATCCONFT EQU ATCCOM+112 03780000 ATCPTCHA EQU ATCCOM+108 03781000 ATCAUTHA EQU ATCCOM+104 03782000 ATCACCTA EQU ATCCOM+100 03783000 ATCRDTH EQU ATCCOM+96 03784000 ATCFRSCH EQU ATCCOM+92 03785000 ATCFSB EQU ATCCOM+88 03786000 ATCHLTMS EQU ATCCOM+84 03787000 ATCECPRM EQU ATCCOM+80 03788000 ATCECNET EQU ATCCOM+76 03789000 ATCECOPC EQU ATCCOM+72 03790000 ATCVPARM EQU ATCCOM+68 03791000 ATCECVRQ EQU ATCCOM+64 03792000 ATCECSES EQU ATCCOM+60 03793000 ATCOCHA EQU ATCCOM+56 03794000 ATCDSPLQ EQU ATCCOM+52 03795000 ATCECDSP EQU ATCCOM+48 03796000 ATCVARYQ EQU ATCCOM+44 03797000 ATCECVRY EQU ATCCOM+40 03798000 ATCHALTQ EQU ATCCOM+36 03799000 ATCECHLT EQU ATCCOM+32 03800000 ATCMODQ EQU ATCCOM+28 03801000 ATCECMOD EQU ATCCOM+24 03802000 ATCASCHD EQU ATCCOM+20 03803000 ATCSRT EQU ATCCOM+16 03804000 ATCRDT EQU ATCCOM+12 03805000 ATCDCFRR EQU ATCCOM+8 03806000 ATCAPI EQU ATCCOM+4 03807000 ATCRSV04 EQU ATCSTAT4 03808000 ATCVTTRC EQU ATCSTAT4 03809000 ATCNCSD EQU ATCSTAT4 03810000 ATCMTST EQU ATCSTAT4 03811000 ATCTPRT EQU ATCSTAT4 03812000 ATCPRTAT EQU ATCSTAT4 03813000 @NM00056 EQU ATCPOFLG 03814000 ATCPOUNS EQU ATCPOFLG 03815000 ATCHSDMF EQU ATCSTFLG 03816000 @NM00055 EQU ATCSTAT1 03817000 ATCMDHLT EQU ATCSTAT1 03818000 ATCINHLT EQU ATCSTAT1 03819000 ATCNETSL EQU ATCSTAT1 03820000 ATCQKHLT EQU ATCSTAT1 03821000 ATCSNHLT EQU ATCSTAT1 03822000 ATCACTIV EQU ATCSTAT1 03823000 ATCSTART EQU ATCSTAT1 03824000 DYPPAB EQU ISTDYPAB+16 03825000 DYPRSV01 EQU ISTDYPAB+12 03826000 DYPTSKID EQU ISTDYPAB+8 03827000 DYPCHAIN EQU ISTDYPAB+4 03828000 DYPFLGS EQU ISTDYPAB+2 03829000 DYPLNGTH EQU ISTDYPAB+1 03830000 DYPTYPE EQU ISTDYPAB 03831000 FSBRSV01 EQU FSBFSB+30 03832000 FSBTHCNT EQU FSBFSB+28 03833000 FSBRLRSV EQU FSBRLSTS 03834000 FSBCFTX EQU FSBRLSTS 03835000 FSBICNCB EQU FSBMSGID 03836000 FSBSSOC EQU FSBSS2 03837000 FSBSSCC EQU FSBSS2 03838000 FSBSSDC EQU FSBSS2 03839000 FSBSSEC EQU FSBSS2 03840000 FSBSSIR EQU FSBSS2 03841000 FSBSSCR EQU FSBSS2 03842000 @NM00053 EQU FSBSS2 03843000 @NM00052 EQU FSBSS1 03844000 FSBSSDE EQU FSBSS1 03845000 FSBSSUS EQU FSBSS1 03846000 @NM00051 EQU FSBSS1 03847000 FSBSOHI EQU FSBERC 03848000 FSBLGI EQU FSBERC 03849000 FSBLMRI EQU FSBFBMI 03850000 FSBETI EQU FSBERC 03851000 FSBEMI EQU FSBERC 03852000 FSBEBI EQU FSBERC 03853000 FSBECI EQU FSBERC 03854000 FSBELI EQU FSBERC 03855000 FSBMJRCD EQU FSBSRCAT 03856000 FSBXLCI EQU FSBXCODE 03857000 FSBXFINS EQU FSBXCODE 03858000 FSBXNORM EQU FSBXFSTS 03859000 FSBSCODE EQU FSBSYSRS 03860000 FSBSPHSE EQU FSBSYSRS 03861000 FSBSERR EQU FSBSYSRS 03862000 FSBCMD EQU FSBSEQ 03863000 FSBDTRCE EQU FSBFLAGS 03864000 FSBASBTU EQU FSBFLAGS 03865000 FSBINPET EQU FSBFLAGS 03866000 FSBNONCB EQU FSBFLAGS 03867000 FSBLBIND EQU FSBFLAGS 03868000 FSBFFIND EQU FSBFLAGS 03869000 FSBACIND EQU FSBFLAGS 03870000 FSBRFIND EQU FSBFLAGS 03871000 FSBDAF EQU FSBCID+2 03872000 FSBSAF EQU FSBCID 03873000 FSBGATE EQU FSBFSBA 03874000 FSBRSV02 EQU FSBSFLGS 03875000 FSBPGBUF EQU FSBSFLGS 03876000 FSBMNSDA EQU FSBMNRCD 03877000 FSBMNOA EQU FSBMNRCD 03878000 FSBMNDIF EQU FSBMNRCD 03879000 FSBMNEOP EQU FSBMNRCD 03880000 FSBMNDNU EQU FSBMNRCD 03881000 FSBMNATN EQU FSBMNRCD 03882000 FSBMNRVI EQU FSBMNRCD 03883000 FSBMNELI EQU FSBMNRCD 03884000 FSBLNGTH EQU FSBFSB+1 03885000 FSBTYPE EQU FSBFSB 03886000 FDBDATCT EQU ISTFDB+8 03887000 FDBDATAA EQU ISTFDB+4 03888000 FMCFLRSV EQU FMCFLGB 03889000 FMCFLGA8 EQU FMCFLGB 03890000 FMCCLRPH EQU FMCVS1+45 03891000 FMCRSV0X EQU FMCCVFLG 03892000 FMCVYRPH EQU FMCCVFLG 03893000 FMCZV004 EQU FMCVS1+40 03894000 FMCLOCK2 EQU FMCVS1+36 03895000 @NM00050 EQU FMCZFLG2 03896000 FMCZF027 EQU FMCZFLG2 03897000 FMCZF026 EQU FMCZFLG2 03898000 FMCSEQ1B EQU FMCSEQ1 03899000 FMCSEQ1T EQU FMCSEQ1 03900000 FMCZX006 EQU FMCVS1+33 03901000 FMCZX005 EQU FMCVS1+32 03902000 FMCZX004 EQU FMCVS1+31 03903000 FMCZX003 EQU FMCVS1+30 03904000 FMCZX002 EQU FMCVS1+29 03905000 FMCZX001 EQU FMCVS1+28 03906000 FMCZV001 EQU FMCVS1+24 03907000 FMCAWATQ EQU FMCLCPAQ+1 03908000 @NM00049 EQU FMCLCPAQ 03909000 FMCLCPB2 EQU FMCLCPBQ+1 03910000 FMCLCPB1 EQU FMCLCPBQ 03911000 FMCASCDQ EQU FMCSHEAQ+1 03912000 @NM00048 EQU FMCSHEAQ 03913000 FMCSHEDQ EQU FMCVS1+8 03914000 FMCZFCSQ EQU FMCVS1+6 03915000 FMCZH001 EQU FMCVS1+4 03916000 FMCZF025 EQU FMCZFLAG+3 03917000 FMCZF024 EQU FMCZFLAG+3 03918000 FMCZF023 EQU FMCZFLAG+3 03919000 FMCZF022 EQU FMCZFLAG+3 03920000 FMCZF021 EQU FMCZFLAG+3 03921000 FMCZF020 EQU FMCZFLAG+3 03922000 FMCZF019 EQU FMCZFLAG+3 03923000 FMCZF018 EQU FMCZFLAG+3 03924000 FMCZF017 EQU FMCZFLAG+2 03925000 FMCZF016 EQU FMCZFLAG+2 03926000 FMCZF015 EQU FMCZFLAG+2 03927000 FMCZF014 EQU FMCZFLAG+2 03928000 FMCZF013 EQU FMCZFLAG+2 03929000 FMCZF012 EQU FMCZFLAG+2 03930000 FMCZF011 EQU FMCZFLAG+2 03931000 FMCZF010 EQU FMCZFLAG+2 03932000 FMCZF00F EQU FMCZFLAG+1 03933000 FMCZF00E EQU FMCZFLAG+1 03934000 FMCZF00D EQU FMCZFLAG+1 03935000 FMCZF00C EQU FMCZFLAG+1 03936000 FMCZF00B EQU FMCZFLAG+1 03937000 FMCRSV10 EQU FMCZFLAG+1 03938000 FMCZF009 EQU FMCZFLAG+1 03939000 FMCZFD06 EQU FMCZF006+1 03940000 FMCZFC06 EQU FMCZF006 03941000 FMCZFB06 EQU FMCZF006 03942000 FMCZFA06 EQU FMCZF006 03943000 FMCZF005 EQU FMCZFLAG 03944000 FMCZF004 EQU FMCZFLAG 03945000 FMCZF003 EQU FMCZFLAG 03946000 FMCZF002 EQU FMCZFLAG 03947000 FMCZF001 EQU FMCZFLAG 03948000 FMCFRESA EQU ISTFMCB+228 03949000 FMCSCSQN EQU FMCSNCTL+2 03950000 FMCSCCTL EQU FMCSNCTL+1 03951000 FMCSTCTL EQU FMCSCFLG 03952000 FMCSCCLO EQU FMCSCFLG 03953000 FMCAPRO EQU FMCSCFLG 03954000 FMCLURO EQU FMCSCFLG 03955000 FMCOBSAC EQU FMCSCFLG 03956000 FMCIBSAC EQU FMCSCFLG 03957000 FMCFBRE EQU ISTFMCB+220 03958000 FMCFBXM EQU FMCZV002 03959000 FMCASEGQ EQU ISTFMCB+212 03960000 FMCRDTPT EQU ISTFMCB+208 03961000 FMCLOCK EQU ISTFMCB+204 03962000 FMCSEGD EQU FMCSSEGQ 03963000 FMCRSPLM EQU ISTFMCB+198 03964000 FMCPSTRS EQU ISTFMCB+196 03965000 @NM00047 EQU FMCRRESP 03966000 FMCTSLHA EQU FMCRRESP 03967000 FMCFRRN EQU FMCRRESP 03968000 FMCFME EQU FMCRRESP 03969000 FMCFEX EQU FMCRRESP 03970000 FMCFPE EQU FMCRRESP 03971000 FMCCTLB EQU ISTFMCB+194 03972000 FMCBSQNO EQU FMCCLSEQ+2 03973000 FMCTSQNO EQU FMCCLSEQ 03974000 FMCOBPRG EQU FMCMODEB 03975000 FMCIBPRG EQU FMCMODEB 03976000 FMCRESOT EQU FMCMODEB 03977000 FMCRSTSR EQU FMCMODEB 03978000 FMCLUQ EQU FMCMODEB 03979000 FMCAPQ EQU FMCMODEB 03980000 FMCCLEAR EQU FMCMODEB 03981000 FMCHOLD EQU FMCMODEB 03982000 FMCIPSEQ EQU ISTFMCB+188 03983000 FMCLUSTR EQU ISTFMCB+187 03984000 FMCRSV87 EQU FMCSTAT2 03985000 FMCSEQI EQU FMCSTAT2 03986000 FMCCPIP EQU FMCSTAT2 03987000 FMCALIPR EQU FMCSTAT2 03988000 FMCIAIO EQU FMCSTAT2 03989000 FMCZF00A EQU FMCSTAT2 03990000 FMCVPIP EQU FMCSTAT2 03991000 FMCBHSET EQU ISTFMCB+185 03992000 FMCRSV89 EQU FMCPSTAT 03993000 FMCPCLSD EQU FMCPSTAT 03994000 FMCDDOCD EQU FMCPSTAT 03995000 FMCIDVFD EQU FMCPSTAT 03996000 FMCELKST EQU FMCPSTAT 03997000 FMCRSV88 EQU FMCPSCMD 03998000 FMCRDBLK EQU FMCPSCMD 03999000 FMCDSEOC EQU FMCPSCMD 04000000 FMCPURGE EQU FMCPSCMD 04001000 FMCRESTI EQU FMCPSCMD 04002000 FMCCNTCT EQU FMCPSCMD 04003000 FMCINVT EQU FMCPSCMD 04004000 FMCFLGB7 EQU FMCFLGCL 04005000 FMCFLGB6 EQU FMCFLGCL 04006000 FMCFLGB5 EQU FMCFLGCL 04007000 FMCFLGB4 EQU FMCFLGCL 04008000 FMCFLGB3 EQU FMCFLGCL 04009000 FMCFLGB2 EQU FMCFLGCL 04010000 FMCFLGB1 EQU FMCFLGCL 04011000 FMCFLGB0 EQU FMCFLGCL 04012000 FMCFLGA7 EQU FMCFLGA 04013000 FMCFLGA6 EQU FMCFLGA 04014000 FMCFLGA5 EQU FMCFLGA 04015000 FMCFLGA4 EQU FMCFLGA 04016000 FMCFLGA3 EQU FMCFLGA 04017000 FMCFLGA2 EQU FMCFLGA 04018000 FMCFLGA1 EQU FMCFLGA 04019000 FMCFLGA0 EQU FMCFLGA 04020000 FMCFBPTR EQU FMCFBA+1 04021000 FMCFBRSV EQU FMCFBA 04022000 FMCRPLPT EQU FMCRPLA+1 04023000 FMCRPLRS EQU FMCRPLA 04024000 FMCPRCLS EQU FMCCVAL 04025000 FMCIBCE EQU FMCCVAL 04026000 FMCONLY EQU FMCOBCE 04027000 FMCLAST EQU FMCOBCE 04028000 FMCMIDLE EQU FMCOBCE 04029000 FMCFIRST EQU FMCOBCE 04030000 FMCCPCNT EQU FMCPACPC 04031000 FMCMPCNT EQU FMCPACEM 04032000 FMCNPCNT EQU FMCPACEN 04033000 FMCCONF EQU FMCSSTAT 04034000 FMCPURCH EQU FMCSSTAT 04035000 FMCNSALU EQU FMCSSTAT 04036000 FMCBIP EQU FMCSSTAT 04037000 FMCSDTR EQU FMCSSTAT 04038000 FMCUIPI EQU FMCSSTAT 04039000 FMCCIPI EQU FMCSSTAT 04040000 FMCSNBI EQU FMCSSTAT 04041000 FMCRVD01 EQU ISTFMCB+158 04042000 FMCISSN EQU ISTFMCB+156 04043000 FMCOASN EQU FMCNXOSC 04044000 FMCOSSN EQU FMCNXCFM 04045000 FMCSIP EQU FMCSIPA 04046000 FMCEXLST EQU ISTFMCB+144 04047000 FMCPAB5 EQU ISTFMCB+128 04048000 FMCPAB4 EQU ISTFMCB+112 04049000 FMCPAB2 EQU ISTFMCB+80 04050000 FMCFASYA EQU ISTFMCB+60 04051000 FMCVWT EQU ISTFMCB+44 04052000 FMCRPLH EQU ISTFMCB+40 04053000 FMCBUFNB EQU FMCCMPS1+2 04054000 FMCBUFLM EQU FMCCMPS1 04055000 @NM00046 EQU FMCCMDFL 04056000 FMCSNA EQU FMCCMDFL 04057000 FMCVSNA EQU FMCCMDFL 04058000 FMCCMDR EQU FMCCMDFL 04059000 @NM00045 EQU ISTFMCB+30 04060000 @NM00044 EQU FMCSTAT1 04061000 FMCLTCLS EQU FMCSTAT1 04062000 FMCHPURG EQU FMCSTAT1 04063000 FMCVSP2 EQU FMCSTAT1 04064000 FMCLTEAS EQU FMCSTAT 04065000 FMCZF007 EQU FMCSTAT 04066000 FMCDEDSC EQU FMCSTAT 04067000 FMCDEVOF EQU FMCSTAT 04068000 FMCDAPT EQU FMCSTAT 04069000 FMCPRMTE EQU FMCSTAT 04070000 FMCPRMTR EQU FMCSTAT 04071000 FMCUSFLD EQU ISTFMCB+24 04072000 FMCFMCBA EQU ISTFMCB+20 04073000 FMCDVTA EQU ISTFMCB+12 04074000 FMCTSKID EQU ISTFMCB+8 04075000 FMCNXTCB EQU ISTFMCB+4 04076000 FMCLNGTH EQU ISTFMCB+1 04077000 FMCTYPE EQU ISTFMCB 04078000 LOKXCL EQU @NM00042 04079000 LOKPRY EQU @NM00042 04080000 @NM00043 EQU @NM00042 04081000 @NM00041 EQU LOKCHNG 04082000 LOKCT EQU ISTLOK 04083000 RPHNEXPO EQU ISTRPH+104 04084000 RPHSAV16 EQU RPHWORK+60 04085000 RPHSAV15 EQU RPHWORK+56 04086000 RPHSAV14 EQU RPHWORK+52 04087000 RPHSAV13 EQU RPHWORK+48 04088000 RPHSAV12 EQU RPHWORK+44 04089000 RPHSAV11 EQU RPHWORK+40 04090000 RPHSAV10 EQU RPHWORK+36 04091000 RPHSAVE9 EQU RPHWORK+32 04092000 RPHSAVE8 EQU RPHWORK+28 04093000 RPHSAVE7 EQU RPHWORK+24 04094000 RPHSAVE6 EQU RPHWORK+20 04095000 RPHSAVE5 EQU RPHWORK+16 04096000 RPHSAVE4 EQU RPHWORK+12 04097000 RPHSAVE3 EQU RPHWORK+8 04098000 RPHSAVE2 EQU RPHWORK+4 04099000 RPHSHALF EQU RPHSAVE1+2 04100000 RPHSBIT8 EQU RPHSBITS 04101000 RPHSBIT7 EQU RPHSBITS 04102000 RPHSBIT6 EQU RPHSBITS 04103000 RPHSBIT5 EQU RPHSBITS 04104000 RPHSBIT4 EQU RPHSBITS 04105000 RPHSBIT3 EQU RPHSBITS 04106000 RPHSBIT2 EQU RPHSBITS 04107000 RPHSBIT1 EQU RPHSBITS 04108000 RPHSBYTE EQU RPHSAVE1 04109000 RPHPABQP EQU RPHPABQA+1 04110000 RPHPABFG EQU RPHPABQA 04111000 RPHSRP34 EQU RPHSRPRM+2 04112000 RPHSRP12 EQU RPHSRPRM 04113000 RPHWEGT EQU RPHCSPA 04114000 RPHPABOF EQU ISTRPH+20 04115000 RPHRESUM EQU RPHRESMA+1 04116000 RPHRSV01 EQU RPHWPFLG 04117000 RPHPURGE EQU RPHWPFLG 04118000 RPHPT EQU RPHWPFLG 04119000 RPHWT EQU RPHWPFLG 04120000 RPHRSKEY EQU RPHWPFLG 04121000 RPHDVTA EQU ISTRPH+12 04122000 RPHTIK EQU RPHTSKID+3 04123000 @NM00040 EQU RPHTSKID 04124000 RPHRPHAP EQU RPHRPHA+1 04125000 @NM00039 EQU RPHRPHA 04126000 RPHGATE EQU RPHRPHA 04127000 @NM00038 EQU RPHFLGB 04128000 RPHRLCRA EQU RPHFLGB 04129000 RPHNRSAV EQU RPHFLGB 04130000 RPHPGCMP EQU RPHFLGB 04131000 RPHFBAPS EQU RPHFLGB 04132000 RPHBSSP EQU RPHFLGB 04133000 RPHLOCK EQU RPHFLGB 04134000 RPHFNFLG EQU RPHFSTLC 04135000 RPHMLTCP EQU RPHFLAGS 04136000 RPHSMCLR EQU RPHFLAGS 04137000 RPHSMTYP EQU RPHFLAGS 04138000 RPHSMQ EQU RPHFLAGS 04139000 RPHAUTEX EQU RPHAPTYP 04140000 RPHSPGIN EQU RPHFLAGS 04141000 RPHOGIND EQU RPHFLAGS 04142000 RPHLNGTH EQU RPHCNTL+1 04143000 RPHTYPE EQU RPHCNTL 04144000 DEVRSV03 EQU ISTDEVCH+5 04145000 DEVPHYSA EQU ISTDEVCH+4 04146000 DEVCSLPN EQU DEVCHAR3 04147000 DEVCSTCL EQU DEVCHAR3 04148000 DEVCCHEK EQU DEVCHAR3 04149000 DEVCATTN EQU DEVCHAR3 04150000 DEVCSWL EQU DEVFCCTL 04151000 DEVCRVB EQU DEVFCCTL 04152000 DEVCSSL EQU DEVFCCTL 04153000 DEVCBSC EQU DEVFCCTL 04154000 DEVMCODE EQU ISTDEVCH+2 04155000 DEVCHAR2 EQU DEVTCODE 04156000 DEVRSV01 EQU DEVCHAR 04157000 DEVCCTL EQU DEVCHAR 04158000 DEVNNSPT EQU DEVCHAR 04159000 DEVSPS EQU DEVCHAR 04160000 DEVSUBND EQU DEVCHAR 04161000 DEVCONVR EQU DEVCHAR 04162000 DEVOTPUT EQU DEVCHAR 04163000 DEVINPUT EQU DEVCHAR 04164000 PROSRDEF EQU PROSETM4 04165000 PRORSV47 EQU PROSETM4 04166000 PROSCON EQU PROSETM4 04167000 PRORSV46 EQU PROSETM3 04168000 PROSMONT EQU PROSETM3 04169000 PRORSV45 EQU PROSETM3 04170000 PROSNTO EQU PROSETM3 04171000 PRORSV44 EQU PROSETM3 04172000 PRORSV43 EQU PROSETM2 04173000 PROSNTFL EQU PROSETM2 04174000 PRORSV42 EQU PROSETM2 04175000 PRORSV41 EQU PROPROCS 04176000 PROMODC EQU PROPROC4 04177000 PROMODT EQU PROPROC4 04178000 PROMODM EQU PROPROC4 04179000 PROMODB EQU PROPROC4 04180000 PRORSV14 EQU PROPROC4 04181000 PRORSV13 EQU PROPROC4 04182000 PRORSV12 EQU PROPROC4 04183000 PROEIB EQU PROPROC4 04184000 PRORSV11 EQU PROPROC3 04185000 PROMONT2 EQU PROPROC3 04186000 PROMONIT EQU PROPROC3 04187000 PROSUBLK EQU PROPROC3 04188000 PRONTO EQU PROPROC3 04189000 PROLGIN EQU PROPROC3 04190000 PROERPI EQU PROPROC3 04191000 PRORSV07 EQU PROPROC3 04192000 PROEMLC EQU PROPROC2 04193000 PRONTFL EQU PROPROC2 04194000 PRORSV05 EQU PROPROC2 04195000 PRORSV04 EQU PROPROC2 04196000 PROLGOT EQU PROPROC2 04197000 PROERPO EQU PROPROC2 04198000 PRORSV03 EQU PROPROC2 04199000 PRORPLC EQU PROPROC1 04200000 PROCS EQU PROPROC1 04201000 PROCA EQU PROPROC1 04202000 PRORESPX EQU PROPROC1 04203000 PRODFASY EQU PROPROC1 04204000 PROXPOPT EQU PROPROC1 04205000 PROTRUNC EQU PROPROC1 04206000 PROASYIP EQU PROPROC1 04207000 PABRPHA EQU PABRPHFG+1 04208000 PABNODQ EQU PABFLAGS 04209000 PABINHBT EQU PABFLAGS 04210000 PABERLOK EQU PABERRLK 04211000 PABSSN EQU PABFLAGS 04212000 PABDYNAM EQU PABFLAGS 04213000 PABNORPR EQU PABFLAGS 04214000 PABPRIOR EQU PABFLAGS 04215000 PABAPYP EQU PABFLAGS 04216000 PABDVTA EQU ISTPAB+9 04217000 PABOFFST EQU ISTPAB+8 04218000 PABCHNGP EQU PABCHAIN+1 04219000 PABRSV02 EQU PABCHAIN 04220000 PABRUNNG EQU PABCHAIN 04221000 PABRESET EQU PABCHAIN 04222000 PABUNCON EQU PABCHAIN 04223000 PABCDP EQU PABCHAIN 04224000 PABRESCH EQU PABCHAIN 04225000 PABCHNG EQU PABCHAIN 04226000 PABWEQP EQU PABWEQA+1 04227000 PABRSV01 EQU PABWEQA 04228000 PABWEQG EQU PABWEQA 04229000 IOSEND EQU IOSB+108 04230000 IOSSKR EQU IOSEEKA+7 04231000 IOSSKH2 EQU IOSSKHH+1 04232000 IOSSKH1 EQU IOSSKHH 04233000 IOSSKCC EQU IOSCCHH 04234000 IOSSKBB EQU IOSEEKA+1 04235000 IOSSKM EQU IOSEEKA 04236000 IOSEEK EQU IOSB+92 04237000 IOSMDM EQU IOSB+91 04238000 IOSMDB EQU IOSB+90 04239000 IOSCKEY7 EQU IOSCKEY 04240000 IOSCKEY6 EQU IOSCKEY 04241000 IOSCKEY5 EQU IOSCKEY 04242000 IOSCKEY4 EQU IOSCKEY 04243000 @NM00034 EQU IOSCKEY 04244000 IOSFMSK EQU IOSB+88 04245000 IOSCUDEV EQU IOSPATH+1 04246000 @NM00033 EQU IOSCHN 04247000 IOSPATH3 EQU IOSCHN 04248000 IOSPATH2 EQU IOSCHN 04249000 IOSEXP EQU IOSCHN 04250000 IOSGDP EQU IOSCHN 04251000 IOSAFF EQU IOSB+85 04252000 IOSRSS1B EQU IOSB+84 04253000 IOSDSID EQU IOSB+80 04254000 IOSVST EQU IOSB+76 04255000 IOSRST EQU IOSB+72 04256000 IOSDIE EQU IOSB+68 04257000 IOSABN EQU IOSB+64 04258000 IOSNRM EQU IOSB+60 04259000 IOSPCI EQU IOSB+56 04260000 IOSERP EQU IOSB+52 04261000 IOSPCHN EQU IOSB+48 04262000 IOSSNS EQU IOSB+42 04263000 IOSAPMSK EQU IOSB+40 04264000 IOSRES4A EQU IOSB+36 04265000 IOSUSE EQU IOSB+32 04266000 IOSSRB EQU IOSB+28 04267000 IOSCSWRC EQU IOSCSW+5 04268000 IOSTSB EQU IOSTATUS+1 04269000 IOSTSA EQU IOSTATUS 04270000 IOSCSWCA EQU IOSCSW 04271000 IOSCC EQU @NM00032 04272000 IOSUCB EQU IOSB+16 04273000 IOSOPT2X EQU IOSOPT2 04274000 IOSHTP EQU IOSOPT2 04275000 IOSRELSE EQU IOSOPT 04276000 IOSAPR EQU IOSOPT 04277000 IOSTSLL EQU IOSOPT 04278000 IOSNERP EQU IOSOPT 04279000 IOSPSLL EQU IOSOPT 04280000 IOSQISCE EQU IOSOPT 04281000 IOSDEP EQU IOSOPT 04282000 IOSBYP EQU IOSOPT 04283000 IOSCOD EQU IOSB+13 04284000 IOSPKY7 EQU IOSPKEY 04285000 IOSPGDPX EQU IOSPKEY 04286000 IOSIDR EQU IOSPKEY 04287000 IOSLCL EQU IOSPKEY 04288000 @NM00031 EQU IOSPKEY 04289000 IOSPGAD EQU IOSB+8 04290000 IOSASID EQU IOSB+6 04291000 IOSPRLVL EQU IOSB+5 04292000 IOSDVRID EQU IOSB+4 04293000 IOSPROC EQU IOSB+3 04294000 IOSFLC7 EQU IOSFLC 04295000 IOSFLC6 EQU IOSFLC 04296000 IOSRWAIT EQU IOSFLC 04297000 IOSTP EQU IOSFLC 04298000 IOSCC3WE EQU IOSFLC 04299000 IOSVERIF EQU IOSDVALT 04300000 IOSDVMNT EQU IOSFLC 04301000 IOSLOG EQU IOSFLB 04302000 IOSBDCST EQU IOSFLB 04303000 IOSMSG EQU IOSFLB 04304000 IOSFLB4 EQU IOSFLB 04305000 IOSFLB3 EQU IOSFLB 04306000 IOSFLB2 EQU IOSFLB 04307000 IOSSDR EQU IOSFLB 04308000 IOSDIESE EQU IOSFLB 04309000 IOSIOSB EQU IOSFLA 04310000 IOSDOM EQU IOSFLA 04311000 IOSEX EQU IOSFLA 04312000 IOSSMDB EQU IOSFLA 04313000 IOSSMDA EQU IOSFLA 04314000 IOSERR EQU IOSFLA 04315000 IOSCCHN EQU IOSACHN 04316000 IOSDCHN EQU IOSACHN 04317000 @NM00030 EQU SRBSECT+40 04318000 @NM00029 EQU SRBSECT+38 04319000 SRBPRIOR EQU SRBSECT+37 04320000 SRBPKF EQU SRBSECT+36 04321000 SRBSAVE EQU SRBSECT+32 04322000 SRBPARM EQU SRBSECT+28 04323000 SRBRMTR EQU SRBSECT+24 04324000 SRBEP EQU SRBSECT+20 04325000 SRBPTCB EQU SRBFLC+4 04326000 SRBPASID EQU SRBFLC+2 04327000 SRBCPAFF EQU SRBFLC 04328000 SRBASCB EQU SRBSECT+8 04329000 SRBFLNK EQU SRBSECT+4 04330000 SRBID EQU SRBSECT 04331000 IOBERRCT EQU IOBSTDRD+30 04332000 IOBRSV19 EQU IOBINCAM+1 04333000 IOBOLTST EQU IOBBTAMF 04334000 IOBRFTMG EQU IOBBTAMF 04335000 IOBRSV17 EQU IOBBTAMF 04336000 IOBRSV16 EQU IOBBTAMF 04337000 IOBRSV15 EQU IOBBTAMF 04338000 IOBRSV14 EQU IOBBTAMF 04339000 IOBINUSE EQU IOBBTAMF 04340000 IOBPRMER EQU IOBBTAMF 04341000 IOBRSTRB EQU IOBRESTR+1 04342000 IOBREPOS EQU IOBRESTR 04343000 IOBDCBPB EQU IOBDCBPT+1 04344000 IOBRSV44 EQU IOBFLAG4 04345000 IOBJES3I EQU IOBFLAG4 04346000 IOBRSV42 EQU IOBFLAG4 04347000 IOBRSV41 EQU IOBFLAG4 04348000 IOBRSV40 EQU IOBFLAG4 04349000 IOBPMERR EQU IOBFLAG4 04350000 IOBCC3WE EQU IOBFLAG4 04351000 IOBGDPOL EQU IOBFLAG4 04352000 IOBSTRTB EQU IOBSTART+1 04353000 IOBSIOCC EQU IOBSTART 04354000 IOBCSB7 EQU IOBCSTAT 04355000 IOBCSB6 EQU IOBCSTAT 04356000 IOBCSB5 EQU IOBCSTAT 04357000 IOBCSB4 EQU IOBCSTAT 04358000 IOBCSB3 EQU IOBCSTAT 04359000 IOBCSB2 EQU IOBCSTAT 04360000 IOBCSB1 EQU IOBCSTAT 04361000 IOBCSB0 EQU IOBCSTAT 04362000 IOBUSB7 EQU IOBUSTAT 04363000 IOBUSB6 EQU IOBUSTAT 04364000 IOBUSB5 EQU IOBUSTAT 04365000 IOBUSB4 EQU IOBUSTAT 04366000 IOBUSB3 EQU IOBUSTAT 04367000 IOBUSB2 EQU IOBUSTAT 04368000 IOBUSB1 EQU IOBUSTAT 04369000 IOBUSB0 EQU IOBUSTAT 04370000 IOBCMDA EQU IOBIOCSW 04371000 IOBLOG EQU IOBFL3 04372000 IOBJAM EQU IOBICL 04373000 IOBMSG EQU IOBFL3 04374000 IOBSDR EQU IOBCNC 04375000 IOBACU EQU IOBFL3 04376000 IOBCDC EQU IOBFL3 04377000 IOBICC EQU IOBFL3 04378000 IOBCCC EQU IOBFL3 04379000 IOBECBPB EQU IOBECBPT+1 04380000 IOBECBCC EQU IOBECBPT 04381000 IOBS1B7 EQU IOBSENS1 04382000 IOBS1B6 EQU IOBSENS1 04383000 IOBS1B5 EQU IOBSENS1 04384000 IOBS1B4 EQU IOBSENS1 04385000 IOBS1B3 EQU IOBSENS1 04386000 IOBS1B2 EQU IOBSENS1 04387000 IOBS1B1 EQU IOBSENS1 04388000 IOBS1B0 EQU IOBSENS1 04389000 IOBSNSC9 EQU IOBS0B7 04390000 IOBS0B6 EQU IOBSENS0 04391000 IOBS0B5 EQU IOBSENS0 04392000 IOBS0B4 EQU IOBSENS0 04393000 IOBS0B3 EQU IOBSENS0 04394000 IOBS0B2 EQU IOBSENS0 04395000 IOBS0B1 EQU IOBSENS0 04396000 IOBS0B0 EQU IOBSENS0 04397000 IOBPNCH EQU IOBFLAG2 04398000 IOBSTATO EQU IOBFLAG2 04399000 IOBSKUPD EQU IOBFLAG2 04400000 IOBALTTR EQU IOBFLAG2 04401000 IOBRRT2 EQU IOBRDHA0 04402000 IOBRRT3 EQU IOBPURGE 04403000 IOBSENSE EQU IOBFLAG2 04404000 IOBHALT EQU IOBFLAG2 04405000 IOBSPSVC EQU IOBRSTRT 04406000 IOBUNREL EQU IOBFLAG1 04407000 IOBIOERR EQU IOBFLAG1 04408000 IOBFCREX EQU IOBCYCCK 04409000 IOBRPSTN EQU IOBFLAG1 04410000 IOBERRTN EQU IOBFLAG1 04411000 IOBCMDCH EQU IOBFLAG1 04412000 IOBDATCH EQU IOBFLAG1 04413000 IOBCNOPA EQU IOBPREFX+12 04414000 IOBCICB EQU IOBPREFX+8 04415000 IOBCECB EQU IOBPREFX+4 04416000 IOBCONOP EQU IOBPREFX+3 04417000 IOBCINOP EQU IOBPREFX+2 04418000 IOBRSV05 EQU IOBPREFX+1 04419000 IOBPCI EQU IOBCFLG1 04420000 IOBRSTCH EQU IOBCFLG1 04421000 IOBABAPP EQU IOBCFLG1 04422000 IOBPTST EQU IOBCFLG1 04423000 IOBRSV04 EQU IOBCFLG1 04424000 IOBRSV03 EQU IOBCFLG1 04425000 IOBRSV02 EQU IOBCFLG1 04426000 IOBRSV01 EQU IOBCFLG1 04427000 RPLSEQNO EQU RPLOF60+6 04428000 @NM00028 EQU RPLIBSQ 04429000 RPLIINV EQU RPLIBSQ 04430000 RPLINEG EQU RPLIBSQ 04431000 RPLIPOS EQU RPLIBSQ 04432000 RPLIIGN EQU RPLIBSQ 04433000 RPLIRSET EQU RPLIBSQ 04434000 RPLITST EQU RPLIBSQ 04435000 RPLISET EQU RPLIBSQ 04436000 @NM00027 EQU RPLOBSQ 04437000 RPLOINV EQU RPLOBSQ 04438000 RPLONEG EQU RPLOBSQ 04439000 RPLOPOS EQU RPLOBSQ 04440000 RPLOIGN EQU RPLOBSQ 04441000 RPLORSET EQU RPLOBSQ 04442000 RPLOTST EQU RPLOBSQ 04443000 RPLOSET EQU RPLOBSQ 04444000 RPLIBSQV EQU RPLOF60+2 04445000 RPLOBSQV EQU RPLOF60 04446000 @NM00026 EQU RPLCNTSC 04447000 RPLRSHUT EQU RPLCNTSC 04448000 RPLRQR EQU RPLCNTSC 04449000 RPLSHUTC EQU RPLCNTSC 04450000 RPLSHUTD EQU RPLCNTSC 04451000 RPLSTSN EQU RPLCNTSC 04452000 RPLCLEAR EQU RPLCNTSC 04453000 RPLSDT EQU RPLCNTSC 04454000 @NM00025 EQU RPLCNTDC 04455000 RPLSIGNL EQU RPLCNTDC 04456000 RPLLUS EQU RPLCNTDC 04457000 RPLRTR EQU RPLCNTDC 04458000 RPLBID EQU RPLCNTDC 04459000 @NM00024 EQU RPLCNTDF 04460000 RPLQI EQU RPLCNTDF 04461000 RPLRELQ EQU RPLCNTDF 04462000 RPLCHASE EQU RPLCNTDF 04463000 RPLQEC EQU RPLCNTDF 04464000 RPLQC EQU RPLCNTDF 04465000 RPLCNCEL EQU RPLCNTDF 04466000 RPLDATA EQU RPLCNTDF 04467000 RPLRRN EQU RPLRESP 04468000 RPLNFME EQU RPLRESP 04469000 RPLEX EQU RPLRESP 04470000 @NM00023 EQU RPLRESP 04471000 @NM00022 EQU RPLPOSTV 04472000 RPLSCHED EQU RPLPOSTV 04473000 @NM00021 EQU RPLVTFL1 04474000 RPLAUTUS EQU RPLVTFL1 04475000 RPLVTUSE EQU RPLVTFL1 04476000 @NM00020 EQU RPLVTFL1 04477000 @NM00019 EQU RPLCHN 04478000 RPLONLY EQU RPLCHN 04479000 RPLLAST EQU RPLCHN 04480000 RPLMIDLE EQU RPLCHN 04481000 RPLFIRST EQU RPLCHN 04482000 @NM00018 EQU RPLRTYPE 04483000 RPLDFASY EQU RPLRTYPE 04484000 RPLNFSYN EQU RPLRTYPE 04485000 RPLRRESP EQU RPLRTYPE 04486000 @NM00017 EQU RPLSTYPE 04487000 RPLSRESP EQU RPLSTYPE 04488000 @NM00016 EQU RPLRH3 04489000 RPLCSI EQU RPLRH3 04490000 RPLCHREQ EQU RPLRH3 04491000 RPLCMD EQU RPLRH3 04492000 RPLEB EQU RPLRH3 04493000 RPLBB EQU RPLRH3 04494000 RPLSIGDA EQU RPLVTEXT+32 04495000 RPLSAV13 EQU RPLVTEXT+28 04496000 RPLUSNSO EQU RPLOSENS+2 04497000 RPLSSMO EQU RPLSSNSO+1 04498000 @NM00015 EQU RPLSSEO 04499000 RPLRRO EQU RPLSSEO 04500000 RPLFIO EQU RPLSSEO 04501000 RPLSTATO EQU RPLSSEO 04502000 RPLCPMO EQU RPLSSEO 04503000 @NM00014 EQU RPLSSEO 04504000 RPLFMHDR EQU RPLOPT12 04505000 @NM00013 EQU RPLOPT12 04506000 @NM00012 EQU RPLOPT12 04507000 @NM00011 EQU RPLOPT12 04508000 RPLNIBTK EQU RPLOPT12 04509000 RPLTRUNC EQU RPLOPT12 04510000 RPLKEEP EQU RPLOPT12 04511000 @NM00010 EQU RPLOPT12 04512000 RPLRSVE8 EQU RPLOPT11 04513000 RPLRSVE7 EQU RPLOPT11 04514000 RPLRSVE6 EQU RPLOPT11 04515000 RPLRSVE5 EQU RPLOPT11 04516000 RPLRSVE4 EQU RPLOPT11 04517000 RPLSTOP EQU RPLOPT11 04518000 RPLSTART EQU RPLOPT11 04519000 RPLQUIES EQU RPLOPT11 04520000 RPLRSVI6 EQU RPLOPT10 04521000 RPLRSVI5 EQU RPLOPT10 04522000 RPLRSVI4 EQU RPLOPT10 04523000 RPLRSVI3 EQU RPLOPT10 04524000 RPLRSVI2 EQU RPLOPT10 04525000 RPLSPARM EQU RPLOPT10 04526000 RPLDSPLY EQU RPLOPT10 04527000 RPLBSCID EQU RPLOPT10 04528000 RPLTOPL EQU RPLOPT9 04529000 RPLCIDE EQU RPLOPT9 04530000 RPLRNNM EQU RPLOPT9 04531000 RPLAPPST EQU RPLOPT9 04532000 RPLCOUNT EQU RPLOPT9 04533000 RPLTERMS EQU RPLOPT9 04534000 RPLDEVCH EQU RPLOPT9 04535000 RPLLOGON EQU RPLOPT9 04536000 RPLUSFLD EQU RPLVTEXT+16 04537000 RPLESR2 EQU RPLUSNSI+1 04538000 RPLESR1 EQU RPLUSNSI 04539000 RPLSSMI EQU RPLDSB2 04540000 @NM00009 EQU RPLSSEI 04541000 RPLRRI EQU RPLSSEI 04542000 RPLFII EQU RPLSSEI 04543000 RPLSTATI EQU RPLSSEI 04544000 RPLCPMI EQU RPLSSEI 04545000 RPLPATHI EQU RPLSSEI 04546000 RPLARCLN EQU RPLVTEXT+8 04547000 RPLAARLN EQU RPLVTEXT+4 04548000 RPLAAREA EQU RPLVTEXT 04549000 RPLERMSA EQU RPLCOMN+72 04550000 RPLEMLEN EQU RPLCOMN+70 04551000 RPLACTIV EQU RPLCOMN+69 04552000 RPLBRANC EQU RPLEXTD1 04553000 RPLNIB EQU RPLEXTD1 04554000 @NM00008 EQU RPLEXTD1 04555000 RPLEXIT EQU RPLEXTD1 04556000 RPLNEXIT EQU RPLEXTD1 04557000 RPLEXSCH EQU RPLEXTD1 04558000 RPLDDDD EQU RPLRBAR+4 04559000 @NM00007 EQU RPLRBAR+3 04560000 @NM00006 EQU RPLAIXID 04561000 RPLAXPKP EQU RPLAIXID 04562000 RPLAIXPC EQU RPLRBAR 04563000 RPLRSV88 EQU RPLOPT8 04564000 RPLUNCON EQU RPLOPT8 04565000 RPLACTV EQU RPLOPT8 04566000 RPLSESS EQU RPLOPT8 04567000 RPLPEND EQU RPLOPT8 04568000 RPLODPRM EQU RPLOPT8 04569000 RPLODACP EQU RPLOPT8 04570000 RPLODACQ EQU RPLOPT8 04571000 RPLRSV78 EQU RPLOPT7 04572000 RPLTCRNO EQU RPLOPT7 04573000 RPLRLSOP EQU RPLOPT7 04574000 RPLTPOST EQU RPLOPT7 04575000 RPLQOPT EQU RPLOPT7 04576000 RPLCNIMM EQU RPLCNOPT 04577000 RPLCNANY EQU RPLCNOPT 04578000 RPLCNALL EQU RPLCNOPT 04579000 RPLRSV68 EQU RPLOPT6 04580000 RPLRSV67 EQU RPLOPT6 04581000 RPLLOCK EQU RPLOPT6 04582000 RPLNCOND EQU RPLOPT6 04583000 RPLCOND EQU RPLOPT6 04584000 RPLEOT EQU RPLUNTYP 04585000 RPLEOM EQU RPLUNTYP 04586000 RPLEOB EQU RPLUNTYP 04587000 RPLWROPT EQU RPLOPT5 04588000 RPLNODE EQU RPLOPT5 04589000 RPLERACE EQU RPLWRTYP 04590000 RPLEAU EQU RPLWRTYP 04591000 RPLNERAS EQU RPLWRTYP 04592000 RPLPSOPT EQU RPLOPT5 04593000 @NM00005 EQU RPLOPT5 04594000 RPLDLGIN EQU RPLOPT5 04595000 RPLBUFL EQU RPLCOMN+52 04596000 RPLRLEN EQU RPLCOMN+48 04597000 RPLCHAIN EQU RPLNXTRP 04598000 RPLBOP EQU RPLOPT4 04599000 @NM00004 EQU RPLOPT4 04600000 RPLMKFRM EQU RPLOPT4 04601000 RPLENDTR EQU RPLOPT4 04602000 RPLALIGN EQU RPLOPT3 04603000 RPLFMT EQU RPLOPT3 04604000 RPLFLD EQU RPLOPT3 04605000 RPLVFY EQU RPLOPT3 04606000 RPLBLK EQU RPLOPT3 04607000 RPLSFORM EQU RPLOPT3 04608000 RPLEODS EQU RPLOPT3 04609000 RPLNSP EQU RPLOPT2 04610000 RPLUPD EQU RPLOPT2 04611000 @NM00003 EQU RPLOPT2 04612000 RPLLRD EQU RPLOPT2 04613000 RPLBWD EQU RPLOPT2 04614000 RPLCNV EQU RPLOPT2 04615000 RPLADD EQU RPLADR 04616000 RPLKEY EQU RPLOPT2 04617000 RPLECBIN EQU RPLECBSW 04618000 RPLGEN EQU RPLOPT1 04619000 RPLKGE EQU RPLOPT1 04620000 RPLASY EQU RPLOPT1 04621000 RPLSKP EQU RPLOPT1 04622000 RPLSEQ EQU RPLOPT1 04623000 RPLDIR EQU RPLOPT1 04624000 RPLLOC EQU RPLOPT1 04625000 RPLDAF EQU RPLARG+2 04626000 RPLSAF EQU RPLARG 04627000 RPLAREA EQU RPLCOMN+32 04628000 RPLTCBPT EQU RPLCOMN+28 04629000 RPLDACB EQU RPLCOMN+24 04630000 RPLCCHAR EQU RPLCOMN+20 04631000 RPLSTRID EQU RPLCOMN+18 04632000 RPLKEYL EQU RPLKEYLE 04633000 RPLRDSOH EQU RPLFDB3 04634000 RPLRLG EQU RPLFDB3 04635000 RPLLGFRC EQU RPLFDB3 04636000 RPLREOT EQU RPLFDB3 04637000 RPLREOM EQU RPLFDB3 04638000 RPLREOB EQU RPLFDB3 04639000 RPLSV32 EQU RPLFDB3 04640000 RPLUINPT EQU RPLFDB3 04641000 RPLSTSAV EQU RPLFDB2 04642000 RPLCUERR EQU RPLFDB2 04643000 RPLDLGFL EQU RPLFDB2 04644000 RPLIOERR EQU RPLFDB2 04645000 RPLDVUNS EQU RPLFDB2 04646000 RPLATND EQU RPLFDB2 04647000 RPLRVID EQU RPLFDB2 04648000 RPLERLK EQU RPLFDB2 04649000 RPLERREG EQU RPLRTNCD 04650000 RPLSTAT EQU RPLFDBWD 04651000 RPLPOST EQU RPLECB 04652000 RPLWAIT EQU RPLECB 04653000 RPLPLHPT EQU RPLCOMN+4 04654000 RPLLEN2 EQU RPLLEN 04655000 RPLREQ EQU RPLIDWD+2 04656000 RPLSTYP EQU RPLIDWD+1 04657000 CVTLEVL EQU CVTRELNO+2 04658000 CVTNUMB EQU CVTRELNO 04659000 CVTMDL EQU CVTFIX+250 04660000 @NM00002 EQU CVTFIX+248 04661000 @NM00001 EQU CVTFIX 04662000 CVTRV482 EQU CVTXTNT2+128 04663000 CVTRV481 EQU CVTXTNT2+124 04664000 CVTRV480 EQU CVTXTNT2+120 04665000 CVTRV479 EQU CVTXTNT2+118 04666000 CVTRV478 EQU CVTXTNT2+117 04667000 CVTRV477 EQU CVTXTNT2+116 04668000 CVTRV476 EQU CVTXTNT2+115 04669000 CVTRV475 EQU CVTXTNT2+114 04670000 CVTRV474 EQU CVTRV466 04671000 CVTRV473 EQU CVTRV466 04672000 CVTRV472 EQU CVTRV466 04673000 CVTRV471 EQU CVTRV466 04674000 CVTRV470 EQU CVTRV466 04675000 CVTRV469 EQU CVTRV466 04676000 CVTRV468 EQU CVTRV466 04677000 CVTRV467 EQU CVTRV466 04678000 CVTRV465 EQU CVTRV457 04679000 CVTRV464 EQU CVTRV457 04680000 CVTRV463 EQU CVTRV457 04681000 CVTRV462 EQU CVTRV457 04682000 CVTRV461 EQU CVTRV457 04683000 CVTRV460 EQU CVTRV457 04684000 CVTRV459 EQU CVTRV457 04685000 CVTRV458 EQU CVTRV457 04686000 CVTRV456 EQU CVTXTNT2+108 04687000 CVTRV455 EQU CVTXTNT2+104 04688000 CVTRV454 EQU CVTXTNT2+100 04689000 CVTRV453 EQU CVTXTNT2+96 04690000 CVTRV452 EQU CVTXTNT2+94 04691000 CVTRV451 EQU CVTXTNT2+92 04692000 CVTRV450 EQU CVTXTNT2+90 04693000 CVTRV449 EQU CVTXTNT2+88 04694000 CVTRV448 EQU CVTXTNT2+87 04695000 CVTRV447 EQU CVTXTNT2+86 04696000 CVTRV446 EQU CVTRV438 04697000 CVTRV445 EQU CVTRV438 04698000 CVTRV444 EQU CVTRV438 04699000 CVTRV443 EQU CVTRV438 04700000 CVTRV442 EQU CVTRV438 04701000 CVTRV441 EQU CVTRV438 04702000 CVTRV440 EQU CVTRV438 04703000 CVTRV439 EQU CVTRV438 04704000 CVTRV437 EQU CVTRV429 04705000 CVTRV436 EQU CVTRV429 04706000 CVTRV435 EQU CVTRV429 04707000 CVTRV434 EQU CVTRV429 04708000 CVTRV433 EQU CVTRV429 04709000 CVTRV432 EQU CVTRV429 04710000 CVTRV431 EQU CVTRV429 04711000 CVTRV430 EQU CVTRV429 04712000 CVTRV428 EQU CVTXTNT2+80 04713000 CVTRV427 EQU CVTXTNT2+76 04714000 CVTRV426 EQU CVTXTNT2+72 04715000 CVTRV425 EQU CVTXTNT2+68 04716000 CVTATACT EQU CVTATCVT 04717000 CVTRV423 EQU CVTXTNT2+62 04718000 CVTRV422 EQU CVTXTNT2+60 04719000 CVTRV421 EQU CVTXTNT2+58 04720000 CVTRV420 EQU CVTXTNT2+56 04721000 CVTRV419 EQU CVTXTNT2+55 04722000 CVTRV418 EQU CVTXTNT2+54 04723000 CVTRV417 EQU CVTRV409 04724000 CVTRV416 EQU CVTRV409 04725000 CVTRV415 EQU CVTRV409 04726000 CVTRV414 EQU CVTRV409 04727000 CVTRV413 EQU CVTRV409 04728000 CVTRV412 EQU CVTRV409 04729000 CVTRV411 EQU CVTRV409 04730000 CVTRV410 EQU CVTRV409 04731000 CVTRV408 EQU CVTRV400 04732000 CVTRV407 EQU CVTRV400 04733000 CVTRV406 EQU CVTRV400 04734000 CVTRV405 EQU CVTRV400 04735000 CVTRV404 EQU CVTRV400 04736000 CVTRV403 EQU CVTRV400 04737000 CVTRV402 EQU CVTRV400 04738000 CVTRV401 EQU CVTRV400 04739000 CVTICB EQU CVTXTNT2+48 04740000 CVTSKTA EQU CVTXTNT2+44 04741000 CVTSHSB EQU CVTSHS 04742000 CVTRSV98 EQU CVTXTNT2+36 04743000 CVTRSV97 EQU CVTXTNT2+34 04744000 CVTRSV96 EQU CVTXTNT2+32 04745000 CVTOLTEP EQU CVTXTNT2+28 04746000 CVTQIDA EQU CVTQID+1 04747000 CVTRSV95 EQU CVTQID 04748000 CVTRSV94 EQU CVTXTNT2+20 04749000 CVTRSV93 EQU CVTXTNT2+16 04750000 CVTRSV92 EQU CVTXTNT2+12 04751000 CVTDEBVR EQU CVTXTNT2+8 04752000 CVTRSV91 EQU CVTXTNT2+6 04753000 CVTRSV9H EQU CVTFLGBT 04754000 CVTRSV9G EQU CVTFLGBT 04755000 CVTRSV9F EQU CVTFLGBT 04756000 CVTRSV9E EQU CVTFLGBT 04757000 CVTRSV9D EQU CVTFLGBT 04758000 CVTRSV9C EQU CVTFLGBT 04759000 CVTVME EQU CVTFLGBT 04760000 CVTNPE EQU CVTFLGBT 04761000 CVTNUCLS EQU CVTXTNT2+4 04762000 CVTDSSVA EQU CVTDSSV+1 04763000 CVTRSV89 EQU CVTDSSV 04764000 CVTRSV88 EQU CVTXTNT1+8 04765000 CVTRSV87 EQU CVTXTNT1+4 04766000 CVTFACHN EQU CVTXTNT1 04767000 CVTRV488 EQU CVTMAP+412 04768000 CVTRV487 EQU CVTMAP+408 04769000 CVTRV486 EQU CVTMAP+404 04770000 CVTRV485 EQU CVTMAP+400 04771000 CVTACTAP EQU CVTMAP+396 04772000 CVTAUTH EQU CVTMAP+392 04773000 CVTATMCA EQU CVTATMCT+1 04774000 CVTATMST EQU CVTATMCT 04775000 CVTRSV61 EQU CVTMAP+384 04776000 CVTVOLT1 EQU CVTVOLM1+1 04777000 CVTVOLI1 EQU CVTVOLF1 04778000 CVTSTOA EQU CVTMAP+376 04779000 CVTRSV58 EQU CVTMAP+374 04780000 CVTRSV57 EQU CVTMAP+372 04781000 CVTDDCE EQU CVTMAP+368 04782000 CVTPNWFR EQU CVTMAP+364 04783000 CVTSMF EQU CVTMAP+360 04784000 CVTSULK EQU CVTMAP+358 04785000 CVTSLKO EQU CVTSYSK 04786000 CVTSLKP EQU CVTSYSK 04787000 CVTSLKQ EQU CVTSYSK 04788000 CVTSLKR EQU CVTSYSK 04789000 CVTRSV56 EQU CVTSYSK 04790000 CVTRSV55 EQU CVTSYSK 04791000 CVTRSV54 EQU CVTSYSK 04792000 CVTRSV53 EQU CVTSYSK 04793000 CVTRSV52 EQU CVTA1F1 04794000 CVTRSV51 EQU CVTA1F1 04795000 CVTRSV50 EQU CVTA1F1 04796000 CVTRSV49 EQU CVTA1F1 04797000 CVTRSV48 EQU CVTA1F1 04798000 CVTRSV47 EQU CVTA1F1 04799000 CVTSRSW EQU CVTA1F1 04800000 CVTPFSW EQU CVTA1F1 04801000 CVTPCVT EQU CVTMAP+352 04802000 CVTRSV46 EQU CVTMAP+344 04803000 CVTRSV45 EQU CVTMAP+340 04804000 CVTRSV44 EQU CVTMAP+338 04805000 CVTRSV43 EQU CVTMAP+336 04806000 CVTHJESA EQU CVTHJES+1 04807000 CVTRSV42 EQU CVTHJES 04808000 CVTEXT2A EQU CVTEXT2+1 04809000 CVTRSV41 EQU CVTEXT2 04810000 CVTAPFA EQU CVTAPF+1 04811000 CVTRSV40 EQU CVTAPF 04812000 CVTRV518 EQU CVTINTLA 04813000 CVTRV517 EQU CVTERPV 04814000 CVTEORM EQU CVTMAP+312 04815000 CVTMCHPR EQU CVTMAP+308 04816000 CVTTZ EQU CVTMAP+304 04817000 CVTJEPS EQU CVTMAP+300 04818000 CVTJESCT EQU CVTMAP+296 04819000 CVTMODE EQU CVTMAP+292 04820000 CVTPTRV EQU CVTMAP+288 04821000 CVTREAL EQU CVTMAP+284 04822000 CVTRSV39 EQU CVTMAP+280 04823000 CVTRSV38 EQU CVTMAP+276 04824000 CVTDMSRA EQU CVTDMSR+1 04825000 CVTRSV37 EQU CVTDMSR 04826000 CVTQMSGA EQU CVTQMSG+1 04827000 CVTRSV36 EQU CVTQMSG 04828000 CVTAMFF EQU CVTMAP+264 04829000 CVTPURGA EQU CVTPURG+1 04830000 CVTRSV35 EQU CVTPURG 04831000 CVTCBSP EQU CVTMAP+256 04832000 CVTATERA EQU CVTATER+1 04833000 CVTSYST EQU CVTATER 04834000 CVTVOLT2 EQU CVTTAT 04835000 CVTVOLI2 EQU CVTVOLF2 04836000 CVTAQAVB EQU CVTAQAVT+1 04837000 CVTRSV34 EQU CVTTCMFG 04838000 CVTRSV33 EQU CVTTCMFG 04839000 CVTRSV32 EQU CVTTCMFG 04840000 CVTRSV31 EQU CVTTCMFG 04841000 CVTRSV30 EQU CVTTCMFG 04842000 CVTRSV29 EQU CVTTCMFG 04843000 CVTRSV28 EQU CVTTCMFG 04844000 CVTTCRDY EQU CVTTCMFG 04845000 CVTGTFA EQU CVTGTF+1 04846000 CVTRSV27 EQU CVTGTFST 04847000 CVTRNIO EQU CVTGTFST 04848000 CVTUSR EQU CVTGTFST 04849000 CVTRV318 EQU CVTFORM 04850000 CVTRV317 EQU CVTTMODE 04851000 CVTRV316 EQU CVTSTATE 04852000 CVTRV315 EQU CVTGTFS 04853000 CVTGTFAV EQU CVTGTFS 04854000 CVT0SCR1 EQU CVTMAP+232 04855000 CVTRV515 EQU CVTMAP+228 04856000 CVTRMS EQU CVTMAP+224 04857000 CVTPATCH EQU CVTMAP+220 04858000 CVTTSCE EQU CVTMAP+216 04859000 CVTLNKSC EQU CVTMAP+214 04860000 CVTQABST EQU CVTMAP+212 04861000 CVTMDLDS EQU CVTMAP+208 04862000 CVTUSER EQU CVTMAP+204 04863000 CVTABEND EQU CVTMAP+200 04864000 CVTSMCA EQU CVTMAP+196 04865000 CVTRSV18 EQU CVTMAP+192 04866000 CVTQLPAQ EQU CVTMAP+188 04867000 CVTQCDSR EQU CVTMAP+184 04868000 CVTRSV17 EQU CVTOPTB 04869000 CVTRSV16 EQU CVTOPTB 04870000 CVTFP EQU CVTOPTB 04871000 CVTAPTHR EQU CVTOPTB 04872000 CVTNLOG EQU CVTOPTB 04873000 CVTTOD EQU CVTOPTB 04874000 CVTCTIMS EQU CVTOPTB 04875000 CVTPROT EQU CVTOPTB 04876000 CVTXPFP EQU CVTOPTA 04877000 CVTASCII EQU CVTOPTA 04878000 CVTRSV13 EQU CVTOPTA 04879000 CVTRSV12 EQU CVTOPTA 04880000 CVTNIP EQU CVTOPTA 04881000 CVTDDR EQU CVTOPTA 04882000 CVTAPR EQU CVTOPTA 04883000 CVTCCH EQU CVTOPTA 04884000 CVTSNCTR EQU CVTMAP+180 04885000 CVTQMWR EQU CVTMAP+176 04886000 CVTQOCR EQU CVTMAP+172 04887000 CVT1EF00 EQU CVTMAP+168 04888000 CVTMZ00 EQU CVTMAP+164 04889000 CVTHEAD EQU CVTMAP+160 04890000 CVTRSV11 EQU CVTMAP+156 04891000 CVT0PT01 EQU CVTMAP+152 04892000 CVTMSER EQU CVTMAP+148 04893000 CVTRV516 EQU CVTIERLC 04894000 CVTILCH EQU CVTMAP+140 04895000 CVT0DS EQU CVTMAP+136 04896000 CVTFBOSV EQU CVTMAP+132 04897000 CVTNUCB EQU CVTMAP+128 04898000 CVTIXAVL EQU CVTMAP+124 04899000 CVTIOQET EQU CVTMAP+120 04900000 CVTDCBA EQU CVTMAP+117 04901000 CVTMVS2 EQU CVTDCB 04902000 CVT6DAT EQU CVTDCB 04903000 CVT4MPS EQU CVTDCB 04904000 CVTRSV09 EQU CVTDCB 04905000 CVT4MS1 EQU CVTDCB 04906000 CVT2SPS EQU CVTDCB 04907000 CVT1SSS EQU CVTDCB 04908000 CVTRSV08 EQU CVTDCB 04909000 CVTSTB EQU CVTMAP+112 04910000 CVTQTD00 EQU CVTMAP+108 04911000 CVTQTE00 EQU CVTMAP+104 04912000 CVTCUCB EQU CVTMAP+100 04913000 CVTSJQ EQU CVTMAP+96 04914000 CVTPBLDL EQU CVTMAP+92 04915000 CVTTPC EQU CVTMAP+88 04916000 CVTSVDCB EQU CVTMAP+84 04917000 CVTBRET EQU CVTMAP+82 04918000 CVTEXIT EQU CVTMAP+80 04919000 CVT0FN00 EQU CVTMAP+76 04920000 CVTDARA EQU CVTDAR+1 04921000 CVTRSV07 EQU CVTFLGS1 04922000 CVTRSV06 EQU CVTFLGS1 04923000 CVTRSV05 EQU CVTFLGS1 04924000 CVTRSV04 EQU CVTFLGS1 04925000 CVTRSV03 EQU CVTFLGS1 04926000 CVTRSV02 EQU CVTFLGS1 04927000 CVTRSV01 EQU CVTFLGS1 04928000 CVTDMPLK EQU CVTFLGS1 04929000 CVTXITP EQU CVTMAP+68 04930000 CVTZDTAB EQU CVTMAP+64 04931000 CVTMSLT EQU CVTMAP+60 04932000 CVTDATE EQU CVTMAP+56 04933000 CVTBTERM EQU CVTMAP+52 04934000 CVTSYSAD EQU CVTMAP+48 04935000 CVTXTLER EQU CVTMAP+44 04936000 CVTILK2 EQU CVTMAP+40 04937000 CVTILK1 EQU CVTMAP+36 04938000 CVTPRLTV EQU CVTMAP+32 04939000 CVTPCNVT EQU CVTMAP+28 04940000 CVT0VL00 EQU CVTMAP+24 04941000 CVTXAPG EQU CVTMAP+20 04942000 CVTBUF EQU CVTMAP+16 04943000 CVTJOB EQU CVTMAP+12 04944000 CVTLINK EQU CVTMAP+8 04945000 CVT0EF00 EQU CVTMAP+4 04946000 CVTTCBP EQU CVTMAP 04947000 CVT EQU CVTMAP 04948000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04949000 @RT00832 EQU ISTA0104 04950000 @PB00003 EQU @PB00004 04951000 @PB00002 EQU @PB00003 04952000 @ENDDATA EQU * 04953000 END ISTDCC80,(C'PLS1550',0603,75310) 04954000