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