TITLE 'ISTZIFHB/AHB-VS1/MHB-VS2 -CONTACT/DISCONNECT COMPLETION*00001000 N ANALYSI' 00002000 ISTZIFHB CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTZIFHB 75.130' 0001 00008000 DROP @15 00009000 @PROLOG DS 0H 0002 00010000 * 0438 00011000 * /*****************************************************************/ 00012000 * /* */ 00013000 * /* CONTACT/DISCONNECT COMPLETION STATUS ANALYSIS SAVE REGISTERS */ 00014000 * /* AND SET ROUTINE BASE */ 00015000 * /* */ 00016000 * /*****************************************************************/ 00017000 * 0438 00018000 */* TPZSAVE (7,12,14) BASE AC(ICHB) */ 00019000 * 0438 00020000 * DO; 0438 00021000 * DCL 0439 00022000 * GPR01F FIXED(31) REG(01); 0439 00023000 * DCL 0440 00024000 * GPR01P PTR(31) REG(01); 0440 00025000 * DCL 0441 00026000 * GPR12F FIXED(31) REG(12); 0441 00027000 * DCL 0442 00028000 * GPR12P PTR(31) REG(12); 0442 00029000 * DCL 0443 00030000 * GPR13F FIXED(31) REG(13); 0443 00031000 * DCL 0444 00032000 * GPR13P PTR(31) REG(13); 0444 00033000 * DCL 0445 00034000 * GPR14F FIXED(31) REG(14); 0445 00035000 * DCL 0446 00036000 * GPR14P PTR(31) REG(14); 0446 00037000 * RFY 0447 00038000 * (GPR01P, 0447 00039000 * GPR12P, 0447 00040000 * GPR13P, 0447 00041000 * GPR14P) RSTD; 0447 00042000 * GEN(PRINT OFF); 0448 00043000 * 0448 00044000 PRINT OFF 00045000 */* ATBUILD (ISTZSAVE) */ 00046000 */* END OF ATBUILD */ 00047000 * 0449 00048000 * GEN(PRINT ON); 0449 00049000 PRINT ON 00050000 * RFY 0450 00051000 * ISTZSAVE BASED(GPR13P); 0450 00052000 * GEN SETS(ZSAZSVVR)(STM 7,12,ZSAZSVVR+0(13)); 0451 00053000 STM 7,12,ZSAZSVVR+0(13) 00054000 * GEN SETS(GPR12P); 0452 00055000 BALR GPR12P,0 00056000 @TSTART DS 0H 00057000 USING @TSTART,GPR12P 00058000 * GEN(PRINT OFF); 0453 00059000 * 0453 00060000 PRINT OFF 00061000 */* ATBUILD (ISTZCRR,ISTRPH,ISTCRA) EJECT(NO) */ 00062000 */* END OF ATBUILD */ 00063000 * 0454 00064000 * GEN(PRINT ON); 0454 00065000 PRINT ON 00066000 * GPR01P->RPHCRR->CRACRR->ZCREICHB='1'B; 0455 00067000 L @15,RPHCRR(,GPR01P) 0455 00068000 L @15,CRACRR(,@15) 0455 00069000 OI ZCREICHB(@15),B'00010000' 0455 00070000 * ZSAZACTV='1'B; 0456 00071000 OI ZSAZACTV(GPR13P),B'10000000' 0456 00072000 * ZSAZTRAC='ICHB'; 0457 00073000 MVC ZSAZTRAC(4,GPR13P),@CC03425 0457 00074000 * ZSAZSVRR=GPR14P; 0458 00075000 ST GPR14P,ZSAZSVRR(,GPR13P) 0458 00076000 * GPR13P=ZSAZSVFC; 0459 00077000 L GPR13P,ZSAZSVFC(,GPR13P) 0459 00078000 * RFY 0460 00079000 * (GPR01P) UNRSTD; 0460 00080000 * RFY 0461 00081000 * (GPR14P) UNRSTD; 0461 00082000 * END; 0462 00083000 * 0462 00084000 */* END TPZSAVE */ 00085000 * 0463 00086000 * ZCRPTR=CRACRR; /* COVER ZCR @XL03HEK*/ 00087000 L @15,RPHCRR(,RPHPTR) 0463 00088000 L ZCRPTR,CRACRR(,@15) 0463 00089000 * FSBPTR=ADDR(ZIBFSB); /* ADDRESS FSB @XM03HDP*/ 00090000 LA FSBPTR,ZIBFSB(,BUFPTR) 0464 00091000 * IF BDUCOMND=BCMDC&FSBSERR=OFF&FSBSPHSE=NCPPHSE1&FSBSCODE^=NCPLGR& 00092000 * BTUDCF^=0 THEN /* IS LINE MANUAL DIAL? @XL03HAH*/ 00093000 CLI BDUCOMND+62(BUFPTR),X'06' 0465 00094000 BNE @RF00465 0465 00095000 TM FSBSERR(FSBPTR),B'10000000' 0465 00096000 BNZ @RF00465 0465 00097000 TM FSBSPHSE(FSBPTR),B'00100000' 0465 00098000 BNO @RF00465 0465 00099000 TM FSBSPHSE(FSBPTR),B'01000000' 0465 00100000 BNZ @RF00465 0465 00101000 TM FSBSCODE(FSBPTR),B'00000001' 0465 00102000 BNO @GL00001 0465 00103000 TM FSBSCODE(FSBPTR),B'00011110' 0465 00104000 BZ @RF00465 0465 00105000 @GL00001 ICM @15,3,BTUDCF+48(BUFPTR) 0465 00106000 BNZ @RT00465 0465 00107000 * ; /* YES, DO NOTHING @XL03HEK*/ 00108000 * ELSE /* NO, @XL03HEK*/ 00109000 *FHBDO010: 0467 00110000 * DO; /* @XL03HEK*/ 00111000 * 0467 00112000 @RF00465 DS 0H 0467 00113000 FHBDO010 DS 0H 0468 00114000 * /*************************************************************/ 00115000 * /* */ 00116000 * /* SET DEVICE IN SESSION/NOT IN SESSION BASED ON BDU COMMAND */ 00117000 * /* CODE */ 00118000 * /* */ 00119000 * /*************************************************************/ 00120000 * 0468 00121000 * IF BDUCOMND=BCMDC THEN /* CONTACT - SET IN SESSION */ 00122000 * 0468 00123000 CLI BDUCOMND+62(BUFPTR),X'06' 0468 00124000 BNE @RF00468 0468 00125000 * /***********************************************************/ 00126000 * /* */ 00127000 * /* CALL SET DEVICE IN SESSION SUBROUTINE */ 00128000 * /* */ 00129000 * /***********************************************************/ 00130000 * 0469 00131000 * CALL IFHBCONT; 0469 00132000 BAL @14,IFHBCONT 0469 00133000 * ELSE /* NOT CONTACT - SET DEVICE NOT 00134000 * IN SESSION */ 00135000 * 0470 00136000 * /***********************************************************/ 00137000 * /* */ 00138000 * /* CALL SET DEVICE NOT IN SESSION SUBROUTINE */ 00139000 * /* */ 00140000 * /***********************************************************/ 00141000 * 0470 00142000 * CALL IFHBDISC; 0470 00143000 * 0470 00144000 B @RC00468 0470 00145000 @RF00468 BAL @14,IFHBDISC 0470 00146000 * /*************************************************************/ 00147000 * /* */ 00148000 * /* IF NCP RESPONSE IS FROM PHASE 3 RESPONSE OR ERROR */ 00149000 * /* RESPONSE, THEN PROCESS */ 00150000 * /* */ 00151000 * /*************************************************************/ 00152000 * 0471 00153000 * IF FSBSPHSE=NCPPHSE3| /* PHASE 3 RESPONSE */ 00154000 * FSBMNELI=ON THEN /* OR ERROR RESPONSE */ 00155000 @RC00468 TM FSBSPHSE(FSBPTR),B'01100000' 0471 00156000 BO @RT00471 0471 00157000 TM FSBMNELI(FSBPTR),B'10000000' 0471 00158000 BNO @RF00471 0471 00159000 @RT00471 DS 0H 0472 00160000 *FHBE3DO: 0472 00161000 * DO; /* PROCESS */ 00162000 FHBE3DO DS 0H 0473 00163000 * FSBECI=ON; /* SET END OF COMMAND INDICATOR */ 00164000 * 0473 00165000 OI FSBECI(FSBPTR),B'01000000' 0473 00166000 * /*********************************************************/ 00167000 * /* */ 00168000 * /* IS INPUT WAIT QUEUE ELEMENT A LCPB ? */ 00169000 * /* */ 00170000 * /*********************************************************/ 00171000 * 0474 00172000 * IF LSCTYPE^=LSTYPE THEN /* ELEMENT IS LCPB */ 00173000 CLI LSCTYPE(LSCBPTR),X'DF' 0474 00174000 BE @RF00474 0474 00175000 * FSBELI=ON; /* SET END OF LCP INDICATOR */ 00176000 OI FSBELI(FSBPTR),B'10000000' 0475 00177000 * ELSE 0476 00178000 * DO; /* ELEMENT IS LSCB */ 00179000 B @RC00474 0476 00180000 @RF00474 DS 0H 0477 00181000 * LCCWPTR=LSCLCCWA; /* LOAD LCCW ADDRESS */ 00182000 L LCCWPTR,LSCLCCWA(,LSCBPTR) 0477 00183000 */*CHECK IF THERE IS AN LCCW ... */ 00184000 * 0478 00185000 * IF LCCWPTR=0 THEN /* IF THERES NO LCCW @XL03HDP*/ 00186000 LTR LCCWPTR,LCCWPTR 0478 00187000 BNZ @RF00478 0478 00188000 * FSBELI=ON; /* FLAG END OF LCP @XL03HDP*/ 00189000 OI FSBELI(FSBPTR),B'10000000' 0479 00190000 * ELSE /* THERE IS AN LCCW @XL03HDP*/ 00191000 * 0480 00192000 * /***************************************************/ 00193000 * /* */ 00194000 * /* IF NOT COMMAND CHAINED, SET END OF LCP INDICATOR*/ 00195000 * /* */ 00196000 * /***************************************************/ 00197000 * 0480 00198000 * IF LCCWCC=ON THEN 0480 00199000 B @RC00478 0480 00200000 @RF00478 TM LCCWCC(LCCWPTR),B'01000000' 0480 00201000 BO @RT00480 0480 00202000 * ; /* COMMAND CHAINED - NOT END OF 00203000 * LCP */ 00204000 * ELSE /* NOT COMMAND CHAINED - */ 00205000 * FSBELI=ON; /* END OF LCP */ 00206000 OI FSBELI(FSBPTR),B'10000000' 0482 00207000 * END; 0483 00208000 * END FHBE3DO; 0484 00209000 * ELSE 0485 00210000 * ; /* NOT PHASE 3 OR ERROR */ 00211000 @RF00471 DS 0H 0486 00212000 * END FHBDO010; /* @XL03HEK*/ 00213000 * 0486 00214000 @RC00471 DS 0H 0487 00215000 * /*****************************************************************/ 00216000 * /* */ 00217000 * /* RESTORE REGISTERS AND RETURN TO CALLER */ 00218000 * /* */ 00219000 * /*****************************************************************/ 00220000 * 0487 00221000 */* TPZRETN */ 00222000 * 0487 00223000 * DO; 0487 00224000 @RT00465 DS 0H 0488 00225000 * DCL 0488 00226000 * GPR07F FIXED(31) REG(07); 0488 00227000 * DCL 0489 00228000 * GPR07P PTR(31) REG(07); 0489 00229000 * DCL 0490 00230000 * GPR15F FIXED(31) REG(15); 0490 00231000 * DCL 0491 00232000 * GPR15P PTR(31) REG(15); 0491 00233000 * RFY 0492 00234000 * (GPR07P, 0492 00235000 * GPR14P, 0492 00236000 * GPR15P) RSTD; 0492 00237000 * GPR13P=ZSAZSVBC; 0493 00238000 L GPR13P,ZSAZSVBC(,GPR13P) 0493 00239000 * IF GPR13P=0 THEN 0494 00240000 LTR GPR13P,GPR13P 0494 00241000 BZ @RT00494 0494 00242000 * ; /* TPDVTS ISTZFARR */ 00243000 * ELSE 0496 00244000 * GPR14P=ZSAZSVRR; 0496 00245000 L GPR14P,ZSAZSVRR(,GPR13P) 0496 00246000 * GEN REFS(ZSAZSVVR)(LM 7,12,ZSAZSVVR+0(13)); 0497 00247000 @RT00494 DS 0H 0497 00248000 LM 7,12,ZSAZSVVR+0(13) 00249000 * GEN REFS(GPR14P) EXIT NOSEQFLOW(BR GPR14P); 0498 00250000 BR GPR14P 00251000 * RFY 0499 00252000 * (GPR07P, 0499 00253000 * GPR14P, 0499 00254000 * GPR15P) UNRSTD; 0499 00255000 * END; 0500 00256000 * 0500 00257000 */* END TPZRETN */ 00258000 * 0501 00259000 * 0501 00260000 * /*****************************************************************/ 00261000 * /* */ 00262000 * /* CONTACT COMPLETION PROCESSING ROUTINE - SETS SESSION STATUS */ 00263000 * /* FLAGS TO 'IN SESSION' AND, IF INITIAL SESSION, CLEARS */ 00264000 * /* INVITE/CONTACT OUTSTANDING FLAGS */ 00265000 * /* */ 00266000 * /*****************************************************************/ 00267000 * 0501 00268000 *CONTACT: 0501 00269000 *IFHBCONT: 0501 00270000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* SUBROUTINE ENTRY */ 00271000 CONTACT DS 0H 0501 00272000 IFHBCONT DS 0H 0502 00273000 * ZCRSVF8=RETNREG; /* SAVE RETURN REGISTER */ 00274000 ST RETNREG,ZCRSVF8(,ZCRPTR) 0502 00275000 * IF ZCR3270=ON THEN /* IF A 3270 DEVICE @XM09540*/ 00276000 TM ZCR3270(ZCRPTR),B'00000100' 0503 00277000 BNO @RF00503 0503 00278000 * FMCZF002=OFF; /* CLEAR I/O SCHED SUSPENDED 0504 00279000 * @XM09540*/ 00280000 NI FMCZF002(FMCBPTR),B'10111111' 0504 00281000 * ELSE 0505 00282000 * ; /* @XM09540*/ 00283000 @RF00503 DS 0H 0506 00284000 * FMCZFA06=ON; /* INDICATE IN SESSION - FMCB */ 00285000 OI FMCZFA06(FMCBPTR),B'00000100' 0506 00286000 * DNCSESS=ON; /* INDICATE IN SESSION - DNCB */ 00287000 * 0507 00288000 OI DNCSESS(DNCBPTR),B'01000000' 0507 00289000 * /*****************************************************************/ 00290000 * /* */ 00291000 * /* IF FIRST APPLICATION SESSION, CLEAR CONTACT/INVITE OUTSTANDING*/ 00292000 * /* FLAGS */ 00293000 * /* */ 00294000 * /*****************************************************************/ 00295000 * 0508 00296000 * IF FMCZX001=FIRST THEN /* FIRST SESSION */ 00297000 CLI FMCZX001(FMCBPTR),1 0508 00298000 BNE @RF00508 0508 00299000 * DO; /* CLEAR CONTACT/INVITE FLAGS */ 00300000 * FMCZFC06=OFF; /* CLEAR CONTACT OUTSTANDING */ 00301000 * FMCZFB06=OFF; /* CLEAR INVITE OUTSTANDING */ 00302000 NI FMCZFC06(FMCBPTR),B'11111100' 0511 00303000 * END; 0512 00304000 * RETNREG=ZCRSVF8; /* RESTORE RETURN REGISTER */ 00305000 @RF00508 L RETNREG,ZCRSVF8(,ZCRPTR) 0513 00306000 * END IFHBCONT; /* END - INTERNAL PROCEDURE */ 00307000 @EL00002 DS 0H 0514 00308000 @EF00002 DS 0H 0514 00309000 @ER00002 BR @14 0514 00310000 * 0515 00311000 * /*****************************************************************/ 00312000 * /* */ 00313000 * /* DISCONNECT COMPLETION PROCESSING ROUTINE - SETS SESSION STATUS*/ 00314000 * /* FLAGS TO 'NOT IN SESSION' AND, IF LAST SESSION, CLEARS */ 00315000 * /* DISCONNECT OUTSTANDING FLAGS. */ 00316000 * /* */ 00317000 * /*****************************************************************/ 00318000 * 0515 00319000 *DISCON: 0515 00320000 *IFHBDISC: 0515 00321000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* SUBROUTINE ENTRY */ 00322000 DISCON DS 0H 0515 00323000 IFHBDISC DS 0H 0516 00324000 * ZCRSVF8=RETNREG; /* SAVE RETURN REGISTER */ 00325000 ST RETNREG,ZCRSVF8(,ZCRPTR) 0516 00326000 * IF FSBSERR=OFF THEN /* NO ERROR */ 00327000 TM FSBSERR(FSBPTR),B'10000000' 0517 00328000 BNZ @RF00517 0517 00329000 * FMCZF018=ON; /* RESET ORDERLY COMPLETE */ 00330000 OI FMCZF018(FMCBPTR),B'10000000' 0518 00331000 * ELSE 0519 00332000 * 0519 00333000 * /***************************************************************/ 00334000 * /* */ 00335000 * /* SEGMENT(ERRMSG)REQUEST */ 00336000 * /* */ 00337000 * /***************************************************************/ 00338000 * 0519 00339000 * DO; 0519 00340000 B @RC00517 0519 00341000 @RF00517 DS 0H 0520 00342000 * GOTO ERRMSG; 0520 00343000 B ERRMSG 0520 00344000 *ERRMSG#: 0521 00345000 * END; /* SEND OUT MSG */ 00346000 ERRMSG# DS 0H 0522 00347000 * FMCZFA06=OFF; /* INDICATE NOT IN SESSION */ 00348000 @RC00517 NI FMCZFA06(FMCBPTR),B'11111011' 0522 00349000 * DNCSESS=OFF; /* INDICATE NOT IN SESSION */ 00350000 NI DNCSESS(DNCBPTR),B'10111111' 0523 00351000 * CALL ISTZCF2B; /* CALL DIALOGUE SCHEDULER */ 00352000 SLR @11,@11 0524 00353000 ICM @11,7,PABDVTA+112(FMCBPTR) 0524 00354000 L @15,ZRCZCFCI(,@11) 0524 00355000 BALR @14,@15 0524 00356000 * IF FMCZX001>FIRST THEN /* SESSION CNT > 1 ? @XM03HDP*/ 00357000 CLI FMCZX001(FMCBPTR),1 0525 00358000 BNH @RF00525 0525 00359000 * FMCZX001=FMCZX001-1; /* DECREMENT IT BY 1 @XM03HDP*/ 00360000 SLR @15,@15 0526 00361000 IC @15,FMCZX001(,FMCBPTR) 0526 00362000 BCTR @15,0 0526 00363000 STC @15,FMCZX001(,FMCBPTR) 0526 00364000 * ELSE /* SESS CNT <= 1 @XM03HDP*/ 00365000 * DO; /* @XM03HDP*/ 00366000 B @RC00525 0527 00367000 @RF00525 DS 0H 0528 00368000 * FMCZX001=ZERO; /* CLEAR APPLICATION SESSION 0528 00369000 * COUNT @XM03HDP*/ 00370000 MVI FMCZX001(FMCBPTR),X'00' 0528 00371000 * FMCZFD06=OFF; /* CLEAR DISCONNECT OUTSTANDING 00372000 * FLAG - FMCB @XM03HDP*/ 00373000 NI FMCZFD06(FMCBPTR),B'01111111' 0529 00374000 * DNCDISC=OFF; /* CLEAR DISCONNECT OUTSTANDING 00375000 * FLAG - DNCB @XM03HDP*/ 00376000 NI DNCDISC(DNCBPTR),B'11110111' 0530 00377000 * END; 0531 00378000 * IF BDUMODIF=BMODDE THEN /* DISCONNECT WITH END OF CALL 0532 00379000 * MODIFIER? @XM03HDP*/ 00380000 @RC00525 CLI BDUMODIF+62(BUFPTR),X'02' 0532 00381000 BNE @RF00532 0532 00382000 * DO; /* @XM09582*/ 00383000 * DNCZF006=OFF; /* TURN OFF CONNECT EST @X03HDP*/ 00384000 * DNCZF008=OFF; /* SET OFF PURGE-TO-DELIMITER 0535 00385000 * FLAG @XM09582*/ 00386000 NI DNCZF006(DNCBPTR),B'11011110' 0535 00387000 * END; /* @XM09582*/ 00388000 * ELSE 0537 00389000 * ; /* @XM03HDP*/ 00390000 @RF00532 DS 0H 0538 00391000 * RETNREG=ZCRSVF8; /* RESTORE RETURN REGISTER */ 00392000 L RETNREG,ZCRSVF8(,ZCRPTR) 0538 00393000 */* SEGMENT(ERRMSG)START */ 00394000 * 0539 00395000 * DO; 0539 00396000 * GOTO ERRMSG@; 0540 00397000 B ERRMSG@ 0540 00398000 *ERRMSG: 0541 00399000 * END; 0541 00400000 * 0541 00401000 ERRMSG DS 0H 0542 00402000 */********************************************************************/ 00403000 */* ERRMSG: THIS ROUTINE IS ENTERED WHEN A PHASE1,2,OR 3 ERROR */ 00404000 */* OCCURS. IT CALLS DATA MOVE TO GET A BUFFER AND MOVE */ 00405000 */* THE FSB&BTU TO IT. THE NEW BDU IS SET TO ACTIVATE */ 00406000 */* DEVICE AND FSBMSGID SET = CATASTROPHIC I/O ERROR. */ 00407000 */* THE FSB IS THEN QUEUED TO THE MSG WRITER PAB. */ 00408000 */* THE S/D CODE FOR THIS ROUTINE IS @XL03HCH*/ 00409000 */********************************************************************/ 00410000 * 0542 00411000 * ZCRTBPTR=0; /* SET PARM FOR DATA MOVE RTN 0542 00412000 * ALLOCTN OF 'TO' BUFF */ 00413000 SLR @15,@15 0542 00414000 ST @15,ZCRTBPTR(,ZCRPTR) 0542 00415000 * ZCRPCOD2=0; /* ZERO PARM FLAGS */ 00416000 MVI ZCRPCOD2(ZCRPTR),X'00' 0543 00417000 * ZCRPFHDR=ON; /* PARM= FDB IN 'FROM' BUFF */ 00418000 * ZCRPMFGF=ON; /* MOVE STARTS IN 1ST BUFF */ 00419000 OI ZCRPFHDR(ZCRPTR),B'01100000' 0545 00420000 * ZCRFBPTR=BUFPTR; /* SET 'FROM' BUFF ADDR FOR DATA 00421000 * MOVE */ 00422000 ST BUFPTR,ZCRFBPTR(,ZCRPTR) 0546 00423000 * FDBDATAA=ADDR(ZIBFSB); /* ADJUST 'FROM' BFR FDB DATA 0547 00424000 * ADDR TO START MOVE WITH FSB */ 00425000 LA @11,ZIBFSB(,BUFPTR) 0547 00426000 ST @11,FDBDATAA(,BUFPTR) 0547 00427000 * ZCRDFRDA=0; /* SET DISPLACMT FROM 'FROM' */ 00428000 STH @15,ZCRDFRDA(,ZCRPTR) 0548 00429000 * ZCRMLNG=ADDR(BTUTEXT)-ADDR(ZIBFSB);/* SET LENGTH TO MOVE */ 00430000 LA @15,BTUTEXT+48(,BUFPTR) 0549 00431000 SLR @15,@11 0549 00432000 STH @15,ZCRMLNG(,ZCRPTR) 0549 00433000 * CALL ISTZDFD0; /* CALL DATA MOVE RTN */ 00434000 L @11,ATCZPSVT(,ATCVTPTR) 0550 00435000 L @15,ZPSZDFD0(,@11) 0550 00436000 BALR @14,@15 0550 00437000 * FDBDATAA=ADDR(BTUTEXT); /* READJUST 'FROM'BFR TPIOS */ 00438000 LA @15,48 0551 00439000 LR @00,BUFPTR 0551 00440000 ALR @00,@15 0551 00441000 LR @11,@00 0551 00442000 LA @00,BTUTEXT(,@11) 0551 00443000 ST @00,FDBDATAA(,BUFPTR) 0551 00444000 * RFY 0552 00445000 * ISTZCRR BASED(CRACRR); /* ZCR BASE NEEDED TO SAVE BUFFER 00446000 * PTR ACROSS TPQUE */ 00447000 * ZCRPTR=BUFPTR; /* SAVE ACROSS TPQUE */ 00448000 LR ZCRPTR,BUFPTR 0553 00449000 * BUFPTR=ZCRBFPTR; /* GET 'TO' BUFF PTR */ 00450000 L @11,RPHCRR(,RPHPTR) 0554 00451000 L @11,CRACRR(,@11) 0554 00452000 L BUFPTR,ZCRBFPTR(,@11) 0554 00453000 * FDBDATAA=ADDR(BTUTEXT); /* ADJUST 'TO'BFR FDB DATADDR */ 00454000 ALR @15,BUFPTR 0555 00455000 LA @15,BTUTEXT(,@15) 0555 00456000 ST @15,FDBDATAA(,BUFPTR) 0555 00457000 * FDBDATCT=0; /* FDB COUNT */ 00458000 SLR @15,@15 0556 00459000 STH @15,FDBDATCT(,BUFPTR) 0556 00460000 * BDUCOMND=BCMDZ; /* SET BDU COMMAND = */ 00461000 LA @15,62 0557 00462000 ALR @15,BUFPTR 0557 00463000 MVI BDUCOMND(@15),X'08' 0557 00464000 * BDUMODIF=BMODZADM; /* ACTIVATE DEVICE */ 00465000 MVI BDUMODIF(@15),X'88' 0558 00466000 * FSBMSGID=ZMSG1; /* SET FSB MSGID = CAT ERR */ 00467000 MVC FSBMSGID(4,FSBPTR),@CF02769 0559 00468000 */* TPQUE (ADDR(ZIBFSB),ICNZPAB4) NORM */ 00469000 * 0560 00470000 * DO; 0560 00471000 * DCL 0561 00472000 * GPR00F FIXED(31) REG(00); 0561 00473000 * DCL 0562 00474000 * GPR00P PTR(31) REG(00); 0562 00475000 * DCL 0563 00476000 * GPR04F FIXED(31) REG(04); 0563 00477000 * DCL 0564 00478000 * GPR04P PTR(31) REG(04); 0564 00479000 * DCL 0565 00480000 * GPR05F FIXED(31) REG(05); 0565 00481000 * DCL 0566 00482000 * GPR05P PTR(31) REG(05); 0566 00483000 * RFY 0567 00484000 * (GPR00P, 0567 00485000 * GPR01P, 0567 00486000 * GPR04P, 0567 00487000 * GPR05P, 0567 00488000 * GPR15P) RSTD; 0567 00489000 * DCL 0568 00490000 * GPR02F FIXED(31) REG(02); 0568 00491000 * DCL 0569 00492000 * GPR02P PTR(31) REG(02); 0569 00493000 * DCL 0570 00494000 * GPR08F FIXED(31) REG(08); 0570 00495000 * DCL 0571 00496000 * GPR08P PTR(31) REG(08); 0571 00497000 * GEN REFS(GPR01P) SETS(RPHWORK)(STM GPR02P,GPR08P,RPHWORK(GPR01P)) 00498000 * ; 0572 00499000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 00500000 * GPR00P=0; 0573 00501000 SLR GPR00P,GPR00P 0573 00502000 * GPR15P=ADDR(ICNZPAB4); /* HOLD PAB PTR */ 00503000 LA GPR15P,ICNZPAB4(,ICNCBPTR) 0574 00504000 * GPR04P=ADDR(ZIBFSB); /* WORK ELE PTR */ 00505000 LA GPR04P,ZIBFSB(,BUFPTR) 0575 00506000 * GPR05P=GPR15P; /* PASS PAB PTR */ 00507000 LR GPR05P,GPR15P 0576 00508000 * CALL ATCLCPTR->ATCAP37->ISTAPC37; 0577 00509000 L @11,ATCLCPTR 0577 00510000 L @15,ATCAP37(,@11) 0577 00511000 BALR @14,@15 0577 00512000 * GEN(NOPR 0) 0578 00513000 * NOSETS NOREFS; 0578 00514000 NOPR 0 00515000 * RFY 0579 00516000 * (GPR00P, 0579 00517000 * GPR01P, 0579 00518000 * GPR04P, 0579 00519000 * GPR05P, 0579 00520000 * GPR15P) UNRSTD; 0579 00521000 * END; /* *** END OF TPQUE GENERATION 0580 00522000 * QUE FSB TO MSGWR PB */ 00523000 * BUFPTR=ZCRPTR; /* RESTORE 'FROM' BFR PTR */ 00524000 LR BUFPTR,ZCRPTR 0581 00525000 * ZCRPTR=CRACRR; /* RESTORE ZCR PTR */ 00526000 L @15,RPHCRR(,RPHPTR) 0582 00527000 L ZCRPTR,CRACRR(,@15) 0582 00528000 * RFY 0583 00529000 * ISTZCRR BASED(ZCRPTR); 0583 00530000 * 0583 00531000 */* SEGMENT(ERRMSG)FINISH */ 00532000 * 0584 00533000 * DO; 0584 00534000 * GOTO ERRMSG#; 0585 00535000 B ERRMSG# 0585 00536000 *ERRMSG@: 0586 00537000 * END; 0586 00538000 * END IFHBDISC; 0587 00539000 * 0587 00540000 @EL00003 DS 0H 0587 00541000 @EF00003 DS 0H 0587 00542000 @ER00003 BR @14 0587 00543000 */* TPEPILOG */ 00544000 * 0588 00545000 * GEN(PRINT OFF); 0588 00546000 PRINT OFF 00547000 * DCL 0589 00548000 * ISTAPC34 ENTRY BASED(ATCAP34) VALRG(*);/* RESET ROUTINE */ 00549000 * DCL 0590 00550000 * ISTAPC37 ENTRY BASED(ATCAP37) VALRG(*);/* TPQUE ROUTINE */ 00551000 * GEN(PRINT ON); 0591 00552000 * 0591 00553000 PRINT ON 00554000 */* END OF TPEPILOG */ 00555000 * 0592 00556000 * END ISTZIFHB 0592 00557000 * 0592 00558000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00559000 */*%INCLUDE SYSLIB (IECDIOSB) */ 00560000 */*%INCLUDE SYSLIB (IHASRB ) */ 00561000 * 0592 00562000 * ; 0592 00563000 @EL00001 DS 0H 0592 00564000 @EF00001 DS 0H 0592 00565000 @ER00001 BR @14 0592 00566000 @DATA DS 0H 00567000 @DATD DSECT 00568000 DS 0F 00569000 ISTZIFHB CSECT 00570000 DS 0F 00571000 @CF02769 DC C'201I' 00572000 @DATD DSECT 00573000 DS 0D 00574000 IOSBPTR DS A 00575000 SRBPTR DS A 00576000 ISTZMSG DS F 00577000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00578000 @ENDDATD EQU * 00579000 ISTZIFHB CSECT 00580000 DS 0F 00581000 @SIZDATD DC AL1(0) 00582000 DC AL3(@ENDDATD-@DATD) 00583000 DS 0D 00584000 @CC03425 DC C'ICHB' 00585000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00586000 @01 EQU 01 00587000 @02 EQU 02 00588000 @03 EQU 03 00589000 @04 EQU 04 00590000 @05 EQU 05 00591000 @06 EQU 06 00592000 @07 EQU 07 00593000 @08 EQU 08 00594000 @09 EQU 09 00595000 @10 EQU 10 00596000 @11 EQU 11 00597000 @12 EQU 12 00598000 @13 EQU 13 00599000 @14 EQU 14 00600000 @15 EQU 15 00601000 ATCVTPTR EQU @02 00602000 ICNCBPTR EQU @03 00603000 DNCBPTR EQU @04 00604000 FMCBPTR EQU @05 00605000 BUFPTR EQU @06 00606000 LCPBPTR EQU @07 00607000 LSCBPTR EQU @07 00608000 FSBPTR EQU @08 00609000 LCCWPTR EQU @09 00610000 ZCRPTR EQU @09 00611000 R12 EQU @12 00612000 R13 EQU @13 00613000 BTUPTR EQU @01 00614000 BDUPTR EQU @01 00615000 RETNREG EQU @14 00616000 RPHPTR EQU @01 00617000 GPR01P EQU @01 00618000 GPR12P EQU @12 00619000 GPR13P EQU @13 00620000 GPR14P EQU @14 00621000 GPR07P EQU @07 00622000 GPR15P EQU @15 00623000 GPR00P EQU @00 00624000 GPR04P EQU @04 00625000 GPR05P EQU @05 00626000 GPR00F EQU @00 00627000 GPR01F EQU @01 00628000 GPR02F EQU @02 00629000 GPR02P EQU @02 00630000 GPR04F EQU @04 00631000 GPR05F EQU @05 00632000 GPR07F EQU @07 00633000 GPR08F EQU @08 00634000 GPR08P EQU @08 00635000 GPR12F EQU @12 00636000 GPR13F EQU @13 00637000 GPR14F EQU @14 00638000 GPR15F EQU @15 00639000 REG15 EQU @15 00640000 ATCLCPTR EQU 1032 00641000 IOSB EQU 0 00642000 IOSFLA EQU IOSB 00643000 IOSACHN EQU IOSFLA 00644000 IOSFLB EQU IOSB+1 00645000 IOSFLC EQU IOSB+2 00646000 IOSDVALT EQU IOSFLC 00647000 IOSPKEY EQU IOSB+12 00648000 IOSOPT EQU IOSB+14 00649000 IOSOPT2 EQU IOSB+15 00650000 @NM00002 EQU IOSB+20 00651000 IOSCSW EQU @NM00002+1 00652000 IOSTATUS EQU IOSCSW+3 00653000 IOSIPIB EQU IOSB+44 00654000 IOSPATH EQU IOSB+86 00655000 IOSCHN EQU IOSPATH 00656000 IOSCKEY EQU IOSB+89 00657000 IOSEEKA EQU IOSB+100 00658000 IOSCCHH EQU IOSEEKA+3 00659000 IOSSKHH EQU IOSCCHH+2 00660000 SRBSECT EQU 0 00661000 SRBFLC EQU SRBSECT+12 00662000 ISTZDFD0 EQU 0 00663000 ISTZCF2B EQU 0 00664000 ISTBDU EQU 0 00665000 BDUCOMND EQU ISTBDU 00666000 BDUMODIF EQU ISTBDU+1 00667000 BDUMOD1 EQU BDUMODIF 00668000 BDUDAF EQU ISTBDU+2 00669000 BDUFUNC EQU BDUDAF 00670000 BDUCHECK EQU BDUFUNC 00671000 BDUFLAGS EQU BDUDAF+1 00672000 ISTBTU EQU 0 00673000 BTUBTH EQU ISTBTU 00674000 BTUFID EQU BTUBTH 00675000 BTUREQ EQU BTUBTH+6 00676000 BTURQFLG EQU BTUREQ 00677000 BTUDCF EQU BTUBTH+8 00678000 BTURH EQU BTUBTH+10 00679000 BTUBDU EQU ISTBTU+14 00680000 BTUSYSTR EQU ISTBTU+18 00681000 BTUTEXT EQU ISTBTU+20 00682000 ISTFDB EQU 0 00683000 FDBDATAA EQU ISTFDB+4 00684000 FDBDATCT EQU ISTFDB+8 00685000 ISTFSB EQU 0 00686000 FSBFSB EQU ISTFSB 00687000 FSBMNRCD EQU FSBFSB+2 00688000 FSBMNELI EQU FSBMNRCD 00689000 FSBSFLGS EQU FSBFSB+3 00690000 FSBFSBA EQU FSBFSB+4 00691000 FSBBTH EQU FSBFSB+8 00692000 FSBCID EQU FSBBTH 00693000 FSBRQTAG EQU FSBBTH+4 00694000 FSBSEQID EQU FSBRQTAG 00695000 FSBFLAGS EQU FSBSEQID 00696000 FSBSEQ EQU FSBSEQID+1 00697000 FSBCSWST EQU FSBBTH+6 00698000 FSBTHFLD EQU FSBCSWST 00699000 FSBTH1 EQU FSBTHFLD 00700000 FSBSYSRS EQU FSBTH1 00701000 FSBSERR EQU FSBSYSRS 00702000 FSBSPHSE EQU FSBSYSRS 00703000 FSBSCODE EQU FSBSYSRS 00704000 FSBTH2 EQU FSBTHFLD+1 00705000 FSBEXTRS EQU FSBTH2 00706000 FSBXFSTS EQU FSBEXTRS 00707000 FSBXCODE EQU FSBEXTRS 00708000 FSBNETRS EQU FSBFSB+16 00709000 FSBSRCAT EQU FSBNETRS 00710000 FSBERC EQU FSBNETRS+1 00711000 FSBELI EQU FSBERC 00712000 FSBECI EQU FSBERC 00713000 FSBFBMI EQU FSBERC 00714000 FSBDMGRS EQU FSBFSB+18 00715000 FSBSS1 EQU FSBDMGRS 00716000 FSBSS2 EQU FSBDMGRS+1 00717000 FSBLCPB EQU FSBFSB+20 00718000 FSBMSGID EQU FSBLCPB 00719000 FSBLCCWA EQU FSBFSB+24 00720000 FSBRLSTS EQU FSBLCCWA 00721000 ISTDEVCH EQU 0 00722000 DEVSHCH EQU ISTDEVCH 00723000 DEVCHAR EQU DEVSHCH 00724000 DEVTCODE EQU ISTDEVCH+1 00725000 DEVFLAGS EQU ISTDEVCH+3 00726000 DEVFCCTL EQU DEVFLAGS 00727000 DEVCHAR3 EQU DEVFLAGS 00728000 ISTPAB EQU 0 00729000 PABWQCHN EQU ISTPAB 00730000 PABWEQA EQU PABWQCHN 00731000 PABCHAIN EQU PABWQCHN+4 00732000 PABDVTA EQU ISTPAB+9 00733000 PABRPHFG EQU ISTPAB+12 00734000 PABFLAGS EQU PABRPHFG 00735000 PABERLCK EQU PABFLAGS 00736000 PABERRLK EQU PABERLCK 00737000 ISTLCCW EQU 0 00738000 LCCWOP EQU ISTLCCW 00739000 LCCWRWOP EQU LCCWOP 00740000 LCCWCTL EQU LCCWRWOP 00741000 LCCWFLAG EQU ISTLCCW+1 00742000 LCCWCC EQU LCCWFLAG 00743000 LCCWLSI EQU LCCWFLAG 00744000 ISTLCPB EQU 0 00745000 LCPREQTG EQU ISTLCPB+2 00746000 LCPFLAGS EQU LCPREQTG 00747000 LCPZF001 EQU LCPFLAGS 00748000 LCPZRT02 EQU LCPZF001 00749000 LCPZF002 EQU LCPFLAGS 00750000 LCPZRT03 EQU LCPZF002 00751000 LCPZF003 EQU LCPFLAGS 00752000 LCPZRT04 EQU LCPZF003 00753000 LCPZF004 EQU LCPFLAGS 00754000 LCPZRT05 EQU LCPZF004 00755000 LCPZRT06 EQU LCPFLAGS 00756000 LCPZRT07 EQU LCPFLAGS 00757000 LCPMNRCD EQU LCPREQTG+1 00758000 LCPZRT08 EQU LCPMNRCD 00759000 LCPZRT09 EQU LCPMNRCD 00760000 LCPCHAIN EQU ISTLCPB+4 00761000 LCPCHAI1 EQU LCPCHAIN 00762000 LCPRUCNT EQU ISTLCPB+8 00763000 LCPFLAG2 EQU ISTLCPB+9 00764000 LCPTLBPI EQU LCPFLAG2 00765000 LCPFID0 EQU LCPFLAG2 00766000 LCPSEQ EQU ISTLCPB+10 00767000 LCPCID EQU ISTLCPB+16 00768000 LCPFDBA EQU ISTLCPB+24 00769000 LCPFLG1 EQU ISTLCPB+37 00770000 LCPFLCCW EQU ISTLCPB+40 00771000 LCPLCCW EQU ISTLCPB+48 00772000 LCPPABA EQU LCPLCCW+4 00773000 LCPRPHA EQU LCPPABA 00774000 ISTLSCB EQU 0 00775000 LSC1WORD EQU ISTLSCB 00776000 LSCTYPE EQU LSC1WORD 00777000 LSCREQTG EQU LSC1WORD+2 00778000 LSCZRT02 EQU LSCREQTG 00779000 LSCZRT03 EQU LSCREQTG 00780000 LSCZRT04 EQU LSCREQTG 00781000 LSCZRT05 EQU LSCREQTG 00782000 LSCZRT06 EQU LSCREQTG 00783000 LSCZRT07 EQU LSCREQTG 00784000 LSCZMNRC EQU LSCREQTG+1 00785000 LSCZRT08 EQU LSCZMNRC 00786000 LSCZRT09 EQU LSCZMNRC 00787000 LSCCHAIN EQU ISTLSCB+4 00788000 LSCCHAI1 EQU LSCCHAIN 00789000 LSCRUCNT EQU ISTLSCB+8 00790000 LSCFLGS EQU ISTLSCB+9 00791000 LSCSEQ EQU ISTLSCB+10 00792000 LSCLCCWA EQU ISTLSCB+20 00793000 LSCFDBA EQU ISTLSCB+24 00794000 ISTPROCD EQU 0 00795000 PROPROC EQU ISTPROCD 00796000 PROPROC1 EQU PROPROC 00797000 PROPROC2 EQU PROPROC+1 00798000 PROPROC3 EQU PROPROC+2 00799000 PROPROC4 EQU PROPROC+3 00800000 PROPROCS EQU 0 00801000 PROSETMS EQU PROPROCS+1 00802000 PROSETM2 EQU PROSETMS 00803000 PROSETM3 EQU PROSETMS+1 00804000 PROSETM4 EQU PROSETMS+2 00805000 ISTLOK EQU 0 00806000 LOKCHN EQU ISTLOK+1 00807000 LOKCHNG EQU LOKCHN 00808000 @NM00016 EQU LOKCHNG+2 00809000 ISTFMCB EQU 0 00810000 FMCSTAT EQU ISTFMCB+28 00811000 FMCSTAT1 EQU ISTFMCB+29 00812000 FMCCMDFL EQU ISTFMCB+31 00813000 FMCCMPS1 EQU ISTFMCB+36 00814000 FMCPAB4 EQU ISTFMCB+112 00815000 FMCSIPA EQU ISTFMCB+148 00816000 FMCNXOSQ EQU ISTFMCB+152 00817000 FMCNXCFM EQU FMCNXOSQ 00818000 FMCNXOSC EQU FMCNXOSQ+2 00819000 FMCSSTAT EQU ISTFMCB+159 00820000 FMCPACE EQU ISTFMCB+160 00821000 FMCPACEN EQU FMCPACE 00822000 FMCPACEM EQU FMCPACE+1 00823000 FMCPACPC EQU FMCPACE+2 00824000 FMCCVAL EQU FMCPACE+3 00825000 FMCOBCE EQU FMCCVAL 00826000 FMCCLEXT EQU ISTFMCB+164 00827000 FMCRPLA EQU FMCCLEXT 00828000 FMCFBA EQU FMCCLEXT+4 00829000 FMCCMPS2 EQU FMCCLEXT+16 00830000 FMCFLGA EQU FMCCMPS2 00831000 FMCFLGCL EQU FMCCMPS2+1 00832000 FMCPSCMD EQU FMCCMPS2+2 00833000 FMCPSTAT EQU FMCCMPS2+3 00834000 FMCSTAT2 EQU ISTFMCB+186 00835000 FMCMODEB EQU ISTFMCB+189 00836000 FMCCLSEQ EQU ISTFMCB+190 00837000 FMCRRESP EQU ISTFMCB+195 00838000 FMCSSEGQ EQU ISTFMCB+200 00839000 FMCFBAS EQU ISTFMCB+216 00840000 FMCZV002 EQU FMCFBAS 00841000 FMCSNCTL EQU ISTFMCB+224 00842000 FMCSCFLG EQU FMCSNCTL 00843000 FMCVS1 EQU ISTFMCB+232 00844000 FMCZFLAG EQU FMCVS1 00845000 FMCZF002 EQU FMCZFLAG 00846000 FMCZF006 EQU FMCZFLAG 00847000 FMCZFA06 EQU FMCZF006 00848000 FMCZFB06 EQU FMCZF006 00849000 FMCZFC06 EQU FMCZF006 00850000 FMCZFD06 EQU FMCZF006+1 00851000 FMCZF018 EQU FMCZFLAG+3 00852000 FMCLBXM EQU FMCVS1+12 00853000 FMCSHEAQ EQU FMCLBXM 00854000 FMCLCPBQ EQU FMCVS1+16 00855000 FMCLCPAQ EQU FMCVS1+20 00856000 FMCZX001 EQU FMCVS1+28 00857000 FMCSEQ1 EQU FMCVS1+34 00858000 FMCZFLG2 EQU FMCVS1+35 00859000 FMCCVFLG EQU FMCVS1+44 00860000 FMCFLAG EQU 0 00861000 FMCFLGB EQU FMCFLAG 00862000 ISTZSAVE EQU 0 00863000 ZSAZSVBC EQU ISTZSAVE 00864000 ZSAZSVMS EQU ZSAZSVBC 00865000 ZSAZACTV EQU ZSAZSVMS 00866000 ZSAZSVFC EQU ISTZSAVE+4 00867000 ZSAZSVRR EQU ISTZSAVE+8 00868000 ZSAZSVVR EQU ISTZSAVE+12 00869000 ZSAZTRAC EQU ISTZSAVE+36 00870000 ISTZCRR EQU 0 00871000 ZCRCRR EQU ISTZCRR 00872000 ZCRFLGS1 EQU ISTZCRR+12 00873000 ZCRFLGS2 EQU ISTZCRR+13 00874000 ZCRSWFLD EQU ISTZCRR+14 00875000 ZCRENDSH EQU ZCRSWFLD 00876000 ZCRNDLCP EQU ZCRSWFLD 00877000 ZCRRESET EQU ZCRSWFLD 00878000 ZCRFLGS3 EQU ISTZCRR+15 00879000 ZCRGENSW EQU ISTZCRR+16 00880000 ZCRPFLGS EQU ISTZCRR+17 00881000 ZCRIBPR EQU ISTZCRR+18 00882000 ZCR3270 EQU ZCRIBPR 00883000 ZCRSCPSW EQU ISTZCRR+19 00884000 ZCRPARMS EQU ISTZCRR+24 00885000 ZCRFBPTR EQU ZCRPARMS 00886000 ZCRTBPTR EQU ZCRPARMS+4 00887000 ZCRMLNG EQU ZCRPARMS+8 00888000 ZCRDFRDA EQU ZCRPARMS+10 00889000 ZCRPCOD1 EQU ZCRPARMS+12 00890000 ZCRPLSBF EQU ZCRPCOD1 00891000 ZCRPCOD2 EQU ZCRPARMS+13 00892000 ZCRPFHDR EQU ZCRPCOD2 00893000 ZCRPMFGF EQU ZCRPCOD2 00894000 ZCRBFPTR EQU ISTZCRR+44 00895000 ZCRSVRTN EQU ISTZCRR+56 00896000 ZCRSVF8 EQU ZCRSVRTN+28 00897000 ZCRWKARA EQU ISTZCRR+156 00898000 ZCRCIDSV EQU ISTZCRR+192 00899000 ZCRAUDIT EQU ISTZCRR+440 00900000 ZCRENTER EQU ZCRAUDIT+5 00901000 ZCREICHB EQU ZCRENTER+11 00902000 ZCRLCPB EQU ISTZCRR+480 00903000 ZCRRHRU EQU ZCRLCPB 00904000 ISTRPH EQU 0 00905000 RPHFLAGS EQU ISTRPH+2 00906000 RPHAPTYP EQU RPHFLAGS 00907000 RPHFSTLC EQU RPHFLAGS 00908000 RPHFLGB EQU ISTRPH+3 00909000 RPHRPHA EQU ISTRPH+4 00910000 RPHTSKID EQU ISTRPH+8 00911000 RPHRESMA EQU ISTRPH+16 00912000 RPHWPFLG EQU RPHRESMA 00913000 RPHWEA EQU ISTRPH+24 00914000 RPHCSPA EQU RPHWEA 00915000 RPHSRPRM EQU ISTRPH+28 00916000 RPHCRR EQU ISTRPH+32 00917000 RPHPABQA EQU ISTRPH+36 00918000 RPHWORK EQU ISTRPH+40 00919000 RPHSAVE1 EQU RPHWORK 00920000 RPHSBITS EQU RPHSAVE1+1 00921000 ISTLH EQU 0 00922000 ISTTH EQU 0 00923000 THFLAG1 EQU ISTTH 00924000 THFLGA EQU THFLAG1 00925000 THMPF EQU THFLGA 00926000 THFLGB EQU THFLAG1+1 00927000 ISTTH2 EQU 0 00928000 TH2FLAG1 EQU ISTTH2 00929000 TH2MPF EQU TH2FLAG1 00930000 ISTZIBUF EQU 0 00931000 ZIBFSM EQU ISTZIBUF+4 00932000 ISTNCB EQU 0 00933000 NCBFLAGS EQU ISTNCB+24 00934000 NCBFRAS EQU NCBFLAGS+1 00935000 NCBFTRIO EQU NCBFRAS 00936000 NCBFLAG1 EQU NCBFLAGS+2 00937000 ISTDNCB EQU 0 00938000 DNCOS EQU ISTDNCB+56 00939000 DNCZFLGS EQU DNCOS 00940000 DNCSESS EQU DNCZFLGS 00941000 DNCDISC EQU DNCZFLGS 00942000 DNCZF006 EQU DNCZFLGS+1 00943000 DNCZF008 EQU DNCZFLGS+1 00944000 DNCBSCED EQU DNCOS+2 00945000 ISTPFCRR EQU 0 00946000 PFCCRR EQU ISTPFCRR 00947000 PFCCRRID EQU PFCCRR 00948000 PFCCRRLN EQU PFCCRR+2 00949000 PFCHDR EQU ISTPFCRR+4 00950000 PFCCRRO EQU PFCHDR 00951000 PFCFRRO EQU PFCHDR+4 00952000 ISTCFCRR EQU 0 00953000 CFCAUDIT EQU ISTCFCRR 00954000 CFCNTRD EQU CFCAUDIT 00955000 CFCCRT EQU CFCAUDIT+1 00956000 ISTASCRR EQU 0 00957000 ASCFLAGS EQU ISTASCRR+16 00958000 ASCFLG1 EQU ASCFLAGS 00959000 ASCFLG2 EQU ASCFLAGS+2 00960000 ASCFLG3 EQU ASCFLAGS+4 00961000 ASCUSRGS EQU ISTASCRR+28 00962000 ISTAPCRR EQU 0 00963000 APCATFLG EQU ISTAPCRR+16 00964000 APCRFLG EQU ISTAPCRR+18 00965000 APCSAVE EQU ISTAPCRR+44 00966000 APCCOMF EQU ISTAPCRR+116 00967000 APCCOMF1 EQU APCCOMF 00968000 APC31FLG EQU ISTAPCRR+132 00969000 APC52FLG EQU ISTAPCRR+133 00970000 APC53FLG EQU ISTAPCRR+134 00971000 APC54FLG EQU ISTAPCRR+135 00972000 APC57FLG EQU ISTAPCRR+136 00973000 ISTCRA EQU 0 00974000 CRABASIC EQU ISTCRA 00975000 CRAHDR EQU CRABASIC 00976000 CRACRR EQU CRAHDR 00977000 CRALKACT EQU CRABASIC+8 00978000 CRASVC EQU ISTCRA+848 00979000 CRABUFA EQU CRASVC+68 00980000 ISTZRCVT EQU 0 00981000 ZRCZCFCI EQU ISTZRCVT+4 00982000 ISTZPSVT EQU 0 00983000 ZPSZDFD0 EQU ISTZPSVT+8 00984000 ISTDYPAB EQU 0 00985000 ISTATCVT EQU 0 00986000 ATCCOM EQU ISTATCVT 00987000 ATCSTAT EQU ATCCOM 00988000 ATCSTAT1 EQU ATCSTAT 00989000 ATCSTFLG EQU ATCSTAT+1 00990000 ATCPOFLG EQU ATCSTAT+2 00991000 ATCSTAT4 EQU ATCSTAT+3 00992000 ATCIOTRC EQU ATCCOM+140 00993000 ATCTHTRC EQU ATCIOTRC 00994000 ATCCSMR EQU ISTATCVT+296 00995000 ATCSHRFG EQU ISTATCVT+316 00996000 ATCHPGM EQU ISTATCVT+384 00997000 ATCVLCNT EQU ISTATCVT+772 00998000 ATCSOPD EQU ISTATCVT+792 00999000 ATCSIPD EQU ISTATCVT+800 01000000 ATCSECST EQU ISTATCVT+812 01001000 ATCAOSM EQU ISTATCVT+912 01002000 ATCGSRBQ EQU ATCAOSM+4 01003000 ATCGSRBG EQU ATCGSRBQ 01004000 ATCAP34 EQU ATCAOSM+32 01005000 ATCZPSVT EQU ATCAOSM+72 01006000 ATCICAPP EQU ATCAOSM+100 01007000 ATCLDAPP EQU ATCAOSM+120 01008000 ATCDAPVT EQU ATCAOSM+140 01009000 ATCAP37 EQU ATCAOSM+264 01010000 ATCVTFLG EQU ATCAOSM+392 01011000 ATCZFLAG EQU ATCAOSM+588 01012000 ISTICNCB EQU 0 01013000 @NM00058 EQU ISTICNCB+53 01014000 ICNZPAB4 EQU ISTICNCB+80 01015000 ICNCKFLD EQU ISTICNCB+96 01016000 ICNFLAG EQU ISTICNCB+100 01017000 ICNZF006 EQU ICNFLAG 01018000 ICNFFLAG EQU ISTICNCB+101 01019000 ICNZSWS EQU ISTICNCB+102 01020000 ICNFLAG2 EQU ISTICNCB+236 01021000 ICNZD001 EQU ISTICNCB+288 01022000 ICNWSCCW EQU ICNZD001 01023000 ICNZD002 EQU ISTICNCB+296 01024000 ICNZD003 EQU ISTICNCB+320 01025000 ICNRSCCW EQU ICNZD003 01026000 ICNZD004 EQU ISTICNCB+328 01027000 ICNZS1VR EQU ISTICNCB+348 01028000 ICNSRV02 EQU ICNZS1VR 01029000 ICNDIEWA EQU ICNSRV02 01030000 ICNDCDEB EQU ISTICNCB+480 01031000 ICNDIDEB EQU ICNDCDEB+12 01032000 ICNZFLAG EQU ISTICNCB+508 01033000 ICNZH002 EQU ISTICNCB+509 01034000 ICNZS002 EQU ICNZH002 01035000 ICNZS003 EQU ICNZH002 01036000 ICNZS004 EQU ICNZH002 01037000 ICNZS006 EQU ICNZH002 01038000 ICNZS007 EQU ICNZH002 01039000 ICNZS008 EQU ICNZH002 01040000 ICNZS009 EQU ICNZH002+1 01041000 ICNZS00A EQU ICNZH002+1 01042000 ICNZCONS EQU ISTICNCB+680 01043000 ISTAPC37 EQU 0 01044000 ISTAPC34 EQU 0 01045000 ZIBSRB EQU 0 01046000 IOSATTSC EQU IOSIPIB 01047000 IOSWTOWA EQU IOSIPIB 01048000 IOSPCISC EQU IOSIPIB 01049000 FSBCOMBN EQU FSBNETRS 01050000 FSBRHFLD EQU FSBCOMBN+1 01051000 FSBRH3 EQU FSBRHFLD+2 01052000 FSBLDFLG EQU FSBRH3 01053000 @NM00013 EQU FSBRQTAG 01054000 LCPZTIE EQU LCPCID 01055000 LCPZSNAM EQU LCPZTIE+8 01056000 ZIBDIO EQU ZIBFSM 01057000 ZIBCCW2 EQU ZIBDIO+8 01058000 ZIBCPTCC EQU ZIBCCW2 01059000 ZIBAIO EQU ISTZIBUF 01060000 ZIBAIOCM EQU ZIBAIO 01061000 ZIBFDBZ EQU ZIBAIOCM 01062000 ZIBFIB EQU ZIBAIO+16 01063000 ZIBFSB EQU ZIBFIB 01064000 ZIBMDREC EQU ZIBFSB+4 01065000 ZIBMDRIN EQU ZIBFSB+28 01066000 ZIBBTU EQU ZIBFIB+32 01067000 @NM00035 EQU ZIBBTU+12 01068000 ZIBFID1 EQU @NM00035+1 01069000 ZIBFITXT EQU ZIBFID1 01070000 ZIBSIB EQU ZIBFIB 01071000 ZIBREC EQU ZIBMDRIN 01072000 ZIBRECPL EQU ZIBREC 01073000 ZIBRECHD EQU ZIBRECPL 01074000 ZIBRECRS EQU ZIBREC+8 01075000 ZIBRECDT EQU ZIBREC+10 01076000 ZIBMDRRC EQU ZIBMDREC 01077000 ZIBRCPL EQU ZIBMDRRC 01078000 ZIBRCDT EQU ZIBMDRRC+24 01079000 @NM00037 EQU ZIBBTU 01080000 SRB EQU SRBSECT 01081000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01082000 ZIBTH2 EQU @NM00037+4 01083000 ZIBLH EQU @NM00037 01084000 ZIBRCTXT EQU ZIBMDRRC+36 01085000 ZIBRCRID EQU ZIBRCDT+10 01086000 ZIBRCNAM EQU ZIBRCDT+2 01087000 ZIBRCUA EQU ZIBRCDT 01088000 ZIBRCPUI EQU ZIBRCPL+20 01089000 ZIBRCPUN EQU ZIBRCPL+16 01090000 ZIBRCTIM EQU ZIBRCPL+12 01091000 ZIBRCDAT EQU ZIBRCPL+8 01092000 ZIBRCRS1 EQU ZIBRCPL+6 01093000 ZIBRCSID EQU ZIBRCPL+5 01094000 ZIBRCID EQU ZIBRCPL+4 01095000 ZIBRCSW EQU ZIBRCPL+2 01096000 ZIBRCSYR EQU ZIBRCPL+1 01097000 ZIBRCL EQU ZIBRCPL 01098000 ZIBRECTX EQU ZIBREC+22 01099000 ZIBRECID EQU ZIBRECDT+10 01100000 ZIBRECNA EQU ZIBRECDT+2 01101000 ZIBRECUA EQU ZIBRECDT 01102000 ZIBRECSV EQU ZIBRECRS 01103000 ZIBRECDA EQU ZIBRECPL+4 01104000 ZIBRECSI EQU ZIBRECHD+3 01105000 ZIBRECDV EQU ZIBRECHD+2 01106000 ZIBRECFL EQU ZIBRECHD+1 01107000 ZIBRECTY EQU ZIBRECHD 01108000 ZIBTEXT EQU ZIBSIB+4 01109000 ZIBRSV04 EQU ZIBSIB 01110000 ZIBTEXT2 EQU ZIBFITXT 01111000 ZIBTEXT1 EQU ZIBFIB+52 01112000 @NM00036 EQU @NM00035 01113000 ZIBFDBS EQU ZIBBTU 01114000 @NM00034 EQU ZIBMDREC 01115000 @NM00033 EQU ZIBFSB 01116000 ZIBLNG2 EQU ZIBAIOCM+14 01117000 ZIBRSV03 EQU ZIBAIOCM+13 01118000 ZIBWKBYT EQU ZIBAIOCM+12 01119000 ZIBCPNPK EQU ZIBCCW2+6 01120000 ZIBRSV02 EQU ZIBCCW2+5 01121000 ZIBCPTPF EQU ZIBCCW2+4 01122000 ZIBCPTCA EQU ZIBCCW2+1 01123000 ZIBCPNPC EQU ZIBCPTCC 01124000 ZIBCPRDK EQU ZIBDIO+6 01125000 ZIBRSV01 EQU ZIBDIO+5 01126000 ZIBCPRDF EQU ZIBDIO+4 01127000 ZIBCPTXA EQU ZIBDIO+1 01128000 ZIBCPRDC EQU ZIBDIO 01129000 LCPZTRV4 EQU LCPZSNAM+4 01130000 LCPZTRV1 EQU LCPZSNAM 01131000 LCPZSNA EQU LCPZTIE+4 01132000 LCPZFMCA EQU LCPZTIE 01133000 FSBRT0B EQU @NM00013+1 01134000 FSBRT0A EQU @NM00013+1 01135000 FSBRT09 EQU @NM00013+1 01136000 FSBRT08 EQU @NM00013+1 01137000 FSBRT07 EQU @NM00013 01138000 FSBRT06 EQU @NM00013 01139000 FSBRT05 EQU @NM00013 01140000 FSBRT04 EQU @NM00013 01141000 FSBRT03 EQU @NM00013 01142000 FSBRT02 EQU @NM00013 01143000 FSBRT01 EQU @NM00013 01144000 FSBRT00 EQU @NM00013 01145000 FSBLDCUF EQU FSBLDFLG 01146000 FSBLDSIF EQU FSBLDFLG 01147000 FSBLDSOF EQU FSBLDFLG 01148000 FSBLDEBF EQU FSBLDFLG 01149000 FSBLDBBF EQU FSBLDFLG 01150000 FSBLDFME EQU FSBLDFLG 01151000 FSBLDSCF EQU FSBLDFLG 01152000 FSBLDRMF EQU FSBLDFLG 01153000 FSBRH2 EQU FSBRHFLD+1 01154000 FSBRH1 EQU FSBRHFLD 01155000 FSBALIGN EQU FSBCOMBN 01156000 IOSPCIWA EQU IOSPCISC+44 01157000 IOSPCIRS EQU IOSPCISC+8 01158000 @NM00007 EQU IOSPCISC+4 01159000 @NM00006 EQU IOSPCISC 01160000 IOSWRNDR EQU IOSWTOWA+4 01161000 IOSWTOPT EQU IOSWTOWA+3 01162000 IOSWTOCP EQU IOSWTOWA+2 01163000 IOSWTOCH EQU IOSWTOWA 01164000 IOSATTWA EQU IOSATTSC+40 01165000 @NM00005 EQU IOSATTSC+24 01166000 IOSATTSN EQU IOSATTSC 01167000 ICNZCON6 EQU ICNZCONS+10 01168000 ICNZCON5 EQU ICNZCONS+8 01169000 ICNZCON4 EQU ICNZCONS+6 01170000 ICNZCON3 EQU ICNZCONS+4 01171000 ICNZCON2 EQU ICNZCONS+2 01172000 ICNZCON1 EQU ICNZCONS 01173000 ICNZATSA EQU ISTICNCB+676 01174000 ICNZX012 EQU ISTICNCB+675 01175000 ICNZX011 EQU ISTICNCB+674 01176000 ICNZX010 EQU ISTICNCB+672 01177000 ICNSRB EQU ISTICNCB+628 01178000 ICNIOSB EQU ISTICNCB+520 01179000 ICNZC001 EQU ISTICNCB+512 01180000 ICNZX013 EQU ISTICNCB+511 01181000 ICNZS010 EQU ICNZH002+1 01182000 ICNZS00F EQU ICNZH002+1 01183000 ICNZS00E EQU ICNZH002+1 01184000 ICNZS00D EQU ICNZH002+1 01185000 ICNZS00C EQU ICNZH002+1 01186000 ICNZS00B EQU ICNZH002+1 01187000 ICNZS01A EQU ICNZS00A 01188000 ICNZS019 EQU ICNZS009 01189000 ICNZS018 EQU ICNZS008 01190000 ICNZS017 EQU ICNZS007 01191000 ICNZS016 EQU ICNZS006 01192000 ICNZS005 EQU ICNZH002 01193000 ICNZS014 EQU ICNZS004 01194000 ICNZS013 EQU ICNZS003 01195000 ICNZS012 EQU ICNZS002 01196000 ICNZS001 EQU ICNZH002 01197000 ICNZF028 EQU ICNZFLAG 01198000 ICNZF027 EQU ICNZFLAG 01199000 ICNZF026 EQU ICNZFLAG 01200000 ICNZF025 EQU ICNZFLAG 01201000 ICNZF024 EQU ICNZFLAG 01202000 ICNZF023 EQU ICNZFLAG 01203000 ICNZF022 EQU ICNZFLAG 01204000 ICNZF021 EQU ICNZFLAG 01205000 ICNWORD5 EQU ISTICNCB+504 01206000 ICNMSIZE EQU ISTICNCB+500 01207000 ICNLCVTA EQU ISTICNCB+496 01208000 ICNDEBAD EQU ICNDIDEB+1 01209000 ICNDCBIF EQU ICNDIDEB 01210000 ICNUCBAD EQU ICNDCDEB+8 01211000 ICNAPPAD EQU ICNDCDEB+5 01212000 ICNEXSCL EQU ICNDCDEB+4 01213000 ICNDCBAD EQU ICNDCDEB+1 01214000 ICNDEBID EQU ICNDCDEB 01215000 @NM00065 EQU ISTICNCB+477 01216000 ICNERCNT EQU ISTICNCB+476 01217000 ICNZX002 EQU ISTICNCB+475 01218000 ICNZX001 EQU ISTICNCB+474 01219000 ICNZH001 EQU ISTICNCB+472 01220000 ICNZSW3R EQU ISTICNCB+468 01221000 ICNZSW2R EQU ISTICNCB+464 01222000 ICNZSW1R EQU ISTICNCB+460 01223000 ICNZS4VR EQU ISTICNCB+436 01224000 ICNZS4RR EQU ISTICNCB+432 01225000 ICNZS4FC EQU ISTICNCB+428 01226000 ICNZS4BC EQU ISTICNCB+424 01227000 ICNZS3VR EQU ISTICNCB+400 01228000 ICNZS3RR EQU ISTICNCB+396 01229000 ICNZS3FC EQU ISTICNCB+392 01230000 ICNZS3BC EQU ISTICNCB+388 01231000 ICNZS1RC EQU ICNZS1VR+36 01232000 ICNDIEW3 EQU ICNDIEWA+8 01233000 ICNDIEW2 EQU ICNDIEWA+4 01234000 ICNDIEW1 EQU ICNDIEWA 01235000 ICNZS1RR EQU ISTICNCB+344 01236000 ICNZS1FC EQU ISTICNCB+340 01237000 ICNZS1BC EQU ISTICNCB+336 01238000 ICNRSTIC EQU ICNZD004 01239000 ICNRDCOD EQU ICNRSCCW 01240000 ICNZD006 EQU ISTICNCB+312 01241000 ICNZD005 EQU ISTICNCB+304 01242000 ICNWSTIC EQU ICNZD002 01243000 ICNWRCOD EQU ICNWSCCW 01244000 ICNZV008 EQU ISTICNCB+284 01245000 ICNZV007 EQU ISTICNCB+280 01246000 ICNZV006 EQU ISTICNCB+276 01247000 ICNZV005 EQU ISTICNCB+272 01248000 ICNZV004 EQU ISTICNCB+268 01249000 ICNLSTIT EQU ISTICNCB+264 01250000 ICNLSTIF EQU ISTICNCB+260 01251000 ICNZV002 EQU ISTICNCB+256 01252000 ICNZV001 EQU ISTICNCB+252 01253000 ICNZV00A EQU ISTICNCB+249 01254000 ICNBUFF EQU ISTICNCB+248 01255000 ICNCPQ EQU ISTICNCB+244 01256000 ICNNICNA EQU ISTICNCB+240 01257000 @NM00064 EQU ICNFLAG2+2 01258000 ICNZF019 EQU ICNFLAG2+2 01259000 ICNZF018 EQU ICNFLAG2+2 01260000 ICNZF017 EQU ICNFLAG2+2 01261000 ICNZF016 EQU ICNFLAG2+2 01262000 ICNZF015 EQU ICNFLAG2+2 01263000 ICNMSG EQU ICNFLAG2+1 01264000 ICNCLOSE EQU ICNFLAG2+1 01265000 ICNZF014 EQU ICNFLAG2+1 01266000 ICNZF013 EQU ICNFLAG2+1 01267000 ICNZF012 EQU ICNFLAG2+1 01268000 ICNZF011 EQU ICNFLAG2+1 01269000 ICNZF00D EQU ICNFLAG2+1 01270000 ICNZF00B EQU ICNFLAG2+1 01271000 ICNZF00A EQU ICNFLAG2 01272000 ICNZF008 EQU ICNFLAG2 01273000 ICNZF007 EQU ICNFLAG2 01274000 ICNZF005 EQU ICNFLAG2 01275000 ICNZF004 EQU ICNFLAG2 01276000 ICNZF003 EQU ICNFLAG2 01277000 ICNZF002 EQU ICNFLAG2 01278000 ICNZF001 EQU ICNFLAG2 01279000 ICNLOCK EQU ISTICNCB+232 01280000 ICNLICNA EQU ISTICNCB+228 01281000 ICNRPH EQU ISTICNCB+120 01282000 ICNZV003 EQU ISTICNCB+116 01283000 ICNLAST EQU ISTICNCB+112 01284000 ICNLSTBT EQU ISTICNCB+108 01285000 ICNSIOQ EQU ISTICNCB+104 01286000 ICNFLAG1 EQU ISTICNCB+103 01287000 ICNZSW08 EQU ICNZSWS 01288000 ICNZSW07 EQU ICNZSWS 01289000 ICNZSW06 EQU ICNZSWS 01290000 ICNZSW05 EQU ICNZSWS 01291000 ICNZSW04 EQU ICNZSWS 01292000 ICNZSW03 EQU ICNZSWS 01293000 ICNZSW02 EQU ICNZSWS 01294000 ICNZSW01 EQU ICNZSWS 01295000 ICNZFF69 EQU ICNFFLAG 01296000 @NM00063 EQU ICNFFLAG 01297000 ICNZFF05 EQU ICNFFLAG 01298000 ICNZFF04 EQU ICNFFLAG 01299000 ICNZFF03 EQU ICNFFLAG 01300000 ICNZFF02 EQU ICNFFLAG 01301000 ICNZFF01 EQU ICNFFLAG 01302000 ICNZFF00 EQU ICNFFLAG 01303000 @NM00062 EQU ICNFLAG 01304000 ICNZCRIT EQU ICNFLAG 01305000 ICNSTART EQU ICNFLAG 01306000 ICNSLOW EQU ICNFLAG 01307000 ICNZF010 EQU ICNFLAG 01308000 ICNZF00F EQU ICNFLAG 01309000 ICNZF00E EQU ICNFLAG 01310000 ICNCONF EQU ICNZF006 01311000 ICNCKPAB EQU ICNCKFLD+1 01312000 ICNRSV07 EQU ICNCKFLD 01313000 ICNCKBIT EQU ICNCKFLD 01314000 ICNZPAB1 EQU ISTICNCB+64 01315000 ICNRSV01 EQU ISTICNCB+60 01316000 @NM00061 EQU ISTICNCB+56 01317000 @NM00060 EQU ISTICNCB+54 01318000 @NM00059 EQU @NM00058 01319000 ICNRRY EQU @NM00058 01320000 ICNLCLUS EQU @NM00058 01321000 ICNROLN EQU @NM00058 01322000 ICNRNRY EQU @NM00058 01323000 ICNLNKMD EQU ISTICNCB+52 01324000 ICNCUUA EQU ISTICNCB+48 01325000 ICNCB EQU ISTICNCB 01326000 ATCAOS EQU ISTATCVT+1552 01327000 ATCVIOPM EQU ATCAOSM+636 01328000 ATCTPMMI EQU ATCAOSM+632 01329000 ATCTPMPB EQU ATCAOSM+600 01330000 ATCRPLCT EQU ATCAOSM+594 01331000 ATCCRACT EQU ATCAOSM+592 01332000 ATCSRBCT EQU ATCAOSM+590 01333000 ATCRSV75 EQU ATCAOSM+589 01334000 ATCRSV66 EQU ATCZFLAG 01335000 ATCZF001 EQU ATCZFLAG 01336000 ATCTPCP1 EQU ATCAOSM+584 01337000 ATCTPCP0 EQU ATCAOSM+580 01338000 ATCAICTN EQU ATCAOSM+576 01339000 ATCZR01 EQU ATCAOSM+572 01340000 ATCMPLTA EQU ATCAOSM+568 01341000 ATCASCB EQU ATCAOSM+564 01342000 ATCAP86 EQU ATCAOSM+560 01343000 ATCAP85 EQU ATCAOSM+556 01344000 ATCAP84 EQU ATCAOSM+552 01345000 ATCAP83 EQU ATCAOSM+548 01346000 ATCAP82 EQU ATCAOSM+544 01347000 ATCAP69 EQU ATCAOSM+540 01348000 ATCAP66 EQU ATCAOSM+536 01349000 ATCAP62 EQU ATCAOSM+532 01350000 ATCAPC59 EQU ATCAOSM+528 01351000 ATCAP56 EQU ATCAOSM+524 01352000 ATCAP55 EQU ATCAOSM+520 01353000 ATCRCFY0 EQU ATCAOSM+516 01354000 ATCAP41 EQU ATCAOSM+512 01355000 ATCAPC25 EQU ATCAOSM+508 01356000 ATCAP23 EQU ATCAOSM+504 01357000 ATCTPSPB EQU ATCAOSM+472 01358000 ATCTRMBP EQU ATCAOSM+440 01359000 ATCPSTA EQU ATCAOSM+432 01360000 ATCSMABF EQU ATCAOSM+428 01361000 ATCSMAPR EQU ATCAOSM+424 01362000 ATCTPWQA EQU ATCAOSM+420 01363000 ATCSMAID EQU ATCAOSM+416 01364000 ATCSMARA EQU ATCAOSM+412 01365000 ATCCACXA EQU ATCAOSM+408 01366000 ATCZLAAB EQU ATCAOSM+404 01367000 ATCATA10 EQU ATCAOSM+400 01368000 ATCHLTCB EQU ATCAOSM+396 01369000 @NM00057 EQU ATCVTFLG 01370000 ATCVTACT EQU ATCVTFLG 01371000 ATCRPT40 EQU ATCAOSM+388 01372000 ATCRPT39 EQU ATCAOSM+384 01373000 ATCRPT38 EQU ATCAOSM+380 01374000 ATCRPT37 EQU ATCAOSM+376 01375000 ATCRPT36 EQU ATCAOSM+372 01376000 ATCRPT35 EQU ATCAOSM+368 01377000 ATCRPT34 EQU ATCAOSM+364 01378000 ATCRPT33 EQU ATCAOSM+360 01379000 ATCRPT32 EQU ATCAOSM+356 01380000 ATCRPT31 EQU ATCAOSM+352 01381000 ATCRPT30 EQU ATCAOSM+348 01382000 ATCRPT29 EQU ATCAOSM+344 01383000 ATCRPT28 EQU ATCAOSM+340 01384000 ATCRPT27 EQU ATCAOSM+336 01385000 ATCRPT26 EQU ATCAOSM+332 01386000 ATCRPT25 EQU ATCAOSM+328 01387000 ATCRPT24 EQU ATCAOSM+324 01388000 ATCRPT23 EQU ATCAOSM+320 01389000 ATCRPT22 EQU ATCAOSM+316 01390000 ATCRPT21 EQU ATCAOSM+312 01391000 ATCRPT20 EQU ATCAOSM+308 01392000 ATCRPT19 EQU ATCAOSM+304 01393000 ATCRPT18 EQU ATCAOSM+300 01394000 ATCRPT17 EQU ATCAOSM+296 01395000 ATCRPT16 EQU ATCAOSM+292 01396000 ATCRPT15 EQU ATCAOSM+288 01397000 ATCRPT14 EQU ATCAOSM+284 01398000 ATCRPT13 EQU ATCAOSM+280 01399000 ATCRPT12 EQU ATCAOSM+276 01400000 ATCRPT11 EQU ATCAOSM+272 01401000 ATCAP38 EQU ATCAOSM+268 01402000 ATCZDFJ0 EQU ATCAOSM+260 01403000 ATCAP51 EQU ATCAOSM+256 01404000 ATCZPAB2 EQU ATCAOSM+224 01405000 ATCZPAB1 EQU ATCAOSM+192 01406000 ATCZLFVT EQU ATCAOSM+188 01407000 ATCZLPVT EQU ATCAOSM+184 01408000 ATCZDVTX EQU ATCAOSM+180 01409000 ATCZDVTA EQU ATCAOSM+176 01410000 ATCZDVT9 EQU ATCAOSM+172 01411000 ATCZDVT8 EQU ATCAOSM+168 01412000 ATCZDVT7 EQU ATCAOSM+164 01413000 ATCRSV56 EQU ATCDAPVT+22 01414000 ATCDAPDG EQU ATCDAPVT+20 01415000 ATCDXCEA EQU ATCDAPVT+16 01416000 ATCDCEA EQU ATCDAPVT+12 01417000 ATCDPCIA EQU ATCDAPVT+8 01418000 ATCDSIOA EQU ATCDAPVT+4 01419000 ATCDEOEA EQU ATCDAPVT 01420000 ATCZLAEA EQU ATCLDAPP+16 01421000 ATCZLCEA EQU ATCLDAPP+12 01422000 ATCRSV17 EQU ATCLDAPP+8 01423000 ATCSMFRR EQU ATCLDAPP+4 01424000 ATCCDTID EQU ATCLDAPP 01425000 ATCZAEA EQU ATCICAPP+16 01426000 ATCZCEA EQU ATCICAPP+12 01427000 ATCCDTCB EQU ATCICAPP+8 01428000 ATCZSIOA EQU ATCICAPP+4 01429000 ATCCDRPH EQU ATCICAPP 01430000 ATCAP65 EQU ATCAOSM+96 01431000 ATCZDVT6 EQU ATCAOSM+92 01432000 ATCZDVT4 EQU ATCAOSM+88 01433000 ATCZDVT3 EQU ATCAOSM+84 01434000 ATCZDVT1 EQU ATCAOSM+80 01435000 ATCICNCB EQU ATCAOSM+76 01436000 ATCZFSVT EQU ATCAOSM+68 01437000 ATCAP64 EQU ATCAOSM+64 01438000 ATCAP63 EQU ATCAOSM+60 01439000 ATCAP61 EQU ATCAOSM+56 01440000 ATCAP58 EQU ATCAOSM+52 01441000 ATCAP57 EQU ATCAOSM+48 01442000 ATCAP54 EQU ATCAOSM+44 01443000 ATCAP53 EQU ATCAOSM+40 01444000 ATCAP52 EQU ATCAOSM+36 01445000 ATCAP32 EQU ATCAOSM+28 01446000 ATCAP31 EQU ATCAOSM+24 01447000 ATCAP12 EQU ATCAOSM+20 01448000 ATCAP11 EQU ATCAOSM+16 01449000 ATCCMTCB EQU ATCAOSM+12 01450000 ATCPRPH EQU ATCAOSM+8 01451000 ATCGSRBF EQU ATCGSRBG 01452000 ATCSRBRT EQU ATCAOSM 01453000 ATCRSVBB EQU ISTATCVT+908 01454000 ATCVDLOK EQU ISTATCVT+904 01455000 ATCVFPAB EQU ISTATCVT+872 01456000 ATCVDPAB EQU ISTATCVT+840 01457000 ATCIOECB EQU ISTATCVT+836 01458000 ATCINCW3 EQU ISTATCVT+832 01459000 ATCMODTB EQU ISTATCVT+828 01460000 ATCUSSPT EQU ISTATCVT+824 01461000 ATCSRTAB EQU ISTATCVT+820 01462000 @NM00056 EQU ISTATCVT+818 01463000 ATCNMCTR EQU ISTATCVT+816 01464000 ATCSEC51 EQU ATCSECST 01465000 ATCSEC40 EQU ATCSIPD+8 01466000 ATCSEC30 EQU ATCSIPD+4 01467000 ATCSEC21 EQU ATCSIPD 01468000 ATCSEC10 EQU ATCSOPD+4 01469000 ATCSEC01 EQU ATCSOPD 01470000 ATCPOIA EQU ISTATCVT+788 01471000 ATCPODVT EQU ISTATCVT+784 01472000 ATCS49XL EQU ISTATCVT+780 01473000 ATCS49XI EQU ISTATCVT+776 01474000 ATCLCLCT EQU ATCVLCNT+2 01475000 ATCRNCNT EQU ATCVLCNT 01476000 ATCCFEAD EQU ISTATCVT+768 01477000 ATCPTR00 EQU ISTATCVT+736 01478000 ATCRSV10 EQU ISTATCVT+704 01479000 ATCTACB EQU ISTATCVT+700 01480000 ATCVTINM EQU ISTATCVT+696 01481000 ATCTCLIM EQU ISTATCVT+692 01482000 ATCTCLOM EQU ISTATCVT+688 01483000 ATCVTIPB EQU ISTATCVT+656 01484000 ATCTCIPB EQU ISTATCVT+624 01485000 ATCTIPAB EQU ISTATCVT+592 01486000 ATCOCCCB EQU ISTATCVT+588 01487000 ATCOCCOB EQU ISTATCVT+584 01488000 ATCCDLAD EQU ISTATCVT+580 01489000 ATCCCLAD EQU ISTATCVT+576 01490000 ATCDLRPB EQU ISTATCVT+544 01491000 ATCPGPAB EQU ISTATCVT+512 01492000 ATCVPAB1 EQU ISTATCVT+480 01493000 ATCRSV97 EQU ISTATCVT+476 01494000 ATCRDTLK EQU ISTATCVT+472 01495000 ATCVOCLK EQU ISTATCVT+468 01496000 ATCCDFDN EQU ISTATCVT+464 01497000 ATCCDFIN EQU ISTATCVT+460 01498000 ATCDVTLK EQU ISTATCVT+456 01499000 ATCAP36 EQU ISTATCVT+452 01500000 ATCAP35 EQU ISTATCVT+448 01501000 ATCAP33 EQU ISTATCVT+444 01502000 ATCRSV99 EQU ISTATCVT+412 01503000 ATCLDECB EQU ISTATCVT+408 01504000 ATCLDNCS EQU ISTATCVT+404 01505000 ATCCDPTR EQU ISTATCVT+400 01506000 ATCADEL EQU ISTATCVT+396 01507000 ATCTODVT EQU ISTATCVT+392 01508000 ATCDEBCH EQU ISTATCVT+388 01509000 ATCHBSIZ EQU ATCHPGM+2 01510000 ATCHBFNO EQU ATCHPGM 01511000 ATCCRME EQU ISTATCVT+380 01512000 ATCRVCHS EQU ISTATCVT+372 01513000 ATCECTLP EQU ISTATCVT+368 01514000 ATCZDVTB EQU ISTATCVT+364 01515000 ATCECPRT EQU ISTATCVT+360 01516000 ATCVTLOD EQU ISTATCVT+356 01517000 ATCTRPAB EQU ISTATCVT+352 01518000 ATCMSGM EQU ISTATCVT+348 01519000 ATCMSGP EQU ISTATCVT+344 01520000 ATCEPT EQU ISTATCVT+340 01521000 ATCDVT EQU ISTATCVT+336 01522000 ATCTRCPT EQU ISTATCVT+332 01523000 ATCDVLOD EQU ISTATCVT+328 01524000 ATCALERT EQU ISTATCVT+324 01525000 ATCEPA EQU ISTATCVT+320 01526000 ATCSAF EQU ISTATCVT+318 01527000 ATCXRANG EQU ISTATCVT+317 01528000 ATCLAST EQU ATCSHRFG 01529000 ATCSHRTN EQU ISTATCVT+308 01530000 ATCUEP EQU ISTATCVT+304 01531000 ATCOCRT EQU ISTATCVT+300 01532000 ATCCSMA EQU ATCCSMR 01533000 ATCESC02 EQU ISTATCVT+292 01534000 ATCESC01 EQU ISTATCVT+288 01535000 ATCCDFND EQU ISTATCVT+284 01536000 ATCCDDEL EQU ISTATCVT+280 01537000 ATCCDADD EQU ISTATCVT+276 01538000 ATCMNT EQU ISTATCVT+272 01539000 ATCRSV16 EQU ISTATCVT+270 01540000 ATCMAXID EQU ISTATCVT+269 01541000 ATCMSGSP EQU ATCCOM+268 01542000 ATCCIDM EQU ATCCOM+266 01543000 ATCACTRM EQU ATCCOM+264 01544000 ATCNERAP EQU ATCCOM+260 01545000 ATCNESAL EQU ATCCOM+256 01546000 ATCRCC65 EQU ATCCOM+252 01547000 ATCRCC26 EQU ATCCOM+248 01548000 ATCRCC63 EQU ATCCOM+244 01549000 ATCRSV11 EQU ATCCOM+242 01550000 ATCVTMID EQU ATCCOM+240 01551000 ATCAPOST EQU ATCCOM+236 01552000 ATCNERFN EQU ATCCOM+232 01553000 ATCNERNE EQU ATCCOM+228 01554000 ATCNERCV EQU ATCCOM+224 01555000 ATCNERST EQU ATCCOM+220 01556000 ATCDCC61 EQU ATCCOM+216 01557000 ATCDCC60 EQU ATCCOM+212 01558000 ATCSRTDF EQU ATCCOM+208 01559000 ATCSRTAD EQU ATCCOM+204 01560000 ATCFIRA EQU ATCCOM+200 01561000 ATCSMBQ EQU ATCCOM+196 01562000 ATCSMRC EQU ATCCOM+192 01563000 ATCSMRS EQU ATCCOM+188 01564000 ATCSMQU EQU ATCCOM+184 01565000 ATCSMRQ EQU ATCCOM+180 01566000 ATCACDA EQU ATCCOM+176 01567000 ATCSTMA EQU ATCCOM+172 01568000 ATCFRSTR EQU ATCCOM+168 01569000 ATCGTSTR EQU ATCCOM+164 01570000 ATCREADA EQU ATCCOM+160 01571000 ATCALOAD EQU ATCCOM+156 01572000 ATCBLDLA EQU ATCCOM+152 01573000 ATCFBRPH EQU ATCCOM+148 01574000 ATCBFTRC EQU ATCCOM+144 01575000 ATCTPBUF EQU ATCTHTRC 01576000 ATCREMOV EQU ATCCOM+136 01577000 ATCADD EQU ATCCOM+132 01578000 ATCBPDA EQU ATCCOM+128 01579000 ATCDVTPT EQU ATCCOM+124 01580000 ATCFEPT EQU ATCCOM+120 01581000 ATCFDVT EQU ATCCOM+116 01582000 ATCCONFT EQU ATCCOM+112 01583000 ATCPTCHA EQU ATCCOM+108 01584000 ATCAUTHA EQU ATCCOM+104 01585000 ATCACCTA EQU ATCCOM+100 01586000 ATCRDTH EQU ATCCOM+96 01587000 ATCFRSCH EQU ATCCOM+92 01588000 ATCFSB EQU ATCCOM+88 01589000 ATCHLTMS EQU ATCCOM+84 01590000 ATCECPRM EQU ATCCOM+80 01591000 ATCECNET EQU ATCCOM+76 01592000 ATCECOPC EQU ATCCOM+72 01593000 ATCVPARM EQU ATCCOM+68 01594000 ATCECVRQ EQU ATCCOM+64 01595000 ATCECSES EQU ATCCOM+60 01596000 ATCOCHA EQU ATCCOM+56 01597000 ATCDSPLQ EQU ATCCOM+52 01598000 ATCECDSP EQU ATCCOM+48 01599000 ATCVARYQ EQU ATCCOM+44 01600000 ATCECVRY EQU ATCCOM+40 01601000 ATCHALTQ EQU ATCCOM+36 01602000 ATCECHLT EQU ATCCOM+32 01603000 ATCMODQ EQU ATCCOM+28 01604000 ATCECMOD EQU ATCCOM+24 01605000 ATCASCHD EQU ATCCOM+20 01606000 ATCSRT EQU ATCCOM+16 01607000 ATCRDT EQU ATCCOM+12 01608000 ATCDCFRR EQU ATCCOM+8 01609000 ATCAPI EQU ATCCOM+4 01610000 ATCRSV04 EQU ATCSTAT4 01611000 ATCNCSD EQU ATCSTAT4 01612000 ATCMTST EQU ATCSTAT4 01613000 ATCTPRT EQU ATCSTAT4 01614000 ATCPRTAT EQU ATCSTAT4 01615000 @NM00055 EQU ATCPOFLG 01616000 ATCPOUNS EQU ATCPOFLG 01617000 ATCHSDMF EQU ATCSTFLG 01618000 @NM00054 EQU ATCSTAT1 01619000 ATCINHLT EQU ATCSTAT1 01620000 ATCNETSL EQU ATCSTAT1 01621000 ATCQKHLT EQU ATCSTAT1 01622000 ATCSNHLT EQU ATCSTAT1 01623000 ATCACTIV EQU ATCSTAT1 01624000 ATCSTART EQU ATCSTAT1 01625000 DYPPAB EQU ISTDYPAB+16 01626000 DYPRSV01 EQU ISTDYPAB+12 01627000 DYPTSKID EQU ISTDYPAB+8 01628000 DYPCHAIN EQU ISTDYPAB+4 01629000 DYPFLGS EQU ISTDYPAB+2 01630000 DYPLNGTH EQU ISTDYPAB+1 01631000 DYPTYPE EQU ISTDYPAB 01632000 ZPSZDFQR EQU ISTZPSVT+80 01633000 ZPSZDFPR EQU ISTZPSVT+76 01634000 ZPSZDFXR EQU ISTZPSVT+72 01635000 ZPSZIF2B EQU ISTZPSVT+68 01636000 ZPSZAF2B EQU ISTZPSVT+64 01637000 ZPSZDFMB EQU ISTZPSVT+60 01638000 ZPSZDFMF EQU ISTZPSVT+56 01639000 ZPSZDFNB EQU ISTZPSVT+52 01640000 @NM00053 EQU ISTZPSVT+48 01641000 ZPSZDFF0 EQU ISTZPSVT+44 01642000 ZPSZTRTT EQU ISTZPSVT+40 01643000 ZPSZBFOB EQU ISTZPSVT+36 01644000 ZPSZBFMB EQU ISTZPSVT+32 01645000 ZPSZBFZ0 EQU ISTZPSVT+28 01646000 ZPSZBFY0 EQU ISTZPSVT+24 01647000 ZPSZDFI0 EQU ISTZPSVT+20 01648000 ZPSZDFB0 EQU ISTZPSVT+16 01649000 ZPSZDFH0 EQU ISTZPSVT+12 01650000 ZPSZDFC0 EQU ISTZPSVT+4 01651000 ZPSZDFA0 EQU ISTZPSVT 01652000 ZRCZDFWB EQU ISTZRCVT+120 01653000 ZRCZIFJB EQU ISTZRCVT+116 01654000 ZRCZKFCB EQU ISTZRCVT+112 01655000 ZRCZKFBB EQU ISTZRCVT+108 01656000 ZRCZIFTB EQU ISTZRCVT+104 01657000 ZRCZIFSB EQU ISTZRCVT+100 01658000 ZRCZIFX0 EQU ISTZRCVT+96 01659000 ZRCZIFIB EQU ISTZRCVT+92 01660000 ZRCZIFAB EQU ISTZRCVT+88 01661000 ZRCZIFGB EQU ISTZRCVT+84 01662000 ZRCZIFHB EQU ISTZRCVT+80 01663000 ZRCZIFBB EQU ISTZRCVT+76 01664000 ZRCZIFCB EQU ISTZRCVT+72 01665000 ZRCZIFDB EQU ISTZRCVT+68 01666000 ZRCZIFEB EQU ISTZRCVT+64 01667000 ZRCRSV01 EQU ISTZRCVT+60 01668000 ZRCZGFBB EQU ISTZRCVT+56 01669000 ZRCZIFQB EQU ISTZRCVT+52 01670000 ZRCZIFNB EQU ISTZRCVT+48 01671000 ZRCZIFOB EQU ISTZRCVT+44 01672000 ZRCZIFMB EQU ISTZRCVT+40 01673000 ZRCZIFKB EQU ISTZRCVT+36 01674000 ZRCZIFLB EQU ISTZRCVT+32 01675000 @NM00052 EQU ISTZRCVT+28 01676000 @NM00051 EQU ISTZRCVT+24 01677000 @NM00050 EQU ISTZRCVT+20 01678000 @NM00049 EQU ISTZRCVT+16 01679000 @NM00048 EQU ISTZRCVT+12 01680000 ZRCZJF0B EQU ISTZRCVT+8 01681000 ZRCZIF0B EQU ISTZRCVT 01682000 CRACHAIN EQU ISTCRA+928 01683000 CRARSV02 EQU ISTCRA+924 01684000 CRARSV01 EQU ISTCRA+920 01685000 CRABFTBA EQU CRABUFA 01686000 CRAMASK EQU CRASVC+64 01687000 CRAHSIZ EQU CRASVC+60 01688000 CRAASCRR EQU CRASVC 01689000 CRAPROCR EQU ISTCRA+312 01690000 CRAPSS EQU ISTCRA+160 01691000 CRARPH EQU ISTCRA+52 01692000 CRALAPTR EQU CRABASIC+48 01693000 CRAL9PTR EQU CRABASIC+44 01694000 CRAL8PTR EQU CRABASIC+40 01695000 CRAL7PTR EQU CRABASIC+36 01696000 CRAL6PTR EQU CRABASIC+32 01697000 CRAL5PTR EQU CRABASIC+28 01698000 CRAL4PTR EQU CRABASIC+24 01699000 CRAL3PTR EQU CRABASIC+20 01700000 CRAL2PTR EQU CRABASIC+16 01701000 CRAL1PTR EQU CRABASIC+12 01702000 CRALEV01 EQU CRALKACT+3 01703000 CRALEV02 EQU CRALKACT+3 01704000 CRALEV03 EQU CRALKACT+3 01705000 CRALEV04 EQU CRALKACT+3 01706000 CRALEV05 EQU CRALKACT+3 01707000 CRALEV06 EQU CRALKACT+3 01708000 CRALEV07 EQU CRALKACT+3 01709000 CRALEV08 EQU CRALKACT+3 01710000 CRALEV09 EQU CRALKACT+2 01711000 CRALEV10 EQU CRALKACT+2 01712000 CRALEV11 EQU CRALKACT+2 01713000 CRALEV12 EQU CRALKACT+2 01714000 CRALEV13 EQU CRALKACT+2 01715000 CRALEV14 EQU CRALKACT+2 01716000 CRALEV15 EQU CRALKACT+2 01717000 CRALEV16 EQU CRALKACT+2 01718000 CRALEV17 EQU CRALKACT+1 01719000 CRALEV18 EQU CRALKACT+1 01720000 CRALEV19 EQU CRALKACT+1 01721000 CRALEV20 EQU CRALKACT+1 01722000 CRALEV21 EQU CRALKACT+1 01723000 CRALEV22 EQU CRALKACT+1 01724000 CRALEV23 EQU CRALKACT+1 01725000 CRALEV24 EQU CRALKACT+1 01726000 CRALEV25 EQU CRALKACT 01727000 CRALEV26 EQU CRALKACT 01728000 CRALEV27 EQU CRALKACT 01729000 CRALEV28 EQU CRALKACT 01730000 CRALEV29 EQU CRALKACT 01731000 CRALEV30 EQU CRALKACT 01732000 CRALEV31 EQU CRALKACT 01733000 CRALEV32 EQU CRALKACT 01734000 CRAFRR EQU CRAHDR+4 01735000 @NM00047 EQU ISTAPCRR+137 01736000 @NM00046 EQU APC57FLG 01737000 APCNREL EQU APC57FLG 01738000 APCRECRA EQU APC57FLG 01739000 @NM00045 EQU APC54FLG 01740000 APCRLST EQU APC54FLG 01741000 APCPR153 EQU APC53FLG 01742000 @NM00044 EQU APC52FLG 01743000 APCWKF EQU APC52FLG 01744000 APCNWF EQU APC52FLG 01745000 APCRDQ EQU APC52FLG 01746000 APCQENQ EQU APC52FLG 01747000 APCSMSR EQU APC52FLG 01748000 APCCKRQ EQU APC52FLG 01749000 @NM00043 EQU APC31FLG 01750000 APCSORT EQU APC31FLG 01751000 APCRESCH EQU APC31FLG 01752000 APCTPXIT EQU APC31FLG 01753000 APCSWTWD EQU ISTAPCRR+128 01754000 APCSAV2 EQU ISTAPCRR+124 01755000 APCSAV1 EQU ISTAPCRR+120 01756000 APCRETCD EQU APCCOMF+2 01757000 @NM00042 EQU APCCOMF1+1 01758000 APCZLBER EQU APCCOMF1 01759000 APCEXIT EQU APCCOMF1 01760000 APCRELR EQU APCCOMF1 01761000 APCIRB2 EQU APCCOMF1 01762000 APCIRB1 EQU APCCOMF1 01763000 APCSMCR EQU APCCOMF1 01764000 APCUETSK EQU APCCOMF1 01765000 APCSSTSK EQU APCCOMF1 01766000 APCESTAL EQU APCSAVE 01767000 APCFRRPM EQU ISTAPCRR+40 01768000 APCQWFO EQU ISTAPCRR+36 01769000 APCPABSV EQU ISTAPCRR+32 01770000 APCRTRN EQU ISTAPCRR+28 01771000 APCTCBA EQU ISTAPCRR+24 01772000 APCPSTA EQU ISTAPCRR+20 01773000 @NM00041 EQU APCRFLG+1 01774000 APC31R EQU APCRFLG 01775000 APC58R EQU APCRFLG 01776000 APC57R EQU APCRFLG 01777000 APC56R EQU APCRFLG 01778000 APC54R EQU APCRFLG 01779000 APC53R EQU APCRFLG 01780000 APC52R EQU APCRFLG 01781000 APC51R EQU APCRFLG 01782000 @NM00040 EQU APCATFLG+1 01783000 APC31E EQU APCATFLG 01784000 APC58E EQU APCATFLG 01785000 APC57E EQU APCATFLG 01786000 APC56E EQU APCATFLG 01787000 APC54E EQU APCATFLG 01788000 APC53E EQU APCATFLG 01789000 APC52E EQU APCATFLG 01790000 APC51E EQU APCATFLG 01791000 APCHDRSV EQU ISTAPCRR 01792000 ASCPSREG EQU ISTASCRR+44 01793000 ASCUSR01 EQU ASCUSRGS+12 01794000 ASCUSR00 EQU ASCUSRGS+8 01795000 ASCUSR15 EQU ASCUSRGS+4 01796000 ASCUSR14 EQU ASCUSRGS 01797000 ASCETRYA EQU ISTASCRR+24 01798000 ASCKEY EQU ISTASCRR+23 01799000 ASCAUDIT EQU ASCFLG3 01800000 ASCFBDUD EQU ASCFLG3 01801000 ASCLLKF EQU ASCFLG3 01802000 ASCKEYF EQU ASCFLG3 01803000 ASCFBDAL EQU ASCFLG3 01804000 ASCFSRGT EQU ASCFLG3 01805000 ASCICR EQU ASCFLG2 01806000 ASCFSRIC EQU ASCFLG2 01807000 ASCFBDIC EQU ASCFLG2 01808000 ASCFBAIC EQU ASCFLG2 01809000 ASCPASTR EQU ASCFLG1 01810000 ASCFSR EQU ASCFLG1 01811000 ASCFBD EQU ASCFLG1 01812000 ASCFBA EQU ASCFLG1 01813000 ASCPFCRR EQU ISTASCRR 01814000 CCFRSVD1 EQU CFCCRT 01815000 CCFCR2 EQU CFCCRT 01816000 CCFCRP EQU CFCCRT 01817000 CCFCR1 EQU CFCCRT 01818000 CCFCS2 EQU CFCCRT 01819000 CCFCS1 EQU CFCCRT 01820000 NCFRSVD EQU CFCNTRD 01821000 NCFCR2 EQU CFCNTRD 01822000 NCFCRP EQU CFCNTRD 01823000 NCFCR1 EQU CFCNTRD 01824000 NCFCS2 EQU CFCNTRD 01825000 NCFCS1 EQU CFCNTRD 01826000 PFCRSV01 EQU ISTPFCRR+13 01827000 PFCFTA EQU ISTPFCRR+12 01828000 CRRFRR EQU PFCFRRO 01829000 CRRCHAIN EQU PFCCRRO 01830000 CRRLEN EQU PFCCRRLN 01831000 PFCRSV10 EQU PFCCRR+1 01832000 CRRID EQU PFCCRRID 01833000 DNCZC001 EQU DNCOS+40 01834000 DNCLOCK EQU DNCOS+36 01835000 DNCZV005 EQU DNCOS+32 01836000 DNCZV004 EQU DNCOS+28 01837000 DNCZV003 EQU DNCOS+24 01838000 DNCZV002 EQU DNCOS+21 01839000 DNCZX001 EQU DNCOS+20 01840000 DNCZV001 EQU DNCOS+17 01841000 DNCZX003 EQU DNCOS+16 01842000 DNCZV000 EQU DNCOS+12 01843000 DNCSESCQ EQU DNCOS+8 01844000 DNCSESIQ EQU DNCOS+4 01845000 DNCACIP EQU DNCBSCED+1 01846000 DNCLICP EQU DNCBSCED 01847000 DNCZPSRD EQU DNCZFLGS+1 01848000 DNCPSOL EQU DNCZFLGS+1 01849000 DNCZF007 EQU DNCZFLGS+1 01850000 DNCZF005 EQU DNCZFLGS+1 01851000 DNCZF004 EQU DNCZFLGS+1 01852000 DNCZF003 EQU DNCZFLGS 01853000 DNCZF002 EQU DNCZFLGS 01854000 DNCZRSCH EQU DNCZFLGS 01855000 DNCCONT EQU DNCZFLGS 01856000 DNCINVIT EQU DNCZFLGS 01857000 DNCZF001 EQU DNCZFLGS 01858000 DNCMODE EQU ISTDNCB+49 01859000 DNCBHSET EQU ISTDNCB+48 01860000 DNCNCB EQU ISTDNCB 01861000 NCBRSV01 EQU ISTNCB+46 01862000 NCBSWDAF EQU ISTNCB+44 01863000 NCBDEVCH EQU ISTNCB+36 01864000 NCBFMCBP EQU ISTNCB+32 01865000 NCBLTRC EQU ISTNCB+30 01866000 NCBRVPT1 EQU ISTNCB+28 01867000 NCBNMLLN EQU NCBFLAGS+3 01868000 @NM00039 EQU NCBFLAG1 01869000 @NM00038 EQU NCBFLAG1 01870000 NCBTTF EQU NCBFLAG1 01871000 NCBRSYNC EQU NCBFLAG1 01872000 NCBRSTRT EQU NCBFLAG1 01873000 NCBCONF EQU NCBFLAG1 01874000 NCBSNAI EQU NCBFLAG1 01875000 NCBFLTIO EQU NCBFTRIO 01876000 NCBCSTAT EQU NCBFLAGS 01877000 NCBNCSL EQU ISTNCB+22 01878000 NCBNCBA EQU ISTNCB+20 01879000 NCBFMCBA EQU ISTNCB+16 01880000 NCBNSNA EQU ISTNCB+12 01881000 NCBTSKID EQU ISTNCB+8 01882000 NCBRDTE EQU ISTNCB+4 01883000 NCBDAF EQU ISTNCB+2 01884000 NCBLNGTH EQU ISTNCB+1 01885000 NCBTYPE EQU ISTNCB 01886000 ZIBLNG1 EQU ZIBFSM 01887000 ZIBCHAIN EQU ISTZIBUF 01888000 TH2SNF EQU ISTTH2+4 01889000 TH2OAF EQU ISTTH2+3 01890000 TH2DAF EQU ISTTH2+2 01891000 TH2CDF EQU TH2FLAG1+1 01892000 TH2SEF EQU TH2FLAG1+1 01893000 TH2PYF EQU TH2FLAG1+1 01894000 TH2AFI EQU TH2FLAG1 01895000 TH2PSI EQU TH2FLAG1 01896000 TH2CMPLI EQU TH2MPF 01897000 TH2RHI EQU TH2MPF 01898000 TH2FID EQU TH2FLAG1 01899000 THDCF EQU ISTTH+8 01900000 THSNF EQU ISTTH+6 01901000 THOAF EQU ISTTH+4 01902000 THDAF EQU ISTTH+2 01903000 THCDF EQU THFLGB 01904000 THSEF EQU THFLGB 01905000 THPYF EQU THFLGB 01906000 THAFI EQU THFLGA 01907000 THPSI EQU THFLGA 01908000 THCMPLI EQU THMPF 01909000 THRHI EQU THMPF 01910000 THFID EQU THFLAG1 01911000 LHVDATA EQU ISTLH+4 01912000 LHFUNCT EQU ISTLH+3 01913000 @NM00032 EQU ISTLH+2 01914000 LHLEN EQU ISTLH 01915000 RPHNEXPO EQU ISTRPH+104 01916000 RPHSAV16 EQU RPHWORK+60 01917000 RPHSAV15 EQU RPHWORK+56 01918000 RPHSAV14 EQU RPHWORK+52 01919000 RPHSAV13 EQU RPHWORK+48 01920000 RPHSAV12 EQU RPHWORK+44 01921000 RPHSAV11 EQU RPHWORK+40 01922000 RPHSAV10 EQU RPHWORK+36 01923000 RPHSAVE9 EQU RPHWORK+32 01924000 RPHSAVE8 EQU RPHWORK+28 01925000 RPHSAVE7 EQU RPHWORK+24 01926000 RPHSAVE6 EQU RPHWORK+20 01927000 RPHSAVE5 EQU RPHWORK+16 01928000 RPHSAVE4 EQU RPHWORK+12 01929000 RPHSAVE3 EQU RPHWORK+8 01930000 RPHSAVE2 EQU RPHWORK+4 01931000 RPHSHALF EQU RPHSAVE1+2 01932000 RPHSBIT8 EQU RPHSBITS 01933000 RPHSBIT7 EQU RPHSBITS 01934000 RPHSBIT6 EQU RPHSBITS 01935000 RPHSBIT5 EQU RPHSBITS 01936000 RPHSBIT4 EQU RPHSBITS 01937000 RPHSBIT3 EQU RPHSBITS 01938000 RPHSBIT2 EQU RPHSBITS 01939000 RPHSBIT1 EQU RPHSBITS 01940000 RPHSBYTE EQU RPHSAVE1 01941000 RPHPABQP EQU RPHPABQA+1 01942000 RPHPABFG EQU RPHPABQA 01943000 RPHSRP34 EQU RPHSRPRM+2 01944000 RPHSRP12 EQU RPHSRPRM 01945000 RPHWEGT EQU RPHCSPA 01946000 RPHMAJCB EQU ISTRPH+21 01947000 RPHPABOF EQU ISTRPH+20 01948000 RPHRESUM EQU RPHRESMA+1 01949000 RPHRSV01 EQU RPHWPFLG 01950000 RPHPURGE EQU RPHWPFLG 01951000 RPHPT EQU RPHWPFLG 01952000 RPHWT EQU RPHWPFLG 01953000 RPHRSKEY EQU RPHWPFLG 01954000 RPHDVTA EQU ISTRPH+12 01955000 RPHTIK EQU RPHTSKID+3 01956000 @NM00031 EQU RPHTSKID 01957000 RPHRPHAP EQU RPHRPHA+1 01958000 @NM00030 EQU RPHRPHA 01959000 RPHGATE EQU RPHRPHA 01960000 @NM00029 EQU RPHFLGB 01961000 RPHRLCRA EQU RPHFLGB 01962000 RPHNRSAV EQU RPHFLGB 01963000 RPHPGCMP EQU RPHFLGB 01964000 RPHFBAPS EQU RPHFLGB 01965000 RPHBSSP EQU RPHFLGB 01966000 RPHLOCK EQU RPHFLGB 01967000 RPHFNFLG EQU RPHFSTLC 01968000 RPHMLTCP EQU RPHFLAGS 01969000 RPHSMCLR EQU RPHFLAGS 01970000 RPHSMTYP EQU RPHFLAGS 01971000 RPHSMQ EQU RPHFLAGS 01972000 RPHAUTEX EQU RPHAPTYP 01973000 RPHSPGIN EQU RPHFLAGS 01974000 RPHOGIND EQU RPHFLAGS 01975000 RPHLNGTH EQU ISTRPH+1 01976000 RPHTYPE EQU ISTRPH 01977000 ZCRRU EQU ZCRRHRU+3 01978000 ZCRRH EQU ZCRRHRU 01979000 ZCRWORDA EQU ISTZCRR+477 01980000 ZCRCMNRC EQU ISTZCRR+476 01981000 ZCRRSV97 EQU ZCRENTER+18 01982000 ZCREIC2B EQU ZCRENTER+18 01983000 ZCREAC2B EQU ZCRENTER+18 01984000 ZCRELCAB EQU ZCRENTER+18 01985000 ZCREDCMF EQU ZCRENTER+18 01986000 ZCREBCIF EQU ZCRENTER+18 01987000 ZCREICSG EQU ZCRENTER+18 01988000 ZCREDCK0 EQU ZCRENTER+18 01989000 ZCRECFY0 EQU ZCRENTER+17 01990000 ZCREKCCB EQU ZCRENTER+17 01991000 ZCREDCNB EQU ZCRENTER+17 01992000 ZCREICOE EQU ZCRENTER+17 01993000 ZCREBCNB EQU ZCRENTER+17 01994000 ZCREBC0L EQU ZCRENTER+17 01995000 ZCREBCAL EQU ZCRENTER+17 01996000 ZCREDCQR EQU ZCRENTER+17 01997000 ZCREDCPR EQU ZCRENTER+16 01998000 ZCREBCSB EQU ZCRENTER+16 01999000 ZCREAC1R EQU ZCRENTER+16 02000000 ZCRECCCI EQU ZCRENTER+16 02001000 ZCRECCAI EQU ZCRENTER+16 02002000 ZCRECCBI EQU ZCRENTER+16 02003000 ZCREBCAR EQU ZCRENTER+16 02004000 ZCREBCDR EQU ZCRENTER+16 02005000 ZCREBCBR EQU ZCRENTER+15 02006000 ZCREDCXR EQU ZCRENTER+15 02007000 ZCREDCWB EQU ZCRENTER+15 02008000 ZCREDCWR EQU ZCRENTER+15 02009000 ZCREKCCN EQU ZCRENTER+15 02010000 ZCREKCBN EQU ZCRENTER+15 02011000 ZCREKCBB EQU ZCRENTER+15 02012000 ZCREJC0B EQU ZCRENTER+15 02013000 ZCREJCDB EQU ZCRENTER+14 02014000 ZCREJCCB EQU ZCRENTER+14 02015000 ZCREJCBB EQU ZCRENTER+14 02016000 ZCREJCAB EQU ZCRENTER+14 02017000 ZCREIC1B EQU ZCRENTER+14 02018000 ZCREIC0B EQU ZCRENTER+14 02019000 ZCREICX0 EQU ZCRENTER+14 02020000 ZCREICWB EQU ZCRENTER+14 02021000 ZCREICVB EQU ZCRENTER+13 02022000 ZCREICUB EQU ZCRENTER+13 02023000 ZCREICTB EQU ZCRENTER+13 02024000 ZCREICSC EQU ZCRENTER+13 02025000 ZCREICSB EQU ZCRENTER+13 02026000 ZCREICRB EQU ZCRENTER+13 02027000 ZCREICQB EQU ZCRENTER+13 02028000 ZCREICQA EQU ZCRENTER+13 02029000 ZCREICOB EQU ZCRENTER+12 02030000 ZCREICOA EQU ZCRENTER+12 02031000 ZCREICNB EQU ZCRENTER+12 02032000 ZCREICNA EQU ZCRENTER+12 02033000 ZCREICMB EQU ZCRENTER+12 02034000 ZCREICLB EQU ZCRENTER+12 02035000 ZCREICKG EQU ZCRENTER+12 02036000 ZCREICKE EQU ZCRENTER+12 02037000 ZCREICKB EQU ZCRENTER+11 02038000 ZCREICJB EQU ZCRENTER+11 02039000 ZCREICID EQU ZCRENTER+11 02040000 ZCREICIB EQU ZCRENTER+11 02041000 ZCREICGB EQU ZCRENTER+11 02042000 ZCREICEB EQU ZCRENTER+11 02043000 ZCREICDB EQU ZCRENTER+11 02044000 ZCREICCI EQU ZCRENTER+10 02045000 ZCREICCB EQU ZCRENTER+10 02046000 ZCREICBI EQU ZCRENTER+10 02047000 ZCREICBB EQU ZCRENTER+10 02048000 ZCREICAB EQU ZCRENTER+10 02049000 ZCREICAA EQU ZCRENTER+10 02050000 ZCREHCAN EQU ZCRENTER+10 02051000 ZCREGC0B EQU ZCRENTER+10 02052000 ZCREGC0A EQU ZCRENTER+9 02053000 ZCREGCLA EQU ZCRENTER+9 02054000 ZCREGCEB EQU ZCRENTER+9 02055000 ZCREGCDB EQU ZCRENTER+9 02056000 @NM00028 EQU ZCRENTER+9 02057000 ZCREGCBB EQU ZCRENTER+9 02058000 ZCREGCAB EQU ZCRENTER+9 02059000 ZCREFCEB EQU ZCRENTER+9 02060000 ZCREFCEA EQU ZCRENTER+8 02061000 ZCREECTA EQU ZCRENTER+8 02062000 ZCREECEA EQU ZCRENTER+8 02063000 ZCREECDA EQU ZCRENTER+8 02064000 ZCREECCB EQU ZCRENTER+8 02065000 ZCREECCA EQU ZCRENTER+8 02066000 ZCREECBB EQU ZCRENTER+8 02067000 ZCREECBA EQU ZCRENTER+8 02068000 ZCREDCMB EQU ZCRENTER+7 02069000 ZCREDCL0 EQU ZCRENTER+7 02070000 ZCREDCKB EQU ZCRENTER+7 02071000 ZCREDCKA EQU ZCRENTER+7 02072000 ZCREDCJ0 EQU ZCRENTER+7 02073000 ZCREDCI0 EQU ZCRENTER+7 02074000 ZCREDCH0 EQU ZCRENTER+7 02075000 ZCREDCF0 EQU ZCRENTER+7 02076000 ZCREDCE0 EQU ZCRENTER+6 02077000 ZCREDCD0 EQU ZCRENTER+6 02078000 ZCREDCC0 EQU ZCRENTER+6 02079000 ZCREDCB0 EQU ZCRENTER+6 02080000 ZCREDCA0 EQU ZCRENTER+6 02081000 ZCRECC2B EQU ZCRENTER+6 02082000 ZCRECC1B EQU ZCRENTER+6 02083000 ZCRECC1A EQU ZCRENTER+6 02084000 ZCRECC0B EQU ZCRENTER+5 02085000 ZCRECC0A EQU ZCRENTER+5 02086000 ZCREBC0B EQU ZCRENTER+5 02087000 ZCREBC0A EQU ZCRENTER+5 02088000 ZCREBCZ0 EQU ZCRENTER+5 02089000 ZCREBCY0 EQU ZCRENTER+5 02090000 ZCREBCX0 EQU ZCRENTER+5 02091000 ZCREBCXA EQU ZCRENTER+5 02092000 ZCREBCSC EQU ZCRENTER+4 02093000 ZCREBCRB EQU ZCRENTER+4 02094000 ZCREBCRA EQU ZCRENTER+4 02095000 ZCREBCQB EQU ZCRENTER+4 02096000 ZCREBCPB EQU ZCRENTER+4 02097000 ZCREBCOB EQU ZCRENTER+4 02098000 ZCREBCNE EQU ZCRENTER+4 02099000 ZCREBCND EQU ZCRENTER+4 02100000 ZCREBCMB EQU ZCRENTER+3 02101000 ZCREBCLB EQU ZCRENTER+3 02102000 ZCREBCLA EQU ZCRENTER+3 02103000 ZCREBCKB EQU ZCRENTER+3 02104000 ZCREBCKA EQU ZCRENTER+3 02105000 ZCREBCJB EQU ZCRENTER+3 02106000 ZCREBCJA EQU ZCRENTER+3 02107000 ZCREBCID EQU ZCRENTER+3 02108000 ZCREBCIB EQU ZCRENTER+2 02109000 ZCREBCIA EQU ZCRENTER+2 02110000 ZCREBCHB EQU ZCRENTER+2 02111000 ZCREBCHA EQU ZCRENTER+2 02112000 ZCREBCGB EQU ZCRENTER+2 02113000 ZCREBCGA EQU ZCRENTER+2 02114000 ZCREBCFB EQU ZCRENTER+2 02115000 ZCREBCFA EQU ZCRENTER+2 02116000 ZCREBCEB EQU ZCRENTER+1 02117000 ZCREBCDI EQU ZCRENTER+1 02118000 ZCREBCCB EQU ZCRENTER+1 02119000 ZCREBCBI EQU ZCRENTER+1 02120000 ZCREBCBB EQU ZCRENTER+1 02121000 ZCREBCBA EQU ZCRENTER+1 02122000 ZCREBCAM EQU ZCRENTER+1 02123000 ZCREBCAI EQU ZCRENTER+1 02124000 ZCREBCAG EQU ZCRENTER 02125000 ZCREBCAE EQU ZCRENTER 02126000 ZCREBCAB EQU ZCRENTER 02127000 ZCREBCAA EQU ZCRENTER 02128000 ZCREAC1B EQU ZCRENTER 02129000 ZCREAC0B EQU ZCRENTER 02130000 ZCREAC0A EQU ZCRENTER 02131000 ZCREAC1A EQU ZCRENTER 02132000 ZCRTNAME EQU ZCRAUDIT+1 02133000 ZCRTID EQU ZCRAUDIT 02134000 ZCRREMIC EQU ISTZCRR+436 02135000 ZCRSAVEZ EQU ISTZCRR+196 02136000 ZCRDAFSV EQU ZCRCIDSV+2 02137000 ZCRSAFSV EQU ZCRCIDSV 02138000 ZCRR13SV EQU ISTZCRR+188 02139000 ZCRR2SV EQU ISTZCRR+184 02140000 ZCROPCDE EQU ISTZCRR+183 02141000 ZCRPRMTC EQU ISTZCRR+182 02142000 ZCRRCDSV EQU ISTZCRR+181 02143000 ZCRAWQSW EQU ISTZCRR+180 02144000 ZCRTOPQ EQU ISTZCRR+180 02145000 ZCRLSTFB EQU ISTZCRR+180 02146000 ZCRXSCHD EQU ISTZCRR+180 02147000 ZCRNXTEL EQU ISTZCRR+180 02148000 ZCRSCANQ EQU ISTZCRR+180 02149000 ZCRMOREL EQU ISTZCRR+180 02150000 ZCRFBPRC EQU ISTZCRR+180 02151000 ZCRFSBSV EQU ISTZCRR+176 02152000 ZCRSVWK5 EQU ZCRWKARA+16 02153000 ZCRSVWK4 EQU ZCRWKARA+12 02154000 ZCRSVWK3 EQU ZCRWKARA+8 02155000 ZCRSVWK2 EQU ZCRWKARA+4 02156000 ZCRSVWK1 EQU ZCRWKARA 02157000 ZCRSVF25 EQU ZCRSVRTN+96 02158000 ZCRSVF24 EQU ZCRSVRTN+92 02159000 ZCRSVF23 EQU ZCRSVRTN+88 02160000 ZCRSVF22 EQU ZCRSVRTN+84 02161000 ZCRSVF21 EQU ZCRSVRTN+80 02162000 ZCRSVF20 EQU ZCRSVRTN+76 02163000 ZCRSVF19 EQU ZCRSVRTN+72 02164000 ZCRSVF18 EQU ZCRSVRTN+68 02165000 ZCRSVF17 EQU ZCRSVRTN+64 02166000 ZCRSVF16 EQU ZCRSVRTN+60 02167000 ZCRSVF15 EQU ZCRSVRTN+56 02168000 ZCRSVF14 EQU ZCRSVRTN+52 02169000 ZCRSVF13 EQU ZCRSVRTN+48 02170000 ZCRSVF12 EQU ZCRSVRTN+44 02171000 ZCRSVF11 EQU ZCRSVRTN+40 02172000 ZCRSVF10 EQU ZCRSVRTN+36 02173000 ZCRSVF9 EQU ZCRSVRTN+32 02174000 ZCRSVF7 EQU ZCRSVRTN+24 02175000 ZCRSVF6 EQU ZCRSVRTN+20 02176000 ZCRSVF5 EQU ZCRSVRTN+16 02177000 ZCRSVF4 EQU ZCRSVRTN+12 02178000 ZCRSVF3 EQU ZCRSVRTN+8 02179000 ZCRSVF2 EQU ZCRSVRTN+4 02180000 ZCRSVF1 EQU ZCRSVRTN 02181000 ZCRPVZB EQU ISTZCRR+52 02182000 ZCRZLB EQU ISTZCRR+48 02183000 ZCRCCWA EQU ISTZCRR+40 02184000 ZCRPSW EQU ZCRPARMS+15 02185000 ZCRPCHAR EQU ZCRPARMS+14 02186000 ZCRPRES2 EQU ZCRPCOD2 02187000 ZCRPPG2 EQU ZCRPCOD2 02188000 ZCRPRES EQU ZCRPCOD1 02189000 ZCRPCFTX EQU ZCRPCOD1 02190000 ZCRPBUF EQU ZCRPCOD1 02191000 ZCRPLSCB EQU ZCRPCOD1 02192000 ZCRPLSBQ EQU ZCRPLSBF 02193000 ZCRPFSB EQU ZCRPCOD1 02194000 ZCRPLNG EQU ZCRPCOD1 02195000 ZCRPPG EQU ZCRPCOD1 02196000 ZCRDTODA EQU ZCRDFRDA 02197000 ZCRCBPTR EQU ZCRFBPTR 02198000 ZCRCRLCP EQU ISTZCRR+20 02199000 @NM00027 EQU ZCRSCPSW 02200000 ZCRSKIPT EQU ZCRSCPSW 02201000 ZCRFSBWE EQU ZCRSCPSW 02202000 ZCRPRCMP EQU ZCRSCPSW 02203000 ZCRLREQ EQU ZCRSCPSW 02204000 ZCRRJLCP EQU ZCRSCPSW 02205000 ZCRTPINV EQU ZCRSCPSW 02206000 ZCRTPEX EQU ZCRSCPSW 02207000 @NM00026 EQU ZCRIBPR 02208000 ZCR3270R EQU ZCRIBPR 02209000 ZCRLCPFD EQU ZCRIBPR 02210000 ZCRLCPFR EQU ZCRIBPR 02211000 ZCRRELK EQU ZCRIBPR 02212000 ZCRERR EQU ZCRIBPR 02213000 ZCRNOBUF EQU ZCRIBPR 02214000 @NM00025 EQU ZCRPFLGS 02215000 ZCRQAHED EQU ZCRPFLGS 02216000 ZCRF1RES EQU ZCRGENSW 02217000 ZCRBRIS EQU ZCRGENSW 02218000 ZCRCLRBD EQU ZCRGENSW 02219000 ZCREXRES EQU ZCRGENSW 02220000 ZCRLCSYN EQU ZCRGENSW 02221000 ZCRRT06 EQU ZCRGENSW 02222000 ZCRTSW2 EQU ZCRGENSW 02223000 ZCRTSW1 EQU ZCRGENSW 02224000 ZCRINLCP EQU ZCRFLGS3 02225000 ZCRWRPTR EQU ZCRFLGS3 02226000 ZCRNOFRE EQU ZCRFLGS3 02227000 ZCREDRIV EQU ZCRFLGS3 02228000 ZCRDISC EQU ZCRFLGS3 02229000 ZCRTPDIS EQU ZCRFLGS3 02230000 ZCRTPCON EQU ZCRFLGS3 02231000 ZCRTIC EQU ZCRFLGS3 02232000 ZCRCNLXL EQU ZCRRESET 02233000 ZCRENDAN EQU ZCRSWFLD 02234000 ZCRENDXL EQU ZCRSWFLD 02235000 ZCRENDX EQU ZCRSWFLD 02236000 ZCROB1 EQU ZCRNDLCP 02237000 ZCRENDPR EQU ZCRSWFLD 02238000 ZCREXTYP EQU ZCRSWFLD 02239000 ZCRSLCP EQU ZCRENDSH 02240000 ZCRIF0E3 EQU ZCRFLGS2 02241000 ZCRIF0E2 EQU ZCRFLGS2 02242000 ZCRIF0E1 EQU ZCRFLGS2 02243000 ZCROB EQU ZCRFLGS2 02244000 ZCRFMSED EQU ZCRFLGS2 02245000 ZCRSHEDI EQU ZCRFLGS2 02246000 ZCRLOCAL EQU ZCRFLGS2 02247000 ZCRFEXIT EQU ZCRFLGS1 02248000 ZCRUNSOL EQU ZCRFLGS1 02249000 ZCRENDLP EQU ZCRFLGS1 02250000 ZCRNRMEX EQU ZCRFLGS1 02251000 ZCRWAIT EQU ZCRFLGS1 02252000 ZCRDEQSW EQU ZCRFLGS1 02253000 ZCRQUESW EQU ZCRFLGS1 02254000 ZCREXSW EQU ZCRFLGS1 02255000 ZCRFRRA EQU ISTZCRR+8 02256000 ZCRCHAIN EQU ISTZCRR+4 02257000 ZCRFLAG EQU ZCRCRR+3 02258000 ZCRLEN EQU ZCRCRR+1 02259000 ZCRID EQU ZCRCRR 02260000 FMCFLRSV EQU FMCFLGB 02261000 FMCFLGA8 EQU FMCFLGB 02262000 FMCCLRPH EQU FMCVS1+45 02263000 FMCRSV0X EQU FMCCVFLG 02264000 FMCVYRPH EQU FMCCVFLG 02265000 FMCZV004 EQU FMCVS1+40 02266000 FMCLOCK2 EQU FMCVS1+36 02267000 @NM00024 EQU FMCZFLG2 02268000 FMCZF027 EQU FMCZFLG2 02269000 FMCZF026 EQU FMCZFLG2 02270000 FMCSEQ1B EQU FMCSEQ1 02271000 FMCSEQ1T EQU FMCSEQ1 02272000 FMCZX006 EQU FMCVS1+33 02273000 FMCZX005 EQU FMCVS1+32 02274000 FMCZX004 EQU FMCVS1+31 02275000 FMCZX003 EQU FMCVS1+30 02276000 FMCZX002 EQU FMCVS1+29 02277000 FMCZV001 EQU FMCVS1+24 02278000 FMCAWATQ EQU FMCLCPAQ+1 02279000 @NM00023 EQU FMCLCPAQ 02280000 FMCLCPB2 EQU FMCLCPBQ+1 02281000 FMCLCPB1 EQU FMCLCPBQ 02282000 FMCASCDQ EQU FMCSHEAQ+1 02283000 @NM00022 EQU FMCSHEAQ 02284000 FMCSHEDQ EQU FMCVS1+8 02285000 FMCRSV04 EQU FMCVS1+6 02286000 FMCZH001 EQU FMCVS1+4 02287000 FMCZF025 EQU FMCZFLAG+3 02288000 FMCZF024 EQU FMCZFLAG+3 02289000 FMCZF023 EQU FMCZFLAG+3 02290000 FMCZF022 EQU FMCZFLAG+3 02291000 FMCZF021 EQU FMCZFLAG+3 02292000 FMCZF020 EQU FMCZFLAG+3 02293000 FMCZF019 EQU FMCZFLAG+3 02294000 FMCZF017 EQU FMCZFLAG+2 02295000 FMCZF016 EQU FMCZFLAG+2 02296000 FMCZF015 EQU FMCZFLAG+2 02297000 FMCZF014 EQU FMCZFLAG+2 02298000 FMCZF013 EQU FMCZFLAG+2 02299000 FMCZF012 EQU FMCZFLAG+2 02300000 FMCZF011 EQU FMCZFLAG+2 02301000 FMCZF010 EQU FMCZFLAG+2 02302000 FMCZF00F EQU FMCZFLAG+1 02303000 FMCZF00E EQU FMCZFLAG+1 02304000 FMCZF00D EQU FMCZFLAG+1 02305000 FMCZF00C EQU FMCZFLAG+1 02306000 FMCZF00B EQU FMCZFLAG+1 02307000 FMCRSV10 EQU FMCZFLAG+1 02308000 FMCZF009 EQU FMCZFLAG+1 02309000 FMCZF005 EQU FMCZFLAG 02310000 FMCZF004 EQU FMCZFLAG 02311000 FMCZF003 EQU FMCZFLAG 02312000 FMCZF001 EQU FMCZFLAG 02313000 FMCFRESA EQU ISTFMCB+228 02314000 FMCSCSQN EQU FMCSNCTL+2 02315000 FMCSCCTL EQU FMCSNCTL+1 02316000 FMCSTCTL EQU FMCSCFLG 02317000 FMCSCCLO EQU FMCSCFLG 02318000 FMCAPRO EQU FMCSCFLG 02319000 FMCLURO EQU FMCSCFLG 02320000 FMCOBSAC EQU FMCSCFLG 02321000 FMCIBSAC EQU FMCSCFLG 02322000 FMCFBRE EQU ISTFMCB+220 02323000 FMCFBXM EQU FMCZV002 02324000 FMCASEGQ EQU ISTFMCB+212 02325000 FMCRDTPT EQU ISTFMCB+208 02326000 FMCLOCK EQU ISTFMCB+204 02327000 FMCSEGD EQU FMCSSEGQ 02328000 FMCRSPLM EQU ISTFMCB+198 02329000 FMCPSTRS EQU ISTFMCB+196 02330000 @NM00021 EQU FMCRRESP 02331000 FMCTSLHA EQU FMCRRESP 02332000 FMCFRRN EQU FMCRRESP 02333000 FMCFME EQU FMCRRESP 02334000 FMCFEX EQU FMCRRESP 02335000 FMCFPE EQU FMCRRESP 02336000 FMCCTLB EQU ISTFMCB+194 02337000 FMCBSQNO EQU FMCCLSEQ+2 02338000 FMCTSQNO EQU FMCCLSEQ 02339000 FMCOBPRG EQU FMCMODEB 02340000 FMCIBPRG EQU FMCMODEB 02341000 FMCRESOT EQU FMCMODEB 02342000 FMCRSTSR EQU FMCMODEB 02343000 FMCLUQ EQU FMCMODEB 02344000 FMCAPQ EQU FMCMODEB 02345000 FMCCLEAR EQU FMCMODEB 02346000 FMCHOLD EQU FMCMODEB 02347000 FMCIPSEQ EQU ISTFMCB+188 02348000 FMCLUSTR EQU ISTFMCB+187 02349000 FMCRSV87 EQU FMCSTAT2 02350000 FMCSEQI EQU FMCSTAT2 02351000 FMCCPIP EQU FMCSTAT2 02352000 FMCALIPR EQU FMCSTAT2 02353000 FMCIAIO EQU FMCSTAT2 02354000 FMCZF00A EQU FMCSTAT2 02355000 FMCVPIP EQU FMCSTAT2 02356000 FMCBHSET EQU ISTFMCB+185 02357000 FMCPRMRC EQU FMCCLEXT+20 02358000 FMCRSV89 EQU FMCPSTAT 02359000 FMCPCLSD EQU FMCPSTAT 02360000 FMCDDOCD EQU FMCPSTAT 02361000 FMCIDVFD EQU FMCPSTAT 02362000 FMCELKST EQU FMCPSTAT 02363000 FMCRSV88 EQU FMCPSCMD 02364000 FMCRDBLK EQU FMCPSCMD 02365000 FMCDSEOC EQU FMCPSCMD 02366000 FMCPURGE EQU FMCPSCMD 02367000 FMCRESTI EQU FMCPSCMD 02368000 FMCCNTCT EQU FMCPSCMD 02369000 FMCINVT EQU FMCPSCMD 02370000 FMCFLGB7 EQU FMCFLGCL 02371000 FMCFLGB6 EQU FMCFLGCL 02372000 FMCFLGB5 EQU FMCFLGCL 02373000 FMCFLGB4 EQU FMCFLGCL 02374000 FMCFLGB3 EQU FMCFLGCL 02375000 FMCFLGB2 EQU FMCFLGCL 02376000 FMCFLGB1 EQU FMCFLGCL 02377000 FMCFLGB0 EQU FMCFLGCL 02378000 FMCFLGA7 EQU FMCFLGA 02379000 FMCFLGA6 EQU FMCFLGA 02380000 FMCFLGA5 EQU FMCFLGA 02381000 FMCFLGA4 EQU FMCFLGA 02382000 FMCFLGA3 EQU FMCFLGA 02383000 FMCFLGA2 EQU FMCFLGA 02384000 FMCFLGA1 EQU FMCFLGA 02385000 FMCFLGA0 EQU FMCFLGA 02386000 FMCDCLOK EQU FMCCLEXT+12 02387000 FMCRAFM EQU FMCCLEXT+8 02388000 FMCFBPTR EQU FMCFBA+1 02389000 FMCFBRSV EQU FMCFBA 02390000 FMCRPLPT EQU FMCRPLA+1 02391000 FMCRPLRS EQU FMCRPLA 02392000 FMCPRCLS EQU FMCCVAL 02393000 FMCIBCE EQU FMCCVAL 02394000 FMCONLY EQU FMCOBCE 02395000 FMCLAST EQU FMCOBCE 02396000 FMCMIDLE EQU FMCOBCE 02397000 FMCFIRST EQU FMCOBCE 02398000 FMCCPCNT EQU FMCPACPC 02399000 FMCMPCNT EQU FMCPACEM 02400000 FMCNPCNT EQU FMCPACEN 02401000 FMCCONF EQU FMCSSTAT 02402000 FMCPURCH EQU FMCSSTAT 02403000 FMCNSALU EQU FMCSSTAT 02404000 FMCBIP EQU FMCSSTAT 02405000 FMCSDTR EQU FMCSSTAT 02406000 FMCUIPI EQU FMCSSTAT 02407000 FMCCIPI EQU FMCSSTAT 02408000 FMCSNBI EQU FMCSSTAT 02409000 FMCRVD01 EQU ISTFMCB+158 02410000 FMCISSN EQU ISTFMCB+156 02411000 FMCOASN EQU FMCNXOSC 02412000 FMCOSSN EQU FMCNXCFM 02413000 FMCSIP EQU FMCSIPA 02414000 FMCEXLST EQU ISTFMCB+144 02415000 FMCPAB5 EQU ISTFMCB+128 02416000 FMCPAB3 EQU ISTFMCB+96 02417000 FMCPAB2 EQU ISTFMCB+80 02418000 FMCPAB1 EQU ISTFMCB+64 02419000 FMCFASYA EQU ISTFMCB+60 02420000 FMCMODE EQU ISTFMCB+52 02421000 FMCPROCD EQU ISTFMCB+48 02422000 FMCVWT EQU ISTFMCB+44 02423000 FMCRPLH EQU ISTFMCB+40 02424000 FMCBUFNB EQU FMCCMPS1+2 02425000 FMCBUFLM EQU FMCCMPS1 02426000 FMCDEBA EQU ISTFMCB+32 02427000 @NM00020 EQU FMCCMDFL 02428000 FMCSNA EQU FMCCMDFL 02429000 FMCVSNA EQU FMCCMDFL 02430000 FMCCMDR EQU FMCCMDFL 02431000 @NM00019 EQU ISTFMCB+30 02432000 @NM00018 EQU FMCSTAT1 02433000 FMCHPURG EQU FMCSTAT1 02434000 FMCVSP2 EQU FMCSTAT1 02435000 FMCVSP1 EQU FMCSTAT 02436000 FMCLTEAS EQU FMCSTAT 02437000 FMCZF007 EQU FMCSTAT 02438000 FMCDEDSC EQU FMCSTAT 02439000 FMCDEVOF EQU FMCSTAT 02440000 FMCDAPT EQU FMCSTAT 02441000 FMCPRMTE EQU FMCSTAT 02442000 FMCPRMTR EQU FMCSTAT 02443000 FMCUSFLD EQU ISTFMCB+24 02444000 FMCFMCBA EQU ISTFMCB+20 02445000 FMCDNCBA EQU ISTFMCB+16 02446000 FMCDVTA EQU ISTFMCB+12 02447000 FMCTSKID EQU ISTFMCB+8 02448000 FMCNXTCB EQU ISTFMCB+4 02449000 FMCSAF EQU ISTFMCB+2 02450000 FMCLNGTH EQU ISTFMCB+1 02451000 FMCTYPE EQU ISTFMCB 02452000 LOKXCL EQU @NM00016 02453000 LOKPRY EQU @NM00016 02454000 @NM00017 EQU @NM00016 02455000 @NM00015 EQU LOKCHNG 02456000 LOKCT EQU ISTLOK 02457000 PROSRDEF EQU PROSETM4 02458000 PRORSV47 EQU PROSETM4 02459000 PROSCON EQU PROSETM4 02460000 PRORSV46 EQU PROSETM3 02461000 PROSMONT EQU PROSETM3 02462000 PRORSV45 EQU PROSETM3 02463000 PROSNTO EQU PROSETM3 02464000 PRORSV44 EQU PROSETM3 02465000 PRORSV43 EQU PROSETM2 02466000 PROSNTFL EQU PROSETM2 02467000 PRORSV42 EQU PROSETM2 02468000 PRORSV41 EQU PROPROCS 02469000 PROMODC EQU PROPROC4 02470000 PROMODT EQU PROPROC4 02471000 PROMODM EQU PROPROC4 02472000 PROMODB EQU PROPROC4 02473000 PRORSV14 EQU PROPROC4 02474000 PRORSV13 EQU PROPROC4 02475000 PRORSV12 EQU PROPROC4 02476000 PROEIB EQU PROPROC4 02477000 PRORSV11 EQU PROPROC3 02478000 PROMONT2 EQU PROPROC3 02479000 PROMONIT EQU PROPROC3 02480000 PROSUBLK EQU PROPROC3 02481000 PRONTO EQU PROPROC3 02482000 PROLGIN EQU PROPROC3 02483000 PROERPI EQU PROPROC3 02484000 PRORSV07 EQU PROPROC3 02485000 PROCFTX EQU PROPROC2 02486000 PROEMLC EQU PROPROC2 02487000 PRONTFL EQU PROPROC2 02488000 PRORSV05 EQU PROPROC2 02489000 PRORSV04 EQU PROPROC2 02490000 PROLGOT EQU PROPROC2 02491000 PROERPO EQU PROPROC2 02492000 PRORSV03 EQU PROPROC2 02493000 PRORPLC EQU PROPROC1 02494000 PROCS EQU PROPROC1 02495000 PROCA EQU PROPROC1 02496000 PRORESPX EQU PROPROC1 02497000 PRODFASY EQU PROPROC1 02498000 PROXPOPT EQU PROPROC1 02499000 PROTRUNC EQU PROPROC1 02500000 PROASYIP EQU PROPROC1 02501000 LSCTLBAD EQU ISTLSCB+28 02502000 LSCFDB2 EQU LSCFDBA+1 02503000 LSCFDB1 EQU LSCFDBA 02504000 LSCLCPBA EQU ISTLSCB+16 02505000 LSCLCCW1 EQU ISTLSCB+12 02506000 LSCRRCNT EQU LSCSEQ+1 02507000 LSCRRCCT EQU LSCSEQ 02508000 LSCATOP EQU LSCFLGS 02509000 LSCFREE EQU LSCFLGS 02510000 LSCDSTAT EQU LSCFLGS 02511000 LSCEXRES EQU LSCFLGS 02512000 LSCZRIMM EQU LSCFLGS 02513000 LSCRSV01 EQU LSCFLGS 02514000 LSCSMODE EQU LSCFLGS 02515000 LSCZMIRC EQU LSCRUCNT 02516000 LSCCHAI2 EQU LSCCHAIN+1 02517000 LSCCHNG EQU LSCCHAI1 02518000 LSCZRTSC EQU LSCZMNRC 02519000 LSCZRT0B EQU LSCZMNRC 02520000 LSCZRT0A EQU LSCZMNRC 02521000 LSCZRTL9 EQU LSCZRT09 02522000 LSCZRTL8 EQU LSCZRT08 02523000 LSCZRTL7 EQU LSCZRT07 02524000 LSCZRTL6 EQU LSCZRT06 02525000 LSCZRTL5 EQU LSCZRT05 02526000 LSCZRTL4 EQU LSCZRT04 02527000 LSCZRTL3 EQU LSCZRT03 02528000 LSCZRTL2 EQU LSCZRT02 02529000 LSCZRT01 EQU LSCREQTG 02530000 LSCZRT00 EQU LSCREQTG 02531000 LSCLNGTH EQU LSC1WORD+1 02532000 LCPFTYPE EQU LCPRPHA 02533000 LCPRSTQH EQU LCPLCCW 02534000 LCPCLREP EQU ISTLCPB+44 02535000 LCPUBFSB EQU LCPFLCCW 02536000 LCPRSV77 EQU ISTLCPB+39 02537000 LCPLCCWC EQU ISTLCPB+38 02538000 LCPRSV78 EQU LCPFLG1 02539000 LCPTRANS EQU LCPFLG1 02540000 LCPSTLB EQU LCPFLG1 02541000 LCPREDRV EQU LCPFLG1 02542000 LCPDIRPT EQU LCPFLG1 02543000 LCPINTER EQU LCPFLG1 02544000 LCPRESET EQU LCPFLG1 02545000 LCPSTYPE EQU ISTLCPB+36 02546000 LCPFSNCH EQU ISTLCPB+34 02547000 LCPFOSN EQU ISTLCPB+32 02548000 LCPTLBAD EQU ISTLCPB+28 02549000 LCPFDB2 EQU LCPFDBA+1 02550000 LCPFDB1 EQU LCPFDBA 02551000 LCPNXLCW EQU ISTLCPB+20 02552000 LCPDAF EQU LCPCID+2 02553000 LCPSAF EQU LCPCID 02554000 LCPLCCW1 EQU ISTLCPB+12 02555000 LCPRRCNT EQU LCPSEQ+1 02556000 LCPRRCCT EQU LCPSEQ 02557000 LCPATOP EQU LCPFLAG2 02558000 LCPFREE EQU LCPFLAG2 02559000 LCPDSTAT EQU LCPFLAG2 02560000 LCPEXRES EQU LCPFID0 02561000 LCPZRIMM EQU LCPTLBPI 02562000 LCPRSTRT EQU LCPFLAG2 02563000 LCPASYN EQU LCPFLAG2 02564000 LCPPRFLG EQU LCPFLAG2 02565000 LCPZMIRC EQU LCPRUCNT 02566000 LCPCHAI2 EQU LCPCHAIN+1 02567000 LCPCHNG EQU LCPCHAI1 02568000 LCPZRT0B EQU LCPMNRCD 02569000 LCPZRT0A EQU LCPMNRCD 02570000 LCPZRTL9 EQU LCPZRT09 02571000 LCPZRTL8 EQU LCPZRT08 02572000 LCPZRTL7 EQU LCPZRT07 02573000 LCPZRTL6 EQU LCPZRT06 02574000 LCPZRTL5 EQU LCPZRT05 02575000 LCPZRTL4 EQU LCPZRT04 02576000 LCPZRTL3 EQU LCPZRT03 02577000 LCPZRTL2 EQU LCPZRT02 02578000 LCPZRT01 EQU LCPFLAGS 02579000 LCPZRT00 EQU LCPFLAGS 02580000 LCPLNGTH EQU ISTLCPB+1 02581000 LCPTYPE EQU ISTLCPB 02582000 LCCWDATA EQU ISTLCCW+4 02583000 LCCWCNT EQU ISTLCCW+2 02584000 LCCWACI EQU LCCWFLAG 02585000 LCCWRFI EQU LCCWFLAG 02586000 LCCWPER EQU LCCWLSI 02587000 LCCWIDAT EQU LCCWFLAG 02588000 LCCWNTVC EQU LCCWFLAG 02589000 LCCWCKPT EQU LCCWFLAG 02590000 LCCWCD EQU LCCWFLAG 02591000 LCCWTYPE EQU LCCWCTL 02592000 LCCWMODE EQU LCCWCTL 02593000 LCCWSOP EQU LCCWRWOP 02594000 @NM00014 EQU LCCWRWOP 02595000 LCCWSD EQU LCCWOP 02596000 LCCWSI EQU LCCWOP 02597000 PABRPHA EQU PABRPHFG+1 02598000 PABNODQ EQU PABFLAGS 02599000 PABINHBT EQU PABFLAGS 02600000 PABERLOK EQU PABERRLK 02601000 PABSSN EQU PABFLAGS 02602000 PABDYNAM EQU PABFLAGS 02603000 PABNORPR EQU PABFLAGS 02604000 PABPRIOR EQU PABFLAGS 02605000 PABAPYP EQU PABFLAGS 02606000 PABOFFST EQU ISTPAB+8 02607000 PABCHNGP EQU PABCHAIN+1 02608000 PABRSV02 EQU PABCHAIN 02609000 PABRUNNG EQU PABCHAIN 02610000 PABRESET EQU PABCHAIN 02611000 PABUNCON EQU PABCHAIN 02612000 PABCDP EQU PABCHAIN 02613000 PABRESCH EQU PABCHAIN 02614000 PABCHNG EQU PABCHAIN 02615000 PABWEQP EQU PABWEQA+1 02616000 PABRSV01 EQU PABWEQA 02617000 PABWEQG EQU PABWEQA 02618000 DEVRSV03 EQU ISTDEVCH+5 02619000 DEVPHYSA EQU ISTDEVCH+4 02620000 DEVCSLPN EQU DEVCHAR3 02621000 DEVCSTCL EQU DEVCHAR3 02622000 DEVCCHEK EQU DEVCHAR3 02623000 DEVCATTN EQU DEVCHAR3 02624000 DEVCSWL EQU DEVFCCTL 02625000 DEVCRVB EQU DEVFCCTL 02626000 DEVCSSL EQU DEVFCCTL 02627000 DEVCBSC EQU DEVFCCTL 02628000 DEVMCODE EQU ISTDEVCH+2 02629000 DEVCHAR2 EQU DEVTCODE 02630000 DEVRSV01 EQU DEVCHAR 02631000 DEVCCTL EQU DEVCHAR 02632000 DEVNNSPT EQU DEVCHAR 02633000 DEVSPS EQU DEVCHAR 02634000 DEVSUBND EQU DEVCHAR 02635000 DEVCONVR EQU DEVCHAR 02636000 DEVOTPUT EQU DEVCHAR 02637000 DEVINPUT EQU DEVCHAR 02638000 FSBFDB EQU ISTFSB+32 02639000 FSBRSV01 EQU FSBFSB+30 02640000 FSBTHCNT EQU FSBFSB+28 02641000 FSBRLRSV EQU FSBRLSTS 02642000 FSBCFTX EQU FSBRLSTS 02643000 FSBICNCB EQU FSBMSGID 02644000 FSBSSOC EQU FSBSS2 02645000 FSBSSCC EQU FSBSS2 02646000 FSBSSDC EQU FSBSS2 02647000 FSBSSEC EQU FSBSS2 02648000 FSBSSIR EQU FSBSS2 02649000 FSBSSCR EQU FSBSS2 02650000 @NM00012 EQU FSBSS2 02651000 @NM00011 EQU FSBSS1 02652000 FSBSSDE EQU FSBSS1 02653000 FSBSSUS EQU FSBSS1 02654000 @NM00010 EQU FSBSS1 02655000 FSBSOHI EQU FSBERC 02656000 FSBLGI EQU FSBERC 02657000 FSBLMRI EQU FSBFBMI 02658000 FSBETI EQU FSBERC 02659000 FSBEMI EQU FSBERC 02660000 FSBEBI EQU FSBERC 02661000 FSBMJRCD EQU FSBSRCAT 02662000 FSBXLCI EQU FSBXCODE 02663000 FSBXFINS EQU FSBXCODE 02664000 FSBXNORM EQU FSBXFSTS 02665000 FSBCMD EQU FSBSEQ 02666000 FSBDTRCE EQU FSBFLAGS 02667000 FSBASBTU EQU FSBFLAGS 02668000 FSBINPET EQU FSBFLAGS 02669000 FSBNONCB EQU FSBFLAGS 02670000 FSBLBIND EQU FSBFLAGS 02671000 FSBFFIND EQU FSBFLAGS 02672000 FSBACIND EQU FSBFLAGS 02673000 FSBRFIND EQU FSBFLAGS 02674000 FSBDAF EQU FSBCID+2 02675000 FSBSAF EQU FSBCID 02676000 FSBGATE EQU FSBFSBA 02677000 FSBRSV02 EQU FSBSFLGS 02678000 FSBPGBUF EQU FSBSFLGS 02679000 FSBMNSDA EQU FSBMNRCD 02680000 FSBMNOA EQU FSBMNRCD 02681000 FSBMNDIF EQU FSBMNRCD 02682000 FSBMNEOP EQU FSBMNRCD 02683000 FSBMNDNU EQU FSBMNRCD 02684000 FSBMNATN EQU FSBMNRCD 02685000 FSBMNRVI EQU FSBMNRCD 02686000 FSBLNGTH EQU FSBFSB+1 02687000 FSBTYPE EQU FSBFSB 02688000 FDBOFSET EQU ISTFDB+10 02689000 FDBFDBA EQU ISTFDB 02690000 BTUEXTR EQU ISTBTU+19 02691000 BTURSV02 EQU BTUSYSTR 02692000 BTUPHASE EQU BTUSYSTR 02693000 BTURSV01 EQU BTUSYSTR 02694000 BTUPAD EQU BTURH+3 02695000 BTURH3 EQU BTURH+2 02696000 BTURH2 EQU BTURH+1 02697000 BTURH1 EQU BTURH 02698000 BTUZRTSC EQU BTURQFLG+1 02699000 BTUZRT0B EQU BTURQFLG+1 02700000 BTUZRT0A EQU BTURQFLG+1 02701000 BTUZRT09 EQU BTURQFLG+1 02702000 BTUZRT08 EQU BTURQFLG+1 02703000 BTUZRT07 EQU BTURQFLG 02704000 BTUZRT06 EQU BTURQFLG 02705000 BTUZRT05 EQU BTURQFLG 02706000 BTUZRT04 EQU BTURQFLG 02707000 BTUZRT03 EQU BTURQFLG 02708000 BTUZRT02 EQU BTURQFLG 02709000 BTUZRT01 EQU BTURQFLG 02710000 BTUZRT00 EQU BTURQFLG 02711000 BTUSORCE EQU BTUBTH+4 02712000 BTUDEST EQU BTUBTH+2 02713000 BTUCDF EQU BTUFID+1 02714000 BTUSCF EQU BTUFID+1 02715000 BTUPRY EQU BTUFID+1 02716000 BTUASFL EQU BTUFID 02717000 BTUPSFL EQU BTUFID 02718000 BTUMPF EQU BTUFID 02719000 BTUFIDNO EQU BTUFID 02720000 BDURSV04 EQU BDUFLAGS 02721000 BDURTOE EQU BDUFLAGS 02722000 BDUSTPR EQU BDUFLAGS 02723000 BDURSV03 EQU BDUFLAGS 02724000 BDUALT EQU BDUFUNC 02725000 BDUNACK EQU BDUFUNC 02726000 BDUACK EQU BDUFUNC 02727000 BDUTRPM EQU BDUFUNC 02728000 BDUFBMI EQU BDUFUNC 02729000 BDULDGPH EQU BDUFUNC 02730000 BDUHEADP EQU BDUFUNC 02731000 BDUSOH EQU BDUCHECK 02732000 BDURSV01 EQU BDUMODIF 02733000 BDUMOD0 EQU BDUMOD1 02734000 @NM00009 EQU SRBSECT+40 02735000 @NM00008 EQU SRBSECT+38 02736000 SRBPRIOR EQU SRBSECT+37 02737000 SRBPKF EQU SRBSECT+36 02738000 SRBSAVE EQU SRBSECT+32 02739000 SRBPARM EQU SRBSECT+28 02740000 SRBRMTR EQU SRBSECT+24 02741000 SRBEP EQU SRBSECT+20 02742000 SRBPTCB EQU SRBFLC+4 02743000 SRBPASID EQU SRBFLC+2 02744000 SRBCPAFF EQU SRBFLC 02745000 SRBASCB EQU SRBSECT+8 02746000 SRBFLNK EQU SRBSECT+4 02747000 SRBID EQU SRBSECT 02748000 IOSEND EQU IOSB+108 02749000 IOSSKR EQU IOSEEKA+7 02750000 IOSSKH2 EQU IOSSKHH+1 02751000 IOSSKH1 EQU IOSSKHH 02752000 IOSSKCC EQU IOSCCHH 02753000 IOSSKBB EQU IOSEEKA+1 02754000 IOSSKM EQU IOSEEKA 02755000 IOSEEK EQU IOSB+92 02756000 IOSMDM EQU IOSB+91 02757000 IOSMDB EQU IOSB+90 02758000 IOSCKEY7 EQU IOSCKEY 02759000 IOSCKEY6 EQU IOSCKEY 02760000 IOSCKEY5 EQU IOSCKEY 02761000 IOSCKEY4 EQU IOSCKEY 02762000 @NM00004 EQU IOSCKEY 02763000 IOSFMSK EQU IOSB+88 02764000 IOSCUDEV EQU IOSPATH+1 02765000 @NM00003 EQU IOSCHN 02766000 IOSPATH3 EQU IOSCHN 02767000 IOSPATH2 EQU IOSCHN 02768000 IOSEXP EQU IOSCHN 02769000 IOSGDP EQU IOSCHN 02770000 IOSAFF EQU IOSB+85 02771000 IOSRSS1B EQU IOSB+84 02772000 IOSDSID EQU IOSB+80 02773000 IOSVST EQU IOSB+76 02774000 IOSRST EQU IOSB+72 02775000 IOSDIE EQU IOSB+68 02776000 IOSABN EQU IOSB+64 02777000 IOSNRM EQU IOSB+60 02778000 IOSPCI EQU IOSB+56 02779000 IOSERP EQU IOSB+52 02780000 IOSPCHN EQU IOSB+48 02781000 IOSSNS EQU IOSB+42 02782000 IOSAPMSK EQU IOSB+40 02783000 IOSRES4A EQU IOSB+36 02784000 IOSUSE EQU IOSB+32 02785000 IOSSRB EQU IOSB+28 02786000 IOSCSWRC EQU IOSCSW+5 02787000 IOSTSB EQU IOSTATUS+1 02788000 IOSTSA EQU IOSTATUS 02789000 IOSCSWCA EQU IOSCSW 02790000 IOSCC EQU @NM00002 02791000 IOSUCB EQU IOSB+16 02792000 IOSOPT2X EQU IOSOPT2 02793000 IOSHTP EQU IOSOPT2 02794000 IOSRELSE EQU IOSOPT 02795000 IOSAPR EQU IOSOPT 02796000 IOSTSLL EQU IOSOPT 02797000 IOSNERP EQU IOSOPT 02798000 IOSPSLL EQU IOSOPT 02799000 IOSQISCE EQU IOSOPT 02800000 IOSDEP EQU IOSOPT 02801000 IOSBYP EQU IOSOPT 02802000 IOSCOD EQU IOSB+13 02803000 IOSPKY7 EQU IOSPKEY 02804000 IOSPGDPX EQU IOSPKEY 02805000 IOSIDR EQU IOSPKEY 02806000 IOSLCL EQU IOSPKEY 02807000 @NM00001 EQU IOSPKEY 02808000 IOSPGAD EQU IOSB+8 02809000 IOSASID EQU IOSB+6 02810000 IOSPRLVL EQU IOSB+5 02811000 IOSDVRID EQU IOSB+4 02812000 IOSPROC EQU IOSB+3 02813000 IOSFLC7 EQU IOSFLC 02814000 IOSFLC6 EQU IOSFLC 02815000 IOSGLC5 EQU IOSFLC 02816000 IOSFLC4 EQU IOSFLC 02817000 IOSFLC3 EQU IOSFLC 02818000 IOSFLC2 EQU IOSFLC 02819000 IOSVERIF EQU IOSDVALT 02820000 IOSDVMNT EQU IOSFLC 02821000 IOSLOG EQU IOSFLB 02822000 IOSBDCST EQU IOSFLB 02823000 IOSMSG EQU IOSFLB 02824000 IOSFLB4 EQU IOSFLB 02825000 IOSFLB3 EQU IOSFLB 02826000 IOSFLB2 EQU IOSFLB 02827000 IOSFLB1 EQU IOSFLB 02828000 IOSDIESE EQU IOSFLB 02829000 IOSIOSB EQU IOSFLA 02830000 IOSDOM EQU IOSFLA 02831000 IOSEX EQU IOSFLA 02832000 IOSSMDB EQU IOSFLA 02833000 IOSSMDA EQU IOSFLA 02834000 IOSERR EQU IOSFLA 02835000 IOSCCHN EQU IOSACHN 02836000 IOSDCHN EQU IOSACHN 02837000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02838000 @RC00474 EQU @RC00471 02839000 @RT00480 EQU @RC00471 02840000 @RC00478 EQU @RC00471 02841000 ERRMSG@ EQU @EL00003 02842000 @ENDDATA EQU * 02843000 END ISTZIFHB,(C'PLS1754',0603,75130) 02844000