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