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