TITLE 'ISTRCC21: CONTROL LAYER RECEIVE OUTBOUND PROCESSOR *00001000 ' 00002000 ISTRCC21 CSECT , 0001 00003000 @MAINENT BALR @15,0 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTRCC21 77.320' 0001 00008000 DROP @15 00009000 @PROLOG BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 * ; /* INITIATE ASSEMBLER COMMENTING */ 00013000 * 0420 00014000 */******************************************************************** 00015000 * */ 00016000 */* */ 00017000 */* CRRINIT - SEGMENT OF ISTRCC21 */ 00018000 */* */ 00019000 */* CRRINIT ESTABLISHES THE ADDRESSABILITY TO */ 00020000 */* THE COMPONENT RECOVERY RECORD (CRR), THE */ 00021000 */* REQUEST PARAMETER LIST (RPL), THE ACCESS */ 00022000 */* METHOD CVT (ATCVT), AND THE MAJOR CONTROL */ 00023000 */* BLOCK ( EITHER THE ACDEB OR THE FMCB, */ 00024000 */* DEPENDING UPON WHETHER THE REQUEST IS ANY */ 00025000 */* OR SPECIFIC, RESPECTIVELY ) WHOSE TYPE IS */ 00026000 */* UNKNOWN DURING THE EXECUTION OF CRRINIT. */ 00027000 */* THE CRR RPL SATISFIED SWITCH, THE THREE RTYPE */ 00028000 */* SWITCHES (CRRDFSYN, CRRDFASY, CRRRESP ) */ 00029000 */* ARE CLEARED TO NOT ACTIVE STATUS. */ 00030000 */* THE MODULE AUDIT FIELD IS CLEARED AND THEN */ 00031000 */* THE MODULE AUDIT AND AUDIT TRAIL SWITCHES */ 00032000 */* ARE SET. THE RPL REQUEST TYPE IS CHECKED . */ 00033000 */* IF THE REQUEST IS FOR RECORD DATA, THE */ 00034000 */* CRR RTYPE BITS ARE SET TO MATCH THE RPL RTYPE */ 00035000 */* BITS. */ 00036000 */* IF NO RPL RTYPES ARE ACTIVE, THEN THE CRR */ 00037000 */* MAJOR RETURN CODE IS SET TO INDICATE THAT A */ 00038000 */* LOGICAL ERROR HAS OCCURED WITH THE MINOR */ 00039000 */* RETURN CODE SET TO INDICATE THAT NO RTYPE */ 00040000 */* WAS SPECIFIED. NOTE: THE RPL RTYPE BIT FOR */ 00041000 */* SYNCHRONOUS DATA REQUESTS (RPLNFSYN) IS A */ 00042000 */* NEGATIVE LOGIC BIT, IE. '0'B INDICATES A */ 00043000 */* REQUEST AND IS THE DEFAULT. */ 00044000 */* */ 00045000 */******************************************************************** 00046000 * */ 00047000 * 0420 00048000 * RESPECIFY 0420 00049000 * ISTCRA BASED(RPHCRR); /* ADDRESS THE CRA */ 00050000 * RESPECIFY 0421 00051000 * ISTDCCRR BASED(CRACRR); /* ADDRESS THE DCCRR */ 00052000 * CRRPTR=ADDR(CRRSPACE); /* GET THE CRR POINTER */ 00053000 L @15,RPHCRR(,RPHPTR) 0422 00054000 L CRRPTR,CRACRR(,@15) 0422 00055000 LA CRRPTR,CRRSPACE(,CRRPTR) 0422 00056000 * RESPECIFY 0423 00057000 * CRRSAREA BASED(CRRPTR); /* ADDRESS THE CRR */ 00058000 * RPLPTR=CRRARPL; /* GET THE RPL POINTER */ 00059000 L RPLPTR,CRRARPL(,CRRPTR) 0424 00060000 * RESPECIFY 0425 00061000 * IFGRPL BASED(RPLPTR); /* ADDRESS THE RPL */ 00062000 * RPLRLEN=0; /* ZERO RECORD LENGTH@XM9777K */ 00063000 SLR @15,@15 0426 00064000 ST @15,RPLRLEN(,RPLPTR) 0426 00065000 * RESPECIFY 0427 00066000 * ISTATCVT BASED(CRRATCVT); /* ADDRESS THE CVT */ 00067000 * FMCBPTR=RPHMAJCB; /* GET MAJ CB POINTER */ 00068000 L FMCBPTR,RPHMAJCB-1(,RPHPTR) 0428 00069000 LA FMCBPTR,0(,FMCBPTR) 0428 00070000 * CRRRPLS=ZERB; /* CLEAR RPL SATISFIED */ 00071000 * CRRDFSYN=ZERB; /* CLEAR SYN RTYPE */ 00072000 * CRRDFASY=ZERB; /* CLEAR ASY RTYP */ 00073000 * CRRRESP=ZERB; /* CLEAR RESP RTYPE */ 00074000 NI CRRRPLS(CRRPTR),B'01110001' 0432 00075000 * CRRMAS=''B; /* CLEAR MODULE AUDIT */ 00076000 XC CRRMAS(8,CRRPTR),CRRMAS(CRRPTR) 0433 00077000 * CRRRC21=ONEB; /* SET AUDIT TRAIL */ 00078000 OI CRRRC21(CRRPTR),B'10000000' 0434 00079000 * CRRRM21=ONEB; /* SET MODULE AUDIT */ 00080000 OI CRRRM21(CRRPTR),B'10000000' 0435 00081000 * IF RPLREQ='1D'X /* IS REQUEST A READ ? */ 00082000 * THEN 0436 00083000 CLI RPLREQ(RPLPTR),29 0436 00084000 BNE @RF00436 0436 00085000 * CRRDFSYN=ONEB; /* YES, SET NSNA RTYPE */ 00086000 OI CRRDFSYN(CRRPTR),B'00000010' 0437 00087000 * ELSE 0438 00088000 * DO; /* NO */ 00089000 B @RC00436 0438 00090000 @RF00436 DS 0H 0439 00091000 * IF RPLRRESP=ONEB|RPLNFSYN=ZERB|RPLDFASY=ONEB THEN 0439 00092000 TM RPLRRESP+16(RPLPTR),B'00001010' 0439 00093000 BNZ @RT00439 0439 00094000 TM RPLNFSYN+16(RPLPTR),B'00000100' 0439 00095000 BO @RF00439 0439 00096000 @RT00439 DS 0H 0440 00097000 * DO; /* YES */ 00098000 * IF RPLRRESP=ONEB /* RESPONSE ? */ 00099000 * THEN 0441 00100000 TM RPLRRESP+16(RPLPTR),B'00001000' 0441 00101000 BNO @RF00441 0441 00102000 * CRRRESP=ONEB; /* YES, SET RESP RTYPE */ 00103000 OI CRRRESP(CRRPTR),B'00000100' 0442 00104000 * IF RPLNFSYN=ZERB /* SYNCHRONOUS ? */ 00105000 * THEN 0443 00106000 @RF00441 TM RPLNFSYN+16(RPLPTR),B'00000100' 0443 00107000 BNZ @RF00443 0443 00108000 * CRRDFSYN=ONEB; /* YES, SET SYN RTYPE */ 00109000 OI CRRDFSYN(CRRPTR),B'00000010' 0444 00110000 * IF RPLDFASY=ONEB /* ASYNCHRONOUS ? */ 00111000 * THEN 0445 00112000 @RF00443 TM RPLDFASY+16(RPLPTR),B'00000010' 0445 00113000 BNO @RF00445 0445 00114000 * CRRDFASY=ONEB; /* YES, SET ASY RTYPE */ 00115000 OI CRRDFASY(CRRPTR),B'00001000' 0446 00116000 * END; /* RTYPES SET IN CRR */ 00117000 * ELSE 0448 00118000 * DO; /* NO */ 00119000 B @RC00439 0448 00120000 @RF00439 DS 0H 0449 00121000 * CRRRTNCD=CRRLOGIC; /* SET LOGIC ERROR */ 00122000 MVI CRRRTNCD(CRRPTR),X'08' 0449 00123000 * CRRFDB2=CRRRNORT; /* SET NO RTYPE */ 00124000 MVI CRRFDB2(CRRPTR),X'02' 0450 00125000 * END; /* ERROR RETURN IS SET */ 00126000 * END; /* CRR IS INITIALIZED */ 00127000 @RC00439 DS 0H 0453 00128000 */******************************************************************** 00129000 * */ 00130000 */* END OF SEGMENT CRRINIT */ 00131000 */******************************************************************** 00132000 * */ 00133000 * 0453 00134000 * 0453 00135000 */******************************************************************** 00136000 * */ 00137000 */* */ 00138000 */* ISTRCC21 - MAINLINE 1 */ 00139000 */* */ 00140000 */* THE FIRST PORTION OF THE ISTRCC21 MAINLINE */ 00141000 */* INSURES THAT NO PREVIOUS ERRORS HAVE OCCURED */ 00142000 */* BY TESTING THE CRR MAJOR RETURN CODE (CRRRTNCD) */ 00143000 */* AND ISSUES MACRO TPESC IF ANY HAVE ( THEREBY */ 00144000 */* PASSING CONTROL TO EITHER READ ANY PROCESSOR */ 00145000 */* OR REQUEST FINISH, DEPENDING UPON THE DVT UNDER */ 00146000 */* WHICH ISTRCC21 IS RUNNING. OTHERWISE, */ 00147000 */* THE MAJOR CONTROL BLOCK TYPE IS CHECKED. IF IT */ 00148000 */* IS THE ACDEB, MACRO VMDESET IS ISSUED TO GET */ 00149000 */* INTO KEY 0 SO THAT MACRO TPLOCK MAY BE ISSUED */ 00150000 */* TO SERIALIZE THE USE OF THE ACDEB. MACRO VMDESET */ 00151000 */* IS THEN ISSUED AGAIN TO RETURN TO VTAM KEY. IF, */ 00152000 */* THE MAJOR CB IS THE FMCB THE LOCK HAS PREVIOUSLY */ 00153000 */* OBTAINED BY REQUEST START (ISTDCC00). WHICH EVER */ 00154000 */* TYPE THE MAJOR CB IS, THE POINTER TO THE RPL */ 00155000 */* WAIT QUEUE IS OBTAINED ( IF THE ACDEB, THE */ 00156000 */* FIELD NAME IS ACDRARQ AND IF FMCB, THE FIELD */ 00157000 */* NAME IS FMCRPLH ). */ 00158000 */* */ 00159000 */******************************************************************** 00160000 * */ 00161000 * 0453 00162000 * IF CRRRTNCD=CRRNOERR /* ANY ERROR ? */ 00163000 * THEN 0453 00164000 @RC00436 CLI CRRRTNCD(CRRPTR),X'00' 0453 00165000 BNE @RF00453 0453 00166000 * DO; /* NO */ 00167000 * RESPECIFY 0455 00168000 * ISTACDEB BASED(RPHMAJCB); /* ADDRESS ACDEB */ 00169000 * RESPECIFY 0456 00170000 * ISTFMCB BASED(FMCBPTR); /* ADDRESS FMCB */ 00171000 * RFY 0457 00172000 * ISTNCB BASED(FMCDNCBA); /* COVER NCB @D32CKNL*/ 00173000 * IF ACDTYPE=ACDID /* IS MAJ CB ACDEB ? */ 00174000 * THEN 0458 00175000 L @15,RPHMAJCB-1(,RPHPTR) 0458 00176000 LA @15,0(,@15) 0458 00177000 CLI ACDTYPE(@15),X'0F' 0458 00178000 BNE @RF00458 0458 00179000 * DO; /* YES */ 00180000 * IF CRRDBLCK=ZERB THEN 0460 00181000 TM CRRDBLCK(CRRPTR),B'00010000' 0460 00182000 BNZ @RF00460 0460 00183000 * DO; /* CHECK IF DEB LCKED @D33SKD3*/ 00184000 * 0462 00185000 */*VMDESET ((15),ZERO) */ 00186000 * 0462 00187000 * DO; /* INVOKE MODESET MACRO */ 00188000 * GEN; 0463 00189000 MODESET EXTKEY=ZERO,WORKREG=2 00190000 * DCL 0464 00191000 * GPR15F FIXED(31) REG(15); 0464 00192000 * DCL 0465 00193000 * GPR15P PTR(31) REG(15); 0465 00194000 * RFY 0466 00195000 * (GPR15P) RSTD; 0466 00196000 * GPR15F=0; 0467 00197000 SLR GPR15F,GPR15F 0467 00198000 * RFY 0468 00199000 * (GPR15P) UNRSTD; /* PUT RETURN CODE IN RCREG */ 00200000 * END; /* VMDESET GO TO SUPER KEY */ 00201000 * RFY 0470 00202000 * (RPLPTR, 0470 00203000 * CRRPTR) UNRSTD; /* RELEASE REGS @D31KKNL*/ 00204000 */*** START -TPLOCK (DEBLOCK)TYPE(XCLSIVE)- ** */ 00205000 * 0471 00206000 * DO; 0471 00207000 * DCL 0472 00208000 * GPR05F FIXED(31) REG(05); 0472 00209000 * DCL 0473 00210000 * GPR05P PTR(31) REG(05); 0473 00211000 * DCL 0474 00212000 * GPR06F FIXED(31) REG(06); 0474 00213000 * DCL 0475 00214000 * GPR06P PTR(31) REG(06); 0475 00215000 * DCL 0476 00216000 * GPR07F FIXED(31) REG(07); 0476 00217000 * DCL 0477 00218000 * GPR07P PTR(31) REG(07); 0477 00219000 * DCL 0478 00220000 * GPR08F FIXED(31) REG(08); 0478 00221000 * DCL 0479 00222000 * GPR08P PTR(31) REG(08); 0479 00223000 * DCL 0480 00224000 * GPR09F FIXED(31) REG(09); 0480 00225000 * DCL 0481 00226000 * GPR09P PTR(31) REG(09); 0481 00227000 * DCL 0482 00228000 * GPR10F FIXED(31) REG(10); 0482 00229000 * DCL 0483 00230000 * GPR10P PTR(31) REG(10); 0483 00231000 * DCL 0484 00232000 * GPR11F FIXED(31) REG(11); 0484 00233000 * DCL 0485 00234000 * GPR11P PTR(31) REG(11); 0485 00235000 * DCL 0486 00236000 * GPR12F FIXED(31) REG(12); 0486 00237000 * DCL 0487 00238000 * GPR12P PTR(31) REG(12); 0487 00239000 * DCL 0488 00240000 * GPR13F FIXED(31) REG(13); 0488 00241000 * DCL 0489 00242000 * GPR13P PTR(31) REG(13); 0489 00243000 * DCL 0490 00244000 * GPR14F FIXED(31) REG(14); 0490 00245000 * DCL 0491 00246000 * GPR14P PTR(31) REG(14); 0491 00247000 * DCL 0492 00248000 * GPR00F FIXED(31) REG(00); 0492 00249000 * DCL 0493 00250000 * GPR00P PTR(31) REG(00); 0493 00251000 * DCL 0494 00252000 * GPR01F FIXED(31) REG(01); 0494 00253000 * DCL 0495 00254000 * GPR01P PTR(31) REG(01); 0495 00255000 * DCL 0496 00256000 * GPR02F FIXED(31) REG(02); 0496 00257000 * DCL 0497 00258000 * GPR02P PTR(31) REG(02); 0497 00259000 * DCL 0498 00260000 * GPR03F FIXED(31) REG(03); 0498 00261000 * DCL 0499 00262000 * GPR03P PTR(31) REG(03); 0499 00263000 * DCL 0500 00264000 * GPR04F FIXED(31) REG(04); 0500 00265000 * DCL 0501 00266000 * GPR04P PTR(31) REG(04); 0501 00267000 * RFY 0502 00268000 * (GPR00P, 0502 00269000 * GPR01P, 0502 00270000 * GPR02P, 0502 00271000 * GPR03P, 0502 00272000 * GPR04P, 0502 00273000 * GPR15P) RSTD; 0502 00274000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS( 00275000 * RPHWORK); 0503 00276000 STM GPR00P,GPR14P,RPHWORK(GPR01P) 00277000 * GPR02P=ADDR(ACDLOCK);/* SET PARAM - LOCKWORD PTR */ 00278000 L GPR02P,RPHMAJCB-1(,RPHPTR) 0504 00279000 LA GPR02P,0(,GPR02P) 0504 00280000 LA GPR02P,ACDLOCK(,GPR02P) 0504 00281000 * GPR04P=GPR01P->RPHCRR;/* SET PARAM - ISTCRA PTR */ 00282000 L GPR04P,RPHCRR(,GPR01P) 0505 00283000 * GPR00P=CRALMS05; /* SET PARAM - LOCK LEVEL FLAG */ 00284000 LA GPR00P,16 0506 00285000 * GPR03P=ADDR(GPR04P->CRAL5PTR);/* SET PARAM - LOCK 00286000 * LEVEL PTR */ 00287000 LA GPR03P,CRAL5PTR(,GPR04P) 0507 00288000 * GPR15P=ATCLCPTR->ATCAP36;/* ADDRESS OF LOCK ROUTINE*/ 00289000 L @10,ATCLCPTR 0508 00290000 L GPR15P,ATCAP36(,@10) 0508 00291000 * DCL 0509 00292000 * FMZL0008 BASED(GPR15P) LABEL VALUERANGE(*); 0509 00293000 * CALL FMZL0008; 0510 00294000 BALR @14,@15 0510 00295000 * GENERATE REFS(GPR00P,GPR01P,GPR14P,RPHWORK) SETS( 00296000 * GPR00P,GPR01P,GPR02P,GPR03P,GPR04P,GPR05P,GPR06P, 00297000 * GPR07P,GPR08P,GPR09P,GPR10P,GPR11P,GPR12P,GPR13P, 00298000 * GPR14P,GPR15P); 0511 00299000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 00300000 * RFY 0512 00301000 * (GPR00P, 0512 00302000 * GPR01P, 0512 00303000 * GPR02P, 0512 00304000 * GPR03P, 0512 00305000 * GPR04P, 0512 00306000 * GPR15P) UNRSTD; 0512 00307000 * END; 0513 00308000 * 0513 00309000 */*** END -TPLOCK (DEBLOCK)TYPE(XCLSIVE)- ** */ 00310000 * 0514 00311000 * /* LOCK THE DEB */ 00312000 * RFY 0514 00313000 * (RPLPTR, 0514 00314000 * CRRPTR, 0514 00315000 * FSBPTR) RSTD; /* RESTRICT REGS @D31KKNL*/ 00316000 * CRRPTR=ADDR(CRRSPACE);/* RE-INIT CRR @D31KKNL*/ 00317000 L @15,RPHCRR(,RPHPTR) 0515 00318000 L CRRPTR,CRACRR(,@15) 0515 00319000 LA CRRPTR,CRRSPACE(,CRRPTR) 0515 00320000 * RPLPTR=CRRARPL; /* RE-INIT RPL @D31KKNL*/ 00321000 L RPLPTR,CRRARPL(,CRRPTR) 0516 00322000 * CRRDBLCK=ONEB; /* SET DEB LOCK FLG @D33SKD3*/ 00323000 OI CRRDBLCK(CRRPTR),B'00010000' 0517 00324000 */*VMDESET ((15),VTAM) */ 00325000 * 0518 00326000 * DO; /* INVOKE MODESET MACRO */ 00327000 * GEN; 0519 00328000 MODESET EXTKEY=VTAM,WORKREG=2 00329000 * RFY 0520 00330000 * (GPR15P) RSTD; 0520 00331000 * GPR15F=0; 0521 00332000 SLR GPR15F,GPR15F 0521 00333000 * RFY 0522 00334000 * (GPR15P) UNRSTD; /* PUT RETURN CODE IN RCREG */ 00335000 * END; /* VMDESET GO TO VTAM KEY */ 00336000 * END; /* @D33SKD3*/ 00337000 */******************************************************************** 00338000 * */ 00339000 */* */ 00340000 */* ISTRCC21 - MAINLINE 3 */ 00341000 */* */ 00342000 */* THIS PORTION OF THE MAINLINE CODE CHECKS THE */ 00343000 */* MAJOR CONTROL BLOCK TYPE AND IF ACDEB, */ 00344000 */* EXECUTES SEGMENT FNDATAA, IF FMCB, EXECUTES */ 00345000 */* SEGMENT FNDATAS. THESE SEGMENTS SEARCH THE */ 00346000 */* APPROPRIATE DATA QUEUES FOR DATA WHICH WILL */ 00347000 */* SATISFY THE RPL UNDER CONSIDERATION. AFTER */ 00348000 */* ONE OF THE ABOVE SEGMENTS HAS COMPLETED */ 00349000 */* EXECUTION, THE CRR RPL SATISFIED SWITCH IS */ 00350000 */* TESTED TO SEE IF QUALIFYING DATA WAS FOUND. */ 00351000 */* IF NO DATA WAS FOUND, THE ACDEB LOCK IS RELEASED */ 00352000 */* IF IT WAS OBTAINED AND A TPESC MACRO IS ISSUED. */ 00353000 */* IF ASYNCHRONOUS OR RESPONSE DATA WAS FOUND */ 00354000 */* A TPDVTS MACRO IS ISSUED TO PASS CONTROL */ 00355000 */* TO THE ASYNCHRONOUS FEEDBACK PROCESSOR. IF */ 00356000 */* NON-SNA OR SYNCHRONOUS SNA DATA WAS FOUND */ 00357000 */* A CHECK FOR OUTBOUND PURGE REQUEST (BIT */ 00358000 */* FMCOBPRG IN THE FMCB) IS MADE, AND IF SO, */ 00359000 */* SEGMENT PURGE IS EXECUTED. IF AFTER PURGE */ 00360000 */* HAS COMPLETED EXECUTION, THE CRR RPL */ 00361000 */* SATISFIED SWITCH IS STILL ON, OR IF PURGE */ 00362000 */* WAS NOT REQUESTED, A TPDVTS MACRO IS */ 00363000 */* ISSUED TO PASS CONTROL TO THE SYNCHRONOUS */ 00364000 */* FEEDBACK PROCESSOR. IF PURGE WAS EXECUTED */ 00365000 */* AND CRR RPL SATISFIED IS OFF ( NO DATA */ 00366000 */* REMAINS ON THE QUEUE ), ISTRCC63 IS CALLED */ 00367000 */* ( AS AN IN LINE SUBROUTINE ) TO DO COMMON */ 00368000 */* HOUSEKEEPING FUNCTIONS FOR THE SYNCHRONOUS */ 00369000 */* DATA QUEUE AND THE ACDEB LOCK IS RELEASED */ 00370000 */* IF IT WAS OBTAINED AND A TPESC MACRO IS ISSUED */ 00371000 */* TO PASS CONTROL TO THE NEXT PROCESS. */ 00372000 */* */ 00373000 */******************************************************************** 00374000 * */ 00375000 * 0525 00376000 * 0525 00377000 */******************************************************************** 00378000 * */ 00379000 */* */ 00380000 */* FNDATAA - SEGMENT OF ISTRCC21 */ 00381000 */* */ 00382000 */* FNDATAA SEARCHES THE DATA QUEUES CHAINED */ 00383000 */* FROM THE ACDEB TO FIND AN FMCB WHICH WILL */ 00384000 */* SATISFY THE RPL UNDER CONSIDERATION ( EITHER */ 00385000 */* THE RPL WHICH INITIATED THIS PASS THROUGH */ 00386000 */* THE CONTROL LAYER OR AN RPL SELECTED FROM */ 00387000 */* THE WAIT QUEUE ). THIS SEARCH IS DONE IN */ 00388000 */* SUCH A MANNER AS TO GIVE PRIORITY TO DFASY */ 00389000 */* DATA, THEN RESP DATA, THEN DFSYN DATA */ 00390000 */* IF A QUALIFIED FMCB IS FOUND, */ 00391000 */* THE FMCB LOCK IS OBTAINED, THE CRR RPL */ 00392000 */* SATISFIED SWITCH (CRRRPLS) IS TURNED ON, */ 00393000 */* THE ADDRESS OF THE FMCB IS PLACED IN THE */ 00394000 */* CRR, THE OLDEST FSB ON THE CORRESPONDING */ 00395000 */* FMCB DATA QUEUE IS OBTAINED, AND THE FSB */ 00396000 */* ADDRESS IS PLACED IN THE CRR. ALL CRR RTYPES */ 00397000 */* EXCEPT THE ONE SATISFIED ARE TURNED OFF */ 00398000 */* IN THE CRR. IF NO FMCB IS FOUND, THE CRRRPLS */ 00399000 */* SWITCH IS LEFT OFF. */ 00400000 */* */ 00401000 */******************************************************************** 00402000 * */ 00403000 * 0525 00404000 * FSBPTR=0; /* CLEAR FSB POINTER */ 00405000 @RF00460 SLR @15,@15 0525 00406000 LR FSBPTR,@15 0525 00407000 * FMCBPTR=ACDASFQ&ZAPREG; /* GET ASY DATA QUEUE */ 00408000 L @05,RPHMAJCB-1(,RPHPTR) 0526 00409000 LA @05,0(,@05) 0526 00410000 L FMCBPTR,ACDASFQ(,@05) 0526 00411000 N FMCBPTR,@CF01332 0526 00412000 * IF CRRDFASY=ONEB&FMCBPTR^=0/* DATA ON QUEUE ? */ 00413000 * THEN 0527 00414000 TM CRRDFASY(CRRPTR),B'00001000' 0527 00415000 BNO @RF00527 0527 00416000 CR FMCBPTR,@15 0527 00417000 BE @RF00527 0527 00418000 * DO; /* YES */ 00419000 */* TPFEL (,ACDASFQ) RETPTR(FMCBPTR)CHAIN(FMCFASYA) */ 00420000 * 0529 00421000 * DO; /* BEGIN TPFEL CODE GENERATION */ 00422000 * DCL 0530 00423000 * FMZCA016 BIT(32) CONSTANT('80000000'X); 0530 00424000 * DCL 0531 00425000 * FMZCB016 BIT(32) CONSTANT('7FFFFFFF'X); 0531 00426000 * RFY 0532 00427000 * (GPR00P, 0532 00428000 * GPR01P, 0532 00429000 * GPR14P, 0532 00430000 * GPR15P) RSTD; 0532 00431000 * GPR15P=ADDR(ACDASFQ);/* ADDRESS QUEUE POINTER */ 00432000 LA GPR15P,ACDASFQ(,@05) 0533 00433000 * GPR14P=GPR15P->PABWEQA|FMZCA016; 0534 00434000 L @05,@CF01334 0534 00435000 L GPR14P,PABWEQA(,GPR15P) 0534 00436000 OR GPR14P,@05 0534 00437000 * IF GPR14P=FMZCA016 THEN 0535 00438000 CLR GPR14P,@05 0535 00439000 BE @RT00535 0535 00440000 * ; 0536 00441000 * ELSE 0537 00442000 * DO; 0537 00443000 * GPR00P=FMZCA016;/* INITIALIZE QUIT FLAG */ 00444000 L GPR00P,@CF01334 0538 00445000 * DO WHILE(GPR00P^=GPR14P->FMCFASYA); 0539 00446000 B @DE00539 0539 00447000 @DL00539 DS 0H 0540 00448000 * GPR14P=GPR14P->FMCFASYA;/* SEARCH FOR END OF 00449000 * CHAIN */ 00450000 L GPR14P,FMCFASYA(,GPR14P) 0540 00451000 * END; 0541 00452000 @DE00539 C GPR00P,FMCFASYA(,GPR14P) 0541 00453000 BNE @DL00539 0541 00454000 * END; 0542 00455000 * GPR14P=GPR14P&FMZCB016; 0543 00456000 @RT00535 N GPR14P,@CF01332 0543 00457000 * FMCBPTR=GPR14P; 0544 00458000 LR FMCBPTR,GPR14P 0544 00459000 * RFY 0545 00460000 * (GPR00P, 0545 00461000 * GPR01P, 0545 00462000 * GPR14P, 0545 00463000 * GPR15P) UNRSTD; 0545 00464000 * END; /* END TPFEL GENERATION */ 00465000 * CALL LOCKFMCB; /* GET AND LOCK FMCB */ 00466000 BAL @14,LOCKFMCB 0547 00467000 * CRRDFSYN=ZERB; /* CLEAR SYN RTYPE */ 00468000 * CRRRESP=ZERB; /* CLEAR RESP RTYPE */ 00469000 NI CRRDFSYN(CRRPTR),B'11111001' 0549 00470000 * REG7=ADDR(FMCFBAS); /* SET UP PTR FMCB DFASY Q */ 00471000 LA REG7,FMCFBAS(,FMCBPTR) 0550 00472000 * CALL DEQFSB; /* DEQ OLDEST FSB ON DFASY Q */ 00473000 BAL @14,DEQFSB 0551 00474000 * END; /* GET FSB POINTER */ 00475000 * ELSE 0553 00476000 * DO; /* NO */ 00477000 B @RC00527 0553 00478000 @RF00527 DS 0H 0554 00479000 * FMCBPTR=ACDREFQ&ZAPREG;/* GET RESP DATA QUEUE */ 00480000 L @15,RPHMAJCB-1(,RPHPTR) 0554 00481000 LA @15,0(,@15) 0554 00482000 L FMCBPTR,ACDREFQ(,@15) 0554 00483000 N FMCBPTR,@CF01332 0554 00484000 * IF CRRRESP=ONEB&FMCBPTR^=0/* DATA ON QUEUE ? */ 00485000 * THEN 0555 00486000 TM CRRRESP(CRRPTR),B'00000100' 0555 00487000 BNO @RF00555 0555 00488000 LTR FMCBPTR,FMCBPTR 0555 00489000 BZ @RF00555 0555 00490000 * DO; /* YES */ 00491000 */* TPFEL (,ACDREFQ) RETPTR(FMCBPTR)CHAIN(FMCFRESA) */ 00492000 * 0557 00493000 * DO; /* BEGIN TPFEL CODE GENERATION */ 00494000 * RFY 0558 00495000 * (GPR00P, 0558 00496000 * GPR01P, 0558 00497000 * GPR14P, 0558 00498000 * GPR15P) RSTD; 0558 00499000 * GPR15P=ADDR(ACDREFQ);/* ADDRESS QUEUE POINTER */ 00500000 L @05,RPHMAJCB-1(,RPHPTR) 0559 00501000 LA @05,0(,@05) 0559 00502000 LA GPR15P,ACDREFQ(,@05) 0559 00503000 * GPR14P=GPR15P->PABWEQA|FMZCA016; 0560 00504000 L @05,@CF01334 0560 00505000 L GPR14P,PABWEQA(,GPR15P) 0560 00506000 OR GPR14P,@05 0560 00507000 * IF GPR14P=FMZCA016 THEN 0561 00508000 CLR GPR14P,@05 0561 00509000 BE @RT00561 0561 00510000 * ; 0562 00511000 * ELSE 0563 00512000 * DO; 0563 00513000 * GPR00P=FMZCA016;/* INITIALIZE QUIT FLAG */ 00514000 L GPR00P,@CF01334 0564 00515000 * DO WHILE(GPR00P^=GPR14P->FMCFRESA); 0565 00516000 B @DE00565 0565 00517000 @DL00565 DS 0H 0566 00518000 * GPR14P=GPR14P->FMCFRESA;/* SEARCH FOR END 00519000 * OF CHAIN */ 00520000 L GPR14P,FMCFRESA(,GPR14P) 0566 00521000 * END; 0567 00522000 @DE00565 C GPR00P,FMCFRESA(,GPR14P) 0567 00523000 BNE @DL00565 0567 00524000 * END; 0568 00525000 * GPR14P=GPR14P&FMZCB016; 0569 00526000 @RT00561 N GPR14P,@CF01332 0569 00527000 * FMCBPTR=GPR14P; 0570 00528000 LR FMCBPTR,GPR14P 0570 00529000 * RFY 0571 00530000 * (GPR00P, 0571 00531000 * GPR01P, 0571 00532000 * GPR14P, 0571 00533000 * GPR15P) UNRSTD; 0571 00534000 * END; /* END TPFEL GENERATION */ 00535000 * CALL LOCKFMCB; /* GET AND LOCK FMCB */ 00536000 BAL @14,LOCKFMCB 0573 00537000 * CRRDFASY=ZERB; /* CLEAR ASY RTYPE */ 00538000 * CRRDFSYN=ZERB; /* CLEAR SYN RTYPE */ 00539000 NI CRRDFASY(CRRPTR),B'11110101' 0575 00540000 * REG7=ADDR(FMCFBRE);/* SET UP PTR FMCB RESP Q */ 00541000 LA REG7,FMCFBRE(,FMCBPTR) 0576 00542000 * CALL DEQFSB; /* DEQ OLDEST FSB ON RESP Q */ 00543000 BAL @14,DEQFSB 0577 00544000 * END; /* GET FSB POINTER */ 00545000 * ELSE 0579 00546000 * DO; /* NO */ 00547000 B @RC00555 0579 00548000 @RF00555 DS 0H 0580 00549000 * CRRBARAD=0; /* CLEAR WORK AREA */ 00550000 SLR @15,@15 0580 00551000 ST @15,CRRBARAD(,CRRPTR) 0580 00552000 * FMCBPTR=ACDRAFQ&ZAPREG;/* GET READ DATA QUEUE */ 00553000 L @15,RPHMAJCB-1(,RPHPTR) 0581 00554000 LA @15,0(,@15) 0581 00555000 L FMCBPTR,ACDRAFQ(,@15) 0581 00556000 N FMCBPTR,@CF01332 0581 00557000 * IF CRRDFSYN=ZERB THEN/* SYNCH DATA ? @ZA11995*/ 00558000 TM CRRDFSYN(CRRPTR),B'00000010' 0582 00559000 BZ @RT00582 0582 00560000 * GO TO NOADATA;/* NO THEN EXIT @ZA11995*/ 00561000 * IF RPLREQ='23'X /* RCV REQUEST @D31KKNL*/ 00562000 * THEN 0584 00563000 CLI RPLREQ(RPLPTR),35 0584 00564000 BNE @RF00584 0584 00565000 * DO; /* YES */ 00566000 * DO WHILE FMCBPTR^=0;/* LOOP THRU QUEUE */ 00567000 B @DE00586 0586 00568000 @DL00586 DS 0H 0587 00569000 * RESPECIFY 0587 00570000 * ISTDEVCH BASED(ADDR(NCBDEVCH));/* ADDRESS 00571000 * DEVICE CHARS */ 00572000 * IF FMCMODE(1:8)=FMCRCD/* SNA FMCB ? */ 00573000 * THEN 0588 00574000 CLC FMCMODE(8,FMCBPTR),@CC03265 0588 00575000 BNE @RF00588 0588 00576000 * CRRBARAD=FMCBPTR; 0589 00577000 ST FMCBPTR,CRRBARAD(,CRRPTR) 0589 00578000 * FMCBPTR=FMCRAFM;/* GET NEXT FMCB */ 00579000 @RF00588 L FMCBPTR,FMCRAFM(,FMCBPTR) 0590 00580000 * FMCBPTR=FMCBPTR&ZAPREG; 0591 00581000 N FMCBPTR,@CF01332 0591 00582000 * END; /* SYN SEARCH DONE */ 00583000 @DE00586 SLR @15,@15 0592 00584000 CR FMCBPTR,@15 0592 00585000 BNE @DL00586 0592 00586000 * IF CRRBARAD^=0/* FMCB FOUND ? */ 00587000 * THEN 0593 00588000 C @15,CRRBARAD(,CRRPTR) 0593 00589000 BE @RF00593 0593 00590000 * DO; /* YES */ 00591000 * CRRDFASY=ZERB;/* RESET ASY RTYPE */ 00592000 * CRRRESP=ZERB;/* RESET RESP RTYPE */ 00593000 NI CRRDFASY(CRRPTR),B'11110011' 0596 00594000 * END; /* GOT SYN DATA */ 00595000 * ELSE 0598 00596000 * GO TO NOADATA;/* NO, @D31KKNL*/ 00597000 * END; /* SYN SEARCH DONE */ 00598000 * ELSE 0600 00599000 * DO; /* NO */ 00600000 B @RC00584 0600 00601000 @RF00584 DS 0H 0601 00602000 *NONSNA: 0601 00603000 * FMCBPTR=ACDRAFQ&ZAPREG; 0601 00604000 NONSNA L @15,RPHMAJCB-1(,RPHPTR) 0601 00605000 LA @15,0(,@15) 0601 00606000 L FMCBPTR,ACDRAFQ(,@15) 0601 00607000 N FMCBPTR,@CF01332 0601 00608000 * DO WHILE FMCBPTR^=0; 0602 00609000 B @DE00602 0602 00610000 @DL00602 DS 0H 0603 00611000 * IF FMCMODE(1:8)^=FMCRCD THEN 0603 00612000 CLC FMCMODE(8,FMCBPTR),@CC03265 0603 00613000 BE @RF00603 0603 00614000 * CRRBARAD=FMCBPTR; 0604 00615000 ST FMCBPTR,CRRBARAD(,CRRPTR) 0604 00616000 * FMCBPTR=FMCRAFM; 0605 00617000 @RF00603 L FMCBPTR,FMCRAFM(,FMCBPTR) 0605 00618000 * FMCBPTR=FMCBPTR&ZAPREG; 0606 00619000 N FMCBPTR,@CF01332 0606 00620000 * END; /* DONE NON-SNA SEARCH */ 00621000 @DE00602 SLR @15,@15 0607 00622000 CR FMCBPTR,@15 0607 00623000 BNE @DL00602 0607 00624000 * IF CRRBARAD^=0/* FMCB FOUND ? */ 00625000 * THEN 0608 00626000 C @15,CRRBARAD(,CRRPTR) 0608 00627000 BE @RF00608 0608 00628000 * DO; /* YES */ 00629000 * CRRDFASY=ZERB; 0610 00630000 * CRRRESP=ZERB; 0611 00631000 NI CRRDFASY(CRRPTR),B'11110011' 0611 00632000 * END; /* BASIC SEARCH DONE */ 00633000 * ELSE 0613 00634000 * GO TO NOADATA; 0613 00635000 * END; /* SEARCH DONE */ 00636000 * FMCBPTR=CRRBARAD;/* GET FMCB POINTER */ 00637000 @RC00584 L FMCBPTR,CRRBARAD(,CRRPTR) 0615 00638000 * CALL LOCKFMCB; /* LOCK THE FMCB */ 00639000 BAL @14,LOCKFMCB 0616 00640000 * REG7=ADDR(FMCFBA);/* SET UP Q PTR FOR FMCB DFSYN 00641000 * Q */ 00642000 LA REG7,FMCFBA(,FMCBPTR) 0617 00643000 * CALL LOCATE; /* LOCATE OLDEST FSB ON READ Q */ 00644000 BAL @14,LOCATE 0618 00645000 * END; /* GET OLDEST FSB */ 00646000 * END; /* DATA HAS BEEN FOUND */ 00647000 @RC00555 DS 0H 0621 00648000 * IF(FSBPTR&ZAPREG)=0 /* @D31KKNL*/ 00649000 * THEN 0621 00650000 @RC00527 LR @15,FSBPTR 0621 00651000 N @15,@CF01332 0621 00652000 LTR @15,@15 0621 00653000 BNZ @RF00621 0621 00654000 * DO; /* @D31KKNL*/ 00655000 * CRRFMCB=FMCBPTR; /* SAVE FMCB PTR @ZA18905*/ 00656000 ST FMCBPTR,CRRFMCB(,CRRPTR) 0623 00657000 */* TPDEQ (FMCBPTR,ACDRAFQ) CHAIN(FMCRAFM) */ 00658000 * 0624 00659000 * DO; /* BEGIN TPDEQ CODE GENERATION */ 00660000 * RFY 0625 00661000 * (GPR00P, 0625 00662000 * GPR01P, 0625 00663000 * GPR14P, 0625 00664000 * GPR15P) RSTD; 0625 00665000 * GPR15P=ADDR(ACDRAFQ);/* ADDRESS QUEUE POINTER */ 00666000 L GPR15P,RPHMAJCB-1(,RPHPTR) 0626 00667000 LA GPR15P,0(,GPR15P) 0626 00668000 LA GPR15P,ACDRAFQ(,GPR15P) 0626 00669000 * RFY 0627 00670000 * (GPR02P, 0627 00671000 * GPR03P) RSTD; 0627 00672000 * STM(GPR02P,GPR03P,GPR01P->RPHWORK(5:12)); 0628 00673000 STM GPR02P,GPR03P,RPHWORK+4(GPR01P) 0628 00674000 * GPR03P=FMCBPTR|FMZCA016; 0629 00675000 L @05,@CF01334 0629 00676000 LR GPR03P,FMCBPTR 0629 00677000 OR GPR03P,@05 0629 00678000 * GPR14P=FMZCA016; 0630 00679000 LR GPR14P,@05 0630 00680000 * GPR15P=ADDR(GPR15P->PABWEQA); 0631 00681000 * GPR02P=GPR15P->PABWEQA|FMZCA016; 0632 00682000 O @05,PABWEQA(,GPR15P) 0632 00683000 LR GPR02P,@05 0632 00684000 * DO WHILE(GPR02P^=GPR14P); 0633 00685000 B @DE00633 0633 00686000 @DL00633 DS 0H 0634 00687000 *FMZL2024: 0634 00688000 * ; 0634 00689000 FMZL2024 DS 0H 0635 00690000 * IF GPR02P=GPR03P THEN 0635 00691000 CR GPR02P,GPR03P 0635 00692000 BNE @RF00635 0635 00693000 * DO; 0636 00694000 * GPR00P=GPR02P->FMCRAFM; 0637 00695000 L GPR00P,FMCRAFM(,GPR02P) 0637 00696000 * CS(GPR02P,GPR00P,GPR15P->PABWEQA); 0638 00697000 CS GPR02P,@00,PABWEQA(GPR15P) 0638 00698000 * BC(7,FMZL3024); 0639 00699000 BC 7,FMZL3024 0639 00700000 * GPR14P=GPR02P; 0640 00701000 LR GPR14P,GPR02P 0640 00702000 * GPR14P->FMCRAFM=0; 0641 00703000 SLR @05,@05 0641 00704000 ST @05,FMCRAFM(,GPR14P) 0641 00705000 * END; 0642 00706000 * ELSE 0643 00707000 * DO; 0643 00708000 B @RC00635 0643 00709000 @RF00635 DS 0H 0644 00710000 * IF(GPR02P->FMCRAFM)=GPR14P THEN 0644 00711000 L @05,FMCRAFM(,GPR02P) 0644 00712000 CR @05,GPR14P 0644 00713000 BE @RT00644 0644 00714000 * GOTO ISTA0024; 0645 00715000 * ELSE 0646 00716000 * DO; 0646 00717000 * GPR15P=ADDR(GPR02P->FMCRAFM); 0647 00718000 LA GPR15P,FMCRAFM(,GPR02P) 0647 00719000 * GPR02P=GPR02P->FMCRAFM; 0648 00720000 LR GPR02P,@05 0648 00721000 * GOTO FMZL2024; 0649 00722000 B FMZL2024 0649 00723000 * END; 0650 00724000 * END; 0651 00725000 *FMZL3024: 0652 00726000 * ; 0652 00727000 @RC00635 DS 0H 0652 00728000 FMZL3024 DS 0H 0653 00729000 * END; 0653 00730000 @DE00633 CR GPR02P,GPR14P 0653 00731000 BNE @DL00633 0653 00732000 *ISTA0024: 0654 00733000 * ; 0654 00734000 ISTA0024 DS 0H 0655 00735000 * LM(GPR02P,GPR03P,GPR01P->RPHWORK(5:12)); 0655 00736000 LM GPR02P,GPR03P,RPHWORK+4(GPR01P) 0655 00737000 * RFY 0656 00738000 * (GPR02P, 0656 00739000 * GPR03P) UNRSTD; 0656 00740000 * GPR14P=GPR14P&FMZCB016; 0657 00741000 N GPR14P,@CF01332 0657 00742000 * GPR01P->RPHWEA=GPR14P; 0658 00743000 ST GPR14P,RPHWEA(,GPR01P) 0658 00744000 * RFY 0659 00745000 * (GPR00P, 0659 00746000 * GPR01P, 0659 00747000 * GPR14P, 0659 00748000 * GPR15P) UNRSTD; 0659 00749000 * END; /* END TPDEQ GENERATION @ZA26209*/ 00750000 * GO TO NOADATA; /* @D31KKNL*/ 00751000 B NOADATA 0661 00752000 * END; /* @D31KKNL*/ 00753000 * CRRFMCB=FMCBPTR; /* SAVE FMCB POINTER */ 00754000 @RF00621 ST FMCBPTR,CRRFMCB(,CRRPTR) 0663 00755000 * CRRRPLS=ONEB; /* SET RPL SATISFIED */ 00756000 OI CRRRPLS(CRRPTR),B'10000000' 0664 00757000 * CRRFSB=FSBPTR; /* SAVE FSB POINTER */ 00758000 ST FSBPTR,CRRFSB(,CRRPTR) 0665 00759000 *NOADATA: 0666 00760000 * ; /* DATA SEARCH DONE */ 00761000 NOADATA DS 0H 0667 00762000 */******************************************************************** 00763000 * */ 00764000 */* END OF SEGMENT FNDATAA */ 00765000 */******************************************************************** 00766000 * */ 00767000 * 0667 00768000 * END; /* DONE ANY DATA FIND */ 00769000 * ELSE 0668 00770000 * DO; /* SPECIFIC */ 00771000 B @RC00458 0668 00772000 @RF00458 DS 0H 0669 00773000 * 0669 00774000 */******************************************************************** 00775000 * */ 00776000 */* */ 00777000 */* FNDATAS - SEGMENT OF ISTRCC21 */ 00778000 */* */ 00779000 */* FNDATAS SEARCHES THE DATA QUEUES OF THE FMCB */ 00780000 */* TO FIND THE OLDEST FSB WHICH SATISFIES THE */ 00781000 */* SPECIFIC REQUEST WHICH IS UNDER CONSIDERATION */ 00782000 */* ( THIS MAY BE THE RPL WHICH INITIATED THIS */ 00783000 */* PASS THROUGH THE CONTROL LAYER OR AN RPL */ 00784000 */* SELECTED FROM THE FMCB WAIT QUEUE ). THE */ 00785000 */* SEARCH IS DONE IN A MANNER WHICH WILL GIVE */ 00786000 */* PRIORITY TO DFASY DATA, THEN RESP DATA, */ 00787000 */* DFSYN DATA, AND THEN NSNA DATA. IF A */ 00788000 */* QUALIFYING FSB IS FOUND THE CRR RTYPES */ 00789000 */* EXCEPT THE ONE SATISFIED ARE TURNED OFF */ 00790000 */* AND THE FSB ADDRESS IS PLACED IN THE CRR. */ 00791000 */* THE CRR RPL SATISFIED SWITCH (CRRRPLS ) IS */ 00792000 */* TURNED ON. IF NO FSB IS FOUND, THE CRRRPLS */ 00793000 */* SWITCH IS LEFT OFF. */ 00794000 */* */ 00795000 */******************************************************************** 00796000 * */ 00797000 * 0669 00798000 * CRRFMCB=RPHMAJCB; /* MAJ CB IS FMCB */ 00799000 L @15,RPHMAJCB-1(,RPHPTR) 0669 00800000 LA @15,0(,@15) 0669 00801000 ST @15,CRRFMCB(,CRRPTR) 0669 00802000 * FSBPTR=FMCFBAS&ZAPREG; /* GET ASY DATA CHAIN */ 00803000 L FSBPTR,FMCFBAS(,FMCBPTR) 0670 00804000 N FSBPTR,@CF01332 0670 00805000 * IF CRRDFASY=ONEB&FSBPTR^=0/* ASY REQ AND DATA ? */ 00806000 * THEN 0671 00807000 TM CRRDFASY(CRRPTR),B'00001000' 0671 00808000 BNO @RF00671 0671 00809000 LTR FSBPTR,FSBPTR 0671 00810000 BZ @RF00671 0671 00811000 * DO; /* YES */ 00812000 * REG7=ADDR(FMCFBAS); /* SET UP PTR FOR FMCB DFASY Q */ 00813000 LA REG7,FMCFBAS(,FMCBPTR) 0673 00814000 * CALL DEQFSB; /* DEQ OLDEST FSB ON DFASY Q */ 00815000 BAL @14,DEQFSB 0674 00816000 * CRRDFSYN=ZERB; /* GET OLDEST FSB */ 00817000 * CRRRESP=ZERB; /* TURN OFF SYN AND */ 00818000 NI CRRDFSYN(CRRPTR),B'11111001' 0676 00819000 * END; /* ASY DATA GOTTEN */ 00820000 * ELSE 0678 00821000 * DO; /* NOT ASY */ 00822000 B @RC00671 0678 00823000 @RF00671 DS 0H 0679 00824000 * FSBPTR=FMCFBRE&ZAPREG;/* GET RESP DATA CHAIN */ 00825000 L FSBPTR,FMCFBRE(,FMCBPTR) 0679 00826000 N FSBPTR,@CF01332 0679 00827000 * IF CRRRESP=ONEB&FSBPTR^=0/* RESP REQ AND DATA ? */ 00828000 * THEN 0680 00829000 TM CRRRESP(CRRPTR),B'00000100' 0680 00830000 BNO @RF00680 0680 00831000 LTR FSBPTR,FSBPTR 0680 00832000 BZ @RF00680 0680 00833000 * DO; /* YES */ 00834000 * REG7=ADDR(FMCFBRE);/* SET UP PTR FOR FMCB RESP Q */ 00835000 LA REG7,FMCFBRE(,FMCBPTR) 0682 00836000 * CALL DEQFSB; /* DEQ OLDEST FSB ON RESP Q */ 00837000 BAL @14,DEQFSB 0683 00838000 * CRRDFASY=ZERB; /* GET OLDEST FSB */ 00839000 * CRRDFSYN=ZERB; /* TURN OFF ASY AND */ 00840000 NI CRRDFASY(CRRPTR),B'11110101' 0685 00841000 * END; /* RESP DATA GOTTEN */ 00842000 * ELSE 0687 00843000 * DO; /* NOT RESP OR ASY */ 00844000 B @RC00680 0687 00845000 @RF00680 DS 0H 0688 00846000 * FSBPTR=FMCFBA&ZAPREG;/* GET ANY DATA CHAIN */ 00847000 L FSBPTR,FMCFBA(,FMCBPTR) 0688 00848000 N FSBPTR,@CF01332 0688 00849000 * IF CRRDFSYN=ONEB/* SYN REQ ? */ 00850000 * THEN 0689 00851000 TM CRRDFSYN(CRRPTR),B'00000010' 0689 00852000 BNO @RF00689 0689 00853000 * IF FSBPTR^=0 /* DATA ? */ 00854000 * THEN 0690 00855000 LTR FSBPTR,FSBPTR 0690 00856000 BZ @RF00690 0690 00857000 * DO; /* YES */ 00858000 * REG7=ADDR(FMCFBA);/* SET UP PTR FMCB DFSYN 00859000 * Q */ 00860000 LA REG7,FMCFBA(,FMCBPTR) 0692 00861000 * CALL LOCATE;/* LOCATE OLDEST FSB ON DFSYN Q*/ 00862000 BAL @14,LOCATE 0693 00863000 * CRRDFASY=ZERB;/* GET OLDEST FSB */ 00864000 * CRRRESP=ZERB;/* TURN OFF ASY AND */ 00865000 NI CRRDFASY(CRRPTR),B'11110011' 0695 00866000 * END; /* SYN DATA GOTTEN */ 00867000 * ELSE 0697 00868000 * GO TO NOSYN;/* NO SYN DATA @DM12427*/ 00869000 * ELSE 0698 00870000 *NOSYN: 0698 00871000 * IF FMCDEVOF=ONEB|FMCDEDSC=ONEB/* @DM12427*/ 00872000 * THEN 0698 00873000 B @RC00689 0698 00874000 @RF00689 DS 0H 0698 00875000 NOSYN TM FMCDEVOF(FMCBPTR),B'00011000' 0698 00876000 BZ @RF00698 0698 00877000 * DO; /* FMCB MARKED OFF LINE OR DISC ?*/ 00878000 * CRRRTNCD=CRRPURGE; 0700 00879000 MVI CRRRTNCD(CRRPTR),X'1C' 0700 00880000 * CRRFDB2=CRRDEVOF;/* @VS40402*/ 00881000 MVI CRRFDB2(CRRPTR),X'07' 0701 00882000 * GO TO NOSDATA; 0702 00883000 B NOSDATA 0702 00884000 * END; 0703 00885000 * ELSE 0704 00886000 * GO TO NOSDATA; 0704 00887000 * END; /* END OF DATA SEARCH */ 00888000 @RC00689 DS 0H 0706 00889000 * END; /* END OF DATA SEARCH */ 00890000 @RC00680 DS 0H 0707 00891000 * CRRFSB=FSBPTR; /* SAVE FSB POINTER */ 00892000 @RC00671 ST FSBPTR,CRRFSB(,CRRPTR) 0707 00893000 * CRRRPLS=ONEB; /* SET RPL SATISFIED */ 00894000 OI CRRRPLS(CRRPTR),B'10000000' 0708 00895000 *NOSDATA: 0709 00896000 * ; /* END SPECIFIC SEARCH */ 00897000 NOSDATA DS 0H 0710 00898000 */******************************************************************** 00899000 * */ 00900000 */* END OF SEGMENT FNDATAS */ 00901000 */******************************************************************** 00902000 * */ 00903000 * 0710 00904000 * END; /* DONE SPEC DATA FIND */ 00905000 * IF CRRRPLS=ONEB /* RPL SATISFIED ? */ 00906000 * THEN 0711 00907000 @RC00458 TM CRRRPLS(CRRPTR),B'10000000' 0711 00908000 BNO @RF00711 0711 00909000 * DO; /* YES */ 00910000 * IF RPLREQ='1D'X /* NON-SNA ? */ 00911000 * THEN 0713 00912000 CLI RPLREQ(RPLPTR),29 0713 00913000 BE @RT00713 0713 00914000 * GO TO ESCAPE; /* YES, DO TPESC */ 00915000 * ELSE 0715 00916000 * DO; /* IS SNA REQUEST */ 00917000 * CALL DEBUNLK; /* UNLOCK DEB @D33SKD3*/ 00918000 BAL @14,DEBUNLK 0716 00919000 * IF CRRDFASY=ONEB|CRRRESP=ONEB THEN/* IS IT ASYNCH ? */ 00920000 TM CRRDFASY(CRRPTR),B'00001100' 0717 00921000 BZ @RF00717 0717 00922000 * REG7=ADDR(RCC54); /* ASY FDBK */ 00923000 LA REG7,RCC54 0718 00924000 * ELSE 0719 00925000 * DO; /* NOT ASY OR RESP */ 00926000 B @RC00717 0719 00927000 @RF00717 DS 0H 0720 00928000 * REG7=ADDR(RCC52); 0720 00929000 LA REG7,RCC52 0720 00930000 * END; /* @D31KKNL*/ 00931000 */* TPDVTS NAMEPTR(REG7)EPTPTR(FMCDVTA) */ 00932000 * 0722 00933000 * DO; 0722 00934000 * 0722 00935000 @RC00717 DS 0H 0723 00936000 */* ATBUILD (ISTRPH,ISTPAB,ISTDYPAB,ISTATCVT) */ 00937000 */* END OF ATBUILD */ 00938000 * 0723 00939000 * RFY 0723 00940000 * (GPR01P, 0723 00941000 * GPR02P, 0723 00942000 * GPR06P, 0723 00943000 * GPR08P) RSTD; 0723 00944000 * GEN REFS(GPR01P,GPR02P,GPR08P) SETS(RPHWORK) 0724 00945000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 0724 00946000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 00947000 * RFY 0725 00948000 * (GPR02P, 0725 00949000 * GPR08P) UNRSTD; 0725 00950000 * RFY 0726 00951000 * GPR00P RSTD; 0726 00952000 * GPR00P=REG7; 0727 00953000 LR GPR00P,REG7 0727 00954000 * GPR01P->RPHSRPRM=FMCDVTA; 0728 00955000 L @15,FMCDVTA(,FMCBPTR) 0728 00956000 ST @15,RPHSRPRM(,GPR01P) 0728 00957000 * RFY 0729 00958000 * GPR15P RSTD; 0729 00959000 * DO; /* LISATCVT 0730 00960000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00961000 * GPR15P=ATCLCPTR;/* SET UP ATCVT POINTER */ 00962000 L GPR15P,ATCLCPTR 0731 00963000 * END; /* LISATCVT */ 00964000 * GPR15P=GPR15P->ATCESC02; 0733 00965000 L GPR15P,ATCESC02(,GPR15P) 0733 00966000 * DCL 0734 00967000 * FMZL0030 BASED(GPR15P) LABEL VALUERANGE(*); 0734 00968000 * CALL FMZL0030; 0735 00969000 BALR @14,@15 0735 00970000 * RFY 0736 00971000 * (GPR00P, 0736 00972000 * GPR15P) UNRSTD; 0736 00973000 * RFY 0737 00974000 * (GPR02P, 0737 00975000 * GPR08P) RSTD; 0737 00976000 * GEN REFS(RPHWORK) SETS(GPR02P,GPR08P) 0738 00977000 * (LM GPR02P,GPR08P,RPHWORK(GPR01P)); 0738 00978000 LM GPR02P,GPR08P,RPHWORK(GPR01P) 00979000 * RFY 0739 00980000 * (GPR01P, 0739 00981000 * GPR02P, 0739 00982000 * GPR06P, 0739 00983000 * GPR08P) UNRSTD; 0739 00984000 * END; 0740 00985000 * 0740 00986000 */***** END OF TPDVTS GENERATION **** */ 00987000 */*VABEND COMPCODE(VTAM)REASCODE(DVTERR) */ 00988000 * 0741 00989000 * DO; /* ****BEGIN VABEND 0741 00990000 * GENERATION**** */ 00991000 * RFY 0742 00992000 * (GPR01P, 0742 00993000 * GPR15P) RSTD; /* DECLARE AND RESTRICT REGS */ 00994000 * GPR15F=DVTERR; /* PUT REASON CODE IN REG15 */ 00995000 L GPR15F,@CF04157 0743 00996000 * GPR01F='A9000'X; /* COMP CODE IN R1 BITS 8-19 0744 00997000 * INVOKE OS/VS ABEND MACRO */ 00998000 L GPR01F,@CF04230 0744 00999000 * GEN REFS(GPR01F); 0745 01000000 ABEND (1),DUMP,STEP 01001000 * RFY 0746 01002000 * (GPR01P, 0746 01003000 * GPR15P) UNRSTD; /* UNRESTRICT REGS 1 AND 15 */ 01004000 * END; /* ****END OF VABEND 0747 01005000 * GENERATION**** */ 01006000 * END; /* SNA DATA DONE */ 01007000 * END; /* SATISFIED RPL DONE */ 01008000 * ELSE 0750 01009000 * DO; /* NOT SATISFIED */ 01010000 B @RC00711 0750 01011000 @RF00711 DS 0H 0751 01012000 *OUT: 0751 01013000 * CALL DEBUNLK; /* UNLOCK DEB @D33SKD3*/ 01014000 OUT BAL @14,DEBUNLK 0751 01015000 * END; /* DONE */ 01016000 * END; /* DONE NON-ERROR */ 01017000 @RC00711 DS 0H 0754 01018000 *ESCAPE: 0754 01019000 * 0754 01020000 */*TPESC */ 01021000 * 0754 01022000 * DO; 0754 01023000 * 0754 01024000 @RF00453 DS 0H 0754 01025000 ESCAPE DS 0H 0755 01026000 */* ATBUILD (ISTDYPAB,ISTAVT,ISTATCVT) */ 01027000 */* END OF ATBUILD */ 01028000 * 0755 01029000 * RFY 0755 01030000 * GPR15P RSTD; 0755 01031000 * DO; /* LISATCVT 0756 01032000 * CVTBASE(PAGEABLE,(GPR15P)) */ 01033000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 01034000 L GPR15P,ATCLCPTR 0757 01035000 * END; /* LISATCVT */ 01036000 * GPR15P=GPR15P->ATCESC01; 0759 01037000 L GPR15P,ATCESC01(,GPR15P) 0759 01038000 * DCL 0760 01039000 * FMZL0041 BASED(GPR15P) LABEL VALUERANGE(*); 0760 01040000 * CALL FMZL0041; 0761 01041000 BALR @14,@15 0761 01042000 * RESPECIFY 0762 01043000 * GPR15P UNRSTD; 0762 01044000 * END; /* **** END OF TPESC */ 01045000 * 0763 01046000 * /*****************************************************************/ 01047000 * /* */ 01048000 * /* END OF PROCESSING */ 01049000 * /* */ 01050000 * /*****************************************************************/ 01051000 * 0764 01052000 */******************************************************************** 01053000 * */ 01054000 */* END OF ISTRCC21 MAINLINE */ 01055000 */******************************************************************** 01056000 * */ 01057000 */* */ 01058000 */* DEBUNLK */ 01059000 */* */ 01060000 */* ROUTINE NAME: DEBUNLK */ 01061000 */* FUNCTION: TPUNLOCK THE ACDEB */ 01062000 */* OUTPUT: NONE */ 01063000 */* SUBROUTINES CALLED: NONE */ 01064000 */* MACROS USED: TPUNLOCK AND VMDESET */ 01065000 */* */ 01066000 * 0764 01067000 *DEBUNLK: 0764 01068000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0764 01069000 B @PB00002 0764 01070000 DEBUNLK DS 0H 0765 01071000 * IF CRRDBLCK=ONEB THEN 0765 01072000 TM CRRDBLCK(CRRPTR),B'00010000' 0765 01073000 BNO @RF00765 0765 01074000 * DO; /* CHECK FOR DEB LOCK @D33SKD3*/ 01075000 */*VMDESET ((15),ZERO) */ 01076000 * 0767 01077000 * DO; /* INVOKE MODESET MACRO */ 01078000 * GEN; 0768 01079000 MODESET EXTKEY=ZERO,WORKREG=2 01080000 * RFY 0769 01081000 * (GPR15P) RSTD; 0769 01082000 * GPR15F=0; 0770 01083000 SLR GPR15F,GPR15F 0770 01084000 * RFY 0771 01085000 * (GPR15P) UNRSTD; /* PUT RETURN CODE IN RCREG */ 01086000 * END; /* VMDESET */ 01087000 * CRRDBLCK=ZERB; /* OFF DEB LOCK FLG @D33SKD3*/ 01088000 NI CRRDBLCK(CRRPTR),B'11101111' 0773 01089000 * RFY 0774 01090000 * (CRRPTR, 0774 01091000 * RPLPTR) UNRSTD; /* RELEASE REGS @D31KKNL*/ 01092000 */*** START -TPUNLOCK (DEBLOCK)- ** */ 01093000 * 0775 01094000 * DO; 0775 01095000 * 0775 01096000 */* ATBUILD (ISTRPH,ISTLOK,ISTCRA) */ 01097000 */* END OF ATBUILD */ 01098000 * 0776 01099000 * RFY 0776 01100000 * (GPR00P, 0776 01101000 * GPR01P, 0776 01102000 * GPR02P, 0776 01103000 * GPR03P, 0776 01104000 * GPR04P, 0776 01105000 * GPR15P) RSTD; 0776 01106000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(RPHWORK); 01107000 STM GPR00P,GPR15P,RPHWORK(GPR01P) 01108000 * GPR02P=ADDR(ACDLOCK); /* SET PARAM - LOCKWORD PTR */ 01109000 L GPR02P,RPHMAJCB-1(,RPHPTR) 0778 01110000 LA GPR02P,0(,GPR02P) 0778 01111000 LA GPR02P,ACDLOCK(,GPR02P) 0778 01112000 * GPR04P=GPR01P->RPHCRR; /* SET PARAM - ISTCRA PTR */ 01113000 L GPR04P,RPHCRR(,GPR01P) 0779 01114000 * GPR00P=CRALMS05; /* SET PARAM - LOCK LEVEL FLAG */ 01115000 LA GPR00P,16 0780 01116000 * GPR03P=ADDR(GPR04P->CRAL5PTR);/* SET PARAM - LOCK LEVEL PTR*/ 01117000 LA GPR03P,CRAL5PTR(,GPR04P) 0781 01118000 * DO; /* LISATCVT 0782 01119000 * CVTBASE(PAGEABLE,(GPR15P)) */ 01120000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 01121000 L GPR15P,ATCLCPTR 0783 01122000 * END; /* LISATCVT */ 01123000 * GPR15P=GPR15P->ATCAP33; 0785 01124000 L GPR15P,ATCAP33(,GPR15P) 0785 01125000 * DCL 0786 01126000 * FMZL0052 BASED(GPR15P) LABEL VALUERANGE(*); 0786 01127000 * CALL FMZL0052; 0787 01128000 BALR @14,@15 0787 01129000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(GPR00P, 0788 01130000 * GPR01P,GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P, 01131000 * GPR09P,GPR10P,GPR11P,GPR12P,GPR13P,GPR14P,GPR15P); 0788 01132000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 01133000 * RFY 0789 01134000 * (GPR00P, 0789 01135000 * GPR01P, 0789 01136000 * GPR02P, 0789 01137000 * GPR03P, 0789 01138000 * GPR04P, 0789 01139000 * GPR15P) UNRSTD; 0789 01140000 * END; 0790 01141000 * 0790 01142000 */*** END -TPUNLOCK (DEBLOCK)- ** */ 01143000 * 0791 01144000 * RFY 0791 01145000 * (CRRPTR, 0791 01146000 * RPLPTR) RSTD; /* RESTRICT @D31KKNL*/ 01147000 */*VMDESET ((15),ATCAM) */ 01148000 * 0792 01149000 * DO; /* INVOKE MODESET MACRO */ 01150000 * GEN; 0793 01151000 MODESET EXTKEY=VTAM,WORKREG=2 01152000 * RFY 0794 01153000 * (GPR15P) RSTD; 0794 01154000 * GPR15F=0; 0795 01155000 SLR GPR15F,GPR15F 0795 01156000 * RFY 0796 01157000 * (GPR15P) UNRSTD; /* PUT RETURN CODE IN RCREG */ 01158000 * END; /* VMDESET */ 01159000 * END; /* @D33SKD3*/ 01160000 * RETURN; 0799 01161000 @EL00002 DS 0H 0799 01162000 @EF00002 DS 0H 0799 01163000 @ER00002 BR @14 0799 01164000 * END DEBUNLK; 0800 01165000 * 0800 01166000 B @EL00002 0800 01167000 */******************************************************************** 01168000 * */ 01169000 */******************************************************************** 01170000 * */ 01171000 */* */ 01172000 */* LOCATE */ 01173000 */* */ 01174000 */* ROUTINE NAME: LOCATE */ 01175000 */* FUNCTION: TPFEL OLDEST ELEMENT ON APPROPRIATE QUE */ 01176000 */* OUTPUT: NONE */ 01177000 */* SUBROUTINES CALLED: NONE */ 01178000 */* MACROS USED: TPFEL */ 01179000 */* */ 01180000 * 0801 01181000 *LOCATE: 0801 01182000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0801 01183000 LOCATE DS 0H 0802 01184000 * CRRRTN2=RTNREG; /* SAVE RETURN REG */ 01185000 ST RTNREG,CRRRTN2(,CRRPTR) 0802 01186000 */* TPFEL (,CALLPTR) RETPTR(FSBPTR)CHAIN(FSBFSBA) */ 01187000 * 0803 01188000 * DO; /* BEGIN TPFEL CODE GENERATION */ 01189000 * RFY 0804 01190000 * (GPR00P, 0804 01191000 * GPR01P, 0804 01192000 * GPR14P, 0804 01193000 * GPR15P) RSTD; 0804 01194000 * GPR15P=ADDR(CALLPTR); /* ADDRESS QUEUE POINTER */ 01195000 LR GPR15P,REG7 0805 01196000 * GPR14P=GPR15P->PABWEQA|FMZCA016; 0806 01197000 L @05,@CF01334 0806 01198000 L GPR14P,PABWEQA(,GPR15P) 0806 01199000 OR GPR14P,@05 0806 01200000 * IF GPR14P=FMZCA016 THEN 0807 01201000 CLR GPR14P,@05 0807 01202000 BE @RT00807 0807 01203000 * ; 0808 01204000 * ELSE 0809 01205000 * DO; 0809 01206000 * GPR00P=FMZCA016; /* INITIALIZE QUIT FLAG */ 01207000 L GPR00P,@CF01334 0810 01208000 * DO WHILE(GPR00P^=GPR14P->FSBFSBA); 0811 01209000 B @DE00811 0811 01210000 @DL00811 DS 0H 0812 01211000 * GPR14P=GPR14P->FSBFSBA; /* SEARCH FOR END OF CHAIN */ 01212000 L GPR14P,FSBFSBA(,GPR14P) 0812 01213000 * END; 0813 01214000 @DE00811 C GPR00P,FSBFSBA(,GPR14P) 0813 01215000 BNE @DL00811 0813 01216000 * END; 0814 01217000 * GPR14P=GPR14P&FMZCB016; 0815 01218000 @RT00807 N GPR14P,@CF01332 0815 01219000 * FSBPTR=GPR14P; 0816 01220000 LR FSBPTR,GPR14P 0816 01221000 * RFY 0817 01222000 * (GPR00P, 0817 01223000 * GPR01P, 0817 01224000 * GPR14P, 0817 01225000 * GPR15P) UNRSTD; 0817 01226000 * END; /* END TPFEL GENERATION */ 01227000 * RTNREG=CRRRTN2; /* RESTORE RETURN REG */ 01228000 L RTNREG,CRRRTN2(,CRRPTR) 0819 01229000 * RETURN; 0820 01230000 @EL00003 DS 0H 0820 01231000 @EF00003 DS 0H 0820 01232000 @ER00003 BR @14 0820 01233000 * END LOCATE; 0821 01234000 * 0821 01235000 */******************************************************************** 01236000 * */ 01237000 */******************************************************************** 01238000 * */ 01239000 */* */ 01240000 */* DEQFSB */ 01241000 */* */ 01242000 */* ROUTINE NAME: DEQFSB */ 01243000 */* FUNCTION: TPDEQ FSB FROM APPROPRIATE DATA QUE */ 01244000 */* OUTPUT: NONE */ 01245000 */* SUBROUTINES CALLED: NONE */ 01246000 */* MACROS USED: TPDEQ */ 01247000 */* */ 01248000 * 0822 01249000 *DEQFSB: 0822 01250000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0822 01251000 DEQFSB DS 0H 0823 01252000 * CRRRTN2=RTNREG; /* SAVE RETURN REG */ 01253000 ST RTNREG,CRRRTN2(,CRRPTR) 0823 01254000 */* TPDEQ (,CALLPTR) RETPTR(FSBPTR)CHAIN(FSBFSBA) */ 01255000 * 0824 01256000 * DO; /* BEGIN TPDEQ CODE GENERATION */ 01257000 * RFY 0825 01258000 * (GPR00P, 0825 01259000 * GPR01P, 0825 01260000 * GPR14P, 0825 01261000 * GPR15P) RSTD; 0825 01262000 * GPR15P=ADDR(CALLPTR); /* ADDRESS QUEUE POINTER */ 01263000 LR GPR15P,REG7 0826 01264000 * GPR14P=GPR15P->PABWEQA|FMZCA016; 0827 01265000 L @05,@CF01334 0827 01266000 L GPR14P,PABWEQA(,GPR15P) 0827 01267000 OR GPR14P,@05 0827 01268000 * IF GPR14P=FMZCA016 THEN 0828 01269000 CLR GPR14P,@05 0828 01270000 BE @RT00828 0828 01271000 * ; 0829 01272000 * ELSE 0830 01273000 * DO; 0830 01274000 *FMZL1069: 0831 01275000 * ; 0831 01276000 FMZL1069 DS 0H 0832 01277000 * DO WHILE(GPR14P->FSBFSBA^=FMZCA016); 0832 01278000 B @DE00832 0832 01279000 @DL00832 DS 0H 0833 01280000 * GPR15P=ADDR(GPR14P->FSBFSBA); 0833 01281000 LA GPR15P,FSBFSBA(,GPR14P) 0833 01282000 * GPR14P=GPR15P->PABWEQA; 0834 01283000 L GPR14P,PABWEQA(,GPR15P) 0834 01284000 * END; 0835 01285000 @DE00832 L @05,@CF01334 0835 01286000 CL @05,FSBFSBA(,GPR14P) 0835 01287000 BNE @DL00832 0835 01288000 * GPR00P=FMZCA016; 0836 01289000 LR GPR00P,@05 0836 01290000 * CS(GPR14P,GPR00P,GPR15P->PABWEQA); 0837 01291000 CS GPR14P,@00,PABWEQA(GPR15P) 0837 01292000 * BC(7,FMZL1069); 0838 01293000 BC 7,FMZL1069 0838 01294000 * GPR14P->FSBFSBA=0; 0839 01295000 SLR @05,@05 0839 01296000 ST @05,FSBFSBA(,GPR14P) 0839 01297000 * END; 0840 01298000 *ISTA0069: 0841 01299000 * ; 0841 01300000 @RT00828 DS 0H 0841 01301000 ISTA0069 DS 0H 0842 01302000 * GPR14P=GPR14P&FMZCB016; 0842 01303000 N GPR14P,@CF01332 0842 01304000 * FSBPTR=GPR14P; 0843 01305000 LR FSBPTR,GPR14P 0843 01306000 * RFY 0844 01307000 * (GPR00P, 0844 01308000 * GPR01P, 0844 01309000 * GPR14P, 0844 01310000 * GPR15P) UNRSTD; 0844 01311000 * END; /* END TPDEQ GENERATION */ 01312000 * RTNREG=CRRRTN2; /* RESTORE RETURN REG */ 01313000 L RTNREG,CRRRTN2(,CRRPTR) 0846 01314000 * RETURN; 0847 01315000 @EL00004 DS 0H 0847 01316000 @EF00004 DS 0H 0847 01317000 @ER00004 BR @14 0847 01318000 * END DEQFSB; 0848 01319000 * 0848 01320000 */******************************************************************** 01321000 * */ 01322000 */******************************************************************** 01323000 * */ 01324000 */* */ 01325000 */* LOCKFMCB */ 01326000 */* */ 01327000 */* ROUTINE NAME: LOCKFMCB */ 01328000 */* FUNCTION: TPLOCK THE FMCB */ 01329000 */* OUTPUT: NONE */ 01330000 */* SUBROUTINES CALLED: NONE */ 01331000 */* MACROS USED: TPLOCK */ 01332000 */* */ 01333000 * 0849 01334000 *LOCKFMCB: 0849 01335000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0849 01336000 LOCKFMCB DS 0H 0850 01337000 * IF CRRFMCLK=ZERB THEN 0850 01338000 TM CRRFMCLK(CRRPTR),B'10000000' 0850 01339000 BNZ @RF00850 0850 01340000 * DO; /* IS FMCB LOCKED? @D33SKD3*/ 01341000 * RFY 0852 01342000 * (CRRPTR, 0852 01343000 * RPLPTR) UNRSTD; /* RELEASE REGS @D31KKNL*/ 01344000 */*** START -TPLOCK (CTLLOCK)TYPE(XCLSIVE)- ** */ 01345000 * 0853 01346000 * DO; 0853 01347000 * RFY 0854 01348000 * (GPR00P, 0854 01349000 * GPR01P, 0854 01350000 * GPR02P, 0854 01351000 * GPR03P, 0854 01352000 * GPR04P, 0854 01353000 * GPR15P) RSTD; 0854 01354000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(RPHWORK); 01355000 STM GPR00P,GPR14P,RPHWORK(GPR01P) 01356000 * GPR02P=ADDR(FMCDCLOK); /* SET PARAM - LOCKWORD PTR */ 01357000 LA GPR02P,FMCDCLOK(,FMCBPTR) 0856 01358000 * GPR04P=GPR01P->RPHCRR; /* SET PARAM - ISTCRA PTR */ 01359000 L GPR04P,RPHCRR(,GPR01P) 0857 01360000 * GPR00P=CRALMS08; /* SET PARAM - LOCK LEVEL FLAG */ 01361000 LA GPR00P,128 0858 01362000 * GPR03P=ADDR(GPR04P->CRAL8PTR);/* SET PARAM - LOCK LEVEL PTR*/ 01363000 LA GPR03P,CRAL8PTR(,GPR04P) 0859 01364000 * GPR15P=ATCLCPTR->ATCAP36; /* ADDRESS OF LOCK ROUTINE */ 01365000 L @10,ATCLCPTR 0860 01366000 L GPR15P,ATCAP36(,@10) 0860 01367000 * DCL 0861 01368000 * FMZL0073 BASED(GPR15P) LABEL VALUERANGE(*); 0861 01369000 * CALL FMZL0073; 0862 01370000 BALR @14,@15 0862 01371000 * GENERATE REFS(GPR00P,GPR01P,GPR14P,RPHWORK) SETS(GPR00P, 0863 01372000 * GPR01P,GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P, 01373000 * GPR09P,GPR10P,GPR11P,GPR12P,GPR13P,GPR14P,GPR15P); 0863 01374000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 01375000 * RFY 0864 01376000 * (GPR00P, 0864 01377000 * GPR01P, 0864 01378000 * GPR02P, 0864 01379000 * GPR03P, 0864 01380000 * GPR04P, 0864 01381000 * GPR15P) UNRSTD; 0864 01382000 * END; 0865 01383000 * 0865 01384000 */*** END -TPLOCK (CTLLOCK)TYPE(XCLSIVE)- ** */ 01385000 * 0866 01386000 * RFY 0866 01387000 * (CRRPTR, 0866 01388000 * RPLPTR) RSTD; /* RESTRICT REGS @D31KKNL*/ 01389000 * CRRPTR=ADDR(CRRSPACE); 0867 01390000 L @15,RPHCRR(,RPHPTR) 0867 01391000 L CRRPTR,CRACRR(,@15) 0867 01392000 LA CRRPTR,CRRSPACE(,CRRPTR) 0867 01393000 * RPLPTR=CRRARPL; 0868 01394000 L RPLPTR,CRRARPL(,CRRPTR) 0868 01395000 * CRRFMCLK=ONEB; /* ON FMCB LOCK FLG @D33SKD3*/ 01396000 OI CRRFMCLK(CRRPTR),B'10000000' 0869 01397000 * END; /* @D33SKD3*/ 01398000 * RETURN; 0871 01399000 @EL00005 DS 0H 0871 01400000 @EF00005 DS 0H 0871 01401000 @ER00005 BR @14 0871 01402000 * END LOCKFMCB; 0872 01403000 * 0872 01404000 B @EL00005 0872 01405000 @PB00005 DS 0H 0872 01406000 */******************************************************************** 01407000 * */ 01408000 */* TPEPILOG */ 01409000 * 0873 01410000 * GEN(PRINT OFF); 0873 01411000 PRINT OFF 01412000 * GEN(PRINT ON); 0874 01413000 * 0874 01414000 PRINT ON 01415000 */* END OF TPEPILOG */ 01416000 * 0875 01417000 * END ISTRCC21 /* END OF EXECUTION */ 01418000 * 0875 01419000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01420000 */*%INCLUDE SYSLIB (IFGRPL ) */ 01421000 */*%INCLUDE SYSLIB (IFGRPLVT) */ 01422000 */*%INCLUDE SYSLIB (ISTRPLFB) */ 01423000 */*%INCLUDE SYSLIB (CVT ) */ 01424000 */*%INCLUDE SYSUT5 (CRRINIT ) */ 01425000 */*%INCLUDE SYSUT5 (FNDATAA ) */ 01426000 */*%INCLUDE SYSUT5 (FNDATAS ) */ 01427000 * 0875 01428000 * ; 0875 01429000 @DATA DS 0H 01430000 @DATD DSECT 01431000 DS 0F 01432000 ISTRCC21 CSECT 01433000 DS 0F 01434000 @CF01332 DC XL4'7FFFFFFF' 01435000 @CF01334 DC XL4'80000000' 01436000 @CF04230 DC XL4'A9000' 01437000 @CF04157 DC XL4'7141' 01438000 @DATD DSECT 01439000 DS 0D 01440000 @ENDDATD EQU * 01441000 ISTRCC21 CSECT 01442000 NOPR ((@ENDDATD-@DATD)*16) 01443000 DS 0F 01444000 @SIZDATD DC AL1(0) 01445000 DC AL3(@ENDDATD-@DATD) 01446000 DS 0D 01447000 @CC03265 DC C'RECORD ' 01448000 RCC52 DC CL8'IRSYNFDB' 01449000 RCC54 DC CL8'IRASYFDB' 01450000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01451000 @01 EQU 01 01452000 @02 EQU 02 01453000 @03 EQU 03 01454000 @04 EQU 04 01455000 @05 EQU 05 01456000 @06 EQU 06 01457000 @07 EQU 07 01458000 @08 EQU 08 01459000 @09 EQU 09 01460000 @10 EQU 10 01461000 @11 EQU 11 01462000 @12 EQU 12 01463000 @13 EQU 13 01464000 @14 EQU 14 01465000 @15 EQU 15 01466000 RPHPTR EQU @01 01467000 FSBPTR EQU @06 01468000 FMCBPTR EQU @08 01469000 CRRPTR EQU @09 01470000 RPLPTR EQU @10 01471000 QUEPTR EQU @11 01472000 REG7 EQU @07 01473000 RTNREG EQU @14 01474000 GPR15F EQU @15 01475000 GPR15P EQU @15 01476000 GPR05P EQU @05 01477000 GPR06P EQU @06 01478000 GPR07P EQU @07 01479000 GPR08P EQU @08 01480000 GPR09P EQU @09 01481000 GPR10P EQU @10 01482000 GPR11P EQU @11 01483000 GPR12P EQU @12 01484000 GPR13P EQU @13 01485000 GPR14P EQU @14 01486000 GPR00P EQU @00 01487000 GPR01F EQU @01 01488000 GPR01P EQU @01 01489000 GPR02P EQU @02 01490000 GPR03P EQU @03 01491000 GPR04P EQU @04 01492000 GPR00F EQU @00 01493000 GPR02F EQU @02 01494000 GPR03F EQU @03 01495000 GPR04F EQU @04 01496000 GPR05F EQU @05 01497000 GPR06F EQU @06 01498000 GPR07F EQU @07 01499000 GPR08F EQU @08 01500000 GPR09F EQU @09 01501000 GPR10F EQU @10 01502000 GPR11F EQU @11 01503000 GPR12F EQU @12 01504000 GPR13F EQU @13 01505000 GPR14F EQU @14 01506000 RUPTR EQU @05 01507000 SAVPTR EQU @13 01508000 ATCLCPTR EQU 1032 01509000 IFGRPL EQU 0 01510000 RPLCOMN EQU IFGRPL 01511000 RPLIDWD EQU RPLCOMN 01512000 RPLREQ EQU RPLIDWD+2 01513000 RPLLEN EQU RPLIDWD+3 01514000 RPLECB EQU RPLCOMN+8 01515000 RPLFDBWD EQU RPLCOMN+12 01516000 RPLFDBK EQU RPLFDBWD+1 01517000 RPLRTNCD EQU RPLFDBK 01518000 RPLCNDCD EQU RPLFDBK+1 01519000 RPLCMPON EQU RPLCNDCD 01520000 RPLFDB2 EQU RPLCMPON 01521000 RPLERRCD EQU RPLCNDCD+1 01522000 RPLFDB3 EQU RPLERRCD 01523000 RPLKEYLE EQU RPLCOMN+16 01524000 RPLARG EQU RPLCOMN+36 01525000 RPLOPTCD EQU RPLCOMN+40 01526000 RPLOPT1 EQU RPLOPTCD 01527000 RPLECBSW EQU RPLOPT1 01528000 RPLOPT2 EQU RPLOPTCD+1 01529000 RPLADR EQU RPLOPT2 01530000 RPLOPT3 EQU RPLOPTCD+2 01531000 RPLOPT4 EQU RPLOPTCD+3 01532000 RPLNXTRP EQU RPLCOMN+44 01533000 RPLRLEN EQU RPLCOMN+48 01534000 RPLOPTC2 EQU RPLCOMN+56 01535000 RPLOPT5 EQU RPLOPTC2 01536000 RPLWRTYP EQU RPLOPT5 01537000 RPLOPT6 EQU RPLOPTC2+1 01538000 RPLUNTYP EQU RPLOPT6 01539000 RPLOPT7 EQU RPLOPTC2+2 01540000 RPLCNOPT EQU RPLOPT7 01541000 RPLOPT8 EQU RPLOPTC2+3 01542000 RPLRBAR EQU RPLCOMN+60 01543000 RPLAIXID EQU RPLRBAR+2 01544000 RPLEXTDS EQU RPLCOMN+68 01545000 RPLEXTD1 EQU RPLEXTDS 01546000 RPLVTEXT EQU IFGRPL+76 01547000 RPLFDBK2 EQU RPLVTEXT+12 01548000 RPLSSNSI EQU RPLFDBK2 01549000 RPLDSB EQU RPLSSNSI 01550000 RPLDSB1 EQU RPLDSB 01551000 RPLSSEI EQU RPLDSB1 01552000 RPLDSB2 EQU RPLDSB+1 01553000 RPLUSNSI EQU RPLFDBK2+2 01554000 RPLOPTC3 EQU RPLVTEXT+20 01555000 RPLOPT9 EQU RPLOPTC3 01556000 RPLOPT10 EQU RPLOPTC3+1 01557000 RPLOPT11 EQU RPLOPTC3+2 01558000 RPLOPT12 EQU RPLOPTC3+3 01559000 RPLOSENS EQU RPLVTEXT+24 01560000 RPLSSNSO EQU RPLOSENS 01561000 RPLSSEO EQU RPLSSNSO 01562000 RPLOF16 EQU 0 01563000 RPLRH3 EQU RPLOF16 01564000 RPLSRTYP EQU RPLOF16+1 01565000 RPLSTYPE EQU RPLSRTYP 01566000 RPLRTYPE EQU RPLSRTYP 01567000 RPLRRESP EQU RPLRTYPE 01568000 RPLNFSYN EQU RPLRTYPE 01569000 RPLDFASY EQU RPLRTYPE 01570000 RPLCHN EQU RPLOF16+2 01571000 RPLVTFL1 EQU RPLOF16+3 01572000 RPLVTFL2 EQU RPLOF16+4 01573000 RPLPOSTV EQU RPLVTFL2 01574000 RPLRESP EQU RPLVTFL2 01575000 RPLCNTRL EQU RPLOF16+5 01576000 RPLCNTDF EQU RPLCNTRL 01577000 RPLCNTDC EQU RPLCNTRL+1 01578000 RPLCNTSC EQU RPLCNTRL+2 01579000 RPLOF60 EQU 0 01580000 RPLOBSQ EQU RPLOF60+4 01581000 RPLIBSQ EQU RPLOF60+5 01582000 CVTMAP EQU 0 01583000 CVTDAR EQU CVTMAP+72 01584000 CVTFLGS1 EQU CVTDAR 01585000 CVTDCB EQU CVTMAP+116 01586000 CVTIERLC EQU CVTMAP+144 01587000 CVTOPTA EQU CVTMAP+182 01588000 CVTOPTB EQU CVTMAP+183 01589000 CVTGTF EQU CVTMAP+236 01590000 CVTGTFST EQU CVTGTF 01591000 CVTGTFS EQU CVTGTFST 01592000 CVTSTATE EQU CVTGTFST 01593000 CVTTMODE EQU CVTGTFST 01594000 CVTFORM EQU CVTGTFST 01595000 CVTAQAVT EQU CVTMAP+240 01596000 CVTTCMFG EQU CVTAQAVT 01597000 CVTVOLM2 EQU CVTMAP+244 01598000 CVTTATA EQU CVTVOLM2 01599000 CVTTSKS EQU CVTTATA 01600000 CVTVOLF2 EQU CVTTSKS 01601000 CVTTAT EQU CVTTATA+1 01602000 CVTATER EQU CVTMAP+248 01603000 CVTEXT1 EQU CVTMAP+252 01604000 CVTPURG EQU CVTMAP+260 01605000 CVTQMSG EQU CVTMAP+268 01606000 CVTDMSR EQU CVTMAP+272 01607000 CVTRSV37 EQU CVTDMSR 01608000 CVTDMSRF EQU CVTRSV37 01609000 CVTERPV EQU CVTMAP+316 01610000 CVTINTLA EQU CVTMAP+320 01611000 CVTAPF EQU CVTMAP+324 01612000 CVTEXT2 EQU CVTMAP+328 01613000 CVTHJES EQU CVTMAP+332 01614000 CVTPGSIA EQU CVTMAP+348 01615000 CVTA1F1 EQU CVTMAP+356 01616000 CVTSYSK EQU CVTMAP+357 01617000 CVTVOLM1 EQU CVTMAP+380 01618000 CVTVOLF1 EQU CVTVOLM1 01619000 CVTATMCT EQU CVTMAP+388 01620000 CVTXTNT1 EQU 0 01621000 CVTXTNT2 EQU 0 01622000 CVTDSSV EQU CVTXTNT2 01623000 CVTFLGBT EQU CVTXTNT2+5 01624000 CVTQID EQU CVTXTNT2+24 01625000 CVTSHS EQU CVTXTNT2+40 01626000 CVTRV400 EQU CVTXTNT2+52 01627000 CVTRV409 EQU CVTXTNT2+53 01628000 CVTATCVT EQU CVTXTNT2+64 01629000 CVTRV429 EQU CVTXTNT2+84 01630000 CVTRV438 EQU CVTXTNT2+85 01631000 CVTRV457 EQU CVTXTNT2+112 01632000 CVTRV466 EQU CVTXTNT2+113 01633000 CVTFIX EQU 0 01634000 CVTRELNO EQU CVTFIX+252 01635000 ISTLCCW EQU 0 01636000 LCCWOP EQU ISTLCCW 01637000 LCCWRWOP EQU LCCWOP 01638000 LCCWCTL EQU LCCWRWOP 01639000 LCCWFLAG EQU ISTLCCW+1 01640000 LCCWLSI EQU LCCWFLAG 01641000 ISTLCPB EQU 0 01642000 LCPREQTG EQU ISTLCPB+2 01643000 LCPFLAGS EQU LCPREQTG 01644000 LCPZF001 EQU LCPFLAGS 01645000 LCPZRT02 EQU LCPZF001 01646000 LCPZF002 EQU LCPFLAGS 01647000 LCPZRT03 EQU LCPZF002 01648000 LCPZF003 EQU LCPFLAGS 01649000 LCPZRT04 EQU LCPZF003 01650000 LCPZF004 EQU LCPFLAGS 01651000 LCPZRT05 EQU LCPZF004 01652000 LCPZRT06 EQU LCPFLAGS 01653000 LCPZRT07 EQU LCPFLAGS 01654000 LCPMNRCD EQU LCPREQTG+1 01655000 LCPZRT08 EQU LCPMNRCD 01656000 LCPZRT09 EQU LCPMNRCD 01657000 LCPCHAIN EQU ISTLCPB+4 01658000 LCPCHAI1 EQU LCPCHAIN 01659000 LCPRUCNT EQU ISTLCPB+8 01660000 LCPFLAG2 EQU ISTLCPB+9 01661000 LCPTLBPI EQU LCPFLAG2 01662000 LCPFID0 EQU LCPFLAG2 01663000 LCPSEQ EQU ISTLCPB+10 01664000 LCPCID EQU ISTLCPB+16 01665000 LCPFDBA EQU ISTLCPB+24 01666000 LCPFLG1 EQU ISTLCPB+37 01667000 LCPFLCCW EQU ISTLCPB+40 01668000 LCPLCCW EQU ISTLCPB+48 01669000 LCPPABA EQU LCPLCCW+4 01670000 LCPRPHA EQU LCPPABA 01671000 ISTLOK EQU 0 01672000 LOKCHN EQU ISTLOK+1 01673000 LOKCHNG EQU LOKCHN 01674000 @NM00031 EQU LOKCHNG+2 01675000 ISTPAB EQU 0 01676000 PABWQCHN EQU ISTPAB 01677000 PABWEQA EQU PABWQCHN 01678000 PABCHAIN EQU PABWQCHN+4 01679000 PABRPHFG EQU ISTPAB+12 01680000 PABFLAGS EQU PABRPHFG 01681000 PABERLCK EQU PABFLAGS 01682000 PABERRLK EQU PABERLCK 01683000 ISTACDEB EQU 0 01684000 ACDVTPRX EQU ISTACDEB 01685000 ACDTYPE EQU ACDVTPRX 01686000 ACDDBPFX EQU ISTACDEB+16 01687000 ACDTBLOF EQU ACDDBPFX+6 01688000 ACDBASIC EQU ISTACDEB+24 01689000 ACDTCBAD EQU ACDBASIC 01690000 ACDNMSUB EQU ACDTCBAD 01691000 ACDDEBAD EQU ACDBASIC+4 01692000 ACDUSRPG EQU ACDBASIC+16 01693000 ACDACBAD EQU ACDBASIC+24 01694000 ACDAPPAD EQU ACDBASIC+28 01695000 ACDVTAM EQU ISTACDEB+56 01696000 ACDLOCK EQU ACDVTAM 01697000 ACDRAFQ EQU ACDVTAM+12 01698000 ACDSSFLG EQU ACDVTAM+80 01699000 ACDAPDAT EQU ACDVTAM+83 01700000 ACDASFQ EQU ISTACDEB+200 01701000 ACDREFQ EQU ISTACDEB+204 01702000 ISTDYPAB EQU 0 01703000 ISTRPH EQU 0 01704000 RPHCNTL EQU ISTRPH 01705000 RPHFLAGS EQU RPHCNTL+2 01706000 RPHAPTYP EQU RPHFLAGS 01707000 RPHFSTLC EQU RPHFLAGS 01708000 RPHFLGB EQU RPHCNTL+3 01709000 RPHRPHA EQU ISTRPH+4 01710000 RPHTSKID EQU ISTRPH+8 01711000 RPHRESMA EQU ISTRPH+16 01712000 RPHWPFLG EQU RPHRESMA 01713000 RPHMAJCB EQU ISTRPH+21 01714000 RPHWEA EQU ISTRPH+24 01715000 RPHCSPA EQU RPHWEA 01716000 RPHSRPRM EQU ISTRPH+28 01717000 RPHCRR EQU ISTRPH+32 01718000 RPHPABQA EQU ISTRPH+36 01719000 RPHWORK EQU ISTRPH+40 01720000 RPHSAVE1 EQU RPHWORK 01721000 RPHSBITS EQU RPHSAVE1+1 01722000 ISTATCVT EQU 0 01723000 ATCCOM EQU ISTATCVT 01724000 ATCSTAT EQU ATCCOM 01725000 ATCSTAT1 EQU ATCSTAT 01726000 ATCSTFLG EQU ATCSTAT+1 01727000 ATCPOFLG EQU ATCSTAT+2 01728000 ATCSTAT4 EQU ATCSTAT+3 01729000 ATCIOTRC EQU ATCCOM+140 01730000 ATCTHTRC EQU ATCIOTRC 01731000 ATCRCC63 EQU ATCCOM+244 01732000 ATCRCC26 EQU ATCCOM+248 01733000 ATCESC01 EQU ISTATCVT+288 01734000 ATCESC02 EQU ISTATCVT+292 01735000 ATCCSMR EQU ISTATCVT+296 01736000 ATCSHRFG EQU ISTATCVT+316 01737000 ATCHPGM EQU ISTATCVT+384 01738000 ATCAP33 EQU ISTATCVT+444 01739000 ATCAP36 EQU ISTATCVT+452 01740000 ATCVLCNT EQU ISTATCVT+772 01741000 ATCRNO EQU ISTATCVT+788 01742000 ATCSOPD EQU ISTATCVT+792 01743000 ATCSIPD EQU ISTATCVT+800 01744000 ATCSECST EQU ISTATCVT+812 01745000 ATCSTAT2 EQU ISTATCVT+818 01746000 ATCVTBAM EQU ISTATCVT+908 01747000 @NM00043 EQU ATCVTBAM+3 01748000 ATCAOSM EQU ISTATCVT+912 01749000 ATCGSRBQ EQU ATCAOSM+4 01750000 ATCGSRBG EQU ATCGSRBQ 01751000 ATCICAPP EQU ATCAOSM+100 01752000 ATCLDAPP EQU ATCAOSM+120 01753000 ATCDAPVT EQU ATCAOSM+140 01754000 ATCCRA EQU ATCAOSM+280 01755000 ATCCRACN EQU ATCCRA+4 01756000 ATCSRB EQU ATCAOSM+288 01757000 ATCSRBCN EQU ATCSRB+4 01758000 ATCCRPL EQU ATCAOSM+296 01759000 ATCRPLCN EQU ATCCRPL+4 01760000 ATCSQAFR EQU ATCAOSM+304 01761000 ATCORTBC EQU ATCSQAFR+4 01762000 ATCORSRB EQU ATCORTBC 01763000 @NM00045 EQU ATCAOSM+332 01764000 ATCVTFLG EQU ATCAOSM+392 01765000 ATCZFLAG EQU ATCAOSM+588 01766000 ISTDCCRR EQU 0 01767000 CRRSPACE EQU ISTDCCRR+12 01768000 CRRSAREA EQU 0 01769000 CRRFSB EQU CRRSAREA+144 01770000 CRRMAS EQU CRRSAREA+148 01771000 CRRMAS1 EQU CRRMAS 01772000 CRRMAS2 EQU CRRMAS+1 01773000 CRRMAS3 EQU CRRMAS+2 01774000 CRRMAS4 EQU CRRMAS+3 01775000 CRRRMAS1 EQU CRRMAS+4 01776000 CRRRM21 EQU CRRRMAS1 01777000 CRRRMAS2 EQU CRRMAS+5 01778000 CRRRMAS3 EQU CRRMAS+6 01779000 CRRSMAS EQU CRRRMAS3 01780000 CRRATS EQU CRRSAREA+156 01781000 CRRATS1 EQU CRRATS 01782000 CRRATS2 EQU CRRATS+1 01783000 CRRATS3 EQU CRRATS+2 01784000 CRRATS4 EQU CRRATS+3 01785000 CRRRATS1 EQU CRRATS+4 01786000 CRRRC21 EQU CRRRATS1 01787000 CRRRATS2 EQU CRRATS+5 01788000 CRRRATS3 EQU CRRATS+6 01789000 CRRSATS EQU CRRRATS3 01790000 CRRFLGS1 EQU CRRSAREA+164 01791000 CRRFLGS2 EQU CRRSAREA+165 01792000 CRRFLGS3 EQU CRRSAREA+166 01793000 CRRFLGS4 EQU CRRSAREA+167 01794000 CRRFMCLK EQU CRRFLGS4 01795000 CRRFLGS EQU CRRSAREA+168 01796000 CRRRFLG1 EQU CRRSAREA+169 01797000 CRRRPLS EQU CRRRFLG1 01798000 CRRDBLCK EQU CRRRFLG1 01799000 CRRRTYPE EQU CRRRFLG1 01800000 CRRDFASY EQU CRRRTYPE 01801000 CRRRESP EQU CRRRTYPE 01802000 CRRDFSYN EQU CRRRTYPE 01803000 CRRFDBK1 EQU CRRSAREA+170 01804000 CRRRTNCD EQU CRRFDBK1 01805000 CRRFDB2 EQU CRRFDBK1+1 01806000 CRRFDB3 EQU CRRFDBK1+2 01807000 CRRFDBK2 EQU CRRSAREA+176 01808000 CRRDSB EQU CRRFDBK2 01809000 CRRESR EQU CRRFDBK2+2 01810000 CRRFMCB EQU CRRSAREA+184 01811000 CRRTRBUF EQU CRRSAREA+204 01812000 CRRARPL EQU CRRTRBUF+4 01813000 CRRATCVT EQU CRRSAREA+216 01814000 CRRRTN2 EQU CRRSAREA+228 01815000 CRRBARAD EQU CRRSAREA+272 01816000 CRRBFLGS EQU CRRSAREA+280 01817000 ISTFDB EQU 0 01818000 ISTFSB EQU 0 01819000 FSBFSB EQU ISTFSB 01820000 FSBMNRCD EQU FSBFSB+2 01821000 FSBSFLGS EQU FSBFSB+3 01822000 FSBFSBA EQU FSBFSB+4 01823000 FSBBTH EQU FSBFSB+8 01824000 FSBCID EQU FSBBTH 01825000 FSBRQTAG EQU FSBBTH+4 01826000 FSBSEQID EQU FSBRQTAG 01827000 FSBFLAGS EQU FSBSEQID 01828000 FSBSEQ EQU FSBSEQID+1 01829000 FSBCSWST EQU FSBBTH+6 01830000 FSBTHFLD EQU FSBCSWST 01831000 FSBTH1 EQU FSBTHFLD 01832000 FSBSYSRS EQU FSBTH1 01833000 FSBTH2 EQU FSBTHFLD+1 01834000 FSBEXTRS EQU FSBTH2 01835000 FSBXFSTS EQU FSBEXTRS 01836000 FSBXCODE EQU FSBEXTRS 01837000 FSBNETRS EQU FSBFSB+16 01838000 FSBSRCAT EQU FSBNETRS 01839000 FSBERC EQU FSBNETRS+1 01840000 FSBFBMI EQU FSBERC 01841000 FSBDMGRS EQU FSBFSB+18 01842000 FSBSS1 EQU FSBDMGRS 01843000 FSBSS2 EQU FSBDMGRS+1 01844000 FSBLCPB EQU FSBFSB+20 01845000 FSBMSGID EQU FSBLCPB 01846000 FSBLCCWA EQU FSBFSB+24 01847000 FSBRLSTS EQU FSBLCCWA 01848000 ISTDEVCH EQU 0 01849000 DEVSHCH EQU ISTDEVCH 01850000 DEVCHAR EQU DEVSHCH 01851000 DEVTCODE EQU ISTDEVCH+1 01852000 DEVFLAGS EQU ISTDEVCH+3 01853000 DEVFCCTL EQU DEVFLAGS 01854000 DEVCHAR3 EQU DEVFLAGS 01855000 ISTPROCD EQU 0 01856000 PROPROC EQU ISTPROCD 01857000 PROPROC1 EQU PROPROC 01858000 PROPROC2 EQU PROPROC+1 01859000 PROPROC3 EQU PROPROC+2 01860000 PROPROC4 EQU PROPROC+3 01861000 PROPROCS EQU 0 01862000 PROSETMS EQU PROPROCS+1 01863000 PROSETM2 EQU PROSETMS 01864000 PROSETM3 EQU PROSETMS+1 01865000 PROSETM4 EQU PROSETMS+2 01866000 ISTFMCB EQU 0 01867000 FMCDVTA EQU ISTFMCB+12 01868000 FMCDNCBA EQU ISTFMCB+16 01869000 FMCSTAT EQU ISTFMCB+28 01870000 FMCDEVOF EQU FMCSTAT 01871000 FMCDEDSC EQU FMCSTAT 01872000 FMCSTAT1 EQU ISTFMCB+29 01873000 FMCCMDFL EQU ISTFMCB+31 01874000 FMCCMPS1 EQU ISTFMCB+36 01875000 FMCMODE EQU ISTFMCB+52 01876000 FMCFASYA EQU ISTFMCB+60 01877000 FMCSIPA EQU ISTFMCB+148 01878000 FMCNXOSQ EQU ISTFMCB+152 01879000 FMCNXCFM EQU FMCNXOSQ 01880000 FMCNXOSC EQU FMCNXOSQ+2 01881000 FMCSSTAT EQU ISTFMCB+159 01882000 FMCPACE EQU ISTFMCB+160 01883000 FMCPACEN EQU FMCPACE 01884000 FMCPACEM EQU FMCPACE+1 01885000 FMCPACPC EQU FMCPACE+2 01886000 FMCCVAL EQU FMCPACE+3 01887000 FMCOBCE EQU FMCCVAL 01888000 FMCCLEXT EQU ISTFMCB+164 01889000 FMCRPLA EQU FMCCLEXT 01890000 FMCFBA EQU FMCCLEXT+4 01891000 FMCRAFM EQU FMCCLEXT+8 01892000 FMCDCLOK EQU FMCCLEXT+12 01893000 FMCCMPS2 EQU FMCCLEXT+16 01894000 FMCFLGA EQU FMCCMPS2 01895000 FMCFLGCL EQU FMCCMPS2+1 01896000 FMCPSCMD EQU FMCCMPS2+2 01897000 FMCPSTAT EQU FMCCMPS2+3 01898000 FMCSTAT2 EQU ISTFMCB+186 01899000 FMCMODEB EQU ISTFMCB+189 01900000 FMCCLSEQ EQU ISTFMCB+190 01901000 FMCRRESP EQU ISTFMCB+195 01902000 FMCSSEGQ EQU ISTFMCB+200 01903000 FMCFBAS EQU ISTFMCB+216 01904000 FMCZV002 EQU FMCFBAS 01905000 FMCFBRE EQU ISTFMCB+220 01906000 FMCSNCTL EQU ISTFMCB+224 01907000 FMCSCFLG EQU FMCSNCTL 01908000 FMCFRESA EQU ISTFMCB+228 01909000 FMCVS1 EQU ISTFMCB+232 01910000 FMCZFLAG EQU FMCVS1 01911000 FMCZF006 EQU FMCZFLAG 01912000 FMCLBXM EQU FMCVS1+12 01913000 FMCSHEAQ EQU FMCLBXM 01914000 FMCLCPBQ EQU FMCVS1+16 01915000 FMCLCPAQ EQU FMCVS1+20 01916000 FMCSEQ1 EQU FMCVS1+34 01917000 FMCZFLG2 EQU FMCVS1+35 01918000 FMCCVFLG EQU FMCVS1+44 01919000 FMCFLAG EQU 0 01920000 FMCFLGB EQU FMCFLAG 01921000 ISTZSAVE EQU 0 01922000 ZSAZSVBC EQU ISTZSAVE 01923000 ZSAZSVMS EQU ZSAZSVBC 01924000 ISTPFCRR EQU 0 01925000 PFCCRR EQU ISTPFCRR 01926000 PFCCRRID EQU PFCCRR 01927000 PFCCRRLN EQU PFCCRR+2 01928000 PFCHDR EQU ISTPFCRR+4 01929000 PFCCRRO EQU PFCHDR 01930000 PFCFRRO EQU PFCHDR+4 01931000 ISTCFCRR EQU 0 01932000 CFCAUDIT EQU ISTCFCRR 01933000 CFCNTRD EQU CFCAUDIT 01934000 CFCCRT EQU CFCAUDIT+1 01935000 ISTZCRR EQU 0 01936000 ZCRCRR EQU ISTZCRR 01937000 ZCRFLGS1 EQU ISTZCRR+12 01938000 ZCRFLGS2 EQU ISTZCRR+13 01939000 ZCRSWFLD EQU ISTZCRR+14 01940000 ZCRENDSH EQU ZCRSWFLD 01941000 ZCRNDLCP EQU ZCRSWFLD 01942000 ZCRRESET EQU ZCRSWFLD 01943000 ZCRFLGS3 EQU ISTZCRR+15 01944000 ZCRGENSW EQU ISTZCRR+16 01945000 ZCRPFLGS EQU ISTZCRR+17 01946000 ZCRIBPR EQU ISTZCRR+18 01947000 ZCRSCPSW EQU ISTZCRR+19 01948000 ZCRPARMS EQU ISTZCRR+24 01949000 ZCRFBPTR EQU ZCRPARMS 01950000 ZCRDFRDA EQU ZCRPARMS+10 01951000 ZCRPCOD1 EQU ZCRPARMS+12 01952000 ZCRPLSBF EQU ZCRPCOD1 01953000 ZCRPCOD2 EQU ZCRPARMS+13 01954000 ZCRSVRTN EQU ISTZCRR+56 01955000 ZCRWKARA EQU ISTZCRR+156 01956000 ZCRCIDSV EQU ISTZCRR+192 01957000 ZCRAUDIT EQU ISTZCRR+440 01958000 ZCRENTER EQU ZCRAUDIT+5 01959000 ZCRLCPB EQU ISTZCRR+480 01960000 ZCRRHRU EQU ZCRLCPB 01961000 ISTASCRR EQU 0 01962000 ASCFLAGS EQU ISTASCRR+16 01963000 ASCFLG1 EQU ASCFLAGS 01964000 ASCFLG2 EQU ASCFLAGS+2 01965000 ASCFLG3 EQU ASCFLAGS+4 01966000 ASCUSRGS EQU ISTASCRR+28 01967000 ISTAPCRR EQU 0 01968000 APCATFLG EQU ISTAPCRR+16 01969000 APCRFLG EQU ISTAPCRR+18 01970000 APCSAVE EQU ISTAPCRR+44 01971000 APCCOMF EQU ISTAPCRR+116 01972000 APCCOMF1 EQU APCCOMF 01973000 APC31FLG EQU ISTAPCRR+132 01974000 APC52FLG EQU ISTAPCRR+133 01975000 APC53FLG EQU ISTAPCRR+134 01976000 APC54FLG EQU ISTAPCRR+135 01977000 APC57FLG EQU ISTAPCRR+136 01978000 ISTCRA EQU 0 01979000 CRABASIC EQU ISTCRA 01980000 CRAHDR EQU CRABASIC 01981000 CRACRR EQU CRAHDR 01982000 CRALKACT EQU CRABASIC+8 01983000 CRAL5PTR EQU CRABASIC+28 01984000 CRAL8PTR EQU CRABASIC+40 01985000 CRASVC EQU ISTCRA+848 01986000 CRABUFA EQU CRASVC+68 01987000 ISTAVT EQU 0 01988000 ISTAS49 EQU ISTAVT+4 01989000 ISTRH EQU 0 01990000 RHFLAGS EQU ISTRH 01991000 RH1 EQU RHFLAGS 01992000 RH2 EQU RHFLAGS+1 01993000 RHRETRY EQU RH2 01994000 RHRSVD1 EQU RH2 01995000 RH3 EQU RHFLAGS+2 01996000 ISTSRU EQU 0 01997000 SRUTYPE EQU ISTSRU+1 01998000 SRULDID EQU ISTSRU+2 01999000 SRUSPSN EQU SRULDID 02000000 ISTNCB EQU 0 02001000 NCBFLAGS EQU ISTNCB+24 02002000 NCBFRAS EQU NCBFLAGS+1 02003000 NCBFTRIO EQU NCBFRAS 02004000 NCBFLAG1 EQU NCBFLAGS+2 02005000 NCBDEVCH EQU ISTNCB+36 02006000 CALLPTR EQU 0 02007000 FMZL0008 EQU 0 02008000 FMZL0030 EQU 0 02009000 FMZL0041 EQU 0 02010000 FMZL0052 EQU 0 02011000 FMZL0073 EQU 0 02012000 ISTRCC26 EQU 0 02013000 ISTRCC63 EQU 0 02014000 ISTRPL EQU 0 02015000 CVTS01 EQU CVTPGSIA 02016000 CVTLPDIA EQU CVTS01+12 02017000 CVTDIRST EQU CVTLPDIA 02018000 CVTSLIDA EQU CVTS01+24 02019000 CVTCTLFG EQU CVTS01+50 02020000 CVTRV210 EQU CVTS01+424 02021000 CVTRV219 EQU CVTS01+425 02022000 CVTRV228 EQU CVTS01+426 02023000 CVTRV237 EQU CVTS01+427 02024000 CVTMFRTR EQU CVTS01+452 02025000 CVTRV262 EQU CVTS01+468 02026000 CVTRV271 EQU CVTS01+469 02027000 CVTRV280 EQU CVTS01+470 02028000 CVTRV289 EQU CVTS01+471 02029000 CVTGSDA EQU CVTS01+600 02030000 LCPZTIE EQU LCPCID 02031000 LCPZSNAM EQU LCPZTIE+8 02032000 FSBCOMBN EQU FSBNETRS 02033000 FSBRHFLD EQU FSBCOMBN+1 02034000 FSBRH3 EQU FSBRHFLD+2 02035000 FSBLDFLG EQU FSBRH3 02036000 @NM00059 EQU FSBRQTAG 02037000 SRUSENSE EQU ISTSRU 02038000 SRURMS EQU ISTSRU 02039000 SRUZIB EQU ISTSRU 02040000 SRUNETS EQU SRUZIB 02041000 ISTUNBRU EQU SRUTYPE 02042000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02043000 UNBTYPE EQU ISTUNBRU 02044000 SRUNAF EQU SRUZIB+3 02045000 SRUNSREQ EQU SRUNETS+2 02046000 SRUNSUBC EQU SRUNETS+1 02047000 SRUNSCAT EQU SRUNETS 02048000 SRUREQRE EQU SRURMS+2 02049000 SRUPFX2 EQU SRURMS+1 02050000 SRUPFX1 EQU SRURMS 02051000 SRUSENS2 EQU SRUSENSE+2 02052000 SRUSNS2 EQU SRUSENSE+1 02053000 SRUSNS1 EQU SRUSENSE 02054000 FSBRT0B EQU @NM00059+1 02055000 FSBRT0A EQU @NM00059+1 02056000 FSBRT09 EQU @NM00059+1 02057000 FSBRT08 EQU @NM00059+1 02058000 FSBRT07 EQU @NM00059 02059000 FSBRT06 EQU @NM00059 02060000 FSBRT05 EQU @NM00059 02061000 FSBRT04 EQU @NM00059 02062000 FSBRT03 EQU @NM00059 02063000 FSBRT02 EQU @NM00059 02064000 FSBRT01 EQU @NM00059 02065000 FSBRT00 EQU @NM00059 02066000 FSBLDCUF EQU FSBLDFLG 02067000 FSBLDSIF EQU FSBLDFLG 02068000 FSBLDSOF EQU FSBLDFLG 02069000 FSBLDEBF EQU FSBLDFLG 02070000 FSBLDBBF EQU FSBLDFLG 02071000 FSBLDFME EQU FSBLDFLG 02072000 FSBLDSCF EQU FSBLDFLG 02073000 FSBLDRMF EQU FSBLDFLG 02074000 FSBRH2 EQU FSBRHFLD+1 02075000 FSBRH1 EQU FSBRHFLD 02076000 FSBALIGN EQU FSBCOMBN 02077000 LCPZTRV4 EQU LCPZSNAM+4 02078000 LCPZTRV1 EQU LCPZSNAM 02079000 LCPZSNA EQU LCPZTIE+4 02080000 LCPZFMCA EQU LCPZTIE 02081000 CVTRV628 EQU CVTS01+728 02082000 CVTRV627 EQU CVTS01+724 02083000 CVTRV626 EQU CVTS01+720 02084000 CVTRV625 EQU CVTS01+716 02085000 CVTRV624 EQU CVTS01+712 02086000 CVTRV623 EQU CVTS01+708 02087000 CVTRV622 EQU CVTS01+704 02088000 CVTRV621 EQU CVTS01+700 02089000 CVTRV620 EQU CVTS01+696 02090000 CVTRV619 EQU CVTS01+692 02091000 CVTRV618 EQU CVTS01+688 02092000 CVTRV617 EQU CVTS01+684 02093000 CVTRV616 EQU CVTS01+680 02094000 CVTRV615 EQU CVTS01+676 02095000 CVTRV614 EQU CVTS01+672 02096000 CVTRV613 EQU CVTS01+668 02097000 CVTTCASP EQU CVTS01+664 02098000 CVT0PT03 EQU CVTS01+660 02099000 CVT0PT0E EQU CVTS01+656 02100000 CVTIRM EQU CVTS01+652 02101000 CVTCGK EQU CVTS01+648 02102000 CVTRV607 EQU CVTS01+644 02103000 CVTRV606 EQU CVTS01+640 02104000 CVTRV605 EQU CVTS01+636 02105000 CVTRV604 EQU CVTS01+632 02106000 CVTEFF02 EQU CVTS01+628 02107000 CVTCBBR EQU CVTS01+624 02108000 CVTSSCR EQU CVTS01+620 02109000 CVTEVENT EQU CVTS01+616 02110000 CVTCRCA EQU CVTS01+612 02111000 CVTTPIO EQU CVTS01+608 02112000 CVTADV EQU CVTS01+604 02113000 CVTGSDAB EQU CVTGSDA 02114000 CVTQV3 EQU CVTS01+596 02115000 CVTQV2 EQU CVTS01+592 02116000 CVTQV1 EQU CVTS01+588 02117000 CVTRPT EQU CVTS01+584 02118000 CVTSSRB EQU CVTS01+580 02119000 CVTCSDRL EQU CVTS01+576 02120000 CVTEXP1 EQU CVTS01+572 02121000 CVTRMPMT EQU CVTS01+568 02122000 CVTRMPTT EQU CVTS01+564 02123000 CVTVPSA EQU CVTS01+560 02124000 CVTVSTOP EQU CVTS01+556 02125000 CVTGTFR8 EQU CVTS01+552 02126000 CVTQUIT EQU CVTS01+548 02127000 CVTVACR EQU CVTS01+544 02128000 CVTWTCB EQU CVTS01+540 02129000 CVTSTPRS EQU CVTS01+536 02130000 CVT0PT02 EQU CVTS01+532 02131000 CVTDARCM EQU CVTS01+528 02132000 CVTIRECM EQU CVTS01+524 02133000 CVTJRECM EQU CVTS01+520 02134000 CVTVEMS0 EQU CVTS01+516 02135000 CVTSPFRR EQU CVTS01+512 02136000 CVTRLSTG EQU CVTS01+508 02137000 CVT0TC0A EQU CVTS01+504 02138000 CVTGMBR EQU CVTS01+500 02139000 CVTLFRM EQU CVTS01+496 02140000 CVTRMBR EQU CVTS01+492 02141000 CVTVIOP EQU CVTS01+488 02142000 CVTRV307 EQU CVTS01+486 02143000 CVTRV306 EQU CVTS01+484 02144000 CVTRV305 EQU CVTS01+482 02145000 CVTRV304 EQU CVTS01+480 02146000 CVTRV303 EQU CVTS01+478 02147000 CVTRV302 EQU CVTS01+476 02148000 CVTTRCA EQU CVTS01+472 02149000 CVTRV297 EQU CVTRV289 02150000 CVTRV296 EQU CVTRV289 02151000 CVTRV295 EQU CVTRV289 02152000 CVTRV294 EQU CVTRV289 02153000 CVTRV293 EQU CVTRV289 02154000 CVTRV292 EQU CVTRV289 02155000 CVTRV291 EQU CVTRV289 02156000 CVTRV290 EQU CVTRV289 02157000 CVTRV288 EQU CVTRV280 02158000 CVTRV287 EQU CVTRV280 02159000 CVTRV286 EQU CVTRV280 02160000 CVTRV285 EQU CVTRV280 02161000 CVTRV284 EQU CVTRV280 02162000 CVTRV283 EQU CVTRV280 02163000 CVTRV282 EQU CVTRV280 02164000 CVTRV281 EQU CVTRV280 02165000 CVTRV279 EQU CVTRV271 02166000 CVTRV278 EQU CVTRV271 02167000 CVTRV277 EQU CVTRV271 02168000 CVTRV276 EQU CVTRV271 02169000 CVTRV275 EQU CVTRV271 02170000 CVTRV274 EQU CVTRV271 02171000 CVTRV273 EQU CVTRV271 02172000 CVTRV272 EQU CVTRV271 02173000 CVTRV270 EQU CVTRV262 02174000 CVTRV269 EQU CVTRV262 02175000 CVTRV268 EQU CVTRV262 02176000 CVTRV267 EQU CVTRV262 02177000 CVTRV266 EQU CVTRV262 02178000 CVTRV265 EQU CVTRV262 02179000 CVTRV264 EQU CVTRV262 02180000 CVTRV263 EQU CVTRV262 02181000 CVTVFP EQU CVTS01+464 02182000 CVTVSI EQU CVTS01+460 02183000 CVTVPSIB EQU CVTS01+456 02184000 CVTMFACT EQU CVTMFRTR 02185000 CVTMFCTL EQU CVTS01+448 02186000 CVTPVBP EQU CVTS01+444 02187000 CVTPWI EQU CVTS01+440 02188000 CVTRV254 EQU CVTS01+438 02189000 CVTRV253 EQU CVTS01+436 02190000 CVTRV252 EQU CVTS01+434 02191000 CVTRV251 EQU CVTS01+433 02192000 CVTRV250 EQU CVTS01+432 02193000 CVTRV249 EQU CVTS01+431 02194000 CVTRV248 EQU CVTS01+430 02195000 CVTRV247 EQU CVTS01+429 02196000 CVTRV246 EQU CVTS01+428 02197000 CVTRV245 EQU CVTRV237 02198000 CVTRV244 EQU CVTRV237 02199000 CVTRV243 EQU CVTRV237 02200000 CVTRV242 EQU CVTRV237 02201000 CVTRV241 EQU CVTRV237 02202000 CVTRV240 EQU CVTRV237 02203000 CVTRV239 EQU CVTRV237 02204000 CVTRV238 EQU CVTRV237 02205000 CVTRV236 EQU CVTRV228 02206000 CVTRV235 EQU CVTRV228 02207000 CVTRV234 EQU CVTRV228 02208000 CVTRV233 EQU CVTRV228 02209000 CVTRV232 EQU CVTRV228 02210000 CVTRV231 EQU CVTRV228 02211000 CVTRV230 EQU CVTRV228 02212000 CVTRV229 EQU CVTRV228 02213000 CVTRV227 EQU CVTRV219 02214000 CVTRV226 EQU CVTRV219 02215000 CVTRV225 EQU CVTRV219 02216000 CVTRV224 EQU CVTRV219 02217000 CVTRV223 EQU CVTRV219 02218000 CVTRV222 EQU CVTRV219 02219000 CVTRV221 EQU CVTRV219 02220000 CVTRV220 EQU CVTRV219 02221000 CVTRV218 EQU CVTRV210 02222000 CVTRV217 EQU CVTRV210 02223000 CVTRV216 EQU CVTRV210 02224000 CVTRV215 EQU CVTRV210 02225000 CVTRV214 EQU CVTRV210 02226000 CVTRV213 EQU CVTRV210 02227000 CVTRV212 EQU CVTRV210 02228000 CVTRV211 EQU CVTRV210 02229000 CVTLCCAT EQU CVTS01+420 02230000 CVTPCCAT EQU CVTS01+416 02231000 CVTIPCRP EQU CVTS01+412 02232000 CVTIPCRI EQU CVTS01+408 02233000 CVTIPCDS EQU CVTS01+404 02234000 CVTAIDVT EQU CVTS01+400 02235000 CVTSSAP EQU CVTS01+396 02236000 CVTEHCIR EQU CVTS01+392 02237000 CVTEHDEF EQU CVTS01+388 02238000 CVTDAIR EQU CVTS01+384 02239000 CVTPERFM EQU CVTS01+380 02240000 CVT044R2 EQU CVTS01+376 02241000 CVTFETCH EQU CVTS01+372 02242000 CVTRSTWD EQU CVTS01+368 02243000 CVTSPOST EQU CVTS01+364 02244000 CVTIOBP EQU CVTS01+360 02245000 CVTASMVT EQU CVTS01+356 02246000 CVTRECRQ EQU CVTS01+352 02247000 CVTWSAC EQU CVTS01+348 02248000 CVTRV149 EQU CVTS01+344 02249000 CVTWSAL EQU CVTS01+340 02250000 CVTSPSA EQU CVTS01+336 02251000 CVTGLMN EQU CVTS01+332 02252000 CVTVEAC0 EQU CVTS01+328 02253000 CVT062R1 EQU CVTS01+324 02254000 CVTRPOST EQU CVTS01+320 02255000 CVTDQIQE EQU CVTS01+316 02256000 CVTCSD EQU CVTS01+312 02257000 CVTLKRMA EQU CVTS01+308 02258000 CVTRSPIE EQU CVTS01+304 02259000 CVTRENQ EQU CVTS01+300 02260000 CVTLQCB EQU CVTS01+296 02261000 CVTFQCB EQU CVTS01+292 02262000 CVTQCS01 EQU CVTS01+288 02263000 CVTAPFT EQU CVTS01+284 02264000 CVTPARRL EQU CVTS01+280 02265000 CVTVWAIT EQU CVTS01+276 02266000 CVTGSPL EQU CVTS01+272 02267000 CVTLSMQ EQU CVTS01+268 02268000 CVTGSMQ EQU CVTS01+264 02269000 CVTEXPRO EQU CVTS01+260 02270000 CVTOPCTP EQU CVTS01+256 02271000 CVTSIC EQU CVTS01+252 02272000 CVTTPIOS EQU CVTS01+248 02273000 CVTRTMS EQU CVTS01+244 02274000 CVTSDBF EQU CVTS01+240 02275000 CVTSCBP EQU CVTS01+236 02276000 CVTSDMP EQU CVTS01+232 02277000 CVTSV60 EQU CVTS01+228 02278000 CVTRTMCT EQU CVTS01+224 02279000 CVTASCBL EQU CVTS01+220 02280000 CVTASCBH EQU CVTS01+216 02281000 CVTGDA EQU CVTS01+212 02282000 CVTASVT EQU CVTS01+208 02283000 CVTVVMDI EQU CVTS01+204 02284000 CVTAQTOP EQU CVTS01+200 02285000 CVTIOSCS EQU CVTS01+196 02286000 CVTSDRM EQU CVTS01+192 02287000 CVTOPTE EQU CVTS01+188 02288000 CVTSTXU EQU CVTS01+184 02289000 CVTQUIS EQU CVTS01+180 02290000 CVTPARS EQU CVTS01+176 02291000 CVTS1EE EQU CVTS01+172 02292000 CVTFRAS EQU CVTS01+168 02293000 CVTQSAS EQU CVTS01+164 02294000 CVTCRAS EQU CVTS01+160 02295000 CVTCRMN EQU CVTS01+156 02296000 CVTDELCP EQU CVTS01+152 02297000 CVTFRECL EQU CVTS01+148 02298000 CVTGETCL EQU CVTS01+144 02299000 CVTBLDCP EQU CVTS01+140 02300000 CVTAUTHL EQU CVTS01+136 02301000 CVTSCAN EQU CVTS01+132 02302000 CVTRV144 EQU CVTS01+130 02303000 CVTMAXMP EQU CVTS01+128 02304000 CVTSTCK EQU CVTS01+124 02305000 CVTRV139 EQU CVTS01+123 02306000 CVTDSSAC EQU CVTS01+122 02307000 CVTRV513 EQU CVTS01+121 02308000 CVTIOSPL EQU CVTS01+120 02309000 CVTPTGT EQU CVTS01+116 02310000 CVTCSPIE EQU CVTS01+112 02311000 CVTSMFEX EQU CVTS01+108 02312000 CVTOLT0A EQU CVTS01+104 02313000 CVTSRBRT EQU CVTS01+100 02314000 CVTPUTL EQU CVTS01+96 02315000 CVTASCRL EQU CVTS01+92 02316000 CVTASCRF EQU CVTS01+88 02317000 CVTRV326 EQU CVTS01+84 02318000 CVTRV325 EQU CVTS01+80 02319000 CVTRV324 EQU CVTS01+76 02320000 CVT0VL01 EQU CVTS01+72 02321000 CVTSHRVM EQU CVTS01+68 02322000 CVTRV332 EQU CVTS01+64 02323000 CVTTAS EQU CVTS01+60 02324000 CVTRSCN EQU CVTS01+56 02325000 CVTTRAC2 EQU CVTS01+54 02326000 CVTTRACE EQU CVTS01+52 02327000 CVTAPG EQU CVTS01+51 02328000 CVTSDTRC EQU CVTCTLFG 02329000 CVTGTRCE EQU CVTCTLFG 02330000 CVTNOMP EQU CVTCTLFG 02331000 CVTRSV79 EQU CVTCTLFG 02332000 CVTDSTAT EQU CVTCTLFG 02333000 CVTRSV78 EQU CVTCTLFG 02334000 CVTRV333 EQU CVTCTLFG 02335000 CVTRV323 EQU CVTCTLFG 02336000 CVTSPVLK EQU CVTS01+49 02337000 CVTRSV77 EQU CVTS01+48 02338000 CVTRV331 EQU CVTS01+44 02339000 CVTRV330 EQU CVTS01+40 02340000 CVTRV329 EQU CVTS01+36 02341000 CVTRV328 EQU CVTS01+32 02342000 CVTRV322 EQU CVTS01+28 02343000 CVTSLID EQU CVTSLIDA+1 02344000 CVTSYLK EQU CVTSLIDA 02345000 CVTRV321 EQU CVTS01+20 02346000 CVTRV320 EQU CVTS01+16 02347000 CVTLPDIR EQU CVTLPDIA+1 02348000 CVTRSV69 EQU CVTDIRST 02349000 CVTRSV68 EQU CVTDIRST 02350000 CVTRSV67 EQU CVTDIRST 02351000 CVTRSV66 EQU CVTDIRST 02352000 CVTRSV65 EQU CVTDIRST 02353000 CVTRSV64 EQU CVTDIRST 02354000 CVTRSV63 EQU CVTDIRST 02355000 CVTDICOM EQU CVTDIRST 02356000 CVTPVTP EQU CVTS01+8 02357000 CVTLPDSR EQU CVTS01+4 02358000 CVTGETL EQU CVTS01 02359000 NCBRSV01 EQU ISTNCB+46 02360000 NCBSWDAF EQU ISTNCB+44 02361000 NCBFMCBP EQU ISTNCB+32 02362000 NCBLTRC EQU ISTNCB+30 02363000 NCBRVPT1 EQU ISTNCB+28 02364000 NCBNMLLN EQU NCBFLAGS+3 02365000 @NM00080 EQU NCBFLAG1 02366000 NCBFORCE EQU NCBFLAG1 02367000 NCBTTF EQU NCBFLAG1 02368000 NCBRSYNC EQU NCBFLAG1 02369000 NCBRSTRT EQU NCBFLAG1 02370000 NCBCONF EQU NCBFLAG1 02371000 NCBSNAI EQU NCBFLAG1 02372000 NCBFLTIO EQU NCBFTRIO 02373000 NCBCSTAT EQU NCBFLAGS 02374000 NCBNCSL EQU ISTNCB+22 02375000 NCBNCBA EQU ISTNCB+20 02376000 NCBFMCBA EQU ISTNCB+16 02377000 NCBNSNA EQU ISTNCB+12 02378000 NCBTSKID EQU ISTNCB+8 02379000 NCBRDTE EQU ISTNCB+4 02380000 NCBDAF EQU ISTNCB+2 02381000 NCBLNGTH EQU ISTNCB+1 02382000 NCBTYPE EQU ISTNCB 02383000 SRURSV01 EQU SRULDID+4 02384000 SRUPSSN EQU SRULDID+2 02385000 SRUDFCLV EQU SRUSPSN 02386000 @NM00079 EQU SRUTYPE 02387000 SRUPSAC EQU SRUTYPE 02388000 SRUSPAC EQU SRUTYPE 02389000 SRUQSREQ EQU ISTSRU 02390000 RHRSVD5 EQU RH3 02391000 RHRSVD4 EQU RH3 02392000 RHLOG EQU RH3 02393000 RHRSVD3 EQU RH3 02394000 RHRCDIR EQU RH3 02395000 RHCDIR EQU RH3 02396000 RHEB EQU RH3 02397000 RHBB EQU RH3 02398000 RHPACE EQU RH2 02399000 RHRSVD2 EQU RH2 02400000 RHINOP EQU RHRSVD1 02401000 RHBUSY EQU RHRETRY 02402000 RHEXCEPT EQU RH2 02403000 RHRRN EQU RH2 02404000 RHPE EQU RH2 02405000 RHFME EQU RH2 02406000 RHCHAIN EQU RH1 02407000 RHSENSE EQU RH1 02408000 RHFORMAT EQU RH1 02409000 RHDIRI EQU RH1 02410000 RHSCI EQU RH1 02411000 RHTYPE EQU RH1 02412000 RHQS EQU RH1 02413000 ISTPDAVP EQU ISTAVT+40 02414000 ISTAVR01 EQU ISTAVT+38 02415000 ISTVTTP EQU ISTAVT+36 02416000 ISTAGTWT EQU ISTAVT+34 02417000 ISTATRT EQU ISTAVT+32 02418000 ISTARID EQU ISTAVT+30 02419000 ISTX1 EQU ISTAVT+29 02420000 ISTPHNM EQU ISTAVT+24 02421000 ISTAPSEX EQU ISTAVT+20 02422000 ISTVTTIK EQU ISTAVT+18 02423000 AVTASID EQU ISTAVT+16 02424000 ISTAPSTA EQU ISTAVT+12 02425000 ISTAS53 EQU ISTAVT+8 02426000 ISTAHIP EQU ISTAS49 02427000 ISTACVT EQU ISTAVT 02428000 CRACHAIN EQU ISTCRA+928 02429000 CRARSV02 EQU ISTCRA+924 02430000 CRARSV01 EQU ISTCRA+920 02431000 CRABFTBA EQU CRABUFA 02432000 CRAMASK EQU CRASVC+64 02433000 CRAHSIZ EQU CRASVC+60 02434000 CRAASCRR EQU CRASVC 02435000 CRAPROCR EQU ISTCRA+312 02436000 CRAPSS EQU ISTCRA+160 02437000 CRARPH EQU ISTCRA+52 02438000 CRALAPTR EQU CRABASIC+48 02439000 CRAL9PTR EQU CRABASIC+44 02440000 CRAL7PTR EQU CRABASIC+36 02441000 CRAL6PTR EQU CRABASIC+32 02442000 CRAL4PTR EQU CRABASIC+24 02443000 CRAL3PTR EQU CRABASIC+20 02444000 CRAL2PTR EQU CRABASIC+16 02445000 CRAL1PTR EQU CRABASIC+12 02446000 CRALEV01 EQU CRALKACT+3 02447000 CRALEV02 EQU CRALKACT+3 02448000 CRALEV03 EQU CRALKACT+3 02449000 CRALEV04 EQU CRALKACT+3 02450000 CRALEV05 EQU CRALKACT+3 02451000 CRALEV06 EQU CRALKACT+3 02452000 CRALEV07 EQU CRALKACT+3 02453000 CRALEV08 EQU CRALKACT+3 02454000 CRALEV09 EQU CRALKACT+2 02455000 CRALEV10 EQU CRALKACT+2 02456000 CRALEV11 EQU CRALKACT+2 02457000 CRALEV12 EQU CRALKACT+2 02458000 CRALEV13 EQU CRALKACT+2 02459000 CRALEV14 EQU CRALKACT+2 02460000 CRALEV15 EQU CRALKACT+2 02461000 CRALEV16 EQU CRALKACT+2 02462000 CRALEV17 EQU CRALKACT+1 02463000 CRALEV18 EQU CRALKACT+1 02464000 CRALEV19 EQU CRALKACT+1 02465000 CRALEV20 EQU CRALKACT+1 02466000 CRALEV21 EQU CRALKACT+1 02467000 CRALEV22 EQU CRALKACT+1 02468000 CRALEV23 EQU CRALKACT+1 02469000 CRALEV24 EQU CRALKACT+1 02470000 CRALEV25 EQU CRALKACT 02471000 CRALEV26 EQU CRALKACT 02472000 CRALEV27 EQU CRALKACT 02473000 CRALEV28 EQU CRALKACT 02474000 CRALEV29 EQU CRALKACT 02475000 CRALEV30 EQU CRALKACT 02476000 CRALEV31 EQU CRALKACT 02477000 CRALEV32 EQU CRALKACT 02478000 CRAFRR EQU CRAHDR+4 02479000 @NM00078 EQU ISTAPCRR+137 02480000 @NM00077 EQU APC57FLG 02481000 APCNREL EQU APC57FLG 02482000 APCRECRA EQU APC57FLG 02483000 @NM00076 EQU APC54FLG 02484000 APCRLST EQU APC54FLG 02485000 APCPR153 EQU APC53FLG 02486000 @NM00075 EQU APC52FLG 02487000 APCWKF EQU APC52FLG 02488000 APCNWF EQU APC52FLG 02489000 APCRDQ EQU APC52FLG 02490000 APCQENQ EQU APC52FLG 02491000 APCSMSR EQU APC52FLG 02492000 APCCKRQ EQU APC52FLG 02493000 @NM00074 EQU APC31FLG 02494000 APCSORT EQU APC31FLG 02495000 APCRESCH EQU APC31FLG 02496000 APCTPXIT EQU APC31FLG 02497000 APCSWTWD EQU ISTAPCRR+128 02498000 APCSAV2 EQU ISTAPCRR+124 02499000 APCSAV1 EQU ISTAPCRR+120 02500000 APCRETCD EQU APCCOMF+2 02501000 @NM00073 EQU APCCOMF1+1 02502000 APCZLBER EQU APCCOMF1 02503000 APCEXIT EQU APCCOMF1 02504000 APCRELR EQU APCCOMF1 02505000 APCIRB2 EQU APCCOMF1 02506000 APCIRB1 EQU APCCOMF1 02507000 APCSMCR EQU APCCOMF1 02508000 APCUETSK EQU APCCOMF1 02509000 APCSSTSK EQU APCCOMF1 02510000 APCESTAL EQU APCSAVE 02511000 APCFRRPM EQU ISTAPCRR+40 02512000 APCQWFO EQU ISTAPCRR+36 02513000 APCPABSV EQU ISTAPCRR+32 02514000 APCRTRN EQU ISTAPCRR+28 02515000 APCTCBA EQU ISTAPCRR+24 02516000 APCPSTA EQU ISTAPCRR+20 02517000 @NM00072 EQU APCRFLG+1 02518000 APC31R EQU APCRFLG 02519000 APC58R EQU APCRFLG 02520000 APC57R EQU APCRFLG 02521000 APC56R EQU APCRFLG 02522000 APC54R EQU APCRFLG 02523000 APC53R EQU APCRFLG 02524000 APC52R EQU APCRFLG 02525000 APC51R EQU APCRFLG 02526000 @NM00071 EQU APCATFLG+1 02527000 APC31E EQU APCATFLG 02528000 APC58E EQU APCATFLG 02529000 APC57E EQU APCATFLG 02530000 APC56E EQU APCATFLG 02531000 APC54E EQU APCATFLG 02532000 APC53E EQU APCATFLG 02533000 APC52E EQU APCATFLG 02534000 APC51E EQU APCATFLG 02535000 APCHDRSV EQU ISTAPCRR 02536000 ASCPSREG EQU ISTASCRR+44 02537000 ASCUSR01 EQU ASCUSRGS+12 02538000 ASCUSR00 EQU ASCUSRGS+8 02539000 ASCUSR15 EQU ASCUSRGS+4 02540000 ASCUSR14 EQU ASCUSRGS 02541000 ASCETRYA EQU ISTASCRR+24 02542000 ASCKEY EQU ISTASCRR+23 02543000 ASCAUDIT EQU ASCFLG3 02544000 ASCFBDUD EQU ASCFLG3 02545000 ASCLLKF EQU ASCFLG3 02546000 ASCKEYF EQU ASCFLG3 02547000 ASCFBDAL EQU ASCFLG3 02548000 ASCFSRGT EQU ASCFLG3 02549000 ASCICR EQU ASCFLG2 02550000 ASCFSRIC EQU ASCFLG2 02551000 ASCFBDIC EQU ASCFLG2 02552000 ASCFBAIC EQU ASCFLG2 02553000 ASCPASTR EQU ASCFLG1 02554000 ASCFSR EQU ASCFLG1 02555000 ASCFBD EQU ASCFLG1 02556000 ASCFBA EQU ASCFLG1 02557000 ASCPFCRR EQU ISTASCRR 02558000 ZCRRU EQU ZCRRHRU+3 02559000 ZCRRH EQU ZCRRHRU 02560000 ZCRWORDA EQU ISTZCRR+477 02561000 ZCRCMNRC EQU ISTZCRR+476 02562000 ZCRRSV97 EQU ZCRENTER+18 02563000 ZCREIC2B EQU ZCRENTER+18 02564000 ZCREAC2B EQU ZCRENTER+18 02565000 ZCRELCAB EQU ZCRENTER+18 02566000 ZCREDCMF EQU ZCRENTER+18 02567000 ZCREBCIF EQU ZCRENTER+18 02568000 ZCREICSG EQU ZCRENTER+18 02569000 ZCREDCK0 EQU ZCRENTER+18 02570000 ZCRECFY0 EQU ZCRENTER+17 02571000 ZCREKCCB EQU ZCRENTER+17 02572000 ZCREDCNB EQU ZCRENTER+17 02573000 ZCREICOE EQU ZCRENTER+17 02574000 ZCREBCNB EQU ZCRENTER+17 02575000 ZCREBC0L EQU ZCRENTER+17 02576000 ZCREBCAL EQU ZCRENTER+17 02577000 ZCREDCQR EQU ZCRENTER+17 02578000 ZCREDCPR EQU ZCRENTER+16 02579000 ZCREBCSB EQU ZCRENTER+16 02580000 ZCREAC1R EQU ZCRENTER+16 02581000 ZCRECCCI EQU ZCRENTER+16 02582000 ZCRECCAI EQU ZCRENTER+16 02583000 ZCRECCBI EQU ZCRENTER+16 02584000 ZCREBCAR EQU ZCRENTER+16 02585000 ZCREBCDR EQU ZCRENTER+16 02586000 ZCREBCBR EQU ZCRENTER+15 02587000 ZCREDCXR EQU ZCRENTER+15 02588000 ZCREDCWB EQU ZCRENTER+15 02589000 ZCREDCWR EQU ZCRENTER+15 02590000 ZCREKCCN EQU ZCRENTER+15 02591000 ZCREKCBN EQU ZCRENTER+15 02592000 ZCREKCBB EQU ZCRENTER+15 02593000 ZCREJC0B EQU ZCRENTER+15 02594000 ZCREJCDB EQU ZCRENTER+14 02595000 ZCREJCCB EQU ZCRENTER+14 02596000 ZCREJCBB EQU ZCRENTER+14 02597000 ZCREJCAB EQU ZCRENTER+14 02598000 ZCREIC1B EQU ZCRENTER+14 02599000 ZCREIC0B EQU ZCRENTER+14 02600000 ZCREICX0 EQU ZCRENTER+14 02601000 ZCREICWB EQU ZCRENTER+14 02602000 ZCREICVB EQU ZCRENTER+13 02603000 ZCREICUB EQU ZCRENTER+13 02604000 ZCREICTB EQU ZCRENTER+13 02605000 ZCREICSC EQU ZCRENTER+13 02606000 ZCREICSB EQU ZCRENTER+13 02607000 ZCREICRB EQU ZCRENTER+13 02608000 ZCREICQB EQU ZCRENTER+13 02609000 ZCREICQA EQU ZCRENTER+13 02610000 ZCREICOB EQU ZCRENTER+12 02611000 ZCREICOA EQU ZCRENTER+12 02612000 ZCREICNB EQU ZCRENTER+12 02613000 ZCREICNA EQU ZCRENTER+12 02614000 ZCREICMB EQU ZCRENTER+12 02615000 ZCREICLB EQU ZCRENTER+12 02616000 ZCREICKG EQU ZCRENTER+12 02617000 ZCREICKE EQU ZCRENTER+12 02618000 ZCREICKB EQU ZCRENTER+11 02619000 ZCREICJB EQU ZCRENTER+11 02620000 ZCREICID EQU ZCRENTER+11 02621000 ZCREICIB EQU ZCRENTER+11 02622000 ZCREICHB EQU ZCRENTER+11 02623000 ZCREICGB EQU ZCRENTER+11 02624000 ZCREICEB EQU ZCRENTER+11 02625000 ZCREICDB EQU ZCRENTER+11 02626000 ZCREICCI EQU ZCRENTER+10 02627000 ZCREICCB EQU ZCRENTER+10 02628000 ZCREICBI EQU ZCRENTER+10 02629000 ZCREICBB EQU ZCRENTER+10 02630000 ZCREICAB EQU ZCRENTER+10 02631000 ZCREICAA EQU ZCRENTER+10 02632000 ZCREHCAN EQU ZCRENTER+10 02633000 ZCREGC0B EQU ZCRENTER+10 02634000 ZCREGC0A EQU ZCRENTER+9 02635000 ZCREGCLA EQU ZCRENTER+9 02636000 ZCREGCEB EQU ZCRENTER+9 02637000 ZCREGCDB EQU ZCRENTER+9 02638000 @NM00070 EQU ZCRENTER+9 02639000 ZCREGCBB EQU ZCRENTER+9 02640000 ZCREGCAB EQU ZCRENTER+9 02641000 ZCREFCEB EQU ZCRENTER+9 02642000 ZCREFCEA EQU ZCRENTER+8 02643000 ZCREECTA EQU ZCRENTER+8 02644000 ZCREECEA EQU ZCRENTER+8 02645000 ZCREECDA EQU ZCRENTER+8 02646000 ZCREECCB EQU ZCRENTER+8 02647000 ZCREECCA EQU ZCRENTER+8 02648000 ZCREECBB EQU ZCRENTER+8 02649000 ZCREECBA EQU ZCRENTER+8 02650000 ZCREDCMB EQU ZCRENTER+7 02651000 ZCREDCL0 EQU ZCRENTER+7 02652000 ZCREDCKB EQU ZCRENTER+7 02653000 ZCREDCKA EQU ZCRENTER+7 02654000 ZCREDCJ0 EQU ZCRENTER+7 02655000 ZCREDCI0 EQU ZCRENTER+7 02656000 ZCREDCH0 EQU ZCRENTER+7 02657000 ZCREDCF0 EQU ZCRENTER+7 02658000 ZCREDCE0 EQU ZCRENTER+6 02659000 ZCREDCD0 EQU ZCRENTER+6 02660000 ZCREDCC0 EQU ZCRENTER+6 02661000 ZCREDCB0 EQU ZCRENTER+6 02662000 ZCREDCA0 EQU ZCRENTER+6 02663000 ZCRECC2B EQU ZCRENTER+6 02664000 ZCRECC1B EQU ZCRENTER+6 02665000 ZCRECC1A EQU ZCRENTER+6 02666000 ZCRECC0B EQU ZCRENTER+5 02667000 ZCRECC0A EQU ZCRENTER+5 02668000 ZCREBC0B EQU ZCRENTER+5 02669000 ZCREBC0A EQU ZCRENTER+5 02670000 ZCREBCZ0 EQU ZCRENTER+5 02671000 ZCREBCY0 EQU ZCRENTER+5 02672000 ZCREBCX0 EQU ZCRENTER+5 02673000 ZCREBCXA EQU ZCRENTER+5 02674000 ZCREBCSC EQU ZCRENTER+4 02675000 ZCREBCRB EQU ZCRENTER+4 02676000 ZCREBCRA EQU ZCRENTER+4 02677000 ZCREBCQB EQU ZCRENTER+4 02678000 ZCREBCPB EQU ZCRENTER+4 02679000 ZCREBCOB EQU ZCRENTER+4 02680000 ZCREBCNE EQU ZCRENTER+4 02681000 ZCREBCND EQU ZCRENTER+4 02682000 ZCREBCMB EQU ZCRENTER+3 02683000 ZCREBCLB EQU ZCRENTER+3 02684000 ZCREBCLA EQU ZCRENTER+3 02685000 ZCREBCKB EQU ZCRENTER+3 02686000 ZCREBCKA EQU ZCRENTER+3 02687000 ZCREBCJB EQU ZCRENTER+3 02688000 ZCREBCJA EQU ZCRENTER+3 02689000 ZCREBCID EQU ZCRENTER+3 02690000 ZCREBCIB EQU ZCRENTER+2 02691000 ZCREBCIA EQU ZCRENTER+2 02692000 ZCREBCHB EQU ZCRENTER+2 02693000 ZCREBCHA EQU ZCRENTER+2 02694000 ZCREBCGB EQU ZCRENTER+2 02695000 ZCREBCGA EQU ZCRENTER+2 02696000 ZCREBCFB EQU ZCRENTER+2 02697000 ZCREBCFA EQU ZCRENTER+2 02698000 ZCREBCEB EQU ZCRENTER+1 02699000 ZCREBCDI EQU ZCRENTER+1 02700000 ZCREBCCB EQU ZCRENTER+1 02701000 ZCREBCBI EQU ZCRENTER+1 02702000 ZCREBCBB EQU ZCRENTER+1 02703000 ZCREBCBA EQU ZCRENTER+1 02704000 ZCREBCAM EQU ZCRENTER+1 02705000 ZCREBCAI EQU ZCRENTER+1 02706000 ZCREBCAG EQU ZCRENTER 02707000 ZCREBCAE EQU ZCRENTER 02708000 ZCREBCAB EQU ZCRENTER 02709000 ZCREBCAA EQU ZCRENTER 02710000 ZCREAC1B EQU ZCRENTER 02711000 ZCREAC0B EQU ZCRENTER 02712000 ZCREAC0A EQU ZCRENTER 02713000 ZCREAC1A EQU ZCRENTER 02714000 ZCRTNAME EQU ZCRAUDIT+1 02715000 ZCRTID EQU ZCRAUDIT 02716000 ZCRREMIC EQU ISTZCRR+436 02717000 ZCRSAVEZ EQU ISTZCRR+196 02718000 ZCRDAFSV EQU ZCRCIDSV+2 02719000 ZCRSAFSV EQU ZCRCIDSV 02720000 ZCRR13SV EQU ISTZCRR+188 02721000 ZCRR2SV EQU ISTZCRR+184 02722000 ZCROPCDE EQU ISTZCRR+183 02723000 ZCRPRMTC EQU ISTZCRR+182 02724000 ZCRRCDSV EQU ISTZCRR+181 02725000 ZCRAWQSW EQU ISTZCRR+180 02726000 ZCRTOPQ EQU ISTZCRR+180 02727000 ZCRLSTFB EQU ISTZCRR+180 02728000 ZCRXSCHD EQU ISTZCRR+180 02729000 ZCRNXTEL EQU ISTZCRR+180 02730000 ZCRSCANQ EQU ISTZCRR+180 02731000 ZCRMOREL EQU ISTZCRR+180 02732000 ZCRFBPRC EQU ISTZCRR+180 02733000 ZCRFSBSV EQU ISTZCRR+176 02734000 ZCRSVWK5 EQU ZCRWKARA+16 02735000 ZCRSVWK4 EQU ZCRWKARA+12 02736000 ZCRSVWK3 EQU ZCRWKARA+8 02737000 ZCRSVWK2 EQU ZCRWKARA+4 02738000 ZCRSVWK1 EQU ZCRWKARA 02739000 ZCRSVF25 EQU ZCRSVRTN+96 02740000 ZCRSVF24 EQU ZCRSVRTN+92 02741000 ZCRSVF23 EQU ZCRSVRTN+88 02742000 ZCRSVF22 EQU ZCRSVRTN+84 02743000 ZCRSVF21 EQU ZCRSVRTN+80 02744000 ZCRSVF20 EQU ZCRSVRTN+76 02745000 ZCRSVF19 EQU ZCRSVRTN+72 02746000 ZCRSVF18 EQU ZCRSVRTN+68 02747000 ZCRSVF17 EQU ZCRSVRTN+64 02748000 ZCRSVF16 EQU ZCRSVRTN+60 02749000 ZCRSVF15 EQU ZCRSVRTN+56 02750000 ZCRSVF14 EQU ZCRSVRTN+52 02751000 ZCRSVF13 EQU ZCRSVRTN+48 02752000 ZCRSVF12 EQU ZCRSVRTN+44 02753000 ZCRSVF11 EQU ZCRSVRTN+40 02754000 ZCRSVF10 EQU ZCRSVRTN+36 02755000 ZCRSVF9 EQU ZCRSVRTN+32 02756000 ZCRSVF8 EQU ZCRSVRTN+28 02757000 ZCRSVF7 EQU ZCRSVRTN+24 02758000 ZCRSVF6 EQU ZCRSVRTN+20 02759000 ZCRSVF5 EQU ZCRSVRTN+16 02760000 ZCRSVF4 EQU ZCRSVRTN+12 02761000 ZCRSVF3 EQU ZCRSVRTN+8 02762000 ZCRSVF2 EQU ZCRSVRTN+4 02763000 ZCRSVF1 EQU ZCRSVRTN 02764000 ZCRPVZB EQU ISTZCRR+52 02765000 ZCRZLB EQU ISTZCRR+48 02766000 ZCRBFPTR EQU ISTZCRR+44 02767000 ZCRCCWA EQU ISTZCRR+40 02768000 ZCRPSW EQU ZCRPARMS+15 02769000 ZCRPCHAR EQU ZCRPARMS+14 02770000 ZCRPRES2 EQU ZCRPCOD2 02771000 ZCRPMFGF EQU ZCRPCOD2 02772000 ZCRPFHDR EQU ZCRPCOD2 02773000 ZCRPPG2 EQU ZCRPCOD2 02774000 ZCRPRES EQU ZCRPCOD1 02775000 ZCRPCFTX EQU ZCRPCOD1 02776000 ZCRPBUF EQU ZCRPCOD1 02777000 ZCRPLSCB EQU ZCRPCOD1 02778000 ZCRPLSBQ EQU ZCRPLSBF 02779000 ZCRPFSB EQU ZCRPCOD1 02780000 ZCRPLNG EQU ZCRPCOD1 02781000 ZCRPPG EQU ZCRPCOD1 02782000 ZCRDTODA EQU ZCRDFRDA 02783000 ZCRMLNG EQU ZCRPARMS+8 02784000 ZCRTBPTR EQU ZCRPARMS+4 02785000 ZCRCBPTR EQU ZCRFBPTR 02786000 ZCRCRLCP EQU ISTZCRR+20 02787000 @NM00069 EQU ZCRSCPSW 02788000 ZCRSKIPT EQU ZCRSCPSW 02789000 ZCRFSBWE EQU ZCRSCPSW 02790000 ZCRPRCMP EQU ZCRSCPSW 02791000 ZCRLREQ EQU ZCRSCPSW 02792000 ZCRRJLCP EQU ZCRSCPSW 02793000 ZCRTPINV EQU ZCRSCPSW 02794000 ZCRTPEX EQU ZCRSCPSW 02795000 @NM00068 EQU ZCRIBPR 02796000 ZCR3270R EQU ZCRIBPR 02797000 ZCR3270 EQU ZCRIBPR 02798000 ZCRLCPFD EQU ZCRIBPR 02799000 ZCRLCPFR EQU ZCRIBPR 02800000 ZCRRELK EQU ZCRIBPR 02801000 ZCRERR EQU ZCRIBPR 02802000 ZCRNOBUF EQU ZCRIBPR 02803000 @NM00067 EQU ZCRPFLGS 02804000 ZCRQAHED EQU ZCRPFLGS 02805000 ZCRF1RES EQU ZCRGENSW 02806000 ZCRBRIS EQU ZCRGENSW 02807000 ZCRCLRBD EQU ZCRGENSW 02808000 ZCREXRES EQU ZCRGENSW 02809000 ZCRLCSYN EQU ZCRGENSW 02810000 ZCRRT06 EQU ZCRGENSW 02811000 ZCRTSW2 EQU ZCRGENSW 02812000 ZCRTSW1 EQU ZCRGENSW 02813000 ZCRINLCP EQU ZCRFLGS3 02814000 ZCRWRPTR EQU ZCRFLGS3 02815000 ZCRNOFRE EQU ZCRFLGS3 02816000 ZCREDRIV EQU ZCRFLGS3 02817000 ZCRDISC EQU ZCRFLGS3 02818000 ZCRTPDIS EQU ZCRFLGS3 02819000 ZCRTPCON EQU ZCRFLGS3 02820000 ZCRTIC EQU ZCRFLGS3 02821000 ZCRCNLXL EQU ZCRRESET 02822000 ZCRENDAN EQU ZCRSWFLD 02823000 ZCRENDXL EQU ZCRSWFLD 02824000 ZCRENDX EQU ZCRSWFLD 02825000 ZCROB1 EQU ZCRNDLCP 02826000 ZCRENDPR EQU ZCRSWFLD 02827000 ZCREXTYP EQU ZCRSWFLD 02828000 ZCRSLCP EQU ZCRENDSH 02829000 ZCRIF0E3 EQU ZCRFLGS2 02830000 ZCRIF0E2 EQU ZCRFLGS2 02831000 ZCRIF0E1 EQU ZCRFLGS2 02832000 ZCROB EQU ZCRFLGS2 02833000 ZCRFMSED EQU ZCRFLGS2 02834000 ZCRSHEDI EQU ZCRFLGS2 02835000 ZCRLOCAL EQU ZCRFLGS2 02836000 ZCRFEXIT EQU ZCRFLGS1 02837000 ZCRUNSOL EQU ZCRFLGS1 02838000 ZCRENDLP EQU ZCRFLGS1 02839000 ZCRNRMEX EQU ZCRFLGS1 02840000 ZCRWAIT EQU ZCRFLGS1 02841000 ZCRDEQSW EQU ZCRFLGS1 02842000 ZCRQUESW EQU ZCRFLGS1 02843000 ZCREXSW EQU ZCRFLGS1 02844000 ZCRFRRA EQU ISTZCRR+8 02845000 ZCRCHAIN EQU ISTZCRR+4 02846000 ZCRFLAG EQU ZCRCRR+3 02847000 ZCRLEN EQU ZCRCRR+1 02848000 ZCRID EQU ZCRCRR 02849000 CCFRSVD1 EQU CFCCRT 02850000 CCFCR2 EQU CFCCRT 02851000 CCFCRP EQU CFCCRT 02852000 CCFCR1 EQU CFCCRT 02853000 CCFCS2 EQU CFCCRT 02854000 CCFCS1 EQU CFCCRT 02855000 NCFRSVD EQU CFCNTRD 02856000 NCFCR2 EQU CFCNTRD 02857000 NCFCRP EQU CFCNTRD 02858000 NCFCR1 EQU CFCNTRD 02859000 NCFCS2 EQU CFCNTRD 02860000 NCFCS1 EQU CFCNTRD 02861000 PFCRSV01 EQU ISTPFCRR+13 02862000 PFCFTA EQU ISTPFCRR+12 02863000 CRRFRR EQU PFCFRRO 02864000 CRRCHAIN EQU PFCCRRO 02865000 CRRLEN EQU PFCCRRLN 02866000 PFCRSV10 EQU PFCCRR+1 02867000 CRRID EQU PFCCRRID 02868000 ZSAZTRAC EQU ISTZSAVE+36 02869000 ZSAZSVVR EQU ISTZSAVE+12 02870000 ZSAZSVRR EQU ISTZSAVE+8 02871000 ZSAZSVFC EQU ISTZSAVE+4 02872000 ZSAZACTV EQU ZSAZSVMS 02873000 FMCFLRSV EQU FMCFLGB 02874000 FMCFLGA8 EQU FMCFLGB 02875000 FMCCLRPH EQU FMCVS1+45 02876000 FMCRSV0X EQU FMCCVFLG 02877000 FMCVYRPH EQU FMCCVFLG 02878000 FMCZV004 EQU FMCVS1+40 02879000 FMCLOCK2 EQU FMCVS1+36 02880000 @NM00066 EQU FMCZFLG2 02881000 FMCZF027 EQU FMCZFLG2 02882000 FMCZF026 EQU FMCZFLG2 02883000 FMCSEQ1B EQU FMCSEQ1 02884000 FMCSEQ1T EQU FMCSEQ1 02885000 FMCZX006 EQU FMCVS1+33 02886000 FMCZX005 EQU FMCVS1+32 02887000 FMCZX004 EQU FMCVS1+31 02888000 FMCZX003 EQU FMCVS1+30 02889000 FMCZX002 EQU FMCVS1+29 02890000 FMCZX001 EQU FMCVS1+28 02891000 FMCZV001 EQU FMCVS1+24 02892000 FMCAWATQ EQU FMCLCPAQ+1 02893000 @NM00065 EQU FMCLCPAQ 02894000 FMCLCPB2 EQU FMCLCPBQ+1 02895000 FMCLCPB1 EQU FMCLCPBQ 02896000 FMCASCDQ EQU FMCSHEAQ+1 02897000 @NM00064 EQU FMCSHEAQ 02898000 FMCSHEDQ EQU FMCVS1+8 02899000 FMCZFCSQ EQU FMCVS1+6 02900000 FMCZH001 EQU FMCVS1+4 02901000 FMCZF025 EQU FMCZFLAG+3 02902000 FMCZF024 EQU FMCZFLAG+3 02903000 FMCZF023 EQU FMCZFLAG+3 02904000 FMCZF022 EQU FMCZFLAG+3 02905000 FMCZF021 EQU FMCZFLAG+3 02906000 FMCZF020 EQU FMCZFLAG+3 02907000 FMCZF019 EQU FMCZFLAG+3 02908000 FMCZF018 EQU FMCZFLAG+3 02909000 FMCZF017 EQU FMCZFLAG+2 02910000 FMCZF016 EQU FMCZFLAG+2 02911000 FMCZF015 EQU FMCZFLAG+2 02912000 FMCZF014 EQU FMCZFLAG+2 02913000 FMCZF013 EQU FMCZFLAG+2 02914000 FMCZF012 EQU FMCZFLAG+2 02915000 FMCZF011 EQU FMCZFLAG+2 02916000 FMCZF010 EQU FMCZFLAG+2 02917000 FMCZF00F EQU FMCZFLAG+1 02918000 FMCZF00E EQU FMCZFLAG+1 02919000 FMCZF00D EQU FMCZFLAG+1 02920000 FMCZF00C EQU FMCZFLAG+1 02921000 FMCZF00B EQU FMCZFLAG+1 02922000 FMCRSV10 EQU FMCZFLAG+1 02923000 FMCZF009 EQU FMCZFLAG+1 02924000 FMCZFD06 EQU FMCZF006+1 02925000 FMCZFC06 EQU FMCZF006 02926000 FMCZFB06 EQU FMCZF006 02927000 FMCZFA06 EQU FMCZF006 02928000 FMCZF005 EQU FMCZFLAG 02929000 FMCZF004 EQU FMCZFLAG 02930000 FMCZF003 EQU FMCZFLAG 02931000 FMCZF002 EQU FMCZFLAG 02932000 FMCZF001 EQU FMCZFLAG 02933000 FMCSCSQN EQU FMCSNCTL+2 02934000 FMCSCCTL EQU FMCSNCTL+1 02935000 FMCSTCTL EQU FMCSCFLG 02936000 FMCSCCLO EQU FMCSCFLG 02937000 FMCAPRO EQU FMCSCFLG 02938000 FMCLURO EQU FMCSCFLG 02939000 FMCOBSAC EQU FMCSCFLG 02940000 FMCIBSAC EQU FMCSCFLG 02941000 FMCFBXM EQU FMCZV002 02942000 FMCASEGQ EQU ISTFMCB+212 02943000 FMCRDTPT EQU ISTFMCB+208 02944000 FMCLOCK EQU ISTFMCB+204 02945000 FMCSEGD EQU FMCSSEGQ 02946000 FMCRSPLM EQU ISTFMCB+198 02947000 FMCPSTRS EQU ISTFMCB+196 02948000 @NM00063 EQU FMCRRESP 02949000 FMCTSLHA EQU FMCRRESP 02950000 FMCFRRN EQU FMCRRESP 02951000 FMCFME EQU FMCRRESP 02952000 FMCFEX EQU FMCRRESP 02953000 FMCFPE EQU FMCRRESP 02954000 FMCCTLB EQU ISTFMCB+194 02955000 FMCBSQNO EQU FMCCLSEQ+2 02956000 FMCTSQNO EQU FMCCLSEQ 02957000 FMCOBPRG EQU FMCMODEB 02958000 FMCIBPRG EQU FMCMODEB 02959000 FMCRESOT EQU FMCMODEB 02960000 FMCRSTSR EQU FMCMODEB 02961000 FMCLUQ EQU FMCMODEB 02962000 FMCAPQ EQU FMCMODEB 02963000 FMCCLEAR EQU FMCMODEB 02964000 FMCHOLD EQU FMCMODEB 02965000 FMCIPSEQ EQU ISTFMCB+188 02966000 FMCLUSTR EQU ISTFMCB+187 02967000 FMCRSV87 EQU FMCSTAT2 02968000 FMCSEQI EQU FMCSTAT2 02969000 FMCCPIP EQU FMCSTAT2 02970000 FMCALIPR EQU FMCSTAT2 02971000 FMCIAIO EQU FMCSTAT2 02972000 FMCZF00A EQU FMCSTAT2 02973000 FMCVPIP EQU FMCSTAT2 02974000 FMCBHSET EQU ISTFMCB+185 02975000 FMCPRMRC EQU FMCCLEXT+20 02976000 FMCRSV89 EQU FMCPSTAT 02977000 FMCPCLSD EQU FMCPSTAT 02978000 FMCDDOCD EQU FMCPSTAT 02979000 FMCIDVFD EQU FMCPSTAT 02980000 FMCELKST EQU FMCPSTAT 02981000 FMCRSV88 EQU FMCPSCMD 02982000 FMCRDBLK EQU FMCPSCMD 02983000 FMCDSEOC EQU FMCPSCMD 02984000 FMCPURGE EQU FMCPSCMD 02985000 FMCRESTI EQU FMCPSCMD 02986000 FMCCNTCT EQU FMCPSCMD 02987000 FMCINVT EQU FMCPSCMD 02988000 FMCFLGB7 EQU FMCFLGCL 02989000 FMCFLGB6 EQU FMCFLGCL 02990000 FMCFLGB5 EQU FMCFLGCL 02991000 FMCFLGB4 EQU FMCFLGCL 02992000 FMCFLGB3 EQU FMCFLGCL 02993000 FMCFLGB2 EQU FMCFLGCL 02994000 FMCFLGB1 EQU FMCFLGCL 02995000 FMCFLGB0 EQU FMCFLGCL 02996000 FMCFLGA7 EQU FMCFLGA 02997000 FMCFLGA6 EQU FMCFLGA 02998000 FMCFLGA5 EQU FMCFLGA 02999000 FMCFLGA4 EQU FMCFLGA 03000000 FMCFLGA3 EQU FMCFLGA 03001000 FMCFLGA2 EQU FMCFLGA 03002000 FMCFLGA1 EQU FMCFLGA 03003000 FMCFLGA0 EQU FMCFLGA 03004000 FMCFBPTR EQU FMCFBA+1 03005000 FMCFBRSV EQU FMCFBA 03006000 FMCRPLPT EQU FMCRPLA+1 03007000 FMCRPLRS EQU FMCRPLA 03008000 FMCPRCLS EQU FMCCVAL 03009000 FMCIBCE EQU FMCCVAL 03010000 FMCONLY EQU FMCOBCE 03011000 FMCLAST EQU FMCOBCE 03012000 FMCMIDLE EQU FMCOBCE 03013000 FMCFIRST EQU FMCOBCE 03014000 FMCCPCNT EQU FMCPACPC 03015000 FMCMPCNT EQU FMCPACEM 03016000 FMCNPCNT EQU FMCPACEN 03017000 FMCCONF EQU FMCSSTAT 03018000 FMCPURCH EQU FMCSSTAT 03019000 FMCNSALU EQU FMCSSTAT 03020000 FMCBIP EQU FMCSSTAT 03021000 FMCSDTR EQU FMCSSTAT 03022000 FMCUIPI EQU FMCSSTAT 03023000 FMCCIPI EQU FMCSSTAT 03024000 FMCSNBI EQU FMCSSTAT 03025000 FMCRVD01 EQU ISTFMCB+158 03026000 FMCISSN EQU ISTFMCB+156 03027000 FMCOASN EQU FMCNXOSC 03028000 FMCOSSN EQU FMCNXCFM 03029000 FMCSIP EQU FMCSIPA 03030000 FMCEXLST EQU ISTFMCB+144 03031000 FMCPAB5 EQU ISTFMCB+128 03032000 FMCPAB4 EQU ISTFMCB+112 03033000 FMCPAB3 EQU ISTFMCB+96 03034000 FMCPAB2 EQU ISTFMCB+80 03035000 FMCPAB1 EQU ISTFMCB+64 03036000 FMCPROCD EQU ISTFMCB+48 03037000 FMCVWT EQU ISTFMCB+44 03038000 FMCRPLH EQU ISTFMCB+40 03039000 FMCBUFNB EQU FMCCMPS1+2 03040000 FMCBUFLM EQU FMCCMPS1 03041000 FMCDEBA EQU ISTFMCB+32 03042000 @NM00062 EQU FMCCMDFL 03043000 FMCSNA EQU FMCCMDFL 03044000 FMCVSNA EQU FMCCMDFL 03045000 FMCCMDR EQU FMCCMDFL 03046000 @NM00061 EQU ISTFMCB+30 03047000 @NM00060 EQU FMCSTAT1 03048000 FMCLTCLS EQU FMCSTAT1 03049000 FMCHPURG EQU FMCSTAT1 03050000 FMCVSP2 EQU FMCSTAT1 03051000 FMCVSP1 EQU FMCSTAT 03052000 FMCLTEAS EQU FMCSTAT 03053000 FMCZF007 EQU FMCSTAT 03054000 FMCDAPT EQU FMCSTAT 03055000 FMCPRMTE EQU FMCSTAT 03056000 FMCPRMTR EQU FMCSTAT 03057000 FMCUSFLD EQU ISTFMCB+24 03058000 FMCFMCBA EQU ISTFMCB+20 03059000 FMCTSKID EQU ISTFMCB+8 03060000 FMCNXTCB EQU ISTFMCB+4 03061000 FMCSAF EQU ISTFMCB+2 03062000 FMCLNGTH EQU ISTFMCB+1 03063000 FMCTYPE EQU ISTFMCB 03064000 PROSRDEF EQU PROSETM4 03065000 PRORSV47 EQU PROSETM4 03066000 PROSCON EQU PROSETM4 03067000 PRORSV46 EQU PROSETM3 03068000 PROSMONT EQU PROSETM3 03069000 PRORSV45 EQU PROSETM3 03070000 PROSNTO EQU PROSETM3 03071000 PRORSV44 EQU PROSETM3 03072000 PRORSV43 EQU PROSETM2 03073000 PROSNTFL EQU PROSETM2 03074000 PRORSV42 EQU PROSETM2 03075000 PRORSV41 EQU PROPROCS 03076000 PROMODC EQU PROPROC4 03077000 PROMODT EQU PROPROC4 03078000 PROMODM EQU PROPROC4 03079000 PROMODB EQU PROPROC4 03080000 PRORSV14 EQU PROPROC4 03081000 PRORSV13 EQU PROPROC4 03082000 PRORSV12 EQU PROPROC4 03083000 PROEIB EQU PROPROC4 03084000 PROMONT3 EQU PROPROC3 03085000 PROMONT2 EQU PROPROC3 03086000 PROMONIT EQU PROPROC3 03087000 PROSUBLK EQU PROPROC3 03088000 PRONTO EQU PROPROC3 03089000 PROLGIN EQU PROPROC3 03090000 PROERPI EQU PROPROC3 03091000 PRORSV07 EQU PROPROC3 03092000 PROCFTX EQU PROPROC2 03093000 PROEMLC EQU PROPROC2 03094000 PRONTFL EQU PROPROC2 03095000 PRORSV05 EQU PROPROC2 03096000 PRORSV04 EQU PROPROC2 03097000 PROLGOT EQU PROPROC2 03098000 PROERPO EQU PROPROC2 03099000 PRORSV03 EQU PROPROC2 03100000 PRORPLC EQU PROPROC1 03101000 PROCS EQU PROPROC1 03102000 PROCA EQU PROPROC1 03103000 PRORESPX EQU PROPROC1 03104000 PRODFASY EQU PROPROC1 03105000 PROXPOPT EQU PROPROC1 03106000 PROTRUNC EQU PROPROC1 03107000 PROASYIP EQU PROPROC1 03108000 DEVRSV03 EQU ISTDEVCH+5 03109000 DEVPHYSA EQU ISTDEVCH+4 03110000 DEVCSLPN EQU DEVCHAR3 03111000 DEVCSTCL EQU DEVCHAR3 03112000 DEVCCHEK EQU DEVCHAR3 03113000 DEVCATTN EQU DEVCHAR3 03114000 DEVCSWL EQU DEVFCCTL 03115000 DEVCRVB EQU DEVFCCTL 03116000 DEVCSSL EQU DEVFCCTL 03117000 DEVCBSC EQU DEVFCCTL 03118000 DEVMCODE EQU ISTDEVCH+2 03119000 DEVCHAR2 EQU DEVTCODE 03120000 DEVRSV01 EQU DEVCHAR 03121000 DEVCCTL EQU DEVCHAR 03122000 DEVNNSPT EQU DEVCHAR 03123000 DEVSPS EQU DEVCHAR 03124000 DEVSUBND EQU DEVCHAR 03125000 DEVCONVR EQU DEVCHAR 03126000 DEVOTPUT EQU DEVCHAR 03127000 DEVINPUT EQU DEVCHAR 03128000 FSBFDB EQU ISTFSB+32 03129000 FSBRSV01 EQU FSBFSB+30 03130000 FSBTHCNT EQU FSBFSB+28 03131000 FSBRLRSV EQU FSBRLSTS 03132000 FSBCFTX EQU FSBRLSTS 03133000 FSBICNCB EQU FSBMSGID 03134000 FSBSSOC EQU FSBSS2 03135000 FSBSSCC EQU FSBSS2 03136000 FSBSSDC EQU FSBSS2 03137000 FSBSSEC EQU FSBSS2 03138000 FSBSSIR EQU FSBSS2 03139000 FSBSSCR EQU FSBSS2 03140000 @NM00058 EQU FSBSS2 03141000 @NM00057 EQU FSBSS1 03142000 FSBSSDE EQU FSBSS1 03143000 FSBSSUS EQU FSBSS1 03144000 @NM00056 EQU FSBSS1 03145000 FSBSOHI EQU FSBERC 03146000 FSBLGI EQU FSBERC 03147000 FSBLMRI EQU FSBFBMI 03148000 FSBETI EQU FSBERC 03149000 FSBEMI EQU FSBERC 03150000 FSBEBI EQU FSBERC 03151000 FSBECI EQU FSBERC 03152000 FSBELI EQU FSBERC 03153000 FSBMJRCD EQU FSBSRCAT 03154000 FSBXLCI EQU FSBXCODE 03155000 FSBXFINS EQU FSBXCODE 03156000 FSBXNORM EQU FSBXFSTS 03157000 FSBSCODE EQU FSBSYSRS 03158000 FSBSPHSE EQU FSBSYSRS 03159000 FSBSERR EQU FSBSYSRS 03160000 FSBCMD EQU FSBSEQ 03161000 FSBDTRCE EQU FSBFLAGS 03162000 FSBASBTU EQU FSBFLAGS 03163000 FSBINPET EQU FSBFLAGS 03164000 FSBNONCB EQU FSBFLAGS 03165000 FSBLBIND EQU FSBFLAGS 03166000 FSBFFIND EQU FSBFLAGS 03167000 FSBACIND EQU FSBFLAGS 03168000 FSBRFIND EQU FSBFLAGS 03169000 FSBDAF EQU FSBCID+2 03170000 FSBSAF EQU FSBCID 03171000 FSBGATE EQU FSBFSBA 03172000 FSBLATOP EQU FSBSFLGS 03173000 FSBRSV02 EQU FSBSFLGS 03174000 FSBPGBUF EQU FSBSFLGS 03175000 FSBMNSDA EQU FSBMNRCD 03176000 FSBMNOA EQU FSBMNRCD 03177000 FSBMNDIF EQU FSBMNRCD 03178000 FSBMNEOP EQU FSBMNRCD 03179000 FSBMNDNU EQU FSBMNRCD 03180000 FSBMNATN EQU FSBMNRCD 03181000 FSBMNRVI EQU FSBMNRCD 03182000 FSBMNELI EQU FSBMNRCD 03183000 FSBLNGTH EQU FSBFSB+1 03184000 FSBTYPE EQU FSBFSB 03185000 FDBOFSET EQU ISTFDB+10 03186000 FDBDATCT EQU ISTFDB+8 03187000 FDBDATAA EQU ISTFDB+4 03188000 FDBFDBA EQU ISTFDB 03189000 CRRRVPT5 EQU CRRSAREA+316 03190000 CRRRVPT4 EQU CRRSAREA+312 03191000 CRRRVPT3 EQU CRRSAREA+308 03192000 CRRRVPT2 EQU CRRSAREA+304 03193000 CRRRVPT1 EQU CRRSAREA+300 03194000 CRRRVCR2 EQU CRRSAREA+292 03195000 CRRRVCR1 EQU CRRSAREA+291 03196000 CRRXFNCD EQU CRRSAREA+290 03197000 CRRLDOCT EQU CRRSAREA+288 03198000 CRRBTLEN EQU CRRSAREA+284 03199000 CRRBLEN EQU CRRSAREA+282 03200000 CRRBRTCD EQU CRRSAREA+281 03201000 @NM00055 EQU CRRBFLGS 03202000 CRRBFLG1 EQU CRRBFLGS 03203000 CRRBLDAD EQU CRRSAREA+276 03204000 CRRRTN12 EQU CRRSAREA+268 03205000 CRRRTN11 EQU CRRSAREA+264 03206000 CRRRTN10 EQU CRRSAREA+260 03207000 CRRRTN9 EQU CRRSAREA+256 03208000 CRRRTN8 EQU CRRSAREA+252 03209000 CRRRTN7 EQU CRRSAREA+248 03210000 CRRRTN6 EQU CRRSAREA+244 03211000 CRRRTN5 EQU CRRSAREA+240 03212000 CRRRTN4 EQU CRRSAREA+236 03213000 CRRRTN3 EQU CRRSAREA+232 03214000 CRRRTN1 EQU CRRSAREA+224 03215000 CRRRES1 EQU CRRSAREA+222 03216000 CRRLCNT EQU CRRSAREA+220 03217000 CRRVALCK EQU CRRSAREA+212 03218000 CRRBIND EQU CRRTRBUF+3 03219000 CRRTRRES EQU CRRTRBUF 03220000 CRRCLDO EQU CRRSAREA+200 03221000 CRRUECB EQU CRRSAREA+196 03222000 CRRLCPB EQU CRRSAREA+192 03223000 CRRCMDAD EQU CRRSAREA+188 03224000 CRRCLCCW EQU CRRSAREA+180 03225000 CRRESR2 EQU CRRESR+1 03226000 CRRESR1 EQU CRRESR 03227000 CRRDSB2 EQU CRRDSB+1 03228000 CRRDSB1 EQU CRRDSB 03229000 CRRDTACT EQU CRRSAREA+174 03230000 CRRRSV99 EQU CRRSAREA+173 03231000 CRRRDSOH EQU CRRFDB3 03232000 CRRRLG EQU CRRFDB3 03233000 CRRLGFRC EQU CRRFDB3 03234000 CRRRDEOT EQU CRRFDB3 03235000 CRRRDEOM EQU CRRFDB3 03236000 CRRRDEOB EQU CRRFDB3 03237000 CRRUNUSD EQU CRRFDB3 03238000 CRRUINPT EQU CRRFDB3 03239000 CRRSTSAV EQU CRRFDB2 03240000 CRRCUERR EQU CRRFDB2 03241000 CRRDLGFL EQU CRRFDB2 03242000 CRRIOERR EQU CRRFDB2 03243000 CRRDVUNS EQU CRRFDB2 03244000 CRRATND EQU CRRFDB2 03245000 CRRRVID EQU CRRFDB2 03246000 CRRERLK EQU CRRFDB2 03247000 CRRNSNA EQU CRRRTYPE 03248000 CRRRPSBD EQU CRRRFLG1 03249000 CRRRPLOQ EQU CRRRFLG1 03250000 CRRSW7 EQU CRRFLGS 03251000 CRRSW6 EQU CRRFLGS 03252000 CRRSW5 EQU CRRFLGS 03253000 CRRSW4 EQU CRRFLGS 03254000 CRRSW3 EQU CRRFLGS 03255000 CRRSW2 EQU CRRFLGS 03256000 CRRSW1 EQU CRRFLGS 03257000 CRRSW0 EQU CRRFLGS 03258000 CRRRSV04 EQU CRRFLGS4 03259000 CRRDLCCW EQU CRRFLGS3 03260000 CRRRESET EQU CRRFLGS3 03261000 CRRSUBBK EQU CRRFLGS3 03262000 CRRRSV08 EQU CRRFLGS3 03263000 CRRDEBQ EQU CRRFLGS3 03264000 CRRSTSPR EQU CRRFLGS3 03265000 CRRDREQ EQU CRRFLGS3 03266000 CRRDFDBK EQU CRRFLGS3 03267000 CRRDFSB EQU CRRFLGS2 03268000 CRRDPROC EQU CRRFLGS2 03269000 CRREXTS EQU CRRFLGS2 03270000 CRRELSRI EQU CRRFLGS2 03271000 CRRPOST EQU CRRFLGS2 03272000 CRRENDLW EQU CRRFLGS2 03273000 CRRPRGIP EQU CRRFLGS2 03274000 CRRDEXP EQU CRRFLGS2 03275000 CRRSOLRQ EQU CRRFLGS1 03276000 CRRREQP EQU CRRFLGS1 03277000 CRRCPROC EQU CRRFLGS1 03278000 CRRFINI EQU CRRFLGS1 03279000 CRRPREIO EQU CRRFLGS1 03280000 CRRINIO EQU CRRFLGS1 03281000 CRRFLDOS EQU CRRFLGS1 03282000 CRRDOCUR EQU CRRFLGS1 03283000 CRRRATS4 EQU CRRATS+7 03284000 @NM00054 EQU CRRSATS 03285000 CRRASC51 EQU CRRSATS 03286000 CRRASC40 EQU CRRSATS 03287000 CRRASC30 EQU CRRSATS 03288000 CRRASC21 EQU CRRSATS 03289000 CRRASC10 EQU CRRSATS 03290000 CRRASC01 EQU CRRSATS 03291000 @NM00053 EQU CRRRATS2 03292000 CRRPLIC EQU CRRRATS2 03293000 CRRRC81 EQU CRRRATS2 03294000 CRRRC80 EQU CRRRATS2 03295000 CRRRC65 EQU CRRRATS2 03296000 CRRRC63 EQU CRRRATS2 03297000 CRRRC55 EQU CRRRATS2 03298000 CRRRC54 EQU CRRRATS2 03299000 CRRRC53 EQU CRRRATS1 03300000 CRRRC52 EQU CRRRATS1 03301000 CRRRC51 EQU CRRRATS1 03302000 CRRRC30 EQU CRRRATS1 03303000 CRRRC26 EQU CRRRATS1 03304000 CRRRC23 EQU CRRRATS1 03305000 CRRRC22 EQU CRRRATS1 03306000 @NM00052 EQU CRRATS4 03307000 CRRC3X EQU CRRATS4 03308000 CRRC85 EQU CRRATS4 03309000 CRRC83 EQU CRRATS4 03310000 CRRC82 EQU CRRATS4 03311000 CRRC61 EQU CRRATS4 03312000 CRRC60 EQU CRRATS4 03313000 CRRC81 EQU CRRATS3 03314000 CRRC80 EQU CRRATS3 03315000 CRRC75 EQU CRRATS3 03316000 CRRC51 EQU CRRATS3 03317000 CRRC50 EQU CRRATS3 03318000 CRRC42 EQU CRRATS3 03319000 CRRC41 EQU CRRATS3 03320000 CRRC40 EQU CRRATS3 03321000 CRRC32 EQU CRRATS2 03322000 CRRC31 EQU CRRATS2 03323000 CRRC30 EQU CRRATS2 03324000 CRRC25 EQU CRRATS2 03325000 CRRC24 EQU CRRATS2 03326000 CRRC23 EQU CRRATS2 03327000 CRRC22 EQU CRRATS2 03328000 CRRC21 EQU CRRATS2 03329000 CRRC20 EQU CRRATS1 03330000 CRRC13 EQU CRRATS1 03331000 CRRC12 EQU CRRATS1 03332000 CRRC11 EQU CRRATS1 03333000 CRRC10 EQU CRRATS1 03334000 CRRC02 EQU CRRATS1 03335000 CRRC01 EQU CRRATS1 03336000 CRRC00 EQU CRRATS1 03337000 CRRRMAS4 EQU CRRMAS+7 03338000 @NM00051 EQU CRRSMAS 03339000 CRRMSC51 EQU CRRSMAS 03340000 CRRMSC40 EQU CRRSMAS 03341000 CRRMSC30 EQU CRRSMAS 03342000 CRRMSC21 EQU CRRSMAS 03343000 CRRMSC10 EQU CRRSMAS 03344000 CRRMSC01 EQU CRRSMAS 03345000 @NM00050 EQU CRRRMAS2 03346000 CRRRM81 EQU CRRRMAS2 03347000 CRRRM80 EQU CRRRMAS2 03348000 CRRRM65 EQU CRRRMAS2 03349000 CRRRM63 EQU CRRRMAS2 03350000 CRRRM55 EQU CRRRMAS2 03351000 CRRRM54 EQU CRRRMAS2 03352000 CRRRM53 EQU CRRRMAS1 03353000 CRRRM52 EQU CRRRMAS1 03354000 CRRRM51 EQU CRRRMAS1 03355000 CRRRM30 EQU CRRRMAS1 03356000 CRRRM26 EQU CRRRMAS1 03357000 CRRRM23 EQU CRRRMAS1 03358000 CRRRM22 EQU CRRRMAS1 03359000 @NM00049 EQU CRRMAS4 03360000 CRRM3X EQU CRRMAS4 03361000 CRRM85 EQU CRRMAS4 03362000 CRRM83 EQU CRRMAS4 03363000 CRRM82 EQU CRRMAS4 03364000 CRRM61 EQU CRRMAS4 03365000 CRRM60 EQU CRRMAS4 03366000 CRRM81 EQU CRRMAS3 03367000 CRRM80 EQU CRRMAS3 03368000 CRRM75 EQU CRRMAS3 03369000 CRRM51 EQU CRRMAS3 03370000 CRRM50 EQU CRRMAS3 03371000 CRRM42 EQU CRRMAS3 03372000 CRRM41 EQU CRRMAS3 03373000 CRRM40 EQU CRRMAS3 03374000 CRRM32 EQU CRRMAS2 03375000 CRRM31 EQU CRRMAS2 03376000 CRRM30 EQU CRRMAS2 03377000 CRRM25 EQU CRRMAS2 03378000 CRRM24 EQU CRRMAS2 03379000 CRRM23 EQU CRRMAS2 03380000 CRRM22 EQU CRRMAS2 03381000 CRRM21 EQU CRRMAS2 03382000 CRRM20 EQU CRRMAS1 03383000 CRRM13 EQU CRRMAS1 03384000 CRRM12 EQU CRRMAS1 03385000 CRRM11 EQU CRRMAS1 03386000 CRRM10 EQU CRRMAS1 03387000 CRRM02 EQU CRRMAS1 03388000 CRRM01 EQU CRRMAS1 03389000 CRRM00 EQU CRRMAS1 03390000 CRRSAVE1 EQU CRRSAREA+72 03391000 CRRSAVE EQU CRRSAREA 03392000 CRRRSV22 EQU ISTDCCRR+4 03393000 CRRCRR EQU ISTDCCRR 03394000 ATCAOS EQU ISTATCVT+1584 03395000 ATCPOPAB EQU ATCAOSM+640 03396000 ATCVIOPM EQU ATCAOSM+636 03397000 ATCTPMMI EQU ATCAOSM+632 03398000 ATCTPMPB EQU ATCAOSM+600 03399000 ATCRSV88 EQU ATCAOSM+596 03400000 ATCRPLCT EQU ATCAOSM+594 03401000 ATCCRACT EQU ATCAOSM+592 03402000 ATCSRBCT EQU ATCAOSM+590 03403000 ATCRSV75 EQU ATCAOSM+589 03404000 ATCRSV66 EQU ATCZFLAG 03405000 ATCZF001 EQU ATCZFLAG 03406000 ATCTPCP1 EQU ATCAOSM+584 03407000 ATCTPCP0 EQU ATCAOSM+580 03408000 ATCAICTN EQU ATCAOSM+576 03409000 ATCZR01 EQU ATCAOSM+572 03410000 ATCMPLTA EQU ATCAOSM+568 03411000 ATCASCB EQU ATCAOSM+564 03412000 ATCAP86 EQU ATCAOSM+560 03413000 ATCAP85 EQU ATCAOSM+556 03414000 ATCAP84 EQU ATCAOSM+552 03415000 ATCAP83 EQU ATCAOSM+548 03416000 ATCAP82 EQU ATCAOSM+544 03417000 ATCAP69 EQU ATCAOSM+540 03418000 ATCAP66 EQU ATCAOSM+536 03419000 ATCAP62 EQU ATCAOSM+532 03420000 ATCAPC59 EQU ATCAOSM+528 03421000 ATCAP56 EQU ATCAOSM+524 03422000 ATCAP55 EQU ATCAOSM+520 03423000 ATCRCFY0 EQU ATCAOSM+516 03424000 ATCAP41 EQU ATCAOSM+512 03425000 ATCAPC25 EQU ATCAOSM+508 03426000 ATCAP23 EQU ATCAOSM+504 03427000 ATCTPSPB EQU ATCAOSM+472 03428000 ATCTRMPB EQU ATCAOSM+440 03429000 ATCAPBE EQU ATCAOSM+436 03430000 ATCPSTA EQU ATCAOSM+432 03431000 ATCSMABF EQU ATCAOSM+428 03432000 ATCSMAPR EQU ATCAOSM+424 03433000 ATCTPWQA EQU ATCAOSM+420 03434000 ATCSMAID EQU ATCAOSM+416 03435000 ATCSMARA EQU ATCAOSM+412 03436000 ATCCACXA EQU ATCAOSM+408 03437000 ATCZLAAB EQU ATCAOSM+404 03438000 ATCATA10 EQU ATCAOSM+400 03439000 ATCHLTCB EQU ATCAOSM+396 03440000 @NM00048 EQU ATCVTFLG 03441000 ATCVTACT EQU ATCVTFLG 03442000 ATCRPT40 EQU ATCAOSM+388 03443000 ATCRPT39 EQU ATCAOSM+384 03444000 ATCRPT38 EQU ATCAOSM+380 03445000 ATCRPT37 EQU ATCAOSM+376 03446000 ATCRPT36 EQU ATCAOSM+372 03447000 ATCRPT35 EQU ATCAOSM+368 03448000 ATCRPT34 EQU ATCAOSM+364 03449000 ATCRPT33 EQU ATCAOSM+360 03450000 ATCRPT32 EQU ATCAOSM+356 03451000 ATCRPT31 EQU ATCAOSM+352 03452000 ATCRPT30 EQU ATCAOSM+348 03453000 ATCRPT29 EQU ATCAOSM+344 03454000 ATCRPT28 EQU ATCAOSM+340 03455000 ATCRPT27 EQU ATCAOSM+336 03456000 @NM00047 EQU ATCAOSM+333 03457000 @NM00046 EQU @NM00045 03458000 ATCSNUF EQU @NM00045 03459000 ATCOPKL EQU @NM00045 03460000 ATCABEN EQU @NM00045 03461000 ATCAIWT EQU ATCAOSM+328 03462000 ATCINFDD EQU ATCAOSM+324 03463000 ATCORFMG EQU ATCAOSM+320 03464000 ATCORFRL EQU ATCAOSM+316 03465000 ATCOROBT EQU ATCAOSM+312 03466000 ATCORQG EQU ATCORSRB 03467000 ATCORTBF EQU ATCSQAFR 03468000 ATCRPLAC EQU ATCRPLCN+2 03469000 ATCRPLRC EQU ATCRPLCN 03470000 ATCCRPLQ EQU ATCCRPL 03471000 ATCSRBAC EQU ATCSRBCN+2 03472000 ATCSRBRC EQU ATCSRBCN 03473000 ATCSRBQ EQU ATCSRB 03474000 ATCCRAAC EQU ATCCRACN+2 03475000 ATCCRARC EQU ATCCRACN 03476000 ATCCRAQ EQU ATCCRA 03477000 ATCRPT12 EQU ATCAOSM+276 03478000 ATCDMAPP EQU ATCAOSM+272 03479000 ATCAP38 EQU ATCAOSM+268 03480000 ATCAP37 EQU ATCAOSM+264 03481000 ATCZDFJ0 EQU ATCAOSM+260 03482000 ATCAP51 EQU ATCAOSM+256 03483000 ATCZPAB2 EQU ATCAOSM+224 03484000 ATCZPAB1 EQU ATCAOSM+192 03485000 ATCZLFVT EQU ATCAOSM+188 03486000 ATCZLPVT EQU ATCAOSM+184 03487000 ATCZDVTX EQU ATCAOSM+180 03488000 ATCZDVTA EQU ATCAOSM+176 03489000 ATCZDVT9 EQU ATCAOSM+172 03490000 ATCZDVT8 EQU ATCAOSM+168 03491000 ATCZDVT7 EQU ATCAOSM+164 03492000 ATCRSV56 EQU ATCDAPVT+22 03493000 ATCDAPDG EQU ATCDAPVT+20 03494000 ATCDXCEA EQU ATCDAPVT+16 03495000 ATCDCEA EQU ATCDAPVT+12 03496000 ATCDPCIA EQU ATCDAPVT+8 03497000 ATCDSIOA EQU ATCDAPVT+4 03498000 ATCDEOEA EQU ATCDAPVT 03499000 ATCZLAEA EQU ATCLDAPP+16 03500000 ATCZLCEA EQU ATCLDAPP+12 03501000 ATCRSV17 EQU ATCLDAPP+8 03502000 ATCSMFRR EQU ATCLDAPP+4 03503000 ATCCDTID EQU ATCLDAPP 03504000 ATCZAEA EQU ATCICAPP+16 03505000 ATCZCEA EQU ATCICAPP+12 03506000 ATCCDTCB EQU ATCICAPP+8 03507000 ATCZSIOA EQU ATCICAPP+4 03508000 ATCCDRPH EQU ATCICAPP 03509000 ATCAP65 EQU ATCAOSM+96 03510000 ATCZDVT6 EQU ATCAOSM+92 03511000 ATCZDVT4 EQU ATCAOSM+88 03512000 ATCZDVT3 EQU ATCAOSM+84 03513000 ATCZDVT1 EQU ATCAOSM+80 03514000 ATCICNCB EQU ATCAOSM+76 03515000 ATCZPSVT EQU ATCAOSM+72 03516000 ATCZFSVT EQU ATCAOSM+68 03517000 ATCAP64 EQU ATCAOSM+64 03518000 ATCAP63 EQU ATCAOSM+60 03519000 ATCAP61 EQU ATCAOSM+56 03520000 ATCAP58 EQU ATCAOSM+52 03521000 ATCAP57 EQU ATCAOSM+48 03522000 ATCAP54 EQU ATCAOSM+44 03523000 ATCAP53 EQU ATCAOSM+40 03524000 ATCAP52 EQU ATCAOSM+36 03525000 ATCAP34 EQU ATCAOSM+32 03526000 ATCAP32 EQU ATCAOSM+28 03527000 ATCAP31 EQU ATCAOSM+24 03528000 ATCAP12 EQU ATCAOSM+20 03529000 ATCAP11 EQU ATCAOSM+16 03530000 ATCCMTCB EQU ATCAOSM+12 03531000 ATCPRPH EQU ATCAOSM+8 03532000 ATCGSRBF EQU ATCGSRBG 03533000 ATCSRBRT EQU ATCAOSM 03534000 @NM00044 EQU @NM00043 03535000 ATCVTMAB EQU @NM00043 03536000 @NM00042 EQU ATCVTBAM 03537000 ATCVDLOK EQU ISTATCVT+904 03538000 ATCVFPAB EQU ISTATCVT+872 03539000 ATCVDPAB EQU ISTATCVT+840 03540000 ATCIOECB EQU ISTATCVT+836 03541000 ATCINCW3 EQU ISTATCVT+832 03542000 ATCMODTB EQU ISTATCVT+828 03543000 ATCUSSPT EQU ISTATCVT+824 03544000 ATCSRTAB EQU ISTATCVT+820 03545000 @NM00041 EQU ISTATCVT+819 03546000 @NM00040 EQU ATCSTAT2 03547000 ATCTRSMS EQU ATCSTAT2 03548000 ATCTRLOK EQU ATCSTAT2 03549000 ATCTRPSS EQU ATCSTAT2 03550000 ATCTRESC EQU ATCSTAT2 03551000 ATCTRAPI EQU ATCSTAT2 03552000 ATCNMCTR EQU ISTATCVT+816 03553000 ATCSEC51 EQU ATCSECST 03554000 ATCSEC40 EQU ATCSIPD+8 03555000 ATCSEC30 EQU ATCSIPD+4 03556000 ATCSEC21 EQU ATCSIPD 03557000 ATCSEC10 EQU ATCSOPD+4 03558000 ATCSEC01 EQU ATCSOPD 03559000 ATCPOIA EQU ATCRNO+1 03560000 @NM00039 EQU ATCRNO 03561000 ATCPODVT EQU ISTATCVT+784 03562000 ATCS49XL EQU ISTATCVT+780 03563000 ATCS49XI EQU ISTATCVT+776 03564000 ATCLCLCT EQU ATCVLCNT+2 03565000 ATCRNCNT EQU ATCVLCNT 03566000 ATCCFEAD EQU ISTATCVT+768 03567000 ATCPTR00 EQU ISTATCVT+736 03568000 ATCRSV10 EQU ISTATCVT+704 03569000 ATCTACB EQU ISTATCVT+700 03570000 ATCVTINM EQU ISTATCVT+696 03571000 ATCTCLIM EQU ISTATCVT+692 03572000 ATCTCLOM EQU ISTATCVT+688 03573000 ATCVTIPB EQU ISTATCVT+656 03574000 ATCTCIPB EQU ISTATCVT+624 03575000 ATCTIPAB EQU ISTATCVT+592 03576000 ATCOCCCB EQU ISTATCVT+588 03577000 ATCOCCOB EQU ISTATCVT+584 03578000 ATCCDLAD EQU ISTATCVT+580 03579000 ATCCCLAD EQU ISTATCVT+576 03580000 ATCDLRPB EQU ISTATCVT+544 03581000 ATCPGPAB EQU ISTATCVT+512 03582000 ATCVPAB1 EQU ISTATCVT+480 03583000 ATCRSV97 EQU ISTATCVT+476 03584000 ATCRDTLK EQU ISTATCVT+472 03585000 ATCVOCLK EQU ISTATCVT+468 03586000 ATCCDFDN EQU ISTATCVT+464 03587000 ATCCDFIN EQU ISTATCVT+460 03588000 ATCDVTLK EQU ISTATCVT+456 03589000 ATCAP35 EQU ISTATCVT+448 03590000 ATCRSV99 EQU ISTATCVT+440 03591000 ATCONFIG EQU ISTATCVT+432 03592000 ATCNODDS EQU ISTATCVT+428 03593000 ATCNODEL EQU ISTATCVT+420 03594000 ATCRSV69 EQU ISTATCVT+416 03595000 ATCAPCR5 EQU ISTATCVT+412 03596000 ATCLDECB EQU ISTATCVT+408 03597000 ATCLDNCS EQU ISTATCVT+404 03598000 ATCCDPTR EQU ISTATCVT+400 03599000 ATCADEL EQU ISTATCVT+396 03600000 ATCTODVT EQU ISTATCVT+392 03601000 ATCDEBCH EQU ISTATCVT+388 03602000 ATCHBSIZ EQU ATCHPGM+2 03603000 ATCHBFNO EQU ATCHPGM 03604000 ATCCRME EQU ISTATCVT+380 03605000 ATCRVCHS EQU ISTATCVT+372 03606000 ATCECTLP EQU ISTATCVT+368 03607000 ATCZDVTB EQU ISTATCVT+364 03608000 ATCECPRT EQU ISTATCVT+360 03609000 ATCVTLOD EQU ISTATCVT+356 03610000 ATCTRPAB EQU ISTATCVT+352 03611000 ATCMSGM EQU ISTATCVT+348 03612000 ATCMSGP EQU ISTATCVT+344 03613000 ATCEPT EQU ISTATCVT+340 03614000 ATCDVT EQU ISTATCVT+336 03615000 ATCTRCPT EQU ISTATCVT+332 03616000 ATCDVLOD EQU ISTATCVT+328 03617000 ATCALERT EQU ISTATCVT+324 03618000 ATCEPA EQU ISTATCVT+320 03619000 ATCSAF EQU ISTATCVT+318 03620000 ATCXRANG EQU ISTATCVT+317 03621000 ATCLAST EQU ATCSHRFG 03622000 ATCSHRTN EQU ISTATCVT+308 03623000 ATCUEP EQU ISTATCVT+304 03624000 ATCOCRT EQU ISTATCVT+300 03625000 ATCCSMA EQU ATCCSMR 03626000 ATCCDFND EQU ISTATCVT+284 03627000 ATCCDDEL EQU ISTATCVT+280 03628000 ATCCDADD EQU ISTATCVT+276 03629000 ATCMNT EQU ISTATCVT+272 03630000 ATCRSV16 EQU ISTATCVT+270 03631000 ATCMAXID EQU ISTATCVT+269 03632000 ATCMSGSP EQU ATCCOM+268 03633000 ATCCIDM EQU ATCCOM+266 03634000 ATCACTRM EQU ATCCOM+264 03635000 ATCNERAP EQU ATCCOM+260 03636000 ATCNESAL EQU ATCCOM+256 03637000 ATCRCC65 EQU ATCCOM+252 03638000 ATCRSV11 EQU ATCCOM+242 03639000 ATCVTMID EQU ATCCOM+240 03640000 ATCAPOST EQU ATCCOM+236 03641000 ATCNERFN EQU ATCCOM+232 03642000 ATCNERNE EQU ATCCOM+228 03643000 ATCNERCV EQU ATCCOM+224 03644000 ATCNERST EQU ATCCOM+220 03645000 ATCDCC61 EQU ATCCOM+216 03646000 ATCDCC60 EQU ATCCOM+212 03647000 ATCSRTDF EQU ATCCOM+208 03648000 ATCSRTAD EQU ATCCOM+204 03649000 ATCFIRA EQU ATCCOM+200 03650000 ATCSMBQ EQU ATCCOM+196 03651000 ATCSMRC EQU ATCCOM+192 03652000 ATCSMRS EQU ATCCOM+188 03653000 ATCSMQU EQU ATCCOM+184 03654000 ATCSMRQ EQU ATCCOM+180 03655000 ATCACDA EQU ATCCOM+176 03656000 ATCSTMA EQU ATCCOM+172 03657000 ATCFRSTR EQU ATCCOM+168 03658000 ATCGTSTR EQU ATCCOM+164 03659000 ATCREADA EQU ATCCOM+160 03660000 ATCALOAD EQU ATCCOM+156 03661000 ATCBLDLA EQU ATCCOM+152 03662000 ATCFBRPH EQU ATCCOM+148 03663000 ATCBFTRC EQU ATCCOM+144 03664000 ATCTPBUF EQU ATCTHTRC 03665000 ATCREMOV EQU ATCCOM+136 03666000 ATCADD EQU ATCCOM+132 03667000 ATCBPDA EQU ATCCOM+128 03668000 ATCDVTPT EQU ATCCOM+124 03669000 ATCFEPT EQU ATCCOM+120 03670000 ATCFDVT EQU ATCCOM+116 03671000 ATCCONFT EQU ATCCOM+112 03672000 ATCPTCHA EQU ATCCOM+108 03673000 ATCAUTHA EQU ATCCOM+104 03674000 ATCACCTA EQU ATCCOM+100 03675000 ATCRDTH EQU ATCCOM+96 03676000 ATCFRSCH EQU ATCCOM+92 03677000 ATCFSB EQU ATCCOM+88 03678000 ATCHLTMS EQU ATCCOM+84 03679000 ATCECPRM EQU ATCCOM+80 03680000 ATCECNET EQU ATCCOM+76 03681000 ATCECOPC EQU ATCCOM+72 03682000 ATCVPARM EQU ATCCOM+68 03683000 ATCECVRQ EQU ATCCOM+64 03684000 ATCECSES EQU ATCCOM+60 03685000 ATCOCHA EQU ATCCOM+56 03686000 ATCDSPLQ EQU ATCCOM+52 03687000 ATCECDSP EQU ATCCOM+48 03688000 ATCVARYQ EQU ATCCOM+44 03689000 ATCECVRY EQU ATCCOM+40 03690000 ATCHALTQ EQU ATCCOM+36 03691000 ATCECHLT EQU ATCCOM+32 03692000 ATCMODQ EQU ATCCOM+28 03693000 ATCECMOD EQU ATCCOM+24 03694000 ATCASCHD EQU ATCCOM+20 03695000 ATCSRT EQU ATCCOM+16 03696000 ATCRDT EQU ATCCOM+12 03697000 ATCDCFRR EQU ATCCOM+8 03698000 ATCAPI EQU ATCCOM+4 03699000 ATCRSV04 EQU ATCSTAT4 03700000 ATCVTTRC EQU ATCSTAT4 03701000 ATCNCSD EQU ATCSTAT4 03702000 ATCMTST EQU ATCSTAT4 03703000 ATCTPRT EQU ATCSTAT4 03704000 ATCPRTAT EQU ATCSTAT4 03705000 @NM00038 EQU ATCPOFLG 03706000 ATCPOUNS EQU ATCPOFLG 03707000 ATCHSDMF EQU ATCSTFLG 03708000 @NM00037 EQU ATCSTAT1 03709000 ATCMDHLT EQU ATCSTAT1 03710000 ATCINHLT EQU ATCSTAT1 03711000 ATCNETSL EQU ATCSTAT1 03712000 ATCQKHLT EQU ATCSTAT1 03713000 ATCSNHLT EQU ATCSTAT1 03714000 ATCACTIV EQU ATCSTAT1 03715000 ATCSTART EQU ATCSTAT1 03716000 RPHNEXPO EQU ISTRPH+104 03717000 RPHSAV16 EQU RPHWORK+60 03718000 RPHSAV15 EQU RPHWORK+56 03719000 RPHSAV14 EQU RPHWORK+52 03720000 RPHSAV13 EQU RPHWORK+48 03721000 RPHSAV12 EQU RPHWORK+44 03722000 RPHSAV11 EQU RPHWORK+40 03723000 RPHSAV10 EQU RPHWORK+36 03724000 RPHSAVE9 EQU RPHWORK+32 03725000 RPHSAVE8 EQU RPHWORK+28 03726000 RPHSAVE7 EQU RPHWORK+24 03727000 RPHSAVE6 EQU RPHWORK+20 03728000 RPHSAVE5 EQU RPHWORK+16 03729000 RPHSAVE4 EQU RPHWORK+12 03730000 RPHSAVE3 EQU RPHWORK+8 03731000 RPHSAVE2 EQU RPHWORK+4 03732000 RPHSHALF EQU RPHSAVE1+2 03733000 RPHSBIT8 EQU RPHSBITS 03734000 RPHSBIT7 EQU RPHSBITS 03735000 RPHSBIT6 EQU RPHSBITS 03736000 RPHSBIT5 EQU RPHSBITS 03737000 RPHSBIT4 EQU RPHSBITS 03738000 RPHSBIT3 EQU RPHSBITS 03739000 RPHSBIT2 EQU RPHSBITS 03740000 RPHSBIT1 EQU RPHSBITS 03741000 RPHSBYTE EQU RPHSAVE1 03742000 RPHPABQP EQU RPHPABQA+1 03743000 RPHPABFG EQU RPHPABQA 03744000 RPHSRP34 EQU RPHSRPRM+2 03745000 RPHSRP12 EQU RPHSRPRM 03746000 RPHWEGT EQU RPHCSPA 03747000 RPHPABOF EQU ISTRPH+20 03748000 RPHRESUM EQU RPHRESMA+1 03749000 RPHRSV01 EQU RPHWPFLG 03750000 RPHPURGE EQU RPHWPFLG 03751000 RPHPT EQU RPHWPFLG 03752000 RPHWT EQU RPHWPFLG 03753000 RPHRSKEY EQU RPHWPFLG 03754000 RPHDVTA EQU ISTRPH+12 03755000 RPHTIK EQU RPHTSKID+3 03756000 @NM00036 EQU RPHTSKID 03757000 RPHRPHAP EQU RPHRPHA+1 03758000 @NM00035 EQU RPHRPHA 03759000 RPHGATE EQU RPHRPHA 03760000 @NM00034 EQU RPHFLGB 03761000 RPHRLCRA EQU RPHFLGB 03762000 RPHNRSAV EQU RPHFLGB 03763000 RPHPGCMP EQU RPHFLGB 03764000 RPHFBAPS EQU RPHFLGB 03765000 RPHBSSP EQU RPHFLGB 03766000 RPHLOCK EQU RPHFLGB 03767000 RPHFNFLG EQU RPHFSTLC 03768000 RPHMLTCP EQU RPHFLAGS 03769000 RPHSMCLR EQU RPHFLAGS 03770000 RPHSMTYP EQU RPHFLAGS 03771000 RPHSMQ EQU RPHFLAGS 03772000 RPHAUTEX EQU RPHAPTYP 03773000 RPHSPGIN EQU RPHFLAGS 03774000 RPHOGIND EQU RPHFLAGS 03775000 RPHLNGTH EQU RPHCNTL+1 03776000 RPHTYPE EQU RPHCNTL 03777000 DYPPAB EQU ISTDYPAB+16 03778000 DYPRSV01 EQU ISTDYPAB+12 03779000 DYPTSKID EQU ISTDYPAB+8 03780000 DYPCHAIN EQU ISTDYPAB+4 03781000 DYPFLGS EQU ISTDYPAB+2 03782000 DYPLNGTH EQU ISTDYPAB+1 03783000 DYPTYPE EQU ISTDYPAB 03784000 ACDSOP EQU ISTACDEB+184 03785000 ACDSIP EQU ISTACDEB+168 03786000 ACDRSV24 EQU ACDVTAM+108 03787000 ACDRSV23 EQU ACDVTAM+104 03788000 ACDRSV22 EQU ACDVTAM+100 03789000 ACDOCWAD EQU ACDVTAM+96 03790000 ACDRSV10 EQU ACDVTAM+92 03791000 ACDAPDDT EQU ACDAPDAT+1 03792000 ACDAPDLN EQU ACDAPDAT 03793000 ACDRSV07 EQU ACDVTAM+82 03794000 ACDRSV06 EQU ACDVTAM+81 03795000 @NM00033 EQU ACDSSFLG 03796000 ACDTSO EQU ACDSSFLG 03797000 ACDTPEND EQU ACDSSFLG 03798000 ACDAICLS EQU ACDSSFLG 03799000 ACDABEND EQU ACDSSFLG 03800000 ACDCACB EQU ACDSSFLG 03801000 ACDRSV21 EQU ACDVTAM+64 03802000 ACDSSPAB EQU ACDVTAM+48 03803000 ACDNEPAB EQU ACDVTAM+32 03804000 ACDRSV20 EQU ACDVTAM+20 03805000 ACDRARQ EQU ACDVTAM+16 03806000 ACDFMCB EQU ACDVTAM+8 03807000 ACDRDTE EQU ACDVTAM+4 03808000 ACDAPP EQU ACDAPPAD+1 03809000 ACDEXSCL EQU ACDAPPAD 03810000 ACDACB EQU ACDACBAD+1 03811000 ACDDEBID EQU ACDACBAD 03812000 ACDPROTG EQU ACDACBAD 03813000 ACDECBAD EQU ACDBASIC+20 03814000 ACDUSRPB EQU ACDUSRPG+1 03815000 ACDNMEXT EQU ACDUSRPG 03816000 ACDPRLEN EQU ACDBASIC+15 03817000 ACDFLGS1 EQU ACDBASIC+14 03818000 ACDQSCNT EQU ACDBASIC+13 03819000 ACDOPATB EQU ACDBASIC+12 03820000 ACDIRBAD EQU ACDBASIC+8 03821000 ACDDEB EQU ACDDEBAD+1 03822000 ACDAMLNG EQU ACDDEBAD 03823000 ACDTCB EQU ACDTCBAD+1 03824000 ACDOPNAD EQU ACDNMSUB 03825000 ACDRSV03 EQU ACDTBLOF+1 03826000 ACDRSV02 EQU ACDTBLOF 03827000 ACDAMTYP EQU ACDDBPFX+5 03828000 ACDLENG EQU ACDDBPFX+4 03829000 ACDDEBX EQU ACDDBPFX 03830000 ACDRSV08 EQU ACDVTPRX+12 03831000 ACDTSKID EQU ACDVTPRX+8 03832000 ACDCHN EQU ACDVTPRX+4 03833000 ACDSAF EQU ACDVTPRX+2 03834000 ACDLNGTH EQU ACDVTPRX+1 03835000 PABRPHA EQU PABRPHFG+1 03836000 PABNODQ EQU PABFLAGS 03837000 PABINHBT EQU PABFLAGS 03838000 PABERLOK EQU PABERRLK 03839000 PABSSN EQU PABFLAGS 03840000 PABDYNAM EQU PABFLAGS 03841000 PABNORPR EQU PABFLAGS 03842000 PABPRIOR EQU PABFLAGS 03843000 PABAPYP EQU PABFLAGS 03844000 PABDVTA EQU ISTPAB+9 03845000 PABOFFST EQU ISTPAB+8 03846000 PABCHNGP EQU PABCHAIN+1 03847000 PABRSV02 EQU PABCHAIN 03848000 PABDELAY EQU PABCHAIN 03849000 PABRUNNG EQU PABCHAIN 03850000 PABRESET EQU PABCHAIN 03851000 PABUNCON EQU PABCHAIN 03852000 PABCDP EQU PABCHAIN 03853000 PABRESCH EQU PABCHAIN 03854000 PABCHNG EQU PABCHAIN 03855000 PABWEQP EQU PABWEQA+1 03856000 PABRSV01 EQU PABWEQA 03857000 PABWEQG EQU PABWEQA 03858000 LOKXCL EQU @NM00031 03859000 LOKPRY EQU @NM00031 03860000 @NM00032 EQU @NM00031 03861000 @NM00030 EQU LOKCHNG 03862000 LOKCT EQU ISTLOK 03863000 LCPFTYPE EQU LCPRPHA 03864000 LCPRSTQH EQU LCPLCCW 03865000 LCPCLREP EQU ISTLCPB+44 03866000 LCPUBFSB EQU LCPFLCCW 03867000 LCPRSV77 EQU ISTLCPB+39 03868000 LCPLCCWC EQU ISTLCPB+38 03869000 LCPRSV78 EQU LCPFLG1 03870000 LCPTRANS EQU LCPFLG1 03871000 LCPSTLB EQU LCPFLG1 03872000 LCPREDRV EQU LCPFLG1 03873000 LCPDIRPT EQU LCPFLG1 03874000 LCPINTER EQU LCPFLG1 03875000 LCPRESET EQU LCPFLG1 03876000 LCPSTYPE EQU ISTLCPB+36 03877000 LCPFSNCH EQU ISTLCPB+34 03878000 LCPFOSN EQU ISTLCPB+32 03879000 LCPTLBAD EQU ISTLCPB+28 03880000 LCPFDB2 EQU LCPFDBA+1 03881000 LCPFDB1 EQU LCPFDBA 03882000 LCPNXLCW EQU ISTLCPB+20 03883000 LCPDAF EQU LCPCID+2 03884000 LCPSAF EQU LCPCID 03885000 LCPLCCW1 EQU ISTLCPB+12 03886000 LCPRRCNT EQU LCPSEQ+1 03887000 LCPRRCCT EQU LCPSEQ 03888000 LCPATOP EQU LCPFLAG2 03889000 LCPFREE EQU LCPFLAG2 03890000 LCPDSTAT EQU LCPFLAG2 03891000 LCPEXRES EQU LCPFID0 03892000 LCPZRIMM EQU LCPTLBPI 03893000 LCPRSTRT EQU LCPFLAG2 03894000 LCPASYN EQU LCPFLAG2 03895000 LCPPRFLG EQU LCPFLAG2 03896000 LCPZMIRC EQU LCPRUCNT 03897000 LCPCHAI2 EQU LCPCHAIN+1 03898000 LCPCHNG EQU LCPCHAI1 03899000 LCPZRT0B EQU LCPMNRCD 03900000 LCPZRT0A EQU LCPMNRCD 03901000 LCPZRTL9 EQU LCPZRT09 03902000 LCPZRTL8 EQU LCPZRT08 03903000 LCPZRTL7 EQU LCPZRT07 03904000 LCPZRTL6 EQU LCPZRT06 03905000 LCPZRTL5 EQU LCPZRT05 03906000 LCPZRTL4 EQU LCPZRT04 03907000 LCPZRTL3 EQU LCPZRT03 03908000 LCPZRTL2 EQU LCPZRT02 03909000 LCPZRT01 EQU LCPFLAGS 03910000 LCPZRT00 EQU LCPFLAGS 03911000 LCPLNGTH EQU ISTLCPB+1 03912000 LCPTYPE EQU ISTLCPB 03913000 LCCWDATA EQU ISTLCCW+4 03914000 LCCWCNT EQU ISTLCCW+2 03915000 LCCWACI EQU LCCWFLAG 03916000 LCCWRFI EQU LCCWFLAG 03917000 LCCWPER EQU LCCWLSI 03918000 LCCWIDAT EQU LCCWFLAG 03919000 LCCWNTVC EQU LCCWFLAG 03920000 LCCWCKPT EQU LCCWFLAG 03921000 LCCWCC EQU LCCWFLAG 03922000 LCCWCD EQU LCCWFLAG 03923000 LCCWTYPE EQU LCCWCTL 03924000 LCCWMODE EQU LCCWCTL 03925000 LCCWSOP EQU LCCWRWOP 03926000 @NM00029 EQU LCCWRWOP 03927000 LCCWSD EQU LCCWOP 03928000 LCCWSI EQU LCCWOP 03929000 CVTLEVL EQU CVTRELNO+2 03930000 CVTNUMB EQU CVTRELNO 03931000 CVTMDL EQU CVTFIX+250 03932000 @NM00028 EQU CVTFIX+248 03933000 @NM00027 EQU CVTFIX 03934000 CVTRV482 EQU CVTXTNT2+128 03935000 CVTRV481 EQU CVTXTNT2+124 03936000 CVTRV480 EQU CVTXTNT2+120 03937000 CVTRV479 EQU CVTXTNT2+118 03938000 CVTRV478 EQU CVTXTNT2+117 03939000 CVTRV477 EQU CVTXTNT2+116 03940000 CVTRV476 EQU CVTXTNT2+115 03941000 CVTRV475 EQU CVTXTNT2+114 03942000 CVTRV474 EQU CVTRV466 03943000 CVTRV473 EQU CVTRV466 03944000 CVTRV472 EQU CVTRV466 03945000 CVTRV471 EQU CVTRV466 03946000 CVTRV470 EQU CVTRV466 03947000 CVTRV469 EQU CVTRV466 03948000 CVTRV468 EQU CVTRV466 03949000 CVTRV467 EQU CVTRV466 03950000 CVTRV465 EQU CVTRV457 03951000 CVTRV464 EQU CVTRV457 03952000 CVTRV463 EQU CVTRV457 03953000 CVTRV462 EQU CVTRV457 03954000 CVTRV461 EQU CVTRV457 03955000 CVTRV460 EQU CVTRV457 03956000 CVTRV459 EQU CVTRV457 03957000 CVTRV458 EQU CVTRV457 03958000 CVTRV456 EQU CVTXTNT2+108 03959000 CVTRV455 EQU CVTXTNT2+104 03960000 CVTRV454 EQU CVTXTNT2+100 03961000 CVTRV453 EQU CVTXTNT2+96 03962000 CVTRV452 EQU CVTXTNT2+94 03963000 CVTRV451 EQU CVTXTNT2+92 03964000 CVTRV450 EQU CVTXTNT2+90 03965000 CVTRV449 EQU CVTXTNT2+88 03966000 CVTRV448 EQU CVTXTNT2+87 03967000 CVTRV447 EQU CVTXTNT2+86 03968000 CVTRV446 EQU CVTRV438 03969000 CVTRV445 EQU CVTRV438 03970000 CVTRV444 EQU CVTRV438 03971000 CVTRV443 EQU CVTRV438 03972000 CVTRV442 EQU CVTRV438 03973000 CVTRV441 EQU CVTRV438 03974000 CVTRV440 EQU CVTRV438 03975000 CVTRV439 EQU CVTRV438 03976000 CVTRV437 EQU CVTRV429 03977000 CVTRV436 EQU CVTRV429 03978000 CVTRV435 EQU CVTRV429 03979000 CVTRV434 EQU CVTRV429 03980000 CVTRV433 EQU CVTRV429 03981000 CVTRV432 EQU CVTRV429 03982000 CVTRV431 EQU CVTRV429 03983000 CVTRV430 EQU CVTRV429 03984000 CVTRV428 EQU CVTXTNT2+80 03985000 CVTRV427 EQU CVTXTNT2+76 03986000 CVTRV426 EQU CVTXTNT2+72 03987000 CVTRV425 EQU CVTXTNT2+68 03988000 CVTATACT EQU CVTATCVT 03989000 CVTRV423 EQU CVTXTNT2+62 03990000 CVTRV422 EQU CVTXTNT2+60 03991000 CVTRV421 EQU CVTXTNT2+58 03992000 CVTRV420 EQU CVTXTNT2+56 03993000 CVTRV419 EQU CVTXTNT2+55 03994000 CVTRV418 EQU CVTXTNT2+54 03995000 CVTRV417 EQU CVTRV409 03996000 CVTRV416 EQU CVTRV409 03997000 CVTRV415 EQU CVTRV409 03998000 CVTRV414 EQU CVTRV409 03999000 CVTRV413 EQU CVTRV409 04000000 CVTRV412 EQU CVTRV409 04001000 CVTRV411 EQU CVTRV409 04002000 CVTRV410 EQU CVTRV409 04003000 CVTRV408 EQU CVTRV400 04004000 CVTRV407 EQU CVTRV400 04005000 CVTRV406 EQU CVTRV400 04006000 CVTRV405 EQU CVTRV400 04007000 CVTRV404 EQU CVTRV400 04008000 CVTRV403 EQU CVTRV400 04009000 CVTRV402 EQU CVTRV400 04010000 CVTRV401 EQU CVTRV400 04011000 CVTICB EQU CVTXTNT2+48 04012000 CVTSKTA EQU CVTXTNT2+44 04013000 CVTSHSB EQU CVTSHS 04014000 CVTRSV98 EQU CVTXTNT2+36 04015000 CVTRSV97 EQU CVTXTNT2+34 04016000 CVTRSV96 EQU CVTXTNT2+32 04017000 CVTOLTEP EQU CVTXTNT2+28 04018000 CVTQIDA EQU CVTQID+1 04019000 CVTRSV95 EQU CVTQID 04020000 CVTRSV94 EQU CVTXTNT2+20 04021000 CVTRSV93 EQU CVTXTNT2+16 04022000 CVTRSV92 EQU CVTXTNT2+12 04023000 CVTDEBVR EQU CVTXTNT2+8 04024000 CVTRSV91 EQU CVTXTNT2+6 04025000 CVTRSV9H EQU CVTFLGBT 04026000 CVTRSV9G EQU CVTFLGBT 04027000 CVTRSV9F EQU CVTFLGBT 04028000 CVTRSV9E EQU CVTFLGBT 04029000 CVTRSV9D EQU CVTFLGBT 04030000 CVTRSV9C EQU CVTFLGBT 04031000 CVTVME EQU CVTFLGBT 04032000 CVTNPE EQU CVTFLGBT 04033000 CVTNUCLS EQU CVTXTNT2+4 04034000 CVTDSSVA EQU CVTDSSV+1 04035000 CVTRSV89 EQU CVTDSSV 04036000 CVTRSV88 EQU CVTXTNT1+8 04037000 CVTRSV87 EQU CVTXTNT1+4 04038000 CVTFACHN EQU CVTXTNT1 04039000 CVTRV488 EQU CVTMAP+412 04040000 CVTRV487 EQU CVTMAP+408 04041000 CVTRV486 EQU CVTMAP+404 04042000 CVTRV485 EQU CVTMAP+400 04043000 CVTACTAP EQU CVTMAP+396 04044000 CVTAUTH EQU CVTMAP+392 04045000 CVTATMCA EQU CVTATMCT+1 04046000 CVTATMST EQU CVTATMCT 04047000 CVTRSV61 EQU CVTMAP+384 04048000 CVTVOLT1 EQU CVTVOLM1+1 04049000 CVTVOLI1 EQU CVTVOLF1 04050000 CVTSTOA EQU CVTMAP+376 04051000 CVTRSV58 EQU CVTMAP+374 04052000 CVTRSV57 EQU CVTMAP+372 04053000 CVTDDCE EQU CVTMAP+368 04054000 CVTPNWFR EQU CVTMAP+364 04055000 CVTSMF EQU CVTMAP+360 04056000 CVTSULK EQU CVTMAP+358 04057000 CVTSLKO EQU CVTSYSK 04058000 CVTSLKP EQU CVTSYSK 04059000 CVTSLKQ EQU CVTSYSK 04060000 CVTSLKR EQU CVTSYSK 04061000 CVTRSV56 EQU CVTSYSK 04062000 CVTRSV55 EQU CVTSYSK 04063000 CVTRSV54 EQU CVTSYSK 04064000 CVTRSV53 EQU CVTSYSK 04065000 CVTRSV52 EQU CVTA1F1 04066000 CVTRSV51 EQU CVTA1F1 04067000 CVTRSV50 EQU CVTA1F1 04068000 CVTRSV49 EQU CVTA1F1 04069000 CVTRSV48 EQU CVTA1F1 04070000 CVTRSV47 EQU CVTA1F1 04071000 CVTSRSW EQU CVTA1F1 04072000 CVTPFSW EQU CVTA1F1 04073000 CVTPCVT EQU CVTMAP+352 04074000 CVTRSV46 EQU CVTMAP+344 04075000 CVTRSV45 EQU CVTMAP+340 04076000 CVTRSV44 EQU CVTMAP+338 04077000 CVTRSV43 EQU CVTMAP+336 04078000 CVTHJESA EQU CVTHJES+1 04079000 CVTRSV42 EQU CVTHJES 04080000 CVTEXT2A EQU CVTEXT2+1 04081000 CVTRSV41 EQU CVTEXT2 04082000 CVTAPFA EQU CVTAPF+1 04083000 CVTRSV40 EQU CVTAPF 04084000 CVTRV518 EQU CVTINTLA 04085000 CVTRV517 EQU CVTERPV 04086000 CVTEORM EQU CVTMAP+312 04087000 CVTMCHPR EQU CVTMAP+308 04088000 CVTTZ EQU CVTMAP+304 04089000 CVTJEPS EQU CVTMAP+300 04090000 CVTJESCT EQU CVTMAP+296 04091000 CVTMODE EQU CVTMAP+292 04092000 CVTPTRV EQU CVTMAP+288 04093000 CVTREAL EQU CVTMAP+284 04094000 CVTRSV39 EQU CVTMAP+280 04095000 CVTRSV38 EQU CVTMAP+276 04096000 CVTDMSRA EQU CVTDMSR+1 04097000 CVTRV634 EQU CVTDMSRF 04098000 CVTRV633 EQU CVTDMSRF 04099000 CVTRV632 EQU CVTDMSRF 04100000 CVTRV631 EQU CVTDMSRF 04101000 CVTRV630 EQU CVTDMSRF 04102000 CVTRV629 EQU CVTDMSRF 04103000 CVTUDUMP EQU CVTDMSRF 04104000 CVTSDUMP EQU CVTDMSRF 04105000 CVTQMSGA EQU CVTQMSG+1 04106000 CVTRSV36 EQU CVTQMSG 04107000 CVTAMFF EQU CVTMAP+264 04108000 CVTPURGA EQU CVTPURG+1 04109000 CVTRSV35 EQU CVTPURG 04110000 CVTCBSP EQU CVTMAP+256 04111000 CVTATERA EQU CVTATER+1 04112000 CVTSYST EQU CVTATER 04113000 CVTVOLT2 EQU CVTTAT 04114000 CVTVOLI2 EQU CVTVOLF2 04115000 CVTAQAVB EQU CVTAQAVT+1 04116000 CVTRSV34 EQU CVTTCMFG 04117000 CVTRSV33 EQU CVTTCMFG 04118000 CVTRSV32 EQU CVTTCMFG 04119000 CVTRSV31 EQU CVTTCMFG 04120000 CVTRSV30 EQU CVTTCMFG 04121000 CVTRSV29 EQU CVTTCMFG 04122000 CVTRSV28 EQU CVTTCMFG 04123000 CVTTCRDY EQU CVTTCMFG 04124000 CVTGTFA EQU CVTGTF+1 04125000 CVTRSV27 EQU CVTGTFST 04126000 CVTRNIO EQU CVTGTFST 04127000 CVTUSR EQU CVTGTFST 04128000 CVTRV318 EQU CVTFORM 04129000 CVTRV317 EQU CVTTMODE 04130000 CVTRV316 EQU CVTSTATE 04131000 CVTRV315 EQU CVTGTFS 04132000 CVTGTFAV EQU CVTGTFS 04133000 CVT0SCR1 EQU CVTMAP+232 04134000 CVTRV515 EQU CVTMAP+228 04135000 CVTRMS EQU CVTMAP+224 04136000 CVTPATCH EQU CVTMAP+220 04137000 CVTTSCE EQU CVTMAP+216 04138000 CVTLNKSC EQU CVTMAP+214 04139000 CVTQABST EQU CVTMAP+212 04140000 CVTMDLDS EQU CVTMAP+208 04141000 CVTUSER EQU CVTMAP+204 04142000 CVTABEND EQU CVTMAP+200 04143000 CVTSMCA EQU CVTMAP+196 04144000 CVTRSV18 EQU CVTMAP+192 04145000 CVTQLPAQ EQU CVTMAP+188 04146000 CVTQCDSR EQU CVTMAP+184 04147000 CVTRSV17 EQU CVTOPTB 04148000 CVTRSV16 EQU CVTOPTB 04149000 CVTFP EQU CVTOPTB 04150000 CVTAPTHR EQU CVTOPTB 04151000 CVTNLOG EQU CVTOPTB 04152000 CVTTOD EQU CVTOPTB 04153000 CVTCTIMS EQU CVTOPTB 04154000 CVTPROT EQU CVTOPTB 04155000 CVTXPFP EQU CVTOPTA 04156000 CVTASCII EQU CVTOPTA 04157000 CVTRSV13 EQU CVTOPTA 04158000 CVTRSV12 EQU CVTOPTA 04159000 CVTNIP EQU CVTOPTA 04160000 CVTDDR EQU CVTOPTA 04161000 CVTAPR EQU CVTOPTA 04162000 CVTCCH EQU CVTOPTA 04163000 CVTSNCTR EQU CVTMAP+180 04164000 CVTQMWR EQU CVTMAP+176 04165000 CVTQOCR EQU CVTMAP+172 04166000 CVT1EF00 EQU CVTMAP+168 04167000 CVTMZ00 EQU CVTMAP+164 04168000 CVTHEAD EQU CVTMAP+160 04169000 CVTRSV11 EQU CVTMAP+156 04170000 CVT0PT01 EQU CVTMAP+152 04171000 CVTMSER EQU CVTMAP+148 04172000 CVTRV516 EQU CVTIERLC 04173000 CVTILCH EQU CVTMAP+140 04174000 CVT0DS EQU CVTMAP+136 04175000 CVTFBOSV EQU CVTMAP+132 04176000 CVTNUCB EQU CVTMAP+128 04177000 CVTIXAVL EQU CVTMAP+124 04178000 CVTIOQET EQU CVTMAP+120 04179000 CVTDCBA EQU CVTMAP+117 04180000 CVTMVS2 EQU CVTDCB 04181000 CVT6DAT EQU CVTDCB 04182000 CVT4MPS EQU CVTDCB 04183000 CVTRSV09 EQU CVTDCB 04184000 CVT4MS1 EQU CVTDCB 04185000 CVT2SPS EQU CVTDCB 04186000 CVT1SSS EQU CVTDCB 04187000 CVTRSV08 EQU CVTDCB 04188000 CVTSTB EQU CVTMAP+112 04189000 CVTQTD00 EQU CVTMAP+108 04190000 CVTQTE00 EQU CVTMAP+104 04191000 CVTCUCB EQU CVTMAP+100 04192000 CVTSJQ EQU CVTMAP+96 04193000 CVTPBLDL EQU CVTMAP+92 04194000 CVTTPC EQU CVTMAP+88 04195000 CVTSVDCB EQU CVTMAP+84 04196000 CVTBRET EQU CVTMAP+82 04197000 CVTEXIT EQU CVTMAP+80 04198000 CVT0FN00 EQU CVTMAP+76 04199000 CVTDARA EQU CVTDAR+1 04200000 CVTRSV07 EQU CVTFLGS1 04201000 CVTRSV06 EQU CVTFLGS1 04202000 CVTRSV05 EQU CVTFLGS1 04203000 CVTRSV04 EQU CVTFLGS1 04204000 CVTRSV03 EQU CVTFLGS1 04205000 CVTRSV02 EQU CVTFLGS1 04206000 CVTRSV01 EQU CVTFLGS1 04207000 CVTDMPLK EQU CVTFLGS1 04208000 CVTXITP EQU CVTMAP+68 04209000 CVTZDTAB EQU CVTMAP+64 04210000 CVTMSLT EQU CVTMAP+60 04211000 CVTDATE EQU CVTMAP+56 04212000 CVTBTERM EQU CVTMAP+52 04213000 CVTSYSAD EQU CVTMAP+48 04214000 CVTXTLER EQU CVTMAP+44 04215000 CVTILK2 EQU CVTMAP+40 04216000 CVTILK1 EQU CVTMAP+36 04217000 CVTPRLTV EQU CVTMAP+32 04218000 CVTPCNVT EQU CVTMAP+28 04219000 CVT0VL00 EQU CVTMAP+24 04220000 CVTXAPG EQU CVTMAP+20 04221000 CVTBUF EQU CVTMAP+16 04222000 CVTJOB EQU CVTMAP+12 04223000 CVTLINK EQU CVTMAP+8 04224000 CVT0EF00 EQU CVTMAP+4 04225000 CVTTCBP EQU CVTMAP 04226000 CVT EQU CVTMAP 04227000 RPLSEQNO EQU RPLOF60+6 04228000 @NM00026 EQU RPLIBSQ 04229000 RPLIINV EQU RPLIBSQ 04230000 RPLINEG EQU RPLIBSQ 04231000 RPLIPOS EQU RPLIBSQ 04232000 RPLIIGN EQU RPLIBSQ 04233000 RPLIRSET EQU RPLIBSQ 04234000 RPLITST EQU RPLIBSQ 04235000 RPLISET EQU RPLIBSQ 04236000 @NM00025 EQU RPLOBSQ 04237000 RPLOINV EQU RPLOBSQ 04238000 RPLONEG EQU RPLOBSQ 04239000 RPLOPOS EQU RPLOBSQ 04240000 RPLOIGN EQU RPLOBSQ 04241000 RPLORSET EQU RPLOBSQ 04242000 RPLOTST EQU RPLOBSQ 04243000 RPLOSET EQU RPLOBSQ 04244000 RPLIBSQV EQU RPLOF60+2 04245000 RPLOBSQV EQU RPLOF60 04246000 @NM00024 EQU RPLCNTSC 04247000 RPLRSHUT EQU RPLCNTSC 04248000 RPLRQR EQU RPLCNTSC 04249000 RPLSHUTC EQU RPLCNTSC 04250000 RPLSHUTD EQU RPLCNTSC 04251000 RPLSTSN EQU RPLCNTSC 04252000 RPLCLEAR EQU RPLCNTSC 04253000 RPLSDT EQU RPLCNTSC 04254000 @NM00023 EQU RPLCNTDC 04255000 RPLSIGNL EQU RPLCNTDC 04256000 RPLLUS EQU RPLCNTDC 04257000 RPLRTR EQU RPLCNTDC 04258000 RPLBID EQU RPLCNTDC 04259000 @NM00022 EQU RPLCNTDF 04260000 RPLQI EQU RPLCNTDF 04261000 RPLRELQ EQU RPLCNTDF 04262000 RPLCHASE EQU RPLCNTDF 04263000 RPLQEC EQU RPLCNTDF 04264000 RPLQC EQU RPLCNTDF 04265000 RPLCNCEL EQU RPLCNTDF 04266000 RPLDATA EQU RPLCNTDF 04267000 RPLRRN EQU RPLRESP 04268000 RPLNFME EQU RPLRESP 04269000 RPLEX EQU RPLRESP 04270000 @NM00021 EQU RPLRESP 04271000 @NM00020 EQU RPLPOSTV 04272000 RPLSCHED EQU RPLPOSTV 04273000 @NM00019 EQU RPLVTFL1 04274000 RPLAUTUS EQU RPLVTFL1 04275000 RPLVTUSE EQU RPLVTFL1 04276000 @NM00018 EQU RPLVTFL1 04277000 @NM00017 EQU RPLCHN 04278000 RPLONLY EQU RPLCHN 04279000 RPLLAST EQU RPLCHN 04280000 RPLMIDLE EQU RPLCHN 04281000 RPLFIRST EQU RPLCHN 04282000 @NM00016 EQU RPLRTYPE 04283000 @NM00015 EQU RPLSTYPE 04284000 RPLSRESP EQU RPLSTYPE 04285000 @NM00014 EQU RPLRH3 04286000 RPLCSI EQU RPLRH3 04287000 RPLCHREQ EQU RPLRH3 04288000 RPLCMD EQU RPLRH3 04289000 RPLEB EQU RPLRH3 04290000 RPLBB EQU RPLRH3 04291000 RPLSIGDA EQU RPLVTEXT+32 04292000 RPLSAV13 EQU RPLVTEXT+28 04293000 RPLUSNSO EQU RPLOSENS+2 04294000 RPLSSMO EQU RPLSSNSO+1 04295000 @NM00013 EQU RPLSSEO 04296000 RPLRRO EQU RPLSSEO 04297000 RPLFIO EQU RPLSSEO 04298000 RPLSTATO EQU RPLSSEO 04299000 RPLCPMO EQU RPLSSEO 04300000 @NM00012 EQU RPLSSEO 04301000 RPLFMHDR EQU RPLOPT12 04302000 @NM00011 EQU RPLOPT12 04303000 @NM00010 EQU RPLOPT12 04304000 @NM00009 EQU RPLOPT12 04305000 RPLNIBTK EQU RPLOPT12 04306000 RPLTRUNC EQU RPLOPT12 04307000 RPLKEEP EQU RPLOPT12 04308000 @NM00008 EQU RPLOPT12 04309000 RPLRSVE8 EQU RPLOPT11 04310000 RPLRSVE7 EQU RPLOPT11 04311000 RPLRSVE6 EQU RPLOPT11 04312000 RPLRSVE5 EQU RPLOPT11 04313000 RPLRSVE4 EQU RPLOPT11 04314000 RPLSTOP EQU RPLOPT11 04315000 RPLSTART EQU RPLOPT11 04316000 RPLQUIES EQU RPLOPT11 04317000 RPLRSVI6 EQU RPLOPT10 04318000 RPLRSVI5 EQU RPLOPT10 04319000 RPLRSVI4 EQU RPLOPT10 04320000 RPLRSVI3 EQU RPLOPT10 04321000 RPLRSVI2 EQU RPLOPT10 04322000 RPLSPARM EQU RPLOPT10 04323000 RPLDSPLY EQU RPLOPT10 04324000 RPLBSCID EQU RPLOPT10 04325000 RPLTOPL EQU RPLOPT9 04326000 RPLCIDE EQU RPLOPT9 04327000 RPLRNNM EQU RPLOPT9 04328000 RPLAPPST EQU RPLOPT9 04329000 RPLCOUNT EQU RPLOPT9 04330000 RPLTERMS EQU RPLOPT9 04331000 RPLDEVCH EQU RPLOPT9 04332000 RPLLOGON EQU RPLOPT9 04333000 RPLUSFLD EQU RPLVTEXT+16 04334000 RPLESR2 EQU RPLUSNSI+1 04335000 RPLESR1 EQU RPLUSNSI 04336000 RPLSSMI EQU RPLDSB2 04337000 @NM00007 EQU RPLSSEI 04338000 RPLRRI EQU RPLSSEI 04339000 RPLFII EQU RPLSSEI 04340000 RPLSTATI EQU RPLSSEI 04341000 RPLCPMI EQU RPLSSEI 04342000 RPLPATHI EQU RPLSSEI 04343000 RPLARCLN EQU RPLVTEXT+8 04344000 RPLAARLN EQU RPLVTEXT+4 04345000 RPLAAREA EQU RPLVTEXT 04346000 RPLERMSA EQU RPLCOMN+72 04347000 RPLEMLEN EQU RPLCOMN+70 04348000 RPLACTIV EQU RPLCOMN+69 04349000 RPLBRANC EQU RPLEXTD1 04350000 RPLNIB EQU RPLEXTD1 04351000 @NM00006 EQU RPLEXTD1 04352000 RPLEXIT EQU RPLEXTD1 04353000 RPLNEXIT EQU RPLEXTD1 04354000 RPLEXSCH EQU RPLEXTD1 04355000 RPLDDDD EQU RPLRBAR+4 04356000 @NM00005 EQU RPLRBAR+3 04357000 @NM00004 EQU RPLAIXID 04358000 RPLAXPKP EQU RPLAIXID 04359000 RPLAIXPC EQU RPLRBAR 04360000 RPLRSV88 EQU RPLOPT8 04361000 RPLUNCON EQU RPLOPT8 04362000 RPLACTV EQU RPLOPT8 04363000 RPLSESS EQU RPLOPT8 04364000 RPLPEND EQU RPLOPT8 04365000 RPLODPRM EQU RPLOPT8 04366000 RPLODACP EQU RPLOPT8 04367000 RPLODACQ EQU RPLOPT8 04368000 RPLRSV78 EQU RPLOPT7 04369000 RPLTCRNO EQU RPLOPT7 04370000 RPLRLSOP EQU RPLOPT7 04371000 RPLTPOST EQU RPLOPT7 04372000 RPLQOPT EQU RPLOPT7 04373000 RPLCNIMM EQU RPLCNOPT 04374000 RPLCNANY EQU RPLCNOPT 04375000 RPLCNALL EQU RPLCNOPT 04376000 RPLRSV68 EQU RPLOPT6 04377000 RPLRSV67 EQU RPLOPT6 04378000 RPLLOCK EQU RPLOPT6 04379000 RPLNCOND EQU RPLOPT6 04380000 RPLCOND EQU RPLOPT6 04381000 RPLEOT EQU RPLUNTYP 04382000 RPLEOM EQU RPLUNTYP 04383000 RPLEOB EQU RPLUNTYP 04384000 RPLWROPT EQU RPLOPT5 04385000 RPLNODE EQU RPLOPT5 04386000 RPLERACE EQU RPLWRTYP 04387000 RPLEAU EQU RPLWRTYP 04388000 RPLNERAS EQU RPLWRTYP 04389000 RPLPSOPT EQU RPLOPT5 04390000 @NM00003 EQU RPLOPT5 04391000 RPLDLGIN EQU RPLOPT5 04392000 RPLBUFL EQU RPLCOMN+52 04393000 RPLCHAIN EQU RPLNXTRP 04394000 RPLBOP EQU RPLOPT4 04395000 @NM00002 EQU RPLOPT4 04396000 RPLMKFRM EQU RPLOPT4 04397000 RPLENDTR EQU RPLOPT4 04398000 RPLALIGN EQU RPLOPT3 04399000 RPLFMT EQU RPLOPT3 04400000 RPLFLD EQU RPLOPT3 04401000 RPLVFY EQU RPLOPT3 04402000 RPLBLK EQU RPLOPT3 04403000 RPLSFORM EQU RPLOPT3 04404000 RPLEODS EQU RPLOPT3 04405000 RPLNSP EQU RPLOPT2 04406000 RPLUPD EQU RPLOPT2 04407000 @NM00001 EQU RPLOPT2 04408000 RPLLRD EQU RPLOPT2 04409000 RPLBWD EQU RPLOPT2 04410000 RPLCNV EQU RPLOPT2 04411000 RPLADD EQU RPLADR 04412000 RPLKEY EQU RPLOPT2 04413000 RPLECBIN EQU RPLECBSW 04414000 RPLGEN EQU RPLOPT1 04415000 RPLKGE EQU RPLOPT1 04416000 RPLASY EQU RPLOPT1 04417000 RPLSKP EQU RPLOPT1 04418000 RPLSEQ EQU RPLOPT1 04419000 RPLDIR EQU RPLOPT1 04420000 RPLLOC EQU RPLOPT1 04421000 RPLDAF EQU RPLARG+2 04422000 RPLSAF EQU RPLARG 04423000 RPLAREA EQU RPLCOMN+32 04424000 RPLTCBPT EQU RPLCOMN+28 04425000 RPLDACB EQU RPLCOMN+24 04426000 RPLCCHAR EQU RPLCOMN+20 04427000 RPLSTRID EQU RPLCOMN+18 04428000 RPLKEYL EQU RPLKEYLE 04429000 RPLRDSOH EQU RPLFDB3 04430000 RPLRLG EQU RPLFDB3 04431000 RPLLGFRC EQU RPLFDB3 04432000 RPLREOT EQU RPLFDB3 04433000 RPLREOM EQU RPLFDB3 04434000 RPLREOB EQU RPLFDB3 04435000 RPLSV32 EQU RPLFDB3 04436000 RPLUINPT EQU RPLFDB3 04437000 RPLSTSAV EQU RPLFDB2 04438000 RPLCUERR EQU RPLFDB2 04439000 RPLDLGFL EQU RPLFDB2 04440000 RPLIOERR EQU RPLFDB2 04441000 RPLDVUNS EQU RPLFDB2 04442000 RPLATND EQU RPLFDB2 04443000 RPLRVID EQU RPLFDB2 04444000 RPLERLK EQU RPLFDB2 04445000 RPLERREG EQU RPLRTNCD 04446000 RPLSTAT EQU RPLFDBWD 04447000 RPLPOST EQU RPLECB 04448000 RPLWAIT EQU RPLECB 04449000 RPLPLHPT EQU RPLCOMN+4 04450000 RPLLEN2 EQU RPLLEN 04451000 RPLSTYP EQU RPLIDWD+1 04452000 RPLID EQU RPLIDWD 04453000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04454000 @RF00445 EQU @RC00439 04455000 @RT00582 EQU NOADATA 04456000 @RF00593 EQU NOADATA 04457000 @RF00608 EQU NOADATA 04458000 @RT00644 EQU ISTA0024 04459000 @RF00690 EQU NOSYN 04460000 @RF00698 EQU NOSDATA 04461000 @RT00713 EQU ESCAPE 04462000 @RF00765 EQU @EL00002 04463000 @PB00004 EQU @PB00005 04464000 @RF00850 EQU @EL00005 04465000 @PB00003 EQU @PB00004 04466000 @PB00002 EQU @PB00003 04467000 @ENDDATA EQU * 04468000 END ISTRCC21,(C'PLS1840',0603,77320) 04469000