TITLE 'ISTZBFEB/AEB-VS1/MEB-VS2 - WRITE CONTROL LCCW PROCESSOR*00001000 R ' 00002000 ISTZBFEB CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTZBFEB 75.130' 0001 00008000 DROP @15 00009000 @PROLOG DS 0H 0002 00010000 * 0349 00011000 * /*****************************************************************/ 00012000 * /* */ 00013000 * /* SAVE REGISTERS AND SET MODULE BASE */ 00014000 * /* */ 00015000 * /*****************************************************************/ 00016000 * 0349 00017000 */* TPZSAVE (7,12,14) BASE AC(BCEB) */ 00018000 * 0349 00019000 * DO; 0349 00020000 * DCL 0350 00021000 * GPR01F FIXED(31) REG(01); 0350 00022000 * DCL 0351 00023000 * GPR01P PTR(31) REG(01); 0351 00024000 * DCL 0352 00025000 * GPR12F FIXED(31) REG(12); 0352 00026000 * DCL 0353 00027000 * GPR12P PTR(31) REG(12); 0353 00028000 * DCL 0354 00029000 * GPR13F FIXED(31) REG(13); 0354 00030000 * DCL 0355 00031000 * GPR13P PTR(31) REG(13); 0355 00032000 * DCL 0356 00033000 * GPR14F FIXED(31) REG(14); 0356 00034000 * DCL 0357 00035000 * GPR14P PTR(31) REG(14); 0357 00036000 * RFY 0358 00037000 * (GPR01P, 0358 00038000 * GPR12P, 0358 00039000 * GPR13P, 0358 00040000 * GPR14P) RSTD; 0358 00041000 * GEN(PRINT OFF); 0359 00042000 * 0359 00043000 PRINT OFF 00044000 */* ATBUILD (ISTZSAVE) */ 00045000 */* END OF ATBUILD */ 00046000 * 0360 00047000 * GEN(PRINT ON); 0360 00048000 PRINT ON 00049000 * RFY 0361 00050000 * ISTZSAVE BASED(GPR13P); 0361 00051000 * GEN SETS(ZSAZSVVR)(STM 7,12,ZSAZSVVR+0(13)); 0362 00052000 STM 7,12,ZSAZSVVR+0(13) 00053000 * GEN SETS(GPR12P); 0363 00054000 BALR GPR12P,0 00055000 @TSTART DS 0H 00056000 USING @TSTART,GPR12P 00057000 * GEN(PRINT OFF); 0364 00058000 * 0364 00059000 PRINT OFF 00060000 */* ATBUILD (ISTZCRR,ISTRPH,ISTCRA) EJECT(NO) */ 00061000 */* END OF ATBUILD */ 00062000 * 0365 00063000 * GEN(PRINT ON); 0365 00064000 PRINT ON 00065000 * GPR01P->RPHCRR->CRACRR->ZCREBCEB='1'B; 0366 00066000 L @15,RPHCRR(,GPR01P) 0366 00067000 L @15,CRACRR(,@15) 0366 00068000 OI ZCREBCEB(@15),B'00000001' 0366 00069000 * ZSAZACTV='1'B; 0367 00070000 OI ZSAZACTV(GPR13P),B'10000000' 0367 00071000 * ZSAZTRAC='BCEB'; 0368 00072000 MVC ZSAZTRAC(4,GPR13P),@CC02903 0368 00073000 * ZSAZSVRR=GPR14P; 0369 00074000 ST GPR14P,ZSAZSVRR(,GPR13P) 0369 00075000 * GPR13P=ZSAZSVFC; 0370 00076000 L GPR13P,ZSAZSVFC(,GPR13P) 0370 00077000 * RFY 0371 00078000 * (GPR01P) UNRSTD; 0371 00079000 * RFY 0372 00080000 * (GPR14P) UNRSTD; 0372 00081000 * END; 0373 00082000 * 0373 00083000 */* END TPZSAVE */ 00084000 * 0374 00085000 * LCCWREG=LSCLCCWA; /* LOAD LCCW ADDRESS */ 00086000 * 0374 00087000 L LCCWREG,LSCLCCWA(,ELEMREG) 0374 00088000 * /*****************************************************************/ 00089000 * /* */ 00090000 * /* IF LCCW IS NOT COMMAND CHAINED, INDICATE CONTROL BLOCK ERROR */ 00091000 * /* */ 00092000 * /*****************************************************************/ 00093000 * 0375 00094000 * IF LCCWCC=OFF THEN /* NOT COMMAND CHAINED */ 00095000 TM LCCWCC(LCCWREG),B'01000000' 0375 00096000 BNZ @RF00375 0375 00097000 * DO; /* INDICATE CONTROL BLOCK ERROR */ 00098000 * LCPZRT01=ON; /* SET C.B. ERROR FLAG */ 00099000 OI LCPZRT01(ELEMREG),B'01000000' 0377 00100000 * LCPMNRCD=FRMINVCF; /* MINOR RETURN CODE - INVALID 0378 00101000 * CHAINING */ 00102000 MVI LCPMNRCD(ELEMREG),X'81' 0378 00103000 * END; 0379 00104000 * ELSE /* LCCW IS COMMAND CHAINED */ 00105000 * IF DEVCSSL=ON THEN /* START/STOP DEVICE @XL03HEN*/ 00106000 B @RC00375 0380 00107000 @RF00375 LA @09,36 0380 00108000 ALR @09,DNCBREG 0380 00109000 TM DEVCSSL(@09),B'01000000' 0380 00110000 BNO @RF00380 0380 00111000 * IF LCCWOP=LWNA|LCCWOP=LWPA& /* IF OPERATION IS WRITE NACK OR 00112000 * WRITE POS ACK @XL03HXF*/ 00113000 * ((DEVTCODE=DEV2740& /* AND DEVICE IS A 2740 */ 00114000 * DEVCCHEK=ON)| /* WITH CHECKING @XL03HEN*/ 00115000 * DEVTCODE=DEV1050) THEN 0381 00116000 CLI LCCWOP(LCCWREG),X'2F' 0381 00117000 BE @RT00381 0381 00118000 CLI LCCWOP(LCCWREG),X'FD' 0381 00119000 BNE @RF00381 0381 00120000 CLI DEVTCODE(@09),X'01' 0381 00121000 BNE @GL00003 0381 00122000 TM DEVCCHEK(@09),B'00000100' 0381 00123000 BO @RT00381 0381 00124000 @GL00003 CLI DEVTCODE+36(DNCBREG),X'03' 0381 00125000 BNE @RF00381 0381 00126000 @RT00381 DS 0H 0382 00127000 * DO; /* @XL03HXF*/ 00128000 * IF LCCWOP=LWPA THEN /* @XL03HXF*/ 00129000 CLI LCCWOP(LCCWREG),X'FD' 0383 00130000 BNE @RF00383 0383 00131000 * BDUACK=ON; /* POS ACK IN BUFFER @XL03HXF*/ 00132000 OI BDUACK+42(BFRREG),B'00000100' 0384 00133000 * ELSE 0385 00134000 * BDUNACK=ON; /* NACK FLAG IN BUFFER @XL03HEN*/ 00135000 B @RC00383 0385 00136000 @RF00383 OI BDUNACK+42(BFRREG),B'00000010' 0385 00137000 * END; /* @XL03HXF*/ 00138000 * ELSE 0387 00139000 * DO; /* INVALID COMMAND FOR DEVICE */ 00140000 B @RC00381 0387 00141000 @RF00381 DS 0H 0388 00142000 * LCPZRT01=ON; /* LOGIC ERROR @XL03HEN*/ 00143000 OI LCPZRT01(ELEMREG),B'01000000' 0388 00144000 * LCPMNRCD=FRMINVL; /* RC= INVALID LCCW @XL03HEN*/ 00145000 MVI LCPMNRCD(ELEMREG),X'A3' 0389 00146000 * END; 0390 00147000 * ELSE 0391 00148000 * IF(LCCWOP=LWRVI|LCCWOP=LWAA|LCCWOP=LWNA|/* IF CMND IS RVI, */ 00149000 * LCCWOP=LWPA) /* ALT ACK OR NACK OR WRITE POS 00150000 * ACK @XL03HXF*/ 00151000 * &(LCCWCNT^=0|LCCWDATA^=0) THEN/* COUNT AND ADDR MUST BE 00152000 * ZERO..IF NOT ZERO.. */ 00153000 B @RC00380 0391 00154000 @RF00380 CLI LCCWOP(LCCWREG),X'1F' 0391 00155000 BE @GL00005 0391 00156000 CLI LCCWOP(LCCWREG),X'3F' 0391 00157000 BE @GL00005 0391 00158000 CLI LCCWOP(LCCWREG),X'2F' 0391 00159000 BE @GL00005 0391 00160000 CLI LCCWOP(LCCWREG),X'FD' 0391 00161000 BNE @RF00391 0391 00162000 @GL00005 LH @09,LCCWCNT(,LCCWREG) 0391 00163000 N @09,@CF02924 0391 00164000 LTR @09,@09 0391 00165000 BNZ @RT00391 0391 00166000 L @09,LCCWDATA(,LCCWREG) 0391 00167000 LTR @09,@09 0391 00168000 BZ @RF00391 0391 00169000 @RT00391 DS 0H 0392 00170000 * DO; 0392 00171000 * LCPZRT01=ON; /* SET ERROR FLAG */ 00172000 OI LCPZRT01(ELEMREG),B'01000000' 0393 00173000 * LCPMNRCD=FRMINCNT; /* INDICATE CNTL BLOCK ERROR */ 00174000 MVI LCPMNRCD(ELEMREG),X'8B' 0394 00175000 * END; 0395 00176000 * ELSE /* NO ERROR */ 00177000 * 0396 00178000 * /***********************************************************/ 00179000 * /* */ 00180000 * /* IF COMMAND IS WRITE RVI, INDICATE WRITE RVI IN BDU */ 00181000 * /* */ 00182000 * /***********************************************************/ 00183000 * 0396 00184000 * IF LCCWOP=LWRVI THEN /* WRITE RVI COMMAND */ 00185000 B @RC00391 0396 00186000 @RF00391 CLI LCCWOP(LCCWREG),X'1F' 0396 00187000 BNE @RF00396 0396 00188000 * DO; /* INDICATE IN BDU */ 00189000 * BDUACK=ON; /* SET ACK FLAG */ 00190000 * BDUNACK=ON; /* SET NACK FLAG */ 00191000 OI BDUACK+42(BFRREG),B'00000110' 0399 00192000 * END; /* (ACK+NACK) INDICATES RVI */ 00193000 * ELSE /* NOT WRITE RVI COMMAND */ 00194000 * 0401 00195000 * /*********************************************************/ 00196000 * /* */ 00197000 * /* IF WRITE ALTERNATE ACK, INDICATE IN BDU */ 00198000 * /* */ 00199000 * /*********************************************************/ 00200000 * 0401 00201000 * IF LCCWOP=LWAA THEN /* WRITE ALT. ACK */ 00202000 B @RC00396 0401 00203000 @RF00396 CLI LCCWOP(LCCWREG),X'3F' 0401 00204000 BNE @RF00401 0401 00205000 * BDUALT=ON; /* INDICATE IN BDU */ 00206000 OI BDUALT+42(BFRREG),B'00000001' 0402 00207000 * ELSE /* NOT WRITE ALT. ACK */ 00208000 * 0403 00209000 * /*******************************************************/ 00210000 * /* */ 00211000 * /* IF WRITE NEGATIVE ACK, INDICATE NACK IN BDU */ 00212000 * /* */ 00213000 * /*******************************************************/ 00214000 * 0403 00215000 * IF LCCWOP=LWNA THEN /* WRITE NACK COMMAND */ 00216000 B @RC00401 0403 00217000 @RF00401 CLI LCCWOP(LCCWREG),X'2F' 0403 00218000 BNE @RF00403 0403 00219000 * BDUNACK=ON; /* INDICATE IN BDU */ 00220000 OI BDUNACK+42(BFRREG),B'00000010' 0404 00221000 * ELSE /* NOT WRITE NACK */ 00222000 * IF LCCWOP=LWPA THEN /* WRITE POS ACK @XL03HXF*/ 00223000 B @RC00403 0405 00224000 @RF00403 CLI LCCWOP(LCCWREG),X'FD' 0405 00225000 BNE @RF00405 0405 00226000 * BDUACK=ON; /* INDICATE IN BDU @XL03HXF*/ 00227000 OI BDUACK+42(BFRREG),B'00000100' 0406 00228000 * ELSE /* NOT WRITE POS ACK EITHER 0407 00229000 * LEADING GRAPHICS OR INVALID 0407 00230000 * @XL03HXF*/ 00231000 * 0407 00232000 * /***************************************************/ 00233000 * /* */ 00234000 * /* CALL LEADING GRAPHICS PROCESSING SUBROUTINE */ 00235000 * /* SEGMENT(BFEB010)REQUEST */ 00236000 * /* */ 00237000 * /***************************************************/ 00238000 * 0407 00239000 * DO; 0407 00240000 B @RC00405 0407 00241000 @RF00405 DS 0H 0408 00242000 * GOTO BFEB010; 0408 00243000 B BFEB010 0408 00244000 *BFEB010#: 0409 00245000 * END; 0409 00246000 * 0409 00247000 BFEB010# DS 0H 0410 00248000 * /*****************************************************************/ 00249000 * /* */ 00250000 * /* WAS ERROR DETECTED ANYWHERE ABOVE ? */ 00251000 * /* */ 00252000 * /*****************************************************************/ 00253000 * 0410 00254000 * IF LCPZRT00=ON /* LOGICAL ERROR - */ 00255000 * |LCPZRT01=ON THEN /* OR COMTROL BLOCK ERROR */ 00256000 * 0410 00257000 @RC00405 DS 0H 0410 00258000 @RC00403 DS 0H 0410 00259000 @RC00401 DS 0H 0410 00260000 @RC00396 DS 0H 0410 00261000 @RC00391 DS 0H 0410 00262000 @RC00380 DS 0H 0410 00263000 @RC00375 TM LCPZRT00(ELEMREG),B'11000000' 0410 00264000 BZ @RF00410 0410 00265000 * /***************************************************************/ 00266000 * /* */ 00267000 * /* CALL INVALID LCP RECOVERY ROUTINE */ 00268000 * /* */ 00269000 * /***************************************************************/ 00270000 * 0411 00271000 * CALL ISTZBFZ0; 0411 00272000 L @09,ATCZPSVT(,ATCVTREG) 0411 00273000 L @15,ZPSZBFZ0(,@09) 0411 00274000 BALR @14,@15 0411 00275000 * ELSE /* NO ERROR ABOVE */ 00276000 * 0412 00277000 * /***************************************************************/ 00278000 * /* */ 00279000 * /* IF LCCW SYNCH IS INDICATED IN WRITE CONTROL LCCW, CALL LCCW */ 00280000 * /* SYNCH ROUTINE */ 00281000 * /* */ 00282000 * /***************************************************************/ 00283000 * 0412 00284000 * IF ZCRCRLCP->LCPNXLCW->LCCWLSI=ON THEN/* LCCW SYNCH - */ 00285000 B @RC00410 0412 00286000 @RF00410 L @09,RPHCRR(,RPHPTR) 0412 00287000 L @09,CRACRR(,@09) 0412 00288000 L @09,ZCRCRLCP(,@09) 0412 00289000 L @09,LCPNXLCW(,@09) 0412 00290000 TM LCCWLSI(@09),B'00000100' 0412 00291000 BNO @RF00412 0412 00292000 * CALL ISTZBFY0; /* CALL LCCW SYNCH ROUTINE */ 00293000 L @09,ATCZPSVT(,ATCVTREG) 0413 00294000 L @15,ZPSZBFY0(,@09) 0413 00295000 BALR @14,@15 0413 00296000 * ELSE 0414 00297000 * ; /* NOT LCCW SYNCH - NULL */ 00298000 * 0414 00299000 @RF00412 DS 0H 0415 00300000 * /*****************************************************************/ 00301000 * /* */ 00302000 * /* RESTORE REGISTERS AND RETURN TO CALLER */ 00303000 * /* */ 00304000 * /*****************************************************************/ 00305000 * 0415 00306000 */* TPZRETN */ 00307000 * 0415 00308000 * DO; 0415 00309000 @RC00410 DS 0H 0416 00310000 * DCL 0416 00311000 * GPR07F FIXED(31) REG(07); 0416 00312000 * DCL 0417 00313000 * GPR07P PTR(31) REG(07); 0417 00314000 * DCL 0418 00315000 * GPR15F FIXED(31) REG(15); 0418 00316000 * DCL 0419 00317000 * GPR15P PTR(31) REG(15); 0419 00318000 * RFY 0420 00319000 * (GPR07P, 0420 00320000 * GPR14P, 0420 00321000 * GPR15P) RSTD; 0420 00322000 * GPR13P=ZSAZSVBC; 0421 00323000 L GPR13P,ZSAZSVBC(,GPR13P) 0421 00324000 * IF GPR13P=0 THEN 0422 00325000 LTR GPR13P,GPR13P 0422 00326000 BZ @RT00422 0422 00327000 * ; /* TPDVTS ISTZFARR */ 00328000 * ELSE 0424 00329000 * GPR14P=ZSAZSVRR; 0424 00330000 L GPR14P,ZSAZSVRR(,GPR13P) 0424 00331000 * GEN REFS(ZSAZSVVR)(LM 7,12,ZSAZSVVR+0(13)); 0425 00332000 @RT00422 DS 0H 0425 00333000 LM 7,12,ZSAZSVVR+0(13) 00334000 * GEN REFS(GPR14P) EXIT NOSEQFLOW(BR GPR14P); 0426 00335000 BR GPR14P 00336000 * RFY 0427 00337000 * (GPR07P, 0427 00338000 * GPR14P, 0427 00339000 * GPR15P) UNRSTD; 0427 00340000 * END; 0428 00341000 * 0428 00342000 */* END TPZRETN */ 00343000 * 0429 00344000 * 0429 00345000 * /*****************************************************************/ 00346000 * /* */ 00347000 * /* BFEB0010 - PROCESS LEADING GRAPHICS SUBROUTINE. . . . CALLED */ 00348000 * /* BY MAINLINE - LCCW OPCODE IS EITHER LEADING GRAPHICS OR */ 00349000 * /* INVALID. IF LEADING GRAPHICS, LCCW DATA COUNT IS TESTED */ 00350000 * /* AGAINST LEADING GRAPHICS LIMIT AND GRAPHICS ARE MOVED TO THE */ 00351000 * /* OUTBOUND BUFFER. */ 00352000 * /* */ 00353000 * /*****************************************************************/ 00354000 * 0429 00355000 *BFEB0010: 0429 00356000 * ; 0429 00357000 * 0429 00358000 BFEB0010 DS 0H 0430 00359000 * /*****************************************************************/ 00360000 * /* */ 00361000 * /* SEGMENT(BFEB010)START */ 00362000 * /* */ 00363000 * /*****************************************************************/ 00364000 * 0430 00365000 * DO; 0430 00366000 * GOTO BFEB010@; 0431 00367000 B BFEB010@ 0431 00368000 *BFEB010: 0432 00369000 * END; 0432 00370000 * 0432 00371000 BFEB010 DS 0H 0433 00372000 * /*****************************************************************/ 00373000 * /* */ 00374000 * /* IF COMMAND IS NOT ACK/LEADING GRAPHICS OR NACK/LEADING */ 00375000 * /* GRAPHICS, INDICATE INVALID LCCW CODE */ 00376000 * /* */ 00377000 * /*****************************************************************/ 00378000 * 0433 00379000 * IF LCCWOP^=LWPLG /* NOT ACK/LEADING GRAPHICS */ 00380000 * &LCCWOP^=LWNLG THEN /* & NOT NACK/LEADING GRAPHICS */ 00381000 CLI LCCWOP(LCCWREG),X'5F' 0433 00382000 BE @RF00433 0433 00383000 CLI LCCWOP(LCCWREG),X'6F' 0433 00384000 BE @RF00433 0433 00385000 * DO; /* INDICATE INVALID CODE */ 00386000 * LCPZRT01=ON; /* CONTROL BLOCK ERROR */ 00387000 OI LCPZRT01(ELEMREG),B'01000000' 0435 00388000 * LCPMNRCD=FRMINVL; /* MINOR RETURN CODE - INVALID 0436 00389000 * LCCW CODE */ 00390000 MVI LCPMNRCD(ELEMREG),X'A3' 0436 00391000 * END; 0437 00392000 * ELSE /* IS LEADING GRAPHICS COMMAND */ 00393000 * 0438 00394000 * /***************************************************************/ 00395000 * /* */ 00396000 * /* TEST DATA COUNT AGAINST LEADING GRAPHICS COUNT LIMIT. IF */ 00397000 * /* EXCEEDED, INDICATE CONTROL BLOCK ERROR */ 00398000 * /* */ 00399000 * /***************************************************************/ 00400000 * 0438 00401000 * IF LCCWCNT>LGLIMIT THEN /* LIMIT EXCEEDED */ 00402000 B @RC00433 0438 00403000 @RF00433 CLC LCCWCNT(2,LCCWREG),@CH00033 0438 00404000 BNH @RF00438 0438 00405000 * DO; /* INDICATE ERROR */ 00406000 * LCPZRT01=ON; /* CONTROL BLOCK ERROR */ 00407000 OI LCPZRT01(ELEMREG),B'01000000' 0440 00408000 * LCPMNRCD=FRMLGCNT; /* MINOR RETURN CODE - EXCESS L/G 00409000 * COUNT */ 00410000 MVI LCPMNRCD(ELEMREG),X'88' 0441 00411000 * END; 0442 00412000 * ELSE 0443 00413000 * DO; /* COUNT NOT EXCEEDED */ 00414000 B @RC00438 0443 00415000 @RF00438 DS 0H 0444 00416000 * FDBDATAA=ADDR(ZOBBTU); /* ADDRESS FOR MOVE RTN */ 00417000 LA @09,ZOBBTU(,BFRREG) 0444 00418000 ST @09,FDBDATAA(,BFRREG) 0444 00419000 * FDBDATCT=LENGTH(ISTBTU); /* COUNT FOR MOVE ROUTINE */ 00420000 * 0445 00421000 MVC FDBDATCT(2,BFRREG),@CH02229 0445 00422000 * /***********************************************************/ 00423000 * /* */ 00424000 * /* CALL TPIOS MOVE DATA FROM LCCW ROUTINE */ 00425000 * /* */ 00426000 * /***********************************************************/ 00427000 * 0446 00428000 * CALL ISTZDFC0; 0446 00429000 L @09,ATCZPSVT(,ATCVTREG) 0446 00430000 L @15,ZPSZDFC0(,@09) 0446 00431000 BALR @14,@15 0446 00432000 * RFY 0447 00433000 * (TMPFDBP, 0447 00434000 * CNTER) RSTD; /* @XL03HDP*/ 00435000 * CNTER=FDBDATCT-LENGTH(ISTBTU)+10;/* INIT COUNTER @XL03HDP*/ 00436000 L CNTER,@CF02917 0448 00437000 AH CNTER,FDBDATCT(,BFRREG) 0448 00438000 * TMPFDBP=ADDR(ISTFDB); /* POINT TO FDB @XL03HDP*/ 00439000 LR TMPFDBP,BFRREG 0449 00440000 * DO WHILE(TMPFDBP->FDBFDBA>0);/* IF ANOTHER FDB @XL03HDP*/ 00441000 B @DE00450 0450 00442000 @DL00450 DS 0H 0451 00443000 * TMPFDBP=TMPFDBP->FDBFDBA;/* GET ITS ADDR @XL03HDP*/ 00444000 L TMPFDBP,FDBFDBA(,TMPFDBP) 0451 00445000 * CNTER=CNTER+TMPFDBP->FDBDATCT;/* ADD COUNT @XL03HDP*/ 00446000 AH CNTER,FDBDATCT(,TMPFDBP) 0452 00447000 * END; /* @XL03HDP*/ 00448000 @DE00450 L @14,FDBFDBA(,TMPFDBP) 0453 00449000 LTR @14,@14 0453 00450000 BP @DL00450 0453 00451000 * BTUDCF=CNTER; /* SET BDUCOUNT @XL03HDP*/ 00452000 STH CNTER,BTUDCF+28(,BFRREG) 0454 00453000 * RFY 0455 00454000 * (TMPFDBP, 0455 00455000 * CNTER) UNRSTD; /* @XL03HDP*/ 00456000 * BDULDGPH=ON; /* SET BDU LEADING GRAPHICS 0456 00457000 * FUNCTION FLAG */ 00458000 * 0456 00459000 LA @09,42 0456 00460000 ALR @09,BFRREG 0456 00461000 OI BDULDGPH(@09),B'00100000' 0456 00462000 * /***********************************************************/ 00463000 * /* */ 00464000 * /* SET BDU ACK/NACK FUNCTION FLAGS */ 00465000 * /* */ 00466000 * /***********************************************************/ 00467000 * 0457 00468000 * IF LCCWOP=LWPLG THEN /* ACK/LEADING GRAPHICS */ 00469000 CLI LCCWOP(LCCWREG),X'5F' 0457 00470000 BNE @RF00457 0457 00471000 * BDUACK=ON; /* INDICATE WRITE ACK */ 00472000 OI BDUACK(@09),B'00000100' 0458 00473000 * ELSE /* NACK/LEADING GRAPHICS */ 00474000 * BDUNACK=ON; /* INDICATE WRITE NACK */ 00475000 B @RC00457 0459 00476000 @RF00457 OI BDUNACK+42(BFRREG),B'00000010' 0459 00477000 * END; 0460 00478000 * 0460 00479000 @RC00457 DS 0H 0461 00480000 * /*****************************************************************/ 00481000 * /* */ 00482000 * /* SEGMENT(BFEB010)FINISH */ 00483000 * /* */ 00484000 * /*****************************************************************/ 00485000 * 0461 00486000 * DO; 0461 00487000 @RC00438 DS 0H 0461 00488000 @RC00433 DS 0H 0462 00489000 * GOTO BFEB010#; 0462 00490000 B BFEB010# 0462 00491000 *BFEB010@: 0463 00492000 * END; 0463 00493000 * 0463 00494000 BFEB010@ DS 0H 0464 00495000 */* TPEPILOG */ 00496000 * 0464 00497000 * GEN(PRINT OFF); 0464 00498000 PRINT OFF 00499000 * GEN(PRINT ON); 0465 00500000 * 0465 00501000 PRINT ON 00502000 */* END OF TPEPILOG */ 00503000 * 0466 00504000 * END ISTZBFEB; /* END OF MODULE */ 00505000 @EL00001 DS 0H 0466 00506000 @EF00001 DS 0H 0466 00507000 @ER00001 BR @14 0466 00508000 @DATA DS 0H 00509000 @CH00033 DC H'15' 00510000 @CH02229 DC H'20' 00511000 @DATD DSECT 00512000 DS 0F 00513000 ISTZBFEB CSECT 00514000 DS 0F 00515000 @CF02917 DC F'-10' 00516000 @CF02924 DC XL4'0000FFFF' 00517000 @DATD DSECT 00518000 DS 0D 00519000 BDUPTR DS A 00520000 BTUPTR DS A 00521000 FSBPTR DS A 00522000 LCPBPTR DS A 00523000 DNCBPTR DS A 00524000 FMCBPTR DS A 00525000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00526000 @ENDDATD EQU * 00527000 ISTZBFEB CSECT 00528000 DS 0F 00529000 @SIZDATD DC AL1(0) 00530000 DC AL3(@ENDDATD-@DATD) 00531000 DS 0D 00532000 @CC02903 DC C'BCEB' 00533000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00534000 @01 EQU 01 00535000 @02 EQU 02 00536000 @03 EQU 03 00537000 @04 EQU 04 00538000 @05 EQU 05 00539000 @06 EQU 06 00540000 @07 EQU 07 00541000 @08 EQU 08 00542000 @09 EQU 09 00543000 @10 EQU 10 00544000 @11 EQU 11 00545000 @12 EQU 12 00546000 @13 EQU 13 00547000 @14 EQU 14 00548000 @15 EQU 15 00549000 CNTER EQU @00 00550000 RPHREG EQU @01 00551000 ATCVTREG EQU @02 00552000 ICNCBREG EQU @03 00553000 DNCBREG EQU @04 00554000 FMCBREG EQU @05 00555000 BFRREG EQU @06 00556000 ELEMREG EQU @07 00557000 LCCWREG EQU @08 00558000 R12 EQU @12 00559000 R13 EQU @13 00560000 TMPFDBP EQU @15 00561000 RPHPTR EQU @01 00562000 GPR01P EQU @01 00563000 GPR12P EQU @12 00564000 GPR13P EQU @13 00565000 GPR14P EQU @14 00566000 GPR07P EQU @07 00567000 GPR15P EQU @15 00568000 GPR01F EQU @01 00569000 GPR07F EQU @07 00570000 GPR12F EQU @12 00571000 GPR13F EQU @13 00572000 GPR14F EQU @14 00573000 GPR15F EQU @15 00574000 RCDREG EQU @15 00575000 RETNREG EQU @14 00576000 ATCLCPTR EQU 1032 00577000 ISTZBFZ0 EQU 0 00578000 ISTZBFY0 EQU 0 00579000 ISTZDFC0 EQU 0 00580000 ISTBDU EQU 0 00581000 BDUMODIF EQU ISTBDU+1 00582000 BDUMOD1 EQU BDUMODIF 00583000 BDUDAF EQU ISTBDU+2 00584000 BDUFUNC EQU BDUDAF 00585000 BDUCHECK EQU BDUFUNC 00586000 BDULDGPH EQU BDUFUNC 00587000 BDUACK EQU BDUFUNC 00588000 BDUNACK EQU BDUFUNC 00589000 BDUALT EQU BDUFUNC 00590000 BDUFLAGS EQU BDUDAF+1 00591000 ISTBTU EQU 0 00592000 BTUBTH EQU ISTBTU 00593000 BTUFID EQU BTUBTH 00594000 BTUREQ EQU BTUBTH+6 00595000 BTURQFLG EQU BTUREQ 00596000 BTUDCF EQU BTUBTH+8 00597000 BTURH EQU BTUBTH+10 00598000 BTUBDU EQU ISTBTU+14 00599000 BTUSYSTR EQU ISTBTU+18 00600000 ISTFDB EQU 0 00601000 FDBFDBA EQU ISTFDB 00602000 FDBDATAA EQU ISTFDB+4 00603000 FDBDATCT EQU ISTFDB+8 00604000 ISTFSB EQU 0 00605000 FSBFSB EQU ISTFSB 00606000 FSBMNRCD EQU FSBFSB+2 00607000 FSBSFLGS EQU FSBFSB+3 00608000 FSBFSBA EQU FSBFSB+4 00609000 FSBBTH EQU FSBFSB+8 00610000 FSBCID EQU FSBBTH 00611000 FSBRQTAG EQU FSBBTH+4 00612000 FSBSEQID EQU FSBRQTAG 00613000 FSBFLAGS EQU FSBSEQID 00614000 FSBSEQ EQU FSBSEQID+1 00615000 FSBCSWST EQU FSBBTH+6 00616000 FSBTHFLD EQU FSBCSWST 00617000 FSBTH1 EQU FSBTHFLD 00618000 FSBSYSRS EQU FSBTH1 00619000 FSBTH2 EQU FSBTHFLD+1 00620000 FSBEXTRS EQU FSBTH2 00621000 FSBXFSTS EQU FSBEXTRS 00622000 FSBXCODE EQU FSBEXTRS 00623000 FSBNETRS EQU FSBFSB+16 00624000 FSBSRCAT EQU FSBNETRS 00625000 FSBERC EQU FSBNETRS+1 00626000 FSBFBMI EQU FSBERC 00627000 FSBDMGRS EQU FSBFSB+18 00628000 FSBSS1 EQU FSBDMGRS 00629000 FSBSS2 EQU FSBDMGRS+1 00630000 FSBLCPB EQU FSBFSB+20 00631000 FSBMSGID EQU FSBLCPB 00632000 FSBLCCWA EQU FSBFSB+24 00633000 FSBRLSTS EQU FSBLCCWA 00634000 ISTLH EQU 0 00635000 ISTTH EQU 0 00636000 THFLAG1 EQU ISTTH 00637000 THFLGA EQU THFLAG1 00638000 THMPF EQU THFLGA 00639000 THFLGB EQU THFLAG1+1 00640000 ISTTH2 EQU 0 00641000 TH2FLAG1 EQU ISTTH2 00642000 TH2MPF EQU TH2FLAG1 00643000 ISTZOBUF EQU 0 00644000 ZOBFSM EQU ISTZOBUF+4 00645000 ISTLCCW EQU 0 00646000 LCCWOP EQU ISTLCCW 00647000 LCCWRWOP EQU LCCWOP 00648000 LCCWCTL EQU LCCWRWOP 00649000 LCCWFLAG EQU ISTLCCW+1 00650000 LCCWCC EQU LCCWFLAG 00651000 LCCWLSI EQU LCCWFLAG 00652000 LCCWCNT EQU ISTLCCW+2 00653000 LCCWDATA EQU ISTLCCW+4 00654000 ISTLCPB EQU 0 00655000 LCPREQTG EQU ISTLCPB+2 00656000 LCPFLAGS EQU LCPREQTG 00657000 LCPZRT00 EQU LCPFLAGS 00658000 LCPZRT01 EQU LCPFLAGS 00659000 LCPZF001 EQU LCPFLAGS 00660000 LCPZRT02 EQU LCPZF001 00661000 LCPZF002 EQU LCPFLAGS 00662000 LCPZRT03 EQU LCPZF002 00663000 LCPZF003 EQU LCPFLAGS 00664000 LCPZRT04 EQU LCPZF003 00665000 LCPZF004 EQU LCPFLAGS 00666000 LCPZRT05 EQU LCPZF004 00667000 LCPZRT06 EQU LCPFLAGS 00668000 LCPZRT07 EQU LCPFLAGS 00669000 LCPMNRCD EQU LCPREQTG+1 00670000 LCPZRT08 EQU LCPMNRCD 00671000 LCPZRT09 EQU LCPMNRCD 00672000 LCPCHAIN EQU ISTLCPB+4 00673000 LCPCHAI1 EQU LCPCHAIN 00674000 LCPRUCNT EQU ISTLCPB+8 00675000 LCPFLAG2 EQU ISTLCPB+9 00676000 LCPTLBPI EQU LCPFLAG2 00677000 LCPFID0 EQU LCPFLAG2 00678000 LCPSEQ EQU ISTLCPB+10 00679000 LCPCID EQU ISTLCPB+16 00680000 LCPNXLCW EQU ISTLCPB+20 00681000 LCPFDBA EQU ISTLCPB+24 00682000 LCPFLG1 EQU ISTLCPB+37 00683000 LCPFLCCW EQU ISTLCPB+40 00684000 LCPLCCW EQU ISTLCPB+48 00685000 LCPPABA EQU LCPLCCW+4 00686000 LCPRPHA EQU LCPPABA 00687000 ISTLSCB EQU 0 00688000 LSC1WORD EQU ISTLSCB 00689000 LSCREQTG EQU LSC1WORD+2 00690000 LSCZRT02 EQU LSCREQTG 00691000 LSCZRT03 EQU LSCREQTG 00692000 LSCZRT04 EQU LSCREQTG 00693000 LSCZRT05 EQU LSCREQTG 00694000 LSCZRT06 EQU LSCREQTG 00695000 LSCZRT07 EQU LSCREQTG 00696000 LSCZMNRC EQU LSCREQTG+1 00697000 LSCZRT08 EQU LSCZMNRC 00698000 LSCZRT09 EQU LSCZMNRC 00699000 LSCCHAIN EQU ISTLSCB+4 00700000 LSCCHAI1 EQU LSCCHAIN 00701000 LSCRUCNT EQU ISTLSCB+8 00702000 LSCFLGS EQU ISTLSCB+9 00703000 LSCSEQ EQU ISTLSCB+10 00704000 LSCLCCWA EQU ISTLSCB+20 00705000 LSCFDBA EQU ISTLSCB+24 00706000 ISTRPH EQU 0 00707000 RPHFLAGS EQU ISTRPH+2 00708000 RPHAPTYP EQU RPHFLAGS 00709000 RPHFSTLC EQU RPHFLAGS 00710000 RPHFLGB EQU ISTRPH+3 00711000 RPHRPHA EQU ISTRPH+4 00712000 RPHTSKID EQU ISTRPH+8 00713000 RPHRESMA EQU ISTRPH+16 00714000 RPHWPFLG EQU RPHRESMA 00715000 RPHWEA EQU ISTRPH+24 00716000 RPHCSPA EQU RPHWEA 00717000 RPHSRPRM EQU ISTRPH+28 00718000 RPHCRR EQU ISTRPH+32 00719000 RPHPABQA EQU ISTRPH+36 00720000 RPHWORK EQU ISTRPH+40 00721000 RPHSAVE1 EQU RPHWORK 00722000 RPHSBITS EQU RPHSAVE1+1 00723000 ISTZSAVE EQU 0 00724000 ZSAZSVBC EQU ISTZSAVE 00725000 ZSAZSVMS EQU ZSAZSVBC 00726000 ZSAZACTV EQU ZSAZSVMS 00727000 ZSAZSVFC EQU ISTZSAVE+4 00728000 ZSAZSVRR EQU ISTZSAVE+8 00729000 ZSAZSVVR EQU ISTZSAVE+12 00730000 ZSAZTRAC EQU ISTZSAVE+36 00731000 ISTZCRR EQU 0 00732000 ZCRCRR EQU ISTZCRR 00733000 ZCRFLGS1 EQU ISTZCRR+12 00734000 ZCRFLGS2 EQU ISTZCRR+13 00735000 ZCRSWFLD EQU ISTZCRR+14 00736000 ZCRENDSH EQU ZCRSWFLD 00737000 ZCRNDLCP EQU ZCRSWFLD 00738000 ZCRRESET EQU ZCRSWFLD 00739000 ZCRFLGS3 EQU ISTZCRR+15 00740000 ZCRGENSW EQU ISTZCRR+16 00741000 ZCRPFLGS EQU ISTZCRR+17 00742000 ZCRIBPR EQU ISTZCRR+18 00743000 ZCRSCPSW EQU ISTZCRR+19 00744000 ZCRCRLCP EQU ISTZCRR+20 00745000 ZCRPARMS EQU ISTZCRR+24 00746000 ZCRFBPTR EQU ZCRPARMS 00747000 ZCRDFRDA EQU ZCRPARMS+10 00748000 ZCRPCOD1 EQU ZCRPARMS+12 00749000 ZCRPLSBF EQU ZCRPCOD1 00750000 ZCRPCOD2 EQU ZCRPARMS+13 00751000 ZCRSVRTN EQU ISTZCRR+56 00752000 ZCRWKARA EQU ISTZCRR+156 00753000 ZCRCIDSV EQU ISTZCRR+192 00754000 ZCRAUDIT EQU ISTZCRR+440 00755000 ZCRENTER EQU ZCRAUDIT+5 00756000 ZCREBCEB EQU ZCRENTER+1 00757000 ZCRLCPB EQU ISTZCRR+480 00758000 ZCRRHRU EQU ZCRLCPB 00759000 ISTPAB EQU 0 00760000 PABWQCHN EQU ISTPAB 00761000 PABWEQA EQU PABWQCHN 00762000 PABCHAIN EQU PABWQCHN+4 00763000 PABRPHFG EQU ISTPAB+12 00764000 PABFLAGS EQU PABRPHFG 00765000 PABERLCK EQU PABFLAGS 00766000 PABERRLK EQU PABERLCK 00767000 ISTPFCRR EQU 0 00768000 PFCCRR EQU ISTPFCRR 00769000 PFCCRRID EQU PFCCRR 00770000 PFCCRRLN EQU PFCCRR+2 00771000 PFCHDR EQU ISTPFCRR+4 00772000 PFCCRRO EQU PFCHDR 00773000 PFCFRRO EQU PFCHDR+4 00774000 ISTCFCRR EQU 0 00775000 CFCAUDIT EQU ISTCFCRR 00776000 CFCNTRD EQU CFCAUDIT 00777000 CFCCRT EQU CFCAUDIT+1 00778000 ISTASCRR EQU 0 00779000 ASCFLAGS EQU ISTASCRR+16 00780000 ASCFLG1 EQU ASCFLAGS 00781000 ASCFLG2 EQU ASCFLAGS+2 00782000 ASCFLG3 EQU ASCFLAGS+4 00783000 ASCUSRGS EQU ISTASCRR+28 00784000 ISTAPCRR EQU 0 00785000 APCATFLG EQU ISTAPCRR+16 00786000 APCRFLG EQU ISTAPCRR+18 00787000 APCSAVE EQU ISTAPCRR+44 00788000 APCCOMF EQU ISTAPCRR+116 00789000 APCCOMF1 EQU APCCOMF 00790000 APC31FLG EQU ISTAPCRR+132 00791000 APC52FLG EQU ISTAPCRR+133 00792000 APC53FLG EQU ISTAPCRR+134 00793000 APC54FLG EQU ISTAPCRR+135 00794000 APC57FLG EQU ISTAPCRR+136 00795000 ISTCRA EQU 0 00796000 CRABASIC EQU ISTCRA 00797000 CRAHDR EQU CRABASIC 00798000 CRACRR EQU CRAHDR 00799000 CRALKACT EQU CRABASIC+8 00800000 CRASVC EQU ISTCRA+848 00801000 CRABUFA EQU CRASVC+68 00802000 ISTDYPAB EQU 0 00803000 ISTLOK EQU 0 00804000 LOKCHN EQU ISTLOK+1 00805000 LOKCHNG EQU LOKCHN 00806000 @NM00028 EQU LOKCHNG+2 00807000 ISTATCVT EQU 0 00808000 ATCCOM EQU ISTATCVT 00809000 ATCSTAT EQU ATCCOM 00810000 ATCSTAT1 EQU ATCSTAT 00811000 ATCSTFLG EQU ATCSTAT+1 00812000 ATCPOFLG EQU ATCSTAT+2 00813000 ATCSTAT4 EQU ATCSTAT+3 00814000 ATCIOTRC EQU ATCCOM+140 00815000 ATCTHTRC EQU ATCIOTRC 00816000 ATCCSMR EQU ISTATCVT+296 00817000 ATCSHRFG EQU ISTATCVT+316 00818000 ATCHPGM EQU ISTATCVT+384 00819000 ATCVLCNT EQU ISTATCVT+772 00820000 ATCSOPD EQU ISTATCVT+792 00821000 ATCSIPD EQU ISTATCVT+800 00822000 ATCSECST EQU ISTATCVT+812 00823000 ATCAOSM EQU ISTATCVT+912 00824000 ATCGSRBQ EQU ATCAOSM+4 00825000 ATCGSRBG EQU ATCGSRBQ 00826000 ATCZPSVT EQU ATCAOSM+72 00827000 ATCICAPP EQU ATCAOSM+100 00828000 ATCLDAPP EQU ATCAOSM+120 00829000 ATCDAPVT EQU ATCAOSM+140 00830000 ATCVTFLG EQU ATCAOSM+392 00831000 ATCZFLAG EQU ATCAOSM+588 00832000 ISTZPSVT EQU 0 00833000 ZPSZDFC0 EQU ISTZPSVT+4 00834000 ZPSZBFY0 EQU ISTZPSVT+24 00835000 ZPSZBFZ0 EQU ISTZPSVT+28 00836000 ISTDEVCH EQU 0 00837000 DEVSHCH EQU ISTDEVCH 00838000 DEVCHAR EQU DEVSHCH 00839000 DEVTCODE EQU ISTDEVCH+1 00840000 DEVFLAGS EQU ISTDEVCH+3 00841000 DEVFCCTL EQU DEVFLAGS 00842000 DEVCSSL EQU DEVFCCTL 00843000 DEVCHAR3 EQU DEVFLAGS 00844000 DEVCCHEK EQU DEVCHAR3 00845000 ISTNCB EQU 0 00846000 NCBFLAGS EQU ISTNCB+24 00847000 NCBFRAS EQU NCBFLAGS+1 00848000 NCBFTRIO EQU NCBFRAS 00849000 NCBFLAG1 EQU NCBFLAGS+2 00850000 NCBDEVCH EQU ISTNCB+36 00851000 ISTDNCB EQU 0 00852000 DNCNCB EQU ISTDNCB 00853000 DNCOS EQU ISTDNCB+56 00854000 DNCZFLGS EQU DNCOS 00855000 DNCBSCED EQU DNCOS+2 00856000 ISTPROCD EQU 0 00857000 PROPROC EQU ISTPROCD 00858000 PROPROC1 EQU PROPROC 00859000 PROPROC2 EQU PROPROC+1 00860000 PROPROC3 EQU PROPROC+2 00861000 PROPROC4 EQU PROPROC+3 00862000 PROPROCS EQU 0 00863000 PROSETMS EQU PROPROCS+1 00864000 PROSETM2 EQU PROSETMS 00865000 PROSETM3 EQU PROSETMS+1 00866000 PROSETM4 EQU PROSETMS+2 00867000 ISTFMCB EQU 0 00868000 FMCSTAT EQU ISTFMCB+28 00869000 FMCSTAT1 EQU ISTFMCB+29 00870000 FMCCMDFL EQU ISTFMCB+31 00871000 FMCCMPS1 EQU ISTFMCB+36 00872000 FMCSIPA EQU ISTFMCB+148 00873000 FMCNXOSQ EQU ISTFMCB+152 00874000 FMCNXCFM EQU FMCNXOSQ 00875000 FMCNXOSC EQU FMCNXOSQ+2 00876000 FMCSSTAT EQU ISTFMCB+159 00877000 FMCPACE EQU ISTFMCB+160 00878000 FMCPACEN EQU FMCPACE 00879000 FMCPACEM EQU FMCPACE+1 00880000 FMCPACPC EQU FMCPACE+2 00881000 FMCCVAL EQU FMCPACE+3 00882000 FMCOBCE EQU FMCCVAL 00883000 FMCCLEXT EQU ISTFMCB+164 00884000 FMCRPLA EQU FMCCLEXT 00885000 FMCFBA EQU FMCCLEXT+4 00886000 FMCCMPS2 EQU FMCCLEXT+16 00887000 FMCFLGA EQU FMCCMPS2 00888000 FMCFLGCL EQU FMCCMPS2+1 00889000 FMCPSCMD EQU FMCCMPS2+2 00890000 FMCPSTAT EQU FMCCMPS2+3 00891000 FMCSTAT2 EQU ISTFMCB+186 00892000 FMCMODEB EQU ISTFMCB+189 00893000 FMCCLSEQ EQU ISTFMCB+190 00894000 FMCRRESP EQU ISTFMCB+195 00895000 FMCSSEGQ EQU ISTFMCB+200 00896000 FMCFBAS EQU ISTFMCB+216 00897000 FMCZV002 EQU FMCFBAS 00898000 FMCSNCTL EQU ISTFMCB+224 00899000 FMCSCFLG EQU FMCSNCTL 00900000 FMCVS1 EQU ISTFMCB+232 00901000 FMCZFLAG EQU FMCVS1 00902000 FMCZF006 EQU FMCZFLAG 00903000 FMCLBXM EQU FMCVS1+12 00904000 FMCSHEAQ EQU FMCLBXM 00905000 FMCLCPBQ EQU FMCVS1+16 00906000 FMCLCPAQ EQU FMCVS1+20 00907000 FMCSEQ1 EQU FMCVS1+34 00908000 FMCZFLG2 EQU FMCVS1+35 00909000 FMCCVFLG EQU FMCVS1+44 00910000 FMCFLAG EQU 0 00911000 FMCFLGB EQU FMCFLAG 00912000 FSBCOMBN EQU FSBNETRS 00913000 FSBRHFLD EQU FSBCOMBN+1 00914000 FSBRH3 EQU FSBRHFLD+2 00915000 FSBLDFLG EQU FSBRH3 00916000 @NM00004 EQU FSBRQTAG 00917000 ZOBDLBT EQU ISTZOBUF 00918000 ZOBDLBCM EQU ZOBDLBT 00919000 ZOBFDB EQU ZOBDLBCM 00920000 @NM00006 EQU ZOBDLBCM+25 00921000 ZOBBTU EQU ZOBDLBT+28 00922000 ZOBWCC EQU ZOBDLBT+48 00923000 ZOBECCC EQU ZOBDLBT+50 00924000 ZOBDIO EQU ZOBFSM 00925000 ZOBCCW2 EQU ZOBDIO+8 00926000 ZOBCPTCC EQU ZOBCCW2 00927000 ZOBFLAGS EQU ZOBCCW2+5 00928000 ZOBCCW3 EQU ZOBDIO+16 00929000 ZOBCPTRC EQU ZOBCCW3 00930000 ZOBCPN2C EQU ZOBCPTRC 00931000 ZOBCPTRA EQU ZOBCCW3+1 00932000 @NM00010 EQU ZOBBTU 00933000 LCPZTIE EQU LCPCID 00934000 LCPZSNAM EQU LCPZTIE+8 00935000 ZOBTEXT EQU ZOBBTU 00936000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00937000 LCPZTRV4 EQU LCPZSNAM+4 00938000 LCPZTRV1 EQU LCPZSNAM 00939000 LCPZSNA EQU LCPZTIE+4 00940000 LCPZFMCA EQU LCPZTIE 00941000 ZOBTH2 EQU @NM00010+4 00942000 ZOBLH EQU @NM00010 00943000 ZOBCPN2K EQU ZOBCCW3+6 00944000 ZOBRSV99 EQU ZOBCCW3+5 00945000 ZOBCPN2F EQU ZOBCCW3+4 00946000 ZOBCPTC2 EQU ZOBCPTRA 00947000 ZOBCPTC1 EQU ZOBCPN2C 00948000 ZOBCPNPK EQU ZOBCCW2+6 00949000 ZOBRSV03 EQU ZOBFLAGS 00950000 ZOBRT08 EQU ZOBFLAGS 00951000 ZOBRT06 EQU ZOBFLAGS 00952000 ZOBCPNPF EQU ZOBCCW2+4 00953000 ZOBCPTCA EQU ZOBCCW2+1 00954000 ZOBCPNPC EQU ZOBCPTCC 00955000 ZOBCPWTK EQU ZOBDIO+6 00956000 ZOBRSV02 EQU ZOBDIO+5 00957000 ZOBCPWTF EQU ZOBDIO+4 00958000 ZOBCPTXA EQU ZOBDIO+1 00959000 ZOBCPWTC EQU ZOBDIO 00960000 ZOBRSV09 EQU ZOBECCC 00961000 ZOBECSP EQU ZOBECCC 00962000 ZOBRSV08 EQU ZOBECCC 00963000 ZOBRSV07 EQU ZOBDLBT+49 00964000 ZOBRSV06 EQU ZOBWCC 00965000 ZOBWCSP EQU ZOBWCC 00966000 ZOBRSV05 EQU ZOBWCC 00967000 ZOBRSV10 EQU ZOBDLBCM+26 00968000 @NM00009 EQU @NM00006 00969000 @NM00008 EQU @NM00006 00970000 @NM00007 EQU @NM00006 00971000 ZOBRSV04 EQU ZOBDLBCM+16 00972000 ZOBLNG2 EQU ZOBDLBCM+14 00973000 ZOBRSV01 EQU ZOBDLBCM+12 00974000 FSBRT0B EQU @NM00004+1 00975000 FSBRT0A EQU @NM00004+1 00976000 FSBRT09 EQU @NM00004+1 00977000 FSBRT08 EQU @NM00004+1 00978000 FSBRT07 EQU @NM00004 00979000 FSBRT06 EQU @NM00004 00980000 FSBRT05 EQU @NM00004 00981000 FSBRT04 EQU @NM00004 00982000 FSBRT03 EQU @NM00004 00983000 FSBRT02 EQU @NM00004 00984000 FSBRT01 EQU @NM00004 00985000 FSBRT00 EQU @NM00004 00986000 FSBLDCUF EQU FSBLDFLG 00987000 FSBLDSIF EQU FSBLDFLG 00988000 FSBLDSOF EQU FSBLDFLG 00989000 FSBLDEBF EQU FSBLDFLG 00990000 FSBLDBBF EQU FSBLDFLG 00991000 FSBLDFME EQU FSBLDFLG 00992000 FSBLDSCF EQU FSBLDFLG 00993000 FSBLDRMF EQU FSBLDFLG 00994000 FSBRH2 EQU FSBRHFLD+1 00995000 FSBRH1 EQU FSBRHFLD 00996000 FSBALIGN EQU FSBCOMBN 00997000 FMCFLRSV EQU FMCFLGB 00998000 FMCFLGA8 EQU FMCFLGB 00999000 FMCCLRPH EQU FMCVS1+45 01000000 FMCRSV0X EQU FMCCVFLG 01001000 FMCVYRPH EQU FMCCVFLG 01002000 FMCZV004 EQU FMCVS1+40 01003000 FMCLOCK2 EQU FMCVS1+36 01004000 @NM00043 EQU FMCZFLG2 01005000 FMCZF027 EQU FMCZFLG2 01006000 FMCZF026 EQU FMCZFLG2 01007000 FMCSEQ1B EQU FMCSEQ1 01008000 FMCSEQ1T EQU FMCSEQ1 01009000 FMCZX006 EQU FMCVS1+33 01010000 FMCZX005 EQU FMCVS1+32 01011000 FMCZX004 EQU FMCVS1+31 01012000 FMCZX003 EQU FMCVS1+30 01013000 FMCZX002 EQU FMCVS1+29 01014000 FMCZX001 EQU FMCVS1+28 01015000 FMCZV001 EQU FMCVS1+24 01016000 FMCAWATQ EQU FMCLCPAQ+1 01017000 @NM00042 EQU FMCLCPAQ 01018000 FMCLCPB2 EQU FMCLCPBQ+1 01019000 FMCLCPB1 EQU FMCLCPBQ 01020000 FMCASCDQ EQU FMCSHEAQ+1 01021000 @NM00041 EQU FMCSHEAQ 01022000 FMCSHEDQ EQU FMCVS1+8 01023000 FMCRSV04 EQU FMCVS1+6 01024000 FMCZH001 EQU FMCVS1+4 01025000 FMCZF025 EQU FMCZFLAG+3 01026000 FMCZF024 EQU FMCZFLAG+3 01027000 FMCZF023 EQU FMCZFLAG+3 01028000 FMCZF022 EQU FMCZFLAG+3 01029000 FMCZF021 EQU FMCZFLAG+3 01030000 FMCZF020 EQU FMCZFLAG+3 01031000 FMCZF019 EQU FMCZFLAG+3 01032000 FMCZF018 EQU FMCZFLAG+3 01033000 FMCZF017 EQU FMCZFLAG+2 01034000 FMCZF016 EQU FMCZFLAG+2 01035000 FMCZF015 EQU FMCZFLAG+2 01036000 FMCZF014 EQU FMCZFLAG+2 01037000 FMCZF013 EQU FMCZFLAG+2 01038000 FMCZF012 EQU FMCZFLAG+2 01039000 FMCZF011 EQU FMCZFLAG+2 01040000 FMCZF010 EQU FMCZFLAG+2 01041000 FMCZF00F EQU FMCZFLAG+1 01042000 FMCZF00E EQU FMCZFLAG+1 01043000 FMCZF00D EQU FMCZFLAG+1 01044000 FMCZF00C EQU FMCZFLAG+1 01045000 FMCZF00B EQU FMCZFLAG+1 01046000 FMCRSV10 EQU FMCZFLAG+1 01047000 FMCZF009 EQU FMCZFLAG+1 01048000 FMCZFD06 EQU FMCZF006+1 01049000 FMCZFC06 EQU FMCZF006 01050000 FMCZFB06 EQU FMCZF006 01051000 FMCZFA06 EQU FMCZF006 01052000 FMCZF005 EQU FMCZFLAG 01053000 FMCZF004 EQU FMCZFLAG 01054000 FMCZF003 EQU FMCZFLAG 01055000 FMCZF002 EQU FMCZFLAG 01056000 FMCZF001 EQU FMCZFLAG 01057000 FMCFRESA EQU ISTFMCB+228 01058000 FMCSCSQN EQU FMCSNCTL+2 01059000 FMCSCCTL EQU FMCSNCTL+1 01060000 FMCSTCTL EQU FMCSCFLG 01061000 FMCSCCLO EQU FMCSCFLG 01062000 FMCAPRO EQU FMCSCFLG 01063000 FMCLURO EQU FMCSCFLG 01064000 FMCOBSAC EQU FMCSCFLG 01065000 FMCIBSAC EQU FMCSCFLG 01066000 FMCFBRE EQU ISTFMCB+220 01067000 FMCFBXM EQU FMCZV002 01068000 FMCASEGQ EQU ISTFMCB+212 01069000 FMCRDTPT EQU ISTFMCB+208 01070000 FMCLOCK EQU ISTFMCB+204 01071000 FMCSEGD EQU FMCSSEGQ 01072000 FMCRSPLM EQU ISTFMCB+198 01073000 FMCPSTRS EQU ISTFMCB+196 01074000 @NM00040 EQU FMCRRESP 01075000 FMCTSLHA EQU FMCRRESP 01076000 FMCFRRN EQU FMCRRESP 01077000 FMCFME EQU FMCRRESP 01078000 FMCFEX EQU FMCRRESP 01079000 FMCFPE EQU FMCRRESP 01080000 FMCCTLB EQU ISTFMCB+194 01081000 FMCBSQNO EQU FMCCLSEQ+2 01082000 FMCTSQNO EQU FMCCLSEQ 01083000 FMCOBPRG EQU FMCMODEB 01084000 FMCIBPRG EQU FMCMODEB 01085000 FMCRESOT EQU FMCMODEB 01086000 FMCRSTSR EQU FMCMODEB 01087000 FMCLUQ EQU FMCMODEB 01088000 FMCAPQ EQU FMCMODEB 01089000 FMCCLEAR EQU FMCMODEB 01090000 FMCHOLD EQU FMCMODEB 01091000 FMCIPSEQ EQU ISTFMCB+188 01092000 FMCLUSTR EQU ISTFMCB+187 01093000 FMCRSV87 EQU FMCSTAT2 01094000 FMCSEQI EQU FMCSTAT2 01095000 FMCCPIP EQU FMCSTAT2 01096000 FMCALIPR EQU FMCSTAT2 01097000 FMCIAIO EQU FMCSTAT2 01098000 FMCZF00A EQU FMCSTAT2 01099000 FMCVPIP EQU FMCSTAT2 01100000 FMCBHSET EQU ISTFMCB+185 01101000 FMCPRMRC EQU FMCCLEXT+20 01102000 FMCRSV89 EQU FMCPSTAT 01103000 FMCPCLSD EQU FMCPSTAT 01104000 FMCDDOCD EQU FMCPSTAT 01105000 FMCIDVFD EQU FMCPSTAT 01106000 FMCELKST EQU FMCPSTAT 01107000 FMCRSV88 EQU FMCPSCMD 01108000 FMCRDBLK EQU FMCPSCMD 01109000 FMCDSEOC EQU FMCPSCMD 01110000 FMCPURGE EQU FMCPSCMD 01111000 FMCRESTI EQU FMCPSCMD 01112000 FMCCNTCT EQU FMCPSCMD 01113000 FMCINVT EQU FMCPSCMD 01114000 FMCFLGB7 EQU FMCFLGCL 01115000 FMCFLGB6 EQU FMCFLGCL 01116000 FMCFLGB5 EQU FMCFLGCL 01117000 FMCFLGB4 EQU FMCFLGCL 01118000 FMCFLGB3 EQU FMCFLGCL 01119000 FMCFLGB2 EQU FMCFLGCL 01120000 FMCFLGB1 EQU FMCFLGCL 01121000 FMCFLGB0 EQU FMCFLGCL 01122000 FMCFLGA7 EQU FMCFLGA 01123000 FMCFLGA6 EQU FMCFLGA 01124000 FMCFLGA5 EQU FMCFLGA 01125000 FMCFLGA4 EQU FMCFLGA 01126000 FMCFLGA3 EQU FMCFLGA 01127000 FMCFLGA2 EQU FMCFLGA 01128000 FMCFLGA1 EQU FMCFLGA 01129000 FMCFLGA0 EQU FMCFLGA 01130000 FMCDCLOK EQU FMCCLEXT+12 01131000 FMCRAFM EQU FMCCLEXT+8 01132000 FMCFBPTR EQU FMCFBA+1 01133000 FMCFBRSV EQU FMCFBA 01134000 FMCRPLPT EQU FMCRPLA+1 01135000 FMCRPLRS EQU FMCRPLA 01136000 FMCPRCLS EQU FMCCVAL 01137000 FMCIBCE EQU FMCCVAL 01138000 FMCONLY EQU FMCOBCE 01139000 FMCLAST EQU FMCOBCE 01140000 FMCMIDLE EQU FMCOBCE 01141000 FMCFIRST EQU FMCOBCE 01142000 FMCCPCNT EQU FMCPACPC 01143000 FMCMPCNT EQU FMCPACEM 01144000 FMCNPCNT EQU FMCPACEN 01145000 FMCCONF EQU FMCSSTAT 01146000 FMCPURCH EQU FMCSSTAT 01147000 FMCNSALU EQU FMCSSTAT 01148000 FMCBIP EQU FMCSSTAT 01149000 FMCSDTR EQU FMCSSTAT 01150000 FMCUIPI EQU FMCSSTAT 01151000 FMCCIPI EQU FMCSSTAT 01152000 FMCSNBI EQU FMCSSTAT 01153000 FMCRVD01 EQU ISTFMCB+158 01154000 FMCISSN EQU ISTFMCB+156 01155000 FMCOASN EQU FMCNXOSC 01156000 FMCOSSN EQU FMCNXCFM 01157000 FMCSIP EQU FMCSIPA 01158000 FMCEXLST EQU ISTFMCB+144 01159000 FMCPAB5 EQU ISTFMCB+128 01160000 FMCPAB4 EQU ISTFMCB+112 01161000 FMCPAB3 EQU ISTFMCB+96 01162000 FMCPAB2 EQU ISTFMCB+80 01163000 FMCPAB1 EQU ISTFMCB+64 01164000 FMCFASYA EQU ISTFMCB+60 01165000 FMCMODE EQU ISTFMCB+52 01166000 FMCPROCD EQU ISTFMCB+48 01167000 FMCVWT EQU ISTFMCB+44 01168000 FMCRPLH EQU ISTFMCB+40 01169000 FMCBUFNB EQU FMCCMPS1+2 01170000 FMCBUFLM EQU FMCCMPS1 01171000 FMCDEBA EQU ISTFMCB+32 01172000 @NM00039 EQU FMCCMDFL 01173000 FMCSNA EQU FMCCMDFL 01174000 FMCVSNA EQU FMCCMDFL 01175000 FMCCMDR EQU FMCCMDFL 01176000 @NM00038 EQU ISTFMCB+30 01177000 @NM00037 EQU FMCSTAT1 01178000 FMCHPURG EQU FMCSTAT1 01179000 FMCVSP2 EQU FMCSTAT1 01180000 FMCVSP1 EQU FMCSTAT 01181000 FMCLTEAS EQU FMCSTAT 01182000 FMCZF007 EQU FMCSTAT 01183000 FMCDEDSC EQU FMCSTAT 01184000 FMCDEVOF EQU FMCSTAT 01185000 FMCDAPT EQU FMCSTAT 01186000 FMCPRMTE EQU FMCSTAT 01187000 FMCPRMTR EQU FMCSTAT 01188000 FMCUSFLD EQU ISTFMCB+24 01189000 FMCFMCBA EQU ISTFMCB+20 01190000 FMCDNCBA EQU ISTFMCB+16 01191000 FMCDVTA EQU ISTFMCB+12 01192000 FMCTSKID EQU ISTFMCB+8 01193000 FMCNXTCB EQU ISTFMCB+4 01194000 FMCSAF EQU ISTFMCB+2 01195000 FMCLNGTH EQU ISTFMCB+1 01196000 FMCTYPE EQU ISTFMCB 01197000 PROSRDEF EQU PROSETM4 01198000 PRORSV47 EQU PROSETM4 01199000 PROSCON EQU PROSETM4 01200000 PRORSV46 EQU PROSETM3 01201000 PROSMONT EQU PROSETM3 01202000 PRORSV45 EQU PROSETM3 01203000 PROSNTO EQU PROSETM3 01204000 PRORSV44 EQU PROSETM3 01205000 PRORSV43 EQU PROSETM2 01206000 PROSNTFL EQU PROSETM2 01207000 PRORSV42 EQU PROSETM2 01208000 PRORSV41 EQU PROPROCS 01209000 PROMODC EQU PROPROC4 01210000 PROMODT EQU PROPROC4 01211000 PROMODM EQU PROPROC4 01212000 PROMODB EQU PROPROC4 01213000 PRORSV14 EQU PROPROC4 01214000 PRORSV13 EQU PROPROC4 01215000 PRORSV12 EQU PROPROC4 01216000 PROEIB EQU PROPROC4 01217000 PRORSV11 EQU PROPROC3 01218000 PROMONT2 EQU PROPROC3 01219000 PROMONIT EQU PROPROC3 01220000 PROSUBLK EQU PROPROC3 01221000 PRONTO EQU PROPROC3 01222000 PROLGIN EQU PROPROC3 01223000 PROERPI EQU PROPROC3 01224000 PRORSV07 EQU PROPROC3 01225000 PROCFTX EQU PROPROC2 01226000 PROEMLC EQU PROPROC2 01227000 PRONTFL EQU PROPROC2 01228000 PRORSV05 EQU PROPROC2 01229000 PRORSV04 EQU PROPROC2 01230000 PROLGOT EQU PROPROC2 01231000 PROERPO EQU PROPROC2 01232000 PRORSV03 EQU PROPROC2 01233000 PRORPLC EQU PROPROC1 01234000 PROCS EQU PROPROC1 01235000 PROCA EQU PROPROC1 01236000 PRORESPX EQU PROPROC1 01237000 PRODFASY EQU PROPROC1 01238000 PROXPOPT EQU PROPROC1 01239000 PROTRUNC EQU PROPROC1 01240000 PROASYIP EQU PROPROC1 01241000 DNCZC001 EQU DNCOS+40 01242000 DNCLOCK EQU DNCOS+36 01243000 DNCZV005 EQU DNCOS+32 01244000 DNCZV004 EQU DNCOS+28 01245000 DNCZV003 EQU DNCOS+24 01246000 DNCZV002 EQU DNCOS+21 01247000 DNCZX001 EQU DNCOS+20 01248000 DNCZV001 EQU DNCOS+17 01249000 DNCZX003 EQU DNCOS+16 01250000 DNCZV000 EQU DNCOS+12 01251000 DNCSESCQ EQU DNCOS+8 01252000 DNCSESIQ EQU DNCOS+4 01253000 DNCACIP EQU DNCBSCED+1 01254000 DNCLICP EQU DNCBSCED 01255000 DNCZF008 EQU DNCZFLGS+1 01256000 DNCZPSRD EQU DNCZFLGS+1 01257000 DNCPSOL EQU DNCZFLGS+1 01258000 DNCZF007 EQU DNCZFLGS+1 01259000 DNCZF006 EQU DNCZFLGS+1 01260000 DNCZF005 EQU DNCZFLGS+1 01261000 DNCZF004 EQU DNCZFLGS+1 01262000 DNCZF003 EQU DNCZFLGS 01263000 DNCZF002 EQU DNCZFLGS 01264000 DNCZRSCH EQU DNCZFLGS 01265000 DNCDISC EQU DNCZFLGS 01266000 DNCCONT EQU DNCZFLGS 01267000 DNCINVIT EQU DNCZFLGS 01268000 DNCSESS EQU DNCZFLGS 01269000 DNCZF001 EQU DNCZFLGS 01270000 DNCMODE EQU ISTDNCB+49 01271000 DNCBHSET EQU ISTDNCB+48 01272000 NCBRSV01 EQU ISTNCB+46 01273000 NCBSWDAF EQU ISTNCB+44 01274000 NCBFMCBP EQU ISTNCB+32 01275000 NCBLTRC EQU ISTNCB+30 01276000 NCBRVPT1 EQU ISTNCB+28 01277000 NCBNMLLN EQU NCBFLAGS+3 01278000 @NM00036 EQU NCBFLAG1 01279000 @NM00035 EQU NCBFLAG1 01280000 NCBTTF EQU NCBFLAG1 01281000 NCBRSYNC EQU NCBFLAG1 01282000 NCBRSTRT EQU NCBFLAG1 01283000 NCBCONF EQU NCBFLAG1 01284000 NCBSNAI EQU NCBFLAG1 01285000 NCBFLTIO EQU NCBFTRIO 01286000 NCBCSTAT EQU NCBFLAGS 01287000 NCBNCSL EQU ISTNCB+22 01288000 NCBNCBA EQU ISTNCB+20 01289000 NCBFMCBA EQU ISTNCB+16 01290000 NCBNSNA EQU ISTNCB+12 01291000 NCBTSKID EQU ISTNCB+8 01292000 NCBRDTE EQU ISTNCB+4 01293000 NCBDAF EQU ISTNCB+2 01294000 NCBLNGTH EQU ISTNCB+1 01295000 NCBTYPE EQU ISTNCB 01296000 DEVRSV03 EQU ISTDEVCH+5 01297000 DEVPHYSA EQU ISTDEVCH+4 01298000 DEVCSLPN EQU DEVCHAR3 01299000 DEVCSTCL EQU DEVCHAR3 01300000 DEVCATTN EQU DEVCHAR3 01301000 DEVCSWL EQU DEVFCCTL 01302000 DEVCRVB EQU DEVFCCTL 01303000 DEVCBSC EQU DEVFCCTL 01304000 DEVMCODE EQU ISTDEVCH+2 01305000 DEVCHAR2 EQU DEVTCODE 01306000 DEVRSV01 EQU DEVCHAR 01307000 DEVCCTL EQU DEVCHAR 01308000 DEVNNSPT EQU DEVCHAR 01309000 DEVSPS EQU DEVCHAR 01310000 DEVSUBND EQU DEVCHAR 01311000 DEVCONVR EQU DEVCHAR 01312000 DEVOTPUT EQU DEVCHAR 01313000 DEVINPUT EQU DEVCHAR 01314000 ZPSZDFQR EQU ISTZPSVT+80 01315000 ZPSZDFPR EQU ISTZPSVT+76 01316000 ZPSZDFXR EQU ISTZPSVT+72 01317000 ZPSZIF2B EQU ISTZPSVT+68 01318000 ZPSZAF2B EQU ISTZPSVT+64 01319000 ZPSZDFMB EQU ISTZPSVT+60 01320000 ZPSZDFMF EQU ISTZPSVT+56 01321000 ZPSZDFNB EQU ISTZPSVT+52 01322000 @NM00034 EQU ISTZPSVT+48 01323000 ZPSZDFF0 EQU ISTZPSVT+44 01324000 ZPSZTRTT EQU ISTZPSVT+40 01325000 ZPSZBFOB EQU ISTZPSVT+36 01326000 ZPSZBFMB EQU ISTZPSVT+32 01327000 ZPSZDFI0 EQU ISTZPSVT+20 01328000 ZPSZDFB0 EQU ISTZPSVT+16 01329000 ZPSZDFH0 EQU ISTZPSVT+12 01330000 ZPSZDFD0 EQU ISTZPSVT+8 01331000 ZPSZDFA0 EQU ISTZPSVT 01332000 ATCAOS EQU ISTATCVT+1552 01333000 ATCVIOPM EQU ATCAOSM+636 01334000 ATCTPMMI EQU ATCAOSM+632 01335000 ATCTPMPB EQU ATCAOSM+600 01336000 ATCRPLCT EQU ATCAOSM+594 01337000 ATCCRACT EQU ATCAOSM+592 01338000 ATCSRBCT EQU ATCAOSM+590 01339000 ATCRSV75 EQU ATCAOSM+589 01340000 ATCRSV66 EQU ATCZFLAG 01341000 ATCZF001 EQU ATCZFLAG 01342000 ATCTPCP1 EQU ATCAOSM+584 01343000 ATCTPCP0 EQU ATCAOSM+580 01344000 ATCAICTN EQU ATCAOSM+576 01345000 ATCZR01 EQU ATCAOSM+572 01346000 ATCMPLTA EQU ATCAOSM+568 01347000 ATCASCB EQU ATCAOSM+564 01348000 ATCAP86 EQU ATCAOSM+560 01349000 ATCAP85 EQU ATCAOSM+556 01350000 ATCAP84 EQU ATCAOSM+552 01351000 ATCAP83 EQU ATCAOSM+548 01352000 ATCAP82 EQU ATCAOSM+544 01353000 ATCAP69 EQU ATCAOSM+540 01354000 ATCAP66 EQU ATCAOSM+536 01355000 ATCAP62 EQU ATCAOSM+532 01356000 ATCAPC59 EQU ATCAOSM+528 01357000 ATCAP56 EQU ATCAOSM+524 01358000 ATCAP55 EQU ATCAOSM+520 01359000 ATCRCFY0 EQU ATCAOSM+516 01360000 ATCAP41 EQU ATCAOSM+512 01361000 ATCAPC25 EQU ATCAOSM+508 01362000 ATCAP23 EQU ATCAOSM+504 01363000 ATCTPSPB EQU ATCAOSM+472 01364000 ATCTRMBP EQU ATCAOSM+440 01365000 ATCPSTA EQU ATCAOSM+432 01366000 ATCSMABF EQU ATCAOSM+428 01367000 ATCSMAPR EQU ATCAOSM+424 01368000 ATCTPWQA EQU ATCAOSM+420 01369000 ATCSMAID EQU ATCAOSM+416 01370000 ATCSMARA EQU ATCAOSM+412 01371000 ATCCACXA EQU ATCAOSM+408 01372000 ATCZLAAB EQU ATCAOSM+404 01373000 ATCATA10 EQU ATCAOSM+400 01374000 ATCHLTCB EQU ATCAOSM+396 01375000 @NM00033 EQU ATCVTFLG 01376000 ATCVTACT EQU ATCVTFLG 01377000 ATCRPT40 EQU ATCAOSM+388 01378000 ATCRPT39 EQU ATCAOSM+384 01379000 ATCRPT38 EQU ATCAOSM+380 01380000 ATCRPT37 EQU ATCAOSM+376 01381000 ATCRPT36 EQU ATCAOSM+372 01382000 ATCRPT35 EQU ATCAOSM+368 01383000 ATCRPT34 EQU ATCAOSM+364 01384000 ATCRPT33 EQU ATCAOSM+360 01385000 ATCRPT32 EQU ATCAOSM+356 01386000 ATCRPT31 EQU ATCAOSM+352 01387000 ATCRPT30 EQU ATCAOSM+348 01388000 ATCRPT29 EQU ATCAOSM+344 01389000 ATCRPT28 EQU ATCAOSM+340 01390000 ATCRPT27 EQU ATCAOSM+336 01391000 ATCRPT26 EQU ATCAOSM+332 01392000 ATCRPT25 EQU ATCAOSM+328 01393000 ATCRPT24 EQU ATCAOSM+324 01394000 ATCRPT23 EQU ATCAOSM+320 01395000 ATCRPT22 EQU ATCAOSM+316 01396000 ATCRPT21 EQU ATCAOSM+312 01397000 ATCRPT20 EQU ATCAOSM+308 01398000 ATCRPT19 EQU ATCAOSM+304 01399000 ATCRPT18 EQU ATCAOSM+300 01400000 ATCRPT17 EQU ATCAOSM+296 01401000 ATCRPT16 EQU ATCAOSM+292 01402000 ATCRPT15 EQU ATCAOSM+288 01403000 ATCRPT14 EQU ATCAOSM+284 01404000 ATCRPT13 EQU ATCAOSM+280 01405000 ATCRPT12 EQU ATCAOSM+276 01406000 ATCRPT11 EQU ATCAOSM+272 01407000 ATCAP38 EQU ATCAOSM+268 01408000 ATCAP37 EQU ATCAOSM+264 01409000 ATCZDFJ0 EQU ATCAOSM+260 01410000 ATCAP51 EQU ATCAOSM+256 01411000 ATCZPAB2 EQU ATCAOSM+224 01412000 ATCZPAB1 EQU ATCAOSM+192 01413000 ATCZLFVT EQU ATCAOSM+188 01414000 ATCZLPVT EQU ATCAOSM+184 01415000 ATCZDVTX EQU ATCAOSM+180 01416000 ATCZDVTA EQU ATCAOSM+176 01417000 ATCZDVT9 EQU ATCAOSM+172 01418000 ATCZDVT8 EQU ATCAOSM+168 01419000 ATCZDVT7 EQU ATCAOSM+164 01420000 ATCRSV56 EQU ATCDAPVT+22 01421000 ATCDAPDG EQU ATCDAPVT+20 01422000 ATCDXCEA EQU ATCDAPVT+16 01423000 ATCDCEA EQU ATCDAPVT+12 01424000 ATCDPCIA EQU ATCDAPVT+8 01425000 ATCDSIOA EQU ATCDAPVT+4 01426000 ATCDEOEA EQU ATCDAPVT 01427000 ATCZLAEA EQU ATCLDAPP+16 01428000 ATCZLCEA EQU ATCLDAPP+12 01429000 ATCRSV17 EQU ATCLDAPP+8 01430000 ATCSMFRR EQU ATCLDAPP+4 01431000 ATCCDTID EQU ATCLDAPP 01432000 ATCZAEA EQU ATCICAPP+16 01433000 ATCZCEA EQU ATCICAPP+12 01434000 ATCCDTCB EQU ATCICAPP+8 01435000 ATCZSIOA EQU ATCICAPP+4 01436000 ATCCDRPH EQU ATCICAPP 01437000 ATCAP65 EQU ATCAOSM+96 01438000 ATCZDVT6 EQU ATCAOSM+92 01439000 ATCZDVT4 EQU ATCAOSM+88 01440000 ATCZDVT3 EQU ATCAOSM+84 01441000 ATCZDVT1 EQU ATCAOSM+80 01442000 ATCICNCB EQU ATCAOSM+76 01443000 ATCZFSVT EQU ATCAOSM+68 01444000 ATCAP64 EQU ATCAOSM+64 01445000 ATCAP63 EQU ATCAOSM+60 01446000 ATCAP61 EQU ATCAOSM+56 01447000 ATCAP58 EQU ATCAOSM+52 01448000 ATCAP57 EQU ATCAOSM+48 01449000 ATCAP54 EQU ATCAOSM+44 01450000 ATCAP53 EQU ATCAOSM+40 01451000 ATCAP52 EQU ATCAOSM+36 01452000 ATCAP34 EQU ATCAOSM+32 01453000 ATCAP32 EQU ATCAOSM+28 01454000 ATCAP31 EQU ATCAOSM+24 01455000 ATCAP12 EQU ATCAOSM+20 01456000 ATCAP11 EQU ATCAOSM+16 01457000 ATCCMTCB EQU ATCAOSM+12 01458000 ATCPRPH EQU ATCAOSM+8 01459000 ATCGSRBF EQU ATCGSRBG 01460000 ATCSRBRT EQU ATCAOSM 01461000 ATCRSVBB EQU ISTATCVT+908 01462000 ATCVDLOK EQU ISTATCVT+904 01463000 ATCVFPAB EQU ISTATCVT+872 01464000 ATCVDPAB EQU ISTATCVT+840 01465000 ATCIOECB EQU ISTATCVT+836 01466000 ATCINCW3 EQU ISTATCVT+832 01467000 ATCMODTB EQU ISTATCVT+828 01468000 ATCUSSPT EQU ISTATCVT+824 01469000 ATCSRTAB EQU ISTATCVT+820 01470000 @NM00032 EQU ISTATCVT+818 01471000 ATCNMCTR EQU ISTATCVT+816 01472000 ATCSEC51 EQU ATCSECST 01473000 ATCSEC40 EQU ATCSIPD+8 01474000 ATCSEC30 EQU ATCSIPD+4 01475000 ATCSEC21 EQU ATCSIPD 01476000 ATCSEC10 EQU ATCSOPD+4 01477000 ATCSEC01 EQU ATCSOPD 01478000 ATCPOIA EQU ISTATCVT+788 01479000 ATCPODVT EQU ISTATCVT+784 01480000 ATCS49XL EQU ISTATCVT+780 01481000 ATCS49XI EQU ISTATCVT+776 01482000 ATCLCLCT EQU ATCVLCNT+2 01483000 ATCRNCNT EQU ATCVLCNT 01484000 ATCCFEAD EQU ISTATCVT+768 01485000 ATCPTR00 EQU ISTATCVT+736 01486000 ATCRSV10 EQU ISTATCVT+704 01487000 ATCTACB EQU ISTATCVT+700 01488000 ATCVTINM EQU ISTATCVT+696 01489000 ATCTCLIM EQU ISTATCVT+692 01490000 ATCTCLOM EQU ISTATCVT+688 01491000 ATCVTIPB EQU ISTATCVT+656 01492000 ATCTCIPB EQU ISTATCVT+624 01493000 ATCTIPAB EQU ISTATCVT+592 01494000 ATCOCCCB EQU ISTATCVT+588 01495000 ATCOCCOB EQU ISTATCVT+584 01496000 ATCCDLAD EQU ISTATCVT+580 01497000 ATCCCLAD EQU ISTATCVT+576 01498000 ATCDLRPB EQU ISTATCVT+544 01499000 ATCPGPAB EQU ISTATCVT+512 01500000 ATCVPAB1 EQU ISTATCVT+480 01501000 ATCRSV97 EQU ISTATCVT+476 01502000 ATCRDTLK EQU ISTATCVT+472 01503000 ATCVOCLK EQU ISTATCVT+468 01504000 ATCCDFDN EQU ISTATCVT+464 01505000 ATCCDFIN EQU ISTATCVT+460 01506000 ATCDVTLK EQU ISTATCVT+456 01507000 ATCAP36 EQU ISTATCVT+452 01508000 ATCAP35 EQU ISTATCVT+448 01509000 ATCAP33 EQU ISTATCVT+444 01510000 ATCRSV99 EQU ISTATCVT+412 01511000 ATCLDECB EQU ISTATCVT+408 01512000 ATCLDNCS EQU ISTATCVT+404 01513000 ATCCDPTR EQU ISTATCVT+400 01514000 ATCADEL EQU ISTATCVT+396 01515000 ATCTODVT EQU ISTATCVT+392 01516000 ATCDEBCH EQU ISTATCVT+388 01517000 ATCHBSIZ EQU ATCHPGM+2 01518000 ATCHBFNO EQU ATCHPGM 01519000 ATCCRME EQU ISTATCVT+380 01520000 ATCRVCHS EQU ISTATCVT+372 01521000 ATCECTLP EQU ISTATCVT+368 01522000 ATCZDVTB EQU ISTATCVT+364 01523000 ATCECPRT EQU ISTATCVT+360 01524000 ATCVTLOD EQU ISTATCVT+356 01525000 ATCTRPAB EQU ISTATCVT+352 01526000 ATCMSGM EQU ISTATCVT+348 01527000 ATCMSGP EQU ISTATCVT+344 01528000 ATCEPT EQU ISTATCVT+340 01529000 ATCDVT EQU ISTATCVT+336 01530000 ATCTRCPT EQU ISTATCVT+332 01531000 ATCDVLOD EQU ISTATCVT+328 01532000 ATCALERT EQU ISTATCVT+324 01533000 ATCEPA EQU ISTATCVT+320 01534000 ATCSAF EQU ISTATCVT+318 01535000 ATCXRANG EQU ISTATCVT+317 01536000 ATCLAST EQU ATCSHRFG 01537000 ATCSHRTN EQU ISTATCVT+308 01538000 ATCUEP EQU ISTATCVT+304 01539000 ATCOCRT EQU ISTATCVT+300 01540000 ATCCSMA EQU ATCCSMR 01541000 ATCESC02 EQU ISTATCVT+292 01542000 ATCESC01 EQU ISTATCVT+288 01543000 ATCCDFND EQU ISTATCVT+284 01544000 ATCCDDEL EQU ISTATCVT+280 01545000 ATCCDADD EQU ISTATCVT+276 01546000 ATCMNT EQU ISTATCVT+272 01547000 ATCRSV16 EQU ISTATCVT+270 01548000 ATCMAXID EQU ISTATCVT+269 01549000 ATCMSGSP EQU ATCCOM+268 01550000 ATCCIDM EQU ATCCOM+266 01551000 ATCACTRM EQU ATCCOM+264 01552000 ATCNERAP EQU ATCCOM+260 01553000 ATCNESAL EQU ATCCOM+256 01554000 ATCRCC65 EQU ATCCOM+252 01555000 ATCRCC26 EQU ATCCOM+248 01556000 ATCRCC63 EQU ATCCOM+244 01557000 ATCRSV11 EQU ATCCOM+242 01558000 ATCVTMID EQU ATCCOM+240 01559000 ATCAPOST EQU ATCCOM+236 01560000 ATCNERFN EQU ATCCOM+232 01561000 ATCNERNE EQU ATCCOM+228 01562000 ATCNERCV EQU ATCCOM+224 01563000 ATCNERST EQU ATCCOM+220 01564000 ATCDCC61 EQU ATCCOM+216 01565000 ATCDCC60 EQU ATCCOM+212 01566000 ATCSRTDF EQU ATCCOM+208 01567000 ATCSRTAD EQU ATCCOM+204 01568000 ATCFIRA EQU ATCCOM+200 01569000 ATCSMBQ EQU ATCCOM+196 01570000 ATCSMRC EQU ATCCOM+192 01571000 ATCSMRS EQU ATCCOM+188 01572000 ATCSMQU EQU ATCCOM+184 01573000 ATCSMRQ EQU ATCCOM+180 01574000 ATCACDA EQU ATCCOM+176 01575000 ATCSTMA EQU ATCCOM+172 01576000 ATCFRSTR EQU ATCCOM+168 01577000 ATCGTSTR EQU ATCCOM+164 01578000 ATCREADA EQU ATCCOM+160 01579000 ATCALOAD EQU ATCCOM+156 01580000 ATCBLDLA EQU ATCCOM+152 01581000 ATCFBRPH EQU ATCCOM+148 01582000 ATCBFTRC EQU ATCCOM+144 01583000 ATCTPBUF EQU ATCTHTRC 01584000 ATCREMOV EQU ATCCOM+136 01585000 ATCADD EQU ATCCOM+132 01586000 ATCBPDA EQU ATCCOM+128 01587000 ATCDVTPT EQU ATCCOM+124 01588000 ATCFEPT EQU ATCCOM+120 01589000 ATCFDVT EQU ATCCOM+116 01590000 ATCCONFT EQU ATCCOM+112 01591000 ATCPTCHA EQU ATCCOM+108 01592000 ATCAUTHA EQU ATCCOM+104 01593000 ATCACCTA EQU ATCCOM+100 01594000 ATCRDTH EQU ATCCOM+96 01595000 ATCFRSCH EQU ATCCOM+92 01596000 ATCFSB EQU ATCCOM+88 01597000 ATCHLTMS EQU ATCCOM+84 01598000 ATCECPRM EQU ATCCOM+80 01599000 ATCECNET EQU ATCCOM+76 01600000 ATCECOPC EQU ATCCOM+72 01601000 ATCVPARM EQU ATCCOM+68 01602000 ATCECVRQ EQU ATCCOM+64 01603000 ATCECSES EQU ATCCOM+60 01604000 ATCOCHA EQU ATCCOM+56 01605000 ATCDSPLQ EQU ATCCOM+52 01606000 ATCECDSP EQU ATCCOM+48 01607000 ATCVARYQ EQU ATCCOM+44 01608000 ATCECVRY EQU ATCCOM+40 01609000 ATCHALTQ EQU ATCCOM+36 01610000 ATCECHLT EQU ATCCOM+32 01611000 ATCMODQ EQU ATCCOM+28 01612000 ATCECMOD EQU ATCCOM+24 01613000 ATCASCHD EQU ATCCOM+20 01614000 ATCSRT EQU ATCCOM+16 01615000 ATCRDT EQU ATCCOM+12 01616000 ATCDCFRR EQU ATCCOM+8 01617000 ATCAPI EQU ATCCOM+4 01618000 ATCRSV04 EQU ATCSTAT4 01619000 ATCNCSD EQU ATCSTAT4 01620000 ATCMTST EQU ATCSTAT4 01621000 ATCTPRT EQU ATCSTAT4 01622000 ATCPRTAT EQU ATCSTAT4 01623000 @NM00031 EQU ATCPOFLG 01624000 ATCPOUNS EQU ATCPOFLG 01625000 ATCHSDMF EQU ATCSTFLG 01626000 @NM00030 EQU ATCSTAT1 01627000 ATCINHLT EQU ATCSTAT1 01628000 ATCNETSL EQU ATCSTAT1 01629000 ATCQKHLT EQU ATCSTAT1 01630000 ATCSNHLT EQU ATCSTAT1 01631000 ATCACTIV EQU ATCSTAT1 01632000 ATCSTART EQU ATCSTAT1 01633000 LOKXCL EQU @NM00028 01634000 LOKPRY EQU @NM00028 01635000 @NM00029 EQU @NM00028 01636000 @NM00027 EQU LOKCHNG 01637000 LOKCT EQU ISTLOK 01638000 DYPPAB EQU ISTDYPAB+16 01639000 DYPRSV01 EQU ISTDYPAB+12 01640000 DYPTSKID EQU ISTDYPAB+8 01641000 DYPCHAIN EQU ISTDYPAB+4 01642000 DYPFLGS EQU ISTDYPAB+2 01643000 DYPLNGTH EQU ISTDYPAB+1 01644000 DYPTYPE EQU ISTDYPAB 01645000 CRACHAIN EQU ISTCRA+928 01646000 CRARSV02 EQU ISTCRA+924 01647000 CRARSV01 EQU ISTCRA+920 01648000 CRABFTBA EQU CRABUFA 01649000 CRAMASK EQU CRASVC+64 01650000 CRAHSIZ EQU CRASVC+60 01651000 CRAASCRR EQU CRASVC 01652000 CRAPROCR EQU ISTCRA+312 01653000 CRAPSS EQU ISTCRA+160 01654000 CRARPH EQU ISTCRA+52 01655000 CRALAPTR EQU CRABASIC+48 01656000 CRAL9PTR EQU CRABASIC+44 01657000 CRAL8PTR EQU CRABASIC+40 01658000 CRAL7PTR EQU CRABASIC+36 01659000 CRAL6PTR EQU CRABASIC+32 01660000 CRAL5PTR EQU CRABASIC+28 01661000 CRAL4PTR EQU CRABASIC+24 01662000 CRAL3PTR EQU CRABASIC+20 01663000 CRAL2PTR EQU CRABASIC+16 01664000 CRAL1PTR EQU CRABASIC+12 01665000 CRALEV01 EQU CRALKACT+3 01666000 CRALEV02 EQU CRALKACT+3 01667000 CRALEV03 EQU CRALKACT+3 01668000 CRALEV04 EQU CRALKACT+3 01669000 CRALEV05 EQU CRALKACT+3 01670000 CRALEV06 EQU CRALKACT+3 01671000 CRALEV07 EQU CRALKACT+3 01672000 CRALEV08 EQU CRALKACT+3 01673000 CRALEV09 EQU CRALKACT+2 01674000 CRALEV10 EQU CRALKACT+2 01675000 CRALEV11 EQU CRALKACT+2 01676000 CRALEV12 EQU CRALKACT+2 01677000 CRALEV13 EQU CRALKACT+2 01678000 CRALEV14 EQU CRALKACT+2 01679000 CRALEV15 EQU CRALKACT+2 01680000 CRALEV16 EQU CRALKACT+2 01681000 CRALEV17 EQU CRALKACT+1 01682000 CRALEV18 EQU CRALKACT+1 01683000 CRALEV19 EQU CRALKACT+1 01684000 CRALEV20 EQU CRALKACT+1 01685000 CRALEV21 EQU CRALKACT+1 01686000 CRALEV22 EQU CRALKACT+1 01687000 CRALEV23 EQU CRALKACT+1 01688000 CRALEV24 EQU CRALKACT+1 01689000 CRALEV25 EQU CRALKACT 01690000 CRALEV26 EQU CRALKACT 01691000 CRALEV27 EQU CRALKACT 01692000 CRALEV28 EQU CRALKACT 01693000 CRALEV29 EQU CRALKACT 01694000 CRALEV30 EQU CRALKACT 01695000 CRALEV31 EQU CRALKACT 01696000 CRALEV32 EQU CRALKACT 01697000 CRAFRR EQU CRAHDR+4 01698000 @NM00026 EQU ISTAPCRR+137 01699000 @NM00025 EQU APC57FLG 01700000 APCNREL EQU APC57FLG 01701000 APCRECRA EQU APC57FLG 01702000 @NM00024 EQU APC54FLG 01703000 APCRLST EQU APC54FLG 01704000 APCPR153 EQU APC53FLG 01705000 @NM00023 EQU APC52FLG 01706000 APCWKF EQU APC52FLG 01707000 APCNWF EQU APC52FLG 01708000 APCRDQ EQU APC52FLG 01709000 APCQENQ EQU APC52FLG 01710000 APCSMSR EQU APC52FLG 01711000 APCCKRQ EQU APC52FLG 01712000 @NM00022 EQU APC31FLG 01713000 APCSORT EQU APC31FLG 01714000 APCRESCH EQU APC31FLG 01715000 APCTPXIT EQU APC31FLG 01716000 APCSWTWD EQU ISTAPCRR+128 01717000 APCSAV2 EQU ISTAPCRR+124 01718000 APCSAV1 EQU ISTAPCRR+120 01719000 APCRETCD EQU APCCOMF+2 01720000 @NM00021 EQU APCCOMF1+1 01721000 APCZLBER EQU APCCOMF1 01722000 APCEXIT EQU APCCOMF1 01723000 APCRELR EQU APCCOMF1 01724000 APCIRB2 EQU APCCOMF1 01725000 APCIRB1 EQU APCCOMF1 01726000 APCSMCR EQU APCCOMF1 01727000 APCUETSK EQU APCCOMF1 01728000 APCSSTSK EQU APCCOMF1 01729000 APCESTAL EQU APCSAVE 01730000 APCFRRPM EQU ISTAPCRR+40 01731000 APCQWFO EQU ISTAPCRR+36 01732000 APCPABSV EQU ISTAPCRR+32 01733000 APCRTRN EQU ISTAPCRR+28 01734000 APCTCBA EQU ISTAPCRR+24 01735000 APCPSTA EQU ISTAPCRR+20 01736000 @NM00020 EQU APCRFLG+1 01737000 APC31R EQU APCRFLG 01738000 APC58R EQU APCRFLG 01739000 APC57R EQU APCRFLG 01740000 APC56R EQU APCRFLG 01741000 APC54R EQU APCRFLG 01742000 APC53R EQU APCRFLG 01743000 APC52R EQU APCRFLG 01744000 APC51R EQU APCRFLG 01745000 @NM00019 EQU APCATFLG+1 01746000 APC31E EQU APCATFLG 01747000 APC58E EQU APCATFLG 01748000 APC57E EQU APCATFLG 01749000 APC56E EQU APCATFLG 01750000 APC54E EQU APCATFLG 01751000 APC53E EQU APCATFLG 01752000 APC52E EQU APCATFLG 01753000 APC51E EQU APCATFLG 01754000 APCHDRSV EQU ISTAPCRR 01755000 ASCPSREG EQU ISTASCRR+44 01756000 ASCUSR01 EQU ASCUSRGS+12 01757000 ASCUSR00 EQU ASCUSRGS+8 01758000 ASCUSR15 EQU ASCUSRGS+4 01759000 ASCUSR14 EQU ASCUSRGS 01760000 ASCETRYA EQU ISTASCRR+24 01761000 ASCKEY EQU ISTASCRR+23 01762000 ASCAUDIT EQU ASCFLG3 01763000 ASCFBDUD EQU ASCFLG3 01764000 ASCLLKF EQU ASCFLG3 01765000 ASCKEYF EQU ASCFLG3 01766000 ASCFBDAL EQU ASCFLG3 01767000 ASCFSRGT EQU ASCFLG3 01768000 ASCICR EQU ASCFLG2 01769000 ASCFSRIC EQU ASCFLG2 01770000 ASCFBDIC EQU ASCFLG2 01771000 ASCFBAIC EQU ASCFLG2 01772000 ASCPASTR EQU ASCFLG1 01773000 ASCFSR EQU ASCFLG1 01774000 ASCFBD EQU ASCFLG1 01775000 ASCFBA EQU ASCFLG1 01776000 ASCPFCRR EQU ISTASCRR 01777000 CCFRSVD1 EQU CFCCRT 01778000 CCFCR2 EQU CFCCRT 01779000 CCFCRP EQU CFCCRT 01780000 CCFCR1 EQU CFCCRT 01781000 CCFCS2 EQU CFCCRT 01782000 CCFCS1 EQU CFCCRT 01783000 NCFRSVD EQU CFCNTRD 01784000 NCFCR2 EQU CFCNTRD 01785000 NCFCRP EQU CFCNTRD 01786000 NCFCR1 EQU CFCNTRD 01787000 NCFCS2 EQU CFCNTRD 01788000 NCFCS1 EQU CFCNTRD 01789000 PFCRSV01 EQU ISTPFCRR+13 01790000 PFCFTA EQU ISTPFCRR+12 01791000 CRRFRR EQU PFCFRRO 01792000 CRRCHAIN EQU PFCCRRO 01793000 CRRLEN EQU PFCCRRLN 01794000 PFCRSV10 EQU PFCCRR+1 01795000 CRRID EQU PFCCRRID 01796000 PABRPHA EQU PABRPHFG+1 01797000 PABNODQ EQU PABFLAGS 01798000 PABINHBT EQU PABFLAGS 01799000 PABERLOK EQU PABERRLK 01800000 PABSSN EQU PABFLAGS 01801000 PABDYNAM EQU PABFLAGS 01802000 PABNORPR EQU PABFLAGS 01803000 PABPRIOR EQU PABFLAGS 01804000 PABAPYP EQU PABFLAGS 01805000 PABDVTA EQU ISTPAB+9 01806000 PABOFFST EQU ISTPAB+8 01807000 PABCHNGP EQU PABCHAIN+1 01808000 PABRSV02 EQU PABCHAIN 01809000 PABRUNNG EQU PABCHAIN 01810000 PABRESET EQU PABCHAIN 01811000 PABUNCON EQU PABCHAIN 01812000 PABCDP EQU PABCHAIN 01813000 PABRESCH EQU PABCHAIN 01814000 PABCHNG EQU PABCHAIN 01815000 PABWEQP EQU PABWEQA+1 01816000 PABRSV01 EQU PABWEQA 01817000 PABWEQG EQU PABWEQA 01818000 ZCRRU EQU ZCRRHRU+3 01819000 ZCRRH EQU ZCRRHRU 01820000 ZCRWORDA EQU ISTZCRR+477 01821000 ZCRCMNRC EQU ISTZCRR+476 01822000 ZCRRSV97 EQU ZCRENTER+18 01823000 ZCREIC2B EQU ZCRENTER+18 01824000 ZCREAC2B EQU ZCRENTER+18 01825000 ZCRELCAB EQU ZCRENTER+18 01826000 ZCREDCMF EQU ZCRENTER+18 01827000 ZCREBCIF EQU ZCRENTER+18 01828000 ZCREICSG EQU ZCRENTER+18 01829000 ZCREDCK0 EQU ZCRENTER+18 01830000 ZCRECFY0 EQU ZCRENTER+17 01831000 ZCREKCCB EQU ZCRENTER+17 01832000 ZCREDCNB EQU ZCRENTER+17 01833000 ZCREICOE EQU ZCRENTER+17 01834000 ZCREBCNB EQU ZCRENTER+17 01835000 ZCREBC0L EQU ZCRENTER+17 01836000 ZCREBCAL EQU ZCRENTER+17 01837000 ZCREDCQR EQU ZCRENTER+17 01838000 ZCREDCPR EQU ZCRENTER+16 01839000 ZCREBCSB EQU ZCRENTER+16 01840000 ZCREAC1R EQU ZCRENTER+16 01841000 ZCRECCCI EQU ZCRENTER+16 01842000 ZCRECCAI EQU ZCRENTER+16 01843000 ZCRECCBI EQU ZCRENTER+16 01844000 ZCREBCAR EQU ZCRENTER+16 01845000 ZCREBCDR EQU ZCRENTER+16 01846000 ZCREBCBR EQU ZCRENTER+15 01847000 ZCREDCXR EQU ZCRENTER+15 01848000 ZCREDCWB EQU ZCRENTER+15 01849000 ZCREDCWR EQU ZCRENTER+15 01850000 ZCREKCCN EQU ZCRENTER+15 01851000 ZCREKCBN EQU ZCRENTER+15 01852000 ZCREKCBB EQU ZCRENTER+15 01853000 ZCREJC0B EQU ZCRENTER+15 01854000 ZCREJCDB EQU ZCRENTER+14 01855000 ZCREJCCB EQU ZCRENTER+14 01856000 ZCREJCBB EQU ZCRENTER+14 01857000 ZCREJCAB EQU ZCRENTER+14 01858000 ZCREIC1B EQU ZCRENTER+14 01859000 ZCREIC0B EQU ZCRENTER+14 01860000 ZCREICX0 EQU ZCRENTER+14 01861000 ZCREICWB EQU ZCRENTER+14 01862000 ZCREICVB EQU ZCRENTER+13 01863000 ZCREICUB EQU ZCRENTER+13 01864000 ZCREICTB EQU ZCRENTER+13 01865000 ZCREICSC EQU ZCRENTER+13 01866000 ZCREICSB EQU ZCRENTER+13 01867000 ZCREICRB EQU ZCRENTER+13 01868000 ZCREICQB EQU ZCRENTER+13 01869000 ZCREICQA EQU ZCRENTER+13 01870000 ZCREICOB EQU ZCRENTER+12 01871000 ZCREICOA EQU ZCRENTER+12 01872000 ZCREICNB EQU ZCRENTER+12 01873000 ZCREICNA EQU ZCRENTER+12 01874000 ZCREICMB EQU ZCRENTER+12 01875000 ZCREICLB EQU ZCRENTER+12 01876000 ZCREICKG EQU ZCRENTER+12 01877000 ZCREICKE EQU ZCRENTER+12 01878000 ZCREICKB EQU ZCRENTER+11 01879000 ZCREICJB EQU ZCRENTER+11 01880000 ZCREICID EQU ZCRENTER+11 01881000 ZCREICIB EQU ZCRENTER+11 01882000 ZCREICHB EQU ZCRENTER+11 01883000 ZCREICGB EQU ZCRENTER+11 01884000 ZCREICEB EQU ZCRENTER+11 01885000 ZCREICDB EQU ZCRENTER+11 01886000 ZCREICCI EQU ZCRENTER+10 01887000 ZCREICCB EQU ZCRENTER+10 01888000 ZCREICBI EQU ZCRENTER+10 01889000 ZCREICBB EQU ZCRENTER+10 01890000 ZCREICAB EQU ZCRENTER+10 01891000 ZCREICAA EQU ZCRENTER+10 01892000 ZCREHCAN EQU ZCRENTER+10 01893000 ZCREGC0B EQU ZCRENTER+10 01894000 ZCREGC0A EQU ZCRENTER+9 01895000 ZCREGCLA EQU ZCRENTER+9 01896000 ZCREGCEB EQU ZCRENTER+9 01897000 ZCREGCDB EQU ZCRENTER+9 01898000 @NM00018 EQU ZCRENTER+9 01899000 ZCREGCBB EQU ZCRENTER+9 01900000 ZCREGCAB EQU ZCRENTER+9 01901000 ZCREFCEB EQU ZCRENTER+9 01902000 ZCREFCEA EQU ZCRENTER+8 01903000 ZCREECTA EQU ZCRENTER+8 01904000 ZCREECEA EQU ZCRENTER+8 01905000 ZCREECDA EQU ZCRENTER+8 01906000 ZCREECCB EQU ZCRENTER+8 01907000 ZCREECCA EQU ZCRENTER+8 01908000 ZCREECBB EQU ZCRENTER+8 01909000 ZCREECBA EQU ZCRENTER+8 01910000 ZCREDCMB EQU ZCRENTER+7 01911000 ZCREDCL0 EQU ZCRENTER+7 01912000 ZCREDCKB EQU ZCRENTER+7 01913000 ZCREDCKA EQU ZCRENTER+7 01914000 ZCREDCJ0 EQU ZCRENTER+7 01915000 ZCREDCI0 EQU ZCRENTER+7 01916000 ZCREDCH0 EQU ZCRENTER+7 01917000 ZCREDCF0 EQU ZCRENTER+7 01918000 ZCREDCE0 EQU ZCRENTER+6 01919000 ZCREDCD0 EQU ZCRENTER+6 01920000 ZCREDCC0 EQU ZCRENTER+6 01921000 ZCREDCB0 EQU ZCRENTER+6 01922000 ZCREDCA0 EQU ZCRENTER+6 01923000 ZCRECC2B EQU ZCRENTER+6 01924000 ZCRECC1B EQU ZCRENTER+6 01925000 ZCRECC1A EQU ZCRENTER+6 01926000 ZCRECC0B EQU ZCRENTER+5 01927000 ZCRECC0A EQU ZCRENTER+5 01928000 ZCREBC0B EQU ZCRENTER+5 01929000 ZCREBC0A EQU ZCRENTER+5 01930000 ZCREBCZ0 EQU ZCRENTER+5 01931000 ZCREBCY0 EQU ZCRENTER+5 01932000 ZCREBCX0 EQU ZCRENTER+5 01933000 ZCREBCXA EQU ZCRENTER+5 01934000 ZCREBCSC EQU ZCRENTER+4 01935000 ZCREBCRB EQU ZCRENTER+4 01936000 ZCREBCRA EQU ZCRENTER+4 01937000 ZCREBCQB EQU ZCRENTER+4 01938000 ZCREBCPB EQU ZCRENTER+4 01939000 ZCREBCOB EQU ZCRENTER+4 01940000 ZCREBCNE EQU ZCRENTER+4 01941000 ZCREBCND EQU ZCRENTER+4 01942000 ZCREBCMB EQU ZCRENTER+3 01943000 ZCREBCLB EQU ZCRENTER+3 01944000 ZCREBCLA EQU ZCRENTER+3 01945000 ZCREBCKB EQU ZCRENTER+3 01946000 ZCREBCKA EQU ZCRENTER+3 01947000 ZCREBCJB EQU ZCRENTER+3 01948000 ZCREBCJA EQU ZCRENTER+3 01949000 ZCREBCID EQU ZCRENTER+3 01950000 ZCREBCIB EQU ZCRENTER+2 01951000 ZCREBCIA EQU ZCRENTER+2 01952000 ZCREBCHB EQU ZCRENTER+2 01953000 ZCREBCHA EQU ZCRENTER+2 01954000 ZCREBCGB EQU ZCRENTER+2 01955000 ZCREBCGA EQU ZCRENTER+2 01956000 ZCREBCFB EQU ZCRENTER+2 01957000 ZCREBCFA EQU ZCRENTER+2 01958000 ZCREBCDI EQU ZCRENTER+1 01959000 ZCREBCCB EQU ZCRENTER+1 01960000 ZCREBCBI EQU ZCRENTER+1 01961000 ZCREBCBB EQU ZCRENTER+1 01962000 ZCREBCBA EQU ZCRENTER+1 01963000 ZCREBCAM EQU ZCRENTER+1 01964000 ZCREBCAI EQU ZCRENTER+1 01965000 ZCREBCAG EQU ZCRENTER 01966000 ZCREBCAE EQU ZCRENTER 01967000 ZCREBCAB EQU ZCRENTER 01968000 ZCREBCAA EQU ZCRENTER 01969000 ZCREAC1B EQU ZCRENTER 01970000 ZCREAC0B EQU ZCRENTER 01971000 ZCREAC0A EQU ZCRENTER 01972000 ZCREAC1A EQU ZCRENTER 01973000 ZCRTNAME EQU ZCRAUDIT+1 01974000 ZCRTID EQU ZCRAUDIT 01975000 ZCRREMIC EQU ISTZCRR+436 01976000 ZCRSAVEZ EQU ISTZCRR+196 01977000 ZCRDAFSV EQU ZCRCIDSV+2 01978000 ZCRSAFSV EQU ZCRCIDSV 01979000 ZCRR13SV EQU ISTZCRR+188 01980000 ZCRR2SV EQU ISTZCRR+184 01981000 ZCROPCDE EQU ISTZCRR+183 01982000 ZCRPRMTC EQU ISTZCRR+182 01983000 ZCRRCDSV EQU ISTZCRR+181 01984000 ZCRAWQSW EQU ISTZCRR+180 01985000 ZCRTOPQ EQU ISTZCRR+180 01986000 ZCRLSTFB EQU ISTZCRR+180 01987000 ZCRXSCHD EQU ISTZCRR+180 01988000 ZCRNXTEL EQU ISTZCRR+180 01989000 ZCRSCANQ EQU ISTZCRR+180 01990000 ZCRMOREL EQU ISTZCRR+180 01991000 ZCRFBPRC EQU ISTZCRR+180 01992000 ZCRFSBSV EQU ISTZCRR+176 01993000 ZCRSVWK5 EQU ZCRWKARA+16 01994000 ZCRSVWK4 EQU ZCRWKARA+12 01995000 ZCRSVWK3 EQU ZCRWKARA+8 01996000 ZCRSVWK2 EQU ZCRWKARA+4 01997000 ZCRSVWK1 EQU ZCRWKARA 01998000 ZCRSVF25 EQU ZCRSVRTN+96 01999000 ZCRSVF24 EQU ZCRSVRTN+92 02000000 ZCRSVF23 EQU ZCRSVRTN+88 02001000 ZCRSVF22 EQU ZCRSVRTN+84 02002000 ZCRSVF21 EQU ZCRSVRTN+80 02003000 ZCRSVF20 EQU ZCRSVRTN+76 02004000 ZCRSVF19 EQU ZCRSVRTN+72 02005000 ZCRSVF18 EQU ZCRSVRTN+68 02006000 ZCRSVF17 EQU ZCRSVRTN+64 02007000 ZCRSVF16 EQU ZCRSVRTN+60 02008000 ZCRSVF15 EQU ZCRSVRTN+56 02009000 ZCRSVF14 EQU ZCRSVRTN+52 02010000 ZCRSVF13 EQU ZCRSVRTN+48 02011000 ZCRSVF12 EQU ZCRSVRTN+44 02012000 ZCRSVF11 EQU ZCRSVRTN+40 02013000 ZCRSVF10 EQU ZCRSVRTN+36 02014000 ZCRSVF9 EQU ZCRSVRTN+32 02015000 ZCRSVF8 EQU ZCRSVRTN+28 02016000 ZCRSVF7 EQU ZCRSVRTN+24 02017000 ZCRSVF6 EQU ZCRSVRTN+20 02018000 ZCRSVF5 EQU ZCRSVRTN+16 02019000 ZCRSVF4 EQU ZCRSVRTN+12 02020000 ZCRSVF3 EQU ZCRSVRTN+8 02021000 ZCRSVF2 EQU ZCRSVRTN+4 02022000 ZCRSVF1 EQU ZCRSVRTN 02023000 ZCRPVZB EQU ISTZCRR+52 02024000 ZCRZLB EQU ISTZCRR+48 02025000 ZCRBFPTR EQU ISTZCRR+44 02026000 ZCRCCWA EQU ISTZCRR+40 02027000 ZCRPSW EQU ZCRPARMS+15 02028000 ZCRPCHAR EQU ZCRPARMS+14 02029000 ZCRPRES2 EQU ZCRPCOD2 02030000 ZCRPMFGF EQU ZCRPCOD2 02031000 ZCRPFHDR EQU ZCRPCOD2 02032000 ZCRPPG2 EQU ZCRPCOD2 02033000 ZCRPRES EQU ZCRPCOD1 02034000 ZCRPCFTX EQU ZCRPCOD1 02035000 ZCRPBUF EQU ZCRPCOD1 02036000 ZCRPLSCB EQU ZCRPCOD1 02037000 ZCRPLSBQ EQU ZCRPLSBF 02038000 ZCRPFSB EQU ZCRPCOD1 02039000 ZCRPLNG EQU ZCRPCOD1 02040000 ZCRPPG EQU ZCRPCOD1 02041000 ZCRDTODA EQU ZCRDFRDA 02042000 ZCRMLNG EQU ZCRPARMS+8 02043000 ZCRTBPTR EQU ZCRPARMS+4 02044000 ZCRCBPTR EQU ZCRFBPTR 02045000 @NM00017 EQU ZCRSCPSW 02046000 ZCRSKIPT EQU ZCRSCPSW 02047000 ZCRFSBWE EQU ZCRSCPSW 02048000 ZCRPRCMP EQU ZCRSCPSW 02049000 ZCRLREQ EQU ZCRSCPSW 02050000 ZCRRJLCP EQU ZCRSCPSW 02051000 ZCRTPINV EQU ZCRSCPSW 02052000 ZCRTPEX EQU ZCRSCPSW 02053000 @NM00016 EQU ZCRIBPR 02054000 ZCR3270R EQU ZCRIBPR 02055000 ZCR3270 EQU ZCRIBPR 02056000 ZCRLCPFD EQU ZCRIBPR 02057000 ZCRLCPFR EQU ZCRIBPR 02058000 ZCRRELK EQU ZCRIBPR 02059000 ZCRERR EQU ZCRIBPR 02060000 ZCRNOBUF EQU ZCRIBPR 02061000 @NM00015 EQU ZCRPFLGS 02062000 ZCRQAHED EQU ZCRPFLGS 02063000 ZCRF1RES EQU ZCRGENSW 02064000 ZCRBRIS EQU ZCRGENSW 02065000 ZCRCLRBD EQU ZCRGENSW 02066000 ZCREXRES EQU ZCRGENSW 02067000 ZCRLCSYN EQU ZCRGENSW 02068000 ZCRRT06 EQU ZCRGENSW 02069000 ZCRTSW2 EQU ZCRGENSW 02070000 ZCRTSW1 EQU ZCRGENSW 02071000 ZCRINLCP EQU ZCRFLGS3 02072000 ZCRWRPTR EQU ZCRFLGS3 02073000 ZCRNOFRE EQU ZCRFLGS3 02074000 ZCREDRIV EQU ZCRFLGS3 02075000 ZCRDISC EQU ZCRFLGS3 02076000 ZCRTPDIS EQU ZCRFLGS3 02077000 ZCRTPCON EQU ZCRFLGS3 02078000 ZCRTIC EQU ZCRFLGS3 02079000 ZCRCNLXL EQU ZCRRESET 02080000 ZCRENDAN EQU ZCRSWFLD 02081000 ZCRENDXL EQU ZCRSWFLD 02082000 ZCRENDX EQU ZCRSWFLD 02083000 ZCROB1 EQU ZCRNDLCP 02084000 ZCRENDPR EQU ZCRSWFLD 02085000 ZCREXTYP EQU ZCRSWFLD 02086000 ZCRSLCP EQU ZCRENDSH 02087000 ZCRIF0E3 EQU ZCRFLGS2 02088000 ZCRIF0E2 EQU ZCRFLGS2 02089000 ZCRIF0E1 EQU ZCRFLGS2 02090000 ZCROB EQU ZCRFLGS2 02091000 ZCRFMSED EQU ZCRFLGS2 02092000 ZCRSHEDI EQU ZCRFLGS2 02093000 ZCRLOCAL EQU ZCRFLGS2 02094000 ZCRFEXIT EQU ZCRFLGS1 02095000 ZCRUNSOL EQU ZCRFLGS1 02096000 ZCRENDLP EQU ZCRFLGS1 02097000 ZCRNRMEX EQU ZCRFLGS1 02098000 ZCRWAIT EQU ZCRFLGS1 02099000 ZCRDEQSW EQU ZCRFLGS1 02100000 ZCRQUESW EQU ZCRFLGS1 02101000 ZCREXSW EQU ZCRFLGS1 02102000 ZCRFRRA EQU ISTZCRR+8 02103000 ZCRCHAIN EQU ISTZCRR+4 02104000 ZCRFLAG EQU ZCRCRR+3 02105000 ZCRLEN EQU ZCRCRR+1 02106000 ZCRID EQU ZCRCRR 02107000 RPHNEXPO EQU ISTRPH+104 02108000 RPHSAV16 EQU RPHWORK+60 02109000 RPHSAV15 EQU RPHWORK+56 02110000 RPHSAV14 EQU RPHWORK+52 02111000 RPHSAV13 EQU RPHWORK+48 02112000 RPHSAV12 EQU RPHWORK+44 02113000 RPHSAV11 EQU RPHWORK+40 02114000 RPHSAV10 EQU RPHWORK+36 02115000 RPHSAVE9 EQU RPHWORK+32 02116000 RPHSAVE8 EQU RPHWORK+28 02117000 RPHSAVE7 EQU RPHWORK+24 02118000 RPHSAVE6 EQU RPHWORK+20 02119000 RPHSAVE5 EQU RPHWORK+16 02120000 RPHSAVE4 EQU RPHWORK+12 02121000 RPHSAVE3 EQU RPHWORK+8 02122000 RPHSAVE2 EQU RPHWORK+4 02123000 RPHSHALF EQU RPHSAVE1+2 02124000 RPHSBIT8 EQU RPHSBITS 02125000 RPHSBIT7 EQU RPHSBITS 02126000 RPHSBIT6 EQU RPHSBITS 02127000 RPHSBIT5 EQU RPHSBITS 02128000 RPHSBIT4 EQU RPHSBITS 02129000 RPHSBIT3 EQU RPHSBITS 02130000 RPHSBIT2 EQU RPHSBITS 02131000 RPHSBIT1 EQU RPHSBITS 02132000 RPHSBYTE EQU RPHSAVE1 02133000 RPHPABQP EQU RPHPABQA+1 02134000 RPHPABFG EQU RPHPABQA 02135000 RPHSRP34 EQU RPHSRPRM+2 02136000 RPHSRP12 EQU RPHSRPRM 02137000 RPHWEGT EQU RPHCSPA 02138000 RPHMAJCB EQU ISTRPH+21 02139000 RPHPABOF EQU ISTRPH+20 02140000 RPHRESUM EQU RPHRESMA+1 02141000 RPHRSV01 EQU RPHWPFLG 02142000 RPHPURGE EQU RPHWPFLG 02143000 RPHPT EQU RPHWPFLG 02144000 RPHWT EQU RPHWPFLG 02145000 RPHRSKEY EQU RPHWPFLG 02146000 RPHDVTA EQU ISTRPH+12 02147000 RPHTIK EQU RPHTSKID+3 02148000 @NM00014 EQU RPHTSKID 02149000 RPHRPHAP EQU RPHRPHA+1 02150000 @NM00013 EQU RPHRPHA 02151000 RPHGATE EQU RPHRPHA 02152000 @NM00012 EQU RPHFLGB 02153000 RPHRLCRA EQU RPHFLGB 02154000 RPHNRSAV EQU RPHFLGB 02155000 RPHPGCMP EQU RPHFLGB 02156000 RPHFBAPS EQU RPHFLGB 02157000 RPHBSSP EQU RPHFLGB 02158000 RPHLOCK EQU RPHFLGB 02159000 RPHFNFLG EQU RPHFSTLC 02160000 RPHMLTCP EQU RPHFLAGS 02161000 RPHSMCLR EQU RPHFLAGS 02162000 RPHSMTYP EQU RPHFLAGS 02163000 RPHSMQ EQU RPHFLAGS 02164000 RPHAUTEX EQU RPHAPTYP 02165000 RPHSPGIN EQU RPHFLAGS 02166000 RPHOGIND EQU RPHFLAGS 02167000 RPHLNGTH EQU ISTRPH+1 02168000 RPHTYPE EQU ISTRPH 02169000 LSCTLBAD EQU ISTLSCB+28 02170000 LSCFDB2 EQU LSCFDBA+1 02171000 LSCFDB1 EQU LSCFDBA 02172000 LSCLCPBA EQU ISTLSCB+16 02173000 LSCLCCW1 EQU ISTLSCB+12 02174000 LSCRRCNT EQU LSCSEQ+1 02175000 LSCRRCCT EQU LSCSEQ 02176000 LSCATOP EQU LSCFLGS 02177000 LSCFREE EQU LSCFLGS 02178000 LSCDSTAT EQU LSCFLGS 02179000 LSCEXRES EQU LSCFLGS 02180000 LSCZRIMM EQU LSCFLGS 02181000 LSCRSV01 EQU LSCFLGS 02182000 LSCSMODE EQU LSCFLGS 02183000 LSCZMIRC EQU LSCRUCNT 02184000 LSCCHAI2 EQU LSCCHAIN+1 02185000 LSCCHNG EQU LSCCHAI1 02186000 LSCZRTSC EQU LSCZMNRC 02187000 LSCZRT0B EQU LSCZMNRC 02188000 LSCZRT0A EQU LSCZMNRC 02189000 LSCZRTL9 EQU LSCZRT09 02190000 LSCZRTL8 EQU LSCZRT08 02191000 LSCZRTL7 EQU LSCZRT07 02192000 LSCZRTL6 EQU LSCZRT06 02193000 LSCZRTL5 EQU LSCZRT05 02194000 LSCZRTL4 EQU LSCZRT04 02195000 LSCZRTL3 EQU LSCZRT03 02196000 LSCZRTL2 EQU LSCZRT02 02197000 LSCZRT01 EQU LSCREQTG 02198000 LSCZRT00 EQU LSCREQTG 02199000 LSCLNGTH EQU LSC1WORD+1 02200000 LSCTYPE EQU LSC1WORD 02201000 LCPFTYPE EQU LCPRPHA 02202000 LCPRSTQH EQU LCPLCCW 02203000 LCPCLREP EQU ISTLCPB+44 02204000 LCPUBFSB EQU LCPFLCCW 02205000 LCPRSV77 EQU ISTLCPB+39 02206000 LCPLCCWC EQU ISTLCPB+38 02207000 LCPRSV78 EQU LCPFLG1 02208000 LCPTRANS EQU LCPFLG1 02209000 LCPSTLB EQU LCPFLG1 02210000 LCPREDRV EQU LCPFLG1 02211000 LCPDIRPT EQU LCPFLG1 02212000 LCPINTER EQU LCPFLG1 02213000 LCPRESET EQU LCPFLG1 02214000 LCPSTYPE EQU ISTLCPB+36 02215000 LCPFSNCH EQU ISTLCPB+34 02216000 LCPFOSN EQU ISTLCPB+32 02217000 LCPTLBAD EQU ISTLCPB+28 02218000 LCPFDB2 EQU LCPFDBA+1 02219000 LCPFDB1 EQU LCPFDBA 02220000 LCPDAF EQU LCPCID+2 02221000 LCPSAF EQU LCPCID 02222000 LCPLCCW1 EQU ISTLCPB+12 02223000 LCPRRCNT EQU LCPSEQ+1 02224000 LCPRRCCT EQU LCPSEQ 02225000 LCPATOP EQU LCPFLAG2 02226000 LCPFREE EQU LCPFLAG2 02227000 LCPDSTAT EQU LCPFLAG2 02228000 LCPEXRES EQU LCPFID0 02229000 LCPZRIMM EQU LCPTLBPI 02230000 LCPRSTRT EQU LCPFLAG2 02231000 LCPASYN EQU LCPFLAG2 02232000 LCPPRFLG EQU LCPFLAG2 02233000 LCPZMIRC EQU LCPRUCNT 02234000 LCPCHAI2 EQU LCPCHAIN+1 02235000 LCPCHNG EQU LCPCHAI1 02236000 LCPZRT0B EQU LCPMNRCD 02237000 LCPZRT0A EQU LCPMNRCD 02238000 LCPZRTL9 EQU LCPZRT09 02239000 LCPZRTL8 EQU LCPZRT08 02240000 LCPZRTL7 EQU LCPZRT07 02241000 LCPZRTL6 EQU LCPZRT06 02242000 LCPZRTL5 EQU LCPZRT05 02243000 LCPZRTL4 EQU LCPZRT04 02244000 LCPZRTL3 EQU LCPZRT03 02245000 LCPZRTL2 EQU LCPZRT02 02246000 LCPLNGTH EQU ISTLCPB+1 02247000 LCPTYPE EQU ISTLCPB 02248000 LCCWACI EQU LCCWFLAG 02249000 LCCWRFI EQU LCCWFLAG 02250000 LCCWPER EQU LCCWLSI 02251000 LCCWIDAT EQU LCCWFLAG 02252000 LCCWNTVC EQU LCCWFLAG 02253000 LCCWCKPT EQU LCCWFLAG 02254000 LCCWCD EQU LCCWFLAG 02255000 LCCWTYPE EQU LCCWCTL 02256000 LCCWMODE EQU LCCWCTL 02257000 LCCWSOP EQU LCCWRWOP 02258000 @NM00011 EQU LCCWRWOP 02259000 LCCWSD EQU LCCWOP 02260000 LCCWSI EQU LCCWOP 02261000 ZOBLNG1 EQU ZOBFSM 02262000 ZOBCHAIN EQU ISTZOBUF 02263000 TH2SNF EQU ISTTH2+4 02264000 TH2OAF EQU ISTTH2+3 02265000 TH2DAF EQU ISTTH2+2 02266000 TH2CDF EQU TH2FLAG1+1 02267000 TH2SEF EQU TH2FLAG1+1 02268000 TH2PYF EQU TH2FLAG1+1 02269000 TH2AFI EQU TH2FLAG1 02270000 TH2PSI EQU TH2FLAG1 02271000 TH2CMPLI EQU TH2MPF 02272000 TH2RHI EQU TH2MPF 02273000 TH2FID EQU TH2FLAG1 02274000 THDCF EQU ISTTH+8 02275000 THSNF EQU ISTTH+6 02276000 THOAF EQU ISTTH+4 02277000 THDAF EQU ISTTH+2 02278000 THCDF EQU THFLGB 02279000 THSEF EQU THFLGB 02280000 THPYF EQU THFLGB 02281000 THAFI EQU THFLGA 02282000 THPSI EQU THFLGA 02283000 THCMPLI EQU THMPF 02284000 THRHI EQU THMPF 02285000 THFID EQU THFLAG1 02286000 LHVDATA EQU ISTLH+4 02287000 LHFUNCT EQU ISTLH+3 02288000 @NM00005 EQU ISTLH+2 02289000 LHLEN EQU ISTLH 02290000 FSBFDB EQU ISTFSB+32 02291000 FSBRSV01 EQU FSBFSB+30 02292000 FSBTHCNT EQU FSBFSB+28 02293000 FSBRLRSV EQU FSBRLSTS 02294000 FSBCFTX EQU FSBRLSTS 02295000 FSBICNCB EQU FSBMSGID 02296000 FSBSSOC EQU FSBSS2 02297000 FSBSSCC EQU FSBSS2 02298000 FSBSSDC EQU FSBSS2 02299000 FSBSSEC EQU FSBSS2 02300000 FSBSSIR EQU FSBSS2 02301000 FSBSSCR EQU FSBSS2 02302000 @NM00003 EQU FSBSS2 02303000 @NM00002 EQU FSBSS1 02304000 FSBSSDE EQU FSBSS1 02305000 FSBSSUS EQU FSBSS1 02306000 @NM00001 EQU FSBSS1 02307000 FSBSOHI EQU FSBERC 02308000 FSBLGI EQU FSBERC 02309000 FSBLMRI EQU FSBFBMI 02310000 FSBETI EQU FSBERC 02311000 FSBEMI EQU FSBERC 02312000 FSBEBI EQU FSBERC 02313000 FSBECI EQU FSBERC 02314000 FSBELI EQU FSBERC 02315000 FSBMJRCD EQU FSBSRCAT 02316000 FSBXLCI EQU FSBXCODE 02317000 FSBXFINS EQU FSBXCODE 02318000 FSBXNORM EQU FSBXFSTS 02319000 FSBSCODE EQU FSBSYSRS 02320000 FSBSPHSE EQU FSBSYSRS 02321000 FSBSERR EQU FSBSYSRS 02322000 FSBCMD EQU FSBSEQ 02323000 FSBDTRCE EQU FSBFLAGS 02324000 FSBASBTU EQU FSBFLAGS 02325000 FSBINPET EQU FSBFLAGS 02326000 FSBNONCB EQU FSBFLAGS 02327000 FSBLBIND EQU FSBFLAGS 02328000 FSBFFIND EQU FSBFLAGS 02329000 FSBACIND EQU FSBFLAGS 02330000 FSBRFIND EQU FSBFLAGS 02331000 FSBDAF EQU FSBCID+2 02332000 FSBSAF EQU FSBCID 02333000 FSBGATE EQU FSBFSBA 02334000 FSBRSV02 EQU FSBSFLGS 02335000 FSBPGBUF EQU FSBSFLGS 02336000 FSBMNSDA EQU FSBMNRCD 02337000 FSBMNOA EQU FSBMNRCD 02338000 FSBMNDIF EQU FSBMNRCD 02339000 FSBMNEOP EQU FSBMNRCD 02340000 FSBMNDNU EQU FSBMNRCD 02341000 FSBMNATN EQU FSBMNRCD 02342000 FSBMNRVI EQU FSBMNRCD 02343000 FSBMNELI EQU FSBMNRCD 02344000 FSBLNGTH EQU FSBFSB+1 02345000 FSBTYPE EQU FSBFSB 02346000 FDBOFSET EQU ISTFDB+10 02347000 BTUTEXT EQU ISTBTU+20 02348000 BTUEXTR EQU ISTBTU+19 02349000 BTURSV02 EQU BTUSYSTR 02350000 BTUPHASE EQU BTUSYSTR 02351000 BTURSV01 EQU BTUSYSTR 02352000 BTUPAD EQU BTURH+3 02353000 BTURH3 EQU BTURH+2 02354000 BTURH2 EQU BTURH+1 02355000 BTURH1 EQU BTURH 02356000 BTUZRTSC EQU BTURQFLG+1 02357000 BTUZRT0B EQU BTURQFLG+1 02358000 BTUZRT0A EQU BTURQFLG+1 02359000 BTUZRT09 EQU BTURQFLG+1 02360000 BTUZRT08 EQU BTURQFLG+1 02361000 BTUZRT07 EQU BTURQFLG 02362000 BTUZRT06 EQU BTURQFLG 02363000 BTUZRT05 EQU BTURQFLG 02364000 BTUZRT04 EQU BTURQFLG 02365000 BTUZRT03 EQU BTURQFLG 02366000 BTUZRT02 EQU BTURQFLG 02367000 BTUZRT01 EQU BTURQFLG 02368000 BTUZRT00 EQU BTURQFLG 02369000 BTUSORCE EQU BTUBTH+4 02370000 BTUDEST EQU BTUBTH+2 02371000 BTUCDF EQU BTUFID+1 02372000 BTUSCF EQU BTUFID+1 02373000 BTUPRY EQU BTUFID+1 02374000 BTUASFL EQU BTUFID 02375000 BTUPSFL EQU BTUFID 02376000 BTUMPF EQU BTUFID 02377000 BTUFIDNO EQU BTUFID 02378000 BDURSV04 EQU BDUFLAGS 02379000 BDURTOE EQU BDUFLAGS 02380000 BDUSTPR EQU BDUFLAGS 02381000 BDURSV03 EQU BDUFLAGS 02382000 BDUTRPM EQU BDUFUNC 02383000 BDUFBMI EQU BDUFUNC 02384000 BDUHEADP EQU BDUFUNC 02385000 BDUSOH EQU BDUCHECK 02386000 BDURSV01 EQU BDUMODIF 02387000 BDUMOD0 EQU BDUMOD1 02388000 BDUCOMND EQU ISTBDU 02389000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02390000 @RC00381 EQU @RC00380 02391000 @RC00383 EQU @RC00381 02392000 @ENDDATA EQU * 02393000 END ISTZBFEB,(C'PLS1356',0603,75130) 02394000