TITLE 'ISTZEFBA/ABA-VS1/MBA-VS2 - 3270 LOCAL SHIPOUT *00001000 ' 00002000 ISTZEFBA CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTZEFBA 78.145' 0001 00008000 DROP @15 00009000 @PROLOG DS 0H 0002 00010000 * 0488 00011000 * /*****************************************************************/ 00012000 * /* */ 00013000 * /* SAVE REGISTERS AND ESTABLISH MODULE BASE */ 00014000 * /* */ 00015000 * /*****************************************************************/ 00016000 * 0488 00017000 */* TPZSAVE (7,12,14) BASE AC(ECBA) */ 00018000 * 0488 00019000 * DO; 0488 00020000 * RFY 0489 00021000 * (GPR01P, 0489 00022000 * GPR12P, 0489 00023000 * GPR13P, 0489 00024000 * GPR14P) RSTD; 0489 00025000 * GEN(PRINT OFF); 0490 00026000 * 0490 00027000 PRINT OFF 00028000 */* ATBUILD (ISTZSAVE) */ 00029000 */* END OF ATBUILD */ 00030000 * 0491 00031000 * GEN(PRINT ON); 0491 00032000 PRINT ON 00033000 * RFY 0492 00034000 * ISTZSAVE BASED(GPR13P); 0492 00035000 * GEN SETS(ZSAZSVVR)(STM 7,12,ZSAZSVVR+0(13)); 0493 00036000 STM 7,12,ZSAZSVVR+0(13) 00037000 * GEN SETS(GPR12P); 0494 00038000 BALR GPR12P,0 00039000 @TSTART DS 0H 00040000 USING @TSTART,GPR12P 00041000 * GEN(PRINT OFF); 0495 00042000 * 0495 00043000 PRINT OFF 00044000 */* ATBUILD (ISTZCRR,ISTRPH,ISTCRA) EJECT(NO) */ 00045000 */* END OF ATBUILD */ 00046000 * 0496 00047000 * GEN(PRINT ON); 0496 00048000 PRINT ON 00049000 * GPR01P->RPHCRR->CRACRR->ZCREECBA='1'B; 0497 00050000 L @15,RPHCRR(,GPR01P) 0497 00051000 L @15,CRACRR(,@15) 0497 00052000 OI ZCREECBA(@15),B'10000000' 0497 00053000 * ZSAZACTV='1'B; 0498 00054000 OI ZSAZACTV(GPR13P),B'10000000' 0498 00055000 * ZSAZTRAC='ECBA'; 0499 00056000 MVC ZSAZTRAC(4,GPR13P),@CC04508 0499 00057000 * ZSAZSVRR=GPR14P; 0500 00058000 ST GPR14P,ZSAZSVRR(,GPR13P) 0500 00059000 * GPR13P=ZSAZSVFC; 0501 00060000 L GPR13P,ZSAZSVFC(,GPR13P) 0501 00061000 * RFY 0502 00062000 * (GPR01P) UNRSTD; 0502 00063000 * RFY 0503 00064000 * (GPR14P) UNRSTD; 0503 00065000 * END; 0504 00066000 * 0504 00067000 */* END TPZSAVE */ 00068000 * 0505 00069000 * IF LDNZLOCK^=0 THEN /* IF UCB PRESENT @ZA28852*/ 00070000 * 0505 00071000 L @07,LDNZLOCK(,LDNCBREG) 0505 00072000 LTR @07,@07 0505 00073000 BZ @RF00505 0505 00074000 * /***************************************************************/ 00075000 * /* */ 00076000 * /* OBTAIN THE UCB LOCK @X04BHHY*/ 00077000 * /* */ 00078000 * /***************************************************************/ 00079000 * 0506 00080000 */*TPZLOCK (OBTAIN,(LDNCB,ISTZEFBA(UNLOCK)),VTAM,LDNRPH,SAV13) TYNCB 00081000 *LDNCB) */ 00082000 * 0506 00083000 *LOCK: 0506 00084000 * DO; 0506 00085000 * 0506 00086000 LOCK DS 0H 0507 00087000 */* ATBUILD (ISTZFSAV,ISTZ19SV) */ 00088000 * 0507 00089000 */* VS2 TPIOS FIXED SAVEAREA FORMAT (TPZLOCK) */ 0507 00090000 *DCL 1 ISTZFSAV BDY(WORD) BASED, 0507 00091000 * 3 ZSAFSVBC PTR(31), /* SAVEAREA BACK CHAIN */ 00092000 * 3 ZSAFSVFC PTR(31), /* SAVEAREA FORWARD CHAIN */ 00093000 * 3 ZSAFSVRR PTR(31), /* RETURN REGISTER */ 00094000 * 3 ZSAFSVVR (6) PTR(31), /* VARIABLE REGS (9-14) SVEAREA*/ 00095000 * 3 ZSAFSVR2 PTR(31), /* REGISTER 2 SAVEAREA */ 00096000 * 3 ZSAFSV19 PTR(31); /* ADDRESS OF 19 WORD SAVEAREA */ 00097000 *DCL ZSAFSVVA FIXED(8) CONSTANT(8); /* DISPLACEMENT TO VARIABLE REGS*/ 00098000 *DCL ZSAFSVSZ FIXED(8) CONSTANT(44); /* LENGTH OF ISTZSAVE */ 00099000 */* VS2 TPIOS 19 WORD FIXED SAVEAREA FORMAT (TPZLOCK) */ 0510 00100000 *DCL 1 ISTZ19SV BDY(WORD) BASED, 0510 00101000 * 3 ZSAF19FG BIT(8), /* FLAGS FIELD */ 00102000 * 5 ZSAFLOCK BIT(1), /* LOCK OWNERSHIP BIT */ 00103000 * 5 ZSAFRSVS BIT(7), /* RESERVED */ 00104000 * 3 ZSAF19RV CHAR(3), /* RESERVED */ 00105000 * 3 ZSAF19R1 PTR(31), /* RPH REGISTER (R1) SAVEAREA */ 00106000 * 3 ZSAF19RD PTR(31), /* SAVEAREA PTR (R13) SAVEAREA */ 00107000 * 3 ZSAF19IO (16) PTR(31); /* 16 WORD SIO SAVEAREA */ 00108000 * 0511 00109000 */* END OF ATBUILD */ 00110000 * 0511 00111000 * DCL 0511 00112000 * 1 FRWD0013 BDY(WORD) BASED,/* FRR PARM AREA */ 00113000 * 2 WRD00013 PTR(31), /* FIRST PARM WORD */ 00114000 * 2 WRD10013 PTR(31), /* 2ND PARM WORD */ 00115000 * 2 WRDS0013 CHAR(16); /* OTHER PARM WORDS */ 00116000 * RFY 0512 00117000 * (GPR01P, 0512 00118000 * GPR02P, 0512 00119000 * GPR03P, 0512 00120000 * GPR09P, 0512 00121000 * GPR10P, 0512 00122000 * GPR11P, 0512 00123000 * GPR14P, 0512 00124000 * GPR15P) RSTD; 0512 00125000 * GPR15P=PSACPUPA; /* GET CPU ADDRESS */ 00126000 LH GPR15P,PSACPUPA 0513 00127000 * SLL(GPR15P,2); /* ADJUST FOR ADDRESSING */ 00128000 SLL GPR15P,2 0514 00129000 * GEN(L GPR15P,ATCTPCP0(GPR15P,GPR02P)) 0515 00130000 * REFS(GPR02P,GPR15P,ATCTPCP0);/* DETERMINE PROPER SAVEAREA */ 00131000 L GPR15P,ATCTPCP0(GPR15P,GPR02P) 00132000 * GEN SETS(ZSAFSVVR)(STM 9,14,ZSAFSVVR+0(15));/* SAVE REGS */ 00133000 STM 9,14,ZSAFSVVR+0(15) 00134000 * GPR09P=GPR15P; /* SAVE SAVEAREA PTR ACROSS 0517 00135000 * MACROS */ 00136000 LR GPR09P,GPR15P 0517 00137000 * GPR10P=GPR02P->ATCZR01; /* GET FRR RTN ADDRESS */ 00138000 L GPR10P,ATCZR01(,GPR02P) 0518 00139000 * GPR09P->ZSAFSVR2=GPR02P; /* SAVE R2 ACROSS MODE SETS */ 00140000 ST GPR02P,ZSAFSVR2(,GPR09P) 0519 00141000 * GEN(MODESET EXTKEY=ZERO,SAVEKEY=(2)); 0520 00142000 * 0520 00143000 MODESET EXTKEY=ZERO,SAVEKEY=(2) 00144000 * /*************************************************************/ 00145000 * /* */ 00146000 * /* MODE SET TO KEY ZERO */ 00147000 * /* */ 00148000 * /*************************************************************/ 00149000 * 0521 00150000 * GPR11P=LDNZLOCK; /* GET UCBLOCK FROM LDNCB */ 00151000 L GPR11P,LDNZLOCK(,LDNCBREG) 0521 00152000 * GPR09P->ZSAFSV19->ZSAFLOCK='1'B;/* SET OWNERSHIP FLAG */ 00153000 L @08,ZSAFSV19(,GPR09P) 0522 00154000 OI ZSAFLOCK(@08),B'10000000' 0522 00155000 * GEN REFS(GPR11P,PSALITA,FLC); 0523 00156000 SETLOCK OBTAIN,TYPE=IOSUCB,ADDR=(11),MODE=UNCOND, *00157000 RELATED=(LDNCB,ISTZEFBA(UNLOCK)) 00158000 * GEN REFS(GPR10P,GPR13P,GPR14P,PSACSTK,FRRSCURR,FRRSLAST,FRRS, 00159000 * FRRSENTR,FRRSPARM,PSALSFCC,FRRSELEN,FRRSFRRA); 0524 00160000 SETFRR A,FRRAD=(GPR10P),PARMAD=(GPR14P), *00161000 WRKREGS=(GPR13P,GPR14P) 00162000 * GPR14P->WRD00013=GPR11P; /* SAVE LOCK WORD ADDR */ 00163000 ST GPR11P,WRD00013(,GPR14P) 0525 00164000 * GPR14P->WRD10013=GPR09P; /* SAVE SAVEAREA ADDR */ 00165000 ST GPR09P,WRD10013(,GPR14P) 0526 00166000 * GEN(MODESET KEYADDR=(2)); /* RESTORE KEY FROM REG 2 */ 00167000 MODESET KEYADDR=(2) 00168000 * GPR02P=GPR09P->ZSAFSVR2; /* RESTORE REG 2 */ 00169000 L GPR02P,ZSAFSVR2(,GPR09P) 0528 00170000 * GPR15P=GPR09P; /* KEEP ADDR OF SAVEAREA */ 00171000 LR GPR15P,GPR09P 0529 00172000 * GEN REFS(ZSAFSVVR)(LM 9,14,ZSAFSVVR+0(15));/* RESTORE */ 00173000 LM 9,14,ZSAFSVVR+0(15) 00174000 * GPR15P->ZSAFSV19->ZSAF19R1=GPR01P;/* SAVE R1 FOR CALLER */ 00175000 L @08,ZSAFSV19(,GPR15P) 0531 00176000 ST GPR01P,ZSAF19R1(,@08) 0531 00177000 * GPR01P=ADDR(LDNRPH); /* R1=ADDR FIXED RPH */ 00178000 LA GPR01P,LDNRPH(,LDNCBREG) 0532 00179000 * GPR15P->ZSAFSV19->ZSAF19RD=GPR13P;/* SAVE R13 FOR CALLER */ 00180000 ST GPR13P,ZSAF19RD(,@08) 0533 00181000 * GPR13P=GPR15P; /* SET UP FIXED SAVEAREA PTR */ 00182000 LR GPR13P,GPR15P 0534 00183000 * RFY 0535 00184000 * (GPR01P, 0535 00185000 * GPR02P, 0535 00186000 * GPR03P, 0535 00187000 * GPR09P, 0535 00188000 * GPR10P, 0535 00189000 * GPR11P, 0535 00190000 * GPR14P, 0535 00191000 * GPR15P) UNRSTD; 0535 00192000 * END; /* *** END TPZLOCK *** @X04BHHY*/ 00193000 * ELSE 0537 00194000 * ; /* NO UCB @ZA28852*/ 00195000 * 0537 00196000 @RF00505 DS 0H 0538 00197000 * /*****************************************************************/ 00198000 * /* */ 00199000 * /* IF TPIOS CCW, PERFORM CONTACT/RESET PROCESSING */ 00200000 * /* */ 00201000 * /*****************************************************************/ 00202000 * 0538 00203000 * IF ZLBCPCF1=ZLBTPIOS THEN /* TPIOS CCW */ 00204000 CLI ZLBCPCF1(BUFREG),X'FF' 0538 00205000 BNE @RF00538 0538 00206000 * DO; 0539 00207000 * 0539 00208000 * /*************************************************************/ 00209000 * /* */ 00210000 * /* IF CONTACT, DO CONTACT PROCESSING. ELSE, DO RESET */ 00211000 * /* */ 00212000 * /*************************************************************/ 00213000 * 0540 00214000 * IF ZLBCMOD=ZLBCONT THEN /* A CONTACT */ 00215000 * 0540 00216000 CLI ZLBCMOD(BUFREG),X'04' 0540 00217000 BNE @RF00540 0540 00218000 * /***********************************************************/ 00219000 * /* */ 00220000 * /* SEGMENT(CONTACT)REQUEST */ 00221000 * /* */ 00222000 * /***********************************************************/ 00223000 * 0541 00224000 * DO; 0541 00225000 * GOTO CONTACT; 0542 00226000 B CONTACT 0542 00227000 *CONTACT#: 0543 00228000 * END; 0543 00229000 * ELSE /* A RESET */ 00230000 * 0544 00231000 * /***********************************************************/ 00232000 * /* */ 00233000 * /* SEGMENT(RESET)REQUEST */ 00234000 * /* */ 00235000 * /***********************************************************/ 00236000 * 0544 00237000 * DO; 0544 00238000 B @RC00540 0544 00239000 @RF00540 DS 0H 0545 00240000 * GOTO RESET; 0545 00241000 B RESET 0545 00242000 *RESET#: 0546 00243000 * END; 0546 00244000 * END; 0547 00245000 * ELSE /* NOT TPIOS CCW */ 00246000 * DO; 0548 00247000 * 0548 00248000 B @RC00538 0548 00249000 @RF00538 DS 0H 0549 00250000 * /*************************************************************/ 00251000 * /* */ 00252000 * /* IF DEVICE SICK IS SET, RELEASE BUFFER AND EXIT. ELSE, */ 00253000 * /* PLACE ON CHANNEL PROGRAM SIO QUEUE */ 00254000 * /* */ 00255000 * /*************************************************************/ 00256000 * 0549 00257000 * IF LDNZDSIC=ON THEN /* DEVICE SICK - */ 00258000 * 0549 00259000 TM LDNZDSIC(LDNCBREG),B'10000000' 0549 00260000 BNO @RF00549 0549 00261000 * /***********************************************************/ 00262000 * /* */ 00263000 * /* RELEASE CHANNEL PROGRAM BUFFER RELSTORE */ 00264000 * /* BUFADDR(BUFREG)DISABLE(YES)CLEAR(YES) */ 00265000 * /* */ 00266000 * /***********************************************************/ 00267000 * 0550 00268000 * DO; 0550 00269000 * 0550 00270000 */* ATBUILD (ISTATCVT,ISTRPH) */ 00271000 */* END OF ATBUILD */ 00272000 * 0551 00273000 * RFY 0551 00274000 * (GPR02P, 0551 00275000 * GPR03P, 0551 00276000 * GPR04P, 0551 00277000 * GPR15P) RSTD; 0551 00278000 * RFY 0552 00279000 * (GPR01P, 0552 00280000 * GPR13P) RSTD; 0552 00281000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 0553 00282000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 00283000 * RFY 0554 00284000 * GPR13P UNRSTD; 0554 00285000 * GPR04P=BUFREG|'80000000'X; 0555 00286000 LR GPR04P,BUFREG 0555 00287000 O GPR04P,@CF01906 0555 00288000 * DCL 0556 00289000 * 1 FMZA0019 FIXED(31) STATIC LOCAL, 0556 00290000 * 2 * FIXED(8) INIT(192), 0556 00291000 * 2 * PTR(24) INIT(0); 0556 00292000 * GPR03F=FMZA0019; 0557 00293000 L GPR03F,FMZA0019 0557 00294000 * DO; /* LISATCVT 0558 00295000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00296000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00297000 L GPR15P,ATCLCPTR 0559 00298000 * END; /* LISATCVT */ 00299000 * GPR02P=GPR15P->ATCBPDA; 0561 00300000 L GPR02P,ATCBPDA(,GPR15P) 0561 00301000 * GPR15P=GPR15P->ATCSMRS; 0562 00302000 L GPR15P,ATCSMRS(,GPR15P) 0562 00303000 * DCL 0563 00304000 * FMZL0019 BASED(GPR15P) LABEL VALUERANGE(*); 0563 00305000 * CALL FMZL0019; 0564 00306000 BALR @14,@15 0564 00307000 * RFY 0565 00308000 * GPR13P RSTD; 0565 00309000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 0566 00310000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 00311000 * RFY 0567 00312000 * (GPR01P, 0567 00313000 * GPR13P) UNRSTD; 0567 00314000 * RFY 0568 00315000 * (GPR02P, 0568 00316000 * GPR03P, 0568 00317000 * GPR04P, 0568 00318000 * GPR15P) UNRSTD; 0568 00319000 * END; /* *********END OF RELSTORE 0569 00320000 * EXPANSION********* */ 00321000 * ELSE 0570 00322000 * DO; /* DEVICE NOT SICK */ 00323000 B @RC00549 0570 00324000 @RF00549 DS 0H 0571 00325000 * RFY 0571 00326000 * RX RSTD; /* RESTRICT WORK REGISTER */ 00327000 * RX=LDNZLAST; /* LOAD ADDR - LAST ON SIOQ */ 00328000 * 0572 00329000 L RX,LDNZLAST(,LDNCBREG) 0572 00330000 * /*********************************************************/ 00331000 * /* */ 00332000 * /* IF NOTHING ON SIO QUEUE, PLACE THIS ONE ON TOP */ 00333000 * /* */ 00334000 * /*********************************************************/ 00335000 * 0573 00336000 * IF RX=0 THEN /* SIO QUEUE EMPTY */ 00337000 LTR RX,RX 0573 00338000 BNZ @RF00573 0573 00339000 * LDNSIOQ=BUFREG; /* PLACE THIS SET ON TOP */ 00340000 ST BUFREG,LDNSIOQ(,LDNCBREG) 0574 00341000 * ELSE /* NOT EMPTY - PUT ON BOTTOM */ 00342000 * RX->ZLBCHAIN=BUFREG; /* PLACE SET ON BOTTOM */ 00343000 B @RC00573 0575 00344000 @RF00573 ST BUFREG,ZLBCHAIN(,RX) 0575 00345000 * RFY 0576 00346000 * RX UNRSTD; /* RELEASE WORK REGISTER */ 00347000 @RC00573 DS 0H 0577 00348000 * LDNZLAST=ZLBLSTBF; /* LAST ON SIO QUEUE = LAST ON 0577 00349000 * THIS CHANNEL PROGRAM */ 00350000 * 0577 00351000 L @07,ZLBLSTBF(,BUFREG) 0577 00352000 ST @07,LDNZLAST(,LDNCBREG) 0577 00353000 * /*********************************************************/ 00354000 * /* */ 00355000 * /* IF I/O BUSY IS NOT INDICATED, CALL I/O INIT */ 00356000 * /* */ 00357000 * /*********************************************************/ 00358000 * 0578 00359000 * IF LDNZIOBY=ON /* I/O BUSY - NULL @XL03HFZ*/ 00360000 * |LDNTPBIO='1'B THEN 0578 00361000 TM LDNZIOBY(LDNCBREG),B'01000000' 0578 00362000 BO @RT00578 0578 00363000 TM LDNTPBIO(LDNCBREG),B'00000010' 0578 00364000 BO @RT00578 0578 00365000 * ; /* | BLOCK I/O @XL03HFZ*/ 00366000 * ELSE 0580 00367000 * DO; /* NOT BUSY - CALL I/O INIT */ 00368000 * RFY 0581 00369000 * (R0, 0581 00370000 * RCDREG) RSTD; /* RESTRICT REGS OVER CALL */ 00371000 * R0=SSIOQ; /* START TOP ON SIO QUEUE */ 00372000 LA R0,1 0582 00373000 * CALL ZLFZEAAA; /* CALL I/O INIT */ 00374000 * 0583 00375000 L @07,ATCZLFVT(,ATCVTREG) 0583 00376000 L @15,ZLFZEAAA(,@07) 0583 00377000 BALR @14,@15 0583 00378000 * /*****************************************************/ 00379000 * /* */ 00380000 * /* IF I/O TO START RETURN CODE, CALL I/O SCHED */ 00381000 * /* */ 00382000 * /*****************************************************/ 00383000 * 0584 00384000 * IF RCDREG=RCSIO THEN/* I/O TO START */ 00385000 LTR RCDREG,RCDREG 0584 00386000 BNZ @RF00584 0584 00387000 * CALL ZLFZFAFA; /* CALL I/O SCHED */ 00388000 L @07,ATCZLFVT(,ATCVTREG) 0585 00389000 L @15,ZLFZFAFA(,@07) 0585 00390000 BALR @14,@15 0585 00391000 * ELSE 0586 00392000 * ; /* NO I/O TO START - NULL */ 00393000 @RF00584 DS 0H 0587 00394000 * RFY 0587 00395000 * (R0, 0587 00396000 * RCDREG) UNRSTD; /* RELEASE RESTRICTED REGS */ 00397000 * END; 0588 00398000 * END; 0589 00399000 @RT00578 DS 0H 0590 00400000 * END; /* END - REDRIVE DO @X04BHHY*/ 00401000 * 0590 00402000 @RC00549 DS 0H 0591 00403000 * /*****************************************************************/ 00404000 * /* */ 00405000 * /* RELEASE OF NCB LOCK PUT IN END OF MODULE BY DCR 3966.0 */ 00406000 * /* @X04BHHY*/ 00407000 * /* */ 00408000 * /*****************************************************************/ 00409000 * 0591 00410000 * IF LDNZLOCK^=0 THEN /* IF UCB PRESENT @ZA28852*/ 00411000 * 0591 00412000 @RC00538 L @07,LDNZLOCK(,LDNCBREG) 0591 00413000 LTR @07,@07 0591 00414000 BZ @RF00591 0591 00415000 * /***************************************************************/ 00416000 * /* */ 00417000 * /* RELEASE THE UCB LOCK @X04BHHY*/ 00418000 * /* */ 00419000 * /***************************************************************/ 00420000 * 0592 00421000 */*TPZLOCK (RELEASE,(LDNCB,ISTZEFBA(LOCK)),VTAM,LDNRPH,SAV13) TYNCB( 00422000 *DNCB) */ 00423000 * 0592 00424000 *UNLOCK: 0592 00425000 * DO; 0592 00426000 * 0592 00427000 UNLOCK DS 0H 0593 00428000 */* ATBUILD (ISTZFSAV,ISTZ19SV) */ 00429000 */* END OF ATBUILD */ 00430000 * 0593 00431000 * RFY 0593 00432000 * (GPR01P, 0593 00433000 * GPR02P, 0593 00434000 * GPR03P, 0593 00435000 * GPR09P, 0593 00436000 * GPR10P, 0593 00437000 * GPR11P, 0593 00438000 * GPR14P, 0593 00439000 * GPR15P) RSTD; 0593 00440000 * GEN SETS(ZSAFSVVR)(STM 9,14,ZSAFSVVR+0(13));/* SAVE REGS */ 00441000 STM 9,14,ZSAFSVVR+0(13) 00442000 * GPR09P=GPR13P; /* SAVE SAVEAREA PTR ACROSS 0595 00443000 * MACROS */ 00444000 LR GPR09P,GPR13P 0595 00445000 * GPR09P->ZSAFSVR2=GPR02P; /* SAVE R2 ACROSS MODE SETS */ 00446000 ST GPR02P,ZSAFSVR2(,GPR09P) 0596 00447000 * GEN(MODESET EXTKEY=ZERO,SAVEKEY=(2)); 0597 00448000 * 0597 00449000 MODESET EXTKEY=ZERO,SAVEKEY=(2) 00450000 * /*************************************************************/ 00451000 * /* */ 00452000 * /* MODE SET TO KEY ZERO */ 00453000 * /* */ 00454000 * /*************************************************************/ 00455000 * 0598 00456000 * GEN REFS(GPR13P,GPR14P,PSACSTK,FRRSCURR,FRRS,FRRSEMP,FRRSELEN, 00457000 * PSA); 0598 00458000 SETFRR D,WRKREGS=(GPR13P,GPR14P) 00459000 * IF GPR09P->ZSAFSV19->ZSAFLOCK='1'B/* CHECK OWNRSHIP FLG */ 00460000 * THEN 0599 00461000 L @08,ZSAFSV19(,GPR09P) 0599 00462000 TM ZSAFLOCK(@08),B'10000000' 0599 00463000 BNO @RF00599 0599 00464000 * DO; /* UCB LOCK OWNED - RELEASE IT */ 00465000 * GPR11P=LDNZLOCK; /* GET UCBLOCK FROM LDNCB */ 00466000 L GPR11P,LDNZLOCK(,LDNCBREG) 0601 00467000 * GEN REFS(GPR11P,PSALITA,FLC); 0602 00468000 SETLOCK RELEASE,TYPE=IOSUCB,ADDR=(11), *00469000 RELATED=(LDNCB,ISTZEFBA(LOCK)) 00470000 * GPR09P->ZSAFSV19->ZSAFLOCK='0'B;/* RESET OWNERSHIP FLAG */ 00471000 L @08,ZSAFSV19(,GPR09P) 0603 00472000 NI ZSAFLOCK(@08),B'01111111' 0603 00473000 * END; /* END RELEASE LOCK */ 00474000 * ELSE 0605 00475000 * ; /* LOCK NOT OWNED */ 00476000 @RF00599 DS 0H 0606 00477000 * GEN(MODESET KEYADDR=(2)); /* RESTORE KEY FROM REG 2 */ 00478000 MODESET KEYADDR=(2) 00479000 * GPR02P=GPR09P->ZSAFSVR2; /* RESTORE REG 2 */ 00480000 L GPR02P,ZSAFSVR2(,GPR09P) 0607 00481000 * GPR15P=GPR09P->ZSAFSV19; /* KEEP ADDR OF 19 WORD SAVEAREA */ 00482000 L GPR15P,ZSAFSV19(,GPR09P) 0608 00483000 * GEN REFS(ZSAFSVVR)(LM 9,14,ZSAFSVVR+0(9));/* RESTORE */ 00484000 LM 9,14,ZSAFSVVR+0(9) 00485000 * GPR01P=GPR15P->ZSAF19R1; /* RESTORE R1 FOR CALLER */ 00486000 L GPR01P,ZSAF19R1(,GPR15P) 0610 00487000 * GPR13P=GPR15P->ZSAF19RD; /* RESTORE R13 FOR CALLER */ 00488000 L GPR13P,ZSAF19RD(,GPR15P) 0611 00489000 * RFY 0612 00490000 * (GPR01P, 0612 00491000 * GPR02P, 0612 00492000 * GPR03P, 0612 00493000 * GPR09P, 0612 00494000 * GPR10P, 0612 00495000 * GPR11P, 0612 00496000 * GPR14P, 0612 00497000 * GPR15P) UNRSTD; 0612 00498000 * END; /* *** END TPZLOCK *** @X04BHHY*/ 00499000 * ELSE 0614 00500000 * ; /* NO UCB @ZA28852*/ 00501000 * 0614 00502000 @RF00591 DS 0H 0615 00503000 * /*****************************************************************/ 00504000 * /* */ 00505000 * /* RESTORE REGISTERS AND RETURN TO CALLER */ 00506000 * /* */ 00507000 * /*****************************************************************/ 00508000 * 0615 00509000 */* TPZRETN */ 00510000 * 0615 00511000 * DO; 0615 00512000 * RFY 0616 00513000 * (GPR07P, 0616 00514000 * GPR14P, 0616 00515000 * GPR15P) RSTD; 0616 00516000 * GPR13P=ZSAZSVBC; 0617 00517000 L GPR13P,ZSAZSVBC(,GPR13P) 0617 00518000 * IF GPR13P=0 THEN 0618 00519000 LTR GPR13P,GPR13P 0618 00520000 BZ @RT00618 0618 00521000 * ; /* TPDVTS ISTZFARR */ 00522000 * ELSE 0620 00523000 * GPR14P=ZSAZSVRR; 0620 00524000 L GPR14P,ZSAZSVRR(,GPR13P) 0620 00525000 * GEN REFS(ZSAZSVVR)(LM 7,12,ZSAZSVVR+0(13)); 0621 00526000 @RT00618 DS 0H 0621 00527000 LM 7,12,ZSAZSVVR+0(13) 00528000 * GEN REFS(GPR14P) EXIT NOSEQFLOW(BR GPR14P); 0622 00529000 BR GPR14P 00530000 * RFY 0623 00531000 * (GPR07P, 0623 00532000 * GPR14P, 0623 00533000 * GPR15P) UNRSTD; 0623 00534000 * END; 0624 00535000 * 0624 00536000 */* END TPZRETN */ 00537000 * 0625 00538000 * GEN NOSETS NOREFS NODEFS(EJECT); 0625 00539000 EJECT 00540000 * 0626 00541000 * /*****************************************************************/ 00542000 * /* */ 00543000 * /* CONTACT SUBROUTINE - HANDLES CONTACT TPIOS CCWS. REJECTS */ 00544000 * /* CONTACT IF NECESSARY (INVITE AND ATTN RECIEVED). IF NOT, SETS */ 00545000 * /* CONTACT INDICATOR AND CLEARS ANY INVITE AND SETS FMCB LINE */ 00546000 * /* STATE INDICATOR TO RESCHEDULE STATE. IN ANY CASE, FSB IS */ 00547000 * /* TPQUED TO DNCB TIP PRIOR TO RETURN. SEGMENT(CONTACT)START */ 00548000 * /* */ 00549000 * /*****************************************************************/ 00550000 * 0626 00551000 * DO; 0626 00552000 * GOTO CONTACT@; 0627 00553000 B CONTACT@ 0627 00554000 *CONTACT: 0628 00555000 * END; /* CONTACT: SUBROUTINE */ 00556000 * 0628 00557000 CONTACT DS 0H 0629 00558000 * /*****************************************************************/ 00559000 * /* */ 00560000 * /* IF INVITE AND ATTENTION RECIEVED, SET CONTACT REJECTION */ 00561000 * /* COMPLETION CODE. */ 00562000 * /* */ 00563000 * /*****************************************************************/ 00564000 * 0629 00565000 * IF LDNZATTP=ON THEN /* - ATTN RECIEVED */ 00566000 TM LDNZATTP(LDNCBREG),B'00100000' 0629 00567000 BNO @RF00629 0629 00568000 * ZLBCOMP=ZLBCONRJ; /* COMPLETION: CONTACT REJECT */ 00569000 MVI ZLBCOMP(BUFREG),X'10' 0630 00570000 * ELSE 0631 00571000 * DO; /* NOT INVITE ATTENTION - */ 00572000 B @RC00629 0631 00573000 @RF00629 DS 0H 0632 00574000 * ZLBCOMP=ZLBCONSU; /* COMPLETION: CONTACT SUCCESSFUL*/ 00575000 MVI ZLBCOMP(BUFREG),X'0C' 0632 00576000 * ZLBFDBZ=ZLBFDBZ&&ZLBFDBZ; /* ZERO TPIOS FDB @XM8916M*/ 00577000 XC ZLBFDBZ(12,BUFREG),ZLBFDBZ(BUFREG) 0633 00578000 * END; 0634 00579000 * FSBTYPE=FSTYPE; /* SET FSB CONTROL BLOCK ID */ 00580000 @RC00629 LA @07,16 0635 00581000 ALR @07,BUFREG 0635 00582000 MVI FSBTYPE(@07),X'02' 0635 00583000 * FSBLNGTH=LENGTH(ISTFSB); /* SET FSB LENGTH */ 00584000 * 0636 00585000 MVI FSBLNGTH(@07),X'2C' 0636 00586000 * /*****************************************************************/ 00587000 * /* */ 00588000 * /* QUEUE FSB TO DNCB TIP (FEEDBACK PAB) */ 00589000 * /* */ 00590000 * /*****************************************************************/ 00591000 * 0637 00592000 * CALL QUEUE; /* QUEUE FSB & SCHED @X04BHHY*/ 00593000 * 0637 00594000 BAL @14,QUEUE 0637 00595000 * /*****************************************************************/ 00596000 * /* */ 00597000 * /* SEGMENT(CONTACT)FINISH */ 00598000 * /* */ 00599000 * /*****************************************************************/ 00600000 * 0638 00601000 * DO; 0638 00602000 * GOTO CONTACT#; 0639 00603000 B CONTACT# 0639 00604000 *CONTACT@: 0640 00605000 * END; 0640 00606000 CONTACT@ DS 0H 0641 00607000 * GEN NOSETS NOREFS NODEFS(EJECT); 0641 00608000 EJECT 00609000 * 0642 00610000 * /*****************************************************************/ 00611000 * /* */ 00612000 * /* RESET SUBROUTINE - ENTERED ON A NON-CONTACT TPIOS CCW. IF */ 00613000 * /* RESET ORDERLY OR RESET AT EOF, STACK RESET TILL IOB COMES */ 00614000 * /* FREE. IF RESET ERROR LOCK, INVOKE RESET2 (RESET ERROR LOCK) */ 00615000 * /* SUBROUTINE. ON RESET CONDITIONAL, SETUP RESET FAIL FEEDBACK IF*/ 00616000 * /* I/O BUSY. ELSE, CALL TPIOS I/O PURGE IF I/O IS BUSY. */ 00617000 * /* SEGMENT(RESET)START */ 00618000 * /* */ 00619000 * /*****************************************************************/ 00620000 * 0642 00621000 * DO; 0642 00622000 * GOTO RESET@; 0643 00623000 B RESET@ 0643 00624000 *RESET: 0644 00625000 * END; 0644 00626000 RESET DS 0H 0645 00627000 * LDNZLPC0=OFF; /* CLEAR CONTROL SWITCH */ 00628000 * 0645 00629000 L @07,LDNZLPC0-2(,LDNCBREG) 0645 00630000 @GL00002 LR @00,@07 0645 00631000 N @00,@CF04574 0645 00632000 CS @07,@00,LDNZLPC0-2(LDNCBREG) 0645 00633000 BNE @GL00002 0645 00634000 * /*****************************************************************/ 00635000 * /* */ 00636000 * /* IF RESET ORDERLY OR RESET OT EOF COMMAND, THEN SETUP FOR RESET*/ 00637000 * /* IF I/O IS BUSY. */ 00638000 * /* */ 00639000 * /*****************************************************************/ 00640000 * 0646 00641000 * IF ZLBCMOD=ZLBRO| /* IF RESET ORDERLY OR - */ 00642000 * ZLBCMOD=ZLBREOF THEN /* RESET AT EOF */ 00643000 * 0646 00644000 CLI ZLBCMOD(BUFREG),X'08' 0646 00645000 BE @RT00646 0646 00646000 CLI ZLBCMOD(BUFREG),X'0C' 0646 00647000 BNE @RF00646 0646 00648000 @RT00646 DS 0H 0647 00649000 * /***************************************************************/ 00650000 * /* */ 00651000 * /* IF I/O IS BUSY, SETUP FOR RESET */ 00652000 * /* */ 00653000 * /***************************************************************/ 00654000 * 0647 00655000 * IF LDNZIOBY=ON THEN /* I/O IS BUSY - */ 00656000 TM LDNZIOBY(LDNCBREG),B'01000000' 0647 00657000 BNO @RF00647 0647 00658000 * DO; 0648 00659000 * LDNZF003=ON; /* INDICATE RESET AT EOF */ 00660000 L @07,LDNZF003-3(,LDNCBREG) 0649 00661000 @GL00004 LR @00,@07 0649 00662000 O @00,@CF04577 0649 00663000 CS @07,@00,LDNZF003-3(LDNCBREG) 0649 00664000 BNE @GL00004 0649 00665000 * IF ZLBRQTG^='0000'X THEN /* I/O NOT INITIATED FOR APPL 0650 00666000 * ABEND @ZA26631*/ 00667000 CLC ZLBRQTG(2,BUFREG),@CB04422 0650 00668000 BE @RF00650 0650 00669000 * LDNZV001=BUFREG; /* SAVE RESET BUFFER ADDRESS */ 00670000 ST BUFREG,LDNZV001(,LDNCBREG) 0651 00671000 * ELSE /* ABEND I/O @ZA26631*/ 00672000 * DNCSESIQ=BUFREG; /* SAVE RESET BUFFER FOR ABEND 0652 00673000 * CLEANUP @ZA26631*/ 00674000 B @RC00650 0652 00675000 @RF00650 ST BUFREG,DNCSESIQ(,DNCBREG) 0652 00676000 * LDNZLPC0=ON; /* SET CONTROL SWITCH - NO FREE 00677000 * OF SIO QUEUE */ 00678000 @RC00650 L @07,LDNZLPC0-2(,LDNCBREG) 0653 00679000 @GL00005 LR @00,@07 0653 00680000 O @00,@CF04580 0653 00681000 CS @07,@00,LDNZLPC0-2(LDNCBREG) 0653 00682000 BNE @GL00005 0653 00683000 * END; 0654 00684000 * ELSE 0655 00685000 * ; /* I/O NOT BUSY - NULL */ 00686000 @RF00647 DS 0H 0656 00687000 * ELSE /* NOT RESET ORDERLY/AT EOF */ 00688000 * 0656 00689000 * /***************************************************************/ 00690000 * /* */ 00691000 * /* IF RESET ERROR LOCK, INCLUDE RESET ERROR LOCK SEGMENT */ 00692000 * /* */ 00693000 * /***************************************************************/ 00694000 * 0656 00695000 * IF ZLBCMOD=ZLBRELK THEN /* RESET ERROR LOCK - */ 00696000 * 0656 00697000 B @RC00646 0656 00698000 @RF00646 CLI ZLBCMOD(BUFREG),X'10' 0656 00699000 BNE @RF00656 0656 00700000 * /*************************************************************/ 00701000 * /* */ 00702000 * /* SEGMENT(RESET2)REQUEST */ 00703000 * /* */ 00704000 * /*************************************************************/ 00705000 * 0657 00706000 * DO; 0657 00707000 * GOTO RESET2; 0658 00708000 B RESET2 0658 00709000 *RESET2#: 0659 00710000 * END; 0659 00711000 * ELSE /* NOT RESET ERROR LOCK */ 00712000 * 0660 00713000 * /*************************************************************/ 00714000 * /* */ 00715000 * /* IF RESET CONDITIONAL, TEST FOR I/O BUSY */ 00716000 * /* */ 00717000 * /*************************************************************/ 00718000 * 0660 00719000 * IF ZLBCMOD=ZLBRCON THEN /* RESET CONDITIONAL */ 00720000 * 0660 00721000 B @RC00656 0660 00722000 @RF00656 CLI ZLBCMOD(BUFREG),X'14' 0660 00723000 BNE @RF00660 0660 00724000 * /***********************************************************/ 00725000 * /* */ 00726000 * /* IF I/O BUSY, INDICATE RESET FAILURE AND TPQUE FSB TO */ 00727000 * /* DNCB TIP (FEEDBACK PAB) */ 00728000 * /* */ 00729000 * /***********************************************************/ 00730000 * 0661 00731000 * IF LDNZIOBY=ON THEN /* I/O IS BUSY - */ 00732000 TM LDNZIOBY(LDNCBREG),B'01000000' 0661 00733000 BNO @RF00661 0661 00734000 * DO; 0662 00735000 * ZLBCOMP=ZLBRFAIL; /* COMPLETION: RESET FAILURE */ 00736000 MVI ZLBCOMP(BUFREG),X'14' 0663 00737000 * LDNZLPC0=ON; /* SET CONTROL SWITCH - NO FREE 00738000 * OF SIO QUEUE */ 00739000 L @07,LDNZLPC0-2(,LDNCBREG) 0664 00740000 @GL00006 LR @00,@07 0664 00741000 O @00,@CF04580 0664 00742000 CS @07,@00,LDNZLPC0-2(LDNCBREG) 0664 00743000 BNE @GL00006 0664 00744000 * ZLBFDBZ=ZLBFDBZ&&ZLBFDBZ;/* CLEAR TPIOS FDB */ 00745000 XC ZLBFDBZ(12,BUFREG),ZLBFDBZ(BUFREG) 0665 00746000 * FSBTYPE=FSTYPE; /* SET FSB BLOCK ID */ 00747000 LA @07,16 0666 00748000 ALR @07,BUFREG 0666 00749000 MVI FSBTYPE(@07),X'02' 0666 00750000 * FSBLNGTH=LENGTH(ISTFSB);/* SET FSB LENGTH */ 00751000 * 0667 00752000 MVI FSBLNGTH(@07),X'2C' 0667 00753000 * /*******************************************************/ 00754000 * /* */ 00755000 * /* QUEUE FSB TO DNCB TIP */ 00756000 * /* */ 00757000 * /*******************************************************/ 00758000 * 0668 00759000 * CALL QUEUE; /* QUEUE FSB & SCHED @X04BHHY*/ 00760000 BAL @14,QUEUE 0668 00761000 * END; 0669 00762000 * ELSE 0670 00763000 * ; /* NOT I/O BUSY - NULL */ 00764000 @RF00661 DS 0H 0671 00765000 * ELSE /* NOT RESET CONDITIONAL - */ 00766000 * 0671 00767000 * /***********************************************************/ 00768000 * /* */ 00769000 * /* IF I/O BUSY, SAVE RESET BUFFER ADDRESS AND CALL TPIOS */ 00770000 * /* I/O PURGE */ 00771000 * /* */ 00772000 * /***********************************************************/ 00773000 * 0671 00774000 * IF LDNZIOBY=ON THEN /* I/O IS BUSY - */ 00775000 B @RC00660 0671 00776000 @RF00660 TM LDNZIOBY(LDNCBREG),B'01000000' 0671 00777000 BNO @RF00671 0671 00778000 * DO; 0672 00779000 * LDNZV001=BUFREG; /* SAVE RESET BUFFER ADDRESS */ 00780000 ST BUFREG,LDNZV001(,LDNCBREG) 0673 00781000 * CALL ZLFZEAFA; /* CALL I/O PURGE ROUTINE */ 00782000 L @07,ATCZLFVT(,ATCVTREG) 0674 00783000 L @15,ZLFZEAFA(,@07) 0674 00784000 BALR @14,@15 0674 00785000 * LDNZLPC0=ON; /* SET CONTROL SWITCH - NO FREE 00786000 * OF SIO QUEUE */ 00787000 L @07,LDNZLPC0-2(,LDNCBREG) 0675 00788000 @GL00007 LR @00,@07 0675 00789000 O @00,@CF04580 0675 00790000 CS @07,@00,LDNZLPC0-2(LDNCBREG) 0675 00791000 BNE @GL00007 0675 00792000 * END; 0676 00793000 * ELSE 0677 00794000 * ; /* I/O IS NOT BUSY - NULL */ 00795000 * 0677 00796000 @RF00671 DS 0H 0678 00797000 * /*****************************************************************/ 00798000 * /* */ 00799000 * /* IF NO FREE OF SIOQ NOT SET, CALL SIOQ CLEANUP ROUTINE */ 00800000 * /* */ 00801000 * /*****************************************************************/ 00802000 * 0678 00803000 * IF LDNZLPC0=ON THEN 0678 00804000 @RC00660 DS 0H 0678 00805000 @RC00656 DS 0H 0678 00806000 @RC00646 TM LDNZLPC0(LDNCBREG),B'10000000' 0678 00807000 BO @RT00678 0678 00808000 * ; /* NO FREE SET - NULL */ 00809000 * ELSE /* NO FREE NOT SET - */ 00810000 * CALL ZLFZFFXA; /* CALL SIOQ CLEANUP ROUTINE */ 00811000 * 0680 00812000 L @07,ATCZLFVT(,ATCVTREG) 0680 00813000 L @15,ZLFZFFXA(,@07) 0680 00814000 BALR @14,@15 0680 00815000 * /*****************************************************************/ 00816000 * /* */ 00817000 * /* SEGMENT(RESET)FINISH */ 00818000 * /* */ 00819000 * /*****************************************************************/ 00820000 * 0681 00821000 * DO; 0681 00822000 @RT00678 DS 0H 0682 00823000 * GOTO RESET#; 0682 00824000 B RESET# 0682 00825000 *RESET@: 0683 00826000 * END; 0683 00827000 RESET@ DS 0H 0684 00828000 * GEN NOSETS NOREFS NODEFS(EJECT); 0684 00829000 EJECT 00830000 * 0685 00831000 * /*****************************************************************/ 00832000 * /* */ 00833000 * /* RESET2 SEGMENT - CALLED FROM RESET SEGMENT ON A RESET ERROR */ 00834000 * /* LOCK COMMAND. IF ATTENTION WITH ERROR LOCK IS SET, RESET AND */ 00835000 * /* CALL I/O INIT TO SETUP ATTENTION READ BUFFERS. ELSE, SET */ 00836000 * /* REDRIVE SWITCH. IN ANY CASE, TPQUE FSB FOR RESET ON DNCB TIP. */ 00837000 * /* SEGMENT(RESET2)START */ 00838000 * /* */ 00839000 * /*****************************************************************/ 00840000 * 0685 00841000 * DO; 0685 00842000 * GOTO RESET2@; 0686 00843000 B RESET2@ 0686 00844000 *RESET2: 0687 00845000 * END; /* RESET2: SUBROUTINE */ 00846000 RESET2 DS 0H 0688 00847000 * LDNZERLK=OFF; /* RESET LDNCB ERROR LOCK */ 00848000 L @07,LDNZERLK(,LDNCBREG) 0688 00849000 @GL00008 LR @00,@07 0688 00850000 N @00,@CF04583 0688 00851000 CS @07,@00,LDNZERLK(LDNCBREG) 0688 00852000 BNE @GL00008 0688 00853000 * IF ZLBRQTG=ZLBRLK THEN /* IF RESET ERROR LOCK */ 00854000 * 0689 00855000 CLC ZLBRQTG(2,BUFREG),@CB02103 0689 00856000 BNE @RF00689 0689 00857000 * /***************************************************************/ 00858000 * /* */ 00859000 * /* RELSTORE BUFADDR(BUFREG)CLEAR(YES)DISABLE(YES) */ 00860000 * /* */ 00861000 * /***************************************************************/ 00862000 * 0690 00863000 * DO; 0690 00864000 * 0690 00865000 */* ATBUILD (ISTATCVT,ISTRPH) */ 00866000 */* END OF ATBUILD */ 00867000 * 0691 00868000 * RFY 0691 00869000 * (GPR02P, 0691 00870000 * GPR03P, 0691 00871000 * GPR04P, 0691 00872000 * GPR15P) RSTD; 0691 00873000 * RFY 0692 00874000 * (GPR01P, 0692 00875000 * GPR13P) RSTD; 0692 00876000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 0693 00877000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 00878000 * RFY 0694 00879000 * GPR13P UNRSTD; 0694 00880000 * GPR04P=BUFREG|'80000000'X; 0695 00881000 LR GPR04P,BUFREG 0695 00882000 O GPR04P,@CF01906 0695 00883000 * DCL 0696 00884000 * 1 FMZA0048 FIXED(31) STATIC LOCAL, 0696 00885000 * 2 * FIXED(8) INIT(192), 0696 00886000 * 2 * PTR(24) INIT(0); 0696 00887000 * GPR03F=FMZA0048; 0697 00888000 L GPR03F,FMZA0048 0697 00889000 * DO; /* LISATCVT 0698 00890000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00891000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00892000 L GPR15P,ATCLCPTR 0699 00893000 * END; /* LISATCVT */ 00894000 * GPR02P=GPR15P->ATCBPDA; 0701 00895000 L GPR02P,ATCBPDA(,GPR15P) 0701 00896000 * GPR15P=GPR15P->ATCSMRS; 0702 00897000 L GPR15P,ATCSMRS(,GPR15P) 0702 00898000 * DCL 0703 00899000 * FMZL0048 BASED(GPR15P) LABEL VALUERANGE(*); 0703 00900000 * CALL FMZL0048; 0704 00901000 BALR @14,@15 0704 00902000 * RFY 0705 00903000 * GPR13P RSTD; 0705 00904000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 0706 00905000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 00906000 * RFY 0707 00907000 * (GPR01P, 0707 00908000 * GPR13P) UNRSTD; 0707 00909000 * RFY 0708 00910000 * (GPR02P, 0708 00911000 * GPR03P, 0708 00912000 * GPR04P, 0708 00913000 * GPR15P) UNRSTD; 0708 00914000 * END; /* *********END OF RELSTORE 0709 00915000 * EXPANSION********* */ 00916000 * ELSE 0710 00917000 * DO; /* IF NOT RESET ERROR LOCK */ 00918000 B @RC00689 0710 00919000 @RF00689 DS 0H 0711 00920000 * ZLBFDBZ=ZLBFDBZ&&ZLBFDBZ; /* CLEAR TPIOS FDB */ 00921000 XC ZLBFDBZ(12,BUFREG),ZLBFDBZ(BUFREG) 0711 00922000 * FSBTYPE=FSTYPE; /* SET FSB BLOCK ID */ 00923000 LA @07,16 0712 00924000 ALR @07,BUFREG 0712 00925000 MVI FSBTYPE(@07),X'02' 0712 00926000 * FSBLNGTH=LENGTH(ISTFSB); /* SET FSB LENGTH */ 00927000 MVI FSBLNGTH(@07),X'2C' 0713 00928000 * ZLBCOMP=ZLBRCOMP; /* COMPLETION: RESET COMPLETE */ 00929000 * 0714 00930000 MVI ZLBCOMP(BUFREG),X'08' 0714 00931000 * /*************************************************************/ 00932000 * /* */ 00933000 * /* TPQUE FSB TO DNCB TIP (FEEDBACK PAB) */ 00934000 * /* */ 00935000 * /*************************************************************/ 00936000 * 0715 00937000 * CALL QUEUE; /* QUEUE FSB & SCHED @X04BHHY*/ 00938000 BAL @14,QUEUE 0715 00939000 * END; /* END NOT RESET ERROR LOCK */ 00940000 * 0716 00941000 * /*****************************************************************/ 00942000 * /* */ 00943000 * /* IF ATTN READ WITH ERROR LOCK SET OR ANY I/O READY, SET UP TO */ 00944000 * /* CALL I/O INITIATION */ 00945000 * /* */ 00946000 * /*****************************************************************/ 00947000 * 0717 00948000 * IF LDNZATLK=ON|LDNSIOQ^=0 THEN /* ATTN/ERROR LOCK OR ANY I/O */ 00949000 @RC00689 TM LDNZATLK(LDNCBREG),B'00001000' 0717 00950000 BO @RT00717 0717 00951000 L @07,LDNSIOQ(,LDNCBREG) 0717 00952000 LTR @07,@07 0717 00953000 BZ @RF00717 0717 00954000 @RT00717 DS 0H 0718 00955000 * DO; 0718 00956000 * 0718 00957000 * /*************************************************************/ 00958000 * /* */ 00959000 * /* IF ATTN WITH ERROR LOCK INDICATED, SET OFF AND CALL INIT */ 00960000 * /* FOR ATTN READ. OTHERWISE, CALL I/O INIT TO START TOP OF */ 00961000 * /* SIO QUEUE */ 00962000 * /* */ 00963000 * /*************************************************************/ 00964000 * 0719 00965000 * IF LDNZATLK=ON THEN 0719 00966000 TM LDNZATLK(LDNCBREG),B'00001000' 0719 00967000 BNO @RF00719 0719 00968000 * DO; 0720 00969000 * RFY 0721 00970000 * (R0, 0721 00971000 * RCDREG) RSTD; /* RESTRICT REGS OVER CALL */ 00972000 * R0=ATTNRD; /* SET ATTN READ REQUEST CODE */ 00973000 LA R0,2 0722 00974000 * LDNZATLK=OFF; /* CLEAR ATTN W/ERROR LOCK */ 00975000 * LDNZATTP=OFF; /* CLEAR ATTN PENDING */ 00976000 L @14,LDNZATTP(,LDNCBREG) 0724 00977000 @GL00010 LR @07,@14 0724 00978000 N @07,@CF04586 0724 00979000 CS @14,@07,LDNZATTP(LDNCBREG) 0724 00980000 BNE @GL00010 0724 00981000 * END; 0725 00982000 * ELSE /* NOT ATTN ERROR LOCK - */ 00983000 * R0=SSIOQ; /* START TOP ON SIOQ */ 00984000 * 0726 00985000 B @RC00719 0726 00986000 @RF00719 LA R0,1 0726 00987000 * /*************************************************************/ 00988000 * /* */ 00989000 * /* IF DEVICE SICK OR I/O BUSY, DONT CALL */ 00990000 * /* */ 00991000 * /*************************************************************/ 00992000 * 0727 00993000 * IF LDNZDSIC=ON|LDNZIOBY=ON THEN 0727 00994000 @RC00719 TM LDNZDSIC(LDNCBREG),B'10000000' 0727 00995000 BO @RT00727 0727 00996000 TM LDNZIOBY(LDNCBREG),B'01000000' 0727 00997000 BO @RT00727 0727 00998000 * ; /* EITHER CASE - NULL- */ 00999000 * ELSE /* NEITHER ARE ON - CALL - */ 01000000 * DO; 0729 01001000 * CALL ZLFZEAAA; /* CALL I/O INIT ROUTINE */ 01002000 * 0730 01003000 L @07,ATCZLFVT(,ATCVTREG) 0730 01004000 L @15,ZLFZEAAA(,@07) 0730 01005000 BALR @14,@15 0730 01006000 * /*********************************************************/ 01007000 * /* */ 01008000 * /* IF I/O TO START RETURN CODE, CALL I/O SCHED */ 01009000 * /* */ 01010000 * /*********************************************************/ 01011000 * 0731 01012000 * IF RCDREG=RCSIO THEN /* I/O TO START */ 01013000 LTR RCDREG,RCDREG 0731 01014000 BNZ @RF00731 0731 01015000 * CALL ZLFZFAFA; /* CALL I/O SCHED @XM01185*/ 01016000 L @07,ATCZLFVT(,ATCVTREG) 0732 01017000 L @15,ZLFZFAFA(,@07) 0732 01018000 BALR @14,@15 0732 01019000 * ELSE 0733 01020000 * ; /* NO I/O TO START - NULL */ 01021000 @RF00731 DS 0H 0734 01022000 * END; 0734 01023000 * END; 0735 01024000 * ELSE 0736 01025000 * ; /* NOT ATTN W/ERROR LOCK */ 01026000 @RF00717 DS 0H 0737 01027000 * LDNZLPC0=ON; /* SET CONTROL SWITCH - NO FREE 01028000 * OF SIO QUEUE */ 01029000 * 0737 01030000 @RC00717 L @14,LDNZLPC0-2(,LDNCBREG) 0737 01031000 @GL00012 LR @07,@14 0737 01032000 O @07,@CF04580 0737 01033000 CS @14,@07,LDNZLPC0-2(LDNCBREG) 0737 01034000 BNE @GL00012 0737 01035000 * /*****************************************************************/ 01036000 * /* */ 01037000 * /* SEGMENT(RESET2)FINISH */ 01038000 * /* */ 01039000 * /*****************************************************************/ 01040000 * 0738 01041000 * DO; 0738 01042000 * GOTO RESET2#; 0739 01043000 B RESET2# 0739 01044000 *RESET2@: 0740 01045000 * END; 0740 01046000 * 0740 01047000 */* SUBROUTINE - */ 01048000 */* QUEUE */ 01049000 */* FUNCTION - */ 01050000 */* QUEUE FSB AND SCHEDULE DNCB PAB */ 01051000 * 0741 01052000 *QUEUE: 0741 01053000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* QUEUE START @X04BHHY*/ 01054000 B @PB00002 0741 01055000 QUEUE DS 0H 0742 01056000 * RFY 0742 01057000 * RETNREG RSTD; /* @X04BHHY*/ 01058000 * RFY 0743 01059000 * SAV14 RSTD; /* @X04BHHY*/ 01060000 * SAV14=RETNREG; /* SAVE RETURN ADDR @X04BHHY*/ 01061000 LR SAV14,RETNREG 0744 01062000 * RFY 0745 01063000 * RETNREG UNRSTD; /* @X04BHHY*/ 01064000 */* TPQUE (ADDR(ZLBFSB),DNCZC001) NONE */ 01065000 * 0746 01066000 * DO; 0746 01067000 * RFY 0747 01068000 * (GPR00P, 0747 01069000 * GPR01P, 0747 01070000 * GPR02P, 0747 01071000 * GPR14P, 0747 01072000 * GPR15P) RSTD; 0747 01073000 * GEN REFS(GPR01P) SETS(RPHWORK)(STM GPR02P,GPR08P,RPHWORK(GPR01P)) 01074000 * ; 0748 01075000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 01076000 * GPR15P=ADDR(ZLBFSB); /* GET WORK ELEM POINTER */ 01077000 LA GPR15P,ZLBFSB(,BUFREG) 0749 01078000 * GPR14P=ADDR(DNCZC001); /* ADDRESS PAB/QUEUE POINTER */ 01079000 LA GPR14P,DNCZC001(,DNCBREG) 0750 01080000 * GPR15P=GPR15P|PABWEQG1; 0751 01081000 O GPR15P,@CF01906 0751 01082000 * GPR02P=GPR14P->PABWEQA; /* INITIALIZE WITH QUEUE HEADER */ 01083000 L GPR02P,PABWEQA(,GPR14P) 0752 01084000 *CMZA0065: 0753 01085000 * ; /* CS FAIL TARGET */ 01086000 CMZA0065 DS 0H 0754 01087000 * GPR00P=GPR02P; /* SAVE QUEUE CONTENTS */ 01088000 LR GPR00P,GPR02P 0754 01089000 * GPR15P->PABCHAIN=GPR02P|PABWEQG1;/* FORWARD CHAIN WORK ELEMENT */ 01090000 LR @10,GPR02P 0755 01091000 O @10,@CF01906 0755 01092000 ST @10,PABCHAIN(,GPR15P) 0755 01093000 * CS(GPR02P,GPR15P,GPR14P->PABWEQA);/* CHECK FOR END OF QUEUE */ 01094000 CS GPR02P,@15,PABWEQA(GPR14P) 0756 01095000 * BC(7,CMZA0065); 0757 01096000 BC 7,CMZA0065 0757 01097000 * GEN REFS(RPHWORK,GPR01P) NOSETS 0758 01098000 * (LM GPR02P,GPR08P,RPHWORK(GPR01P)); 0758 01099000 LM GPR02P,GPR08P,RPHWORK(GPR01P) 01100000 * RFY 0759 01101000 * (GPR00P, 0759 01102000 * GPR01P, 0759 01103000 * GPR02P, 0759 01104000 * GPR14P, 0759 01105000 * GPR15P) UNRSTD; 0759 01106000 * END; /* *** END OF TPQUE GENERATION 0760 01107000 * @XM00686 01108000 * QUEUE FSB IN REG 6 TO DNCB TIP 01109000 * @X04BHHY*/ 01110000 */* TPSCHED (ADDR(DNCZC001)) DIS */ 01111000 * 0761 01112000 * DO; 0761 01113000 * RFY 0762 01114000 * (GPR00P, 0762 01115000 * GPR01P, 0762 01116000 * GPR05P) RSTD; 0762 01117000 * GEN REFS(GPR01P) SETS(RPHWORK) 0763 01118000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 0763 01119000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 01120000 * GPR00P=0; 0764 01121000 SLR GPR00P,GPR00P 0764 01122000 * GPR05P=ADDR(DNCZC001); 0765 01123000 LA GPR05P,DNCZC001(,DNCBREG) 0765 01124000 * CALL ATCLCPTR->ATCAP38->ISTAPC38; 0766 01125000 L @10,ATCLCPTR 0766 01126000 L @15,ATCAP38(,@10) 0766 01127000 BALR @14,@15 0766 01128000 * GEN(NOPR 2) 0767 01129000 * NOSETS NOREFS; 0767 01130000 NOPR 2 01131000 * RFY 0768 01132000 * (GPR00P, 0768 01133000 * GPR01P, 0768 01134000 * GPR05P) UNRSTD; 0768 01135000 * END; /* **** END TPSCHED SCHEDULE TIP 01136000 * @X04BHHY*/ 01137000 * RFY 0770 01138000 * RETNREG RSTD; /* @X04BHHY*/ 01139000 * RETNREG=SAV14; /* RESTORE RETURN ADDR @X04BHHY*/ 01140000 LR RETNREG,SAV14 0771 01141000 * RFY 0772 01142000 * RETNREG UNRSTD; /* @X04BHHY*/ 01143000 * RFY 0773 01144000 * SAV14 UNRSTD; /* @X04BHHY*/ 01145000 * END QUEUE; /* QUEUE END @X04BHHY*/ 01146000 @EL00002 DS 0H 0774 01147000 @EF00002 DS 0H 0774 01148000 @ER00002 BR @14 0774 01149000 @PB00002 DS 0H 0775 01150000 * 0775 01151000 */* TPEPILOG */ 01152000 * 0775 01153000 * GEN(PRINT OFF); 0775 01154000 PRINT OFF 01155000 * DCL 0776 01156000 * ISTAPC38 ENTRY BASED(ATCAP38) VALRG(*);/* TPSCHED ROUTINE */ 01157000 * GEN(PRINT ON); 0777 01158000 * 0777 01159000 PRINT ON 01160000 */* END OF TPEPILOG */ 01161000 * 0778 01162000 * END ISTZEFBA /* END OF MODULE */ 01163000 * 0778 01164000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01165000 */*%INCLUDE SYSLIB (CVT ) */ 01166000 */*%INCLUDE SYSLIB (IECDIOSB) */ 01167000 */*%INCLUDE SYSLIB (IHASRB ) */ 01168000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01169000 */*%INCLUDE SYSLIB (IHAFRRS ) */ 01170000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 01171000 * 0778 01172000 * ; 0778 01173000 @EL00001 DS 0H 0778 01174000 @EF00001 DS 0H 0778 01175000 @ER00001 BR @14 0778 01176000 @DATA DS 0H 01177000 @DATD DSECT 01178000 DS 0F 01179000 ISTZEFBA CSECT 01180000 DS 0F 01181000 @CF01906 DC XL4'80000000' 01182000 @CF04574 DC BL4'11111111111111110111111111111111' 01183000 @CF04577 DC BL4'00000000000000000000000001000000' 01184000 @CF04580 DC BL4'00000000000000001000000000000000' 01185000 @CF04583 DC BL4'10111111111111111111111111111111' 01186000 @CF04586 DC BL4'11010111111111111111111111111111' 01187000 @DATD DSECT 01188000 DS 0D 01189000 CVTPTR DS A 01190000 IOSBPTR DS A 01191000 SRBPTR DS A 01192000 FRRSPTR DS A 01193000 FRREPTR DS A 01194000 UCBPTR DS A 01195000 LDNCBPTR DS A 01196000 LCPBPTR DS A 01197000 FSBPTR DS A 01198000 DNCBPTR DS A 01199000 FMCBPTR DS A 01200000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01201000 @ENDDATD EQU * 01202000 ISTZEFBA CSECT 01203000 DS 0F 01204000 @SIZDATD DC AL1(0) 01205000 DC AL3(@ENDDATD-@DATD) 01206000 DS 0D 01207000 FMZA0019 DS FL4 01208000 ORG FMZA0019 01209000 @NM00086 DC AL1(192) 01210000 @NM00087 DC AL3(0) 01211000 ORG FMZA0019+4 01212000 FMZA0048 DS FL4 01213000 ORG FMZA0048 01214000 @NM00088 DC AL1(192) 01215000 @NM00089 DC AL3(0) 01216000 ORG FMZA0048+4 01217000 @CC04508 DC C'ECBA' 01218000 @CB02103 DC X'FFFF' 01219000 @CB04422 DC X'0000' 01220000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01221000 @01 EQU 01 01222000 @02 EQU 02 01223000 @03 EQU 03 01224000 @04 EQU 04 01225000 @05 EQU 05 01226000 @06 EQU 06 01227000 @07 EQU 07 01228000 @08 EQU 08 01229000 @09 EQU 09 01230000 @10 EQU 10 01231000 @11 EQU 11 01232000 @12 EQU 12 01233000 @13 EQU 13 01234000 @14 EQU 14 01235000 @15 EQU 15 01236000 RPHPTR EQU @01 01237000 R0 EQU @00 01238000 RPHREG EQU @01 01239000 ATCVTREG EQU @02 01240000 LDNCBREG EQU @03 01241000 DNCBREG EQU @04 01242000 FMCBREG EQU @05 01243000 BUFREG EQU @06 01244000 RX EQU @07 01245000 SAV14 EQU @11 01246000 CODREG EQU @12 01247000 SAVAREG EQU @13 01248000 RETNREG EQU @14 01249000 RCDREG EQU @15 01250000 GPR00P EQU @00 01251000 GPR01P EQU @01 01252000 GPR02P EQU @02 01253000 GPR03F EQU @03 01254000 GPR03P EQU @03 01255000 GPR04P EQU @04 01256000 GPR05P EQU @05 01257000 GPR07P EQU @07 01258000 GPR09P EQU @09 01259000 GPR10P EQU @10 01260000 GPR11P EQU @11 01261000 GPR12P EQU @12 01262000 GPR13P EQU @13 01263000 GPR14P EQU @14 01264000 GPR15P EQU @15 01265000 GPR00F EQU @00 01266000 GPR01F EQU @01 01267000 GPR02F EQU @02 01268000 GPR04F EQU @04 01269000 GPR05F EQU @05 01270000 GPR06F EQU @06 01271000 GPR06P EQU @06 01272000 GPR07F EQU @07 01273000 GPR08F EQU @08 01274000 GPR08P EQU @08 01275000 GPR09F EQU @09 01276000 GPR10F EQU @10 01277000 GPR11F EQU @11 01278000 GPR12F EQU @12 01279000 GPR13F EQU @13 01280000 GPR14F EQU @14 01281000 GPR15F EQU @15 01282000 R7 EQU @07 01283000 PSA EQU 0 01284000 FLCRNPSW EQU PSA 01285000 FLCROPSW EQU PSA+8 01286000 FLCICCW2 EQU PSA+16 01287000 PSAEEPSW EQU PSA+132 01288000 PSAESPSW EQU PSA+136 01289000 FLCSVILC EQU PSAESPSW+1 01290000 PSAEPPSW EQU PSA+140 01291000 FLCPIILC EQU PSAEPPSW+1 01292000 FLCPICOD EQU PSAEPPSW+2 01293000 PSAPICOD EQU FLCPICOD+1 01294000 FLCTEA EQU PSAEPPSW+4 01295000 FLCPER EQU PSA+152 01296000 FLCMCLA EQU PSA+168 01297000 FLCIOEL EQU FLCMCLA+4 01298000 FLCIOA EQU FLCMCLA+16 01299000 FLCFSA EQU FLCMCLA+80 01300000 PSACPUPA EQU PSA+516 01301000 PSASUPER EQU PSA+552 01302000 PSASUP1 EQU PSASUPER 01303000 PSASUP2 EQU PSASUPER+1 01304000 PSASUP3 EQU PSASUPER+2 01305000 PSASUP4 EQU PSASUPER+3 01306000 PSACLHT EQU PSA+640 01307000 PSALKSA EQU PSA+696 01308000 PSAHLHI EQU PSA+760 01309000 PSALITA EQU PSA+764 01310000 PSADSSFL EQU PSA+836 01311000 PSADSSF1 EQU PSADSSFL 01312000 PSADSSF3 EQU PSADSSFL+2 01313000 PSADSSF4 EQU PSADSSFL+3 01314000 PSARSVT EQU PSA+896 01315000 PSALSFCC EQU PSA+1012 01316000 ATCLCPTR EQU 1032 01317000 CVTMAP EQU 0 01318000 CVTDAR EQU CVTMAP+72 01319000 CVTFLGS1 EQU CVTDAR 01320000 CVTDCB EQU CVTMAP+116 01321000 CVTIERLC EQU CVTMAP+144 01322000 CVTOPTA EQU CVTMAP+182 01323000 CVTOPTB EQU CVTMAP+183 01324000 CVTGTF EQU CVTMAP+236 01325000 CVTGTFST EQU CVTGTF 01326000 CVTGTFS EQU CVTGTFST 01327000 CVTSTATE EQU CVTGTFST 01328000 CVTTMODE EQU CVTGTFST 01329000 CVTFORM EQU CVTGTFST 01330000 CVTAQAVT EQU CVTMAP+240 01331000 CVTTCMFG EQU CVTAQAVT 01332000 CVTVOLM2 EQU CVTMAP+244 01333000 CVTTATA EQU CVTVOLM2 01334000 CVTTSKS EQU CVTTATA 01335000 CVTVOLF2 EQU CVTTSKS 01336000 CVTTAT EQU CVTTATA+1 01337000 CVTATER EQU CVTMAP+248 01338000 CVTEXT1 EQU CVTMAP+252 01339000 CVTPURG EQU CVTMAP+260 01340000 CVTQMSG EQU CVTMAP+268 01341000 CVTDMSR EQU CVTMAP+272 01342000 CVTRSV37 EQU CVTDMSR 01343000 CVTDMSRF EQU CVTRSV37 01344000 CVTERPV EQU CVTMAP+316 01345000 CVTINTLA EQU CVTMAP+320 01346000 CVTAPF EQU CVTMAP+324 01347000 CVTEXT2 EQU CVTMAP+328 01348000 CVTHJES EQU CVTMAP+332 01349000 CVTPGSIA EQU CVTMAP+348 01350000 CVTA1F1 EQU CVTMAP+356 01351000 CVTSYSK EQU CVTMAP+357 01352000 CVTVOLM1 EQU CVTMAP+380 01353000 CVTVOLF1 EQU CVTVOLM1 01354000 CVTATMCT EQU CVTMAP+388 01355000 CVTXTNT1 EQU 0 01356000 CVTXTNT2 EQU 0 01357000 CVTDSSV EQU CVTXTNT2 01358000 CVTFLGBT EQU CVTXTNT2+5 01359000 CVTQID EQU CVTXTNT2+24 01360000 CVTSHS EQU CVTXTNT2+40 01361000 CVTRV400 EQU CVTXTNT2+52 01362000 CVTRV409 EQU CVTXTNT2+53 01363000 CVTATCVT EQU CVTXTNT2+64 01364000 CVTRV429 EQU CVTXTNT2+84 01365000 CVTRV438 EQU CVTXTNT2+85 01366000 CVTRV457 EQU CVTXTNT2+112 01367000 CVTRV466 EQU CVTXTNT2+113 01368000 CVTFIX EQU 0 01369000 CVTRELNO EQU CVTFIX+252 01370000 IOSB EQU 0 01371000 IOSFLA EQU IOSB 01372000 IOSACHN EQU IOSFLA 01373000 IOSFLB EQU IOSB+1 01374000 IOSFLC EQU IOSB+2 01375000 IOSDVALT EQU IOSFLC 01376000 IOSPKEY EQU IOSB+12 01377000 IOSOPT EQU IOSB+14 01378000 IOSOPT2 EQU IOSB+15 01379000 @NM00004 EQU IOSB+20 01380000 IOSCSW EQU @NM00004+1 01381000 IOSTATUS EQU IOSCSW+3 01382000 IOSIPIB EQU IOSB+44 01383000 IOSPATH EQU IOSB+86 01384000 IOSCHN EQU IOSPATH 01385000 IOSCKEY EQU IOSB+89 01386000 IOSEEKA EQU IOSB+100 01387000 IOSCCHH EQU IOSEEKA+3 01388000 IOSSKHH EQU IOSCCHH+2 01389000 SRBSECT EQU 0 01390000 SRBFLC EQU SRBSECT+12 01391000 FRRS EQU 0 01392000 FRRSHEAD EQU FRRS 01393000 FRRSEMP EQU FRRSHEAD 01394000 FRRSLAST EQU FRRSHEAD+4 01395000 FRRSELEN EQU FRRSHEAD+8 01396000 FRRSCURR EQU FRRSHEAD+12 01397000 FRRSENTR EQU 0 01398000 FRRSFRRA EQU FRRSENTR 01399000 FRRSFLGS EQU FRRSENTR+4 01400000 FRRSFLG1 EQU FRRSFLGS 01401000 FRRSPARM EQU FRRSENTR+8 01402000 UCB EQU 0 01403000 UCBOB EQU 0 01404000 UCBJBNR EQU UCBOB 01405000 UCBFL5 EQU UCBOB+1 01406000 UCBAF EQU UCBFL5 01407000 UCBSTAT EQU UCBOB+3 01408000 UCBCHAN EQU UCBOB+4 01409000 UCBSFLS EQU UCBOB+6 01410000 UCBFLA EQU UCBSFLS 01411000 UCBFL1 EQU UCBFLA 01412000 UCBBSY EQU UCBFL1 01413000 UCBNRY EQU UCBFL1 01414000 UCBPST EQU UCBFL1 01415000 UCBCUB EQU UCBFL1 01416000 UCBFLB EQU UCBSFLS+1 01417000 UCBCHM EQU UCBOB+8 01418000 UCBCHM1 EQU UCBCHM 01419000 UCBPTH0 EQU UCBCHM1 01420000 UCBPTH1 EQU UCBCHM1 01421000 UCBWGT EQU UCBOB+12 01422000 UCBTYP EQU UCBOB+16 01423000 UCBTBYT1 EQU UCBTYP 01424000 UCB1FEA5 EQU UCBTBYT1 01425000 UCB1FEA6 EQU UCBTBYT1 01426000 UCBTBYT2 EQU UCBTYP+1 01427000 UCB2OPT2 EQU UCBTBYT2 01428000 UCBDUDN1 EQU UCB2OPT2 01429000 UCB2OPT3 EQU UCBTBYT2 01430000 UCBDUDN2 EQU UCB2OPT3 01431000 UCB2OPT4 EQU UCBTBYT2 01432000 UCBRWTAU EQU UCB2OPT4 01433000 UCB2OPT6 EQU UCBTBYT2 01434000 UCB2OPT7 EQU UCBTBYT2 01435000 UCBTBYT3 EQU UCBTYP+2 01436000 UCBDVCLS EQU UCBTBYT3 01437000 UCBTBYT4 EQU UCBTYP+3 01438000 UCBEXTPT EQU UCBOB+20 01439000 UCBFLC EQU UCBEXTPT 01440000 UCBDEV EQU UCBOB+24 01441000 UCBCMEXT EQU 0 01442000 UCBATI EQU UCBCMEXT+3 01443000 @NM00041 EQU UCBATI 01444000 UCBFLP1 EQU UCBCMEXT+5 01445000 UCBMT EQU 0 01446000 UCBOCR EQU 0 01447000 UCB3540X EQU 0 01448000 UCBDKBYT EQU UCB3540X+6 01449000 UCB3800X EQU 0 01450000 UCBOPTNS EQU UCB3800X 01451000 UCBACTIV EQU UCB3800X+3 01452000 UCBMDRBF EQU UCB3800X+36 01453000 UCBUCS EQU 0 01454000 UCBUCSOP EQU UCBUCS+4 01455000 UCBFCBOP EQU UCBUCS+5 01456000 ISTFDB EQU 0 01457000 ISTDEVCH EQU 0 01458000 DEVSHCH EQU ISTDEVCH 01459000 DEVCHAR EQU DEVSHCH 01460000 DEVTCODE EQU ISTDEVCH+1 01461000 DEVFLAGS EQU ISTDEVCH+3 01462000 DEVFCCTL EQU DEVFLAGS 01463000 DEVCHAR3 EQU DEVFLAGS 01464000 ISTLOK EQU 0 01465000 LOKCHN EQU ISTLOK+1 01466000 LOKCHNG EQU LOKCHN 01467000 @NM00043 EQU LOKCHNG+2 01468000 ISTRPH EQU 0 01469000 RPHCNTL EQU ISTRPH 01470000 RPHFLAGS EQU RPHCNTL+2 01471000 RPHAPTYP EQU RPHFLAGS 01472000 RPHFSTLC EQU RPHFLAGS 01473000 RPHFLGB EQU RPHCNTL+3 01474000 RPHRPHA EQU ISTRPH+4 01475000 RPHTSKID EQU ISTRPH+8 01476000 RPHRESMA EQU ISTRPH+16 01477000 RPHWPFLG EQU RPHRESMA 01478000 RPHWEA EQU ISTRPH+24 01479000 RPHCSPA EQU RPHWEA 01480000 RPHSRPRM EQU ISTRPH+28 01481000 RPHCRR EQU ISTRPH+32 01482000 RPHPABQA EQU ISTRPH+36 01483000 RPHWORK EQU ISTRPH+40 01484000 RPHSAVE1 EQU RPHWORK 01485000 RPHSBITS EQU RPHSAVE1+1 01486000 ISTPAB EQU 0 01487000 PABWQCHN EQU ISTPAB 01488000 PABWEQA EQU PABWQCHN 01489000 PABCHAIN EQU PABWQCHN+4 01490000 PABRPHFG EQU ISTPAB+12 01491000 PABFLAGS EQU PABRPHFG 01492000 PABERLCK EQU PABFLAGS 01493000 PABERRLK EQU PABERLCK 01494000 ISTNCB EQU 0 01495000 NCBFLAGS EQU ISTNCB+24 01496000 NCBFRAS EQU NCBFLAGS+1 01497000 NCBFTRIO EQU NCBFRAS 01498000 NCBFLAG1 EQU NCBFLAGS+2 01499000 ISTLDNCB EQU 0 01500000 LDNCFLAG EQU ISTLDNCB+54 01501000 LDNZV001 EQU ISTLDNCB+84 01502000 LDNSIOQ EQU ISTLDNCB+92 01503000 LDNFLAGS EQU ISTLDNCB+107 01504000 LDNZF003 EQU LDNFLAGS 01505000 LDNZIOBY EQU LDNFLAGS+1 01506000 LDNZATTP EQU LDNFLAGS+1 01507000 LDNZATLK EQU LDNFLAGS+1 01508000 LDNTPBIO EQU LDNFLAGS+2 01509000 LDNFLAG2 EQU ISTLDNCB+110 01510000 LDNZLAST EQU ISTLDNCB+112 01511000 LDNZLOCK EQU ISTLDNCB+120 01512000 LDNZIOLK EQU ISTLDNCB+184 01513000 LDNZDSIC EQU LDNZIOLK 01514000 LDNZERLK EQU LDNZIOLK 01515000 LDNZERPF EQU ISTLDNCB+185 01516000 LDNZCPAN EQU LDNZERPF 01517000 LDNZEPIN EQU LDNZERPF 01518000 LDNZLPC EQU ISTLDNCB+186 01519000 LDNZLPC0 EQU LDNZLPC 01520000 LDNRPH EQU ISTLDNCB+192 01521000 LDNDCDEB EQU ISTLDNCB+304 01522000 LDNZSAV3 EQU ISTLDNCB+376 01523000 LDNZSAV4 EQU LDNZSAV3+8 01524000 LDNZH003 EQU ISTLDNCB+577 01525000 ISTDYPAB EQU 0 01526000 ISTATCVT EQU 0 01527000 ATCCOM EQU ISTATCVT 01528000 ATCSTAT EQU ATCCOM 01529000 ATCSTAT1 EQU ATCSTAT 01530000 ATCSTFLG EQU ATCSTAT+1 01531000 ATCPOFLG EQU ATCSTAT+2 01532000 ATCSTAT4 EQU ATCSTAT+3 01533000 ATCBPDA EQU ATCCOM+128 01534000 ATCIOTRC EQU ATCCOM+140 01535000 ATCTHTRC EQU ATCIOTRC 01536000 ATCSMRS EQU ATCCOM+188 01537000 ATCCSMR EQU ISTATCVT+296 01538000 ATCSHRFG EQU ISTATCVT+316 01539000 ATCHPGM EQU ISTATCVT+384 01540000 ATCVLCNT EQU ISTATCVT+772 01541000 ATCRNO EQU ISTATCVT+788 01542000 ATCSOPD EQU ISTATCVT+792 01543000 ATCSIPD EQU ISTATCVT+800 01544000 ATCSECST EQU ISTATCVT+812 01545000 ATCSTAT2 EQU ISTATCVT+818 01546000 ATCVTBAM EQU ISTATCVT+908 01547000 @NM00057 EQU ATCVTBAM+3 01548000 ATCAOSM EQU ISTATCVT+912 01549000 ATCGSRBQ EQU ATCAOSM+4 01550000 ATCGSRBG EQU ATCGSRBQ 01551000 ATCICAPP EQU ATCAOSM+100 01552000 ATCLDAPP EQU ATCAOSM+120 01553000 ATCDAPVT EQU ATCAOSM+140 01554000 ATCZLFVT EQU ATCAOSM+188 01555000 ATCAP38 EQU ATCAOSM+268 01556000 ATCCRA EQU ATCAOSM+280 01557000 ATCCRACN EQU ATCCRA+4 01558000 ATCSRB EQU ATCAOSM+288 01559000 ATCSRBCN EQU ATCSRB+4 01560000 ATCCRPL EQU ATCAOSM+296 01561000 ATCRPLCN EQU ATCCRPL+4 01562000 ATCSQAFR EQU ATCAOSM+304 01563000 ATCORTBC EQU ATCSQAFR+4 01564000 ATCORSRB EQU ATCORTBC 01565000 @NM00059 EQU ATCAOSM+332 01566000 ATCVTFLG EQU ATCAOSM+392 01567000 ATCZR01 EQU ATCAOSM+572 01568000 ATCTPCP0 EQU ATCAOSM+580 01569000 ATCZFLAG EQU ATCAOSM+588 01570000 ISTLCCW EQU 0 01571000 LCCWOP EQU ISTLCCW 01572000 LCCWRWOP EQU LCCWOP 01573000 LCCWCTL EQU LCCWRWOP 01574000 LCCWFLAG EQU ISTLCCW+1 01575000 LCCWLSI EQU LCCWFLAG 01576000 ISTLCPB EQU 0 01577000 LCPREQTG EQU ISTLCPB+2 01578000 LCPFLAGS EQU LCPREQTG 01579000 LCPZF001 EQU LCPFLAGS 01580000 LCPZRT02 EQU LCPZF001 01581000 LCPZF002 EQU LCPFLAGS 01582000 LCPZRT03 EQU LCPZF002 01583000 LCPZF003 EQU LCPFLAGS 01584000 LCPZRT04 EQU LCPZF003 01585000 LCPZF004 EQU LCPFLAGS 01586000 LCPZRT05 EQU LCPZF004 01587000 LCPZRT06 EQU LCPFLAGS 01588000 LCPZRT07 EQU LCPFLAGS 01589000 LCPMNRCD EQU LCPREQTG+1 01590000 LCPZRT08 EQU LCPMNRCD 01591000 LCPZRT09 EQU LCPMNRCD 01592000 LCPCHAIN EQU ISTLCPB+4 01593000 LCPCHAI1 EQU LCPCHAIN 01594000 LCPRUCNT EQU ISTLCPB+8 01595000 LCPFLAG2 EQU ISTLCPB+9 01596000 LCPTLBPI EQU LCPFLAG2 01597000 LCPFID0 EQU LCPFLAG2 01598000 LCPSEQ EQU ISTLCPB+10 01599000 LCPCID EQU ISTLCPB+16 01600000 LCPFDBA EQU ISTLCPB+24 01601000 LCPFLG1 EQU ISTLCPB+37 01602000 LCPFLCCW EQU ISTLCPB+40 01603000 LCPLCCW EQU ISTLCPB+48 01604000 LCPPABA EQU LCPLCCW+4 01605000 LCPRPHA EQU LCPPABA 01606000 ISTZSAVE EQU 0 01607000 ZSAZSVBC EQU ISTZSAVE 01608000 ZSAZSVMS EQU ZSAZSVBC 01609000 ZSAZACTV EQU ZSAZSVMS 01610000 ZSAZSVFC EQU ISTZSAVE+4 01611000 ZSAZSVRR EQU ISTZSAVE+8 01612000 ZSAZSVVR EQU ISTZSAVE+12 01613000 ZSAZTRAC EQU ISTZSAVE+36 01614000 ISTPFCRR EQU 0 01615000 PFCCRR EQU ISTPFCRR 01616000 PFCCRRID EQU PFCCRR 01617000 PFCCRRLN EQU PFCCRR+2 01618000 PFCHDR EQU ISTPFCRR+4 01619000 PFCCRRO EQU PFCHDR 01620000 PFCFRRO EQU PFCHDR+4 01621000 ISTCFCRR EQU 0 01622000 CFCAUDIT EQU ISTCFCRR 01623000 CFCNTRD EQU CFCAUDIT 01624000 CFCCRT EQU CFCAUDIT+1 01625000 ISTZCRR EQU 0 01626000 ZCRCRR EQU ISTZCRR 01627000 ZCRFLGS1 EQU ISTZCRR+12 01628000 ZCRFLGS2 EQU ISTZCRR+13 01629000 ZCRSWFLD EQU ISTZCRR+14 01630000 ZCRENDSH EQU ZCRSWFLD 01631000 ZCRNDLCP EQU ZCRSWFLD 01632000 ZCRRESET EQU ZCRSWFLD 01633000 ZCRFLGS3 EQU ISTZCRR+15 01634000 ZCRGENSW EQU ISTZCRR+16 01635000 ZCRPFLGS EQU ISTZCRR+17 01636000 ZCRIBPR EQU ISTZCRR+18 01637000 ZCRSCPSW EQU ISTZCRR+19 01638000 ZCRPARMS EQU ISTZCRR+24 01639000 ZCRFBPTR EQU ZCRPARMS 01640000 ZCRDFRDA EQU ZCRPARMS+10 01641000 ZCRPCOD1 EQU ZCRPARMS+12 01642000 ZCRPLSBF EQU ZCRPCOD1 01643000 ZCRPCOD2 EQU ZCRPARMS+13 01644000 ZCRSVRTN EQU ISTZCRR+56 01645000 ZCRWKARA EQU ISTZCRR+156 01646000 ZCRCIDSV EQU ISTZCRR+192 01647000 ZCRAUDIT EQU ISTZCRR+440 01648000 ZCRENTER EQU ZCRAUDIT+5 01649000 ZCREECBA EQU ZCRENTER+8 01650000 ZCRLCPB EQU ISTZCRR+480 01651000 ZCRRHRU EQU ZCRLCPB 01652000 ISTASCRR EQU 0 01653000 ASCFLAGS EQU ISTASCRR+16 01654000 ASCFLG1 EQU ASCFLAGS 01655000 ASCFLG2 EQU ASCFLAGS+2 01656000 ASCFLG3 EQU ASCFLAGS+4 01657000 ASCUSRGS EQU ISTASCRR+28 01658000 ISTAPCRR EQU 0 01659000 APCATFLG EQU ISTAPCRR+16 01660000 APCRFLG EQU ISTAPCRR+18 01661000 APCSAVE EQU ISTAPCRR+44 01662000 APCCOMF EQU ISTAPCRR+116 01663000 APCCOMF1 EQU APCCOMF 01664000 APC31FLG EQU ISTAPCRR+132 01665000 APC52FLG EQU ISTAPCRR+133 01666000 APC53FLG EQU ISTAPCRR+134 01667000 APC54FLG EQU ISTAPCRR+135 01668000 APC57FLG EQU ISTAPCRR+136 01669000 ISTCRA EQU 0 01670000 CRABASIC EQU ISTCRA 01671000 CRAHDR EQU CRABASIC 01672000 CRACRR EQU CRAHDR 01673000 CRALKACT EQU CRABASIC+8 01674000 CRAPROCR EQU ISTCRA+312 01675000 CRASVC EQU ISTCRA+848 01676000 CRABUFA EQU CRASVC+68 01677000 ISTZLFVT EQU 0 01678000 ZLFZEFAA EQU ISTZLFVT+4 01679000 ZLFZEAAA EQU ZLFZEFAA 01680000 ZLFZFFFA EQU ISTZLFVT+8 01681000 ZLFZFAFA EQU ZLFZFFFA 01682000 ZLFZEFTA EQU ISTZLFVT+12 01683000 ZLFZEATA EQU ZLFZEFTA 01684000 ZLFZFFTA EQU ISTZLFVT+16 01685000 ZLFZFATA EQU ZLFZFFTA 01686000 ZLFZFFXA EQU ISTZLFVT+20 01687000 ZLFZEFFA EQU ISTZLFVT+24 01688000 ZLFZEAFA EQU ZLFZEFFA 01689000 ZLFZEFCA EQU ISTZLFVT+28 01690000 ZLFZEACA EQU ZLFZEFCA 01691000 ISTFSB EQU 0 01692000 FSBFSB EQU ISTFSB 01693000 FSBTYPE EQU FSBFSB 01694000 FSBLNGTH EQU FSBFSB+1 01695000 FSBMNRCD EQU FSBFSB+2 01696000 FSBSFLGS EQU FSBFSB+3 01697000 FSBFSBA EQU FSBFSB+4 01698000 FSBBTH EQU FSBFSB+8 01699000 FSBCID EQU FSBBTH 01700000 FSBRQTAG EQU FSBBTH+4 01701000 FSBSEQID EQU FSBRQTAG 01702000 FSBFLAGS EQU FSBSEQID 01703000 FSBSEQ EQU FSBSEQID+1 01704000 FSBCSWST EQU FSBBTH+6 01705000 FSBTHFLD EQU FSBCSWST 01706000 FSBTH1 EQU FSBTHFLD 01707000 FSBSYSRS EQU FSBTH1 01708000 FSBTH2 EQU FSBTHFLD+1 01709000 FSBEXTRS EQU FSBTH2 01710000 FSBXFSTS EQU FSBEXTRS 01711000 FSBXCODE EQU FSBEXTRS 01712000 FSBNETRS EQU FSBFSB+16 01713000 FSBSRCAT EQU FSBNETRS 01714000 FSBERC EQU FSBNETRS+1 01715000 FSBFBMI EQU FSBERC 01716000 FSBDMGRS EQU FSBFSB+18 01717000 FSBSS1 EQU FSBDMGRS 01718000 FSBSS2 EQU FSBDMGRS+1 01719000 FSBLCPB EQU FSBFSB+20 01720000 FSBMSGID EQU FSBLCPB 01721000 FSBLCCWA EQU FSBFSB+24 01722000 FSBRLSTS EQU FSBLCCWA 01723000 ISTZLBUF EQU 0 01724000 ZLBCHAIN EQU ISTZLBUF 01725000 ZLBFSM EQU ISTZLBUF+4 01726000 ISTDNCB EQU 0 01727000 DNCOS EQU ISTDNCB+56 01728000 DNCZFLGS EQU DNCOS 01729000 DNCBSCED EQU DNCOS+2 01730000 DNCSESIQ EQU DNCOS+4 01731000 DNCZC001 EQU DNCOS+40 01732000 ISTPROCD EQU 0 01733000 PROPROC EQU ISTPROCD 01734000 PROPROC1 EQU PROPROC 01735000 PROPROC2 EQU PROPROC+1 01736000 PROPROC3 EQU PROPROC+2 01737000 PROPROC4 EQU PROPROC+3 01738000 PROPROCS EQU 0 01739000 PROSETMS EQU PROPROCS+1 01740000 PROSETM2 EQU PROSETMS 01741000 PROSETM3 EQU PROSETMS+1 01742000 PROSETM4 EQU PROSETMS+2 01743000 ISTFMCB EQU 0 01744000 FMCSTAT EQU ISTFMCB+28 01745000 FMCSTAT1 EQU ISTFMCB+29 01746000 FMCCMDFL EQU ISTFMCB+31 01747000 FMCCMPS1 EQU ISTFMCB+36 01748000 FMCSIPA EQU ISTFMCB+148 01749000 FMCNXOSQ EQU ISTFMCB+152 01750000 FMCNXCFM EQU FMCNXOSQ 01751000 FMCNXOSC EQU FMCNXOSQ+2 01752000 FMCSSTAT EQU ISTFMCB+159 01753000 FMCPACE EQU ISTFMCB+160 01754000 FMCPACEN EQU FMCPACE 01755000 FMCPACEM EQU FMCPACE+1 01756000 FMCPACPC EQU FMCPACE+2 01757000 FMCCVAL EQU FMCPACE+3 01758000 FMCOBCE EQU FMCCVAL 01759000 FMCCLEXT EQU ISTFMCB+164 01760000 FMCRPLA EQU FMCCLEXT 01761000 FMCFBA EQU FMCCLEXT+4 01762000 FMCCMPS2 EQU FMCCLEXT+16 01763000 FMCFLGA EQU FMCCMPS2 01764000 FMCFLGCL EQU FMCCMPS2+1 01765000 FMCPSCMD EQU FMCCMPS2+2 01766000 FMCPSTAT EQU FMCCMPS2+3 01767000 FMCSTAT2 EQU ISTFMCB+186 01768000 FMCMODEB EQU ISTFMCB+189 01769000 FMCCLSEQ EQU ISTFMCB+190 01770000 FMCRRESP EQU ISTFMCB+195 01771000 FMCSSEGQ EQU ISTFMCB+200 01772000 FMCFBAS EQU ISTFMCB+216 01773000 FMCZV002 EQU FMCFBAS 01774000 FMCSNCTL EQU ISTFMCB+224 01775000 FMCSCFLG EQU FMCSNCTL 01776000 FMCVS1 EQU ISTFMCB+232 01777000 FMCZFLAG EQU FMCVS1 01778000 FMCZF006 EQU FMCZFLAG 01779000 FMCLBXM EQU FMCVS1+12 01780000 FMCSHEAQ EQU FMCLBXM 01781000 FMCLCPBQ EQU FMCVS1+16 01782000 FMCLCPAQ EQU FMCVS1+20 01783000 FMCSEQ1 EQU FMCVS1+34 01784000 FMCZFLG2 EQU FMCVS1+35 01785000 FMCCVFLG EQU FMCVS1+44 01786000 FMCFLAG EQU 0 01787000 FMCFLGB EQU FMCFLAG 01788000 ISTZFSAV EQU 0 01789000 ZSAFSVVR EQU ISTZFSAV+12 01790000 ZSAFSVR2 EQU ISTZFSAV+36 01791000 ZSAFSV19 EQU ISTZFSAV+40 01792000 ISTZ19SV EQU 0 01793000 ZSAF19FG EQU ISTZ19SV 01794000 ZSAFLOCK EQU ZSAF19FG 01795000 ZSAF19R1 EQU ISTZ19SV+4 01796000 ZSAF19RD EQU ISTZ19SV+8 01797000 FRWD0013 EQU 0 01798000 WRD00013 EQU FRWD0013 01799000 WRD10013 EQU FRWD0013+4 01800000 FMZL0019 EQU 0 01801000 FMZL0048 EQU 0 01802000 ISTAPC38 EQU 0 01803000 UCBBGN EQU 0 01804000 CVTS01 EQU CVTPGSIA 01805000 CVTLPDIA EQU CVTS01+12 01806000 CVTDIRST EQU CVTLPDIA 01807000 CVTSLIDA EQU CVTS01+24 01808000 CVTCTLFG EQU CVTS01+50 01809000 CVTRV210 EQU CVTS01+424 01810000 CVTRV219 EQU CVTS01+425 01811000 CVTRV228 EQU CVTS01+426 01812000 CVTRV237 EQU CVTS01+427 01813000 CVTMFRTR EQU CVTS01+452 01814000 CVTRV262 EQU CVTS01+468 01815000 CVTRV271 EQU CVTS01+469 01816000 CVTRV280 EQU CVTS01+470 01817000 CVTRV289 EQU CVTS01+471 01818000 CVTGSDA EQU CVTS01+600 01819000 IOSATTSC EQU IOSIPIB 01820000 IOSWTOWA EQU IOSIPIB 01821000 IOSPCISC EQU IOSIPIB 01822000 FLC EQU PSA 01823000 PSARSVTE EQU PSARSVT 01824000 PSACSTK EQU PSARSVTE 01825000 UCBOBS01 EQU UCBDEV 01826000 UCBSTAB EQU UCBOBS01+10 01827000 UCBBSVL EQU UCBSTAB 01828000 UCBPRSRS EQU UCBSTAB 01829000 UCBDMCT EQU UCBOBS01+11 01830000 UCBFL4 EQU UCBOBS01+13 01831000 UCBOBS02 EQU UCBDEV 01832000 UCBTFL1 EQU UCBOBS02+19 01833000 UCBXTN EQU UCBOBS02+20 01834000 UCBVOPT EQU UCBXTN 01835000 UCBOBS03 EQU UCBDEV 01836000 UCBXTADR EQU UCBOBS03 01837000 UCBOBS04 EQU UCBDEV 01838000 UCBBTA EQU UCBOBS04+12 01839000 UCBOBS06 EQU UCBDEV 01840000 UCBAOF EQU UCBOBS06 01841000 UCBAOF1 EQU UCBAOF 01842000 UCBAOF2 EQU UCBAOF+1 01843000 @NM00040 EQU UCBOBS06+3 01844000 UCBIRB EQU UCBOBS06+4 01845000 UCBGRAF EQU UCBIRB 01846000 UCBLDNCA EQU UCBOBS06+8 01847000 UCBRDYQ EQU UCBLDNCA 01848000 UCBIRLN EQU UCBRDYQ 01849000 UCBLDNCB EQU UCBRDYQ+1 01850000 UCBCTLNK EQU UCBOBS06+12 01851000 UCBOBS07 EQU UCBDEV 01852000 UCBOBS08 EQU UCBDEV 01853000 UCBCTCAD EQU UCBOBS08 01854000 UCBCTCF1 EQU UCBOBS08+4 01855000 UCBOBS09 EQU UCBDEV 01856000 LCPZTIE EQU LCPCID 01857000 LCPZSNAM EQU LCPZTIE+8 01858000 FSBCOMBN EQU FSBNETRS 01859000 FSBRHFLD EQU FSBCOMBN+1 01860000 FSBRH3 EQU FSBRHFLD+2 01861000 FSBLDFLG EQU FSBRH3 01862000 @NM00078 EQU FSBRQTAG 01863000 ZLBBTRAN EQU ISTZLBUF 01864000 ZLBFDBZ EQU ZLBBTRAN 01865000 ZLBAIO EQU ZLBBTRAN+16 01866000 ZLBDTIO EQU ZLBFSM 01867000 ZLBCCW1 EQU ZLBDTIO 01868000 ZLBCPCF1 EQU ZLBCCW1 01869000 ZLBCMOD EQU ZLBCCW1+5 01870000 ZLBCCW2 EQU ZLBDTIO+8 01871000 ZLBCCW3 EQU ZLBDTIO+16 01872000 ZLBSNS EQU ZLBDTIO+28 01873000 ZLBERC EQU ZLBDTIO+29 01874000 ZLBCOMP EQU ZLBDTIO+31 01875000 ZLBLSTBF EQU ZLBDTIO+44 01876000 ZLBSAF EQU ZLBDTIO+48 01877000 ZLBSTAT EQU ZLBSAF 01878000 ZLBDEVST EQU ZLBSTAT 01879000 ZLBRQTG EQU ZLBDTIO+50 01880000 ZLBRQFLG EQU ZLBRQTG 01881000 ZLBFLAGS EQU ZLBDTIO+56 01882000 ZLBTEXTA EQU ZLBCCW3 01883000 ZLBTEXTB EQU ZLBFLAGS 01884000 ZLBTEXTC EQU ZLBFLAGS 01885000 ZLBPPL EQU ZLBTEXTC 01886000 ZLBFAIO EQU ZLBAIO 01887000 ZLBFSB EQU ZLBFAIO 01888000 SRB EQU SRBSECT 01889000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01890000 ZLBFDBS EQU ZLBFAIO+32 01891000 ZLBPPCSC EQU ZLBPPL+14 01892000 ZLBPPRS1 EQU ZLBPPL+13 01893000 ZLBPPRSV EQU ZLBPPL+12 01894000 ZLBPPCLG EQU ZLBPPL+12 01895000 ZLBPPCC EQU ZLBPPL+12 01896000 ZLBPPINT EQU ZLBPPL+12 01897000 ZLBPPHIO EQU ZLBPPL+12 01898000 ZLBPP EQU ZLBPPL+4 01899000 ZLBPPLDB EQU ZLBPPL+1 01900000 ZLBPPLF EQU ZLBPPL 01901000 ZLBTEXT1 EQU ZLBTEXTB 01902000 ZLBTEXT EQU ZLBTEXTA+8 01903000 ZLBRSV0A EQU ZLBTEXTA 01904000 ZLBTCP EQU ZLBFLAGS+8 01905000 ZLBTCSW EQU ZLBFLAGS+1 01906000 ZLBRSV09 EQU ZLBFLAGS 01907000 ZLBWCCSP EQU ZLBFLAGS 01908000 ZLBRSV07 EQU ZLBFLAGS 01909000 ZLBLSTST EQU ZLBDTIO+52 01910000 ZLBRQSEQ EQU ZLBRQTG+1 01911000 ZLBRT0B EQU ZLBRQFLG+1 01912000 ZLBRT0A EQU ZLBRQFLG+1 01913000 ZLBRT09 EQU ZLBRQFLG+1 01914000 ZLBRT08 EQU ZLBRQFLG+1 01915000 ZLBRT07 EQU ZLBRQFLG 01916000 ZLBRT06 EQU ZLBRQFLG 01917000 ZLBRT05 EQU ZLBRQFLG 01918000 ZLBRT04 EQU ZLBRQFLG 01919000 ZLBRT03 EQU ZLBRQFLG 01920000 ZLBRT02 EQU ZLBRQFLG 01921000 ZLBRT01 EQU ZLBRQFLG 01922000 ZLBRT00 EQU ZLBRQFLG 01923000 ZLBCHNST EQU ZLBSTAT+1 01924000 ZLBUCST EQU ZLBDEVST 01925000 ZLBDEST EQU ZLBDEVST 01926000 ZLBRSV10 EQU ZLBDEVST 01927000 ZLBRSV11 EQU ZLBDTIO+40 01928000 ZLBLCCWA EQU ZLBDTIO+36 01929000 ZLBLCPBA EQU ZLBDTIO+32 01930000 ZLBRSV08 EQU ZLBDTIO+30 01931000 ZLBRSV05 EQU ZLBERC 01932000 ZLBFBMI EQU ZLBERC 01933000 ZLBETI EQU ZLBERC 01934000 ZLBEMI EQU ZLBERC 01935000 ZLBEBI EQU ZLBERC 01936000 ZLBECI EQU ZLBERC 01937000 ZLBELI EQU ZLBERC 01938000 ZLBSOC EQU ZLBSNS 01939000 ZLBSCC EQU ZLBSNS 01940000 ZLBSUS EQU ZLBSNS 01941000 ZLBSDC EQU ZLBSNS 01942000 ZLBSEQCK EQU ZLBSNS 01943000 ZLBSBOL EQU ZLBSNS 01944000 ZLBSIR EQU ZLBSNS 01945000 ZLBSCR EQU ZLBSNS 01946000 ZLBRSV12 EQU ZLBDTIO+24 01947000 ZLBCPTC3 EQU ZLBCCW3+6 01948000 ZLBRSV04 EQU ZLBCCW3+5 01949000 ZLBCPFL3 EQU ZLBCCW3+4 01950000 ZLBCPAD3 EQU ZLBCCW3+1 01951000 ZLBCPCF3 EQU ZLBCCW3 01952000 ZLBCPTC2 EQU ZLBCCW2+6 01953000 ZLBRSV03 EQU ZLBCCW2+5 01954000 ZLBCPFL2 EQU ZLBCCW2+4 01955000 ZLBCPAD2 EQU ZLBCCW2+1 01956000 ZLBCPCF2 EQU ZLBCCW2 01957000 ZLBCPTC1 EQU ZLBCCW1+6 01958000 ZLBCPFL1 EQU ZLBCCW1+4 01959000 ZLBCPAD1 EQU ZLBCCW1+1 01960000 ZLBLNG2 EQU ZLBBTRAN+14 01961000 ZLBRSV01 EQU ZLBBTRAN+12 01962000 FSBRT0B EQU @NM00078+1 01963000 FSBRT0A EQU @NM00078+1 01964000 FSBRT09 EQU @NM00078+1 01965000 FSBRT08 EQU @NM00078+1 01966000 FSBRT07 EQU @NM00078 01967000 FSBRT06 EQU @NM00078 01968000 FSBRT05 EQU @NM00078 01969000 FSBRT04 EQU @NM00078 01970000 FSBRT03 EQU @NM00078 01971000 FSBRT02 EQU @NM00078 01972000 FSBRT01 EQU @NM00078 01973000 FSBRT00 EQU @NM00078 01974000 FSBLDCUF EQU FSBLDFLG 01975000 FSBLDSIF EQU FSBLDFLG 01976000 FSBLDSOF EQU FSBLDFLG 01977000 FSBLDEBF EQU FSBLDFLG 01978000 FSBLDBBF EQU FSBLDFLG 01979000 FSBLDFME EQU FSBLDFLG 01980000 FSBLDSCF EQU FSBLDFLG 01981000 FSBLDRMF EQU FSBLDFLG 01982000 FSBRH2 EQU FSBRHFLD+1 01983000 FSBRH1 EQU FSBRHFLD 01984000 FSBALIGN EQU FSBCOMBN 01985000 LCPZTRV4 EQU LCPZSNAM+4 01986000 LCPZTRV1 EQU LCPZSNAM 01987000 LCPZSNA EQU LCPZTIE+4 01988000 LCPZFMCA EQU LCPZTIE 01989000 UCBRV066 EQU UCBOBS09+4 01990000 UCBIOSBA EQU UCBOBS09 01991000 UCBRV042 EQU UCBOBS08+5 01992000 UCBRV082 EQU UCBCTCF1 01993000 UCBRV081 EQU UCBCTCF1 01994000 UCBRV080 EQU UCBCTCF1 01995000 UCBRV079 EQU UCBCTCF1 01996000 UCBRV078 EQU UCBCTCF1 01997000 UCBRV077 EQU UCBCTCF1 01998000 UCBRV076 EQU UCBCTCF1 01999000 UCBCTC80 EQU UCBCTCF1 02000000 UCBCTCAL EQU UCBCTCAD 02001000 UCBICNCB EQU UCBOBS07+4 02002000 UCBRV040 EQU UCBOBS07 02003000 UCBCTLNA EQU UCBCTLNK+1 02004000 UCBRLN EQU UCBCTLNK 02005000 UCBRDYQA EQU UCBLDNCB 02006000 UCBINRLN EQU UCBIRLN 02007000 UCBIRBA EQU UCBIRB+1 02008000 UCBRV039 EQU UCBGRAF 02009000 UCBDWNR EQU UCBGRAF 02010000 UCBRPND EQU UCBGRAF 02011000 UCBUPM EQU UCBGRAF 02012000 UCBBTAM EQU UCBGRAF 02013000 UCBDRNO EQU UCBGRAF 02014000 UCBDRO EQU UCBGRAF 02015000 UCBOIP EQU UCBGRAF 02016000 UCBATRCD EQU @NM00040 02017000 UCBSKPFG EQU @NM00040 02018000 UCBRIPND EQU @NM00040 02019000 UCBRTIAC EQU @NM00040 02020000 UCBRSV79 EQU @NM00040 02021000 UCBRSV78 EQU @NM00040 02022000 UCBRSV77 EQU @NM00040 02023000 UCBOLTEP EQU @NM00040 02024000 UCBATNCT EQU UCBOBS06+2 02025000 UCBRSV76 EQU UCBAOF2 02026000 UCBRSV75 EQU UCBAOF2 02027000 UCBRSV74 EQU UCBAOF2 02028000 UCBRSV73 EQU UCBAOF2 02029000 UCBRSV72 EQU UCBAOF2 02030000 UCBRSV71 EQU UCBAOF2 02031000 UCBRSV70 EQU UCBAOF2 02032000 UCBRSV69 EQU UCBAOF2 02033000 UCBRSV68 EQU UCBAOF1 02034000 UCBRSV67 EQU UCBAOF1 02035000 UCBRSV66 EQU UCBAOF1 02036000 UCBRSV65 EQU UCBAOF1 02037000 UCBRSV64 EQU UCBAOF1 02038000 UCBOFNL EQU UCBAOF1 02039000 UCBOFSP EQU UCBAOF1 02040000 UCBOFMCR EQU UCBAOF1 02041000 UCBBTB EQU UCBBTA+1 02042000 UCBDI EQU UCBBTA 02043000 UCBSNS EQU UCBOBS04+8 02044000 UCBTEB EQU UCBOBS04+4 02045000 UCBGCB EQU UCBOBS04+3 02046000 UCBOPEN EQU UCBOBS04+2 02047000 UCBSTART EQU UCBOBS04 02048000 UCBXTNB EQU UCBXTN+1 02049000 UCBRSV22 EQU UCBVOPT 02050000 UCBRSV21 EQU UCBVOPT 02051000 UCBRSV20 EQU UCBVOPT 02052000 UCBESVE EQU UCBVOPT 02053000 UCBERPC EQU UCBVOPT 02054000 UCBESVC EQU UCBVOPT 02055000 UCBEVA EQU UCBVOPT 02056000 UCBESV EQU UCBVOPT 02057000 UCBRV009 EQU UCBTFL1 02058000 UCBRV008 EQU UCBTFL1 02059000 UCBRV007 EQU UCBTFL1 02060000 UCBRV006 EQU UCBTFL1 02061000 UCBRV005 EQU UCBTFL1 02062000 UCBRV038 EQU UCBTFL1 02063000 UCBNSLTP EQU UCBTFL1 02064000 UCBNLTP EQU UCBTFL1 02065000 UCBRES1B EQU UCBOBS02+18 02066000 UCBFSER EQU UCBOBS02+12 02067000 @NM00039 EQU UCBOBS02+4 02068000 UCBFSEQ EQU UCBOBS02+2 02069000 UCBFSCT EQU UCBOBS02 02070000 UCBNEXP EQU UCBOBS01+20 02071000 UCBBASE EQU UCBOBS01+16 02072000 UCBRES1A EQU UCBOBS01+15 02073000 UCBUSER EQU UCBOBS01+14 02074000 UCBFL47 EQU UCBFL4 02075000 UCBFL46 EQU UCBFL4 02076000 UCBFL45 EQU UCBFL4 02077000 UCBRV065 EQU UCBFL4 02078000 UCBDSS EQU UCBFL4 02079000 UCBRV028 EQU UCBFL4 02080000 UCBWDAV EQU UCBFL4 02081000 UCBDAVV EQU UCBFL4 02082000 UCBSQC EQU UCBOBS01+12 02083000 UCBDATP EQU UCBOBS01+12 02084000 UCBDMC EQU UCBDMCT 02085000 UCBMOUNT EQU UCBDMCT 02086000 UCBBNUL EQU UCBSTAB 02087000 UCBSHAR EQU UCBSTAB 02088000 UCBBSTR EQU UCBSTAB 02089000 UCBBPUB EQU UCBSTAB 02090000 UCBBPRV EQU UCBSTAB 02091000 UCBBALB EQU UCBPRSRS 02092000 UCBPGFL EQU UCBSTAB 02093000 UCBDVSHR EQU UCBBSVL 02094000 UCBVOLI EQU UCBOBS01+4 02095000 UCBVTOC EQU UCBOBS01 02096000 PSARSAV EQU PSARSVTE+60 02097000 PSARSTK EQU PSARSVTE+56 02098000 PSAESAV3 EQU PSARSVTE+52 02099000 PSAESTK3 EQU PSARSVTE+48 02100000 PSAESAV2 EQU PSARSVTE+44 02101000 PSAESTK2 EQU PSARSVTE+40 02102000 PSAESAV1 EQU PSARSVTE+36 02103000 PSAESTK1 EQU PSARSVTE+32 02104000 PSAPSAV EQU PSARSVTE+28 02105000 PSAPSTK EQU PSARSVTE+24 02106000 PSAMSAV EQU PSARSVTE+20 02107000 PSAMSTK EQU PSARSVTE+16 02108000 PSASSAV EQU PSARSVTE+12 02109000 PSASSTK EQU PSARSVTE+8 02110000 PSANSTK EQU PSARSVTE+4 02111000 IOSPCIWA EQU IOSPCISC+44 02112000 IOSPCIRS EQU IOSPCISC+8 02113000 @NM00009 EQU IOSPCISC+4 02114000 @NM00008 EQU IOSPCISC 02115000 IOSWRNDR EQU IOSWTOWA+4 02116000 IOSWTOPT EQU IOSWTOWA+3 02117000 IOSWTOCP EQU IOSWTOWA+2 02118000 IOSWTOCH EQU IOSWTOWA 02119000 IOSATTWA EQU IOSATTSC+40 02120000 @NM00007 EQU IOSATTSC+24 02121000 IOSATTSN EQU IOSATTSC 02122000 CVTRV628 EQU CVTS01+728 02123000 CVTRV627 EQU CVTS01+724 02124000 CVTRV626 EQU CVTS01+720 02125000 CVTRV625 EQU CVTS01+716 02126000 CVTRV624 EQU CVTS01+712 02127000 CVTRV623 EQU CVTS01+708 02128000 CVTRV622 EQU CVTS01+704 02129000 CVTRV621 EQU CVTS01+700 02130000 CVTRV620 EQU CVTS01+696 02131000 CVTRV619 EQU CVTS01+692 02132000 CVTRV618 EQU CVTS01+688 02133000 CVTRV617 EQU CVTS01+684 02134000 CVTRV616 EQU CVTS01+680 02135000 CVTRV615 EQU CVTS01+676 02136000 CVTRV614 EQU CVTS01+672 02137000 CVTRV613 EQU CVTS01+668 02138000 CVTTCASP EQU CVTS01+664 02139000 CVT0PT03 EQU CVTS01+660 02140000 CVT0PT0E EQU CVTS01+656 02141000 CVTIRM EQU CVTS01+652 02142000 CVTCGK EQU CVTS01+648 02143000 CVTRV607 EQU CVTS01+644 02144000 CVTRV606 EQU CVTS01+640 02145000 CVTRV605 EQU CVTS01+636 02146000 CVTRV604 EQU CVTS01+632 02147000 CVTEFF02 EQU CVTS01+628 02148000 CVTCBBR EQU CVTS01+624 02149000 CVTSSCR EQU CVTS01+620 02150000 CVTEVENT EQU CVTS01+616 02151000 CVTCRCA EQU CVTS01+612 02152000 CVTTPIO EQU CVTS01+608 02153000 CVTADV EQU CVTS01+604 02154000 CVTGSDAB EQU CVTGSDA 02155000 CVTQV3 EQU CVTS01+596 02156000 CVTQV2 EQU CVTS01+592 02157000 CVTQV1 EQU CVTS01+588 02158000 CVTRPT EQU CVTS01+584 02159000 CVTSSRB EQU CVTS01+580 02160000 CVTCSDRL EQU CVTS01+576 02161000 CVTEXP1 EQU CVTS01+572 02162000 CVTRMPMT EQU CVTS01+568 02163000 CVTRMPTT EQU CVTS01+564 02164000 CVTVPSA EQU CVTS01+560 02165000 CVTVSTOP EQU CVTS01+556 02166000 CVTGTFR8 EQU CVTS01+552 02167000 CVTQUIT EQU CVTS01+548 02168000 CVTVACR EQU CVTS01+544 02169000 CVTWTCB EQU CVTS01+540 02170000 CVTSTPRS EQU CVTS01+536 02171000 CVT0PT02 EQU CVTS01+532 02172000 CVTDARCM EQU CVTS01+528 02173000 CVTIRECM EQU CVTS01+524 02174000 CVTJRECM EQU CVTS01+520 02175000 CVTVEMS0 EQU CVTS01+516 02176000 CVTSPFRR EQU CVTS01+512 02177000 CVTRLSTG EQU CVTS01+508 02178000 CVT0TC0A EQU CVTS01+504 02179000 CVTGMBR EQU CVTS01+500 02180000 CVTLFRM EQU CVTS01+496 02181000 CVTRMBR EQU CVTS01+492 02182000 CVTVIOP EQU CVTS01+488 02183000 CVTRV307 EQU CVTS01+486 02184000 CVTRV306 EQU CVTS01+484 02185000 CVTRV305 EQU CVTS01+482 02186000 CVTRV304 EQU CVTS01+480 02187000 CVTRV303 EQU CVTS01+478 02188000 CVTRV302 EQU CVTS01+476 02189000 CVTTRCA EQU CVTS01+472 02190000 CVTRV297 EQU CVTRV289 02191000 CVTRV296 EQU CVTRV289 02192000 CVTRV295 EQU CVTRV289 02193000 CVTRV294 EQU CVTRV289 02194000 CVTRV293 EQU CVTRV289 02195000 CVTRV292 EQU CVTRV289 02196000 CVTRV291 EQU CVTRV289 02197000 CVTRV290 EQU CVTRV289 02198000 CVTRV288 EQU CVTRV280 02199000 CVTRV287 EQU CVTRV280 02200000 CVTRV286 EQU CVTRV280 02201000 CVTRV285 EQU CVTRV280 02202000 CVTRV284 EQU CVTRV280 02203000 CVTRV283 EQU CVTRV280 02204000 CVTRV282 EQU CVTRV280 02205000 CVTRV281 EQU CVTRV280 02206000 CVTRV279 EQU CVTRV271 02207000 CVTRV278 EQU CVTRV271 02208000 CVTRV277 EQU CVTRV271 02209000 CVTRV276 EQU CVTRV271 02210000 CVTRV275 EQU CVTRV271 02211000 CVTRV274 EQU CVTRV271 02212000 CVTRV273 EQU CVTRV271 02213000 CVTRV272 EQU CVTRV271 02214000 CVTRV270 EQU CVTRV262 02215000 CVTRV269 EQU CVTRV262 02216000 CVTRV268 EQU CVTRV262 02217000 CVTRV267 EQU CVTRV262 02218000 CVTRV266 EQU CVTRV262 02219000 CVTRV265 EQU CVTRV262 02220000 CVTRV264 EQU CVTRV262 02221000 CVTRV263 EQU CVTRV262 02222000 CVTVFP EQU CVTS01+464 02223000 CVTVSI EQU CVTS01+460 02224000 CVTVPSIB EQU CVTS01+456 02225000 CVTMFACT EQU CVTMFRTR 02226000 CVTMFCTL EQU CVTS01+448 02227000 CVTPVBP EQU CVTS01+444 02228000 CVTPWI EQU CVTS01+440 02229000 CVTRV254 EQU CVTS01+438 02230000 CVTRV253 EQU CVTS01+436 02231000 CVTRV252 EQU CVTS01+434 02232000 CVTRV251 EQU CVTS01+433 02233000 CVTRV250 EQU CVTS01+432 02234000 CVTRV249 EQU CVTS01+431 02235000 CVTRV248 EQU CVTS01+430 02236000 CVTRV247 EQU CVTS01+429 02237000 CVTRV246 EQU CVTS01+428 02238000 CVTRV245 EQU CVTRV237 02239000 CVTRV244 EQU CVTRV237 02240000 CVTRV243 EQU CVTRV237 02241000 CVTRV242 EQU CVTRV237 02242000 CVTRV241 EQU CVTRV237 02243000 CVTRV240 EQU CVTRV237 02244000 CVTRV239 EQU CVTRV237 02245000 CVTRV238 EQU CVTRV237 02246000 CVTRV236 EQU CVTRV228 02247000 CVTRV235 EQU CVTRV228 02248000 CVTRV234 EQU CVTRV228 02249000 CVTRV233 EQU CVTRV228 02250000 CVTRV232 EQU CVTRV228 02251000 CVTRV231 EQU CVTRV228 02252000 CVTRV230 EQU CVTRV228 02253000 CVTRV229 EQU CVTRV228 02254000 CVTRV227 EQU CVTRV219 02255000 CVTRV226 EQU CVTRV219 02256000 CVTRV225 EQU CVTRV219 02257000 CVTRV224 EQU CVTRV219 02258000 CVTRV223 EQU CVTRV219 02259000 CVTRV222 EQU CVTRV219 02260000 CVTRV221 EQU CVTRV219 02261000 CVTRV220 EQU CVTRV219 02262000 CVTRV218 EQU CVTRV210 02263000 CVTRV217 EQU CVTRV210 02264000 CVTRV216 EQU CVTRV210 02265000 CVTRV215 EQU CVTRV210 02266000 CVTRV214 EQU CVTRV210 02267000 CVTRV213 EQU CVTRV210 02268000 CVTRV212 EQU CVTRV210 02269000 CVTRV211 EQU CVTRV210 02270000 CVTLCCAT EQU CVTS01+420 02271000 CVTPCCAT EQU CVTS01+416 02272000 CVTIPCRP EQU CVTS01+412 02273000 CVTIPCRI EQU CVTS01+408 02274000 CVTIPCDS EQU CVTS01+404 02275000 CVTAIDVT EQU CVTS01+400 02276000 CVTSSAP EQU CVTS01+396 02277000 CVTEHCIR EQU CVTS01+392 02278000 CVTEHDEF EQU CVTS01+388 02279000 CVTDAIR EQU CVTS01+384 02280000 CVTPERFM EQU CVTS01+380 02281000 CVT044R2 EQU CVTS01+376 02282000 CVTFETCH EQU CVTS01+372 02283000 CVTRSTWD EQU CVTS01+368 02284000 CVTSPOST EQU CVTS01+364 02285000 CVTIOBP EQU CVTS01+360 02286000 CVTASMVT EQU CVTS01+356 02287000 CVTRECRQ EQU CVTS01+352 02288000 CVTWSAC EQU CVTS01+348 02289000 CVTRV149 EQU CVTS01+344 02290000 CVTWSAL EQU CVTS01+340 02291000 CVTSPSA EQU CVTS01+336 02292000 CVTGLMN EQU CVTS01+332 02293000 CVTVEAC0 EQU CVTS01+328 02294000 CVT062R1 EQU CVTS01+324 02295000 CVTRPOST EQU CVTS01+320 02296000 CVTDQIQE EQU CVTS01+316 02297000 CVTCSD EQU CVTS01+312 02298000 CVTLKRMA EQU CVTS01+308 02299000 CVTRSPIE EQU CVTS01+304 02300000 CVTRENQ EQU CVTS01+300 02301000 CVTLQCB EQU CVTS01+296 02302000 CVTFQCB EQU CVTS01+292 02303000 CVTQCS01 EQU CVTS01+288 02304000 CVTAPFT EQU CVTS01+284 02305000 CVTPARRL EQU CVTS01+280 02306000 CVTVWAIT EQU CVTS01+276 02307000 CVTGSPL EQU CVTS01+272 02308000 CVTLSMQ EQU CVTS01+268 02309000 CVTGSMQ EQU CVTS01+264 02310000 CVTEXPRO EQU CVTS01+260 02311000 CVTOPCTP EQU CVTS01+256 02312000 CVTSIC EQU CVTS01+252 02313000 CVTTPIOS EQU CVTS01+248 02314000 CVTRTMS EQU CVTS01+244 02315000 CVTSDBF EQU CVTS01+240 02316000 CVTSCBP EQU CVTS01+236 02317000 CVTSDMP EQU CVTS01+232 02318000 CVTSV60 EQU CVTS01+228 02319000 CVTRTMCT EQU CVTS01+224 02320000 CVTASCBL EQU CVTS01+220 02321000 CVTASCBH EQU CVTS01+216 02322000 CVTGDA EQU CVTS01+212 02323000 CVTASVT EQU CVTS01+208 02324000 CVTVVMDI EQU CVTS01+204 02325000 CVTAQTOP EQU CVTS01+200 02326000 CVTIOSCS EQU CVTS01+196 02327000 CVTSDRM EQU CVTS01+192 02328000 CVTOPTE EQU CVTS01+188 02329000 CVTSTXU EQU CVTS01+184 02330000 CVTQUIS EQU CVTS01+180 02331000 CVTPARS EQU CVTS01+176 02332000 CVTS1EE EQU CVTS01+172 02333000 CVTFRAS EQU CVTS01+168 02334000 CVTQSAS EQU CVTS01+164 02335000 CVTCRAS EQU CVTS01+160 02336000 CVTCRMN EQU CVTS01+156 02337000 CVTDELCP EQU CVTS01+152 02338000 CVTFRECL EQU CVTS01+148 02339000 CVTGETCL EQU CVTS01+144 02340000 CVTBLDCP EQU CVTS01+140 02341000 CVTAUTHL EQU CVTS01+136 02342000 CVTSCAN EQU CVTS01+132 02343000 CVTRV144 EQU CVTS01+130 02344000 CVTMAXMP EQU CVTS01+128 02345000 CVTSTCK EQU CVTS01+124 02346000 CVTRV139 EQU CVTS01+123 02347000 CVTDSSAC EQU CVTS01+122 02348000 CVTRV513 EQU CVTS01+121 02349000 CVTIOSPL EQU CVTS01+120 02350000 CVTPTGT EQU CVTS01+116 02351000 CVTCSPIE EQU CVTS01+112 02352000 CVTSMFEX EQU CVTS01+108 02353000 CVTOLT0A EQU CVTS01+104 02354000 CVTSRBRT EQU CVTS01+100 02355000 CVTPUTL EQU CVTS01+96 02356000 CVTASCRL EQU CVTS01+92 02357000 CVTASCRF EQU CVTS01+88 02358000 CVTRV326 EQU CVTS01+84 02359000 CVTRV325 EQU CVTS01+80 02360000 CVTRV324 EQU CVTS01+76 02361000 CVT0VL01 EQU CVTS01+72 02362000 CVTSHRVM EQU CVTS01+68 02363000 CVTRV332 EQU CVTS01+64 02364000 CVTTAS EQU CVTS01+60 02365000 CVTRSCN EQU CVTS01+56 02366000 CVTTRAC2 EQU CVTS01+54 02367000 CVTTRACE EQU CVTS01+52 02368000 CVTAPG EQU CVTS01+51 02369000 CVTSDTRC EQU CVTCTLFG 02370000 CVTGTRCE EQU CVTCTLFG 02371000 CVTNOMP EQU CVTCTLFG 02372000 CVTRSV79 EQU CVTCTLFG 02373000 CVTDSTAT EQU CVTCTLFG 02374000 CVTRSV78 EQU CVTCTLFG 02375000 CVTRV333 EQU CVTCTLFG 02376000 CVTRV323 EQU CVTCTLFG 02377000 CVTSPVLK EQU CVTS01+49 02378000 CVTRSV77 EQU CVTS01+48 02379000 CVTRV331 EQU CVTS01+44 02380000 CVTRV330 EQU CVTS01+40 02381000 CVTRV329 EQU CVTS01+36 02382000 CVTRV328 EQU CVTS01+32 02383000 CVTRV322 EQU CVTS01+28 02384000 CVTSLID EQU CVTSLIDA+1 02385000 CVTSYLK EQU CVTSLIDA 02386000 CVTRV321 EQU CVTS01+20 02387000 CVTRV320 EQU CVTS01+16 02388000 CVTLPDIR EQU CVTLPDIA+1 02389000 CVTRSV69 EQU CVTDIRST 02390000 CVTRSV68 EQU CVTDIRST 02391000 CVTRSV67 EQU CVTDIRST 02392000 CVTRSV66 EQU CVTDIRST 02393000 CVTRSV65 EQU CVTDIRST 02394000 CVTRSV64 EQU CVTDIRST 02395000 CVTRSV63 EQU CVTDIRST 02396000 CVTDICOM EQU CVTDIRST 02397000 CVTPVTP EQU CVTS01+8 02398000 CVTLPDSR EQU CVTS01+4 02399000 CVTGETL EQU CVTS01 02400000 WRDS0013 EQU FRWD0013+8 02401000 ZSAF19IO EQU ISTZ19SV+12 02402000 ZSAF19RV EQU ISTZ19SV+1 02403000 ZSAFRSVS EQU ZSAF19FG 02404000 ZSAFSVRR EQU ISTZFSAV+8 02405000 ZSAFSVFC EQU ISTZFSAV+4 02406000 ZSAFSVBC EQU ISTZFSAV 02407000 FMCFLRSV EQU FMCFLGB 02408000 FMCFLGA8 EQU FMCFLGB 02409000 FMCCLRPH EQU FMCVS1+45 02410000 FMCRSV0X EQU FMCCVFLG 02411000 FMCVYRPH EQU FMCCVFLG 02412000 FMCZV004 EQU FMCVS1+40 02413000 FMCLOCK2 EQU FMCVS1+36 02414000 @NM00085 EQU FMCZFLG2 02415000 FMCZF027 EQU FMCZFLG2 02416000 FMCZF026 EQU FMCZFLG2 02417000 FMCSEQ1B EQU FMCSEQ1 02418000 FMCSEQ1T EQU FMCSEQ1 02419000 FMCZX006 EQU FMCVS1+33 02420000 FMCZX005 EQU FMCVS1+32 02421000 FMCZX004 EQU FMCVS1+31 02422000 FMCZX003 EQU FMCVS1+30 02423000 FMCZX002 EQU FMCVS1+29 02424000 FMCZX001 EQU FMCVS1+28 02425000 FMCZV001 EQU FMCVS1+24 02426000 FMCAWATQ EQU FMCLCPAQ+1 02427000 @NM00084 EQU FMCLCPAQ 02428000 FMCLCPB2 EQU FMCLCPBQ+1 02429000 FMCLCPB1 EQU FMCLCPBQ 02430000 FMCASCDQ EQU FMCSHEAQ+1 02431000 @NM00083 EQU FMCSHEAQ 02432000 FMCSHEDQ EQU FMCVS1+8 02433000 FMCZFCSQ EQU FMCVS1+6 02434000 FMCZH001 EQU FMCVS1+4 02435000 FMCZF025 EQU FMCZFLAG+3 02436000 FMCZF024 EQU FMCZFLAG+3 02437000 FMCZF023 EQU FMCZFLAG+3 02438000 FMCZF022 EQU FMCZFLAG+3 02439000 FMCZF021 EQU FMCZFLAG+3 02440000 FMCZF020 EQU FMCZFLAG+3 02441000 FMCZF019 EQU FMCZFLAG+3 02442000 FMCZF018 EQU FMCZFLAG+3 02443000 FMCZF017 EQU FMCZFLAG+2 02444000 FMCZF016 EQU FMCZFLAG+2 02445000 FMCZF015 EQU FMCZFLAG+2 02446000 FMCZF014 EQU FMCZFLAG+2 02447000 FMCZF013 EQU FMCZFLAG+2 02448000 FMCZF012 EQU FMCZFLAG+2 02449000 FMCZF011 EQU FMCZFLAG+2 02450000 FMCZF010 EQU FMCZFLAG+2 02451000 FMCZF00F EQU FMCZFLAG+1 02452000 FMCZF00E EQU FMCZFLAG+1 02453000 FMCZF00D EQU FMCZFLAG+1 02454000 FMCZF00C EQU FMCZFLAG+1 02455000 FMCZF00B EQU FMCZFLAG+1 02456000 FMCRSV10 EQU FMCZFLAG+1 02457000 FMCZF009 EQU FMCZFLAG+1 02458000 FMCZFD06 EQU FMCZF006+1 02459000 FMCZFC06 EQU FMCZF006 02460000 FMCZFB06 EQU FMCZF006 02461000 FMCZFA06 EQU FMCZF006 02462000 FMCZF005 EQU FMCZFLAG 02463000 FMCZF004 EQU FMCZFLAG 02464000 FMCZF003 EQU FMCZFLAG 02465000 FMCZF002 EQU FMCZFLAG 02466000 FMCZF001 EQU FMCZFLAG 02467000 FMCFRESA EQU ISTFMCB+228 02468000 FMCSCSQN EQU FMCSNCTL+2 02469000 FMCSCCTL EQU FMCSNCTL+1 02470000 FMCSTCTL EQU FMCSCFLG 02471000 FMCSCCLO EQU FMCSCFLG 02472000 FMCAPRO EQU FMCSCFLG 02473000 FMCLURO EQU FMCSCFLG 02474000 FMCOBSAC EQU FMCSCFLG 02475000 FMCIBSAC EQU FMCSCFLG 02476000 FMCFBRE EQU ISTFMCB+220 02477000 FMCFBXM EQU FMCZV002 02478000 FMCASEGQ EQU ISTFMCB+212 02479000 FMCRDTPT EQU ISTFMCB+208 02480000 FMCLOCK EQU ISTFMCB+204 02481000 FMCSEGD EQU FMCSSEGQ 02482000 FMCRSPLM EQU ISTFMCB+198 02483000 FMCPSTRS EQU ISTFMCB+196 02484000 @NM00082 EQU FMCRRESP 02485000 FMCTSLHA EQU FMCRRESP 02486000 FMCFRRN EQU FMCRRESP 02487000 FMCFME EQU FMCRRESP 02488000 FMCFEX EQU FMCRRESP 02489000 FMCFPE EQU FMCRRESP 02490000 FMCCTLB EQU ISTFMCB+194 02491000 FMCBSQNO EQU FMCCLSEQ+2 02492000 FMCTSQNO EQU FMCCLSEQ 02493000 FMCOBPRG EQU FMCMODEB 02494000 FMCIBPRG EQU FMCMODEB 02495000 FMCRESOT EQU FMCMODEB 02496000 FMCRSTSR EQU FMCMODEB 02497000 FMCLUQ EQU FMCMODEB 02498000 FMCAPQ EQU FMCMODEB 02499000 FMCCLEAR EQU FMCMODEB 02500000 FMCHOLD EQU FMCMODEB 02501000 FMCIPSEQ EQU ISTFMCB+188 02502000 FMCLUSTR EQU ISTFMCB+187 02503000 FMCRSV87 EQU FMCSTAT2 02504000 FMCSEQI EQU FMCSTAT2 02505000 FMCCPIP EQU FMCSTAT2 02506000 FMCALIPR EQU FMCSTAT2 02507000 FMCIAIO EQU FMCSTAT2 02508000 FMCZF00A EQU FMCSTAT2 02509000 FMCVPIP EQU FMCSTAT2 02510000 FMCBHSET EQU ISTFMCB+185 02511000 FMCPRMRC EQU FMCCLEXT+20 02512000 FMCRSV89 EQU FMCPSTAT 02513000 FMCPCLSD EQU FMCPSTAT 02514000 FMCDDOCD EQU FMCPSTAT 02515000 FMCIDVFD EQU FMCPSTAT 02516000 FMCELKST EQU FMCPSTAT 02517000 FMCRSV88 EQU FMCPSCMD 02518000 FMCRDBLK EQU FMCPSCMD 02519000 FMCDSEOC EQU FMCPSCMD 02520000 FMCPURGE EQU FMCPSCMD 02521000 FMCRESTI EQU FMCPSCMD 02522000 FMCCNTCT EQU FMCPSCMD 02523000 FMCINVT EQU FMCPSCMD 02524000 FMCFLGB7 EQU FMCFLGCL 02525000 FMCFLGB6 EQU FMCFLGCL 02526000 FMCFLGB5 EQU FMCFLGCL 02527000 FMCFLGB4 EQU FMCFLGCL 02528000 FMCFLGB3 EQU FMCFLGCL 02529000 FMCFLGB2 EQU FMCFLGCL 02530000 FMCFLGB1 EQU FMCFLGCL 02531000 FMCFLGB0 EQU FMCFLGCL 02532000 FMCFLGA7 EQU FMCFLGA 02533000 FMCFLGA6 EQU FMCFLGA 02534000 FMCFLGA5 EQU FMCFLGA 02535000 FMCFLGA4 EQU FMCFLGA 02536000 FMCFLGA3 EQU FMCFLGA 02537000 FMCFLGA2 EQU FMCFLGA 02538000 FMCFLGA1 EQU FMCFLGA 02539000 FMCFLGA0 EQU FMCFLGA 02540000 FMCDCLOK EQU FMCCLEXT+12 02541000 FMCRAFM EQU FMCCLEXT+8 02542000 FMCFBPTR EQU FMCFBA+1 02543000 FMCFBRSV EQU FMCFBA 02544000 FMCRPLPT EQU FMCRPLA+1 02545000 FMCRPLRS EQU FMCRPLA 02546000 FMCPRCLS EQU FMCCVAL 02547000 FMCIBCE EQU FMCCVAL 02548000 FMCONLY EQU FMCOBCE 02549000 FMCLAST EQU FMCOBCE 02550000 FMCMIDLE EQU FMCOBCE 02551000 FMCFIRST EQU FMCOBCE 02552000 FMCCPCNT EQU FMCPACPC 02553000 FMCMPCNT EQU FMCPACEM 02554000 FMCNPCNT EQU FMCPACEN 02555000 FMCCONF EQU FMCSSTAT 02556000 FMCPURCH EQU FMCSSTAT 02557000 FMCNSALU EQU FMCSSTAT 02558000 FMCBIP EQU FMCSSTAT 02559000 FMCSDTR EQU FMCSSTAT 02560000 FMCUIPI EQU FMCSSTAT 02561000 FMCCIPI EQU FMCSSTAT 02562000 FMCSNBI EQU FMCSSTAT 02563000 FMCRVD01 EQU ISTFMCB+158 02564000 FMCISSN EQU ISTFMCB+156 02565000 FMCOASN EQU FMCNXOSC 02566000 FMCOSSN EQU FMCNXCFM 02567000 FMCSIP EQU FMCSIPA 02568000 FMCEXLST EQU ISTFMCB+144 02569000 FMCPAB5 EQU ISTFMCB+128 02570000 FMCPAB4 EQU ISTFMCB+112 02571000 FMCPAB3 EQU ISTFMCB+96 02572000 FMCPAB2 EQU ISTFMCB+80 02573000 FMCPAB1 EQU ISTFMCB+64 02574000 FMCFASYA EQU ISTFMCB+60 02575000 FMCMODE EQU ISTFMCB+52 02576000 FMCPROCD EQU ISTFMCB+48 02577000 FMCVWT EQU ISTFMCB+44 02578000 FMCRPLH EQU ISTFMCB+40 02579000 FMCBUFNB EQU FMCCMPS1+2 02580000 FMCBUFLM EQU FMCCMPS1 02581000 FMCDEBA EQU ISTFMCB+32 02582000 @NM00081 EQU FMCCMDFL 02583000 FMCSNA EQU FMCCMDFL 02584000 FMCVSNA EQU FMCCMDFL 02585000 FMCCMDR EQU FMCCMDFL 02586000 @NM00080 EQU ISTFMCB+30 02587000 @NM00079 EQU FMCSTAT1 02588000 FMCLTCLS EQU FMCSTAT1 02589000 FMCHPURG EQU FMCSTAT1 02590000 FMCVSP2 EQU FMCSTAT1 02591000 FMCVSP1 EQU FMCSTAT 02592000 FMCLTEAS EQU FMCSTAT 02593000 FMCZF007 EQU FMCSTAT 02594000 FMCDEDSC EQU FMCSTAT 02595000 FMCDEVOF EQU FMCSTAT 02596000 FMCDAPT EQU FMCSTAT 02597000 FMCPRMTE EQU FMCSTAT 02598000 FMCPRMTR EQU FMCSTAT 02599000 FMCUSFLD EQU ISTFMCB+24 02600000 FMCFMCBA EQU ISTFMCB+20 02601000 FMCDNCBA EQU ISTFMCB+16 02602000 FMCDVTA EQU ISTFMCB+12 02603000 FMCTSKID EQU ISTFMCB+8 02604000 FMCNXTCB EQU ISTFMCB+4 02605000 FMCSAF EQU ISTFMCB+2 02606000 FMCLNGTH EQU ISTFMCB+1 02607000 FMCTYPE EQU ISTFMCB 02608000 PROSRDEF EQU PROSETM4 02609000 PRORSV47 EQU PROSETM4 02610000 PROSCON EQU PROSETM4 02611000 PRORSV46 EQU PROSETM3 02612000 PROSMONT EQU PROSETM3 02613000 PRORSV45 EQU PROSETM3 02614000 PROSNTO EQU PROSETM3 02615000 PRORSV44 EQU PROSETM3 02616000 PROCPUID EQU PROSETM3 02617000 PRORSV43 EQU PROSETM2 02618000 PROSNTFL EQU PROSETM2 02619000 PRORSV42 EQU PROSETM2 02620000 PRORSV41 EQU PROPROCS 02621000 PROMODC EQU PROPROC4 02622000 PROMODT EQU PROPROC4 02623000 PROMODM EQU PROPROC4 02624000 PROMODB EQU PROPROC4 02625000 PRORSV14 EQU PROPROC4 02626000 PRORSV13 EQU PROPROC4 02627000 PRORSV12 EQU PROPROC4 02628000 PROEIB EQU PROPROC4 02629000 PROMONT3 EQU PROPROC3 02630000 PROMONT2 EQU PROPROC3 02631000 PROMONIT EQU PROPROC3 02632000 PROSUBLK EQU PROPROC3 02633000 PRONTO EQU PROPROC3 02634000 PROLGIN EQU PROPROC3 02635000 PROERPI EQU PROPROC3 02636000 PRORSV07 EQU PROPROC3 02637000 PROCFTX EQU PROPROC2 02638000 PROEMLC EQU PROPROC2 02639000 PRONTFL EQU PROPROC2 02640000 PRORSV05 EQU PROPROC2 02641000 PRORSV04 EQU PROPROC2 02642000 PROLGOT EQU PROPROC2 02643000 PROERPO EQU PROPROC2 02644000 PRORSV03 EQU PROPROC2 02645000 PRORPLC EQU PROPROC1 02646000 PROCS EQU PROPROC1 02647000 PROCA EQU PROPROC1 02648000 PRORESPX EQU PROPROC1 02649000 PRODFASY EQU PROPROC1 02650000 PROXPOPT EQU PROPROC1 02651000 PROTRUNC EQU PROPROC1 02652000 PROASYIP EQU PROPROC1 02653000 DNCLOCK EQU DNCOS+36 02654000 DNCZV005 EQU DNCOS+32 02655000 DNCZV004 EQU DNCOS+28 02656000 DNCZV003 EQU DNCOS+24 02657000 DNCZV002 EQU DNCOS+21 02658000 DNCZX001 EQU DNCOS+20 02659000 DNCZV001 EQU DNCOS+17 02660000 DNCZX003 EQU DNCOS+16 02661000 DNCZV000 EQU DNCOS+12 02662000 DNCSESCQ EQU DNCOS+8 02663000 DNCACIP EQU DNCBSCED+1 02664000 DNCLICP EQU DNCBSCED 02665000 DNCZF008 EQU DNCZFLGS+1 02666000 DNCZPSRD EQU DNCZFLGS+1 02667000 DNCPSOL EQU DNCZFLGS+1 02668000 DNCZF007 EQU DNCZFLGS+1 02669000 DNCZF006 EQU DNCZFLGS+1 02670000 DNCZF005 EQU DNCZFLGS+1 02671000 DNCZF004 EQU DNCZFLGS+1 02672000 DNCZF003 EQU DNCZFLGS 02673000 DNCZF002 EQU DNCZFLGS 02674000 DNCZRSCH EQU DNCZFLGS 02675000 DNCDISC EQU DNCZFLGS 02676000 DNCCONT EQU DNCZFLGS 02677000 DNCINVIT EQU DNCZFLGS 02678000 DNCSESS EQU DNCZFLGS 02679000 DNCZF001 EQU DNCZFLGS 02680000 DNCMODE EQU ISTDNCB+49 02681000 DNCBHSET EQU ISTDNCB+48 02682000 DNCNCB EQU ISTDNCB 02683000 ZLBLNG1 EQU ZLBFSM 02684000 FSBFDB EQU ISTFSB+32 02685000 FSBRSV01 EQU FSBFSB+30 02686000 FSBTHCNT EQU FSBFSB+28 02687000 FSBRLRSV EQU FSBRLSTS 02688000 FSBCFTX EQU FSBRLSTS 02689000 FSBICNCB EQU FSBMSGID 02690000 FSBSSOC EQU FSBSS2 02691000 FSBSSCC EQU FSBSS2 02692000 FSBSSDC EQU FSBSS2 02693000 FSBSSEC EQU FSBSS2 02694000 FSBSSIR EQU FSBSS2 02695000 FSBSSCR EQU FSBSS2 02696000 @NM00077 EQU FSBSS2 02697000 @NM00076 EQU FSBSS1 02698000 FSBSSDE EQU FSBSS1 02699000 FSBSSUS EQU FSBSS1 02700000 @NM00075 EQU FSBSS1 02701000 FSBSOHI EQU FSBERC 02702000 FSBLGI EQU FSBERC 02703000 FSBLMRI EQU FSBFBMI 02704000 FSBETI EQU FSBERC 02705000 FSBEMI EQU FSBERC 02706000 FSBEBI EQU FSBERC 02707000 FSBECI EQU FSBERC 02708000 FSBELI EQU FSBERC 02709000 FSBMJRCD EQU FSBSRCAT 02710000 FSBXLCI EQU FSBXCODE 02711000 FSBXFINS EQU FSBXCODE 02712000 FSBXNORM EQU FSBXFSTS 02713000 FSBSCODE EQU FSBSYSRS 02714000 FSBSPHSE EQU FSBSYSRS 02715000 FSBSERR EQU FSBSYSRS 02716000 FSBCMD EQU FSBSEQ 02717000 FSBDTRCE EQU FSBFLAGS 02718000 FSBASBTU EQU FSBFLAGS 02719000 FSBINPET EQU FSBFLAGS 02720000 FSBNONCB EQU FSBFLAGS 02721000 FSBLBIND EQU FSBFLAGS 02722000 FSBFFIND EQU FSBFLAGS 02723000 FSBACIND EQU FSBFLAGS 02724000 FSBRFIND EQU FSBFLAGS 02725000 FSBDAF EQU FSBCID+2 02726000 FSBSAF EQU FSBCID 02727000 FSBGATE EQU FSBFSBA 02728000 FSBLATOP EQU FSBSFLGS 02729000 FSBRSV02 EQU FSBSFLGS 02730000 FSBPGBUF EQU FSBSFLGS 02731000 FSBMNSDA EQU FSBMNRCD 02732000 FSBMNOA EQU FSBMNRCD 02733000 FSBMNDIF EQU FSBMNRCD 02734000 FSBMNEOP EQU FSBMNRCD 02735000 FSBMNDNU EQU FSBMNRCD 02736000 FSBMNATN EQU FSBMNRCD 02737000 FSBMNRVI EQU FSBMNRCD 02738000 FSBMNELI EQU FSBMNRCD 02739000 ZLFZWRD5 EQU ISTZLFVT+48 02740000 ZLFZWRD4 EQU ISTZLFVT+44 02741000 ZLFZDFK0 EQU ISTZLFVT+40 02742000 ZLFZEMEA EQU ISTZLFVT+36 02743000 ZLFZFFEA EQU ISTZLFVT+32 02744000 ZLFZEMCA EQU ZLFZEACA 02745000 ZLFZEMFA EQU ZLFZEAFA 02746000 ZLFZFMTA EQU ZLFZFATA 02747000 ZLFZEMTA EQU ZLFZEATA 02748000 ZLFZFMFA EQU ZLFZFAFA 02749000 ZLFZEMAA EQU ZLFZEAAA 02750000 ZLFZEFBA EQU ISTZLFVT 02751000 CRACHAIN EQU ISTCRA+928 02752000 CRARSV02 EQU ISTCRA+924 02753000 CRARSV01 EQU ISTCRA+920 02754000 CRABFTBA EQU CRABUFA 02755000 CRAMASK EQU CRASVC+64 02756000 CRAHSIZ EQU CRASVC+60 02757000 CRAASCRR EQU CRASVC 02758000 CRAPSS EQU ISTCRA+160 02759000 CRARPH EQU ISTCRA+52 02760000 CRALAPTR EQU CRABASIC+48 02761000 CRAL9PTR EQU CRABASIC+44 02762000 CRAL8PTR EQU CRABASIC+40 02763000 CRAL7PTR EQU CRABASIC+36 02764000 CRAL6PTR EQU CRABASIC+32 02765000 CRAL5PTR EQU CRABASIC+28 02766000 CRAL4PTR EQU CRABASIC+24 02767000 CRAL3PTR EQU CRABASIC+20 02768000 CRAL2PTR EQU CRABASIC+16 02769000 CRAL1PTR EQU CRABASIC+12 02770000 CRALEV01 EQU CRALKACT+3 02771000 CRALEV02 EQU CRALKACT+3 02772000 CRALEV03 EQU CRALKACT+3 02773000 CRALEV04 EQU CRALKACT+3 02774000 CRALEV05 EQU CRALKACT+3 02775000 CRALEV06 EQU CRALKACT+3 02776000 CRALEV07 EQU CRALKACT+3 02777000 CRALEV08 EQU CRALKACT+3 02778000 CRALEV09 EQU CRALKACT+2 02779000 CRALEV10 EQU CRALKACT+2 02780000 CRALEV11 EQU CRALKACT+2 02781000 CRALEV12 EQU CRALKACT+2 02782000 CRALEV13 EQU CRALKACT+2 02783000 CRALEV14 EQU CRALKACT+2 02784000 CRALEV15 EQU CRALKACT+2 02785000 CRALEV16 EQU CRALKACT+2 02786000 CRALEV17 EQU CRALKACT+1 02787000 CRALEV18 EQU CRALKACT+1 02788000 CRALEV19 EQU CRALKACT+1 02789000 CRALEV20 EQU CRALKACT+1 02790000 CRALEV21 EQU CRALKACT+1 02791000 CRALEV22 EQU CRALKACT+1 02792000 CRALEV23 EQU CRALKACT+1 02793000 CRALEV24 EQU CRALKACT+1 02794000 CRALEV25 EQU CRALKACT 02795000 CRALEV26 EQU CRALKACT 02796000 CRALEV27 EQU CRALKACT 02797000 CRALEV28 EQU CRALKACT 02798000 CRALEV29 EQU CRALKACT 02799000 CRALEV30 EQU CRALKACT 02800000 CRALEV31 EQU CRALKACT 02801000 CRALEV32 EQU CRALKACT 02802000 CRAFRR EQU CRAHDR+4 02803000 @NM00074 EQU ISTAPCRR+137 02804000 @NM00073 EQU APC57FLG 02805000 APCNREL EQU APC57FLG 02806000 APCRECRA EQU APC57FLG 02807000 @NM00072 EQU APC54FLG 02808000 APCRLST EQU APC54FLG 02809000 APCPR153 EQU APC53FLG 02810000 @NM00071 EQU APC52FLG 02811000 APCWKF EQU APC52FLG 02812000 APCNWF EQU APC52FLG 02813000 APCRDQ EQU APC52FLG 02814000 APCQENQ EQU APC52FLG 02815000 APCSMSR EQU APC52FLG 02816000 APCCKRQ EQU APC52FLG 02817000 @NM00070 EQU APC31FLG 02818000 APCSORT EQU APC31FLG 02819000 APCRESCH EQU APC31FLG 02820000 APCTPXIT EQU APC31FLG 02821000 APCSWTWD EQU ISTAPCRR+128 02822000 APCSAV2 EQU ISTAPCRR+124 02823000 APCSAV1 EQU ISTAPCRR+120 02824000 APCRETCD EQU APCCOMF+2 02825000 @NM00069 EQU APCCOMF1+1 02826000 APCZLBER EQU APCCOMF1 02827000 APCEXIT EQU APCCOMF1 02828000 APCRELR EQU APCCOMF1 02829000 APCIRB2 EQU APCCOMF1 02830000 APCIRB1 EQU APCCOMF1 02831000 APCSMCR EQU APCCOMF1 02832000 APCUETSK EQU APCCOMF1 02833000 APCSSTSK EQU APCCOMF1 02834000 APCESTAL EQU APCSAVE 02835000 APCFRRPM EQU ISTAPCRR+40 02836000 APCQWFO EQU ISTAPCRR+36 02837000 APCPABSV EQU ISTAPCRR+32 02838000 APCRTRN EQU ISTAPCRR+28 02839000 APCTCBA EQU ISTAPCRR+24 02840000 APCPSTA EQU ISTAPCRR+20 02841000 @NM00068 EQU APCRFLG+1 02842000 APC31R EQU APCRFLG 02843000 APC58R EQU APCRFLG 02844000 APC57R EQU APCRFLG 02845000 APC56R EQU APCRFLG 02846000 APC54R EQU APCRFLG 02847000 APC53R EQU APCRFLG 02848000 APC52R EQU APCRFLG 02849000 APC51R EQU APCRFLG 02850000 @NM00067 EQU APCATFLG+1 02851000 APC31E EQU APCATFLG 02852000 APC58E EQU APCATFLG 02853000 APC57E EQU APCATFLG 02854000 APC56E EQU APCATFLG 02855000 APC54E EQU APCATFLG 02856000 APC53E EQU APCATFLG 02857000 APC52E EQU APCATFLG 02858000 APC51E EQU APCATFLG 02859000 APCHDRSV EQU ISTAPCRR 02860000 ASCPSREG EQU ISTASCRR+44 02861000 ASCUSR01 EQU ASCUSRGS+12 02862000 ASCUSR00 EQU ASCUSRGS+8 02863000 ASCUSR15 EQU ASCUSRGS+4 02864000 ASCUSR14 EQU ASCUSRGS 02865000 ASCETRYA EQU ISTASCRR+24 02866000 ASCKEY EQU ISTASCRR+23 02867000 ASCAUDIT EQU ASCFLG3 02868000 ASCFBDUD EQU ASCFLG3 02869000 ASCLLKF EQU ASCFLG3 02870000 ASCKEYF EQU ASCFLG3 02871000 ASCFBDAL EQU ASCFLG3 02872000 ASCFSRGT EQU ASCFLG3 02873000 ASCICR EQU ASCFLG2 02874000 ASCFSRIC EQU ASCFLG2 02875000 ASCFBDIC EQU ASCFLG2 02876000 ASCFBAIC EQU ASCFLG2 02877000 ASCPASTR EQU ASCFLG1 02878000 ASCFSR EQU ASCFLG1 02879000 ASCFBD EQU ASCFLG1 02880000 ASCFBA EQU ASCFLG1 02881000 ASCPFCRR EQU ISTASCRR 02882000 ZCRRU EQU ZCRRHRU+3 02883000 ZCRRH EQU ZCRRHRU 02884000 ZCRWORDA EQU ISTZCRR+477 02885000 ZCRCMNRC EQU ISTZCRR+476 02886000 ZCRRSV97 EQU ZCRENTER+18 02887000 ZCREIC2B EQU ZCRENTER+18 02888000 ZCREAC2B EQU ZCRENTER+18 02889000 ZCRELCAB EQU ZCRENTER+18 02890000 ZCREDCMF EQU ZCRENTER+18 02891000 ZCREBCIF EQU ZCRENTER+18 02892000 ZCREICSG EQU ZCRENTER+18 02893000 ZCREDCK0 EQU ZCRENTER+18 02894000 ZCRECFY0 EQU ZCRENTER+17 02895000 ZCREKCCB EQU ZCRENTER+17 02896000 ZCREDCNB EQU ZCRENTER+17 02897000 ZCREICOE EQU ZCRENTER+17 02898000 ZCREBCNB EQU ZCRENTER+17 02899000 ZCREBC0L EQU ZCRENTER+17 02900000 ZCREBCAL EQU ZCRENTER+17 02901000 ZCREDCQR EQU ZCRENTER+17 02902000 ZCREDCPR EQU ZCRENTER+16 02903000 ZCREBCSB EQU ZCRENTER+16 02904000 ZCREAC1R EQU ZCRENTER+16 02905000 ZCRECCCI EQU ZCRENTER+16 02906000 ZCRECCAI EQU ZCRENTER+16 02907000 ZCRECCBI EQU ZCRENTER+16 02908000 ZCREBCAR EQU ZCRENTER+16 02909000 ZCREBCDR EQU ZCRENTER+16 02910000 ZCREBCBR EQU ZCRENTER+15 02911000 ZCREDCXR EQU ZCRENTER+15 02912000 ZCREDCWB EQU ZCRENTER+15 02913000 ZCREDCWR EQU ZCRENTER+15 02914000 ZCREKCCN EQU ZCRENTER+15 02915000 ZCREKCBN EQU ZCRENTER+15 02916000 ZCREKCBB EQU ZCRENTER+15 02917000 ZCREJC0B EQU ZCRENTER+15 02918000 ZCREJCDB EQU ZCRENTER+14 02919000 ZCREJCCB EQU ZCRENTER+14 02920000 ZCREJCBB EQU ZCRENTER+14 02921000 ZCREJCAB EQU ZCRENTER+14 02922000 ZCREIC1B EQU ZCRENTER+14 02923000 ZCREIC0B EQU ZCRENTER+14 02924000 ZCREICX0 EQU ZCRENTER+14 02925000 ZCREICWB EQU ZCRENTER+14 02926000 ZCREICVB EQU ZCRENTER+13 02927000 ZCREICUB EQU ZCRENTER+13 02928000 ZCREICTB EQU ZCRENTER+13 02929000 ZCREICSC EQU ZCRENTER+13 02930000 ZCREICSB EQU ZCRENTER+13 02931000 ZCREICRB EQU ZCRENTER+13 02932000 ZCREICQB EQU ZCRENTER+13 02933000 ZCREICQA EQU ZCRENTER+13 02934000 ZCREICOB EQU ZCRENTER+12 02935000 ZCREICOA EQU ZCRENTER+12 02936000 ZCREICNB EQU ZCRENTER+12 02937000 ZCREICNA EQU ZCRENTER+12 02938000 ZCREICMB EQU ZCRENTER+12 02939000 ZCREICLB EQU ZCRENTER+12 02940000 ZCREICKG EQU ZCRENTER+12 02941000 ZCREICKE EQU ZCRENTER+12 02942000 ZCREICKB EQU ZCRENTER+11 02943000 ZCREICJB EQU ZCRENTER+11 02944000 ZCREICID EQU ZCRENTER+11 02945000 ZCREICIB EQU ZCRENTER+11 02946000 ZCREICHB EQU ZCRENTER+11 02947000 ZCREICGB EQU ZCRENTER+11 02948000 ZCREICEB EQU ZCRENTER+11 02949000 ZCREICDB EQU ZCRENTER+11 02950000 ZCREICCI EQU ZCRENTER+10 02951000 ZCREICCB EQU ZCRENTER+10 02952000 ZCREICBI EQU ZCRENTER+10 02953000 ZCREICBB EQU ZCRENTER+10 02954000 ZCREICAB EQU ZCRENTER+10 02955000 ZCREICAA EQU ZCRENTER+10 02956000 ZCREHCAN EQU ZCRENTER+10 02957000 ZCREGC0B EQU ZCRENTER+10 02958000 ZCREGC0A EQU ZCRENTER+9 02959000 ZCREGCLA EQU ZCRENTER+9 02960000 ZCREGCEB EQU ZCRENTER+9 02961000 ZCREGCDB EQU ZCRENTER+9 02962000 @NM00066 EQU ZCRENTER+9 02963000 ZCREGCBB EQU ZCRENTER+9 02964000 ZCREGCAB EQU ZCRENTER+9 02965000 ZCREFCEB EQU ZCRENTER+9 02966000 ZCREFCEA EQU ZCRENTER+8 02967000 ZCREECTA EQU ZCRENTER+8 02968000 ZCREECEA EQU ZCRENTER+8 02969000 ZCREECDA EQU ZCRENTER+8 02970000 ZCREECCB EQU ZCRENTER+8 02971000 ZCREECCA EQU ZCRENTER+8 02972000 ZCREECBB EQU ZCRENTER+8 02973000 ZCREDCMB EQU ZCRENTER+7 02974000 ZCREDCL0 EQU ZCRENTER+7 02975000 ZCREDCKB EQU ZCRENTER+7 02976000 ZCREDCKA EQU ZCRENTER+7 02977000 ZCREDCJ0 EQU ZCRENTER+7 02978000 ZCREDCI0 EQU ZCRENTER+7 02979000 ZCREDCH0 EQU ZCRENTER+7 02980000 ZCREDCF0 EQU ZCRENTER+7 02981000 ZCREDCE0 EQU ZCRENTER+6 02982000 ZCREDCD0 EQU ZCRENTER+6 02983000 ZCREDCC0 EQU ZCRENTER+6 02984000 ZCREDCB0 EQU ZCRENTER+6 02985000 ZCREDCA0 EQU ZCRENTER+6 02986000 ZCRECC2B EQU ZCRENTER+6 02987000 ZCRECC1B EQU ZCRENTER+6 02988000 ZCRECC1A EQU ZCRENTER+6 02989000 ZCRECC0B EQU ZCRENTER+5 02990000 ZCRECC0A EQU ZCRENTER+5 02991000 ZCREBC0B EQU ZCRENTER+5 02992000 ZCREBC0A EQU ZCRENTER+5 02993000 ZCREBCZ0 EQU ZCRENTER+5 02994000 ZCREBCY0 EQU ZCRENTER+5 02995000 ZCREBCX0 EQU ZCRENTER+5 02996000 ZCREBCXA EQU ZCRENTER+5 02997000 ZCREBCSC EQU ZCRENTER+4 02998000 ZCREBCRB EQU ZCRENTER+4 02999000 ZCREBCRA EQU ZCRENTER+4 03000000 ZCREBCQB EQU ZCRENTER+4 03001000 ZCREBCPB EQU ZCRENTER+4 03002000 ZCREBCOB EQU ZCRENTER+4 03003000 ZCREBCNE EQU ZCRENTER+4 03004000 ZCREBCND EQU ZCRENTER+4 03005000 ZCREBCMB EQU ZCRENTER+3 03006000 ZCREBCLB EQU ZCRENTER+3 03007000 ZCREBCLA EQU ZCRENTER+3 03008000 ZCREBCKB EQU ZCRENTER+3 03009000 ZCREBCKA EQU ZCRENTER+3 03010000 ZCREBCJB EQU ZCRENTER+3 03011000 ZCREBCJA EQU ZCRENTER+3 03012000 ZCREBCID EQU ZCRENTER+3 03013000 ZCREBCIB EQU ZCRENTER+2 03014000 ZCREBCIA EQU ZCRENTER+2 03015000 ZCREBCHB EQU ZCRENTER+2 03016000 ZCREBCHA EQU ZCRENTER+2 03017000 ZCREBCGB EQU ZCRENTER+2 03018000 ZCREBCGA EQU ZCRENTER+2 03019000 ZCREBCFB EQU ZCRENTER+2 03020000 ZCREBCFA EQU ZCRENTER+2 03021000 ZCREBCEB EQU ZCRENTER+1 03022000 ZCREBCDI EQU ZCRENTER+1 03023000 ZCREBCCB EQU ZCRENTER+1 03024000 ZCREBCBI EQU ZCRENTER+1 03025000 ZCREBCBB EQU ZCRENTER+1 03026000 ZCREBCBA EQU ZCRENTER+1 03027000 ZCREBCAM EQU ZCRENTER+1 03028000 ZCREBCAI EQU ZCRENTER+1 03029000 ZCREBCAG EQU ZCRENTER 03030000 ZCREBCAE EQU ZCRENTER 03031000 ZCREBCAB EQU ZCRENTER 03032000 ZCREBCAA EQU ZCRENTER 03033000 ZCREAC1B EQU ZCRENTER 03034000 ZCREAC0B EQU ZCRENTER 03035000 ZCREAC0A EQU ZCRENTER 03036000 ZCREAC1A EQU ZCRENTER 03037000 ZCRTNAME EQU ZCRAUDIT+1 03038000 ZCRTID EQU ZCRAUDIT 03039000 ZCRREMIC EQU ISTZCRR+436 03040000 ZCRSAVEZ EQU ISTZCRR+196 03041000 ZCRDAFSV EQU ZCRCIDSV+2 03042000 ZCRSAFSV EQU ZCRCIDSV 03043000 ZCRR13SV EQU ISTZCRR+188 03044000 ZCRR2SV EQU ISTZCRR+184 03045000 ZCROPCDE EQU ISTZCRR+183 03046000 ZCRPRMTC EQU ISTZCRR+182 03047000 ZCRRCDSV EQU ISTZCRR+181 03048000 ZCRAWQSW EQU ISTZCRR+180 03049000 ZCRTOPQ EQU ISTZCRR+180 03050000 ZCRLSTFB EQU ISTZCRR+180 03051000 ZCRXSCHD EQU ISTZCRR+180 03052000 ZCRNXTEL EQU ISTZCRR+180 03053000 ZCRSCANQ EQU ISTZCRR+180 03054000 ZCRMOREL EQU ISTZCRR+180 03055000 ZCRFBPRC EQU ISTZCRR+180 03056000 ZCRFSBSV EQU ISTZCRR+176 03057000 ZCRSVWK5 EQU ZCRWKARA+16 03058000 ZCRSVWK4 EQU ZCRWKARA+12 03059000 ZCRSVWK3 EQU ZCRWKARA+8 03060000 ZCRSVWK2 EQU ZCRWKARA+4 03061000 ZCRSVWK1 EQU ZCRWKARA 03062000 ZCRSVF25 EQU ZCRSVRTN+96 03063000 ZCRSVF24 EQU ZCRSVRTN+92 03064000 ZCRSVF23 EQU ZCRSVRTN+88 03065000 ZCRSVF22 EQU ZCRSVRTN+84 03066000 ZCRSVF21 EQU ZCRSVRTN+80 03067000 ZCRSVF20 EQU ZCRSVRTN+76 03068000 ZCRSVF19 EQU ZCRSVRTN+72 03069000 ZCRSVF18 EQU ZCRSVRTN+68 03070000 ZCRSVF17 EQU ZCRSVRTN+64 03071000 ZCRSVF16 EQU ZCRSVRTN+60 03072000 ZCRSVF15 EQU ZCRSVRTN+56 03073000 ZCRSVF14 EQU ZCRSVRTN+52 03074000 ZCRSVF13 EQU ZCRSVRTN+48 03075000 ZCRSVF12 EQU ZCRSVRTN+44 03076000 ZCRSVF11 EQU ZCRSVRTN+40 03077000 ZCRSVF10 EQU ZCRSVRTN+36 03078000 ZCRSVF9 EQU ZCRSVRTN+32 03079000 ZCRSVF8 EQU ZCRSVRTN+28 03080000 ZCRSVF7 EQU ZCRSVRTN+24 03081000 ZCRSVF6 EQU ZCRSVRTN+20 03082000 ZCRSVF5 EQU ZCRSVRTN+16 03083000 ZCRSVF4 EQU ZCRSVRTN+12 03084000 ZCRSVF3 EQU ZCRSVRTN+8 03085000 ZCRSVF2 EQU ZCRSVRTN+4 03086000 ZCRSVF1 EQU ZCRSVRTN 03087000 ZCRPVZB EQU ISTZCRR+52 03088000 ZCRZLB EQU ISTZCRR+48 03089000 ZCRBFPTR EQU ISTZCRR+44 03090000 ZCRCCWA EQU ISTZCRR+40 03091000 ZCRPSW EQU ZCRPARMS+15 03092000 ZCRPCHAR EQU ZCRPARMS+14 03093000 ZCRPRES2 EQU ZCRPCOD2 03094000 ZCRPMFGF EQU ZCRPCOD2 03095000 ZCRPFHDR EQU ZCRPCOD2 03096000 ZCRPPG2 EQU ZCRPCOD2 03097000 ZCRPRES EQU ZCRPCOD1 03098000 ZCRPCFTX EQU ZCRPCOD1 03099000 ZCRPBUF EQU ZCRPCOD1 03100000 ZCRPLSCB EQU ZCRPCOD1 03101000 ZCRPLSBQ EQU ZCRPLSBF 03102000 ZCRPFSB EQU ZCRPCOD1 03103000 ZCRPLNG EQU ZCRPCOD1 03104000 ZCRPPG EQU ZCRPCOD1 03105000 ZCRDTODA EQU ZCRDFRDA 03106000 ZCRMLNG EQU ZCRPARMS+8 03107000 ZCRTBPTR EQU ZCRPARMS+4 03108000 ZCRCBPTR EQU ZCRFBPTR 03109000 ZCRCRLCP EQU ISTZCRR+20 03110000 ZCRMDATA EQU ZCRSCPSW 03111000 ZCRSKIPT EQU ZCRSCPSW 03112000 ZCRFSBWE EQU ZCRSCPSW 03113000 ZCRPRCMP EQU ZCRSCPSW 03114000 ZCRLREQ EQU ZCRSCPSW 03115000 ZCRRJLCP EQU ZCRSCPSW 03116000 ZCRTPINV EQU ZCRSCPSW 03117000 ZCRTPEX EQU ZCRSCPSW 03118000 @NM00065 EQU ZCRIBPR 03119000 ZCR3270R EQU ZCRIBPR 03120000 ZCR3270 EQU ZCRIBPR 03121000 ZCRLCPFD EQU ZCRIBPR 03122000 ZCRLCPFR EQU ZCRIBPR 03123000 ZCRRELK EQU ZCRIBPR 03124000 ZCRERR EQU ZCRIBPR 03125000 ZCRNOBUF EQU ZCRIBPR 03126000 @NM00064 EQU ZCRPFLGS 03127000 ZCRQAHED EQU ZCRPFLGS 03128000 ZCRF1RES EQU ZCRGENSW 03129000 ZCRBRIS EQU ZCRGENSW 03130000 ZCRCLRBD EQU ZCRGENSW 03131000 ZCREXRES EQU ZCRGENSW 03132000 ZCRLCSYN EQU ZCRGENSW 03133000 ZCRRT06 EQU ZCRGENSW 03134000 ZCRTSW2 EQU ZCRGENSW 03135000 ZCRTSW1 EQU ZCRGENSW 03136000 ZCRINLCP EQU ZCRFLGS3 03137000 ZCRWRPTR EQU ZCRFLGS3 03138000 ZCRNOFRE EQU ZCRFLGS3 03139000 ZCREDRIV EQU ZCRFLGS3 03140000 ZCRDISC EQU ZCRFLGS3 03141000 ZCRTPDIS EQU ZCRFLGS3 03142000 ZCRTPCON EQU ZCRFLGS3 03143000 ZCRTIC EQU ZCRFLGS3 03144000 ZCRCNLXL EQU ZCRRESET 03145000 ZCRENDAN EQU ZCRSWFLD 03146000 ZCRENDXL EQU ZCRSWFLD 03147000 ZCRENDX EQU ZCRSWFLD 03148000 ZCROB1 EQU ZCRNDLCP 03149000 ZCRENDPR EQU ZCRSWFLD 03150000 ZCREXTYP EQU ZCRSWFLD 03151000 ZCRSLCP EQU ZCRENDSH 03152000 ZCRIF0E3 EQU ZCRFLGS2 03153000 ZCRIF0E2 EQU ZCRFLGS2 03154000 ZCRIF0E1 EQU ZCRFLGS2 03155000 ZCROB EQU ZCRFLGS2 03156000 ZCRFMSED EQU ZCRFLGS2 03157000 ZCRSHEDI EQU ZCRFLGS2 03158000 ZCRLOCAL EQU ZCRFLGS2 03159000 ZCRFEXIT EQU ZCRFLGS1 03160000 ZCRUNSOL EQU ZCRFLGS1 03161000 ZCRENDLP EQU ZCRFLGS1 03162000 ZCRNRMEX EQU ZCRFLGS1 03163000 ZCRWAIT EQU ZCRFLGS1 03164000 ZCRDEQSW EQU ZCRFLGS1 03165000 ZCRQUESW EQU ZCRFLGS1 03166000 ZCREXSW EQU ZCRFLGS1 03167000 ZCRFRRA EQU ISTZCRR+8 03168000 ZCRCHAIN EQU ISTZCRR+4 03169000 ZCRFLAG EQU ZCRCRR+3 03170000 ZCRLEN EQU ZCRCRR+1 03171000 ZCRID EQU ZCRCRR 03172000 CCFRSVD1 EQU CFCCRT 03173000 CCFCR2 EQU CFCCRT 03174000 CCFCRP EQU CFCCRT 03175000 CCFCR1 EQU CFCCRT 03176000 CCFCS2 EQU CFCCRT 03177000 CCFCS1 EQU CFCCRT 03178000 NCFRSVD EQU CFCNTRD 03179000 NCFCR2 EQU CFCNTRD 03180000 NCFCRP EQU CFCNTRD 03181000 NCFCR1 EQU CFCNTRD 03182000 NCFCS2 EQU CFCNTRD 03183000 NCFCS1 EQU CFCNTRD 03184000 PFCRSV01 EQU ISTPFCRR+13 03185000 PFCFTA EQU ISTPFCRR+12 03186000 CRRFRR EQU PFCFRRO 03187000 CRRCHAIN EQU PFCCRRO 03188000 CRRLEN EQU PFCCRRLN 03189000 PFCRSV10 EQU PFCCRR+1 03190000 CRRID EQU PFCCRRID 03191000 LCPFTYPE EQU LCPRPHA 03192000 LCPRSTQH EQU LCPLCCW 03193000 LCPCLREP EQU ISTLCPB+44 03194000 LCPUBFSB EQU LCPFLCCW 03195000 LCPRSV77 EQU ISTLCPB+39 03196000 LCPLCCWC EQU ISTLCPB+38 03197000 LCPRSV78 EQU LCPFLG1 03198000 LCPTRANS EQU LCPFLG1 03199000 LCPSTLB EQU LCPFLG1 03200000 LCPREDRV EQU LCPFLG1 03201000 LCPDIRPT EQU LCPFLG1 03202000 LCPINTER EQU LCPFLG1 03203000 LCPRESET EQU LCPFLG1 03204000 LCPSTYPE EQU ISTLCPB+36 03205000 LCPFSNCH EQU ISTLCPB+34 03206000 LCPFOSN EQU ISTLCPB+32 03207000 LCPTLBAD EQU ISTLCPB+28 03208000 LCPFDB2 EQU LCPFDBA+1 03209000 LCPFDB1 EQU LCPFDBA 03210000 LCPNXLCW EQU ISTLCPB+20 03211000 LCPDAF EQU LCPCID+2 03212000 LCPSAF EQU LCPCID 03213000 LCPLCCW1 EQU ISTLCPB+12 03214000 LCPRRCNT EQU LCPSEQ+1 03215000 LCPRRCCT EQU LCPSEQ 03216000 LCPATOP EQU LCPFLAG2 03217000 LCPFREE EQU LCPFLAG2 03218000 LCPDSTAT EQU LCPFLAG2 03219000 LCPEXRES EQU LCPFID0 03220000 LCPZRIMM EQU LCPTLBPI 03221000 LCPRSTRT EQU LCPFLAG2 03222000 LCPASYN EQU LCPFLAG2 03223000 LCPPRFLG EQU LCPFLAG2 03224000 LCPZMIRC EQU LCPRUCNT 03225000 LCPCHAI2 EQU LCPCHAIN+1 03226000 LCPCHNG EQU LCPCHAI1 03227000 LCPZRT0B EQU LCPMNRCD 03228000 LCPZRT0A EQU LCPMNRCD 03229000 LCPZRTL9 EQU LCPZRT09 03230000 LCPZRTL8 EQU LCPZRT08 03231000 LCPZRTL7 EQU LCPZRT07 03232000 LCPZRTL6 EQU LCPZRT06 03233000 LCPZRTL5 EQU LCPZRT05 03234000 LCPZRTL4 EQU LCPZRT04 03235000 LCPZRTL3 EQU LCPZRT03 03236000 LCPZRTL2 EQU LCPZRT02 03237000 LCPZRT01 EQU LCPFLAGS 03238000 LCPZRT00 EQU LCPFLAGS 03239000 LCPLNGTH EQU ISTLCPB+1 03240000 LCPTYPE EQU ISTLCPB 03241000 LCCWDATA EQU ISTLCCW+4 03242000 LCCWCNT EQU ISTLCCW+2 03243000 LCCWACI EQU LCCWFLAG 03244000 LCCWRFI EQU LCCWFLAG 03245000 LCCWPER EQU LCCWLSI 03246000 LCCWIDAT EQU LCCWFLAG 03247000 LCCWNTVC EQU LCCWFLAG 03248000 LCCWCKPT EQU LCCWFLAG 03249000 LCCWCC EQU LCCWFLAG 03250000 LCCWCD EQU LCCWFLAG 03251000 LCCWTYPE EQU LCCWCTL 03252000 LCCWMODE EQU LCCWCTL 03253000 LCCWSOP EQU LCCWRWOP 03254000 @NM00063 EQU LCCWRWOP 03255000 LCCWSD EQU LCCWOP 03256000 LCCWSI EQU LCCWOP 03257000 ATCAOS EQU ISTATCVT+1584 03258000 ATCPOPAB EQU ATCAOSM+640 03259000 ATCVIOPM EQU ATCAOSM+636 03260000 ATCTPMMI EQU ATCAOSM+632 03261000 ATCTPMPB EQU ATCAOSM+600 03262000 ATCRSV88 EQU ATCAOSM+596 03263000 ATCRPLCT EQU ATCAOSM+594 03264000 ATCCRACT EQU ATCAOSM+592 03265000 ATCSRBCT EQU ATCAOSM+590 03266000 ATCRSV75 EQU ATCAOSM+589 03267000 ATCRSV66 EQU ATCZFLAG 03268000 ATCZF001 EQU ATCZFLAG 03269000 ATCTPCP1 EQU ATCAOSM+584 03270000 ATCAICTN EQU ATCAOSM+576 03271000 ATCMPLTA EQU ATCAOSM+568 03272000 ATCASCB EQU ATCAOSM+564 03273000 ATCAP86 EQU ATCAOSM+560 03274000 ATCAP85 EQU ATCAOSM+556 03275000 ATCAP84 EQU ATCAOSM+552 03276000 ATCAP83 EQU ATCAOSM+548 03277000 ATCAP82 EQU ATCAOSM+544 03278000 ATCAP69 EQU ATCAOSM+540 03279000 ATCAP66 EQU ATCAOSM+536 03280000 ATCAP62 EQU ATCAOSM+532 03281000 ATCAPC59 EQU ATCAOSM+528 03282000 ATCAP56 EQU ATCAOSM+524 03283000 ATCAP55 EQU ATCAOSM+520 03284000 ATCRCFY0 EQU ATCAOSM+516 03285000 ATCAP41 EQU ATCAOSM+512 03286000 ATCAPC25 EQU ATCAOSM+508 03287000 ATCAP23 EQU ATCAOSM+504 03288000 ATCTPSPB EQU ATCAOSM+472 03289000 ATCTRMPB EQU ATCAOSM+440 03290000 ATCAPBE EQU ATCAOSM+436 03291000 ATCPSTA EQU ATCAOSM+432 03292000 ATCSMABF EQU ATCAOSM+428 03293000 ATCSMAPR EQU ATCAOSM+424 03294000 ATCTPWQA EQU ATCAOSM+420 03295000 ATCSMAID EQU ATCAOSM+416 03296000 ATCSMARA EQU ATCAOSM+412 03297000 ATCCACXA EQU ATCAOSM+408 03298000 ATCZLAAB EQU ATCAOSM+404 03299000 ATCATA10 EQU ATCAOSM+400 03300000 ATCHLTCB EQU ATCAOSM+396 03301000 @NM00062 EQU ATCVTFLG 03302000 ATCVTACT EQU ATCVTFLG 03303000 ATCRPT40 EQU ATCAOSM+388 03304000 ATCRPT39 EQU ATCAOSM+384 03305000 ATCRPT38 EQU ATCAOSM+380 03306000 ATCRPT37 EQU ATCAOSM+376 03307000 ATCRPT36 EQU ATCAOSM+372 03308000 ATCRPT35 EQU ATCAOSM+368 03309000 ATCRPT34 EQU ATCAOSM+364 03310000 ATCRPT33 EQU ATCAOSM+360 03311000 ATCRPT32 EQU ATCAOSM+356 03312000 ATCRPT31 EQU ATCAOSM+352 03313000 ATCRPT30 EQU ATCAOSM+348 03314000 ATCRPT29 EQU ATCAOSM+344 03315000 ATCRPT28 EQU ATCAOSM+340 03316000 ATCRPT27 EQU ATCAOSM+336 03317000 @NM00061 EQU ATCAOSM+333 03318000 @NM00060 EQU @NM00059 03319000 ATCSNUF EQU @NM00059 03320000 ATCOPKL EQU @NM00059 03321000 ATCABEN EQU @NM00059 03322000 ATCAIWT EQU ATCAOSM+328 03323000 ATCINFDD EQU ATCAOSM+324 03324000 ATCORFMG EQU ATCAOSM+320 03325000 ATCORFRL EQU ATCAOSM+316 03326000 ATCOROBT EQU ATCAOSM+312 03327000 ATCORQG EQU ATCORSRB 03328000 ATCORTBF EQU ATCSQAFR 03329000 ATCRPLAC EQU ATCRPLCN+2 03330000 ATCRPLRC EQU ATCRPLCN 03331000 ATCCRPLQ EQU ATCCRPL 03332000 ATCSRBAC EQU ATCSRBCN+2 03333000 ATCSRBRC EQU ATCSRBCN 03334000 ATCSRBQ EQU ATCSRB 03335000 ATCCRAAC EQU ATCCRACN+2 03336000 ATCCRARC EQU ATCCRACN 03337000 ATCCRAQ EQU ATCCRA 03338000 ATCRPT12 EQU ATCAOSM+276 03339000 ATCDMAPP EQU ATCAOSM+272 03340000 ATCAP37 EQU ATCAOSM+264 03341000 ATCZDFJ0 EQU ATCAOSM+260 03342000 ATCAP51 EQU ATCAOSM+256 03343000 ATCZPAB2 EQU ATCAOSM+224 03344000 ATCZPAB1 EQU ATCAOSM+192 03345000 ATCZLPVT EQU ATCAOSM+184 03346000 ATCZDVTX EQU ATCAOSM+180 03347000 ATCZDVTA EQU ATCAOSM+176 03348000 ATCZDVT9 EQU ATCAOSM+172 03349000 ATCZDVT8 EQU ATCAOSM+168 03350000 ATCZDVT7 EQU ATCAOSM+164 03351000 ATCRSV56 EQU ATCDAPVT+22 03352000 ATCDAPDG EQU ATCDAPVT+20 03353000 ATCDXCEA EQU ATCDAPVT+16 03354000 ATCDCEA EQU ATCDAPVT+12 03355000 ATCDPCIA EQU ATCDAPVT+8 03356000 ATCDSIOA EQU ATCDAPVT+4 03357000 ATCDEOEA EQU ATCDAPVT 03358000 ATCZLAEA EQU ATCLDAPP+16 03359000 ATCZLCEA EQU ATCLDAPP+12 03360000 ATCRSV17 EQU ATCLDAPP+8 03361000 ATCSMFRR EQU ATCLDAPP+4 03362000 ATCCDTID EQU ATCLDAPP 03363000 ATCZAEA EQU ATCICAPP+16 03364000 ATCZCEA EQU ATCICAPP+12 03365000 ATCCDTCB EQU ATCICAPP+8 03366000 ATCZSIOA EQU ATCICAPP+4 03367000 ATCCDRPH EQU ATCICAPP 03368000 ATCAP65 EQU ATCAOSM+96 03369000 ATCZDVT6 EQU ATCAOSM+92 03370000 ATCZDVT4 EQU ATCAOSM+88 03371000 ATCZDVT3 EQU ATCAOSM+84 03372000 ATCZDVT1 EQU ATCAOSM+80 03373000 ATCICNCB EQU ATCAOSM+76 03374000 ATCZPSVT EQU ATCAOSM+72 03375000 ATCZFSVT EQU ATCAOSM+68 03376000 ATCAP64 EQU ATCAOSM+64 03377000 ATCAP63 EQU ATCAOSM+60 03378000 ATCAP61 EQU ATCAOSM+56 03379000 ATCAP58 EQU ATCAOSM+52 03380000 ATCAP57 EQU ATCAOSM+48 03381000 ATCAP54 EQU ATCAOSM+44 03382000 ATCAP53 EQU ATCAOSM+40 03383000 ATCAP52 EQU ATCAOSM+36 03384000 ATCAP34 EQU ATCAOSM+32 03385000 ATCAP32 EQU ATCAOSM+28 03386000 ATCAP31 EQU ATCAOSM+24 03387000 ATCAP12 EQU ATCAOSM+20 03388000 ATCAP11 EQU ATCAOSM+16 03389000 ATCCMTCB EQU ATCAOSM+12 03390000 ATCPRPH EQU ATCAOSM+8 03391000 ATCGSRBF EQU ATCGSRBG 03392000 ATCSRBRT EQU ATCAOSM 03393000 @NM00058 EQU @NM00057 03394000 ATCVTMAB EQU @NM00057 03395000 @NM00056 EQU ATCVTBAM 03396000 ATCVDLOK EQU ISTATCVT+904 03397000 ATCVFPAB EQU ISTATCVT+872 03398000 ATCVDPAB EQU ISTATCVT+840 03399000 ATCIOECB EQU ISTATCVT+836 03400000 ATCINCW3 EQU ISTATCVT+832 03401000 ATCMODTB EQU ISTATCVT+828 03402000 ATCUSSPT EQU ISTATCVT+824 03403000 ATCSRTAB EQU ISTATCVT+820 03404000 @NM00055 EQU ISTATCVT+819 03405000 @NM00054 EQU ATCSTAT2 03406000 ATCTRSMS EQU ATCSTAT2 03407000 ATCTRLOK EQU ATCSTAT2 03408000 ATCTRPSS EQU ATCSTAT2 03409000 ATCTRESC EQU ATCSTAT2 03410000 ATCTRAPI EQU ATCSTAT2 03411000 ATCNMCTR EQU ISTATCVT+816 03412000 ATCSEC51 EQU ATCSECST 03413000 ATCSEC40 EQU ATCSIPD+8 03414000 ATCSEC30 EQU ATCSIPD+4 03415000 ATCSEC21 EQU ATCSIPD 03416000 ATCSEC10 EQU ATCSOPD+4 03417000 ATCSEC01 EQU ATCSOPD 03418000 ATCPOIA EQU ATCRNO+1 03419000 @NM00053 EQU ATCRNO 03420000 ATCPODVT EQU ISTATCVT+784 03421000 ATCS49XL EQU ISTATCVT+780 03422000 ATCS49XI EQU ISTATCVT+776 03423000 ATCLCLCT EQU ATCVLCNT+2 03424000 ATCRNCNT EQU ATCVLCNT 03425000 ATCCFEAD EQU ISTATCVT+768 03426000 ATCPTR00 EQU ISTATCVT+736 03427000 ATCRSV10 EQU ISTATCVT+704 03428000 ATCTACB EQU ISTATCVT+700 03429000 ATCVTINM EQU ISTATCVT+696 03430000 ATCTCLIM EQU ISTATCVT+692 03431000 ATCTCLOM EQU ISTATCVT+688 03432000 ATCVTIPB EQU ISTATCVT+656 03433000 ATCTCIPB EQU ISTATCVT+624 03434000 ATCTIPAB EQU ISTATCVT+592 03435000 ATCOCCCB EQU ISTATCVT+588 03436000 ATCOCCOB EQU ISTATCVT+584 03437000 ATCCDLAD EQU ISTATCVT+580 03438000 ATCCCLAD EQU ISTATCVT+576 03439000 ATCDLRPB EQU ISTATCVT+544 03440000 ATCPGPAB EQU ISTATCVT+512 03441000 ATCVPAB1 EQU ISTATCVT+480 03442000 ATCRSV97 EQU ISTATCVT+476 03443000 ATCRDTLK EQU ISTATCVT+472 03444000 ATCVOCLK EQU ISTATCVT+468 03445000 ATCCDFDN EQU ISTATCVT+464 03446000 ATCCDFIN EQU ISTATCVT+460 03447000 ATCDVTLK EQU ISTATCVT+456 03448000 ATCAP36 EQU ISTATCVT+452 03449000 ATCAP35 EQU ISTATCVT+448 03450000 ATCAP33 EQU ISTATCVT+444 03451000 ATCRSV99 EQU ISTATCVT+440 03452000 ATCONFIG EQU ISTATCVT+432 03453000 ATCNODDS EQU ISTATCVT+428 03454000 ATCNODEL EQU ISTATCVT+420 03455000 ATCRSV69 EQU ISTATCVT+416 03456000 ATCAPCR5 EQU ISTATCVT+412 03457000 ATCLDECB EQU ISTATCVT+408 03458000 ATCLDNCS EQU ISTATCVT+404 03459000 ATCCDPTR EQU ISTATCVT+400 03460000 ATCADEL EQU ISTATCVT+396 03461000 ATCTODVT EQU ISTATCVT+392 03462000 ATCDEBCH EQU ISTATCVT+388 03463000 ATCHBSIZ EQU ATCHPGM+2 03464000 ATCHBFNO EQU ATCHPGM 03465000 ATCCRME EQU ISTATCVT+380 03466000 ATCRVCHS EQU ISTATCVT+372 03467000 ATCECTLP EQU ISTATCVT+368 03468000 ATCZDVTB EQU ISTATCVT+364 03469000 ATCECPRT EQU ISTATCVT+360 03470000 ATCVTLOD EQU ISTATCVT+356 03471000 ATCTRPAB EQU ISTATCVT+352 03472000 ATCMSGM EQU ISTATCVT+348 03473000 ATCMSGP EQU ISTATCVT+344 03474000 ATCEPT EQU ISTATCVT+340 03475000 ATCDVT EQU ISTATCVT+336 03476000 ATCTRCPT EQU ISTATCVT+332 03477000 ATCDVLOD EQU ISTATCVT+328 03478000 ATCALERT EQU ISTATCVT+324 03479000 ATCEPA EQU ISTATCVT+320 03480000 ATCSAF EQU ISTATCVT+318 03481000 ATCXRANG EQU ISTATCVT+317 03482000 ATCLAST EQU ATCSHRFG 03483000 ATCSHRTN EQU ISTATCVT+308 03484000 ATCUEP EQU ISTATCVT+304 03485000 ATCOCRT EQU ISTATCVT+300 03486000 ATCCSMA EQU ATCCSMR 03487000 ATCESC02 EQU ISTATCVT+292 03488000 ATCESC01 EQU ISTATCVT+288 03489000 ATCCDFND EQU ISTATCVT+284 03490000 ATCCDDEL EQU ISTATCVT+280 03491000 ATCCDADD EQU ISTATCVT+276 03492000 ATCMNT EQU ISTATCVT+272 03493000 ATCRSV16 EQU ISTATCVT+270 03494000 ATCMAXID EQU ISTATCVT+269 03495000 ATCMSGSP EQU ATCCOM+268 03496000 ATCCIDM EQU ATCCOM+266 03497000 ATCACTRM EQU ATCCOM+264 03498000 ATCNERAP EQU ATCCOM+260 03499000 ATCNESAL EQU ATCCOM+256 03500000 ATCRCC65 EQU ATCCOM+252 03501000 ATCRCC26 EQU ATCCOM+248 03502000 ATCRCC63 EQU ATCCOM+244 03503000 ATCRSV11 EQU ATCCOM+242 03504000 ATCVTMID EQU ATCCOM+240 03505000 ATCAPOST EQU ATCCOM+236 03506000 ATCNERFN EQU ATCCOM+232 03507000 ATCNERNE EQU ATCCOM+228 03508000 ATCNERCV EQU ATCCOM+224 03509000 ATCNERST EQU ATCCOM+220 03510000 ATCDCC61 EQU ATCCOM+216 03511000 ATCDCC60 EQU ATCCOM+212 03512000 ATCSRTDF EQU ATCCOM+208 03513000 ATCSRTAD EQU ATCCOM+204 03514000 ATCFIRA EQU ATCCOM+200 03515000 ATCSMBQ EQU ATCCOM+196 03516000 ATCSMRC EQU ATCCOM+192 03517000 ATCSMQU EQU ATCCOM+184 03518000 ATCSMRQ EQU ATCCOM+180 03519000 ATCACDA EQU ATCCOM+176 03520000 ATCSTMA EQU ATCCOM+172 03521000 ATCFRSTR EQU ATCCOM+168 03522000 ATCGTSTR EQU ATCCOM+164 03523000 ATCREADA EQU ATCCOM+160 03524000 ATCALOAD EQU ATCCOM+156 03525000 ATCBLDLA EQU ATCCOM+152 03526000 ATCFBRPH EQU ATCCOM+148 03527000 ATCBFTRC EQU ATCCOM+144 03528000 ATCTPBUF EQU ATCTHTRC 03529000 ATCREMOV EQU ATCCOM+136 03530000 ATCADD EQU ATCCOM+132 03531000 ATCDVTPT EQU ATCCOM+124 03532000 ATCFEPT EQU ATCCOM+120 03533000 ATCFDVT EQU ATCCOM+116 03534000 ATCCONFT EQU ATCCOM+112 03535000 ATCPTCHA EQU ATCCOM+108 03536000 ATCAUTHA EQU ATCCOM+104 03537000 ATCACCTA EQU ATCCOM+100 03538000 ATCRDTH EQU ATCCOM+96 03539000 ATCFRSCH EQU ATCCOM+92 03540000 ATCFSB EQU ATCCOM+88 03541000 ATCHLTMS EQU ATCCOM+84 03542000 ATCECPRM EQU ATCCOM+80 03543000 ATCECNET EQU ATCCOM+76 03544000 ATCECOPC EQU ATCCOM+72 03545000 ATCVPARM EQU ATCCOM+68 03546000 ATCECVRQ EQU ATCCOM+64 03547000 ATCECSES EQU ATCCOM+60 03548000 ATCOCHA EQU ATCCOM+56 03549000 ATCDSPLQ EQU ATCCOM+52 03550000 ATCECDSP EQU ATCCOM+48 03551000 ATCVARYQ EQU ATCCOM+44 03552000 ATCECVRY EQU ATCCOM+40 03553000 ATCHALTQ EQU ATCCOM+36 03554000 ATCECHLT EQU ATCCOM+32 03555000 ATCMODQ EQU ATCCOM+28 03556000 ATCECMOD EQU ATCCOM+24 03557000 ATCASCHD EQU ATCCOM+20 03558000 ATCSRT EQU ATCCOM+16 03559000 ATCRDT EQU ATCCOM+12 03560000 ATCDCFRR EQU ATCCOM+8 03561000 ATCAPI EQU ATCCOM+4 03562000 ATCRSV04 EQU ATCSTAT4 03563000 ATCVTTRC EQU ATCSTAT4 03564000 ATCNCSD EQU ATCSTAT4 03565000 ATCMTST EQU ATCSTAT4 03566000 ATCTPRT EQU ATCSTAT4 03567000 ATCPRTAT EQU ATCSTAT4 03568000 @NM00052 EQU ATCPOFLG 03569000 ATCPOUNS EQU ATCPOFLG 03570000 ATCHSDMF EQU ATCSTFLG 03571000 @NM00051 EQU ATCSTAT1 03572000 ATCMDHLT EQU ATCSTAT1 03573000 ATCINHLT EQU ATCSTAT1 03574000 ATCNETSL EQU ATCSTAT1 03575000 ATCQKHLT EQU ATCSTAT1 03576000 ATCSNHLT EQU ATCSTAT1 03577000 ATCACTIV EQU ATCSTAT1 03578000 ATCSTART EQU ATCSTAT1 03579000 DYPPAB EQU ISTDYPAB+16 03580000 DYPRSV01 EQU ISTDYPAB+12 03581000 DYPTSKID EQU ISTDYPAB+8 03582000 DYPCHAIN EQU ISTDYPAB+4 03583000 DYPFLGS EQU ISTDYPAB+2 03584000 DYPLNGTH EQU ISTDYPAB+1 03585000 DYPTYPE EQU ISTDYPAB 03586000 LDNZS00F EQU LDNZH003+1 03587000 LDNZS00E EQU LDNZH003+1 03588000 LDNZS00D EQU LDNZH003+1 03589000 LDNZS00C EQU LDNZH003+1 03590000 LDNZS00B EQU LDNZH003+1 03591000 LDNZS007 EQU LDNZH003 03592000 LDNZS006 EQU LDNZH003 03593000 LDNZS005 EQU LDNZH003 03594000 LDNZS004 EQU LDNZH003 03595000 LDNZS003 EQU LDNZH003 03596000 LDNZS002 EQU LDNZH003 03597000 LDNZS001 EQU LDNZH003 03598000 LDNZS000 EQU LDNZH003 03599000 LDNZX006 EQU ISTLDNCB+576 03600000 LDNZC001 EQU ISTLDNCB+569 03601000 LDNZX005 EQU ISTLDNCB+568 03602000 LDNZV006 EQU ISTLDNCB+564 03603000 LDNSRB EQU ISTLDNCB+520 03604000 LDNIOSB EQU ISTLDNCB+412 03605000 @NM00050 EQU LDNZSAV3+28 03606000 LDNRSV06 EQU LDNZSAV4+16 03607000 LDNZSAV6 EQU LDNZSAV4+12 03608000 LDNZSAV5 EQU LDNZSAV4 03609000 LDNZSAVE EQU LDNZSAV3 03610000 LDNZSAV2 EQU ISTLDNCB+368 03611000 LDNZSAV1 EQU ISTLDNCB+352 03612000 LDNZ3RR EQU ISTLDNCB+348 03613000 LDNZ2RR EQU ISTLDNCB+344 03614000 LDNZ1RR EQU ISTLDNCB+340 03615000 LDNRSV0B EQU ISTLDNCB+336 03616000 LDNRSV0A EQU ISTLDNCB+332 03617000 LDNRSV09 EQU ISTLDNCB+328 03618000 LDNRSV08 EQU ISTLDNCB+324 03619000 LDNRSV07 EQU ISTLDNCB+320 03620000 LDNDEAD EQU LDNDCDEB+12 03621000 LDNUCBAD EQU LDNDCDEB+8 03622000 LDNAPPAD EQU LDNDCDEB+5 03623000 LDNEXSCL EQU LDNDCDEB+4 03624000 LDNDCBAD EQU LDNDCDEB+1 03625000 LDNDEBID EQU LDNDCDEB 03626000 LDNZRIND EQU ISTLDNCB+300 03627000 LDNZTCP EQU ISTLDNCB+188 03628000 LDNZCHNC EQU ISTLDNCB+187 03629000 LDNZLPC7 EQU LDNZLPC 03630000 LDNZLPC6 EQU LDNZLPC 03631000 LDNZLPC5 EQU LDNZLPC 03632000 LDNZLPC4 EQU LDNZLPC 03633000 LDNZLPC3 EQU LDNZLPC 03634000 LDNZLPC2 EQU LDNZLPC 03635000 LDNZLPC1 EQU LDNZLPC 03636000 LDNRSV05 EQU LDNZERPF 03637000 LDNZCTOV EQU LDNZEPIN 03638000 LDNZF001 EQU LDNZEPIN 03639000 LDNZFRDW EQU LDNZCPAN 03640000 LDNZFRD EQU LDNZCPAN 03641000 LDNZNARD EQU LDNZCPAN 03642000 LDNRSV04 EQU LDNZIOLK 03643000 LDNZATBF EQU LDNZIOLK 03644000 LDNZPAB1 EQU ISTLDNCB+168 03645000 LDNZV005 EQU ISTLDNCB+160 03646000 LDNZS1VR EQU ISTLDNCB+136 03647000 LDNZS1RR EQU ISTLDNCB+132 03648000 LDNZS1FC EQU ISTLDNCB+128 03649000 LDNZS1BC EQU ISTLDNCB+124 03650000 LDNZFBUF EQU ISTLDNCB+116 03651000 LDNRSV02 EQU LDNFLAG2 03652000 LDNZFF04 EQU LDNFLAG2 03653000 LDNZFF69 EQU LDNFLAGS+2 03654000 LDNZFF03 EQU LDNFLAGS+2 03655000 LDNZFF02 EQU LDNFLAGS+2 03656000 LDNZFF01 EQU LDNFLAGS+2 03657000 LDNZFF00 EQU LDNFLAGS+2 03658000 LDNCLOSD EQU LDNFLAGS+2 03659000 LDNZENTR EQU LDNFLAGS+2 03660000 LDNZICCW EQU LDNFLAGS+1 03661000 LDNZREC EQU LDNFLAGS+1 03662000 LDNZCTXT EQU LDNFLAGS+1 03663000 LDNZCHNE EQU LDNFLAGS+1 03664000 LDNZF00A EQU LDNFLAGS+1 03665000 LDNZF009 EQU LDNFLAGS 03666000 LDNZF008 EQU LDNFLAGS 03667000 LDNZF007 EQU LDNFLAGS 03668000 LDNZF006 EQU LDNFLAGS 03669000 LDNZF005 EQU LDNFLAGS 03670000 LDNZF004 EQU LDNFLAGS 03671000 LDNZF002 EQU LDNFLAGS 03672000 LDNZHDCC EQU ISTLDNCB+106 03673000 LDNZARM EQU ISTLDNCB+104 03674000 LDNZRM EQU ISTLDNCB+102 03675000 LDNZRB EQU ISTLDNCB+100 03676000 LDNCPQ EQU ISTLDNCB+96 03677000 LDNZX002 EQU ISTLDNCB+91 03678000 LDNZX001 EQU ISTLDNCB+90 03679000 LDNZH002 EQU ISTLDNCB+88 03680000 LDNZACSW EQU ISTLDNCB+76 03681000 LDNZC002 EQU ISTLDNCB+68 03682000 LDNCSWSV EQU ISTLDNCB+60 03683000 LDNCHFLD EQU ISTLDNCB+56 03684000 LDNRESRV EQU ISTLDNCB+55 03685000 @NM00049 EQU LDNCFLAG 03686000 LDNRMF EQU LDNCFLAG 03687000 LDNIBI EQU LDNCFLAG 03688000 LDNTSAF EQU ISTLDNCB+52 03689000 LDNCUUA EQU ISTLDNCB+48 03690000 LDNCB EQU ISTLDNCB 03691000 NCBRSV01 EQU ISTNCB+46 03692000 NCBSWDAF EQU ISTNCB+44 03693000 NCBDEVCH EQU ISTNCB+36 03694000 NCBFMCBP EQU ISTNCB+32 03695000 NCBLTRC EQU ISTNCB+30 03696000 NCBRVPT1 EQU ISTNCB+28 03697000 NCBNMLLN EQU NCBFLAGS+3 03698000 @NM00048 EQU NCBFLAG1 03699000 NCBFORCE EQU NCBFLAG1 03700000 NCBTTF EQU NCBFLAG1 03701000 NCBRSYNC EQU NCBFLAG1 03702000 NCBRSTRT EQU NCBFLAG1 03703000 NCBCONF EQU NCBFLAG1 03704000 NCBSNAI EQU NCBFLAG1 03705000 NCBFLTIO EQU NCBFTRIO 03706000 NCBCSTAT EQU NCBFLAGS 03707000 NCBNCSL EQU ISTNCB+22 03708000 NCBNCBA EQU ISTNCB+20 03709000 NCBFMCBA EQU ISTNCB+16 03710000 NCBNSNA EQU ISTNCB+12 03711000 NCBTSKID EQU ISTNCB+8 03712000 NCBRDTE EQU ISTNCB+4 03713000 NCBDAF EQU ISTNCB+2 03714000 NCBLNGTH EQU ISTNCB+1 03715000 NCBTYPE EQU ISTNCB 03716000 PABRPHA EQU PABRPHFG+1 03717000 PABNODQ EQU PABFLAGS 03718000 PABINHBT EQU PABFLAGS 03719000 PABERLOK EQU PABERRLK 03720000 PABSSN EQU PABFLAGS 03721000 PABDYNAM EQU PABFLAGS 03722000 PABNORPR EQU PABFLAGS 03723000 PABPRIOR EQU PABFLAGS 03724000 PABAPYP EQU PABFLAGS 03725000 PABDVTA EQU ISTPAB+9 03726000 PABOFFST EQU ISTPAB+8 03727000 PABCHNGP EQU PABCHAIN+1 03728000 PABRSV02 EQU PABCHAIN 03729000 PABDELAY EQU PABCHAIN 03730000 PABRUNNG EQU PABCHAIN 03731000 PABRESET EQU PABCHAIN 03732000 PABUNCON EQU PABCHAIN 03733000 PABCDP EQU PABCHAIN 03734000 PABRESCH EQU PABCHAIN 03735000 PABCHNG EQU PABCHAIN 03736000 PABWEQP EQU PABWEQA+1 03737000 PABRSV01 EQU PABWEQA 03738000 PABWEQG EQU PABWEQA 03739000 RPHNEXPO EQU ISTRPH+104 03740000 RPHSAV16 EQU RPHWORK+60 03741000 RPHSAV15 EQU RPHWORK+56 03742000 RPHSAV14 EQU RPHWORK+52 03743000 RPHSAV13 EQU RPHWORK+48 03744000 RPHSAV12 EQU RPHWORK+44 03745000 RPHSAV11 EQU RPHWORK+40 03746000 RPHSAV10 EQU RPHWORK+36 03747000 RPHSAVE9 EQU RPHWORK+32 03748000 RPHSAVE8 EQU RPHWORK+28 03749000 RPHSAVE7 EQU RPHWORK+24 03750000 RPHSAVE6 EQU RPHWORK+20 03751000 RPHSAVE5 EQU RPHWORK+16 03752000 RPHSAVE4 EQU RPHWORK+12 03753000 RPHSAVE3 EQU RPHWORK+8 03754000 RPHSAVE2 EQU RPHWORK+4 03755000 RPHSHALF EQU RPHSAVE1+2 03756000 RPHSBIT8 EQU RPHSBITS 03757000 RPHSBIT7 EQU RPHSBITS 03758000 RPHSBIT6 EQU RPHSBITS 03759000 RPHSBIT5 EQU RPHSBITS 03760000 RPHSBIT4 EQU RPHSBITS 03761000 RPHSBIT3 EQU RPHSBITS 03762000 RPHSBIT2 EQU RPHSBITS 03763000 RPHSBIT1 EQU RPHSBITS 03764000 RPHSBYTE EQU RPHSAVE1 03765000 RPHPABQP EQU RPHPABQA+1 03766000 RPHPABFG EQU RPHPABQA 03767000 RPHSRP34 EQU RPHSRPRM+2 03768000 RPHSRP12 EQU RPHSRPRM 03769000 RPHWEGT EQU RPHCSPA 03770000 RPHMAJCB EQU ISTRPH+21 03771000 RPHPABOF EQU ISTRPH+20 03772000 RPHRESUM EQU RPHRESMA+1 03773000 RPHRSV01 EQU RPHWPFLG 03774000 RPHPURGE EQU RPHWPFLG 03775000 RPHPT EQU RPHWPFLG 03776000 RPHWT EQU RPHWPFLG 03777000 RPHRSKEY EQU RPHWPFLG 03778000 RPHDVTA EQU ISTRPH+12 03779000 RPHTIK EQU RPHTSKID+3 03780000 @NM00047 EQU RPHTSKID 03781000 RPHRPHAP EQU RPHRPHA+1 03782000 @NM00046 EQU RPHRPHA 03783000 RPHGATE EQU RPHRPHA 03784000 @NM00045 EQU RPHFLGB 03785000 RPHRLCRA EQU RPHFLGB 03786000 RPHNRSAV EQU RPHFLGB 03787000 RPHPGCMP EQU RPHFLGB 03788000 RPHFBAPS EQU RPHFLGB 03789000 RPHBSSP EQU RPHFLGB 03790000 RPHLOCK EQU RPHFLGB 03791000 RPHFNFLG EQU RPHFSTLC 03792000 RPHMLTCP EQU RPHFLAGS 03793000 RPHSMCLR EQU RPHFLAGS 03794000 RPHSMTYP EQU RPHFLAGS 03795000 RPHSMQ EQU RPHFLAGS 03796000 RPHAUTEX EQU RPHAPTYP 03797000 RPHSPGIN EQU RPHFLAGS 03798000 RPHOGIND EQU RPHFLAGS 03799000 RPHLNGTH EQU RPHCNTL+1 03800000 RPHTYPE EQU RPHCNTL 03801000 LOKXCL EQU @NM00043 03802000 LOKPRY EQU @NM00043 03803000 @NM00044 EQU @NM00043 03804000 @NM00042 EQU LOKCHNG 03805000 LOKCT EQU ISTLOK 03806000 DEVRSV03 EQU ISTDEVCH+5 03807000 DEVPHYSA EQU ISTDEVCH+4 03808000 DEVCSLPN EQU DEVCHAR3 03809000 DEVCSTCL EQU DEVCHAR3 03810000 DEVCCHEK EQU DEVCHAR3 03811000 DEVCATTN EQU DEVCHAR3 03812000 DEVCSWL EQU DEVFCCTL 03813000 DEVCRVB EQU DEVFCCTL 03814000 DEVCSSL EQU DEVFCCTL 03815000 DEVCBSC EQU DEVFCCTL 03816000 DEVMCODE EQU ISTDEVCH+2 03817000 DEVCHAR2 EQU DEVTCODE 03818000 DEVRSV01 EQU DEVCHAR 03819000 DEVCCTL EQU DEVCHAR 03820000 DEVNNSPT EQU DEVCHAR 03821000 DEVSPS EQU DEVCHAR 03822000 DEVSUBND EQU DEVCHAR 03823000 DEVCONVR EQU DEVCHAR 03824000 DEVOTPUT EQU DEVCHAR 03825000 DEVINPUT EQU DEVCHAR 03826000 FDBOFSET EQU ISTFDB+10 03827000 FDBDATCT EQU ISTFDB+8 03828000 FDBDATAA EQU ISTFDB+4 03829000 FDBFDBA EQU ISTFDB 03830000 UCBERADR EQU UCBUCS+12 03831000 UCBFCBID EQU UCBUCS+8 03832000 UCBERCNT EQU UCBUCS+7 03833000 UCBRSV51 EQU UCBUCS+6 03834000 UCBRSV50 EQU UCBFCBOP 03835000 UCBRSV49 EQU UCBFCBOP 03836000 UCBRSV48 EQU UCBFCBOP 03837000 UCBRSV47 EQU UCBFCBOP 03838000 UCBRSV46 EQU UCBFCBOP 03839000 UCBRSV45 EQU UCBFCBOP 03840000 UCBRSV44 EQU UCBFCBOP 03841000 UCBFCBO1 EQU UCBFCBOP 03842000 UCBUCSPE EQU UCBUCSOP 03843000 UCBRSV43 EQU UCBUCSOP 03844000 UCBRSV42 EQU UCBUCSOP 03845000 UCBRSV41 EQU UCBUCSOP 03846000 UCBRSV40 EQU UCBUCSOP 03847000 UCBRSV39 EQU UCBUCSOP 03848000 UCBUCSO2 EQU UCBUCSOP 03849000 UCBUCSO1 EQU UCBUCSOP 03850000 UCBUCSID EQU UCBUCS 03851000 UCBMDRBA EQU UCBMDRBF+1 03852000 UCBRV075 EQU UCBMDRBF 03853000 UCBRV074 EQU UCB3800X+32 03854000 UCBIMAGE EQU UCB3800X+28 03855000 UCBFCBNM EQU UCB3800X+24 03856000 UCBCHAR4 EQU UCB3800X+20 03857000 UCBCHAR3 EQU UCB3800X+16 03858000 UCBCHAR2 EQU UCB3800X+12 03859000 UCBCHAR1 EQU UCB3800X+8 03860000 UCBCGMID EQU UCB3800X+4 03861000 UCBBRSTA EQU UCBACTIV 03862000 UCBRV063 EQU UCBACTIV 03863000 UCBRV062 EQU UCBACTIV 03864000 UCBRV061 EQU UCBACTIV 03865000 UCBRV060 EQU UCBACTIV 03866000 UCBRV059 EQU UCBACTIV 03867000 UCBRV058 EQU UCBACTIV 03868000 UCBRV057 EQU UCBACTIV 03869000 UCBRV050 EQU UCB3800X+2 03870000 UCBCGMNO EQU UCB3800X+1 03871000 UCBRV083 EQU UCBOPTNS 03872000 UCBBRSTR EQU UCBOPTNS 03873000 UCBRV056 EQU UCBOPTNS 03874000 UCBRV055 EQU UCBOPTNS 03875000 UCBRV054 EQU UCBOPTNS 03876000 UCBRV053 EQU UCBOPTNS 03877000 UCBRV052 EQU UCBOPTNS 03878000 UCBRV051 EQU UCBOPTNS 03879000 UCBRV073 EQU UCB3540X+7 03880000 UCBRV072 EQU UCBDKBYT 03881000 UCBRV071 EQU UCBDKBYT 03882000 UCBRV070 EQU UCBDKBYT 03883000 UCBRV069 EQU UCBDKBYT 03884000 UCBRV068 EQU UCBDKBYT 03885000 UCBRV067 EQU UCBDKBYT 03886000 UCBVLVER EQU UCBDKBYT 03887000 UCBDKAMX EQU UCBDKBYT 03888000 UCBVLSER EQU UCB3540X 03889000 UCBRDATA EQU UCBOCR+4 03890000 UCBFRID EQU UCBOCR 03891000 UCBCLN EQU UCBMT+14 03892000 UCBERG EQU UCBMT+12 03893000 UCBMS EQU UCBMT+11 03894000 UCBNB EQU UCBMT+10 03895000 UCBPW EQU UCBMT+9 03896000 UCBPR EQU UCBMT+8 03897000 UCBSIO EQU UCBMT+6 03898000 UCBTW EQU UCBMT+5 03899000 UCBTR EQU UCBMT+4 03900000 UCBTWT EQU UCBMT+3 03901000 UCBTRT EQU UCBMT+2 03902000 UCBCTD EQU UCBMT 03903000 UCBWTOID EQU UCBCMEXT+17 03904000 UCBRV043 EQU UCBCMEXT+16 03905000 UCBASID EQU UCBCMEXT+14 03906000 UCBMFCNT EQU UCBCMEXT+12 03907000 UCBPMSK EQU UCBCMEXT+10 03908000 UCBCCWOF EQU UCBCMEXT+8 03909000 UCBRV041 EQU UCBCMEXT+6 03910000 UCBRV036 EQU UCBFLP1 03911000 UCBRV035 EQU UCBFLP1 03912000 UCBERLOG EQU UCBFLP1 03913000 UCBRV033 EQU UCBFLP1 03914000 UCBRV032 EQU UCBFLP1 03915000 UCBRV031 EQU UCBFLP1 03916000 UCBSHRUP EQU UCBFLP1 03917000 UCBNSRCH EQU UCBFLP1 03918000 UCBSNSCT EQU UCBCMEXT+4 03919000 UCBHPDV EQU @NM00041 03920000 UCBHALI EQU @NM00041 03921000 UCBRSV09 EQU @NM00041 03922000 UCBRSV08 EQU @NM00041 03923000 UCBRSV07 EQU @NM00041 03924000 UCBRSV06 EQU @NM00041 03925000 UCBRSV05 EQU @NM00041 03926000 UCBRSV04 EQU @NM00041 03927000 UCBDTI EQU UCBCMEXT+2 03928000 UCBSTI EQU UCBCMEXT+1 03929000 UCBETI EQU UCBCMEXT 03930000 UCBEXTP EQU UCBEXTPT+1 03931000 UCBDDRSW EQU UCBFLC 03932000 UCBTICBT EQU UCBFLC 03933000 UCBIVRR EQU UCBFLC 03934000 UCBIVRS EQU UCBFLC 03935000 UCBITF EQU UCBFLC 03936000 UCBUDE EQU UCBFLC 03937000 UCBWAA EQU UCBFLC 03938000 UCBATTP EQU UCBFLC 03939000 UCBUNTYP EQU UCBTBYT4 03940000 UCBRSV11 EQU UCBDVCLS 03941000 UCBRSV10 EQU UCBDVCLS 03942000 UCB3CHAR EQU UCBDVCLS 03943000 UCB3UREC EQU UCBDVCLS 03944000 UCB3DISP EQU UCBDVCLS 03945000 UCB3DACC EQU UCBDVCLS 03946000 UCB3COMM EQU UCBDVCLS 03947000 UCB3TAPE EQU UCBDVCLS 03948000 UCBDVPWR EQU UCB2OPT7 03949000 UCBVLPWR EQU UCB2OPT6 03950000 UCB2OPT5 EQU UCBTBYT2 03951000 UCBRVDEV EQU UCBRWTAU 03952000 UCBRPS EQU UCBDUDN2 03953000 UCBRR EQU UCBDUDN1 03954000 UCB2OPT1 EQU UCBTBYT2 03955000 UCB2OPT0 EQU UCBTBYT2 03956000 UCB1FEA7 EQU UCBTBYT1 03957000 UCBD6250 EQU UCB1FEA6 03958000 UCBD1600 EQU UCB1FEA5 03959000 UCB1FEA4 EQU UCBTBYT1 03960000 UCB1FEA3 EQU UCBTBYT1 03961000 UCB1FEA2 EQU UCBTBYT1 03962000 UCB1FEA1 EQU UCBTBYT1 03963000 UCB1FEA0 EQU UCBTBYT1 03964000 UCBNAME EQU UCBOB+13 03965000 UCBRV029 EQU UCBWGT 03966000 UCBVHRSN EQU UCBWGT 03967000 UCBVORSN EQU UCBWGT 03968000 UCBMTPXP EQU UCBWGT 03969000 UCBREW EQU UCBWGT 03970000 UCBPUB EQU UCBWGT 03971000 UCBOUT EQU UCBWGT 03972000 UCBIN EQU UCBWGT 03973000 UCBCPU EQU UCBOB+11 03974000 UCBLCI EQU UCBOB+10 03975000 UCBCNT EQU UCBOB+9 03976000 UCBRV017 EQU UCBCHM1 03977000 UCBRV016 EQU UCBCHM1 03978000 UCBRV015 EQU UCBCHM1 03979000 UCBRV014 EQU UCBCHM1 03980000 UCBSPB EQU UCBPTH1 03981000 UCBPPB EQU UCBPTH1 03982000 UCBSPA EQU UCBPTH0 03983000 UCBPPA EQU UCBPTH0 03984000 UCBSIGP EQU UCBFLB 03985000 UCBVALPH EQU UCBFLB 03986000 UCBCRHSN EQU UCBFLB 03987000 UCBCRHRV EQU UCBFLB 03988000 UCBRESVH EQU UCBFLB 03989000 UCBSPST EQU UCBFLB 03990000 UCBASNS EQU UCBFLB 03991000 UCBIORST EQU UCBFLB 03992000 UCBQISCE EQU UCBFL1 03993000 UCBACTV EQU UCBFL1 03994000 UCBSAP EQU UCBFL1 03995000 UCBNOTRC EQU UCBCUB 03996000 UCBPSNS EQU UCBFL1 03997000 UCBUSING EQU UCBPST 03998000 UCBNOTRD EQU UCBNRY 03999000 UCBBUSYD EQU UCBBSY 04000000 UCBUA EQU UCBCHAN+1 04001000 UCBCHA EQU UCBCHAN 04002000 UCBDADI EQU UCBSTAT 04003000 UCBSYSR EQU UCBSTAT 04004000 UCBPRES EQU UCBSTAT 04005000 UCBALOC EQU UCBSTAT 04006000 UCBUNLD EQU UCBSTAT 04007000 UCBRESV EQU UCBSTAT 04008000 UCBCHGS EQU UCBSTAT 04009000 UCBONLI EQU UCBSTAT 04010000 UCBID EQU UCBOB+2 04011000 UCBALTPH EQU UCBFL5 04012000 UCBALTCU EQU UCBFL5 04013000 UCBNALOC EQU UCBFL5 04014000 UCBENVRD EQU UCBFL5 04015000 UCBVSDR EQU UCBFL5 04016000 UCBSASK EQU UCBFL5 04017000 UCBAMV EQU UCBAF 04018000 UCBDCC EQU UCBFL5 04019000 UCBMONT EQU UCBJBNR 04020000 UCBRV011 EQU UCBJBNR 04021000 UCBRSV02 EQU UCBJBNR 04022000 UCBOLDSM EQU UCBJBNR 04023000 UCBRV003 EQU UCBJBNR 04024000 UCBDUC EQU UCBJBNR 04025000 UCBJES3 EQU UCBJBNR 04026000 UCBVRDEV EQU UCBJBNR 04027000 UCBCMSEG EQU UCBOB 04028000 UCBPFXND EQU UCB+512 04029000 UCBIOQ EQU UCB+508 04030000 UCBLOCK EQU UCB+504 04031000 UCBPXST EQU UCB+504 04032000 @NM00038 EQU UCB 04033000 @NM00037 EQU FRRSFLGS+1 04034000 @NM00036 EQU FRRSFLG1 04035000 FRRSRCUR EQU FRRSFLG1 04036000 FRRSENTS EQU FRRS+84 04037000 FRRSRTMW EQU FRRS+16 04038000 @NM00011 EQU SRBSECT+40 04039000 @NM00010 EQU SRBSECT+38 04040000 SRBPRIOR EQU SRBSECT+37 04041000 SRBPKF EQU SRBSECT+36 04042000 SRBSAVE EQU SRBSECT+32 04043000 SRBPARM EQU SRBSECT+28 04044000 SRBRMTR EQU SRBSECT+24 04045000 SRBEP EQU SRBSECT+20 04046000 SRBPTCB EQU SRBFLC+4 04047000 SRBPASID EQU SRBFLC+2 04048000 SRBCPAFF EQU SRBFLC 04049000 SRBASCB EQU SRBSECT+8 04050000 SRBFLNK EQU SRBSECT+4 04051000 SRBID EQU SRBSECT 04052000 IOSEND EQU IOSB+108 04053000 IOSSKR EQU IOSEEKA+7 04054000 IOSSKH2 EQU IOSSKHH+1 04055000 IOSSKH1 EQU IOSSKHH 04056000 IOSSKCC EQU IOSCCHH 04057000 IOSSKBB EQU IOSEEKA+1 04058000 IOSSKM EQU IOSEEKA 04059000 IOSEEK EQU IOSB+92 04060000 IOSMDM EQU IOSB+91 04061000 IOSMDB EQU IOSB+90 04062000 IOSCKEY7 EQU IOSCKEY 04063000 IOSCKEY6 EQU IOSCKEY 04064000 IOSCKEY5 EQU IOSCKEY 04065000 IOSCKEY4 EQU IOSCKEY 04066000 @NM00006 EQU IOSCKEY 04067000 IOSFMSK EQU IOSB+88 04068000 IOSCUDEV EQU IOSPATH+1 04069000 @NM00005 EQU IOSCHN 04070000 IOSPATH3 EQU IOSCHN 04071000 IOSPATH2 EQU IOSCHN 04072000 IOSEXP EQU IOSCHN 04073000 IOSGDP EQU IOSCHN 04074000 IOSAFF EQU IOSB+85 04075000 IOSRSS1B EQU IOSB+84 04076000 IOSDSID EQU IOSB+80 04077000 IOSVST EQU IOSB+76 04078000 IOSRST EQU IOSB+72 04079000 IOSDIE EQU IOSB+68 04080000 IOSABN EQU IOSB+64 04081000 IOSNRM EQU IOSB+60 04082000 IOSPCI EQU IOSB+56 04083000 IOSERP EQU IOSB+52 04084000 IOSPCHN EQU IOSB+48 04085000 IOSSNS EQU IOSB+42 04086000 IOSAPMSK EQU IOSB+40 04087000 IOSRES4A EQU IOSB+36 04088000 IOSUSE EQU IOSB+32 04089000 IOSSRB EQU IOSB+28 04090000 IOSCSWRC EQU IOSCSW+5 04091000 IOSTSB EQU IOSTATUS+1 04092000 IOSTSA EQU IOSTATUS 04093000 IOSCSWCA EQU IOSCSW 04094000 IOSCC EQU @NM00004 04095000 IOSUCB EQU IOSB+16 04096000 IOSOPT2X EQU IOSOPT2 04097000 IOSHTP EQU IOSOPT2 04098000 IOSRELSE EQU IOSOPT 04099000 IOSAPR EQU IOSOPT 04100000 IOSTSLL EQU IOSOPT 04101000 IOSNERP EQU IOSOPT 04102000 IOSPSLL EQU IOSOPT 04103000 IOSQISCE EQU IOSOPT 04104000 IOSDEP EQU IOSOPT 04105000 IOSBYP EQU IOSOPT 04106000 IOSCOD EQU IOSB+13 04107000 IOSPKY7 EQU IOSPKEY 04108000 IOSPGDPX EQU IOSPKEY 04109000 IOSIDR EQU IOSPKEY 04110000 IOSLCL EQU IOSPKEY 04111000 @NM00003 EQU IOSPKEY 04112000 IOSPGAD EQU IOSB+8 04113000 IOSASID EQU IOSB+6 04114000 IOSPRLVL EQU IOSB+5 04115000 IOSDVRID EQU IOSB+4 04116000 IOSPROC EQU IOSB+3 04117000 IOSFLC7 EQU IOSFLC 04118000 IOSFLC6 EQU IOSFLC 04119000 IOSRWAIT EQU IOSFLC 04120000 IOSTP EQU IOSFLC 04121000 IOSCC3WE EQU IOSFLC 04122000 IOSVERIF EQU IOSDVALT 04123000 IOSDVMNT EQU IOSFLC 04124000 IOSLOG EQU IOSFLB 04125000 IOSBDCST EQU IOSFLB 04126000 IOSMSG EQU IOSFLB 04127000 IOSFLB4 EQU IOSFLB 04128000 IOSFLB3 EQU IOSFLB 04129000 IOSFLB2 EQU IOSFLB 04130000 IOSSDR EQU IOSFLB 04131000 IOSDIESE EQU IOSFLB 04132000 IOSIOSB EQU IOSFLA 04133000 IOSDOM EQU IOSFLA 04134000 IOSEX EQU IOSFLA 04135000 IOSSMDB EQU IOSFLA 04136000 IOSSMDA EQU IOSFLA 04137000 IOSERR EQU IOSFLA 04138000 IOSCCHN EQU IOSACHN 04139000 IOSDCHN EQU IOSACHN 04140000 CVTLEVL EQU CVTRELNO+2 04141000 CVTNUMB EQU CVTRELNO 04142000 CVTMDL EQU CVTFIX+250 04143000 @NM00002 EQU CVTFIX+248 04144000 @NM00001 EQU CVTFIX 04145000 CVTRV482 EQU CVTXTNT2+128 04146000 CVTRV481 EQU CVTXTNT2+124 04147000 CVTRV480 EQU CVTXTNT2+120 04148000 CVTRV479 EQU CVTXTNT2+118 04149000 CVTRV478 EQU CVTXTNT2+117 04150000 CVTRV477 EQU CVTXTNT2+116 04151000 CVTRV476 EQU CVTXTNT2+115 04152000 CVTRV475 EQU CVTXTNT2+114 04153000 CVTRV474 EQU CVTRV466 04154000 CVTRV473 EQU CVTRV466 04155000 CVTRV472 EQU CVTRV466 04156000 CVTRV471 EQU CVTRV466 04157000 CVTRV470 EQU CVTRV466 04158000 CVTRV469 EQU CVTRV466 04159000 CVTRV468 EQU CVTRV466 04160000 CVTRV467 EQU CVTRV466 04161000 CVTRV465 EQU CVTRV457 04162000 CVTRV464 EQU CVTRV457 04163000 CVTRV463 EQU CVTRV457 04164000 CVTRV462 EQU CVTRV457 04165000 CVTRV461 EQU CVTRV457 04166000 CVTRV460 EQU CVTRV457 04167000 CVTRV459 EQU CVTRV457 04168000 CVTRV458 EQU CVTRV457 04169000 CVTRV456 EQU CVTXTNT2+108 04170000 CVTRV455 EQU CVTXTNT2+104 04171000 CVTRV454 EQU CVTXTNT2+100 04172000 CVTRV453 EQU CVTXTNT2+96 04173000 CVTRV452 EQU CVTXTNT2+94 04174000 CVTRV451 EQU CVTXTNT2+92 04175000 CVTRV450 EQU CVTXTNT2+90 04176000 CVTRV449 EQU CVTXTNT2+88 04177000 CVTRV448 EQU CVTXTNT2+87 04178000 CVTRV447 EQU CVTXTNT2+86 04179000 CVTRV446 EQU CVTRV438 04180000 CVTRV445 EQU CVTRV438 04181000 CVTRV444 EQU CVTRV438 04182000 CVTRV443 EQU CVTRV438 04183000 CVTRV442 EQU CVTRV438 04184000 CVTRV441 EQU CVTRV438 04185000 CVTRV440 EQU CVTRV438 04186000 CVTRV439 EQU CVTRV438 04187000 CVTRV437 EQU CVTRV429 04188000 CVTRV436 EQU CVTRV429 04189000 CVTRV435 EQU CVTRV429 04190000 CVTRV434 EQU CVTRV429 04191000 CVTRV433 EQU CVTRV429 04192000 CVTRV432 EQU CVTRV429 04193000 CVTRV431 EQU CVTRV429 04194000 CVTRV430 EQU CVTRV429 04195000 CVTRV428 EQU CVTXTNT2+80 04196000 CVTRV427 EQU CVTXTNT2+76 04197000 CVTRV426 EQU CVTXTNT2+72 04198000 CVTRV425 EQU CVTXTNT2+68 04199000 CVTATACT EQU CVTATCVT 04200000 CVTRV423 EQU CVTXTNT2+62 04201000 CVTRV422 EQU CVTXTNT2+60 04202000 CVTRV421 EQU CVTXTNT2+58 04203000 CVTRV420 EQU CVTXTNT2+56 04204000 CVTRV419 EQU CVTXTNT2+55 04205000 CVTRV418 EQU CVTXTNT2+54 04206000 CVTRV417 EQU CVTRV409 04207000 CVTRV416 EQU CVTRV409 04208000 CVTRV415 EQU CVTRV409 04209000 CVTRV414 EQU CVTRV409 04210000 CVTRV413 EQU CVTRV409 04211000 CVTRV412 EQU CVTRV409 04212000 CVTRV411 EQU CVTRV409 04213000 CVTRV410 EQU CVTRV409 04214000 CVTRV408 EQU CVTRV400 04215000 CVTRV407 EQU CVTRV400 04216000 CVTRV406 EQU CVTRV400 04217000 CVTRV405 EQU CVTRV400 04218000 CVTRV404 EQU CVTRV400 04219000 CVTRV403 EQU CVTRV400 04220000 CVTRV402 EQU CVTRV400 04221000 CVTRV401 EQU CVTRV400 04222000 CVTICB EQU CVTXTNT2+48 04223000 CVTSKTA EQU CVTXTNT2+44 04224000 CVTSHSB EQU CVTSHS 04225000 CVTRSV98 EQU CVTXTNT2+36 04226000 CVTRSV97 EQU CVTXTNT2+34 04227000 CVTRSV96 EQU CVTXTNT2+32 04228000 CVTOLTEP EQU CVTXTNT2+28 04229000 CVTQIDA EQU CVTQID+1 04230000 CVTRSV95 EQU CVTQID 04231000 CVTRSV94 EQU CVTXTNT2+20 04232000 CVTRSV93 EQU CVTXTNT2+16 04233000 CVTRSV92 EQU CVTXTNT2+12 04234000 CVTDEBVR EQU CVTXTNT2+8 04235000 CVTRSV91 EQU CVTXTNT2+6 04236000 CVTRSV9H EQU CVTFLGBT 04237000 CVTRSV9G EQU CVTFLGBT 04238000 CVTRSV9F EQU CVTFLGBT 04239000 CVTRSV9E EQU CVTFLGBT 04240000 CVTRSV9D EQU CVTFLGBT 04241000 CVTRSV9C EQU CVTFLGBT 04242000 CVTVME EQU CVTFLGBT 04243000 CVTNPE EQU CVTFLGBT 04244000 CVTNUCLS EQU CVTXTNT2+4 04245000 CVTDSSVA EQU CVTDSSV+1 04246000 CVTRSV89 EQU CVTDSSV 04247000 CVTRSV88 EQU CVTXTNT1+8 04248000 CVTRSV87 EQU CVTXTNT1+4 04249000 CVTFACHN EQU CVTXTNT1 04250000 CVTRV488 EQU CVTMAP+412 04251000 CVTRV487 EQU CVTMAP+408 04252000 CVTRV486 EQU CVTMAP+404 04253000 CVTRV485 EQU CVTMAP+400 04254000 CVTACTAP EQU CVTMAP+396 04255000 CVTAUTH EQU CVTMAP+392 04256000 CVTATMCA EQU CVTATMCT+1 04257000 CVTATMST EQU CVTATMCT 04258000 CVTRSV61 EQU CVTMAP+384 04259000 CVTVOLT1 EQU CVTVOLM1+1 04260000 CVTVOLI1 EQU CVTVOLF1 04261000 CVTSTOA EQU CVTMAP+376 04262000 CVTRSV58 EQU CVTMAP+374 04263000 CVTRSV57 EQU CVTMAP+372 04264000 CVTDDCE EQU CVTMAP+368 04265000 CVTPNWFR EQU CVTMAP+364 04266000 CVTSMF EQU CVTMAP+360 04267000 CVTSULK EQU CVTMAP+358 04268000 CVTSLKO EQU CVTSYSK 04269000 CVTSLKP EQU CVTSYSK 04270000 CVTSLKQ EQU CVTSYSK 04271000 CVTSLKR EQU CVTSYSK 04272000 CVTRSV56 EQU CVTSYSK 04273000 CVTRSV55 EQU CVTSYSK 04274000 CVTRSV54 EQU CVTSYSK 04275000 CVTRSV53 EQU CVTSYSK 04276000 CVTRSV52 EQU CVTA1F1 04277000 CVTRSV51 EQU CVTA1F1 04278000 CVTRSV50 EQU CVTA1F1 04279000 CVTRSV49 EQU CVTA1F1 04280000 CVTRSV48 EQU CVTA1F1 04281000 CVTRSV47 EQU CVTA1F1 04282000 CVTSRSW EQU CVTA1F1 04283000 CVTPFSW EQU CVTA1F1 04284000 CVTPCVT EQU CVTMAP+352 04285000 CVTRSV46 EQU CVTMAP+344 04286000 CVTRSV45 EQU CVTMAP+340 04287000 CVTRSV44 EQU CVTMAP+338 04288000 CVTRSV43 EQU CVTMAP+336 04289000 CVTHJESA EQU CVTHJES+1 04290000 CVTRSV42 EQU CVTHJES 04291000 CVTEXT2A EQU CVTEXT2+1 04292000 CVTRSV41 EQU CVTEXT2 04293000 CVTAPFA EQU CVTAPF+1 04294000 CVTRSV40 EQU CVTAPF 04295000 CVTRV518 EQU CVTINTLA 04296000 CVTRV517 EQU CVTERPV 04297000 CVTEORM EQU CVTMAP+312 04298000 CVTMCHPR EQU CVTMAP+308 04299000 CVTTZ EQU CVTMAP+304 04300000 CVTJEPS EQU CVTMAP+300 04301000 CVTJESCT EQU CVTMAP+296 04302000 CVTMODE EQU CVTMAP+292 04303000 CVTPTRV EQU CVTMAP+288 04304000 CVTREAL EQU CVTMAP+284 04305000 CVTRSV39 EQU CVTMAP+280 04306000 CVTRSV38 EQU CVTMAP+276 04307000 CVTDMSRA EQU CVTDMSR+1 04308000 CVTRV634 EQU CVTDMSRF 04309000 CVTRV633 EQU CVTDMSRF 04310000 CVTRV632 EQU CVTDMSRF 04311000 CVTRV631 EQU CVTDMSRF 04312000 CVTRV630 EQU CVTDMSRF 04313000 CVTRV629 EQU CVTDMSRF 04314000 CVTUDUMP EQU CVTDMSRF 04315000 CVTSDUMP EQU CVTDMSRF 04316000 CVTQMSGA EQU CVTQMSG+1 04317000 CVTRSV36 EQU CVTQMSG 04318000 CVTAMFF EQU CVTMAP+264 04319000 CVTPURGA EQU CVTPURG+1 04320000 CVTRSV35 EQU CVTPURG 04321000 CVTCBSP EQU CVTMAP+256 04322000 CVTATERA EQU CVTATER+1 04323000 CVTSYST EQU CVTATER 04324000 CVTVOLT2 EQU CVTTAT 04325000 CVTVOLI2 EQU CVTVOLF2 04326000 CVTAQAVB EQU CVTAQAVT+1 04327000 CVTRSV34 EQU CVTTCMFG 04328000 CVTRSV33 EQU CVTTCMFG 04329000 CVTRSV32 EQU CVTTCMFG 04330000 CVTRSV31 EQU CVTTCMFG 04331000 CVTRSV30 EQU CVTTCMFG 04332000 CVTRSV29 EQU CVTTCMFG 04333000 CVTRSV28 EQU CVTTCMFG 04334000 CVTTCRDY EQU CVTTCMFG 04335000 CVTGTFA EQU CVTGTF+1 04336000 CVTRSV27 EQU CVTGTFST 04337000 CVTRNIO EQU CVTGTFST 04338000 CVTUSR EQU CVTGTFST 04339000 CVTRV318 EQU CVTFORM 04340000 CVTRV317 EQU CVTTMODE 04341000 CVTRV316 EQU CVTSTATE 04342000 CVTRV315 EQU CVTGTFS 04343000 CVTGTFAV EQU CVTGTFS 04344000 CVT0SCR1 EQU CVTMAP+232 04345000 CVTRV515 EQU CVTMAP+228 04346000 CVTRMS EQU CVTMAP+224 04347000 CVTPATCH EQU CVTMAP+220 04348000 CVTTSCE EQU CVTMAP+216 04349000 CVTLNKSC EQU CVTMAP+214 04350000 CVTQABST EQU CVTMAP+212 04351000 CVTMDLDS EQU CVTMAP+208 04352000 CVTUSER EQU CVTMAP+204 04353000 CVTABEND EQU CVTMAP+200 04354000 CVTSMCA EQU CVTMAP+196 04355000 CVTRSV18 EQU CVTMAP+192 04356000 CVTQLPAQ EQU CVTMAP+188 04357000 CVTQCDSR EQU CVTMAP+184 04358000 CVTRSV17 EQU CVTOPTB 04359000 CVTRSV16 EQU CVTOPTB 04360000 CVTFP EQU CVTOPTB 04361000 CVTAPTHR EQU CVTOPTB 04362000 CVTNLOG EQU CVTOPTB 04363000 CVTTOD EQU CVTOPTB 04364000 CVTCTIMS EQU CVTOPTB 04365000 CVTPROT EQU CVTOPTB 04366000 CVTXPFP EQU CVTOPTA 04367000 CVTASCII EQU CVTOPTA 04368000 CVTRSV13 EQU CVTOPTA 04369000 CVTRSV12 EQU CVTOPTA 04370000 CVTNIP EQU CVTOPTA 04371000 CVTDDR EQU CVTOPTA 04372000 CVTAPR EQU CVTOPTA 04373000 CVTCCH EQU CVTOPTA 04374000 CVTSNCTR EQU CVTMAP+180 04375000 CVTQMWR EQU CVTMAP+176 04376000 CVTQOCR EQU CVTMAP+172 04377000 CVT1EF00 EQU CVTMAP+168 04378000 CVTMZ00 EQU CVTMAP+164 04379000 CVTHEAD EQU CVTMAP+160 04380000 CVTRSV11 EQU CVTMAP+156 04381000 CVT0PT01 EQU CVTMAP+152 04382000 CVTMSER EQU CVTMAP+148 04383000 CVTRV516 EQU CVTIERLC 04384000 CVTILCH EQU CVTMAP+140 04385000 CVT0DS EQU CVTMAP+136 04386000 CVTFBOSV EQU CVTMAP+132 04387000 CVTNUCB EQU CVTMAP+128 04388000 CVTIXAVL EQU CVTMAP+124 04389000 CVTIOQET EQU CVTMAP+120 04390000 CVTDCBA EQU CVTMAP+117 04391000 CVTMVS2 EQU CVTDCB 04392000 CVT6DAT EQU CVTDCB 04393000 CVT4MPS EQU CVTDCB 04394000 CVTRSV09 EQU CVTDCB 04395000 CVT4MS1 EQU CVTDCB 04396000 CVT2SPS EQU CVTDCB 04397000 CVT1SSS EQU CVTDCB 04398000 CVTRSV08 EQU CVTDCB 04399000 CVTSTB EQU CVTMAP+112 04400000 CVTQTD00 EQU CVTMAP+108 04401000 CVTQTE00 EQU CVTMAP+104 04402000 CVTCUCB EQU CVTMAP+100 04403000 CVTSJQ EQU CVTMAP+96 04404000 CVTPBLDL EQU CVTMAP+92 04405000 CVTTPC EQU CVTMAP+88 04406000 CVTSVDCB EQU CVTMAP+84 04407000 CVTBRET EQU CVTMAP+82 04408000 CVTEXIT EQU CVTMAP+80 04409000 CVT0FN00 EQU CVTMAP+76 04410000 CVTDARA EQU CVTDAR+1 04411000 CVTRSV07 EQU CVTFLGS1 04412000 CVTRSV06 EQU CVTFLGS1 04413000 CVTRSV05 EQU CVTFLGS1 04414000 CVTRSV04 EQU CVTFLGS1 04415000 CVTRSV03 EQU CVTFLGS1 04416000 CVTRSV02 EQU CVTFLGS1 04417000 CVTRSV01 EQU CVTFLGS1 04418000 CVTDMPLK EQU CVTFLGS1 04419000 CVTXITP EQU CVTMAP+68 04420000 CVTZDTAB EQU CVTMAP+64 04421000 CVTMSLT EQU CVTMAP+60 04422000 CVTDATE EQU CVTMAP+56 04423000 CVTBTERM EQU CVTMAP+52 04424000 CVTSYSAD EQU CVTMAP+48 04425000 CVTXTLER EQU CVTMAP+44 04426000 CVTILK2 EQU CVTMAP+40 04427000 CVTILK1 EQU CVTMAP+36 04428000 CVTPRLTV EQU CVTMAP+32 04429000 CVTPCNVT EQU CVTMAP+28 04430000 CVT0VL00 EQU CVTMAP+24 04431000 CVTXAPG EQU CVTMAP+20 04432000 CVTBUF EQU CVTMAP+16 04433000 CVTJOB EQU CVTMAP+12 04434000 CVTLINK EQU CVTMAP+8 04435000 CVT0EF00 EQU CVTMAP+4 04436000 CVTTCBP EQU CVTMAP 04437000 CVT EQU CVTMAP 04438000 @NM00035 EQU PSA+3668 04439000 PSASTAK EQU PSA+3072 04440000 @NM00034 EQU PSA+1048 04441000 PSAUSEND EQU PSA+1048 04442000 PSARV062 EQU PSA+1044 04443000 PSACDAL EQU PSA+1040 04444000 PSAWTCOD EQU PSA+1036 04445000 PSAATCVT EQU PSA+1032 04446000 PSAPCPSW EQU PSA+1024 04447000 PSAPIR2 EQU PSA+1020 04448000 PSARV059 EQU PSA+1018 04449000 PSASVC13 EQU PSA+1016 04450000 PSASFACC EQU PSA+1008 04451000 PSASTOP EQU PSA+992 04452000 PSASTART EQU PSA+976 04453000 PSARSPSW EQU PSA+968 04454000 PSASRPSW EQU PSA+960 04455000 PSARV045 EQU PSA+892 04456000 PSARV044 EQU PSA+888 04457000 PSARV043 EQU PSA+884 04458000 PSARV042 EQU PSA+880 04459000 PSARV041 EQU PSA+876 04460000 PSARV040 EQU PSA+872 04461000 PSARV025 EQU PSA+868 04462000 PSADSSED EQU PSA+868 04463000 PSADSSPR EQU PSA+864 04464000 PSADSSFW EQU PSA+860 04465000 PSADSS14 EQU PSA+856 04466000 PSADSSPP EQU PSA+848 04467000 PSADSSRP EQU PSA+840 04468000 PSADSS05 EQU PSADSSF4 04469000 PSADSS10 EQU PSADSSF4 04470000 PSADSSVE EQU PSADSSF4 04471000 PSADSSDE EQU PSADSSF4 04472000 PSADSSC0 EQU PSADSSF4 04473000 PSADSSIE EQU PSADSSF4 04474000 PSADSS12 EQU PSADSSF4 04475000 PSADSSRC EQU PSADSSF4 04476000 PSARV057 EQU PSADSSF3 04477000 PSARV056 EQU PSADSSF3 04478000 PSARV055 EQU PSADSSF3 04479000 PSADSSMC EQU PSADSSF3 04480000 PSADSSRW EQU PSADSSF3 04481000 PSADSSNM EQU PSADSSF3 04482000 PSADSSES EQU PSADSSF3 04483000 PSADSSGP EQU PSADSSF3 04484000 PSADSSF2 EQU PSADSSFL+1 04485000 PSADSSPI EQU PSADSSF1 04486000 PSADSSOI EQU PSADSSF1 04487000 PSADSSSP EQU PSADSSF1 04488000 PSADSSTP EQU PSADSSF1 04489000 PSADSSDW EQU PSADSSF1 04490000 PSADSSDD EQU PSADSSF1 04491000 PSADSSDM EQU PSADSSF1 04492000 PSADSSMV EQU PSADSSF1 04493000 PSADSSTS EQU PSA+816 04494000 PSADSSWK EQU PSA+812 04495000 PSADSSR3 EQU PSA+808 04496000 PSADSSR2 EQU PSA+804 04497000 PSADSSRS EQU PSA+800 04498000 PSASTOR EQU PSA+796 04499000 PSACPUSA EQU PSA+794 04500000 PSAVSTAP EQU PSA+792 04501000 PSAWKVAP EQU PSA+788 04502000 PSAWKRAP EQU PSA+784 04503000 PSAMCHIC EQU PSA+783 04504000 PSARV061 EQU PSA+782 04505000 PSASYMSK EQU PSA+781 04506000 PSAMCHFL EQU PSA+780 04507000 PSACR0 EQU PSA+776 04508000 PSAPSWSV EQU PSA+768 04509000 PSACLHS EQU PSAHLHI 04510000 PSALKR15 EQU PSALKSA+60 04511000 PSALKR14 EQU PSALKSA+56 04512000 PSALKR13 EQU PSALKSA+52 04513000 PSALKR12 EQU PSALKSA+48 04514000 PSALKR11 EQU PSALKSA+44 04515000 PSALKR10 EQU PSALKSA+40 04516000 PSALKR9 EQU PSALKSA+36 04517000 PSALKR8 EQU PSALKSA+32 04518000 PSALKR7 EQU PSALKSA+28 04519000 PSALKR6 EQU PSALKSA+24 04520000 PSALKR5 EQU PSALKSA+20 04521000 PSALKR4 EQU PSALKSA+16 04522000 PSALKR3 EQU PSALKSA+12 04523000 PSALKR2 EQU PSALKSA+8 04524000 PSALKR1 EQU PSALKSA+4 04525000 PSALKR0 EQU PSALKSA 04526000 PSARV023 EQU PSACLHT+52 04527000 PSALOCAL EQU PSACLHT+48 04528000 PSACMSL EQU PSACLHT+44 04529000 PSAOPTL EQU PSACLHT+40 04530000 PSATPACL EQU PSACLHT+36 04531000 PSATPDNL EQU PSACLHT+32 04532000 PSATPNCL EQU PSACLHT+28 04533000 PSAIOSLL EQU PSACLHT+24 04534000 PSAIOSUL EQU PSACLHT+20 04535000 PSAIOSCL EQU PSACLHT+16 04536000 PSAIOSSL EQU PSACLHT+12 04537000 PSASALCL EQU PSACLHT+8 04538000 PSAASML EQU PSACLHT+4 04539000 PSADISPL EQU PSACLHT 04540000 PSASRSA EQU PSA+636 04541000 PSARV050 EQU PSA+634 04542000 PSADSSGO EQU PSA+633 04543000 PSARECUR EQU PSA+632 04544000 PSAHLHIS EQU PSA+628 04545000 PSAIPCSA EQU PSA+624 04546000 @NM00033 EQU PSA+621 04547000 PSAIPCDM EQU PSA+620 04548000 PSAIPCD EQU PSA+616 04549000 @NM00032 EQU PSA+613 04550000 PSAIPCRM EQU PSA+612 04551000 PSAIPCR EQU PSA+608 04552000 PSAMCHEX EQU PSA+600 04553000 PSAMPSW EQU PSA+592 04554000 PSAEXPS2 EQU PSA+584 04555000 PSAEXPS1 EQU PSA+576 04556000 PSAPIREG EQU PSA+572 04557000 PSARSREG EQU PSA+568 04558000 PSAGPREG EQU PSA+556 04559000 PSARV022 EQU PSASUP4 04560000 PSARV021 EQU PSASUP4 04561000 PSARV020 EQU PSASUP4 04562000 PSARV019 EQU PSASUP4 04563000 PSARV018 EQU PSASUP4 04564000 PSARV017 EQU PSASUP4 04565000 PSARV016 EQU PSASUP4 04566000 PSARV015 EQU PSASUP4 04567000 PSARV014 EQU PSASUP3 04568000 PSARV013 EQU PSASUP3 04569000 PSARV012 EQU PSASUP3 04570000 PSARV011 EQU PSASUP3 04571000 PSASPR EQU PSASUP3 04572000 PSAPSREG EQU PSASUP3 04573000 PSAPI2 EQU PSASUP3 04574000 PSAIOSUP EQU PSASUP3 04575000 PSALCR EQU PSASUP2 04576000 PSARTM EQU PSASUP2 04577000 PSAACR EQU PSASUP2 04578000 PSAIPCE2 EQU PSASUP2 04579000 PSAIPCES EQU PSASUP2 04580000 PSAIPCEC EQU PSASUP2 04581000 PSAGTF EQU PSASUP2 04582000 PSAIPCRI EQU PSASUP2 04583000 PSARV063 EQU PSASUP1 04584000 PSATCTL EQU PSASUP1 04585000 PSADISP EQU PSASUP1 04586000 PSALOCK EQU PSASUP1 04587000 PSAPI EQU PSASUP1 04588000 PSAEXT EQU PSASUP1 04589000 PSASVC EQU PSASUP1 04590000 PSAIO EQU PSASUP1 04591000 PSAAOLD EQU PSA+548 04592000 PSAANEW EQU PSA+544 04593000 PSATOLD EQU PSA+540 04594000 PSATNEW EQU PSA+536 04595000 PSALCCAR EQU PSA+532 04596000 PSALCCAV EQU PSA+528 04597000 PSAPCCAR EQU PSA+524 04598000 PSAPCCAV EQU PSA+520 04599000 PSACPULA EQU PSA+518 04600000 PSAPSA EQU PSA+512 04601000 FLCHDEND EQU PSA+512 04602000 FLCCRSAV EQU FLCMCLA+280 04603000 FLCGRSAV EQU FLCMCLA+216 04604000 FLCFPSAV EQU FLCMCLA+184 04605000 FLCFLA EQU FLCMCLA+88 04606000 FLCRGNCD EQU FLCMCLA+84 04607000 FLCFSAA EQU FLCFSA+1 04608000 @NM00031 EQU FLCFSA 04609000 @NM00030 EQU FLCMCLA+72 04610000 FLCMCIC EQU FLCMCLA+64 04611000 @NM00029 EQU FLCMCLA+20 04612000 FLCIOAA EQU FLCIOA+1 04613000 @NM00028 EQU FLCIOA 04614000 @NM00027 EQU FLCMCLA+15 04615000 @NM00026 EQU FLCMCLA+14 04616000 @NM00025 EQU FLCMCLA+12 04617000 FLCLCL EQU FLCMCLA+8 04618000 FLCIOELA EQU FLCIOEL+1 04619000 @NM00024 EQU FLCIOEL 04620000 FLCCHNID EQU FLCMCLA 04621000 @NM00023 EQU PSA+160 04622000 FLCMTRCD EQU PSA+157 04623000 @NM00022 EQU PSA+156 04624000 FLCPERA EQU FLCPER+1 04625000 @NM00021 EQU FLCPER 04626000 @NM00020 EQU PSA+151 04627000 FLCPERCD EQU PSA+150 04628000 FLCMCNUM EQU PSA+149 04629000 @NM00019 EQU PSA+148 04630000 FLCTEAA EQU FLCTEA+1 04631000 @NM00018 EQU FLCTEA 04632000 PSAPIPC EQU PSAPICOD 04633000 PSAPIMC EQU PSAPICOD 04634000 PSAPIPER EQU PSAPICOD 04635000 PSARV049 EQU FLCPICOD 04636000 FLCPILCB EQU FLCPIILC 04637000 @NM00017 EQU FLCPIILC 04638000 @NM00016 EQU PSAEPPSW 04639000 FLCSVCN EQU PSAESPSW+2 04640000 FLCSILCB EQU FLCSVILC 04641000 @NM00015 EQU FLCSVILC 04642000 @NM00014 EQU PSAESPSW 04643000 FLCEICOD EQU PSAEEPSW+2 04644000 PSASPAD EQU PSAEEPSW 04645000 @NM00013 EQU PSA+128 04646000 FLCINPSW EQU PSA+120 04647000 FLCMNPSW EQU PSA+112 04648000 FLCPNPSW EQU PSA+104 04649000 FLCSNPSW EQU PSA+96 04650000 FLCENPSW EQU PSA+88 04651000 FLCTRACE EQU PSA+84 04652000 FLCTIMER EQU PSA+80 04653000 FLCCVT2 EQU PSA+76 04654000 FLCCAW EQU PSA+72 04655000 FLCCSW EQU PSA+64 04656000 FLCIOPSW EQU PSA+56 04657000 FLCMOPSW EQU PSA+48 04658000 FLCPOPSW EQU PSA+40 04659000 FLCSOPSW EQU PSA+32 04660000 FLCEOPSW EQU PSA+24 04661000 @NM00012 EQU FLCICCW2+4 04662000 FLCCVT EQU FLCICCW2 04663000 FLCICCW1 EQU FLCROPSW 04664000 FLCIPPSW EQU FLCRNPSW 04665000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04666000 @RC00540 EQU @RC00538 04667000 RESET# EQU @RC00538 04668000 RESET2# EQU @RC00656 04669000 @RT00727 EQU @RC00717 04670000 RESET2@ EQU @PB00002 04671000 CONTACT# EQU @RC00540 04672000 @ENDDATA EQU * 04673000 END ISTZEFBA,(C'PLS1202',0603,78145) 04674000