TITLE 'ISTZEMAB: OS/VS2 REMOTE I/O INITIALIZATION *00001000 ' 00002000 ISTZEMAB CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTZEMAB 75.311' 0001 00008000 DROP @15 00009000 @PROLOG DS 0H 0002 00010000 * * * * * * * * * * * * * * * * * 00011000 * GENERATED CODE TO ENSURE THAT * 00012000 * THE COMMON ENTRY POINT IS * 00013000 * IDENTIFIED * 00014000 ISTZEMAB CSECT * 00015000 ENTRY ISTZECAB * 00016000 ISTZECAB EQU ISTZEMAB * 00017000 * * * * * * * * * * * * * * * * * 00018000 * @ZM31967*/ 00019000 * 0390 00020000 */* TPZSAVE (7,12,14) BASE */ 00021000 * 0390 00022000 * DO; 0390 00023000 * DCL 0391 00024000 * GPR01F FIXED(31) REG(01); 0391 00025000 * DCL 0392 00026000 * GPR01P PTR(31) REG(01); 0392 00027000 * DCL 0393 00028000 * GPR12F FIXED(31) REG(12); 0393 00029000 * DCL 0394 00030000 * GPR12P PTR(31) REG(12); 0394 00031000 * DCL 0395 00032000 * GPR13F FIXED(31) REG(13); 0395 00033000 * DCL 0396 00034000 * GPR13P PTR(31) REG(13); 0396 00035000 * DCL 0397 00036000 * GPR14F FIXED(31) REG(14); 0397 00037000 * DCL 0398 00038000 * GPR14P PTR(31) REG(14); 0398 00039000 * RFY 0399 00040000 * (GPR01P, 0399 00041000 * GPR12P, 0399 00042000 * GPR13P, 0399 00043000 * GPR14P) RSTD; 0399 00044000 * GEN(PRINT OFF); 0400 00045000 * 0400 00046000 PRINT OFF 00047000 */* ATBUILD (ISTZSAVE) */ 00048000 */* END OF ATBUILD */ 00049000 * 0401 00050000 * GEN(PRINT ON); 0401 00051000 PRINT ON 00052000 * RFY 0402 00053000 * ISTZSAVE BASED(GPR13P); 0402 00054000 * GEN SETS(ZSAZSVVR)(STM 7,12,ZSAZSVVR+0(13)); 0403 00055000 STM 7,12,ZSAZSVVR+0(13) 00056000 * GEN SETS(GPR12P); 0404 00057000 BALR GPR12P,0 00058000 @TSTART DS 0H 00059000 USING @TSTART,GPR12P 00060000 * ZSAZSVRR=GPR14P; 0405 00061000 ST GPR14P,ZSAZSVRR(,GPR13P) 0405 00062000 * GPR13P=ZSAZSVFC; 0406 00063000 L GPR13P,ZSAZSVFC(,GPR13P) 0406 00064000 * RFY 0407 00065000 * (GPR01P) UNRSTD; 0407 00066000 * RFY 0408 00067000 * (GPR14P) UNRSTD; 0408 00068000 * END; 0409 00069000 * 0409 00070000 */* END TPZSAVE */ 00071000 * 0410 00072000 * IF ICNSIOQ^=0 /* CHANL PGMS QUEUED FOR LCL 0410 00073000 * ICNCB */ 00074000 * |ICNZV524^=0 THEN /* OR C.P QUEUED FOR REMOTE 0410 00075000 * ICNCBS @ZM31872*/ 00076000 L @14,ICNSIOQ(,R3ICNCB) 0410 00077000 LTR @14,@14 0410 00078000 BNZ @RT00410 0410 00079000 L @14,ICNZV524-1(,R3ICNCB) 0410 00080000 LA @14,0(,@14) 0410 00081000 LTR @14,@14 0410 00082000 BZ @RF00410 0410 00083000 @RT00410 DS 0H 0411 00084000 * IF ICNSLOW=ON /* NCP IS IN SLOWDOWN @Z40GKD9*/ 00085000 * |ICNRNRY=ON THEN 0411 00086000 TM ICNSLOW(R3ICNCB),B'00001000' 0411 00087000 BO @RT00411 0411 00088000 TM ICNRNRY(R3ICNCB),B'10000000' 0411 00089000 BO @RT00411 0411 00090000 * ; /* OR 3791 IN RECEIVE NOT READY - 00091000 * @Z40GKD9*/ 00092000 * 0412 00093000 * /*****************************************************************/ 00094000 * /* */ 00095000 * /* DONT BOTHER WITH WRITES @Z40GKD9*/ 00096000 * /* */ 00097000 * /*****************************************************************/ 00098000 * 0413 00099000 * ELSE 0413 00100000 * 0413 00101000 * /*************************************************************/ 00102000 * /* */ 00103000 * /* CHECK FOR ABNORMAL CONDITIONS AND PROCESS ANY WRITE */ 00104000 * /* CHANNEL PROGRAMS */ 00105000 * /* */ 00106000 * /*************************************************************/ 00107000 * 0413 00108000 */* PROCESS ANY QUEUED WRITE CHANNEL PGMS ON THE LCL ICNCB */ 00109000 */* AND ANY REMOTE ICNCBS */ 00110000 */* NOTE: THE ICNCB IS BASED ON R7CURICN THROUGHOUT THIS SEGMENT */ 00111000 */* AND THROUGHTOUT IONINT6 WHICH IS INCLUDED IN THIS SEGMENT.*/ 00112000 * 0413 00113000 * DO; 0413 00114000 * R7CURICN=R3ICNCB; /* START LOOP WITH LOCAL ICNCB */ 00115000 LR R7CURICN,R3ICNCB 0414 00116000 * RESPECIFY 0415 00117000 * (ISTICNCB, 0415 00118000 * ISTNCB) BASED(R7CURICN); 0415 00119000 *CPSRCHLP: 0416 00120000 * R6=ICNSIOQ; /* ESTABLISH BASE OF BUFFER 0416 00121000 * @ZM34560*/ 00122000 CPSRCHLP L @14,ICNSIOQ(,R7CURICN) 0416 00123000 LR R6,@14 0416 00124000 * IF ICNSIOQ=0 /* NO CHANNEL PGM QUEUED */ 00125000 * |(ICNLCLUS=ON&NCBCONF=ON/* OR 3791 SICK @Z40GKD9*/ 00126000 * &TH2DAF^='00'X) /* AND NOT A CONTROL @Z40GKD9*/ 00127000 * 0417 00128000 * /***********************************************************/ 00129000 * /* */ 00130000 * /* COMMAND */ 00131000 * /* */ 00132000 * /***********************************************************/ 00133000 * 0417 00134000 * |(ICNLCLUS=OFF&NCBCONF=ON/* OR NCP SICK @Z40GKD9*/ 00135000 * &THDAF^=NCBSWDAF) /* AND NOT A CONTOL @Z40GKD9 00136000 * COMMAND */ 00137000 * |ICNSLOW=ON THEN 0417 00138000 LTR @14,@14 0417 00139000 BZ @RT00417 0417 00140000 TM ICNLCLUS(R7CURICN),B'00100000' 0417 00141000 BNO @GL00004 0417 00142000 TM NCBCONF(R7CURICN),B'01000000' 0417 00143000 BNO @GL00004 0417 00144000 CLI TH2DAF+32(R6),0 0417 00145000 BNE @RT00417 0417 00146000 @GL00004 TM ICNLCLUS(R7CURICN),B'00100000' 0417 00147000 BNZ @GL00003 0417 00148000 TM NCBCONF(R7CURICN),B'01000000' 0417 00149000 BNO @GL00003 0417 00150000 CLC THDAF+28(2,R6),NCBSWDAF(R7CURICN) 0417 00151000 BNE @RT00417 0417 00152000 @GL00003 TM ICNSLOW(R7CURICN),B'00001000' 0417 00153000 BO @RT00417 0417 00154000 * ; /* OR NCP IS IN SLOWDOWN THEN 0418 00155000 * SKIP OVER THIS ICNCB */ 00156000 * ELSE 0419 00157000 * DO; 0419 00158000 * IF ICNZF010=ON THEN /* NCP IS IN SHUTDOWN */ 00159000 * 0420 00160000 TM ICNZF010(R7CURICN),B'00010000' 0420 00161000 BNO @RF00420 0420 00162000 * /*****************************************************/ 00163000 * /* */ 00164000 * /* PROCESS NCP SHUTDOWN CONDITION */ 00165000 * /* */ 00166000 * /*****************************************************/ 00167000 * 0421 00168000 * DO; 0421 00169000 * R3ICNCB->ICNZSW04=OFF;/* CLEAR CONTROL SWITCH */ 00170000 NI ICNZSW04(R3ICNCB),B'11101111' 0422 00171000 * RY=0; /* SET ADDR LAST BUFFER TO 0 */ 00172000 SLR RY,RY 0423 00173000 * R6=R7CURICN->ICNSIOQ;/* SET PTR TO 1ST BUFR ON SIOQ*/ 00174000 L R6,ICNSIOQ(,R7CURICN) 0424 00175000 * DO WHILE R6^=0; /* LOOP THRU BUFFERS */ 00176000 B @DE00425 0425 00177000 @DL00425 DS 0H 0426 00178000 * IF BDUCOMND=BCMDZ&(BDUMODIF=BMODZEM|BDUMODIF= 0426 00179000 * BMODZQM|BDUMODIF=BMODZIM|BDUMODIF=BMODZOM| 0426 00180000 * BDUMODIF=BMODZXO|BDUMODIF=BMODZCM|BDUMODIF= 00181000 * BMODZECM) THEN/* COMMAND IS A RESET */ 00182000 LA @14,42 0426 00183000 ALR @14,R6 0426 00184000 CLI BDUCOMND(@14),X'08' 0426 00185000 BNE @RF00426 0426 00186000 CLI BDUMODIF(@14),X'41' 0426 00187000 BE @RT00426 0426 00188000 CLI BDUMODIF(@14),X'42' 0426 00189000 BE @RT00426 0426 00190000 CLI BDUMODIF(@14),X'44' 0426 00191000 BE @RT00426 0426 00192000 CLI BDUMODIF(@14),X'48' 0426 00193000 BE @RT00426 0426 00194000 CLI BDUMODIF(@14),X'43' 0426 00195000 BE @RT00426 0426 00196000 CLI BDUMODIF(@14),X'50' 0426 00197000 BE @RT00426 0426 00198000 CLI BDUMODIF(@14),X'60' 0426 00199000 BNE @RF00426 0426 00200000 @RT00426 DS 0H 0427 00201000 * DO; 0427 00202000 * R3ICNCB->ICNZSW04=ON; 0428 00203000 OI ICNZSW04(R3ICNCB),B'00010000' 0428 00204000 * RX=R6; /* SAVE ADDR OF 1ST BTU BFR */ 00205000 LR RX,R6 0429 00206000 * IF RY=0 THEN/* NO BUFFERS TO FREE */ 00207000 LTR RY,RY 0430 00208000 BZ @RT00430 0430 00209000 * ; /* DONT DO ANYTHING */ 00210000 * ELSE 0432 00211000 * DO; 0432 00212000 * RY->ZOBCHAIN=0;/* ZERO CHAIN FIELD */ 00213000 SLR @14,@14 0433 00214000 ST @14,ZOBCHAIN(,RY) 0433 00215000 * RY=R7CURICN->ICNSIOQ;/* ADDR OF 1ST 0434 00216000 * BUFFER TO FREE */ 00217000 * 0434 00218000 L RY,ICNSIOQ(,R7CURICN) 0434 00219000 * /*****************************************/ 00220000 * /* */ 00221000 * /* RELSTORE */ 00222000 * /* BUFADDR(RY)DISABLE(YES)CLEAR(YES) */ 00223000 * /* */ 00224000 * /*****************************************/ 00225000 * 0435 00226000 * DO; 0435 00227000 * 0435 00228000 */* ATBUILD (ISTATCVT,ISTRPH) */ 00229000 */* END OF ATBUILD */ 00230000 * 0436 00231000 * DCL 0436 00232000 * GPR00F FIXED(31) REG(00); 0436 00233000 * DCL 0437 00234000 * GPR00P PTR(31) REG(00); 0437 00235000 * DCL 0438 00236000 * GPR02F FIXED(31) REG(02); 0438 00237000 * DCL 0439 00238000 * GPR02P PTR(31) REG(02); 0439 00239000 * DCL 0440 00240000 * GPR03F FIXED(31) REG(03); 0440 00241000 * DCL 0441 00242000 * GPR03P PTR(31) REG(03); 0441 00243000 * DCL 0442 00244000 * GPR04F FIXED(31) REG(04); 0442 00245000 * DCL 0443 00246000 * GPR04P PTR(31) REG(04); 0443 00247000 * DCL 0444 00248000 * GPR05F FIXED(31) REG(05); 0444 00249000 * DCL 0445 00250000 * GPR05P PTR(31) REG(05); 0445 00251000 * DCL 0446 00252000 * GPR06F FIXED(31) REG(06); 0446 00253000 * DCL 0447 00254000 * GPR06P PTR(31) REG(06); 0447 00255000 * DCL 0448 00256000 * GPR07F FIXED(31) REG(07); 0448 00257000 * DCL 0449 00258000 * GPR07P PTR(31) REG(07); 0449 00259000 * DCL 0450 00260000 * GPR08F FIXED(31) REG(08); 0450 00261000 * DCL 0451 00262000 * GPR08P PTR(31) REG(08); 0451 00263000 * DCL 0452 00264000 * GPR09F FIXED(31) REG(09); 0452 00265000 * DCL 0453 00266000 * GPR09P PTR(31) REG(09); 0453 00267000 * DCL 0454 00268000 * GPR10F FIXED(31) REG(10); 0454 00269000 * DCL 0455 00270000 * GPR10P PTR(31) REG(10); 0455 00271000 * DCL 0456 00272000 * GPR11F FIXED(31) REG(11); 0456 00273000 * DCL 0457 00274000 * GPR11P PTR(31) REG(11); 0457 00275000 * DCL 0458 00276000 * GPR15F FIXED(31) REG(15); 0458 00277000 * DCL 0459 00278000 * GPR15P PTR(31) REG(15); 0459 00279000 * RFY 0460 00280000 * (GPR02P, 0460 00281000 * GPR03P, 0460 00282000 * GPR04P, 0460 00283000 * GPR15P) RSTD; 0460 00284000 * RFY 0461 00285000 * (GPR01P, 0461 00286000 * GPR13P) RSTD; 0461 00287000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS( 00288000 * RPHWORK); 0462 00289000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 00290000 * RFY 0463 00291000 * GPR13P UNRSTD; 0463 00292000 * GPR04P=RY|'80000000'X; 0464 00293000 LR GPR04P,RY 0464 00294000 O GPR04P,@CF01594 0464 00295000 * DCL 0465 00296000 * 1 FMZA0015 FIXED(31) STATIC LOCAL, 0465 00297000 * 2 * FIXED(8) INIT(192), 0465 00298000 * 2 * PTR(24) INIT(0); 0465 00299000 * GPR03F=FMZA0015; 0466 00300000 L GPR03F,FMZA0015 0466 00301000 * DO; /* LISATCVT 0467 00302000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00303000 * GPR15P=ATCLCPTR;/* SET UP ATCVT 0468 00304000 * POINTER */ 00305000 L GPR15P,ATCLCPTR 0468 00306000 * END; /* LISATCVT */ 00307000 * GPR02P=GPR15P->ATCBPDA; 0470 00308000 L GPR02P,ATCBPDA(,GPR15P) 0470 00309000 * GPR15P=GPR15P->ATCSMRS; 0471 00310000 L GPR15P,ATCSMRS(,GPR15P) 0471 00311000 * DCL 0472 00312000 * FMZL0015 BASED(GPR15P) LABEL VALUERANGE 00313000 * (*); 0472 00314000 * CALL FMZL0015; 0473 00315000 BALR @14,@15 0473 00316000 * RFY 0474 00317000 * GPR13P RSTD; 0474 00318000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P 00319000 * ,GPR13P); 0475 00320000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 00321000 * RFY 0476 00322000 * (GPR01P, 0476 00323000 * GPR13P) UNRSTD; 0476 00324000 * RFY 0477 00325000 * (GPR02P, 0477 00326000 * GPR03P, 0477 00327000 * GPR04P, 0477 00328000 * GPR15P) UNRSTD; 0477 00329000 * END; /* *********END OF RELSTORE 0478 00330000 * EXPANSION********* */ 00331000 * RY=0; /* SET LAST BUFR ADDR TO 0 */ 00332000 SLR RY,RY 0479 00333000 * END; 0480 00334000 * END; 0481 00335000 * ELSE 0482 00336000 * ; /* NOT A CONTROL COMMAND */ 00337000 @RF00426 DS 0H 0483 00338000 * DO WHILE ZOBCPWTF^=ZOBCC+ZOBSLI; 0483 00339000 @RC00426 B @DE00483 0483 00340000 @DL00483 DS 0H 0484 00341000 * R6=ZOBCHAIN; /* GET NEXT BUFR ADDR */ 00342000 L R6,ZOBCHAIN(,R6) 0484 00343000 * END; 0485 00344000 @DE00483 CLI ZOBCPWTF(R6),96 0485 00345000 BNE @DL00483 0485 00346000 * IF R3ICNCB->ICNZSW04=ON THEN 0486 00347000 TM ICNZSW04(R3ICNCB),B'00010000' 0486 00348000 BNO @RF00486 0486 00349000 * DO; 0487 00350000 * R7CURICN->ICNSIOQ=ZOBCHAIN;/* PUT NEXT BUFR 00351000 * AT HEAD OF SIOQ */ 00352000 L @14,ZOBCHAIN(,R6) 0488 00353000 ST @14,ICNSIOQ(,R7CURICN) 0488 00354000 * ZOBCHAIN=0; /* CLEAR OUT CHAIN */ 00355000 SLR @14,@14 0489 00356000 ST @14,ZOBCHAIN(,R6) 0489 00357000 * R3ICNCB->ICNZSW04=OFF; 0490 00358000 NI ICNZSW04(R3ICNCB),B'11101111' 0490 00359000 * R7CURICN->ICNLSTBT=RX;/* PUT LAST BTU ON SIOQ*/ 00360000 ST RX,ICNLSTBT(,R7CURICN) 0491 00361000 * R7CURICN->ICNLAST=R6;/* PUT LAST BUFR ON SIOQ*/ 00362000 ST R6,ICNLAST(,R7CURICN) 0492 00363000 * R6=RX; /* GET LAST BTU ADDR FOR IOSSETUP 00364000 * @ZA05269*/ 00365000 LR R6,RX 0493 00366000 * CALL IOSSETUP;/* PUT BUFRS ON IOSB */ 00367000 BAL @14,IOSSETUP 0494 00368000 * R6=R7CURICN->ICNSIOQ;/* GET NEXT BUFFER ADDR */ 00369000 L R6,ICNSIOQ(,R7CURICN) 0495 00370000 * END; 0496 00371000 * ELSE /* CONTROL SW IS OFF */ 00372000 * DO; 0497 00373000 B @RC00486 0497 00374000 @RF00486 DS 0H 0498 00375000 * RY=R6; /* SAVE THIS BUFR ADDR */ 00376000 LR RY,R6 0498 00377000 * R6=ZOBCHAIN;/* NEXT BUFFER ADDR */ 00378000 L R6,ZOBCHAIN(,R6) 0499 00379000 * END; 0500 00380000 * END; 0501 00381000 @RC00486 DS 0H 0501 00382000 @DE00425 SLR @14,@14 0501 00383000 CR R6,@14 0501 00384000 BNE @DL00425 0501 00385000 * IF RY^=0 THEN 0502 00386000 CR RY,@14 0502 00387000 BE @RF00502 0502 00388000 * DO; 0503 00389000 * R6=R7CURICN->ICNSIOQ; 0504 00390000 * 0504 00391000 L R6,ICNSIOQ(,R7CURICN) 0504 00392000 * /***********************************************/ 00393000 * /* */ 00394000 * /* RELSTORE BUFADDR(R6)DISABLE(YES)CLEAR(YES) */ 00395000 * /* */ 00396000 * /***********************************************/ 00397000 * 0505 00398000 * DO; 0505 00399000 * 0505 00400000 */* ATBUILD (ISTATCVT,ISTRPH) */ 00401000 */* END OF ATBUILD */ 00402000 * 0506 00403000 * RFY 0506 00404000 * (GPR02P, 0506 00405000 * GPR03P, 0506 00406000 * GPR04P, 0506 00407000 * GPR15P) RSTD; 0506 00408000 * RFY 0507 00409000 * (GPR01P, 0507 00410000 * GPR13P) RSTD; 0507 00411000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS( 0508 00412000 * RPHWORK); 0508 00413000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 00414000 * RFY 0509 00415000 * GPR13P UNRSTD; 0509 00416000 * GPR04P=R6|'80000000'X; 0510 00417000 LR GPR04P,R6 0510 00418000 O GPR04P,@CF01594 0510 00419000 * DCL 0511 00420000 * 1 FMZA0031 FIXED(31) STATIC LOCAL, 0511 00421000 * 2 * FIXED(8) INIT(192), 0511 00422000 * 2 * PTR(24) INIT(0); 0511 00423000 * GPR03F=FMZA0031; 0512 00424000 L GPR03F,FMZA0031 0512 00425000 * DO; /* LISATCVT 0513 00426000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00427000 * GPR15P=ATCLCPTR;/* SET UP ATCVT POINTER */ 00428000 L GPR15P,ATCLCPTR 0514 00429000 * END; /* LISATCVT */ 00430000 * GPR02P=GPR15P->ATCBPDA; 0516 00431000 L GPR02P,ATCBPDA(,GPR15P) 0516 00432000 * GPR15P=GPR15P->ATCSMRS; 0517 00433000 L GPR15P,ATCSMRS(,GPR15P) 0517 00434000 * DCL 0518 00435000 * FMZL0031 BASED(GPR15P) LABEL VALUERANGE(*); 00436000 * CALL FMZL0031; 0519 00437000 BALR @14,@15 0519 00438000 * RFY 0520 00439000 * GPR13P RSTD; 0520 00440000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P, 0521 00441000 * GPR13P); 0521 00442000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 00443000 * RFY 0522 00444000 * (GPR01P, 0522 00445000 * GPR13P) UNRSTD; 0522 00446000 * RFY 0523 00447000 * (GPR02P, 0523 00448000 * GPR03P, 0523 00449000 * GPR04P, 0523 00450000 * GPR15P) UNRSTD; 0523 00451000 * END; /* *********END OF RELSTORE 0524 00452000 * EXPANSION********* */ 00453000 * END; 0525 00454000 * END; 0526 00455000 * ELSE 0527 00456000 * CALL IOSSETUP; /* PUT WRITE C P ON IOSB */ 00457000 B @RC00420 0527 00458000 @RF00420 BAL @14,IOSSETUP 0527 00459000 * ICNSIOQ=''; /* INDICATE THAT C PS HAVE BEEN 00460000 * PROCESSED */ 00461000 @RC00420 SLR @14,@14 0528 00462000 ST @14,ICNSIOQ(,R7CURICN) 0528 00463000 * ICNLAST=''; 0529 00464000 ST @14,ICNLAST(,R7CURICN) 0529 00465000 * ICNLSTBT=''; 0530 00466000 * 0530 00467000 ST @14,ICNLSTBT(,R7CURICN) 0530 00468000 */* CRIT TEXT PROCESSING REMOVED @ZM32670*/ 00469000 * 0531 00470000 * END; 0531 00471000 * IF R3ICNCB->ICNZV524^=0 THEN/* THERE IS A REMOTE ICNCB */ 00472000 @RT00417 L @14,ICNZV524-1(,R3ICNCB) 0532 00473000 LA @14,0(,@14) 0532 00474000 LTR @14,@14 0532 00475000 BZ @RF00532 0532 00476000 * DO; 0533 00477000 * RFY 0534 00478000 * R9 RSTD; /* SAVE AREA FOR R0 VS40810 0534 00479000 * @Z40GKE1*/ 00480000 * R9=R0; /* SAVE REG 0 VS40810 @Z40GKE1*/ 00481000 LR R9,R0 0535 00482000 */* TPDEQ (,R3ICNCB->ICNZV005) CHAIN(ICNZV003)RETPTR(R7CURICN) */ 00483000 * 0536 00484000 * DO; /* BEGIN TPDEQ CODE GENERATION */ 00485000 * DCL 0537 00486000 * FMZCA047 BIT(32) CONSTANT('80000000'X); 0537 00487000 * DCL 0538 00488000 * FMZCB047 BIT(32) CONSTANT('7FFFFFFF'X); 0538 00489000 * RFY 0539 00490000 * (GPR00P, 0539 00491000 * GPR01P, 0539 00492000 * GPR14P, 0539 00493000 * GPR15P) RSTD; 0539 00494000 * GPR15P=ADDR(R3ICNCB->ICNZV005);/* ADDRESS QUEUE 0540 00495000 * POINTER */ 00496000 LA GPR15P,ICNZV005(,R3ICNCB) 0540 00497000 * GPR14P=GPR15P->PABWEQA|FMZCA047; 0541 00498000 L @11,@CF01594 0541 00499000 L GPR14P,PABWEQA(,GPR15P) 0541 00500000 OR GPR14P,@11 0541 00501000 * IF GPR14P=FMZCA047 THEN 0542 00502000 CLR GPR14P,@11 0542 00503000 BE @RT00542 0542 00504000 * ; 0543 00505000 * ELSE 0544 00506000 * DO; 0544 00507000 *FMZL1047: 0545 00508000 * ; 0545 00509000 FMZL1047 DS 0H 0546 00510000 * DO WHILE(GPR14P->ICNZV003^=FMZCA047); 0546 00511000 B @DE00546 0546 00512000 @DL00546 DS 0H 0547 00513000 * GPR15P=ADDR(GPR14P->ICNZV003); 0547 00514000 LA GPR15P,ICNZV003(,GPR14P) 0547 00515000 * GPR14P=GPR15P->PABWEQA; 0548 00516000 L GPR14P,PABWEQA(,GPR15P) 0548 00517000 * END; 0549 00518000 @DE00546 L @11,@CF01594 0549 00519000 CL @11,ICNZV003(,GPR14P) 0549 00520000 BNE @DL00546 0549 00521000 * GPR00P=FMZCA047; 0550 00522000 LR GPR00P,@11 0550 00523000 * CS(GPR14P,GPR00P,GPR15P->PABWEQA); 0551 00524000 CS GPR14P,@00,PABWEQA(GPR15P) 0551 00525000 * BC(7,FMZL1047); 0552 00526000 BC 7,FMZL1047 0552 00527000 * GPR14P->ICNZV003=0; 0553 00528000 SLR @11,@11 0553 00529000 ST @11,ICNZV003(,GPR14P) 0553 00530000 * END; 0554 00531000 *ISTA0047: 0555 00532000 * ; 0555 00533000 @RT00542 DS 0H 0555 00534000 ISTA0047 DS 0H 0556 00535000 * GPR14P=GPR14P&FMZCB047; 0556 00536000 N GPR14P,@CF01592 0556 00537000 * R7CURICN=GPR14P; 0557 00538000 LR R7CURICN,GPR14P 0557 00539000 * RFY 0558 00540000 * (GPR00P, 0558 00541000 * GPR01P, 0558 00542000 * GPR14P, 0558 00543000 * GPR15P) UNRSTD; 0558 00544000 * END; /* END TPDEQ GENERATION */ 00545000 * R0=R9; /* RESTORE REG 0 VS40810 @Z40GKE1*/ 00546000 LR R0,R9 0560 00547000 * RFY 0561 00548000 * R9 UNRSTD; /* RETURN REG 9 TO THE COMPILER 00549000 * @Z40GKE1 00550000 * VS40810 ABOVE */ 00551000 * GO TO CPSRCHLP; /* DO ABOVE PROCESSING FOR THIS */ 00552000 B CPSRCHLP 0562 00553000 * END; 0563 00554000 * ELSE 0564 00555000 * ; /* ALL DONE */ 00556000 @RF00532 DS 0H 0565 00557000 * RESPECIFY 0565 00558000 * (ISTICNCB, 0565 00559000 * ISTNCB) BASED(R3ICNCB); /* RESTORE ICNCB BASE */ 00560000 * END; 0566 00561000 * IF ICNZF013=ON /* AN ATTN IS OUTSTANDING */ 00562000 * |ICNCPQ^=0 THEN /* WRITE CP EXISTS */ 00563000 * 0567 00564000 @RT00411 DS 0H 0567 00565000 @RF00410 TM ICNZF013(R3ICNCB),B'00001000' 0567 00566000 BO @RT00567 0567 00567000 L @14,ICNCPQ(,R3ICNCB) 0567 00568000 LTR @14,@14 0567 00569000 BZ @RF00567 0567 00570000 @RT00567 DS 0H 0568 00571000 * /***************************************************************/ 00572000 * /* */ 00573000 * /* GET READ BUFFERS AND BUILD READ CHANNEL PROGRAM */ 00574000 * /* */ 00575000 * /***************************************************************/ 00576000 * 0568 00577000 * DO; 0568 00578000 * IF ADDR(ICNZD006)->CCWCC=OFF THEN/* NO READS ON SM NOP */ 00579000 TM CCWCC+312(R3ICNCB),B'01000000' 0569 00580000 BNZ @RF00569 0569 00581000 * DO; 0570 00582000 * IF ICNBUFF=0 THEN 0571 00583000 CLI ICNBUFF(R3ICNCB),0 0571 00584000 BE @RT00571 0571 00585000 * ; /* D4042 DO WE NEED READ BUFFERS 00586000 * @Z40GKE1*/ 00587000 * 0572 00588000 * /*********************************************************/ 00589000 * /* */ 00590000 * /* IF NO,DO NOTHING @Z40GKE1*/ 00591000 * /* */ 00592000 * /*********************************************************/ 00593000 * 0573 00594000 * ELSE /* GET READ BUFFERS */ 00595000 * DO; 0573 00596000 * IF ICNZFF02=ON THEN /* READ BUFFER ALLOC SCHED? 0574 00597000 * @Z30APGW*/ 00598000 TM ICNZFF02(R3ICNCB),B'00100000' 0574 00599000 BO @RT00574 0574 00600000 * GOTO CHEKWRT; /* YES- DONT DO IT AGAIN. 0575 00601000 * @Z30APGW*/ 00602000 * ELSE 0576 00603000 * ; /* @Z30APGW*/ 00604000 * RX=ICNBUFF; /* MOVE LENGTH FOR REQSTORE 0577 00605000 * @Z30APGW*/ 00606000 * 0577 00607000 SLR RX,RX 0577 00608000 IC RX,ICNBUFF(,R3ICNCB) 0577 00609000 * /*****************************************************/ 00610000 * /* */ 00611000 * /* REQSTORE BUFNO(RX)PRIORITY(YES) */ 00612000 * /* */ 00613000 * /*****************************************************/ 00614000 * 0578 00615000 * DO; 0578 00616000 * 0578 00617000 */* ATBUILD (ISTDYPAB,ISTATCVT,ISTRPH) */ 00618000 */* END OF ATBUILD */ 00619000 * 0579 00620000 * RFY 0579 00621000 * (GPR02P, 0579 00622000 * GPR03P, 0579 00623000 * GPR04P, 0579 00624000 * GPR15P) RSTD; 0579 00625000 * RFY 0580 00626000 * (GPR01P) RSTD; 0580 00627000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 00628000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 00629000 * RFY 0582 00630000 * (GPR01P) UNRSTD; 0582 00631000 * DO; /* LISATCVT 0583 00632000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00633000 * GPR15P=ATCLCPTR;/* SET UP ATCVT POINTER */ 00634000 L GPR15P,ATCLCPTR 0584 00635000 * END; /* LISATCVT */ 00636000 * GPR02P=GPR15P->ATCBPDA->BPDCHPCB; 0586 00637000 L @14,ATCBPDA(,GPR15P) 0586 00638000 L GPR02P,BPDCHPCB(,@14) 0586 00639000 * DCL 0587 00640000 * 1 FMZA0051 FIXED(31) STATIC LOCAL, 0587 00641000 * 2 * FIXED(8) INIT(76), 0587 00642000 * 2 * PTR(24) INIT(0); 0587 00643000 * GPR03F=FMZA0051; 0588 00644000 L GPR03F,FMZA0051 0588 00645000 * GPR04F=RX; 0589 00646000 LR GPR04F,RX 0589 00647000 * GPR15P=GPR15P->ATCSMRQ; 0590 00648000 L GPR15P,ATCSMRQ(,GPR15P) 0590 00649000 * DCL 0591 00650000 * FMZL0051 BASED(GPR15P) LABEL VALUERANGE(*); 0591 00651000 * CALL FMZL0051; 0592 00652000 BALR @14,@15 0592 00653000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 00654000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 00655000 * RFY 0594 00656000 * (GPR02P, 0594 00657000 * GPR03P, 0594 00658000 * GPR04P, 0594 00659000 * GPR15P) UNRSTD; 0594 00660000 * END; 0595 00661000 * 0595 00662000 * /*****************************************************/ 00663000 * /* */ 00664000 * /* ******** END OF REQSTORE EXPANSION */ 00665000 * /* */ 00666000 * /*****************************************************/ 00667000 * 0596 00668000 * /* D4042 @Z40GKE1*/ 00669000 * IF R15=REQSTOK1|R15=REQSTOK2 THEN/* BUFFERS GOTTEN */ 00670000 LTR R15,R15 0596 00671000 BZ @RT00596 0596 00672000 C R15,@CF00073 0596 00673000 BNE @RF00596 0596 00674000 @RT00596 DS 0H 0597 00675000 */* IF PREVIOUS BUFFERS DO NOT EXIST CHAIN NEW BUFFERS TO ICNCB */ 00676000 * 0597 00677000 * IF ICNZV00A=0 THEN 0597 00678000 L @14,ICNZV00A-1(,R3ICNCB) 0597 00679000 LA @14,0(,@14) 0597 00680000 LTR @14,@14 0597 00681000 BNZ @RF00597 0597 00682000 * ICNZV001=RPHSRPRM;/* D4042 @Z40GKE1*/ 00683000 L @14,RPHSRPRM(,R1) 0598 00684000 ST @14,ICNZV001(,R3ICNCB) 0598 00685000 */* IF PREVIOUS BUFFERS EXIST CHAIN NEW BUFFERS TO PREV LAST */ 00686000 * 0599 00687000 * ELSE 0599 00688000 * ICNZV00A->ZIBCHAIN=RPHSRPRM;/* D4042 @Z40GKE1*/ 00689000 B @RC00597 0599 00690000 @RF00597 L @14,ICNZV00A-1(,R3ICNCB) 0599 00691000 LA @14,0(,@14) 0599 00692000 L @11,RPHSRPRM(,R1) 0599 00693000 ST @11,ZIBCHAIN(,@14) 0599 00694000 * ELSE /* REQSTORE FAILED */ 00695000 * DO; 0600 00696000 * 0600 00697000 B @RC00596 0600 00698000 @RF00596 DS 0H 0601 00699000 * /*************************************************/ 00700000 * /* */ 00701000 * /* SCHEDULE THE ASYNC READ BUFFER ALLOCATION */ 00702000 * /* ROUTINE */ 00703000 * /* */ 00704000 * /*************************************************/ 00705000 * 0601 00706000 * DO; 0601 00707000 * IF ICNZF013=OFF/* NO ATTN TO BE HANDLED */ 00708000 * |ICNZFF69=ON THEN 0602 00709000 TM ICNZF013(R3ICNCB),B'00001000' 0602 00710000 BZ @RT00602 0602 00711000 TM ICNZFF69(R3ICNCB),B'00000001' 0602 00712000 BO @RT00602 0602 00713000 * ; /* OR DEACTIVATE IN PROGRESS */ 00714000 * ELSE 0604 00715000 * DO; 0604 00716000 * ICNZFF02=ON;/* SET ASYNC READ BUFFER ALLOC 00717000 * REQ */ 00718000 L @14,ICNZFF02-1(,R3ICNCB) 0605 00719000 @GL00020 LR @11,@14 0605 00720000 O @11,@CF03650 0605 00721000 CS @14,@11,ICNZFF02-1(R3ICNCB) 0605 00722000 BNE @GL00020 0605 00723000 */* TPSCHED (ADDR(ICNZPAB4)) DIS UNCOND */ 00724000 */* CMZVER = OS/VS2 */ 00725000 * 0606 00726000 * DO; 0606 00727000 * RFY 0607 00728000 * (GPR00P, 0607 00729000 * GPR01P, 0607 00730000 * GPR05P) RSTD; 0607 00731000 * GEN REFS(GPR01P) SETS(RPHWORK) 0608 00732000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 00733000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 00734000 * GPR00P=0; 0609 00735000 SLR GPR00P,GPR00P 0609 00736000 * GPR05P=ADDR(ICNZPAB4); 0610 00737000 LA GPR05P,ICNZPAB4(,R3ICNCB) 0610 00738000 * CALL ATCLCPTR->ATCAP38->ISTAPC38; 0611 00739000 L @11,ATCLCPTR 0611 00740000 L @15,ATCAP38(,@11) 0611 00741000 BALR @14,@15 0611 00742000 * GEN(NOPR 3) 0612 00743000 * NOSETS NOREFS; 0612 00744000 NOPR 3 00745000 * RFY 0613 00746000 * (GPR00P, 0613 00747000 * GPR01P, 0613 00748000 * GPR05P) UNRSTD; 0613 00749000 * END; /* **** END TPSCHED */ 00750000 * END; 0615 00751000 * END; 0616 00752000 @RT00602 DS 0H 0617 00753000 *CHEKWRT: /* @Z30APGW*/ 00754000 * IF ICNCPQ^=0 THEN/* WRITES EXISTS */ 00755000 CHEKWRT L @14,ICNCPQ(,R3ICNCB) 0617 00756000 LTR @14,@14 0617 00757000 BNZ @RT00617 0617 00758000 * GO TO READL1; 0618 00759000 * ELSE 0619 00760000 * DO; 0619 00761000 * R15=RCNOIO; /* INDICATE NO IO TO START */ 00762000 LA R15,4 0620 00763000 * GO TO READL2;/* EXIT FROM SEGMENT */ 00764000 B READL2 0621 00765000 * END; 0622 00766000 * END; 0623 00767000 * END; 0624 00768000 * 0624 00769000 @RC00596 DS 0H 0625 00770000 * /*********************************************************/ 00771000 * /* */ 00772000 * /* BUILD A READ CHANNEL PROGRAM IN THE BUFFERS */ 00773000 * /* */ 00774000 * /*********************************************************/ 00775000 * 0625 00776000 * DO; 0625 00777000 @RT00571 DS 0H 0626 00778000 * R6BUFPTR=ICNZV001; /* GET ADDR FIRST READ BUFFER */ 00779000 L @14,ICNZV001(,R3ICNCB) 0626 00780000 LR R6BUFPTR,@14 0626 00781000 * R15=ICNZV001+ZIBCPOFS; 0627 00782000 AL @14,@CF00073 0627 00783000 LR R15,@14 0627 00784000 * ICNZV007=R15; /* SET ADDR FIRST READ CCW */ 00785000 ST R15,ICNZV007(,R3ICNCB) 0628 00786000 * GEN REFS(R15) SETS(R15)(LRA R15,0(R15)); 0629 00787000 LRA R15,0(R15) 00788000 * ADDR(ICNZD004)->CCWADDR=R15;/* TIC FIRST READ FROM R.S. 00789000 * TIC */ 00790000 STCM R15,7,CCWADDR+328(R3ICNCB) 0630 00791000 * ADDR(ICNZD006)->CCWCC=ON;/* SET READY ON SM NOP FLAG */ 00792000 OI CCWCC+312(R3ICNCB),B'01000000' 0631 00793000 *BUFLOOP: 0632 00794000 * ZIBCPRDC=READ; /* SET READ OP CODE */ 00795000 BUFLOOP MVI ZIBCPRDC(R6),X'02' 0632 00796000 * ZIBCPRDF=ZIBCCSLI; /* SET READ CCWFLAGS TO CC,SLI */ 00797000 MVI ZIBCPRDF(R6),X'60' 0633 00798000 * R15=ADDR(ZIBTEXT); 0634 00799000 LA R15,ZIBTEXT(,R6) 0634 00800000 * GEN REFS(R15) SETS(R15)(LRA R15,0(R15)); 0635 00801000 LRA R15,0(R15) 00802000 * ZIBCPTXA=R15; /* SET READ TEST POINTER */ 00803000 STCM R15,7,ZIBCPTXA(R6) 0636 00804000 * ZIBCPRDK=ICNZCON3; /* SET READ TEST COUNT */ 00805000 LH @14,ICNZCON3(,R3ICNCB) 0637 00806000 N @14,@CF03654 0637 00807000 STH @14,ZIBCPRDK(,R6) 0637 00808000 * IF ZIBCHAIN=0 THEN 0638 00809000 L @14,ZIBCHAIN(,R6) 0638 00810000 LTR @14,@14 0638 00811000 BNZ @RF00638 0638 00812000 * DO; /* LAST BUFFER */ 00813000 * NOPCCW=ZOBNOP; /* INITIALIZE NOP CCW @Z30APGW*/ 00814000 MVC NOPCCW(8,R6),@CB01268 0640 00815000 * ICNZV00A=R6BUFPTR;/* D4042 SET LAST BUFF PTR 0641 00816000 * @Z40GKE1*/ 00817000 STCM R6BUFPTR,7,ICNZV00A(R3ICNCB) 0641 00818000 * ICNBUFF=0; /* D4042 SET BUFF NEED TO 0 0642 00819000 * @Z40GKE1*/ 00820000 MVI ICNBUFF(R3ICNCB),X'00' 0642 00821000 * END; /* D4042 END LAST BUFFER @Z40GKE1*/ 00822000 * ELSE 0644 00823000 * DO; 0644 00824000 B @RC00638 0644 00825000 @RF00638 DS 0H 0645 00826000 * R15=ZIBCHAIN+ZIBCPOFS; 0645 00827000 LA R15,4 0645 00828000 AL R15,ZIBCHAIN(,R6) 0645 00829000 * GEN REFS(R15) SETS(R15)(LRA R15,0(R15)); 0646 00830000 LRA R15,0(R15) 00831000 * ZIBCPTCA=R15; /* TIC READ TO NEXT BUFFER */ 00832000 STCM R15,7,ZIBCPTCA(R6) 0647 00833000 * ZIBCPTCC=TIC; 0648 00834000 MVI ZIBCPTCC(R6),X'08' 0648 00835000 * R6BUFPTR=ZIBCHAIN;/* GET NEXT BUFFER */ 00836000 L R6BUFPTR,ZIBCHAIN(,R6) 0649 00837000 * GO TO BUFLOOP; 0650 00838000 B BUFLOOP 0650 00839000 * END; 0651 00840000 * END; 0652 00841000 @RC00638 DS 0H 0653 00842000 * END; 0653 00843000 * IF ICNCPQ^=0 THEN 0654 00844000 @RF00569 L @14,ICNCPQ(,R3ICNCB) 0654 00845000 LTR @14,@14 0654 00846000 BNZ @RT00654 0654 00847000 * ; /* WRITES EXISTS */ 00848000 * ELSE 0656 00849000 * DO; 0656 00850000 * ADDR(ICNZD006)->CCWCC=OFF;/* CLEAR READ ON SMNOP FLAG */ 00851000 NI CCWCC+312(R3ICNCB),B'10111111' 0657 00852000 * ICNCPQ=ICNZV007; /* SET FIRST READ AS FIRST CCW OF 00853000 * CHANNEL PGM @Z30APGW*/ 00854000 L @14,ICNZV007(,R3ICNCB) 0658 00855000 ST @14,ICNCPQ(,R3ICNCB) 0658 00856000 * IOSVST=ADDR(ICNZD003); /* VIRT ADDR OF READ START */ 00857000 LA @14,ICNZD003(,R3ICNCB) 0659 00858000 ST @14,IOSVST+520(,R3ICNCB) 0659 00859000 * R15=IOSVST; 0660 00860000 LR R15,@14 0660 00861000 * GEN REFS(R15) SETS(R15)(LRA R15,0(R15)); 0661 00862000 LRA R15,0(R15) 00863000 * IOSRST=R15; /* REAL ADDR OF READ START */ 00864000 ST R15,IOSRST+520(,R3ICNCB) 0662 00865000 * END; 0663 00866000 * ICNZF013=OFF; /* INDICATE ATTN HANDLED */ 00867000 @RT00654 L @14,ICNZF013-1(,R3ICNCB) 0664 00868000 @GL00021 LR @11,@14 0664 00869000 N @11,@CF03656 0664 00870000 CS @14,@11,ICNZF013-1(R3ICNCB) 0664 00871000 BNE @GL00021 0664 00872000 *READL1: 0665 00873000 * 0665 00874000 * /*************************************************************/ 00875000 * /* */ 00876000 * /* ISSUE STARTIO IF CONDITIONS ARE MET */ 00877000 * /* */ 00878000 * /*************************************************************/ 00879000 * 0665 00880000 * DO; 0665 00881000 READL1 DS 0H 0666 00882000 * IF CVTGTFAV=ON /* GTF ACTIVE */ 00883000 * |ICNCLOSE=ON THEN /* OR NCP IS IN CLOSEDOWN */ 00884000 L @14,CVTPTR 0666 00885000 TM CVTGTFAV(@14),B'10000000' 0666 00886000 BO @RT00666 0666 00887000 TM ICNCLOSE(R3ICNCB),B'00000010' 0666 00888000 BNO @RF00666 0666 00889000 @RT00666 DS 0H 0667 00890000 * IOSDIE=0; 0667 00891000 SLR @14,@14 0667 00892000 ST @14,IOSDIE+520(,R3ICNCB) 0667 00893000 * IF ICNZF00D=ON THEN 0668 00894000 @RF00666 TM ICNZF00D(R3ICNCB),B'01000000' 0668 00895000 BO @RT00668 0668 00896000 * ; /* DIE OR ATTN EXIT ENTRY */ 00897000 * ELSE 0670 00898000 * DO; 0670 00899000 * RX=R13; /* SAVE FIXED SAVEAREA ADDRESS 0671 00900000 * @ZM31967*/ 00901000 LR RX,R13 0671 00902000 * R13=ZSAFSV19; /* GET ADDR OF 19 WORD FIXED 0672 00903000 * SAVEAREA @ZM31967*/ 00904000 L R13,ZSAFSV19(,R13) 0672 00905000 * R13->ZSAFLOCK=OFF; /* RESET LOCK OWNERSHIP BIT- SIO 00906000 * WILL FREE THE LOCK @ZM31967*/ 00907000 NI ZSAFLOCK(R13),B'01111111' 0673 00908000 * GEN(MODESET EXTKEY=ZERO,SAVEKEY=(2));/* KEY TO ZERO 0674 00909000 * @ZM31967*/ 00910000 MODESET EXTKEY=ZERO,SAVEKEY=(2) 00911000 * GEN SETS(ZSAF19IO) REFS(R0,R15,R13) 0675 00912000 * (STM R0,R15,ZSAF19IO(R13));/* SAVE REGS ACROSS SIO 00913000 * @ZM31967*/ 00914000 STM R0,R15,ZSAF19IO(R13) 00915000 * R1=ADDR(ICNSRB); /* GET ADDR OF SRB FOR IOS */ 00916000 LA R1,ICNSRB(,R3ICNCB) 0676 00917000 * ICNZF00D=ON; /* SET CU BUSY */ 00918000 L @14,ICNZF00D-1(,R3ICNCB) 0677 00919000 @GL00023 LR @11,@14 0677 00920000 O @11,@CF03660 0677 00921000 CS @14,@11,ICNZF00D-1(R3ICNCB) 0677 00922000 BNE @GL00023 0677 00923000 * GEN REFS(CVTIXAVL,IOCSTIO,CVTMAP,IOCOM)(STARTIO SRB=(R1)) 00924000 * ; 0678 00925000 STARTIO SRB=(R1) 00926000 * GEN REFS(ZSAF19IO,R0,R15,R13)(LM R0,R15,ZSAF19IO(R13)); 00927000 LM R0,R15,ZSAF19IO(R13) 00928000 * /* @ZM31967*/ 00929000 * GEN(MODESET KEYADDR=(2));/* RESTORE KEY @ZM31967*/ 00930000 MODESET KEYADDR=(2) 00931000 * R13=RX; /* RESTORE FIXED SAVEAREA PTR 0681 00932000 * @ZM31967*/ 00933000 LR R13,RX 0681 00934000 * DO; /* LISATCVT 0682 00935000 * CVTBASE(PAGEABLE,(R2)) */ 00936000 * R2=ATCLCPTR; /* SET UP ATCVT POINTER */ 00937000 L R2,ATCLCPTR 0683 00938000 * END; /* LISATCVT @ZM31967*/ 00939000 * GEN REFS(R13); 0685 00940000 STOSM 36(R13),3 REENABLE SYSTEM 00941000 * END; 0686 00942000 * R15=RCGOIO; /* INDICATE IO STARTED */ 00943000 @RT00668 SLR R15,R15 0687 00944000 * END; 0688 00945000 *READL2: 0689 00946000 * END; 0689 00947000 * ELSE /* NO IO IS TO BE STARTED */ 00948000 * R15=RCNOIO; 0690 00949000 * 0690 00950000 B @RC00567 0690 00951000 @RF00567 LA R15,4 0690 00952000 */* TPZRETN */ 00953000 * 0691 00954000 * DO; 0691 00955000 @RC00567 DS 0H 0692 00956000 * RFY 0692 00957000 * (GPR07P, 0692 00958000 * GPR14P, 0692 00959000 * GPR15P) RSTD; 0692 00960000 * GPR13P=ZSAZSVBC; 0693 00961000 L GPR13P,ZSAZSVBC(,GPR13P) 0693 00962000 * IF GPR13P=0 THEN 0694 00963000 LTR GPR13P,GPR13P 0694 00964000 BZ @RT00694 0694 00965000 * ; /* TPDVTS ISTZFARR */ 00966000 * ELSE 0696 00967000 * GPR14P=ZSAZSVRR; 0696 00968000 L GPR14P,ZSAZSVRR(,GPR13P) 0696 00969000 * GEN REFS(ZSAZSVVR)(LM 7,12,ZSAZSVVR+0(13)); 0697 00970000 @RT00694 DS 0H 0697 00971000 LM 7,12,ZSAZSVVR+0(13) 00972000 * GEN REFS(GPR14P) EXIT NOSEQFLOW(BR GPR14P); 0698 00973000 BR GPR14P 00974000 * RFY 0699 00975000 * (GPR07P, 0699 00976000 * GPR14P, 0699 00977000 * GPR15P) UNRSTD; 0699 00978000 * END; 0700 00979000 * 0700 00980000 */* END TPZRETN */ 00981000 * 0701 00982000 * /*****************************************************************/ 00983000 * /* */ 00984000 * /* THIS INTERNAL SUBROUTINE PLACES A CHANNEL PROGRAM ON THE IOSB */ 00985000 * /* */ 00986000 * /*****************************************************************/ 00987000 * 0701 00988000 *IOSSETUP: 0701 00989000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0701 00990000 IOSSETUP DS 0H 0702 00991000 * RFY 0702 00992000 * R14 RESTRICTED; 0702 00993000 * ICNZSW1R=R14; /* SAVE RETURN ADDR */ 00994000 ST R14,ICNZSW1R(,R3ICNCB) 0703 00995000 * RFY 0704 00996000 * R14 UNRESTRICTED; 0704 00997000 * IF ICNCPQ^=0 THEN /* THERE IS A CHANNEL PGM */ 00998000 L @14,ICNCPQ(,R3ICNCB) 0705 00999000 LTR @14,@14 0705 01000000 BZ @RF00705 0705 01001000 * DO; 0706 01002000 * ICNLSTIF->ZOBCHAIN=R6; /* CHAIN FIRST SIOQ BUFFER FROM 01003000 * LAST WRITE BUFFER @ZA05269*/ 01004000 L @14,ICNLSTIF(,R3ICNCB) 0707 01005000 ST R6,ZOBCHAIN(,@14) 0707 01006000 * ICNLSTIT->ZOBCPWTC=WRITE; /* SET 1ST CCW IN LAST IOSB PIU 01007000 * @Z30APGW*/ 01008000 L @14,ICNLSTIT(,R3ICNCB) 0708 01009000 MVI ZOBCPWTC(@14),X'01' 0708 01010000 * R15=ICNLSTIF->ZOBCHAIN+ZOBCPOFS;/* GET REAL ADDRESS @Z30APGW*/ 01011000 L @11,ICNLSTIF(,R3ICNCB) 0709 01012000 L @11,ZOBCHAIN(,@11) 0709 01013000 AL @11,@CF00073 0709 01014000 LR R15,@11 0709 01015000 * GEN SETS(R15) REFS(R15)(LRA R15,0(R15)); 0710 01016000 LRA R15,0(R15) 01017000 * ICNLSTIF->ZOBCPTCA=R15; /* TIC LAST IOSB WRITE TO FIRST 01018000 * SIOQ WRITE @Z30APGW*/ 01019000 L @14,ICNLSTIF(,R3ICNCB) 0711 01020000 STCM R15,7,ZOBCPTCA(@14) 0711 01021000 * END; 0712 01022000 * ELSE /* NO WRITE C.P. EXISTS */ 01023000 * DO; 0713 01024000 B @RC00705 0713 01025000 @RF00705 DS 0H 0714 01026000 * R15=R6+ZOBCPOFS; /* TIC WRITE START TO FIRST SIOQ 01027000 * WRITE @ZA05269*/ 01028000 LA R15,4 0714 01029000 ALR R15,R6 0714 01030000 * GEN SETS(R15) REFS(R15)(LRA R15,0(R15)); 0715 01031000 LRA R15,0(R15) 01032000 * ADDR(ICNZD002)->CCWADDR=R15; 0716 01033000 STCM R15,7,CCWADDR+296(R3ICNCB) 0716 01034000 * ICNCPQ=R6+ZOBCPOFS; /* SET FIRST WRITE ON IOSB TO 0717 01035000 * FIRST SIOQ WRITE BUFFER 0717 01036000 * @ZA05269*/ 01037000 LA @14,4 0717 01038000 ALR @14,R6 0717 01039000 ST @14,ICNCPQ(,R3ICNCB) 0717 01040000 * IOSVST=ADDR(ICNZD001); /* VIRT ADDR OF WRITE START */ 01041000 LA @14,ICNZD001(,R3ICNCB) 0718 01042000 ST @14,IOSVST+520(,R3ICNCB) 0718 01043000 * R15=IOSVST; /* GET REAL ADDRESS */ 01044000 LR R15,@14 0719 01045000 * GEN REFS(R15) SETS(R15)(LRA R15,0(R15)); 0720 01046000 LRA R15,0(R15) 01047000 * IOSRST=R15; 0721 01048000 ST R15,IOSRST+520(,R3ICNCB) 0721 01049000 * IF ICNZF007=ON THEN /* DONT CHANGE WRITE START */ 01050000 TM ICNZF007(R3ICNCB),B'00000100' 0722 01051000 BNO @RF00722 0722 01052000 * ICNZF007=OFF; /* RESET INHIBIT FLAG */ 01053000 L @14,ICNZF007(,R3ICNCB) 0723 01054000 @GL00024 LR @11,@14 0723 01055000 N @11,@CF03663 0723 01056000 CS @14,@11,ICNZF007(R3ICNCB) 0723 01057000 BNE @GL00024 0723 01058000 * ELSE 0724 01059000 * ICNWRCOD=ICNWRCOD&&'60'X; /* FLIP-FLOP WRITE START @Z30APGW*/ 01060000 B @RC00722 0724 01061000 @RF00722 XI ICNWRCOD(R3ICNCB),X'60' 0724 01062000 * END; 0725 01063000 @RC00722 DS 0H 0726 01064000 * ICNLSTIT=R7CURICN->ICNLSTBT; /* UPDATE LAST PIU POINTER 0726 01065000 * @Z30APGW*/ 01066000 @RC00705 L @14,ICNLSTBT(,R7CURICN) 0726 01067000 ST @14,ICNLSTIT(,R3ICNCB) 0726 01068000 * ICNLSTIF=R7CURICN->ICNLAST; /* UPDATE LAST BUFFER ADDR 0727 01069000 * @Z30APGW*/ 01070000 L @14,ICNLAST(,R7CURICN) 0727 01071000 ST @14,ICNLSTIF(,R3ICNCB) 0727 01072000 * R15=ADDR(ICNZD006); 0728 01073000 LA R15,ICNZD006(,R3ICNCB) 0728 01074000 * GEN SETS(R15) REFS(R15)(LRA R15,0(R15)); 0729 01075000 LRA R15,0(R15) 01076000 * ICNLSTIF->ZOBCPTC2=R15; /* 3RD TIC IN WBK TO SM NOP 0730 01077000 * @Z30APGW*/ 01078000 L @14,ICNLSTIF(,R3ICNCB) 0730 01079000 STCM R15,7,ZOBCPTC2(@14) 0730 01080000 * IF ICNZF013=ON THEN /* ATTENTION READ? SIMULATE SM 0731 01081000 * @Z30APGW*/ 01082000 TM ICNZF013(R3ICNCB),B'00001000' 0731 01083000 BNO @RF00731 0731 01084000 * ICNLSTIF->ZOBCPTCA=R15; /* 2ND TIC IN WBK TO SM NOP ASLO 01085000 * @Z30APGW*/ 01086000 STCM R15,7,ZOBCPTCA(@14) 0732 01087000 * ELSE /* @Z30APGW*/ 01088000 * DO; /* @Z30APGW*/ 01089000 B @RC00731 0733 01090000 @RF00731 DS 0H 0734 01091000 * R15=ADDR(ICNZD005); /* @Z30APGW*/ 01092000 LA R15,ICNZD005(,R3ICNCB) 0734 01093000 * GEN REFS(R15) SETS(R15)(LRA R15,0(R15));/* @Z30APGW*/ 01094000 LRA R15,0(R15) 01095000 * ICNLSTIF->ZOBCPTCA=R15; /* TIC WBK TO WRITE NOP @Z30APGW*/ 01096000 L @14,ICNLSTIF(,R3ICNCB) 0736 01097000 STCM R15,7,ZOBCPTCA(@14) 0736 01098000 * END; /* @Z30APGW*/ 01099000 * ICNLSTIF->ZOBCPTCC=TIC; /* SET TIC CMD IN 2ND CCW 0738 01100000 * @Z30APGW*/ 01101000 @RC00731 L @14,ICNLSTIF(,R3ICNCB) 0738 01102000 MVI ZOBCPTCC(@14),X'08' 0738 01103000 * ICNLSTIF->ZOBCPTC1=TIC; /* SET TIC CMD IN 3RD CCW 0739 01104000 * @Z30APGW*/ 01105000 MVI ZOBCPTC1(@14),X'08' 0739 01106000 */* CRIT TEXT PROCESSING REMOVED @ZM32670*/ 01107000 * 0740 01108000 * RFY 0740 01109000 * R14 RESTRICTED; 0740 01110000 * R14=ICNZSW1R; /* SAVE RETURN ADDR */ 01111000 L R14,ICNZSW1R(,R3ICNCB) 0741 01112000 * RFY 0742 01113000 * R14 UNRESTRICTED; 0742 01114000 * END IOSSETUP; 0743 01115000 * 0743 01116000 @EL00002 DS 0H 0743 01117000 @EF00002 DS 0H 0743 01118000 @ER00002 BR @14 0743 01119000 */* TPEPILOG */ 01120000 * 0744 01121000 * GEN(PRINT OFF); 0744 01122000 PRINT OFF 01123000 * DCL 0745 01124000 * ISTAPC38 ENTRY BASED(ATCAP38) VALRG(*);/* TPSCHED ROUTINE */ 01125000 * GEN(PRINT ON); 0746 01126000 * 0746 01127000 PRINT ON 01128000 */* END OF TPEPILOG */ 01129000 * 0747 01130000 * END ISTZEMAB 0747 01131000 * 0747 01132000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01133000 */*%INCLUDE SYSLIB (IECDIOSB) */ 01134000 */*%INCLUDE SYSLIB (IECDIOCM) */ 01135000 */*%INCLUDE SYSLIB (CVT ) */ 01136000 */*%INCLUDE SYSLIB (IHASRB ) */ 01137000 */*%INCLUDE SYSUT5 (WRTPROC ) */ 01138000 */*%INCLUDE SYSUT5 (IOINIT6 ) */ 01139000 */*%INCLUDE SYSUT5 (READPROC) */ 01140000 */*%INCLUDE SYSUT5 (SCHEDBUF) */ 01141000 */*%INCLUDE SYSUT5 (BUFFORM ) */ 01142000 */*%INCLUDE SYSUT5 (SCHEDIO ) */ 01143000 */*%INCLUDE SYSUT5 (IOSSETUP) */ 01144000 * 0747 01145000 * ; 0747 01146000 @EL00001 DS 0H 0747 01147000 @EF00001 DS 0H 0747 01148000 @ER00001 BR @14 0747 01149000 @DATA DS 0H 01150000 @DATD DSECT 01151000 DS 0F 01152000 ISTZEMAB CSECT 01153000 DS 0F 01154000 @CF00073 DC F'4' 01155000 @CF01592 DC XL4'7FFFFFFF' 01156000 @CF01594 DC XL4'80000000' 01157000 @CF03654 DC XL4'0000FFFF' 01158000 @CF03650 DC BL4'00000000001000000000000000000000' 01159000 @CF03656 DC BL4'11111111111101111111111111111111' 01160000 @CF03660 DC BL4'00000000010000000000000000000000' 01161000 @CF03663 DC BL4'11111011111111111111111111111111' 01162000 @DATD DSECT 01163000 DS 0D 01164000 LCPBPTR DS A 01165000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01166000 @ENDDATD EQU * 01167000 ISTZEMAB CSECT 01168000 DS 0F 01169000 @SIZDATD DC AL1(0) 01170000 DC AL3(@ENDDATD-@DATD) 01171000 DS 0D 01172000 FMZA0015 DS FL4 01173000 ORG FMZA0015 01174000 @NM00064 DC AL1(192) 01175000 @NM00065 DC AL3(0) 01176000 ORG FMZA0015+4 01177000 FMZA0031 DS FL4 01178000 ORG FMZA0031 01179000 @NM00066 DC AL1(192) 01180000 @NM00067 DC AL3(0) 01181000 ORG FMZA0031+4 01182000 FMZA0051 DS FL4 01183000 ORG FMZA0051 01184000 @NM00068 DC AL1(76) 01185000 @NM00069 DC AL3(0) 01186000 ORG FMZA0051+4 01187000 @CB01268 DC X'0300000020000001' 01188000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01189000 @01 EQU 01 01190000 @02 EQU 02 01191000 @03 EQU 03 01192000 @04 EQU 04 01193000 @05 EQU 05 01194000 @06 EQU 06 01195000 @07 EQU 07 01196000 @08 EQU 08 01197000 @09 EQU 09 01198000 @10 EQU 10 01199000 @11 EQU 11 01200000 @12 EQU 12 01201000 @13 EQU 13 01202000 @14 EQU 14 01203000 @15 EQU 15 01204000 RPHPTR EQU @01 01205000 R0 EQU @00 01206000 R1 EQU @01 01207000 R2 EQU @02 01208000 R3 EQU @03 01209000 R4 EQU @04 01210000 R5 EQU @05 01211000 R6 EQU @06 01212000 R9 EQU @09 01213000 R12 EQU @12 01214000 R13 EQU @13 01215000 R14 EQU @14 01216000 R15 EQU @15 01217000 R7CURICN EQU @07 01218000 R3ICNCB EQU @03 01219000 RX EQU @08 01220000 RY EQU @10 01221000 R6BUFPTR EQU @06 01222000 GPR01P EQU @01 01223000 GPR12P EQU @12 01224000 GPR13P EQU @13 01225000 GPR14P EQU @14 01226000 GPR00P EQU @00 01227000 GPR02P EQU @02 01228000 GPR03F EQU @03 01229000 GPR03P EQU @03 01230000 GPR04F EQU @04 01231000 GPR04P EQU @04 01232000 GPR05P EQU @05 01233000 GPR07P EQU @07 01234000 GPR15P EQU @15 01235000 GPR00F EQU @00 01236000 GPR01F EQU @01 01237000 GPR02F EQU @02 01238000 GPR05F EQU @05 01239000 GPR06F EQU @06 01240000 GPR06P EQU @06 01241000 GPR07F EQU @07 01242000 GPR08F EQU @08 01243000 GPR08P EQU @08 01244000 GPR09F EQU @09 01245000 GPR09P EQU @09 01246000 GPR10F EQU @10 01247000 GPR10P EQU @10 01248000 GPR11F EQU @11 01249000 GPR11P EQU @11 01250000 GPR12F EQU @12 01251000 GPR13F EQU @13 01252000 GPR14F EQU @14 01253000 GPR15F EQU @15 01254000 R10 EQU @10 01255000 R11 EQU @11 01256000 R7 EQU @07 01257000 R8 EQU @08 01258000 CVTPTR EQU 16 01259000 ATCLCPTR EQU 1032 01260000 IOSB EQU 0 01261000 IOSFLA EQU IOSB 01262000 IOSACHN EQU IOSFLA 01263000 IOSFLB EQU IOSB+1 01264000 IOSFLC EQU IOSB+2 01265000 IOSDVALT EQU IOSFLC 01266000 IOSPKEY EQU IOSB+12 01267000 IOSOPT EQU IOSB+14 01268000 IOSOPT2 EQU IOSB+15 01269000 @NM00002 EQU IOSB+20 01270000 IOSCSW EQU @NM00002+1 01271000 IOSTATUS EQU IOSCSW+3 01272000 IOSIPIB EQU IOSB+44 01273000 IOSDIE EQU IOSB+68 01274000 IOSRST EQU IOSB+72 01275000 IOSVST EQU IOSB+76 01276000 IOSPATH EQU IOSB+86 01277000 IOSCHN EQU IOSPATH 01278000 IOSCKEY EQU IOSB+89 01279000 IOSEEKA EQU IOSB+100 01280000 IOSCCHH EQU IOSEEKA+3 01281000 IOSSKHH EQU IOSCCHH+2 01282000 IOSBPTR EQU 0 01283000 IOCOM EQU 0 01284000 IOCSTIO EQU IOCOM+28 01285000 CVTMAP EQU 0 01286000 CVTDAR EQU CVTMAP+72 01287000 CVTFLGS1 EQU CVTDAR 01288000 CVTDCB EQU CVTMAP+116 01289000 CVTIXAVL EQU CVTMAP+124 01290000 CVTIERLC EQU CVTMAP+144 01291000 CVTOPTA EQU CVTMAP+182 01292000 CVTOPTB EQU CVTMAP+183 01293000 CVTGTF EQU CVTMAP+236 01294000 CVTGTFST EQU CVTGTF 01295000 CVTGTFS EQU CVTGTFST 01296000 CVTGTFAV EQU CVTGTFS 01297000 CVTSTATE EQU CVTGTFST 01298000 CVTTMODE EQU CVTGTFST 01299000 CVTFORM EQU CVTGTFST 01300000 CVTAQAVT EQU CVTMAP+240 01301000 CVTTCMFG EQU CVTAQAVT 01302000 CVTVOLM2 EQU CVTMAP+244 01303000 CVTTATA EQU CVTVOLM2 01304000 CVTTSKS EQU CVTTATA 01305000 CVTVOLF2 EQU CVTTSKS 01306000 CVTTAT EQU CVTTATA+1 01307000 CVTATER EQU CVTMAP+248 01308000 CVTEXT1 EQU CVTMAP+252 01309000 CVTPURG EQU CVTMAP+260 01310000 CVTQMSG EQU CVTMAP+268 01311000 CVTDMSR EQU CVTMAP+272 01312000 CVTERPV EQU CVTMAP+316 01313000 CVTINTLA EQU CVTMAP+320 01314000 CVTAPF EQU CVTMAP+324 01315000 CVTEXT2 EQU CVTMAP+328 01316000 CVTHJES EQU CVTMAP+332 01317000 CVTPGSIA EQU CVTMAP+348 01318000 CVTA1F1 EQU CVTMAP+356 01319000 CVTSYSK EQU CVTMAP+357 01320000 CVTVOLM1 EQU CVTMAP+380 01321000 CVTVOLF1 EQU CVTVOLM1 01322000 CVTATMCT EQU CVTMAP+388 01323000 CVTXTNT1 EQU 0 01324000 CVTXTNT2 EQU 0 01325000 CVTDSSV EQU CVTXTNT2 01326000 CVTFLGBT EQU CVTXTNT2+5 01327000 CVTQID EQU CVTXTNT2+24 01328000 CVTSHS EQU CVTXTNT2+40 01329000 CVTRV400 EQU CVTXTNT2+52 01330000 CVTRV409 EQU CVTXTNT2+53 01331000 CVTATCVT EQU CVTXTNT2+64 01332000 CVTRV429 EQU CVTXTNT2+84 01333000 CVTRV438 EQU CVTXTNT2+85 01334000 CVTRV457 EQU CVTXTNT2+112 01335000 CVTRV466 EQU CVTXTNT2+113 01336000 CVTFIX EQU 0 01337000 CVTRELNO EQU CVTFIX+252 01338000 SRBSECT EQU 0 01339000 SRBFLC EQU SRBSECT+12 01340000 SRBPTR EQU 0 01341000 ISTBDU EQU 0 01342000 BDUCOMND EQU ISTBDU 01343000 BDUMODIF EQU ISTBDU+1 01344000 BDUMOD1 EQU BDUMODIF 01345000 BDUDAF EQU ISTBDU+2 01346000 BDUFUNC EQU BDUDAF 01347000 BDUCHECK EQU BDUFUNC 01348000 BDUFLAGS EQU BDUDAF+1 01349000 BDUPTR EQU 0 01350000 ISTLH EQU 0 01351000 ISTTH EQU 0 01352000 THFLAG1 EQU ISTTH 01353000 THFLGA EQU THFLAG1 01354000 THMPF EQU THFLGA 01355000 THFLGB EQU THFLAG1+1 01356000 THDAF EQU ISTTH+2 01357000 THOAF EQU ISTTH+4 01358000 ISTTH2 EQU 0 01359000 TH2FLAG1 EQU ISTTH2 01360000 TH2MPF EQU TH2FLAG1 01361000 TH2DAF EQU ISTTH2+2 01362000 ISTFDB EQU 0 01363000 ISTBTU EQU 0 01364000 BTUBTH EQU ISTBTU 01365000 BTUFID EQU BTUBTH 01366000 BTUREQ EQU BTUBTH+6 01367000 BTURQFLG EQU BTUREQ 01368000 BTURH EQU BTUBTH+10 01369000 BTUBDU EQU ISTBTU+14 01370000 BTUSYSTR EQU ISTBTU+18 01371000 BTUPTR EQU 0 01372000 ISTZOBUF EQU 0 01373000 ZOBCHAIN EQU ISTZOBUF 01374000 ZOBFSM EQU ISTZOBUF+4 01375000 ISTZSAVE EQU 0 01376000 ZSAZSVBC EQU ISTZSAVE 01377000 ZSAZSVMS EQU ZSAZSVBC 01378000 ZSAZSVFC EQU ISTZSAVE+4 01379000 ZSAZSVRR EQU ISTZSAVE+8 01380000 ZSAZSVVR EQU ISTZSAVE+12 01381000 ISTCCW EQU 0 01382000 CCWVADDR EQU ISTCCW 01383000 CCWADDR EQU CCWVADDR+1 01384000 CCWFLAGS EQU ISTCCW+4 01385000 CCWCC EQU CCWFLAGS 01386000 CCWSPARE EQU ISTCCW+5 01387000 ISTDEVCH EQU 0 01388000 DEVSHCH EQU ISTDEVCH 01389000 DEVCHAR EQU DEVSHCH 01390000 DEVTCODE EQU ISTDEVCH+1 01391000 DEVFLAGS EQU ISTDEVCH+3 01392000 DEVFCCTL EQU DEVFLAGS 01393000 DEVCHAR3 EQU DEVFLAGS 01394000 ISTNCB EQU 0 01395000 NCBFLAGS EQU ISTNCB+24 01396000 NCBFRAS EQU NCBFLAGS+1 01397000 NCBFTRIO EQU NCBFRAS 01398000 NCBFLAG1 EQU NCBFLAGS+2 01399000 NCBCONF EQU NCBFLAG1 01400000 NCBSWDAF EQU ISTNCB+44 01401000 ISTRPH EQU 0 01402000 RPHCNTL EQU ISTRPH 01403000 RPHFLAGS EQU RPHCNTL+2 01404000 RPHAPTYP EQU RPHFLAGS 01405000 RPHFSTLC EQU RPHFLAGS 01406000 RPHFLGB EQU RPHCNTL+3 01407000 RPHRPHA EQU ISTRPH+4 01408000 RPHTSKID EQU ISTRPH+8 01409000 RPHRESMA EQU ISTRPH+16 01410000 RPHWPFLG EQU RPHRESMA 01411000 RPHWEA EQU ISTRPH+24 01412000 RPHCSPA EQU RPHWEA 01413000 RPHSRPRM EQU ISTRPH+28 01414000 RPHPABQA EQU ISTRPH+36 01415000 RPHWORK EQU ISTRPH+40 01416000 RPHSAVE1 EQU RPHWORK 01417000 RPHSBITS EQU RPHSAVE1+1 01418000 ISTPAB EQU 0 01419000 PABWQCHN EQU ISTPAB 01420000 PABWEQA EQU PABWQCHN 01421000 PABCHAIN EQU PABWQCHN+4 01422000 PABRPHFG EQU ISTPAB+12 01423000 PABFLAGS EQU PABRPHFG 01424000 PABERLCK EQU PABFLAGS 01425000 PABERRLK EQU PABERLCK 01426000 ISTLOK EQU 0 01427000 LOKCHN EQU ISTLOK+1 01428000 LOKCHNG EQU LOKCHN 01429000 @NM00025 EQU LOKCHNG+2 01430000 ISTICNCB EQU 0 01431000 @NM00027 EQU ISTICNCB+53 01432000 ICNRNRY EQU @NM00027 01433000 ICNLCLUS EQU @NM00027 01434000 ICNZPAB4 EQU ISTICNCB+80 01435000 ICNCKFLD EQU ISTICNCB+96 01436000 ICNFLAG EQU ISTICNCB+100 01437000 ICNZF006 EQU ICNFLAG 01438000 ICNZF010 EQU ICNFLAG 01439000 ICNSLOW EQU ICNFLAG 01440000 ICNFFLAG EQU ISTICNCB+101 01441000 ICNZFF02 EQU ICNFFLAG 01442000 ICNZFF69 EQU ICNFFLAG 01443000 ICNZSWS EQU ISTICNCB+102 01444000 ICNZSW04 EQU ICNZSWS 01445000 ICNSIOQ EQU ISTICNCB+104 01446000 ICNLSTBT EQU ISTICNCB+108 01447000 ICNLAST EQU ISTICNCB+112 01448000 ICNZV003 EQU ISTICNCB+116 01449000 ICNFLAG2 EQU ISTICNCB+236 01450000 ICNZF007 EQU ICNFLAG2 01451000 ICNZF00D EQU ICNFLAG2+1 01452000 ICNZF013 EQU ICNFLAG2+1 01453000 ICNCLOSE EQU ICNFLAG2+1 01454000 ICNCPQ EQU ISTICNCB+244 01455000 ICNBUFF EQU ISTICNCB+248 01456000 ICNZV00A EQU ISTICNCB+249 01457000 ICNZV001 EQU ISTICNCB+252 01458000 ICNLSTIF EQU ISTICNCB+260 01459000 ICNLSTIT EQU ISTICNCB+264 01460000 ICNZV005 EQU ISTICNCB+272 01461000 ICNZV007 EQU ISTICNCB+280 01462000 ICNZD001 EQU ISTICNCB+288 01463000 ICNWSCCW EQU ICNZD001 01464000 ICNWRCOD EQU ICNWSCCW 01465000 ICNZD002 EQU ISTICNCB+296 01466000 ICNZD005 EQU ISTICNCB+304 01467000 ICNZD006 EQU ISTICNCB+312 01468000 ICNZD003 EQU ISTICNCB+320 01469000 ICNRSCCW EQU ICNZD003 01470000 ICNZD004 EQU ISTICNCB+328 01471000 ICNZS1VR EQU ISTICNCB+348 01472000 ICNSRV02 EQU ICNZS1VR 01473000 ICNDIEWA EQU ICNSRV02 01474000 ICNZSW1R EQU ISTICNCB+460 01475000 ICNDCDEB EQU ISTICNCB+480 01476000 ICNDIDEB EQU ICNDCDEB+12 01477000 ICNZFLAG EQU ISTICNCB+508 01478000 ICNZH002 EQU ISTICNCB+509 01479000 ICNZS002 EQU ICNZH002 01480000 ICNZS003 EQU ICNZH002 01481000 ICNZS004 EQU ICNZH002 01482000 ICNZS006 EQU ICNZH002 01483000 ICNZS007 EQU ICNZH002 01484000 ICNZS008 EQU ICNZH002 01485000 ICNZS009 EQU ICNZH002+1 01486000 ICNZS00A EQU ICNZH002+1 01487000 ICNIOSB EQU ISTICNCB+520 01488000 ICNSRB EQU ISTICNCB+628 01489000 ICNZCONS EQU ISTICNCB+680 01490000 ICNZCON3 EQU ICNZCONS+4 01491000 ISTFSB EQU 0 01492000 FSBFSB EQU ISTFSB 01493000 FSBMNRCD EQU FSBFSB+2 01494000 FSBSFLGS EQU FSBFSB+3 01495000 FSBFSBA EQU FSBFSB+4 01496000 FSBBTH EQU FSBFSB+8 01497000 FSBCID EQU FSBBTH 01498000 FSBRQTAG EQU FSBBTH+4 01499000 FSBSEQID EQU FSBRQTAG 01500000 FSBFLAGS EQU FSBSEQID 01501000 FSBSEQ EQU FSBSEQID+1 01502000 FSBCSWST EQU FSBBTH+6 01503000 FSBTHFLD EQU FSBCSWST 01504000 FSBTH1 EQU FSBTHFLD 01505000 FSBSYSRS EQU FSBTH1 01506000 FSBTH2 EQU FSBTHFLD+1 01507000 FSBEXTRS EQU FSBTH2 01508000 FSBXFSTS EQU FSBEXTRS 01509000 FSBXCODE EQU FSBEXTRS 01510000 FSBNETRS EQU FSBFSB+16 01511000 FSBSRCAT EQU FSBNETRS 01512000 FSBERC EQU FSBNETRS+1 01513000 FSBFBMI EQU FSBERC 01514000 FSBDMGRS EQU FSBFSB+18 01515000 FSBSS1 EQU FSBDMGRS 01516000 FSBSS2 EQU FSBDMGRS+1 01517000 FSBLCPB EQU FSBFSB+20 01518000 FSBMSGID EQU FSBLCPB 01519000 FSBLCCWA EQU FSBFSB+24 01520000 FSBRLSTS EQU FSBLCCWA 01521000 FSBPTR EQU 0 01522000 ISTZIBUF EQU 0 01523000 ZIBCHAIN EQU ISTZIBUF 01524000 ZIBFSM EQU ISTZIBUF+4 01525000 ISTRH EQU 0 01526000 RHFLAGS EQU ISTRH 01527000 RH1 EQU RHFLAGS 01528000 RH2 EQU RHFLAGS+1 01529000 RHRETRY EQU RH2 01530000 RHRSVD1 EQU RH2 01531000 RH3 EQU RHFLAGS+2 01532000 ISTNIR EQU 0 01533000 NIRRH EQU ISTNIR 01534000 ISTPIU EQU 0 01535000 PIUTH EQU ISTPIU 01536000 PIUNIR EQU ISTPIU+10 01537000 ISTLCCW EQU 0 01538000 LCCWOP EQU ISTLCCW 01539000 LCCWRWOP EQU LCCWOP 01540000 LCCWCTL EQU LCCWRWOP 01541000 LCCWFLAG EQU ISTLCCW+1 01542000 LCCWLSI EQU LCCWFLAG 01543000 ISTLCPB EQU 0 01544000 LCPREQTG EQU ISTLCPB+2 01545000 LCPFLAGS EQU LCPREQTG 01546000 LCPZF001 EQU LCPFLAGS 01547000 LCPZRT02 EQU LCPZF001 01548000 LCPZF002 EQU LCPFLAGS 01549000 LCPZRT03 EQU LCPZF002 01550000 LCPZF003 EQU LCPFLAGS 01551000 LCPZRT04 EQU LCPZF003 01552000 LCPZF004 EQU LCPFLAGS 01553000 LCPZRT05 EQU LCPZF004 01554000 LCPZRT06 EQU LCPFLAGS 01555000 LCPZRT07 EQU LCPFLAGS 01556000 LCPMNRCD EQU LCPREQTG+1 01557000 LCPZRT08 EQU LCPMNRCD 01558000 LCPZRT09 EQU LCPMNRCD 01559000 LCPCHAIN EQU ISTLCPB+4 01560000 LCPCHAI1 EQU LCPCHAIN 01561000 LCPRUCNT EQU ISTLCPB+8 01562000 LCPFLAG2 EQU ISTLCPB+9 01563000 LCPTLBPI EQU LCPFLAG2 01564000 LCPFID0 EQU LCPFLAG2 01565000 LCPSEQ EQU ISTLCPB+10 01566000 LCPCID EQU ISTLCPB+16 01567000 LCPFDBA EQU ISTLCPB+24 01568000 LCPFLG1 EQU ISTLCPB+37 01569000 LCPFLCCW EQU ISTLCPB+40 01570000 LCPLCCW EQU ISTLCPB+48 01571000 LCPPABA EQU LCPLCCW+4 01572000 LCPRPHA EQU LCPPABA 01573000 ISTZCRR EQU 0 01574000 ZCRCRR EQU ISTZCRR 01575000 ZCRFLGS1 EQU ISTZCRR+12 01576000 ZCRFLGS2 EQU ISTZCRR+13 01577000 ZCRSWFLD EQU ISTZCRR+14 01578000 ZCRENDSH EQU ZCRSWFLD 01579000 ZCRNDLCP EQU ZCRSWFLD 01580000 ZCRRESET EQU ZCRSWFLD 01581000 ZCRFLGS3 EQU ISTZCRR+15 01582000 ZCRGENSW EQU ISTZCRR+16 01583000 ZCRPFLGS EQU ISTZCRR+17 01584000 ZCRIBPR EQU ISTZCRR+18 01585000 ZCRSCPSW EQU ISTZCRR+19 01586000 ZCRPARMS EQU ISTZCRR+24 01587000 ZCRFBPTR EQU ZCRPARMS 01588000 ZCRDFRDA EQU ZCRPARMS+10 01589000 ZCRPCOD1 EQU ZCRPARMS+12 01590000 ZCRPLSBF EQU ZCRPCOD1 01591000 ZCRPCOD2 EQU ZCRPARMS+13 01592000 ZCRSVRTN EQU ISTZCRR+56 01593000 ZCRWKARA EQU ISTZCRR+156 01594000 ZCRCIDSV EQU ISTZCRR+192 01595000 ZCRAUDIT EQU ISTZCRR+440 01596000 ZCRENTER EQU ZCRAUDIT+5 01597000 ZCRLCPB EQU ISTZCRR+480 01598000 ZCRRHRU EQU ZCRLCPB 01599000 ISTDYPAB EQU 0 01600000 ISTATCVT EQU 0 01601000 ATCCOM EQU ISTATCVT 01602000 ATCSTAT EQU ATCCOM 01603000 ATCSTAT1 EQU ATCSTAT 01604000 ATCSTFLG EQU ATCSTAT+1 01605000 ATCPOFLG EQU ATCSTAT+2 01606000 ATCSTAT4 EQU ATCSTAT+3 01607000 ATCBPDA EQU ATCCOM+128 01608000 ATCIOTRC EQU ATCCOM+140 01609000 ATCTHTRC EQU ATCIOTRC 01610000 ATCSMRQ EQU ATCCOM+180 01611000 ATCSMRS EQU ATCCOM+188 01612000 ATCCSMR EQU ISTATCVT+296 01613000 ATCSHRFG EQU ISTATCVT+316 01614000 ATCHPGM EQU ISTATCVT+384 01615000 ATCVLCNT EQU ISTATCVT+772 01616000 ATCRNO EQU ISTATCVT+788 01617000 ATCSOPD EQU ISTATCVT+792 01618000 ATCSIPD EQU ISTATCVT+800 01619000 ATCSECST EQU ISTATCVT+812 01620000 ATCSTAT2 EQU ISTATCVT+818 01621000 ATCVTBAM EQU ISTATCVT+908 01622000 @NM00055 EQU ATCVTBAM+3 01623000 ATCAOSM EQU ISTATCVT+912 01624000 ATCGSRBQ EQU ATCAOSM+4 01625000 ATCGSRBG EQU ATCGSRBQ 01626000 ATCICAPP EQU ATCAOSM+100 01627000 ATCLDAPP EQU ATCAOSM+120 01628000 ATCDAPVT EQU ATCAOSM+140 01629000 ATCAP38 EQU ATCAOSM+268 01630000 ATCVTFLG EQU ATCAOSM+392 01631000 ATCZFLAG EQU ATCAOSM+588 01632000 ISTAVT EQU 0 01633000 ISTAS49 EQU ISTAVT+4 01634000 ISTBPENT EQU 0 01635000 BPEFLAGS EQU ISTBPENT+4 01636000 BPEPTR EQU 0 01637000 ISTBPDTY EQU 0 01638000 BPDHDR EQU ISTBPDTY 01639000 BPDCHPCB EQU BPDHDR+8 01640000 BPDFLAG EQU BPDHDR+40 01641000 BPDPARM EQU BPDHDR+48 01642000 BPDTRACE EQU BPDHDR+56 01643000 BPDPTR EQU 0 01644000 ISTZFSAV EQU 0 01645000 ZSAFSV19 EQU ISTZFSAV+40 01646000 ISTZ19SV EQU 0 01647000 ZSAF19FG EQU ISTZ19SV 01648000 ZSAFLOCK EQU ZSAF19FG 01649000 ZSAF19IO EQU ISTZ19SV+12 01650000 FMZL0015 EQU 0 01651000 FMZL0031 EQU 0 01652000 FMZL0051 EQU 0 01653000 ISTAPC38 EQU 0 01654000 AVTPTR EQU 0 01655000 ZIBSRB EQU 0 01656000 IOSATTSC EQU IOSIPIB 01657000 IOSWTOWA EQU IOSIPIB 01658000 IOSPCISC EQU IOSIPIB 01659000 IOCOMPTR EQU CVTIXAVL 01660000 CVTS01 EQU CVTPGSIA 01661000 CVTLPDIA EQU CVTS01+12 01662000 CVTDIRST EQU CVTLPDIA 01663000 CVTSLIDA EQU CVTS01+24 01664000 CVTCTLFG EQU CVTS01+50 01665000 CVTRV210 EQU CVTS01+424 01666000 CVTRV219 EQU CVTS01+425 01667000 CVTRV228 EQU CVTS01+426 01668000 CVTRV237 EQU CVTS01+427 01669000 CVTMFRTR EQU CVTS01+452 01670000 CVTRV262 EQU CVTS01+468 01671000 CVTRV271 EQU CVTS01+469 01672000 CVTRV280 EQU CVTS01+470 01673000 CVTRV289 EQU CVTS01+471 01674000 CVTGSDA EQU CVTS01+600 01675000 ZOBDLBT EQU ISTZOBUF 01676000 ZOBDLBCM EQU ZOBDLBT 01677000 @NM00015 EQU ZOBDLBCM+25 01678000 ZOBBTU EQU ZOBDLBT+28 01679000 ZOBWCC EQU ZOBDLBT+48 01680000 ZOBECCC EQU ZOBDLBT+50 01681000 ZOBDIO EQU ZOBFSM 01682000 ZOBCPWTC EQU ZOBDIO 01683000 ZOBCPWTF EQU ZOBDIO+4 01684000 ZOBCCW2 EQU ZOBDIO+8 01685000 ZOBCPTCC EQU ZOBCCW2 01686000 ZOBCPTCA EQU ZOBCCW2+1 01687000 ZOBFLAGS EQU ZOBCCW2+5 01688000 ZOBCCW3 EQU ZOBDIO+16 01689000 ZOBCPTRC EQU ZOBCCW3 01690000 ZOBCPN2C EQU ZOBCPTRC 01691000 ZOBCPTC1 EQU ZOBCPN2C 01692000 ZOBCPTRA EQU ZOBCCW3+1 01693000 ZOBCPTC2 EQU ZOBCPTRA 01694000 @NM00019 EQU ZOBBTU 01695000 FSBCOMBN EQU FSBNETRS 01696000 FSBRHFLD EQU FSBCOMBN+1 01697000 FSBRH3 EQU FSBRHFLD+2 01698000 FSBLDFLG EQU FSBRH3 01699000 @NM00038 EQU FSBRQTAG 01700000 ZIBDIO EQU ZIBFSM 01701000 ZIBCPRDC EQU ZIBDIO 01702000 ZIBCPTXA EQU ZIBDIO+1 01703000 ZIBCPRDF EQU ZIBDIO+4 01704000 ZIBCPRDK EQU ZIBDIO+6 01705000 ZIBCCW2 EQU ZIBDIO+8 01706000 ZIBCPTCC EQU ZIBCCW2 01707000 ZIBCPTCA EQU ZIBCCW2+1 01708000 ZIBAIO EQU ISTZIBUF 01709000 ZIBAIOCM EQU ZIBAIO 01710000 ZIBFIB EQU ZIBAIO+16 01711000 ZIBFSB EQU ZIBFIB 01712000 ZIBMDREC EQU ZIBFSB+4 01713000 ZIBMDRIN EQU ZIBFSB+28 01714000 ZIBBTU EQU ZIBFIB+32 01715000 @NM00041 EQU ZIBBTU+12 01716000 ZIBFID1 EQU @NM00041+1 01717000 ZIBFITXT EQU ZIBFID1 01718000 ZIBSIB EQU ZIBFIB 01719000 ZIBTEXT EQU ZIBSIB+4 01720000 ZIBREC EQU ZIBMDRIN 01721000 ZIBRECPL EQU ZIBREC 01722000 ZIBRECHD EQU ZIBRECPL 01723000 ZIBRECRS EQU ZIBREC+8 01724000 ZIBRECDT EQU ZIBREC+10 01725000 ZIBMDRRC EQU ZIBMDREC 01726000 ZIBRCPL EQU ZIBMDRRC 01727000 ZIBRCDT EQU ZIBMDRRC+24 01728000 @NM00043 EQU ZIBBTU 01729000 LCPZTIE EQU LCPCID 01730000 LCPZSNAM EQU LCPZTIE+8 01731000 @NM00060 EQU ZIBDIO 01732000 NOPCCW EQU @NM00060+8 01733000 @NM00062 EQU ICNZV005 01734000 ICNZV524 EQU @NM00062+1 01735000 SRB EQU SRBSECT 01736000 ZOBTEXT EQU ZOBBTU 01737000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01738000 @NM00063 EQU @NM00062 01739000 @NM00061 EQU @NM00060 01740000 LCPZTRV4 EQU LCPZSNAM+4 01741000 LCPZTRV1 EQU LCPZSNAM 01742000 LCPZSNA EQU LCPZTIE+4 01743000 LCPZFMCA EQU LCPZTIE 01744000 ZIBTH2 EQU @NM00043+4 01745000 ZIBLH EQU @NM00043 01746000 ZIBRCTXT EQU ZIBMDRRC+36 01747000 ZIBRCRID EQU ZIBRCDT+10 01748000 ZIBRCNAM EQU ZIBRCDT+2 01749000 ZIBRCUA EQU ZIBRCDT 01750000 ZIBRCPUI EQU ZIBRCPL+20 01751000 ZIBRCPUN EQU ZIBRCPL+16 01752000 ZIBRCTIM EQU ZIBRCPL+12 01753000 ZIBRCDAT EQU ZIBRCPL+8 01754000 ZIBRCRS1 EQU ZIBRCPL+6 01755000 ZIBRCSID EQU ZIBRCPL+5 01756000 ZIBRCID EQU ZIBRCPL+4 01757000 ZIBRCSW EQU ZIBRCPL+2 01758000 ZIBRCSYR EQU ZIBRCPL+1 01759000 ZIBRCL EQU ZIBRCPL 01760000 ZIBRECTX EQU ZIBREC+22 01761000 ZIBRECID EQU ZIBRECDT+10 01762000 ZIBRECNA EQU ZIBRECDT+2 01763000 ZIBRECUA EQU ZIBRECDT 01764000 ZIBRECSV EQU ZIBRECRS 01765000 ZIBRECDA EQU ZIBRECPL+4 01766000 ZIBRECSI EQU ZIBRECHD+3 01767000 ZIBRECDV EQU ZIBRECHD+2 01768000 ZIBRECFL EQU ZIBRECHD+1 01769000 ZIBRECTY EQU ZIBRECHD 01770000 ZIBRSV04 EQU ZIBSIB 01771000 ZIBTEXT2 EQU ZIBFITXT 01772000 ZIBTEXT1 EQU ZIBFIB+52 01773000 @NM00042 EQU @NM00041 01774000 ZIBFDBS EQU ZIBBTU 01775000 @NM00040 EQU ZIBMDREC 01776000 @NM00039 EQU ZIBFSB 01777000 ZIBLNG2 EQU ZIBAIOCM+14 01778000 ZIBRSV03 EQU ZIBAIOCM+13 01779000 ZIBWKBYT EQU ZIBAIOCM+12 01780000 ZIBFDBZ EQU ZIBAIOCM 01781000 ZIBCPNPK EQU ZIBCCW2+6 01782000 ZIBRSV02 EQU ZIBCCW2+5 01783000 ZIBCPTPF EQU ZIBCCW2+4 01784000 ZIBCPNPC EQU ZIBCPTCC 01785000 ZIBRSV01 EQU ZIBDIO+5 01786000 FSBRT0B EQU @NM00038+1 01787000 FSBRT0A EQU @NM00038+1 01788000 FSBRT09 EQU @NM00038+1 01789000 FSBRT08 EQU @NM00038+1 01790000 FSBRT07 EQU @NM00038 01791000 FSBRT06 EQU @NM00038 01792000 FSBRT05 EQU @NM00038 01793000 FSBRT04 EQU @NM00038 01794000 FSBRT03 EQU @NM00038 01795000 FSBRT02 EQU @NM00038 01796000 FSBRT01 EQU @NM00038 01797000 FSBRT00 EQU @NM00038 01798000 FSBLDCUF EQU FSBLDFLG 01799000 FSBLDSIF EQU FSBLDFLG 01800000 FSBLDSOF EQU FSBLDFLG 01801000 FSBLDEBF EQU FSBLDFLG 01802000 FSBLDBBF EQU FSBLDFLG 01803000 FSBLDFME EQU FSBLDFLG 01804000 FSBLDSCF EQU FSBLDFLG 01805000 FSBLDRMF EQU FSBLDFLG 01806000 FSBRH2 EQU FSBRHFLD+1 01807000 FSBRH1 EQU FSBRHFLD 01808000 FSBALIGN EQU FSBCOMBN 01809000 ZOBTH2 EQU @NM00019+4 01810000 ZOBLH EQU @NM00019 01811000 ZOBCPN2K EQU ZOBCCW3+6 01812000 ZOBRSV99 EQU ZOBCCW3+5 01813000 ZOBCPN2F EQU ZOBCCW3+4 01814000 ZOBCPNPK EQU ZOBCCW2+6 01815000 ZOBRSV03 EQU ZOBFLAGS 01816000 ZOBRT08 EQU ZOBFLAGS 01817000 ZOBRT06 EQU ZOBFLAGS 01818000 ZOBCPNPF EQU ZOBCCW2+4 01819000 ZOBCPNPC EQU ZOBCPTCC 01820000 ZOBCPWTK EQU ZOBDIO+6 01821000 ZOBRSV02 EQU ZOBDIO+5 01822000 ZOBCPTXA EQU ZOBDIO+1 01823000 ZOBRSV09 EQU ZOBECCC 01824000 ZOBECSP EQU ZOBECCC 01825000 ZOBRSV08 EQU ZOBECCC 01826000 ZOBRSV07 EQU ZOBDLBT+49 01827000 ZOBRSV06 EQU ZOBWCC 01828000 ZOBWCSP EQU ZOBWCC 01829000 ZOBRSV05 EQU ZOBWCC 01830000 ZOBRSV10 EQU ZOBDLBCM+26 01831000 @NM00018 EQU @NM00015 01832000 @NM00017 EQU @NM00015 01833000 @NM00016 EQU @NM00015 01834000 ZOBRSV04 EQU ZOBDLBCM+16 01835000 ZOBLNG2 EQU ZOBDLBCM+14 01836000 ZOBRSV01 EQU ZOBDLBCM+12 01837000 ZOBFDB EQU ZOBDLBCM 01838000 CVTRV628 EQU CVTS01+728 01839000 CVTRV627 EQU CVTS01+724 01840000 CVTRV626 EQU CVTS01+720 01841000 CVTRV625 EQU CVTS01+716 01842000 CVTRV624 EQU CVTS01+712 01843000 CVTRV623 EQU CVTS01+708 01844000 CVTRV622 EQU CVTS01+704 01845000 CVTRV621 EQU CVTS01+700 01846000 CVTRV620 EQU CVTS01+696 01847000 CVTSUSP EQU CVTS01+692 01848000 CVTT6SVC EQU CVTS01+688 01849000 CVTCDAL EQU CVTS01+684 01850000 CVTTCTL EQU CVTS01+680 01851000 CVTRSUME EQU CVTS01+676 01852000 CVTJTERM EQU CVTS01+672 01853000 CVTASMRM EQU CVTS01+668 01854000 CVTTCASP EQU CVTS01+664 01855000 CVT0PT03 EQU CVTS01+660 01856000 CVT0PT0E EQU CVTS01+656 01857000 CVTIRM EQU CVTS01+652 01858000 CVTCGK EQU CVTS01+648 01859000 CVTRAC EQU CVTS01+644 01860000 CVTRV606 EQU CVTS01+640 01861000 CVTRV605 EQU CVTS01+636 01862000 CVTRV604 EQU CVTS01+632 01863000 CVTEFF02 EQU CVTS01+628 01864000 CVTCBBR EQU CVTS01+624 01865000 CVTSSCR EQU CVTS01+620 01866000 CVTEVENT EQU CVTS01+616 01867000 CVTCRCA EQU CVTS01+612 01868000 CVTTPIO EQU CVTS01+608 01869000 CVTADV EQU CVTS01+604 01870000 CVTGSDAB EQU CVTGSDA 01871000 CVTQV3 EQU CVTS01+596 01872000 CVTQV2 EQU CVTS01+592 01873000 CVTQV1 EQU CVTS01+588 01874000 CVTRPT EQU CVTS01+584 01875000 CVTSSRB EQU CVTS01+580 01876000 CVTCSDRL EQU CVTS01+576 01877000 CVTEXP1 EQU CVTS01+572 01878000 CVTRMPMT EQU CVTS01+568 01879000 CVTRMPTT EQU CVTS01+564 01880000 CVTVPSA EQU CVTS01+560 01881000 CVTVSTOP EQU CVTS01+556 01882000 CVTGTFR8 EQU CVTS01+552 01883000 CVTQUIT EQU CVTS01+548 01884000 CVTVACR EQU CVTS01+544 01885000 CVTWTCB EQU CVTS01+540 01886000 CVTSTPRS EQU CVTS01+536 01887000 CVT0PT02 EQU CVTS01+532 01888000 CVTDARCM EQU CVTS01+528 01889000 CVTIRECM EQU CVTS01+524 01890000 CVTJRECM EQU CVTS01+520 01891000 CVTVEMS0 EQU CVTS01+516 01892000 CVTSPFRR EQU CVTS01+512 01893000 CVTRLSTG EQU CVTS01+508 01894000 CVT0TC0A EQU CVTS01+504 01895000 CVTGMBR EQU CVTS01+500 01896000 CVTLFRM EQU CVTS01+496 01897000 CVTRMBR EQU CVTS01+492 01898000 CVTVIOP EQU CVTS01+488 01899000 CVTRV307 EQU CVTS01+486 01900000 CVTRV306 EQU CVTS01+484 01901000 CVTRV305 EQU CVTS01+482 01902000 CVTRV304 EQU CVTS01+480 01903000 CVTRV303 EQU CVTS01+478 01904000 CVTRV302 EQU CVTS01+476 01905000 CVTTRCA EQU CVTS01+472 01906000 CVTRV297 EQU CVTRV289 01907000 CVTRV296 EQU CVTRV289 01908000 CVTRV295 EQU CVTRV289 01909000 CVTRV294 EQU CVTRV289 01910000 CVTRV293 EQU CVTRV289 01911000 CVTRV292 EQU CVTRV289 01912000 CVTRV291 EQU CVTRV289 01913000 CVTRV290 EQU CVTRV289 01914000 CVTRV288 EQU CVTRV280 01915000 CVTRV287 EQU CVTRV280 01916000 CVTRV286 EQU CVTRV280 01917000 CVTRV285 EQU CVTRV280 01918000 CVTRV284 EQU CVTRV280 01919000 CVTRV283 EQU CVTRV280 01920000 CVTRV282 EQU CVTRV280 01921000 CVTRV281 EQU CVTRV280 01922000 CVTRV279 EQU CVTRV271 01923000 CVTRV278 EQU CVTRV271 01924000 CVTRV277 EQU CVTRV271 01925000 CVTRV276 EQU CVTRV271 01926000 CVTRV275 EQU CVTRV271 01927000 CVTRV274 EQU CVTRV271 01928000 CVTRV273 EQU CVTRV271 01929000 CVTRV272 EQU CVTRV271 01930000 CVTRV270 EQU CVTRV262 01931000 CVTRV269 EQU CVTRV262 01932000 CVTRV268 EQU CVTRV262 01933000 CVTRV267 EQU CVTRV262 01934000 CVTRV266 EQU CVTRV262 01935000 CVTRV265 EQU CVTRV262 01936000 CVTRV264 EQU CVTRV262 01937000 CVTRV263 EQU CVTRV262 01938000 CVTVFP EQU CVTS01+464 01939000 CVTVSI EQU CVTS01+460 01940000 CVTVPSIB EQU CVTS01+456 01941000 CVTMFACT EQU CVTMFRTR 01942000 CVTMFCTL EQU CVTS01+448 01943000 CVTPVBP EQU CVTS01+444 01944000 CVTPWI EQU CVTS01+440 01945000 CVTRV254 EQU CVTS01+438 01946000 CVTRV253 EQU CVTS01+436 01947000 CVTRV252 EQU CVTS01+434 01948000 CVTRV251 EQU CVTS01+433 01949000 CVTRV250 EQU CVTS01+432 01950000 CVTRV249 EQU CVTS01+431 01951000 CVTRV248 EQU CVTS01+430 01952000 CVTRV247 EQU CVTS01+429 01953000 CVTRV246 EQU CVTS01+428 01954000 CVTRV245 EQU CVTRV237 01955000 CVTRV244 EQU CVTRV237 01956000 CVTRV243 EQU CVTRV237 01957000 CVTRV242 EQU CVTRV237 01958000 CVTRV241 EQU CVTRV237 01959000 CVTRV240 EQU CVTRV237 01960000 CVTRV239 EQU CVTRV237 01961000 CVTRV238 EQU CVTRV237 01962000 CVTRV236 EQU CVTRV228 01963000 CVTRV235 EQU CVTRV228 01964000 CVTRV234 EQU CVTRV228 01965000 CVTRV233 EQU CVTRV228 01966000 CVTRV232 EQU CVTRV228 01967000 CVTRV231 EQU CVTRV228 01968000 CVTRV230 EQU CVTRV228 01969000 CVTRV229 EQU CVTRV228 01970000 CVTRV227 EQU CVTRV219 01971000 CVTRV226 EQU CVTRV219 01972000 CVTRV225 EQU CVTRV219 01973000 CVTRV224 EQU CVTRV219 01974000 CVTRV223 EQU CVTRV219 01975000 CVTRV222 EQU CVTRV219 01976000 CVTRV221 EQU CVTRV219 01977000 CVTRV220 EQU CVTRV219 01978000 CVTRV218 EQU CVTRV210 01979000 CVTRV217 EQU CVTRV210 01980000 CVTRV216 EQU CVTRV210 01981000 CVTRV215 EQU CVTRV210 01982000 CVTRV214 EQU CVTRV210 01983000 CVTRV213 EQU CVTRV210 01984000 CVTRV212 EQU CVTRV210 01985000 CVTRV211 EQU CVTRV210 01986000 CVTLCCAT EQU CVTS01+420 01987000 CVTPCCAT EQU CVTS01+416 01988000 CVTIPCRP EQU CVTS01+412 01989000 CVTIPCRI EQU CVTS01+408 01990000 CVTIPCDS EQU CVTS01+404 01991000 CVTAIDVT EQU CVTS01+400 01992000 CVTSSAP EQU CVTS01+396 01993000 CVTEHCIR EQU CVTS01+392 01994000 CVTEHDEF EQU CVTS01+388 01995000 CVTDAIR EQU CVTS01+384 01996000 CVTPERFM EQU CVTS01+380 01997000 CVT044R2 EQU CVTS01+376 01998000 CVTFETCH EQU CVTS01+372 01999000 CVTRSTWD EQU CVTS01+368 02000000 CVTSPOST EQU CVTS01+364 02001000 CVTIOBP EQU CVTS01+360 02002000 CVTASMVT EQU CVTS01+356 02003000 CVTRECRQ EQU CVTS01+352 02004000 CVTWSAC EQU CVTS01+348 02005000 CVTRV149 EQU CVTS01+344 02006000 CVTWSAL EQU CVTS01+340 02007000 CVTSPSA EQU CVTS01+336 02008000 CVTGLMN EQU CVTS01+332 02009000 CVTVEAC0 EQU CVTS01+328 02010000 CVT062R1 EQU CVTS01+324 02011000 CVTRPOST EQU CVTS01+320 02012000 CVTDQIQE EQU CVTS01+316 02013000 CVTCSD EQU CVTS01+312 02014000 CVTLKRMA EQU CVTS01+308 02015000 CVTRSPIE EQU CVTS01+304 02016000 CVTRENQ EQU CVTS01+300 02017000 CVTLQCB EQU CVTS01+296 02018000 CVTFQCB EQU CVTS01+292 02019000 CVTQCS01 EQU CVTS01+288 02020000 CVTAPFT EQU CVTS01+284 02021000 CVTPARRL EQU CVTS01+280 02022000 CVTVWAIT EQU CVTS01+276 02023000 CVTGSPL EQU CVTS01+272 02024000 CVTLSMQ EQU CVTS01+268 02025000 CVTGSMQ EQU CVTS01+264 02026000 CVTEXPRO EQU CVTS01+260 02027000 CVTOPCTP EQU CVTS01+256 02028000 CVTSIC EQU CVTS01+252 02029000 CVTTPIOS EQU CVTS01+248 02030000 CVTRTMS EQU CVTS01+244 02031000 CVTSDBF EQU CVTS01+240 02032000 CVTSCBP EQU CVTS01+236 02033000 CVTSDMP EQU CVTS01+232 02034000 CVTSV60 EQU CVTS01+228 02035000 CVTRTMCT EQU CVTS01+224 02036000 CVTASCBL EQU CVTS01+220 02037000 CVTASCBH EQU CVTS01+216 02038000 CVTGDA EQU CVTS01+212 02039000 CVTASVT EQU CVTS01+208 02040000 CVTVVMDI EQU CVTS01+204 02041000 CVTAQTOP EQU CVTS01+200 02042000 CVTIOSCS EQU CVTS01+196 02043000 CVTSDRM EQU CVTS01+192 02044000 CVTOPTE EQU CVTS01+188 02045000 CVTSTXU EQU CVTS01+184 02046000 CVTQUIS EQU CVTS01+180 02047000 CVTPARS EQU CVTS01+176 02048000 CVTS1EE EQU CVTS01+172 02049000 CVTFRAS EQU CVTS01+168 02050000 CVTQSAS EQU CVTS01+164 02051000 CVTCRAS EQU CVTS01+160 02052000 CVTCRMN EQU CVTS01+156 02053000 CVTDELCP EQU CVTS01+152 02054000 CVTFRECL EQU CVTS01+148 02055000 CVTGETCL EQU CVTS01+144 02056000 CVTBLDCP EQU CVTS01+140 02057000 CVTAUTHL EQU CVTS01+136 02058000 CVTSCAN EQU CVTS01+132 02059000 CVTRV144 EQU CVTS01+130 02060000 CVTMAXMP EQU CVTS01+128 02061000 CVTSTCK EQU CVTS01+124 02062000 CVTRV139 EQU CVTS01+123 02063000 CVTDSSAC EQU CVTS01+122 02064000 CVTRV513 EQU CVTS01+121 02065000 CVTIOSPL EQU CVTS01+120 02066000 CVTPTGT EQU CVTS01+116 02067000 CVTCSPIE EQU CVTS01+112 02068000 CVTSMFEX EQU CVTS01+108 02069000 CVTOLT0A EQU CVTS01+104 02070000 CVTSRBRT EQU CVTS01+100 02071000 CVTPUTL EQU CVTS01+96 02072000 CVTASCRL EQU CVTS01+92 02073000 CVTASCRF EQU CVTS01+88 02074000 CVTRV326 EQU CVTS01+84 02075000 CVTRV325 EQU CVTS01+80 02076000 CVTRV324 EQU CVTS01+76 02077000 CVT0VL01 EQU CVTS01+72 02078000 CVTSHRVM EQU CVTS01+68 02079000 CVTRV332 EQU CVTS01+64 02080000 CVTTAS EQU CVTS01+60 02081000 CVTRSCN EQU CVTS01+56 02082000 CVTTRAC2 EQU CVTS01+54 02083000 CVTTRACE EQU CVTS01+52 02084000 CVTAPG EQU CVTS01+51 02085000 CVTSDTRC EQU CVTCTLFG 02086000 CVTGTRCE EQU CVTCTLFG 02087000 CVTNOMP EQU CVTCTLFG 02088000 CVTRSV79 EQU CVTCTLFG 02089000 CVTDSTAT EQU CVTCTLFG 02090000 CVTRSV78 EQU CVTCTLFG 02091000 CVTRV333 EQU CVTCTLFG 02092000 CVTRV323 EQU CVTCTLFG 02093000 CVTSPVLK EQU CVTS01+49 02094000 CVTRSV77 EQU CVTS01+48 02095000 CVTRV331 EQU CVTS01+44 02096000 CVTRV330 EQU CVTS01+40 02097000 CVTRV329 EQU CVTS01+36 02098000 CVTRV328 EQU CVTS01+32 02099000 CVTRV322 EQU CVTS01+28 02100000 CVTSLID EQU CVTSLIDA+1 02101000 CVTSYLK EQU CVTSLIDA 02102000 CVTRV321 EQU CVTS01+20 02103000 CVTRV320 EQU CVTS01+16 02104000 CVTLPDIR EQU CVTLPDIA+1 02105000 CVTRSV69 EQU CVTDIRST 02106000 CVTRSV68 EQU CVTDIRST 02107000 CVTRSV67 EQU CVTDIRST 02108000 CVTRSV66 EQU CVTDIRST 02109000 CVTRSV65 EQU CVTDIRST 02110000 CVTRSV64 EQU CVTDIRST 02111000 CVTRSV63 EQU CVTDIRST 02112000 CVTDICOM EQU CVTDIRST 02113000 CVTPVTP EQU CVTS01+8 02114000 CVTLPDSR EQU CVTS01+4 02115000 CVTGETL EQU CVTS01 02116000 IOSPCIWA EQU IOSPCISC+44 02117000 IOSPCIRS EQU IOSPCISC+8 02118000 @NM00007 EQU IOSPCISC+4 02119000 @NM00006 EQU IOSPCISC 02120000 IOSWRNDR EQU IOSWTOWA+4 02121000 IOSWTOPT EQU IOSWTOWA+3 02122000 IOSWTOCP EQU IOSWTOWA+2 02123000 IOSWTOCH EQU IOSWTOWA 02124000 IOSATTWA EQU IOSATTSC+40 02125000 @NM00005 EQU IOSATTSC+24 02126000 IOSATTSN EQU IOSATTSC 02127000 ZSAF19RD EQU ISTZ19SV+8 02128000 ZSAF19R1 EQU ISTZ19SV+4 02129000 ZSAF19RV EQU ISTZ19SV+1 02130000 ZSAFRSVS EQU ZSAF19FG 02131000 ZSAFSVR2 EQU ISTZFSAV+36 02132000 ZSAFSVVR EQU ISTZFSAV+12 02133000 ZSAFSVRR EQU ISTZFSAV+8 02134000 ZSAFSVFC EQU ISTZFSAV+4 02135000 ZSAFSVBC EQU ISTZFSAV 02136000 BPDCBID EQU ISTBPDTY+336 02137000 BPDENTRY EQU ISTBPDTY+144 02138000 @NM00059 EQU BPDTRACE+6 02139000 BPDAVNO EQU BPDTRACE+4 02140000 BPDMQUE EQU BPDTRACE+2 02141000 BPDMUSE EQU BPDTRACE 02142000 BPDTRADR EQU BPDPARM+4 02143000 BPDTRID EQU BPDPARM+3 02144000 @NM00058 EQU BPDPARM+2 02145000 BPDTRLEN EQU BPDPARM 02146000 BPDREQMX EQU BPDHDR+46 02147000 BPDREQCT EQU BPDHDR+44 02148000 BPDRSV01 EQU BPDFLAG 02149000 BPDGTR EQU BPDFLAG 02150000 BPDATCVT EQU BPDHDR+36 02151000 BPDFBPE EQU BPDHDR+32 02152000 BPDSMPCB EQU BPDHDR+28 02153000 BPDFEXT EQU BPDHDR+24 02154000 BPDADRS2 EQU BPDHDR+20 02155000 BPDADRS1 EQU BPDHDR+16 02156000 BPDPGPCB EQU BPDHDR+12 02157000 BPDCHBSZ EQU BPDHDR+6 02158000 BPDCHBNO EQU BPDHDR+4 02159000 BPDBPMAX EQU BPDHDR+2 02160000 BPDBPENT EQU BPDHDR 02161000 BPERSV03 EQU ISTBPENT+12 02162000 BPEBPCB EQU ISTBPENT+8 02163000 BPEBFSIZ EQU ISTBPENT+6 02164000 BPERSV02 EQU BPEFLAGS+1 02165000 BPEUSRF EQU BPEFLAGS+1 02166000 BPERSV01 EQU BPEFLAGS 02167000 BPENWS EQU BPEFLAGS 02168000 BPECBID EQU BPEFLAGS 02169000 BPEAL48 EQU BPEFLAGS 02170000 BPENFCHP EQU BPEFLAGS 02171000 BPEFIXED EQU BPEFLAGS 02172000 BPEDISP EQU BPEFLAGS 02173000 BPEFM EQU BPEFLAGS 02174000 BPEPID EQU ISTBPENT 02175000 ISTPDAVP EQU ISTAVT+40 02176000 ISTAVR01 EQU ISTAVT+38 02177000 ISTVTTP EQU ISTAVT+36 02178000 ISTAGTWT EQU ISTAVT+34 02179000 ISTATRT EQU ISTAVT+32 02180000 ISTARID EQU ISTAVT+30 02181000 ISTX1 EQU ISTAVT+29 02182000 ISTPHNM EQU ISTAVT+24 02183000 ISTAPSEX EQU ISTAVT+20 02184000 ISTVTTIK EQU ISTAVT+18 02185000 AVTASID EQU ISTAVT+16 02186000 ISTAPSTA EQU ISTAVT+12 02187000 ISTAS53 EQU ISTAVT+8 02188000 ISTAHIP EQU ISTAS49 02189000 ISTACVT EQU ISTAVT 02190000 ATCAOS EQU ISTATCVT+1584 02191000 ATCPOPAB EQU ATCAOSM+640 02192000 ATCVIOPM EQU ATCAOSM+636 02193000 ATCTPMMI EQU ATCAOSM+632 02194000 ATCTPMPB EQU ATCAOSM+600 02195000 ATCRSV88 EQU ATCAOSM+596 02196000 ATCRPLCT EQU ATCAOSM+594 02197000 ATCCRACT EQU ATCAOSM+592 02198000 ATCSRBCT EQU ATCAOSM+590 02199000 ATCRSV75 EQU ATCAOSM+589 02200000 ATCRSV66 EQU ATCZFLAG 02201000 ATCZF001 EQU ATCZFLAG 02202000 ATCTPCP1 EQU ATCAOSM+584 02203000 ATCTPCP0 EQU ATCAOSM+580 02204000 ATCAICTN EQU ATCAOSM+576 02205000 ATCZR01 EQU ATCAOSM+572 02206000 ATCMPLTA EQU ATCAOSM+568 02207000 ATCASCB EQU ATCAOSM+564 02208000 ATCAP86 EQU ATCAOSM+560 02209000 ATCAP85 EQU ATCAOSM+556 02210000 ATCAP84 EQU ATCAOSM+552 02211000 ATCAP83 EQU ATCAOSM+548 02212000 ATCAP82 EQU ATCAOSM+544 02213000 ATCAP69 EQU ATCAOSM+540 02214000 ATCAP66 EQU ATCAOSM+536 02215000 ATCAP62 EQU ATCAOSM+532 02216000 ATCAPC59 EQU ATCAOSM+528 02217000 ATCAP56 EQU ATCAOSM+524 02218000 ATCAP55 EQU ATCAOSM+520 02219000 ATCRCFY0 EQU ATCAOSM+516 02220000 ATCAP41 EQU ATCAOSM+512 02221000 ATCAPC25 EQU ATCAOSM+508 02222000 ATCAP23 EQU ATCAOSM+504 02223000 ATCTPSPB EQU ATCAOSM+472 02224000 ATCTRMPB EQU ATCAOSM+440 02225000 ATCAPBE EQU ATCAOSM+436 02226000 ATCPSTA EQU ATCAOSM+432 02227000 ATCSMABF EQU ATCAOSM+428 02228000 ATCSMAPR EQU ATCAOSM+424 02229000 ATCTPWQA EQU ATCAOSM+420 02230000 ATCSMAID EQU ATCAOSM+416 02231000 ATCSMARA EQU ATCAOSM+412 02232000 ATCCACXA EQU ATCAOSM+408 02233000 ATCZLAAB EQU ATCAOSM+404 02234000 ATCATA10 EQU ATCAOSM+400 02235000 ATCHLTCB EQU ATCAOSM+396 02236000 @NM00057 EQU ATCVTFLG 02237000 ATCVTACT EQU ATCVTFLG 02238000 ATCRPT40 EQU ATCAOSM+388 02239000 ATCRPT39 EQU ATCAOSM+384 02240000 ATCRPT38 EQU ATCAOSM+380 02241000 ATCRPT37 EQU ATCAOSM+376 02242000 ATCRPT36 EQU ATCAOSM+372 02243000 ATCRPT35 EQU ATCAOSM+368 02244000 ATCRPT34 EQU ATCAOSM+364 02245000 ATCRPT33 EQU ATCAOSM+360 02246000 ATCRPT32 EQU ATCAOSM+356 02247000 ATCRPT31 EQU ATCAOSM+352 02248000 ATCRPT30 EQU ATCAOSM+348 02249000 ATCRPT29 EQU ATCAOSM+344 02250000 ATCRPT28 EQU ATCAOSM+340 02251000 ATCRPT27 EQU ATCAOSM+336 02252000 ATCRPT26 EQU ATCAOSM+332 02253000 ATCRPT25 EQU ATCAOSM+328 02254000 ATCRPT24 EQU ATCAOSM+324 02255000 ATCRPT23 EQU ATCAOSM+320 02256000 ATCRPT22 EQU ATCAOSM+316 02257000 ATCRPT21 EQU ATCAOSM+312 02258000 ATCRPT20 EQU ATCAOSM+308 02259000 ATCRPT19 EQU ATCAOSM+304 02260000 ATCRPT18 EQU ATCAOSM+300 02261000 ATCRPT17 EQU ATCAOSM+296 02262000 ATCRPT16 EQU ATCAOSM+292 02263000 ATCRPT15 EQU ATCAOSM+288 02264000 ATCRPT14 EQU ATCAOSM+284 02265000 ATCRPT13 EQU ATCAOSM+280 02266000 ATCRPT12 EQU ATCAOSM+276 02267000 ATCDMAPP EQU ATCAOSM+272 02268000 ATCAP37 EQU ATCAOSM+264 02269000 ATCZDFJ0 EQU ATCAOSM+260 02270000 ATCAP51 EQU ATCAOSM+256 02271000 ATCZPAB2 EQU ATCAOSM+224 02272000 ATCZPAB1 EQU ATCAOSM+192 02273000 ATCZLFVT EQU ATCAOSM+188 02274000 ATCZLPVT EQU ATCAOSM+184 02275000 ATCZDVTX EQU ATCAOSM+180 02276000 ATCZDVTA EQU ATCAOSM+176 02277000 ATCZDVT9 EQU ATCAOSM+172 02278000 ATCZDVT8 EQU ATCAOSM+168 02279000 ATCZDVT7 EQU ATCAOSM+164 02280000 ATCRSV56 EQU ATCDAPVT+22 02281000 ATCDAPDG EQU ATCDAPVT+20 02282000 ATCDXCEA EQU ATCDAPVT+16 02283000 ATCDCEA EQU ATCDAPVT+12 02284000 ATCDPCIA EQU ATCDAPVT+8 02285000 ATCDSIOA EQU ATCDAPVT+4 02286000 ATCDEOEA EQU ATCDAPVT 02287000 ATCZLAEA EQU ATCLDAPP+16 02288000 ATCZLCEA EQU ATCLDAPP+12 02289000 ATCRSV17 EQU ATCLDAPP+8 02290000 ATCSMFRR EQU ATCLDAPP+4 02291000 ATCCDTID EQU ATCLDAPP 02292000 ATCZAEA EQU ATCICAPP+16 02293000 ATCZCEA EQU ATCICAPP+12 02294000 ATCCDTCB EQU ATCICAPP+8 02295000 ATCZSIOA EQU ATCICAPP+4 02296000 ATCCDRPH EQU ATCICAPP 02297000 ATCAP65 EQU ATCAOSM+96 02298000 ATCZDVT6 EQU ATCAOSM+92 02299000 ATCZDVT4 EQU ATCAOSM+88 02300000 ATCZDVT3 EQU ATCAOSM+84 02301000 ATCZDVT1 EQU ATCAOSM+80 02302000 ATCICNCB EQU ATCAOSM+76 02303000 ATCZPSVT EQU ATCAOSM+72 02304000 ATCZFSVT EQU ATCAOSM+68 02305000 ATCAP64 EQU ATCAOSM+64 02306000 ATCAP63 EQU ATCAOSM+60 02307000 ATCAP61 EQU ATCAOSM+56 02308000 ATCAP58 EQU ATCAOSM+52 02309000 ATCAP57 EQU ATCAOSM+48 02310000 ATCAP54 EQU ATCAOSM+44 02311000 ATCAP53 EQU ATCAOSM+40 02312000 ATCAP52 EQU ATCAOSM+36 02313000 ATCAP34 EQU ATCAOSM+32 02314000 ATCAP32 EQU ATCAOSM+28 02315000 ATCAP31 EQU ATCAOSM+24 02316000 ATCAP12 EQU ATCAOSM+20 02317000 ATCAP11 EQU ATCAOSM+16 02318000 ATCCMTCB EQU ATCAOSM+12 02319000 ATCPRPH EQU ATCAOSM+8 02320000 ATCGSRBF EQU ATCGSRBG 02321000 ATCSRBRT EQU ATCAOSM 02322000 @NM00056 EQU @NM00055 02323000 ATCVTMAB EQU @NM00055 02324000 @NM00054 EQU ATCVTBAM 02325000 ATCVDLOK EQU ISTATCVT+904 02326000 ATCVFPAB EQU ISTATCVT+872 02327000 ATCVDPAB EQU ISTATCVT+840 02328000 ATCIOECB EQU ISTATCVT+836 02329000 ATCINCW3 EQU ISTATCVT+832 02330000 ATCMODTB EQU ISTATCVT+828 02331000 ATCUSSPT EQU ISTATCVT+824 02332000 ATCSRTAB EQU ISTATCVT+820 02333000 @NM00053 EQU ISTATCVT+819 02334000 @NM00052 EQU ATCSTAT2 02335000 ATCTRSMS EQU ATCSTAT2 02336000 ATCTRLOK EQU ATCSTAT2 02337000 ATCTRPSS EQU ATCSTAT2 02338000 ATCTRESC EQU ATCSTAT2 02339000 ATCTRAPI EQU ATCSTAT2 02340000 ATCNMCTR EQU ISTATCVT+816 02341000 ATCSEC51 EQU ATCSECST 02342000 ATCSEC40 EQU ATCSIPD+8 02343000 ATCSEC30 EQU ATCSIPD+4 02344000 ATCSEC21 EQU ATCSIPD 02345000 ATCSEC10 EQU ATCSOPD+4 02346000 ATCSEC01 EQU ATCSOPD 02347000 ATCPOIA EQU ATCRNO+1 02348000 @NM00051 EQU ATCRNO 02349000 ATCPODVT EQU ISTATCVT+784 02350000 ATCS49XL EQU ISTATCVT+780 02351000 ATCS49XI EQU ISTATCVT+776 02352000 ATCLCLCT EQU ATCVLCNT+2 02353000 ATCRNCNT EQU ATCVLCNT 02354000 ATCCFEAD EQU ISTATCVT+768 02355000 ATCPTR00 EQU ISTATCVT+736 02356000 ATCRSV10 EQU ISTATCVT+704 02357000 ATCTACB EQU ISTATCVT+700 02358000 ATCVTINM EQU ISTATCVT+696 02359000 ATCTCLIM EQU ISTATCVT+692 02360000 ATCTCLOM EQU ISTATCVT+688 02361000 ATCVTIPB EQU ISTATCVT+656 02362000 ATCTCIPB EQU ISTATCVT+624 02363000 ATCTIPAB EQU ISTATCVT+592 02364000 ATCOCCCB EQU ISTATCVT+588 02365000 ATCOCCOB EQU ISTATCVT+584 02366000 ATCCDLAD EQU ISTATCVT+580 02367000 ATCCCLAD EQU ISTATCVT+576 02368000 ATCDLRPB EQU ISTATCVT+544 02369000 ATCPGPAB EQU ISTATCVT+512 02370000 ATCVPAB1 EQU ISTATCVT+480 02371000 ATCRSV97 EQU ISTATCVT+476 02372000 ATCRDTLK EQU ISTATCVT+472 02373000 ATCVOCLK EQU ISTATCVT+468 02374000 ATCCDFDN EQU ISTATCVT+464 02375000 ATCCDFIN EQU ISTATCVT+460 02376000 ATCDVTLK EQU ISTATCVT+456 02377000 ATCAP36 EQU ISTATCVT+452 02378000 ATCAP35 EQU ISTATCVT+448 02379000 ATCAP33 EQU ISTATCVT+444 02380000 ATCRSV99 EQU ISTATCVT+440 02381000 ATCONFIG EQU ISTATCVT+432 02382000 ATCNODDS EQU ISTATCVT+428 02383000 ATCNODEL EQU ISTATCVT+420 02384000 ATCRSV69 EQU ISTATCVT+416 02385000 ATCAPCR5 EQU ISTATCVT+412 02386000 ATCLDECB EQU ISTATCVT+408 02387000 ATCLDNCS EQU ISTATCVT+404 02388000 ATCCDPTR EQU ISTATCVT+400 02389000 ATCADEL EQU ISTATCVT+396 02390000 ATCTODVT EQU ISTATCVT+392 02391000 ATCDEBCH EQU ISTATCVT+388 02392000 ATCHBSIZ EQU ATCHPGM+2 02393000 ATCHBFNO EQU ATCHPGM 02394000 ATCCRME EQU ISTATCVT+380 02395000 ATCRVCHS EQU ISTATCVT+372 02396000 ATCECTLP EQU ISTATCVT+368 02397000 ATCZDVTB EQU ISTATCVT+364 02398000 ATCECPRT EQU ISTATCVT+360 02399000 ATCVTLOD EQU ISTATCVT+356 02400000 ATCTRPAB EQU ISTATCVT+352 02401000 ATCMSGM EQU ISTATCVT+348 02402000 ATCMSGP EQU ISTATCVT+344 02403000 ATCEPT EQU ISTATCVT+340 02404000 ATCDVT EQU ISTATCVT+336 02405000 ATCTRCPT EQU ISTATCVT+332 02406000 ATCDVLOD EQU ISTATCVT+328 02407000 ATCALERT EQU ISTATCVT+324 02408000 ATCEPA EQU ISTATCVT+320 02409000 ATCSAF EQU ISTATCVT+318 02410000 ATCXRANG EQU ISTATCVT+317 02411000 ATCLAST EQU ATCSHRFG 02412000 ATCSHRTN EQU ISTATCVT+308 02413000 ATCUEP EQU ISTATCVT+304 02414000 ATCOCRT EQU ISTATCVT+300 02415000 ATCCSMA EQU ATCCSMR 02416000 ATCESC02 EQU ISTATCVT+292 02417000 ATCESC01 EQU ISTATCVT+288 02418000 ATCCDFND EQU ISTATCVT+284 02419000 ATCCDDEL EQU ISTATCVT+280 02420000 ATCCDADD EQU ISTATCVT+276 02421000 ATCMNT EQU ISTATCVT+272 02422000 ATCRSV16 EQU ISTATCVT+270 02423000 ATCMAXID EQU ISTATCVT+269 02424000 ATCMSGSP EQU ATCCOM+268 02425000 ATCCIDM EQU ATCCOM+266 02426000 ATCACTRM EQU ATCCOM+264 02427000 ATCNERAP EQU ATCCOM+260 02428000 ATCNESAL EQU ATCCOM+256 02429000 ATCRCC65 EQU ATCCOM+252 02430000 ATCRCC26 EQU ATCCOM+248 02431000 ATCRCC63 EQU ATCCOM+244 02432000 ATCRSV11 EQU ATCCOM+242 02433000 ATCVTMID EQU ATCCOM+240 02434000 ATCAPOST EQU ATCCOM+236 02435000 ATCNERFN EQU ATCCOM+232 02436000 ATCNERNE EQU ATCCOM+228 02437000 ATCNERCV EQU ATCCOM+224 02438000 ATCNERST EQU ATCCOM+220 02439000 ATCDCC61 EQU ATCCOM+216 02440000 ATCDCC60 EQU ATCCOM+212 02441000 ATCSRTDF EQU ATCCOM+208 02442000 ATCSRTAD EQU ATCCOM+204 02443000 ATCFIRA EQU ATCCOM+200 02444000 ATCSMBQ EQU ATCCOM+196 02445000 ATCSMRC EQU ATCCOM+192 02446000 ATCSMQU EQU ATCCOM+184 02447000 ATCACDA EQU ATCCOM+176 02448000 ATCSTMA EQU ATCCOM+172 02449000 ATCFRSTR EQU ATCCOM+168 02450000 ATCGTSTR EQU ATCCOM+164 02451000 ATCREADA EQU ATCCOM+160 02452000 ATCALOAD EQU ATCCOM+156 02453000 ATCBLDLA EQU ATCCOM+152 02454000 ATCFBRPH EQU ATCCOM+148 02455000 ATCBFTRC EQU ATCCOM+144 02456000 ATCTPBUF EQU ATCTHTRC 02457000 ATCREMOV EQU ATCCOM+136 02458000 ATCADD EQU ATCCOM+132 02459000 ATCDVTPT EQU ATCCOM+124 02460000 ATCFEPT EQU ATCCOM+120 02461000 ATCFDVT EQU ATCCOM+116 02462000 ATCCONFT EQU ATCCOM+112 02463000 ATCPTCHA EQU ATCCOM+108 02464000 ATCAUTHA EQU ATCCOM+104 02465000 ATCACCTA EQU ATCCOM+100 02466000 ATCRDTH EQU ATCCOM+96 02467000 ATCFRSCH EQU ATCCOM+92 02468000 ATCFSB EQU ATCCOM+88 02469000 ATCHLTMS EQU ATCCOM+84 02470000 ATCECPRM EQU ATCCOM+80 02471000 ATCECNET EQU ATCCOM+76 02472000 ATCECOPC EQU ATCCOM+72 02473000 ATCVPARM EQU ATCCOM+68 02474000 ATCECVRQ EQU ATCCOM+64 02475000 ATCECSES EQU ATCCOM+60 02476000 ATCOCHA EQU ATCCOM+56 02477000 ATCDSPLQ EQU ATCCOM+52 02478000 ATCECDSP EQU ATCCOM+48 02479000 ATCVARYQ EQU ATCCOM+44 02480000 ATCECVRY EQU ATCCOM+40 02481000 ATCHALTQ EQU ATCCOM+36 02482000 ATCECHLT EQU ATCCOM+32 02483000 ATCMODQ EQU ATCCOM+28 02484000 ATCECMOD EQU ATCCOM+24 02485000 ATCASCHD EQU ATCCOM+20 02486000 ATCSRT EQU ATCCOM+16 02487000 ATCRDT EQU ATCCOM+12 02488000 ATCDCFRR EQU ATCCOM+8 02489000 ATCAPI EQU ATCCOM+4 02490000 ATCRSV04 EQU ATCSTAT4 02491000 ATCVTTRC EQU ATCSTAT4 02492000 ATCNCSD EQU ATCSTAT4 02493000 ATCMTST EQU ATCSTAT4 02494000 ATCTPRT EQU ATCSTAT4 02495000 ATCPRTAT EQU ATCSTAT4 02496000 @NM00050 EQU ATCPOFLG 02497000 ATCPOUNS EQU ATCPOFLG 02498000 ATCHSDMF EQU ATCSTFLG 02499000 @NM00049 EQU ATCSTAT1 02500000 ATCMDHLT EQU ATCSTAT1 02501000 ATCINHLT EQU ATCSTAT1 02502000 ATCNETSL EQU ATCSTAT1 02503000 ATCQKHLT EQU ATCSTAT1 02504000 ATCSNHLT EQU ATCSTAT1 02505000 ATCACTIV EQU ATCSTAT1 02506000 ATCSTART EQU ATCSTAT1 02507000 DYPPAB EQU ISTDYPAB+16 02508000 DYPRSV01 EQU ISTDYPAB+12 02509000 DYPTSKID EQU ISTDYPAB+8 02510000 DYPCHAIN EQU ISTDYPAB+4 02511000 DYPFLGS EQU ISTDYPAB+2 02512000 DYPLNGTH EQU ISTDYPAB+1 02513000 DYPTYPE EQU ISTDYPAB 02514000 ZCRRU EQU ZCRRHRU+3 02515000 ZCRRH EQU ZCRRHRU 02516000 ZCRWORDA EQU ISTZCRR+477 02517000 ZCRCMNRC EQU ISTZCRR+476 02518000 ZCRRSV97 EQU ZCRENTER+18 02519000 ZCREIC2B EQU ZCRENTER+18 02520000 ZCREAC2B EQU ZCRENTER+18 02521000 ZCRELCAB EQU ZCRENTER+18 02522000 ZCREDCMF EQU ZCRENTER+18 02523000 ZCREBCIF EQU ZCRENTER+18 02524000 ZCREICSG EQU ZCRENTER+18 02525000 ZCREDCK0 EQU ZCRENTER+18 02526000 ZCRECFY0 EQU ZCRENTER+17 02527000 ZCREKCCB EQU ZCRENTER+17 02528000 ZCREDCNB EQU ZCRENTER+17 02529000 ZCREICOE EQU ZCRENTER+17 02530000 ZCREBCNB EQU ZCRENTER+17 02531000 ZCREBC0L EQU ZCRENTER+17 02532000 ZCREBCAL EQU ZCRENTER+17 02533000 ZCREDCQR EQU ZCRENTER+17 02534000 ZCREDCPR EQU ZCRENTER+16 02535000 ZCREBCSB EQU ZCRENTER+16 02536000 ZCREAC1R EQU ZCRENTER+16 02537000 ZCRECCCI EQU ZCRENTER+16 02538000 ZCRECCAI EQU ZCRENTER+16 02539000 ZCRECCBI EQU ZCRENTER+16 02540000 ZCREBCAR EQU ZCRENTER+16 02541000 ZCREBCDR EQU ZCRENTER+16 02542000 ZCREBCBR EQU ZCRENTER+15 02543000 ZCREDCXR EQU ZCRENTER+15 02544000 ZCREDCWB EQU ZCRENTER+15 02545000 ZCREDCWR EQU ZCRENTER+15 02546000 ZCREKCCN EQU ZCRENTER+15 02547000 ZCREKCBN EQU ZCRENTER+15 02548000 ZCREKCBB EQU ZCRENTER+15 02549000 ZCREJC0B EQU ZCRENTER+15 02550000 ZCREJCDB EQU ZCRENTER+14 02551000 ZCREJCCB EQU ZCRENTER+14 02552000 ZCREJCBB EQU ZCRENTER+14 02553000 ZCREJCAB EQU ZCRENTER+14 02554000 ZCREIC1B EQU ZCRENTER+14 02555000 ZCREIC0B EQU ZCRENTER+14 02556000 ZCREICX0 EQU ZCRENTER+14 02557000 ZCREICWB EQU ZCRENTER+14 02558000 ZCREICVB EQU ZCRENTER+13 02559000 ZCREICUB EQU ZCRENTER+13 02560000 ZCREICTB EQU ZCRENTER+13 02561000 ZCREICSC EQU ZCRENTER+13 02562000 ZCREICSB EQU ZCRENTER+13 02563000 ZCREICRB EQU ZCRENTER+13 02564000 ZCREICQB EQU ZCRENTER+13 02565000 ZCREICQA EQU ZCRENTER+13 02566000 ZCREICOB EQU ZCRENTER+12 02567000 ZCREICOA EQU ZCRENTER+12 02568000 ZCREICNB EQU ZCRENTER+12 02569000 ZCREICNA EQU ZCRENTER+12 02570000 ZCREICMB EQU ZCRENTER+12 02571000 ZCREICLB EQU ZCRENTER+12 02572000 ZCREICKG EQU ZCRENTER+12 02573000 ZCREICKE EQU ZCRENTER+12 02574000 ZCREICKB EQU ZCRENTER+11 02575000 ZCREICJB EQU ZCRENTER+11 02576000 ZCREICID EQU ZCRENTER+11 02577000 ZCREICIB EQU ZCRENTER+11 02578000 ZCREICHB EQU ZCRENTER+11 02579000 ZCREICGB EQU ZCRENTER+11 02580000 ZCREICEB EQU ZCRENTER+11 02581000 ZCREICDB EQU ZCRENTER+11 02582000 ZCREICCI EQU ZCRENTER+10 02583000 ZCREICCB EQU ZCRENTER+10 02584000 ZCREICBI EQU ZCRENTER+10 02585000 ZCREICBB EQU ZCRENTER+10 02586000 ZCREICAB EQU ZCRENTER+10 02587000 ZCREICAA EQU ZCRENTER+10 02588000 ZCREHCAN EQU ZCRENTER+10 02589000 ZCREGC0B EQU ZCRENTER+10 02590000 ZCREGC0A EQU ZCRENTER+9 02591000 ZCREGCLA EQU ZCRENTER+9 02592000 ZCREGCEB EQU ZCRENTER+9 02593000 ZCREGCDB EQU ZCRENTER+9 02594000 @NM00048 EQU ZCRENTER+9 02595000 ZCREGCBB EQU ZCRENTER+9 02596000 ZCREGCAB EQU ZCRENTER+9 02597000 ZCREFCEB EQU ZCRENTER+9 02598000 ZCREFCEA EQU ZCRENTER+8 02599000 ZCREECTA EQU ZCRENTER+8 02600000 ZCREECEA EQU ZCRENTER+8 02601000 ZCREECDA EQU ZCRENTER+8 02602000 ZCREECCB EQU ZCRENTER+8 02603000 ZCREECCA EQU ZCRENTER+8 02604000 ZCREECBB EQU ZCRENTER+8 02605000 ZCREECBA EQU ZCRENTER+8 02606000 ZCREDCMB EQU ZCRENTER+7 02607000 ZCREDCL0 EQU ZCRENTER+7 02608000 ZCREDCKB EQU ZCRENTER+7 02609000 ZCREDCKA EQU ZCRENTER+7 02610000 ZCREDCJ0 EQU ZCRENTER+7 02611000 ZCREDCI0 EQU ZCRENTER+7 02612000 ZCREDCH0 EQU ZCRENTER+7 02613000 ZCREDCF0 EQU ZCRENTER+7 02614000 ZCREDCE0 EQU ZCRENTER+6 02615000 ZCREDCD0 EQU ZCRENTER+6 02616000 ZCREDCC0 EQU ZCRENTER+6 02617000 ZCREDCB0 EQU ZCRENTER+6 02618000 ZCREDCA0 EQU ZCRENTER+6 02619000 ZCRECC2B EQU ZCRENTER+6 02620000 ZCRECC1B EQU ZCRENTER+6 02621000 ZCRECC1A EQU ZCRENTER+6 02622000 ZCRECC0B EQU ZCRENTER+5 02623000 ZCRECC0A EQU ZCRENTER+5 02624000 ZCREBC0B EQU ZCRENTER+5 02625000 ZCREBC0A EQU ZCRENTER+5 02626000 ZCREBCZ0 EQU ZCRENTER+5 02627000 ZCREBCY0 EQU ZCRENTER+5 02628000 ZCREBCX0 EQU ZCRENTER+5 02629000 ZCREBCXA EQU ZCRENTER+5 02630000 ZCREBCSC EQU ZCRENTER+4 02631000 ZCREBCRB EQU ZCRENTER+4 02632000 ZCREBCRA EQU ZCRENTER+4 02633000 ZCREBCQB EQU ZCRENTER+4 02634000 ZCREBCPB EQU ZCRENTER+4 02635000 ZCREBCOB EQU ZCRENTER+4 02636000 ZCREBCNE EQU ZCRENTER+4 02637000 ZCREBCND EQU ZCRENTER+4 02638000 ZCREBCMB EQU ZCRENTER+3 02639000 ZCREBCLB EQU ZCRENTER+3 02640000 ZCREBCLA EQU ZCRENTER+3 02641000 ZCREBCKB EQU ZCRENTER+3 02642000 ZCREBCKA EQU ZCRENTER+3 02643000 ZCREBCJB EQU ZCRENTER+3 02644000 ZCREBCJA EQU ZCRENTER+3 02645000 ZCREBCID EQU ZCRENTER+3 02646000 ZCREBCIB EQU ZCRENTER+2 02647000 ZCREBCIA EQU ZCRENTER+2 02648000 ZCREBCHB EQU ZCRENTER+2 02649000 ZCREBCHA EQU ZCRENTER+2 02650000 ZCREBCGB EQU ZCRENTER+2 02651000 ZCREBCGA EQU ZCRENTER+2 02652000 ZCREBCFB EQU ZCRENTER+2 02653000 ZCREBCFA EQU ZCRENTER+2 02654000 ZCREBCEB EQU ZCRENTER+1 02655000 ZCREBCDI EQU ZCRENTER+1 02656000 ZCREBCCB EQU ZCRENTER+1 02657000 ZCREBCBI EQU ZCRENTER+1 02658000 ZCREBCBB EQU ZCRENTER+1 02659000 ZCREBCBA EQU ZCRENTER+1 02660000 ZCREBCAM EQU ZCRENTER+1 02661000 ZCREBCAI EQU ZCRENTER+1 02662000 ZCREBCAG EQU ZCRENTER 02663000 ZCREBCAE EQU ZCRENTER 02664000 ZCREBCAB EQU ZCRENTER 02665000 ZCREBCAA EQU ZCRENTER 02666000 ZCREAC1B EQU ZCRENTER 02667000 ZCREAC0B EQU ZCRENTER 02668000 ZCREAC0A EQU ZCRENTER 02669000 ZCREAC1A EQU ZCRENTER 02670000 ZCRTNAME EQU ZCRAUDIT+1 02671000 ZCRTID EQU ZCRAUDIT 02672000 ZCRREMIC EQU ISTZCRR+436 02673000 ZCRSAVEZ EQU ISTZCRR+196 02674000 ZCRDAFSV EQU ZCRCIDSV+2 02675000 ZCRSAFSV EQU ZCRCIDSV 02676000 ZCRR13SV EQU ISTZCRR+188 02677000 ZCRR2SV EQU ISTZCRR+184 02678000 ZCROPCDE EQU ISTZCRR+183 02679000 ZCRPRMTC EQU ISTZCRR+182 02680000 ZCRRCDSV EQU ISTZCRR+181 02681000 ZCRAWQSW EQU ISTZCRR+180 02682000 ZCRTOPQ EQU ISTZCRR+180 02683000 ZCRLSTFB EQU ISTZCRR+180 02684000 ZCRXSCHD EQU ISTZCRR+180 02685000 ZCRNXTEL EQU ISTZCRR+180 02686000 ZCRSCANQ EQU ISTZCRR+180 02687000 ZCRMOREL EQU ISTZCRR+180 02688000 ZCRFBPRC EQU ISTZCRR+180 02689000 ZCRFSBSV EQU ISTZCRR+176 02690000 ZCRSVWK5 EQU ZCRWKARA+16 02691000 ZCRSVWK4 EQU ZCRWKARA+12 02692000 ZCRSVWK3 EQU ZCRWKARA+8 02693000 ZCRSVWK2 EQU ZCRWKARA+4 02694000 ZCRSVWK1 EQU ZCRWKARA 02695000 ZCRSVF25 EQU ZCRSVRTN+96 02696000 ZCRSVF24 EQU ZCRSVRTN+92 02697000 ZCRSVF23 EQU ZCRSVRTN+88 02698000 ZCRSVF22 EQU ZCRSVRTN+84 02699000 ZCRSVF21 EQU ZCRSVRTN+80 02700000 ZCRSVF20 EQU ZCRSVRTN+76 02701000 ZCRSVF19 EQU ZCRSVRTN+72 02702000 ZCRSVF18 EQU ZCRSVRTN+68 02703000 ZCRSVF17 EQU ZCRSVRTN+64 02704000 ZCRSVF16 EQU ZCRSVRTN+60 02705000 ZCRSVF15 EQU ZCRSVRTN+56 02706000 ZCRSVF14 EQU ZCRSVRTN+52 02707000 ZCRSVF13 EQU ZCRSVRTN+48 02708000 ZCRSVF12 EQU ZCRSVRTN+44 02709000 ZCRSVF11 EQU ZCRSVRTN+40 02710000 ZCRSVF10 EQU ZCRSVRTN+36 02711000 ZCRSVF9 EQU ZCRSVRTN+32 02712000 ZCRSVF8 EQU ZCRSVRTN+28 02713000 ZCRSVF7 EQU ZCRSVRTN+24 02714000 ZCRSVF6 EQU ZCRSVRTN+20 02715000 ZCRSVF5 EQU ZCRSVRTN+16 02716000 ZCRSVF4 EQU ZCRSVRTN+12 02717000 ZCRSVF3 EQU ZCRSVRTN+8 02718000 ZCRSVF2 EQU ZCRSVRTN+4 02719000 ZCRSVF1 EQU ZCRSVRTN 02720000 ZCRPVZB EQU ISTZCRR+52 02721000 ZCRZLB EQU ISTZCRR+48 02722000 ZCRBFPTR EQU ISTZCRR+44 02723000 ZCRCCWA EQU ISTZCRR+40 02724000 ZCRPSW EQU ZCRPARMS+15 02725000 ZCRPCHAR EQU ZCRPARMS+14 02726000 ZCRPRES2 EQU ZCRPCOD2 02727000 ZCRPMFGF EQU ZCRPCOD2 02728000 ZCRPFHDR EQU ZCRPCOD2 02729000 ZCRPPG2 EQU ZCRPCOD2 02730000 ZCRPRES EQU ZCRPCOD1 02731000 ZCRPCFTX EQU ZCRPCOD1 02732000 ZCRPBUF EQU ZCRPCOD1 02733000 ZCRPLSCB EQU ZCRPCOD1 02734000 ZCRPLSBQ EQU ZCRPLSBF 02735000 ZCRPFSB EQU ZCRPCOD1 02736000 ZCRPLNG EQU ZCRPCOD1 02737000 ZCRPPG EQU ZCRPCOD1 02738000 ZCRDTODA EQU ZCRDFRDA 02739000 ZCRMLNG EQU ZCRPARMS+8 02740000 ZCRTBPTR EQU ZCRPARMS+4 02741000 ZCRCBPTR EQU ZCRFBPTR 02742000 ZCRCRLCP EQU ISTZCRR+20 02743000 @NM00047 EQU ZCRSCPSW 02744000 ZCRSKIPT EQU ZCRSCPSW 02745000 ZCRFSBWE EQU ZCRSCPSW 02746000 ZCRPRCMP EQU ZCRSCPSW 02747000 ZCRLREQ EQU ZCRSCPSW 02748000 ZCRRJLCP EQU ZCRSCPSW 02749000 ZCRTPINV EQU ZCRSCPSW 02750000 ZCRTPEX EQU ZCRSCPSW 02751000 @NM00046 EQU ZCRIBPR 02752000 ZCR3270R EQU ZCRIBPR 02753000 ZCR3270 EQU ZCRIBPR 02754000 ZCRLCPFD EQU ZCRIBPR 02755000 ZCRLCPFR EQU ZCRIBPR 02756000 ZCRRELK EQU ZCRIBPR 02757000 ZCRERR EQU ZCRIBPR 02758000 ZCRNOBUF EQU ZCRIBPR 02759000 @NM00045 EQU ZCRPFLGS 02760000 ZCRQAHED EQU ZCRPFLGS 02761000 ZCRF1RES EQU ZCRGENSW 02762000 ZCRBRIS EQU ZCRGENSW 02763000 ZCRCLRBD EQU ZCRGENSW 02764000 ZCREXRES EQU ZCRGENSW 02765000 ZCRLCSYN EQU ZCRGENSW 02766000 ZCRRT06 EQU ZCRGENSW 02767000 ZCRTSW2 EQU ZCRGENSW 02768000 ZCRTSW1 EQU ZCRGENSW 02769000 ZCRINLCP EQU ZCRFLGS3 02770000 ZCRWRPTR EQU ZCRFLGS3 02771000 ZCRNOFRE EQU ZCRFLGS3 02772000 ZCREDRIV EQU ZCRFLGS3 02773000 ZCRDISC EQU ZCRFLGS3 02774000 ZCRTPDIS EQU ZCRFLGS3 02775000 ZCRTPCON EQU ZCRFLGS3 02776000 ZCRTIC EQU ZCRFLGS3 02777000 ZCRCNLXL EQU ZCRRESET 02778000 ZCRENDAN EQU ZCRSWFLD 02779000 ZCRENDXL EQU ZCRSWFLD 02780000 ZCRENDX EQU ZCRSWFLD 02781000 ZCROB1 EQU ZCRNDLCP 02782000 ZCRENDPR EQU ZCRSWFLD 02783000 ZCREXTYP EQU ZCRSWFLD 02784000 ZCRSLCP EQU ZCRENDSH 02785000 ZCRIF0E3 EQU ZCRFLGS2 02786000 ZCRIF0E2 EQU ZCRFLGS2 02787000 ZCRIF0E1 EQU ZCRFLGS2 02788000 ZCROB EQU ZCRFLGS2 02789000 ZCRFMSED EQU ZCRFLGS2 02790000 ZCRSHEDI EQU ZCRFLGS2 02791000 ZCRLOCAL EQU ZCRFLGS2 02792000 ZCRFEXIT EQU ZCRFLGS1 02793000 ZCRUNSOL EQU ZCRFLGS1 02794000 ZCRENDLP EQU ZCRFLGS1 02795000 ZCRNRMEX EQU ZCRFLGS1 02796000 ZCRWAIT EQU ZCRFLGS1 02797000 ZCRDEQSW EQU ZCRFLGS1 02798000 ZCRQUESW EQU ZCRFLGS1 02799000 ZCREXSW EQU ZCRFLGS1 02800000 ZCRFRRA EQU ISTZCRR+8 02801000 ZCRCHAIN EQU ISTZCRR+4 02802000 ZCRFLAG EQU ZCRCRR+3 02803000 ZCRLEN EQU ZCRCRR+1 02804000 ZCRID EQU ZCRCRR 02805000 LCPFTYPE EQU LCPRPHA 02806000 LCPRSTQH EQU LCPLCCW 02807000 LCPCLREP EQU ISTLCPB+44 02808000 LCPUBFSB EQU LCPFLCCW 02809000 LCPRSV77 EQU ISTLCPB+39 02810000 LCPLCCWC EQU ISTLCPB+38 02811000 LCPRSV78 EQU LCPFLG1 02812000 LCPTRANS EQU LCPFLG1 02813000 LCPSTLB EQU LCPFLG1 02814000 LCPREDRV EQU LCPFLG1 02815000 LCPDIRPT EQU LCPFLG1 02816000 LCPINTER EQU LCPFLG1 02817000 LCPRESET EQU LCPFLG1 02818000 LCPSTYPE EQU ISTLCPB+36 02819000 LCPFSNCH EQU ISTLCPB+34 02820000 LCPFOSN EQU ISTLCPB+32 02821000 LCPTLBAD EQU ISTLCPB+28 02822000 LCPFDB2 EQU LCPFDBA+1 02823000 LCPFDB1 EQU LCPFDBA 02824000 LCPNXLCW EQU ISTLCPB+20 02825000 LCPDAF EQU LCPCID+2 02826000 LCPSAF EQU LCPCID 02827000 LCPLCCW1 EQU ISTLCPB+12 02828000 LCPRRCNT EQU LCPSEQ+1 02829000 LCPRRCCT EQU LCPSEQ 02830000 LCPATOP EQU LCPFLAG2 02831000 LCPFREE EQU LCPFLAG2 02832000 LCPDSTAT EQU LCPFLAG2 02833000 LCPEXRES EQU LCPFID0 02834000 LCPZRIMM EQU LCPTLBPI 02835000 LCPRSTRT EQU LCPFLAG2 02836000 LCPASYN EQU LCPFLAG2 02837000 LCPPRFLG EQU LCPFLAG2 02838000 LCPZMIRC EQU LCPRUCNT 02839000 LCPCHAI2 EQU LCPCHAIN+1 02840000 LCPCHNG EQU LCPCHAI1 02841000 LCPZRT0B EQU LCPMNRCD 02842000 LCPZRT0A EQU LCPMNRCD 02843000 LCPZRTL9 EQU LCPZRT09 02844000 LCPZRTL8 EQU LCPZRT08 02845000 LCPZRTL7 EQU LCPZRT07 02846000 LCPZRTL6 EQU LCPZRT06 02847000 LCPZRTL5 EQU LCPZRT05 02848000 LCPZRTL4 EQU LCPZRT04 02849000 LCPZRTL3 EQU LCPZRT03 02850000 LCPZRTL2 EQU LCPZRT02 02851000 LCPZRT01 EQU LCPFLAGS 02852000 LCPZRT00 EQU LCPFLAGS 02853000 LCPLNGTH EQU ISTLCPB+1 02854000 LCPTYPE EQU ISTLCPB 02855000 LCCWDATA EQU ISTLCCW+4 02856000 LCCWCNT EQU ISTLCCW+2 02857000 LCCWACI EQU LCCWFLAG 02858000 LCCWRFI EQU LCCWFLAG 02859000 LCCWPER EQU LCCWLSI 02860000 LCCWIDAT EQU LCCWFLAG 02861000 LCCWNTVC EQU LCCWFLAG 02862000 LCCWCKPT EQU LCCWFLAG 02863000 LCCWCC EQU LCCWFLAG 02864000 LCCWCD EQU LCCWFLAG 02865000 LCCWTYPE EQU LCCWCTL 02866000 LCCWMODE EQU LCCWCTL 02867000 LCCWSOP EQU LCCWRWOP 02868000 @NM00044 EQU LCCWRWOP 02869000 LCCWSD EQU LCCWOP 02870000 LCCWSI EQU LCCWOP 02871000 NIRRU EQU ISTNIR+3 02872000 RHRSVD5 EQU RH3 02873000 RHRSVD4 EQU RH3 02874000 RHLOG EQU RH3 02875000 RHRSVD3 EQU RH3 02876000 RHRCDIR EQU RH3 02877000 RHCDIR EQU RH3 02878000 RHEB EQU RH3 02879000 RHBB EQU RH3 02880000 RHPACE EQU RH2 02881000 RHRSVD2 EQU RH2 02882000 RHINOP EQU RHRSVD1 02883000 RHBUSY EQU RHRETRY 02884000 RHEXCEPT EQU RH2 02885000 RHRRN EQU RH2 02886000 RHPE EQU RH2 02887000 RHFME EQU RH2 02888000 RHCHAIN EQU RH1 02889000 RHSENSE EQU RH1 02890000 RHFORMAT EQU RH1 02891000 RHDIRI EQU RH1 02892000 RHSCI EQU RH1 02893000 RHTYPE EQU RH1 02894000 RHQS EQU RH1 02895000 ZIBLNG1 EQU ZIBFSM 02896000 FSBFDB EQU ISTFSB+32 02897000 FSBRSV01 EQU FSBFSB+30 02898000 FSBTHCNT EQU FSBFSB+28 02899000 FSBRLRSV EQU FSBRLSTS 02900000 FSBCFTX EQU FSBRLSTS 02901000 FSBICNCB EQU FSBMSGID 02902000 FSBSSOC EQU FSBSS2 02903000 FSBSSCC EQU FSBSS2 02904000 FSBSSDC EQU FSBSS2 02905000 FSBSSEC EQU FSBSS2 02906000 FSBSSIR EQU FSBSS2 02907000 FSBSSCR EQU FSBSS2 02908000 @NM00037 EQU FSBSS2 02909000 @NM00036 EQU FSBSS1 02910000 FSBSSDE EQU FSBSS1 02911000 FSBSSUS EQU FSBSS1 02912000 @NM00035 EQU FSBSS1 02913000 FSBSOHI EQU FSBERC 02914000 FSBLGI EQU FSBERC 02915000 FSBLMRI EQU FSBFBMI 02916000 FSBETI EQU FSBERC 02917000 FSBEMI EQU FSBERC 02918000 FSBEBI EQU FSBERC 02919000 FSBECI EQU FSBERC 02920000 FSBELI EQU FSBERC 02921000 FSBMJRCD EQU FSBSRCAT 02922000 FSBXLCI EQU FSBXCODE 02923000 FSBXFINS EQU FSBXCODE 02924000 FSBXNORM EQU FSBXFSTS 02925000 FSBSCODE EQU FSBSYSRS 02926000 FSBSPHSE EQU FSBSYSRS 02927000 FSBSERR EQU FSBSYSRS 02928000 FSBCMD EQU FSBSEQ 02929000 FSBDTRCE EQU FSBFLAGS 02930000 FSBASBTU EQU FSBFLAGS 02931000 FSBINPET EQU FSBFLAGS 02932000 FSBNONCB EQU FSBFLAGS 02933000 FSBLBIND EQU FSBFLAGS 02934000 FSBFFIND EQU FSBFLAGS 02935000 FSBACIND EQU FSBFLAGS 02936000 FSBRFIND EQU FSBFLAGS 02937000 FSBDAF EQU FSBCID+2 02938000 FSBSAF EQU FSBCID 02939000 FSBGATE EQU FSBFSBA 02940000 FSBRSV02 EQU FSBSFLGS 02941000 FSBPGBUF EQU FSBSFLGS 02942000 FSBMNSDA EQU FSBMNRCD 02943000 FSBMNOA EQU FSBMNRCD 02944000 FSBMNDIF EQU FSBMNRCD 02945000 FSBMNEOP EQU FSBMNRCD 02946000 FSBMNDNU EQU FSBMNRCD 02947000 FSBMNATN EQU FSBMNRCD 02948000 FSBMNRVI EQU FSBMNRCD 02949000 FSBMNELI EQU FSBMNRCD 02950000 FSBLNGTH EQU FSBFSB+1 02951000 FSBTYPE EQU FSBFSB 02952000 ICNZCON6 EQU ICNZCONS+10 02953000 ICNZCON5 EQU ICNZCONS+8 02954000 ICNZCON4 EQU ICNZCONS+6 02955000 ICNZCON2 EQU ICNZCONS+2 02956000 ICNZCON1 EQU ICNZCONS 02957000 ICNZATSA EQU ISTICNCB+676 02958000 ICNZX012 EQU ISTICNCB+675 02959000 ICNZX011 EQU ISTICNCB+674 02960000 ICNZX010 EQU ISTICNCB+672 02961000 ICNZC001 EQU ISTICNCB+512 02962000 ICNZX013 EQU ISTICNCB+511 02963000 ICNZS010 EQU ICNZH002+1 02964000 ICNZS00F EQU ICNZH002+1 02965000 ICNZS00E EQU ICNZH002+1 02966000 ICNZS00D EQU ICNZH002+1 02967000 ICNZS00C EQU ICNZH002+1 02968000 ICNZS00B EQU ICNZH002+1 02969000 ICNZS01A EQU ICNZS00A 02970000 ICNZS019 EQU ICNZS009 02971000 ICNZS018 EQU ICNZS008 02972000 ICNZS017 EQU ICNZS007 02973000 ICNZS016 EQU ICNZS006 02974000 ICNZS005 EQU ICNZH002 02975000 ICNZS014 EQU ICNZS004 02976000 ICNZS013 EQU ICNZS003 02977000 ICNZS012 EQU ICNZS002 02978000 ICNZS001 EQU ICNZH002 02979000 ICNZF028 EQU ICNZFLAG 02980000 ICNZF027 EQU ICNZFLAG 02981000 ICNZF026 EQU ICNZFLAG 02982000 ICNZF025 EQU ICNZFLAG 02983000 ICNZF024 EQU ICNZFLAG 02984000 ICNZF023 EQU ICNZFLAG 02985000 ICNZF022 EQU ICNZFLAG 02986000 ICNZF021 EQU ICNZFLAG 02987000 ICNWORD5 EQU ISTICNCB+504 02988000 ICNMSIZE EQU ISTICNCB+500 02989000 ICNLCVTA EQU ISTICNCB+496 02990000 ICNDEBAD EQU ICNDIDEB+1 02991000 ICNDCBIF EQU ICNDIDEB 02992000 ICNUCBAD EQU ICNDCDEB+8 02993000 ICNAPPAD EQU ICNDCDEB+5 02994000 ICNEXSCL EQU ICNDCDEB+4 02995000 ICNDCBAD EQU ICNDCDEB+1 02996000 ICNDEBID EQU ICNDCDEB 02997000 @NM00034 EQU ISTICNCB+477 02998000 ICNERCNT EQU ISTICNCB+476 02999000 ICNZX002 EQU ISTICNCB+475 03000000 ICNZX001 EQU ISTICNCB+474 03001000 ICNZH001 EQU ISTICNCB+472 03002000 ICNZSW3R EQU ISTICNCB+468 03003000 ICNZSW2R EQU ISTICNCB+464 03004000 ICNZS4VR EQU ISTICNCB+436 03005000 ICNZS4RR EQU ISTICNCB+432 03006000 ICNZS4FC EQU ISTICNCB+428 03007000 ICNZS4BC EQU ISTICNCB+424 03008000 ICNZS3VR EQU ISTICNCB+400 03009000 ICNZS3RR EQU ISTICNCB+396 03010000 ICNZS3FC EQU ISTICNCB+392 03011000 ICNZS3BC EQU ISTICNCB+388 03012000 ICNZS1RC EQU ICNZS1VR+36 03013000 ICNDIEW3 EQU ICNDIEWA+8 03014000 ICNDIEW2 EQU ICNDIEWA+4 03015000 ICNDIEW1 EQU ICNDIEWA 03016000 ICNZS1RR EQU ISTICNCB+344 03017000 ICNZS1FC EQU ISTICNCB+340 03018000 ICNZS1BC EQU ISTICNCB+336 03019000 ICNRSTIC EQU ICNZD004 03020000 ICNRDCOD EQU ICNRSCCW 03021000 ICNWSTIC EQU ICNZD002 03022000 ICNZV008 EQU ISTICNCB+284 03023000 ICNZV006 EQU ISTICNCB+276 03024000 ICNZV004 EQU ISTICNCB+268 03025000 ICNZV002 EQU ISTICNCB+256 03026000 ICNNICNA EQU ISTICNCB+240 03027000 @NM00033 EQU ICNFLAG2+2 03028000 ICNZF019 EQU ICNFLAG2+2 03029000 ICNZF018 EQU ICNFLAG2+2 03030000 ICNZF017 EQU ICNFLAG2+2 03031000 ICNZF016 EQU ICNFLAG2+2 03032000 ICNZF015 EQU ICNFLAG2+2 03033000 ICNMSG EQU ICNFLAG2+1 03034000 ICNZF014 EQU ICNFLAG2+1 03035000 ICNZF012 EQU ICNFLAG2+1 03036000 ICNZF011 EQU ICNFLAG2+1 03037000 ICNZF00B EQU ICNFLAG2+1 03038000 ICNZF00A EQU ICNFLAG2 03039000 ICNZF008 EQU ICNFLAG2 03040000 ICNZF005 EQU ICNFLAG2 03041000 ICNZF004 EQU ICNFLAG2 03042000 ICNZF003 EQU ICNFLAG2 03043000 ICNZF002 EQU ICNFLAG2 03044000 ICNZF001 EQU ICNFLAG2 03045000 ICNLOCK EQU ISTICNCB+232 03046000 ICNLICNA EQU ISTICNCB+228 03047000 ICNRPH EQU ISTICNCB+120 03048000 ICNFLAG1 EQU ISTICNCB+103 03049000 ICNZSW08 EQU ICNZSWS 03050000 ICNZSW07 EQU ICNZSWS 03051000 ICNZSW06 EQU ICNZSWS 03052000 ICNZSW05 EQU ICNZSWS 03053000 ICNZSW03 EQU ICNZSWS 03054000 ICNZSW02 EQU ICNZSWS 03055000 ICNZSW01 EQU ICNZSWS 03056000 @NM00032 EQU ICNFFLAG 03057000 ICNZFF05 EQU ICNFFLAG 03058000 ICNZFF04 EQU ICNFFLAG 03059000 ICNZFF03 EQU ICNFFLAG 03060000 ICNZFF01 EQU ICNFFLAG 03061000 ICNZFF00 EQU ICNFFLAG 03062000 @NM00031 EQU ICNFLAG 03063000 ICNZCRIT EQU ICNFLAG 03064000 ICNSTART EQU ICNFLAG 03065000 ICNZF00F EQU ICNFLAG 03066000 ICNZF00E EQU ICNFLAG 03067000 ICNCONF EQU ICNZF006 03068000 ICNCKPAB EQU ICNCKFLD+1 03069000 ICNRSV07 EQU ICNCKFLD 03070000 ICNCKBIT EQU ICNCKFLD 03071000 ICNZPAB1 EQU ISTICNCB+64 03072000 ICNRSV01 EQU ISTICNCB+60 03073000 @NM00030 EQU ISTICNCB+56 03074000 @NM00029 EQU ISTICNCB+54 03075000 @NM00028 EQU @NM00027 03076000 ICNRRY EQU @NM00027 03077000 ICNROLN EQU @NM00027 03078000 ICNLNKMD EQU ISTICNCB+52 03079000 ICNCUUA EQU ISTICNCB+48 03080000 ICNCB EQU ISTICNCB 03081000 LOKXCL EQU @NM00025 03082000 LOKPRY EQU @NM00025 03083000 @NM00026 EQU @NM00025 03084000 @NM00024 EQU LOKCHNG 03085000 LOKCT EQU ISTLOK 03086000 PABRPHA EQU PABRPHFG+1 03087000 PABNODQ EQU PABFLAGS 03088000 PABINHBT EQU PABFLAGS 03089000 PABERLOK EQU PABERRLK 03090000 PABSSN EQU PABFLAGS 03091000 PABDYNAM EQU PABFLAGS 03092000 PABNORPR EQU PABFLAGS 03093000 PABPRIOR EQU PABFLAGS 03094000 PABAPYP EQU PABFLAGS 03095000 PABDVTA EQU ISTPAB+9 03096000 PABOFFST EQU ISTPAB+8 03097000 PABCHNGP EQU PABCHAIN+1 03098000 PABRSV02 EQU PABCHAIN 03099000 PABRUNNG EQU PABCHAIN 03100000 PABRESET EQU PABCHAIN 03101000 PABUNCON EQU PABCHAIN 03102000 PABCDP EQU PABCHAIN 03103000 PABRESCH EQU PABCHAIN 03104000 PABCHNG EQU PABCHAIN 03105000 PABWEQP EQU PABWEQA+1 03106000 PABRSV01 EQU PABWEQA 03107000 PABWEQG EQU PABWEQA 03108000 RPHNEXPO EQU ISTRPH+104 03109000 RPHSAV16 EQU RPHWORK+60 03110000 RPHSAV15 EQU RPHWORK+56 03111000 RPHSAV14 EQU RPHWORK+52 03112000 RPHSAV13 EQU RPHWORK+48 03113000 RPHSAV12 EQU RPHWORK+44 03114000 RPHSAV11 EQU RPHWORK+40 03115000 RPHSAV10 EQU RPHWORK+36 03116000 RPHSAVE9 EQU RPHWORK+32 03117000 RPHSAVE8 EQU RPHWORK+28 03118000 RPHSAVE7 EQU RPHWORK+24 03119000 RPHSAVE6 EQU RPHWORK+20 03120000 RPHSAVE5 EQU RPHWORK+16 03121000 RPHSAVE4 EQU RPHWORK+12 03122000 RPHSAVE3 EQU RPHWORK+8 03123000 RPHSAVE2 EQU RPHWORK+4 03124000 RPHSHALF EQU RPHSAVE1+2 03125000 RPHSBIT8 EQU RPHSBITS 03126000 RPHSBIT7 EQU RPHSBITS 03127000 RPHSBIT6 EQU RPHSBITS 03128000 RPHSBIT5 EQU RPHSBITS 03129000 RPHSBIT4 EQU RPHSBITS 03130000 RPHSBIT3 EQU RPHSBITS 03131000 RPHSBIT2 EQU RPHSBITS 03132000 RPHSBIT1 EQU RPHSBITS 03133000 RPHSBYTE EQU RPHSAVE1 03134000 RPHPABQP EQU RPHPABQA+1 03135000 RPHPABFG EQU RPHPABQA 03136000 RPHCRR EQU ISTRPH+32 03137000 RPHSRP34 EQU RPHSRPRM+2 03138000 RPHSRP12 EQU RPHSRPRM 03139000 RPHWEGT EQU RPHCSPA 03140000 RPHMAJCB EQU ISTRPH+21 03141000 RPHPABOF EQU ISTRPH+20 03142000 RPHRESUM EQU RPHRESMA+1 03143000 RPHRSV01 EQU RPHWPFLG 03144000 RPHPURGE EQU RPHWPFLG 03145000 RPHPT EQU RPHWPFLG 03146000 RPHWT EQU RPHWPFLG 03147000 RPHRSKEY EQU RPHWPFLG 03148000 RPHDVTA EQU ISTRPH+12 03149000 RPHTIK EQU RPHTSKID+3 03150000 @NM00023 EQU RPHTSKID 03151000 RPHRPHAP EQU RPHRPHA+1 03152000 @NM00022 EQU RPHRPHA 03153000 RPHGATE EQU RPHRPHA 03154000 @NM00021 EQU RPHFLGB 03155000 RPHRLCRA EQU RPHFLGB 03156000 RPHNRSAV EQU RPHFLGB 03157000 RPHPGCMP EQU RPHFLGB 03158000 RPHFBAPS EQU RPHFLGB 03159000 RPHBSSP EQU RPHFLGB 03160000 RPHLOCK EQU RPHFLGB 03161000 RPHFNFLG EQU RPHFSTLC 03162000 RPHMLTCP EQU RPHFLAGS 03163000 RPHSMCLR EQU RPHFLAGS 03164000 RPHSMTYP EQU RPHFLAGS 03165000 RPHSMQ EQU RPHFLAGS 03166000 RPHAUTEX EQU RPHAPTYP 03167000 RPHSPGIN EQU RPHFLAGS 03168000 RPHOGIND EQU RPHFLAGS 03169000 RPHLNGTH EQU RPHCNTL+1 03170000 RPHTYPE EQU RPHCNTL 03171000 NCBRSV01 EQU ISTNCB+46 03172000 NCBDEVCH EQU ISTNCB+36 03173000 NCBFMCBP EQU ISTNCB+32 03174000 NCBLTRC EQU ISTNCB+30 03175000 NCBRVPT1 EQU ISTNCB+28 03176000 NCBNMLLN EQU NCBFLAGS+3 03177000 @NM00020 EQU NCBFLAG1 03178000 NCBFORCE EQU NCBFLAG1 03179000 NCBTTF EQU NCBFLAG1 03180000 NCBRSYNC EQU NCBFLAG1 03181000 NCBRSTRT EQU NCBFLAG1 03182000 NCBSNAI EQU NCBFLAG1 03183000 NCBFLTIO EQU NCBFTRIO 03184000 NCBCSTAT EQU NCBFLAGS 03185000 NCBNCSL EQU ISTNCB+22 03186000 NCBNCBA EQU ISTNCB+20 03187000 NCBFMCBA EQU ISTNCB+16 03188000 NCBNSNA EQU ISTNCB+12 03189000 NCBTSKID EQU ISTNCB+8 03190000 NCBRDTE EQU ISTNCB+4 03191000 NCBDAF EQU ISTNCB+2 03192000 NCBLNGTH EQU ISTNCB+1 03193000 NCBTYPE EQU ISTNCB 03194000 DEVRSV03 EQU ISTDEVCH+5 03195000 DEVPHYSA EQU ISTDEVCH+4 03196000 DEVCSLPN EQU DEVCHAR3 03197000 DEVCSTCL EQU DEVCHAR3 03198000 DEVCCHEK EQU DEVCHAR3 03199000 DEVCATTN EQU DEVCHAR3 03200000 DEVCSWL EQU DEVFCCTL 03201000 DEVCRVB EQU DEVFCCTL 03202000 DEVCSSL EQU DEVFCCTL 03203000 DEVCBSC EQU DEVFCCTL 03204000 DEVMCODE EQU ISTDEVCH+2 03205000 DEVCHAR2 EQU DEVTCODE 03206000 DEVRSV01 EQU DEVCHAR 03207000 DEVCCTL EQU DEVCHAR 03208000 DEVNNSPT EQU DEVCHAR 03209000 DEVSPS EQU DEVCHAR 03210000 DEVSUBND EQU DEVCHAR 03211000 DEVCONVR EQU DEVCHAR 03212000 DEVOTPUT EQU DEVCHAR 03213000 DEVINPUT EQU DEVCHAR 03214000 CCWCOUNT EQU ISTCCW+6 03215000 CCWSPRSV EQU CCWSPARE 03216000 CCWCFTX EQU CCWSPARE 03217000 CCWTRCE EQU CCWSPARE 03218000 CCWNULL EQU CCWFLAGS 03219000 CCWPCI EQU CCWFLAGS 03220000 CCWSKIP EQU CCWFLAGS 03221000 CCWSLI EQU CCWFLAGS 03222000 CCWCD EQU CCWFLAGS 03223000 CCWCODE EQU CCWVADDR 03224000 ZSAZTRAC EQU ISTZSAVE+36 03225000 ZSAZACTV EQU ZSAZSVMS 03226000 ZOBLNG1 EQU ZOBFSM 03227000 BTUTEXT EQU ISTBTU+20 03228000 BTUEXTR EQU ISTBTU+19 03229000 BTURSV02 EQU BTUSYSTR 03230000 BTUPHASE EQU BTUSYSTR 03231000 BTURSV01 EQU BTUSYSTR 03232000 BTUPAD EQU BTURH+3 03233000 BTURH3 EQU BTURH+2 03234000 BTURH2 EQU BTURH+1 03235000 BTURH1 EQU BTURH 03236000 BTUDCF EQU BTUBTH+8 03237000 BTUZRTSC EQU BTURQFLG+1 03238000 BTUZRT0B EQU BTURQFLG+1 03239000 BTUZRT0A EQU BTURQFLG+1 03240000 BTUZRT09 EQU BTURQFLG+1 03241000 BTUZRT08 EQU BTURQFLG+1 03242000 BTUZRT07 EQU BTURQFLG 03243000 BTUZRT06 EQU BTURQFLG 03244000 BTUZRT05 EQU BTURQFLG 03245000 BTUZRT04 EQU BTURQFLG 03246000 BTUZRT03 EQU BTURQFLG 03247000 BTUZRT02 EQU BTURQFLG 03248000 BTUZRT01 EQU BTURQFLG 03249000 BTUZRT00 EQU BTURQFLG 03250000 BTUSORCE EQU BTUBTH+4 03251000 BTUDEST EQU BTUBTH+2 03252000 BTUCDF EQU BTUFID+1 03253000 BTUSCF EQU BTUFID+1 03254000 BTUPRY EQU BTUFID+1 03255000 BTUASFL EQU BTUFID 03256000 BTUPSFL EQU BTUFID 03257000 BTUMPF EQU BTUFID 03258000 BTUFIDNO EQU BTUFID 03259000 FDBOFSET EQU ISTFDB+10 03260000 FDBDATCT EQU ISTFDB+8 03261000 FDBDATAA EQU ISTFDB+4 03262000 FDBFDBA EQU ISTFDB 03263000 TH2SNF EQU ISTTH2+4 03264000 TH2OAF EQU ISTTH2+3 03265000 TH2CDF EQU TH2FLAG1+1 03266000 TH2SEF EQU TH2FLAG1+1 03267000 TH2PYF EQU TH2FLAG1+1 03268000 TH2AFI EQU TH2FLAG1 03269000 TH2PSI EQU TH2FLAG1 03270000 TH2CMPLI EQU TH2MPF 03271000 TH2RHI EQU TH2MPF 03272000 TH2FID EQU TH2FLAG1 03273000 THDCF EQU ISTTH+8 03274000 THSNF EQU ISTTH+6 03275000 THCDF EQU THFLGB 03276000 THSEF EQU THFLGB 03277000 THPYF EQU THFLGB 03278000 THAFI EQU THFLGA 03279000 THPSI EQU THFLGA 03280000 THCMPLI EQU THMPF 03281000 THRHI EQU THMPF 03282000 THFID EQU THFLAG1 03283000 LHVDATA EQU ISTLH+4 03284000 LHFUNCT EQU ISTLH+3 03285000 @NM00014 EQU ISTLH+2 03286000 LHLEN EQU ISTLH 03287000 BDURSV04 EQU BDUFLAGS 03288000 BDURTOE EQU BDUFLAGS 03289000 BDUSTPR EQU BDUFLAGS 03290000 BDURSV03 EQU BDUFLAGS 03291000 BDUALT EQU BDUFUNC 03292000 BDUNACK EQU BDUFUNC 03293000 BDUACK EQU BDUFUNC 03294000 BDUTRPM EQU BDUFUNC 03295000 BDUFBMI EQU BDUFUNC 03296000 BDULDGPH EQU BDUFUNC 03297000 BDUHEADP EQU BDUFUNC 03298000 BDUSOH EQU BDUCHECK 03299000 BDURSV01 EQU BDUMODIF 03300000 BDUMOD0 EQU BDUMOD1 03301000 @NM00013 EQU SRBSECT+40 03302000 @NM00012 EQU SRBSECT+38 03303000 SRBPRIOR EQU SRBSECT+37 03304000 SRBPKF EQU SRBSECT+36 03305000 SRBSAVE EQU SRBSECT+32 03306000 SRBPARM EQU SRBSECT+28 03307000 SRBRMTR EQU SRBSECT+24 03308000 SRBEP EQU SRBSECT+20 03309000 SRBPTCB EQU SRBFLC+4 03310000 SRBPASID EQU SRBFLC+2 03311000 SRBCPAFF EQU SRBFLC 03312000 SRBASCB EQU SRBSECT+8 03313000 SRBFLNK EQU SRBSECT+4 03314000 SRBID EQU SRBSECT 03315000 CVTLEVL EQU CVTRELNO+2 03316000 CVTNUMB EQU CVTRELNO 03317000 CVTMDL EQU CVTFIX+250 03318000 @NM00011 EQU CVTFIX+248 03319000 @NM00010 EQU CVTFIX 03320000 CVTRV482 EQU CVTXTNT2+128 03321000 CVTRV481 EQU CVTXTNT2+124 03322000 CVTRV480 EQU CVTXTNT2+120 03323000 CVTRV479 EQU CVTXTNT2+118 03324000 CVTRV478 EQU CVTXTNT2+117 03325000 CVTRV477 EQU CVTXTNT2+116 03326000 CVTRV476 EQU CVTXTNT2+115 03327000 CVTRV475 EQU CVTXTNT2+114 03328000 CVTRV474 EQU CVTRV466 03329000 CVTRV473 EQU CVTRV466 03330000 CVTRV472 EQU CVTRV466 03331000 CVTRV471 EQU CVTRV466 03332000 CVTRV470 EQU CVTRV466 03333000 CVTRV469 EQU CVTRV466 03334000 CVTRV468 EQU CVTRV466 03335000 CVTRV467 EQU CVTRV466 03336000 CVTRV465 EQU CVTRV457 03337000 CVTRV464 EQU CVTRV457 03338000 CVTRV463 EQU CVTRV457 03339000 CVTRV462 EQU CVTRV457 03340000 CVTRV461 EQU CVTRV457 03341000 CVTRV460 EQU CVTRV457 03342000 CVTRV459 EQU CVTRV457 03343000 CVTRV458 EQU CVTRV457 03344000 CVTRV456 EQU CVTXTNT2+108 03345000 CVTRV455 EQU CVTXTNT2+104 03346000 CVTRV454 EQU CVTXTNT2+100 03347000 CVTRV453 EQU CVTXTNT2+96 03348000 CVTRV452 EQU CVTXTNT2+94 03349000 CVTRV451 EQU CVTXTNT2+92 03350000 CVTRV450 EQU CVTXTNT2+90 03351000 CVTRV449 EQU CVTXTNT2+88 03352000 CVTRV448 EQU CVTXTNT2+87 03353000 CVTRV447 EQU CVTXTNT2+86 03354000 CVTRV446 EQU CVTRV438 03355000 CVTRV445 EQU CVTRV438 03356000 CVTRV444 EQU CVTRV438 03357000 CVTRV443 EQU CVTRV438 03358000 CVTRV442 EQU CVTRV438 03359000 CVTRV441 EQU CVTRV438 03360000 CVTRV440 EQU CVTRV438 03361000 CVTRV439 EQU CVTRV438 03362000 CVTRV437 EQU CVTRV429 03363000 CVTRV436 EQU CVTRV429 03364000 CVTRV435 EQU CVTRV429 03365000 CVTRV434 EQU CVTRV429 03366000 CVTRV433 EQU CVTRV429 03367000 CVTRV432 EQU CVTRV429 03368000 CVTRV431 EQU CVTRV429 03369000 CVTRV430 EQU CVTRV429 03370000 CVTRV428 EQU CVTXTNT2+80 03371000 CVTRV427 EQU CVTXTNT2+76 03372000 CVTRV426 EQU CVTXTNT2+72 03373000 CVTRV425 EQU CVTXTNT2+68 03374000 CVTATACT EQU CVTATCVT 03375000 CVTRV423 EQU CVTXTNT2+62 03376000 CVTRV422 EQU CVTXTNT2+60 03377000 CVTRV421 EQU CVTXTNT2+58 03378000 CVTRV420 EQU CVTXTNT2+56 03379000 CVTRV419 EQU CVTXTNT2+55 03380000 CVTRV418 EQU CVTXTNT2+54 03381000 CVTRV417 EQU CVTRV409 03382000 CVTRV416 EQU CVTRV409 03383000 CVTRV415 EQU CVTRV409 03384000 CVTRV414 EQU CVTRV409 03385000 CVTRV413 EQU CVTRV409 03386000 CVTRV412 EQU CVTRV409 03387000 CVTRV411 EQU CVTRV409 03388000 CVTRV410 EQU CVTRV409 03389000 CVTRV408 EQU CVTRV400 03390000 CVTRV407 EQU CVTRV400 03391000 CVTRV406 EQU CVTRV400 03392000 CVTRV405 EQU CVTRV400 03393000 CVTRV404 EQU CVTRV400 03394000 CVTRV403 EQU CVTRV400 03395000 CVTRV402 EQU CVTRV400 03396000 CVTRV401 EQU CVTRV400 03397000 CVTICB EQU CVTXTNT2+48 03398000 CVTSKTA EQU CVTXTNT2+44 03399000 CVTSHSB EQU CVTSHS 03400000 CVTRSV98 EQU CVTXTNT2+36 03401000 CVTRSV97 EQU CVTXTNT2+34 03402000 CVTRSV96 EQU CVTXTNT2+32 03403000 CVTOLTEP EQU CVTXTNT2+28 03404000 CVTQIDA EQU CVTQID+1 03405000 CVTRSV95 EQU CVTQID 03406000 CVTRSV94 EQU CVTXTNT2+20 03407000 CVTRSV93 EQU CVTXTNT2+16 03408000 CVTRSV92 EQU CVTXTNT2+12 03409000 CVTDEBVR EQU CVTXTNT2+8 03410000 CVTRSV91 EQU CVTXTNT2+6 03411000 CVTRSV9H EQU CVTFLGBT 03412000 CVTRSV9G EQU CVTFLGBT 03413000 CVTRSV9F EQU CVTFLGBT 03414000 CVTRSV9E EQU CVTFLGBT 03415000 CVTRSV9D EQU CVTFLGBT 03416000 CVTRSV9C EQU CVTFLGBT 03417000 CVTVME EQU CVTFLGBT 03418000 CVTNPE EQU CVTFLGBT 03419000 CVTNUCLS EQU CVTXTNT2+4 03420000 CVTDSSVA EQU CVTDSSV+1 03421000 CVTRSV89 EQU CVTDSSV 03422000 CVTRSV88 EQU CVTXTNT1+8 03423000 CVTRSV87 EQU CVTXTNT1+4 03424000 CVTFACHN EQU CVTXTNT1 03425000 CVTRV488 EQU CVTMAP+412 03426000 CVTRV487 EQU CVTMAP+408 03427000 CVTRV486 EQU CVTMAP+404 03428000 CVTRV485 EQU CVTMAP+400 03429000 CVTACTAP EQU CVTMAP+396 03430000 CVTAUTH EQU CVTMAP+392 03431000 CVTATMCA EQU CVTATMCT+1 03432000 CVTATMST EQU CVTATMCT 03433000 CVTRSV61 EQU CVTMAP+384 03434000 CVTVOLT1 EQU CVTVOLM1+1 03435000 CVTVOLI1 EQU CVTVOLF1 03436000 CVTSTOA EQU CVTMAP+376 03437000 CVTRSV58 EQU CVTMAP+374 03438000 CVTRSV57 EQU CVTMAP+372 03439000 CVTDDCE EQU CVTMAP+368 03440000 CVTPNWFR EQU CVTMAP+364 03441000 CVTSMF EQU CVTMAP+360 03442000 CVTSULK EQU CVTMAP+358 03443000 CVTSLKO EQU CVTSYSK 03444000 CVTSLKP EQU CVTSYSK 03445000 CVTSLKQ EQU CVTSYSK 03446000 CVTSLKR EQU CVTSYSK 03447000 CVTRSV56 EQU CVTSYSK 03448000 CVTRSV55 EQU CVTSYSK 03449000 CVTRSV54 EQU CVTSYSK 03450000 CVTRSV53 EQU CVTSYSK 03451000 CVTRSV52 EQU CVTA1F1 03452000 CVTRSV51 EQU CVTA1F1 03453000 CVTRSV50 EQU CVTA1F1 03454000 CVTRSV49 EQU CVTA1F1 03455000 CVTRSV48 EQU CVTA1F1 03456000 CVTRSV47 EQU CVTA1F1 03457000 CVTSRSW EQU CVTA1F1 03458000 CVTPFSW EQU CVTA1F1 03459000 CVTPCVT EQU CVTMAP+352 03460000 CVTRSV46 EQU CVTMAP+344 03461000 CVTRSV45 EQU CVTMAP+340 03462000 CVTRSV44 EQU CVTMAP+338 03463000 CVTRSV43 EQU CVTMAP+336 03464000 CVTHJESA EQU CVTHJES+1 03465000 CVTRSV42 EQU CVTHJES 03466000 CVTEXT2A EQU CVTEXT2+1 03467000 CVTRSV41 EQU CVTEXT2 03468000 CVTAPFA EQU CVTAPF+1 03469000 CVTRSV40 EQU CVTAPF 03470000 CVTRV518 EQU CVTINTLA 03471000 CVTRV517 EQU CVTERPV 03472000 CVTEORM EQU CVTMAP+312 03473000 CVTMCHPR EQU CVTMAP+308 03474000 CVTTZ EQU CVTMAP+304 03475000 CVTJEPS EQU CVTMAP+300 03476000 CVTJESCT EQU CVTMAP+296 03477000 CVTMODE EQU CVTMAP+292 03478000 CVTPTRV EQU CVTMAP+288 03479000 CVTREAL EQU CVTMAP+284 03480000 CVTRSV39 EQU CVTMAP+280 03481000 CVTRSV38 EQU CVTMAP+276 03482000 CVTDMSRA EQU CVTDMSR+1 03483000 CVTRSV37 EQU CVTDMSR 03484000 CVTQMSGA EQU CVTQMSG+1 03485000 CVTRSV36 EQU CVTQMSG 03486000 CVTAMFF EQU CVTMAP+264 03487000 CVTPURGA EQU CVTPURG+1 03488000 CVTRSV35 EQU CVTPURG 03489000 CVTCBSP EQU CVTMAP+256 03490000 CVTATERA EQU CVTATER+1 03491000 CVTSYST EQU CVTATER 03492000 CVTVOLT2 EQU CVTTAT 03493000 CVTVOLI2 EQU CVTVOLF2 03494000 CVTAQAVB EQU CVTAQAVT+1 03495000 CVTRSV34 EQU CVTTCMFG 03496000 CVTRSV33 EQU CVTTCMFG 03497000 CVTRSV32 EQU CVTTCMFG 03498000 CVTRSV31 EQU CVTTCMFG 03499000 CVTRSV30 EQU CVTTCMFG 03500000 CVTRSV29 EQU CVTTCMFG 03501000 CVTRSV28 EQU CVTTCMFG 03502000 CVTTCRDY EQU CVTTCMFG 03503000 CVTGTFA EQU CVTGTF+1 03504000 CVTRSV27 EQU CVTGTFST 03505000 CVTRNIO EQU CVTGTFST 03506000 CVTUSR EQU CVTGTFST 03507000 CVTRV318 EQU CVTFORM 03508000 CVTRV317 EQU CVTTMODE 03509000 CVTRV316 EQU CVTSTATE 03510000 CVTRV315 EQU CVTGTFS 03511000 CVT0SCR1 EQU CVTMAP+232 03512000 CVTRV515 EQU CVTMAP+228 03513000 CVTRMS EQU CVTMAP+224 03514000 CVTPATCH EQU CVTMAP+220 03515000 CVTTSCE EQU CVTMAP+216 03516000 CVTLNKSC EQU CVTMAP+214 03517000 CVTQABST EQU CVTMAP+212 03518000 CVTMDLDS EQU CVTMAP+208 03519000 CVTUSER EQU CVTMAP+204 03520000 CVTABEND EQU CVTMAP+200 03521000 CVTSMCA EQU CVTMAP+196 03522000 CVTRSV18 EQU CVTMAP+192 03523000 CVTQLPAQ EQU CVTMAP+188 03524000 CVTQCDSR EQU CVTMAP+184 03525000 CVTRSV17 EQU CVTOPTB 03526000 CVTRSV16 EQU CVTOPTB 03527000 CVTFP EQU CVTOPTB 03528000 CVTAPTHR EQU CVTOPTB 03529000 CVTNLOG EQU CVTOPTB 03530000 CVTTOD EQU CVTOPTB 03531000 CVTCTIMS EQU CVTOPTB 03532000 CVTPROT EQU CVTOPTB 03533000 CVTXPFP EQU CVTOPTA 03534000 CVTASCII EQU CVTOPTA 03535000 CVTRSV13 EQU CVTOPTA 03536000 CVTRSV12 EQU CVTOPTA 03537000 CVTNIP EQU CVTOPTA 03538000 CVTDDR EQU CVTOPTA 03539000 CVTAPR EQU CVTOPTA 03540000 CVTCCH EQU CVTOPTA 03541000 CVTSNCTR EQU CVTMAP+180 03542000 CVTQMWR EQU CVTMAP+176 03543000 CVTQOCR EQU CVTMAP+172 03544000 CVT1EF00 EQU CVTMAP+168 03545000 CVTMZ00 EQU CVTMAP+164 03546000 CVTHEAD EQU CVTMAP+160 03547000 CVTRSV11 EQU CVTMAP+156 03548000 CVT0PT01 EQU CVTMAP+152 03549000 CVTMSER EQU CVTMAP+148 03550000 CVTRV516 EQU CVTIERLC 03551000 CVTILCH EQU CVTMAP+140 03552000 CVT0DS EQU CVTMAP+136 03553000 CVTFBOSV EQU CVTMAP+132 03554000 CVTNUCB EQU CVTMAP+128 03555000 CVTIOQET EQU CVTMAP+120 03556000 CVTDCBA EQU CVTMAP+117 03557000 CVTMVS2 EQU CVTDCB 03558000 CVT6DAT EQU CVTDCB 03559000 CVT4MPS EQU CVTDCB 03560000 CVTRSV09 EQU CVTDCB 03561000 CVT4MS1 EQU CVTDCB 03562000 CVT2SPS EQU CVTDCB 03563000 CVT1SSS EQU CVTDCB 03564000 CVTRSV08 EQU CVTDCB 03565000 CVTSTB EQU CVTMAP+112 03566000 CVTQTD00 EQU CVTMAP+108 03567000 CVTQTE00 EQU CVTMAP+104 03568000 CVTCUCB EQU CVTMAP+100 03569000 CVTSJQ EQU CVTMAP+96 03570000 CVTPBLDL EQU CVTMAP+92 03571000 CVTTPC EQU CVTMAP+88 03572000 CVTSVDCB EQU CVTMAP+84 03573000 CVTBRET EQU CVTMAP+82 03574000 CVTEXIT EQU CVTMAP+80 03575000 CVT0FN00 EQU CVTMAP+76 03576000 CVTDARA EQU CVTDAR+1 03577000 CVTRSV07 EQU CVTFLGS1 03578000 CVTRSV06 EQU CVTFLGS1 03579000 CVTRSV05 EQU CVTFLGS1 03580000 CVTRSV04 EQU CVTFLGS1 03581000 CVTRSV03 EQU CVTFLGS1 03582000 CVTRSV02 EQU CVTFLGS1 03583000 CVTRSV01 EQU CVTFLGS1 03584000 CVTDMPLK EQU CVTFLGS1 03585000 CVTXITP EQU CVTMAP+68 03586000 CVTZDTAB EQU CVTMAP+64 03587000 CVTMSLT EQU CVTMAP+60 03588000 CVTDATE EQU CVTMAP+56 03589000 CVTBTERM EQU CVTMAP+52 03590000 CVTSYSAD EQU CVTMAP+48 03591000 CVTXTLER EQU CVTMAP+44 03592000 CVTILK2 EQU CVTMAP+40 03593000 CVTILK1 EQU CVTMAP+36 03594000 CVTPRLTV EQU CVTMAP+32 03595000 CVTPCNVT EQU CVTMAP+28 03596000 CVT0VL00 EQU CVTMAP+24 03597000 CVTXAPG EQU CVTMAP+20 03598000 CVTBUF EQU CVTMAP+16 03599000 CVTJOB EQU CVTMAP+12 03600000 CVTLINK EQU CVTMAP+8 03601000 CVT0EF00 EQU CVTMAP+4 03602000 CVTTCBP EQU CVTMAP 03603000 CVT EQU CVTMAP 03604000 IOCOEND EQU IOCOM+128 03605000 IOCPATCH EQU IOCOM+124 03606000 IOCUCBBM EQU IOCOM+120 03607000 IOCQCNT EQU IOCOM+116 03608000 IOCIOSDQ EQU IOCOM+112 03609000 IOCIOSEQ EQU IOCOM+108 03610000 IOCSVCF EQU IOCOM+104 03611000 IOCTCCW EQU IOCOM+100 03612000 IOCRSVTB EQU IOCOM+96 03613000 IOCMFCNT EQU IOCOM+92 03614000 IOCMFHK EQU IOCOM+88 03615000 IOCGENA EQU IOCOM+84 03616000 IOCCCH EQU IOCOM+80 03617000 IOCASYNQ EQU IOCOM+76 03618000 IOCLCHTB EQU IOCOM+72 03619000 IOCATTBL EQU IOCOM+68 03620000 IOCOMEX EQU IOCOM+64 03621000 IOCSYNCH EQU IOCOM+56 03622000 IOCCATLK EQU IOCOM+48 03623000 IOCPRGID EQU IOCOM+44 03624000 IOCIOSCP EQU IOCOM+40 03625000 IOCORMGT EQU IOCOM+36 03626000 IOCVOID EQU IOCOM+32 03627000 @NM00009 EQU IOCOM+24 03628000 @NM00008 EQU IOCOM+20 03629000 IOCINT EQU IOCOM+16 03630000 IOCCTBL EQU IOCOM+12 03631000 IOCHIO EQU IOCOM+8 03632000 IOCPST EQU IOCOM+4 03633000 IOCPGCT EQU IOCOM+2 03634000 IOCVOICT EQU IOCOM 03635000 IOSEND EQU IOSB+108 03636000 IOSSKR EQU IOSEEKA+7 03637000 IOSSKH2 EQU IOSSKHH+1 03638000 IOSSKH1 EQU IOSSKHH 03639000 IOSSKCC EQU IOSCCHH 03640000 IOSSKBB EQU IOSEEKA+1 03641000 IOSSKM EQU IOSEEKA 03642000 IOSEEK EQU IOSB+92 03643000 IOSMDM EQU IOSB+91 03644000 IOSMDB EQU IOSB+90 03645000 IOSCKEY7 EQU IOSCKEY 03646000 IOSCKEY6 EQU IOSCKEY 03647000 IOSCKEY5 EQU IOSCKEY 03648000 IOSCKEY4 EQU IOSCKEY 03649000 @NM00004 EQU IOSCKEY 03650000 IOSFMSK EQU IOSB+88 03651000 IOSCUDEV EQU IOSPATH+1 03652000 @NM00003 EQU IOSCHN 03653000 IOSPATH3 EQU IOSCHN 03654000 IOSPATH2 EQU IOSCHN 03655000 IOSEXP EQU IOSCHN 03656000 IOSGDP EQU IOSCHN 03657000 IOSAFF EQU IOSB+85 03658000 IOSRSS1B EQU IOSB+84 03659000 IOSDSID EQU IOSB+80 03660000 IOSABN EQU IOSB+64 03661000 IOSNRM EQU IOSB+60 03662000 IOSPCI EQU IOSB+56 03663000 IOSERP EQU IOSB+52 03664000 IOSPCHN EQU IOSB+48 03665000 IOSSNS EQU IOSB+42 03666000 IOSAPMSK EQU IOSB+40 03667000 IOSRES4A EQU IOSB+36 03668000 IOSUSE EQU IOSB+32 03669000 IOSSRB EQU IOSB+28 03670000 IOSCSWRC EQU IOSCSW+5 03671000 IOSTSB EQU IOSTATUS+1 03672000 IOSTSA EQU IOSTATUS 03673000 IOSCSWCA EQU IOSCSW 03674000 IOSCC EQU @NM00002 03675000 IOSUCB EQU IOSB+16 03676000 IOSOPT2X EQU IOSOPT2 03677000 IOSHTP EQU IOSOPT2 03678000 IOSRELSE EQU IOSOPT 03679000 IOSAPR EQU IOSOPT 03680000 IOSTSLL EQU IOSOPT 03681000 IOSNERP EQU IOSOPT 03682000 IOSPSLL EQU IOSOPT 03683000 IOSQISCE EQU IOSOPT 03684000 IOSDEP EQU IOSOPT 03685000 IOSBYP EQU IOSOPT 03686000 IOSCOD EQU IOSB+13 03687000 IOSPKY7 EQU IOSPKEY 03688000 IOSPGDPX EQU IOSPKEY 03689000 IOSIDR EQU IOSPKEY 03690000 IOSLCL EQU IOSPKEY 03691000 @NM00001 EQU IOSPKEY 03692000 IOSPGAD EQU IOSB+8 03693000 IOSASID EQU IOSB+6 03694000 IOSPRLVL EQU IOSB+5 03695000 IOSDVRID EQU IOSB+4 03696000 IOSPROC EQU IOSB+3 03697000 IOSFLC7 EQU IOSFLC 03698000 IOSFLC6 EQU IOSFLC 03699000 IOSRWAIT EQU IOSFLC 03700000 IOSTP EQU IOSFLC 03701000 IOSCC3WE EQU IOSFLC 03702000 IOSVERIF EQU IOSDVALT 03703000 IOSDVMNT EQU IOSFLC 03704000 IOSLOG EQU IOSFLB 03705000 IOSBDCST EQU IOSFLB 03706000 IOSMSG EQU IOSFLB 03707000 IOSFLB4 EQU IOSFLB 03708000 IOSFLB3 EQU IOSFLB 03709000 IOSFLB2 EQU IOSFLB 03710000 IOSSDR EQU IOSFLB 03711000 IOSDIESE EQU IOSFLB 03712000 IOSIOSB EQU IOSFLA 03713000 IOSDOM EQU IOSFLA 03714000 IOSEX EQU IOSFLA 03715000 IOSSMDB EQU IOSFLA 03716000 IOSSMDA EQU IOSFLA 03717000 IOSERR EQU IOSFLA 03718000 IOSCCHN EQU IOSACHN 03719000 IOSDCHN EQU IOSACHN 03720000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03721000 @RT00430 EQU @RC00426 03722000 @RF00502 EQU @RC00420 03723000 @RT00574 EQU CHEKWRT 03724000 @RC00597 EQU @RC00596 03725000 @RT00617 EQU READL1 03726000 READL2 EQU @RC00567 03727000 @ENDDATA EQU * 03728000 END ISTZEMAB,(C'PLS2148',0603,75311) 03729000