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