TITLE 'ISTZBFFB/AFB-VS1/MFB-VS2 - RESET LCCW PROCESSOR *00001000 ' 00002000 ISTZBFFB CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTZBFFB 78.034' 0001 00008000 DROP @15 00009000 @PROLOG DS 0H 0002 00010000 * 0507 00011000 * /*****************************************************************/ 00012000 * /* */ 00013000 * /* @XL03HEK*/ 00014000 * /* */ 00015000 * /*****************************************************************/ 00016000 * 0508 00017000 */* TPZSAVE (8,12,14) BASE AC(BCFB) */ 00018000 * 0508 00019000 * DO; 0508 00020000 * RFY 0509 00021000 * (GPR01P, 0509 00022000 * GPR12P, 0509 00023000 * GPR13P, 0509 00024000 * GPR14P) RSTD; 0509 00025000 * GEN(PRINT OFF); 0510 00026000 * 0510 00027000 PRINT OFF 00028000 */* ATBUILD (ISTZSAVE) */ 00029000 */* END OF ATBUILD */ 00030000 * 0511 00031000 * GEN(PRINT ON); 0511 00032000 PRINT ON 00033000 * RFY 0512 00034000 * ISTZSAVE BASED(GPR13P); 0512 00035000 * GEN SETS(ZSAZSVVR)(STM 8,12,ZSAZSVVR+4(13)); 0513 00036000 STM 8,12,ZSAZSVVR+4(13) 00037000 * GEN SETS(GPR12P); 0514 00038000 BALR GPR12P,0 00039000 @TSTART DS 0H 00040000 USING @TSTART,GPR12P 00041000 * GEN(PRINT OFF); 0515 00042000 * 0515 00043000 PRINT OFF 00044000 */* ATBUILD (ISTZCRR,ISTRPH,ISTCRA) EJECT(NO) */ 00045000 */* END OF ATBUILD */ 00046000 * 0516 00047000 * GEN(PRINT ON); 0516 00048000 PRINT ON 00049000 * GPR01P->RPHCRR->CRACRR->ZCREBCFB='1'B; 0517 00050000 L @15,RPHCRR(,GPR01P) 0517 00051000 L @15,CRACRR(,@15) 0517 00052000 OI ZCREBCFB(@15),B'01000000' 0517 00053000 * ZSAZACTV='1'B; 0518 00054000 OI ZSAZACTV(GPR13P),B'10000000' 0518 00055000 * ZSAZTRAC='BCFB'; 0519 00056000 MVC ZSAZTRAC(4,GPR13P),@CC04217 0519 00057000 * ZSAZSVRR=GPR14P; 0520 00058000 ST GPR14P,ZSAZSVRR(,GPR13P) 0520 00059000 * GPR13P=ZSAZSVFC; 0521 00060000 L GPR13P,ZSAZSVFC(,GPR13P) 0521 00061000 * RFY 0522 00062000 * (GPR01P) UNRSTD; 0522 00063000 * RFY 0523 00064000 * (GPR14P) UNRSTD; 0523 00065000 * END; 0524 00066000 * 0524 00067000 */* END TPZSAVE */ 00068000 * 0525 00069000 * ZCRREG=CRACRR; /* INITIALIZE ZCR BASE */ 00070000 L @15,RPHCRR(,RPHREG) 0525 00071000 L ZCRREG,CRACRR(,@15) 0525 00072000 */* SEGMENT(BFFB005)REQUEST */ 00073000 * 0526 00074000 * DO; 0526 00075000 * GOTO BFFB005; 0527 00076000 B BFFB005 0527 00077000 *BFFB005#: 0528 00078000 * END; /* CALL ANALYSIS ROUTINE */ 00079000 BFFB005# DS 0H 0529 00080000 * IF ZCRRCDSV=0 THEN /* OKAY TO PROCEED? */ 00081000 CLI ZCRRCDSV(ZCRREG),0 0529 00082000 BNE @RF00529 0529 00083000 * DO; 0530 00084000 * FMCZF017='0'B; /* TURN OFF SCHEDQ LOCK */ 00085000 NI FMCZF017(FMCBREG),B'11111110' 0531 00086000 * FMCZF022='1'B; /* TURN ON DELAYED SCHDQ LOCK */ 00087000 OI FMCZF022(FMCBREG),B'00001000' 0532 00088000 * FMCZF010='0'B; /* TURN OFF RESET IN PROGRESS AND 00089000 * SUSPENDED @XM07181*/ 00090000 * 0533 00091000 NI FMCZF010(FMCBREG),B'01111111' 0533 00092000 * /*************************************************************/ 00093000 * /* */ 00094000 * /* SEGMENT(BFFB010)REQUEST */ 00095000 * /* */ 00096000 * /*************************************************************/ 00097000 * 0534 00098000 * DO; 0534 00099000 * GOTO BFFB010; 0535 00100000 B BFFB010 0535 00101000 *BFFB010#: 0536 00102000 * END; /* CALL LCCW PROCESSOR */ 00103000 BFFB010# DS 0H 0537 00104000 * END; 0537 00105000 * ELSE 0538 00106000 * ; 0538 00107000 @RF00529 DS 0H 0539 00108000 * IF ZCRRCDSV=4 THEN /* ERROR EXIT? */ 00109000 CLI ZCRRCDSV(ZCRREG),4 0539 00110000 BNE @RF00539 0539 00111000 * CALL ATCZPSVT->ZPSZBFZ0; /* INVALID LCPB RECOVERY RTN */ 00112000 L @14,ATCZPSVT(,VTCVTREG) 0540 00113000 L @15,ZPSZBFZ0(,@14) 0540 00114000 BALR @14,@15 0540 00115000 * ELSE /* NO ERROR EXIT @XL03HEK*/ 00116000 * DO; 0541 00117000 B @RC00539 0541 00118000 @RF00539 DS 0H 0542 00119000 * ZCRCNLXL=ON; /* SET ON END OF TRANSLATION 0542 00120000 * @XL03HEK*/ 00121000 OI ZCRCNLXL(ZCRREG),B'00000001' 0542 00122000 * IF(ZCRRCDSV=0)|(ZCRRCDSV=12) THEN/* NORMAL EXIT? */ 00123000 CLI ZCRRCDSV(ZCRREG),0 0543 00124000 BE @RT00543 0543 00125000 CLI ZCRRCDSV(ZCRREG),12 0543 00126000 BE @RT00543 0543 00127000 * ; /* YES */ 00128000 * ELSE /* NOT NORMAL EXIT */ 00129000 * DO; 0545 00130000 * FMCZF010=ON; /* SET RESET IN PROGRESS */ 00131000 OI FMCZF010(FMCBREG),B'10000000' 0546 00132000 * LSCLCPBA->LCPSTYPE=0; /* CLEAR RESET LCPB SUBTYPE FIELD 00133000 * @XM07181*/ 00134000 L @15,LSCLCPBA(,LCPBREG) 0547 00135000 MVI LCPSTYPE(@15),X'00' 0547 00136000 * ZCRPCOD1=0; /* SET CODES FOR LSCB */ 00137000 MVI ZCRPCOD1(ZCRREG),X'00' 0548 00138000 * ZCRPLSCB=ON; /* DEALLOCATION */ 00139000 OI ZCRPLSCB(ZCRREG),B'00001000' 0549 00140000 * CALL ATCZPSVT->ZPSZDFB0;/* CALL DEALLOCATION RTN */ 00141000 L @14,ATCZPSVT(,VTCVTREG) 0550 00142000 L @15,ZPSZDFB0(,@14) 0550 00143000 BALR @14,@15 0550 00144000 * FMCZF001=ON; /* SET ON BTU ALLOCATION REQUIRED 00145000 * @XM06126*/ 00146000 OI FMCZF001(FMCBREG),B'10000000' 0551 00147000 * ZCRENDPR=ON; /* SET IMMMEDIATE EXIT FROM 0552 00148000 * OUTBOUND */ 00149000 * ZCRENDSH=ON; 0553 00150000 OI ZCRENDPR(ZCRREG),B'10100000' 0553 00151000 * END; 0554 00152000 * END; 0555 00153000 * 0555 00154000 @RT00543 DS 0H 0556 00155000 */* TPZRETN */ 00156000 * 0556 00157000 * DO; 0556 00158000 @RC00539 DS 0H 0557 00159000 * RFY 0557 00160000 * (GPR08P, 0557 00161000 * GPR14P, 0557 00162000 * GPR15P) RSTD; 0557 00163000 * GPR13P=ZSAZSVBC; 0558 00164000 L GPR13P,ZSAZSVBC(,GPR13P) 0558 00165000 * IF GPR13P=0 THEN 0559 00166000 LTR GPR13P,GPR13P 0559 00167000 BZ @RT00559 0559 00168000 * ; /* TPDVTS ISTZFARR */ 00169000 * ELSE 0561 00170000 * GPR14P=ZSAZSVRR; 0561 00171000 L GPR14P,ZSAZSVRR(,GPR13P) 0561 00172000 * GEN REFS(ZSAZSVVR)(LM 8,12,ZSAZSVVR+4(13)); 0562 00173000 @RT00559 DS 0H 0562 00174000 LM 8,12,ZSAZSVVR+4(13) 00175000 * GEN REFS(GPR14P) EXIT NOSEQFLOW(BR GPR14P); 0563 00176000 BR GPR14P 00177000 * RFY 0564 00178000 * (GPR08P, 0564 00179000 * GPR14P, 0564 00180000 * GPR15P) UNRSTD; 0564 00181000 * END; 0565 00182000 * 0565 00183000 */* END TPZRETN */ 00184000 * 0566 00185000 * 0566 00186000 */* SEGMENT(BFFB005)START */ 00187000 * 0566 00188000 * DO; 0566 00189000 * GOTO BFFB005@; 0567 00190000 *BFFB005: 0568 00191000 * END; 0568 00192000 * 0568 00193000 BFFB005 DS 0H 0569 00194000 */* */ 00195000 */* IF DIALOGUE SCHEDULING IS IN PROGRESS, THE RETURN CODE IS */ 00196000 */* SET FOR IMMEDIATE EXIT FROM OUTBOUND. OTHERWISE, THE RESET */ 00197000 */* REQUEST IS ANALYZED FOR ERRORS, PASSING A RETURN CODE TO THE */ 00198000 */* THE MAINLINE TO CONTINUE, HANDLE AS ERROR, OR IMMEDIATE EXIT. */ 00199000 */* */ 00200000 * 0569 00201000 * ZCRRCDSV=0; /* SET OK TO PROCEED @XL03HEK*/ 00202000 MVI ZCRRCDSV(ZCRREG),X'00' 0569 00203000 * IF(DNCZF002=ON|(DNCDISC=ON& /* DIALOG SCHED OR DISC IN PRO */ 00204000 * (FMCLCPB2->LCPNXLCW->LCCWOP=LD|/* STAND ALONE DISCON @ZA27020*/ 00205000 * FMCLCPB2->LCPNXLCW->LCCWOP=LDEC)))/* OUTSTANDING @ZA27020*/ 00206000 * &FMCCONF=OFF /* AND FMCB NOT SICK? @ZA27020*/ 00207000 * &LSCLCPBA->LCPINTER=OFF /* & NOT INTERNAL REQ @ZA27019*/ 00208000 * &FMCMODE^=FMCPSOL THEN /* & NOT PORT SOLICTOR@ZA27019 */ 00209000 TM DNCZF002(DNCBREG),B'00000010' 0570 00210000 BO @GL00004 0570 00211000 TM DNCDISC(DNCBREG),B'00001000' 0570 00212000 BNO @RF00570 0570 00213000 L @15,FMCLCPB2-1(,FMCBREG) 0570 00214000 LA @15,0(,@15) 0570 00215000 L @15,LCPNXLCW(,@15) 0570 00216000 CLI LCCWOP(@15),X'23' 0570 00217000 BE @GL00004 0570 00218000 CLI LCCWOP(@15),X'33' 0570 00219000 BNE @RF00570 0570 00220000 @GL00004 TM FMCCONF(FMCBREG),B'00000001' 0570 00221000 BNZ @RF00570 0570 00222000 L @15,LSCLCPBA(,LCPBREG) 0570 00223000 TM LCPINTER(@15),B'01000000' 0570 00224000 BNZ @RF00570 0570 00225000 CLC FMCMODE(8,FMCBREG),@CC03177 0570 00226000 BE @RF00570 0570 00227000 * ZCRRCDSV=8; /* IMMEDIATE EXIT */ 00228000 MVI ZCRRCDSV(ZCRREG),X'08' 0571 00229000 * ELSE 0572 00230000 * DO; 0572 00231000 B @RC00570 0572 00232000 @RF00570 DS 0H 0573 00233000 * IF LCCWOP=LXEL THEN /* IS LCCW RESET ERROR LOCK */ 00234000 L @15,LCPNXLCW(,LCPBREG) 0573 00235000 CLI LCCWOP(@15),X'0B' 0573 00236000 BNE @RF00573 0573 00237000 * IF FMCZF011=ON THEN /* RESET PROHIBITED */ 00238000 TM FMCZF011(FMCBREG),B'01000000' 0574 00239000 BNO @RF00574 0574 00240000 * DO; 0575 00241000 * LCPZRT01=ON; /* SET ERROR FLAG IN LCPB */ 00242000 OI LCPZRT01(LCPBREG),B'01000000' 0576 00243000 * LCPMNRCD=FRMRELNP; /* SET ERROR CODE */ 00244000 MVI LCPMNRCD(LCPBREG),X'B2' 0577 00245000 * ZCRRCDSV=4; /* ERROR EXIT */ 00246000 MVI ZCRRCDSV(ZCRREG),X'04' 0578 00247000 * END; 0579 00248000 * ELSE 0580 00249000 * ; /* @XL03HEK*/ 00250000 @RF00574 DS 0H 0581 00251000 * ELSE 0581 00252000 * ; 0581 00253000 @RF00573 DS 0H 0582 00254000 * END; 0582 00255000 * IF ZCRRCDSV=0 THEN /* OKAY TO PROCEED? @XL03HEK*/ 00256000 @RC00570 CLI ZCRRCDSV(ZCRREG),0 0583 00257000 BNE @RF00583 0583 00258000 * IF LSCLCPBA->LCPINTER=ON THEN /* INTERNAL REQ @XM8886K*/ 00259000 L @15,LSCLCPBA(,LCPBREG) 0584 00260000 TM LCPINTER(@15),B'01000000' 0584 00261000 BNO @RF00584 0584 00262000 * ZCRTSW1=ON; /* SET 'SICK FLAG' @XM8886K*/ 00263000 OI ZCRTSW1(ZCRREG),B'10000000' 0585 00264000 * ELSE /* NOT INTERNAL @XM8886K*/ 00265000 * DO; /* YES @XL03HEK*/ 00266000 B @RC00584 0586 00267000 @RF00584 DS 0H 0587 00268000 * ZCRTSW1=OFF; /* SET SWITCH FOR NO 370X SICK 0587 00269000 * @XL03HEK*/ 00270000 NI ZCRTSW1(ZCRREG),B'01111111' 0587 00271000 * WRKREG9=ICNCBREG; /* GET ICNCB POINTER FOR LOOP TO 00272000 * FOLLOW @XL03HEK*/ 00273000 LR WRKREG9,ICNCBREG 0588 00274000 * DO WHILE((WRKREG9^=0)&(ZCRTSW1=OFF));/* DETERMINE IF ANY 0589 00275000 * 370X IS SICK @XL03HEK*/ 00276000 B @DE00589 0589 00277000 @DL00589 DS 0H 0590 00278000 * IF WRKREG9->NCBCONF=ON THEN/* IS THIS 370X SICK? @XL03HEK*/ 00279000 TM NCBCONF(WRKREG9),B'01000000' 0590 00280000 BNO @RF00590 0590 00281000 * ZCRTSW1=ON; /* SET THE SWITCH TO INDICATE 0591 00282000 * THIS @XL03HEK*/ 00283000 OI ZCRTSW1(ZCRREG),B'10000000' 0591 00284000 * ELSE /* THIS 370X NOT SICK @XL03HEK*/ 00285000 * WRKREG9=WRKREG9->NCBNSNA;/* GET NEXT ICNCB ADDR@XL03HEK*/ 00286000 B @RC00590 0592 00287000 @RF00590 L WRKREG9,NCBNSNA(,WRKREG9) 0592 00288000 * END; /* END DO WHILE LOOP @XL03HEK*/ 00289000 @RC00590 DS 0H 0593 00290000 @DE00589 LTR WRKREG9,WRKREG9 0593 00291000 BZ @DC00589 0593 00292000 TM ZCRTSW1(ZCRREG),B'10000000' 0593 00293000 BZ @DL00589 0593 00294000 @DC00589 DS 0H 0594 00295000 * END; /* END SICK CHECK @XL03HEK*/ 00296000 * ELSE 0595 00297000 * ; /* NOT OKAY TO PRCEED @XL03HEK*/ 00298000 @RF00583 DS 0H 0596 00299000 */* SEGMENT(BFFB005)FINISH */ 00300000 * 0596 00301000 * DO; 0596 00302000 @RC00583 DS 0H 0597 00303000 * GOTO BFFB005#; 0597 00304000 B BFFB005# 0597 00305000 *BFFB005@: 0598 00306000 * END; 0598 00307000 BFFB005@ DS 0H 0599 00308000 * 0599 00309000 */* SEGMENT(BFFB010)START */ 00310000 * 0599 00311000 * DO; 0599 00312000 * GOTO BFFB010@; 0600 00313000 B BFFB010@ 0600 00314000 *BFFB010: 0601 00315000 * END; 0601 00316000 * 0601 00317000 BFFB010 DS 0H 0602 00318000 */* */ 00319000 */* THE LCCW IS TESTED TO DETERMINE THE TYPE OF RESET */ 00320000 */* ISSUED. THE APPROPRIATE SUBROUTINE IS CALLED TO PROCESS */ 00321000 */* THE REQUEST. IF THE REQUEST IS INVALID, ERROR FLAGS ARE */ 00322000 */* SET IN THE LCPB AND AN ERROR RETURN CODE PASSED TO THE */ 00323000 */* MAINLINE. */ 00324000 */* */ 00325000 * 0602 00326000 * IF LCCWOP=LXC THEN /* RESET CONDITIONAL? */ 00327000 * 0602 00328000 L @15,LCPNXLCW(,LCPBREG) 0602 00329000 CLI LCCWOP(@15),X'1B' 0602 00330000 BNE @RF00602 0602 00331000 * /***************************************************************/ 00332000 * /* */ 00333000 * /* SEGMENT(BFFB040)REQUEST */ 00334000 * /* */ 00335000 * /***************************************************************/ 00336000 * 0603 00337000 * DO; 0603 00338000 * GOTO BFFB040; 0604 00339000 B BFFB040 0604 00340000 *BFFB040#: 0605 00341000 * END; 0605 00342000 * ELSE 0606 00343000 * IF LCCWOP=LXEL THEN /* RESET ERROR LOCK? */ 00344000 B @RC00602 0606 00345000 @RF00602 L @15,LCPNXLCW(,LCPBREG) 0606 00346000 CLI LCCWOP(@15),X'0B' 0606 00347000 BNE @RF00606 0606 00348000 * DO; /* @XL03HEK*/ 00349000 * 0607 00350000 * /***********************************************************/ 00351000 * /* */ 00352000 * /* SEGMENT(BFFB020)REQUEST */ 00353000 * /* */ 00354000 * /***********************************************************/ 00355000 * 0608 00356000 * DO; 0608 00357000 * GOTO BFFB020; 0609 00358000 B BFFB020 0609 00359000 *BFFB020#: 0610 00360000 * END; 0610 00361000 BFFB020# DS 0H 0611 00362000 * CALL BFFB015; /* TPSCHED IF BTU MADE@XL03HEK */ 00363000 BAL @14,BFFB015 0611 00364000 * END; /* @XL03HEK*/ 00365000 * ELSE /* NOT RESET ERR LOCK @XL03HEK*/ 00366000 * DO; /* CHECK RESET IMMED @XM05917*/ 00367000 B @RC00606 0613 00368000 @RF00606 DS 0H 0614 00369000 * IF LCCWOP=LXI&((FMCMODE=FMCPSOL|DNCZF006=OFF)&DNCPSOL=ON) 00370000 * THEN /* RESET IMMED AND PORT SOLICITOR 00371000 * OR 1'ST TIME ON DIAL IN 0614 00372000 * @XA06938*/ 00373000 L @15,LCPNXLCW(,LCPBREG) 0614 00374000 CLI LCCWOP(@15),X'2B' 0614 00375000 BNE @RF00614 0614 00376000 CLC FMCMODE(8,FMCBREG),@CC03177 0614 00377000 BE @GL00010 0614 00378000 TM DNCZF006(DNCBREG),B'00100000' 0614 00379000 BNZ @RF00614 0614 00380000 @GL00010 TM DNCPSOL(DNCBREG),B'00001000' 0614 00381000 BNO @RF00614 0614 00382000 * DO; /* @XL03HEK*/ 00383000 * 0615 00384000 * /*******************************************************/ 00385000 * /* */ 00386000 * /* SEGMENT(BFFB045)REQUEST */ 00387000 * /* */ 00388000 * /*******************************************************/ 00389000 * 0616 00390000 * DO; 0616 00391000 * GOTO BFFB045; 0617 00392000 B BFFB045 0617 00393000 *BFFB045#: 0618 00394000 * END; /* PORT SOLIC RESET @XL03HEK*/ 00395000 BFFB045# DS 0H 0619 00396000 * END; /* @XL03HEK*/ 00397000 * ELSE 0620 00398000 * ; /* (NULL) @XM05917*/ 00399000 @RF00614 DS 0H 0621 00400000 * IF(LCCWOP=LXI)|(LCCWOP=LXEC)/* RESET IMMEDIATE */ 00401000 * |(LCCWOP=LXO& /* OR END OF COMMAND OR RESET */ 00402000 * FMCZF027=OFF) THEN /* ORDERLY AND NO DATA RECEIVED 00403000 * @XM09732*/ 00404000 L @15,LCPNXLCW(,LCPBREG) 0621 00405000 CLI LCCWOP(@15),X'2B' 0621 00406000 BE @RT00621 0621 00407000 CLI LCCWOP(@15),X'4B' 0621 00408000 BE @RT00621 0621 00409000 CLI LCCWOP(@15),X'5B' 0621 00410000 BNE @RF00621 0621 00411000 TM FMCZF027(FMCBREG),B'01000000' 0621 00412000 BNZ @RF00621 0621 00413000 @RT00621 DS 0H 0622 00414000 * DO; /* @XL03HEK*/ 00415000 * 0622 00416000 * /*******************************************************/ 00417000 * /* */ 00418000 * /* SEGMENT(BFFB050)REQUEST */ 00419000 * /* */ 00420000 * /*******************************************************/ 00421000 * 0623 00422000 * DO; 0623 00423000 * GOTO BFFB050; 0624 00424000 B BFFB050 0624 00425000 *BFFB050#: 0625 00426000 * END; /* PROCESS RESET IMMED OR EOC 0625 00427000 * @XL03HEK*/ 00428000 BFFB050# DS 0H 0626 00429000 * CALL BFFB015; /* TPSCHED IF BTU MADE@XL03HEK */ 00430000 BAL @14,BFFB015 0626 00431000 * END; /* @XL03HEK*/ 00432000 * ELSE 0628 00433000 * IF LCCWOP=LXO THEN /* RESET ORDERLY? */ 00434000 * 0628 00435000 B @RC00621 0628 00436000 @RF00621 L @15,LCPNXLCW(,LCPBREG) 0628 00437000 CLI LCCWOP(@15),X'5B' 0628 00438000 BNE @RF00628 0628 00439000 * /*******************************************************/ 00440000 * /* */ 00441000 * /* SEGMENT(BFFB030)REQUEST */ 00442000 * /* */ 00443000 * /*******************************************************/ 00444000 * 0629 00445000 * DO; 0629 00446000 * GOTO BFFB030; 0630 00447000 B BFFB030 0630 00448000 *BFFB030#: 0631 00449000 * END; 0631 00450000 * ELSE 0632 00451000 * DO; 0632 00452000 B @RC00628 0632 00453000 @RF00628 DS 0H 0633 00454000 * LCPZRT00=ON; /* SET ERROR FLAG IN LCPB */ 00455000 OI LCPZRT00(LCPBREG),B'10000000' 0633 00456000 * LCPMNRCD=FRMINVL; /* INVALID LCCW */ 00457000 MVI LCPMNRCD(LCPBREG),X'A3' 0634 00458000 * ZCRRCDSV=4; /* ERROR EXIT */ 00459000 MVI ZCRRCDSV(ZCRREG),X'04' 0635 00460000 * END; 0636 00461000 * END; /* END RESET IMMED @XM05917*/ 00462000 @RC00628 DS 0H 0637 00463000 @RC00621 DS 0H 0638 00464000 */* SEGMENT(BFFB010)FINISH */ 00465000 * 0638 00466000 * DO; 0638 00467000 @RC00606 DS 0H 0638 00468000 @RC00602 DS 0H 0639 00469000 * GOTO BFFB010#; 0639 00470000 B BFFB010# 0639 00471000 *BFFB010@: 0640 00472000 * END; 0640 00473000 * 0641 00474000 */* BFFB015 - THIS ROUTINE SCHEDULES THE DNCB TIP IF THE LSCB */ 00475000 */* BUFFER POINTER IS NON-NULL. */ 00476000 */* */ 00477000 */* THE S/D CODE FOR BFFB015 IS: ---------> @XL03HEK*/ 00478000 * 0641 00479000 *BFFB015: 0641 00480000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0641 00481000 B @PB00002 0641 00482000 BFFB015 DS 0H 0642 00483000 * RFY 0642 00484000 * RTNREG RSTD; 0642 00485000 * ZCRSVF7=RTNREG; /* SAVE RETURN ADDRESS */ 00486000 ST RTNREG,ZCRSVF7(,ZCRREG) 0643 00487000 * RFY 0644 00488000 * RTNREG UNRSTD; 0644 00489000 * IF LSCFDBA^=0 THEN /* ANY BUFFER? @XL03HEK*/ 00490000 L @15,LSCFDBA(,LCPBREG) 0645 00491000 LTR @15,@15 0645 00492000 BZ @RF00645 0645 00493000 */* TPSCHED (ADDR(DNCZC001)) NORM */ 00494000 * 0646 00495000 * DO; 0646 00496000 * RFY 0647 00497000 * (GPR00P, 0647 00498000 * GPR01P, 0647 00499000 * GPR05P) RSTD; 0647 00500000 * GEN REFS(GPR01P) SETS(RPHWORK) 0648 00501000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 0648 00502000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 00503000 * GPR00P=0; 0649 00504000 SLR GPR00P,GPR00P 0649 00505000 * GPR05P=ADDR(DNCZC001); 0650 00506000 LA GPR05P,DNCZC001(,DNCBREG) 0650 00507000 * CALL ATCLCPTR->ATCAP38->ISTAPC38; 0651 00508000 L @14,ATCLCPTR 0651 00509000 L @15,ATCAP38(,@14) 0651 00510000 BALR @14,@15 0651 00511000 * GEN(NOPR 0) 0652 00512000 * NOSETS NOREFS; 0652 00513000 NOPR 0 00514000 * RFY 0653 00515000 * (GPR00P, 0653 00516000 * GPR01P, 0653 00517000 * GPR05P) UNRSTD; 0653 00518000 * END; /* **** END TPSCHED YES, SCHEDULE 00519000 * THE DNCB TIP */ 00520000 * ELSE 0655 00521000 * ; /* NO, DO NOTHING */ 00522000 @RF00645 DS 0H 0656 00523000 * RFY 0656 00524000 * RTNREG RSTD; 0656 00525000 * RTNREG=ZCRSVF7; /* RESTORE RETURN ADDRESS */ 00526000 L RTNREG,ZCRSVF7(,ZCRREG) 0657 00527000 * RFY 0658 00528000 * RTNREG UNRSTD; 0658 00529000 * END BFFB015; 0659 00530000 @EL00002 DS 0H 0659 00531000 @EF00002 DS 0H 0659 00532000 @ER00002 BR @14 0659 00533000 @PB00002 DS 0H 0660 00534000 * 0660 00535000 */* SEGMENT(BFFB020)START */ 00536000 * 0660 00537000 * DO; 0660 00538000 * GOTO BFFB020@; 0661 00539000 B BFFB020@ 0661 00540000 *BFFB020: 0662 00541000 * END; 0662 00542000 * 0662 00543000 BFFB020 DS 0H 0663 00544000 */* */ 00545000 */* A RESET ERROR LOCK IS HANDLED BY GENERATING A FSB, */ 00546000 */* QUEUEING IT TO THE TIP, AND SCHEDULING THE TIP. THE SCHEDULE */ 00547000 */* QUEUE IS LOCKED AND I O SCHEDULING IS SUSPENDED. */ 00548000 */* */ 00549000 * 0663 00550000 * REG0=0; /* ZERO SWITCH */ 00551000 SLR REG0,REG0 0663 00552000 * IF ZCRTSW1=ON THEN 0664 00553000 TM ZCRTSW1(ZCRREG),B'10000000' 0664 00554000 BNO @RF00664 0664 00555000 * DO; /* A 370X IS ILL @XL03HEK*/ 00556000 * FMCZF002=ON; /* I/O SCHED SUSPENDED */ 00557000 OI FMCZF002(FMCBREG),B'01000000' 0666 00558000 * ZCRRCDSV=8; /* IMMEDIATE EXIT */ 00559000 MVI ZCRRCDSV(ZCRREG),X'08' 0667 00560000 * END; 0668 00561000 * ELSE /* NO 370X IS ILL @XL03HEK*/ 00562000 * DO; /* @XL03HEK*/ 00563000 B @RC00664 0669 00564000 @RF00664 DS 0H 0670 00565000 * IF FMCZH001=FMCZHF51 THEN /* ERROR RESCHEDULED? */ 00566000 CLC FMCZH001(2,FMCBREG),@CH03161 0670 00567000 BNE @RF00670 0670 00568000 * FMCZH001=FMCZHF41; /* NULL LINE STATE */ 00569000 MVC FMCZH001(2,FMCBREG),@CH03159 0671 00570000 * ELSE 0672 00571000 * DO; 0672 00572000 B @RC00670 0672 00573000 @RF00670 DS 0H 0673 00574000 * IF FMCZH001=FMCZHF71 THEN/* PHYSICAL ERROR? */ 00575000 CLC FMCZH001(2,FMCBREG),@CH03165 0673 00576000 BNE @RF00673 0673 00577000 * FMCZH001=FMCZHF31; /* NULL LINE STATE */ 00578000 SLR @15,@15 0674 00579000 STH @15,FMCZH001(,FMCBREG) 0674 00580000 * ELSE 0675 00581000 * IF FMCZH001=FMCZHF61 THEN/* LOGICAL ERROR? */ 00582000 B @RC00673 0675 00583000 @RF00673 CLC FMCZH001(2,FMCBREG),@CH03163 0675 00584000 BNE @RF00675 0675 00585000 * DO; 0676 00586000 * REG0=4; 0677 00587000 LA REG0,4 0677 00588000 * FMCZH001=FMCZHF31;/* NULL LINE STATE */ 00589000 SLR @15,@15 0678 00590000 STH @15,FMCZH001(,FMCBREG) 0678 00591000 * END; 0679 00592000 * ELSE 0680 00593000 * IF DNCZF001=ON THEN /* DNCB ERROR LOCK SET? */ 00594000 B @RC00675 0680 00595000 @RF00675 TM DNCZF001(DNCBREG),B'10000000' 0680 00596000 BO @RT00680 0680 00597000 * ; /* YES(SWITCH IS SET) @XM05920*/ 00598000 * ELSE /* DNCB ERROR LOCK NOT SET */ 00599000 * REG0=4; 0682 00600000 LA REG0,4 0682 00601000 * END; 0683 00602000 @RT00680 DS 0H 0683 00603000 @RC00675 DS 0H 0683 00604000 @RC00673 DS 0H 0684 00605000 * IF(REG0=0)&((DNCZV001=FMCBREG)|/* TO GEN BDU AND IS THIS */ 00606000 * DNCPSOL=ON) THEN /* ACTIVE FMCB OR DIALIN @XA06938*/ 00607000 @RC00670 LTR REG0,REG0 0684 00608000 BNZ @RF00684 0684 00609000 L @15,DNCZV001-1(,DNCBREG) 0684 00610000 LA @15,0(,@15) 0684 00611000 CR FMCBREG,@15 0684 00612000 BE @RT00684 0684 00613000 TM DNCPSOL(DNCBREG),B'00001000' 0684 00614000 BNO @RF00684 0684 00615000 @RT00684 DS 0H 0685 00616000 * DO; 0685 00617000 * CALL BFFBGBDU; /* GENERATE A BDU */ 00618000 BAL @14,BFFBGBDU 0686 00619000 * BDUMODIF=BMODZEM; /* RESET ERROR LOCK */ 00620000 MVI BDUMODIF+42(BFRREG),X'41' 0687 00621000 * END; 0688 00622000 * ELSE /* NOT TO GEN BDU OR THIS NOT 0689 00623000 * ACTIVE FMCB */ 00624000 * DO; 0689 00625000 B @RC00684 0689 00626000 @RF00684 DS 0H 0690 00627000 * PARAREG=BMODZEM; /* SET PARM TO RESET ERROR LOCK 00628000 * @XL03HEK*/ 00629000 LA PARAREG,65 0690 00630000 * CALL BFFBGFSB; /* GENERATE A FSB */ 00631000 BAL @14,BFFBGFSB 0691 00632000 * FMCZF002=ON; /* SUSPEND I O SCHEDULING */ 00633000 OI FMCZF002(FMCBREG),B'01000000' 0692 00634000 * END; 0693 00635000 * END; /* @XL03HEK*/ 00636000 @RC00684 DS 0H 0695 00637000 */* SEGMENT(BFFB020)FINISH */ 00638000 * 0695 00639000 * DO; 0695 00640000 @RC00664 DS 0H 0696 00641000 * GOTO BFFB020#; 0696 00642000 B BFFB020# 0696 00643000 *BFFB020@: 0697 00644000 * END; 0697 00645000 BFFB020@ DS 0H 0698 00646000 * 0698 00647000 */* SEGMENT(BFFB030)START */ 00648000 * 0698 00649000 * DO; 0698 00650000 * GOTO BFFB030@; 0699 00651000 B BFFB030@ 0699 00652000 *BFFB030: 0700 00653000 * END; 0700 00654000 * 0700 00655000 BFFB030 DS 0H 0701 00656000 */* */ 00657000 */* IF THIS FMCB IS THE ACTIVE ONE A RESET ORDERLY BDU IS */ 00658000 */* GENERATED AND QUEUED TO THE HEAD OF THE SCHEDULE QUEUE. */ 00659000 */* */ 00660000 * 0701 00661000 * IF FMCZF019=ON THEN /* RESET ORDERLY IN PROGRESS? */ 00662000 TM FMCZF019(FMCBREG),B'01000000' 0701 00663000 BNO @RF00701 0701 00664000 * DO; 0702 00665000 * LCPZRT01=ON; /* SET ERROR FLAG IN LSCB */ 00666000 OI LCPZRT01(LCPBREG),B'01000000' 0703 00667000 * LCPMNRCD=FRMRDIP; /* SET ERROR CODE */ 00668000 MVI LCPMNRCD(LCPBREG),X'A2' 0704 00669000 * ZCRRCDSV=4; /* ERROR EXIT */ 00670000 MVI ZCRRCDSV(ZCRREG),X'04' 0705 00671000 * END; 0706 00672000 * ELSE 0707 00673000 * DO; 0707 00674000 B @RC00701 0707 00675000 @RF00701 DS 0H 0708 00676000 * IF DNCZV001=FMCBREG THEN /* ACTIVE FMCB? */ 00677000 L @15,DNCZV001-1(,DNCBREG) 0708 00678000 LA @15,0(,@15) 0708 00679000 CR FMCBREG,@15 0708 00680000 BNE @RF00708 0708 00681000 * DO; 0709 00682000 * FMCZF019=ON; /* SET RESET IN PROGRESS */ 00683000 OI FMCZF019(FMCBREG),B'01000000' 0710 00684000 * CALL BFFBGBDU; /* GENERATE A BDU */ 00685000 BAL @14,BFFBGBDU 0711 00686000 * BDUMODIF=BMODZXO; /* RESET ORDERLY MODIFIER */ 00687000 LA @15,42 0712 00688000 ALR @15,BFRREG 0712 00689000 MVI BDUMODIF(@15),X'43' 0712 00690000 */* GET CORRECT FLAG NAME */ 00691000 * 0713 00692000 * BDUNACK='1'B; /* SUPPRESS INVITE */ 00693000 OI BDUNACK(@15),B'00000010' 0713 00694000 */* */ 00695000 * 0714 00696000 * END; 0714 00697000 * ELSE 0715 00698000 * DO; 0715 00699000 B @RC00708 0715 00700000 @RF00708 DS 0H 0716 00701000 * IF((FMCZH001=FMCZHF41)|(FMCZH001=FMCZHF51)) THEN/* FMCB 00702000 * LINE STATE RESCHEDULED OR 0716 00703000 * ERROR? @XL03HCQ*/ 00704000 CLC FMCZH001(2,FMCBREG),@CH03159 0716 00705000 BE @RT00716 0716 00706000 CLC FMCZH001(2,FMCBREG),@CH03161 0716 00707000 BNE @RF00716 0716 00708000 @RT00716 DS 0H 0717 00709000 * CALL PABDVTA->ZLBZIFVB;/* RESET CLEAN UP PHASE IV */ 00710000 L @14,PABDVTA+95(,FMCBREG) 0717 00711000 LA @14,0(,@14) 0717 00712000 L @15,ZLBZIFVB(,@14) 0717 00713000 BALR @14,@15 0717 00714000 * ELSE 0718 00715000 * DO; 0718 00716000 B @RC00716 0718 00717000 @RF00716 DS 0H 0719 00718000 * CALL PABDVTA->ZLBZIFSB;/* RESET CLEAN UP PHASE I */ 00719000 L @14,PABDVTA+95(,FMCBREG) 0719 00720000 LA @14,0(,@14) 0719 00721000 L @15,ZLBZIFSB(,@14) 0719 00722000 BALR @14,@15 0719 00723000 * CALL PABDVTA->ZLBZIFUB;/* RESET CLEAN UP PHASE III */ 00724000 L @14,PABDVTA+95(,FMCBREG) 0720 00725000 LA @14,0(,@14) 0720 00726000 L @15,ZLBZIFUB(,@14) 0720 00727000 BALR @14,@15 0720 00728000 * END; 0721 00729000 * PARAREG=BMODZXO; /* SET PARM TO RESET ORDERLY 0722 00730000 * @XL03HEK*/ 00731000 @RC00716 LA PARAREG,67 0722 00732000 * FMCZF018=ON; /* SET RESET ORDERLY COMPLETE 0723 00733000 * @XL03HCQ*/ 00734000 OI FMCZF018(FMCBREG),B'10000000' 0723 00735000 * CALL BFFBGFSB; /* GENERATE A FSB */ 00736000 BAL @14,BFFBGFSB 0724 00737000 * END; 0725 00738000 * ZCRRCDSV=0; /* SET OK TO PROCEED */ 00739000 @RC00708 MVI ZCRRCDSV(ZCRREG),X'00' 0726 00740000 * END; 0727 00741000 * 0727 00742000 */* SEGMENT(BFFB030)FINISH */ 00743000 * 0728 00744000 * DO; 0728 00745000 @RC00701 DS 0H 0729 00746000 * GOTO BFFB030#; 0729 00747000 B BFFB030# 0729 00748000 *BFFB030@: 0730 00749000 * END; 0730 00750000 BFFB030@ DS 0H 0731 00751000 * 0731 00752000 */* SEGMENT(BFFB040)START */ 00753000 * 0731 00754000 * DO; 0731 00755000 * GOTO BFFB040@; 0732 00756000 B BFFB040@ 0732 00757000 *BFFB040: 0733 00758000 * END; 0733 00759000 * 0733 00760000 BFFB040 DS 0H 0734 00761000 */* */ 00762000 */* A RESET CONDITIONAL BDU IS GENERATED AND QUEUED TO */ 00763000 */* THE HEAD OF THE SCHEDULE QUEUE IF THERE ARE ELEMENTS ON THE */ 00764000 */* WAIT QUEUE AND THE 370X IS OK. OTHERWISE, THE RESET */ 00765000 */* CLEANUP PHASES I AND III ARE CALLED TO PURGE THE WAIT QUEUE. */ 00766000 */* THE SCHEDULE QUEUE IS LOCKED, AND A FSB IS GENERATED AND QUEUED */ 00767000 */* TO THE TIP. */ 00768000 */* */ 00769000 * 0734 00770000 * IF DNCZF001=ON THEN /* DEVICE ERROR LOCK SET? */ 00771000 TM DNCZF001(DNCBREG),B'10000000' 0734 00772000 BNO @RF00734 0734 00773000 * DO; 0735 00774000 * LCPZRT00=ON; /* SET ERROR FLAG */ 00775000 OI LCPZRT00(LCPBREG),B'10000000' 0736 00776000 * LCPMNRCD=FRMRCDNP; /* ERROR CODE=RESET CONDITIONAL 00777000 * REJECTED-ERROR LOCK SET 0737 00778000 * @XL03HCH*/ 00779000 MVI LCPMNRCD(LCPBREG),X'29' 0737 00780000 * ZCRRCDSV=4; /* ERROR RETURN */ 00781000 MVI ZCRRCDSV(ZCRREG),X'04' 0738 00782000 * END; 0739 00783000 * ELSE 0740 00784000 * DO; 0740 00785000 B @RC00734 0740 00786000 @RF00734 DS 0H 0741 00787000 * FMCZX006=FMCZX006+1; /* INCREMENT RESET CT @XL03HEK*/ 00788000 LA @15,1 0741 00789000 SLR @14,@14 0741 00790000 IC @14,FMCZX006(,FMCBREG) 0741 00791000 ALR @15,@14 0741 00792000 STC @15,FMCZX006(,FMCBREG) 0741 00793000 * IF(FMCLCPB2=0)|ZCRTSW1=ON THEN/* WAIT QUEUE EMPTY OR 370X ILL 00794000 * @XL03HEK*/ 00795000 L @15,FMCLCPB2-1(,FMCBREG) 0742 00796000 LA @15,0(,@15) 0742 00797000 LTR @15,@15 0742 00798000 BZ @RT00742 0742 00799000 TM ZCRTSW1(ZCRREG),B'10000000' 0742 00800000 BNO @RF00742 0742 00801000 @RT00742 DS 0H 0743 00802000 * DO; 0743 00803000 * IF FMCLCPB2=0 THEN /* WAIT QUEUE EMPTY? */ 00804000 L @15,FMCLCPB2-1(,FMCBREG) 0744 00805000 LA @15,0(,@15) 0744 00806000 LTR @15,@15 0744 00807000 BZ @RT00744 0744 00808000 * ; /* YES */ 00809000 * ELSE /* WAITQ NOT EMPTY */ 00810000 * DO; 0746 00811000 * CALL PABDVTA->ZLBZIFSB;/* RESET CLEANUP PHASE I */ 00812000 L @14,PABDVTA+95(,FMCBREG) 0747 00813000 LA @14,0(,@14) 0747 00814000 L @15,ZLBZIFSB(,@14) 0747 00815000 BALR @14,@15 0747 00816000 * CALL PABDVTA->ZLBZIFUB;/* RESET CLEANUP PHASE III */ 00817000 L @14,PABDVTA+95(,FMCBREG) 0748 00818000 LA @14,0(,@14) 0748 00819000 L @15,ZLBZIFUB(,@14) 0748 00820000 BALR @14,@15 0748 00821000 * END; 0749 00822000 * PARAREG=BMODZCM; /* SET PARM TO RESET CONDITIONAL 00823000 * @XL03HEK*/ 00824000 @RT00744 LA PARAREG,80 0750 00825000 * CALL BFFBGFSB; /* GENERATE A FSB */ 00826000 BAL @14,BFFBGFSB 0751 00827000 * END; 0752 00828000 * ELSE 0753 00829000 * DO; 0753 00830000 B @RC00742 0753 00831000 @RF00742 DS 0H 0754 00832000 * CALL BFFBGBDU; /* GENERATE A BDU */ 00833000 BAL @14,BFFBGBDU 0754 00834000 * BDUMODIF=BMODZCM; /* RESET CONDITIONAL */ 00835000 MVI BDUMODIF+42(BFRREG),X'50' 0755 00836000 * DNCBREG->NCBTSKID=FMCTSKID;/* PUT TASK ID IN DNCB 0756 00837000 * @XM01197*/ 00838000 L @15,FMCTSKID(,FMCBREG) 0756 00839000 ST @15,NCBTSKID(,DNCBREG) 0756 00840000 * END; 0757 00841000 * ZCRRCDSV=0; /* NORMAL EXIT */ 00842000 @RC00742 MVI ZCRRCDSV(ZCRREG),X'00' 0758 00843000 * END; 0759 00844000 * 0759 00845000 */* SEGMENT(BFFB040)FINISH */ 00846000 * 0760 00847000 * DO; 0760 00848000 @RC00734 DS 0H 0761 00849000 * GOTO BFFB040#; 0761 00850000 B BFFB040# 0761 00851000 *BFFB040@: 0762 00852000 * END; 0762 00853000 BFFB040@ DS 0H 0763 00854000 * 0763 00855000 */* SEGMENT(BFFB050)START */ 00856000 * 0763 00857000 * DO; 0763 00858000 * GOTO BFFB050@; 0764 00859000 B BFFB050@ 0764 00860000 *BFFB050: 0765 00861000 * END; 0765 00862000 * 0765 00863000 BFFB050 DS 0H 0766 00864000 */* */ 00865000 */* THIS SECTION GENERATES EITHER A RESET IMMEDIATE OR */ 00866000 */* A RESET AT END OF COMMAND. THE RESET CLEANUP PROCESSORS */ 00867000 */* ARE CALLED IF NECESSARY. */ 00868000 */* */ 00869000 * 0766 00870000 * WRKREG9=0; /* INIT WORK REG @XL03HEK*/ 00871000 SLR WRKREG9,WRKREG9 0766 00872000 * FMCZX006=FMCZX006+1; /* INCREMENT RESET CT @XL03HEK*/ 00873000 LA @15,1 0767 00874000 SLR @14,@14 0767 00875000 IC @14,FMCZX006(,FMCBREG) 0767 00876000 ALR @15,@14 0767 00877000 STC @15,FMCZX006(,FMCBREG) 0767 00878000 * FMCZF023='1'B; /* SET RESET IN PROG @ZA12769*/ 00879000 OI FMCZF023(FMCBREG),B'00000100' 0768 00880000 * CALL PABDVTA->ZLBZIFSB; /* RESET CLEANUP PHASE I */ 00881000 L @14,PABDVTA+95(,FMCBREG) 0769 00882000 LA @14,0(,@14) 0769 00883000 L @15,ZLBZIFSB(,@14) 0769 00884000 BALR @14,@15 0769 00885000 * RFY 0770 00886000 * RTCODREG RSTD; 0770 00887000 * IF RTCODREG=4|DNCZF008=ON| /* IS I/O REQD OR PURGE */ 00888000 * (ZCR3270R=ON&FMCZX004^=0) /* FLAG ON ? OR @XA06938*/ 00889000 * THEN /* RECORD MODE AND STPR COUNT NOT 00890000 * ZERO @X50BHXF*/ 00891000 C RTCODREG,@CF00073 0771 00892000 BE @RT00771 0771 00893000 TM DNCZF008(DNCBREG),B'00000001' 0771 00894000 BO @RT00771 0771 00895000 TM ZCR3270R(ZCRREG),B'00000010' 0771 00896000 BNO @RF00771 0771 00897000 CLI FMCZX004(FMCBREG),0 0771 00898000 BE @RF00771 0771 00899000 @RT00771 DS 0H 0772 00900000 * IF ZCRTSW1=ON THEN /* ANY 370X ILL? @XM06141*/ 00901000 TM ZCRTSW1(ZCRREG),B'10000000' 0772 00902000 BNO @RF00772 0772 00903000 * DO; 0773 00904000 * RFY 0774 00905000 * RTCODREG UNRSTD; 0774 00906000 * CALL PABDVTA->ZLBZIFUB; /* RESET CLEANUP PHASE II */ 00907000 L @14,PABDVTA+95(,FMCBREG) 0775 00908000 LA @14,0(,@14) 0775 00909000 L @15,ZLBZIFUB(,@14) 0775 00910000 BALR @14,@15 0775 00911000 * PARAREG=BMODZIM; /* SET PARM TO RESET IMMEDIATE 0776 00912000 * @XL03HEK*/ 00913000 LA PARAREG,68 0776 00914000 * CALL BFFBGFSB; /* GENERATE A FSB */ 00915000 BAL @14,BFFBGFSB 0777 00916000 * END; 0778 00917000 * ELSE 0779 00918000 * CALL BFFB0051; /* GENERATE A RESET */ 00919000 B @RC00772 0779 00920000 @RF00772 BAL @14,BFFB0051 0779 00921000 * ELSE 0780 00922000 * DO; 0780 00923000 B @RC00771 0780 00924000 @RF00771 DS 0H 0781 00925000 * RFY 0781 00926000 * R10 RSTD; 0781 00927000 * R10=0; /* CLEAR SWITCH @XM01183*/ 00928000 SLR R10,R10 0782 00929000 * CALL BFFB0052; /* TEST FMCB LINE STATE */ 00930000 BAL @14,BFFB0052 0783 00931000 * RFY 0784 00932000 * R10 UNRSTD; 0784 00933000 * END; 0785 00934000 * IF WRKREG9=0 THEN /* LINE STATE NOT TESTED */ 00935000 @RC00771 LTR WRKREG9,WRKREG9 0786 00936000 BNZ @RF00786 0786 00937000 * DO; 0787 00938000 * IF(FMCZH001=FMCZHF51)|(FMCZH001=FMCZHF41)|(FMCZH001=FMCZHF11) 00939000 * THEN /* LINE STATE IS ERROR RESCHED OR 00940000 * RESCH OR NRP */ 00941000 CLC FMCZH001(2,FMCBREG),@CH03161 0788 00942000 BE @RT00788 0788 00943000 CLC FMCZH001(2,FMCBREG),@CH03159 0788 00944000 BE @RT00788 0788 00945000 CLC FMCZH001(2,FMCBREG),@CH03153 0788 00946000 BNE @RF00788 0788 00947000 @RT00788 DS 0H 0789 00948000 * CALL PABDVTA->ZLBZIFVB; /* RESET CLEANUP PHASE III */ 00949000 L @14,PABDVTA+95(,FMCBREG) 0789 00950000 LA @14,0(,@14) 0789 00951000 L @15,ZLBZIFVB(,@14) 0789 00952000 BALR @14,@15 0789 00953000 * ELSE 0790 00954000 * ; 0790 00955000 @RF00788 DS 0H 0791 00956000 * FMCZH001=FMCZHF31; /* NULL LINE STATE */ 00957000 SLR @15,@15 0791 00958000 STH @15,FMCZH001(,FMCBREG) 0791 00959000 * END; 0792 00960000 * ELSE 0793 00961000 * ; 0793 00962000 @RF00786 DS 0H 0794 00963000 * ZCRRCDSV=0; /* NORMAL EXIT */ 00964000 MVI ZCRRCDSV(ZCRREG),X'00' 0794 00965000 */* SEGMENT(BFFB050)FINISH */ 00966000 * 0795 00967000 * DO; 0795 00968000 * GOTO BFFB050#; 0796 00969000 B BFFB050# 0796 00970000 *BFFB050@: 0797 00971000 * END; 0797 00972000 * 0798 00973000 */* */ 00974000 */* THIS SUBROUTINE IS CALLED TO GENERATE A RESET AT END */ 00975000 */* OF COMMAND OR A RESET IMMEDIATE. */ 00976000 */* */ 00977000 * 0798 00978000 *BFFB0051: 0798 00979000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0798 00980000 B @PB00003 0798 00981000 BFFB0051 DS 0H 0799 00982000 * RFY 0799 00983000 * RTNREG RSTD; 0799 00984000 * ZCRSVF6=RTNREG; /* SAVE RETURN REG */ 00985000 ST RTNREG,ZCRSVF6(,ZCRREG) 0800 00986000 * RFY 0801 00987000 * RTNREG UNRSTD; 0801 00988000 * CALL BFFBGBDU; /* GENERATE A BDU */ 00989000 BAL @14,BFFBGBDU 0802 00990000 * IF LCCWOP=LXEC THEN /* RESET AT EOC @XM09732*/ 00991000 L @15,LCPNXLCW(,LCPBREG) 0803 00992000 CLI LCCWOP(@15),X'4B' 0803 00993000 BNE @RF00803 0803 00994000 * BDUMODIF=BMODZECM; /* RESET AT END OF COMMAND 0804 00995000 * @XM09732*/ 00996000 MVI BDUMODIF+42(BFRREG),X'60' 0804 00997000 * ELSE 0805 00998000 * BDUMODIF=BMODZIM; /* RESET IMMEDIATE MODIFIER 0805 00999000 * @XM09732*/ 01000000 B @RC00803 0805 01001000 @RF00803 MVI BDUMODIF+42(BFRREG),X'44' 0805 01002000 * RFY 0806 01003000 * R10 RSTD; 0806 01004000 @RC00803 DS 0H 0807 01005000 * R10=1; /* SET RESET SCHEDULED SWITCH 0807 01006000 * @XM01183*/ 01007000 LA R10,1 0807 01008000 * IF WRKREG9=0 THEN /* LINE STATE NOT TESTED? */ 01009000 LTR WRKREG9,WRKREG9 0808 01010000 BNZ @RF00808 0808 01011000 * CALL BFFB0052; /* TEST FMCB LINE STATE */ 01012000 BAL @14,BFFB0052 0809 01013000 * ELSE 0810 01014000 * ; 0810 01015000 @RF00808 DS 0H 0811 01016000 * RFY 0811 01017000 * R10 UNRSTD; 0811 01018000 * FMCZF023=ON; /* RESET IN PROG @XM09420*/ 01019000 OI FMCZF023(FMCBREG),B'00000100' 0812 01020000 * RFY 0813 01021000 * RTNREG RSTD; 0813 01022000 * RTNREG=ZCRSVF6; /* RESTORE RETURN REG */ 01023000 L RTNREG,ZCRSVF6(,ZCRREG) 0814 01024000 * RFY 0815 01025000 * RTNREG UNRSTD; 0815 01026000 * END BFFB0051; 0816 01027000 @EL00003 DS 0H 0816 01028000 @EF00003 DS 0H 0816 01029000 @ER00003 BR @14 0816 01030000 * 0817 01031000 */* */ 01032000 */* THIS SUBROUTINE IS CALLED TO ANALYZE THE FMCB LINE */ 01033000 */* STATE AND GENERATE AND SCHEDULE THE RESET REQUEST. */ 01034000 */* */ 01035000 * 0817 01036000 *BFFB0052: 0817 01037000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0817 01038000 BFFB0052 DS 0H 0818 01039000 * RFY 0818 01040000 * RTNREG RSTD; 0818 01041000 * ZCRSVF4=RTNREG; /* SAVE RETURN REG */ 01042000 ST RTNREG,ZCRSVF4(,ZCRREG) 0819 01043000 * RFY 0820 01044000 * RTNREG UNRSTD; 0820 01045000 * RFY 0821 01046000 * R10 RSTD; 0821 01047000 * WRKREG9=1; /* SET LINE STATE TESTED SW */ 01048000 LA WRKREG9,1 0822 01049000 * IF(FMCZH001=FMCZHF51)|(FMCZH001=FMCZHF41)|(FMCZH001=FMCZHF11) THEN 01050000 CLC FMCZH001(2,FMCBREG),@CH03161 0823 01051000 BE @RT00823 0823 01052000 CLC FMCZH001(2,FMCBREG),@CH03159 0823 01053000 BE @RT00823 0823 01054000 CLC FMCZH001(2,FMCBREG),@CH03153 0823 01055000 BNE @RF00823 0823 01056000 @RT00823 DS 0H 0824 01057000 * /* ERROR LINE STATE RESCHED, 0824 01058000 * ERROR RESCHED OR NRP? */ 01059000 * CALL PABDVTA->ZLBZIFVB; /* RESET CLEANUP PHASE IV */ 01060000 L @11,PABDVTA+95(,FMCBREG) 0824 01061000 LA @11,0(,@11) 0824 01062000 L @15,ZLBZIFVB(,@11) 0824 01063000 BALR @14,@15 0824 01064000 * ELSE 0825 01065000 * ; 0825 01066000 @RF00823 DS 0H 0826 01067000 * IF FMCZH001=FMCZHF71| /* PHYSICAL ERROR? OR @ZA27421*/ 01068000 * PABERLOK=ON THEN /* OR PAB ERR LOCK ON @ZA27421*/ 01069000 CLC FMCZH001(2,FMCBREG),@CH03165 0826 01070000 BE @RT00826 0826 01071000 TM PABERLOK+96(FMCBREG),B'00000100' 0826 01072000 BNO @RF00826 0826 01073000 @RT00826 DS 0H 0827 01074000 * DO; 0827 01075000 * 0827 01076000 */* SETTING LINE STATE TO NULL DELETED HERE AS1 = 9807 */ 01077000 * 0828 01078000 * IF R10=1 THEN /* RESET BDU GENERATED@XM01183 */ 01079000 C R10,@CF00035 0828 01080000 BE @RT00828 0828 01081000 * ; 0829 01082000 * ELSE /* RESET BDU NOT GENERATED */ 01083000 * IF ZCRTSW1=ON THEN /* INTERNAL RESET? @XM10484*/ 01084000 * 0830 01085000 TM ZCRTSW1(ZCRREG),B'10000000' 0830 01086000 BNO @RF00830 0830 01087000 * /*********************************************************/ 01088000 * /* */ 01089000 * /* TEST FOR ACTIVE FMCB DELETED ... */ 01090000 * /* */ 01091000 * /*********************************************************/ 01092000 * 0831 01093000 * DO; 0831 01094000 * PARAREG=BMODZIM; /* SET PARM TO RESET IMMEDIATE 0832 01095000 * @XL03HEK*/ 01096000 LA PARAREG,68 0832 01097000 * CALL BFFBGFSB; /* GENERATE A FSB */ 01098000 BAL @14,BFFBGFSB 0833 01099000 * END; 0834 01100000 * ELSE 0835 01101000 * DO; 0835 01102000 B @RC00830 0835 01103000 @RF00830 DS 0H 0836 01104000 * CALL BFFBGBDU; /* GENERATE A BDU */ 01105000 BAL @14,BFFBGBDU 0836 01106000 * BDUMODIF=BMODZIM; /* RESET IMMEDIATE @XL03HEK*/ 01107000 MVI BDUMODIF+42(BFRREG),X'44' 0837 01108000 * END; 0838 01109000 * END; 0839 01110000 * ELSE 0840 01111000 * DO; 0840 01112000 B @RC00826 0840 01113000 @RF00826 DS 0H 0841 01114000 * FMCZH001=FMCZHF31; /* SET NULL LINE STATE */ 01115000 SLR @11,@11 0841 01116000 STH @11,FMCZH001(,FMCBREG) 0841 01117000 * IF R10=1 THEN /* RESET BTU GEND? @XM01183*/ 01118000 C R10,@CF00035 0842 01119000 BE @RT00842 0842 01120000 * ; 0843 01121000 * ELSE 0844 01122000 * DO; 0844 01123000 * PARAREG=BMODZIM; /* SET PARM TO RESET IMMEDIATE 0845 01124000 * @XL03HEK*/ 01125000 LA PARAREG,68 0845 01126000 * CALL BFFBGFSB; /* GENERATE A FSB */ 01127000 BAL @14,BFFBGFSB 0846 01128000 * END; 0847 01129000 * END; 0848 01130000 @RT00842 DS 0H 0849 01131000 * RFY 0849 01132000 * R10 UNRSTD; 0849 01133000 @RC00826 DS 0H 0850 01134000 * RFY 0850 01135000 * RTNREG RSTD; 0850 01136000 * RTNREG=ZCRSVF4; /* RESTORE RETURN REG */ 01137000 L RTNREG,ZCRSVF4(,ZCRREG) 0851 01138000 * RFY 0852 01139000 * RTNREG UNRSTD; 0852 01140000 * END BFFB0052; 0853 01141000 @EL00004 DS 0H 0853 01142000 @EF00004 DS 0H 0853 01143000 @ER00004 BR @14 0853 01144000 * 0854 01145000 */* */ 01146000 */* THIS SUBROUTINE IS CALLED TO GENERATE A FSB, INITIALIZE */ 01147000 */* IT, AND QUEUE IT TO THE FMCB WAIT QUEUE. THE FSB IS BUILT */ 01148000 */* FROM INFORMATION IN THE LSCB. */ 01149000 */* */ 01150000 * 0854 01151000 *BFFBGFSB: 0854 01152000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0854 01153000 BFFBGFSB DS 0H 0855 01154000 * RFY 0855 01155000 * ISTBTU BASED(ADDR(ZIBBTU)); 0855 01156000 * RFY 0856 01157000 * RTNREG RSTD; 0856 01158000 * ZCRSVF5=RTNREG; /* SAVE RETURN REG */ 01159000 ST RTNREG,ZCRSVF5(,ZCRREG) 0857 01160000 * RFY 0858 01161000 * RTNREG UNRSTD; 0858 01162000 * FMCZF017=ON; /* SCHEDQ LOCK ON @XL03HEK*/ 01163000 OI FMCZF017(FMCBREG),B'00000001' 0859 01164000 * FMCZF022=OFF; /* DELAYED LOCK OFF @XL03HEK*/ 01165000 NI FMCZF022(FMCBREG),B'11110111' 0860 01166000 * ZIBFDBZ=(ZIBFDBZ&&ZIBFDBZ); /* ZERO FSB AND FDB */ 01167000 XC ZIBFDBZ(12,BFRREG),ZIBFDBZ(BFRREG) 0861 01168000 * ZIBFSB=(ZIBFSB&&ZIBFSB); 0862 01169000 XC ZIBFSB(32,BFRREG),ZIBFSB(BFRREG) 0862 01170000 * FSBTYPE=FSTYPE; /* SET FSB TYPE */ 01171000 LA @15,16 0863 01172000 ALR @15,BFRREG 0863 01173000 MVI FSBTYPE(@15),X'02' 0863 01174000 * FSBLNGTH=LENGTH(ISTFSB); /* SET LENGTH */ 01175000 MVI FSBLNGTH(@15),X'2C' 0864 01176000 * BDUCOMND=BCMDZ; /* SET CONTROL COMMAND */ 01177000 LA @15,62 0865 01178000 ALR @15,BFRREG 0865 01179000 MVI BDUCOMND(@15),X'08' 0865 01180000 * BDUMODIF=PARAREG; /* SET BDU MODIF AS PASSED IN 0866 01181000 * PARM REG @XL03HEK*/ 01182000 STC PARAREG,BDUMODIF(,@15) 0866 01183000 * BTUSORCE=FMCSAF; /* SET BTU SOURCE ID FROM FMCB 0867 01184000 * @XM06981*/ 01185000 MVC BTUSORCE+48(2,BFRREG),FMCSAF(FMCBREG) 0867 01186000 *GFSBNT: 0868 01187000 * FSBCID=LSCLCPBA->LCPCID; /* SET CID FROM LSCB */ 01188000 GFSBNT LA @15,16 0868 01189000 ALR @15,BFRREG 0868 01190000 L @14,LSCLCPBA(,LCPBREG) 0868 01191000 MVC FSBCID(4,@15),LCPCID(@14) 0868 01192000 * FSBLCPB=LSCLCPBA; /* PUT LCPB ADDR IN FSB */ 01193000 ST @14,FSBLCPB(,@15) 0869 01194000 * FSBLCCWA=LSCLCCWA; /* LCCW ADDRESS */ 01195000 L @14,LSCLCCWA(,LCPBREG) 0870 01196000 ST @14,FSBLCCWA(,@15) 0870 01197000 * FSBMJRCD=FRNORM; /* SET MAJOR RETURN CODE */ 01198000 MVI FSBMJRCD(@15),X'00' 0871 01199000 * FSBMNRCD=FRMOK; /* SET MINOR RETURN CODE */ 01200000 MVI FSBMNRCD(@15),X'00' 0872 01201000 * FSBSPHSE=NCPPHSE3; /* SET PHASE 3 */ 01202000 OI FSBSPHSE(@15),B'01100000' 0873 01203000 * FSBSCODE=NCPOK; /* SET NCP STATUS TO OK */ 01204000 NI FSBSCODE(@15),B'11100000' 0874 01205000 * MVN(FSBSEQ(1:1),REQTAG); /* ASSIGN REQTG SEQ NUMBER 0875 01206000 * @XM9006K*/ 01207000 MVN FSBSEQ(1,@15),REQTAG+266(FMCBREG) 0875 01208000 * LSCREQTG=FSBRQTAG; /* COPY REQTG TO LSCB @XM9006K*/ 01209000 MVC LSCREQTG(2,LCPBREG),FSBRQTAG(@15) 0876 01210000 * FMCSEQ1=FMCSEQ1+1; /* BUMP FMCB SEQUENCE NUMBER 0877 01211000 * @XM9006K*/ 01212000 LA @15,1 0877 01213000 SLR @14,@14 0877 01214000 IC @14,FMCSEQ1(,FMCBREG) 0877 01215000 ALR @15,@14 0877 01216000 STC @15,FMCSEQ1(,FMCBREG) 0877 01217000 * IF FMCSEQ1B='0000'B THEN /* OVERFLOW ? @XM9006K*/ 01218000 TM FMCSEQ1B(FMCBREG),B'00001111' 0878 01219000 BNZ @RF00878 0878 01220000 * FMCSEQ1=1; /* RECYCLE TO 1 @XM9006K*/ 01221000 MVI FMCSEQ1(FMCBREG),X'01' 0879 01222000 * ELSE 0880 01223000 * ; /* NO OVERFLOW @XM9006K*/ 01224000 @RF00878 DS 0H 0881 01225000 * LSCFDBA='00000000'X; /* CLEAR ELEM BFR PTR @ZA12769*/ 01226000 SLR @15,@15 0881 01227000 ST @15,LSCFDBA(,LCPBREG) 0881 01228000 */* TPQUE (LCPBREG,FMCLCPBQ) */ 01229000 * 0882 01230000 * DO; 0882 01231000 * RFY 0883 01232000 * (GPR00P, 0883 01233000 * GPR01P, 0883 01234000 * GPR02P, 0883 01235000 * GPR14P, 0883 01236000 * GPR15P) RSTD; 0883 01237000 * GEN REFS(GPR01P) SETS(RPHWORK)(STM GPR02P,GPR08P,RPHWORK(GPR01P)) 01238000 * ; 0884 01239000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 01240000 * GPR15P=LCPBREG; /* GET WORK ELEM POINTER */ 01241000 LR GPR15P,LCPBREG 0885 01242000 * GPR14P=ADDR(FMCLCPBQ); /* ADDRESS PAB/QUEUE POINTER */ 01243000 LA GPR14P,FMCLCPBQ(,FMCBREG) 0886 01244000 * GPR15P=GPR15P|PABWEQG1; 0887 01245000 O GPR15P,@CF01868 0887 01246000 * GPR02P=GPR14P->PABWEQA; /* INITIALIZE WITH QUEUE HEADER */ 01247000 L GPR02P,PABWEQA(,GPR14P) 0888 01248000 *CMZA0042: 0889 01249000 * ; /* CS FAIL TARGET */ 01250000 CMZA0042 DS 0H 0890 01251000 * GPR00P=GPR02P; /* SAVE QUEUE CONTENTS */ 01252000 LR GPR00P,GPR02P 0890 01253000 * GPR15P->PABCHAIN=GPR02P|PABWEQG1;/* FORWARD CHAIN WORK ELEMENT */ 01254000 LR @11,GPR02P 0891 01255000 O @11,@CF01868 0891 01256000 ST @11,PABCHAIN(,GPR15P) 0891 01257000 * CS(GPR02P,GPR15P,GPR14P->PABWEQA);/* CHECK FOR END OF QUEUE */ 01258000 CS GPR02P,@15,PABWEQA(GPR14P) 0892 01259000 * BC(7,CMZA0042); 0893 01260000 BC 7,CMZA0042 0893 01261000 * GEN REFS(RPHWORK,GPR01P) NOSETS 0894 01262000 * (LM GPR02P,GPR08P,RPHWORK(GPR01P)); 0894 01263000 LM GPR02P,GPR08P,RPHWORK(GPR01P) 01264000 * RFY 0895 01265000 * (GPR00P, 0895 01266000 * GPR01P, 0895 01267000 * GPR02P, 0895 01268000 * GPR14P, 0895 01269000 * GPR15P) UNRSTD; 0895 01270000 * END; /* *** END OF TPQUE GENERATION 0896 01271000 * QUEUE LSCB TO WAIT Q */ 01272000 * FMCZF001=ON; /* SET BTU ALLOCATION REQD */ 01273000 OI FMCZF001(FMCBREG),B'10000000' 0897 01274000 * IF DNCZV001=FMCBREG THEN /* IS THIS THE ACTIVE FMCB? 0898 01275000 * @XL03HEK*/ 01276000 L @15,DNCZV001-1(,DNCBREG) 0898 01277000 LA @15,0(,@15) 0898 01278000 CR FMCBREG,@15 0898 01279000 BNE @RF00898 0898 01280000 * DO; /* YES @XL03HEK*/ 01281000 */* TPQUE (ADDR(ZIBFSB),DNCZC001) */ 01282000 * 0900 01283000 * DO; 0900 01284000 * RFY 0901 01285000 * (GPR00P, 0901 01286000 * GPR01P, 0901 01287000 * GPR02P, 0901 01288000 * GPR14P, 0901 01289000 * GPR15P) RSTD; 0901 01290000 * GEN REFS(GPR01P) SETS(RPHWORK) 0902 01291000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 0902 01292000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 01293000 * GPR15P=ADDR(ZIBFSB); /* GET WORK ELEM POINTER */ 01294000 LA GPR15P,ZIBFSB(,BFRREG) 0903 01295000 * GPR14P=ADDR(DNCZC001); /* ADDRESS PAB/QUEUE POINTER */ 01296000 LA GPR14P,DNCZC001(,DNCBREG) 0904 01297000 * GPR15P=GPR15P|PABWEQG1; 0905 01298000 O GPR15P,@CF01868 0905 01299000 * GPR02P=GPR14P->PABWEQA; /* INITIALIZE WITH QUEUE HEADER */ 01300000 L GPR02P,PABWEQA(,GPR14P) 0906 01301000 *CMZA0048: 0907 01302000 * ; /* CS FAIL TARGET */ 01303000 CMZA0048 DS 0H 0908 01304000 * GPR00P=GPR02P; /* SAVE QUEUE CONTENTS */ 01305000 LR GPR00P,GPR02P 0908 01306000 * GPR15P->PABCHAIN=GPR02P|PABWEQG1;/* FORWARD CHAIN WORK 0909 01307000 * ELEMENT */ 01308000 LR @11,GPR02P 0909 01309000 O @11,@CF01868 0909 01310000 ST @11,PABCHAIN(,GPR15P) 0909 01311000 * CS(GPR02P,GPR15P,GPR14P->PABWEQA);/* CHECK FOR END OF QUEUE*/ 01312000 CS GPR02P,@15,PABWEQA(GPR14P) 0910 01313000 * BC(7,CMZA0048); 0911 01314000 BC 7,CMZA0048 0911 01315000 * GEN REFS(RPHWORK,GPR01P) NOSETS 0912 01316000 * (LM GPR02P,GPR08P,RPHWORK(GPR01P)); 0912 01317000 LM GPR02P,GPR08P,RPHWORK(GPR01P) 01318000 * RFY 0913 01319000 * (GPR00P, 0913 01320000 * GPR01P, 0913 01321000 * GPR02P, 0913 01322000 * GPR14P, 0913 01323000 * GPR15P) UNRSTD; 0913 01324000 * END; /* *** END OF TPQUE GENERATION Q 01325000 * FSB TO DNCB TIP @XL03HEK*/ 01326000 */* TPSCHED (ADDR(DNCZC001)) NORM */ 01327000 * 0915 01328000 * DO; 0915 01329000 * RFY 0916 01330000 * (GPR00P, 0916 01331000 * GPR01P, 0916 01332000 * GPR05P) RSTD; 0916 01333000 * GEN REFS(GPR01P) SETS(RPHWORK) 0917 01334000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 0917 01335000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 01336000 * GPR00P=0; 0918 01337000 SLR GPR00P,GPR00P 0918 01338000 * GPR05P=ADDR(DNCZC001); 0919 01339000 LA GPR05P,DNCZC001(,DNCBREG) 0919 01340000 * CALL ATCLCPTR->ATCAP38->ISTAPC38; 0920 01341000 L @14,ATCLCPTR 0920 01342000 L @15,ATCAP38(,@14) 0920 01343000 BALR @14,@15 0920 01344000 * GEN(NOPR 0) 0921 01345000 * NOSETS NOREFS; 0921 01346000 NOPR 0 01347000 * RFY 0922 01348000 * (GPR00P, 0922 01349000 * GPR01P, 0922 01350000 * GPR05P) UNRSTD; 0922 01351000 * END; /* **** END TPSCHED SCHEDULE DNCB 01352000 * TIP @XL03HEK*/ 01353000 * END; /* @XL03HEK*/ 01354000 * ELSE /* NOT ACTIVE FMCB @XL03HEK*/ 01355000 * DO; /* @XL03HEK*/ 01356000 B @RC00898 0925 01357000 @RF00898 DS 0H 0926 01358000 */* TPQUE (ADDR(ZIBFSB),FMCPAB4) */ 01359000 * 0926 01360000 * DO; 0926 01361000 * RFY 0927 01362000 * (GPR00P, 0927 01363000 * GPR01P, 0927 01364000 * GPR02P, 0927 01365000 * GPR14P, 0927 01366000 * GPR15P) RSTD; 0927 01367000 * GEN REFS(GPR01P) SETS(RPHWORK) 0928 01368000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 0928 01369000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 01370000 * GPR15P=ADDR(ZIBFSB); /* GET WORK ELEM POINTER */ 01371000 LA GPR15P,ZIBFSB(,BFRREG) 0929 01372000 * GPR14P=ADDR(FMCPAB4); /* ADDRESS PAB/QUEUE POINTER */ 01373000 LA GPR14P,FMCPAB4(,FMCBREG) 0930 01374000 * GPR15P=GPR15P|PABWEQG1; 0931 01375000 O GPR15P,@CF01868 0931 01376000 * GPR02P=GPR14P->PABWEQA; /* INITIALIZE WITH QUEUE HEADER */ 01377000 L GPR02P,PABWEQA(,GPR14P) 0932 01378000 *CMZA0060: 0933 01379000 * ; /* CS FAIL TARGET */ 01380000 CMZA0060 DS 0H 0934 01381000 * GPR00P=GPR02P; /* SAVE QUEUE CONTENTS */ 01382000 LR GPR00P,GPR02P 0934 01383000 * GPR15P->PABCHAIN=GPR02P|PABWEQG1;/* FORWARD CHAIN WORK 0935 01384000 * ELEMENT */ 01385000 LR @11,GPR02P 0935 01386000 O @11,@CF01868 0935 01387000 ST @11,PABCHAIN(,GPR15P) 0935 01388000 * CS(GPR02P,GPR15P,GPR14P->PABWEQA);/* CHECK FOR END OF QUEUE*/ 01389000 CS GPR02P,@15,PABWEQA(GPR14P) 0936 01390000 * BC(7,CMZA0060); 0937 01391000 BC 7,CMZA0060 0937 01392000 * GEN REFS(RPHWORK,GPR01P) NOSETS 0938 01393000 * (LM GPR02P,GPR08P,RPHWORK(GPR01P)); 0938 01394000 LM GPR02P,GPR08P,RPHWORK(GPR01P) 01395000 * RFY 0939 01396000 * (GPR00P, 0939 01397000 * GPR01P, 0939 01398000 * GPR02P, 0939 01399000 * GPR14P, 0939 01400000 * GPR15P) UNRSTD; 0939 01401000 * END; /* *** END OF TPQUE GENERATION Q 01402000 * FSB TO FMCB TIP @XL03HEK*/ 01403000 */* TPSCHED (ADDR(FMCPAB4)) NORM */ 01404000 * 0941 01405000 * DO; 0941 01406000 * RFY 0942 01407000 * (GPR00P, 0942 01408000 * GPR01P, 0942 01409000 * GPR05P) RSTD; 0942 01410000 * GEN REFS(GPR01P) SETS(RPHWORK) 0943 01411000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 0943 01412000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 01413000 * GPR00P=0; 0944 01414000 SLR GPR00P,GPR00P 0944 01415000 * GPR05P=ADDR(FMCPAB4); 0945 01416000 LA @15,FMCPAB4(,FMCBREG) 0945 01417000 LR GPR05P,@15 0945 01418000 * CALL ATCLCPTR->ATCAP38->ISTAPC38; 0946 01419000 L @14,ATCLCPTR 0946 01420000 L @15,ATCAP38(,@14) 0946 01421000 BALR @14,@15 0946 01422000 * GEN(NOPR 0) 0947 01423000 * NOSETS NOREFS; 0947 01424000 NOPR 0 01425000 * RFY 0948 01426000 * (GPR00P, 0948 01427000 * GPR01P, 0948 01428000 * GPR05P) UNRSTD; 0948 01429000 * END; /* **** END TPSCHED SCHEDULE FMCB 01430000 * TIP @XL03HEK*/ 01431000 * END; /* @XL03HEK*/ 01432000 * RFY 0951 01433000 * RTNREG RSTD; 0951 01434000 @RC00898 DS 0H 0952 01435000 * RTNREG=ZCRSVF5; /* RESTORE RETURN REG */ 01436000 L RTNREG,ZCRSVF5(,ZCRREG) 0952 01437000 * RFY 0953 01438000 * RTNREG UNRSTD; 0953 01439000 * RFY 0954 01440000 * ISTBTU BASED(ADDR(ZOBBTU)); 0954 01441000 * END BFFBGFSB; 0955 01442000 @EL00005 DS 0H 0955 01443000 @EF00005 DS 0H 0955 01444000 @ER00005 BR @14 0955 01445000 * 0956 01446000 */* */ 01447000 */* THIS SUBROUTINE IS CALLED TO GENERATE A RESET BDU. THE */ 01448000 */* BDU IS INITIALIZED USING INFORMATION IN THE LSCB,DNCB, AND FMCB. */ 01449000 */* THE LSCB IS THEN QUEUED TO THE HEAD OF THE FMCB SCHEDULE */ 01450000 */* QUEUE. */ 01451000 */* */ 01452000 * 0956 01453000 *BFFBGBDU: 0956 01454000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0956 01455000 BFFBGBDU DS 0H 0957 01456000 * RFY 0957 01457000 * RTNREG RSTD; 0957 01458000 * ZCRSVF5=RTNREG; /* SAVE RETURN REG */ 01459000 ST RTNREG,ZCRSVF5(,ZCRREG) 0958 01460000 * RFY 0959 01461000 * RTNREG UNRSTD; 0959 01462000 * FDBDATAA=ADDR(ZOBBTU); /* DATA ADDRESS */ 01463000 LA @15,ZOBBTU(,BFRREG) 0960 01464000 ST @15,FDBDATAA(,BFRREG) 0960 01465000 * FDBDATCT=LENGTH(ISTBTU); /* DATA COUNT */ 01466000 MVC FDBDATCT(2,BFRREG),@CH00166 0961 01467000 * BDUCOMND=BCMDZ; /* CONTROL COMMAND */ 01468000 LA @15,42 0962 01469000 ALR @15,BFRREG 0962 01470000 MVI BDUCOMND(@15),X'08' 0962 01471000 * BTUDCF=LENGTH(BTURH)+LENGTH(BTUSYSTR)+LENGTH(BTUEXTR)+LENGTH(ISTBDU 01472000 * ); /* INITIALIZE COUNT @XL03HAH*/ 01473000 LA @14,28 0963 01474000 ALR @14,BFRREG 0963 01475000 MVC BTUDCF(2,@14),@CH01600 0963 01476000 * BDUFLAGS=0; /* ZERO FLAGS */ 01477000 MVI BDUFLAGS(@15),X'00' 0964 01478000 * BDUFUNC=0; /* ZERO FUNCTION FLAGS */ 01479000 MVI BDUFUNC(@15),X'00' 0965 01480000 * BTUSORCE=LSCLCPBA->LCPSAF; /* SET CID */ 01481000 L @15,LSCLCPBA(,LCPBREG) 0966 01482000 MVC BTUSORCE(2,@14),LCPSAF(@15) 0966 01483000 * BTUDEST=LSCLCPBA->LCPDAF; /* DAF FROM LSCB */ 01484000 MVC BTUDEST(2,@14),LCPDAF(@15) 0967 01485000 * BTUFID=FFBTHSET; /* INIT TH BYTES 1&2 @XL03HEK*/ 01486000 MVC BTUFID(2,@14),@CB04178 0968 01487000 * BTURH=0; /* INIT REQUEST HDR @XL03HAH*/ 01488000 SLR @15,@15 0969 01489000 STCM @15,15,BTURH(@14) 0969 01490000 * MVN(BTUREQ(2:2),REQTAG); /* MOVE REQ TAG FROM FMCB */ 01491000 MVN BTUREQ+1(1,@14),REQTAG+266(FMCBREG) 0970 01492000 * IF PROCFTX=ON THEN 0971 01493000 TM PROCFTX+48(FMCBREG),B'00000001' 0971 01494000 BNO @RF00971 0971 01495000 * BTUZRT06=ON; 0972 01496000 OI BTUZRT06(@14),B'00000010' 0972 01497000 * ELSE 0973 01498000 * BTUZRT06=OFF; 0973 01499000 B @RC00971 0973 01500000 @RF00971 NI BTUZRT06+28(BFRREG),B'11111101' 0973 01501000 * LSCREQTG=BTUREQ; /* INITIALIZE REQUEST TAG */ 01502000 @RC00971 MVC LSCREQTG(2,LCPBREG),BTUREQ+28(BFRREG) 0974 01503000 * FMCOSSN=FMCOSSN+1; /* BUMP RECORD SEQ # @X50BHXF*/ 01504000 LA @15,1 0975 01505000 LH @14,FMCOSSN(,FMCBREG) 0975 01506000 N @14,@CF04317 0975 01507000 ALR @14,@15 0975 01508000 STH @14,FMCOSSN(,FMCBREG) 0975 01509000 * FMCSEQ1=FMCSEQ1+1; /* UPDATE FMCB SEQUENCE CTR */ 01510000 SLR @14,@14 0976 01511000 IC @14,FMCSEQ1(,FMCBREG) 0976 01512000 ALR @15,@14 0976 01513000 STC @15,FMCSEQ1(,FMCBREG) 0976 01514000 * IF FMCSEQ1B='0000'B THEN /* SEQ CTR OVERFLOW? */ 01515000 TM FMCSEQ1B(FMCBREG),B'00001111' 0977 01516000 BNZ @RF00977 0977 01517000 * FMCSEQ1=1; /* RESET COUNTER TO 1 */ 01518000 MVI FMCSEQ1(FMCBREG),X'01' 0978 01519000 * ELSE 0979 01520000 * ; 0979 01521000 * 0979 01522000 @RF00977 DS 0H 0980 01523000 */* TPQUE (LCPBREG,FMCSHEDQ) FIRST */ 01524000 * 0980 01525000 * DO; 0980 01526000 * RFY 0981 01527000 * (GPR00P, 0981 01528000 * GPR01P, 0981 01529000 * GPR02P, 0981 01530000 * GPR14P, 0981 01531000 * GPR15P) RSTD; 0981 01532000 * GEN REFS(GPR01P) SETS(RPHWORK)(STM GPR02P,GPR08P,RPHWORK(GPR01P)) 01533000 * ; 0982 01534000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 01535000 * GPR15P=LCPBREG; /* GET WORK ELEM POINTER */ 01536000 LR GPR15P,LCPBREG 0983 01537000 * GPR14P=ADDR(FMCSHEDQ); /* ADDRESS PAB/QUEUE POINTER */ 01538000 LA GPR14P,FMCSHEDQ(,FMCBREG) 0984 01539000 * GPR02P=GPR14P->PABWEQA; 0985 01540000 L GPR02P,PABWEQA(,GPR14P) 0985 01541000 * GPR00P=GPR02P; 0986 01542000 LR GPR00P,GPR02P 0986 01543000 *CMZA0072: 0987 01544000 * ; 0987 01545000 CMZA0072 DS 0H 0988 01546000 * IF GPR00P=PABWEQG1|GPR00P=0 THEN 0988 01547000 CL GPR00P,@CF01868 0988 01548000 BE @RT00988 0988 01549000 LTR GPR00P,GPR00P 0988 01550000 BNZ @RF00988 0988 01551000 @RT00988 DS 0H 0989 01552000 * DO; 0989 01553000 * GPR15P=GPR15P|PABWEQG1; 0990 01554000 L @11,@CF01868 0990 01555000 OR GPR15P,@11 0990 01556000 * GPR15P->PABCHAIN=PABWEQG1; 0991 01557000 ST @11,PABCHAIN(,GPR15P) 0991 01558000 * CS(GPR00P,GPR15P,GPR14P->PABWEQA); 0992 01559000 CS GPR00P,@15,PABWEQA(GPR14P) 0992 01560000 * BC(8,CMZB0072); 0993 01561000 BC 8,CMZB0072 0993 01562000 * GPR02P=GPR00P; 0994 01563000 LR GPR02P,GPR00P 0994 01564000 * GOTO CMZA0072; 0995 01565000 B CMZA0072 0995 01566000 *CMZB0072: 0996 01567000 * ; 0996 01568000 CMZB0072 DS 0H 0997 01569000 * END; 0997 01570000 * ELSE 0998 01571000 * DO; 0998 01572000 B @RC00988 0998 01573000 @RF00988 DS 0H 0999 01574000 * DO WHILE((GPR02P->PABCHAIN)^=PABCHNG1); 0999 01575000 B @DE00999 0999 01576000 @DL00999 DS 0H 1000 01577000 * GPR02P=GPR02P->PABCHAIN; 1000 01578000 L GPR02P,PABCHAIN(,GPR02P) 1000 01579000 * END; 1001 01580000 @DE00999 L @11,@CF01868 1001 01581000 CL @11,PABCHAIN(,GPR02P) 1001 01582000 BNE @DL00999 1001 01583000 * GPR15P->PABCHAIN=PABCHNG1; 1002 01584000 ST @11,PABCHAIN(,GPR15P) 1002 01585000 * GPR02P->PABCHAIN=GPR15P|PABCHNG1; 1003 01586000 OR @11,GPR15P 1003 01587000 ST @11,PABCHAIN(,GPR02P) 1003 01588000 * END; 1004 01589000 * GEN REFS(RPHWORK,GPR01P) NOSETS 1005 01590000 * (LM GPR02P,GPR08P,RPHWORK(GPR01P)); 1005 01591000 @RC00988 DS 0H 1005 01592000 LM GPR02P,GPR08P,RPHWORK(GPR01P) 01593000 * RFY 1006 01594000 * (GPR00P, 1006 01595000 * GPR01P, 1006 01596000 * GPR02P, 1006 01597000 * GPR14P, 1006 01598000 * GPR15P) UNRSTD; 1006 01599000 * END; /* *** END OF TPQUE GENERATION 1007 01600000 * QUEUE LSCB TO HEAD OF Q */ 01601000 * FMCZX003=FMCZX003+1; /* INCREMENT SCHEDULE COUNT */ 01602000 LA @15,1 1008 01603000 SLR @14,@14 1008 01604000 IC @14,FMCZX003(,FMCBREG) 1008 01605000 ALR @15,@14 1008 01606000 STC @15,FMCZX003(,FMCBREG) 1008 01607000 * FMCZF001=ON; /* SET BTU ALLOCATION REQD */ 01608000 OI FMCZF001(FMCBREG),B'10000000' 1009 01609000 * RFY 1010 01610000 * RTNREG RSTD; 1010 01611000 * RTNREG=ZCRSVF5; /* RESTORE RETURN REG */ 01612000 L RTNREG,ZCRSVF5(,ZCRREG) 1011 01613000 * RFY 1012 01614000 * RTNREG UNRSTD; 1012 01615000 * END BFFBGBDU; 1013 01616000 @EL00006 DS 0H 1013 01617000 @EF00006 DS 0H 1013 01618000 @ER00006 BR @14 1013 01619000 @PB00006 DS 0H 1014 01620000 * 1014 01621000 */* BFFB045 - THIS ROUTINE PROCESSES PORT SOLICITOR RESET */ 01622000 */* CONDITIONS. */ 01623000 */* */ 01624000 */* THE S/D CODE FOR BFFB045 IS: ------------> @XL03HEK*/ 01625000 */* SEGMENT(BFFB045)START */ 01626000 * 1014 01627000 * DO; 1014 01628000 * GOTO BFFB045@; 1015 01629000 B BFFB045@ 1015 01630000 *BFFB045: 1016 01631000 * END; 1016 01632000 BFFB045 DS 0H 1017 01633000 * IF FMCZH001=FMCZHF71|DNCZF001=ON THEN 1017 01634000 CLC FMCZH001(2,FMCBREG),@CH03165 1017 01635000 BE @RT01017 1017 01636000 TM DNCZF001(DNCBREG),B'10000000' 1017 01637000 BO @RT01017 1017 01638000 * ; /* PHYSICAL ERROR OR ERROR LOCK 01639000 * SET? @XM10857*/ 01640000 */* SETTING OF FMCB ACTIVE IN CASE OF PHYSICAL ERROR DELETED... 1019 01641000 * WASN'T NEEDED SINCE RESET WILL BE SHIPPED ANYWAY. ALSO, IF FMCB 01642000 * IS ACTIVE BUT NOT MARKED IN SESSION, RESET COMPLETION THEN SETS 01643000 * THE DNCB SESSION FLG OFF, RESULTING IN PROBLEMS... @XM10857*/ 01644000 * 1019 01645000 * ELSE /* NO PHYSICAL ERROR */ 01646000 * DO; 1019 01647000 * IF FMCLCPB2^=0|DNCSESS=OFF| /* WAITQ NOT EMPTY? @XA06938*/ 01648000 * (DEVCBSC=OFF&DEVTCODE^=DEVTWX)/* OR NOT IN SESSION 1020 01649000 * @XM00419*/ 01650000 * THEN 1020 01651000 L @15,FMCLCPB2-1(,FMCBREG) 1020 01652000 LA @15,0(,@15) 1020 01653000 LTR @15,@15 1020 01654000 BNZ @RT01020 1020 01655000 TM DNCSESS(DNCBREG),B'01000000' 1020 01656000 BZ @RT01020 1020 01657000 LA @15,36 1020 01658000 ALR @15,DNCBREG 1020 01659000 TM DEVCBSC(@15),B'10000000' 1020 01660000 BNZ @RF01020 1020 01661000 CLI DEVTCODE(@15),X'04' 1020 01662000 BNE @RT01020 1020 01663000 * ; /* OR NOT BSC OR TWX @XM00419*/ 01664000 * ELSE /* @XM09269*/ 01665000 * DNCZF008=ON; /* TURN ON DNCB PAB PURGE FLAG 1022 01666000 * @XL03HEK*/ 01667000 @RF01020 OI DNCZF008(DNCBREG),B'00000001' 1022 01668000 * END; 1023 01669000 * 1023 01670000 @RT01020 DS 0H 1024 01671000 */* SEGMENT(BFFB045)FINISH */ 01672000 * 1024 01673000 * DO; 1024 01674000 @RT01017 DS 0H 1025 01675000 * GOTO BFFB045#; 1025 01676000 B BFFB045# 1025 01677000 *BFFB045@: 1026 01678000 * END; 1026 01679000 BFFB045@ DS 0H 1027 01680000 * 1027 01681000 */* TPEPILOG */ 01682000 * 1027 01683000 * GEN(PRINT OFF); 1027 01684000 PRINT OFF 01685000 * DCL 1028 01686000 * ISTAPC38 ENTRY BASED(ATCAP38) VALRG(*);/* TPSCHED ROUTINE */ 01687000 * GEN(PRINT ON); 1029 01688000 * 1029 01689000 PRINT ON 01690000 */* END OF TPEPILOG */ 01691000 * 1030 01692000 * END ISTZBFFB 1030 01693000 * 1030 01694000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01695000 */*%INCLUDE SYSLIB (IECDIOSB) */ 01696000 */*%INCLUDE SYSLIB (IHASRB ) */ 01697000 */*%INCLUDE SYSLIB (CVT ) */ 01698000 * 1030 01699000 * ; 1030 01700000 @EL00001 DS 0H 1030 01701000 @EF00001 DS 0H 1030 01702000 @ER00001 BR @14 1030 01703000 @DATA DS 0H 01704000 @CH01600 DC H'10' 01705000 @CH00166 DC H'20' 01706000 @CH03153 DC XL2'0004' 01707000 @CH03159 DC XL2'0007' 01708000 @CH03161 DC XL2'B007' 01709000 @CH03163 DC XL2'9007' 01710000 @CH03165 DC XL2'A007' 01711000 @DATD DSECT 01712000 DS 0F 01713000 ISTZBFFB CSECT 01714000 DS 0F 01715000 @CF00035 DC F'1' 01716000 @CF00073 DC F'4' 01717000 @CF01868 DC XL4'80000000' 01718000 @CF04317 DC XL4'0000FFFF' 01719000 @DATD DSECT 01720000 DS 0D 01721000 IOSBPTR DS A 01722000 SRBPTR DS A 01723000 CVTPTR DS A 01724000 LCPBPTR DS A 01725000 DNCBPTR DS A 01726000 FMCBPTR DS A 01727000 BDUPTR DS A 01728000 BTUPTR DS A 01729000 FSBPTR DS A 01730000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01731000 @ENDDATD EQU * 01732000 ISTZBFFB CSECT 01733000 DS 0F 01734000 @SIZDATD DC AL1(0) 01735000 DC AL3(@ENDDATD-@DATD) 01736000 DS 0D 01737000 DISFSB DC AL4(ZIBFSB-ZIBAIO) 01738000 @CC03177 DC C'ISTYPSOL' 01739000 @CC04217 DC C'BCFB' 01740000 @CB04178 DC X'0E00' 01741000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01742000 @01 EQU 01 01743000 @02 EQU 02 01744000 @03 EQU 03 01745000 @04 EQU 04 01746000 @05 EQU 05 01747000 @06 EQU 06 01748000 @07 EQU 07 01749000 @08 EQU 08 01750000 @09 EQU 09 01751000 @10 EQU 10 01752000 @11 EQU 11 01753000 @12 EQU 12 01754000 @13 EQU 13 01755000 @14 EQU 14 01756000 @15 EQU 15 01757000 RPHPTR EQU @01 01758000 REG0 EQU @00 01759000 PARAREG EQU @00 01760000 RPHREG EQU @01 01761000 VTCVTREG EQU @02 01762000 ICNCBREG EQU @03 01763000 DNCBREG EQU @04 01764000 FMCBREG EQU @05 01765000 BFRREG EQU @06 01766000 LCPBREG EQU @07 01767000 R07 EQU @07 01768000 ZCRREG EQU @08 01769000 WRKREG9 EQU @09 01770000 R10 EQU @10 01771000 BASEREG EQU @12 01772000 R13 EQU @13 01773000 RTNREG EQU @14 01774000 RTCODREG EQU @15 01775000 GPR00P EQU @00 01776000 GPR01P EQU @01 01777000 GPR02P EQU @02 01778000 GPR05P EQU @05 01779000 GPR08P EQU @08 01780000 GPR12P EQU @12 01781000 GPR13P EQU @13 01782000 GPR14P EQU @14 01783000 GPR15P EQU @15 01784000 GPR00F EQU @00 01785000 GPR01F EQU @01 01786000 GPR02F EQU @02 01787000 GPR03F EQU @03 01788000 GPR03P EQU @03 01789000 GPR04F EQU @04 01790000 GPR04P EQU @04 01791000 GPR05F EQU @05 01792000 GPR06F EQU @06 01793000 GPR06P EQU @06 01794000 GPR07F EQU @07 01795000 GPR07P EQU @07 01796000 GPR08F EQU @08 01797000 GPR09F EQU @09 01798000 GPR09P EQU @09 01799000 GPR10F EQU @10 01800000 GPR10P EQU @10 01801000 GPR11F EQU @11 01802000 GPR11P EQU @11 01803000 GPR12F EQU @12 01804000 GPR13F EQU @13 01805000 GPR14F EQU @14 01806000 GPR15F EQU @15 01807000 R11 EQU @11 01808000 ATCLCPTR EQU 1032 01809000 IOSB EQU 0 01810000 IOSFLA EQU IOSB 01811000 IOSACHN EQU IOSFLA 01812000 IOSFLB EQU IOSB+1 01813000 IOSFLC EQU IOSB+2 01814000 IOSDVALT EQU IOSFLC 01815000 IOSPKEY EQU IOSB+12 01816000 IOSOPT EQU IOSB+14 01817000 IOSOPT2 EQU IOSB+15 01818000 @NM00002 EQU IOSB+20 01819000 IOSCSW EQU @NM00002+1 01820000 IOSTATUS EQU IOSCSW+3 01821000 IOSIPIB EQU IOSB+44 01822000 IOSPATH EQU IOSB+86 01823000 IOSCHN EQU IOSPATH 01824000 IOSCKEY EQU IOSB+89 01825000 IOSEEKA EQU IOSB+100 01826000 IOSCCHH EQU IOSEEKA+3 01827000 IOSSKHH EQU IOSCCHH+2 01828000 SRBSECT EQU 0 01829000 SRBFLC EQU SRBSECT+12 01830000 CVTMAP EQU 0 01831000 CVTDAR EQU CVTMAP+72 01832000 CVTFLGS1 EQU CVTDAR 01833000 CVTDCB EQU CVTMAP+116 01834000 CVTIERLC EQU CVTMAP+144 01835000 CVTOPTA EQU CVTMAP+182 01836000 CVTOPTB EQU CVTMAP+183 01837000 CVTGTF EQU CVTMAP+236 01838000 CVTGTFST EQU CVTGTF 01839000 CVTGTFS EQU CVTGTFST 01840000 CVTSTATE EQU CVTGTFST 01841000 CVTTMODE EQU CVTGTFST 01842000 CVTFORM EQU CVTGTFST 01843000 CVTAQAVT EQU CVTMAP+240 01844000 CVTTCMFG EQU CVTAQAVT 01845000 CVTVOLM2 EQU CVTMAP+244 01846000 CVTTATA EQU CVTVOLM2 01847000 CVTTSKS EQU CVTTATA 01848000 CVTVOLF2 EQU CVTTSKS 01849000 CVTTAT EQU CVTTATA+1 01850000 CVTATER EQU CVTMAP+248 01851000 CVTEXT1 EQU CVTMAP+252 01852000 CVTPURG EQU CVTMAP+260 01853000 CVTQMSG EQU CVTMAP+268 01854000 CVTDMSR EQU CVTMAP+272 01855000 CVTRSV37 EQU CVTDMSR 01856000 CVTDMSRF EQU CVTRSV37 01857000 CVTERPV EQU CVTMAP+316 01858000 CVTINTLA EQU CVTMAP+320 01859000 CVTAPF EQU CVTMAP+324 01860000 CVTEXT2 EQU CVTMAP+328 01861000 CVTHJES EQU CVTMAP+332 01862000 CVTPGSIA EQU CVTMAP+348 01863000 CVTA1F1 EQU CVTMAP+356 01864000 CVTSYSK EQU CVTMAP+357 01865000 CVTVOLM1 EQU CVTMAP+380 01866000 CVTVOLF1 EQU CVTVOLM1 01867000 CVTATMCT EQU CVTMAP+388 01868000 CVTXTNT1 EQU 0 01869000 CVTXTNT2 EQU 0 01870000 CVTDSSV EQU CVTXTNT2 01871000 CVTFLGBT EQU CVTXTNT2+5 01872000 CVTQID EQU CVTXTNT2+24 01873000 CVTSHS EQU CVTXTNT2+40 01874000 CVTRV400 EQU CVTXTNT2+52 01875000 CVTRV409 EQU CVTXTNT2+53 01876000 CVTATCVT EQU CVTXTNT2+64 01877000 CVTRV429 EQU CVTXTNT2+84 01878000 CVTRV438 EQU CVTXTNT2+85 01879000 CVTRV457 EQU CVTXTNT2+112 01880000 CVTRV466 EQU CVTXTNT2+113 01881000 CVTFIX EQU 0 01882000 CVTRELNO EQU CVTFIX+252 01883000 ISTLCCW EQU 0 01884000 LCCWOP EQU ISTLCCW 01885000 LCCWRWOP EQU LCCWOP 01886000 LCCWCTL EQU LCCWRWOP 01887000 LCCWFLAG EQU ISTLCCW+1 01888000 LCCWLSI EQU LCCWFLAG 01889000 ISTLCPB EQU 0 01890000 LCPREQTG EQU ISTLCPB+2 01891000 LCPFLAGS EQU LCPREQTG 01892000 LCPZRT00 EQU LCPFLAGS 01893000 LCPZRT01 EQU LCPFLAGS 01894000 LCPZF001 EQU LCPFLAGS 01895000 LCPZRT02 EQU LCPZF001 01896000 LCPZF002 EQU LCPFLAGS 01897000 LCPZRT03 EQU LCPZF002 01898000 LCPZF003 EQU LCPFLAGS 01899000 LCPZRT04 EQU LCPZF003 01900000 LCPZF004 EQU LCPFLAGS 01901000 LCPZRT05 EQU LCPZF004 01902000 LCPZRT06 EQU LCPFLAGS 01903000 LCPZRT07 EQU LCPFLAGS 01904000 LCPMNRCD EQU LCPREQTG+1 01905000 LCPZRT08 EQU LCPMNRCD 01906000 LCPZRT09 EQU LCPMNRCD 01907000 LCPCHAIN EQU ISTLCPB+4 01908000 LCPCHAI1 EQU LCPCHAIN 01909000 LCPRUCNT EQU ISTLCPB+8 01910000 LCPFLAG2 EQU ISTLCPB+9 01911000 LCPTLBPI EQU LCPFLAG2 01912000 LCPFID0 EQU LCPFLAG2 01913000 LCPSEQ EQU ISTLCPB+10 01914000 LCPCID EQU ISTLCPB+16 01915000 LCPSAF EQU LCPCID 01916000 LCPDAF EQU LCPCID+2 01917000 LCPNXLCW EQU ISTLCPB+20 01918000 LCPFDBA EQU ISTLCPB+24 01919000 LCPSTYPE EQU ISTLCPB+36 01920000 LCPFLG1 EQU ISTLCPB+37 01921000 LCPINTER EQU LCPFLG1 01922000 LCPFLCCW EQU ISTLCPB+40 01923000 LCPLCCW EQU ISTLCPB+48 01924000 LCPPABA EQU LCPLCCW+4 01925000 LCPRPHA EQU LCPPABA 01926000 ISTZSAVE EQU 0 01927000 ZSAZSVBC EQU ISTZSAVE 01928000 ZSAZSVMS EQU ZSAZSVBC 01929000 ZSAZACTV EQU ZSAZSVMS 01930000 ZSAZSVFC EQU ISTZSAVE+4 01931000 ZSAZSVRR EQU ISTZSAVE+8 01932000 ZSAZSVVR EQU ISTZSAVE+12 01933000 ZSAZTRAC EQU ISTZSAVE+36 01934000 ISTPFCRR EQU 0 01935000 PFCCRR EQU ISTPFCRR 01936000 PFCCRRID EQU PFCCRR 01937000 PFCCRRLN EQU PFCCRR+2 01938000 PFCHDR EQU ISTPFCRR+4 01939000 PFCCRRO EQU PFCHDR 01940000 PFCFRRO EQU PFCHDR+4 01941000 ISTCFCRR EQU 0 01942000 CFCAUDIT EQU ISTCFCRR 01943000 CFCNTRD EQU CFCAUDIT 01944000 CFCCRT EQU CFCAUDIT+1 01945000 ISTZCRR EQU 0 01946000 ZCRCRR EQU ISTZCRR 01947000 ZCRFLGS1 EQU ISTZCRR+12 01948000 ZCRFLGS2 EQU ISTZCRR+13 01949000 ZCRSWFLD EQU ISTZCRR+14 01950000 ZCRENDSH EQU ZCRSWFLD 01951000 ZCRENDPR EQU ZCRSWFLD 01952000 ZCRNDLCP EQU ZCRSWFLD 01953000 ZCRRESET EQU ZCRSWFLD 01954000 ZCRCNLXL EQU ZCRRESET 01955000 ZCRFLGS3 EQU ISTZCRR+15 01956000 ZCRGENSW EQU ISTZCRR+16 01957000 ZCRTSW1 EQU ZCRGENSW 01958000 ZCRPFLGS EQU ISTZCRR+17 01959000 ZCRIBPR EQU ISTZCRR+18 01960000 ZCR3270R EQU ZCRIBPR 01961000 ZCRSCPSW EQU ISTZCRR+19 01962000 ZCRPARMS EQU ISTZCRR+24 01963000 ZCRFBPTR EQU ZCRPARMS 01964000 ZCRDFRDA EQU ZCRPARMS+10 01965000 ZCRPCOD1 EQU ZCRPARMS+12 01966000 ZCRPLSBF EQU ZCRPCOD1 01967000 ZCRPLSCB EQU ZCRPCOD1 01968000 ZCRPCOD2 EQU ZCRPARMS+13 01969000 ZCRSVRTN EQU ISTZCRR+56 01970000 ZCRSVF4 EQU ZCRSVRTN+12 01971000 ZCRSVF5 EQU ZCRSVRTN+16 01972000 ZCRSVF6 EQU ZCRSVRTN+20 01973000 ZCRSVF7 EQU ZCRSVRTN+24 01974000 ZCRWKARA EQU ISTZCRR+156 01975000 ZCRRCDSV EQU ISTZCRR+181 01976000 ZCRCIDSV EQU ISTZCRR+192 01977000 ZCRAUDIT EQU ISTZCRR+440 01978000 ZCRENTER EQU ZCRAUDIT+5 01979000 ZCREBCFB EQU ZCRENTER+2 01980000 ZCRLCPB EQU ISTZCRR+480 01981000 ZCRRHRU EQU ZCRLCPB 01982000 ISTASCRR EQU 0 01983000 ASCFLAGS EQU ISTASCRR+16 01984000 ASCFLG1 EQU ASCFLAGS 01985000 ASCFLG2 EQU ASCFLAGS+2 01986000 ASCFLG3 EQU ASCFLAGS+4 01987000 ASCUSRGS EQU ISTASCRR+28 01988000 ISTAPCRR EQU 0 01989000 APCATFLG EQU ISTAPCRR+16 01990000 APCRFLG EQU ISTAPCRR+18 01991000 APCSAVE EQU ISTAPCRR+44 01992000 APCCOMF EQU ISTAPCRR+116 01993000 APCCOMF1 EQU APCCOMF 01994000 APC31FLG EQU ISTAPCRR+132 01995000 APC52FLG EQU ISTAPCRR+133 01996000 APC53FLG EQU ISTAPCRR+134 01997000 APC54FLG EQU ISTAPCRR+135 01998000 APC57FLG EQU ISTAPCRR+136 01999000 ISTRPH EQU 0 02000000 RPHCNTL EQU ISTRPH 02001000 RPHFLAGS EQU RPHCNTL+2 02002000 RPHAPTYP EQU RPHFLAGS 02003000 RPHFSTLC EQU RPHFLAGS 02004000 RPHFLGB EQU RPHCNTL+3 02005000 RPHRPHA EQU ISTRPH+4 02006000 RPHTSKID EQU ISTRPH+8 02007000 RPHRESMA EQU ISTRPH+16 02008000 RPHWPFLG EQU RPHRESMA 02009000 RPHWEA EQU ISTRPH+24 02010000 RPHCSPA EQU RPHWEA 02011000 RPHSRPRM EQU ISTRPH+28 02012000 RPHCRR EQU ISTRPH+32 02013000 RPHPABQA EQU ISTRPH+36 02014000 RPHWORK EQU ISTRPH+40 02015000 RPHSAVE1 EQU RPHWORK 02016000 RPHSBITS EQU RPHSAVE1+1 02017000 ISTCRA EQU 0 02018000 CRABASIC EQU ISTCRA 02019000 CRAHDR EQU CRABASIC 02020000 CRACRR EQU CRAHDR 02021000 CRALKACT EQU CRABASIC+8 02022000 CRASVC EQU ISTCRA+848 02023000 CRABUFA EQU CRASVC+68 02024000 ISTPAB EQU 0 02025000 PABWQCHN EQU ISTPAB 02026000 PABWEQA EQU PABWQCHN 02027000 PABCHAIN EQU PABWQCHN+4 02028000 PABDVTA EQU ISTPAB+9 02029000 PABRPHFG EQU ISTPAB+12 02030000 PABFLAGS EQU PABRPHFG 02031000 PABERLCK EQU PABFLAGS 02032000 PABERRLK EQU PABERLCK 02033000 PABERLOK EQU PABERRLK 02034000 ISTLOK EQU 0 02035000 LOKCHN EQU ISTLOK+1 02036000 LOKCHNG EQU LOKCHN 02037000 @NM00029 EQU LOKCHNG+2 02038000 ISTDYPAB EQU 0 02039000 ISTATCVT EQU 0 02040000 ATCCOM EQU ISTATCVT 02041000 ATCSTAT EQU ATCCOM 02042000 ATCSTAT1 EQU ATCSTAT 02043000 ATCSTFLG EQU ATCSTAT+1 02044000 ATCPOFLG EQU ATCSTAT+2 02045000 ATCSTAT4 EQU ATCSTAT+3 02046000 ATCIOTRC EQU ATCCOM+140 02047000 ATCTHTRC EQU ATCIOTRC 02048000 ATCCSMR EQU ISTATCVT+296 02049000 ATCSHRFG EQU ISTATCVT+316 02050000 ATCHPGM EQU ISTATCVT+384 02051000 ATCVLCNT EQU ISTATCVT+772 02052000 ATCRNO EQU ISTATCVT+788 02053000 ATCSOPD EQU ISTATCVT+792 02054000 ATCSIPD EQU ISTATCVT+800 02055000 ATCSECST EQU ISTATCVT+812 02056000 ATCSTAT2 EQU ISTATCVT+818 02057000 ATCVTBAM EQU ISTATCVT+908 02058000 @NM00037 EQU ATCVTBAM+3 02059000 ATCAOSM EQU ISTATCVT+912 02060000 ATCGSRBQ EQU ATCAOSM+4 02061000 ATCGSRBG EQU ATCGSRBQ 02062000 ATCZPSVT EQU ATCAOSM+72 02063000 ATCICAPP EQU ATCAOSM+100 02064000 ATCLDAPP EQU ATCAOSM+120 02065000 ATCDAPVT EQU ATCAOSM+140 02066000 ATCAP38 EQU ATCAOSM+268 02067000 ATCCRA EQU ATCAOSM+280 02068000 ATCCRACN EQU ATCCRA+4 02069000 ATCSRB EQU ATCAOSM+288 02070000 ATCSRBCN EQU ATCSRB+4 02071000 ATCCRPL EQU ATCAOSM+296 02072000 ATCRPLCN EQU ATCCRPL+4 02073000 ATCSQAFR EQU ATCAOSM+304 02074000 ATCORTBC EQU ATCSQAFR+4 02075000 ATCORSRB EQU ATCORTBC 02076000 @NM00039 EQU ATCAOSM+332 02077000 ATCVTFLG EQU ATCAOSM+392 02078000 ATCZFLAG EQU ATCAOSM+588 02079000 ISTLSCB EQU 0 02080000 LSC1WORD EQU ISTLSCB 02081000 LSCREQTG EQU LSC1WORD+2 02082000 LSCZRT02 EQU LSCREQTG 02083000 LSCZRT03 EQU LSCREQTG 02084000 LSCZRT04 EQU LSCREQTG 02085000 LSCZRT05 EQU LSCREQTG 02086000 LSCZRT06 EQU LSCREQTG 02087000 LSCZRT07 EQU LSCREQTG 02088000 LSCZMNRC EQU LSCREQTG+1 02089000 LSCZRT08 EQU LSCZMNRC 02090000 LSCZRT09 EQU LSCZMNRC 02091000 LSCCHAIN EQU ISTLSCB+4 02092000 LSCCHAI1 EQU LSCCHAIN 02093000 LSCRUCNT EQU ISTLSCB+8 02094000 LSCFLGS EQU ISTLSCB+9 02095000 LSCSEQ EQU ISTLSCB+10 02096000 LSCLCPBA EQU ISTLSCB+16 02097000 LSCLCCWA EQU ISTLSCB+20 02098000 LSCFDBA EQU ISTLSCB+24 02099000 ISTDEVCH EQU 0 02100000 DEVSHCH EQU ISTDEVCH 02101000 DEVCHAR EQU DEVSHCH 02102000 DEVTCODE EQU ISTDEVCH+1 02103000 DEVFLAGS EQU ISTDEVCH+3 02104000 DEVFCCTL EQU DEVFLAGS 02105000 DEVCBSC EQU DEVFCCTL 02106000 DEVCHAR3 EQU DEVFLAGS 02107000 ISTNCB EQU 0 02108000 NCBTSKID EQU ISTNCB+8 02109000 NCBNSNA EQU ISTNCB+12 02110000 NCBFLAGS EQU ISTNCB+24 02111000 NCBFRAS EQU NCBFLAGS+1 02112000 NCBFTRIO EQU NCBFRAS 02113000 NCBFLAG1 EQU NCBFLAGS+2 02114000 NCBCONF EQU NCBFLAG1 02115000 NCBDEVCH EQU ISTNCB+36 02116000 ISTICNCB EQU 0 02117000 @NM00044 EQU ISTICNCB+53 02118000 ICNCKFLD EQU ISTICNCB+96 02119000 ICNFLAG EQU ISTICNCB+100 02120000 ICNZF006 EQU ICNFLAG 02121000 ICNFFLAG EQU ISTICNCB+101 02122000 ICNZSWS EQU ISTICNCB+102 02123000 ICNFLAG2 EQU ISTICNCB+236 02124000 ICNZD001 EQU ISTICNCB+288 02125000 ICNWSCCW EQU ICNZD001 02126000 ICNZD002 EQU ISTICNCB+296 02127000 ICNZD003 EQU ISTICNCB+320 02128000 ICNRSCCW EQU ICNZD003 02129000 ICNZD004 EQU ISTICNCB+328 02130000 ICNZS1VR EQU ISTICNCB+348 02131000 ICNSRV02 EQU ICNZS1VR 02132000 ICNDIEWA EQU ICNSRV02 02133000 ICNDCDEB EQU ISTICNCB+480 02134000 ICNDIDEB EQU ICNDCDEB+12 02135000 ICNZFLAG EQU ISTICNCB+508 02136000 ICNZH002 EQU ISTICNCB+509 02137000 ICNZS002 EQU ICNZH002 02138000 ICNZS003 EQU ICNZH002 02139000 ICNZS004 EQU ICNZH002 02140000 ICNZS006 EQU ICNZH002 02141000 ICNZS007 EQU ICNZH002 02142000 ICNZS008 EQU ICNZH002 02143000 ICNZS009 EQU ICNZH002+1 02144000 ICNZS00A EQU ICNZH002+1 02145000 ICNZCONS EQU ISTICNCB+680 02146000 ISTDNCB EQU 0 02147000 DNCNCB EQU ISTDNCB 02148000 DNCOS EQU ISTDNCB+56 02149000 DNCZFLGS EQU DNCOS 02150000 DNCZF001 EQU DNCZFLGS 02151000 DNCSESS EQU DNCZFLGS 02152000 DNCDISC EQU DNCZFLGS 02153000 DNCZF002 EQU DNCZFLGS 02154000 DNCZF006 EQU DNCZFLGS+1 02155000 DNCPSOL EQU DNCZFLGS+1 02156000 DNCZF008 EQU DNCZFLGS+1 02157000 DNCBSCED EQU DNCOS+2 02158000 DNCZV001 EQU DNCOS+17 02159000 DNCZC001 EQU DNCOS+40 02160000 ISTPROCD EQU 0 02161000 PROPROC EQU ISTPROCD 02162000 PROPROC1 EQU PROPROC 02163000 PROPROC2 EQU PROPROC+1 02164000 PROCFTX EQU PROPROC2 02165000 PROPROC3 EQU PROPROC+2 02166000 PROPROC4 EQU PROPROC+3 02167000 PROPROCS EQU 0 02168000 PROSETMS EQU PROPROCS+1 02169000 PROSETM2 EQU PROSETMS 02170000 PROSETM3 EQU PROSETMS+1 02171000 PROSETM4 EQU PROSETMS+2 02172000 ISTFMCB EQU 0 02173000 FMCSAF EQU ISTFMCB+2 02174000 FMCTSKID EQU ISTFMCB+8 02175000 FMCSTAT EQU ISTFMCB+28 02176000 FMCSTAT1 EQU ISTFMCB+29 02177000 FMCCMDFL EQU ISTFMCB+31 02178000 FMCCMPS1 EQU ISTFMCB+36 02179000 FMCPROCD EQU ISTFMCB+48 02180000 FMCMODE EQU ISTFMCB+52 02181000 FMCPAB3 EQU ISTFMCB+96 02182000 FMCPAB4 EQU ISTFMCB+112 02183000 FMCSIPA EQU ISTFMCB+148 02184000 FMCNXOSQ EQU ISTFMCB+152 02185000 FMCNXCFM EQU FMCNXOSQ 02186000 FMCOSSN EQU FMCNXCFM 02187000 FMCNXOSC EQU FMCNXOSQ+2 02188000 FMCSSTAT EQU ISTFMCB+159 02189000 FMCCONF EQU FMCSSTAT 02190000 FMCPACE EQU ISTFMCB+160 02191000 FMCPACEN EQU FMCPACE 02192000 FMCPACEM EQU FMCPACE+1 02193000 FMCPACPC EQU FMCPACE+2 02194000 FMCCVAL EQU FMCPACE+3 02195000 FMCOBCE EQU FMCCVAL 02196000 FMCCLEXT EQU ISTFMCB+164 02197000 FMCRPLA EQU FMCCLEXT 02198000 FMCFBA EQU FMCCLEXT+4 02199000 FMCCMPS2 EQU FMCCLEXT+16 02200000 FMCFLGA EQU FMCCMPS2 02201000 FMCFLGCL EQU FMCCMPS2+1 02202000 FMCPSCMD EQU FMCCMPS2+2 02203000 FMCPSTAT EQU FMCCMPS2+3 02204000 FMCSTAT2 EQU ISTFMCB+186 02205000 FMCMODEB EQU ISTFMCB+189 02206000 FMCCLSEQ EQU ISTFMCB+190 02207000 FMCRRESP EQU ISTFMCB+195 02208000 FMCSSEGQ EQU ISTFMCB+200 02209000 FMCFBAS EQU ISTFMCB+216 02210000 FMCZV002 EQU FMCFBAS 02211000 FMCSNCTL EQU ISTFMCB+224 02212000 FMCSCFLG EQU FMCSNCTL 02213000 FMCVS1 EQU ISTFMCB+232 02214000 FMCZFLAG EQU FMCVS1 02215000 FMCZF001 EQU FMCZFLAG 02216000 FMCZF002 EQU FMCZFLAG 02217000 FMCZF006 EQU FMCZFLAG 02218000 FMCZF010 EQU FMCZFLAG+2 02219000 FMCZF011 EQU FMCZFLAG+2 02220000 FMCZF017 EQU FMCZFLAG+2 02221000 FMCZF018 EQU FMCZFLAG+3 02222000 FMCZF019 EQU FMCZFLAG+3 02223000 FMCZF022 EQU FMCZFLAG+3 02224000 FMCZF023 EQU FMCZFLAG+3 02225000 FMCZH001 EQU FMCVS1+4 02226000 FMCSHEDQ EQU FMCVS1+8 02227000 FMCLBXM EQU FMCVS1+12 02228000 FMCSHEAQ EQU FMCLBXM 02229000 FMCLCPBQ EQU FMCVS1+16 02230000 FMCLCPB2 EQU FMCLCPBQ+1 02231000 FMCLCPAQ EQU FMCVS1+20 02232000 FMCZV001 EQU FMCVS1+24 02233000 FMCZX003 EQU FMCVS1+30 02234000 FMCZX004 EQU FMCVS1+31 02235000 FMCZX006 EQU FMCVS1+33 02236000 FMCSEQ1 EQU FMCVS1+34 02237000 FMCSEQ1B EQU FMCSEQ1 02238000 FMCZFLG2 EQU FMCVS1+35 02239000 FMCZF027 EQU FMCZFLG2 02240000 FMCCVFLG EQU FMCVS1+44 02241000 FMCFLAG EQU 0 02242000 FMCFLGB EQU FMCFLAG 02243000 ISTBDU EQU 0 02244000 BDUCOMND EQU ISTBDU 02245000 BDUMODIF EQU ISTBDU+1 02246000 BDUMOD1 EQU BDUMODIF 02247000 BDUDAF EQU ISTBDU+2 02248000 BDUFUNC EQU BDUDAF 02249000 BDUCHECK EQU BDUFUNC 02250000 BDUNACK EQU BDUFUNC 02251000 BDUFLAGS EQU BDUDAF+1 02252000 ISTLH EQU 0 02253000 ISTTH EQU 0 02254000 THFLAG1 EQU ISTTH 02255000 THFLGA EQU THFLAG1 02256000 THMPF EQU THFLGA 02257000 THFLGB EQU THFLAG1+1 02258000 ISTTH2 EQU 0 02259000 TH2FLAG1 EQU ISTTH2 02260000 TH2MPF EQU TH2FLAG1 02261000 ISTFDB EQU 0 02262000 FDBDATAA EQU ISTFDB+4 02263000 FDBDATCT EQU ISTFDB+8 02264000 ISTBTU EQU 0 02265000 BTUBTH EQU ISTBTU 02266000 BTUFID EQU BTUBTH 02267000 BTUDEST EQU BTUBTH+2 02268000 BTUSORCE EQU BTUBTH+4 02269000 BTUREQ EQU BTUBTH+6 02270000 BTURQFLG EQU BTUREQ 02271000 BTUZRT06 EQU BTURQFLG 02272000 BTUDCF EQU BTUBTH+8 02273000 BTURH EQU BTUBTH+10 02274000 BTUBDU EQU ISTBTU+14 02275000 BTUSYSTR EQU ISTBTU+18 02276000 BTUEXTR EQU ISTBTU+19 02277000 ISTZOBUF EQU 0 02278000 ZOBFSM EQU ISTZOBUF+4 02279000 ISTFSB EQU 0 02280000 FSBFSB EQU ISTFSB 02281000 FSBTYPE EQU FSBFSB 02282000 FSBLNGTH EQU FSBFSB+1 02283000 FSBMNRCD EQU FSBFSB+2 02284000 FSBSFLGS EQU FSBFSB+3 02285000 FSBFSBA EQU FSBFSB+4 02286000 FSBBTH EQU FSBFSB+8 02287000 FSBCID EQU FSBBTH 02288000 FSBRQTAG EQU FSBBTH+4 02289000 FSBSEQID EQU FSBRQTAG 02290000 FSBFLAGS EQU FSBSEQID 02291000 FSBSEQ EQU FSBSEQID+1 02292000 FSBCSWST EQU FSBBTH+6 02293000 FSBTHFLD EQU FSBCSWST 02294000 FSBTH1 EQU FSBTHFLD 02295000 FSBSYSRS EQU FSBTH1 02296000 FSBSPHSE EQU FSBSYSRS 02297000 FSBSCODE EQU FSBSYSRS 02298000 FSBTH2 EQU FSBTHFLD+1 02299000 FSBEXTRS EQU FSBTH2 02300000 FSBXFSTS EQU FSBEXTRS 02301000 FSBXCODE EQU FSBEXTRS 02302000 FSBNETRS EQU FSBFSB+16 02303000 FSBSRCAT EQU FSBNETRS 02304000 FSBMJRCD EQU FSBSRCAT 02305000 FSBERC EQU FSBNETRS+1 02306000 FSBFBMI EQU FSBERC 02307000 FSBDMGRS EQU FSBFSB+18 02308000 FSBSS1 EQU FSBDMGRS 02309000 FSBSS2 EQU FSBDMGRS+1 02310000 FSBLCPB EQU FSBFSB+20 02311000 FSBMSGID EQU FSBLCPB 02312000 FSBLCCWA EQU FSBFSB+24 02313000 FSBRLSTS EQU FSBLCCWA 02314000 ISTZIBUF EQU 0 02315000 ZIBFSM EQU ISTZIBUF+4 02316000 ISTZLBVT EQU 0 02317000 ZLBZIFSB EQU ISTZLBVT+76 02318000 ZLBZIFUB EQU ISTZLBVT+80 02319000 ZLBZIFVB EQU ISTZLBVT+84 02320000 ISTZPSVT EQU 0 02321000 ZPSZDFB0 EQU ISTZPSVT+16 02322000 ZPSZBFZ0 EQU ISTZPSVT+28 02323000 ISTRIA EQU 0 02324000 RIAABRGS EQU ISTRIA+16 02325000 RIAFLGS EQU ISTRIA+80 02326000 RIAFLG1 EQU RIAFLGS 02327000 RIAFLG2 EQU RIAFLGS+1 02328000 REQTAG EQU 0 02329000 ISTAPC38 EQU 0 02330000 CICHAIN EQU 0 02331000 ISTZBFZ0 EQU 0 02332000 ISTZDFB0 EQU 0 02333000 ISTZIFSB EQU 0 02334000 ISTZIFUB EQU 0 02335000 ISTZIFVB EQU 0 02336000 ZIBSRB EQU 0 02337000 IOSATTSC EQU IOSIPIB 02338000 IOSWTOWA EQU IOSIPIB 02339000 IOSPCISC EQU IOSIPIB 02340000 CVTS01 EQU CVTPGSIA 02341000 CVTLPDIA EQU CVTS01+12 02342000 CVTDIRST EQU CVTLPDIA 02343000 CVTSLIDA EQU CVTS01+24 02344000 CVTCTLFG EQU CVTS01+50 02345000 CVTRV210 EQU CVTS01+424 02346000 CVTRV219 EQU CVTS01+425 02347000 CVTRV228 EQU CVTS01+426 02348000 CVTRV237 EQU CVTS01+427 02349000 CVTMFRTR EQU CVTS01+452 02350000 CVTRV262 EQU CVTS01+468 02351000 CVTRV271 EQU CVTS01+469 02352000 CVTRV280 EQU CVTS01+470 02353000 CVTRV289 EQU CVTS01+471 02354000 CVTGSDA EQU CVTS01+600 02355000 LCPZTIE EQU LCPCID 02356000 LCPZSNAM EQU LCPZTIE+8 02357000 ZOBDLBT EQU ISTZOBUF 02358000 ZOBDLBCM EQU ZOBDLBT 02359000 ZOBFDB EQU ZOBDLBCM 02360000 @NM00060 EQU ZOBDLBCM+25 02361000 ZOBBTU EQU ZOBDLBT+28 02362000 ZOBWCC EQU ZOBDLBT+48 02363000 ZOBECCC EQU ZOBDLBT+50 02364000 ZOBDIO EQU ZOBFSM 02365000 ZOBCCW2 EQU ZOBDIO+8 02366000 ZOBCPTCC EQU ZOBCCW2 02367000 ZOBFLAGS EQU ZOBCCW2+5 02368000 ZOBCCW3 EQU ZOBDIO+16 02369000 ZOBCPTRC EQU ZOBCCW3 02370000 ZOBCPN2C EQU ZOBCPTRC 02371000 ZOBCPTRA EQU ZOBCCW3+1 02372000 @NM00064 EQU ZOBBTU 02373000 FSBCOMBN EQU FSBNETRS 02374000 FSBRHFLD EQU FSBCOMBN+1 02375000 FSBRH3 EQU FSBRHFLD+2 02376000 FSBLDFLG EQU FSBRH3 02377000 @NM00068 EQU FSBRQTAG 02378000 ZIBDIO EQU ZIBFSM 02379000 ZIBCCW2 EQU ZIBDIO+8 02380000 ZIBCPTCC EQU ZIBCCW2 02381000 ZIBAIO EQU ISTZIBUF 02382000 ZIBAIOCM EQU ZIBAIO 02383000 ZIBFDBZ EQU ZIBAIOCM 02384000 ZIBFIB EQU ZIBAIO+16 02385000 ZIBFSB EQU ZIBFIB 02386000 ZIBMDREC EQU ZIBFSB+4 02387000 ZIBMDRIN EQU ZIBFSB+28 02388000 ZIBBTU EQU ZIBFIB+32 02389000 @NM00071 EQU ZIBBTU+12 02390000 ZIBFID1 EQU @NM00071+1 02391000 ZIBFITXT EQU ZIBFID1 02392000 ZIBSIB EQU ZIBFIB 02393000 ZIBREC EQU ZIBMDRIN 02394000 ZIBRECPL EQU ZIBREC 02395000 ZIBRECHD EQU ZIBRECPL 02396000 ZIBRECRS EQU ZIBREC+8 02397000 ZIBRECDT EQU ZIBREC+10 02398000 ZIBMDRRC EQU ZIBMDREC 02399000 ZIBRCPL EQU ZIBMDRRC 02400000 ZIBRCDT EQU ZIBMDRRC+24 02401000 @NM00073 EQU ZIBBTU 02402000 SRB EQU SRBSECT 02403000 ZOBTEXT EQU ZOBBTU 02404000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02405000 ZIBTH2 EQU @NM00073+4 02406000 ZIBLH EQU @NM00073 02407000 ZIBRCTXT EQU ZIBMDRRC+36 02408000 ZIBRCRID EQU ZIBRCDT+10 02409000 ZIBRCNAM EQU ZIBRCDT+2 02410000 ZIBRCUA EQU ZIBRCDT 02411000 ZIBRCPUI EQU ZIBRCPL+20 02412000 ZIBRCPUN EQU ZIBRCPL+16 02413000 ZIBRCTIM EQU ZIBRCPL+12 02414000 ZIBRCDAT EQU ZIBRCPL+8 02415000 ZIBRCRS1 EQU ZIBRCPL+6 02416000 ZIBRCSID EQU ZIBRCPL+5 02417000 ZIBRCID EQU ZIBRCPL+4 02418000 ZIBRCSW EQU ZIBRCPL+2 02419000 ZIBRCSYR EQU ZIBRCPL+1 02420000 ZIBRCL EQU ZIBRCPL 02421000 ZIBRECTX EQU ZIBREC+22 02422000 ZIBRECID EQU ZIBRECDT+10 02423000 ZIBRECNA EQU ZIBRECDT+2 02424000 ZIBRECUA EQU ZIBRECDT 02425000 ZIBRECSV EQU ZIBRECRS 02426000 ZIBRECDA EQU ZIBRECPL+4 02427000 ZIBRECSI EQU ZIBRECHD+3 02428000 ZIBRECDV EQU ZIBRECHD+2 02429000 ZIBRECFL EQU ZIBRECHD+1 02430000 ZIBRECTY EQU ZIBRECHD 02431000 ZIBTEXT EQU ZIBSIB+4 02432000 ZIBRSV04 EQU ZIBSIB 02433000 ZIBTEXT2 EQU ZIBFITXT 02434000 ZIBTEXT1 EQU ZIBFIB+52 02435000 @NM00072 EQU @NM00071 02436000 ZIBFDBS EQU ZIBBTU 02437000 @NM00070 EQU ZIBMDREC 02438000 @NM00069 EQU ZIBFSB 02439000 ZIBLNG2 EQU ZIBAIOCM+14 02440000 ZIBRSV03 EQU ZIBAIOCM+13 02441000 ZIBWKBYT EQU ZIBAIOCM+12 02442000 ZIBCPNPK EQU ZIBCCW2+6 02443000 ZIBRSV02 EQU ZIBCCW2+5 02444000 ZIBCPTPF EQU ZIBCCW2+4 02445000 ZIBCPTCA EQU ZIBCCW2+1 02446000 ZIBCPNPC EQU ZIBCPTCC 02447000 ZIBCPRDK EQU ZIBDIO+6 02448000 ZIBRSV01 EQU ZIBDIO+5 02449000 ZIBCPRDF EQU ZIBDIO+4 02450000 ZIBCPTXA EQU ZIBDIO+1 02451000 ZIBCPRDC EQU ZIBDIO 02452000 FSBRT0B EQU @NM00068+1 02453000 FSBRT0A EQU @NM00068+1 02454000 FSBRT09 EQU @NM00068+1 02455000 FSBRT08 EQU @NM00068+1 02456000 FSBRT07 EQU @NM00068 02457000 FSBRT06 EQU @NM00068 02458000 FSBRT05 EQU @NM00068 02459000 FSBRT04 EQU @NM00068 02460000 FSBRT03 EQU @NM00068 02461000 FSBRT02 EQU @NM00068 02462000 FSBRT01 EQU @NM00068 02463000 FSBRT00 EQU @NM00068 02464000 FSBLDCUF EQU FSBLDFLG 02465000 FSBLDSIF EQU FSBLDFLG 02466000 FSBLDSOF EQU FSBLDFLG 02467000 FSBLDEBF EQU FSBLDFLG 02468000 FSBLDBBF EQU FSBLDFLG 02469000 FSBLDFME EQU FSBLDFLG 02470000 FSBLDSCF EQU FSBLDFLG 02471000 FSBLDRMF EQU FSBLDFLG 02472000 FSBRH2 EQU FSBRHFLD+1 02473000 FSBRH1 EQU FSBRHFLD 02474000 FSBALIGN EQU FSBCOMBN 02475000 ZOBTH2 EQU @NM00064+4 02476000 ZOBLH EQU @NM00064 02477000 ZOBCPN2K EQU ZOBCCW3+6 02478000 ZOBRSV99 EQU ZOBCCW3+5 02479000 ZOBCPN2F EQU ZOBCCW3+4 02480000 ZOBCPTC2 EQU ZOBCPTRA 02481000 ZOBCPTC1 EQU ZOBCPN2C 02482000 ZOBCPNPK EQU ZOBCCW2+6 02483000 ZOBRSV03 EQU ZOBFLAGS 02484000 ZOBRT08 EQU ZOBFLAGS 02485000 ZOBRT06 EQU ZOBFLAGS 02486000 ZOBCPNPF EQU ZOBCCW2+4 02487000 ZOBCPTCA EQU ZOBCCW2+1 02488000 ZOBCPNPC EQU ZOBCPTCC 02489000 ZOBCPWTK EQU ZOBDIO+6 02490000 ZOBRSV02 EQU ZOBDIO+5 02491000 ZOBCPWTF EQU ZOBDIO+4 02492000 ZOBCPTXA EQU ZOBDIO+1 02493000 ZOBCPWTC EQU ZOBDIO 02494000 ZOBRSV09 EQU ZOBECCC 02495000 ZOBECSP EQU ZOBECCC 02496000 ZOBRSV08 EQU ZOBECCC 02497000 ZOBRSV07 EQU ZOBDLBT+49 02498000 ZOBRSV06 EQU ZOBWCC 02499000 ZOBWCSP EQU ZOBWCC 02500000 ZOBRSV05 EQU ZOBWCC 02501000 ZOBRSV10 EQU ZOBDLBCM+26 02502000 @NM00063 EQU @NM00060 02503000 @NM00062 EQU @NM00060 02504000 @NM00061 EQU @NM00060 02505000 ZOBRSV04 EQU ZOBDLBCM+16 02506000 ZOBLNG2 EQU ZOBDLBCM+14 02507000 ZOBRSV01 EQU ZOBDLBCM+12 02508000 LCPZTRV4 EQU LCPZSNAM+4 02509000 LCPZTRV1 EQU LCPZSNAM 02510000 LCPZSNA EQU LCPZTIE+4 02511000 LCPZFMCA EQU LCPZTIE 02512000 CVTRV628 EQU CVTS01+728 02513000 CVTRV627 EQU CVTS01+724 02514000 CVTRV626 EQU CVTS01+720 02515000 CVTRV625 EQU CVTS01+716 02516000 CVTRV624 EQU CVTS01+712 02517000 CVTRV623 EQU CVTS01+708 02518000 CVTRV622 EQU CVTS01+704 02519000 CVTRV621 EQU CVTS01+700 02520000 CVTRV620 EQU CVTS01+696 02521000 CVTRV619 EQU CVTS01+692 02522000 CVTRV618 EQU CVTS01+688 02523000 CVTRV617 EQU CVTS01+684 02524000 CVTRV616 EQU CVTS01+680 02525000 CVTRV615 EQU CVTS01+676 02526000 CVTRV614 EQU CVTS01+672 02527000 CVTRV613 EQU CVTS01+668 02528000 CVTTCASP EQU CVTS01+664 02529000 CVT0PT03 EQU CVTS01+660 02530000 CVT0PT0E EQU CVTS01+656 02531000 CVTIRM EQU CVTS01+652 02532000 CVTCGK EQU CVTS01+648 02533000 CVTRV607 EQU CVTS01+644 02534000 CVTRV606 EQU CVTS01+640 02535000 CVTRV605 EQU CVTS01+636 02536000 CVTRV604 EQU CVTS01+632 02537000 CVTEFF02 EQU CVTS01+628 02538000 CVTCBBR EQU CVTS01+624 02539000 CVTSSCR EQU CVTS01+620 02540000 CVTEVENT EQU CVTS01+616 02541000 CVTCRCA EQU CVTS01+612 02542000 CVTTPIO EQU CVTS01+608 02543000 CVTADV EQU CVTS01+604 02544000 CVTGSDAB EQU CVTGSDA 02545000 CVTQV3 EQU CVTS01+596 02546000 CVTQV2 EQU CVTS01+592 02547000 CVTQV1 EQU CVTS01+588 02548000 CVTRPT EQU CVTS01+584 02549000 CVTSSRB EQU CVTS01+580 02550000 CVTCSDRL EQU CVTS01+576 02551000 CVTEXP1 EQU CVTS01+572 02552000 CVTRMPMT EQU CVTS01+568 02553000 CVTRMPTT EQU CVTS01+564 02554000 CVTVPSA EQU CVTS01+560 02555000 CVTVSTOP EQU CVTS01+556 02556000 CVTGTFR8 EQU CVTS01+552 02557000 CVTQUIT EQU CVTS01+548 02558000 CVTVACR EQU CVTS01+544 02559000 CVTWTCB EQU CVTS01+540 02560000 CVTSTPRS EQU CVTS01+536 02561000 CVT0PT02 EQU CVTS01+532 02562000 CVTDARCM EQU CVTS01+528 02563000 CVTIRECM EQU CVTS01+524 02564000 CVTJRECM EQU CVTS01+520 02565000 CVTVEMS0 EQU CVTS01+516 02566000 CVTSPFRR EQU CVTS01+512 02567000 CVTRLSTG EQU CVTS01+508 02568000 CVT0TC0A EQU CVTS01+504 02569000 CVTGMBR EQU CVTS01+500 02570000 CVTLFRM EQU CVTS01+496 02571000 CVTRMBR EQU CVTS01+492 02572000 CVTVIOP EQU CVTS01+488 02573000 CVTRV307 EQU CVTS01+486 02574000 CVTRV306 EQU CVTS01+484 02575000 CVTRV305 EQU CVTS01+482 02576000 CVTRV304 EQU CVTS01+480 02577000 CVTRV303 EQU CVTS01+478 02578000 CVTRV302 EQU CVTS01+476 02579000 CVTTRCA EQU CVTS01+472 02580000 CVTRV297 EQU CVTRV289 02581000 CVTRV296 EQU CVTRV289 02582000 CVTRV295 EQU CVTRV289 02583000 CVTRV294 EQU CVTRV289 02584000 CVTRV293 EQU CVTRV289 02585000 CVTRV292 EQU CVTRV289 02586000 CVTRV291 EQU CVTRV289 02587000 CVTRV290 EQU CVTRV289 02588000 CVTRV288 EQU CVTRV280 02589000 CVTRV287 EQU CVTRV280 02590000 CVTRV286 EQU CVTRV280 02591000 CVTRV285 EQU CVTRV280 02592000 CVTRV284 EQU CVTRV280 02593000 CVTRV283 EQU CVTRV280 02594000 CVTRV282 EQU CVTRV280 02595000 CVTRV281 EQU CVTRV280 02596000 CVTRV279 EQU CVTRV271 02597000 CVTRV278 EQU CVTRV271 02598000 CVTRV277 EQU CVTRV271 02599000 CVTRV276 EQU CVTRV271 02600000 CVTRV275 EQU CVTRV271 02601000 CVTRV274 EQU CVTRV271 02602000 CVTRV273 EQU CVTRV271 02603000 CVTRV272 EQU CVTRV271 02604000 CVTRV270 EQU CVTRV262 02605000 CVTRV269 EQU CVTRV262 02606000 CVTRV268 EQU CVTRV262 02607000 CVTRV267 EQU CVTRV262 02608000 CVTRV266 EQU CVTRV262 02609000 CVTRV265 EQU CVTRV262 02610000 CVTRV264 EQU CVTRV262 02611000 CVTRV263 EQU CVTRV262 02612000 CVTVFP EQU CVTS01+464 02613000 CVTVSI EQU CVTS01+460 02614000 CVTVPSIB EQU CVTS01+456 02615000 CVTMFACT EQU CVTMFRTR 02616000 CVTMFCTL EQU CVTS01+448 02617000 CVTPVBP EQU CVTS01+444 02618000 CVTPWI EQU CVTS01+440 02619000 CVTRV254 EQU CVTS01+438 02620000 CVTRV253 EQU CVTS01+436 02621000 CVTRV252 EQU CVTS01+434 02622000 CVTRV251 EQU CVTS01+433 02623000 CVTRV250 EQU CVTS01+432 02624000 CVTRV249 EQU CVTS01+431 02625000 CVTRV248 EQU CVTS01+430 02626000 CVTRV247 EQU CVTS01+429 02627000 CVTRV246 EQU CVTS01+428 02628000 CVTRV245 EQU CVTRV237 02629000 CVTRV244 EQU CVTRV237 02630000 CVTRV243 EQU CVTRV237 02631000 CVTRV242 EQU CVTRV237 02632000 CVTRV241 EQU CVTRV237 02633000 CVTRV240 EQU CVTRV237 02634000 CVTRV239 EQU CVTRV237 02635000 CVTRV238 EQU CVTRV237 02636000 CVTRV236 EQU CVTRV228 02637000 CVTRV235 EQU CVTRV228 02638000 CVTRV234 EQU CVTRV228 02639000 CVTRV233 EQU CVTRV228 02640000 CVTRV232 EQU CVTRV228 02641000 CVTRV231 EQU CVTRV228 02642000 CVTRV230 EQU CVTRV228 02643000 CVTRV229 EQU CVTRV228 02644000 CVTRV227 EQU CVTRV219 02645000 CVTRV226 EQU CVTRV219 02646000 CVTRV225 EQU CVTRV219 02647000 CVTRV224 EQU CVTRV219 02648000 CVTRV223 EQU CVTRV219 02649000 CVTRV222 EQU CVTRV219 02650000 CVTRV221 EQU CVTRV219 02651000 CVTRV220 EQU CVTRV219 02652000 CVTRV218 EQU CVTRV210 02653000 CVTRV217 EQU CVTRV210 02654000 CVTRV216 EQU CVTRV210 02655000 CVTRV215 EQU CVTRV210 02656000 CVTRV214 EQU CVTRV210 02657000 CVTRV213 EQU CVTRV210 02658000 CVTRV212 EQU CVTRV210 02659000 CVTRV211 EQU CVTRV210 02660000 CVTLCCAT EQU CVTS01+420 02661000 CVTPCCAT EQU CVTS01+416 02662000 CVTIPCRP EQU CVTS01+412 02663000 CVTIPCRI EQU CVTS01+408 02664000 CVTIPCDS EQU CVTS01+404 02665000 CVTAIDVT EQU CVTS01+400 02666000 CVTSSAP EQU CVTS01+396 02667000 CVTEHCIR EQU CVTS01+392 02668000 CVTEHDEF EQU CVTS01+388 02669000 CVTDAIR EQU CVTS01+384 02670000 CVTPERFM EQU CVTS01+380 02671000 CVT044R2 EQU CVTS01+376 02672000 CVTFETCH EQU CVTS01+372 02673000 CVTRSTWD EQU CVTS01+368 02674000 CVTSPOST EQU CVTS01+364 02675000 CVTIOBP EQU CVTS01+360 02676000 CVTASMVT EQU CVTS01+356 02677000 CVTRECRQ EQU CVTS01+352 02678000 CVTWSAC EQU CVTS01+348 02679000 CVTRV149 EQU CVTS01+344 02680000 CVTWSAL EQU CVTS01+340 02681000 CVTSPSA EQU CVTS01+336 02682000 CVTGLMN EQU CVTS01+332 02683000 CVTVEAC0 EQU CVTS01+328 02684000 CVT062R1 EQU CVTS01+324 02685000 CVTRPOST EQU CVTS01+320 02686000 CVTDQIQE EQU CVTS01+316 02687000 CVTCSD EQU CVTS01+312 02688000 CVTLKRMA EQU CVTS01+308 02689000 CVTRSPIE EQU CVTS01+304 02690000 CVTRENQ EQU CVTS01+300 02691000 CVTLQCB EQU CVTS01+296 02692000 CVTFQCB EQU CVTS01+292 02693000 CVTQCS01 EQU CVTS01+288 02694000 CVTAPFT EQU CVTS01+284 02695000 CVTPARRL EQU CVTS01+280 02696000 CVTVWAIT EQU CVTS01+276 02697000 CVTGSPL EQU CVTS01+272 02698000 CVTLSMQ EQU CVTS01+268 02699000 CVTGSMQ EQU CVTS01+264 02700000 CVTEXPRO EQU CVTS01+260 02701000 CVTOPCTP EQU CVTS01+256 02702000 CVTSIC EQU CVTS01+252 02703000 CVTTPIOS EQU CVTS01+248 02704000 CVTRTMS EQU CVTS01+244 02705000 CVTSDBF EQU CVTS01+240 02706000 CVTSCBP EQU CVTS01+236 02707000 CVTSDMP EQU CVTS01+232 02708000 CVTSV60 EQU CVTS01+228 02709000 CVTRTMCT EQU CVTS01+224 02710000 CVTASCBL EQU CVTS01+220 02711000 CVTASCBH EQU CVTS01+216 02712000 CVTGDA EQU CVTS01+212 02713000 CVTASVT EQU CVTS01+208 02714000 CVTVVMDI EQU CVTS01+204 02715000 CVTAQTOP EQU CVTS01+200 02716000 CVTIOSCS EQU CVTS01+196 02717000 CVTSDRM EQU CVTS01+192 02718000 CVTOPTE EQU CVTS01+188 02719000 CVTSTXU EQU CVTS01+184 02720000 CVTQUIS EQU CVTS01+180 02721000 CVTPARS EQU CVTS01+176 02722000 CVTS1EE EQU CVTS01+172 02723000 CVTFRAS EQU CVTS01+168 02724000 CVTQSAS EQU CVTS01+164 02725000 CVTCRAS EQU CVTS01+160 02726000 CVTCRMN EQU CVTS01+156 02727000 CVTDELCP EQU CVTS01+152 02728000 CVTFRECL EQU CVTS01+148 02729000 CVTGETCL EQU CVTS01+144 02730000 CVTBLDCP EQU CVTS01+140 02731000 CVTAUTHL EQU CVTS01+136 02732000 CVTSCAN EQU CVTS01+132 02733000 CVTRV144 EQU CVTS01+130 02734000 CVTMAXMP EQU CVTS01+128 02735000 CVTSTCK EQU CVTS01+124 02736000 CVTRV139 EQU CVTS01+123 02737000 CVTDSSAC EQU CVTS01+122 02738000 CVTRV513 EQU CVTS01+121 02739000 CVTIOSPL EQU CVTS01+120 02740000 CVTPTGT EQU CVTS01+116 02741000 CVTCSPIE EQU CVTS01+112 02742000 CVTSMFEX EQU CVTS01+108 02743000 CVTOLT0A EQU CVTS01+104 02744000 CVTSRBRT EQU CVTS01+100 02745000 CVTPUTL EQU CVTS01+96 02746000 CVTASCRL EQU CVTS01+92 02747000 CVTASCRF EQU CVTS01+88 02748000 CVTRV326 EQU CVTS01+84 02749000 CVTRV325 EQU CVTS01+80 02750000 CVTRV324 EQU CVTS01+76 02751000 CVT0VL01 EQU CVTS01+72 02752000 CVTSHRVM EQU CVTS01+68 02753000 CVTRV332 EQU CVTS01+64 02754000 CVTTAS EQU CVTS01+60 02755000 CVTRSCN EQU CVTS01+56 02756000 CVTTRAC2 EQU CVTS01+54 02757000 CVTTRACE EQU CVTS01+52 02758000 CVTAPG EQU CVTS01+51 02759000 CVTSDTRC EQU CVTCTLFG 02760000 CVTGTRCE EQU CVTCTLFG 02761000 CVTNOMP EQU CVTCTLFG 02762000 CVTRSV79 EQU CVTCTLFG 02763000 CVTDSTAT EQU CVTCTLFG 02764000 CVTRSV78 EQU CVTCTLFG 02765000 CVTRV333 EQU CVTCTLFG 02766000 CVTRV323 EQU CVTCTLFG 02767000 CVTSPVLK EQU CVTS01+49 02768000 CVTRSV77 EQU CVTS01+48 02769000 CVTRV331 EQU CVTS01+44 02770000 CVTRV330 EQU CVTS01+40 02771000 CVTRV329 EQU CVTS01+36 02772000 CVTRV328 EQU CVTS01+32 02773000 CVTRV322 EQU CVTS01+28 02774000 CVTSLID EQU CVTSLIDA+1 02775000 CVTSYLK EQU CVTSLIDA 02776000 CVTRV321 EQU CVTS01+20 02777000 CVTRV320 EQU CVTS01+16 02778000 CVTLPDIR EQU CVTLPDIA+1 02779000 CVTRSV69 EQU CVTDIRST 02780000 CVTRSV68 EQU CVTDIRST 02781000 CVTRSV67 EQU CVTDIRST 02782000 CVTRSV66 EQU CVTDIRST 02783000 CVTRSV65 EQU CVTDIRST 02784000 CVTRSV64 EQU CVTDIRST 02785000 CVTRSV63 EQU CVTDIRST 02786000 CVTDICOM EQU CVTDIRST 02787000 CVTPVTP EQU CVTS01+8 02788000 CVTLPDSR EQU CVTS01+4 02789000 CVTGETL EQU CVTS01 02790000 IOSPCIWA EQU IOSPCISC+44 02791000 IOSPCIRS EQU IOSPCISC+8 02792000 @NM00007 EQU IOSPCISC+4 02793000 @NM00006 EQU IOSPCISC 02794000 IOSWRNDR EQU IOSWTOWA+4 02795000 IOSWTOPT EQU IOSWTOWA+3 02796000 IOSWTOCP EQU IOSWTOWA+2 02797000 IOSWTOCH EQU IOSWTOWA 02798000 IOSATTWA EQU IOSATTSC+40 02799000 @NM00005 EQU IOSATTSC+24 02800000 IOSATTSN EQU IOSATTSC 02801000 RIARSV03 EQU RIAFLGS+2 02802000 RIARSV02 EQU RIAFLG2 02803000 RIABR15 EQU RIAFLG2 02804000 RIARSPCC EQU RIAFLG2 02805000 RIARTPXT EQU RIAFLG2 02806000 RIACONT EQU RIAFLG2 02807000 RIAFABN EQU RIAFLG2 02808000 RIARSV01 EQU RIAFLG1 02809000 RIACTIVE EQU RIAFLG1 02810000 RIACTL EQU RIAFLG1 02811000 RIAABR15 EQU RIAABRGS+60 02812000 RIAABR14 EQU RIAABRGS+56 02813000 RIAABR13 EQU RIAABRGS+52 02814000 RIAABR12 EQU RIAABRGS+48 02815000 RIAABR11 EQU RIAABRGS+44 02816000 RIAABR10 EQU RIAABRGS+40 02817000 RIAABR09 EQU RIAABRGS+36 02818000 RIAABR08 EQU RIAABRGS+32 02819000 RIAABR07 EQU RIAABRGS+28 02820000 RIAABR06 EQU RIAABRGS+24 02821000 RIAABR05 EQU RIAABRGS+20 02822000 RIAABR04 EQU RIAABRGS+16 02823000 RIAABR03 EQU RIAABRGS+12 02824000 RIAABR02 EQU RIAABRGS+8 02825000 RIAABR01 EQU RIAABRGS+4 02826000 RIAABR00 EQU RIAABRGS 02827000 RIARSV04 EQU ISTRIA+14 02828000 RIAABPSW EQU ISTRIA+4 02829000 RIAABCD EQU ISTRIA 02830000 ZPSZDFQR EQU ISTZPSVT+80 02831000 ZPSZDFPR EQU ISTZPSVT+76 02832000 ZPSZDFXR EQU ISTZPSVT+72 02833000 ZPSZWRD5 EQU ISTZPSVT+68 02834000 ZPSZWRD4 EQU ISTZPSVT+64 02835000 ZPSZDFMB EQU ISTZPSVT+60 02836000 ZPSZDFMF EQU ISTZPSVT+56 02837000 ZPSZDFNB EQU ISTZPSVT+52 02838000 @NM00074 EQU ISTZPSVT+48 02839000 ZPSZDFF0 EQU ISTZPSVT+44 02840000 ZPSZTRTT EQU ISTZPSVT+40 02841000 ZPSZBFOB EQU ISTZPSVT+36 02842000 ZPSZBFMB EQU ISTZPSVT+32 02843000 ZPSZBFY0 EQU ISTZPSVT+24 02844000 ZPSZDFI0 EQU ISTZPSVT+20 02845000 ZPSZDFH0 EQU ISTZPSVT+12 02846000 ZPSZDFD0 EQU ISTZPSVT+8 02847000 ZPSZDFC0 EQU ISTZPSVT+4 02848000 ZPSZDFA0 EQU ISTZPSVT 02849000 ZLBZBFSC EQU ISTZLBVT+88 02850000 ZLBRSV22 EQU ISTZLBVT+72 02851000 ZLBZBFID EQU ISTZLBVT+68 02852000 ZLBZBFX0 EQU ISTZLBVT+64 02853000 ZLBRSV02 EQU ISTZLBVT+60 02854000 ZLBRSV21 EQU ISTZLBVT+56 02855000 ZLBZBFJB EQU ISTZLBVT+52 02856000 ZLBZBFIB EQU ISTZLBVT+48 02857000 ZLBZBFHB EQU ISTZLBVT+44 02858000 ZLBZBFGB EQU ISTZLBVT+40 02859000 ZLBZBFFB EQU ISTZLBVT+36 02860000 ZLBZBFEB EQU ISTZLBVT+32 02861000 ZLBZBFDB EQU ISTZLBVT+28 02862000 ZLBZBFCB EQU ISTZLBVT+24 02863000 ZLBZBFBB EQU ISTZLBVT+20 02864000 ZLBZBFAB EQU ISTZLBVT+16 02865000 ZLBZBFNB EQU ISTZLBVT+12 02866000 ZLBZCFAI EQU ISTZLBVT+8 02867000 ZLBZBF0B EQU ISTZLBVT+4 02868000 ZLBZAF0B EQU ISTZLBVT 02869000 ZIBLNG1 EQU ZIBFSM 02870000 ZIBCHAIN EQU ISTZIBUF 02871000 FSBFDB EQU ISTFSB+32 02872000 FSBRSV01 EQU FSBFSB+30 02873000 FSBTHCNT EQU FSBFSB+28 02874000 FSBRLRSV EQU FSBRLSTS 02875000 FSBCFTX EQU FSBRLSTS 02876000 FSBICNCB EQU FSBMSGID 02877000 FSBSSOC EQU FSBSS2 02878000 FSBSSCC EQU FSBSS2 02879000 FSBSSDC EQU FSBSS2 02880000 FSBSSEC EQU FSBSS2 02881000 FSBSSIR EQU FSBSS2 02882000 FSBSSCR EQU FSBSS2 02883000 @NM00067 EQU FSBSS2 02884000 @NM00066 EQU FSBSS1 02885000 FSBSSDE EQU FSBSS1 02886000 FSBSSUS EQU FSBSS1 02887000 @NM00065 EQU FSBSS1 02888000 FSBSOHI EQU FSBERC 02889000 FSBLGI EQU FSBERC 02890000 FSBLMRI EQU FSBFBMI 02891000 FSBETI EQU FSBERC 02892000 FSBEMI EQU FSBERC 02893000 FSBEBI EQU FSBERC 02894000 FSBECI EQU FSBERC 02895000 FSBELI EQU FSBERC 02896000 FSBXLCI EQU FSBXCODE 02897000 FSBXFINS EQU FSBXCODE 02898000 FSBXNORM EQU FSBXFSTS 02899000 FSBSERR EQU FSBSYSRS 02900000 FSBCMD EQU FSBSEQ 02901000 FSBDTRCE EQU FSBFLAGS 02902000 FSBASBTU EQU FSBFLAGS 02903000 FSBINPET EQU FSBFLAGS 02904000 FSBNONCB EQU FSBFLAGS 02905000 FSBLBIND EQU FSBFLAGS 02906000 FSBFFIND EQU FSBFLAGS 02907000 FSBACIND EQU FSBFLAGS 02908000 FSBRFIND EQU FSBFLAGS 02909000 FSBDAF EQU FSBCID+2 02910000 FSBSAF EQU FSBCID 02911000 FSBGATE EQU FSBFSBA 02912000 FSBLATOP EQU FSBSFLGS 02913000 FSBRSV02 EQU FSBSFLGS 02914000 FSBPGBUF EQU FSBSFLGS 02915000 FSBMNSDA EQU FSBMNRCD 02916000 FSBMNOA EQU FSBMNRCD 02917000 FSBMNDIF EQU FSBMNRCD 02918000 FSBMNEOP EQU FSBMNRCD 02919000 FSBMNDNU EQU FSBMNRCD 02920000 FSBMNATN EQU FSBMNRCD 02921000 FSBMNRVI EQU FSBMNRCD 02922000 FSBMNELI EQU FSBMNRCD 02923000 ZOBLNG1 EQU ZOBFSM 02924000 ZOBCHAIN EQU ISTZOBUF 02925000 BTUTEXT EQU ISTBTU+20 02926000 BTURSV02 EQU BTUSYSTR 02927000 BTUPHASE EQU BTUSYSTR 02928000 BTURSV01 EQU BTUSYSTR 02929000 BTUPAD EQU BTURH+3 02930000 BTURH3 EQU BTURH+2 02931000 BTURH2 EQU BTURH+1 02932000 BTURH1 EQU BTURH 02933000 BTUZRTSC EQU BTURQFLG+1 02934000 BTUZRT0B EQU BTURQFLG+1 02935000 BTUZRT0A EQU BTURQFLG+1 02936000 BTUZRT09 EQU BTURQFLG+1 02937000 BTUZRT08 EQU BTURQFLG+1 02938000 BTUZRT07 EQU BTURQFLG 02939000 BTUZRT05 EQU BTURQFLG 02940000 BTUZRT04 EQU BTURQFLG 02941000 BTUZRT03 EQU BTURQFLG 02942000 BTUZRT02 EQU BTURQFLG 02943000 BTUZRT01 EQU BTURQFLG 02944000 BTUZRT00 EQU BTURQFLG 02945000 BTUCDF EQU BTUFID+1 02946000 BTUSCF EQU BTUFID+1 02947000 BTUPRY EQU BTUFID+1 02948000 BTUASFL EQU BTUFID 02949000 BTUPSFL EQU BTUFID 02950000 BTUMPF EQU BTUFID 02951000 BTUFIDNO EQU BTUFID 02952000 FDBOFSET EQU ISTFDB+10 02953000 FDBFDBA EQU ISTFDB 02954000 TH2SNF EQU ISTTH2+4 02955000 TH2OAF EQU ISTTH2+3 02956000 TH2DAF EQU ISTTH2+2 02957000 TH2CDF EQU TH2FLAG1+1 02958000 TH2SEF EQU TH2FLAG1+1 02959000 TH2PYF EQU TH2FLAG1+1 02960000 TH2AFI EQU TH2FLAG1 02961000 TH2PSI EQU TH2FLAG1 02962000 TH2CMPLI EQU TH2MPF 02963000 TH2RHI EQU TH2MPF 02964000 TH2FID EQU TH2FLAG1 02965000 THDCF EQU ISTTH+8 02966000 THSNF EQU ISTTH+6 02967000 THOAF EQU ISTTH+4 02968000 THDAF EQU ISTTH+2 02969000 THCDF EQU THFLGB 02970000 THSEF EQU THFLGB 02971000 THPYF EQU THFLGB 02972000 THAFI EQU THFLGA 02973000 THPSI EQU THFLGA 02974000 THCMPLI EQU THMPF 02975000 THRHI EQU THMPF 02976000 THFID EQU THFLAG1 02977000 LHVDATA EQU ISTLH+4 02978000 LHFUNCT EQU ISTLH+3 02979000 @NM00059 EQU ISTLH+2 02980000 LHLEN EQU ISTLH 02981000 BDURSV04 EQU BDUFLAGS 02982000 BDURTOE EQU BDUFLAGS 02983000 BDUSTPR EQU BDUFLAGS 02984000 BDURSV03 EQU BDUFLAGS 02985000 BDUALT EQU BDUFUNC 02986000 BDUACK EQU BDUFUNC 02987000 BDUTRPM EQU BDUFUNC 02988000 BDUFBMI EQU BDUFUNC 02989000 BDULDGPH EQU BDUFUNC 02990000 BDUHEADP EQU BDUFUNC 02991000 BDUSOH EQU BDUCHECK 02992000 BDURSV01 EQU BDUMODIF 02993000 BDUMOD0 EQU BDUMOD1 02994000 FMCFLRSV EQU FMCFLGB 02995000 FMCFLGA8 EQU FMCFLGB 02996000 FMCCLRPH EQU FMCVS1+45 02997000 FMCRSV0X EQU FMCCVFLG 02998000 FMCVYRPH EQU FMCCVFLG 02999000 FMCZV004 EQU FMCVS1+40 03000000 FMCLOCK2 EQU FMCVS1+36 03001000 @NM00058 EQU FMCZFLG2 03002000 FMCZF026 EQU FMCZFLG2 03003000 FMCSEQ1T EQU FMCSEQ1 03004000 FMCZX005 EQU FMCVS1+32 03005000 FMCZX002 EQU FMCVS1+29 03006000 FMCZX001 EQU FMCVS1+28 03007000 FMCAWATQ EQU FMCLCPAQ+1 03008000 @NM00057 EQU FMCLCPAQ 03009000 FMCLCPB1 EQU FMCLCPBQ 03010000 FMCASCDQ EQU FMCSHEAQ+1 03011000 @NM00056 EQU FMCSHEAQ 03012000 FMCZFCSQ EQU FMCVS1+6 03013000 FMCZF025 EQU FMCZFLAG+3 03014000 FMCZF024 EQU FMCZFLAG+3 03015000 FMCZF021 EQU FMCZFLAG+3 03016000 FMCZF020 EQU FMCZFLAG+3 03017000 FMCZF016 EQU FMCZFLAG+2 03018000 FMCZF015 EQU FMCZFLAG+2 03019000 FMCZF014 EQU FMCZFLAG+2 03020000 FMCZF013 EQU FMCZFLAG+2 03021000 FMCZF012 EQU FMCZFLAG+2 03022000 FMCZF00F EQU FMCZFLAG+1 03023000 FMCZF00E EQU FMCZFLAG+1 03024000 FMCZF00D EQU FMCZFLAG+1 03025000 FMCZF00C EQU FMCZFLAG+1 03026000 FMCZF00B EQU FMCZFLAG+1 03027000 FMCRSV10 EQU FMCZFLAG+1 03028000 FMCZF009 EQU FMCZFLAG+1 03029000 FMCZFD06 EQU FMCZF006+1 03030000 FMCZFC06 EQU FMCZF006 03031000 FMCZFB06 EQU FMCZF006 03032000 FMCZFA06 EQU FMCZF006 03033000 FMCZF005 EQU FMCZFLAG 03034000 FMCZF004 EQU FMCZFLAG 03035000 FMCZF003 EQU FMCZFLAG 03036000 FMCFRESA EQU ISTFMCB+228 03037000 FMCSCSQN EQU FMCSNCTL+2 03038000 FMCSCCTL EQU FMCSNCTL+1 03039000 FMCSTCTL EQU FMCSCFLG 03040000 FMCSCCLO EQU FMCSCFLG 03041000 FMCAPRO EQU FMCSCFLG 03042000 FMCLURO EQU FMCSCFLG 03043000 FMCOBSAC EQU FMCSCFLG 03044000 FMCIBSAC EQU FMCSCFLG 03045000 FMCFBRE EQU ISTFMCB+220 03046000 FMCFBXM EQU FMCZV002 03047000 FMCASEGQ EQU ISTFMCB+212 03048000 FMCRDTPT EQU ISTFMCB+208 03049000 FMCLOCK EQU ISTFMCB+204 03050000 FMCSEGD EQU FMCSSEGQ 03051000 FMCRSPLM EQU ISTFMCB+198 03052000 FMCPSTRS EQU ISTFMCB+196 03053000 @NM00055 EQU FMCRRESP 03054000 FMCTSLHA EQU FMCRRESP 03055000 FMCFRRN EQU FMCRRESP 03056000 FMCFME EQU FMCRRESP 03057000 FMCFEX EQU FMCRRESP 03058000 FMCFPE EQU FMCRRESP 03059000 FMCCTLB EQU ISTFMCB+194 03060000 FMCBSQNO EQU FMCCLSEQ+2 03061000 FMCTSQNO EQU FMCCLSEQ 03062000 FMCOBPRG EQU FMCMODEB 03063000 FMCIBPRG EQU FMCMODEB 03064000 FMCRESOT EQU FMCMODEB 03065000 FMCRSTSR EQU FMCMODEB 03066000 FMCLUQ EQU FMCMODEB 03067000 FMCAPQ EQU FMCMODEB 03068000 FMCCLEAR EQU FMCMODEB 03069000 FMCHOLD EQU FMCMODEB 03070000 FMCIPSEQ EQU ISTFMCB+188 03071000 FMCLUSTR EQU ISTFMCB+187 03072000 FMCRSV87 EQU FMCSTAT2 03073000 FMCSEQI EQU FMCSTAT2 03074000 FMCCPIP EQU FMCSTAT2 03075000 FMCALIPR EQU FMCSTAT2 03076000 FMCIAIO EQU FMCSTAT2 03077000 FMCZF00A EQU FMCSTAT2 03078000 FMCVPIP EQU FMCSTAT2 03079000 FMCBHSET EQU ISTFMCB+185 03080000 FMCPRMRC EQU FMCCLEXT+20 03081000 FMCRSV89 EQU FMCPSTAT 03082000 FMCPCLSD EQU FMCPSTAT 03083000 FMCDDOCD EQU FMCPSTAT 03084000 FMCIDVFD EQU FMCPSTAT 03085000 FMCELKST EQU FMCPSTAT 03086000 FMCRSV88 EQU FMCPSCMD 03087000 FMCRDBLK EQU FMCPSCMD 03088000 FMCDSEOC EQU FMCPSCMD 03089000 FMCPURGE EQU FMCPSCMD 03090000 FMCRESTI EQU FMCPSCMD 03091000 FMCCNTCT EQU FMCPSCMD 03092000 FMCINVT EQU FMCPSCMD 03093000 FMCFLGB7 EQU FMCFLGCL 03094000 FMCFLGB6 EQU FMCFLGCL 03095000 FMCFLGB5 EQU FMCFLGCL 03096000 FMCFLGB4 EQU FMCFLGCL 03097000 FMCFLGB3 EQU FMCFLGCL 03098000 FMCFLGB2 EQU FMCFLGCL 03099000 FMCFLGB1 EQU FMCFLGCL 03100000 FMCFLGB0 EQU FMCFLGCL 03101000 FMCFLGA7 EQU FMCFLGA 03102000 FMCFLGA6 EQU FMCFLGA 03103000 FMCFLGA5 EQU FMCFLGA 03104000 FMCFLGA4 EQU FMCFLGA 03105000 FMCFLGA3 EQU FMCFLGA 03106000 FMCFLGA2 EQU FMCFLGA 03107000 FMCFLGA1 EQU FMCFLGA 03108000 FMCFLGA0 EQU FMCFLGA 03109000 FMCDCLOK EQU FMCCLEXT+12 03110000 FMCRAFM EQU FMCCLEXT+8 03111000 FMCFBPTR EQU FMCFBA+1 03112000 FMCFBRSV EQU FMCFBA 03113000 FMCRPLPT EQU FMCRPLA+1 03114000 FMCRPLRS EQU FMCRPLA 03115000 FMCPRCLS EQU FMCCVAL 03116000 FMCIBCE EQU FMCCVAL 03117000 FMCONLY EQU FMCOBCE 03118000 FMCLAST EQU FMCOBCE 03119000 FMCMIDLE EQU FMCOBCE 03120000 FMCFIRST EQU FMCOBCE 03121000 FMCCPCNT EQU FMCPACPC 03122000 FMCMPCNT EQU FMCPACEM 03123000 FMCNPCNT EQU FMCPACEN 03124000 FMCPURCH EQU FMCSSTAT 03125000 FMCNSALU EQU FMCSSTAT 03126000 FMCBIP EQU FMCSSTAT 03127000 FMCSDTR EQU FMCSSTAT 03128000 FMCUIPI EQU FMCSSTAT 03129000 FMCCIPI EQU FMCSSTAT 03130000 FMCSNBI EQU FMCSSTAT 03131000 FMCRVD01 EQU ISTFMCB+158 03132000 FMCISSN EQU ISTFMCB+156 03133000 FMCOASN EQU FMCNXOSC 03134000 FMCSIP EQU FMCSIPA 03135000 FMCEXLST EQU ISTFMCB+144 03136000 FMCPAB5 EQU ISTFMCB+128 03137000 FMCPAB2 EQU ISTFMCB+80 03138000 FMCPAB1 EQU ISTFMCB+64 03139000 FMCFASYA EQU ISTFMCB+60 03140000 FMCVWT EQU ISTFMCB+44 03141000 FMCRPLH EQU ISTFMCB+40 03142000 FMCBUFNB EQU FMCCMPS1+2 03143000 FMCBUFLM EQU FMCCMPS1 03144000 FMCDEBA EQU ISTFMCB+32 03145000 @NM00054 EQU FMCCMDFL 03146000 FMCSNA EQU FMCCMDFL 03147000 FMCVSNA EQU FMCCMDFL 03148000 FMCCMDR EQU FMCCMDFL 03149000 @NM00053 EQU ISTFMCB+30 03150000 @NM00052 EQU FMCSTAT1 03151000 FMCLTCLS EQU FMCSTAT1 03152000 FMCHPURG EQU FMCSTAT1 03153000 FMCVSP2 EQU FMCSTAT1 03154000 FMCVSP1 EQU FMCSTAT 03155000 FMCLTEAS EQU FMCSTAT 03156000 FMCZF007 EQU FMCSTAT 03157000 FMCDEDSC EQU FMCSTAT 03158000 FMCDEVOF EQU FMCSTAT 03159000 FMCDAPT EQU FMCSTAT 03160000 FMCPRMTE EQU FMCSTAT 03161000 FMCPRMTR EQU FMCSTAT 03162000 FMCUSFLD EQU ISTFMCB+24 03163000 FMCFMCBA EQU ISTFMCB+20 03164000 FMCDNCBA EQU ISTFMCB+16 03165000 FMCDVTA EQU ISTFMCB+12 03166000 FMCNXTCB EQU ISTFMCB+4 03167000 FMCLNGTH EQU ISTFMCB+1 03168000 FMCTYPE EQU ISTFMCB 03169000 PROSRDEF EQU PROSETM4 03170000 PRORSV47 EQU PROSETM4 03171000 PROSCON EQU PROSETM4 03172000 PRORSV46 EQU PROSETM3 03173000 PROSMONT EQU PROSETM3 03174000 PRORSV45 EQU PROSETM3 03175000 PROSNTO EQU PROSETM3 03176000 PRORSV44 EQU PROSETM3 03177000 PRORSV43 EQU PROSETM2 03178000 PROSNTFL EQU PROSETM2 03179000 PRORSV42 EQU PROSETM2 03180000 PRORSV41 EQU PROPROCS 03181000 PROMODC EQU PROPROC4 03182000 PROMODT EQU PROPROC4 03183000 PROMODM EQU PROPROC4 03184000 PROMODB EQU PROPROC4 03185000 PRORSV14 EQU PROPROC4 03186000 PRORSV13 EQU PROPROC4 03187000 PRORSV12 EQU PROPROC4 03188000 PROEIB EQU PROPROC4 03189000 PROMONT3 EQU PROPROC3 03190000 PROMONT2 EQU PROPROC3 03191000 PROMONIT EQU PROPROC3 03192000 PROSUBLK EQU PROPROC3 03193000 PRONTO EQU PROPROC3 03194000 PROLGIN EQU PROPROC3 03195000 PROERPI EQU PROPROC3 03196000 PRORSV07 EQU PROPROC3 03197000 PROEMLC EQU PROPROC2 03198000 PRONTFL EQU PROPROC2 03199000 PRORSV05 EQU PROPROC2 03200000 PRORSV04 EQU PROPROC2 03201000 PROLGOT EQU PROPROC2 03202000 PROERPO EQU PROPROC2 03203000 PRORSV03 EQU PROPROC2 03204000 PRORPLC EQU PROPROC1 03205000 PROCS EQU PROPROC1 03206000 PROCA EQU PROPROC1 03207000 PRORESPX EQU PROPROC1 03208000 PRODFASY EQU PROPROC1 03209000 PROXPOPT EQU PROPROC1 03210000 PROTRUNC EQU PROPROC1 03211000 PROASYIP EQU PROPROC1 03212000 DNCLOCK EQU DNCOS+36 03213000 DNCZV005 EQU DNCOS+32 03214000 DNCZV004 EQU DNCOS+28 03215000 DNCZV003 EQU DNCOS+24 03216000 DNCZV002 EQU DNCOS+21 03217000 DNCZX001 EQU DNCOS+20 03218000 DNCZX003 EQU DNCOS+16 03219000 DNCZV000 EQU DNCOS+12 03220000 DNCSESCQ EQU DNCOS+8 03221000 DNCSESIQ EQU DNCOS+4 03222000 DNCACIP EQU DNCBSCED+1 03223000 DNCLICP EQU DNCBSCED 03224000 DNCZPSRD EQU DNCZFLGS+1 03225000 DNCZF007 EQU DNCZFLGS+1 03226000 DNCZF005 EQU DNCZFLGS+1 03227000 DNCZF004 EQU DNCZFLGS+1 03228000 DNCZF003 EQU DNCZFLGS 03229000 DNCZRSCH EQU DNCZFLGS 03230000 DNCCONT EQU DNCZFLGS 03231000 DNCINVIT EQU DNCZFLGS 03232000 DNCMODE EQU ISTDNCB+49 03233000 DNCBHSET EQU ISTDNCB+48 03234000 ICNZCON6 EQU ICNZCONS+10 03235000 ICNZCON5 EQU ICNZCONS+8 03236000 ICNZCON4 EQU ICNZCONS+6 03237000 ICNZCON3 EQU ICNZCONS+4 03238000 ICNZCON2 EQU ICNZCONS+2 03239000 ICNZCON1 EQU ICNZCONS 03240000 ICNZATSA EQU ISTICNCB+676 03241000 ICNZX012 EQU ISTICNCB+675 03242000 ICNZX011 EQU ISTICNCB+674 03243000 ICNZX010 EQU ISTICNCB+672 03244000 ICNSRB EQU ISTICNCB+628 03245000 ICNIOSB EQU ISTICNCB+520 03246000 ICNZC001 EQU ISTICNCB+512 03247000 ICNZX013 EQU ISTICNCB+511 03248000 ICNZS010 EQU ICNZH002+1 03249000 ICNZS00F EQU ICNZH002+1 03250000 ICNZS00E EQU ICNZH002+1 03251000 ICNZS00D EQU ICNZH002+1 03252000 ICNZS00C EQU ICNZH002+1 03253000 ICNZS00B EQU ICNZH002+1 03254000 ICNZS01A EQU ICNZS00A 03255000 ICNZS019 EQU ICNZS009 03256000 ICNZS018 EQU ICNZS008 03257000 ICNZS017 EQU ICNZS007 03258000 ICNZS016 EQU ICNZS006 03259000 ICNZS005 EQU ICNZH002 03260000 ICNZS014 EQU ICNZS004 03261000 ICNZS013 EQU ICNZS003 03262000 ICNZS012 EQU ICNZS002 03263000 ICNZS001 EQU ICNZH002 03264000 ICNZF028 EQU ICNZFLAG 03265000 ICNZF027 EQU ICNZFLAG 03266000 ICNZF026 EQU ICNZFLAG 03267000 ICNZF025 EQU ICNZFLAG 03268000 ICNZF024 EQU ICNZFLAG 03269000 ICNZF023 EQU ICNZFLAG 03270000 ICNZF022 EQU ICNZFLAG 03271000 ICNZF021 EQU ICNZFLAG 03272000 ICNWORD5 EQU ISTICNCB+504 03273000 ICNMSIZE EQU ISTICNCB+500 03274000 ICNLCVTA EQU ISTICNCB+496 03275000 ICNDEBAD EQU ICNDIDEB+1 03276000 ICNDCBIF EQU ICNDIDEB 03277000 ICNUCBAD EQU ICNDCDEB+8 03278000 ICNAPPAD EQU ICNDCDEB+5 03279000 ICNEXSCL EQU ICNDCDEB+4 03280000 ICNDCBAD EQU ICNDCDEB+1 03281000 ICNDEBID EQU ICNDCDEB 03282000 @NM00051 EQU ISTICNCB+477 03283000 ICNERCNT EQU ISTICNCB+476 03284000 ICNZX002 EQU ISTICNCB+475 03285000 ICNZX001 EQU ISTICNCB+474 03286000 ICNZH001 EQU ISTICNCB+472 03287000 ICNZSW3R EQU ISTICNCB+468 03288000 ICNZSW2R EQU ISTICNCB+464 03289000 ICNZSW1R EQU ISTICNCB+460 03290000 ICNZS4VR EQU ISTICNCB+436 03291000 ICNZS4RR EQU ISTICNCB+432 03292000 ICNZS4FC EQU ISTICNCB+428 03293000 ICNZS4BC EQU ISTICNCB+424 03294000 ICNZS3VR EQU ISTICNCB+400 03295000 ICNZS3RR EQU ISTICNCB+396 03296000 ICNZS3FC EQU ISTICNCB+392 03297000 ICNZS3BC EQU ISTICNCB+388 03298000 ICNZS1RC EQU ICNZS1VR+36 03299000 ICNDIEW3 EQU ICNDIEWA+8 03300000 ICNDIEW2 EQU ICNDIEWA+4 03301000 ICNDIEW1 EQU ICNDIEWA 03302000 ICNZS1RR EQU ISTICNCB+344 03303000 ICNZS1FC EQU ISTICNCB+340 03304000 ICNZS1BC EQU ISTICNCB+336 03305000 ICNRSTIC EQU ICNZD004 03306000 ICNRDCOD EQU ICNRSCCW 03307000 ICNZD006 EQU ISTICNCB+312 03308000 ICNZD005 EQU ISTICNCB+304 03309000 ICNWSTIC EQU ICNZD002 03310000 ICNWRCOD EQU ICNWSCCW 03311000 ICNZV008 EQU ISTICNCB+284 03312000 ICNZV007 EQU ISTICNCB+280 03313000 ICNZV006 EQU ISTICNCB+276 03314000 ICNZV005 EQU ISTICNCB+272 03315000 ICNZV004 EQU ISTICNCB+268 03316000 ICNLSTIT EQU ISTICNCB+264 03317000 ICNLSTIF EQU ISTICNCB+260 03318000 ICNZV002 EQU ISTICNCB+256 03319000 ICNZV001 EQU ISTICNCB+252 03320000 ICNZV00A EQU ISTICNCB+249 03321000 ICNBUFF EQU ISTICNCB+248 03322000 ICNCPQ EQU ISTICNCB+244 03323000 ICNNICNA EQU ISTICNCB+240 03324000 @NM00050 EQU ICNFLAG2+2 03325000 ICNZF019 EQU ICNFLAG2+2 03326000 ICNZF018 EQU ICNFLAG2+2 03327000 ICNZF017 EQU ICNFLAG2+2 03328000 ICNZF016 EQU ICNFLAG2+2 03329000 ICNZF015 EQU ICNFLAG2+2 03330000 ICNMSG EQU ICNFLAG2+1 03331000 ICNCLOSE EQU ICNFLAG2+1 03332000 ICNZF014 EQU ICNFLAG2+1 03333000 ICNZF013 EQU ICNFLAG2+1 03334000 ICNZF012 EQU ICNFLAG2+1 03335000 ICNZF011 EQU ICNFLAG2+1 03336000 ICNZF00D EQU ICNFLAG2+1 03337000 ICNZF00B EQU ICNFLAG2+1 03338000 ICNZF00A EQU ICNFLAG2 03339000 ICNZF008 EQU ICNFLAG2 03340000 ICNZF007 EQU ICNFLAG2 03341000 ICNZF005 EQU ICNFLAG2 03342000 ICNZF004 EQU ICNFLAG2 03343000 ICNZF003 EQU ICNFLAG2 03344000 ICNZF002 EQU ICNFLAG2 03345000 ICNZF001 EQU ICNFLAG2 03346000 ICNLOCK EQU ISTICNCB+232 03347000 ICNLICNA EQU ISTICNCB+228 03348000 ICNRPH EQU ISTICNCB+120 03349000 ICNZV003 EQU ISTICNCB+116 03350000 ICNLAST EQU ISTICNCB+112 03351000 ICNLSTBT EQU ISTICNCB+108 03352000 ICNSIOQ EQU ISTICNCB+104 03353000 ICNFLAG1 EQU ISTICNCB+103 03354000 ICNZSW08 EQU ICNZSWS 03355000 ICNZSW07 EQU ICNZSWS 03356000 ICNZSW06 EQU ICNZSWS 03357000 ICNZSW05 EQU ICNZSWS 03358000 ICNZSW04 EQU ICNZSWS 03359000 ICNZSW03 EQU ICNZSWS 03360000 ICNZSW02 EQU ICNZSWS 03361000 ICNZSW01 EQU ICNZSWS 03362000 ICNZFF69 EQU ICNFFLAG 03363000 @NM00049 EQU ICNFFLAG 03364000 ICNZFF05 EQU ICNFFLAG 03365000 ICNZFF04 EQU ICNFFLAG 03366000 ICNZFF03 EQU ICNFFLAG 03367000 ICNZFF02 EQU ICNFFLAG 03368000 ICNZFF01 EQU ICNFFLAG 03369000 ICNZFF00 EQU ICNFFLAG 03370000 @NM00048 EQU ICNFLAG 03371000 ICNZCRIT EQU ICNFLAG 03372000 ICNSTART EQU ICNFLAG 03373000 ICNSLOW EQU ICNFLAG 03374000 ICNZF010 EQU ICNFLAG 03375000 ICNZF00F EQU ICNFLAG 03376000 ICNZF00E EQU ICNFLAG 03377000 ICNCONF EQU ICNZF006 03378000 ICNCKPAB EQU ICNCKFLD+1 03379000 ICNRSV07 EQU ICNCKFLD 03380000 ICNCKBIT EQU ICNCKFLD 03381000 ICNZPAB4 EQU ISTICNCB+80 03382000 ICNZPAB1 EQU ISTICNCB+64 03383000 ICNRSV01 EQU ISTICNCB+60 03384000 @NM00047 EQU ISTICNCB+56 03385000 @NM00046 EQU ISTICNCB+54 03386000 @NM00045 EQU @NM00044 03387000 ICNRRY EQU @NM00044 03388000 ICNLCLUS EQU @NM00044 03389000 ICNROLN EQU @NM00044 03390000 ICNRNRY EQU @NM00044 03391000 ICNLNKMD EQU ISTICNCB+52 03392000 ICNCUUA EQU ISTICNCB+48 03393000 ICNCB EQU ISTICNCB 03394000 NCBRSV01 EQU ISTNCB+46 03395000 NCBSWDAF EQU ISTNCB+44 03396000 NCBFMCBP EQU ISTNCB+32 03397000 NCBLTRC EQU ISTNCB+30 03398000 NCBRVPT1 EQU ISTNCB+28 03399000 NCBNMLLN EQU NCBFLAGS+3 03400000 @NM00043 EQU NCBFLAG1 03401000 NCBFORCE EQU NCBFLAG1 03402000 NCBTTF EQU NCBFLAG1 03403000 NCBRSYNC EQU NCBFLAG1 03404000 NCBRSTRT EQU NCBFLAG1 03405000 NCBSNAI EQU NCBFLAG1 03406000 NCBFLTIO EQU NCBFTRIO 03407000 NCBCSTAT EQU NCBFLAGS 03408000 NCBNCSL EQU ISTNCB+22 03409000 NCBNCBA EQU ISTNCB+20 03410000 NCBFMCBA EQU ISTNCB+16 03411000 NCBRDTE EQU ISTNCB+4 03412000 NCBDAF EQU ISTNCB+2 03413000 NCBLNGTH EQU ISTNCB+1 03414000 NCBTYPE EQU ISTNCB 03415000 DEVRSV03 EQU ISTDEVCH+5 03416000 DEVPHYSA EQU ISTDEVCH+4 03417000 DEVCSLPN EQU DEVCHAR3 03418000 DEVCSTCL EQU DEVCHAR3 03419000 DEVCCHEK EQU DEVCHAR3 03420000 DEVCATTN EQU DEVCHAR3 03421000 DEVCSWL EQU DEVFCCTL 03422000 DEVCRVB EQU DEVFCCTL 03423000 DEVCSSL EQU DEVFCCTL 03424000 DEVMCODE EQU ISTDEVCH+2 03425000 DEVCHAR2 EQU DEVTCODE 03426000 DEVRSV01 EQU DEVCHAR 03427000 DEVCCTL EQU DEVCHAR 03428000 DEVNNSPT EQU DEVCHAR 03429000 DEVSPS EQU DEVCHAR 03430000 DEVSUBND EQU DEVCHAR 03431000 DEVCONVR EQU DEVCHAR 03432000 DEVOTPUT EQU DEVCHAR 03433000 DEVINPUT EQU DEVCHAR 03434000 LSCTLBAD EQU ISTLSCB+28 03435000 LSCFDB2 EQU LSCFDBA+1 03436000 LSCFDB1 EQU LSCFDBA 03437000 LSCLCCW1 EQU ISTLSCB+12 03438000 LSCRRCNT EQU LSCSEQ+1 03439000 LSCRRCCT EQU LSCSEQ 03440000 LSCATOP EQU LSCFLGS 03441000 LSCFREE EQU LSCFLGS 03442000 LSCDSTAT EQU LSCFLGS 03443000 LSCEXRES EQU LSCFLGS 03444000 LSCZRIMM EQU LSCFLGS 03445000 LSCRSV01 EQU LSCFLGS 03446000 LSCSMODE EQU LSCFLGS 03447000 LSCZMIRC EQU LSCRUCNT 03448000 LSCCHAI2 EQU LSCCHAIN+1 03449000 LSCCHNG EQU LSCCHAI1 03450000 LSCZRTSC EQU LSCZMNRC 03451000 LSCZRT0B EQU LSCZMNRC 03452000 LSCZRT0A EQU LSCZMNRC 03453000 LSCZRTL9 EQU LSCZRT09 03454000 LSCZRTL8 EQU LSCZRT08 03455000 LSCZRTL7 EQU LSCZRT07 03456000 LSCZRTL6 EQU LSCZRT06 03457000 LSCZRTL5 EQU LSCZRT05 03458000 LSCZRTL4 EQU LSCZRT04 03459000 LSCZRTL3 EQU LSCZRT03 03460000 LSCZRTL2 EQU LSCZRT02 03461000 LSCZRT01 EQU LSCREQTG 03462000 LSCZRT00 EQU LSCREQTG 03463000 LSCLNGTH EQU LSC1WORD+1 03464000 LSCTYPE EQU LSC1WORD 03465000 ATCAOS EQU ISTATCVT+1584 03466000 ATCPOPAB EQU ATCAOSM+640 03467000 ATCVIOPM EQU ATCAOSM+636 03468000 ATCTPMMI EQU ATCAOSM+632 03469000 ATCTPMPB EQU ATCAOSM+600 03470000 ATCRSV88 EQU ATCAOSM+596 03471000 ATCRPLCT EQU ATCAOSM+594 03472000 ATCCRACT EQU ATCAOSM+592 03473000 ATCSRBCT EQU ATCAOSM+590 03474000 ATCRSV75 EQU ATCAOSM+589 03475000 ATCRSV66 EQU ATCZFLAG 03476000 ATCZF001 EQU ATCZFLAG 03477000 ATCTPCP1 EQU ATCAOSM+584 03478000 ATCTPCP0 EQU ATCAOSM+580 03479000 ATCAICTN EQU ATCAOSM+576 03480000 ATCZR01 EQU ATCAOSM+572 03481000 ATCMPLTA EQU ATCAOSM+568 03482000 ATCASCB EQU ATCAOSM+564 03483000 ATCAP86 EQU ATCAOSM+560 03484000 ATCAP85 EQU ATCAOSM+556 03485000 ATCAP84 EQU ATCAOSM+552 03486000 ATCAP83 EQU ATCAOSM+548 03487000 ATCAP82 EQU ATCAOSM+544 03488000 ATCAP69 EQU ATCAOSM+540 03489000 ATCAP66 EQU ATCAOSM+536 03490000 ATCAP62 EQU ATCAOSM+532 03491000 ATCAPC59 EQU ATCAOSM+528 03492000 ATCAP56 EQU ATCAOSM+524 03493000 ATCAP55 EQU ATCAOSM+520 03494000 ATCRCFY0 EQU ATCAOSM+516 03495000 ATCAP41 EQU ATCAOSM+512 03496000 ATCAPC25 EQU ATCAOSM+508 03497000 ATCAP23 EQU ATCAOSM+504 03498000 ATCTPSPB EQU ATCAOSM+472 03499000 ATCTRMPB EQU ATCAOSM+440 03500000 ATCAPBE EQU ATCAOSM+436 03501000 ATCPSTA EQU ATCAOSM+432 03502000 ATCSMABF EQU ATCAOSM+428 03503000 ATCSMAPR EQU ATCAOSM+424 03504000 ATCTPWQA EQU ATCAOSM+420 03505000 ATCSMAID EQU ATCAOSM+416 03506000 ATCSMARA EQU ATCAOSM+412 03507000 ATCCACXA EQU ATCAOSM+408 03508000 ATCZLAAB EQU ATCAOSM+404 03509000 ATCATA10 EQU ATCAOSM+400 03510000 ATCHLTCB EQU ATCAOSM+396 03511000 @NM00042 EQU ATCVTFLG 03512000 ATCVTACT EQU ATCVTFLG 03513000 ATCRPT40 EQU ATCAOSM+388 03514000 ATCRPT39 EQU ATCAOSM+384 03515000 ATCRPT38 EQU ATCAOSM+380 03516000 ATCRPT37 EQU ATCAOSM+376 03517000 ATCRPT36 EQU ATCAOSM+372 03518000 ATCRPT35 EQU ATCAOSM+368 03519000 ATCRPT34 EQU ATCAOSM+364 03520000 ATCRPT33 EQU ATCAOSM+360 03521000 ATCRPT32 EQU ATCAOSM+356 03522000 ATCRPT31 EQU ATCAOSM+352 03523000 ATCRPT30 EQU ATCAOSM+348 03524000 ATCRPT29 EQU ATCAOSM+344 03525000 ATCRPT28 EQU ATCAOSM+340 03526000 ATCRPT27 EQU ATCAOSM+336 03527000 @NM00041 EQU ATCAOSM+333 03528000 @NM00040 EQU @NM00039 03529000 ATCSNUF EQU @NM00039 03530000 ATCOPKL EQU @NM00039 03531000 ATCABEN EQU @NM00039 03532000 ATCAIWT EQU ATCAOSM+328 03533000 ATCINFDD EQU ATCAOSM+324 03534000 ATCORFMG EQU ATCAOSM+320 03535000 ATCORFRL EQU ATCAOSM+316 03536000 ATCOROBT EQU ATCAOSM+312 03537000 ATCORQG EQU ATCORSRB 03538000 ATCORTBF EQU ATCSQAFR 03539000 ATCRPLAC EQU ATCRPLCN+2 03540000 ATCRPLRC EQU ATCRPLCN 03541000 ATCCRPLQ EQU ATCCRPL 03542000 ATCSRBAC EQU ATCSRBCN+2 03543000 ATCSRBRC EQU ATCSRBCN 03544000 ATCSRBQ EQU ATCSRB 03545000 ATCCRAAC EQU ATCCRACN+2 03546000 ATCCRARC EQU ATCCRACN 03547000 ATCCRAQ EQU ATCCRA 03548000 ATCRPT12 EQU ATCAOSM+276 03549000 ATCDMAPP EQU ATCAOSM+272 03550000 ATCAP37 EQU ATCAOSM+264 03551000 ATCZDFJ0 EQU ATCAOSM+260 03552000 ATCAP51 EQU ATCAOSM+256 03553000 ATCZPAB2 EQU ATCAOSM+224 03554000 ATCZPAB1 EQU ATCAOSM+192 03555000 ATCZLFVT EQU ATCAOSM+188 03556000 ATCZLPVT EQU ATCAOSM+184 03557000 ATCZDVTX EQU ATCAOSM+180 03558000 ATCZDVTA EQU ATCAOSM+176 03559000 ATCZDVT9 EQU ATCAOSM+172 03560000 ATCZDVT8 EQU ATCAOSM+168 03561000 ATCZDVT7 EQU ATCAOSM+164 03562000 ATCRSV56 EQU ATCDAPVT+22 03563000 ATCDAPDG EQU ATCDAPVT+20 03564000 ATCDXCEA EQU ATCDAPVT+16 03565000 ATCDCEA EQU ATCDAPVT+12 03566000 ATCDPCIA EQU ATCDAPVT+8 03567000 ATCDSIOA EQU ATCDAPVT+4 03568000 ATCDEOEA EQU ATCDAPVT 03569000 ATCZLAEA EQU ATCLDAPP+16 03570000 ATCZLCEA EQU ATCLDAPP+12 03571000 ATCRSV17 EQU ATCLDAPP+8 03572000 ATCSMFRR EQU ATCLDAPP+4 03573000 ATCCDTID EQU ATCLDAPP 03574000 ATCZAEA EQU ATCICAPP+16 03575000 ATCZCEA EQU ATCICAPP+12 03576000 ATCCDTCB EQU ATCICAPP+8 03577000 ATCZSIOA EQU ATCICAPP+4 03578000 ATCCDRPH EQU ATCICAPP 03579000 ATCAP65 EQU ATCAOSM+96 03580000 ATCZDVT6 EQU ATCAOSM+92 03581000 ATCZDVT4 EQU ATCAOSM+88 03582000 ATCZDVT3 EQU ATCAOSM+84 03583000 ATCZDVT1 EQU ATCAOSM+80 03584000 ATCICNCB EQU ATCAOSM+76 03585000 ATCZFSVT EQU ATCAOSM+68 03586000 ATCAP64 EQU ATCAOSM+64 03587000 ATCAP63 EQU ATCAOSM+60 03588000 ATCAP61 EQU ATCAOSM+56 03589000 ATCAP58 EQU ATCAOSM+52 03590000 ATCAP57 EQU ATCAOSM+48 03591000 ATCAP54 EQU ATCAOSM+44 03592000 ATCAP53 EQU ATCAOSM+40 03593000 ATCAP52 EQU ATCAOSM+36 03594000 ATCAP34 EQU ATCAOSM+32 03595000 ATCAP32 EQU ATCAOSM+28 03596000 ATCAP31 EQU ATCAOSM+24 03597000 ATCAP12 EQU ATCAOSM+20 03598000 ATCAP11 EQU ATCAOSM+16 03599000 ATCCMTCB EQU ATCAOSM+12 03600000 ATCPRPH EQU ATCAOSM+8 03601000 ATCGSRBF EQU ATCGSRBG 03602000 ATCSRBRT EQU ATCAOSM 03603000 @NM00038 EQU @NM00037 03604000 ATCVTMAB EQU @NM00037 03605000 @NM00036 EQU ATCVTBAM 03606000 ATCVDLOK EQU ISTATCVT+904 03607000 ATCVFPAB EQU ISTATCVT+872 03608000 ATCVDPAB EQU ISTATCVT+840 03609000 ATCIOECB EQU ISTATCVT+836 03610000 ATCINCW3 EQU ISTATCVT+832 03611000 ATCMODTB EQU ISTATCVT+828 03612000 ATCUSSPT EQU ISTATCVT+824 03613000 ATCSRTAB EQU ISTATCVT+820 03614000 @NM00035 EQU ISTATCVT+819 03615000 @NM00034 EQU ATCSTAT2 03616000 ATCTRSMS EQU ATCSTAT2 03617000 ATCTRLOK EQU ATCSTAT2 03618000 ATCTRPSS EQU ATCSTAT2 03619000 ATCTRESC EQU ATCSTAT2 03620000 ATCTRAPI EQU ATCSTAT2 03621000 ATCNMCTR EQU ISTATCVT+816 03622000 ATCSEC51 EQU ATCSECST 03623000 ATCSEC40 EQU ATCSIPD+8 03624000 ATCSEC30 EQU ATCSIPD+4 03625000 ATCSEC21 EQU ATCSIPD 03626000 ATCSEC10 EQU ATCSOPD+4 03627000 ATCSEC01 EQU ATCSOPD 03628000 ATCPOIA EQU ATCRNO+1 03629000 @NM00033 EQU ATCRNO 03630000 ATCPODVT EQU ISTATCVT+784 03631000 ATCS49XL EQU ISTATCVT+780 03632000 ATCS49XI EQU ISTATCVT+776 03633000 ATCLCLCT EQU ATCVLCNT+2 03634000 ATCRNCNT EQU ATCVLCNT 03635000 ATCCFEAD EQU ISTATCVT+768 03636000 ATCPTR00 EQU ISTATCVT+736 03637000 ATCRSV10 EQU ISTATCVT+704 03638000 ATCTACB EQU ISTATCVT+700 03639000 ATCVTINM EQU ISTATCVT+696 03640000 ATCTCLIM EQU ISTATCVT+692 03641000 ATCTCLOM EQU ISTATCVT+688 03642000 ATCVTIPB EQU ISTATCVT+656 03643000 ATCTCIPB EQU ISTATCVT+624 03644000 ATCTIPAB EQU ISTATCVT+592 03645000 ATCOCCCB EQU ISTATCVT+588 03646000 ATCOCCOB EQU ISTATCVT+584 03647000 ATCCDLAD EQU ISTATCVT+580 03648000 ATCCCLAD EQU ISTATCVT+576 03649000 ATCDLRPB EQU ISTATCVT+544 03650000 ATCPGPAB EQU ISTATCVT+512 03651000 ATCVPAB1 EQU ISTATCVT+480 03652000 ATCRSV97 EQU ISTATCVT+476 03653000 ATCRDTLK EQU ISTATCVT+472 03654000 ATCVOCLK EQU ISTATCVT+468 03655000 ATCCDFDN EQU ISTATCVT+464 03656000 ATCCDFIN EQU ISTATCVT+460 03657000 ATCDVTLK EQU ISTATCVT+456 03658000 ATCAP36 EQU ISTATCVT+452 03659000 ATCAP35 EQU ISTATCVT+448 03660000 ATCAP33 EQU ISTATCVT+444 03661000 ATCRSV99 EQU ISTATCVT+440 03662000 ATCONFIG EQU ISTATCVT+432 03663000 ATCNODDS EQU ISTATCVT+428 03664000 ATCNODEL EQU ISTATCVT+420 03665000 ATCRSV69 EQU ISTATCVT+416 03666000 ATCAPCR5 EQU ISTATCVT+412 03667000 ATCLDECB EQU ISTATCVT+408 03668000 ATCLDNCS EQU ISTATCVT+404 03669000 ATCCDPTR EQU ISTATCVT+400 03670000 ATCADEL EQU ISTATCVT+396 03671000 ATCTODVT EQU ISTATCVT+392 03672000 ATCDEBCH EQU ISTATCVT+388 03673000 ATCHBSIZ EQU ATCHPGM+2 03674000 ATCHBFNO EQU ATCHPGM 03675000 ATCCRME EQU ISTATCVT+380 03676000 ATCRVCHS EQU ISTATCVT+372 03677000 ATCECTLP EQU ISTATCVT+368 03678000 ATCZDVTB EQU ISTATCVT+364 03679000 ATCECPRT EQU ISTATCVT+360 03680000 ATCVTLOD EQU ISTATCVT+356 03681000 ATCTRPAB EQU ISTATCVT+352 03682000 ATCMSGM EQU ISTATCVT+348 03683000 ATCMSGP EQU ISTATCVT+344 03684000 ATCEPT EQU ISTATCVT+340 03685000 ATCDVT EQU ISTATCVT+336 03686000 ATCTRCPT EQU ISTATCVT+332 03687000 ATCDVLOD EQU ISTATCVT+328 03688000 ATCALERT EQU ISTATCVT+324 03689000 ATCEPA EQU ISTATCVT+320 03690000 ATCSAF EQU ISTATCVT+318 03691000 ATCXRANG EQU ISTATCVT+317 03692000 ATCLAST EQU ATCSHRFG 03693000 ATCSHRTN EQU ISTATCVT+308 03694000 ATCUEP EQU ISTATCVT+304 03695000 ATCOCRT EQU ISTATCVT+300 03696000 ATCCSMA EQU ATCCSMR 03697000 ATCESC02 EQU ISTATCVT+292 03698000 ATCESC01 EQU ISTATCVT+288 03699000 ATCCDFND EQU ISTATCVT+284 03700000 ATCCDDEL EQU ISTATCVT+280 03701000 ATCCDADD EQU ISTATCVT+276 03702000 ATCMNT EQU ISTATCVT+272 03703000 ATCRSV16 EQU ISTATCVT+270 03704000 ATCMAXID EQU ISTATCVT+269 03705000 ATCMSGSP EQU ATCCOM+268 03706000 ATCCIDM EQU ATCCOM+266 03707000 ATCACTRM EQU ATCCOM+264 03708000 ATCNERAP EQU ATCCOM+260 03709000 ATCNESAL EQU ATCCOM+256 03710000 ATCRCC65 EQU ATCCOM+252 03711000 ATCRCC26 EQU ATCCOM+248 03712000 ATCRCC63 EQU ATCCOM+244 03713000 ATCRSV11 EQU ATCCOM+242 03714000 ATCVTMID EQU ATCCOM+240 03715000 ATCAPOST EQU ATCCOM+236 03716000 ATCNERFN EQU ATCCOM+232 03717000 ATCNERNE EQU ATCCOM+228 03718000 ATCNERCV EQU ATCCOM+224 03719000 ATCNERST EQU ATCCOM+220 03720000 ATCDCC61 EQU ATCCOM+216 03721000 ATCDCC60 EQU ATCCOM+212 03722000 ATCSRTDF EQU ATCCOM+208 03723000 ATCSRTAD EQU ATCCOM+204 03724000 ATCFIRA EQU ATCCOM+200 03725000 ATCSMBQ EQU ATCCOM+196 03726000 ATCSMRC EQU ATCCOM+192 03727000 ATCSMRS EQU ATCCOM+188 03728000 ATCSMQU EQU ATCCOM+184 03729000 ATCSMRQ EQU ATCCOM+180 03730000 ATCACDA EQU ATCCOM+176 03731000 ATCSTMA EQU ATCCOM+172 03732000 ATCFRSTR EQU ATCCOM+168 03733000 ATCGTSTR EQU ATCCOM+164 03734000 ATCREADA EQU ATCCOM+160 03735000 ATCALOAD EQU ATCCOM+156 03736000 ATCBLDLA EQU ATCCOM+152 03737000 ATCFBRPH EQU ATCCOM+148 03738000 ATCBFTRC EQU ATCCOM+144 03739000 ATCTPBUF EQU ATCTHTRC 03740000 ATCREMOV EQU ATCCOM+136 03741000 ATCADD EQU ATCCOM+132 03742000 ATCBPDA EQU ATCCOM+128 03743000 ATCDVTPT EQU ATCCOM+124 03744000 ATCFEPT EQU ATCCOM+120 03745000 ATCFDVT EQU ATCCOM+116 03746000 ATCCONFT EQU ATCCOM+112 03747000 ATCPTCHA EQU ATCCOM+108 03748000 ATCAUTHA EQU ATCCOM+104 03749000 ATCACCTA EQU ATCCOM+100 03750000 ATCRDTH EQU ATCCOM+96 03751000 ATCFRSCH EQU ATCCOM+92 03752000 ATCFSB EQU ATCCOM+88 03753000 ATCHLTMS EQU ATCCOM+84 03754000 ATCECPRM EQU ATCCOM+80 03755000 ATCECNET EQU ATCCOM+76 03756000 ATCECOPC EQU ATCCOM+72 03757000 ATCVPARM EQU ATCCOM+68 03758000 ATCECVRQ EQU ATCCOM+64 03759000 ATCECSES EQU ATCCOM+60 03760000 ATCOCHA EQU ATCCOM+56 03761000 ATCDSPLQ EQU ATCCOM+52 03762000 ATCECDSP EQU ATCCOM+48 03763000 ATCVARYQ EQU ATCCOM+44 03764000 ATCECVRY EQU ATCCOM+40 03765000 ATCHALTQ EQU ATCCOM+36 03766000 ATCECHLT EQU ATCCOM+32 03767000 ATCMODQ EQU ATCCOM+28 03768000 ATCECMOD EQU ATCCOM+24 03769000 ATCASCHD EQU ATCCOM+20 03770000 ATCSRT EQU ATCCOM+16 03771000 ATCRDT EQU ATCCOM+12 03772000 ATCDCFRR EQU ATCCOM+8 03773000 ATCAPI EQU ATCCOM+4 03774000 ATCRSV04 EQU ATCSTAT4 03775000 ATCVTTRC EQU ATCSTAT4 03776000 ATCNCSD EQU ATCSTAT4 03777000 ATCMTST EQU ATCSTAT4 03778000 ATCTPRT EQU ATCSTAT4 03779000 ATCPRTAT EQU ATCSTAT4 03780000 @NM00032 EQU ATCPOFLG 03781000 ATCPOUNS EQU ATCPOFLG 03782000 ATCHSDMF EQU ATCSTFLG 03783000 @NM00031 EQU ATCSTAT1 03784000 ATCMDHLT EQU ATCSTAT1 03785000 ATCINHLT EQU ATCSTAT1 03786000 ATCNETSL EQU ATCSTAT1 03787000 ATCQKHLT EQU ATCSTAT1 03788000 ATCSNHLT EQU ATCSTAT1 03789000 ATCACTIV EQU ATCSTAT1 03790000 ATCSTART EQU ATCSTAT1 03791000 DYPPAB EQU ISTDYPAB+16 03792000 DYPRSV01 EQU ISTDYPAB+12 03793000 DYPTSKID EQU ISTDYPAB+8 03794000 DYPCHAIN EQU ISTDYPAB+4 03795000 DYPFLGS EQU ISTDYPAB+2 03796000 DYPLNGTH EQU ISTDYPAB+1 03797000 DYPTYPE EQU ISTDYPAB 03798000 LOKXCL EQU @NM00029 03799000 LOKPRY EQU @NM00029 03800000 @NM00030 EQU @NM00029 03801000 @NM00028 EQU LOKCHNG 03802000 LOKCT EQU ISTLOK 03803000 PABRPHA EQU PABRPHFG+1 03804000 PABNODQ EQU PABFLAGS 03805000 PABINHBT EQU PABFLAGS 03806000 PABSSN EQU PABFLAGS 03807000 PABDYNAM EQU PABFLAGS 03808000 PABNORPR EQU PABFLAGS 03809000 PABPRIOR EQU PABFLAGS 03810000 PABAPYP EQU PABFLAGS 03811000 PABOFFST EQU ISTPAB+8 03812000 PABCHNGP EQU PABCHAIN+1 03813000 PABRSV02 EQU PABCHAIN 03814000 PABDELAY EQU PABCHAIN 03815000 PABRUNNG EQU PABCHAIN 03816000 PABRESET EQU PABCHAIN 03817000 PABUNCON EQU PABCHAIN 03818000 PABCDP EQU PABCHAIN 03819000 PABRESCH EQU PABCHAIN 03820000 PABCHNG EQU PABCHAIN 03821000 PABWEQP EQU PABWEQA+1 03822000 PABRSV01 EQU PABWEQA 03823000 PABWEQG EQU PABWEQA 03824000 CRACHAIN EQU ISTCRA+928 03825000 CRARSV02 EQU ISTCRA+924 03826000 CRARSV01 EQU ISTCRA+920 03827000 CRABFTBA EQU CRABUFA 03828000 CRAMASK EQU CRASVC+64 03829000 CRAHSIZ EQU CRASVC+60 03830000 CRAASCRR EQU CRASVC 03831000 CRAPROCR EQU ISTCRA+312 03832000 CRAPSS EQU ISTCRA+160 03833000 CRARPH EQU ISTCRA+52 03834000 CRALAPTR EQU CRABASIC+48 03835000 CRAL9PTR EQU CRABASIC+44 03836000 CRAL8PTR EQU CRABASIC+40 03837000 CRAL7PTR EQU CRABASIC+36 03838000 CRAL6PTR EQU CRABASIC+32 03839000 CRAL5PTR EQU CRABASIC+28 03840000 CRAL4PTR EQU CRABASIC+24 03841000 CRAL3PTR EQU CRABASIC+20 03842000 CRAL2PTR EQU CRABASIC+16 03843000 CRAL1PTR EQU CRABASIC+12 03844000 CRALEV01 EQU CRALKACT+3 03845000 CRALEV02 EQU CRALKACT+3 03846000 CRALEV03 EQU CRALKACT+3 03847000 CRALEV04 EQU CRALKACT+3 03848000 CRALEV05 EQU CRALKACT+3 03849000 CRALEV06 EQU CRALKACT+3 03850000 CRALEV07 EQU CRALKACT+3 03851000 CRALEV08 EQU CRALKACT+3 03852000 CRALEV09 EQU CRALKACT+2 03853000 CRALEV10 EQU CRALKACT+2 03854000 CRALEV11 EQU CRALKACT+2 03855000 CRALEV12 EQU CRALKACT+2 03856000 CRALEV13 EQU CRALKACT+2 03857000 CRALEV14 EQU CRALKACT+2 03858000 CRALEV15 EQU CRALKACT+2 03859000 CRALEV16 EQU CRALKACT+2 03860000 CRALEV17 EQU CRALKACT+1 03861000 CRALEV18 EQU CRALKACT+1 03862000 CRALEV19 EQU CRALKACT+1 03863000 CRALEV20 EQU CRALKACT+1 03864000 CRALEV21 EQU CRALKACT+1 03865000 CRALEV22 EQU CRALKACT+1 03866000 CRALEV23 EQU CRALKACT+1 03867000 CRALEV24 EQU CRALKACT+1 03868000 CRALEV25 EQU CRALKACT 03869000 CRALEV26 EQU CRALKACT 03870000 CRALEV27 EQU CRALKACT 03871000 CRALEV28 EQU CRALKACT 03872000 CRALEV29 EQU CRALKACT 03873000 CRALEV30 EQU CRALKACT 03874000 CRALEV31 EQU CRALKACT 03875000 CRALEV32 EQU CRALKACT 03876000 CRAFRR EQU CRAHDR+4 03877000 RPHNEXPO EQU ISTRPH+104 03878000 RPHSAV16 EQU RPHWORK+60 03879000 RPHSAV15 EQU RPHWORK+56 03880000 RPHSAV14 EQU RPHWORK+52 03881000 RPHSAV13 EQU RPHWORK+48 03882000 RPHSAV12 EQU RPHWORK+44 03883000 RPHSAV11 EQU RPHWORK+40 03884000 RPHSAV10 EQU RPHWORK+36 03885000 RPHSAVE9 EQU RPHWORK+32 03886000 RPHSAVE8 EQU RPHWORK+28 03887000 RPHSAVE7 EQU RPHWORK+24 03888000 RPHSAVE6 EQU RPHWORK+20 03889000 RPHSAVE5 EQU RPHWORK+16 03890000 RPHSAVE4 EQU RPHWORK+12 03891000 RPHSAVE3 EQU RPHWORK+8 03892000 RPHSAVE2 EQU RPHWORK+4 03893000 RPHSHALF EQU RPHSAVE1+2 03894000 RPHSBIT8 EQU RPHSBITS 03895000 RPHSBIT7 EQU RPHSBITS 03896000 RPHSBIT6 EQU RPHSBITS 03897000 RPHSBIT5 EQU RPHSBITS 03898000 RPHSBIT4 EQU RPHSBITS 03899000 RPHSBIT3 EQU RPHSBITS 03900000 RPHSBIT2 EQU RPHSBITS 03901000 RPHSBIT1 EQU RPHSBITS 03902000 RPHSBYTE EQU RPHSAVE1 03903000 RPHPABQP EQU RPHPABQA+1 03904000 RPHPABFG EQU RPHPABQA 03905000 RPHSRP34 EQU RPHSRPRM+2 03906000 RPHSRP12 EQU RPHSRPRM 03907000 RPHWEGT EQU RPHCSPA 03908000 RPHMAJCB EQU ISTRPH+21 03909000 RPHPABOF EQU ISTRPH+20 03910000 RPHRESUM EQU RPHRESMA+1 03911000 RPHRSV01 EQU RPHWPFLG 03912000 RPHPURGE EQU RPHWPFLG 03913000 RPHPT EQU RPHWPFLG 03914000 RPHWT EQU RPHWPFLG 03915000 RPHRSKEY EQU RPHWPFLG 03916000 RPHDVTA EQU ISTRPH+12 03917000 RPHTIK EQU RPHTSKID+3 03918000 @NM00027 EQU RPHTSKID 03919000 RPHRPHAP EQU RPHRPHA+1 03920000 @NM00026 EQU RPHRPHA 03921000 RPHGATE EQU RPHRPHA 03922000 @NM00025 EQU RPHFLGB 03923000 RPHRLCRA EQU RPHFLGB 03924000 RPHNRSAV EQU RPHFLGB 03925000 RPHPGCMP EQU RPHFLGB 03926000 RPHFBAPS EQU RPHFLGB 03927000 RPHBSSP EQU RPHFLGB 03928000 RPHLOCK EQU RPHFLGB 03929000 RPHFNFLG EQU RPHFSTLC 03930000 RPHMLTCP EQU RPHFLAGS 03931000 RPHSMCLR EQU RPHFLAGS 03932000 RPHSMTYP EQU RPHFLAGS 03933000 RPHSMQ EQU RPHFLAGS 03934000 RPHAUTEX EQU RPHAPTYP 03935000 RPHSPGIN EQU RPHFLAGS 03936000 RPHOGIND EQU RPHFLAGS 03937000 RPHLNGTH EQU RPHCNTL+1 03938000 RPHTYPE EQU RPHCNTL 03939000 @NM00024 EQU ISTAPCRR+137 03940000 @NM00023 EQU APC57FLG 03941000 APCNREL EQU APC57FLG 03942000 APCRECRA EQU APC57FLG 03943000 @NM00022 EQU APC54FLG 03944000 APCRLST EQU APC54FLG 03945000 APCPR153 EQU APC53FLG 03946000 @NM00021 EQU APC52FLG 03947000 APCWKF EQU APC52FLG 03948000 APCNWF EQU APC52FLG 03949000 APCRDQ EQU APC52FLG 03950000 APCQENQ EQU APC52FLG 03951000 APCSMSR EQU APC52FLG 03952000 APCCKRQ EQU APC52FLG 03953000 @NM00020 EQU APC31FLG 03954000 APCSORT EQU APC31FLG 03955000 APCRESCH EQU APC31FLG 03956000 APCTPXIT EQU APC31FLG 03957000 APCSWTWD EQU ISTAPCRR+128 03958000 APCSAV2 EQU ISTAPCRR+124 03959000 APCSAV1 EQU ISTAPCRR+120 03960000 APCRETCD EQU APCCOMF+2 03961000 @NM00019 EQU APCCOMF1+1 03962000 APCZLBER EQU APCCOMF1 03963000 APCEXIT EQU APCCOMF1 03964000 APCRELR EQU APCCOMF1 03965000 APCIRB2 EQU APCCOMF1 03966000 APCIRB1 EQU APCCOMF1 03967000 APCSMCR EQU APCCOMF1 03968000 APCUETSK EQU APCCOMF1 03969000 APCSSTSK EQU APCCOMF1 03970000 APCESTAL EQU APCSAVE 03971000 APCFRRPM EQU ISTAPCRR+40 03972000 APCQWFO EQU ISTAPCRR+36 03973000 APCPABSV EQU ISTAPCRR+32 03974000 APCRTRN EQU ISTAPCRR+28 03975000 APCTCBA EQU ISTAPCRR+24 03976000 APCPSTA EQU ISTAPCRR+20 03977000 @NM00018 EQU APCRFLG+1 03978000 APC31R EQU APCRFLG 03979000 APC58R EQU APCRFLG 03980000 APC57R EQU APCRFLG 03981000 APC56R EQU APCRFLG 03982000 APC54R EQU APCRFLG 03983000 APC53R EQU APCRFLG 03984000 APC52R EQU APCRFLG 03985000 APC51R EQU APCRFLG 03986000 @NM00017 EQU APCATFLG+1 03987000 APC31E EQU APCATFLG 03988000 APC58E EQU APCATFLG 03989000 APC57E EQU APCATFLG 03990000 APC56E EQU APCATFLG 03991000 APC54E EQU APCATFLG 03992000 APC53E EQU APCATFLG 03993000 APC52E EQU APCATFLG 03994000 APC51E EQU APCATFLG 03995000 APCHDRSV EQU ISTAPCRR 03996000 ASCPSREG EQU ISTASCRR+44 03997000 ASCUSR01 EQU ASCUSRGS+12 03998000 ASCUSR00 EQU ASCUSRGS+8 03999000 ASCUSR15 EQU ASCUSRGS+4 04000000 ASCUSR14 EQU ASCUSRGS 04001000 ASCETRYA EQU ISTASCRR+24 04002000 ASCKEY EQU ISTASCRR+23 04003000 ASCAUDIT EQU ASCFLG3 04004000 ASCFBDUD EQU ASCFLG3 04005000 ASCLLKF EQU ASCFLG3 04006000 ASCKEYF EQU ASCFLG3 04007000 ASCFBDAL EQU ASCFLG3 04008000 ASCFSRGT EQU ASCFLG3 04009000 ASCICR EQU ASCFLG2 04010000 ASCFSRIC EQU ASCFLG2 04011000 ASCFBDIC EQU ASCFLG2 04012000 ASCFBAIC EQU ASCFLG2 04013000 ASCPASTR EQU ASCFLG1 04014000 ASCFSR EQU ASCFLG1 04015000 ASCFBD EQU ASCFLG1 04016000 ASCFBA EQU ASCFLG1 04017000 ASCPFCRR EQU ISTASCRR 04018000 ZCRRU EQU ZCRRHRU+3 04019000 ZCRRH EQU ZCRRHRU 04020000 ZCRWORDA EQU ISTZCRR+477 04021000 ZCRCMNRC EQU ISTZCRR+476 04022000 ZCRRSV97 EQU ZCRENTER+18 04023000 ZCREIC2B EQU ZCRENTER+18 04024000 ZCREAC2B EQU ZCRENTER+18 04025000 ZCRELCAB EQU ZCRENTER+18 04026000 ZCREDCMF EQU ZCRENTER+18 04027000 ZCREBCIF EQU ZCRENTER+18 04028000 ZCREICSG EQU ZCRENTER+18 04029000 ZCREDCK0 EQU ZCRENTER+18 04030000 ZCRECFY0 EQU ZCRENTER+17 04031000 ZCREKCCB EQU ZCRENTER+17 04032000 ZCREDCNB EQU ZCRENTER+17 04033000 ZCREICOE EQU ZCRENTER+17 04034000 ZCREBCNB EQU ZCRENTER+17 04035000 ZCREBC0L EQU ZCRENTER+17 04036000 ZCREBCAL EQU ZCRENTER+17 04037000 ZCREDCQR EQU ZCRENTER+17 04038000 ZCREDCPR EQU ZCRENTER+16 04039000 ZCREBCSB EQU ZCRENTER+16 04040000 ZCREAC1R EQU ZCRENTER+16 04041000 ZCRECCCI EQU ZCRENTER+16 04042000 ZCRECCAI EQU ZCRENTER+16 04043000 ZCRECCBI EQU ZCRENTER+16 04044000 ZCREBCAR EQU ZCRENTER+16 04045000 ZCREBCDR EQU ZCRENTER+16 04046000 ZCREBCBR EQU ZCRENTER+15 04047000 ZCREDCXR EQU ZCRENTER+15 04048000 ZCREDCWB EQU ZCRENTER+15 04049000 ZCREDCWR EQU ZCRENTER+15 04050000 ZCREKCCN EQU ZCRENTER+15 04051000 ZCREKCBN EQU ZCRENTER+15 04052000 ZCREKCBB EQU ZCRENTER+15 04053000 ZCREJC0B EQU ZCRENTER+15 04054000 ZCREJCDB EQU ZCRENTER+14 04055000 ZCREJCCB EQU ZCRENTER+14 04056000 ZCREJCBB EQU ZCRENTER+14 04057000 ZCREJCAB EQU ZCRENTER+14 04058000 ZCREIC1B EQU ZCRENTER+14 04059000 ZCREIC0B EQU ZCRENTER+14 04060000 ZCREICX0 EQU ZCRENTER+14 04061000 ZCREICWB EQU ZCRENTER+14 04062000 ZCREICVB EQU ZCRENTER+13 04063000 ZCREICUB EQU ZCRENTER+13 04064000 ZCREICTB EQU ZCRENTER+13 04065000 ZCREICSC EQU ZCRENTER+13 04066000 ZCREICSB EQU ZCRENTER+13 04067000 ZCREICRB EQU ZCRENTER+13 04068000 ZCREICQB EQU ZCRENTER+13 04069000 ZCREICQA EQU ZCRENTER+13 04070000 ZCREICOB EQU ZCRENTER+12 04071000 ZCREICOA EQU ZCRENTER+12 04072000 ZCREICNB EQU ZCRENTER+12 04073000 ZCREICNA EQU ZCRENTER+12 04074000 ZCREICMB EQU ZCRENTER+12 04075000 ZCREICLB EQU ZCRENTER+12 04076000 ZCREICKG EQU ZCRENTER+12 04077000 ZCREICKE EQU ZCRENTER+12 04078000 ZCREICKB EQU ZCRENTER+11 04079000 ZCREICJB EQU ZCRENTER+11 04080000 ZCREICID EQU ZCRENTER+11 04081000 ZCREICIB EQU ZCRENTER+11 04082000 ZCREICHB EQU ZCRENTER+11 04083000 ZCREICGB EQU ZCRENTER+11 04084000 ZCREICEB EQU ZCRENTER+11 04085000 ZCREICDB EQU ZCRENTER+11 04086000 ZCREICCI EQU ZCRENTER+10 04087000 ZCREICCB EQU ZCRENTER+10 04088000 ZCREICBI EQU ZCRENTER+10 04089000 ZCREICBB EQU ZCRENTER+10 04090000 ZCREICAB EQU ZCRENTER+10 04091000 ZCREICAA EQU ZCRENTER+10 04092000 ZCREHCAN EQU ZCRENTER+10 04093000 ZCREGC0B EQU ZCRENTER+10 04094000 ZCREGC0A EQU ZCRENTER+9 04095000 ZCREGCLA EQU ZCRENTER+9 04096000 ZCREGCEB EQU ZCRENTER+9 04097000 ZCREGCDB EQU ZCRENTER+9 04098000 @NM00016 EQU ZCRENTER+9 04099000 ZCREGCBB EQU ZCRENTER+9 04100000 ZCREGCAB EQU ZCRENTER+9 04101000 ZCREFCEB EQU ZCRENTER+9 04102000 ZCREFCEA EQU ZCRENTER+8 04103000 ZCREECTA EQU ZCRENTER+8 04104000 ZCREECEA EQU ZCRENTER+8 04105000 ZCREECDA EQU ZCRENTER+8 04106000 ZCREECCB EQU ZCRENTER+8 04107000 ZCREECCA EQU ZCRENTER+8 04108000 ZCREECBB EQU ZCRENTER+8 04109000 ZCREECBA EQU ZCRENTER+8 04110000 ZCREDCMB EQU ZCRENTER+7 04111000 ZCREDCL0 EQU ZCRENTER+7 04112000 ZCREDCKB EQU ZCRENTER+7 04113000 ZCREDCKA EQU ZCRENTER+7 04114000 ZCREDCJ0 EQU ZCRENTER+7 04115000 ZCREDCI0 EQU ZCRENTER+7 04116000 ZCREDCH0 EQU ZCRENTER+7 04117000 ZCREDCF0 EQU ZCRENTER+7 04118000 ZCREDCE0 EQU ZCRENTER+6 04119000 ZCREDCD0 EQU ZCRENTER+6 04120000 ZCREDCC0 EQU ZCRENTER+6 04121000 ZCREDCB0 EQU ZCRENTER+6 04122000 ZCREDCA0 EQU ZCRENTER+6 04123000 ZCRECC2B EQU ZCRENTER+6 04124000 ZCRECC1B EQU ZCRENTER+6 04125000 ZCRECC1A EQU ZCRENTER+6 04126000 ZCRECC0B EQU ZCRENTER+5 04127000 ZCRECC0A EQU ZCRENTER+5 04128000 ZCREBC0B EQU ZCRENTER+5 04129000 ZCREBC0A EQU ZCRENTER+5 04130000 ZCREBCZ0 EQU ZCRENTER+5 04131000 ZCREBCY0 EQU ZCRENTER+5 04132000 ZCREBCX0 EQU ZCRENTER+5 04133000 ZCREBCXA EQU ZCRENTER+5 04134000 ZCREBCSC EQU ZCRENTER+4 04135000 ZCREBCRB EQU ZCRENTER+4 04136000 ZCREBCRA EQU ZCRENTER+4 04137000 ZCREBCQB EQU ZCRENTER+4 04138000 ZCREBCPB EQU ZCRENTER+4 04139000 ZCREBCOB EQU ZCRENTER+4 04140000 ZCREBCNE EQU ZCRENTER+4 04141000 ZCREBCND EQU ZCRENTER+4 04142000 ZCREBCMB EQU ZCRENTER+3 04143000 ZCREBCLB EQU ZCRENTER+3 04144000 ZCREBCLA EQU ZCRENTER+3 04145000 ZCREBCKB EQU ZCRENTER+3 04146000 ZCREBCKA EQU ZCRENTER+3 04147000 ZCREBCJB EQU ZCRENTER+3 04148000 ZCREBCJA EQU ZCRENTER+3 04149000 ZCREBCID EQU ZCRENTER+3 04150000 ZCREBCIB EQU ZCRENTER+2 04151000 ZCREBCIA EQU ZCRENTER+2 04152000 ZCREBCHB EQU ZCRENTER+2 04153000 ZCREBCHA EQU ZCRENTER+2 04154000 ZCREBCGB EQU ZCRENTER+2 04155000 ZCREBCGA EQU ZCRENTER+2 04156000 ZCREBCFA EQU ZCRENTER+2 04157000 ZCREBCEB EQU ZCRENTER+1 04158000 ZCREBCDI EQU ZCRENTER+1 04159000 ZCREBCCB EQU ZCRENTER+1 04160000 ZCREBCBI EQU ZCRENTER+1 04161000 ZCREBCBB EQU ZCRENTER+1 04162000 ZCREBCBA EQU ZCRENTER+1 04163000 ZCREBCAM EQU ZCRENTER+1 04164000 ZCREBCAI EQU ZCRENTER+1 04165000 ZCREBCAG EQU ZCRENTER 04166000 ZCREBCAE EQU ZCRENTER 04167000 ZCREBCAB EQU ZCRENTER 04168000 ZCREBCAA EQU ZCRENTER 04169000 ZCREAC1B EQU ZCRENTER 04170000 ZCREAC0B EQU ZCRENTER 04171000 ZCREAC0A EQU ZCRENTER 04172000 ZCREAC1A EQU ZCRENTER 04173000 ZCRTNAME EQU ZCRAUDIT+1 04174000 ZCRTID EQU ZCRAUDIT 04175000 ZCRREMIC EQU ISTZCRR+436 04176000 ZCRSAVEZ EQU ISTZCRR+196 04177000 ZCRDAFSV EQU ZCRCIDSV+2 04178000 ZCRSAFSV EQU ZCRCIDSV 04179000 ZCRR13SV EQU ISTZCRR+188 04180000 ZCRR2SV EQU ISTZCRR+184 04181000 ZCROPCDE EQU ISTZCRR+183 04182000 ZCRPRMTC EQU ISTZCRR+182 04183000 ZCRAWQSW EQU ISTZCRR+180 04184000 ZCRTOPQ EQU ISTZCRR+180 04185000 ZCRLSTFB EQU ISTZCRR+180 04186000 ZCRXSCHD EQU ISTZCRR+180 04187000 ZCRNXTEL EQU ISTZCRR+180 04188000 ZCRSCANQ EQU ISTZCRR+180 04189000 ZCRMOREL EQU ISTZCRR+180 04190000 ZCRFBPRC EQU ISTZCRR+180 04191000 ZCRFSBSV EQU ISTZCRR+176 04192000 ZCRSVWK5 EQU ZCRWKARA+16 04193000 ZCRSVWK4 EQU ZCRWKARA+12 04194000 ZCRSVWK3 EQU ZCRWKARA+8 04195000 ZCRSVWK2 EQU ZCRWKARA+4 04196000 ZCRSVWK1 EQU ZCRWKARA 04197000 ZCRSVF25 EQU ZCRSVRTN+96 04198000 ZCRSVF24 EQU ZCRSVRTN+92 04199000 ZCRSVF23 EQU ZCRSVRTN+88 04200000 ZCRSVF22 EQU ZCRSVRTN+84 04201000 ZCRSVF21 EQU ZCRSVRTN+80 04202000 ZCRSVF20 EQU ZCRSVRTN+76 04203000 ZCRSVF19 EQU ZCRSVRTN+72 04204000 ZCRSVF18 EQU ZCRSVRTN+68 04205000 ZCRSVF17 EQU ZCRSVRTN+64 04206000 ZCRSVF16 EQU ZCRSVRTN+60 04207000 ZCRSVF15 EQU ZCRSVRTN+56 04208000 ZCRSVF14 EQU ZCRSVRTN+52 04209000 ZCRSVF13 EQU ZCRSVRTN+48 04210000 ZCRSVF12 EQU ZCRSVRTN+44 04211000 ZCRSVF11 EQU ZCRSVRTN+40 04212000 ZCRSVF10 EQU ZCRSVRTN+36 04213000 ZCRSVF9 EQU ZCRSVRTN+32 04214000 ZCRSVF8 EQU ZCRSVRTN+28 04215000 ZCRSVF3 EQU ZCRSVRTN+8 04216000 ZCRSVF2 EQU ZCRSVRTN+4 04217000 ZCRSVF1 EQU ZCRSVRTN 04218000 ZCRPVZB EQU ISTZCRR+52 04219000 ZCRZLB EQU ISTZCRR+48 04220000 ZCRBFPTR EQU ISTZCRR+44 04221000 ZCRCCWA EQU ISTZCRR+40 04222000 ZCRPSW EQU ZCRPARMS+15 04223000 ZCRPCHAR EQU ZCRPARMS+14 04224000 ZCRPRES2 EQU ZCRPCOD2 04225000 ZCRPMFGF EQU ZCRPCOD2 04226000 ZCRPFHDR EQU ZCRPCOD2 04227000 ZCRPPG2 EQU ZCRPCOD2 04228000 ZCRPRES EQU ZCRPCOD1 04229000 ZCRPCFTX EQU ZCRPCOD1 04230000 ZCRPBUF EQU ZCRPCOD1 04231000 ZCRPLSBQ EQU ZCRPLSBF 04232000 ZCRPFSB EQU ZCRPCOD1 04233000 ZCRPLNG EQU ZCRPCOD1 04234000 ZCRPPG EQU ZCRPCOD1 04235000 ZCRDTODA EQU ZCRDFRDA 04236000 ZCRMLNG EQU ZCRPARMS+8 04237000 ZCRTBPTR EQU ZCRPARMS+4 04238000 ZCRCBPTR EQU ZCRFBPTR 04239000 ZCRCRLCP EQU ISTZCRR+20 04240000 @NM00015 EQU ZCRSCPSW 04241000 ZCRSKIPT EQU ZCRSCPSW 04242000 ZCRFSBWE EQU ZCRSCPSW 04243000 ZCRPRCMP EQU ZCRSCPSW 04244000 ZCRLREQ EQU ZCRSCPSW 04245000 ZCRRJLCP EQU ZCRSCPSW 04246000 ZCRTPINV EQU ZCRSCPSW 04247000 ZCRTPEX EQU ZCRSCPSW 04248000 @NM00014 EQU ZCRIBPR 04249000 ZCR3270 EQU ZCRIBPR 04250000 ZCRLCPFD EQU ZCRIBPR 04251000 ZCRLCPFR EQU ZCRIBPR 04252000 ZCRRELK EQU ZCRIBPR 04253000 ZCRERR EQU ZCRIBPR 04254000 ZCRNOBUF EQU ZCRIBPR 04255000 @NM00013 EQU ZCRPFLGS 04256000 ZCRQAHED EQU ZCRPFLGS 04257000 ZCRF1RES EQU ZCRGENSW 04258000 ZCRBRIS EQU ZCRGENSW 04259000 ZCRCLRBD EQU ZCRGENSW 04260000 ZCREXRES EQU ZCRGENSW 04261000 ZCRLCSYN EQU ZCRGENSW 04262000 ZCRRT06 EQU ZCRGENSW 04263000 ZCRTSW2 EQU ZCRGENSW 04264000 ZCRINLCP EQU ZCRFLGS3 04265000 ZCRWRPTR EQU ZCRFLGS3 04266000 ZCRNOFRE EQU ZCRFLGS3 04267000 ZCREDRIV EQU ZCRFLGS3 04268000 ZCRDISC EQU ZCRFLGS3 04269000 ZCRTPDIS EQU ZCRFLGS3 04270000 ZCRTPCON EQU ZCRFLGS3 04271000 ZCRTIC EQU ZCRFLGS3 04272000 ZCRENDAN EQU ZCRSWFLD 04273000 ZCRENDXL EQU ZCRSWFLD 04274000 ZCRENDX EQU ZCRSWFLD 04275000 ZCROB1 EQU ZCRNDLCP 04276000 ZCREXTYP EQU ZCRSWFLD 04277000 ZCRSLCP EQU ZCRENDSH 04278000 ZCRIF0E3 EQU ZCRFLGS2 04279000 ZCRIF0E2 EQU ZCRFLGS2 04280000 ZCRIF0E1 EQU ZCRFLGS2 04281000 ZCROB EQU ZCRFLGS2 04282000 ZCRFMSED EQU ZCRFLGS2 04283000 ZCRSHEDI EQU ZCRFLGS2 04284000 ZCRLOCAL EQU ZCRFLGS2 04285000 ZCRFEXIT EQU ZCRFLGS1 04286000 ZCRUNSOL EQU ZCRFLGS1 04287000 ZCRENDLP EQU ZCRFLGS1 04288000 ZCRNRMEX EQU ZCRFLGS1 04289000 ZCRWAIT EQU ZCRFLGS1 04290000 ZCRDEQSW EQU ZCRFLGS1 04291000 ZCRQUESW EQU ZCRFLGS1 04292000 ZCREXSW EQU ZCRFLGS1 04293000 ZCRFRRA EQU ISTZCRR+8 04294000 ZCRCHAIN EQU ISTZCRR+4 04295000 ZCRFLAG EQU ZCRCRR+3 04296000 ZCRLEN EQU ZCRCRR+1 04297000 ZCRID EQU ZCRCRR 04298000 CCFRSVD1 EQU CFCCRT 04299000 CCFCR2 EQU CFCCRT 04300000 CCFCRP EQU CFCCRT 04301000 CCFCR1 EQU CFCCRT 04302000 CCFCS2 EQU CFCCRT 04303000 CCFCS1 EQU CFCCRT 04304000 NCFRSVD EQU CFCNTRD 04305000 NCFCR2 EQU CFCNTRD 04306000 NCFCRP EQU CFCNTRD 04307000 NCFCR1 EQU CFCNTRD 04308000 NCFCS2 EQU CFCNTRD 04309000 NCFCS1 EQU CFCNTRD 04310000 PFCRSV01 EQU ISTPFCRR+13 04311000 PFCFTA EQU ISTPFCRR+12 04312000 CRRFRR EQU PFCFRRO 04313000 CRRCHAIN EQU PFCCRRO 04314000 CRRLEN EQU PFCCRRLN 04315000 PFCRSV10 EQU PFCCRR+1 04316000 CRRID EQU PFCCRRID 04317000 LCPFTYPE EQU LCPRPHA 04318000 LCPRSTQH EQU LCPLCCW 04319000 LCPCLREP EQU ISTLCPB+44 04320000 LCPUBFSB EQU LCPFLCCW 04321000 LCPRSV77 EQU ISTLCPB+39 04322000 LCPLCCWC EQU ISTLCPB+38 04323000 LCPRSV78 EQU LCPFLG1 04324000 LCPTRANS EQU LCPFLG1 04325000 LCPSTLB EQU LCPFLG1 04326000 LCPREDRV EQU LCPFLG1 04327000 LCPDIRPT EQU LCPFLG1 04328000 LCPRESET EQU LCPFLG1 04329000 LCPFSNCH EQU ISTLCPB+34 04330000 LCPFOSN EQU ISTLCPB+32 04331000 LCPTLBAD EQU ISTLCPB+28 04332000 LCPFDB2 EQU LCPFDBA+1 04333000 LCPFDB1 EQU LCPFDBA 04334000 LCPLCCW1 EQU ISTLCPB+12 04335000 LCPRRCNT EQU LCPSEQ+1 04336000 LCPRRCCT EQU LCPSEQ 04337000 LCPATOP EQU LCPFLAG2 04338000 LCPFREE EQU LCPFLAG2 04339000 LCPDSTAT EQU LCPFLAG2 04340000 LCPEXRES EQU LCPFID0 04341000 LCPZRIMM EQU LCPTLBPI 04342000 LCPRSTRT EQU LCPFLAG2 04343000 LCPASYN EQU LCPFLAG2 04344000 LCPPRFLG EQU LCPFLAG2 04345000 LCPZMIRC EQU LCPRUCNT 04346000 LCPCHAI2 EQU LCPCHAIN+1 04347000 LCPCHNG EQU LCPCHAI1 04348000 LCPZRT0B EQU LCPMNRCD 04349000 LCPZRT0A EQU LCPMNRCD 04350000 LCPZRTL9 EQU LCPZRT09 04351000 LCPZRTL8 EQU LCPZRT08 04352000 LCPZRTL7 EQU LCPZRT07 04353000 LCPZRTL6 EQU LCPZRT06 04354000 LCPZRTL5 EQU LCPZRT05 04355000 LCPZRTL4 EQU LCPZRT04 04356000 LCPZRTL3 EQU LCPZRT03 04357000 LCPZRTL2 EQU LCPZRT02 04358000 LCPLNGTH EQU ISTLCPB+1 04359000 LCPTYPE EQU ISTLCPB 04360000 LCCWDATA EQU ISTLCCW+4 04361000 LCCWCNT EQU ISTLCCW+2 04362000 LCCWACI EQU LCCWFLAG 04363000 LCCWRFI EQU LCCWFLAG 04364000 LCCWPER EQU LCCWLSI 04365000 LCCWIDAT EQU LCCWFLAG 04366000 LCCWNTVC EQU LCCWFLAG 04367000 LCCWCKPT EQU LCCWFLAG 04368000 LCCWCC EQU LCCWFLAG 04369000 LCCWCD EQU LCCWFLAG 04370000 LCCWTYPE EQU LCCWCTL 04371000 LCCWMODE EQU LCCWCTL 04372000 LCCWSOP EQU LCCWRWOP 04373000 @NM00012 EQU LCCWRWOP 04374000 LCCWSD EQU LCCWOP 04375000 LCCWSI EQU LCCWOP 04376000 CVTLEVL EQU CVTRELNO+2 04377000 CVTNUMB EQU CVTRELNO 04378000 CVTMDL EQU CVTFIX+250 04379000 @NM00011 EQU CVTFIX+248 04380000 @NM00010 EQU CVTFIX 04381000 CVTRV482 EQU CVTXTNT2+128 04382000 CVTRV481 EQU CVTXTNT2+124 04383000 CVTRV480 EQU CVTXTNT2+120 04384000 CVTRV479 EQU CVTXTNT2+118 04385000 CVTRV478 EQU CVTXTNT2+117 04386000 CVTRV477 EQU CVTXTNT2+116 04387000 CVTRV476 EQU CVTXTNT2+115 04388000 CVTRV475 EQU CVTXTNT2+114 04389000 CVTRV474 EQU CVTRV466 04390000 CVTRV473 EQU CVTRV466 04391000 CVTRV472 EQU CVTRV466 04392000 CVTRV471 EQU CVTRV466 04393000 CVTRV470 EQU CVTRV466 04394000 CVTRV469 EQU CVTRV466 04395000 CVTRV468 EQU CVTRV466 04396000 CVTRV467 EQU CVTRV466 04397000 CVTRV465 EQU CVTRV457 04398000 CVTRV464 EQU CVTRV457 04399000 CVTRV463 EQU CVTRV457 04400000 CVTRV462 EQU CVTRV457 04401000 CVTRV461 EQU CVTRV457 04402000 CVTRV460 EQU CVTRV457 04403000 CVTRV459 EQU CVTRV457 04404000 CVTRV458 EQU CVTRV457 04405000 CVTRV456 EQU CVTXTNT2+108 04406000 CVTRV455 EQU CVTXTNT2+104 04407000 CVTRV454 EQU CVTXTNT2+100 04408000 CVTRV453 EQU CVTXTNT2+96 04409000 CVTRV452 EQU CVTXTNT2+94 04410000 CVTRV451 EQU CVTXTNT2+92 04411000 CVTRV450 EQU CVTXTNT2+90 04412000 CVTRV449 EQU CVTXTNT2+88 04413000 CVTRV448 EQU CVTXTNT2+87 04414000 CVTRV447 EQU CVTXTNT2+86 04415000 CVTRV446 EQU CVTRV438 04416000 CVTRV445 EQU CVTRV438 04417000 CVTRV444 EQU CVTRV438 04418000 CVTRV443 EQU CVTRV438 04419000 CVTRV442 EQU CVTRV438 04420000 CVTRV441 EQU CVTRV438 04421000 CVTRV440 EQU CVTRV438 04422000 CVTRV439 EQU CVTRV438 04423000 CVTRV437 EQU CVTRV429 04424000 CVTRV436 EQU CVTRV429 04425000 CVTRV435 EQU CVTRV429 04426000 CVTRV434 EQU CVTRV429 04427000 CVTRV433 EQU CVTRV429 04428000 CVTRV432 EQU CVTRV429 04429000 CVTRV431 EQU CVTRV429 04430000 CVTRV430 EQU CVTRV429 04431000 CVTRV428 EQU CVTXTNT2+80 04432000 CVTRV427 EQU CVTXTNT2+76 04433000 CVTRV426 EQU CVTXTNT2+72 04434000 CVTRV425 EQU CVTXTNT2+68 04435000 CVTATACT EQU CVTATCVT 04436000 CVTRV423 EQU CVTXTNT2+62 04437000 CVTRV422 EQU CVTXTNT2+60 04438000 CVTRV421 EQU CVTXTNT2+58 04439000 CVTRV420 EQU CVTXTNT2+56 04440000 CVTRV419 EQU CVTXTNT2+55 04441000 CVTRV418 EQU CVTXTNT2+54 04442000 CVTRV417 EQU CVTRV409 04443000 CVTRV416 EQU CVTRV409 04444000 CVTRV415 EQU CVTRV409 04445000 CVTRV414 EQU CVTRV409 04446000 CVTRV413 EQU CVTRV409 04447000 CVTRV412 EQU CVTRV409 04448000 CVTRV411 EQU CVTRV409 04449000 CVTRV410 EQU CVTRV409 04450000 CVTRV408 EQU CVTRV400 04451000 CVTRV407 EQU CVTRV400 04452000 CVTRV406 EQU CVTRV400 04453000 CVTRV405 EQU CVTRV400 04454000 CVTRV404 EQU CVTRV400 04455000 CVTRV403 EQU CVTRV400 04456000 CVTRV402 EQU CVTRV400 04457000 CVTRV401 EQU CVTRV400 04458000 CVTICB EQU CVTXTNT2+48 04459000 CVTSKTA EQU CVTXTNT2+44 04460000 CVTSHSB EQU CVTSHS 04461000 CVTRSV98 EQU CVTXTNT2+36 04462000 CVTRSV97 EQU CVTXTNT2+34 04463000 CVTRSV96 EQU CVTXTNT2+32 04464000 CVTOLTEP EQU CVTXTNT2+28 04465000 CVTQIDA EQU CVTQID+1 04466000 CVTRSV95 EQU CVTQID 04467000 CVTRSV94 EQU CVTXTNT2+20 04468000 CVTRSV93 EQU CVTXTNT2+16 04469000 CVTRSV92 EQU CVTXTNT2+12 04470000 CVTDEBVR EQU CVTXTNT2+8 04471000 CVTRSV91 EQU CVTXTNT2+6 04472000 CVTRSV9H EQU CVTFLGBT 04473000 CVTRSV9G EQU CVTFLGBT 04474000 CVTRSV9F EQU CVTFLGBT 04475000 CVTRSV9E EQU CVTFLGBT 04476000 CVTRSV9D EQU CVTFLGBT 04477000 CVTRSV9C EQU CVTFLGBT 04478000 CVTVME EQU CVTFLGBT 04479000 CVTNPE EQU CVTFLGBT 04480000 CVTNUCLS EQU CVTXTNT2+4 04481000 CVTDSSVA EQU CVTDSSV+1 04482000 CVTRSV89 EQU CVTDSSV 04483000 CVTRSV88 EQU CVTXTNT1+8 04484000 CVTRSV87 EQU CVTXTNT1+4 04485000 CVTFACHN EQU CVTXTNT1 04486000 CVTRV488 EQU CVTMAP+412 04487000 CVTRV487 EQU CVTMAP+408 04488000 CVTRV486 EQU CVTMAP+404 04489000 CVTRV485 EQU CVTMAP+400 04490000 CVTACTAP EQU CVTMAP+396 04491000 CVTAUTH EQU CVTMAP+392 04492000 CVTATMCA EQU CVTATMCT+1 04493000 CVTATMST EQU CVTATMCT 04494000 CVTRSV61 EQU CVTMAP+384 04495000 CVTVOLT1 EQU CVTVOLM1+1 04496000 CVTVOLI1 EQU CVTVOLF1 04497000 CVTSTOA EQU CVTMAP+376 04498000 CVTRSV58 EQU CVTMAP+374 04499000 CVTRSV57 EQU CVTMAP+372 04500000 CVTDDCE EQU CVTMAP+368 04501000 CVTPNWFR EQU CVTMAP+364 04502000 CVTSMF EQU CVTMAP+360 04503000 CVTSULK EQU CVTMAP+358 04504000 CVTSLKO EQU CVTSYSK 04505000 CVTSLKP EQU CVTSYSK 04506000 CVTSLKQ EQU CVTSYSK 04507000 CVTSLKR EQU CVTSYSK 04508000 CVTRSV56 EQU CVTSYSK 04509000 CVTRSV55 EQU CVTSYSK 04510000 CVTRSV54 EQU CVTSYSK 04511000 CVTRSV53 EQU CVTSYSK 04512000 CVTRSV52 EQU CVTA1F1 04513000 CVTRSV51 EQU CVTA1F1 04514000 CVTRSV50 EQU CVTA1F1 04515000 CVTRSV49 EQU CVTA1F1 04516000 CVTRSV48 EQU CVTA1F1 04517000 CVTRSV47 EQU CVTA1F1 04518000 CVTSRSW EQU CVTA1F1 04519000 CVTPFSW EQU CVTA1F1 04520000 CVTPCVT EQU CVTMAP+352 04521000 CVTRSV46 EQU CVTMAP+344 04522000 CVTRSV45 EQU CVTMAP+340 04523000 CVTRSV44 EQU CVTMAP+338 04524000 CVTRSV43 EQU CVTMAP+336 04525000 CVTHJESA EQU CVTHJES+1 04526000 CVTRSV42 EQU CVTHJES 04527000 CVTEXT2A EQU CVTEXT2+1 04528000 CVTRSV41 EQU CVTEXT2 04529000 CVTAPFA EQU CVTAPF+1 04530000 CVTRSV40 EQU CVTAPF 04531000 CVTRV518 EQU CVTINTLA 04532000 CVTRV517 EQU CVTERPV 04533000 CVTEORM EQU CVTMAP+312 04534000 CVTMCHPR EQU CVTMAP+308 04535000 CVTTZ EQU CVTMAP+304 04536000 CVTJEPS EQU CVTMAP+300 04537000 CVTJESCT EQU CVTMAP+296 04538000 CVTMODE EQU CVTMAP+292 04539000 CVTPTRV EQU CVTMAP+288 04540000 CVTREAL EQU CVTMAP+284 04541000 CVTRSV39 EQU CVTMAP+280 04542000 CVTRSV38 EQU CVTMAP+276 04543000 CVTDMSRA EQU CVTDMSR+1 04544000 CVTRV634 EQU CVTDMSRF 04545000 CVTRV633 EQU CVTDMSRF 04546000 CVTRV632 EQU CVTDMSRF 04547000 CVTRV631 EQU CVTDMSRF 04548000 CVTRV630 EQU CVTDMSRF 04549000 CVTRV629 EQU CVTDMSRF 04550000 CVTUDUMP EQU CVTDMSRF 04551000 CVTSDUMP EQU CVTDMSRF 04552000 CVTQMSGA EQU CVTQMSG+1 04553000 CVTRSV36 EQU CVTQMSG 04554000 CVTAMFF EQU CVTMAP+264 04555000 CVTPURGA EQU CVTPURG+1 04556000 CVTRSV35 EQU CVTPURG 04557000 CVTCBSP EQU CVTMAP+256 04558000 CVTATERA EQU CVTATER+1 04559000 CVTSYST EQU CVTATER 04560000 CVTVOLT2 EQU CVTTAT 04561000 CVTVOLI2 EQU CVTVOLF2 04562000 CVTAQAVB EQU CVTAQAVT+1 04563000 CVTRSV34 EQU CVTTCMFG 04564000 CVTRSV33 EQU CVTTCMFG 04565000 CVTRSV32 EQU CVTTCMFG 04566000 CVTRSV31 EQU CVTTCMFG 04567000 CVTRSV30 EQU CVTTCMFG 04568000 CVTRSV29 EQU CVTTCMFG 04569000 CVTRSV28 EQU CVTTCMFG 04570000 CVTTCRDY EQU CVTTCMFG 04571000 CVTGTFA EQU CVTGTF+1 04572000 CVTRSV27 EQU CVTGTFST 04573000 CVTRNIO EQU CVTGTFST 04574000 CVTUSR EQU CVTGTFST 04575000 CVTRV318 EQU CVTFORM 04576000 CVTRV317 EQU CVTTMODE 04577000 CVTRV316 EQU CVTSTATE 04578000 CVTRV315 EQU CVTGTFS 04579000 CVTGTFAV EQU CVTGTFS 04580000 CVT0SCR1 EQU CVTMAP+232 04581000 CVTRV515 EQU CVTMAP+228 04582000 CVTRMS EQU CVTMAP+224 04583000 CVTPATCH EQU CVTMAP+220 04584000 CVTTSCE EQU CVTMAP+216 04585000 CVTLNKSC EQU CVTMAP+214 04586000 CVTQABST EQU CVTMAP+212 04587000 CVTMDLDS EQU CVTMAP+208 04588000 CVTUSER EQU CVTMAP+204 04589000 CVTABEND EQU CVTMAP+200 04590000 CVTSMCA EQU CVTMAP+196 04591000 CVTRSV18 EQU CVTMAP+192 04592000 CVTQLPAQ EQU CVTMAP+188 04593000 CVTQCDSR EQU CVTMAP+184 04594000 CVTRSV17 EQU CVTOPTB 04595000 CVTRSV16 EQU CVTOPTB 04596000 CVTFP EQU CVTOPTB 04597000 CVTAPTHR EQU CVTOPTB 04598000 CVTNLOG EQU CVTOPTB 04599000 CVTTOD EQU CVTOPTB 04600000 CVTCTIMS EQU CVTOPTB 04601000 CVTPROT EQU CVTOPTB 04602000 CVTXPFP EQU CVTOPTA 04603000 CVTASCII EQU CVTOPTA 04604000 CVTRSV13 EQU CVTOPTA 04605000 CVTRSV12 EQU CVTOPTA 04606000 CVTNIP EQU CVTOPTA 04607000 CVTDDR EQU CVTOPTA 04608000 CVTAPR EQU CVTOPTA 04609000 CVTCCH EQU CVTOPTA 04610000 CVTSNCTR EQU CVTMAP+180 04611000 CVTQMWR EQU CVTMAP+176 04612000 CVTQOCR EQU CVTMAP+172 04613000 CVT1EF00 EQU CVTMAP+168 04614000 CVTMZ00 EQU CVTMAP+164 04615000 CVTHEAD EQU CVTMAP+160 04616000 CVTRSV11 EQU CVTMAP+156 04617000 CVT0PT01 EQU CVTMAP+152 04618000 CVTMSER EQU CVTMAP+148 04619000 CVTRV516 EQU CVTIERLC 04620000 CVTILCH EQU CVTMAP+140 04621000 CVT0DS EQU CVTMAP+136 04622000 CVTFBOSV EQU CVTMAP+132 04623000 CVTNUCB EQU CVTMAP+128 04624000 CVTIXAVL EQU CVTMAP+124 04625000 CVTIOQET EQU CVTMAP+120 04626000 CVTDCBA EQU CVTMAP+117 04627000 CVTMVS2 EQU CVTDCB 04628000 CVT6DAT EQU CVTDCB 04629000 CVT4MPS EQU CVTDCB 04630000 CVTRSV09 EQU CVTDCB 04631000 CVT4MS1 EQU CVTDCB 04632000 CVT2SPS EQU CVTDCB 04633000 CVT1SSS EQU CVTDCB 04634000 CVTRSV08 EQU CVTDCB 04635000 CVTSTB EQU CVTMAP+112 04636000 CVTQTD00 EQU CVTMAP+108 04637000 CVTQTE00 EQU CVTMAP+104 04638000 CVTCUCB EQU CVTMAP+100 04639000 CVTSJQ EQU CVTMAP+96 04640000 CVTPBLDL EQU CVTMAP+92 04641000 CVTTPC EQU CVTMAP+88 04642000 CVTSVDCB EQU CVTMAP+84 04643000 CVTBRET EQU CVTMAP+82 04644000 CVTEXIT EQU CVTMAP+80 04645000 CVT0FN00 EQU CVTMAP+76 04646000 CVTDARA EQU CVTDAR+1 04647000 CVTRSV07 EQU CVTFLGS1 04648000 CVTRSV06 EQU CVTFLGS1 04649000 CVTRSV05 EQU CVTFLGS1 04650000 CVTRSV04 EQU CVTFLGS1 04651000 CVTRSV03 EQU CVTFLGS1 04652000 CVTRSV02 EQU CVTFLGS1 04653000 CVTRSV01 EQU CVTFLGS1 04654000 CVTDMPLK EQU CVTFLGS1 04655000 CVTXITP EQU CVTMAP+68 04656000 CVTZDTAB EQU CVTMAP+64 04657000 CVTMSLT EQU CVTMAP+60 04658000 CVTDATE EQU CVTMAP+56 04659000 CVTBTERM EQU CVTMAP+52 04660000 CVTSYSAD EQU CVTMAP+48 04661000 CVTXTLER EQU CVTMAP+44 04662000 CVTILK2 EQU CVTMAP+40 04663000 CVTILK1 EQU CVTMAP+36 04664000 CVTPRLTV EQU CVTMAP+32 04665000 CVTPCNVT EQU CVTMAP+28 04666000 CVT0VL00 EQU CVTMAP+24 04667000 CVTXAPG EQU CVTMAP+20 04668000 CVTBUF EQU CVTMAP+16 04669000 CVTJOB EQU CVTMAP+12 04670000 CVTLINK EQU CVTMAP+8 04671000 CVT0EF00 EQU CVTMAP+4 04672000 CVTTCBP EQU CVTMAP 04673000 CVT EQU CVTMAP 04674000 @NM00009 EQU SRBSECT+40 04675000 @NM00008 EQU SRBSECT+38 04676000 SRBPRIOR EQU SRBSECT+37 04677000 SRBPKF EQU SRBSECT+36 04678000 SRBSAVE EQU SRBSECT+32 04679000 SRBPARM EQU SRBSECT+28 04680000 SRBRMTR EQU SRBSECT+24 04681000 SRBEP EQU SRBSECT+20 04682000 SRBPTCB EQU SRBFLC+4 04683000 SRBPASID EQU SRBFLC+2 04684000 SRBCPAFF EQU SRBFLC 04685000 SRBASCB EQU SRBSECT+8 04686000 SRBFLNK EQU SRBSECT+4 04687000 SRBID EQU SRBSECT 04688000 IOSEND EQU IOSB+108 04689000 IOSSKR EQU IOSEEKA+7 04690000 IOSSKH2 EQU IOSSKHH+1 04691000 IOSSKH1 EQU IOSSKHH 04692000 IOSSKCC EQU IOSCCHH 04693000 IOSSKBB EQU IOSEEKA+1 04694000 IOSSKM EQU IOSEEKA 04695000 IOSEEK EQU IOSB+92 04696000 IOSMDM EQU IOSB+91 04697000 IOSMDB EQU IOSB+90 04698000 IOSCKEY7 EQU IOSCKEY 04699000 IOSCKEY6 EQU IOSCKEY 04700000 IOSCKEY5 EQU IOSCKEY 04701000 IOSCKEY4 EQU IOSCKEY 04702000 @NM00004 EQU IOSCKEY 04703000 IOSFMSK EQU IOSB+88 04704000 IOSCUDEV EQU IOSPATH+1 04705000 @NM00003 EQU IOSCHN 04706000 IOSPATH3 EQU IOSCHN 04707000 IOSPATH2 EQU IOSCHN 04708000 IOSEXP EQU IOSCHN 04709000 IOSGDP EQU IOSCHN 04710000 IOSAFF EQU IOSB+85 04711000 IOSRSS1B EQU IOSB+84 04712000 IOSDSID EQU IOSB+80 04713000 IOSVST EQU IOSB+76 04714000 IOSRST EQU IOSB+72 04715000 IOSDIE EQU IOSB+68 04716000 IOSABN EQU IOSB+64 04717000 IOSNRM EQU IOSB+60 04718000 IOSPCI EQU IOSB+56 04719000 IOSERP EQU IOSB+52 04720000 IOSPCHN EQU IOSB+48 04721000 IOSSNS EQU IOSB+42 04722000 IOSAPMSK EQU IOSB+40 04723000 IOSRES4A EQU IOSB+36 04724000 IOSUSE EQU IOSB+32 04725000 IOSSRB EQU IOSB+28 04726000 IOSCSWRC EQU IOSCSW+5 04727000 IOSTSB EQU IOSTATUS+1 04728000 IOSTSA EQU IOSTATUS 04729000 IOSCSWCA EQU IOSCSW 04730000 IOSCC EQU @NM00002 04731000 IOSUCB EQU IOSB+16 04732000 IOSOPT2X EQU IOSOPT2 04733000 IOSHTP EQU IOSOPT2 04734000 IOSRELSE EQU IOSOPT 04735000 IOSAPR EQU IOSOPT 04736000 IOSTSLL EQU IOSOPT 04737000 IOSNERP EQU IOSOPT 04738000 IOSPSLL EQU IOSOPT 04739000 IOSQISCE EQU IOSOPT 04740000 IOSDEP EQU IOSOPT 04741000 IOSBYP EQU IOSOPT 04742000 IOSCOD EQU IOSB+13 04743000 IOSPKY7 EQU IOSPKEY 04744000 IOSPGDPX EQU IOSPKEY 04745000 IOSIDR EQU IOSPKEY 04746000 IOSLCL EQU IOSPKEY 04747000 @NM00001 EQU IOSPKEY 04748000 IOSPGAD EQU IOSB+8 04749000 IOSASID EQU IOSB+6 04750000 IOSPRLVL EQU IOSB+5 04751000 IOSDVRID EQU IOSB+4 04752000 IOSPROC EQU IOSB+3 04753000 IOSFLC7 EQU IOSFLC 04754000 IOSFLC6 EQU IOSFLC 04755000 IOSRWAIT EQU IOSFLC 04756000 IOSTP EQU IOSFLC 04757000 IOSCC3WE EQU IOSFLC 04758000 IOSVERIF EQU IOSDVALT 04759000 IOSDVMNT EQU IOSFLC 04760000 IOSLOG EQU IOSFLB 04761000 IOSBDCST EQU IOSFLB 04762000 IOSMSG EQU IOSFLB 04763000 IOSFLB4 EQU IOSFLB 04764000 IOSFLB3 EQU IOSFLB 04765000 IOSFLB2 EQU IOSFLB 04766000 IOSSDR EQU IOSFLB 04767000 IOSDIESE EQU IOSFLB 04768000 IOSIOSB EQU IOSFLA 04769000 IOSDOM EQU IOSFLA 04770000 IOSEX EQU IOSFLA 04771000 IOSSMDB EQU IOSFLA 04772000 IOSSMDA EQU IOSFLA 04773000 IOSERR EQU IOSFLA 04774000 IOSCCHN EQU IOSACHN 04775000 IOSDCHN EQU IOSACHN 04776000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04777000 @RC00584 EQU @RC00583 04778000 BFFB040# EQU @RC00602 04779000 BFFB030# EQU @RC00628 04780000 BFFB010@ EQU @PB00002 04781000 @RC00772 EQU @RC00771 04782000 @RC00830 EQU @RC00826 04783000 @RT00828 EQU @RC00826 04784000 @PB00005 EQU @PB00006 04785000 @PB00004 EQU @PB00005 04786000 @PB00003 EQU @PB00004 04787000 BFFB050@ EQU @PB00003 04788000 @ENDDATA EQU * 04789000 END ISTZBFFB,(C'PLS0333',0603,78034) 04790000