TITLE 'ISTZFMTA 3270 LOCAL TOLTEP CHANNEL END EXTENSION *00001000 ' 00002000 ISTZFMTA CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTZFMTA 75.136' 0001 00008000 DROP @15 00009000 @PROLOG BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 * LDNZ1RR=R10; /* CALLER PUT HIS BASE REG IN R10 00013000 * @Z30APH2*/ 00014000 ST R10,LDNZ1RR(,R3) 0355 00015000 * LDNZ2RR=R14; /* @Z30APGV*/ 00016000 ST R14,LDNZ2RR(,R3) 0356 00017000 * RFY 0357 00018000 * (R10, 0357 00019000 * R14) UNRSTD; /* @Z30APH2*/ 00020000 */* DELETED LISATCVT .. R2 SHOULD ALREADY HAVE ATCVT ADDR @Z30APH2 */ 00021000 * 0358 00022000 * DO; 0358 00023000 * LDNZLPC=0; /* CLEAR LOCAL PROCESSING CONTROL 00024000 * FLAG @ZM31877*/ 00025000 MVI LDNZLPC(R3),X'00' 0359 00026000 * R6=LDNZV005; /* GET ADDR OF TEST BUFFER */ 00027000 L R6,LDNZV005(,R3) 0360 00028000 * R6=R6&MASKWORD; /* CLEAR POSSIBLE GATEBIT 0361 00029000 * @Y30APHZ*/ 00030000 N R6,@CF03451 0361 00031000 * LDNZV005=0; /* CLEAR TEST BUFFER PTR */ 00032000 SLR @14,@14 0362 00033000 ST @14,LDNZV005(,R3) 0362 00034000 * IF R6^=0 THEN /* ANY BUFFERS */ 00035000 CR R6,@14 0363 00036000 BE @RF00363 0363 00037000 * LDNZTCP=ZLBTCP; /* SAVE TEST CP */ 00038000 L @14,ZLBTCP(,R6) 0364 00039000 ST @14,LDNZTCP(,R3) 0364 00040000 * ELSE 0365 00041000 * DO; 0365 00042000 * 0365 00043000 B @RC00363 0365 00044000 @RF00363 DS 0H 0366 00045000 */* REQSTORE FXBUF(ZLBHDSIZ+ZLBCPOFS)HSIZE(ZLBHDSIZ) */ 00046000 * 0366 00047000 * DO; 0366 00048000 * 0366 00049000 */* ATBUILD (ISTDYPAB,ISTATCVT,ISTRPH) */ 00050000 */* END OF ATBUILD */ 00051000 * 0367 00052000 * DCL 0367 00053000 * GPR01F FIXED(31) REG(01); 0367 00054000 * DCL 0368 00055000 * GPR01P PTR(31) REG(01); 0368 00056000 * DCL 0369 00057000 * GPR02F FIXED(31) REG(02); 0369 00058000 * DCL 0370 00059000 * GPR02P PTR(31) REG(02); 0370 00060000 * DCL 0371 00061000 * GPR03F FIXED(31) REG(03); 0371 00062000 * DCL 0372 00063000 * GPR03P PTR(31) REG(03); 0372 00064000 * DCL 0373 00065000 * GPR04F FIXED(31) REG(04); 0373 00066000 * DCL 0374 00067000 * GPR04P PTR(31) REG(04); 0374 00068000 * DCL 0375 00069000 * GPR05F FIXED(31) REG(05); 0375 00070000 * DCL 0376 00071000 * GPR05P PTR(31) REG(05); 0376 00072000 * DCL 0377 00073000 * GPR06F FIXED(31) REG(06); 0377 00074000 * DCL 0378 00075000 * GPR06P PTR(31) REG(06); 0378 00076000 * DCL 0379 00077000 * GPR07F FIXED(31) REG(07); 0379 00078000 * DCL 0380 00079000 * GPR07P PTR(31) REG(07); 0380 00080000 * DCL 0381 00081000 * GPR08F FIXED(31) REG(08); 0381 00082000 * DCL 0382 00083000 * GPR08P PTR(31) REG(08); 0382 00084000 * DCL 0383 00085000 * GPR09F FIXED(31) REG(09); 0383 00086000 * DCL 0384 00087000 * GPR09P PTR(31) REG(09); 0384 00088000 * DCL 0385 00089000 * GPR10F FIXED(31) REG(10); 0385 00090000 * DCL 0386 00091000 * GPR10P PTR(31) REG(10); 0386 00092000 * DCL 0387 00093000 * GPR11F FIXED(31) REG(11); 0387 00094000 * DCL 0388 00095000 * GPR11P PTR(31) REG(11); 0388 00096000 * DCL 0389 00097000 * GPR12F FIXED(31) REG(12); 0389 00098000 * DCL 0390 00099000 * GPR12P PTR(31) REG(12); 0390 00100000 * DCL 0391 00101000 * GPR13F FIXED(31) REG(13); 0391 00102000 * DCL 0392 00103000 * GPR13P PTR(31) REG(13); 0392 00104000 * DCL 0393 00105000 * GPR15F FIXED(31) REG(15); 0393 00106000 * DCL 0394 00107000 * GPR15P PTR(31) REG(15); 0394 00108000 * RFY 0395 00109000 * (GPR02P, 0395 00110000 * GPR03P, 0395 00111000 * GPR04P, 0395 00112000 * GPR15P) RSTD; 0395 00113000 * RFY 0396 00114000 * (GPR01P, 0396 00115000 * GPR13P) RSTD; 0396 00116000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 0397 00117000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 00118000 * RFY 0398 00119000 * (GPR01P, 0398 00120000 * GPR13P) UNRSTD; 0398 00121000 * DO; /* LISATCVT 0399 00122000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00123000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00124000 L GPR15P,ATCLCPTR 0400 00125000 * END; /* LISATCVT */ 00126000 * RFY 0402 00127000 * ISTBPENT; 0402 00128000 * RFY 0403 00129000 * ISTBPDTY; 0403 00130000 * GPR02P=GPR15P->ATCBPDA->BPDCHPCB; 0404 00131000 L @14,ATCBPDA(,GPR15P) 0404 00132000 L GPR02P,BPDCHPCB(,@14) 0404 00133000 * DCL 0405 00134000 * 1 FMZA0003 FIXED(31) STATIC LOCAL, 0405 00135000 * 2 * FIXED(8) INIT(8), 0405 00136000 * 2 * PTR(24) INIT(0); 0405 00137000 * GPR03F=(ZLBHDSIZ&'0000FFFF'X)|FMZA0003; 0406 00138000 L GPR03F,FMZA0003 0406 00139000 O GPR03F,@CF02745 0406 00140000 * GPR04F=ZLBHDSIZ+ZLBCPOFS; 0407 00141000 LA GPR04F,32 0407 00142000 * GPR15P=GPR15P->ATCSMRQ; 0408 00143000 L GPR15P,ATCSMRQ(,GPR15P) 0408 00144000 * DCL 0409 00145000 * FMZL0003 BASED(GPR15P) LABEL VALUERANGE(*); 0409 00146000 * CALL FMZL0003; 0410 00147000 BALR @14,@15 0410 00148000 * RFY 0411 00149000 * (GPR13P) RSTD; 0411 00150000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 0412 00151000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 00152000 * RFY 0413 00153000 * (GPR13P) UNRSTD; 0413 00154000 * RFY 0414 00155000 * (GPR02P, 0414 00156000 * GPR03P, 0414 00157000 * GPR04P, 0414 00158000 * GPR15P) UNRSTD; 0414 00159000 * END; /* ******** END OF REQSTORE 0415 00160000 * EXPANSION GET 1 FIXED BUFFER */ 00161000 * IF R15<8 THEN 0416 00162000 C R15,@CF00073 0416 00163000 BNL @RF00416 0416 00164000 * DO; /* BUFFER GOTTEN @ZM31877*/ 00165000 * R6=RPHSRPRM; /* GET ADDRESS OF BUFFER */ 00166000 L R6,RPHSRPRM(,RPHPTR) 0418 00167000 * R6=R6&MASKWORD; /* CLEAR GATEBIT @ZM32602*/ 00168000 N R6,@CF03451 0419 00169000 * END; /* @ZM31877*/ 00170000 * ELSE 0421 00171000 * DO; 0421 00172000 B @RC00416 0421 00173000 @RF00416 DS 0H 0422 00174000 * LDNZF004=ON; /* DELAYED DE ON */ 00175000 L @14,LDNZF004-3(,R3) 0422 00176000 @GL00001 LR @05,@14 0422 00177000 O @05,@CF03581 0422 00178000 CS @14,@05,LDNZF004-3(R3) 0422 00179000 BNE @GL00001 0422 00180000 * LDNZC002(2:8)=IOSCSW(1:7);/* SAVE CSW FOR DE @ZM31877*/ 00181000 MVC LDNZC002+1(7,R3),IOSCSW+412(R3) 0423 00182000 * IF LDNZF008=ON THEN /* PURGED REQUEST */ 00183000 TM LDNZF008(R3),B'00000010' 0424 00184000 BNO @RF00424 0424 00185000 * ADDR(LDNCSWSV)->CSWCCWA=LDNZTCP;/* SAVE CP ADDRESS IN 00186000 * HIO CSW @ZM31877*/ 00187000 MVC CSWCCWA+60(3,R3),LDNZTCP+1(R3) 0425 00188000 * ELSE 0426 00189000 * ; 0426 00190000 @RF00424 DS 0H 0427 00191000 * IF LDNZFF69=ON THEN 0427 00192000 TM LDNZFF69(R3),B'00000001' 0427 00193000 BO @RT00427 0427 00194000 * ; /* DEACTIVATE ALREADY */ 00195000 * ELSE 0429 00196000 * DO; 0429 00197000 * LDNZFF02=ON; /* SET ON BUFFER ALLOCATE */ 00198000 L @14,LDNZFF02-1(,R3) 0430 00199000 @GL00002 LR @05,@14 0430 00200000 O @05,@CF03584 0430 00201000 CS @14,@05,LDNZFF02-1(R3) 0430 00202000 BNE @GL00002 0430 00203000 */* DELETED RFY R5 RSTD AND R5=ADDR(LDNZPAB1) @ZM31877 */ 00204000 */* TPSCHED (ADDR(LDNZPAB1)) UNCOND */ 00205000 */* CMZVER = OS/VS2 */ 00206000 * 0431 00207000 * DO; 0431 00208000 * DCL 0432 00209000 * GPR00F FIXED(31) REG(00); 0432 00210000 * DCL 0433 00211000 * GPR00P PTR(31) REG(00); 0433 00212000 * RFY 0434 00213000 * (GPR00P, 0434 00214000 * GPR01P, 0434 00215000 * GPR05P) RSTD; 0434 00216000 * GEN REFS(GPR01P) SETS(RPHWORK) 0435 00217000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 0435 00218000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 00219000 * GPR00P=0; 0436 00220000 SLR GPR00P,GPR00P 0436 00221000 * GPR05P=ADDR(LDNZPAB1); 0437 00222000 LA GPR05P,LDNZPAB1(,R3) 0437 00223000 * CALL ATCLCPTR->ATCAP38->ISTAPC38; 0438 00224000 L @14,ATCLCPTR 0438 00225000 L @15,ATCAP38(,@14) 0438 00226000 BALR @14,@15 0438 00227000 * GEN(NOPR 1) 0439 00228000 * NOSETS NOREFS; 0439 00229000 NOPR 1 00230000 * RFY 0440 00231000 * (GPR00P, 0440 00232000 * GPR01P, 0440 00233000 * GPR05P) UNRSTD; 0440 00234000 * END; /* **** END TPSCHED BUFFER 0441 00235000 * ALLOCATE @ZM31877*/ 00236000 */* DELETED RFY R5 UNRSTD @ZM31877 */ 00237000 * 0442 00238000 * LDNZF009=ON; /* DO NOT RESET DEVICE BUSY=ON */ 00239000 L @14,LDNZF009-3(,R3) 0442 00240000 @GL00003 LR @05,@14 0442 00241000 O @05,@CF03587 0442 00242000 CS @14,@05,LDNZF009-3(R3) 0442 00243000 BNE @GL00003 0442 00244000 * END; 0443 00245000 * END; 0444 00246000 @RT00427 DS 0H 0445 00247000 * END; 0445 00248000 @RC00416 DS 0H 0446 00249000 * IF R6^=0 THEN 0446 00250000 @RC00363 LTR R6,R6 0446 00251000 BZ @RF00446 0446 00252000 * DO; /* ANY BUFFER */ 00253000 * ZLBFDBZ='0'X; /* CLEAR FDB */ 00254000 XC ZLBFDBZ+1(11,R6),ZLBFDBZ+1(R6) 0448 00255000 MVI ZLBFDBZ(R6),X'00' 0448 00256000 * FSBTYPE=FSTYPE; /* SET FSB TYPE */ 00257000 LA @14,16 0449 00258000 ALR @14,R6 0449 00259000 MVI FSBTYPE(@14),X'02' 0449 00260000 * FSBLNGTH=LENGTH(ISTFSB); /* SET FSB LENGTH */ 00261000 MVI FSBLNGTH(@14),X'2C' 0450 00262000 * FSBSAF=LDNTSAF; /* SET SAF */ 00263000 MVC FSBSAF(2,@14),LDNTSAF(R3) 0451 00264000 * FSBDAF=R3->NCBDAF; /* SET DAF */ 00265000 MVC FSBDAF(2,@14),NCBDAF(R3) 0452 00266000 * FDBDATAA=ADDR(ZLBTEXT1); /* SET DATA ADDR */ 00267000 LA @14,ZLBTEXT1(,R6) 0453 00268000 ST @14,FDBDATAA(,R6) 0453 00269000 * FDBDATCT=LENGTH(ISTCSW)+4;/* SET DATA CT @ZM40666*/ 00270000 MVC FDBDATCT(2,R6),@CH00032 0454 00271000 * ZLBTCSW=IOSCSW; /* COPY CSW */ 00272000 MVC ZLBTCSW(7,R6),IOSCSW+412(R3) 0455 00273000 * END; 0456 00274000 * END; 0457 00275000 @RF00446 DS 0H 0458 00276000 * IF R6^=0 THEN 0458 00277000 LTR R6,R6 0458 00278000 BZ @RF00458 0458 00279000 * DO; /* ANY BUFFER */ 00280000 * IF LDNZF008=ON&((CSWDE='1'B)|(CSWUC='1'B)|(CSWIL='1'B)|(CSWPTNC 00281000 * ='1'B)|(CSWPGMC='1'B)|(CSWCDC='1'B)|(CSWCCC='1'B)|(CSWICC= 00282000 * '1'B)|(CSWCC='1'B)) THEN 0460 00283000 * 0460 00284000 TM LDNZF008(R3),B'00000010' 0460 00285000 BNO @RF00460 0460 00286000 LA @14,IOSCSW+412(,R3) 0460 00287000 BCTR @14,0 0460 00288000 TM CSWDE(@14),B'00000110' 0460 00289000 BNZ @RT00460 0460 00290000 TM CSWIL(@14),B'01111111' 0460 00291000 BZ @RF00460 0460 00292000 @RT00460 DS 0H 0461 00293000 * /***********************************************************/ 00294000 * /* */ 00295000 * /* IF THIS IS THE END OF A PURGED REQUEST AND IF ANY OF THE*/ 00296000 * /* ABOVE CSW STATUS FLAGS ARE ON @Y30APHZ*/ 00297000 * /* */ 00298000 * /***********************************************************/ 00299000 * 0461 00300000 * DO; 0461 00301000 * ZLBCOMP=ZLBTCMDR; /* COMP CODE = CMD RESET */ 00302000 MVI ZLBCOMP(R6),X'24' 0462 00303000 */* TPQUE (ADDR(ZLBFSB),ADDR(ATCZPAB1)->DYPPAB) NORM DIS */ 00304000 */* CMZVER = OS/VS2 */ 00305000 * 0463 00306000 * DO; 0463 00307000 * RFY 0464 00308000 * (GPR00P, 0464 00309000 * GPR01P, 0464 00310000 * GPR04P, 0464 00311000 * GPR05P, 0464 00312000 * GPR15P) RSTD; 0464 00313000 * GEN REFS(GPR01P) SETS(RPHWORK) 0465 00314000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 0465 00315000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 00316000 * GPR00P=0; 0466 00317000 SLR GPR00P,GPR00P 0466 00318000 * GPR15P=ADDR(ADDR(ATCZPAB1)->DYPPAB);/* HOLD PAB PTR */ 00319000 LA GPR15P,DYPPAB+1104(,R2) 0467 00320000 * GPR04P=ADDR(ZLBFSB); /* WORK ELE PTR */ 00321000 LA GPR04P,ZLBFSB(,R6) 0468 00322000 * GPR05P=GPR15P; /* PASS PAB PTR */ 00323000 LR GPR05P,GPR15P 0469 00324000 * CALL ATCLCPTR->ATCAP37->ISTAPC37; 0470 00325000 L @14,ATCLCPTR 0470 00326000 L @15,ATCAP37(,@14) 0470 00327000 BALR @14,@15 0470 00328000 * GEN(NOPR 2) 0471 00329000 * NOSETS NOREFS; 0471 00330000 NOPR 2 00331000 * RFY 0472 00332000 * (GPR00P, 0472 00333000 * GPR01P, 0472 00334000 * GPR04P, 0472 00335000 * GPR05P, 0472 00336000 * GPR15P) UNRSTD; 0472 00337000 * END; /* *** END OF TPQUE GENERATION */ 00338000 * ADDR(LDNCSWSV)->CSWCCWA=LDNZTCP;/* SET HIO CSW C.P. ADDR 00339000 * @ZM31877*/ 00340000 MVC CSWCCWA+60(3,R3),LDNZTCP+1(R3) 0474 00341000 * R6=LDNZV001; /* GET ADDRESS OF RESET BFR */ 00342000 L R6,LDNZV001(,R3) 0475 00343000 * CALL ATCZLFVT->ZLFZFFXA;/* SIO Q CLEANUP */ 00344000 L @05,ATCZLFVT(,R2) 0476 00345000 L @15,ZLFZFFXA(,@05) 0476 00346000 BALR @14,@15 0476 00347000 * LDNZF008=OFF; /* HIO IN PROGRESS=OFF */ 00348000 L @14,LDNZF008-3(,R3) 0477 00349000 @GL00006 LR @05,@14 0477 00350000 N @05,@CF03590 0477 00351000 CS @14,@05,LDNZF008-3(R3) 0477 00352000 BNE @GL00006 0477 00353000 * END; 0478 00354000 * ELSE 0479 00355000 * DO; 0479 00356000 B @RC00460 0479 00357000 @RF00460 DS 0H 0480 00358000 * DO; 0480 00359000 * ZLBCOMP=ZLBTSUC; /* COMP CODE=TEST COMPLETION */ 00360000 MVI ZLBCOMP(R6),X'20' 0481 00361000 * R15=IOSCC&'30'X; /* ISOLATE SET CONDITION CODE 0482 00362000 * @Y30APHZ*/ 00363000 LA @05,412 0482 00364000 ALR @05,R3 0482 00365000 LA R15,48 0482 00366000 SLR @00,@00 0482 00367000 IC @00,IOSCC(,@05) 0482 00368000 NR R15,@00 0482 00369000 * SRL(R15,4); /* FORMAT COND. CODE @Y30APHZ*/ 00370000 SRL R15,4 0483 00371000 * FSBSFLGS=R15; /* SET FSB COND. CODE @ZM31876*/ 00372000 LA @14,16 0484 00373000 ALR @14,R6 0484 00374000 STC R15,FSBSFLGS(,@14) 0484 00375000 * IF FSBSFLGS=3 /* IF SIO CC 3 9021 @Y30APHZ*/ 00376000 * |CSWUC=ON THEN /* OR UNIT CHECK @Y30APHZ*/ 00377000 CLI FSBSFLGS(@14),3 0485 00378000 BE @RT00485 0485 00379000 LA @14,IOSCSW(,@05) 0485 00380000 TM CSWUC-1(@14),B'00000010' 0485 00381000 BNO @RF00485 0485 00382000 @RT00485 DS 0H 0486 00383000 * DO; 0486 00384000 * ZLBCOMP=ZLBTUSUC; /* SET COMP CODE NOT SUCCESS */ 00385000 MVI ZLBCOMP(R6),X'38' 0487 00386000 * ZLBSTAT=CSWSTAT; /* SET STATUS */ 00387000 LA @14,412 0488 00388000 ALR @14,R3 0488 00389000 LA @05,IOSCSW(,@14) 0488 00390000 MVC ZLBSTAT(2,R6),CSWSTAT-1(@05) 0488 00391000 * ZLBSNS=IOSSNS(1:8);/* SET SENSE */ 00392000 MVC ZLBSNS(1,R6),IOSSNS(@14) 0489 00393000 * END; 0490 00394000 * 0490 00395000 */* TPQUE (ADDR(ZLBFSB),ADDR(ATCZPAB1)->DYPPAB) NORM DIS */ 00396000 */* CMZVER = OS/VS2 */ 00397000 * 0491 00398000 * DO; 0491 00399000 @RF00485 DS 0H 0492 00400000 * RFY 0492 00401000 * (GPR00P, 0492 00402000 * GPR01P, 0492 00403000 * GPR04P, 0492 00404000 * GPR05P, 0492 00405000 * GPR15P) RSTD; 0492 00406000 * GEN REFS(GPR01P) SETS(RPHWORK) 0493 00407000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 0493 00408000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 00409000 * GPR00P=0; 0494 00410000 SLR GPR00P,GPR00P 0494 00411000 * GPR15P=ADDR(ADDR(ATCZPAB1)->DYPPAB);/* HOLD PAB PTR */ 00412000 LA GPR15P,DYPPAB+1104(,R2) 0495 00413000 * GPR04P=ADDR(ZLBFSB);/* WORK ELE PTR */ 00414000 LA GPR04P,ZLBFSB(,R6) 0496 00415000 * GPR05P=GPR15P; /* PASS PAB PTR */ 00416000 LR GPR05P,GPR15P 0497 00417000 * CALL ATCLCPTR->ATCAP37->ISTAPC37; 0498 00418000 L @14,ATCLCPTR 0498 00419000 L @15,ATCAP37(,@14) 0498 00420000 BALR @14,@15 0498 00421000 * GEN(NOPR 2) 0499 00422000 * NOSETS NOREFS; 0499 00423000 NOPR 2 00424000 * RFY 0500 00425000 * (GPR00P, 0500 00426000 * GPR01P, 0500 00427000 * GPR04P, 0500 00428000 * GPR05P, 0500 00429000 * GPR15P) UNRSTD; 0500 00430000 * END; /* *** END OF TPQUE GENERATION */ 00431000 * END; 0502 00432000 * END; 0503 00433000 * END; 0504 00434000 * ELSE 0505 00435000 * ; 0505 00436000 @RF00458 DS 0H 0506 00437000 * R15=FOUR; /* NO REDRIVE RTN CODE */ 00438000 @RC00458 LA R15,4 0506 00439000 * RFY 0507 00440000 * (R12, 0507 00441000 * R14) RSTD; /* @Z30APH2*/ 00442000 * R14=LDNZ2RR; /* @Z30APH2*/ 00443000 L R14,LDNZ2RR(,R3) 0508 00444000 * R12=LDNZ1RR; /* RESTORE CALLER'S BASE REGISTER 00445000 * @Z30APH2*/ 00446000 L R12,LDNZ1RR(,R3) 0509 00447000 * RFY 0510 00448000 * (R12, 0510 00449000 * R14) UNRSTD; /* @Z30APH2*/ 00450000 * GEN REFS(R14) EXIT NOSEQFLOW(BR R14); 0511 00451000 * 0511 00452000 BR R14 00453000 */* TPEPILOG */ 00454000 * 0512 00455000 * GEN(PRINT OFF); 0512 00456000 PRINT OFF 00457000 */* ***** POOL ENTRY ***** */ 0513 00458000 */* INITIAL LEVEL 001 12/20/74 */ 00459000 *DCL 1 ISTBPENT BDY(DWORD) BASED(BPEPTR), 0513 00460000 * 2 BPEPID CHAR(4), /* POOL ID */ 00461000 * 2 BPEFLAGS BIT(16), /* POOL FLAGS ZUP0589 @Z40GKDS*/ 00462000 * 3 BPEFM BIT(1), /* POOL FORMAT */ 00463000 * 3 BPEDISP BIT(1), /* SHARED OR PRIVATE */ 00464000 * 3 BPEFIXED BIT(1), /* FIXED OR PAGEABLE */ 00465000 * 3 BPENFCHP BIT(1), /* NON-FETCH PROTECTION */ 00466000 * 3 BPEAL48 BIT(1), /* 4,8 ALIGNEMENT OF BUFFERS */ 00467000 * 3 BPECBID BIT(1), /* CBID POOL */ 00468000 * 3 BPENWS BIT(1), /* NON-WORKING SET POOL */ 00469000 * 3 BPERSV01 BIT(1), /* RESERVED ZUP0589 @Z40GKDS*/ 00470000 * 3 BPEUSRF BIT(1), /* USER REQUIRES FIXED BUF */ 00471000 * 3 BPERSV02 BIT(7), /* RESERVED ZUP0589 @Z40GKDS*/ 00472000 * 2 BPEBFSIZ FIXED(15), /* BUFFER SIZE IN BYTES */ 00473000 * 2 BPEBPCB PTR(31), /* ADDRESS OF BPCB */ 00474000 * 2 BPERSV03 CHAR(4); /* RESERVED */ 00475000 */* ***** POOL DIRECTORY ***** */ 0514 00476000 */* REVISIONS 002 03/20/75 */ 00477000 *DCL 1 ISTBPDTY BDY(DWORD) BASED(BPDPTR), 0514 00478000 * 2 BPDHDR CHAR(144) BDY(WORD),/* DIRECTORY HEADER */ 00479000 * 3 BPDBPENT FIXED(15), /* CURRENT NUMBER OF ENTRIES */ 00480000 * 3 BPDBPMAX FIXED(15), /* MAXIMUN NUMBER OF ENTRIES */ 00481000 * 3 BPDCHBNO FIXED(15), /* NO. BUFFERS FOR CHPGM */ 00482000 * 3 BPDCHBSZ FIXED(15), /* BUFFER SIZE FOR CH PGM */ 00483000 * 3 BPDCHPCB PTR(31), /* BPCB ADDR FOR CHPGM */ 00484000 * 3 BPDPGPCB PTR(31), /* BPCB ADDR FOR PGBUF */ 00485000 * 3 BPDADRS1 PTR(31), /* BEGINNIG ADDR FOR POOLS */ 00486000 * 3 BPDADRS2 PTR(31), /* END ADDR FOR POOLS */ 00487000 * 3 BPDFEXT PTR(31), /* ADDR OF 1ST FREE EXTENT */ 00488000 * 3 BPDSMPCB PTR(31), /* SMS WE BPCB ADDRESS */ 00489000 * 3 BPDFBPE PTR(31), /* FIRST POOL ENTRY */ 00490000 * 3 BPDATCVT PTR(31), /* PTR BACK TO ATCVT */ 00491000 * 3 BPDFLAG FIXED(32), /* FLAGS FIELD */ 00492000 * 4 BPDGTR BIT(1), /* GTRACE REQUESTED */ 00493000 * 4 BPDRSV01 BIT(31), /* RESERVED */ 00494000 * 3 BPDREQCT FIXED(15), /* COUNT OF REQSTORES */ 00495000 * 3 BPDREQMX FIXED(15), /* GTRACE REQ INTRVAL */ 00496000 * 3 BPDPARM CHAR(8) BDY(WORD),/* GTRACE PARM */ 00497000 * 4 BPDTRLEN FIXED(15), /* GTRACE DATA LENGTH */ 00498000 * 4 * CHAR(1), /* RESERVED */ 00499000 * 4 BPDTRID CHAR(1), /* GTRACE FORMAT ID */ 00500000 * 4 BPDTRADR PTR(31), /* GTRACE DATA ADDR */ 00501000 * 3 BPDTRACE (11) CHAR(8) BDY(WORD),/* GTRACE DATA */ 00502000 * 4 BPDMUSE FIXED(15), /* MAX BUFFERS IN USE */ 00503000 * 4 BPDMQUE FIXED(15), /* MAX REQUESTS QUEUED */ 00504000 * 4 BPDAVNO FIXED(15), /* AVAIL NUMBER OF BUFFRS */ 00505000 * 4 * CHAR(2), /* RESERVED */ 00506000 * 2 BPDENTRY (12)CHAR(LENGTH(ISTBPENT)), /* BEGIN POOL ENTRY*/ 00507000 * 2 BPDCBID CHAR(*); /* CBID TABLE SECTION */ 00508000 * DCL 0515 00509000 * ISTAPC38 ENTRY BASED(ATCAP38) VALRG(*);/* TPSCHED ROUTINE */ 00510000 * DCL 0516 00511000 * ISTAPC34 ENTRY BASED(ATCAP34) VALRG(*);/* RESET ROUTINE */ 00512000 * DCL 0517 00513000 * ISTAPC37 ENTRY BASED(ATCAP37) VALRG(*);/* TPQUE ROUTINE */ 00514000 * GEN(PRINT ON); 0518 00515000 * 0518 00516000 PRINT ON 00517000 */* END OF TPEPILOG */ 00518000 * 0519 00519000 * END ISTZFMTA 0519 00520000 * 0519 00521000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00522000 */*%INCLUDE SYSLIB (IECDIOSB) */ 00523000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00524000 */*%INCLUDE SYSLIB (IHASRB ) */ 00525000 */*%INCLUDE SYSLIB (CVT ) */ 00526000 */*%INCLUDE SYSUT5 (INITPROC) */ 00527000 */*%INCLUDE SYSUT5 (PURGPROC) */ 00528000 */*%INCLUDE SYSUT5 (NORMPROC) */ 00529000 * 0519 00530000 * ; 0519 00531000 @EL00001 DS 0H 0519 00532000 @EF00001 DS 0H 0519 00533000 @ER00001 BR @14 0519 00534000 @DATA DS 0H 00535000 @CH00032 DC H'12' 00536000 @DATD DSECT 00537000 DS 0F 00538000 ISTZFMTA CSECT 00539000 DS 0F 00540000 @CF00073 DC F'8' 00541000 @CF02745 DC F'28' 00542000 @CF03451 DC XL4'00FFFFFF' 00543000 @CF03581 DC BL4'00000000000000000000000000100000' 00544000 @CF03584 DC BL4'00000000000010000000000000000000' 00545000 @CF03587 DC BL4'00000000000000000000000000000001' 00546000 @CF03590 DC BL4'11111111111111111111111111111101' 00547000 @DATD DSECT 00548000 DS 0D 00549000 IOSBPTR DS A 00550000 UCBPTR DS A 00551000 SRBPTR DS A 00552000 FSBPTR DS A 00553000 LCPBPTR DS A 00554000 BPEPTR DS A 00555000 BPDPTR DS A 00556000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00557000 @ENDDATD EQU * 00558000 ISTZFMTA CSECT 00559000 DS 0F 00560000 @SIZDATD DC AL1(0) 00561000 DC AL3(@ENDDATD-@DATD) 00562000 DS 0D 00563000 FMZA0003 DS FL4 00564000 ORG FMZA0003 00565000 @NM00040 DC AL1(8) 00566000 @NM00041 DC AL3(0) 00567000 ORG FMZA0003+4 00568000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00569000 @01 EQU 01 00570000 @02 EQU 02 00571000 @03 EQU 03 00572000 @04 EQU 04 00573000 @05 EQU 05 00574000 @06 EQU 06 00575000 @07 EQU 07 00576000 @08 EQU 08 00577000 @09 EQU 09 00578000 @10 EQU 10 00579000 @11 EQU 11 00580000 @12 EQU 12 00581000 @13 EQU 13 00582000 @14 EQU 14 00583000 @15 EQU 15 00584000 RPHPTR EQU @01 00585000 LDNCBPTR EQU @03 00586000 R6 EQU @06 00587000 R15 EQU @15 00588000 R4 EQU @04 00589000 R2 EQU @02 00590000 R13 EQU @13 00591000 R3 EQU @03 00592000 R8 EQU @08 00593000 R7 EQU @07 00594000 R9 EQU @09 00595000 R12 EQU @12 00596000 R10 EQU @10 00597000 R14 EQU @14 00598000 GPR01P EQU @01 00599000 GPR02P EQU @02 00600000 GPR03F EQU @03 00601000 GPR03P EQU @03 00602000 GPR04F EQU @04 00603000 GPR04P EQU @04 00604000 GPR05P EQU @05 00605000 GPR13P EQU @13 00606000 GPR15P EQU @15 00607000 GPR00P EQU @00 00608000 GPR00F EQU @00 00609000 GPR01F EQU @01 00610000 GPR02F EQU @02 00611000 GPR05F EQU @05 00612000 GPR06F EQU @06 00613000 GPR06P EQU @06 00614000 GPR07F EQU @07 00615000 GPR07P EQU @07 00616000 GPR08F EQU @08 00617000 GPR08P EQU @08 00618000 GPR09F EQU @09 00619000 GPR09P EQU @09 00620000 GPR10F EQU @10 00621000 GPR10P EQU @10 00622000 GPR11F EQU @11 00623000 GPR11P EQU @11 00624000 GPR12F EQU @12 00625000 GPR12P EQU @12 00626000 GPR13F EQU @13 00627000 GPR15F EQU @15 00628000 R5 EQU @05 00629000 CVTPTR EQU 16 00630000 ATCLCPTR EQU 1032 00631000 IOSB EQU 0 00632000 IOSFLA EQU IOSB 00633000 IOSACHN EQU IOSFLA 00634000 IOSFLB EQU IOSB+1 00635000 IOSFLC EQU IOSB+2 00636000 IOSDVALT EQU IOSFLC 00637000 IOSPKEY EQU IOSB+12 00638000 IOSOPT EQU IOSB+14 00639000 IOSOPT2 EQU IOSB+15 00640000 @NM00002 EQU IOSB+20 00641000 IOSCC EQU @NM00002 00642000 IOSCSW EQU @NM00002+1 00643000 IOSTATUS EQU IOSCSW+3 00644000 IOSSNS EQU IOSB+42 00645000 IOSIPIB EQU IOSB+44 00646000 IOSPATH EQU IOSB+86 00647000 IOSCHN EQU IOSPATH 00648000 IOSCKEY EQU IOSB+89 00649000 IOSEEKA EQU IOSB+100 00650000 IOSCCHH EQU IOSEEKA+3 00651000 IOSSKHH EQU IOSCCHH+2 00652000 UCB EQU 0 00653000 UCBOB EQU 0 00654000 UCBJBNR EQU UCBOB 00655000 UCBFL5 EQU UCBOB+1 00656000 UCBAF EQU UCBFL5 00657000 UCBSTAT EQU UCBOB+3 00658000 UCBCHAN EQU UCBOB+4 00659000 UCBSFLS EQU UCBOB+6 00660000 UCBFLA EQU UCBSFLS 00661000 UCBFL1 EQU UCBFLA 00662000 UCBBSY EQU UCBFL1 00663000 UCBNRY EQU UCBFL1 00664000 UCBPST EQU UCBFL1 00665000 UCBCUB EQU UCBFL1 00666000 UCBFLB EQU UCBSFLS+1 00667000 UCBCHM EQU UCBOB+8 00668000 UCBCHM1 EQU UCBCHM 00669000 UCBPTH0 EQU UCBCHM1 00670000 UCBPTH1 EQU UCBCHM1 00671000 UCBWGT EQU UCBOB+12 00672000 UCBTYP EQU UCBOB+16 00673000 UCBTBYT1 EQU UCBTYP 00674000 UCB1FEA5 EQU UCBTBYT1 00675000 UCB1FEA6 EQU UCBTBYT1 00676000 UCBTBYT2 EQU UCBTYP+1 00677000 UCB2OPT2 EQU UCBTBYT2 00678000 UCBDUDN1 EQU UCB2OPT2 00679000 UCB2OPT3 EQU UCBTBYT2 00680000 UCBDUDN2 EQU UCB2OPT3 00681000 UCB2OPT4 EQU UCBTBYT2 00682000 UCBRWTAU EQU UCB2OPT4 00683000 UCB2OPT6 EQU UCBTBYT2 00684000 UCB2OPT7 EQU UCBTBYT2 00685000 UCBTBYT3 EQU UCBTYP+2 00686000 UCBDVCLS EQU UCBTBYT3 00687000 UCBTBYT4 EQU UCBTYP+3 00688000 UCBEXTPT EQU UCBOB+20 00689000 UCBFLC EQU UCBEXTPT 00690000 UCBDEV EQU UCBOB+24 00691000 UCBCMEXT EQU 0 00692000 UCBATI EQU UCBCMEXT+3 00693000 @NM00011 EQU UCBATI 00694000 UCBFLP1 EQU UCBCMEXT+5 00695000 UCBMT EQU 0 00696000 UCBOCR EQU 0 00697000 UCB3540X EQU 0 00698000 UCBDKBYT EQU UCB3540X+6 00699000 UCB3800X EQU 0 00700000 UCBOPTNS EQU UCB3800X 00701000 UCBACTIV EQU UCB3800X+3 00702000 UCBMDRBF EQU UCB3800X+36 00703000 UCBUCS EQU 0 00704000 UCBUCSOP EQU UCBUCS+4 00705000 UCBFCBOP EQU UCBUCS+5 00706000 SRBSECT EQU 0 00707000 SRBFLC EQU SRBSECT+12 00708000 CVTMAP EQU 0 00709000 CVTDAR EQU CVTMAP+72 00710000 CVTFLGS1 EQU CVTDAR 00711000 CVTDCB EQU CVTMAP+116 00712000 CVTIERLC EQU CVTMAP+144 00713000 CVTOPTA EQU CVTMAP+182 00714000 CVTOPTB EQU CVTMAP+183 00715000 CVTGTF EQU CVTMAP+236 00716000 CVTGTFST EQU CVTGTF 00717000 CVTGTFS EQU CVTGTFST 00718000 CVTSTATE EQU CVTGTFST 00719000 CVTTMODE EQU CVTGTFST 00720000 CVTFORM EQU CVTGTFST 00721000 CVTAQAVT EQU CVTMAP+240 00722000 CVTTCMFG EQU CVTAQAVT 00723000 CVTVOLM2 EQU CVTMAP+244 00724000 CVTTATA EQU CVTVOLM2 00725000 CVTTSKS EQU CVTTATA 00726000 CVTVOLF2 EQU CVTTSKS 00727000 CVTTAT EQU CVTTATA+1 00728000 CVTATER EQU CVTMAP+248 00729000 CVTEXT1 EQU CVTMAP+252 00730000 CVTPURG EQU CVTMAP+260 00731000 CVTQMSG EQU CVTMAP+268 00732000 CVTDMSR EQU CVTMAP+272 00733000 CVTERPV EQU CVTMAP+316 00734000 CVTINTLA EQU CVTMAP+320 00735000 CVTAPF EQU CVTMAP+324 00736000 CVTEXT2 EQU CVTMAP+328 00737000 CVTHJES EQU CVTMAP+332 00738000 CVTPGSIA EQU CVTMAP+348 00739000 CVTA1F1 EQU CVTMAP+356 00740000 CVTSYSK EQU CVTMAP+357 00741000 CVTVOLM1 EQU CVTMAP+380 00742000 CVTVOLF1 EQU CVTVOLM1 00743000 CVTATMCT EQU CVTMAP+388 00744000 CVTXTNT1 EQU 0 00745000 CVTXTNT2 EQU 0 00746000 CVTDSSV EQU CVTXTNT2 00747000 CVTFLGBT EQU CVTXTNT2+5 00748000 CVTQID EQU CVTXTNT2+24 00749000 CVTSHS EQU CVTXTNT2+40 00750000 CVTRV400 EQU CVTXTNT2+52 00751000 CVTRV409 EQU CVTXTNT2+53 00752000 CVTATCVT EQU CVTXTNT2+64 00753000 CVTRV429 EQU CVTXTNT2+84 00754000 CVTRV438 EQU CVTXTNT2+85 00755000 CVTRV457 EQU CVTXTNT2+112 00756000 CVTRV466 EQU CVTXTNT2+113 00757000 CVTFIX EQU 0 00758000 CVTRELNO EQU CVTFIX+252 00759000 ISTDEVCH EQU 0 00760000 DEVSHCH EQU ISTDEVCH 00761000 DEVCHAR EQU DEVSHCH 00762000 DEVTCODE EQU ISTDEVCH+1 00763000 DEVFLAGS EQU ISTDEVCH+3 00764000 DEVFCCTL EQU DEVFLAGS 00765000 DEVCHAR3 EQU DEVFLAGS 00766000 ISTLOK EQU 0 00767000 LOKCHN EQU ISTLOK+1 00768000 LOKCHNG EQU LOKCHN 00769000 @NM00017 EQU LOKCHNG+2 00770000 ISTRPH EQU 0 00771000 RPHFLAGS EQU ISTRPH+2 00772000 RPHAPTYP EQU RPHFLAGS 00773000 RPHFSTLC EQU RPHFLAGS 00774000 RPHFLGB EQU ISTRPH+3 00775000 RPHRPHA EQU ISTRPH+4 00776000 RPHTSKID EQU ISTRPH+8 00777000 RPHRESMA EQU ISTRPH+16 00778000 RPHWPFLG EQU RPHRESMA 00779000 RPHWEA EQU ISTRPH+24 00780000 RPHCSPA EQU RPHWEA 00781000 RPHSRPRM EQU ISTRPH+28 00782000 RPHPABQA EQU ISTRPH+36 00783000 RPHWORK EQU ISTRPH+40 00784000 RPHSAVE1 EQU RPHWORK 00785000 RPHSBITS EQU RPHSAVE1+1 00786000 ISTPAB EQU 0 00787000 PABWQCHN EQU ISTPAB 00788000 PABWEQA EQU PABWQCHN 00789000 PABCHAIN EQU PABWQCHN+4 00790000 PABRPHFG EQU ISTPAB+12 00791000 PABFLAGS EQU PABRPHFG 00792000 PABERLCK EQU PABFLAGS 00793000 PABERRLK EQU PABERLCK 00794000 ISTNCB EQU 0 00795000 NCBDAF EQU ISTNCB+2 00796000 NCBFLAGS EQU ISTNCB+24 00797000 NCBFRAS EQU NCBFLAGS+1 00798000 NCBFTRIO EQU NCBFRAS 00799000 NCBFLAG1 EQU NCBFLAGS+2 00800000 ISTLDNCB EQU 0 00801000 LDNCB EQU ISTLDNCB 00802000 LDNTSAF EQU ISTLDNCB+52 00803000 LDNCFLAG EQU ISTLDNCB+54 00804000 LDNCSWSV EQU ISTLDNCB+60 00805000 LDNZC002 EQU ISTLDNCB+68 00806000 LDNZV001 EQU ISTLDNCB+84 00807000 LDNFLAGS EQU ISTLDNCB+107 00808000 LDNZF004 EQU LDNFLAGS 00809000 LDNZF008 EQU LDNFLAGS 00810000 LDNZF009 EQU LDNFLAGS 00811000 LDNZFF02 EQU LDNFLAGS+2 00812000 LDNZFF69 EQU LDNFLAGS+2 00813000 LDNFLAG2 EQU ISTLDNCB+110 00814000 LDNZV005 EQU ISTLDNCB+160 00815000 LDNZPAB1 EQU ISTLDNCB+168 00816000 LDNZIOLK EQU ISTLDNCB+184 00817000 LDNZERPF EQU ISTLDNCB+185 00818000 LDNZCPAN EQU LDNZERPF 00819000 LDNZEPIN EQU LDNZERPF 00820000 LDNZLPC EQU ISTLDNCB+186 00821000 LDNZTCP EQU ISTLDNCB+188 00822000 LDNDCDEB EQU ISTLDNCB+304 00823000 LDNZ1RR EQU ISTLDNCB+340 00824000 LDNZ2RR EQU ISTLDNCB+344 00825000 LDNZSAV3 EQU ISTLDNCB+376 00826000 LDNZSAV4 EQU LDNZSAV3+8 00827000 LDNIOSB EQU ISTLDNCB+412 00828000 LDNZH003 EQU ISTLDNCB+577 00829000 ISTDYPAB EQU 0 00830000 DYPPAB EQU ISTDYPAB+16 00831000 ISTATCVT EQU 0 00832000 ATCCOM EQU ISTATCVT 00833000 ATCSTAT EQU ATCCOM 00834000 ATCSTAT1 EQU ATCSTAT 00835000 ATCSTFLG EQU ATCSTAT+1 00836000 ATCPOFLG EQU ATCSTAT+2 00837000 ATCSTAT4 EQU ATCSTAT+3 00838000 ATCBPDA EQU ATCCOM+128 00839000 ATCIOTRC EQU ATCCOM+140 00840000 ATCTHTRC EQU ATCIOTRC 00841000 ATCSMRQ EQU ATCCOM+180 00842000 ATCCSMR EQU ISTATCVT+296 00843000 ATCSHRFG EQU ISTATCVT+316 00844000 ATCHPGM EQU ISTATCVT+384 00845000 ATCVLCNT EQU ISTATCVT+772 00846000 ATCSOPD EQU ISTATCVT+792 00847000 ATCSIPD EQU ISTATCVT+800 00848000 ATCSECST EQU ISTATCVT+812 00849000 ATCAOSM EQU ISTATCVT+912 00850000 ATCGSRBQ EQU ATCAOSM+4 00851000 ATCGSRBG EQU ATCGSRBQ 00852000 ATCAP34 EQU ATCAOSM+32 00853000 ATCICAPP EQU ATCAOSM+100 00854000 ATCLDAPP EQU ATCAOSM+120 00855000 ATCDAPVT EQU ATCAOSM+140 00856000 ATCZLFVT EQU ATCAOSM+188 00857000 ATCZPAB1 EQU ATCAOSM+192 00858000 ATCAP37 EQU ATCAOSM+264 00859000 ATCAP38 EQU ATCAOSM+268 00860000 ATCVTFLG EQU ATCAOSM+392 00861000 ATCZFLAG EQU ATCAOSM+588 00862000 ISTFDB EQU 0 00863000 FDBDATAA EQU ISTFDB+4 00864000 FDBDATCT EQU ISTFDB+8 00865000 ISTFSB EQU 0 00866000 FSBFSB EQU ISTFSB 00867000 FSBTYPE EQU FSBFSB 00868000 FSBLNGTH EQU FSBFSB+1 00869000 FSBMNRCD EQU FSBFSB+2 00870000 FSBSFLGS EQU FSBFSB+3 00871000 FSBFSBA EQU FSBFSB+4 00872000 FSBBTH EQU FSBFSB+8 00873000 FSBCID EQU FSBBTH 00874000 FSBSAF EQU FSBCID 00875000 FSBDAF EQU FSBCID+2 00876000 FSBRQTAG EQU FSBBTH+4 00877000 FSBSEQID EQU FSBRQTAG 00878000 FSBFLAGS EQU FSBSEQID 00879000 FSBSEQ EQU FSBSEQID+1 00880000 FSBCSWST EQU FSBBTH+6 00881000 FSBTHFLD EQU FSBCSWST 00882000 FSBTH1 EQU FSBTHFLD 00883000 FSBSYSRS EQU FSBTH1 00884000 FSBTH2 EQU FSBTHFLD+1 00885000 FSBEXTRS EQU FSBTH2 00886000 FSBXFSTS EQU FSBEXTRS 00887000 FSBXCODE EQU FSBEXTRS 00888000 FSBNETRS EQU FSBFSB+16 00889000 FSBSRCAT EQU FSBNETRS 00890000 FSBERC EQU FSBNETRS+1 00891000 FSBFBMI EQU FSBERC 00892000 FSBDMGRS EQU FSBFSB+18 00893000 FSBSS1 EQU FSBDMGRS 00894000 FSBSS2 EQU FSBDMGRS+1 00895000 FSBLCPB EQU FSBFSB+20 00896000 FSBMSGID EQU FSBLCPB 00897000 FSBLCCWA EQU FSBFSB+24 00898000 FSBRLSTS EQU FSBLCCWA 00899000 ISTZLBUF EQU 0 00900000 ZLBFSM EQU ISTZLBUF+4 00901000 ISTZLFVT EQU 0 00902000 ZLFZEFAA EQU ISTZLFVT+4 00903000 ZLFZEAAA EQU ZLFZEFAA 00904000 ZLFZFFFA EQU ISTZLFVT+8 00905000 ZLFZFAFA EQU ZLFZFFFA 00906000 ZLFZEFTA EQU ISTZLFVT+12 00907000 ZLFZEATA EQU ZLFZEFTA 00908000 ZLFZFFTA EQU ISTZLFVT+16 00909000 ZLFZFATA EQU ZLFZFFTA 00910000 ZLFZFFXA EQU ISTZLFVT+20 00911000 ZLFZEFFA EQU ISTZLFVT+24 00912000 ZLFZEAFA EQU ZLFZEFFA 00913000 ZLFZEFCA EQU ISTZLFVT+28 00914000 ZLFZEACA EQU ZLFZEFCA 00915000 ISTCSW EQU 0 00916000 CSWCCWA EQU ISTCSW+1 00917000 CSWSTAT EQU ISTCSW+4 00918000 CSWUSTAT EQU CSWSTAT 00919000 CSWDE EQU CSWUSTAT 00920000 CSWUC EQU CSWUSTAT 00921000 CSWCSTAT EQU CSWSTAT+1 00922000 CSWIL EQU CSWCSTAT 00923000 CSWPGMC EQU CSWCSTAT 00924000 CSWPTNC EQU CSWCSTAT 00925000 CSWCDC EQU CSWCSTAT 00926000 CSWCCC EQU CSWCSTAT 00927000 CSWICC EQU CSWCSTAT 00928000 CSWCC EQU CSWCSTAT 00929000 ISTLCCW EQU 0 00930000 LCCWOP EQU ISTLCCW 00931000 LCCWRWOP EQU LCCWOP 00932000 LCCWCTL EQU LCCWRWOP 00933000 LCCWFLAG EQU ISTLCCW+1 00934000 LCCWLSI EQU LCCWFLAG 00935000 ISTLCPB EQU 0 00936000 LCPREQTG EQU ISTLCPB+2 00937000 LCPFLAGS EQU LCPREQTG 00938000 LCPZF001 EQU LCPFLAGS 00939000 LCPZRT02 EQU LCPZF001 00940000 LCPZF002 EQU LCPFLAGS 00941000 LCPZRT03 EQU LCPZF002 00942000 LCPZF003 EQU LCPFLAGS 00943000 LCPZRT04 EQU LCPZF003 00944000 LCPZF004 EQU LCPFLAGS 00945000 LCPZRT05 EQU LCPZF004 00946000 LCPZRT06 EQU LCPFLAGS 00947000 LCPZRT07 EQU LCPFLAGS 00948000 LCPMNRCD EQU LCPREQTG+1 00949000 LCPZRT08 EQU LCPMNRCD 00950000 LCPZRT09 EQU LCPMNRCD 00951000 LCPCHAIN EQU ISTLCPB+4 00952000 LCPCHAI1 EQU LCPCHAIN 00953000 LCPRUCNT EQU ISTLCPB+8 00954000 LCPFLAG2 EQU ISTLCPB+9 00955000 LCPTLBPI EQU LCPFLAG2 00956000 LCPFID0 EQU LCPFLAG2 00957000 LCPSEQ EQU ISTLCPB+10 00958000 LCPCID EQU ISTLCPB+16 00959000 LCPFDBA EQU ISTLCPB+24 00960000 LCPFLG1 EQU ISTLCPB+37 00961000 LCPFLCCW EQU ISTLCPB+40 00962000 LCPLCCW EQU ISTLCPB+48 00963000 LCPPABA EQU LCPLCCW+4 00964000 LCPRPHA EQU LCPPABA 00965000 ISTZSAVE EQU 0 00966000 ZSAZSVBC EQU ISTZSAVE 00967000 ZSAZSVMS EQU ZSAZSVBC 00968000 ISTZCRR EQU 0 00969000 ZCRCRR EQU ISTZCRR 00970000 ZCRFLGS1 EQU ISTZCRR+12 00971000 ZCRFLGS2 EQU ISTZCRR+13 00972000 ZCRSWFLD EQU ISTZCRR+14 00973000 ZCRENDSH EQU ZCRSWFLD 00974000 ZCRNDLCP EQU ZCRSWFLD 00975000 ZCRRESET EQU ZCRSWFLD 00976000 ZCRFLGS3 EQU ISTZCRR+15 00977000 ZCRGENSW EQU ISTZCRR+16 00978000 ZCRPFLGS EQU ISTZCRR+17 00979000 ZCRIBPR EQU ISTZCRR+18 00980000 ZCRSCPSW EQU ISTZCRR+19 00981000 ZCRPARMS EQU ISTZCRR+24 00982000 ZCRFBPTR EQU ZCRPARMS 00983000 ZCRDFRDA EQU ZCRPARMS+10 00984000 ZCRPCOD1 EQU ZCRPARMS+12 00985000 ZCRPLSBF EQU ZCRPCOD1 00986000 ZCRPCOD2 EQU ZCRPARMS+13 00987000 ZCRSVRTN EQU ISTZCRR+56 00988000 ZCRWKARA EQU ISTZCRR+156 00989000 ZCRCIDSV EQU ISTZCRR+192 00990000 ZCRAUDIT EQU ISTZCRR+440 00991000 ZCRENTER EQU ZCRAUDIT+5 00992000 ZCRLCPB EQU ISTZCRR+480 00993000 ZCRRHRU EQU ZCRLCPB 00994000 ISTBPENT EQU 0 00995000 BPEFLAGS EQU ISTBPENT+4 00996000 ISTBPDTY EQU 0 00997000 BPDHDR EQU ISTBPDTY 00998000 BPDCHPCB EQU BPDHDR+8 00999000 BPDFLAG EQU BPDHDR+40 01000000 BPDPARM EQU BPDHDR+48 01001000 BPDTRACE EQU BPDHDR+56 01002000 FMZL0003 EQU 0 01003000 ISTAPC38 EQU 0 01004000 ISTAPC37 EQU 0 01005000 ISTAPC34 EQU 0 01006000 ISTRACTI EQU 0 01007000 UCBBGN EQU 0 01008000 IOSATTSC EQU IOSIPIB 01009000 IOSWTOWA EQU IOSIPIB 01010000 IOSPCISC EQU IOSIPIB 01011000 UCBOBS01 EQU UCBDEV 01012000 UCBSTAB EQU UCBOBS01+10 01013000 UCBBSVL EQU UCBSTAB 01014000 UCBPRSRS EQU UCBSTAB 01015000 UCBDMCT EQU UCBOBS01+11 01016000 UCBFL4 EQU UCBOBS01+13 01017000 UCBOBS02 EQU UCBDEV 01018000 UCBTFL1 EQU UCBOBS02+19 01019000 UCBXTN EQU UCBOBS02+20 01020000 UCBVOPT EQU UCBXTN 01021000 UCBOBS03 EQU UCBDEV 01022000 UCBXTADR EQU UCBOBS03 01023000 UCBOBS04 EQU UCBDEV 01024000 UCBBTA EQU UCBOBS04+12 01025000 UCBOBS06 EQU UCBDEV 01026000 UCBAOF EQU UCBOBS06 01027000 UCBAOF1 EQU UCBAOF 01028000 UCBAOF2 EQU UCBAOF+1 01029000 @NM00010 EQU UCBOBS06+3 01030000 UCBIRB EQU UCBOBS06+4 01031000 UCBGRAF EQU UCBIRB 01032000 UCBLDNCA EQU UCBOBS06+8 01033000 UCBRDYQ EQU UCBLDNCA 01034000 UCBIRLN EQU UCBRDYQ 01035000 UCBLDNCB EQU UCBRDYQ+1 01036000 UCBCTLNK EQU UCBOBS06+12 01037000 UCBOBS07 EQU UCBDEV 01038000 UCBOBS08 EQU UCBDEV 01039000 UCBCTCAD EQU UCBOBS08 01040000 UCBCTCF1 EQU UCBOBS08+4 01041000 UCBOBS09 EQU UCBDEV 01042000 CVTS01 EQU CVTPGSIA 01043000 CVTLPDIA EQU CVTS01+12 01044000 CVTDIRST EQU CVTLPDIA 01045000 CVTSLIDA EQU CVTS01+24 01046000 CVTCTLFG EQU CVTS01+50 01047000 CVTRV210 EQU CVTS01+424 01048000 CVTRV219 EQU CVTS01+425 01049000 CVTRV228 EQU CVTS01+426 01050000 CVTRV237 EQU CVTS01+427 01051000 CVTMFRTR EQU CVTS01+452 01052000 CVTRV262 EQU CVTS01+468 01053000 CVTRV271 EQU CVTS01+469 01054000 CVTRV280 EQU CVTS01+470 01055000 CVTRV289 EQU CVTS01+471 01056000 CVTGSDA EQU CVTS01+600 01057000 FSBCOMBN EQU FSBNETRS 01058000 FSBRHFLD EQU FSBCOMBN+1 01059000 FSBRH3 EQU FSBRHFLD+2 01060000 FSBLDFLG EQU FSBRH3 01061000 @NM00033 EQU FSBRQTAG 01062000 ZLBBTRAN EQU ISTZLBUF 01063000 ZLBFDBZ EQU ZLBBTRAN 01064000 ZLBAIO EQU ZLBBTRAN+16 01065000 ZLBDTIO EQU ZLBFSM 01066000 ZLBCCW1 EQU ZLBDTIO 01067000 ZLBCCW2 EQU ZLBDTIO+8 01068000 ZLBCCW3 EQU ZLBDTIO+16 01069000 ZLBSNS EQU ZLBDTIO+28 01070000 ZLBERC EQU ZLBDTIO+29 01071000 ZLBCOMP EQU ZLBDTIO+31 01072000 ZLBSAF EQU ZLBDTIO+48 01073000 ZLBSTAT EQU ZLBSAF 01074000 ZLBDEVST EQU ZLBSTAT 01075000 ZLBRQTG EQU ZLBDTIO+50 01076000 ZLBRQFLG EQU ZLBRQTG 01077000 ZLBFLAGS EQU ZLBDTIO+56 01078000 ZLBTCSW EQU ZLBFLAGS+1 01079000 ZLBTCP EQU ZLBFLAGS+8 01080000 ZLBTEXTA EQU ZLBCCW3 01081000 ZLBTEXTB EQU ZLBFLAGS 01082000 ZLBTEXT1 EQU ZLBTEXTB 01083000 ZLBTEXTC EQU ZLBFLAGS 01084000 ZLBPPL EQU ZLBTEXTC 01085000 ZLBFAIO EQU ZLBAIO 01086000 ZLBFSB EQU ZLBFAIO 01087000 LCPZTIE EQU LCPCID 01088000 LCPZSNAM EQU LCPZTIE+8 01089000 SRB EQU SRBSECT 01090000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01091000 LCPZTRV4 EQU LCPZSNAM+4 01092000 LCPZTRV1 EQU LCPZSNAM 01093000 LCPZSNA EQU LCPZTIE+4 01094000 LCPZFMCA EQU LCPZTIE 01095000 ZLBFDBS EQU ZLBFAIO+32 01096000 ZLBPPCSC EQU ZLBPPL+14 01097000 ZLBPPRS1 EQU ZLBPPL+13 01098000 ZLBPPRSV EQU ZLBPPL+12 01099000 ZLBPPCLG EQU ZLBPPL+12 01100000 ZLBPPCC EQU ZLBPPL+12 01101000 ZLBPPINT EQU ZLBPPL+12 01102000 ZLBPPHIO EQU ZLBPPL+12 01103000 ZLBPP EQU ZLBPPL+4 01104000 ZLBPPLDB EQU ZLBPPL+1 01105000 ZLBPPLF EQU ZLBPPL 01106000 ZLBTEXT EQU ZLBTEXTA+8 01107000 ZLBRSV0A EQU ZLBTEXTA 01108000 ZLBRSV09 EQU ZLBFLAGS 01109000 ZLBWCCSP EQU ZLBFLAGS 01110000 ZLBRSV07 EQU ZLBFLAGS 01111000 ZLBLSTST EQU ZLBDTIO+52 01112000 ZLBRQSEQ EQU ZLBRQTG+1 01113000 ZLBRT0B EQU ZLBRQFLG+1 01114000 ZLBRT0A EQU ZLBRQFLG+1 01115000 ZLBRT09 EQU ZLBRQFLG+1 01116000 ZLBRT08 EQU ZLBRQFLG+1 01117000 ZLBRT07 EQU ZLBRQFLG 01118000 ZLBRT06 EQU ZLBRQFLG 01119000 ZLBRT05 EQU ZLBRQFLG 01120000 ZLBRT04 EQU ZLBRQFLG 01121000 ZLBRT03 EQU ZLBRQFLG 01122000 ZLBRT02 EQU ZLBRQFLG 01123000 ZLBRT01 EQU ZLBRQFLG 01124000 ZLBRT00 EQU ZLBRQFLG 01125000 ZLBCHNST EQU ZLBSTAT+1 01126000 ZLBUCST EQU ZLBDEVST 01127000 ZLBDEST EQU ZLBDEVST 01128000 ZLBRSV10 EQU ZLBDEVST 01129000 ZLBLSTBF EQU ZLBDTIO+44 01130000 ZLBRSV11 EQU ZLBDTIO+40 01131000 ZLBLCCWA EQU ZLBDTIO+36 01132000 ZLBLCPBA EQU ZLBDTIO+32 01133000 ZLBRSV08 EQU ZLBDTIO+30 01134000 ZLBRSV05 EQU ZLBERC 01135000 ZLBFBMI EQU ZLBERC 01136000 ZLBETI EQU ZLBERC 01137000 ZLBEMI EQU ZLBERC 01138000 ZLBEBI EQU ZLBERC 01139000 ZLBECI EQU ZLBERC 01140000 ZLBELI EQU ZLBERC 01141000 ZLBSOC EQU ZLBSNS 01142000 ZLBSCC EQU ZLBSNS 01143000 ZLBSUS EQU ZLBSNS 01144000 ZLBSDC EQU ZLBSNS 01145000 ZLBSEQCK EQU ZLBSNS 01146000 ZLBSBOL EQU ZLBSNS 01147000 ZLBSIR EQU ZLBSNS 01148000 ZLBSCR EQU ZLBSNS 01149000 ZLBRSV12 EQU ZLBDTIO+24 01150000 ZLBCPTC3 EQU ZLBCCW3+6 01151000 ZLBRSV04 EQU ZLBCCW3+5 01152000 ZLBCPFL3 EQU ZLBCCW3+4 01153000 ZLBCPAD3 EQU ZLBCCW3+1 01154000 ZLBCPCF3 EQU ZLBCCW3 01155000 ZLBCPTC2 EQU ZLBCCW2+6 01156000 ZLBRSV03 EQU ZLBCCW2+5 01157000 ZLBCPFL2 EQU ZLBCCW2+4 01158000 ZLBCPAD2 EQU ZLBCCW2+1 01159000 ZLBCPCF2 EQU ZLBCCW2 01160000 ZLBCPTC1 EQU ZLBCCW1+6 01161000 ZLBCMOD EQU ZLBCCW1+5 01162000 ZLBCPFL1 EQU ZLBCCW1+4 01163000 ZLBCPAD1 EQU ZLBCCW1+1 01164000 ZLBCPCF1 EQU ZLBCCW1 01165000 ZLBLNG2 EQU ZLBBTRAN+14 01166000 ZLBRSV01 EQU ZLBBTRAN+12 01167000 FSBRT0B EQU @NM00033+1 01168000 FSBRT0A EQU @NM00033+1 01169000 FSBRT09 EQU @NM00033+1 01170000 FSBRT08 EQU @NM00033+1 01171000 FSBRT07 EQU @NM00033 01172000 FSBRT06 EQU @NM00033 01173000 FSBRT05 EQU @NM00033 01174000 FSBRT04 EQU @NM00033 01175000 FSBRT03 EQU @NM00033 01176000 FSBRT02 EQU @NM00033 01177000 FSBRT01 EQU @NM00033 01178000 FSBRT00 EQU @NM00033 01179000 FSBLDCUF EQU FSBLDFLG 01180000 FSBLDSIF EQU FSBLDFLG 01181000 FSBLDSOF EQU FSBLDFLG 01182000 FSBLDEBF EQU FSBLDFLG 01183000 FSBLDBBF EQU FSBLDFLG 01184000 FSBLDFME EQU FSBLDFLG 01185000 FSBLDSCF EQU FSBLDFLG 01186000 FSBLDRMF EQU FSBLDFLG 01187000 FSBRH2 EQU FSBRHFLD+1 01188000 FSBRH1 EQU FSBRHFLD 01189000 FSBALIGN EQU FSBCOMBN 01190000 CVTRV628 EQU CVTS01+728 01191000 CVTRV627 EQU CVTS01+724 01192000 CVTRV626 EQU CVTS01+720 01193000 CVTRV625 EQU CVTS01+716 01194000 CVTRV624 EQU CVTS01+712 01195000 CVTRV623 EQU CVTS01+708 01196000 CVTRV622 EQU CVTS01+704 01197000 CVTRV621 EQU CVTS01+700 01198000 CVTRV620 EQU CVTS01+696 01199000 CVTRV619 EQU CVTS01+692 01200000 CVTRV618 EQU CVTS01+688 01201000 CVTRV617 EQU CVTS01+684 01202000 CVTRV616 EQU CVTS01+680 01203000 CVTRV615 EQU CVTS01+676 01204000 CVTRV614 EQU CVTS01+672 01205000 CVTRV613 EQU CVTS01+668 01206000 CVTRV612 EQU CVTS01+664 01207000 CVTRV611 EQU CVTS01+660 01208000 CVTEVERM EQU CVTS01+656 01209000 CVTIRM EQU CVTS01+652 01210000 CVTCGK EQU CVTS01+648 01211000 CVTRAC EQU CVTS01+644 01212000 CVTRV606 EQU CVTS01+640 01213000 CVTRV605 EQU CVTS01+636 01214000 CVTRV604 EQU CVTS01+632 01215000 CVTEFF02 EQU CVTS01+628 01216000 CVTCBBR EQU CVTS01+624 01217000 CVTSSCR EQU CVTS01+620 01218000 CVTEVENT EQU CVTS01+616 01219000 CVTCRCA EQU CVTS01+612 01220000 CVTTPIO EQU CVTS01+608 01221000 CVTADV EQU CVTS01+604 01222000 CVTGSDAB EQU CVTGSDA 01223000 CVTQV3 EQU CVTS01+596 01224000 CVTQV2 EQU CVTS01+592 01225000 CVTQV1 EQU CVTS01+588 01226000 CVTRPT EQU CVTS01+584 01227000 CVTSSRB EQU CVTS01+580 01228000 CVTCSDRL EQU CVTS01+576 01229000 CVTEXP1 EQU CVTS01+572 01230000 CVTRMPMT EQU CVTS01+568 01231000 CVTRMPTT EQU CVTS01+564 01232000 CVTVPSA EQU CVTS01+560 01233000 CVTVSTOP EQU CVTS01+556 01234000 CVTGTFR8 EQU CVTS01+552 01235000 CVTQUIT EQU CVTS01+548 01236000 CVTVACR EQU CVTS01+544 01237000 CVTWTCB EQU CVTS01+540 01238000 CVTSTPRS EQU CVTS01+536 01239000 CVT0PT02 EQU CVTS01+532 01240000 CVTDARCM EQU CVTS01+528 01241000 CVTIRECM EQU CVTS01+524 01242000 CVTJRECM EQU CVTS01+520 01243000 CVTVEMS0 EQU CVTS01+516 01244000 CVTSPFRR EQU CVTS01+512 01245000 CVTRLSTG EQU CVTS01+508 01246000 CVT0TC0A EQU CVTS01+504 01247000 CVTGMBR EQU CVTS01+500 01248000 CVTLFRM EQU CVTS01+496 01249000 CVTRMBR EQU CVTS01+492 01250000 CVTVIOP EQU CVTS01+488 01251000 CVTRV307 EQU CVTS01+486 01252000 CVTRV306 EQU CVTS01+484 01253000 CVTRV305 EQU CVTS01+482 01254000 CVTRV304 EQU CVTS01+480 01255000 CVTRV303 EQU CVTS01+478 01256000 CVTRV302 EQU CVTS01+476 01257000 CVTTRCA EQU CVTS01+472 01258000 CVTRV297 EQU CVTRV289 01259000 CVTRV296 EQU CVTRV289 01260000 CVTRV295 EQU CVTRV289 01261000 CVTRV294 EQU CVTRV289 01262000 CVTRV293 EQU CVTRV289 01263000 CVTRV292 EQU CVTRV289 01264000 CVTRV291 EQU CVTRV289 01265000 CVTRV290 EQU CVTRV289 01266000 CVTRV288 EQU CVTRV280 01267000 CVTRV287 EQU CVTRV280 01268000 CVTRV286 EQU CVTRV280 01269000 CVTRV285 EQU CVTRV280 01270000 CVTRV284 EQU CVTRV280 01271000 CVTRV283 EQU CVTRV280 01272000 CVTRV282 EQU CVTRV280 01273000 CVTRV281 EQU CVTRV280 01274000 CVTRV279 EQU CVTRV271 01275000 CVTRV278 EQU CVTRV271 01276000 CVTRV277 EQU CVTRV271 01277000 CVTRV276 EQU CVTRV271 01278000 CVTRV275 EQU CVTRV271 01279000 CVTRV274 EQU CVTRV271 01280000 CVTRV273 EQU CVTRV271 01281000 CVTRV272 EQU CVTRV271 01282000 CVTRV270 EQU CVTRV262 01283000 CVTRV269 EQU CVTRV262 01284000 CVTRV268 EQU CVTRV262 01285000 CVTRV267 EQU CVTRV262 01286000 CVTRV266 EQU CVTRV262 01287000 CVTRV265 EQU CVTRV262 01288000 CVTRV264 EQU CVTRV262 01289000 CVTRV263 EQU CVTRV262 01290000 CVTVFP EQU CVTS01+464 01291000 CVTVSI EQU CVTS01+460 01292000 CVTVPSIB EQU CVTS01+456 01293000 CVTMFACT EQU CVTMFRTR 01294000 CVTMFCTL EQU CVTS01+448 01295000 CVTPVBP EQU CVTS01+444 01296000 CVTPWI EQU CVTS01+440 01297000 CVTRV254 EQU CVTS01+438 01298000 CVTRV253 EQU CVTS01+436 01299000 CVTRV252 EQU CVTS01+434 01300000 CVTRV251 EQU CVTS01+433 01301000 CVTRV250 EQU CVTS01+432 01302000 CVTRV249 EQU CVTS01+431 01303000 CVTRV248 EQU CVTS01+430 01304000 CVTRV247 EQU CVTS01+429 01305000 CVTRV246 EQU CVTS01+428 01306000 CVTRV245 EQU CVTRV237 01307000 CVTRV244 EQU CVTRV237 01308000 CVTRV243 EQU CVTRV237 01309000 CVTRV242 EQU CVTRV237 01310000 CVTRV241 EQU CVTRV237 01311000 CVTRV240 EQU CVTRV237 01312000 CVTRV239 EQU CVTRV237 01313000 CVTRV238 EQU CVTRV237 01314000 CVTRV236 EQU CVTRV228 01315000 CVTRV235 EQU CVTRV228 01316000 CVTRV234 EQU CVTRV228 01317000 CVTRV233 EQU CVTRV228 01318000 CVTRV232 EQU CVTRV228 01319000 CVTRV231 EQU CVTRV228 01320000 CVTRV230 EQU CVTRV228 01321000 CVTRV229 EQU CVTRV228 01322000 CVTRV227 EQU CVTRV219 01323000 CVTRV226 EQU CVTRV219 01324000 CVTRV225 EQU CVTRV219 01325000 CVTRV224 EQU CVTRV219 01326000 CVTRV223 EQU CVTRV219 01327000 CVTRV222 EQU CVTRV219 01328000 CVTRV221 EQU CVTRV219 01329000 CVTRV220 EQU CVTRV219 01330000 CVTRV218 EQU CVTRV210 01331000 CVTRV217 EQU CVTRV210 01332000 CVTRV216 EQU CVTRV210 01333000 CVTRV215 EQU CVTRV210 01334000 CVTRV214 EQU CVTRV210 01335000 CVTRV213 EQU CVTRV210 01336000 CVTRV212 EQU CVTRV210 01337000 CVTRV211 EQU CVTRV210 01338000 CVTLCCAT EQU CVTS01+420 01339000 CVTPCCAT EQU CVTS01+416 01340000 CVTIPCRP EQU CVTS01+412 01341000 CVTIPCRI EQU CVTS01+408 01342000 CVTIPCDS EQU CVTS01+404 01343000 CVTAIDVT EQU CVTS01+400 01344000 CVTSSAP EQU CVTS01+396 01345000 CVTEHCIR EQU CVTS01+392 01346000 CVTEHDEF EQU CVTS01+388 01347000 CVTDAIR EQU CVTS01+384 01348000 CVTPERFM EQU CVTS01+380 01349000 CVT044R2 EQU CVTS01+376 01350000 CVTFETCH EQU CVTS01+372 01351000 CVTRSTWD EQU CVTS01+368 01352000 CVTSPOST EQU CVTS01+364 01353000 CVTIOBP EQU CVTS01+360 01354000 CVTASMVT EQU CVTS01+356 01355000 CVTRECRQ EQU CVTS01+352 01356000 CVTWSAC EQU CVTS01+348 01357000 CVTRV149 EQU CVTS01+344 01358000 CVTWSAL EQU CVTS01+340 01359000 CVTSPSA EQU CVTS01+336 01360000 CVTGLMN EQU CVTS01+332 01361000 CVTVEAC0 EQU CVTS01+328 01362000 CVT062R1 EQU CVTS01+324 01363000 CVTRPOST EQU CVTS01+320 01364000 CVTDQIQE EQU CVTS01+316 01365000 CVTCSD EQU CVTS01+312 01366000 CVTLKRMA EQU CVTS01+308 01367000 CVTRSPIE EQU CVTS01+304 01368000 CVTRENQ EQU CVTS01+300 01369000 CVTLQCB EQU CVTS01+296 01370000 CVTFQCB EQU CVTS01+292 01371000 CVTQCS01 EQU CVTS01+288 01372000 CVTAPFT EQU CVTS01+284 01373000 CVTPARRL EQU CVTS01+280 01374000 CVTVWAIT EQU CVTS01+276 01375000 CVTGSPL EQU CVTS01+272 01376000 CVTLSMQ EQU CVTS01+268 01377000 CVTGSMQ EQU CVTS01+264 01378000 CVTEXPRO EQU CVTS01+260 01379000 CVTOPCTP EQU CVTS01+256 01380000 CVTSIC EQU CVTS01+252 01381000 CVTTPIOS EQU CVTS01+248 01382000 CVTRTMS EQU CVTS01+244 01383000 CVTSDBF EQU CVTS01+240 01384000 CVTSCBP EQU CVTS01+236 01385000 CVTSDMP EQU CVTS01+232 01386000 CVTSV60 EQU CVTS01+228 01387000 CVTRTMCT EQU CVTS01+224 01388000 CVTASCBL EQU CVTS01+220 01389000 CVTASCBH EQU CVTS01+216 01390000 CVTGDA EQU CVTS01+212 01391000 CVTASVT EQU CVTS01+208 01392000 CVTVVMDI EQU CVTS01+204 01393000 CVTAQTOP EQU CVTS01+200 01394000 CVTIOSCS EQU CVTS01+196 01395000 CVTSDRM EQU CVTS01+192 01396000 CVTOPTE EQU CVTS01+188 01397000 CVTSTXU EQU CVTS01+184 01398000 CVTQUIS EQU CVTS01+180 01399000 CVTPARS EQU CVTS01+176 01400000 CVTS1EE EQU CVTS01+172 01401000 CVTFRAS EQU CVTS01+168 01402000 CVTQSAS EQU CVTS01+164 01403000 CVTCRAS EQU CVTS01+160 01404000 CVTCRMN EQU CVTS01+156 01405000 CVTDELCP EQU CVTS01+152 01406000 CVTFRECL EQU CVTS01+148 01407000 CVTGETCL EQU CVTS01+144 01408000 CVTBLDCP EQU CVTS01+140 01409000 CVTAUTHL EQU CVTS01+136 01410000 CVTSCAN EQU CVTS01+132 01411000 CVTRV144 EQU CVTS01+130 01412000 CVTMAXMP EQU CVTS01+128 01413000 CVTSTCK EQU CVTS01+124 01414000 CVTRV139 EQU CVTS01+123 01415000 CVTDSSAC EQU CVTS01+122 01416000 CVTRV513 EQU CVTS01+121 01417000 CVTIOSPL EQU CVTS01+120 01418000 CVTPTGT EQU CVTS01+116 01419000 CVTCSPIE EQU CVTS01+112 01420000 CVTSMFEX EQU CVTS01+108 01421000 CVTOLT0A EQU CVTS01+104 01422000 CVTSRBRT EQU CVTS01+100 01423000 CVTPUTL EQU CVTS01+96 01424000 CVTRV519 EQU CVTS01+92 01425000 CVTRV327 EQU CVTS01+88 01426000 CVTRV326 EQU CVTS01+84 01427000 CVTRV325 EQU CVTS01+80 01428000 CVTRV324 EQU CVTS01+76 01429000 CVT0VL01 EQU CVTS01+72 01430000 CVTSHRVM EQU CVTS01+68 01431000 CVTRV332 EQU CVTS01+64 01432000 CVTTAS EQU CVTS01+60 01433000 CVTRSCN EQU CVTS01+56 01434000 CVTTRAC2 EQU CVTS01+54 01435000 CVTTRACE EQU CVTS01+52 01436000 CVTAPG EQU CVTS01+51 01437000 CVTSDTRC EQU CVTCTLFG 01438000 CVTGTRCE EQU CVTCTLFG 01439000 CVTNOMP EQU CVTCTLFG 01440000 CVTRSV79 EQU CVTCTLFG 01441000 CVTDSTAT EQU CVTCTLFG 01442000 CVTRSV78 EQU CVTCTLFG 01443000 CVTRV333 EQU CVTCTLFG 01444000 CVTRV323 EQU CVTCTLFG 01445000 CVTSPVLK EQU CVTS01+49 01446000 CVTRSV77 EQU CVTS01+48 01447000 CVTRV331 EQU CVTS01+44 01448000 CVTRV330 EQU CVTS01+40 01449000 CVTRV329 EQU CVTS01+36 01450000 CVTRV328 EQU CVTS01+32 01451000 CVTRV322 EQU CVTS01+28 01452000 CVTSLID EQU CVTSLIDA+1 01453000 CVTSYLK EQU CVTSLIDA 01454000 CVTRV321 EQU CVTS01+20 01455000 CVTRV320 EQU CVTS01+16 01456000 CVTLPDIR EQU CVTLPDIA+1 01457000 CVTRSV69 EQU CVTDIRST 01458000 CVTRSV68 EQU CVTDIRST 01459000 CVTRSV67 EQU CVTDIRST 01460000 CVTRSV66 EQU CVTDIRST 01461000 CVTRSV65 EQU CVTDIRST 01462000 CVTRSV64 EQU CVTDIRST 01463000 CVTRSV63 EQU CVTDIRST 01464000 CVTDICOM EQU CVTDIRST 01465000 CVTPVTP EQU CVTS01+8 01466000 CVTLPDSR EQU CVTS01+4 01467000 CVTGETL EQU CVTS01 01468000 UCBRV066 EQU UCBOBS09+4 01469000 UCBIOSBA EQU UCBOBS09 01470000 UCBRV042 EQU UCBOBS08+5 01471000 UCBRV082 EQU UCBCTCF1 01472000 UCBRV081 EQU UCBCTCF1 01473000 UCBRV080 EQU UCBCTCF1 01474000 UCBRV079 EQU UCBCTCF1 01475000 UCBRV078 EQU UCBCTCF1 01476000 UCBRV077 EQU UCBCTCF1 01477000 UCBRV076 EQU UCBCTCF1 01478000 UCBCTC80 EQU UCBCTCF1 01479000 UCBCTCAL EQU UCBCTCAD 01480000 UCBICNCB EQU UCBOBS07+4 01481000 UCBRV040 EQU UCBOBS07 01482000 UCBCTLNA EQU UCBCTLNK+1 01483000 UCBRLN EQU UCBCTLNK 01484000 UCBRDYQA EQU UCBLDNCB 01485000 UCBINRLN EQU UCBIRLN 01486000 UCBIRBA EQU UCBIRB+1 01487000 UCBRV039 EQU UCBGRAF 01488000 UCBDWNR EQU UCBGRAF 01489000 UCBRPND EQU UCBGRAF 01490000 UCBUPM EQU UCBGRAF 01491000 UCBBTAM EQU UCBGRAF 01492000 UCBDRNO EQU UCBGRAF 01493000 UCBDRO EQU UCBGRAF 01494000 UCBOIP EQU UCBGRAF 01495000 UCBATRCD EQU @NM00010 01496000 UCBSKPFG EQU @NM00010 01497000 UCBRIPND EQU @NM00010 01498000 UCBRTIAC EQU @NM00010 01499000 UCBRSV79 EQU @NM00010 01500000 UCBRSV78 EQU @NM00010 01501000 UCBRSV77 EQU @NM00010 01502000 UCBOLTEP EQU @NM00010 01503000 UCBATNCT EQU UCBOBS06+2 01504000 UCBRSV76 EQU UCBAOF2 01505000 UCBRSV75 EQU UCBAOF2 01506000 UCBRSV74 EQU UCBAOF2 01507000 UCBRSV73 EQU UCBAOF2 01508000 UCBRSV72 EQU UCBAOF2 01509000 UCBRSV71 EQU UCBAOF2 01510000 UCBRSV70 EQU UCBAOF2 01511000 UCBRSV69 EQU UCBAOF2 01512000 UCBRSV68 EQU UCBAOF1 01513000 UCBRSV67 EQU UCBAOF1 01514000 UCBRSV66 EQU UCBAOF1 01515000 UCBRSV65 EQU UCBAOF1 01516000 UCBRSV64 EQU UCBAOF1 01517000 UCBOFNL EQU UCBAOF1 01518000 UCBOFSP EQU UCBAOF1 01519000 UCBOFMCR EQU UCBAOF1 01520000 UCBBTB EQU UCBBTA+1 01521000 UCBDI EQU UCBBTA 01522000 UCBSNS EQU UCBOBS04+8 01523000 UCBTEB EQU UCBOBS04+4 01524000 UCBGCB EQU UCBOBS04+3 01525000 UCBOPEN EQU UCBOBS04+2 01526000 UCBSTART EQU UCBOBS04 01527000 UCBXTNB EQU UCBXTN+1 01528000 UCBRSV22 EQU UCBVOPT 01529000 UCBRSV21 EQU UCBVOPT 01530000 UCBRSV20 EQU UCBVOPT 01531000 UCBESVE EQU UCBVOPT 01532000 UCBERPC EQU UCBVOPT 01533000 UCBESVC EQU UCBVOPT 01534000 UCBEVA EQU UCBVOPT 01535000 UCBESV EQU UCBVOPT 01536000 UCBRV009 EQU UCBTFL1 01537000 UCBRV008 EQU UCBTFL1 01538000 UCBRV007 EQU UCBTFL1 01539000 UCBRV006 EQU UCBTFL1 01540000 UCBRV005 EQU UCBTFL1 01541000 UCBRV038 EQU UCBTFL1 01542000 UCBNSLTP EQU UCBTFL1 01543000 UCBNLTP EQU UCBTFL1 01544000 UCBRES1B EQU UCBOBS02+18 01545000 UCBFSER EQU UCBOBS02+12 01546000 @NM00009 EQU UCBOBS02+4 01547000 UCBFSEQ EQU UCBOBS02+2 01548000 UCBFSCT EQU UCBOBS02 01549000 UCBNEXP EQU UCBOBS01+20 01550000 UCBBASE EQU UCBOBS01+16 01551000 UCBRES1A EQU UCBOBS01+15 01552000 UCBUSER EQU UCBOBS01+14 01553000 UCBFL47 EQU UCBFL4 01554000 UCBFL46 EQU UCBFL4 01555000 UCBFL45 EQU UCBFL4 01556000 UCBRV065 EQU UCBFL4 01557000 UCBDSS EQU UCBFL4 01558000 UCBRV028 EQU UCBFL4 01559000 UCBWDAV EQU UCBFL4 01560000 UCBDAVV EQU UCBFL4 01561000 UCBSQC EQU UCBOBS01+12 01562000 UCBDATP EQU UCBOBS01+12 01563000 UCBDMC EQU UCBDMCT 01564000 UCBMOUNT EQU UCBDMCT 01565000 UCBBNUL EQU UCBSTAB 01566000 UCBSHAR EQU UCBSTAB 01567000 UCBBSTR EQU UCBSTAB 01568000 UCBBPUB EQU UCBSTAB 01569000 UCBBPRV EQU UCBSTAB 01570000 UCBBALB EQU UCBPRSRS 01571000 UCBPGFL EQU UCBSTAB 01572000 UCBDVSHR EQU UCBBSVL 01573000 UCBVOLI EQU UCBOBS01+4 01574000 UCBVTOC EQU UCBOBS01 01575000 IOSPCIWA EQU IOSPCISC+44 01576000 IOSPCIRS EQU IOSPCISC+8 01577000 @NM00007 EQU IOSPCISC+4 01578000 @NM00006 EQU IOSPCISC 01579000 IOSWRNDR EQU IOSWTOWA+4 01580000 IOSWTOPT EQU IOSWTOWA+3 01581000 IOSWTOCP EQU IOSWTOWA+2 01582000 IOSWTOCH EQU IOSWTOWA 01583000 IOSATTWA EQU IOSATTSC+40 01584000 @NM00005 EQU IOSATTSC+24 01585000 IOSATTSN EQU IOSATTSC 01586000 BPDCBID EQU ISTBPDTY+336 01587000 BPDENTRY EQU ISTBPDTY+144 01588000 @NM00043 EQU BPDTRACE+6 01589000 BPDAVNO EQU BPDTRACE+4 01590000 BPDMQUE EQU BPDTRACE+2 01591000 BPDMUSE EQU BPDTRACE 01592000 BPDTRADR EQU BPDPARM+4 01593000 BPDTRID EQU BPDPARM+3 01594000 @NM00042 EQU BPDPARM+2 01595000 BPDTRLEN EQU BPDPARM 01596000 BPDREQMX EQU BPDHDR+46 01597000 BPDREQCT EQU BPDHDR+44 01598000 BPDRSV01 EQU BPDFLAG 01599000 BPDGTR EQU BPDFLAG 01600000 BPDATCVT EQU BPDHDR+36 01601000 BPDFBPE EQU BPDHDR+32 01602000 BPDSMPCB EQU BPDHDR+28 01603000 BPDFEXT EQU BPDHDR+24 01604000 BPDADRS2 EQU BPDHDR+20 01605000 BPDADRS1 EQU BPDHDR+16 01606000 BPDPGPCB EQU BPDHDR+12 01607000 BPDCHBSZ EQU BPDHDR+6 01608000 BPDCHBNO EQU BPDHDR+4 01609000 BPDBPMAX EQU BPDHDR+2 01610000 BPDBPENT EQU BPDHDR 01611000 BPERSV03 EQU ISTBPENT+12 01612000 BPEBPCB EQU ISTBPENT+8 01613000 BPEBFSIZ EQU ISTBPENT+6 01614000 BPERSV02 EQU BPEFLAGS+1 01615000 BPEUSRF EQU BPEFLAGS+1 01616000 BPERSV01 EQU BPEFLAGS 01617000 BPENWS EQU BPEFLAGS 01618000 BPECBID EQU BPEFLAGS 01619000 BPEAL48 EQU BPEFLAGS 01620000 BPENFCHP EQU BPEFLAGS 01621000 BPEFIXED EQU BPEFLAGS 01622000 BPEDISP EQU BPEFLAGS 01623000 BPEFM EQU BPEFLAGS 01624000 BPEPID EQU ISTBPENT 01625000 ZCRRU EQU ZCRRHRU+3 01626000 ZCRRH EQU ZCRRHRU 01627000 ZCRWORDA EQU ISTZCRR+477 01628000 ZCRCMNRC EQU ISTZCRR+476 01629000 ZCRRSV97 EQU ZCRENTER+18 01630000 ZCREIC2B EQU ZCRENTER+18 01631000 ZCREAC2B EQU ZCRENTER+18 01632000 ZCRELCAB EQU ZCRENTER+18 01633000 ZCREDCMF EQU ZCRENTER+18 01634000 ZCREBCIF EQU ZCRENTER+18 01635000 ZCREICSG EQU ZCRENTER+18 01636000 ZCREDCK0 EQU ZCRENTER+18 01637000 ZCRECFY0 EQU ZCRENTER+17 01638000 ZCREKCCB EQU ZCRENTER+17 01639000 ZCREDCNB EQU ZCRENTER+17 01640000 ZCREICOE EQU ZCRENTER+17 01641000 ZCREBCNB EQU ZCRENTER+17 01642000 ZCREBC0L EQU ZCRENTER+17 01643000 ZCREBCAL EQU ZCRENTER+17 01644000 ZCREDCQR EQU ZCRENTER+17 01645000 ZCREDCPR EQU ZCRENTER+16 01646000 ZCREBCSB EQU ZCRENTER+16 01647000 ZCREAC1R EQU ZCRENTER+16 01648000 ZCRECCCI EQU ZCRENTER+16 01649000 ZCRECCAI EQU ZCRENTER+16 01650000 ZCRECCBI EQU ZCRENTER+16 01651000 ZCREBCAR EQU ZCRENTER+16 01652000 ZCREBCDR EQU ZCRENTER+16 01653000 ZCREBCBR EQU ZCRENTER+15 01654000 ZCREDCXR EQU ZCRENTER+15 01655000 ZCREDCWB EQU ZCRENTER+15 01656000 ZCREDCWR EQU ZCRENTER+15 01657000 ZCREKCCN EQU ZCRENTER+15 01658000 ZCREKCBN EQU ZCRENTER+15 01659000 ZCREKCBB EQU ZCRENTER+15 01660000 ZCREJC0B EQU ZCRENTER+15 01661000 ZCREJCDB EQU ZCRENTER+14 01662000 ZCREJCCB EQU ZCRENTER+14 01663000 ZCREJCBB EQU ZCRENTER+14 01664000 ZCREJCAB EQU ZCRENTER+14 01665000 ZCREIC1B EQU ZCRENTER+14 01666000 ZCREIC0B EQU ZCRENTER+14 01667000 ZCREICX0 EQU ZCRENTER+14 01668000 ZCREICWB EQU ZCRENTER+14 01669000 ZCREICVB EQU ZCRENTER+13 01670000 ZCREICUB EQU ZCRENTER+13 01671000 ZCREICTB EQU ZCRENTER+13 01672000 ZCREICSC EQU ZCRENTER+13 01673000 ZCREICSB EQU ZCRENTER+13 01674000 ZCREICRB EQU ZCRENTER+13 01675000 ZCREICQB EQU ZCRENTER+13 01676000 ZCREICQA EQU ZCRENTER+13 01677000 ZCREICOB EQU ZCRENTER+12 01678000 ZCREICOA EQU ZCRENTER+12 01679000 ZCREICNB EQU ZCRENTER+12 01680000 ZCREICNA EQU ZCRENTER+12 01681000 ZCREICMB EQU ZCRENTER+12 01682000 ZCREICLB EQU ZCRENTER+12 01683000 ZCREICKG EQU ZCRENTER+12 01684000 ZCREICKE EQU ZCRENTER+12 01685000 ZCREICKB EQU ZCRENTER+11 01686000 ZCREICJB EQU ZCRENTER+11 01687000 ZCREICID EQU ZCRENTER+11 01688000 ZCREICIB EQU ZCRENTER+11 01689000 ZCREICHB EQU ZCRENTER+11 01690000 ZCREICGB EQU ZCRENTER+11 01691000 ZCREICEB EQU ZCRENTER+11 01692000 ZCREICDB EQU ZCRENTER+11 01693000 ZCREICCI EQU ZCRENTER+10 01694000 ZCREICCB EQU ZCRENTER+10 01695000 ZCREICBI EQU ZCRENTER+10 01696000 ZCREICBB EQU ZCRENTER+10 01697000 ZCREICAB EQU ZCRENTER+10 01698000 ZCREICAA EQU ZCRENTER+10 01699000 ZCREHCAN EQU ZCRENTER+10 01700000 ZCREGC0B EQU ZCRENTER+10 01701000 ZCREGC0A EQU ZCRENTER+9 01702000 ZCREGCLA EQU ZCRENTER+9 01703000 ZCREGCEB EQU ZCRENTER+9 01704000 ZCREGCDB EQU ZCRENTER+9 01705000 @NM00039 EQU ZCRENTER+9 01706000 ZCREGCBB EQU ZCRENTER+9 01707000 ZCREGCAB EQU ZCRENTER+9 01708000 ZCREFCEB EQU ZCRENTER+9 01709000 ZCREFCEA EQU ZCRENTER+8 01710000 ZCREECTA EQU ZCRENTER+8 01711000 ZCREECEA EQU ZCRENTER+8 01712000 ZCREECDA EQU ZCRENTER+8 01713000 ZCREECCB EQU ZCRENTER+8 01714000 ZCREECCA EQU ZCRENTER+8 01715000 ZCREECBB EQU ZCRENTER+8 01716000 ZCREECBA EQU ZCRENTER+8 01717000 ZCREDCMB EQU ZCRENTER+7 01718000 ZCREDCL0 EQU ZCRENTER+7 01719000 ZCREDCKB EQU ZCRENTER+7 01720000 ZCREDCKA EQU ZCRENTER+7 01721000 ZCREDCJ0 EQU ZCRENTER+7 01722000 ZCREDCI0 EQU ZCRENTER+7 01723000 ZCREDCH0 EQU ZCRENTER+7 01724000 ZCREDCF0 EQU ZCRENTER+7 01725000 ZCREDCE0 EQU ZCRENTER+6 01726000 ZCREDCD0 EQU ZCRENTER+6 01727000 ZCREDCC0 EQU ZCRENTER+6 01728000 ZCREDCB0 EQU ZCRENTER+6 01729000 ZCREDCA0 EQU ZCRENTER+6 01730000 ZCRECC2B EQU ZCRENTER+6 01731000 ZCRECC1B EQU ZCRENTER+6 01732000 ZCRECC1A EQU ZCRENTER+6 01733000 ZCRECC0B EQU ZCRENTER+5 01734000 ZCRECC0A EQU ZCRENTER+5 01735000 ZCREBC0B EQU ZCRENTER+5 01736000 ZCREBC0A EQU ZCRENTER+5 01737000 ZCREBCZ0 EQU ZCRENTER+5 01738000 ZCREBCY0 EQU ZCRENTER+5 01739000 ZCREBCX0 EQU ZCRENTER+5 01740000 ZCREBCXA EQU ZCRENTER+5 01741000 ZCREBCSC EQU ZCRENTER+4 01742000 ZCREBCRB EQU ZCRENTER+4 01743000 ZCREBCRA EQU ZCRENTER+4 01744000 ZCREBCQB EQU ZCRENTER+4 01745000 ZCREBCPB EQU ZCRENTER+4 01746000 ZCREBCOB EQU ZCRENTER+4 01747000 ZCREBCNE EQU ZCRENTER+4 01748000 ZCREBCND EQU ZCRENTER+4 01749000 ZCREBCMB EQU ZCRENTER+3 01750000 ZCREBCLB EQU ZCRENTER+3 01751000 ZCREBCLA EQU ZCRENTER+3 01752000 ZCREBCKB EQU ZCRENTER+3 01753000 ZCREBCKA EQU ZCRENTER+3 01754000 ZCREBCJB EQU ZCRENTER+3 01755000 ZCREBCJA EQU ZCRENTER+3 01756000 ZCREBCID EQU ZCRENTER+3 01757000 ZCREBCIB EQU ZCRENTER+2 01758000 ZCREBCIA EQU ZCRENTER+2 01759000 ZCREBCHB EQU ZCRENTER+2 01760000 ZCREBCHA EQU ZCRENTER+2 01761000 ZCREBCGB EQU ZCRENTER+2 01762000 ZCREBCGA EQU ZCRENTER+2 01763000 ZCREBCFB EQU ZCRENTER+2 01764000 ZCREBCFA EQU ZCRENTER+2 01765000 ZCREBCEB EQU ZCRENTER+1 01766000 ZCREBCDI EQU ZCRENTER+1 01767000 ZCREBCCB EQU ZCRENTER+1 01768000 ZCREBCBI EQU ZCRENTER+1 01769000 ZCREBCBB EQU ZCRENTER+1 01770000 ZCREBCBA EQU ZCRENTER+1 01771000 ZCREBCAM EQU ZCRENTER+1 01772000 ZCREBCAI EQU ZCRENTER+1 01773000 ZCREBCAG EQU ZCRENTER 01774000 ZCREBCAE EQU ZCRENTER 01775000 ZCREBCAB EQU ZCRENTER 01776000 ZCREBCAA EQU ZCRENTER 01777000 ZCREAC1B EQU ZCRENTER 01778000 ZCREAC0B EQU ZCRENTER 01779000 ZCREAC0A EQU ZCRENTER 01780000 ZCREAC1A EQU ZCRENTER 01781000 ZCRTNAME EQU ZCRAUDIT+1 01782000 ZCRTID EQU ZCRAUDIT 01783000 ZCRREMIC EQU ISTZCRR+436 01784000 ZCRSAVEZ EQU ISTZCRR+196 01785000 ZCRDAFSV EQU ZCRCIDSV+2 01786000 ZCRSAFSV EQU ZCRCIDSV 01787000 ZCRR13SV EQU ISTZCRR+188 01788000 ZCRR2SV EQU ISTZCRR+184 01789000 ZCROPCDE EQU ISTZCRR+183 01790000 ZCRPRMTC EQU ISTZCRR+182 01791000 ZCRRCDSV EQU ISTZCRR+181 01792000 ZCRAWQSW EQU ISTZCRR+180 01793000 ZCRTOPQ EQU ISTZCRR+180 01794000 ZCRLSTFB EQU ISTZCRR+180 01795000 ZCRXSCHD EQU ISTZCRR+180 01796000 ZCRNXTEL EQU ISTZCRR+180 01797000 ZCRSCANQ EQU ISTZCRR+180 01798000 ZCRMOREL EQU ISTZCRR+180 01799000 ZCRFBPRC EQU ISTZCRR+180 01800000 ZCRFSBSV EQU ISTZCRR+176 01801000 ZCRSVWK5 EQU ZCRWKARA+16 01802000 ZCRSVWK4 EQU ZCRWKARA+12 01803000 ZCRSVWK3 EQU ZCRWKARA+8 01804000 ZCRSVWK2 EQU ZCRWKARA+4 01805000 ZCRSVWK1 EQU ZCRWKARA 01806000 ZCRSVF25 EQU ZCRSVRTN+96 01807000 ZCRSVF24 EQU ZCRSVRTN+92 01808000 ZCRSVF23 EQU ZCRSVRTN+88 01809000 ZCRSVF22 EQU ZCRSVRTN+84 01810000 ZCRSVF21 EQU ZCRSVRTN+80 01811000 ZCRSVF20 EQU ZCRSVRTN+76 01812000 ZCRSVF19 EQU ZCRSVRTN+72 01813000 ZCRSVF18 EQU ZCRSVRTN+68 01814000 ZCRSVF17 EQU ZCRSVRTN+64 01815000 ZCRSVF16 EQU ZCRSVRTN+60 01816000 ZCRSVF15 EQU ZCRSVRTN+56 01817000 ZCRSVF14 EQU ZCRSVRTN+52 01818000 ZCRSVF13 EQU ZCRSVRTN+48 01819000 ZCRSVF12 EQU ZCRSVRTN+44 01820000 ZCRSVF11 EQU ZCRSVRTN+40 01821000 ZCRSVF10 EQU ZCRSVRTN+36 01822000 ZCRSVF9 EQU ZCRSVRTN+32 01823000 ZCRSVF8 EQU ZCRSVRTN+28 01824000 ZCRSVF7 EQU ZCRSVRTN+24 01825000 ZCRSVF6 EQU ZCRSVRTN+20 01826000 ZCRSVF5 EQU ZCRSVRTN+16 01827000 ZCRSVF4 EQU ZCRSVRTN+12 01828000 ZCRSVF3 EQU ZCRSVRTN+8 01829000 ZCRSVF2 EQU ZCRSVRTN+4 01830000 ZCRSVF1 EQU ZCRSVRTN 01831000 ZCRPVZB EQU ISTZCRR+52 01832000 ZCRZLB EQU ISTZCRR+48 01833000 ZCRBFPTR EQU ISTZCRR+44 01834000 ZCRCCWA EQU ISTZCRR+40 01835000 ZCRPSW EQU ZCRPARMS+15 01836000 ZCRPCHAR EQU ZCRPARMS+14 01837000 ZCRPRES2 EQU ZCRPCOD2 01838000 ZCRPMFGF EQU ZCRPCOD2 01839000 ZCRPFHDR EQU ZCRPCOD2 01840000 ZCRPPG2 EQU ZCRPCOD2 01841000 ZCRPRES EQU ZCRPCOD1 01842000 ZCRPCFTX EQU ZCRPCOD1 01843000 ZCRPBUF EQU ZCRPCOD1 01844000 ZCRPLSCB EQU ZCRPCOD1 01845000 ZCRPLSBQ EQU ZCRPLSBF 01846000 ZCRPFSB EQU ZCRPCOD1 01847000 ZCRPLNG EQU ZCRPCOD1 01848000 ZCRPPG EQU ZCRPCOD1 01849000 ZCRDTODA EQU ZCRDFRDA 01850000 ZCRMLNG EQU ZCRPARMS+8 01851000 ZCRTBPTR EQU ZCRPARMS+4 01852000 ZCRCBPTR EQU ZCRFBPTR 01853000 ZCRCRLCP EQU ISTZCRR+20 01854000 @NM00038 EQU ZCRSCPSW 01855000 ZCRSKIPT EQU ZCRSCPSW 01856000 ZCRFSBWE EQU ZCRSCPSW 01857000 ZCRPRCMP EQU ZCRSCPSW 01858000 ZCRLREQ EQU ZCRSCPSW 01859000 ZCRRJLCP EQU ZCRSCPSW 01860000 ZCRTPINV EQU ZCRSCPSW 01861000 ZCRTPEX EQU ZCRSCPSW 01862000 @NM00037 EQU ZCRIBPR 01863000 ZCR3270R EQU ZCRIBPR 01864000 ZCR3270 EQU ZCRIBPR 01865000 ZCRLCPFD EQU ZCRIBPR 01866000 ZCRLCPFR EQU ZCRIBPR 01867000 ZCRRELK EQU ZCRIBPR 01868000 ZCRERR EQU ZCRIBPR 01869000 ZCRNOBUF EQU ZCRIBPR 01870000 @NM00036 EQU ZCRPFLGS 01871000 ZCRQAHED EQU ZCRPFLGS 01872000 ZCRF1RES EQU ZCRGENSW 01873000 ZCRBRIS EQU ZCRGENSW 01874000 ZCRCLRBD EQU ZCRGENSW 01875000 ZCREXRES EQU ZCRGENSW 01876000 ZCRLCSYN EQU ZCRGENSW 01877000 ZCRRT06 EQU ZCRGENSW 01878000 ZCRTSW2 EQU ZCRGENSW 01879000 ZCRTSW1 EQU ZCRGENSW 01880000 ZCRINLCP EQU ZCRFLGS3 01881000 ZCRWRPTR EQU ZCRFLGS3 01882000 ZCRNOFRE EQU ZCRFLGS3 01883000 ZCREDRIV EQU ZCRFLGS3 01884000 ZCRDISC EQU ZCRFLGS3 01885000 ZCRTPDIS EQU ZCRFLGS3 01886000 ZCRTPCON EQU ZCRFLGS3 01887000 ZCRTIC EQU ZCRFLGS3 01888000 ZCRCNLXL EQU ZCRRESET 01889000 ZCRENDAN EQU ZCRSWFLD 01890000 ZCRENDXL EQU ZCRSWFLD 01891000 ZCRENDX EQU ZCRSWFLD 01892000 ZCROB1 EQU ZCRNDLCP 01893000 ZCRENDPR EQU ZCRSWFLD 01894000 ZCREXTYP EQU ZCRSWFLD 01895000 ZCRSLCP EQU ZCRENDSH 01896000 ZCRIF0E3 EQU ZCRFLGS2 01897000 ZCRIF0E2 EQU ZCRFLGS2 01898000 ZCRIF0E1 EQU ZCRFLGS2 01899000 ZCROB EQU ZCRFLGS2 01900000 ZCRFMSED EQU ZCRFLGS2 01901000 ZCRSHEDI EQU ZCRFLGS2 01902000 ZCRLOCAL EQU ZCRFLGS2 01903000 ZCRFEXIT EQU ZCRFLGS1 01904000 ZCRUNSOL EQU ZCRFLGS1 01905000 ZCRENDLP EQU ZCRFLGS1 01906000 ZCRNRMEX EQU ZCRFLGS1 01907000 ZCRWAIT EQU ZCRFLGS1 01908000 ZCRDEQSW EQU ZCRFLGS1 01909000 ZCRQUESW EQU ZCRFLGS1 01910000 ZCREXSW EQU ZCRFLGS1 01911000 ZCRFRRA EQU ISTZCRR+8 01912000 ZCRCHAIN EQU ISTZCRR+4 01913000 ZCRFLAG EQU ZCRCRR+3 01914000 ZCRLEN EQU ZCRCRR+1 01915000 ZCRID EQU ZCRCRR 01916000 ZSAZTRAC EQU ISTZSAVE+36 01917000 ZSAZSVVR EQU ISTZSAVE+12 01918000 ZSAZSVRR EQU ISTZSAVE+8 01919000 ZSAZSVFC EQU ISTZSAVE+4 01920000 ZSAZACTV EQU ZSAZSVMS 01921000 LCPFTYPE EQU LCPRPHA 01922000 LCPRSTQH EQU LCPLCCW 01923000 LCPCLREP EQU ISTLCPB+44 01924000 LCPUBFSB EQU LCPFLCCW 01925000 LCPRSV77 EQU ISTLCPB+39 01926000 LCPLCCWC EQU ISTLCPB+38 01927000 LCPRSV78 EQU LCPFLG1 01928000 LCPTRANS EQU LCPFLG1 01929000 LCPSTLB EQU LCPFLG1 01930000 LCPREDRV EQU LCPFLG1 01931000 LCPDIRPT EQU LCPFLG1 01932000 LCPINTER EQU LCPFLG1 01933000 LCPRESET EQU LCPFLG1 01934000 LCPSTYPE EQU ISTLCPB+36 01935000 LCPFSNCH EQU ISTLCPB+34 01936000 LCPFOSN EQU ISTLCPB+32 01937000 LCPTLBAD EQU ISTLCPB+28 01938000 LCPFDB2 EQU LCPFDBA+1 01939000 LCPFDB1 EQU LCPFDBA 01940000 LCPNXLCW EQU ISTLCPB+20 01941000 LCPDAF EQU LCPCID+2 01942000 LCPSAF EQU LCPCID 01943000 LCPLCCW1 EQU ISTLCPB+12 01944000 LCPRRCNT EQU LCPSEQ+1 01945000 LCPRRCCT EQU LCPSEQ 01946000 LCPATOP EQU LCPFLAG2 01947000 LCPFREE EQU LCPFLAG2 01948000 LCPDSTAT EQU LCPFLAG2 01949000 LCPEXRES EQU LCPFID0 01950000 LCPZRIMM EQU LCPTLBPI 01951000 LCPRSTRT EQU LCPFLAG2 01952000 LCPASYN EQU LCPFLAG2 01953000 LCPPRFLG EQU LCPFLAG2 01954000 LCPZMIRC EQU LCPRUCNT 01955000 LCPCHAI2 EQU LCPCHAIN+1 01956000 LCPCHNG EQU LCPCHAI1 01957000 LCPZRT0B EQU LCPMNRCD 01958000 LCPZRT0A EQU LCPMNRCD 01959000 LCPZRTL9 EQU LCPZRT09 01960000 LCPZRTL8 EQU LCPZRT08 01961000 LCPZRTL7 EQU LCPZRT07 01962000 LCPZRTL6 EQU LCPZRT06 01963000 LCPZRTL5 EQU LCPZRT05 01964000 LCPZRTL4 EQU LCPZRT04 01965000 LCPZRTL3 EQU LCPZRT03 01966000 LCPZRTL2 EQU LCPZRT02 01967000 LCPZRT01 EQU LCPFLAGS 01968000 LCPZRT00 EQU LCPFLAGS 01969000 LCPLNGTH EQU ISTLCPB+1 01970000 LCPTYPE EQU ISTLCPB 01971000 LCCWDATA EQU ISTLCCW+4 01972000 LCCWCNT EQU ISTLCCW+2 01973000 LCCWACI EQU LCCWFLAG 01974000 LCCWRFI EQU LCCWFLAG 01975000 LCCWPER EQU LCCWLSI 01976000 LCCWIDAT EQU LCCWFLAG 01977000 LCCWNTVC EQU LCCWFLAG 01978000 LCCWCKPT EQU LCCWFLAG 01979000 LCCWCC EQU LCCWFLAG 01980000 LCCWCD EQU LCCWFLAG 01981000 LCCWTYPE EQU LCCWCTL 01982000 LCCWMODE EQU LCCWCTL 01983000 LCCWSOP EQU LCCWRWOP 01984000 @NM00035 EQU LCCWRWOP 01985000 LCCWSD EQU LCCWOP 01986000 LCCWSI EQU LCCWOP 01987000 CSWRCNT EQU ISTCSW+6 01988000 CSWPCI EQU CSWCSTAT 01989000 CSWUE EQU CSWUSTAT 01990000 CSWCE EQU CSWUSTAT 01991000 CSWBUSY EQU CSWUSTAT 01992000 CSWCUE EQU CSWUSTAT 01993000 CSWSM EQU CSWUSTAT 01994000 CSWATTN EQU CSWUSTAT 01995000 @NM00034 EQU ISTCSW 01996000 CSWKEY EQU ISTCSW 01997000 ZLFZWRD5 EQU ISTZLFVT+48 01998000 ZLFZWRD4 EQU ISTZLFVT+44 01999000 ZLFZDFK0 EQU ISTZLFVT+40 02000000 ZLFZEMEA EQU ISTZLFVT+36 02001000 ZLFZFFEA EQU ISTZLFVT+32 02002000 ZLFZEMCA EQU ZLFZEACA 02003000 ZLFZEMFA EQU ZLFZEAFA 02004000 ZLFZFMTA EQU ZLFZFATA 02005000 ZLFZEMTA EQU ZLFZEATA 02006000 ZLFZFMFA EQU ZLFZFAFA 02007000 ZLFZEMAA EQU ZLFZEAAA 02008000 ZLFZEFBA EQU ISTZLFVT 02009000 ZLBLNG1 EQU ZLBFSM 02010000 ZLBCHAIN EQU ISTZLBUF 02011000 FSBFDB EQU ISTFSB+32 02012000 FSBRSV01 EQU FSBFSB+30 02013000 FSBTHCNT EQU FSBFSB+28 02014000 FSBRLRSV EQU FSBRLSTS 02015000 FSBCFTX EQU FSBRLSTS 02016000 FSBICNCB EQU FSBMSGID 02017000 FSBSSOC EQU FSBSS2 02018000 FSBSSCC EQU FSBSS2 02019000 FSBSSDC EQU FSBSS2 02020000 FSBSSEC EQU FSBSS2 02021000 FSBSSIR EQU FSBSS2 02022000 FSBSSCR EQU FSBSS2 02023000 @NM00032 EQU FSBSS2 02024000 @NM00031 EQU FSBSS1 02025000 FSBSSDE EQU FSBSS1 02026000 FSBSSUS EQU FSBSS1 02027000 @NM00030 EQU FSBSS1 02028000 FSBSOHI EQU FSBERC 02029000 FSBLGI EQU FSBERC 02030000 FSBLMRI EQU FSBFBMI 02031000 FSBETI EQU FSBERC 02032000 FSBEMI EQU FSBERC 02033000 FSBEBI EQU FSBERC 02034000 FSBECI EQU FSBERC 02035000 FSBELI EQU FSBERC 02036000 FSBMJRCD EQU FSBSRCAT 02037000 FSBXLCI EQU FSBXCODE 02038000 FSBXFINS EQU FSBXCODE 02039000 FSBXNORM EQU FSBXFSTS 02040000 FSBSCODE EQU FSBSYSRS 02041000 FSBSPHSE EQU FSBSYSRS 02042000 FSBSERR EQU FSBSYSRS 02043000 FSBCMD EQU FSBSEQ 02044000 FSBDTRCE EQU FSBFLAGS 02045000 FSBASBTU EQU FSBFLAGS 02046000 FSBINPET EQU FSBFLAGS 02047000 FSBNONCB EQU FSBFLAGS 02048000 FSBLBIND EQU FSBFLAGS 02049000 FSBFFIND EQU FSBFLAGS 02050000 FSBACIND EQU FSBFLAGS 02051000 FSBRFIND EQU FSBFLAGS 02052000 FSBGATE EQU FSBFSBA 02053000 FSBRSV02 EQU FSBSFLGS 02054000 FSBPGBUF EQU FSBSFLGS 02055000 FSBMNSDA EQU FSBMNRCD 02056000 FSBMNOA EQU FSBMNRCD 02057000 FSBMNDIF EQU FSBMNRCD 02058000 FSBMNEOP EQU FSBMNRCD 02059000 FSBMNDNU EQU FSBMNRCD 02060000 FSBMNATN EQU FSBMNRCD 02061000 FSBMNRVI EQU FSBMNRCD 02062000 FSBMNELI EQU FSBMNRCD 02063000 FDBOFSET EQU ISTFDB+10 02064000 FDBFDBA EQU ISTFDB 02065000 ATCAOS EQU ISTATCVT+1584 02066000 ATCPOPAB EQU ATCAOSM+640 02067000 ATCVIOPM EQU ATCAOSM+636 02068000 ATCTPMMI EQU ATCAOSM+632 02069000 ATCTPMPB EQU ATCAOSM+600 02070000 ATCRPLCT EQU ATCAOSM+594 02071000 ATCCRACT EQU ATCAOSM+592 02072000 ATCSRBCT EQU ATCAOSM+590 02073000 ATCRSV75 EQU ATCAOSM+589 02074000 ATCRSV66 EQU ATCZFLAG 02075000 ATCZF001 EQU ATCZFLAG 02076000 ATCTPCP1 EQU ATCAOSM+584 02077000 ATCTPCP0 EQU ATCAOSM+580 02078000 ATCAICTN EQU ATCAOSM+576 02079000 ATCZR01 EQU ATCAOSM+572 02080000 ATCMPLTA EQU ATCAOSM+568 02081000 ATCASCB EQU ATCAOSM+564 02082000 ATCAP86 EQU ATCAOSM+560 02083000 ATCAP85 EQU ATCAOSM+556 02084000 ATCAP84 EQU ATCAOSM+552 02085000 ATCAP83 EQU ATCAOSM+548 02086000 ATCAP82 EQU ATCAOSM+544 02087000 ATCAP69 EQU ATCAOSM+540 02088000 ATCAP66 EQU ATCAOSM+536 02089000 ATCAP62 EQU ATCAOSM+532 02090000 ATCAPC59 EQU ATCAOSM+528 02091000 ATCAP56 EQU ATCAOSM+524 02092000 ATCAP55 EQU ATCAOSM+520 02093000 ATCRCFY0 EQU ATCAOSM+516 02094000 ATCAP41 EQU ATCAOSM+512 02095000 ATCAPC25 EQU ATCAOSM+508 02096000 ATCAP23 EQU ATCAOSM+504 02097000 ATCTPSPB EQU ATCAOSM+472 02098000 ATCTRMPB EQU ATCAOSM+440 02099000 ATCPSTA EQU ATCAOSM+432 02100000 ATCSMABF EQU ATCAOSM+428 02101000 ATCSMAPR EQU ATCAOSM+424 02102000 ATCTPWQA EQU ATCAOSM+420 02103000 ATCSMAID EQU ATCAOSM+416 02104000 ATCSMARA EQU ATCAOSM+412 02105000 ATCCACXA EQU ATCAOSM+408 02106000 ATCZLAAB EQU ATCAOSM+404 02107000 ATCATA10 EQU ATCAOSM+400 02108000 ATCHLTCB EQU ATCAOSM+396 02109000 @NM00029 EQU ATCVTFLG 02110000 ATCVTACT EQU ATCVTFLG 02111000 ATCRPT40 EQU ATCAOSM+388 02112000 ATCRPT39 EQU ATCAOSM+384 02113000 ATCRPT38 EQU ATCAOSM+380 02114000 ATCRPT37 EQU ATCAOSM+376 02115000 ATCRPT36 EQU ATCAOSM+372 02116000 ATCRPT35 EQU ATCAOSM+368 02117000 ATCRPT34 EQU ATCAOSM+364 02118000 ATCRPT33 EQU ATCAOSM+360 02119000 ATCRPT32 EQU ATCAOSM+356 02120000 ATCRPT31 EQU ATCAOSM+352 02121000 ATCRPT30 EQU ATCAOSM+348 02122000 ATCRPT29 EQU ATCAOSM+344 02123000 ATCRPT28 EQU ATCAOSM+340 02124000 ATCRPT27 EQU ATCAOSM+336 02125000 ATCRPT26 EQU ATCAOSM+332 02126000 ATCRPT25 EQU ATCAOSM+328 02127000 ATCRPT24 EQU ATCAOSM+324 02128000 ATCRPT23 EQU ATCAOSM+320 02129000 ATCRPT22 EQU ATCAOSM+316 02130000 ATCRPT21 EQU ATCAOSM+312 02131000 ATCRPT20 EQU ATCAOSM+308 02132000 ATCRPT19 EQU ATCAOSM+304 02133000 ATCRPT18 EQU ATCAOSM+300 02134000 ATCRPT17 EQU ATCAOSM+296 02135000 ATCRPT16 EQU ATCAOSM+292 02136000 ATCRPT15 EQU ATCAOSM+288 02137000 ATCRPT14 EQU ATCAOSM+284 02138000 ATCRPT13 EQU ATCAOSM+280 02139000 ATCRPT12 EQU ATCAOSM+276 02140000 ATCRPT11 EQU ATCAOSM+272 02141000 ATCZDFJ0 EQU ATCAOSM+260 02142000 ATCAP51 EQU ATCAOSM+256 02143000 ATCZPAB2 EQU ATCAOSM+224 02144000 ATCZLPVT EQU ATCAOSM+184 02145000 ATCZDVTX EQU ATCAOSM+180 02146000 ATCZDVTA EQU ATCAOSM+176 02147000 ATCZDVT9 EQU ATCAOSM+172 02148000 ATCZDVT8 EQU ATCAOSM+168 02149000 ATCZDVT7 EQU ATCAOSM+164 02150000 ATCRSV56 EQU ATCDAPVT+22 02151000 ATCDAPDG EQU ATCDAPVT+20 02152000 ATCDXCEA EQU ATCDAPVT+16 02153000 ATCDCEA EQU ATCDAPVT+12 02154000 ATCDPCIA EQU ATCDAPVT+8 02155000 ATCDSIOA EQU ATCDAPVT+4 02156000 ATCDEOEA EQU ATCDAPVT 02157000 ATCZLAEA EQU ATCLDAPP+16 02158000 ATCZLCEA EQU ATCLDAPP+12 02159000 ATCRSV17 EQU ATCLDAPP+8 02160000 ATCSMFRR EQU ATCLDAPP+4 02161000 ATCCDTID EQU ATCLDAPP 02162000 ATCZAEA EQU ATCICAPP+16 02163000 ATCZCEA EQU ATCICAPP+12 02164000 ATCCDTCB EQU ATCICAPP+8 02165000 ATCZSIOA EQU ATCICAPP+4 02166000 ATCCDRPH EQU ATCICAPP 02167000 ATCAP65 EQU ATCAOSM+96 02168000 ATCZDVT6 EQU ATCAOSM+92 02169000 ATCZDVT4 EQU ATCAOSM+88 02170000 ATCZDVT3 EQU ATCAOSM+84 02171000 ATCZDVT1 EQU ATCAOSM+80 02172000 ATCICNCB EQU ATCAOSM+76 02173000 ATCZPSVT EQU ATCAOSM+72 02174000 ATCZFSVT EQU ATCAOSM+68 02175000 ATCAP64 EQU ATCAOSM+64 02176000 ATCAP63 EQU ATCAOSM+60 02177000 ATCAP61 EQU ATCAOSM+56 02178000 ATCAP58 EQU ATCAOSM+52 02179000 ATCAP57 EQU ATCAOSM+48 02180000 ATCAP54 EQU ATCAOSM+44 02181000 ATCAP53 EQU ATCAOSM+40 02182000 ATCAP52 EQU ATCAOSM+36 02183000 ATCAP32 EQU ATCAOSM+28 02184000 ATCAP31 EQU ATCAOSM+24 02185000 ATCAP12 EQU ATCAOSM+20 02186000 ATCAP11 EQU ATCAOSM+16 02187000 ATCCMTCB EQU ATCAOSM+12 02188000 ATCPRPH EQU ATCAOSM+8 02189000 ATCGSRBF EQU ATCGSRBG 02190000 ATCSRBRT EQU ATCAOSM 02191000 ATCRSVBB EQU ISTATCVT+908 02192000 ATCVDLOK EQU ISTATCVT+904 02193000 ATCVFPAB EQU ISTATCVT+872 02194000 ATCVDPAB EQU ISTATCVT+840 02195000 ATCIOECB EQU ISTATCVT+836 02196000 ATCINCW3 EQU ISTATCVT+832 02197000 ATCMODTB EQU ISTATCVT+828 02198000 ATCUSSPT EQU ISTATCVT+824 02199000 ATCSRTAB EQU ISTATCVT+820 02200000 @NM00028 EQU ISTATCVT+818 02201000 ATCNMCTR EQU ISTATCVT+816 02202000 ATCSEC51 EQU ATCSECST 02203000 ATCSEC40 EQU ATCSIPD+8 02204000 ATCSEC30 EQU ATCSIPD+4 02205000 ATCSEC21 EQU ATCSIPD 02206000 ATCSEC10 EQU ATCSOPD+4 02207000 ATCSEC01 EQU ATCSOPD 02208000 ATCPOIA EQU ISTATCVT+788 02209000 ATCPODVT EQU ISTATCVT+784 02210000 ATCS49XL EQU ISTATCVT+780 02211000 ATCS49XI EQU ISTATCVT+776 02212000 ATCLCLCT EQU ATCVLCNT+2 02213000 ATCRNCNT EQU ATCVLCNT 02214000 ATCCFEAD EQU ISTATCVT+768 02215000 ATCPTR00 EQU ISTATCVT+736 02216000 ATCRSV10 EQU ISTATCVT+704 02217000 ATCTACB EQU ISTATCVT+700 02218000 ATCVTINM EQU ISTATCVT+696 02219000 ATCTCLIM EQU ISTATCVT+692 02220000 ATCTCLOM EQU ISTATCVT+688 02221000 ATCVTIPB EQU ISTATCVT+656 02222000 ATCTCIPB EQU ISTATCVT+624 02223000 ATCTIPAB EQU ISTATCVT+592 02224000 ATCOCCCB EQU ISTATCVT+588 02225000 ATCOCCOB EQU ISTATCVT+584 02226000 ATCCDLAD EQU ISTATCVT+580 02227000 ATCCCLAD EQU ISTATCVT+576 02228000 ATCDLRPB EQU ISTATCVT+544 02229000 ATCPGPAB EQU ISTATCVT+512 02230000 ATCVPAB1 EQU ISTATCVT+480 02231000 ATCRSV97 EQU ISTATCVT+476 02232000 ATCRDTLK EQU ISTATCVT+472 02233000 ATCVOCLK EQU ISTATCVT+468 02234000 ATCCDFDN EQU ISTATCVT+464 02235000 ATCCDFIN EQU ISTATCVT+460 02236000 ATCDVTLK EQU ISTATCVT+456 02237000 ATCAP36 EQU ISTATCVT+452 02238000 ATCAP35 EQU ISTATCVT+448 02239000 ATCAP33 EQU ISTATCVT+444 02240000 ATCRSV99 EQU ISTATCVT+412 02241000 ATCLDECB EQU ISTATCVT+408 02242000 ATCLDNCS EQU ISTATCVT+404 02243000 ATCCDPTR EQU ISTATCVT+400 02244000 ATCADEL EQU ISTATCVT+396 02245000 ATCTODVT EQU ISTATCVT+392 02246000 ATCDEBCH EQU ISTATCVT+388 02247000 ATCHBSIZ EQU ATCHPGM+2 02248000 ATCHBFNO EQU ATCHPGM 02249000 ATCCRME EQU ISTATCVT+380 02250000 ATCRVCHS EQU ISTATCVT+372 02251000 ATCECTLP EQU ISTATCVT+368 02252000 ATCZDVTB EQU ISTATCVT+364 02253000 ATCECPRT EQU ISTATCVT+360 02254000 ATCVTLOD EQU ISTATCVT+356 02255000 ATCTRPAB EQU ISTATCVT+352 02256000 ATCMSGM EQU ISTATCVT+348 02257000 ATCMSGP EQU ISTATCVT+344 02258000 ATCEPT EQU ISTATCVT+340 02259000 ATCDVT EQU ISTATCVT+336 02260000 ATCTRCPT EQU ISTATCVT+332 02261000 ATCDVLOD EQU ISTATCVT+328 02262000 ATCALERT EQU ISTATCVT+324 02263000 ATCEPA EQU ISTATCVT+320 02264000 ATCSAF EQU ISTATCVT+318 02265000 ATCXRANG EQU ISTATCVT+317 02266000 ATCLAST EQU ATCSHRFG 02267000 ATCSHRTN EQU ISTATCVT+308 02268000 ATCUEP EQU ISTATCVT+304 02269000 ATCOCRT EQU ISTATCVT+300 02270000 ATCCSMA EQU ATCCSMR 02271000 ATCESC02 EQU ISTATCVT+292 02272000 ATCESC01 EQU ISTATCVT+288 02273000 ATCCDFND EQU ISTATCVT+284 02274000 ATCCDDEL EQU ISTATCVT+280 02275000 ATCCDADD EQU ISTATCVT+276 02276000 ATCMNT EQU ISTATCVT+272 02277000 ATCRSV16 EQU ISTATCVT+270 02278000 ATCMAXID EQU ISTATCVT+269 02279000 ATCMSGSP EQU ATCCOM+268 02280000 ATCCIDM EQU ATCCOM+266 02281000 ATCACTRM EQU ATCCOM+264 02282000 ATCNERAP EQU ATCCOM+260 02283000 ATCNESAL EQU ATCCOM+256 02284000 ATCRCC65 EQU ATCCOM+252 02285000 ATCRCC26 EQU ATCCOM+248 02286000 ATCRCC63 EQU ATCCOM+244 02287000 ATCRSV11 EQU ATCCOM+242 02288000 ATCVTMID EQU ATCCOM+240 02289000 ATCAPOST EQU ATCCOM+236 02290000 ATCNERFN EQU ATCCOM+232 02291000 ATCNERNE EQU ATCCOM+228 02292000 ATCNERCV EQU ATCCOM+224 02293000 ATCNERST EQU ATCCOM+220 02294000 ATCDCC61 EQU ATCCOM+216 02295000 ATCDCC60 EQU ATCCOM+212 02296000 ATCSRTDF EQU ATCCOM+208 02297000 ATCSRTAD EQU ATCCOM+204 02298000 ATCFIRA EQU ATCCOM+200 02299000 ATCSMBQ EQU ATCCOM+196 02300000 ATCSMRC EQU ATCCOM+192 02301000 ATCSMRS EQU ATCCOM+188 02302000 ATCSMQU EQU ATCCOM+184 02303000 ATCACDA EQU ATCCOM+176 02304000 ATCSTMA EQU ATCCOM+172 02305000 ATCFRSTR EQU ATCCOM+168 02306000 ATCGTSTR EQU ATCCOM+164 02307000 ATCREADA EQU ATCCOM+160 02308000 ATCALOAD EQU ATCCOM+156 02309000 ATCBLDLA EQU ATCCOM+152 02310000 ATCFBRPH EQU ATCCOM+148 02311000 ATCBFTRC EQU ATCCOM+144 02312000 ATCTPBUF EQU ATCTHTRC 02313000 ATCREMOV EQU ATCCOM+136 02314000 ATCADD EQU ATCCOM+132 02315000 ATCDVTPT EQU ATCCOM+124 02316000 ATCFEPT EQU ATCCOM+120 02317000 ATCFDVT EQU ATCCOM+116 02318000 ATCCONFT EQU ATCCOM+112 02319000 ATCPTCHA EQU ATCCOM+108 02320000 ATCAUTHA EQU ATCCOM+104 02321000 ATCACCTA EQU ATCCOM+100 02322000 ATCRDTH EQU ATCCOM+96 02323000 ATCFRSCH EQU ATCCOM+92 02324000 ATCFSB EQU ATCCOM+88 02325000 ATCHLTMS EQU ATCCOM+84 02326000 ATCECPRM EQU ATCCOM+80 02327000 ATCECNET EQU ATCCOM+76 02328000 ATCECOPC EQU ATCCOM+72 02329000 ATCVPARM EQU ATCCOM+68 02330000 ATCECVRQ EQU ATCCOM+64 02331000 ATCECSES EQU ATCCOM+60 02332000 ATCOCHA EQU ATCCOM+56 02333000 ATCDSPLQ EQU ATCCOM+52 02334000 ATCECDSP EQU ATCCOM+48 02335000 ATCVARYQ EQU ATCCOM+44 02336000 ATCECVRY EQU ATCCOM+40 02337000 ATCHALTQ EQU ATCCOM+36 02338000 ATCECHLT EQU ATCCOM+32 02339000 ATCMODQ EQU ATCCOM+28 02340000 ATCECMOD EQU ATCCOM+24 02341000 ATCASCHD EQU ATCCOM+20 02342000 ATCSRT EQU ATCCOM+16 02343000 ATCRDT EQU ATCCOM+12 02344000 ATCDCFRR EQU ATCCOM+8 02345000 ATCAPI EQU ATCCOM+4 02346000 ATCRSV04 EQU ATCSTAT4 02347000 ATCNCSD EQU ATCSTAT4 02348000 ATCMTST EQU ATCSTAT4 02349000 ATCTPRT EQU ATCSTAT4 02350000 ATCPRTAT EQU ATCSTAT4 02351000 @NM00027 EQU ATCPOFLG 02352000 ATCPOUNS EQU ATCPOFLG 02353000 ATCHSDMF EQU ATCSTFLG 02354000 @NM00026 EQU ATCSTAT1 02355000 ATCINHLT EQU ATCSTAT1 02356000 ATCNETSL EQU ATCSTAT1 02357000 ATCQKHLT EQU ATCSTAT1 02358000 ATCSNHLT EQU ATCSTAT1 02359000 ATCACTIV EQU ATCSTAT1 02360000 ATCSTART EQU ATCSTAT1 02361000 DYPRSV01 EQU ISTDYPAB+12 02362000 DYPTSKID EQU ISTDYPAB+8 02363000 DYPCHAIN EQU ISTDYPAB+4 02364000 DYPFLGS EQU ISTDYPAB+2 02365000 DYPLNGTH EQU ISTDYPAB+1 02366000 DYPTYPE EQU ISTDYPAB 02367000 LDNZS00F EQU LDNZH003+1 02368000 LDNZS00E EQU LDNZH003+1 02369000 LDNZS00D EQU LDNZH003+1 02370000 LDNZS00C EQU LDNZH003+1 02371000 LDNZS00B EQU LDNZH003+1 02372000 LDNZS007 EQU LDNZH003 02373000 LDNZS006 EQU LDNZH003 02374000 LDNZS005 EQU LDNZH003 02375000 LDNZS004 EQU LDNZH003 02376000 LDNZS003 EQU LDNZH003 02377000 LDNZS002 EQU LDNZH003 02378000 LDNZS001 EQU LDNZH003 02379000 LDNZS000 EQU LDNZH003 02380000 LDNZX006 EQU ISTLDNCB+576 02381000 LDNZC001 EQU ISTLDNCB+569 02382000 LDNZX005 EQU ISTLDNCB+568 02383000 LDNZV006 EQU ISTLDNCB+564 02384000 LDNSRB EQU ISTLDNCB+520 02385000 @NM00025 EQU LDNZSAV3+28 02386000 LDNRSV06 EQU LDNZSAV4+16 02387000 LDNZSAV6 EQU LDNZSAV4+12 02388000 LDNZSAV5 EQU LDNZSAV4 02389000 LDNZSAVE EQU LDNZSAV3 02390000 LDNZSAV2 EQU ISTLDNCB+368 02391000 LDNZSAV1 EQU ISTLDNCB+352 02392000 LDNZ3RR EQU ISTLDNCB+348 02393000 LDNRSV0B EQU ISTLDNCB+336 02394000 LDNRSV0A EQU ISTLDNCB+332 02395000 LDNRSV09 EQU ISTLDNCB+328 02396000 LDNRSV08 EQU ISTLDNCB+324 02397000 LDNRSV07 EQU ISTLDNCB+320 02398000 LDNDEAD EQU LDNDCDEB+12 02399000 LDNUCBAD EQU LDNDCDEB+8 02400000 LDNAPPAD EQU LDNDCDEB+5 02401000 LDNEXSCL EQU LDNDCDEB+4 02402000 LDNDCBAD EQU LDNDCDEB+1 02403000 LDNDEBID EQU LDNDCDEB 02404000 LDNZRIND EQU ISTLDNCB+300 02405000 LDNRPH EQU ISTLDNCB+192 02406000 LDNZCHNC EQU ISTLDNCB+187 02407000 LDNZLPC7 EQU LDNZLPC 02408000 LDNZLPC6 EQU LDNZLPC 02409000 LDNZLPC5 EQU LDNZLPC 02410000 LDNZLPC4 EQU LDNZLPC 02411000 LDNZLPC3 EQU LDNZLPC 02412000 LDNZLPC2 EQU LDNZLPC 02413000 LDNZLPC1 EQU LDNZLPC 02414000 LDNZLPC0 EQU LDNZLPC 02415000 LDNRSV05 EQU LDNZERPF 02416000 LDNZCTOV EQU LDNZEPIN 02417000 LDNZF001 EQU LDNZEPIN 02418000 LDNZFRDW EQU LDNZCPAN 02419000 LDNZFRD EQU LDNZCPAN 02420000 LDNZNARD EQU LDNZCPAN 02421000 LDNRSV04 EQU LDNZIOLK 02422000 LDNZATBF EQU LDNZIOLK 02423000 LDNZERLK EQU LDNZIOLK 02424000 LDNZDSIC EQU LDNZIOLK 02425000 LDNZS1VR EQU ISTLDNCB+136 02426000 LDNZS1RR EQU ISTLDNCB+132 02427000 LDNZS1FC EQU ISTLDNCB+128 02428000 LDNZS1BC EQU ISTLDNCB+124 02429000 LDNZLOCK EQU ISTLDNCB+120 02430000 LDNZFBUF EQU ISTLDNCB+116 02431000 LDNZLAST EQU ISTLDNCB+112 02432000 LDNRSV02 EQU LDNFLAG2 02433000 LDNZFF04 EQU LDNFLAG2 02434000 LDNTPBIO EQU LDNFLAGS+2 02435000 LDNZFF03 EQU LDNFLAGS+2 02436000 LDNZFF01 EQU LDNFLAGS+2 02437000 LDNZFF00 EQU LDNFLAGS+2 02438000 LDNCLOSD EQU LDNFLAGS+2 02439000 LDNZENTR EQU LDNFLAGS+2 02440000 LDNZICCW EQU LDNFLAGS+1 02441000 LDNZREC EQU LDNFLAGS+1 02442000 LDNZCTXT EQU LDNFLAGS+1 02443000 LDNZATLK EQU LDNFLAGS+1 02444000 LDNZCHNE EQU LDNFLAGS+1 02445000 LDNZATTP EQU LDNFLAGS+1 02446000 LDNZIOBY EQU LDNFLAGS+1 02447000 LDNZF00A EQU LDNFLAGS+1 02448000 LDNZF007 EQU LDNFLAGS 02449000 LDNZF006 EQU LDNFLAGS 02450000 LDNZF005 EQU LDNFLAGS 02451000 LDNZF003 EQU LDNFLAGS 02452000 LDNZF002 EQU LDNFLAGS 02453000 LDNZHDCC EQU ISTLDNCB+106 02454000 LDNZARM EQU ISTLDNCB+104 02455000 LDNZRM EQU ISTLDNCB+102 02456000 LDNZRB EQU ISTLDNCB+100 02457000 LDNCPQ EQU ISTLDNCB+96 02458000 LDNSIOQ EQU ISTLDNCB+92 02459000 LDNZX002 EQU ISTLDNCB+91 02460000 LDNZX001 EQU ISTLDNCB+90 02461000 LDNZH002 EQU ISTLDNCB+88 02462000 LDNZACSW EQU ISTLDNCB+76 02463000 LDNCHFLD EQU ISTLDNCB+56 02464000 LDNRESRV EQU ISTLDNCB+55 02465000 @NM00024 EQU LDNCFLAG 02466000 LDNRMF EQU LDNCFLAG 02467000 LDNIBI EQU LDNCFLAG 02468000 LDNCUUA EQU ISTLDNCB+48 02469000 NCBRSV01 EQU ISTNCB+46 02470000 NCBSWDAF EQU ISTNCB+44 02471000 NCBDEVCH EQU ISTNCB+36 02472000 NCBFMCBP EQU ISTNCB+32 02473000 NCBLTRC EQU ISTNCB+30 02474000 NCBRVPT1 EQU ISTNCB+28 02475000 NCBNMLLN EQU NCBFLAGS+3 02476000 @NM00023 EQU NCBFLAG1 02477000 @NM00022 EQU NCBFLAG1 02478000 NCBTTF EQU NCBFLAG1 02479000 NCBRSYNC EQU NCBFLAG1 02480000 NCBRSTRT EQU NCBFLAG1 02481000 NCBCONF EQU NCBFLAG1 02482000 NCBSNAI EQU NCBFLAG1 02483000 NCBFLTIO EQU NCBFTRIO 02484000 NCBCSTAT EQU NCBFLAGS 02485000 NCBNCSL EQU ISTNCB+22 02486000 NCBNCBA EQU ISTNCB+20 02487000 NCBFMCBA EQU ISTNCB+16 02488000 NCBNSNA EQU ISTNCB+12 02489000 NCBTSKID EQU ISTNCB+8 02490000 NCBRDTE EQU ISTNCB+4 02491000 NCBLNGTH EQU ISTNCB+1 02492000 NCBTYPE EQU ISTNCB 02493000 PABRPHA EQU PABRPHFG+1 02494000 PABNODQ EQU PABFLAGS 02495000 PABINHBT EQU PABFLAGS 02496000 PABERLOK EQU PABERRLK 02497000 PABSSN EQU PABFLAGS 02498000 PABDYNAM EQU PABFLAGS 02499000 PABNORPR EQU PABFLAGS 02500000 PABPRIOR EQU PABFLAGS 02501000 PABAPYP EQU PABFLAGS 02502000 PABDVTA EQU ISTPAB+9 02503000 PABOFFST EQU ISTPAB+8 02504000 PABCHNGP EQU PABCHAIN+1 02505000 PABRSV02 EQU PABCHAIN 02506000 PABRUNNG EQU PABCHAIN 02507000 PABRESET EQU PABCHAIN 02508000 PABUNCON EQU PABCHAIN 02509000 PABCDP EQU PABCHAIN 02510000 PABRESCH EQU PABCHAIN 02511000 PABCHNG EQU PABCHAIN 02512000 PABWEQP EQU PABWEQA+1 02513000 PABRSV01 EQU PABWEQA 02514000 PABWEQG EQU PABWEQA 02515000 RPHNEXPO EQU ISTRPH+104 02516000 RPHSAV16 EQU RPHWORK+60 02517000 RPHSAV15 EQU RPHWORK+56 02518000 RPHSAV14 EQU RPHWORK+52 02519000 RPHSAV13 EQU RPHWORK+48 02520000 RPHSAV12 EQU RPHWORK+44 02521000 RPHSAV11 EQU RPHWORK+40 02522000 RPHSAV10 EQU RPHWORK+36 02523000 RPHSAVE9 EQU RPHWORK+32 02524000 RPHSAVE8 EQU RPHWORK+28 02525000 RPHSAVE7 EQU RPHWORK+24 02526000 RPHSAVE6 EQU RPHWORK+20 02527000 RPHSAVE5 EQU RPHWORK+16 02528000 RPHSAVE4 EQU RPHWORK+12 02529000 RPHSAVE3 EQU RPHWORK+8 02530000 RPHSAVE2 EQU RPHWORK+4 02531000 RPHSHALF EQU RPHSAVE1+2 02532000 RPHSBIT8 EQU RPHSBITS 02533000 RPHSBIT7 EQU RPHSBITS 02534000 RPHSBIT6 EQU RPHSBITS 02535000 RPHSBIT5 EQU RPHSBITS 02536000 RPHSBIT4 EQU RPHSBITS 02537000 RPHSBIT3 EQU RPHSBITS 02538000 RPHSBIT2 EQU RPHSBITS 02539000 RPHSBIT1 EQU RPHSBITS 02540000 RPHSBYTE EQU RPHSAVE1 02541000 RPHPABQP EQU RPHPABQA+1 02542000 RPHPABFG EQU RPHPABQA 02543000 RPHCRR EQU ISTRPH+32 02544000 RPHSRP34 EQU RPHSRPRM+2 02545000 RPHSRP12 EQU RPHSRPRM 02546000 RPHWEGT EQU RPHCSPA 02547000 RPHMAJCB EQU ISTRPH+21 02548000 RPHPABOF EQU ISTRPH+20 02549000 RPHRESUM EQU RPHRESMA+1 02550000 RPHRSV01 EQU RPHWPFLG 02551000 RPHPURGE EQU RPHWPFLG 02552000 RPHPT EQU RPHWPFLG 02553000 RPHWT EQU RPHWPFLG 02554000 RPHRSKEY EQU RPHWPFLG 02555000 RPHDVTA EQU ISTRPH+12 02556000 RPHTIK EQU RPHTSKID+3 02557000 @NM00021 EQU RPHTSKID 02558000 RPHRPHAP EQU RPHRPHA+1 02559000 @NM00020 EQU RPHRPHA 02560000 RPHGATE EQU RPHRPHA 02561000 @NM00019 EQU RPHFLGB 02562000 RPHRLCRA EQU RPHFLGB 02563000 RPHNRSAV EQU RPHFLGB 02564000 RPHPGCMP EQU RPHFLGB 02565000 RPHFBAPS EQU RPHFLGB 02566000 RPHBSSP EQU RPHFLGB 02567000 RPHLOCK EQU RPHFLGB 02568000 RPHFNFLG EQU RPHFSTLC 02569000 RPHMLTCP EQU RPHFLAGS 02570000 RPHSMCLR EQU RPHFLAGS 02571000 RPHSMTYP EQU RPHFLAGS 02572000 RPHSMQ EQU RPHFLAGS 02573000 RPHAUTEX EQU RPHAPTYP 02574000 RPHSPGIN EQU RPHFLAGS 02575000 RPHOGIND EQU RPHFLAGS 02576000 RPHLNGTH EQU ISTRPH+1 02577000 RPHTYPE EQU ISTRPH 02578000 LOKXCL EQU @NM00017 02579000 LOKPRY EQU @NM00017 02580000 @NM00018 EQU @NM00017 02581000 @NM00016 EQU LOKCHNG 02582000 LOKCT EQU ISTLOK 02583000 DEVRSV03 EQU ISTDEVCH+5 02584000 DEVPHYSA EQU ISTDEVCH+4 02585000 DEVCSLPN EQU DEVCHAR3 02586000 DEVCSTCL EQU DEVCHAR3 02587000 DEVCCHEK EQU DEVCHAR3 02588000 DEVCATTN EQU DEVCHAR3 02589000 DEVCSWL EQU DEVFCCTL 02590000 DEVCRVB EQU DEVFCCTL 02591000 DEVCSSL EQU DEVFCCTL 02592000 DEVCBSC EQU DEVFCCTL 02593000 DEVMCODE EQU ISTDEVCH+2 02594000 DEVCHAR2 EQU DEVTCODE 02595000 DEVRSV01 EQU DEVCHAR 02596000 DEVCCTL EQU DEVCHAR 02597000 DEVNNSPT EQU DEVCHAR 02598000 DEVSPS EQU DEVCHAR 02599000 DEVSUBND EQU DEVCHAR 02600000 DEVCONVR EQU DEVCHAR 02601000 DEVOTPUT EQU DEVCHAR 02602000 DEVINPUT EQU DEVCHAR 02603000 CVTLEVL EQU CVTRELNO+2 02604000 CVTNUMB EQU CVTRELNO 02605000 CVTMDL EQU CVTFIX+250 02606000 @NM00015 EQU CVTFIX+248 02607000 @NM00014 EQU CVTFIX 02608000 CVTRV482 EQU CVTXTNT2+128 02609000 CVTRV481 EQU CVTXTNT2+124 02610000 CVTRV480 EQU CVTXTNT2+120 02611000 CVTRV479 EQU CVTXTNT2+118 02612000 CVTRV478 EQU CVTXTNT2+117 02613000 CVTRV477 EQU CVTXTNT2+116 02614000 CVTRV476 EQU CVTXTNT2+115 02615000 CVTRV475 EQU CVTXTNT2+114 02616000 CVTRV474 EQU CVTRV466 02617000 CVTRV473 EQU CVTRV466 02618000 CVTRV472 EQU CVTRV466 02619000 CVTRV471 EQU CVTRV466 02620000 CVTRV470 EQU CVTRV466 02621000 CVTRV469 EQU CVTRV466 02622000 CVTRV468 EQU CVTRV466 02623000 CVTRV467 EQU CVTRV466 02624000 CVTRV465 EQU CVTRV457 02625000 CVTRV464 EQU CVTRV457 02626000 CVTRV463 EQU CVTRV457 02627000 CVTRV462 EQU CVTRV457 02628000 CVTRV461 EQU CVTRV457 02629000 CVTRV460 EQU CVTRV457 02630000 CVTRV459 EQU CVTRV457 02631000 CVTRV458 EQU CVTRV457 02632000 CVTRV456 EQU CVTXTNT2+108 02633000 CVTRV455 EQU CVTXTNT2+104 02634000 CVTRV454 EQU CVTXTNT2+100 02635000 CVTRV453 EQU CVTXTNT2+96 02636000 CVTRV452 EQU CVTXTNT2+94 02637000 CVTRV451 EQU CVTXTNT2+92 02638000 CVTRV450 EQU CVTXTNT2+90 02639000 CVTRV449 EQU CVTXTNT2+88 02640000 CVTRV448 EQU CVTXTNT2+87 02641000 CVTRV447 EQU CVTXTNT2+86 02642000 CVTRV446 EQU CVTRV438 02643000 CVTRV445 EQU CVTRV438 02644000 CVTRV444 EQU CVTRV438 02645000 CVTRV443 EQU CVTRV438 02646000 CVTRV442 EQU CVTRV438 02647000 CVTRV441 EQU CVTRV438 02648000 CVTRV440 EQU CVTRV438 02649000 CVTRV439 EQU CVTRV438 02650000 CVTRV437 EQU CVTRV429 02651000 CVTRV436 EQU CVTRV429 02652000 CVTRV435 EQU CVTRV429 02653000 CVTRV434 EQU CVTRV429 02654000 CVTRV433 EQU CVTRV429 02655000 CVTRV432 EQU CVTRV429 02656000 CVTRV431 EQU CVTRV429 02657000 CVTRV430 EQU CVTRV429 02658000 CVTRV428 EQU CVTXTNT2+80 02659000 CVTRV427 EQU CVTXTNT2+76 02660000 CVTRV426 EQU CVTXTNT2+72 02661000 CVTRV425 EQU CVTXTNT2+68 02662000 CVTATACT EQU CVTATCVT 02663000 CVTRV423 EQU CVTXTNT2+62 02664000 CVTRV422 EQU CVTXTNT2+60 02665000 CVTRV421 EQU CVTXTNT2+58 02666000 CVTRV420 EQU CVTXTNT2+56 02667000 CVTRV419 EQU CVTXTNT2+55 02668000 CVTRV418 EQU CVTXTNT2+54 02669000 CVTRV417 EQU CVTRV409 02670000 CVTRV416 EQU CVTRV409 02671000 CVTRV415 EQU CVTRV409 02672000 CVTRV414 EQU CVTRV409 02673000 CVTRV413 EQU CVTRV409 02674000 CVTRV412 EQU CVTRV409 02675000 CVTRV411 EQU CVTRV409 02676000 CVTRV410 EQU CVTRV409 02677000 CVTRV408 EQU CVTRV400 02678000 CVTRV407 EQU CVTRV400 02679000 CVTRV406 EQU CVTRV400 02680000 CVTRV405 EQU CVTRV400 02681000 CVTRV404 EQU CVTRV400 02682000 CVTRV403 EQU CVTRV400 02683000 CVTRV402 EQU CVTRV400 02684000 CVTRV401 EQU CVTRV400 02685000 CVTICB EQU CVTXTNT2+48 02686000 CVTSKTA EQU CVTXTNT2+44 02687000 CVTSHSB EQU CVTSHS 02688000 CVTRSV98 EQU CVTXTNT2+36 02689000 CVTRSV97 EQU CVTXTNT2+34 02690000 CVTRSV96 EQU CVTXTNT2+32 02691000 CVTOLTEP EQU CVTXTNT2+28 02692000 CVTQIDA EQU CVTQID+1 02693000 CVTRSV95 EQU CVTQID 02694000 CVTRSV94 EQU CVTXTNT2+20 02695000 CVTRSV93 EQU CVTXTNT2+16 02696000 CVTRSV92 EQU CVTXTNT2+12 02697000 CVTDEBVR EQU CVTXTNT2+8 02698000 CVTRSV91 EQU CVTXTNT2+6 02699000 CVTRSV9H EQU CVTFLGBT 02700000 CVTRSV9G EQU CVTFLGBT 02701000 CVTRSV9F EQU CVTFLGBT 02702000 CVTRSV9E EQU CVTFLGBT 02703000 CVTRSV9D EQU CVTFLGBT 02704000 CVTRSV9C EQU CVTFLGBT 02705000 CVTVME EQU CVTFLGBT 02706000 CVTNPE EQU CVTFLGBT 02707000 CVTNUCLS EQU CVTXTNT2+4 02708000 CVTDSSVA EQU CVTDSSV+1 02709000 CVTRSV89 EQU CVTDSSV 02710000 CVTRSV88 EQU CVTXTNT1+8 02711000 CVTRSV87 EQU CVTXTNT1+4 02712000 CVTFACHN EQU CVTXTNT1 02713000 CVTRV488 EQU CVTMAP+412 02714000 CVTRV487 EQU CVTMAP+408 02715000 CVTRV486 EQU CVTMAP+404 02716000 CVTRV485 EQU CVTMAP+400 02717000 CVTACTAP EQU CVTMAP+396 02718000 CVTAUTH EQU CVTMAP+392 02719000 CVTATMCA EQU CVTATMCT+1 02720000 CVTATMST EQU CVTATMCT 02721000 CVTRSV61 EQU CVTMAP+384 02722000 CVTVOLT1 EQU CVTVOLM1+1 02723000 CVTVOLI1 EQU CVTVOLF1 02724000 CVTSTOA EQU CVTMAP+376 02725000 CVTRSV58 EQU CVTMAP+374 02726000 CVTRSV57 EQU CVTMAP+372 02727000 CVTDDCE EQU CVTMAP+368 02728000 CVTPNWFR EQU CVTMAP+364 02729000 CVTSMF EQU CVTMAP+360 02730000 CVTSULK EQU CVTMAP+358 02731000 CVTSLKO EQU CVTSYSK 02732000 CVTSLKP EQU CVTSYSK 02733000 CVTSLKQ EQU CVTSYSK 02734000 CVTSLKR EQU CVTSYSK 02735000 CVTRSV56 EQU CVTSYSK 02736000 CVTRSV55 EQU CVTSYSK 02737000 CVTRSV54 EQU CVTSYSK 02738000 CVTRSV53 EQU CVTSYSK 02739000 CVTRSV52 EQU CVTA1F1 02740000 CVTRSV51 EQU CVTA1F1 02741000 CVTRSV50 EQU CVTA1F1 02742000 CVTRSV49 EQU CVTA1F1 02743000 CVTRSV48 EQU CVTA1F1 02744000 CVTRSV47 EQU CVTA1F1 02745000 CVTSRSW EQU CVTA1F1 02746000 CVTPFSW EQU CVTA1F1 02747000 CVTPCVT EQU CVTMAP+352 02748000 CVTRSV46 EQU CVTMAP+344 02749000 CVTRSV45 EQU CVTMAP+340 02750000 CVTRSV44 EQU CVTMAP+338 02751000 CVTRSV43 EQU CVTMAP+336 02752000 CVTHJESA EQU CVTHJES+1 02753000 CVTRSV42 EQU CVTHJES 02754000 CVTEXT2A EQU CVTEXT2+1 02755000 CVTRSV41 EQU CVTEXT2 02756000 CVTAPFA EQU CVTAPF+1 02757000 CVTRSV40 EQU CVTAPF 02758000 CVTRV518 EQU CVTINTLA 02759000 CVTRV517 EQU CVTERPV 02760000 CVTEORM EQU CVTMAP+312 02761000 CVTMCHPR EQU CVTMAP+308 02762000 CVTTZ EQU CVTMAP+304 02763000 CVTJEPS EQU CVTMAP+300 02764000 CVTJESCT EQU CVTMAP+296 02765000 CVTMODE EQU CVTMAP+292 02766000 CVTPTRV EQU CVTMAP+288 02767000 CVTREAL EQU CVTMAP+284 02768000 CVTRSV39 EQU CVTMAP+280 02769000 CVTRSV38 EQU CVTMAP+276 02770000 CVTDMSRA EQU CVTDMSR+1 02771000 CVTRSV37 EQU CVTDMSR 02772000 CVTQMSGA EQU CVTQMSG+1 02773000 CVTRSV36 EQU CVTQMSG 02774000 CVTAMFF EQU CVTMAP+264 02775000 CVTPURGA EQU CVTPURG+1 02776000 CVTRSV35 EQU CVTPURG 02777000 CVTCBSP EQU CVTMAP+256 02778000 CVTATERA EQU CVTATER+1 02779000 CVTSYST EQU CVTATER 02780000 CVTVOLT2 EQU CVTTAT 02781000 CVTVOLI2 EQU CVTVOLF2 02782000 CVTAQAVB EQU CVTAQAVT+1 02783000 CVTRSV34 EQU CVTTCMFG 02784000 CVTRSV33 EQU CVTTCMFG 02785000 CVTRSV32 EQU CVTTCMFG 02786000 CVTRSV31 EQU CVTTCMFG 02787000 CVTRSV30 EQU CVTTCMFG 02788000 CVTRSV29 EQU CVTTCMFG 02789000 CVTRSV28 EQU CVTTCMFG 02790000 CVTTCRDY EQU CVTTCMFG 02791000 CVTGTFA EQU CVTGTF+1 02792000 CVTRSV27 EQU CVTGTFST 02793000 CVTRNIO EQU CVTGTFST 02794000 CVTUSR EQU CVTGTFST 02795000 CVTRV318 EQU CVTFORM 02796000 CVTRV317 EQU CVTTMODE 02797000 CVTRV316 EQU CVTSTATE 02798000 CVTRV315 EQU CVTGTFS 02799000 CVTGTFAV EQU CVTGTFS 02800000 CVT0SCR1 EQU CVTMAP+232 02801000 CVTRV515 EQU CVTMAP+228 02802000 CVTRMS EQU CVTMAP+224 02803000 CVTPATCH EQU CVTMAP+220 02804000 CVTTSCE EQU CVTMAP+216 02805000 CVTLNKSC EQU CVTMAP+214 02806000 CVTQABST EQU CVTMAP+212 02807000 CVTMDLDS EQU CVTMAP+208 02808000 CVTUSER EQU CVTMAP+204 02809000 CVTABEND EQU CVTMAP+200 02810000 CVTSMCA EQU CVTMAP+196 02811000 CVTRSV18 EQU CVTMAP+192 02812000 CVTQLPAQ EQU CVTMAP+188 02813000 CVTQCDSR EQU CVTMAP+184 02814000 CVTRSV17 EQU CVTOPTB 02815000 CVTRSV16 EQU CVTOPTB 02816000 CVTFP EQU CVTOPTB 02817000 CVTAPTHR EQU CVTOPTB 02818000 CVTNLOG EQU CVTOPTB 02819000 CVTTOD EQU CVTOPTB 02820000 CVTCTIMS EQU CVTOPTB 02821000 CVTPROT EQU CVTOPTB 02822000 CVTXPFP EQU CVTOPTA 02823000 CVTASCII EQU CVTOPTA 02824000 CVTRSV13 EQU CVTOPTA 02825000 CVTRSV12 EQU CVTOPTA 02826000 CVTNIP EQU CVTOPTA 02827000 CVTDDR EQU CVTOPTA 02828000 CVTAPR EQU CVTOPTA 02829000 CVTCCH EQU CVTOPTA 02830000 CVTSNCTR EQU CVTMAP+180 02831000 CVTQMWR EQU CVTMAP+176 02832000 CVTQOCR EQU CVTMAP+172 02833000 CVT1EF00 EQU CVTMAP+168 02834000 CVTMZ00 EQU CVTMAP+164 02835000 CVTHEAD EQU CVTMAP+160 02836000 CVTRSV11 EQU CVTMAP+156 02837000 CVT0PT01 EQU CVTMAP+152 02838000 CVTMSER EQU CVTMAP+148 02839000 CVTRV516 EQU CVTIERLC 02840000 CVTILCH EQU CVTMAP+140 02841000 CVT0DS EQU CVTMAP+136 02842000 CVTFBOSV EQU CVTMAP+132 02843000 CVTNUCB EQU CVTMAP+128 02844000 CVTIXAVL EQU CVTMAP+124 02845000 CVTIOQET EQU CVTMAP+120 02846000 CVTDCBA EQU CVTMAP+117 02847000 CVTMVS2 EQU CVTDCB 02848000 CVT6DAT EQU CVTDCB 02849000 CVT4MPS EQU CVTDCB 02850000 CVTRSV09 EQU CVTDCB 02851000 CVT4MS1 EQU CVTDCB 02852000 CVT2SPS EQU CVTDCB 02853000 CVT1SSS EQU CVTDCB 02854000 CVTRSV08 EQU CVTDCB 02855000 CVTSTB EQU CVTMAP+112 02856000 CVTQTD00 EQU CVTMAP+108 02857000 CVTQTE00 EQU CVTMAP+104 02858000 CVTCUCB EQU CVTMAP+100 02859000 CVTSJQ EQU CVTMAP+96 02860000 CVTPBLDL EQU CVTMAP+92 02861000 CVTTPC EQU CVTMAP+88 02862000 CVTSVDCB EQU CVTMAP+84 02863000 CVTBRET EQU CVTMAP+82 02864000 CVTEXIT EQU CVTMAP+80 02865000 CVT0FN00 EQU CVTMAP+76 02866000 CVTDARA EQU CVTDAR+1 02867000 CVTRSV07 EQU CVTFLGS1 02868000 CVTRSV06 EQU CVTFLGS1 02869000 CVTRSV05 EQU CVTFLGS1 02870000 CVTRSV04 EQU CVTFLGS1 02871000 CVTRSV03 EQU CVTFLGS1 02872000 CVTRSV02 EQU CVTFLGS1 02873000 CVTRSV01 EQU CVTFLGS1 02874000 CVTDMPLK EQU CVTFLGS1 02875000 CVTXITP EQU CVTMAP+68 02876000 CVTZDTAB EQU CVTMAP+64 02877000 CVTMSLT EQU CVTMAP+60 02878000 CVTDATE EQU CVTMAP+56 02879000 CVTBTERM EQU CVTMAP+52 02880000 CVTSYSAD EQU CVTMAP+48 02881000 CVTXTLER EQU CVTMAP+44 02882000 CVTILK2 EQU CVTMAP+40 02883000 CVTILK1 EQU CVTMAP+36 02884000 CVTPRLTV EQU CVTMAP+32 02885000 CVTPCNVT EQU CVTMAP+28 02886000 CVT0VL00 EQU CVTMAP+24 02887000 CVTXAPG EQU CVTMAP+20 02888000 CVTBUF EQU CVTMAP+16 02889000 CVTJOB EQU CVTMAP+12 02890000 CVTLINK EQU CVTMAP+8 02891000 CVT0EF00 EQU CVTMAP+4 02892000 CVTTCBP EQU CVTMAP 02893000 CVT EQU CVTMAP 02894000 @NM00013 EQU SRBSECT+40 02895000 @NM00012 EQU SRBSECT+38 02896000 SRBPRIOR EQU SRBSECT+37 02897000 SRBPKF EQU SRBSECT+36 02898000 SRBSAVE EQU SRBSECT+32 02899000 SRBPARM EQU SRBSECT+28 02900000 SRBRMTR EQU SRBSECT+24 02901000 SRBEP EQU SRBSECT+20 02902000 SRBPTCB EQU SRBFLC+4 02903000 SRBPASID EQU SRBFLC+2 02904000 SRBCPAFF EQU SRBFLC 02905000 SRBASCB EQU SRBSECT+8 02906000 SRBFLNK EQU SRBSECT+4 02907000 SRBID EQU SRBSECT 02908000 UCBERADR EQU UCBUCS+12 02909000 UCBFCBID EQU UCBUCS+8 02910000 UCBERCNT EQU UCBUCS+7 02911000 UCBRSV51 EQU UCBUCS+6 02912000 UCBRSV50 EQU UCBFCBOP 02913000 UCBRSV49 EQU UCBFCBOP 02914000 UCBRSV48 EQU UCBFCBOP 02915000 UCBRSV47 EQU UCBFCBOP 02916000 UCBRSV46 EQU UCBFCBOP 02917000 UCBRSV45 EQU UCBFCBOP 02918000 UCBRSV44 EQU UCBFCBOP 02919000 UCBFCBO1 EQU UCBFCBOP 02920000 UCBUCSPE EQU UCBUCSOP 02921000 UCBRSV43 EQU UCBUCSOP 02922000 UCBRSV42 EQU UCBUCSOP 02923000 UCBRSV41 EQU UCBUCSOP 02924000 UCBRSV40 EQU UCBUCSOP 02925000 UCBRSV39 EQU UCBUCSOP 02926000 UCBUCSO2 EQU UCBUCSOP 02927000 UCBUCSO1 EQU UCBUCSOP 02928000 UCBUCSID EQU UCBUCS 02929000 UCBMDRBA EQU UCBMDRBF+1 02930000 UCBRV075 EQU UCBMDRBF 02931000 UCBRV074 EQU UCB3800X+32 02932000 UCBIMAGE EQU UCB3800X+28 02933000 UCBFCBNM EQU UCB3800X+24 02934000 UCBCHAR4 EQU UCB3800X+20 02935000 UCBCHAR3 EQU UCB3800X+16 02936000 UCBCHAR2 EQU UCB3800X+12 02937000 UCBCHAR1 EQU UCB3800X+8 02938000 UCBCGMID EQU UCB3800X+4 02939000 UCBBRSTA EQU UCBACTIV 02940000 UCBRV063 EQU UCBACTIV 02941000 UCBRV062 EQU UCBACTIV 02942000 UCBRV061 EQU UCBACTIV 02943000 UCBRV060 EQU UCBACTIV 02944000 UCBRV059 EQU UCBACTIV 02945000 UCBRV058 EQU UCBACTIV 02946000 UCBRV057 EQU UCBACTIV 02947000 UCBRV050 EQU UCB3800X+2 02948000 UCBCGMNO EQU UCB3800X+1 02949000 UCBRV083 EQU UCBOPTNS 02950000 UCBBRSTR EQU UCBOPTNS 02951000 UCBRV056 EQU UCBOPTNS 02952000 UCBRV055 EQU UCBOPTNS 02953000 UCBRV054 EQU UCBOPTNS 02954000 UCBRV053 EQU UCBOPTNS 02955000 UCBRV052 EQU UCBOPTNS 02956000 UCBRV051 EQU UCBOPTNS 02957000 UCBRV073 EQU UCB3540X+7 02958000 UCBRV072 EQU UCBDKBYT 02959000 UCBRV071 EQU UCBDKBYT 02960000 UCBRV070 EQU UCBDKBYT 02961000 UCBRV069 EQU UCBDKBYT 02962000 UCBRV068 EQU UCBDKBYT 02963000 UCBRV067 EQU UCBDKBYT 02964000 UCBVLVER EQU UCBDKBYT 02965000 UCBDKAMX EQU UCBDKBYT 02966000 UCBVLSER EQU UCB3540X 02967000 UCBRDATA EQU UCBOCR+4 02968000 UCBFRID EQU UCBOCR 02969000 UCBCLN EQU UCBMT+14 02970000 UCBERG EQU UCBMT+12 02971000 UCBMS EQU UCBMT+11 02972000 UCBNB EQU UCBMT+10 02973000 UCBPW EQU UCBMT+9 02974000 UCBPR EQU UCBMT+8 02975000 UCBSIO EQU UCBMT+6 02976000 UCBTW EQU UCBMT+5 02977000 UCBTR EQU UCBMT+4 02978000 UCBTWT EQU UCBMT+3 02979000 UCBTRT EQU UCBMT+2 02980000 UCBCTD EQU UCBMT 02981000 UCBWTOID EQU UCBCMEXT+17 02982000 UCBRV043 EQU UCBCMEXT+16 02983000 UCBASID EQU UCBCMEXT+14 02984000 UCBMFCNT EQU UCBCMEXT+12 02985000 UCBPMSK EQU UCBCMEXT+10 02986000 UCBCCWOF EQU UCBCMEXT+8 02987000 UCBRV041 EQU UCBCMEXT+6 02988000 UCBRV036 EQU UCBFLP1 02989000 UCBRV035 EQU UCBFLP1 02990000 UCBERLOG EQU UCBFLP1 02991000 UCBRV033 EQU UCBFLP1 02992000 UCBRV032 EQU UCBFLP1 02993000 UCBRV031 EQU UCBFLP1 02994000 UCBSHRUP EQU UCBFLP1 02995000 UCBNSRCH EQU UCBFLP1 02996000 UCBSNSCT EQU UCBCMEXT+4 02997000 UCBHPDV EQU @NM00011 02998000 UCBHALI EQU @NM00011 02999000 UCBRSV09 EQU @NM00011 03000000 UCBRSV08 EQU @NM00011 03001000 UCBRSV07 EQU @NM00011 03002000 UCBRSV06 EQU @NM00011 03003000 UCBRSV05 EQU @NM00011 03004000 UCBRSV04 EQU @NM00011 03005000 UCBDTI EQU UCBCMEXT+2 03006000 UCBSTI EQU UCBCMEXT+1 03007000 UCBETI EQU UCBCMEXT 03008000 UCBEXTP EQU UCBEXTPT+1 03009000 UCBDDRSW EQU UCBFLC 03010000 UCBTICBT EQU UCBFLC 03011000 UCBIVRR EQU UCBFLC 03012000 UCBIVRS EQU UCBFLC 03013000 UCBITF EQU UCBFLC 03014000 UCBUDE EQU UCBFLC 03015000 UCBWAA EQU UCBFLC 03016000 UCBATTP EQU UCBFLC 03017000 UCBUNTYP EQU UCBTBYT4 03018000 UCBRSV11 EQU UCBDVCLS 03019000 UCBRSV10 EQU UCBDVCLS 03020000 UCB3CHAR EQU UCBDVCLS 03021000 UCB3UREC EQU UCBDVCLS 03022000 UCB3DISP EQU UCBDVCLS 03023000 UCB3DACC EQU UCBDVCLS 03024000 UCB3COMM EQU UCBDVCLS 03025000 UCB3TAPE EQU UCBDVCLS 03026000 UCBDVPWR EQU UCB2OPT7 03027000 UCBVLPWR EQU UCB2OPT6 03028000 UCB2OPT5 EQU UCBTBYT2 03029000 UCBRVDEV EQU UCBRWTAU 03030000 UCBRPS EQU UCBDUDN2 03031000 UCBRR EQU UCBDUDN1 03032000 UCB2OPT1 EQU UCBTBYT2 03033000 UCB2OPT0 EQU UCBTBYT2 03034000 UCB1FEA7 EQU UCBTBYT1 03035000 UCBD6250 EQU UCB1FEA6 03036000 UCBD1600 EQU UCB1FEA5 03037000 UCB1FEA4 EQU UCBTBYT1 03038000 UCB1FEA3 EQU UCBTBYT1 03039000 UCB1FEA2 EQU UCBTBYT1 03040000 UCB1FEA1 EQU UCBTBYT1 03041000 UCB1FEA0 EQU UCBTBYT1 03042000 UCBNAME EQU UCBOB+13 03043000 UCBRV029 EQU UCBWGT 03044000 UCBVHRSN EQU UCBWGT 03045000 UCBVORSN EQU UCBWGT 03046000 UCBMTPXP EQU UCBWGT 03047000 UCBREW EQU UCBWGT 03048000 UCBPUB EQU UCBWGT 03049000 UCBOUT EQU UCBWGT 03050000 UCBIN EQU UCBWGT 03051000 UCBCPU EQU UCBOB+11 03052000 UCBLCI EQU UCBOB+10 03053000 UCBCNT EQU UCBOB+9 03054000 UCBRV017 EQU UCBCHM1 03055000 UCBRV016 EQU UCBCHM1 03056000 UCBRV015 EQU UCBCHM1 03057000 UCBRV014 EQU UCBCHM1 03058000 UCBSPB EQU UCBPTH1 03059000 UCBPPB EQU UCBPTH1 03060000 UCBSPA EQU UCBPTH0 03061000 UCBPPA EQU UCBPTH0 03062000 UCBSIGP EQU UCBFLB 03063000 UCBVALPH EQU UCBFLB 03064000 UCBCRHSN EQU UCBFLB 03065000 UCBCRHRV EQU UCBFLB 03066000 UCBRESVH EQU UCBFLB 03067000 UCBSPST EQU UCBFLB 03068000 UCBASNS EQU UCBFLB 03069000 UCBIORST EQU UCBFLB 03070000 UCBQISCE EQU UCBFL1 03071000 UCBACTV EQU UCBFL1 03072000 UCBSAP EQU UCBFL1 03073000 UCBNOTRC EQU UCBCUB 03074000 UCBPSNS EQU UCBFL1 03075000 UCBUSING EQU UCBPST 03076000 UCBNOTRD EQU UCBNRY 03077000 UCBBUSYD EQU UCBBSY 03078000 UCBUA EQU UCBCHAN+1 03079000 UCBCHA EQU UCBCHAN 03080000 UCBDADI EQU UCBSTAT 03081000 UCBSYSR EQU UCBSTAT 03082000 UCBPRES EQU UCBSTAT 03083000 UCBALOC EQU UCBSTAT 03084000 UCBUNLD EQU UCBSTAT 03085000 UCBRESV EQU UCBSTAT 03086000 UCBCHGS EQU UCBSTAT 03087000 UCBONLI EQU UCBSTAT 03088000 UCBID EQU UCBOB+2 03089000 UCBALTPH EQU UCBFL5 03090000 UCBALTCU EQU UCBFL5 03091000 UCBNALOC EQU UCBFL5 03092000 UCBENVRD EQU UCBFL5 03093000 UCBVSDR EQU UCBFL5 03094000 UCBSASK EQU UCBFL5 03095000 UCBAMV EQU UCBAF 03096000 UCBDCC EQU UCBFL5 03097000 UCBMONT EQU UCBJBNR 03098000 UCBRV011 EQU UCBJBNR 03099000 UCBRSV02 EQU UCBJBNR 03100000 UCBOLDSM EQU UCBJBNR 03101000 UCBRV003 EQU UCBJBNR 03102000 UCBRV002 EQU UCBJBNR 03103000 UCBJES3 EQU UCBJBNR 03104000 UCBVRDEV EQU UCBJBNR 03105000 UCBCMSEG EQU UCBOB 03106000 UCBPFXND EQU UCB+512 03107000 UCBIOQ EQU UCB+508 03108000 UCBLOCK EQU UCB+504 03109000 UCBPXST EQU UCB+504 03110000 @NM00008 EQU UCB 03111000 IOSEND EQU IOSB+108 03112000 IOSSKR EQU IOSEEKA+7 03113000 IOSSKH2 EQU IOSSKHH+1 03114000 IOSSKH1 EQU IOSSKHH 03115000 IOSSKCC EQU IOSCCHH 03116000 IOSSKBB EQU IOSEEKA+1 03117000 IOSSKM EQU IOSEEKA 03118000 IOSEEK EQU IOSB+92 03119000 IOSMDM EQU IOSB+91 03120000 IOSMDB EQU IOSB+90 03121000 IOSCKEY7 EQU IOSCKEY 03122000 IOSCKEY6 EQU IOSCKEY 03123000 IOSCKEY5 EQU IOSCKEY 03124000 IOSCKEY4 EQU IOSCKEY 03125000 @NM00004 EQU IOSCKEY 03126000 IOSFMSK EQU IOSB+88 03127000 IOSCUDEV EQU IOSPATH+1 03128000 @NM00003 EQU IOSCHN 03129000 IOSPATH3 EQU IOSCHN 03130000 IOSPATH2 EQU IOSCHN 03131000 IOSEXP EQU IOSCHN 03132000 IOSGDP EQU IOSCHN 03133000 IOSAFF EQU IOSB+85 03134000 IOSRSS1B EQU IOSB+84 03135000 IOSDSID EQU IOSB+80 03136000 IOSVST EQU IOSB+76 03137000 IOSRST EQU IOSB+72 03138000 IOSDIE EQU IOSB+68 03139000 IOSABN EQU IOSB+64 03140000 IOSNRM EQU IOSB+60 03141000 IOSPCI EQU IOSB+56 03142000 IOSERP EQU IOSB+52 03143000 IOSPCHN EQU IOSB+48 03144000 IOSAPMSK EQU IOSB+40 03145000 IOSRES4A EQU IOSB+36 03146000 IOSUSE EQU IOSB+32 03147000 IOSSRB EQU IOSB+28 03148000 IOSCSWRC EQU IOSCSW+5 03149000 IOSTSB EQU IOSTATUS+1 03150000 IOSTSA EQU IOSTATUS 03151000 IOSCSWCA EQU IOSCSW 03152000 IOSUCB EQU IOSB+16 03153000 IOSOPT2X EQU IOSOPT2 03154000 IOSHTP EQU IOSOPT2 03155000 IOSRELSE EQU IOSOPT 03156000 IOSAPR EQU IOSOPT 03157000 IOSTSLL EQU IOSOPT 03158000 IOSNERP EQU IOSOPT 03159000 IOSPSLL EQU IOSOPT 03160000 IOSQISCE EQU IOSOPT 03161000 IOSDEP EQU IOSOPT 03162000 IOSBYP EQU IOSOPT 03163000 IOSCOD EQU IOSB+13 03164000 IOSPKY7 EQU IOSPKEY 03165000 IOSPGDPX EQU IOSPKEY 03166000 IOSIDR EQU IOSPKEY 03167000 IOSLCL EQU IOSPKEY 03168000 @NM00001 EQU IOSPKEY 03169000 IOSPGAD EQU IOSB+8 03170000 IOSASID EQU IOSB+6 03171000 IOSPRLVL EQU IOSB+5 03172000 IOSDVRID EQU IOSB+4 03173000 IOSPROC EQU IOSB+3 03174000 IOSFLC7 EQU IOSFLC 03175000 IOSFLC6 EQU IOSFLC 03176000 IOSGLC5 EQU IOSFLC 03177000 IOSFLC4 EQU IOSFLC 03178000 IOSTP EQU IOSFLC 03179000 IOSCC3WE EQU IOSFLC 03180000 IOSVERIF EQU IOSDVALT 03181000 IOSDVMNT EQU IOSFLC 03182000 IOSLOG EQU IOSFLB 03183000 IOSBDCST EQU IOSFLB 03184000 IOSMSG EQU IOSFLB 03185000 IOSFLB4 EQU IOSFLB 03186000 IOSFLB3 EQU IOSFLB 03187000 IOSFLB2 EQU IOSFLB 03188000 IOSSDR EQU IOSFLB 03189000 IOSDIESE EQU IOSFLB 03190000 IOSIOSB EQU IOSFLA 03191000 IOSDOM EQU IOSFLA 03192000 IOSEX EQU IOSFLA 03193000 IOSSMDB EQU IOSFLA 03194000 IOSSMDA EQU IOSFLA 03195000 IOSERR EQU IOSFLA 03196000 IOSCCHN EQU IOSACHN 03197000 IOSDCHN EQU IOSACHN 03198000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03199000 @RC00460 EQU @RC00458 03200000 @ENDDATA EQU * 03201000 END ISTZFMTA,(C'PLS1116',0603,75136) 03202000