TITLE 'ISTDCC21 - CONTROL LAYER READ SPECIFIC MACRO PROCESSOR *00001000 ' 00002000 ISTDCC21 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTDCC21 75.126' 0001 00008000 DROP @15 00009000 @PROLOG BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 * CRRPTR=ADDR(CRRSPACE); /* GET CRR ADDR FROM RPH */ 00013000 L CRRPTR,RPHCRR(,RPHPTR) 0399 00014000 LA CRRPTR,CRRSPACE+312(,CRRPTR) 0399 00015000 * RFY 0400 00016000 * CRRSAREA BASED(CRRPTR); /* ESTAB ADDRESSABLITY FOR CRR */ 00017000 */* */ 00018000 */*************** FMCB (FUNCTION MGMT CONTROL BLOCK) ****************/ 00019000 * 0401 00020000 * DCL 0401 00021000 * FMCBPTR PTR(31) RESTRICTED REG(11); 0401 00022000 * FMCBPTR=CRRFMCB; /* GET FMCB ADDR FROM CRR */ 00023000 L FMCBPTR,CRRFMCB(,CRRPTR) 0402 00024000 * RFY 0403 00025000 * ISTFMCB BASED(FMCBPTR); /* ESTAB ADDRESSABLITY FOR FMCB */ 00026000 */* */ 00027000 */*************** RPL (REQUEST PARAMETER LIST) ***********************/ 00028000 * 0404 00029000 * DCL 0404 00030000 * RPLPTR PTR(31) RESTRICTED REG(4); 0404 00031000 * RPLPTR=CRRARPL; /* GET RPL ADDR FROM CRR */ 00032000 L RPLPTR,CRRARPL(,CRRPTR) 0405 00033000 * RFY 0406 00034000 * IFGRPL BASED(RPLPTR); /* ESTAB ADDRESSABILITY FOR RPL */ 00035000 */* */ 00036000 */*************** LCPB (LOGICAL CHANNEL PROGRAM BLOCK) ***************/ 00037000 * 0407 00038000 * DCL 0407 00039000 * LCPBPTR PTR(31) RESTRICTED REG(5); 0407 00040000 * LCPBPTR=CRRLCPB; /* GET LCPB ADDR FROM CRR */ 00041000 L LCPBPTR,CRRLCPB(,CRRPTR) 0408 00042000 * RFY 0409 00043000 * ISTDCLCP BASED(LCPBPTR); 0409 00044000 * RFY 0410 00045000 * ISTLCPB BASED(ADDR(DCLLCPB)); /* ESTAB ADDRESSABLITY FOR LCPB */ 00046000 */* */ 00047000 */*************** LCCW (LOGICAL CHANNEL COMMAND WORD) ****************/ 00048000 * 0411 00049000 * RFY 0411 00050000 * ISTLCCW BASED(LCPNXLCW); /* ESTAB ADDRESSABILITY FOR LCCW */ 00051000 */* */ 00052000 */*************** FDB (FEEDBACK DATA BLOCK) **************************/ 00053000 * 0412 00054000 * DCL 0412 00055000 * FDBPTR PTR(31) RESTRICTED REG(8); 0412 00056000 * RFY 0413 00057000 * ISTFDB BASED(FDBPTR); /* ESTAB ADDRESSAB. FOR FDB 0413 00058000 * FDBPTR WILL BE SET IN PROCESSE*/ 00059000 */* */ 00060000 */*************** FSB (FEEDBACK STATUS BLOCK) ************************/ 00061000 * 0414 00062000 * DCL 0414 00063000 * FSBPTR PTR(31) RESTRICTED REG(6); 0414 00064000 * RFY 0415 00065000 * ISTFSB BASED(FSBPTR); /* ESTAB ADDRESSAB. FOR FSB 0415 00066000 * FSBPTR WILL BE SET BY THE 0415 00067000 * TPFEL MACRO IN MAINLINE AND IN 00068000 * PROCESSD */ 00069000 */* */ 00070000 */*************** ACDEB (VTAM DATA EXTENT BLOCK) ********************/ 00071000 * 0416 00072000 * DCL 0416 00073000 * ACBPTR PTR(31) RESTRICTED REG(7); 0416 00074000 * ACBPTR=FMCDEBA; /* GET ADDR OF ACDEB FROM FMCB */ 00075000 L ACBPTR,FMCDEBA(,FMCBPTR) 0417 00076000 * RFY 0418 00077000 * ISTACDEB BASED(ACBPTR); /* ESTAB ADDRESABLITY FOR ACDEB */ 00078000 */* */ 00079000 */*************** ATCVT (VTAM CVT) ***********************************/ 00080000 * 0419 00081000 * DCL 0419 00082000 * ATCVTPTR PTR(31) REG(2); /* ADDRESSABILITY WILL BE 0419 00083000 * ESTABLISHED FOR ATCVT IN 0419 00084000 * PROCESSC IN ORDER TO CALL MOVE*/ 00085000 */***********************ISTPROCD IN FMCB*****************************/ 00086000 * 0420 00087000 * RFY 0420 00088000 * ISTPROCD BASED(ADDR(FMCPROCD));/* ESTAB ADDRESSABLTY FOR PROCD */ 00089000 * RFY 0421 00090000 * ISTNCB BASED(FMCDNCBA); /* ADDRES NCB FOR DEVCH @D32CKNL*/ 00091000 */*****************ISTDEVCH IN FMCB********************************* */ 00092000 * 0422 00093000 * RFY 0422 00094000 * ISTDEVCH BASED(ADDR(NCBDEVCH));/* ESTAB ADDRESSABLTY FOR DEVCH */ 00095000 * DCL 0423 00096000 * REG9 REG(9) FIXED(32); 0423 00097000 * DCL 0424 00098000 * REG10 REG(10) FIXED(32); 0424 00099000 * DCL 0425 00100000 * COUNTER REG(2) FIXED(32); 0425 00101000 * 0426 00102000 */********************************************************************/ 00103000 */* */ 00104000 */* CONSTANTS AND REGISTERS */ 00105000 */* NOT USED AS BASE REGISTERS FOR CONTROL BLOCKS */ 00106000 */* */ 00107000 */********************************************************************/ 00108000 * 0426 00109000 * DCL 0426 00110000 * OFF BIT(1) CONSTANT('0'B); /* MASK TO TURN BITS OFF */ 00111000 * DCL 0427 00112000 * ON BIT(1) CONSTANT('1'B); /* MASK TO TURN BITS ON */ 00113000 * DCL 0428 00114000 * GATE0 BIT(32) CONSTANT('80000000'X); 0428 00115000 * DCL 0429 00116000 * CLEAR FIXED(32) CONSTANT(0000);/* MASK FOR ADDRS AND FLAGS */ 00117000 * DCL 0430 00118000 * RTRNCODE FIXED(31) REG(15); /* RETURN CODE REGISTER */ 00119000 * DCL 0431 00120000 * RESUMEAD PTR(31) REG(14); /* USED TO SAVE REG14 FOR CALLS */ 00121000 * DCL 0432 00122000 * MOVERTN ENTRY BASED(ATCDCC60);/* ENTRY POINT FOR MOVE - ADDR IS 00123000 * IN ATCDCC60 */ 00124000 */****************************************************************** */ 00125000 */* */ 00126000 */* CONSTANTS FOR COMPARE AND SWAP OF FMCBFLAGS */ 00127000 */* */ 00128000 */****************************************************************** */ 00129000 * 0433 00130000 * DCL 0433 00131000 * FLGA06ON BIT(32) CONSTANT('82000000'X);/* USED TO SET FMCFLGA0 00132000 * AND FMCFLGA6 ON */ 00133000 * DCL 0434 00134000 * FLGA1OFF BIT(32) CONSTANT('BFFFFFFF'X);/* SET FMCFLGA1 OFF */ 00135000 * DCL 0435 00136000 * FLGA1ON BIT(32) CONSTANT('40000000'X);/* SET FMCFLGA1 ON */ 00137000 * DCL 0436 00138000 * FLGA3ON BIT(32) CONSTANT('10000000'X);/* SET FMCFLGA3 ON */ 00139000 * DCL 0437 00140000 * FLGA3OFF BIT(32) CONSTANT('EFFFFFFF'X);/* SET FMCFLGA3 OFF */ 00141000 * DCL 0438 00142000 * FLGA5OFF BIT(32) CONSTANT('FBFFFFFF'X);/* SET FMCFLGA5 OFF */ 00143000 * DCL 0439 00144000 * FLGB7ON BIT(32) CONSTANT('00010000'X);/* TURN ON B7 @XM10957*/ 00145000 * 0440 00146000 */********************MAINLINE CODE BEGINS****************************/ 00147000 */* */ 00148000 */* MAINLINE READ SETS MODULE AND AUDIT TRAIL SWITCHES, CHECKS FOR */ 00149000 */* AN ERROR CONDITION (DEVICE OUTPUT-ONLY), CALLS PROCESSB TO BEGIN*/ 00150000 */* I/O IF THERE IS NO FSB, OR CALLS PROCESSC TO */ 00151000 */* HAVE DATA MOVED TO THE USER'S INPUT AREA. */ 00152000 */* */ 00153000 */* * * * * * * * * DEPENDANCIES IN MAINLINE CODE* * * * * * * * * * */ 00154000 */* */ 00155000 */* DEVINPUT SHOULD BE SET IF DEVICE IS AN INPUT DEVICE */ 00156000 */* RPLDLGIN SHOULD BE SET IF USER DESIRES DIALOG */ 00157000 */* FSBPTR MUST CONTAIN THE ADDRESS OF FSB UPON RETURN FROM */ 00158000 */* TPFEL MACRO CALL */ 00159000 */* */ 00160000 */* * * * * * * * * * OUTPUT FROM MAINLINE CODE * * * * * * * * * * **/ 00161000 */* */ 00162000 */* FIELDS LISTED BELOW COMPRISE POSSIBLE OUTPUT FROM THIS PROCEDURE.*/ 00163000 */* IF A FIELD IS ASSIGNED A VALUE FROM AN INPUT FIELD, THE INPUT */ 00164000 */* FIELD IS NOTED BETWEEN ASTERISKS. IF A FIELD'S BEING SET IS */ 00165000 */* LOGICALLY DEPENDENT UPON A TEST OF AN INPUT FIELD, THE INPUT */ 00166000 */* FIELD IS SHOWN BETWEEN PARENTHESES: */ 00167000 */* */ 00168000 */* CRRMAS CRRM21 CRRC21 */ 00169000 */* FMCFLGA1(RPLDLGIN) CRRF4(DEVINPUT) CRRRTNCD(DEVINPUT) */ 00170000 */* CRRFSB(FSBPTR)*RETADDR* */ 00171000 */* */ 00172000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 00173000 * 0440 00174000 * CRRMAS=CRRMAS&&CRRMAS; /* CLEAR MODULE TRAIL FLAGS */ 00175000 XC CRRMAS(8,CRRPTR),CRRMAS(CRRPTR) 0440 00176000 * CRRM21=ON; /* SET MODULE TRAIL FLAG */ 00177000 OI CRRM21(CRRPTR),B'10000000' 0441 00178000 * CRRC21=ON; /* SET AUDIT TRAIL READ FLAG */ 00179000 OI CRRC21(CRRPTR),B'10000000' 0442 00180000 * IF DEVINPUT=ON THEN /* IF DEVINPUT=ON, DEVICE IS AN 00181000 * INPUT DEVICE: CONTINUE 0443 00182000 * PROCESSING. IF IT IS OFF, SET 00183000 * ERROR CODES AND RETURN */ 00184000 L @10,FMCDNCBA(,FMCBPTR) 0443 00185000 TM DEVINPUT+36(@10),B'10000000' 0443 00186000 BNO @RF00443 0443 00187000 * DO; 0444 00188000 * 0444 00189000 */* TPFEL (,FMCFBA) RETPTR(FSBPTR) */ 00190000 * 0445 00191000 * DO; /* BEGIN TPFEL CODE GENERATION */ 00192000 * DCL 0446 00193000 * FMZCA005 BIT(32) CONSTANT('80000000'X); 0446 00194000 * DCL 0447 00195000 * FMZCB005 BIT(32) CONSTANT('7FFFFFFF'X); 0447 00196000 * RFY 0448 00197000 * (GPR00P, 0448 00198000 * GPR01P, 0448 00199000 * GPR14P, 0448 00200000 * GPR15P) RSTD; 0448 00201000 * RFY 0449 00202000 * ISTWKE; 0449 00203000 * GPR15P=ADDR(FMCFBA); /* ADDRESS QUEUE POINTER */ 00204000 LA GPR15P,FMCFBA(,FMCBPTR) 0450 00205000 * GPR14P=GPR15P->PABWEQA|FMZCA005; 0451 00206000 L @10,@CF01323 0451 00207000 L GPR14P,PABWEQA(,GPR15P) 0451 00208000 OR GPR14P,@10 0451 00209000 * IF GPR14P=FMZCA005 THEN 0452 00210000 CLR GPR14P,@10 0452 00211000 BE @RT00452 0452 00212000 * ; 0453 00213000 * ELSE 0454 00214000 * DO; 0454 00215000 * GPR00P=FMZCA005; /* INITIALIZE QUIT FLAG */ 00216000 L GPR00P,@CF01323 0455 00217000 * DO WHILE(GPR00P^=GPR14P->WKECHAIN); 0456 00218000 B @DE00456 0456 00219000 @DL00456 DS 0H 0457 00220000 * GPR14P=GPR14P->WKECHAIN;/* SEARCH FOR END OF CHAIN */ 00221000 L GPR14P,WKECHAIN(,GPR14P) 0457 00222000 * END; 0458 00223000 @DE00456 C GPR00P,WKECHAIN(,GPR14P) 0458 00224000 BNE @DL00456 0458 00225000 * END; 0459 00226000 * GPR14P=GPR14P&FMZCB005; 0460 00227000 @RT00452 N GPR14P,@CF01321 0460 00228000 * FSBPTR=GPR14P; 0461 00229000 LR FSBPTR,GPR14P 0461 00230000 * RFY 0462 00231000 * (GPR00P, 0462 00232000 * GPR01P, 0462 00233000 * GPR14P, 0462 00234000 * GPR15P) UNRSTD; 0462 00235000 * END; /* END TPFEL GENERATION GET ADDR 00236000 * OF FSB FROM FMCB DATA QUEUE */ 00237000 * IF FSBPTR=CLEAR THEN /* IF DATA IS NOT CHAINED OFF THE 00238000 * FMCB DATA QUEUE (@ IS 0) */ 00239000 LTR FSBPTR,FSBPTR 0464 00240000 BNZ @RF00464 0464 00241000 * CALL PROCESSB; /* CALL PROCESSB TO BEGIN I/O */ 00242000 BAL @14,PROCESSB 0465 00243000 * ELSE /* IF DATA IS CHAINED OFF THE 0466 00244000 * FMCB QUEUE ... */ 00245000 * DO; 0466 00246000 B @RC00464 0466 00247000 @RF00464 DS 0H 0467 00248000 * CRRFSB=FSBPTR; /* PUT ADDR FSB IN CRR */ 00249000 ST FSBPTR,CRRFSB(,CRRPTR) 0467 00250000 * CALL PROCESSC; /* CALL PROCESSC TO MOVE DATA 0468 00251000 * FROM FMCB DATA QUEUE TO USER'S 00252000 * INPUT AREA */ 00253000 BAL @14,PROCESSC 0468 00254000 * END; 0469 00255000 * END; 0470 00256000 * ELSE 0471 00257000 * DO; 0471 00258000 B @RC00443 0471 00259000 @RF00443 DS 0H 0472 00260000 * CRRFDB2=CRRRTOOD; /* SET ERROR CODE FOR 'READ FROM 00261000 * OUTPUT-ONLY DEVICE' */ 00262000 MVI CRRFDB2(CRRPTR),X'10' 0472 00263000 * CRRRTNCD=CRRLOGIC; /* INDICATE LOGIC ERROR IN CRR */ 00264000 MVI CRRRTNCD(CRRPTR),X'08' 0473 00265000 * END; 0474 00266000 * 0474 00267000 */*TPESC */ 00268000 * 0475 00269000 * DO; 0475 00270000 * 0475 00271000 @RC00443 DS 0H 0476 00272000 */* ATBUILD (ISTDYPAB,ISTAVT,ISTATCVT) */ 00273000 * 0476 00274000 */* VTAM ADDRESS VECTOR TABLE */ 0476 00275000 */* REVISIONS 002 03/06/75 */ 00276000 *DCL 1 ISTAVT BDY(WORD) BASED, 0476 00277000 * 2 ISTACVT PTR(31), /* ADDR OF VTAM CVT */ 00278000 * 2 ISTAS49 PTR(31), /* ADDR OF SVC 49 CODE */ 00279000 * 3 ISTAHIP BIT(1), /* HALT IN PROGRESS */ 00280000 * 2 ISTAS53 PTR(31), /* ADDR OF SVC 53 CODE */ 00281000 * 2 ISTAPSTA PTR(31), /* ADDR OF APS TABLE */ 00282000 * 2 AVTASID FIXED(15), /* VTAM ASID */ 00283000 * 2 ISTVTTIK FIXED(15), /* VTAMRP TASK ID */ 00284000 * 2 ISTAPSEX PTR(31), /* ADDR OF APS EXIT */ 00285000 * 2 ISTPHNM CHAR(5), /* PHASE NAME OF TRANSIENT */ 00286000 * 2 ISTX1 CHAR(1), /* TEST FIELD */ 00287000 * 2 ISTARID PTR(15), /* ADDR OF RID */ 00288000 * 2 ISTATRT PTR(15), /* ADDR OF VTAM GATES IN RETAB*/ 00289000 * 2 ISTAGTWT PTR(15), /* ADDR OF GATEWAIT ROUTINE */ 00290000 * 2 ISTVTTP PTR(15), /* ADDR OF CODE TO CHECK FOR */ 00291000 * /* PENDING TIMER INTERRUPT */ 00292000 * 2 ISTAVR01 CHAR(2), /* RESERVED */ 00293000 * 2 ISTPDAVP PTR(31); /* VECTOR FOR PDAIDS SMS TRACE*/ 00294000 * 0477 00295000 */* END OF ATBUILD */ 00296000 * 0477 00297000 * RFY 0477 00298000 * GPR15P RSTD; 0477 00299000 * DO; /* LISATCVT 0478 00300000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00301000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00302000 L GPR15P,ATCLCPTR 0479 00303000 * END; /* LISATCVT */ 00304000 * GPR15P=GPR15P->ATCESC01; 0481 00305000 L GPR15P,ATCESC01(,GPR15P) 0481 00306000 * DCL 0482 00307000 * FMZL0009 BASED(GPR15P) LABEL VALUERANGE(*); 0482 00308000 * CALL FMZL0009; 0483 00309000 BALR @14,@15 0483 00310000 * RESPECIFY 0484 00311000 * GPR15P UNRSTD; 0484 00312000 * END; /* **** END OF TPESC EXIT TO 0485 00313000 * TPESC TO GO TO NEXT DVT ENTRY */ 00314000 */********************************************************************/ 00315000 */* */ 00316000 */* END OF MAINLINE CODE AND LOGICAL END OF PROGRAM - ISTDCC21 */ 00317000 */* */ 00318000 */********************************************************************/ 00319000 * 0486 00320000 * 0486 00321000 */********************************************************************/ 00322000 */* */ 00323000 */* ROUTINE NAME : PROCESSB - BEGIN I/O */ 00324000 */* */ 00325000 */* FUNCTION : THIS ROUTINE CHECKS THE USER INPUT AREA LENGHT, */ 00326000 */* REQUEST THE START OF I/O, BUILDS AN LCCW. */ 00327000 */* */ 00328000 */* INPUT : SEE INPUT TABLE BELOW */ 00329000 */* */ 00330000 */* OUTPUT : SEE OUTPUT TABLE BELOW */ 00331000 */* */ 00332000 */* SUBROUTINES CALLED : NONE */ 00333000 */* */ 00334000 */* MACROS USED : NONE */ 00335000 */* */ 00336000 */********************************************************************/ 00337000 */* * * * * * * * * INPUT TABLE FOR PROCESSB * * * * * * * * * * * * */ 00338000 */* */ 00339000 */* FMCFLGA0 SHOULD BE SET IF DATA IS EXPECTED */ 00340000 */* IN PROMODE: */ 00341000 */* PROSETM4 SHOULD BE SET FOR */ 00342000 */* 'READ (BLOCK,MESSAGE,TRANSMISSION,OR CONTINUOUS)' ZTR5710 */ 00343000 */* RTRNCODE SHOULD BE RETURNED FROM VALCHECK MACRO CALL */ 00344000 */* RPLBUFL SHOULD CONTAIN THE LENGTH OF THE USER'S INPUT BUFFER */ 00345000 */* */ 00346000 */* * * * * * * * * * OUTPUT FROM PROCESSB* * * * * * * * * * * * * **/ 00347000 */* */ 00348000 */* FIELDS LISTED BELOW COMPRISE POSSIBLE OUTPUT FROM THIS PROCEDURE.*/ 00349000 */* IF A FIELD IS ASSIGNED A VALUE FROM AN INPUT FIELD, THE INPUT */ 00350000 */* FIELD IS NOTED BETWEEN ASTERISKS. IF A FIELD'S BEING SET IS */ 00351000 */* LOGICALLY DEPENDENT UPON A TEST OF AN INPUT FIELD, THE INPUT */ 00352000 */* FIELD IS SHOWN BETWEEN PARENTHESES: */ 00353000 */* */ 00354000 */* CRRINIO(FMCFLGA0) FMCFLGA0(FMCFLGA0) CRRDEXP(FMCFLGA0) */ 00355000 */* LCPLCCW(FMCMDBLK,FMCMDMSG,FMCMDTRN,FMCMDCNT) */ 00356000 */* CRRPREIO(FMCFLGA0) CRRF4(VALCHECK RETURN CODE) */ 00357000 */* CRRRTNCD(VALCHECK RETURN CODE) */ 00358000 */* */ 00359000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 00360000 * 0486 00361000 *PROCESSB: 0486 00362000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA); 0486 00363000 B @PB00002 0486 00364000 PROCESSB DS 0H 0487 00365000 * RFY 0487 00366000 * RESUMEAD RSTD; 0487 00367000 * CRRRTN9=RESUMEAD; /* SAVE RETURN ADDR (REG 14) */ 00368000 ST RESUMEAD,CRRRTN9(,CRRPTR) 0488 00369000 * RFY 0489 00370000 * RESUMEAD UNRSTD; 0489 00371000 * RFY 0490 00372000 * RTRNCODE RSTD; 0490 00373000 * 0490 00374000 */* VALCHEK OF THE USER AREA WAS REMOVED FOR DCR 1991 ( 9/17/73 ) */ 00375000 * 0491 00376000 * IF RPLBUFL>CLEAR THEN /* CONTINUE IF AREA IS VALID AND 00377000 * LENGTH OF USER INPUT BUFFER IS 00378000 * >0 */ 00379000 L @14,RPLBUFL(,RPLPTR) 0491 00380000 LTR @14,@14 0491 00381000 BNP @RF00491 0491 00382000 * IF FMCFLGA0=ON THEN /* IF DATA IS EXPECTED */ 00383000 TM FMCFLGA0(FMCBPTR),B'10000000' 0492 00384000 BNO @RF00492 0492 00385000 * DO; 0493 00386000 * CRRPREIO=ON; /* SET'AWAITING PREVIOUS I/O' IN 00387000 * CRR (FINISH CHECKS THIS FLAG) */ 00388000 OI CRRPREIO(CRRPTR),B'00010000' 0494 00389000 * RFY 0495 00390000 * RTRNCODE UNRSTD; 0495 00391000 * END; 0496 00392000 * ELSE /* IF DATA IS NOT EXPECTED */ 00393000 */* THE NEXT 4 LINES CHANGED FOR ZTR # 5710 TO CHECK PROPROCS */ 00394000 * 0497 00395000 * IF(PROSETM4=PROSBLCK|PROSETM4=PROSMSG|PROSETM4=PROSTRNS| 0497 00396000 * PROSETM4=PROSCONT) THEN 0497 00397000 B @RC00492 0497 00398000 @RF00492 LA @10,48 0497 00399000 ALR @10,FMCBPTR 0497 00400000 CLI PROSETM4(@10),X'01' 0497 00401000 BE @RT00497 0497 00402000 CLI PROSETM4(@10),X'02' 0497 00403000 BE @RT00497 0497 00404000 CLI PROSETM4(@10),X'03' 0497 00405000 BE @RT00497 0497 00406000 CLI PROSETM4(@10),X'83' 0497 00407000 BNE @RF00497 0497 00408000 @RT00497 DS 0H 0498 00409000 * DO; /* IF PROMODE IS VALID */ 00410000 * 0498 00411000 * /*********************************************************/ 00412000 * /* */ 00413000 * /* HTIS PORTION OF CODE CHECKS FOR THE ATTEMPT TO DO */ 00414000 * /* INITIATE AN I/O REQUEST TO A GENERAL POLL DEVICE. IF */ 00415000 * /* THIS IS ONE THIS HAS TO BE THE FIRST REQUEST. */ 00416000 * /* OTHERWISE ,THE RERPL IS TO BE QUEUED AND THE REQUEST */ 00417000 * /* IS NOT SENT OUT. */ 00418000 * /* */ 00419000 * /*********************************************************/ 00420000 * 0499 00421000 * IF(DEVTCODE>=DEV3277&DEVTCODE<=DEV3275)&FMCFLGB7=ON THEN 00422000 LA @10,36 0499 00423000 AL @10,FMCDNCBA(,FMCBPTR) 0499 00424000 CLI DEVTCODE(@10),X'19' 0499 00425000 BL @RF00499 0499 00426000 CLI DEVTCODE(@10),X'1C' 0499 00427000 BH @RF00499 0499 00428000 TM FMCFLGB7(FMCBPTR),B'00000001' 0499 00429000 BNO @RF00499 0499 00430000 * CRRPREIO=ON; /* SET AWAIT. I/OXM10957 */ 00431000 OI CRRPREIO(CRRPTR),B'00010000' 0500 00432000 * ELSE 0501 00433000 * DO; /* FIRST OPERATION @XM10957*/ 00434000 B @RC00499 0501 00435000 @RF00499 DS 0H 0502 00436000 * IF(DEVTCODE>=DEV3277&DEVTCODE<=DEV3275) THEN 0502 00437000 LA @10,36 0502 00438000 AL @10,FMCDNCBA(,FMCBPTR) 0502 00439000 CLI DEVTCODE(@10),X'19' 0502 00440000 BL @RF00502 0502 00441000 CLI DEVTCODE(@10),X'1C' 0502 00442000 BH @RF00502 0502 00443000 * DO; 0503 00444000 * 0503 00445000 * /*************************************************/ 00446000 * /* */ 00447000 * /* THIS IS THE FIRST I/O OPERATION TO THIS */ 00448000 * /* DEVICE, TURN ON THE FMCB FLAG INDICATING SUCH */ 00449000 * /* AND PERMIT I/O INITIATION@XM10957 */ 00450000 * /* */ 00451000 * /*************************************************/ 00452000 * 0504 00453000 * RFY 0504 00454000 * (REG9, 0504 00455000 * REG10) RSTD; 0504 00456000 * REG9=FMCCMPS2; /* SETUP FOR C/S @XM10957*/ 00457000 L REG9,FMCCMPS2(,FMCBPTR) 0505 00458000 *CSFLGB7: 0506 00459000 * REG10=REG9|FLGB7ON;/* TURN ON FLAG @XM10957*/ 00460000 CSFLGB7 LR REG10,REG9 0506 00461000 O REG10,@CF03174 0506 00462000 * CS(REG9,REG10,FMCCMPS2);/* CHANGE THE FMCB 0507 00463000 * @XM10957*/ 00464000 CS REG9,@10,FMCCMPS2(FMCBPTR) 0507 00465000 * BC(7,CSFLGB7); /* RETRY @XM10957*/ 00466000 BC 7,CSFLGB7 0508 00467000 * RFY 0509 00468000 * (REG9, 0509 00469000 * REG10) UNRSTD; 0509 00470000 * END; /* END 1ST 3270 OPER @XM10957*/ 00471000 * ELSE 0511 00472000 * ; /* FIRST I/O NON 3270@XM10957 */ 00473000 @RF00502 DS 0H 0512 00474000 * CRRINIO=ON; /* SET 'INITIATE I/O' FLAG IN CRR 00475000 * (FINISH CHECKS THIS FLAG) */ 00476000 OI CRRINIO(CRRPTR),B'00100000' 0512 00477000 * IF PROSETM4=PROSBLCK THEN/* IF 'READ BLOCK' IS 0513 00478000 * SPECIFIED */ 00479000 CLI PROSETM4+48(FMCBPTR),X'01' 0513 00480000 BNE @RF00513 0513 00481000 * LCCWRWOP=LRB; /* SPECIFY 'READ BLOCK' IN LCCW */ 00482000 L @10,LCPNXLCW(,LCPBPTR) 0514 00483000 NI LCCWRWOP(@10),B'11000110' 0514 00484000 OI LCCWRWOP(@10),B'00000110' 0514 00485000 * ELSE 0515 00486000 * IF PROSETM4=PROSMSG THEN/* IF 'READ MSG' IS 0515 00487000 * SPECIFIED */ 00488000 B @RC00513 0515 00489000 @RF00513 CLI PROSETM4+48(FMCBPTR),X'02' 0515 00490000 BNE @RF00515 0515 00491000 * LCCWRWOP=LRM; /* SPECIFY 'READ MSG'IN LCCW */ 00492000 L @10,LCPNXLCW(,LCPBPTR) 0516 00493000 NI LCCWRWOP(@10),B'11001010' 0516 00494000 OI LCCWRWOP(@10),B'00001010' 0516 00495000 * ELSE 0517 00496000 * IF PROSETM4=PROSTRNS THEN/* IF 'READ 0517 00497000 * TRANSMISSION' */ 00498000 B @RC00515 0517 00499000 @RF00515 CLI PROSETM4+48(FMCBPTR),X'03' 0517 00500000 BNE @RF00517 0517 00501000 * LCCWRWOP=LRT; /* THEN INDICATE IT IN LCCW */ 00502000 L @10,LCPNXLCW(,LCPBPTR) 0518 00503000 NI LCCWRWOP(@10),B'11001110' 0518 00504000 OI LCCWRWOP(@10),B'00001110' 0518 00505000 * ELSE 0519 00506000 * LCCWRWOP=LRCONT;/* INDICATE CONT IN LCCW */ 00507000 B @RC00517 0519 00508000 @RF00517 L @10,LCPNXLCW(,LCPBPTR) 0519 00509000 NI LCCWRWOP(@10),B'11011010' 0519 00510000 OI LCCWRWOP(@10),B'00011010' 0519 00511000 * END; /* END NOT 3270 DEV @XM10957*/ 00512000 @RC00517 DS 0H 0520 00513000 @RC00515 DS 0H 0520 00514000 @RC00513 DS 0H 0521 00515000 * RFY 0521 00516000 * (REG9, 0521 00517000 * REG10) RSTD; 0521 00518000 @RC00499 DS 0H 0522 00519000 *CS1: 0522 00520000 * REG9=FMCCMPS2; /* REFERENCE OLD FLAGS */ 00521000 CS1 L REG9,FMCCMPS2(,FMCBPTR) 0522 00522000 * REG10=REG9|FLGA06ON; /* TURN ON DATA EXPECTED AND READ 00523000 * DONE TO DEVICE */ 00524000 LR REG10,REG9 0523 00525000 O REG10,@CF04257 0523 00526000 * CS(REG9,REG10,FMCCMPS2);/* CHANGE FLAG VALUE */ 00527000 CS REG9,@10,FMCCMPS2(FMCBPTR) 0524 00528000 * BC(7,CS1); /* RETRY IF FAILED */ 00529000 BC 7,CS1 0525 00530000 * CRRDEXP=ON; /* FMCB AND CRR CONSTRUCT LCCW IN 00531000 * LCPB BASED ON POINTER IN CRR */ 00532000 OI CRRDEXP(CRRPTR),B'10000000' 0526 00533000 *CS2: 0527 00534000 * REG9=FMCCMPS2; /* REFERENCE OLD FLAGS */ 00535000 CS2 L REG9,FMCCMPS2(,FMCBPTR) 0527 00536000 * IF RPLDLGIN=OFF THEN /* IF CONTINUE ANY */ 00537000 TM RPLDLGIN(RPLPTR),B'10000000' 0528 00538000 BNZ @RF00528 0528 00539000 * REG10=REG9&FLGA1OFF; /* RESET SATISFY SPEC READ */ 00540000 LR REG10,REG9 0529 00541000 N REG10,@CF01327 0529 00542000 * ELSE 0530 00543000 * REG10=REG9|FLGA1ON; /* SET SATISFY SPECIFIC READ */ 00544000 B @RC00528 0530 00545000 @RF00528 LR REG10,REG9 0530 00546000 O REG10,@CF01329 0530 00547000 * CS(REG9,REG10,FMCCMPS2);/* SET NEW FLAG VALUES */ 00548000 @RC00528 CS REG9,@10,FMCCMPS2(FMCBPTR) 0531 00549000 * BC(7,CS2); /* TRY AGAIN IF FAILURE */ 00550000 BC 7,CS2 0532 00551000 * RFY 0533 00552000 * (REG9, 0533 00553000 * REG10) UNRSTD; 0533 00554000 * END; /* END OF DATA NOT EXPECTED DO */ 00555000 * ELSE 0535 00556000 * DO; /* DATA IS EXPECTED */ 00557000 B @RC00497 0535 00558000 @RF00497 DS 0H 0536 00559000 * CRRRTNCD=CRRLOGIC; /* LGIC ERROR */ 00560000 MVI CRRRTNCD(CRRPTR),X'08' 0536 00561000 * CRRFDB2=CRRINVRM; /* INVALID */ 00562000 MVI CRRFDB2(CRRPTR),X'2A' 0537 00563000 * END; /* END-DATA IS EXPECTED */ 00564000 * ELSE 0539 00565000 * DO; 0539 00566000 B @RC00491 0539 00567000 @RF00491 DS 0H 0540 00568000 * CRRFDB2=CRRIDA; /* SET 'INVALID INPUT AREA' FLAG 00569000 * IN CRR */ 00570000 MVI CRRFDB2(CRRPTR),X'17' 0540 00571000 * CRRRTNCD=CRRLOGIC; /* INDICATE 'LOGIC ERROR'IN CRR */ 00572000 MVI CRRRTNCD(CRRPTR),X'08' 0541 00573000 * END; 0542 00574000 * RFY 0543 00575000 * RESUMEAD RSTD; 0543 00576000 @RC00491 DS 0H 0544 00577000 * RESUMEAD=CRRRTN9; /* RESTORE RETURN ADDR (REG 14) */ 00578000 L RESUMEAD,CRRRTN9(,CRRPTR) 0544 00579000 * END PROCESSB; /* RETURN TO MAINLINE */ 00580000 @EL00002 DS 0H 0545 00581000 @EF00002 DS 0H 0545 00582000 @ER00002 BR @14 0545 00583000 * 0546 00584000 */********************************************************************/ 00585000 */* */ 00586000 */* ROUTINE NAME : PROCESSC - MOVE DATA SET-UP */ 00587000 */* */ 00588000 */* FUNCTION : FILLS THE CRR PARM LIST FROM THE RPL. IT THEN CALLS */ 00589000 */* MOVE (ISTDCC60) TO MOVE DATA TO THE USER S INPUT AREA, AND */ 00590000 */* CALLS PROCESSCA TO PROCESS MORE DATA IF NECESSARY. */ 00591000 */* */ 00592000 */* INPUT : SEE THE INPUT TABLE BELOW */ 00593000 */* */ 00594000 */* OUTPUT : SEE THE OUTPUT TABLE BELOW */ 00595000 */* */ 00596000 */* SUBROUTINES CALLED : PROCESSCA */ 00597000 */* */ 00598000 */* MACROS USED : VMDESET , VSETLCK */ 00599000 */* */ 00600000 */********************************************************************/ 00601000 */* * * * * * * * * INPUT TABLE FOR PROCESSC * * * * * * * * * * * * */ 00602000 */* */ 00603000 */* RPLAREA MUST CONTAIN THE ADDR OF THE USER AREA */ 00604000 */* RPLRLEN MUST CONTAIN THE LENGTH OF THE USER AREA */ 00605000 */* LCPIOBUF MUST CONTAIN THE RESUME ADDRESS FOR TRANSFER TO CRR */ 00606000 */* LCPIOLEN MUST CONTAIN THE RESUME LENGTH */ 00607000 */* ATCDCC60 MUST CONTAIN THE ADDRESS OF ISTDCC60 (MOVE ROUTINE) */ 00608000 */* CRRBTLEN MUST CONTAIN THE TOTAL LENGTH OF THE RECORD MOVED */ 00609000 */* */ 00610000 */* * * * * * * * * * OUTPUT FROM PROCESSC* * * * * * * * * * * * * **/ 00611000 */* */ 00612000 */* FIELDS LISTED BELOW COMPRISE POSSIBLE OUTPUT FROM THIS PROCEDURE.*/ 00613000 */* IF A FIELD IS ASSIGNED A VALUE FROM AN INPUT FIELD, THE INPUT */ 00614000 */* FIELD IS NOTED BETWEEN ASTERISKS. IF A FIELD'S BEING SET IS */ 00615000 */* LOGICALLY DEPENDENT UPON A TEST OF AN INPUT FIELD, THE INPUT */ 00616000 */* FIELD IS SHOWN BETWEEN PARENTHESES: */ 00617000 */* */ 00618000 */* CRRBARAD*RPLAREA* CRRBLDAD CRRBLEN*RPLRLEN* */ 00619000 */* CRRBTLEN MOVEADDR*ATCDCC60* CRRSW0 */ 00620000 */* RPLRLEN*CRRBTLEN* CRRRTN2*RESUMEAD* RESUMEAD*CRRRTN2* */ 00621000 */* */ 00622000 */* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/ 00623000 * 0546 00624000 *PROCESSC: 0546 00625000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA); 0546 00626000 PROCESSC DS 0H 0547 00627000 * CRRRTN2=RESUMEAD; /* SAVE RETURN ADDR (REG14) */ 00628000 ST RESUMEAD,CRRRTN2(,CRRPTR) 0547 00629000 * RFY 0548 00630000 * RESUMEAD UNRSTD; 0548 00631000 * RFY 0549 00632000 * ISTDCLCP BASED(FSBLCPB); /* ESTAB ADDR FOR LCPB USING ADDR 00633000 * OBTAINED FROM FSB */ 00634000 * CRRBARAD=RPLAREA; /* PUT AREA ADDRESS IN CRR PARM 00635000 * LIST */ 00636000 L @10,RPLAREA(,RPLPTR) 0550 00637000 ST @10,CRRBARAD(,CRRPTR) 0550 00638000 * CRRBLEN=RPLBUFL; /* PUT USER AREA LENGTH IN CRR 0551 00639000 * PARM LIST */ 00640000 L @10,RPLBUFL(,RPLPTR) 0551 00641000 STH @10,CRRBLEN(,CRRPTR) 0551 00642000 * CRRBTLEN=CLEAR; /* SET TOTAL LENGTH IN CRR PARM 00643000 * LIST TO ZERO */ 00644000 SLR @10,@10 0552 00645000 ST @10,CRRBTLEN(,CRRPTR) 0552 00646000 * CRRSW0=ON; /* INIT LOOP CONTROL TO ENTER */ 00647000 OI CRRSW0(CRRPTR),B'10000000' 0553 00648000 * DO WHILE(CRRSW0=ON); /* DO-WHILE GROUP TO MOVE DATA TO 00649000 * USER'S INPUT AREA. */ 00650000 B @DE00554 0554 00651000 @DL00554 DS 0H 0555 00652000 * 0555 00653000 */*VMDESET ((15),ZERO) */ 00654000 * 0555 00655000 * DO; /* INVOKE MODESET MACRO */ 00656000 * GEN; 0556 00657000 MODESET EXTKEY=ZERO,WORKREG=2 00658000 * RFY 0557 00659000 * (GPR15P) RSTD; 0557 00660000 * GPR15F=0; 0558 00661000 SLR GPR15F,GPR15F 0558 00662000 * RFY 0559 00663000 * (GPR15P) UNRSTD; /* PUT RETURN CODE IN RCREG */ 00664000 * END; /* VMDESET SWITCH TO KEY 0 */ 00665000 */*VSETLCK (15,OBTAIN,LOCAL,(LOCAL,ISTDCC21(UNLOCK1)),) */ 00666000 * 0561 00667000 *LOCK1: 0561 00668000 * DO; /* DECLARE AND RESTRICT REGS 0561 00669000 * 2,10,11,12,13,14, AND 15 */ 00670000 LOCK1 DS 0H 0562 00671000 * RFY 0562 00672000 * (GPR02P, 0562 00673000 * GPR10P, 0562 00674000 * GPR11P, 0562 00675000 * GPR12P, 0562 00676000 * GPR13P, 0562 00677000 * GPR14P, 0562 00678000 * GPR15P) RSTD; /* SAVE REGS 2 AND 10 THRU 14 */ 00679000 * GEN REFS(GPR02F,GPR10F,GPR11F,GPR12F,GPR14F,GPR13P); 0563 00680000 STM GPR10F,GPR12F,0(GPR13P) 00681000 ST GPR14F,12(GPR13P) 00682000 ST GPR02F,16(GPR13P) 00683000 * /* INVOKE MODESET TO CHANGE PSW 00684000 * PROTECTION KEY TO 0 */ 00685000 * GEN SETS(2); 0564 00686000 MODESET EXTKEY=ZERO,SAVEKEY=(2),WORKREG=2 00687000 * GPR10P=GPR13P; /* PUT SAVE AREA ADDR IN R 10 0565 00688000 * INVOKE OS/VS SETLOCK MACRO */ 00689000 LR GPR10P,GPR13P 0565 00690000 * GEN REFS(GPR13P,PSALITA,FLC) SETS(GPR12F); 0566 00691000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, *00692000 RELATED=(LOCAL,ISTDCC21(UNLOCK1)) 00693000 * GPR15P=GPR13P; /* PUT RETURN CODE IN R 15 INVOKE 00694000 * MODESET MACRO TO */ 00695000 LR GPR15P,GPR13P 0567 00696000 * DO; /* RESTORE PSW PROTECTION KEY */ 00697000 * GEN SETS(2); 0569 00698000 MODESET KEYADDR=(2),WORKREG=2 00699000 * END; /* RESTORE REGISTERS */ 00700000 * GEN REFS(GPR10F,GPR13P) SETS(GPR10F,GPR11F,GPR12F,GPR13F,GPR14F 00701000 * ,GPR02F); 0571 00702000 LR GPR13F,GPR10F 00703000 LM GPR10F,GPR12F,0(GPR13P) 00704000 L GPR14F,12(GPR13P) 00705000 L GPR02F,16(GPR13P) 00706000 * IF GPR15F=4 THEN 0572 00707000 C GPR15F,@CF00044 0572 00708000 BNE @RF00572 0572 00709000 * GPR15F=0; 0573 00710000 SLR GPR15F,GPR15F 0573 00711000 * RFY 0574 00712000 * (GPR02P, 0574 00713000 * GPR10P, 0574 00714000 * GPR11P, 0574 00715000 * GPR12P, 0574 00716000 * GPR13P, 0574 00717000 * GPR14P, 0574 00718000 * GPR15P) UNRSTD; 0574 00719000 @RF00572 DS 0H 0575 00720000 * END; /* LOCK1:VSETLCK LOCK LOCAL USER 00721000 * STORAGE */ 00722000 * RFY 0576 00723000 * ATCVTPTR RSTD; /* RESTRICT ATCVT BASE FOR USE IN 00724000 * CALL TO MOVE */ 00725000 * ATCVTPTR=CRRATCVT; /* GET ADDR OF ATCVT */ 00726000 L ATCVTPTR,CRRATCVT(,CRRPTR) 0577 00727000 * RFY 0578 00728000 * ISTATCVT BASED(ATCVTPTR); /* ESTABLISH ADDRESSABILITY FOR 00729000 * ATCVT, WHICH CONTAINS THE 0578 00730000 * ADDRESS OF MOVE */ 00731000 * CRRSW0=OFF; /* CRRSW0 WILL BE SET=ON BY 0579 00732000 * PROCESSD WHENEVER DATA REMAINS 00733000 * TO BE MOVED. */ 00734000 NI CRRSW0(CRRPTR),B'01111111' 0579 00735000 * CRRPTR=ADDR(CRRSAVE1); /* COVER SAVE AREA FOR MOVE 0580 00736000 * ROUTINE (CRRPTR IS REG 13) */ 00737000 LA @10,CRRSAVE1(,CRRPTR) 0580 00738000 LR CRRPTR,@10 0580 00739000 * CALL MOVERTN; /* CALL MOVE (ISTDCC60) TO MOVE 00740000 * DATA TO USER'S AREA (MOVERTN 00741000 * IS DECLARED IN READ AS AN 0581 00742000 * ENTRY BASED UPON ATCDVV60 IN 00743000 * ATCVT) */ 00744000 L @15,ATCDCC60(,ATCVTPTR) 0581 00745000 BALR @14,@15 0581 00746000 * CRRPTR=ADDR(CRRSPACE); /* RESTORE CRR BASE */ 00747000 L CRRPTR,RPHCRR(,RPHPTR) 0582 00748000 LA CRRPTR,CRRSPACE+312(,CRRPTR) 0582 00749000 * RPLRLEN=CRRBTLEN; /* LET USER KNOW HOW MUCH DATA 0583 00750000 * WAS ACTUALLY MOVED */ 00751000 L @10,CRRBTLEN(,CRRPTR) 0583 00752000 ST @10,RPLRLEN(,RPLPTR) 0583 00753000 */*VSETLCK (15,RELEASE,LOCAL,(LOCAL,ISTDCC21(LOCK1)),) */ 00754000 * 0584 00755000 *UNLOCK1: 0584 00756000 * DO; /* DECLARE AND RESTRICT REGS 0584 00757000 * 2,10,11,12,13,14, AND 15 */ 00758000 UNLOCK1 DS 0H 0585 00759000 * RFY 0585 00760000 * (GPR02P, 0585 00761000 * GPR10P, 0585 00762000 * GPR11P, 0585 00763000 * GPR12P, 0585 00764000 * GPR13P, 0585 00765000 * GPR14P, 0585 00766000 * GPR15P) RSTD; /* SAVE REGS 2 AND 10 THRU 14 */ 00767000 * GEN REFS(GPR02F,GPR10F,GPR11F,GPR12F,GPR14F,GPR13P); 0586 00768000 STM GPR10F,GPR12F,0(GPR13P) 00769000 ST GPR14F,12(GPR13P) 00770000 ST GPR02F,16(GPR13P) 00771000 * /* INVOKE MODESET TO CHANGE PSW 00772000 * PROTECTION KEY TO 0 */ 00773000 * GEN SETS(2); 0587 00774000 MODESET EXTKEY=ZERO,SAVEKEY=(2),WORKREG=2 00775000 * GPR10P=GPR13P; /* PUT SAVE AREA ADDR IN R 10 0588 00776000 * INVOKE OS/VS SETLOCK MACRO */ 00777000 LR GPR10P,GPR13P 0588 00778000 * GEN REFS(GPR13P,PSALITA,FLC) SETS(GPR12F); 0589 00779000 SETLOCK RELEASE,TYPE=LOCAL, *00780000 RELATED=(LOCAL,ISTDCC21(LOCK1)) 00781000 * GPR15P=GPR13P; /* PUT RETURN CODE IN R 15 INVOKE 00782000 * MODESET MACRO TO */ 00783000 LR GPR15P,GPR13P 0590 00784000 * DO; /* RESTORE PSW PROTECTION KEY */ 00785000 * GEN SETS(2); 0592 00786000 MODESET KEYADDR=(2),WORKREG=2 00787000 * END; /* RESTORE REGISTERS */ 00788000 * GEN REFS(GPR10F,GPR13P) SETS(GPR10F,GPR11F,GPR12F,GPR13F,GPR14F 00789000 * ,GPR02F); 0594 00790000 LR GPR13F,GPR10F 00791000 LM GPR10F,GPR12F,0(GPR13P) 00792000 L GPR14F,12(GPR13P) 00793000 L GPR02F,16(GPR13P) 00794000 * IF GPR15F=4 THEN 0595 00795000 C GPR15F,@CF00044 0595 00796000 BNE @RF00595 0595 00797000 * GPR15F=0; 0596 00798000 SLR GPR15F,GPR15F 0596 00799000 * RFY 0597 00800000 * (GPR02P, 0597 00801000 * GPR10P, 0597 00802000 * GPR11P, 0597 00803000 * GPR12P, 0597 00804000 * GPR13P, 0597 00805000 * GPR14P, 0597 00806000 * GPR15P) UNRSTD; 0597 00807000 @RF00595 DS 0H 0598 00808000 * END; /* UNLOCK1:VSETLCK UNLOCK LOCAL 00809000 * USER'S STORAGE */ 00810000 */*VMDESET ((15),ATCAM) */ 00811000 * 0599 00812000 * DO; /* INVOKE MODESET MACRO */ 00813000 * GEN; 0600 00814000 MODESET EXTKEY=VTAM,WORKREG=2 00815000 * RFY 0601 00816000 * (GPR15P) RSTD; 0601 00817000 * GPR15F=0; 0602 00818000 SLR GPR15F,GPR15F 0602 00819000 * RFY 0603 00820000 * (GPR15P) UNRSTD; /* PUT RETURN CODE IN RCREG */ 00821000 * END; /* VMDESET SWITCH BACK TO 0604 00822000 * ORIGINAL KEY */ 00823000 * IF CRRBRTCDPABWEQA|FMZCA005; 0675 01149000 L @10,@CF01323 0675 01150000 L GPR14P,PABWEQA(,GPR15P) 0675 01151000 OR GPR14P,@10 0675 01152000 * IF GPR14P=FMZCA005 THEN 0676 01153000 CLR GPR14P,@10 0676 01154000 BE @RT00676 0676 01155000 * ; 0677 01156000 * ELSE 0678 01157000 * DO; 0678 01158000 * GPR00P=FMZCA005; /* INITIALIZE QUIT FLAG */ 01159000 L GPR00P,@CF01323 0679 01160000 * DO WHILE(GPR00P^=GPR14P->WKECHAIN); 0680 01161000 B @DE00680 0680 01162000 @DL00680 DS 0H 0681 01163000 * GPR14P=GPR14P->WKECHAIN;/* SEARCH FOR END OF CHAIN */ 01164000 L GPR14P,WKECHAIN(,GPR14P) 0681 01165000 * END; 0682 01166000 @DE00680 C GPR00P,WKECHAIN(,GPR14P) 0682 01167000 BNE @DL00680 0682 01168000 * END; 0683 01169000 * GPR14P=GPR14P&FMZCB005; 0684 01170000 @RT00676 N GPR14P,@CF01321 0684 01171000 * FSBPTR=GPR14P; 0685 01172000 LR FSBPTR,GPR14P 0685 01173000 * RFY 0686 01174000 * (GPR00P, 0686 01175000 * GPR01P, 0686 01176000 * GPR14P, 0686 01177000 * GPR15P) UNRSTD; 0686 01178000 * END; /* END TPFEL GENERATION GET @ FSB 01179000 * FROM FMCB */ 01180000 * IF FSBPTR=CLEAR THEN /* IF @ FSB IS ZERO, THERE IS NO 01181000 * ADDIT'L DATA TO MOVE */ 01182000 SLR @10,@10 0688 01183000 CR FSBPTR,@10 0688 01184000 BNE @RF00688 0688 01185000 * IF LCPBPTR^=CLEAR THEN /* TEST FOR UNSOLICITED INPUT 0689 01186000 * K0931 */ 01187000 CR LCPBPTR,@10 0689 01188000 BE @RF00689 0689 01189000 * IF CRRERLK=ON THEN /* TEST FOR ERROR LOCK K0931 */ 01190000 TM CRRERLK(CRRPTR),B'10000000' 0690 01191000 BNO @RF00690 0690 01192000 * DCLRPLA=CLEAR; /* FINISHED WITH THIS RPL K0931 */ 01193000 ST @10,DCLRPLA(,LCPBPTR) 0691 01194000 * ELSE 0692 01195000 * DO; /* ERROR LOCK NOT SET K0931 */ 01196000 B @RC00690 0692 01197000 @RF00690 DS 0H 0693 01198000 * DCLIOBUF=CRRBARAD; /* PUT RESUME ADDR FROM CRR PARM 01199000 * LIST INTO LCPB */ 01200000 L @10,CRRBARAD(,CRRPTR) 0693 01201000 ST @10,DCLIOBUF(,LCPBPTR) 0693 01202000 * DCLIOLEN=CRRBLEN; /* PUT RESIDUAL LENGTH FROM CRR 01203000 * PARM LIST INTO LCPB */ 01204000 LH @10,CRRBLEN(,CRRPTR) 0694 01205000 STH @10,DCLIOLEN(,LCPBPTR) 0694 01206000 * DCLBTLEN=CRRBTLEN; /* PUT TOTAL LENGTH FROM CRR PARM 01207000 * LIST INTO LCPB */ 01208000 L @10,CRRBTLEN(,CRRPTR) 0695 01209000 ST @10,DCLBTLEN(,LCPBPTR) 0695 01210000 * DCLRPLA=RPLPTR; /* PUT ADDR RPL IN LCPB */ 01211000 ST RPLPTR,DCLRPLA(,LCPBPTR) 0696 01212000 * DCLRQTP=DCLREAD; /* MAKE REQUEST CODE READ */ 01213000 MVI DCLRQTP(LCPBPTR),X'1D' 0697 01214000 * CRRSUBBK=ON; /* INDICATE 'AWAITING SUBBLOCK' 01215000 * IN CRR */ 01216000 OI CRRSUBBK(CRRPTR),B'00000100' 0698 01217000 * END; /* END OF FSBPTR=0 DO GROUP */ 01218000 * ELSE 0700 01219000 * ; /* FSB DIDN'T PT TO LCPB K0931 */ 01220000 @RF00689 DS 0H 0701 01221000 * ELSE 0701 01222000 * DO; /* BUT IF THERE ARE SUBBLOCKS */ 01223000 B @RC00688 0701 01224000 @RF00688 DS 0H 0702 01225000 * CRRFSB=FSBPTR; /* PUT FSB ADDR IN CRR */ 01226000 ST FSBPTR,CRRFSB(,CRRPTR) 0702 01227000 * CRRSW0=ON; /* INDICATE TO PROCESSC - 'MORE 01228000 * DATA TO PROCESS' */ 01229000 OI CRRSW0(CRRPTR),B'10000000' 0703 01230000 * END; 0704 01231000 * END; 0705 01232000 * ELSE 0706 01233000 * ; 0706 01234000 @RF00670 DS 0H 0707 01235000 * RFY 0707 01236000 * RESUMEAD RSTD; 0707 01237000 @RC00670 DS 0H 0708 01238000 * RESUMEAD=CRRRTN4; /* RESTORE RETURN ADDR (REG14) */ 01239000 L RESUMEAD,CRRRTN4(,CRRPTR) 0708 01240000 * END PROCESSD; /* RETURN TO PROCESCA */ 01241000 @EL00005 DS 0H 0709 01242000 @EF00005 DS 0H 0709 01243000 @ER00005 BR @14 0709 01244000 * 0710 01245000 */********************************************************************/ 01246000 */* */ 01247000 */* ROUTINE NAME : PROCESSE - DEQUEUE AND FREE FSB(S) AND FDB(S) */ 01248000 */* */ 01249000 */* FUNCTION : CALLED TO DEQUEUE FSB (S) AND TO FREE STORAGE OCCUPIED*/ 01250000 */* BY FSB(S) AND ASSOCIATED FDB(S).IF CONFIDENTIAL TEXT IS INDICATED*/ 01251000 */* IN RPL, THE FREED STORAGE IS ERASED. ONLY ONE FSB AND ITS */ 01252000 */* ASSOCIATED FDB(S) ARE FREED, UNLESS CRRSW2 WAS SET ON IN PROCESCA*/ 01253000 */* AS AN INDICATION THAT MOVE HAS RETURNED A CODE 4, MEANING 'MORE */ 01254000 */* DATA REMAINS BUT MOVE CANNOT HANDLE IT', OR AS AN INDICATION THAT*/ 01255000 */* THE RESIDUAL LENGTH IN THE CRR PARM LIST IS ZERO AND THE FSB */ 01256000 */* PREVIOUSLY FREED WAS A SUBBLOCK. IN EITHER CASE, PROCESSE IS */ 01257000 */* CALLED WITH CRRSW2=ON ONLY IF THE USER DID NOT REQUEST 'KEEP' */ 01258000 */* */ 01259000 */* INPUT : SEE INPUT TABLE BELOW */ 01260000 */* */ 01261000 */* OUTPUT : SEE OUTPUT TABLE BELOW */ 01262000 */* */ 01263000 */* SUBROUTINES CALLED : LCPBINIT */ 01264000 */* */ 01265000 */* MACROS USED : TPDEQ , RELSTORE(2) */ 01266000 */* */ 01267000 */********************************************************************/ 01268000 */* * * * * * * * * INPUT TABLE FOR PROCESSE * * * * * * * * * * * * */ 01269000 */* */ 01270000 */* DEQPTR MUST BE SET BY TPDEQ MACRO TO THE ADDRESS OF THE FSB */ 01271000 */* THAT IS DEQUEUED -- IT WILL BE USED AS A POINTER TO */ 01272000 */* DEQUEUE FSB AND FDB USING RELSTOR */ 01273000 */* FSBEBI , FSBEMI, OR FSBETI MUST BE SET FOR FSB'S THAT */ 01274000 */* REPRESENT EOB, EOM, OR EOT FOR THE SUBBLOCKS BEING FREED */ 01275000 */* IN PROCESSE */ 01276000 */* FDBFDBA IS A FORWARD POINTER IN EVERY FDB -- IN THE LAST */ 01277000 */* FDB ON THE CHAIN, FDBFDBA IS ZERO */ 01278000 */* FDBOFSET CONTAINS THE NEGATIVE DISPLACEMENT FROM THE */ 01279000 */* BEGINNING OF FDB TO BE USED IN FREEING FDB'S */ 01280000 */* FMCMDCTX MUST BE SET IF TEXT REPRESENTED BY FMCB IS */ 01281000 */* CONFIDENTIAL */ 01282000 */* */ 01283000 */* * * * * * * * * * OUTPUT FROM PROCESSE* * * * * * * * * * * * * **/ 01284000 */* */ 01285000 */* FIELDS LISTED BELOW COMPRISE POSSIBLE OUTPUT FROM THIS PROCEDURE.*/ 01286000 */* IF A FIELD IS ASSIGNED A VALUE FROM AN INPUT FIELD, THE INPUT */ 01287000 */* FIELD IS NOTED BETWEEN ASTERISKS. IF A FIELD'S BEING SET IS */ 01288000 */* LOGICALLY DEPENDENT UPON A TEST OF AN INPUT FIELD, THE INPUT */ 01289000 */* FIELD IS SHOWN BETWEEN PARENTHESES: */ 01290000 */* */ 01291000 */* CRRSW2(FSBEBI ,FSBEMI ,FSBETI ,DEQPTR) */ 01292000 */* CRRRTN5*RESUMEAD* RESUMEAD*CRRRTN5* FDBPTR*FDBFDBA* */ 01293000 */* DEQPTR(RETURNED FROM TPDEQ)*FDBPTR+FDBOFSET */ 01294000 */* FMCFLGA3(DEQPTR) */ 01295000 */* */ 01296000 */* * * ** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 01297000 * 0710 01298000 *PROCESSE: 0710 01299000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA); 0710 01300000 PROCESSE DS 0H 0711 01301000 * CRRRTN5=RESUMEAD; /* SAVE RETURN ADDRESS (REG14) */ 01302000 ST RESUMEAD,CRRRTN5(,CRRPTR) 0711 01303000 * RFY 0712 01304000 * RESUMEAD UNRSTD; 0712 01305000 * 0712 01306000 */* FIX FOR ZTR # 5688 */ 01307000 * 0713 01308000 * CRRSW4=ON; /* SET CTL SW SO THAT AT LEAST 0713 01309000 * ONE FSB & ASSOC FDB(S) ARE 0713 01310000 * FREED */ 01311000 OI CRRSW4(CRRPTR),B'00001000' 0713 01312000 * DO WHILE CRRSW4=ON|CRRSW2=ON; /* PM5688 */ 01313000 B @DE00714 0714 01314000 @DL00714 DS 0H 0715 01315000 * CRRSW4=OFF; /* RESET SW4 SO ONLY ONE FSB 0715 01316000 * (PM5688) IS FREED UNLESS 0715 01317000 * INDICATED BY CRRSW2 CRRSW2 0715 01318000 * INDICATES WHETHER ONY ONE FSB 01319000 * AND ASSOCIATED FDB(S) WILL BE 01320000 * FREED, OR IF ALL FSB'S THROUGH 01321000 * AN EOB, EOT, OR EOM (OR 0715 01322000 * THROUGH THE END OF THE DATA 0715 01323000 * QUEUE IF NO EOB IS FOUND) WILL 01324000 * BE FREED. IF CRRSW2 IS IS 0715 01325000 * SET=ON AT ENTRY TO PROCESSE, 01326000 * PROCESSING WILL CONTINUE UNTIL 01327000 * ALL ELI- GIBLE FSB'S AND FDB'S 01328000 * ARE DEQUEUED AND FREED. IF 0715 01329000 * CRRSW2=OFF AT ENTRY TO 0715 01330000 * PROCESSE, ONLY ONE FSB AND ITS 01331000 * RELATED FDB(S) WILL BE 0715 01332000 * DEQUEUED AND FREED. */ 01333000 NI CRRSW4(CRRPTR),B'11110111' 0715 01334000 */* TPDEQ (,FMCFBA) RETPTR(FSBPTR) */ 01335000 * 0716 01336000 * DO; /* BEGIN TPDEQ CODE GENERATION */ 01337000 * RFY 0717 01338000 * (GPR00P, 0717 01339000 * GPR01P, 0717 01340000 * GPR14P, 0717 01341000 * GPR15P) RSTD; 0717 01342000 * GPR15P=ADDR(FMCFBA); /* ADDRESS QUEUE POINTER */ 01343000 LA GPR15P,FMCFBA(,FMCBPTR) 0718 01344000 * GPR14P=GPR15P->PABWEQA|FMZCA005; 0719 01345000 L @10,@CF01323 0719 01346000 L GPR14P,PABWEQA(,GPR15P) 0719 01347000 OR GPR14P,@10 0719 01348000 * IF GPR14P=FMZCA005 THEN 0720 01349000 CLR GPR14P,@10 0720 01350000 BE @RT00720 0720 01351000 * ; 0721 01352000 * ELSE 0722 01353000 * DO; 0722 01354000 *FMZL1033: 0723 01355000 * ; 0723 01356000 FMZL1033 DS 0H 0724 01357000 * DO WHILE(GPR14P->WKECHAIN^=FMZCA005); 0724 01358000 B @DE00724 0724 01359000 @DL00724 DS 0H 0725 01360000 * GPR15P=ADDR(GPR14P->WKECHAIN); 0725 01361000 LA GPR15P,WKECHAIN(,GPR14P) 0725 01362000 * GPR14P=GPR15P->PABWEQA; 0726 01363000 L GPR14P,PABWEQA(,GPR15P) 0726 01364000 * END; 0727 01365000 @DE00724 L @10,@CF01323 0727 01366000 CL @10,WKECHAIN(,GPR14P) 0727 01367000 BNE @DL00724 0727 01368000 * GPR00P=FMZCA005; 0728 01369000 LR GPR00P,@10 0728 01370000 * CS(GPR14P,GPR00P,GPR15P->PABWEQA); 0729 01371000 CS GPR14P,@00,PABWEQA(GPR15P) 0729 01372000 * BC(7,FMZL1033); 0730 01373000 BC 7,FMZL1033 0730 01374000 * GPR14P->WKECHAIN=0; 0731 01375000 SLR @10,@10 0731 01376000 ST @10,WKECHAIN(,GPR14P) 0731 01377000 * END; 0732 01378000 *ISTA0033: 0733 01379000 * ; 0733 01380000 @RT00720 DS 0H 0733 01381000 ISTA0033 DS 0H 0734 01382000 * GPR14P=GPR14P&FMZCB005; 0734 01383000 N GPR14P,@CF01321 0734 01384000 * FSBPTR=GPR14P; 0735 01385000 LR FSBPTR,GPR14P 0735 01386000 * RFY 0736 01387000 * (GPR00P, 0736 01388000 * GPR01P, 0736 01389000 * GPR14P, 0736 01390000 * GPR15P) UNRSTD; 0736 01391000 * END; /* END TPDEQ GENERATION DEQUEUE 01392000 * FSB FROM FMCB AND GET ADDR OF 01393000 * FSB DQ'D */ 01394000 * IF FSBPTR=CLEAR| /* IF THERE ARE NO MORE FSBS */ 01395000 * FSBPTR=GATE0 THEN /* ON THE QUEUE, */ 01396000 LTR FSBPTR,FSBPTR 0738 01397000 BZ @RT00738 0738 01398000 CL FSBPTR,@CF01323 0738 01399000 BNE @RF00738 0738 01400000 @RT00738 DS 0H 0739 01401000 * DO; 0739 01402000 * 0739 01403000 */* LINES # 473600 - 473900 REMOVED FOR DCR 1973 ( 9/17/73 ) */ 01404000 * 0740 01405000 * RFY 0740 01406000 * (REG9, 0740 01407000 * REG10) RSTD; 0740 01408000 * REG9=FMCCMPS2; /* REFERENCE OLD FLAG VALUE */ 01409000 L REG9,FMCCMPS2(,FMCBPTR) 0741 01410000 *CS4: 0742 01411000 * REG10=REG9|FLGA3ON; /* SET FLUSH BIT IN FMCB TO CAUSE 01412000 * REMAINDER OF DATA THROUGH EOB 01413000 * TO BE THROWN AWAY */ 01414000 CS4 LR REG10,REG9 0742 01415000 O REG10,@CF01341 0742 01416000 * CS(REG9,REG10,FMCCMPS2); /* SET NEW FLAG VALUE */ 01417000 CS REG9,@10,FMCCMPS2(FMCBPTR) 0743 01418000 * BC(7,CS4); /* TRY AGAIN IF FAILURE */ 01419000 BC 7,CS4 0744 01420000 * RFY 0745 01421000 * (REG9, 0745 01422000 * REG10) UNRSTD; 0745 01423000 * 0745 01424000 */* LINES # 475700 - 477000 REMOVED FOR DCR 1973 ( 9/17/73 ) */ 01425000 * 0746 01426000 * CRRSW2=OFF; /* INDICATE END OF PROCESSING FOR 01427000 * THIS DO-WHILE GROUP */ 01428000 NI CRRSW2(CRRPTR),B'11011111' 0746 01429000 * END; 0747 01430000 * 0747 01431000 */* LINES # 478500 - 480500 REMOVED FOR DCR 1973 ( 9/17/73 ) */ 01432000 * 0748 01433000 * ELSE /* MORE FSBS MUST BE DEQUEUED */ 01434000 * DO; 0748 01435000 * 0748 01436000 B @RC00738 0748 01437000 @RF00738 DS 0H 0749 01438000 */* LINE 482000 CHANGED FOR DCR 2008 ( 9/17/73 ) */ 01439000 * 0749 01440000 * IF FSBEBI=ON|FSBLGI=ON|FSBSOHI=ON|FSBMJRCD^=FRNORM|LCPBPTR= 01441000 * CLEAR THEN 0749 01442000 TM FSBEBI(FSBPTR),B'00100011' 0749 01443000 BNZ @RT00749 0749 01444000 CLI FSBMJRCD(FSBPTR),X'00' 0749 01445000 BNE @RT00749 0749 01446000 LTR LCPBPTR,LCPBPTR 0749 01447000 BNZ @RF00749 0749 01448000 @RT00749 DS 0H 0750 01449000 * CRRSW2=OFF; /* INDICATE ALL FSBS FOR ONE READ 01450000 * IDENTIFIED */ 01451000 NI CRRSW2(CRRPTR),B'11011111' 0750 01452000 * ELSE 0751 01453000 * ; 0751 01454000 @RF00749 DS 0H 0752 01455000 * IF FSBMNELI=ON THEN 0752 01456000 TM FSBMNELI(FSBPTR),B'10000000' 0752 01457000 BNO @RF00752 0752 01458000 * DO; /* INDICATE ERROR LOCK */ 01459000 * CRRELSRI=ON; 0754 01460000 OI CRRELSRI(CRRPTR),B'00001000' 0754 01461000 * CRRSW2=OFF; 0755 01462000 NI CRRSW2(CRRPTR),B'11011111' 0755 01463000 * END; 0756 01464000 * ELSE 0757 01465000 * ; /* FSB ERROR LOCK NOT ON */ 01466000 @RF00752 DS 0H 0758 01467000 * RFY 0758 01468000 * COUNTER RSTD; 0758 01469000 * FDBPTR=ADDR(FSBFDB); /* ADDRESS THE FDB */ 01470000 LA FDBPTR,FSBFDB(,FSBPTR) 0759 01471000 * COUNTER=0; 0760 01472000 SLR COUNTER,COUNTER 0760 01473000 * DO WHILE(FDBPTR^=0); /* LOOP THROUGH FDB'S */ 01474000 B @DE00761 0761 01475000 @DL00761 DS 0H 0762 01476000 * COUNTER=COUNTER+1; 0762 01477000 AL COUNTER,@CF00067 0762 01478000 * FDBPTR=FDBFDBA; /* GET NEXT FDB ADDRESS */ 01479000 L FDBPTR,FDBFDBA(,FDBPTR) 0763 01480000 * END; /* END DO WHILE */ 01481000 @DE00761 LTR FDBPTR,FDBPTR 0764 01482000 BNZ @DL00761 0764 01483000 * RFY 0765 01484000 * (REG9, 0765 01485000 * REG10) RSTD; 0765 01486000 *C21A: 0766 01487000 * REG9=FMCCMPS1; 0766 01488000 C21A L REG9,FMCCMPS1(,FMCBPTR) 0766 01489000 * REG10=REG9-COUNTER; /* DECREMENT BUFFER COUNT */ 01490000 LR REG10,REG9 0767 01491000 SLR REG10,COUNTER 0767 01492000 * CS(REG9,REG10,FMCCMPS1); 0768 01493000 CS REG9,@10,FMCCMPS1(FMCBPTR) 0768 01494000 * BC(7,C21A); 0769 01495000 * 0769 01496000 BC 7,C21A 0769 01497000 */* LINES ADDED FOR DCR 1973 ( 9/17/73 ) */ 01498000 * 0770 01499000 * IF FMCBUFNB=CLEAR THEN 0770 01500000 LH @03,FMCBUFNB(,FMCBPTR) 0770 01501000 N @03,@CF04384 0770 01502000 LTR @03,@03 0770 01503000 BNZ @RF00770 0770 01504000 * DO; /* ALL DATA HAS BEEN READ */ 01505000 *CS21B: 0772 01506000 * REG9=FMCCMPS2; /* GET THE FLAG WORD @XM00268*/ 01507000 CS21B L REG9,FMCCMPS2(,FMCBPTR) 0772 01508000 * REG10=REG9&FLGA5OFF; /* TURN OFF THE THRESHOLD BIT */ 01509000 LR REG10,REG9 0773 01510000 N REG10,@CF01335 0773 01511000 * CS(REG9,REG10,FMCCMPS2);/* TURN OFF THRESHOLD BIT IN 0774 01512000 * THE FMCB @XM00268*/ 01513000 CS REG9,@10,FMCCMPS2(FMCBPTR) 0774 01514000 * BC(7,CS21B); /* NO MATCH , TRY AGAIN */ 01515000 BC 7,CS21B 0775 01516000 * RFY 0776 01517000 * (REG9, 0776 01518000 * REG10, 0776 01519000 * COUNTER) UNRSTD; 0776 01520000 * END; 0777 01521000 * 0777 01522000 * /***********************************************************/ 01523000 * /* */ 01524000 * /* THE FOLLOWING AREA OF CODE WAS CHAINGED BY DCR K0987 */ 01525000 * /* */ 01526000 * /***********************************************************/ 01527000 * 0778 01528000 * FDBPTR=ADDR(FSBFDB); /* ESTAB BASE ADDR FOR FDB */ 01529000 @RF00770 LA FDBPTR,FSBFDB(,FSBPTR) 0778 01530000 * FSBPTR=FDBPTR-FDBOFSET; /* GET ADDR OF FDB MINUS NEGA- 0779 01531000 * TIVE OFFSET TO BEGINNING OF 0779 01532000 * AREA THAT MUST BE FREED */ 01533000 LR FSBPTR,FDBPTR 0779 01534000 SH FSBPTR,FDBOFSET(,FDBPTR) 0779 01535000 * FSBPTR->FDBFDBA=FDBFDBA; /* UPDATE CHAIN TO NEXT FDB */ 01536000 L @10,FDBFDBA(,FDBPTR) 0780 01537000 ST @10,FDBFDBA(,FSBPTR) 0780 01538000 * IF PROCFTX=ON THEN /* IF CONFIDENTIAL TEXT IS 0781 01539000 * SPECIFIED, ERASE ITS STORAGE 01540000 * OTHERWISE, JUST DEQUEUE IT. */ 01541000 TM PROCFTX+48(FMCBPTR),B'00000001' 0781 01542000 BNO @RF00781 0781 01543000 */* RELSTORE BUFADDR(FSBPTR)CLEAR(YES)CHAIN(YES) */ 01544000 * 0782 01545000 * DO; 0782 01546000 * 0782 01547000 */* ATBUILD (ISTATCVT,ISTRPH) */ 01548000 */* END OF ATBUILD */ 01549000 * 0783 01550000 * RFY 0783 01551000 * (GPR02P, 0783 01552000 * GPR03P, 0783 01553000 * GPR04P, 0783 01554000 * GPR15P) RSTD; 0783 01555000 * RFY 0784 01556000 * (GPR01P, 0784 01557000 * GPR13P) RSTD; 0784 01558000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 0785 01559000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 01560000 * RFY 0786 01561000 * GPR13P UNRSTD; 0786 01562000 * GPR04P=FSBPTR|'80000000'X; 0787 01563000 LR GPR04P,FSBPTR 0787 01564000 O GPR04P,@CF01323 0787 01565000 * DCL 0788 01566000 * 1 FMZA0037 FIXED(31) STATIC LOCAL, 0788 01567000 * 2 * FIXED(8) INIT(80), 0788 01568000 * 2 * PTR(24) INIT(0); 0788 01569000 * GPR03F=FMZA0037; 0789 01570000 L GPR03F,FMZA0037 0789 01571000 * DO; /* LISATCVT 0790 01572000 * CVTBASE(PAGEABLE,(GPR15P)) */ 01573000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 01574000 L GPR15P,ATCLCPTR 0791 01575000 * END; /* LISATCVT */ 01576000 * GPR02P=GPR15P->ATCBPDA; 0793 01577000 L GPR02P,ATCBPDA(,GPR15P) 0793 01578000 * GPR15P=GPR15P->ATCSMRS; 0794 01579000 L GPR15P,ATCSMRS(,GPR15P) 0794 01580000 * DCL 0795 01581000 * FMZL0037 BASED(GPR15P) LABEL VALUERANGE(*); 0795 01582000 * CALL FMZL0037; 0796 01583000 BALR @14,@15 0796 01584000 * RFY 0797 01585000 * GPR13P RSTD; 0797 01586000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 0798 01587000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 01588000 * RFY 0799 01589000 * (GPR01P, 0799 01590000 * GPR13P) UNRSTD; 0799 01591000 * RFY 0800 01592000 * (GPR02P, 0800 01593000 * GPR03P, 0800 01594000 * GPR04P, 0800 01595000 * GPR15P) UNRSTD; 0800 01596000 * END; /* *********END OF RELSTORE 0801 01597000 * EXPANSION********* @D31KKCF 01598000 * ON THE FIRST PASS, FSB 0801 01599000 * (INCLUDING FDB) IS FREED. 0801 01600000 * THEREAFTER, FDBS ARE FREED */ 01601000 * ELSE 0802 01602000 * 0802 01603000 */* RELSTORE BUFADDR(FSBPTR)CLEAR(NO)CHAIN(YES) */ 01604000 * 0802 01605000 * DO; 0802 01606000 * 0802 01607000 B @RC00781 0802 01608000 @RF00781 DS 0H 0803 01609000 */* ATBUILD (ISTATCVT,ISTRPH) */ 01610000 */* END OF ATBUILD */ 01611000 * 0803 01612000 * RFY 0803 01613000 * (GPR02P, 0803 01614000 * GPR03P, 0803 01615000 * GPR04P, 0803 01616000 * GPR15P) RSTD; 0803 01617000 * RFY 0804 01618000 * (GPR01P, 0804 01619000 * GPR13P) RSTD; 0804 01620000 * GENERATE REFS(GPR01P,GPR02P,GPR13P) SETS(RPHWORK); 0805 01621000 STM GPR02P,GPR13P,RPHWORK(GPR01P) 01622000 * RFY 0806 01623000 * GPR13P UNRSTD; 0806 01624000 * GPR04P=FSBPTR; 0807 01625000 LR GPR04P,FSBPTR 0807 01626000 * DCL 0808 01627000 * 1 FMZA0053 FIXED(31) STATIC LOCAL, 0808 01628000 * 2 * FIXED(8) INIT(80), 0808 01629000 * 2 * PTR(24) INIT(0); 0808 01630000 * GPR03F=FMZA0053; 0809 01631000 L GPR03F,FMZA0053 0809 01632000 * DO; /* LISATCVT 0810 01633000 * CVTBASE(PAGEABLE,(GPR15P)) */ 01634000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 01635000 L GPR15P,ATCLCPTR 0811 01636000 * END; /* LISATCVT */ 01637000 * GPR02P=GPR15P->ATCBPDA; 0813 01638000 L GPR02P,ATCBPDA(,GPR15P) 0813 01639000 * GPR15P=GPR15P->ATCSMRS; 0814 01640000 L GPR15P,ATCSMRS(,GPR15P) 0814 01641000 * DCL 0815 01642000 * FMZL0053 BASED(GPR15P) LABEL VALUERANGE(*); 0815 01643000 * CALL FMZL0053; 0816 01644000 BALR @14,@15 0816 01645000 * RFY 0817 01646000 * GPR13P RSTD; 0817 01647000 * GENERATE REFS(GPR01P,RPHWORK) SETS(GPR02P,GPR13P); 0818 01648000 LM GPR02P,GPR13P,RPHWORK(GPR01P) 01649000 * RFY 0819 01650000 * (GPR01P, 0819 01651000 * GPR13P) UNRSTD; 0819 01652000 * RFY 0820 01653000 * (GPR02P, 0820 01654000 * GPR03P, 0820 01655000 * GPR04P, 0820 01656000 * GPR15P) UNRSTD; 0820 01657000 * END; /* *********END OF RELSTORE 0821 01658000 * EXPANSION********* @D31KKCF*/ 01659000 * END; /* END OF MORE-FSBS-TO-DEQUEUE 0822 01660000 * ELSE-DO GROUP */ 01661000 @RC00781 DS 0H 0823 01662000 * IF CRRSW2=ON THEN 0823 01663000 @RC00738 TM CRRSW2(CRRPTR),B'00100000' 0823 01664000 BNO @RF00823 0823 01665000 * CRRSW7=ON; /* READ DONE */ 01666000 OI CRRSW7(CRRPTR),B'00000001' 0824 01667000 */* ZTR 5688 */ 01668000 * 0825 01669000 * END; /* END OF MAJOR DO-WHILE GROUP */ 01670000 @RF00823 DS 0H 0825 01671000 @DE00714 TM CRRSW4(CRRPTR),B'00101000' 0825 01672000 BNZ @DL00714 0825 01673000 */* LINES # 495100 - 495440 REMOVED FOR DCR 1988 ( 9/17/73 ) */ 01674000 * 0826 01675000 * IF CRRELSRI=ON& /* IF ERROR LOCK */ 01676000 * CRRSW7=ON THEN /* AND READ DONE */ 01677000 TM CRRELSRI(CRRPTR),B'00001000' 0826 01678000 BNO @RF00826 0826 01679000 TM CRRSW7(CRRPTR),B'00000001' 0826 01680000 BNO @RF00826 0826 01681000 * CALL LCPBINIT; /* BUILD LCPB */ 01682000 BAL @14,LCPBINIT 0827 01683000 * ELSE 0828 01684000 * CRRELSRI=OFF; 0828 01685000 B @RC00826 0828 01686000 @RF00826 NI CRRELSRI(CRRPTR),B'11110111' 0828 01687000 * RFY 0829 01688000 * RESUMEAD RSTD; 0829 01689000 @RC00826 DS 0H 0830 01690000 * RESUMEAD=CRRRTN5; /* RESTORE RETURN ADDR (REG14) */ 01691000 L RESUMEAD,CRRRTN5(,CRRPTR) 0830 01692000 * END PROCESSE; /* RETURN TO PROCESCA OR PROCESSD*/ 01693000 @EL00006 DS 0H 0831 01694000 @EF00006 DS 0H 0831 01695000 @ER00006 BR @14 0831 01696000 * 0832 01697000 */********************************************************************/ 01698000 */* */ 01699000 */* ROUTINE NAME : LCPBINIT - INITIALIZE RESET LCPB */ 01700000 */* */ 01701000 */* FUNCTION : INITIALIZES THE LCCW IN THE LCPB PASSED TO IT BY DCC00*/ 01702000 */* WITH A RESET ERROR LOCK OPCODE AND TPQUES THE LCPB TO THE TOP*/ 01703000 */* */ 01704000 */* INPUT : CRRLCPB - PTS TO THE LCPB TO BE USED */ 01705000 */* FMCBPTR (REG 11) - PTS TO THE FMCB */ 01706000 */* */ 01707000 */* OUTPUT : RESET ERROR LCPB BUILT AND QUEUED TO THE TOP */ 01708000 */* */ 01709000 */* SUBROUTINES CALLED : NONE */ 01710000 */* */ 01711000 */* MACROS USED : TPQUE */ 01712000 */* */ 01713000 */********************************************************************/ 01714000 * 0832 01715000 *LCPBINIT: 0832 01716000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0832 01717000 LCPBINIT DS 0H 0833 01718000 * CRRRTN9=RESUMEAD; /* SAVE CALLER'S RETURN ADDR */ 01719000 ST RESUMEAD,CRRRTN9(,CRRPTR) 0833 01720000 * RFY 0834 01721000 * RESUMEAD UNRSTD; 0834 01722000 * LCPBPTR=CRRLCPB; /* REFERENCE LCPB */ 01723000 L LCPBPTR,CRRLCPB(,CRRPTR) 0835 01724000 * LCPNXLCW=ADDR(DCLLCCW2); /* POINT TO LCCW FOR RESET */ 01725000 LA @10,DCLLCCW2(,LCPBPTR) 0836 01726000 ST @10,LCPNXLCW(,LCPBPTR) 0836 01727000 * DCLRQTP=DCLRESET; /* INDICATE RESET OPERATION */ 01728000 MVI DCLRQTP(LCPBPTR),X'12' 0837 01729000 * RFY 0838 01730000 * ISTLCCW BASED(LCPNXLCW); 0838 01731000 * LCCWOP=LXEL; /* RESET ERROR LOCK */ 01732000 MVI LCCWOP(@10),X'0B' 0839 01733000 * DCLSRESW=ON; /* INDICATE SPECIAL RESET */ 01734000 OI DCLSRESW(LCPBPTR),B'10000000' 0840 01735000 */* TPQUE (LCPBPTR,FMCPAB3) RESET */ 01736000 * 0841 01737000 * DO; 0841 01738000 * RFY 0842 01739000 * (GPR00P, 0842 01740000 * GPR01P, 0842 01741000 * GPR02P, 0842 01742000 * GPR15P) RSTD; 0842 01743000 * GEN REFS(GPR01P) SETS(RPHWORK) 0843 01744000 * (STM GPR14P,GPR09P,RPHWORK(GPR01P)); 0843 01745000 STM GPR14P,GPR09P,RPHWORK(GPR01P) 01746000 * GPR00P=ADDR(FMCPAB3); 0844 01747000 LA GPR00P,FMCPAB3(,FMCBPTR) 0844 01748000 * GPR02P=LCPBPTR; 0845 01749000 LR GPR02P,LCPBPTR 0845 01750000 * CALL ATCLCPTR->ATCAP34->ISTAPC34; 0846 01751000 L @10,ATCLCPTR 0846 01752000 L @15,ATCAP34(,@10) 0846 01753000 BALR @14,@15 0846 01754000 * GEN REFS(RPHWORK,GPR01P) NOSETS 0847 01755000 * (LM GPR14P,GPR09P,RPHWORK(GPR01P)); 0847 01756000 LM GPR14P,GPR09P,RPHWORK(GPR01P) 01757000 * RFY 0848 01758000 * (GPR00P, 0848 01759000 * GPR01P, 0848 01760000 * GPR02P, 0848 01761000 * GPR15P) UNRSTD; 0848 01762000 * END; /* *** END OF TPQUE GENERATION 0849 01763000 * SHIP RESET TO TPIOS */ 01764000 * RFY 0850 01765000 * RESUMEAD RSTD; 0850 01766000 * RESUMEAD=CRRRTN9; /* GET CALLER'S RETURN ADDRESS */ 01767000 L RESUMEAD,CRRRTN9(,CRRPTR) 0851 01768000 * END LCPBINIT; /* RETURN TO CALLER */ 01769000 @EL00007 DS 0H 0852 01770000 @EF00007 DS 0H 0852 01771000 @ER00007 BR @14 0852 01772000 @PB00007 DS 0H 0852 01773000 */* TPEPILOG */ 01774000 * 0853 01775000 * GEN(PRINT OFF); 0853 01776000 PRINT OFF 01777000 */* TEMPLATE FOR CHAIN FIELD OF WORK ELEMENT */ 0854 01778000 *DCL 1 ISTWKE BDY(WORD) BASED(WKEPTR), 0854 01779000 * 2 * CHAR(4), /* SPACE * 01780000 * 2 WKECHAIN PTR(31), /* CHAIN POINTER * 01781000 * 3 WKEFLAGS BIT(8), /* FLAGS * 01782000 * 4 WKEGATE BIT(1), /* GATE BIT * 01783000 * 4 * BIT(7), /* RESERVED * 01784000 * 3 WKECHNGP PTR(24); /* PTR ADDRESS * 01785000 * DCL 0855 01786000 * ISTAPC34 ENTRY BASED(ATCAP34) VALRG(*);/* RESET ROUTINE */ 01787000 * DCL 0856 01788000 * ISTAPC37 ENTRY BASED(ATCAP37) VALRG(*);/* TPQUE ROUTINE */ 01789000 * GEN(PRINT ON); 0857 01790000 * 0857 01791000 PRINT ON 01792000 */* END OF TPEPILOG */ 01793000 * 0858 01794000 * END ISTDCC21 0858 01795000 * 0858 01796000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01797000 */*%INCLUDE SYSLIB (IHAPSA ) */ 01798000 */*%INCLUDE SYSLIB (IFGRPL ) */ 01799000 */*%INCLUDE SYSLIB (IFGRPLVT) */ 01800000 */*%INCLUDE SYSLIB (ISTRPLFB) */ 01801000 */*%INCLUDE SYSLIB (CVT ) */ 01802000 * 0858 01803000 * ; 0858 01804000 @DATA DS 0H 01805000 @DATD DSECT 01806000 DS 0F 01807000 ISTDCC21 CSECT 01808000 DS 0F 01809000 @CF00067 DC F'1' 01810000 @CF00044 DC F'4' 01811000 @CF01321 DC XL4'7FFFFFFF' 01812000 @CF01323 DC XL4'80000000' 01813000 @CF01327 DC XL4'BFFFFFFF' 01814000 @CF01329 DC XL4'40000000' 01815000 @CF01335 DC XL4'FBFFFFFF' 01816000 @CF01341 DC XL4'10000000' 01817000 @CF03174 DC XL4'00010000' 01818000 @CF04257 DC XL4'82000000' 01819000 @CF04384 DC XL4'0000FFFF' 01820000 @DATD DSECT 01821000 DS 0D 01822000 CVTPTR DS A 01823000 WKEPTR DS A 01824000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01825000 @ENDDATD EQU * 01826000 ISTDCC21 CSECT 01827000 DS 0F 01828000 @SIZDATD DC AL1(0) 01829000 DC AL3(@ENDDATD-@DATD) 01830000 DS 0D 01831000 FMZA0037 DS FL4 01832000 ORG FMZA0037 01833000 @NM00096 DC AL1(80) 01834000 @NM00097 DC AL3(0) 01835000 ORG FMZA0037+4 01836000 FMZA0053 DS FL4 01837000 ORG FMZA0053 01838000 @NM00098 DC AL1(80) 01839000 @NM00099 DC AL3(0) 01840000 ORG FMZA0053+4 01841000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01842000 @01 EQU 01 01843000 @02 EQU 02 01844000 @03 EQU 03 01845000 @04 EQU 04 01846000 @05 EQU 05 01847000 @06 EQU 06 01848000 @07 EQU 07 01849000 @08 EQU 08 01850000 @09 EQU 09 01851000 @10 EQU 10 01852000 @11 EQU 11 01853000 @12 EQU 12 01854000 @13 EQU 13 01855000 @14 EQU 14 01856000 @15 EQU 15 01857000 RPHPTR EQU @01 01858000 FSBPTR EQU @06 01859000 LCPBPTR EQU @05 01860000 FMCBPTR EQU @11 01861000 GPR00P EQU @00 01862000 GPR01P EQU @01 01863000 GPR02F EQU @02 01864000 GPR02P EQU @02 01865000 GPR03F EQU @03 01866000 GPR03P EQU @03 01867000 GPR04P EQU @04 01868000 GPR10F EQU @10 01869000 GPR10P EQU @10 01870000 GPR11F EQU @11 01871000 GPR11P EQU @11 01872000 GPR12F EQU @12 01873000 GPR12P EQU @12 01874000 GPR13F EQU @13 01875000 GPR13P EQU @13 01876000 GPR14F EQU @14 01877000 GPR14P EQU @14 01878000 GPR15F EQU @15 01879000 GPR15P EQU @15 01880000 CRRPTR EQU @13 01881000 RPLPTR EQU @04 01882000 FDBPTR EQU @08 01883000 ACBPTR EQU @07 01884000 ATCVTPTR EQU @02 01885000 REG9 EQU @09 01886000 REG10 EQU @10 01887000 COUNTER EQU @02 01888000 RTRNCODE EQU @15 01889000 RESUMEAD EQU @14 01890000 GPR00F EQU @00 01891000 GPR01F EQU @01 01892000 GPR04F EQU @04 01893000 GPR05F EQU @05 01894000 GPR05P EQU @05 01895000 GPR06F EQU @06 01896000 GPR06P EQU @06 01897000 GPR07F EQU @07 01898000 GPR07P EQU @07 01899000 GPR08F EQU @08 01900000 GPR08P EQU @08 01901000 GPR09F EQU @09 01902000 GPR09P EQU @09 01903000 PSA EQU 0 01904000 FLCRNPSW EQU PSA 01905000 FLCROPSW EQU PSA+8 01906000 FLCICCW2 EQU PSA+16 01907000 PSAEEPSW EQU PSA+132 01908000 PSAESPSW EQU PSA+136 01909000 FLCSVILC EQU PSAESPSW+1 01910000 PSAEPPSW EQU PSA+140 01911000 FLCPIILC EQU PSAEPPSW+1 01912000 FLCPICOD EQU PSAEPPSW+2 01913000 PSAPICOD EQU FLCPICOD+1 01914000 FLCTEA EQU PSAEPPSW+4 01915000 FLCPER EQU PSA+152 01916000 FLCMCLA EQU PSA+168 01917000 FLCIOEL EQU FLCMCLA+4 01918000 FLCIOA EQU FLCMCLA+16 01919000 FLCFSA EQU FLCMCLA+80 01920000 PSASUPER EQU PSA+552 01921000 PSASUP1 EQU PSASUPER 01922000 PSASUP2 EQU PSASUPER+1 01923000 PSASUP3 EQU PSASUPER+2 01924000 PSASUP4 EQU PSASUPER+3 01925000 PSACLHT EQU PSA+640 01926000 PSALKSA EQU PSA+696 01927000 PSAHLHI EQU PSA+760 01928000 PSALITA EQU PSA+764 01929000 PSADSSFL EQU PSA+836 01930000 PSADSSF1 EQU PSADSSFL 01931000 PSADSSF3 EQU PSADSSFL+2 01932000 PSADSSF4 EQU PSADSSFL+3 01933000 PSARSVT EQU PSA+896 01934000 ATCLCPTR EQU 1032 01935000 IFGRPL EQU 0 01936000 RPLCOMN EQU IFGRPL 01937000 RPLIDWD EQU RPLCOMN 01938000 RPLLEN EQU RPLIDWD+3 01939000 RPLECB EQU RPLCOMN+8 01940000 RPLFDBWD EQU RPLCOMN+12 01941000 RPLFDBK EQU RPLFDBWD+1 01942000 RPLRTNCD EQU RPLFDBK 01943000 RPLCNDCD EQU RPLFDBK+1 01944000 RPLCMPON EQU RPLCNDCD 01945000 RPLFDB2 EQU RPLCMPON 01946000 RPLERRCD EQU RPLCNDCD+1 01947000 RPLFDB3 EQU RPLERRCD 01948000 RPLKEYLE EQU RPLCOMN+16 01949000 RPLAREA EQU RPLCOMN+32 01950000 RPLARG EQU RPLCOMN+36 01951000 RPLOPTCD EQU RPLCOMN+40 01952000 RPLOPT1 EQU RPLOPTCD 01953000 RPLECBSW EQU RPLOPT1 01954000 RPLOPT2 EQU RPLOPTCD+1 01955000 RPLADR EQU RPLOPT2 01956000 RPLOPT3 EQU RPLOPTCD+2 01957000 RPLOPT4 EQU RPLOPTCD+3 01958000 RPLNXTRP EQU RPLCOMN+44 01959000 RPLRLEN EQU RPLCOMN+48 01960000 RPLBUFL EQU RPLCOMN+52 01961000 RPLOPTC2 EQU RPLCOMN+56 01962000 RPLOPT5 EQU RPLOPTC2 01963000 RPLDLGIN EQU RPLOPT5 01964000 RPLWRTYP EQU RPLOPT5 01965000 RPLOPT6 EQU RPLOPTC2+1 01966000 RPLUNTYP EQU RPLOPT6 01967000 RPLOPT7 EQU RPLOPTC2+2 01968000 RPLCNOPT EQU RPLOPT7 01969000 RPLOPT8 EQU RPLOPTC2+3 01970000 RPLRBAR EQU RPLCOMN+60 01971000 RPLAIXID EQU RPLRBAR+2 01972000 RPLEXTDS EQU RPLCOMN+68 01973000 RPLEXTD1 EQU RPLEXTDS 01974000 RPLVTEXT EQU IFGRPL+76 01975000 RPLFDBK2 EQU RPLVTEXT+12 01976000 RPLSSNSI EQU RPLFDBK2 01977000 RPLDSB EQU RPLSSNSI 01978000 RPLDSB1 EQU RPLDSB 01979000 RPLSSEI EQU RPLDSB1 01980000 RPLDSB2 EQU RPLDSB+1 01981000 RPLUSNSI EQU RPLFDBK2+2 01982000 RPLOPTC3 EQU RPLVTEXT+20 01983000 RPLOPT9 EQU RPLOPTC3 01984000 RPLOPT10 EQU RPLOPTC3+1 01985000 RPLOPT11 EQU RPLOPTC3+2 01986000 RPLOPT12 EQU RPLOPTC3+3 01987000 RPLOSENS EQU RPLVTEXT+24 01988000 RPLSSNSO EQU RPLOSENS 01989000 RPLSSEO EQU RPLSSNSO 01990000 RPLOF16 EQU 0 01991000 RPLRH3 EQU RPLOF16 01992000 RPLSRTYP EQU RPLOF16+1 01993000 RPLSTYPE EQU RPLSRTYP 01994000 RPLRTYPE EQU RPLSRTYP 01995000 RPLCHN EQU RPLOF16+2 01996000 RPLVTFL1 EQU RPLOF16+3 01997000 RPLVTFL2 EQU RPLOF16+4 01998000 RPLPOSTV EQU RPLVTFL2 01999000 RPLRESP EQU RPLVTFL2 02000000 RPLCNTRL EQU RPLOF16+5 02001000 RPLCNTDF EQU RPLCNTRL 02002000 RPLCNTDC EQU RPLCNTRL+1 02003000 RPLCNTSC EQU RPLCNTRL+2 02004000 RPLOF60 EQU 0 02005000 RPLOBSQ EQU RPLOF60+4 02006000 RPLIBSQ EQU RPLOF60+5 02007000 CVTMAP EQU 0 02008000 CVTDAR EQU CVTMAP+72 02009000 CVTFLGS1 EQU CVTDAR 02010000 CVTDCB EQU CVTMAP+116 02011000 CVTIERLC EQU CVTMAP+144 02012000 CVTOPTA EQU CVTMAP+182 02013000 CVTOPTB EQU CVTMAP+183 02014000 CVTGTF EQU CVTMAP+236 02015000 CVTGTFST EQU CVTGTF 02016000 CVTGTFS EQU CVTGTFST 02017000 CVTSTATE EQU CVTGTFST 02018000 CVTTMODE EQU CVTGTFST 02019000 CVTFORM EQU CVTGTFST 02020000 CVTAQAVT EQU CVTMAP+240 02021000 CVTTCMFG EQU CVTAQAVT 02022000 CVTVOLM2 EQU CVTMAP+244 02023000 CVTTATA EQU CVTVOLM2 02024000 CVTTSKS EQU CVTTATA 02025000 CVTVOLF2 EQU CVTTSKS 02026000 CVTTAT EQU CVTTATA+1 02027000 CVTATER EQU CVTMAP+248 02028000 CVTEXT1 EQU CVTMAP+252 02029000 CVTPURG EQU CVTMAP+260 02030000 CVTQMSG EQU CVTMAP+268 02031000 CVTDMSR EQU CVTMAP+272 02032000 CVTERPV EQU CVTMAP+316 02033000 CVTINTLA EQU CVTMAP+320 02034000 CVTAPF EQU CVTMAP+324 02035000 CVTEXT2 EQU CVTMAP+328 02036000 CVTHJES EQU CVTMAP+332 02037000 CVTPGSIA EQU CVTMAP+348 02038000 CVTA1F1 EQU CVTMAP+356 02039000 CVTSYSK EQU CVTMAP+357 02040000 CVTVOLM1 EQU CVTMAP+380 02041000 CVTVOLF1 EQU CVTVOLM1 02042000 CVTATMCT EQU CVTMAP+388 02043000 CVTXTNT1 EQU 0 02044000 CVTXTNT2 EQU 0 02045000 CVTDSSV EQU CVTXTNT2 02046000 CVTFLGBT EQU CVTXTNT2+5 02047000 CVTQID EQU CVTXTNT2+24 02048000 CVTSHS EQU CVTXTNT2+40 02049000 CVTRV400 EQU CVTXTNT2+52 02050000 CVTRV409 EQU CVTXTNT2+53 02051000 CVTATCVT EQU CVTXTNT2+64 02052000 CVTRV429 EQU CVTXTNT2+84 02053000 CVTRV438 EQU CVTXTNT2+85 02054000 CVTRV457 EQU CVTXTNT2+112 02055000 CVTRV466 EQU CVTXTNT2+113 02056000 CVTFIX EQU 0 02057000 CVTRELNO EQU CVTFIX+252 02058000 ISTPAB EQU 0 02059000 PABWQCHN EQU ISTPAB 02060000 PABWEQA EQU PABWQCHN 02061000 PABCHAIN EQU PABWQCHN+4 02062000 PABRPHFG EQU ISTPAB+12 02063000 PABFLAGS EQU PABRPHFG 02064000 PABERLCK EQU PABFLAGS 02065000 PABERRLK EQU PABERLCK 02066000 ISTLOK EQU 0 02067000 LOKCHN EQU ISTLOK+1 02068000 LOKCHNG EQU LOKCHN 02069000 @NM00054 EQU LOKCHNG+2 02070000 ISTDYPAB EQU 0 02071000 ISTRPH EQU 0 02072000 RPHFLAGS EQU ISTRPH+2 02073000 RPHAPTYP EQU RPHFLAGS 02074000 RPHFSTLC EQU RPHFLAGS 02075000 RPHFLGB EQU ISTRPH+3 02076000 RPHRPHA EQU ISTRPH+4 02077000 RPHTSKID EQU ISTRPH+8 02078000 RPHRESMA EQU ISTRPH+16 02079000 RPHWPFLG EQU RPHRESMA 02080000 RPHWEA EQU ISTRPH+24 02081000 RPHCSPA EQU RPHWEA 02082000 RPHSRPRM EQU ISTRPH+28 02083000 RPHCRR EQU ISTRPH+32 02084000 RPHPABQA EQU ISTRPH+36 02085000 RPHWORK EQU ISTRPH+40 02086000 RPHSAVE1 EQU RPHWORK 02087000 RPHSBITS EQU RPHSAVE1+1 02088000 ISTATCVT EQU 0 02089000 ATCCOM EQU ISTATCVT 02090000 ATCSTAT EQU ATCCOM 02091000 ATCSTAT1 EQU ATCSTAT 02092000 ATCSTFLG EQU ATCSTAT+1 02093000 ATCPOFLG EQU ATCSTAT+2 02094000 ATCSTAT4 EQU ATCSTAT+3 02095000 ATCBPDA EQU ATCCOM+128 02096000 ATCIOTRC EQU ATCCOM+140 02097000 ATCTHTRC EQU ATCIOTRC 02098000 ATCSMRS EQU ATCCOM+188 02099000 ATCDCC60 EQU ATCCOM+212 02100000 ATCESC01 EQU ISTATCVT+288 02101000 ATCCSMR EQU ISTATCVT+296 02102000 ATCSHRFG EQU ISTATCVT+316 02103000 ATCHPGM EQU ISTATCVT+384 02104000 ATCVLCNT EQU ISTATCVT+772 02105000 ATCSOPD EQU ISTATCVT+792 02106000 ATCSIPD EQU ISTATCVT+800 02107000 ATCSECST EQU ISTATCVT+812 02108000 ATCAOSM EQU ISTATCVT+912 02109000 ATCGSRBQ EQU ATCAOSM+4 02110000 ATCGSRBG EQU ATCGSRBQ 02111000 ATCAP34 EQU ATCAOSM+32 02112000 ATCICAPP EQU ATCAOSM+100 02113000 ATCLDAPP EQU ATCAOSM+120 02114000 ATCDAPVT EQU ATCAOSM+140 02115000 ATCAP37 EQU ATCAOSM+264 02116000 ATCVTFLG EQU ATCAOSM+392 02117000 ATCZFLAG EQU ATCAOSM+588 02118000 ISTFDB EQU 0 02119000 FDBFDBA EQU ISTFDB 02120000 FDBOFSET EQU ISTFDB+10 02121000 ISTFSB EQU 0 02122000 FSBFSB EQU ISTFSB 02123000 FSBMNRCD EQU FSBFSB+2 02124000 FSBMNELI EQU FSBMNRCD 02125000 FSBSFLGS EQU FSBFSB+3 02126000 FSBFSBA EQU FSBFSB+4 02127000 FSBBTH EQU FSBFSB+8 02128000 FSBCID EQU FSBBTH 02129000 FSBRQTAG EQU FSBBTH+4 02130000 FSBSEQID EQU FSBRQTAG 02131000 FSBFLAGS EQU FSBSEQID 02132000 FSBSEQ EQU FSBSEQID+1 02133000 FSBCSWST EQU FSBBTH+6 02134000 FSBTHFLD EQU FSBCSWST 02135000 FSBTH1 EQU FSBTHFLD 02136000 FSBSYSRS EQU FSBTH1 02137000 FSBTH2 EQU FSBTHFLD+1 02138000 FSBEXTRS EQU FSBTH2 02139000 FSBXFSTS EQU FSBEXTRS 02140000 FSBXCODE EQU FSBEXTRS 02141000 FSBNETRS EQU FSBFSB+16 02142000 FSBSRCAT EQU FSBNETRS 02143000 FSBMJRCD EQU FSBSRCAT 02144000 FSBERC EQU FSBNETRS+1 02145000 FSBEBI EQU FSBERC 02146000 FSBFBMI EQU FSBERC 02147000 FSBLGI EQU FSBERC 02148000 FSBSOHI EQU FSBERC 02149000 FSBDMGRS EQU FSBFSB+18 02150000 FSBSS1 EQU FSBDMGRS 02151000 FSBSS2 EQU FSBDMGRS+1 02152000 FSBLCPB EQU FSBFSB+20 02153000 FSBMSGID EQU FSBLCPB 02154000 FSBLCCWA EQU FSBFSB+24 02155000 FSBRLSTS EQU FSBLCCWA 02156000 FSBFDB EQU ISTFSB+32 02157000 ISTLCCW EQU 0 02158000 LCCWOP EQU ISTLCCW 02159000 LCCWRWOP EQU LCCWOP 02160000 LCCWCTL EQU LCCWRWOP 02161000 LCCWFLAG EQU ISTLCCW+1 02162000 LCCWLSI EQU LCCWFLAG 02163000 ISTLCPB EQU 0 02164000 LCPREQTG EQU ISTLCPB+2 02165000 LCPFLAGS EQU LCPREQTG 02166000 LCPZF001 EQU LCPFLAGS 02167000 LCPZRT02 EQU LCPZF001 02168000 LCPZF002 EQU LCPFLAGS 02169000 LCPZRT03 EQU LCPZF002 02170000 LCPZF003 EQU LCPFLAGS 02171000 LCPZRT04 EQU LCPZF003 02172000 LCPZF004 EQU LCPFLAGS 02173000 LCPZRT05 EQU LCPZF004 02174000 LCPZRT06 EQU LCPFLAGS 02175000 LCPZRT07 EQU LCPFLAGS 02176000 LCPMNRCD EQU LCPREQTG+1 02177000 LCPZRT08 EQU LCPMNRCD 02178000 LCPZRT09 EQU LCPMNRCD 02179000 LCPCHAIN EQU ISTLCPB+4 02180000 LCPCHAI1 EQU LCPCHAIN 02181000 LCPRUCNT EQU ISTLCPB+8 02182000 LCPFLAG2 EQU ISTLCPB+9 02183000 LCPTLBPI EQU LCPFLAG2 02184000 LCPFID0 EQU LCPFLAG2 02185000 LCPSEQ EQU ISTLCPB+10 02186000 LCPCID EQU ISTLCPB+16 02187000 LCPNXLCW EQU ISTLCPB+20 02188000 LCPFDBA EQU ISTLCPB+24 02189000 LCPFLG1 EQU ISTLCPB+37 02190000 LCPFLCCW EQU ISTLCPB+40 02191000 LCPLCCW EQU ISTLCPB+48 02192000 LCPPABA EQU LCPLCCW+4 02193000 LCPRPHA EQU LCPPABA 02194000 ISTZSAVE EQU 0 02195000 ZSAZSVBC EQU ISTZSAVE 02196000 ZSAZSVMS EQU ZSAZSVBC 02197000 ISTPFCRR EQU 0 02198000 PFCCRR EQU ISTPFCRR 02199000 PFCCRRID EQU PFCCRR 02200000 PFCCRRLN EQU PFCCRR+2 02201000 PFCHDR EQU ISTPFCRR+4 02202000 PFCCRRO EQU PFCHDR 02203000 PFCFRRO EQU PFCHDR+4 02204000 ISTCFCRR EQU 0 02205000 CFCAUDIT EQU ISTCFCRR 02206000 CFCNTRD EQU CFCAUDIT 02207000 CFCCRT EQU CFCAUDIT+1 02208000 ISTZCRR EQU 0 02209000 ZCRCRR EQU ISTZCRR 02210000 ZCRFLGS1 EQU ISTZCRR+12 02211000 ZCRFLGS2 EQU ISTZCRR+13 02212000 ZCRSWFLD EQU ISTZCRR+14 02213000 ZCRENDSH EQU ZCRSWFLD 02214000 ZCRNDLCP EQU ZCRSWFLD 02215000 ZCRRESET EQU ZCRSWFLD 02216000 ZCRFLGS3 EQU ISTZCRR+15 02217000 ZCRGENSW EQU ISTZCRR+16 02218000 ZCRPFLGS EQU ISTZCRR+17 02219000 ZCRIBPR EQU ISTZCRR+18 02220000 ZCRSCPSW EQU ISTZCRR+19 02221000 ZCRPARMS EQU ISTZCRR+24 02222000 ZCRFBPTR EQU ZCRPARMS 02223000 ZCRDFRDA EQU ZCRPARMS+10 02224000 ZCRPCOD1 EQU ZCRPARMS+12 02225000 ZCRPLSBF EQU ZCRPCOD1 02226000 ZCRPCOD2 EQU ZCRPARMS+13 02227000 ZCRSVRTN EQU ISTZCRR+56 02228000 ZCRWKARA EQU ISTZCRR+156 02229000 ZCRCIDSV EQU ISTZCRR+192 02230000 ZCRAUDIT EQU ISTZCRR+440 02231000 ZCRENTER EQU ZCRAUDIT+5 02232000 ZCRLCPB EQU ISTZCRR+480 02233000 ZCRRHRU EQU ZCRLCPB 02234000 ISTASCRR EQU 0 02235000 ASCFLAGS EQU ISTASCRR+16 02236000 ASCFLG1 EQU ASCFLAGS 02237000 ASCFLG2 EQU ASCFLAGS+2 02238000 ASCFLG3 EQU ASCFLAGS+4 02239000 ASCUSRGS EQU ISTASCRR+28 02240000 ISTAPCRR EQU 0 02241000 APCATFLG EQU ISTAPCRR+16 02242000 APCRFLG EQU ISTAPCRR+18 02243000 APCSAVE EQU ISTAPCRR+44 02244000 APCCOMF EQU ISTAPCRR+116 02245000 APCCOMF1 EQU APCCOMF 02246000 APC31FLG EQU ISTAPCRR+132 02247000 APC52FLG EQU ISTAPCRR+133 02248000 APC53FLG EQU ISTAPCRR+134 02249000 APC54FLG EQU ISTAPCRR+135 02250000 APC57FLG EQU ISTAPCRR+136 02251000 ISTCRA EQU 0 02252000 CRABASIC EQU ISTCRA 02253000 CRAHDR EQU CRABASIC 02254000 CRALKACT EQU CRABASIC+8 02255000 CRAPROCR EQU ISTCRA+312 02256000 CRASVC EQU ISTCRA+848 02257000 CRABUFA EQU CRASVC+68 02258000 ISTDCCRR EQU 0 02259000 CRRSPACE EQU ISTDCCRR+12 02260000 CRRSAREA EQU 0 02261000 CRRSAVE1 EQU CRRSAREA+72 02262000 CRRFSB EQU CRRSAREA+144 02263000 CRRMAS EQU CRRSAREA+148 02264000 CRRMAS1 EQU CRRMAS 02265000 CRRMAS2 EQU CRRMAS+1 02266000 CRRM21 EQU CRRMAS2 02267000 CRRMAS3 EQU CRRMAS+2 02268000 CRRMAS4 EQU CRRMAS+3 02269000 CRRRMAS1 EQU CRRMAS+4 02270000 CRRRMAS2 EQU CRRMAS+5 02271000 CRRRMAS3 EQU CRRMAS+6 02272000 CRRSMAS EQU CRRRMAS3 02273000 CRRATS EQU CRRSAREA+156 02274000 CRRATS1 EQU CRRATS 02275000 CRRATS2 EQU CRRATS+1 02276000 CRRC21 EQU CRRATS2 02277000 CRRATS3 EQU CRRATS+2 02278000 CRRATS4 EQU CRRATS+3 02279000 CRRRATS1 EQU CRRATS+4 02280000 CRRRATS2 EQU CRRATS+5 02281000 CRRRATS3 EQU CRRATS+6 02282000 CRRSATS EQU CRRRATS3 02283000 CRRFLGS1 EQU CRRSAREA+164 02284000 CRRINIO EQU CRRFLGS1 02285000 CRRPREIO EQU CRRFLGS1 02286000 CRRFLGS2 EQU CRRSAREA+165 02287000 CRRDEXP EQU CRRFLGS2 02288000 CRRELSRI EQU CRRFLGS2 02289000 CRRFLGS3 EQU CRRSAREA+166 02290000 CRRSUBBK EQU CRRFLGS3 02291000 CRRFLGS4 EQU CRRSAREA+167 02292000 CRRFLGS EQU CRRSAREA+168 02293000 CRRSW0 EQU CRRFLGS 02294000 CRRSW1 EQU CRRFLGS 02295000 CRRSW2 EQU CRRFLGS 02296000 CRRSW4 EQU CRRFLGS 02297000 CRRSW7 EQU CRRFLGS 02298000 CRRRFLG1 EQU CRRSAREA+169 02299000 CRRRTYPE EQU CRRRFLG1 02300000 CRRFDBK1 EQU CRRSAREA+170 02301000 CRRRTNCD EQU CRRFDBK1 02302000 CRRFDB2 EQU CRRFDBK1+1 02303000 CRRERLK EQU CRRFDB2 02304000 CRRSTSAV EQU CRRFDB2 02305000 CRRFDB3 EQU CRRFDBK1+2 02306000 CRRRDEOB EQU CRRFDB3 02307000 CRRRDEOM EQU CRRFDB3 02308000 CRRRDEOT EQU CRRFDB3 02309000 CRRRLG EQU CRRFDB3 02310000 CRRRDSOH EQU CRRFDB3 02311000 CRRFDBK2 EQU CRRSAREA+176 02312000 CRRDSB EQU CRRFDBK2 02313000 CRRESR EQU CRRFDBK2+2 02314000 CRRESR1 EQU CRRESR 02315000 CRRESR2 EQU CRRESR+1 02316000 CRRFMCB EQU CRRSAREA+184 02317000 CRRLCPB EQU CRRSAREA+192 02318000 CRRTRBUF EQU CRRSAREA+204 02319000 CRRARPL EQU CRRTRBUF+4 02320000 CRRATCVT EQU CRRSAREA+216 02321000 CRRRTN2 EQU CRRSAREA+228 02322000 CRRRTN3 EQU CRRSAREA+232 02323000 CRRRTN4 EQU CRRSAREA+236 02324000 CRRRTN5 EQU CRRSAREA+240 02325000 CRRRTN9 EQU CRRSAREA+256 02326000 CRRBARAD EQU CRRSAREA+272 02327000 CRRBFLGS EQU CRRSAREA+280 02328000 CRRBRTCD EQU CRRSAREA+281 02329000 CRRBLEN EQU CRRSAREA+282 02330000 CRRBTLEN EQU CRRSAREA+284 02331000 ISTDEVCH EQU 0 02332000 DEVSHCH EQU ISTDEVCH 02333000 DEVCHAR EQU DEVSHCH 02334000 DEVINPUT EQU DEVCHAR 02335000 DEVTCODE EQU ISTDEVCH+1 02336000 DEVFLAGS EQU ISTDEVCH+3 02337000 DEVFCCTL EQU DEVFLAGS 02338000 DEVCHAR3 EQU DEVFLAGS 02339000 ISTNCB EQU 0 02340000 NCBFLAGS EQU ISTNCB+24 02341000 NCBFRAS EQU NCBFLAGS+1 02342000 NCBFTRIO EQU NCBFRAS 02343000 NCBFLAG1 EQU NCBFLAGS+2 02344000 NCBDEVCH EQU ISTNCB+36 02345000 ISTDCLCP EQU 0 02346000 DCLLCPB EQU ISTDCLCP 02347000 DCLLCCW2 EQU ISTDCLCP+56 02348000 DCLRPLA EQU ISTDCLCP+72 02349000 DCLRTYPE EQU ISTDCLCP+76 02350000 DCLRQTP EQU DCLRTYPE 02351000 DCLRFLG EQU DCLRTYPE+1 02352000 DCLFLAG1 EQU ISTDCLCP+78 02353000 DCLSRESW EQU DCLFLAG1 02354000 DCLIOBUF EQU ISTDCLCP+84 02355000 DCLBTLEN EQU ISTDCLCP+92 02356000 DCLIOLEN EQU ISTDCLCP+96 02357000 ISTACDEB EQU 0 02358000 ACDVTPRX EQU ISTACDEB 02359000 ACDDBPFX EQU ISTACDEB+16 02360000 ACDTBLOF EQU ACDDBPFX+6 02361000 ACDBASIC EQU ISTACDEB+24 02362000 ACDTCBAD EQU ACDBASIC 02363000 ACDNMSUB EQU ACDTCBAD 02364000 ACDDEBAD EQU ACDBASIC+4 02365000 ACDUSRPG EQU ACDBASIC+16 02366000 ACDACBAD EQU ACDBASIC+24 02367000 ACDAPPAD EQU ACDBASIC+28 02368000 ACDVTAM EQU ISTACDEB+56 02369000 ACDSSFLG EQU ACDVTAM+80 02370000 ACDAPDAT EQU ACDVTAM+83 02371000 ISTPROCD EQU 0 02372000 PROPROC EQU ISTPROCD 02373000 PROPROC1 EQU PROPROC 02374000 PROTRUNC EQU PROPROC1 02375000 PROPROC2 EQU PROPROC+1 02376000 PROCFTX EQU PROPROC2 02377000 PROPROC3 EQU PROPROC+2 02378000 PROPROC4 EQU PROPROC+3 02379000 PROPROCS EQU 0 02380000 PROSETMS EQU PROPROCS+1 02381000 PROSETM2 EQU PROSETMS 02382000 PROSETM3 EQU PROSETMS+1 02383000 PROSETM4 EQU PROSETMS+2 02384000 ISTFMCB EQU 0 02385000 FMCDNCBA EQU ISTFMCB+16 02386000 FMCSTAT EQU ISTFMCB+28 02387000 FMCSTAT1 EQU ISTFMCB+29 02388000 FMCCMDFL EQU ISTFMCB+31 02389000 FMCDEBA EQU ISTFMCB+32 02390000 FMCCMPS1 EQU ISTFMCB+36 02391000 FMCBUFNB EQU FMCCMPS1+2 02392000 FMCPROCD EQU ISTFMCB+48 02393000 FMCPAB3 EQU ISTFMCB+96 02394000 FMCSIPA EQU ISTFMCB+148 02395000 FMCNXOSQ EQU ISTFMCB+152 02396000 FMCNXCFM EQU FMCNXOSQ 02397000 FMCNXOSC EQU FMCNXOSQ+2 02398000 FMCSSTAT EQU ISTFMCB+159 02399000 FMCPACE EQU ISTFMCB+160 02400000 FMCPACEN EQU FMCPACE 02401000 FMCPACEM EQU FMCPACE+1 02402000 FMCPACPC EQU FMCPACE+2 02403000 FMCCVAL EQU FMCPACE+3 02404000 FMCOBCE EQU FMCCVAL 02405000 FMCCLEXT EQU ISTFMCB+164 02406000 FMCRPLA EQU FMCCLEXT 02407000 FMCFBA EQU FMCCLEXT+4 02408000 FMCCMPS2 EQU FMCCLEXT+16 02409000 FMCFLGA EQU FMCCMPS2 02410000 FMCFLGA0 EQU FMCFLGA 02411000 FMCFLGCL EQU FMCCMPS2+1 02412000 FMCFLGB7 EQU FMCFLGCL 02413000 FMCPSCMD EQU FMCCMPS2+2 02414000 FMCPSTAT EQU FMCCMPS2+3 02415000 FMCSTAT2 EQU ISTFMCB+186 02416000 FMCMODEB EQU ISTFMCB+189 02417000 FMCCLSEQ EQU ISTFMCB+190 02418000 FMCRRESP EQU ISTFMCB+195 02419000 FMCSSEGQ EQU ISTFMCB+200 02420000 FMCFBAS EQU ISTFMCB+216 02421000 FMCZV002 EQU FMCFBAS 02422000 FMCSNCTL EQU ISTFMCB+224 02423000 FMCSCFLG EQU FMCSNCTL 02424000 FMCVS1 EQU ISTFMCB+232 02425000 FMCZFLAG EQU FMCVS1 02426000 FMCZF006 EQU FMCZFLAG 02427000 FMCLBXM EQU FMCVS1+12 02428000 FMCSHEAQ EQU FMCLBXM 02429000 FMCLCPBQ EQU FMCVS1+16 02430000 FMCLCPAQ EQU FMCVS1+20 02431000 FMCSEQ1 EQU FMCVS1+34 02432000 FMCZFLG2 EQU FMCVS1+35 02433000 FMCCVFLG EQU FMCVS1+44 02434000 FMCFLAG EQU 0 02435000 FMCFLGB EQU FMCFLAG 02436000 MOVERTN EQU 0 02437000 ISTWKE EQU 0 02438000 WKECHAIN EQU ISTWKE+4 02439000 WKEFLAGS EQU WKECHAIN 02440000 ISTAVT EQU 0 02441000 ISTAS49 EQU ISTAVT+4 02442000 FMZL0009 EQU 0 02443000 FMZL0037 EQU 0 02444000 FMZL0053 EQU 0 02445000 ISTAPC34 EQU 0 02446000 ISTAPC37 EQU 0 02447000 ISTRPL EQU 0 02448000 FLC EQU PSA 02449000 PSARSVTE EQU PSARSVT 02450000 CVTS01 EQU CVTPGSIA 02451000 CVTLPDIA EQU CVTS01+12 02452000 CVTDIRST EQU CVTLPDIA 02453000 CVTSLIDA EQU CVTS01+24 02454000 CVTCTLFG EQU CVTS01+50 02455000 CVTRV210 EQU CVTS01+424 02456000 CVTRV219 EQU CVTS01+425 02457000 CVTRV228 EQU CVTS01+426 02458000 CVTRV237 EQU CVTS01+427 02459000 CVTMFRTR EQU CVTS01+452 02460000 CVTRV262 EQU CVTS01+468 02461000 CVTRV271 EQU CVTS01+469 02462000 CVTRV280 EQU CVTS01+470 02463000 CVTRV289 EQU CVTS01+471 02464000 CVTGSDA EQU CVTS01+600 02465000 FSBCOMBN EQU FSBNETRS 02466000 FSBRHFLD EQU FSBCOMBN+1 02467000 FSBRH3 EQU FSBRHFLD+2 02468000 FSBLDFLG EQU FSBRH3 02469000 @NM00066 EQU FSBRQTAG 02470000 LCPZTIE EQU LCPCID 02471000 LCPZSNAM EQU LCPZTIE+8 02472000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02473000 LCPZTRV4 EQU LCPZSNAM+4 02474000 LCPZTRV1 EQU LCPZSNAM 02475000 LCPZSNA EQU LCPZTIE+4 02476000 LCPZFMCA EQU LCPZTIE 02477000 FSBRT0B EQU @NM00066+1 02478000 FSBRT0A EQU @NM00066+1 02479000 FSBRT09 EQU @NM00066+1 02480000 FSBRT08 EQU @NM00066+1 02481000 FSBRT07 EQU @NM00066 02482000 FSBRT06 EQU @NM00066 02483000 FSBRT05 EQU @NM00066 02484000 FSBRT04 EQU @NM00066 02485000 FSBRT03 EQU @NM00066 02486000 FSBRT02 EQU @NM00066 02487000 FSBRT01 EQU @NM00066 02488000 FSBRT00 EQU @NM00066 02489000 FSBLDCUF EQU FSBLDFLG 02490000 FSBLDSIF EQU FSBLDFLG 02491000 FSBLDSOF EQU FSBLDFLG 02492000 FSBLDEBF EQU FSBLDFLG 02493000 FSBLDBBF EQU FSBLDFLG 02494000 FSBLDFME EQU FSBLDFLG 02495000 FSBLDSCF EQU FSBLDFLG 02496000 FSBLDRMF EQU FSBLDFLG 02497000 FSBRH2 EQU FSBRHFLD+1 02498000 FSBRH1 EQU FSBRHFLD 02499000 FSBALIGN EQU FSBCOMBN 02500000 CVTRV628 EQU CVTS01+728 02501000 CVTRV627 EQU CVTS01+724 02502000 CVTRV626 EQU CVTS01+720 02503000 CVTRV625 EQU CVTS01+716 02504000 CVTRV624 EQU CVTS01+712 02505000 CVTRV623 EQU CVTS01+708 02506000 CVTRV622 EQU CVTS01+704 02507000 CVTRV621 EQU CVTS01+700 02508000 CVTRV620 EQU CVTS01+696 02509000 CVTRV619 EQU CVTS01+692 02510000 CVTRV618 EQU CVTS01+688 02511000 CVTRV617 EQU CVTS01+684 02512000 CVTRV616 EQU CVTS01+680 02513000 CVTRV615 EQU CVTS01+676 02514000 CVTRV614 EQU CVTS01+672 02515000 CVTRV613 EQU CVTS01+668 02516000 CVTRV612 EQU CVTS01+664 02517000 CVTRV611 EQU CVTS01+660 02518000 CVTEVERM EQU CVTS01+656 02519000 CVTIRM EQU CVTS01+652 02520000 CVTCGK EQU CVTS01+648 02521000 CVTRAC EQU CVTS01+644 02522000 CVTRV606 EQU CVTS01+640 02523000 CVTRV605 EQU CVTS01+636 02524000 CVTRV604 EQU CVTS01+632 02525000 CVTEFF02 EQU CVTS01+628 02526000 CVTCBBR EQU CVTS01+624 02527000 CVTSSCR EQU CVTS01+620 02528000 CVTEVENT EQU CVTS01+616 02529000 CVTCRCA EQU CVTS01+612 02530000 CVTTPIO EQU CVTS01+608 02531000 CVTADV EQU CVTS01+604 02532000 CVTGSDAB EQU CVTGSDA 02533000 CVTQV3 EQU CVTS01+596 02534000 CVTQV2 EQU CVTS01+592 02535000 CVTQV1 EQU CVTS01+588 02536000 CVTRPT EQU CVTS01+584 02537000 CVTSSRB EQU CVTS01+580 02538000 CVTCSDRL EQU CVTS01+576 02539000 CVTEXP1 EQU CVTS01+572 02540000 CVTRMPMT EQU CVTS01+568 02541000 CVTRMPTT EQU CVTS01+564 02542000 CVTVPSA EQU CVTS01+560 02543000 CVTVSTOP EQU CVTS01+556 02544000 CVTGTFR8 EQU CVTS01+552 02545000 CVTQUIT EQU CVTS01+548 02546000 CVTVACR EQU CVTS01+544 02547000 CVTWTCB EQU CVTS01+540 02548000 CVTSTPRS EQU CVTS01+536 02549000 CVT0PT02 EQU CVTS01+532 02550000 CVTDARCM EQU CVTS01+528 02551000 CVTIRECM EQU CVTS01+524 02552000 CVTJRECM EQU CVTS01+520 02553000 CVTVEMS0 EQU CVTS01+516 02554000 CVTSPFRR EQU CVTS01+512 02555000 CVTRLSTG EQU CVTS01+508 02556000 CVT0TC0A EQU CVTS01+504 02557000 CVTGMBR EQU CVTS01+500 02558000 CVTLFRM EQU CVTS01+496 02559000 CVTRMBR EQU CVTS01+492 02560000 CVTVIOP EQU CVTS01+488 02561000 CVTRV307 EQU CVTS01+486 02562000 CVTRV306 EQU CVTS01+484 02563000 CVTRV305 EQU CVTS01+482 02564000 CVTRV304 EQU CVTS01+480 02565000 CVTRV303 EQU CVTS01+478 02566000 CVTRV302 EQU CVTS01+476 02567000 CVTTRCA EQU CVTS01+472 02568000 CVTRV297 EQU CVTRV289 02569000 CVTRV296 EQU CVTRV289 02570000 CVTRV295 EQU CVTRV289 02571000 CVTRV294 EQU CVTRV289 02572000 CVTRV293 EQU CVTRV289 02573000 CVTRV292 EQU CVTRV289 02574000 CVTRV291 EQU CVTRV289 02575000 CVTRV290 EQU CVTRV289 02576000 CVTRV288 EQU CVTRV280 02577000 CVTRV287 EQU CVTRV280 02578000 CVTRV286 EQU CVTRV280 02579000 CVTRV285 EQU CVTRV280 02580000 CVTRV284 EQU CVTRV280 02581000 CVTRV283 EQU CVTRV280 02582000 CVTRV282 EQU CVTRV280 02583000 CVTRV281 EQU CVTRV280 02584000 CVTRV279 EQU CVTRV271 02585000 CVTRV278 EQU CVTRV271 02586000 CVTRV277 EQU CVTRV271 02587000 CVTRV276 EQU CVTRV271 02588000 CVTRV275 EQU CVTRV271 02589000 CVTRV274 EQU CVTRV271 02590000 CVTRV273 EQU CVTRV271 02591000 CVTRV272 EQU CVTRV271 02592000 CVTRV270 EQU CVTRV262 02593000 CVTRV269 EQU CVTRV262 02594000 CVTRV268 EQU CVTRV262 02595000 CVTRV267 EQU CVTRV262 02596000 CVTRV266 EQU CVTRV262 02597000 CVTRV265 EQU CVTRV262 02598000 CVTRV264 EQU CVTRV262 02599000 CVTRV263 EQU CVTRV262 02600000 CVTVFP EQU CVTS01+464 02601000 CVTVSI EQU CVTS01+460 02602000 CVTVPSIB EQU CVTS01+456 02603000 CVTMFACT EQU CVTMFRTR 02604000 CVTMFCTL EQU CVTS01+448 02605000 CVTPVBP EQU CVTS01+444 02606000 CVTPWI EQU CVTS01+440 02607000 CVTRV254 EQU CVTS01+438 02608000 CVTRV253 EQU CVTS01+436 02609000 CVTRV252 EQU CVTS01+434 02610000 CVTRV251 EQU CVTS01+433 02611000 CVTRV250 EQU CVTS01+432 02612000 CVTRV249 EQU CVTS01+431 02613000 CVTRV248 EQU CVTS01+430 02614000 CVTRV247 EQU CVTS01+429 02615000 CVTRV246 EQU CVTS01+428 02616000 CVTRV245 EQU CVTRV237 02617000 CVTRV244 EQU CVTRV237 02618000 CVTRV243 EQU CVTRV237 02619000 CVTRV242 EQU CVTRV237 02620000 CVTRV241 EQU CVTRV237 02621000 CVTRV240 EQU CVTRV237 02622000 CVTRV239 EQU CVTRV237 02623000 CVTRV238 EQU CVTRV237 02624000 CVTRV236 EQU CVTRV228 02625000 CVTRV235 EQU CVTRV228 02626000 CVTRV234 EQU CVTRV228 02627000 CVTRV233 EQU CVTRV228 02628000 CVTRV232 EQU CVTRV228 02629000 CVTRV231 EQU CVTRV228 02630000 CVTRV230 EQU CVTRV228 02631000 CVTRV229 EQU CVTRV228 02632000 CVTRV227 EQU CVTRV219 02633000 CVTRV226 EQU CVTRV219 02634000 CVTRV225 EQU CVTRV219 02635000 CVTRV224 EQU CVTRV219 02636000 CVTRV223 EQU CVTRV219 02637000 CVTRV222 EQU CVTRV219 02638000 CVTRV221 EQU CVTRV219 02639000 CVTRV220 EQU CVTRV219 02640000 CVTRV218 EQU CVTRV210 02641000 CVTRV217 EQU CVTRV210 02642000 CVTRV216 EQU CVTRV210 02643000 CVTRV215 EQU CVTRV210 02644000 CVTRV214 EQU CVTRV210 02645000 CVTRV213 EQU CVTRV210 02646000 CVTRV212 EQU CVTRV210 02647000 CVTRV211 EQU CVTRV210 02648000 CVTLCCAT EQU CVTS01+420 02649000 CVTPCCAT EQU CVTS01+416 02650000 CVTIPCRP EQU CVTS01+412 02651000 CVTIPCRI EQU CVTS01+408 02652000 CVTIPCDS EQU CVTS01+404 02653000 CVTAIDVT EQU CVTS01+400 02654000 CVTSSAP EQU CVTS01+396 02655000 CVTEHCIR EQU CVTS01+392 02656000 CVTEHDEF EQU CVTS01+388 02657000 CVTDAIR EQU CVTS01+384 02658000 CVTPERFM EQU CVTS01+380 02659000 CVT044R2 EQU CVTS01+376 02660000 CVTFETCH EQU CVTS01+372 02661000 CVTRSTWD EQU CVTS01+368 02662000 CVTSPOST EQU CVTS01+364 02663000 CVTIOBP EQU CVTS01+360 02664000 CVTASMVT EQU CVTS01+356 02665000 CVTRECRQ EQU CVTS01+352 02666000 CVTWSAC EQU CVTS01+348 02667000 CVTRV149 EQU CVTS01+344 02668000 CVTWSAL EQU CVTS01+340 02669000 CVTSPSA EQU CVTS01+336 02670000 CVTGLMN EQU CVTS01+332 02671000 CVTVEAC0 EQU CVTS01+328 02672000 CVT062R1 EQU CVTS01+324 02673000 CVTRPOST EQU CVTS01+320 02674000 CVTDQIQE EQU CVTS01+316 02675000 CVTCSD EQU CVTS01+312 02676000 CVTLKRMA EQU CVTS01+308 02677000 CVTRSPIE EQU CVTS01+304 02678000 CVTRENQ EQU CVTS01+300 02679000 CVTLQCB EQU CVTS01+296 02680000 CVTFQCB EQU CVTS01+292 02681000 CVTQCS01 EQU CVTS01+288 02682000 CVTAPFT EQU CVTS01+284 02683000 CVTPARRL EQU CVTS01+280 02684000 CVTVWAIT EQU CVTS01+276 02685000 CVTGSPL EQU CVTS01+272 02686000 CVTLSMQ EQU CVTS01+268 02687000 CVTGSMQ EQU CVTS01+264 02688000 CVTEXPRO EQU CVTS01+260 02689000 CVTOPCTP EQU CVTS01+256 02690000 CVTSIC EQU CVTS01+252 02691000 CVTTPIOS EQU CVTS01+248 02692000 CVTRTMS EQU CVTS01+244 02693000 CVTSDBF EQU CVTS01+240 02694000 CVTSCBP EQU CVTS01+236 02695000 CVTSDMP EQU CVTS01+232 02696000 CVTSV60 EQU CVTS01+228 02697000 CVTRTMCT EQU CVTS01+224 02698000 CVTASCBL EQU CVTS01+220 02699000 CVTASCBH EQU CVTS01+216 02700000 CVTGDA EQU CVTS01+212 02701000 CVTASVT EQU CVTS01+208 02702000 CVTVVMDI EQU CVTS01+204 02703000 CVTAQTOP EQU CVTS01+200 02704000 CVTIOSCS EQU CVTS01+196 02705000 CVTSDRM EQU CVTS01+192 02706000 CVTOPTE EQU CVTS01+188 02707000 CVTSTXU EQU CVTS01+184 02708000 CVTQUIS EQU CVTS01+180 02709000 CVTPARS EQU CVTS01+176 02710000 CVTS1EE EQU CVTS01+172 02711000 CVTFRAS EQU CVTS01+168 02712000 CVTQSAS EQU CVTS01+164 02713000 CVTCRAS EQU CVTS01+160 02714000 CVTCRMN EQU CVTS01+156 02715000 CVTDELCP EQU CVTS01+152 02716000 CVTFRECL EQU CVTS01+148 02717000 CVTGETCL EQU CVTS01+144 02718000 CVTBLDCP EQU CVTS01+140 02719000 CVTAUTHL EQU CVTS01+136 02720000 CVTSCAN EQU CVTS01+132 02721000 CVTRV144 EQU CVTS01+130 02722000 CVTMAXMP EQU CVTS01+128 02723000 CVTSTCK EQU CVTS01+124 02724000 CVTRV139 EQU CVTS01+123 02725000 CVTDSSAC EQU CVTS01+122 02726000 CVTRV513 EQU CVTS01+121 02727000 CVTIOSPL EQU CVTS01+120 02728000 CVTPTGT EQU CVTS01+116 02729000 CVTCSPIE EQU CVTS01+112 02730000 CVTSMFEX EQU CVTS01+108 02731000 CVTOLT0A EQU CVTS01+104 02732000 CVTSRBRT EQU CVTS01+100 02733000 CVTPUTL EQU CVTS01+96 02734000 CVTRV519 EQU CVTS01+92 02735000 CVTRV327 EQU CVTS01+88 02736000 CVTRV326 EQU CVTS01+84 02737000 CVTRV325 EQU CVTS01+80 02738000 CVTRV324 EQU CVTS01+76 02739000 CVT0VL01 EQU CVTS01+72 02740000 CVTSHRVM EQU CVTS01+68 02741000 CVTRV332 EQU CVTS01+64 02742000 CVTTAS EQU CVTS01+60 02743000 CVTRSCN EQU CVTS01+56 02744000 CVTTRAC2 EQU CVTS01+54 02745000 CVTTRACE EQU CVTS01+52 02746000 CVTAPG EQU CVTS01+51 02747000 CVTSDTRC EQU CVTCTLFG 02748000 CVTGTRCE EQU CVTCTLFG 02749000 CVTNOMP EQU CVTCTLFG 02750000 CVTRSV79 EQU CVTCTLFG 02751000 CVTDSTAT EQU CVTCTLFG 02752000 CVTRSV78 EQU CVTCTLFG 02753000 CVTRV333 EQU CVTCTLFG 02754000 CVTRV323 EQU CVTCTLFG 02755000 CVTSPVLK EQU CVTS01+49 02756000 CVTRSV77 EQU CVTS01+48 02757000 CVTRV331 EQU CVTS01+44 02758000 CVTRV330 EQU CVTS01+40 02759000 CVTRV329 EQU CVTS01+36 02760000 CVTRV328 EQU CVTS01+32 02761000 CVTRV322 EQU CVTS01+28 02762000 CVTSLID EQU CVTSLIDA+1 02763000 CVTSYLK EQU CVTSLIDA 02764000 CVTRV321 EQU CVTS01+20 02765000 CVTRV320 EQU CVTS01+16 02766000 CVTLPDIR EQU CVTLPDIA+1 02767000 CVTRSV69 EQU CVTDIRST 02768000 CVTRSV68 EQU CVTDIRST 02769000 CVTRSV67 EQU CVTDIRST 02770000 CVTRSV66 EQU CVTDIRST 02771000 CVTRSV65 EQU CVTDIRST 02772000 CVTRSV64 EQU CVTDIRST 02773000 CVTRSV63 EQU CVTDIRST 02774000 CVTDICOM EQU CVTDIRST 02775000 CVTPVTP EQU CVTS01+8 02776000 CVTLPDSR EQU CVTS01+4 02777000 CVTGETL EQU CVTS01 02778000 PSARSAV EQU PSARSVTE+60 02779000 PSARSTK EQU PSARSVTE+56 02780000 PSAESAV3 EQU PSARSVTE+52 02781000 PSAESTK3 EQU PSARSVTE+48 02782000 PSAESAV2 EQU PSARSVTE+44 02783000 PSAESTK2 EQU PSARSVTE+40 02784000 PSAESAV1 EQU PSARSVTE+36 02785000 PSAESTK1 EQU PSARSVTE+32 02786000 PSAPSAV EQU PSARSVTE+28 02787000 PSAPSTK EQU PSARSVTE+24 02788000 PSAMSAV EQU PSARSVTE+20 02789000 PSAMSTK EQU PSARSVTE+16 02790000 PSASSAV EQU PSARSVTE+12 02791000 PSASSTK EQU PSARSVTE+8 02792000 PSANSTK EQU PSARSVTE+4 02793000 PSACSTK EQU PSARSVTE 02794000 ISTPDAVP EQU ISTAVT+40 02795000 ISTAVR01 EQU ISTAVT+38 02796000 ISTVTTP EQU ISTAVT+36 02797000 ISTAGTWT EQU ISTAVT+34 02798000 ISTATRT EQU ISTAVT+32 02799000 ISTARID EQU ISTAVT+30 02800000 ISTX1 EQU ISTAVT+29 02801000 ISTPHNM EQU ISTAVT+24 02802000 ISTAPSEX EQU ISTAVT+20 02803000 ISTVTTIK EQU ISTAVT+18 02804000 AVTASID EQU ISTAVT+16 02805000 ISTAPSTA EQU ISTAVT+12 02806000 ISTAS53 EQU ISTAVT+8 02807000 ISTAHIP EQU ISTAS49 02808000 ISTACVT EQU ISTAVT 02809000 WKECHNGP EQU WKECHAIN+1 02810000 @NM00101 EQU WKEFLAGS 02811000 WKEGATE EQU WKEFLAGS 02812000 @NM00100 EQU ISTWKE 02813000 FMCFLRSV EQU FMCFLGB 02814000 FMCFLGA8 EQU FMCFLGB 02815000 FMCCLRPH EQU FMCVS1+45 02816000 FMCRSV0X EQU FMCCVFLG 02817000 FMCVYRPH EQU FMCCVFLG 02818000 FMCZV004 EQU FMCVS1+40 02819000 FMCLOCK2 EQU FMCVS1+36 02820000 @NM00095 EQU FMCZFLG2 02821000 FMCZF027 EQU FMCZFLG2 02822000 FMCZF026 EQU FMCZFLG2 02823000 FMCSEQ1B EQU FMCSEQ1 02824000 FMCSEQ1T EQU FMCSEQ1 02825000 FMCZX006 EQU FMCVS1+33 02826000 FMCZX005 EQU FMCVS1+32 02827000 FMCZX004 EQU FMCVS1+31 02828000 FMCZX003 EQU FMCVS1+30 02829000 FMCZX002 EQU FMCVS1+29 02830000 FMCZX001 EQU FMCVS1+28 02831000 FMCZV001 EQU FMCVS1+24 02832000 FMCAWATQ EQU FMCLCPAQ+1 02833000 @NM00094 EQU FMCLCPAQ 02834000 FMCLCPB2 EQU FMCLCPBQ+1 02835000 FMCLCPB1 EQU FMCLCPBQ 02836000 FMCASCDQ EQU FMCSHEAQ+1 02837000 @NM00093 EQU FMCSHEAQ 02838000 FMCSHEDQ EQU FMCVS1+8 02839000 FMCRSV04 EQU FMCVS1+6 02840000 FMCZH001 EQU FMCVS1+4 02841000 FMCZF025 EQU FMCZFLAG+3 02842000 FMCZF024 EQU FMCZFLAG+3 02843000 FMCZF023 EQU FMCZFLAG+3 02844000 FMCZF022 EQU FMCZFLAG+3 02845000 FMCZF021 EQU FMCZFLAG+3 02846000 FMCZF020 EQU FMCZFLAG+3 02847000 FMCZF019 EQU FMCZFLAG+3 02848000 FMCZF018 EQU FMCZFLAG+3 02849000 FMCZF017 EQU FMCZFLAG+2 02850000 FMCZF016 EQU FMCZFLAG+2 02851000 FMCZF015 EQU FMCZFLAG+2 02852000 FMCZF014 EQU FMCZFLAG+2 02853000 FMCZF013 EQU FMCZFLAG+2 02854000 FMCZF012 EQU FMCZFLAG+2 02855000 FMCZF011 EQU FMCZFLAG+2 02856000 FMCZF010 EQU FMCZFLAG+2 02857000 FMCZF00F EQU FMCZFLAG+1 02858000 FMCZF00E EQU FMCZFLAG+1 02859000 FMCZF00D EQU FMCZFLAG+1 02860000 FMCZF00C EQU FMCZFLAG+1 02861000 FMCZF00B EQU FMCZFLAG+1 02862000 FMCRSV10 EQU FMCZFLAG+1 02863000 FMCZF009 EQU FMCZFLAG+1 02864000 FMCZFD06 EQU FMCZF006+1 02865000 FMCZFC06 EQU FMCZF006 02866000 FMCZFB06 EQU FMCZF006 02867000 FMCZFA06 EQU FMCZF006 02868000 FMCZF005 EQU FMCZFLAG 02869000 FMCZF004 EQU FMCZFLAG 02870000 FMCZF003 EQU FMCZFLAG 02871000 FMCZF002 EQU FMCZFLAG 02872000 FMCZF001 EQU FMCZFLAG 02873000 FMCFRESA EQU ISTFMCB+228 02874000 FMCSCSQN EQU FMCSNCTL+2 02875000 FMCSCCTL EQU FMCSNCTL+1 02876000 FMCSTCTL EQU FMCSCFLG 02877000 FMCSCCLO EQU FMCSCFLG 02878000 FMCAPRO EQU FMCSCFLG 02879000 FMCLURO EQU FMCSCFLG 02880000 FMCOBSAC EQU FMCSCFLG 02881000 FMCIBSAC EQU FMCSCFLG 02882000 FMCFBRE EQU ISTFMCB+220 02883000 FMCFBXM EQU FMCZV002 02884000 FMCASEGQ EQU ISTFMCB+212 02885000 FMCRDTPT EQU ISTFMCB+208 02886000 FMCLOCK EQU ISTFMCB+204 02887000 FMCSEGD EQU FMCSSEGQ 02888000 FMCRSPLM EQU ISTFMCB+198 02889000 FMCPSTRS EQU ISTFMCB+196 02890000 @NM00092 EQU FMCRRESP 02891000 FMCTSLHA EQU FMCRRESP 02892000 FMCFRRN EQU FMCRRESP 02893000 FMCFME EQU FMCRRESP 02894000 FMCFEX EQU FMCRRESP 02895000 FMCFPE EQU FMCRRESP 02896000 FMCCTLB EQU ISTFMCB+194 02897000 FMCBSQNO EQU FMCCLSEQ+2 02898000 FMCTSQNO EQU FMCCLSEQ 02899000 FMCOBPRG EQU FMCMODEB 02900000 FMCIBPRG EQU FMCMODEB 02901000 FMCRESOT EQU FMCMODEB 02902000 FMCRSTSR EQU FMCMODEB 02903000 FMCLUQ EQU FMCMODEB 02904000 FMCAPQ EQU FMCMODEB 02905000 FMCCLEAR EQU FMCMODEB 02906000 FMCHOLD EQU FMCMODEB 02907000 FMCIPSEQ EQU ISTFMCB+188 02908000 FMCLUSTR EQU ISTFMCB+187 02909000 FMCRSV87 EQU FMCSTAT2 02910000 FMCSEQI EQU FMCSTAT2 02911000 FMCCPIP EQU FMCSTAT2 02912000 FMCALIPR EQU FMCSTAT2 02913000 FMCIAIO EQU FMCSTAT2 02914000 FMCZF00A EQU FMCSTAT2 02915000 FMCVPIP EQU FMCSTAT2 02916000 FMCBHSET EQU ISTFMCB+185 02917000 FMCPRMRC EQU FMCCLEXT+20 02918000 FMCRSV89 EQU FMCPSTAT 02919000 FMCPCLSD EQU FMCPSTAT 02920000 FMCDDOCD EQU FMCPSTAT 02921000 FMCIDVFD EQU FMCPSTAT 02922000 FMCELKST EQU FMCPSTAT 02923000 FMCRSV88 EQU FMCPSCMD 02924000 FMCRDBLK EQU FMCPSCMD 02925000 FMCDSEOC EQU FMCPSCMD 02926000 FMCPURGE EQU FMCPSCMD 02927000 FMCRESTI EQU FMCPSCMD 02928000 FMCCNTCT EQU FMCPSCMD 02929000 FMCINVT EQU FMCPSCMD 02930000 FMCFLGB6 EQU FMCFLGCL 02931000 FMCFLGB5 EQU FMCFLGCL 02932000 FMCFLGB4 EQU FMCFLGCL 02933000 FMCFLGB3 EQU FMCFLGCL 02934000 FMCFLGB2 EQU FMCFLGCL 02935000 FMCFLGB1 EQU FMCFLGCL 02936000 FMCFLGB0 EQU FMCFLGCL 02937000 FMCFLGA7 EQU FMCFLGA 02938000 FMCFLGA6 EQU FMCFLGA 02939000 FMCFLGA5 EQU FMCFLGA 02940000 FMCFLGA4 EQU FMCFLGA 02941000 FMCFLGA3 EQU FMCFLGA 02942000 FMCFLGA2 EQU FMCFLGA 02943000 FMCFLGA1 EQU FMCFLGA 02944000 FMCDCLOK EQU FMCCLEXT+12 02945000 FMCRAFM EQU FMCCLEXT+8 02946000 FMCFBPTR EQU FMCFBA+1 02947000 FMCFBRSV EQU FMCFBA 02948000 FMCRPLPT EQU FMCRPLA+1 02949000 FMCRPLRS EQU FMCRPLA 02950000 FMCPRCLS EQU FMCCVAL 02951000 FMCIBCE EQU FMCCVAL 02952000 FMCONLY EQU FMCOBCE 02953000 FMCLAST EQU FMCOBCE 02954000 FMCMIDLE EQU FMCOBCE 02955000 FMCFIRST EQU FMCOBCE 02956000 FMCCPCNT EQU FMCPACPC 02957000 FMCMPCNT EQU FMCPACEM 02958000 FMCNPCNT EQU FMCPACEN 02959000 FMCCONF EQU FMCSSTAT 02960000 FMCPURCH EQU FMCSSTAT 02961000 FMCNSALU EQU FMCSSTAT 02962000 FMCBIP EQU FMCSSTAT 02963000 FMCSDTR EQU FMCSSTAT 02964000 FMCUIPI EQU FMCSSTAT 02965000 FMCCIPI EQU FMCSSTAT 02966000 FMCSNBI EQU FMCSSTAT 02967000 FMCRVD01 EQU ISTFMCB+158 02968000 FMCISSN EQU ISTFMCB+156 02969000 FMCOASN EQU FMCNXOSC 02970000 FMCOSSN EQU FMCNXCFM 02971000 FMCSIP EQU FMCSIPA 02972000 FMCEXLST EQU ISTFMCB+144 02973000 FMCPAB5 EQU ISTFMCB+128 02974000 FMCPAB4 EQU ISTFMCB+112 02975000 FMCPAB2 EQU ISTFMCB+80 02976000 FMCPAB1 EQU ISTFMCB+64 02977000 FMCFASYA EQU ISTFMCB+60 02978000 FMCMODE EQU ISTFMCB+52 02979000 FMCVWT EQU ISTFMCB+44 02980000 FMCRPLH EQU ISTFMCB+40 02981000 FMCBUFLM EQU FMCCMPS1 02982000 @NM00091 EQU FMCCMDFL 02983000 FMCSNA EQU FMCCMDFL 02984000 FMCVSNA EQU FMCCMDFL 02985000 FMCCMDR EQU FMCCMDFL 02986000 @NM00090 EQU ISTFMCB+30 02987000 @NM00089 EQU FMCSTAT1 02988000 FMCHPURG EQU FMCSTAT1 02989000 FMCVSP2 EQU FMCSTAT1 02990000 FMCVSP1 EQU FMCSTAT 02991000 FMCLTEAS EQU FMCSTAT 02992000 FMCZF007 EQU FMCSTAT 02993000 FMCDEDSC EQU FMCSTAT 02994000 FMCDEVOF EQU FMCSTAT 02995000 FMCDAPT EQU FMCSTAT 02996000 FMCPRMTE EQU FMCSTAT 02997000 FMCPRMTR EQU FMCSTAT 02998000 FMCUSFLD EQU ISTFMCB+24 02999000 FMCFMCBA EQU ISTFMCB+20 03000000 FMCDVTA EQU ISTFMCB+12 03001000 FMCTSKID EQU ISTFMCB+8 03002000 FMCNXTCB EQU ISTFMCB+4 03003000 FMCSAF EQU ISTFMCB+2 03004000 FMCLNGTH EQU ISTFMCB+1 03005000 FMCTYPE EQU ISTFMCB 03006000 PROSRDEF EQU PROSETM4 03007000 PRORSV47 EQU PROSETM4 03008000 PROSCON EQU PROSETM4 03009000 PRORSV46 EQU PROSETM3 03010000 PROSMONT EQU PROSETM3 03011000 PRORSV45 EQU PROSETM3 03012000 PROSNTO EQU PROSETM3 03013000 PRORSV44 EQU PROSETM3 03014000 PRORSV43 EQU PROSETM2 03015000 PROSNTFL EQU PROSETM2 03016000 PRORSV42 EQU PROSETM2 03017000 PRORSV41 EQU PROPROCS 03018000 PROMODC EQU PROPROC4 03019000 PROMODT EQU PROPROC4 03020000 PROMODM EQU PROPROC4 03021000 PROMODB EQU PROPROC4 03022000 PRORSV14 EQU PROPROC4 03023000 PRORSV13 EQU PROPROC4 03024000 PRORSV12 EQU PROPROC4 03025000 PROEIB EQU PROPROC4 03026000 PRORSV11 EQU PROPROC3 03027000 PROMONT2 EQU PROPROC3 03028000 PROMONIT EQU PROPROC3 03029000 PROSUBLK EQU PROPROC3 03030000 PRONTO EQU PROPROC3 03031000 PROLGIN EQU PROPROC3 03032000 PROERPI EQU PROPROC3 03033000 PRORSV07 EQU PROPROC3 03034000 PROEMLC EQU PROPROC2 03035000 PRONTFL EQU PROPROC2 03036000 PRORSV05 EQU PROPROC2 03037000 PRORSV04 EQU PROPROC2 03038000 PROLGOT EQU PROPROC2 03039000 PROERPO EQU PROPROC2 03040000 PRORSV03 EQU PROPROC2 03041000 PRORPLC EQU PROPROC1 03042000 PROCS EQU PROPROC1 03043000 PROCA EQU PROPROC1 03044000 PRORESPX EQU PROPROC1 03045000 PRODFASY EQU PROPROC1 03046000 PROXPOPT EQU PROPROC1 03047000 PROASYIP EQU PROPROC1 03048000 ACDREFQ EQU ISTACDEB+204 03049000 ACDASFQ EQU ISTACDEB+200 03050000 ACDSOP EQU ISTACDEB+184 03051000 ACDSIP EQU ISTACDEB+168 03052000 ACDRSV24 EQU ACDVTAM+108 03053000 ACDRSV23 EQU ACDVTAM+104 03054000 ACDRSV22 EQU ACDVTAM+100 03055000 ACDOCWAD EQU ACDVTAM+96 03056000 ACDRSV10 EQU ACDVTAM+92 03057000 ACDAPDDT EQU ACDAPDAT+1 03058000 ACDAPDLN EQU ACDAPDAT 03059000 ACDRSV07 EQU ACDVTAM+82 03060000 ACDRSV06 EQU ACDVTAM+81 03061000 ACDRSV09 EQU ACDSSFLG 03062000 ACDAICLS EQU ACDSSFLG 03063000 ACDABEND EQU ACDSSFLG 03064000 ACDCACB EQU ACDSSFLG 03065000 ACDRSV21 EQU ACDVTAM+64 03066000 ACDSSPAB EQU ACDVTAM+48 03067000 ACDNEPAB EQU ACDVTAM+32 03068000 ACDRSV20 EQU ACDVTAM+20 03069000 ACDRARQ EQU ACDVTAM+16 03070000 ACDRAFQ EQU ACDVTAM+12 03071000 ACDFMCB EQU ACDVTAM+8 03072000 ACDRDTE EQU ACDVTAM+4 03073000 ACDLOCK EQU ACDVTAM 03074000 ACDAPP EQU ACDAPPAD+1 03075000 ACDEXSCL EQU ACDAPPAD 03076000 ACDACB EQU ACDACBAD+1 03077000 ACDDEBID EQU ACDACBAD 03078000 ACDPROTG EQU ACDACBAD 03079000 ACDECBAD EQU ACDBASIC+20 03080000 ACDUSRPB EQU ACDUSRPG+1 03081000 ACDNMEXT EQU ACDUSRPG 03082000 ACDPRLEN EQU ACDBASIC+15 03083000 ACDFLGS1 EQU ACDBASIC+14 03084000 ACDQSCNT EQU ACDBASIC+13 03085000 ACDOPATB EQU ACDBASIC+12 03086000 ACDIRBAD EQU ACDBASIC+8 03087000 ACDDEB EQU ACDDEBAD+1 03088000 ACDAMLNG EQU ACDDEBAD 03089000 ACDTCB EQU ACDTCBAD+1 03090000 ACDOPNAD EQU ACDNMSUB 03091000 ACDRSV03 EQU ACDTBLOF+1 03092000 ACDRSV02 EQU ACDTBLOF 03093000 ACDAMTYP EQU ACDDBPFX+5 03094000 ACDLENG EQU ACDDBPFX+4 03095000 ACDDEBX EQU ACDDBPFX 03096000 ACDRSV08 EQU ACDVTPRX+12 03097000 ACDTSKID EQU ACDVTPRX+8 03098000 ACDCHN EQU ACDVTPRX+4 03099000 ACDSAF EQU ACDVTPRX+2 03100000 ACDLNGTH EQU ACDVTPRX+1 03101000 ACDTYPE EQU ACDVTPRX 03102000 DCLECHAR EQU ISTDCLCP+98 03103000 DCLCLDOA EQU ISTDCLCP+88 03104000 DCLLDO1 EQU ISTDCLCP+80 03105000 DCLRSV03 EQU ISTDCLCP+79 03106000 DCLRSV02 EQU DCLFLAG1 03107000 DCLRPLS EQU DCLFLAG1 03108000 DCLBTEIS EQU DCLFLAG1 03109000 DCLNODE EQU DCLFLAG1 03110000 DCLRSV04 EQU DCLFLAG1 03111000 DCLBNSP EQU DCLRFLG 03112000 DCLCONV EQU DCLRFLG 03113000 DCLRSV01 EQU DCLRFLG 03114000 DCLLCCW3 EQU ISTDCLCP+64 03115000 NCBRSV01 EQU ISTNCB+46 03116000 NCBSWDAF EQU ISTNCB+44 03117000 NCBFMCBP EQU ISTNCB+32 03118000 NCBLTRC EQU ISTNCB+30 03119000 NCBRVPT1 EQU ISTNCB+28 03120000 NCBNMLLN EQU NCBFLAGS+3 03121000 @NM00088 EQU NCBFLAG1 03122000 @NM00087 EQU NCBFLAG1 03123000 NCBTTF EQU NCBFLAG1 03124000 NCBRSYNC EQU NCBFLAG1 03125000 NCBRSTRT EQU NCBFLAG1 03126000 NCBCONF EQU NCBFLAG1 03127000 NCBSNAI EQU NCBFLAG1 03128000 NCBFLTIO EQU NCBFTRIO 03129000 NCBCSTAT EQU NCBFLAGS 03130000 NCBNCSL EQU ISTNCB+22 03131000 NCBNCBA EQU ISTNCB+20 03132000 NCBFMCBA EQU ISTNCB+16 03133000 NCBNSNA EQU ISTNCB+12 03134000 NCBTSKID EQU ISTNCB+8 03135000 NCBRDTE EQU ISTNCB+4 03136000 NCBDAF EQU ISTNCB+2 03137000 NCBLNGTH EQU ISTNCB+1 03138000 NCBTYPE EQU ISTNCB 03139000 DEVRSV03 EQU ISTDEVCH+5 03140000 DEVPHYSA EQU ISTDEVCH+4 03141000 DEVCSLPN EQU DEVCHAR3 03142000 DEVCSTCL EQU DEVCHAR3 03143000 DEVCCHEK EQU DEVCHAR3 03144000 DEVCATTN EQU DEVCHAR3 03145000 DEVCSWL EQU DEVFCCTL 03146000 DEVCRVB EQU DEVFCCTL 03147000 DEVCSSL EQU DEVFCCTL 03148000 DEVCBSC EQU DEVFCCTL 03149000 DEVMCODE EQU ISTDEVCH+2 03150000 DEVCHAR2 EQU DEVTCODE 03151000 DEVRSV01 EQU DEVCHAR 03152000 DEVCCTL EQU DEVCHAR 03153000 DEVNNSPT EQU DEVCHAR 03154000 DEVSPS EQU DEVCHAR 03155000 DEVSUBND EQU DEVCHAR 03156000 DEVCONVR EQU DEVCHAR 03157000 DEVOTPUT EQU DEVCHAR 03158000 CRRRVPT5 EQU CRRSAREA+316 03159000 CRRRVPT4 EQU CRRSAREA+312 03160000 CRRRVPT3 EQU CRRSAREA+308 03161000 CRRRVPT2 EQU CRRSAREA+304 03162000 CRRRVPT1 EQU CRRSAREA+300 03163000 CRRRVCR2 EQU CRRSAREA+292 03164000 CRRRVCR1 EQU CRRSAREA+291 03165000 CRRXFNCD EQU CRRSAREA+290 03166000 CRRLDOCT EQU CRRSAREA+288 03167000 @NM00086 EQU CRRBFLGS 03168000 CRRBFLG1 EQU CRRBFLGS 03169000 CRRBLDAD EQU CRRSAREA+276 03170000 CRRRTN12 EQU CRRSAREA+268 03171000 CRRRTN11 EQU CRRSAREA+264 03172000 CRRRTN10 EQU CRRSAREA+260 03173000 CRRRTN8 EQU CRRSAREA+252 03174000 CRRRTN7 EQU CRRSAREA+248 03175000 CRRRTN6 EQU CRRSAREA+244 03176000 CRRRTN1 EQU CRRSAREA+224 03177000 CRRRES1 EQU CRRSAREA+222 03178000 CRRLCNT EQU CRRSAREA+220 03179000 CRRVALCK EQU CRRSAREA+212 03180000 CRRBIND EQU CRRTRBUF+3 03181000 CRRTRRES EQU CRRTRBUF 03182000 CRRCLDO EQU CRRSAREA+200 03183000 CRRUECB EQU CRRSAREA+196 03184000 CRRCMDAD EQU CRRSAREA+188 03185000 CRRCLCCW EQU CRRSAREA+180 03186000 CRRDSB2 EQU CRRDSB+1 03187000 CRRDSB1 EQU CRRDSB 03188000 CRRDTACT EQU CRRSAREA+174 03189000 CRRRSV99 EQU CRRSAREA+173 03190000 CRRLGFRC EQU CRRFDB3 03191000 CRRUNUSD EQU CRRFDB3 03192000 CRRUINPT EQU CRRFDB3 03193000 CRRCUERR EQU CRRFDB2 03194000 CRRDLGFL EQU CRRFDB2 03195000 CRRIOERR EQU CRRFDB2 03196000 CRRDVUNS EQU CRRFDB2 03197000 CRRATND EQU CRRFDB2 03198000 CRRRVID EQU CRRFDB2 03199000 CRRNSNA EQU CRRRTYPE 03200000 CRRDFSYN EQU CRRRTYPE 03201000 CRRRESP EQU CRRRTYPE 03202000 CRRDFASY EQU CRRRTYPE 03203000 CRRDBLCK EQU CRRRFLG1 03204000 CRRRPSBD EQU CRRRFLG1 03205000 CRRRPLOQ EQU CRRRFLG1 03206000 CRRRPLS EQU CRRRFLG1 03207000 CRRSW6 EQU CRRFLGS 03208000 CRRSW5 EQU CRRFLGS 03209000 CRRSW3 EQU CRRFLGS 03210000 CRRRSV04 EQU CRRFLGS4 03211000 CRRDLCCW EQU CRRFLGS3 03212000 CRRRESET EQU CRRFLGS3 03213000 CRRRSV08 EQU CRRFLGS3 03214000 CRRDEBQ EQU CRRFLGS3 03215000 CRRSTSPR EQU CRRFLGS3 03216000 CRRDREQ EQU CRRFLGS3 03217000 CRRDFDBK EQU CRRFLGS3 03218000 CRRDFSB EQU CRRFLGS2 03219000 CRRDPROC EQU CRRFLGS2 03220000 CRREXTS EQU CRRFLGS2 03221000 CRRPOST EQU CRRFLGS2 03222000 CRRENDLW EQU CRRFLGS2 03223000 CRRPRGIP EQU CRRFLGS2 03224000 CRRSOLRQ EQU CRRFLGS1 03225000 CRRREQP EQU CRRFLGS1 03226000 CRRCPROC EQU CRRFLGS1 03227000 CRRFINI EQU CRRFLGS1 03228000 CRRFLDOS EQU CRRFLGS1 03229000 CRRDOCUR EQU CRRFLGS1 03230000 CRRRATS4 EQU CRRATS+7 03231000 @NM00085 EQU CRRSATS 03232000 CRRASC51 EQU CRRSATS 03233000 CRRASC40 EQU CRRSATS 03234000 CRRASC30 EQU CRRSATS 03235000 CRRASC21 EQU CRRSATS 03236000 CRRASC10 EQU CRRSATS 03237000 CRRASC01 EQU CRRSATS 03238000 @NM00084 EQU CRRRATS2 03239000 CRRPLIC EQU CRRRATS2 03240000 CRRRC81 EQU CRRRATS2 03241000 CRRRC80 EQU CRRRATS2 03242000 CRRRC65 EQU CRRRATS2 03243000 CRRRC63 EQU CRRRATS2 03244000 CRRRC55 EQU CRRRATS2 03245000 CRRRC54 EQU CRRRATS2 03246000 CRRRC53 EQU CRRRATS1 03247000 CRRRC52 EQU CRRRATS1 03248000 CRRRC51 EQU CRRRATS1 03249000 CRRRC30 EQU CRRRATS1 03250000 CRRRC26 EQU CRRRATS1 03251000 CRRRC23 EQU CRRRATS1 03252000 CRRRC22 EQU CRRRATS1 03253000 CRRRC21 EQU CRRRATS1 03254000 @NM00083 EQU CRRATS4 03255000 CRRC3X EQU CRRATS4 03256000 CRRC85 EQU CRRATS4 03257000 CRRC83 EQU CRRATS4 03258000 CRRC82 EQU CRRATS4 03259000 CRRC61 EQU CRRATS4 03260000 CRRC60 EQU CRRATS4 03261000 CRRC81 EQU CRRATS3 03262000 CRRC80 EQU CRRATS3 03263000 CRRC75 EQU CRRATS3 03264000 CRRC51 EQU CRRATS3 03265000 CRRC50 EQU CRRATS3 03266000 CRRC42 EQU CRRATS3 03267000 CRRC41 EQU CRRATS3 03268000 CRRC40 EQU CRRATS3 03269000 CRRC32 EQU CRRATS2 03270000 CRRC31 EQU CRRATS2 03271000 CRRC30 EQU CRRATS2 03272000 CRRC25 EQU CRRATS2 03273000 CRRC24 EQU CRRATS2 03274000 CRRC23 EQU CRRATS2 03275000 CRRC22 EQU CRRATS2 03276000 CRRC20 EQU CRRATS1 03277000 CRRC13 EQU CRRATS1 03278000 CRRC12 EQU CRRATS1 03279000 CRRC11 EQU CRRATS1 03280000 CRRC10 EQU CRRATS1 03281000 CRRC02 EQU CRRATS1 03282000 CRRC01 EQU CRRATS1 03283000 CRRC00 EQU CRRATS1 03284000 CRRRMAS4 EQU CRRMAS+7 03285000 @NM00082 EQU CRRSMAS 03286000 CRRMSC51 EQU CRRSMAS 03287000 CRRMSC40 EQU CRRSMAS 03288000 CRRMSC30 EQU CRRSMAS 03289000 CRRMSC21 EQU CRRSMAS 03290000 CRRMSC10 EQU CRRSMAS 03291000 CRRMSC01 EQU CRRSMAS 03292000 @NM00081 EQU CRRRMAS2 03293000 CRRRM81 EQU CRRRMAS2 03294000 CRRRM80 EQU CRRRMAS2 03295000 CRRRM65 EQU CRRRMAS2 03296000 CRRRM63 EQU CRRRMAS2 03297000 CRRRM55 EQU CRRRMAS2 03298000 CRRRM54 EQU CRRRMAS2 03299000 CRRRM53 EQU CRRRMAS1 03300000 CRRRM52 EQU CRRRMAS1 03301000 CRRRM51 EQU CRRRMAS1 03302000 CRRRM30 EQU CRRRMAS1 03303000 CRRRM26 EQU CRRRMAS1 03304000 CRRRM23 EQU CRRRMAS1 03305000 CRRRM22 EQU CRRRMAS1 03306000 CRRRM21 EQU CRRRMAS1 03307000 @NM00080 EQU CRRMAS4 03308000 CRRM3X EQU CRRMAS4 03309000 CRRM85 EQU CRRMAS4 03310000 CRRM83 EQU CRRMAS4 03311000 CRRM82 EQU CRRMAS4 03312000 CRRM61 EQU CRRMAS4 03313000 CRRM60 EQU CRRMAS4 03314000 CRRM81 EQU CRRMAS3 03315000 CRRM80 EQU CRRMAS3 03316000 CRRM75 EQU CRRMAS3 03317000 CRRM51 EQU CRRMAS3 03318000 CRRM50 EQU CRRMAS3 03319000 CRRM42 EQU CRRMAS3 03320000 CRRM41 EQU CRRMAS3 03321000 CRRM40 EQU CRRMAS3 03322000 CRRM32 EQU CRRMAS2 03323000 CRRM31 EQU CRRMAS2 03324000 CRRM30 EQU CRRMAS2 03325000 CRRM25 EQU CRRMAS2 03326000 CRRM24 EQU CRRMAS2 03327000 CRRM23 EQU CRRMAS2 03328000 CRRM22 EQU CRRMAS2 03329000 CRRM20 EQU CRRMAS1 03330000 CRRM13 EQU CRRMAS1 03331000 CRRM12 EQU CRRMAS1 03332000 CRRM11 EQU CRRMAS1 03333000 CRRM10 EQU CRRMAS1 03334000 CRRM02 EQU CRRMAS1 03335000 CRRM01 EQU CRRMAS1 03336000 CRRM00 EQU CRRMAS1 03337000 CRRSAVE EQU CRRSAREA 03338000 CRRRSV22 EQU ISTDCCRR+4 03339000 CRRCRR EQU ISTDCCRR 03340000 CRACHAIN EQU ISTCRA+928 03341000 CRARSV02 EQU ISTCRA+924 03342000 CRARSV01 EQU ISTCRA+920 03343000 CRABFTBA EQU CRABUFA 03344000 CRAMASK EQU CRASVC+64 03345000 CRAHSIZ EQU CRASVC+60 03346000 CRAASCRR EQU CRASVC 03347000 CRAPSS EQU ISTCRA+160 03348000 CRARPH EQU ISTCRA+52 03349000 CRALAPTR EQU CRABASIC+48 03350000 CRAL9PTR EQU CRABASIC+44 03351000 CRAL8PTR EQU CRABASIC+40 03352000 CRAL7PTR EQU CRABASIC+36 03353000 CRAL6PTR EQU CRABASIC+32 03354000 CRAL5PTR EQU CRABASIC+28 03355000 CRAL4PTR EQU CRABASIC+24 03356000 CRAL3PTR EQU CRABASIC+20 03357000 CRAL2PTR EQU CRABASIC+16 03358000 CRAL1PTR EQU CRABASIC+12 03359000 CRALEV01 EQU CRALKACT+3 03360000 CRALEV02 EQU CRALKACT+3 03361000 CRALEV03 EQU CRALKACT+3 03362000 CRALEV04 EQU CRALKACT+3 03363000 CRALEV05 EQU CRALKACT+3 03364000 CRALEV06 EQU CRALKACT+3 03365000 CRALEV07 EQU CRALKACT+3 03366000 CRALEV08 EQU CRALKACT+3 03367000 CRALEV09 EQU CRALKACT+2 03368000 CRALEV10 EQU CRALKACT+2 03369000 CRALEV11 EQU CRALKACT+2 03370000 CRALEV12 EQU CRALKACT+2 03371000 CRALEV13 EQU CRALKACT+2 03372000 CRALEV14 EQU CRALKACT+2 03373000 CRALEV15 EQU CRALKACT+2 03374000 CRALEV16 EQU CRALKACT+2 03375000 CRALEV17 EQU CRALKACT+1 03376000 CRALEV18 EQU CRALKACT+1 03377000 CRALEV19 EQU CRALKACT+1 03378000 CRALEV20 EQU CRALKACT+1 03379000 CRALEV21 EQU CRALKACT+1 03380000 CRALEV22 EQU CRALKACT+1 03381000 CRALEV23 EQU CRALKACT+1 03382000 CRALEV24 EQU CRALKACT+1 03383000 CRALEV25 EQU CRALKACT 03384000 CRALEV26 EQU CRALKACT 03385000 CRALEV27 EQU CRALKACT 03386000 CRALEV28 EQU CRALKACT 03387000 CRALEV29 EQU CRALKACT 03388000 CRALEV30 EQU CRALKACT 03389000 CRALEV31 EQU CRALKACT 03390000 CRALEV32 EQU CRALKACT 03391000 CRAFRR EQU CRAHDR+4 03392000 CRACRR EQU CRAHDR 03393000 @NM00079 EQU ISTAPCRR+137 03394000 @NM00078 EQU APC57FLG 03395000 APCNREL EQU APC57FLG 03396000 APCRECRA EQU APC57FLG 03397000 @NM00077 EQU APC54FLG 03398000 APCRLST EQU APC54FLG 03399000 APCPR153 EQU APC53FLG 03400000 @NM00076 EQU APC52FLG 03401000 APCWKF EQU APC52FLG 03402000 APCNWF EQU APC52FLG 03403000 APCRDQ EQU APC52FLG 03404000 APCQENQ EQU APC52FLG 03405000 APCSMSR EQU APC52FLG 03406000 APCCKRQ EQU APC52FLG 03407000 @NM00075 EQU APC31FLG 03408000 APCSORT EQU APC31FLG 03409000 APCRESCH EQU APC31FLG 03410000 APCTPXIT EQU APC31FLG 03411000 APCSWTWD EQU ISTAPCRR+128 03412000 APCSAV2 EQU ISTAPCRR+124 03413000 APCSAV1 EQU ISTAPCRR+120 03414000 APCRETCD EQU APCCOMF+2 03415000 @NM00074 EQU APCCOMF1+1 03416000 APCZLBER EQU APCCOMF1 03417000 APCEXIT EQU APCCOMF1 03418000 APCRELR EQU APCCOMF1 03419000 APCIRB2 EQU APCCOMF1 03420000 APCIRB1 EQU APCCOMF1 03421000 APCSMCR EQU APCCOMF1 03422000 APCUETSK EQU APCCOMF1 03423000 APCSSTSK EQU APCCOMF1 03424000 APCESTAL EQU APCSAVE 03425000 APCFRRPM EQU ISTAPCRR+40 03426000 APCQWFO EQU ISTAPCRR+36 03427000 APCPABSV EQU ISTAPCRR+32 03428000 APCRTRN EQU ISTAPCRR+28 03429000 APCTCBA EQU ISTAPCRR+24 03430000 APCPSTA EQU ISTAPCRR+20 03431000 @NM00073 EQU APCRFLG+1 03432000 APC31R EQU APCRFLG 03433000 APC58R EQU APCRFLG 03434000 APC57R EQU APCRFLG 03435000 APC56R EQU APCRFLG 03436000 APC54R EQU APCRFLG 03437000 APC53R EQU APCRFLG 03438000 APC52R EQU APCRFLG 03439000 APC51R EQU APCRFLG 03440000 @NM00072 EQU APCATFLG+1 03441000 APC31E EQU APCATFLG 03442000 APC58E EQU APCATFLG 03443000 APC57E EQU APCATFLG 03444000 APC56E EQU APCATFLG 03445000 APC54E EQU APCATFLG 03446000 APC53E EQU APCATFLG 03447000 APC52E EQU APCATFLG 03448000 APC51E EQU APCATFLG 03449000 APCHDRSV EQU ISTAPCRR 03450000 ASCPSREG EQU ISTASCRR+44 03451000 ASCUSR01 EQU ASCUSRGS+12 03452000 ASCUSR00 EQU ASCUSRGS+8 03453000 ASCUSR15 EQU ASCUSRGS+4 03454000 ASCUSR14 EQU ASCUSRGS 03455000 ASCETRYA EQU ISTASCRR+24 03456000 ASCKEY EQU ISTASCRR+23 03457000 ASCAUDIT EQU ASCFLG3 03458000 ASCFBDUD EQU ASCFLG3 03459000 ASCLLKF EQU ASCFLG3 03460000 ASCKEYF EQU ASCFLG3 03461000 ASCFBDAL EQU ASCFLG3 03462000 ASCFSRGT EQU ASCFLG3 03463000 ASCICR EQU ASCFLG2 03464000 ASCFSRIC EQU ASCFLG2 03465000 ASCFBDIC EQU ASCFLG2 03466000 ASCFBAIC EQU ASCFLG2 03467000 ASCPASTR EQU ASCFLG1 03468000 ASCFSR EQU ASCFLG1 03469000 ASCFBD EQU ASCFLG1 03470000 ASCFBA EQU ASCFLG1 03471000 ASCPFCRR EQU ISTASCRR 03472000 ZCRRU EQU ZCRRHRU+3 03473000 ZCRRH EQU ZCRRHRU 03474000 ZCRWORDA EQU ISTZCRR+477 03475000 ZCRCMNRC EQU ISTZCRR+476 03476000 ZCRRSV97 EQU ZCRENTER+18 03477000 ZCREIC2B EQU ZCRENTER+18 03478000 ZCREAC2B EQU ZCRENTER+18 03479000 ZCRELCAB EQU ZCRENTER+18 03480000 ZCREDCMF EQU ZCRENTER+18 03481000 ZCREBCIF EQU ZCRENTER+18 03482000 ZCREICSG EQU ZCRENTER+18 03483000 ZCREDCK0 EQU ZCRENTER+18 03484000 ZCRECFY0 EQU ZCRENTER+17 03485000 ZCREKCCB EQU ZCRENTER+17 03486000 ZCREDCNB EQU ZCRENTER+17 03487000 ZCREICOE EQU ZCRENTER+17 03488000 ZCREBCNB EQU ZCRENTER+17 03489000 ZCREBC0L EQU ZCRENTER+17 03490000 ZCREBCAL EQU ZCRENTER+17 03491000 ZCREDCQR EQU ZCRENTER+17 03492000 ZCREDCPR EQU ZCRENTER+16 03493000 ZCREBCSB EQU ZCRENTER+16 03494000 ZCREAC1R EQU ZCRENTER+16 03495000 ZCRECCCI EQU ZCRENTER+16 03496000 ZCRECCAI EQU ZCRENTER+16 03497000 ZCRECCBI EQU ZCRENTER+16 03498000 ZCREBCAR EQU ZCRENTER+16 03499000 ZCREBCDR EQU ZCRENTER+16 03500000 ZCREBCBR EQU ZCRENTER+15 03501000 ZCREDCXR EQU ZCRENTER+15 03502000 ZCREDCWB EQU ZCRENTER+15 03503000 ZCREDCWR EQU ZCRENTER+15 03504000 ZCREKCCN EQU ZCRENTER+15 03505000 ZCREKCBN EQU ZCRENTER+15 03506000 ZCREKCBB EQU ZCRENTER+15 03507000 ZCREJC0B EQU ZCRENTER+15 03508000 ZCREJCDB EQU ZCRENTER+14 03509000 ZCREJCCB EQU ZCRENTER+14 03510000 ZCREJCBB EQU ZCRENTER+14 03511000 ZCREJCAB EQU ZCRENTER+14 03512000 ZCREIC1B EQU ZCRENTER+14 03513000 ZCREIC0B EQU ZCRENTER+14 03514000 ZCREICX0 EQU ZCRENTER+14 03515000 ZCREICWB EQU ZCRENTER+14 03516000 ZCREICVB EQU ZCRENTER+13 03517000 ZCREICUB EQU ZCRENTER+13 03518000 ZCREICTB EQU ZCRENTER+13 03519000 ZCREICSC EQU ZCRENTER+13 03520000 ZCREICSB EQU ZCRENTER+13 03521000 ZCREICRB EQU ZCRENTER+13 03522000 ZCREICQB EQU ZCRENTER+13 03523000 ZCREICQA EQU ZCRENTER+13 03524000 ZCREICOB EQU ZCRENTER+12 03525000 ZCREICOA EQU ZCRENTER+12 03526000 ZCREICNB EQU ZCRENTER+12 03527000 ZCREICNA EQU ZCRENTER+12 03528000 ZCREICMB EQU ZCRENTER+12 03529000 ZCREICLB EQU ZCRENTER+12 03530000 ZCREICKG EQU ZCRENTER+12 03531000 ZCREICKE EQU ZCRENTER+12 03532000 ZCREICKB EQU ZCRENTER+11 03533000 ZCREICJB EQU ZCRENTER+11 03534000 ZCREICID EQU ZCRENTER+11 03535000 ZCREICIB EQU ZCRENTER+11 03536000 ZCREICHB EQU ZCRENTER+11 03537000 ZCREICGB EQU ZCRENTER+11 03538000 ZCREICEB EQU ZCRENTER+11 03539000 ZCREICDB EQU ZCRENTER+11 03540000 ZCREICCI EQU ZCRENTER+10 03541000 ZCREICCB EQU ZCRENTER+10 03542000 ZCREICBI EQU ZCRENTER+10 03543000 ZCREICBB EQU ZCRENTER+10 03544000 ZCREICAB EQU ZCRENTER+10 03545000 ZCREICAA EQU ZCRENTER+10 03546000 ZCREHCAN EQU ZCRENTER+10 03547000 ZCREGC0B EQU ZCRENTER+10 03548000 ZCREGC0A EQU ZCRENTER+9 03549000 ZCREGCLA EQU ZCRENTER+9 03550000 ZCREGCEB EQU ZCRENTER+9 03551000 ZCREGCDB EQU ZCRENTER+9 03552000 @NM00071 EQU ZCRENTER+9 03553000 ZCREGCBB EQU ZCRENTER+9 03554000 ZCREGCAB EQU ZCRENTER+9 03555000 ZCREFCEB EQU ZCRENTER+9 03556000 ZCREFCEA EQU ZCRENTER+8 03557000 ZCREECTA EQU ZCRENTER+8 03558000 ZCREECEA EQU ZCRENTER+8 03559000 ZCREECDA EQU ZCRENTER+8 03560000 ZCREECCB EQU ZCRENTER+8 03561000 ZCREECCA EQU ZCRENTER+8 03562000 ZCREECBB EQU ZCRENTER+8 03563000 ZCREECBA EQU ZCRENTER+8 03564000 ZCREDCMB EQU ZCRENTER+7 03565000 ZCREDCL0 EQU ZCRENTER+7 03566000 ZCREDCKB EQU ZCRENTER+7 03567000 ZCREDCKA EQU ZCRENTER+7 03568000 ZCREDCJ0 EQU ZCRENTER+7 03569000 ZCREDCI0 EQU ZCRENTER+7 03570000 ZCREDCH0 EQU ZCRENTER+7 03571000 ZCREDCF0 EQU ZCRENTER+7 03572000 ZCREDCE0 EQU ZCRENTER+6 03573000 ZCREDCD0 EQU ZCRENTER+6 03574000 ZCREDCC0 EQU ZCRENTER+6 03575000 ZCREDCB0 EQU ZCRENTER+6 03576000 ZCREDCA0 EQU ZCRENTER+6 03577000 ZCRECC2B EQU ZCRENTER+6 03578000 ZCRECC1B EQU ZCRENTER+6 03579000 ZCRECC1A EQU ZCRENTER+6 03580000 ZCRECC0B EQU ZCRENTER+5 03581000 ZCRECC0A EQU ZCRENTER+5 03582000 ZCREBC0B EQU ZCRENTER+5 03583000 ZCREBC0A EQU ZCRENTER+5 03584000 ZCREBCZ0 EQU ZCRENTER+5 03585000 ZCREBCY0 EQU ZCRENTER+5 03586000 ZCREBCX0 EQU ZCRENTER+5 03587000 ZCREBCXA EQU ZCRENTER+5 03588000 ZCREBCSC EQU ZCRENTER+4 03589000 ZCREBCRB EQU ZCRENTER+4 03590000 ZCREBCRA EQU ZCRENTER+4 03591000 ZCREBCQB EQU ZCRENTER+4 03592000 ZCREBCPB EQU ZCRENTER+4 03593000 ZCREBCOB EQU ZCRENTER+4 03594000 ZCREBCNE EQU ZCRENTER+4 03595000 ZCREBCND EQU ZCRENTER+4 03596000 ZCREBCMB EQU ZCRENTER+3 03597000 ZCREBCLB EQU ZCRENTER+3 03598000 ZCREBCLA EQU ZCRENTER+3 03599000 ZCREBCKB EQU ZCRENTER+3 03600000 ZCREBCKA EQU ZCRENTER+3 03601000 ZCREBCJB EQU ZCRENTER+3 03602000 ZCREBCJA EQU ZCRENTER+3 03603000 ZCREBCID EQU ZCRENTER+3 03604000 ZCREBCIB EQU ZCRENTER+2 03605000 ZCREBCIA EQU ZCRENTER+2 03606000 ZCREBCHB EQU ZCRENTER+2 03607000 ZCREBCHA EQU ZCRENTER+2 03608000 ZCREBCGB EQU ZCRENTER+2 03609000 ZCREBCGA EQU ZCRENTER+2 03610000 ZCREBCFB EQU ZCRENTER+2 03611000 ZCREBCFA EQU ZCRENTER+2 03612000 ZCREBCEB EQU ZCRENTER+1 03613000 ZCREBCDI EQU ZCRENTER+1 03614000 ZCREBCCB EQU ZCRENTER+1 03615000 ZCREBCBI EQU ZCRENTER+1 03616000 ZCREBCBB EQU ZCRENTER+1 03617000 ZCREBCBA EQU ZCRENTER+1 03618000 ZCREBCAM EQU ZCRENTER+1 03619000 ZCREBCAI EQU ZCRENTER+1 03620000 ZCREBCAG EQU ZCRENTER 03621000 ZCREBCAE EQU ZCRENTER 03622000 ZCREBCAB EQU ZCRENTER 03623000 ZCREBCAA EQU ZCRENTER 03624000 ZCREAC1B EQU ZCRENTER 03625000 ZCREAC0B EQU ZCRENTER 03626000 ZCREAC0A EQU ZCRENTER 03627000 ZCREAC1A EQU ZCRENTER 03628000 ZCRTNAME EQU ZCRAUDIT+1 03629000 ZCRTID EQU ZCRAUDIT 03630000 ZCRREMIC EQU ISTZCRR+436 03631000 ZCRSAVEZ EQU ISTZCRR+196 03632000 ZCRDAFSV EQU ZCRCIDSV+2 03633000 ZCRSAFSV EQU ZCRCIDSV 03634000 ZCRR13SV EQU ISTZCRR+188 03635000 ZCRR2SV EQU ISTZCRR+184 03636000 ZCROPCDE EQU ISTZCRR+183 03637000 ZCRPRMTC EQU ISTZCRR+182 03638000 ZCRRCDSV EQU ISTZCRR+181 03639000 ZCRAWQSW EQU ISTZCRR+180 03640000 ZCRTOPQ EQU ISTZCRR+180 03641000 ZCRLSTFB EQU ISTZCRR+180 03642000 ZCRXSCHD EQU ISTZCRR+180 03643000 ZCRNXTEL EQU ISTZCRR+180 03644000 ZCRSCANQ EQU ISTZCRR+180 03645000 ZCRMOREL EQU ISTZCRR+180 03646000 ZCRFBPRC EQU ISTZCRR+180 03647000 ZCRFSBSV EQU ISTZCRR+176 03648000 ZCRSVWK5 EQU ZCRWKARA+16 03649000 ZCRSVWK4 EQU ZCRWKARA+12 03650000 ZCRSVWK3 EQU ZCRWKARA+8 03651000 ZCRSVWK2 EQU ZCRWKARA+4 03652000 ZCRSVWK1 EQU ZCRWKARA 03653000 ZCRSVF25 EQU ZCRSVRTN+96 03654000 ZCRSVF24 EQU ZCRSVRTN+92 03655000 ZCRSVF23 EQU ZCRSVRTN+88 03656000 ZCRSVF22 EQU ZCRSVRTN+84 03657000 ZCRSVF21 EQU ZCRSVRTN+80 03658000 ZCRSVF20 EQU ZCRSVRTN+76 03659000 ZCRSVF19 EQU ZCRSVRTN+72 03660000 ZCRSVF18 EQU ZCRSVRTN+68 03661000 ZCRSVF17 EQU ZCRSVRTN+64 03662000 ZCRSVF16 EQU ZCRSVRTN+60 03663000 ZCRSVF15 EQU ZCRSVRTN+56 03664000 ZCRSVF14 EQU ZCRSVRTN+52 03665000 ZCRSVF13 EQU ZCRSVRTN+48 03666000 ZCRSVF12 EQU ZCRSVRTN+44 03667000 ZCRSVF11 EQU ZCRSVRTN+40 03668000 ZCRSVF10 EQU ZCRSVRTN+36 03669000 ZCRSVF9 EQU ZCRSVRTN+32 03670000 ZCRSVF8 EQU ZCRSVRTN+28 03671000 ZCRSVF7 EQU ZCRSVRTN+24 03672000 ZCRSVF6 EQU ZCRSVRTN+20 03673000 ZCRSVF5 EQU ZCRSVRTN+16 03674000 ZCRSVF4 EQU ZCRSVRTN+12 03675000 ZCRSVF3 EQU ZCRSVRTN+8 03676000 ZCRSVF2 EQU ZCRSVRTN+4 03677000 ZCRSVF1 EQU ZCRSVRTN 03678000 ZCRPVZB EQU ISTZCRR+52 03679000 ZCRZLB EQU ISTZCRR+48 03680000 ZCRBFPTR EQU ISTZCRR+44 03681000 ZCRCCWA EQU ISTZCRR+40 03682000 ZCRPSW EQU ZCRPARMS+15 03683000 ZCRPCHAR EQU ZCRPARMS+14 03684000 ZCRPRES2 EQU ZCRPCOD2 03685000 ZCRPMFGF EQU ZCRPCOD2 03686000 ZCRPFHDR EQU ZCRPCOD2 03687000 ZCRPPG2 EQU ZCRPCOD2 03688000 ZCRPRES EQU ZCRPCOD1 03689000 ZCRPCFTX EQU ZCRPCOD1 03690000 ZCRPBUF EQU ZCRPCOD1 03691000 ZCRPLSCB EQU ZCRPCOD1 03692000 ZCRPLSBQ EQU ZCRPLSBF 03693000 ZCRPFSB EQU ZCRPCOD1 03694000 ZCRPLNG EQU ZCRPCOD1 03695000 ZCRPPG EQU ZCRPCOD1 03696000 ZCRDTODA EQU ZCRDFRDA 03697000 ZCRMLNG EQU ZCRPARMS+8 03698000 ZCRTBPTR EQU ZCRPARMS+4 03699000 ZCRCBPTR EQU ZCRFBPTR 03700000 ZCRCRLCP EQU ISTZCRR+20 03701000 @NM00070 EQU ZCRSCPSW 03702000 ZCRSKIPT EQU ZCRSCPSW 03703000 ZCRFSBWE EQU ZCRSCPSW 03704000 ZCRPRCMP EQU ZCRSCPSW 03705000 ZCRLREQ EQU ZCRSCPSW 03706000 ZCRRJLCP EQU ZCRSCPSW 03707000 ZCRTPINV EQU ZCRSCPSW 03708000 ZCRTPEX EQU ZCRSCPSW 03709000 @NM00069 EQU ZCRIBPR 03710000 ZCR3270R EQU ZCRIBPR 03711000 ZCR3270 EQU ZCRIBPR 03712000 ZCRLCPFD EQU ZCRIBPR 03713000 ZCRLCPFR EQU ZCRIBPR 03714000 ZCRRELK EQU ZCRIBPR 03715000 ZCRERR EQU ZCRIBPR 03716000 ZCRNOBUF EQU ZCRIBPR 03717000 @NM00068 EQU ZCRPFLGS 03718000 ZCRQAHED EQU ZCRPFLGS 03719000 ZCRF1RES EQU ZCRGENSW 03720000 ZCRBRIS EQU ZCRGENSW 03721000 ZCRCLRBD EQU ZCRGENSW 03722000 ZCREXRES EQU ZCRGENSW 03723000 ZCRLCSYN EQU ZCRGENSW 03724000 ZCRRT06 EQU ZCRGENSW 03725000 ZCRTSW2 EQU ZCRGENSW 03726000 ZCRTSW1 EQU ZCRGENSW 03727000 ZCRINLCP EQU ZCRFLGS3 03728000 ZCRWRPTR EQU ZCRFLGS3 03729000 ZCRNOFRE EQU ZCRFLGS3 03730000 ZCREDRIV EQU ZCRFLGS3 03731000 ZCRDISC EQU ZCRFLGS3 03732000 ZCRTPDIS EQU ZCRFLGS3 03733000 ZCRTPCON EQU ZCRFLGS3 03734000 ZCRTIC EQU ZCRFLGS3 03735000 ZCRCNLXL EQU ZCRRESET 03736000 ZCRENDAN EQU ZCRSWFLD 03737000 ZCRENDXL EQU ZCRSWFLD 03738000 ZCRENDX EQU ZCRSWFLD 03739000 ZCROB1 EQU ZCRNDLCP 03740000 ZCRENDPR EQU ZCRSWFLD 03741000 ZCREXTYP EQU ZCRSWFLD 03742000 ZCRSLCP EQU ZCRENDSH 03743000 ZCRIF0E3 EQU ZCRFLGS2 03744000 ZCRIF0E2 EQU ZCRFLGS2 03745000 ZCRIF0E1 EQU ZCRFLGS2 03746000 ZCROB EQU ZCRFLGS2 03747000 ZCRFMSED EQU ZCRFLGS2 03748000 ZCRSHEDI EQU ZCRFLGS2 03749000 ZCRLOCAL EQU ZCRFLGS2 03750000 ZCRFEXIT EQU ZCRFLGS1 03751000 ZCRUNSOL EQU ZCRFLGS1 03752000 ZCRENDLP EQU ZCRFLGS1 03753000 ZCRNRMEX EQU ZCRFLGS1 03754000 ZCRWAIT EQU ZCRFLGS1 03755000 ZCRDEQSW EQU ZCRFLGS1 03756000 ZCRQUESW EQU ZCRFLGS1 03757000 ZCREXSW EQU ZCRFLGS1 03758000 ZCRFRRA EQU ISTZCRR+8 03759000 ZCRCHAIN EQU ISTZCRR+4 03760000 ZCRFLAG EQU ZCRCRR+3 03761000 ZCRLEN EQU ZCRCRR+1 03762000 ZCRID EQU ZCRCRR 03763000 CCFRSVD1 EQU CFCCRT 03764000 CCFCR2 EQU CFCCRT 03765000 CCFCRP EQU CFCCRT 03766000 CCFCR1 EQU CFCCRT 03767000 CCFCS2 EQU CFCCRT 03768000 CCFCS1 EQU CFCCRT 03769000 NCFRSVD EQU CFCNTRD 03770000 NCFCR2 EQU CFCNTRD 03771000 NCFCRP EQU CFCNTRD 03772000 NCFCR1 EQU CFCNTRD 03773000 NCFCS2 EQU CFCNTRD 03774000 NCFCS1 EQU CFCNTRD 03775000 PFCRSV01 EQU ISTPFCRR+13 03776000 PFCFTA EQU ISTPFCRR+12 03777000 CRRFRR EQU PFCFRRO 03778000 CRRCHAIN EQU PFCCRRO 03779000 CRRLEN EQU PFCCRRLN 03780000 PFCRSV10 EQU PFCCRR+1 03781000 CRRID EQU PFCCRRID 03782000 ZSAZTRAC EQU ISTZSAVE+36 03783000 ZSAZSVVR EQU ISTZSAVE+12 03784000 ZSAZSVRR EQU ISTZSAVE+8 03785000 ZSAZSVFC EQU ISTZSAVE+4 03786000 ZSAZACTV EQU ZSAZSVMS 03787000 LCPFTYPE EQU LCPRPHA 03788000 LCPRSTQH EQU LCPLCCW 03789000 LCPCLREP EQU ISTLCPB+44 03790000 LCPUBFSB EQU LCPFLCCW 03791000 LCPRSV77 EQU ISTLCPB+39 03792000 LCPLCCWC EQU ISTLCPB+38 03793000 LCPRSV78 EQU LCPFLG1 03794000 LCPTRANS EQU LCPFLG1 03795000 LCPSTLB EQU LCPFLG1 03796000 LCPREDRV EQU LCPFLG1 03797000 LCPDIRPT EQU LCPFLG1 03798000 LCPINTER EQU LCPFLG1 03799000 LCPRESET EQU LCPFLG1 03800000 LCPSTYPE EQU ISTLCPB+36 03801000 LCPFSNCH EQU ISTLCPB+34 03802000 LCPFOSN EQU ISTLCPB+32 03803000 LCPTLBAD EQU ISTLCPB+28 03804000 LCPFDB2 EQU LCPFDBA+1 03805000 LCPFDB1 EQU LCPFDBA 03806000 LCPDAF EQU LCPCID+2 03807000 LCPSAF EQU LCPCID 03808000 LCPLCCW1 EQU ISTLCPB+12 03809000 LCPRRCNT EQU LCPSEQ+1 03810000 LCPRRCCT EQU LCPSEQ 03811000 LCPATOP EQU LCPFLAG2 03812000 LCPFREE EQU LCPFLAG2 03813000 LCPDSTAT EQU LCPFLAG2 03814000 LCPEXRES EQU LCPFID0 03815000 LCPZRIMM EQU LCPTLBPI 03816000 LCPRSTRT EQU LCPFLAG2 03817000 LCPASYN EQU LCPFLAG2 03818000 LCPPRFLG EQU LCPFLAG2 03819000 LCPZMIRC EQU LCPRUCNT 03820000 LCPCHAI2 EQU LCPCHAIN+1 03821000 LCPCHNG EQU LCPCHAI1 03822000 LCPZRT0B EQU LCPMNRCD 03823000 LCPZRT0A EQU LCPMNRCD 03824000 LCPZRTL9 EQU LCPZRT09 03825000 LCPZRTL8 EQU LCPZRT08 03826000 LCPZRTL7 EQU LCPZRT07 03827000 LCPZRTL6 EQU LCPZRT06 03828000 LCPZRTL5 EQU LCPZRT05 03829000 LCPZRTL4 EQU LCPZRT04 03830000 LCPZRTL3 EQU LCPZRT03 03831000 LCPZRTL2 EQU LCPZRT02 03832000 LCPZRT01 EQU LCPFLAGS 03833000 LCPZRT00 EQU LCPFLAGS 03834000 LCPLNGTH EQU ISTLCPB+1 03835000 LCPTYPE EQU ISTLCPB 03836000 LCCWDATA EQU ISTLCCW+4 03837000 LCCWCNT EQU ISTLCCW+2 03838000 LCCWACI EQU LCCWFLAG 03839000 LCCWRFI EQU LCCWFLAG 03840000 LCCWPER EQU LCCWLSI 03841000 LCCWIDAT EQU LCCWFLAG 03842000 LCCWNTVC EQU LCCWFLAG 03843000 LCCWCKPT EQU LCCWFLAG 03844000 LCCWCC EQU LCCWFLAG 03845000 LCCWCD EQU LCCWFLAG 03846000 LCCWTYPE EQU LCCWCTL 03847000 LCCWMODE EQU LCCWCTL 03848000 LCCWSOP EQU LCCWRWOP 03849000 @NM00067 EQU LCCWRWOP 03850000 LCCWSD EQU LCCWOP 03851000 LCCWSI EQU LCCWOP 03852000 FSBRSV01 EQU FSBFSB+30 03853000 FSBTHCNT EQU FSBFSB+28 03854000 FSBRLRSV EQU FSBRLSTS 03855000 FSBCFTX EQU FSBRLSTS 03856000 FSBICNCB EQU FSBMSGID 03857000 FSBSSOC EQU FSBSS2 03858000 FSBSSCC EQU FSBSS2 03859000 FSBSSDC EQU FSBSS2 03860000 FSBSSEC EQU FSBSS2 03861000 FSBSSIR EQU FSBSS2 03862000 FSBSSCR EQU FSBSS2 03863000 @NM00065 EQU FSBSS2 03864000 @NM00064 EQU FSBSS1 03865000 FSBSSDE EQU FSBSS1 03866000 FSBSSUS EQU FSBSS1 03867000 @NM00063 EQU FSBSS1 03868000 FSBLMRI EQU FSBFBMI 03869000 FSBETI EQU FSBERC 03870000 FSBEMI EQU FSBERC 03871000 FSBECI EQU FSBERC 03872000 FSBELI EQU FSBERC 03873000 FSBXLCI EQU FSBXCODE 03874000 FSBXFINS EQU FSBXCODE 03875000 FSBXNORM EQU FSBXFSTS 03876000 FSBSCODE EQU FSBSYSRS 03877000 FSBSPHSE EQU FSBSYSRS 03878000 FSBSERR EQU FSBSYSRS 03879000 FSBCMD EQU FSBSEQ 03880000 FSBDTRCE EQU FSBFLAGS 03881000 FSBASBTU EQU FSBFLAGS 03882000 FSBINPET EQU FSBFLAGS 03883000 FSBNONCB EQU FSBFLAGS 03884000 FSBLBIND EQU FSBFLAGS 03885000 FSBFFIND EQU FSBFLAGS 03886000 FSBACIND EQU FSBFLAGS 03887000 FSBRFIND EQU FSBFLAGS 03888000 FSBDAF EQU FSBCID+2 03889000 FSBSAF EQU FSBCID 03890000 FSBGATE EQU FSBFSBA 03891000 FSBRSV02 EQU FSBSFLGS 03892000 FSBPGBUF EQU FSBSFLGS 03893000 FSBMNSDA EQU FSBMNRCD 03894000 FSBMNOA EQU FSBMNRCD 03895000 FSBMNDIF EQU FSBMNRCD 03896000 FSBMNEOP EQU FSBMNRCD 03897000 FSBMNDNU EQU FSBMNRCD 03898000 FSBMNATN EQU FSBMNRCD 03899000 FSBMNRVI EQU FSBMNRCD 03900000 FSBLNGTH EQU FSBFSB+1 03901000 FSBTYPE EQU FSBFSB 03902000 FDBDATCT EQU ISTFDB+8 03903000 FDBDATAA EQU ISTFDB+4 03904000 ATCAOS EQU ISTATCVT+1552 03905000 ATCVIOPM EQU ATCAOSM+636 03906000 ATCTPMMI EQU ATCAOSM+632 03907000 ATCTPMPB EQU ATCAOSM+600 03908000 ATCRPLCT EQU ATCAOSM+594 03909000 ATCCRACT EQU ATCAOSM+592 03910000 ATCSRBCT EQU ATCAOSM+590 03911000 ATCRSV75 EQU ATCAOSM+589 03912000 ATCRSV66 EQU ATCZFLAG 03913000 ATCZF001 EQU ATCZFLAG 03914000 ATCTPCP1 EQU ATCAOSM+584 03915000 ATCTPCP0 EQU ATCAOSM+580 03916000 ATCAICTN EQU ATCAOSM+576 03917000 ATCZR01 EQU ATCAOSM+572 03918000 ATCMPLTA EQU ATCAOSM+568 03919000 ATCASCB EQU ATCAOSM+564 03920000 ATCAP86 EQU ATCAOSM+560 03921000 ATCAP85 EQU ATCAOSM+556 03922000 ATCAP84 EQU ATCAOSM+552 03923000 ATCAP83 EQU ATCAOSM+548 03924000 ATCAP82 EQU ATCAOSM+544 03925000 ATCAP69 EQU ATCAOSM+540 03926000 ATCAP66 EQU ATCAOSM+536 03927000 ATCAP62 EQU ATCAOSM+532 03928000 ATCAPC59 EQU ATCAOSM+528 03929000 ATCAP56 EQU ATCAOSM+524 03930000 ATCAP55 EQU ATCAOSM+520 03931000 ATCRCFY0 EQU ATCAOSM+516 03932000 ATCAP41 EQU ATCAOSM+512 03933000 ATCAPC25 EQU ATCAOSM+508 03934000 ATCAP23 EQU ATCAOSM+504 03935000 ATCTPSPB EQU ATCAOSM+472 03936000 ATCTRMBP EQU ATCAOSM+440 03937000 ATCPSTA EQU ATCAOSM+432 03938000 ATCSMABF EQU ATCAOSM+428 03939000 ATCSMAPR EQU ATCAOSM+424 03940000 ATCTPWQA EQU ATCAOSM+420 03941000 ATCSMAID EQU ATCAOSM+416 03942000 ATCSMARA EQU ATCAOSM+412 03943000 ATCCACXA EQU ATCAOSM+408 03944000 ATCZLAAB EQU ATCAOSM+404 03945000 ATCATA10 EQU ATCAOSM+400 03946000 ATCHLTCB EQU ATCAOSM+396 03947000 @NM00062 EQU ATCVTFLG 03948000 ATCVTACT EQU ATCVTFLG 03949000 ATCRPT40 EQU ATCAOSM+388 03950000 ATCRPT39 EQU ATCAOSM+384 03951000 ATCRPT38 EQU ATCAOSM+380 03952000 ATCRPT37 EQU ATCAOSM+376 03953000 ATCRPT36 EQU ATCAOSM+372 03954000 ATCRPT35 EQU ATCAOSM+368 03955000 ATCRPT34 EQU ATCAOSM+364 03956000 ATCRPT33 EQU ATCAOSM+360 03957000 ATCRPT32 EQU ATCAOSM+356 03958000 ATCRPT31 EQU ATCAOSM+352 03959000 ATCRPT30 EQU ATCAOSM+348 03960000 ATCRPT29 EQU ATCAOSM+344 03961000 ATCRPT28 EQU ATCAOSM+340 03962000 ATCRPT27 EQU ATCAOSM+336 03963000 ATCRPT26 EQU ATCAOSM+332 03964000 ATCRPT25 EQU ATCAOSM+328 03965000 ATCRPT24 EQU ATCAOSM+324 03966000 ATCRPT23 EQU ATCAOSM+320 03967000 ATCRPT22 EQU ATCAOSM+316 03968000 ATCRPT21 EQU ATCAOSM+312 03969000 ATCRPT20 EQU ATCAOSM+308 03970000 ATCRPT19 EQU ATCAOSM+304 03971000 ATCRPT18 EQU ATCAOSM+300 03972000 ATCRPT17 EQU ATCAOSM+296 03973000 ATCRPT16 EQU ATCAOSM+292 03974000 ATCRPT15 EQU ATCAOSM+288 03975000 ATCRPT14 EQU ATCAOSM+284 03976000 ATCRPT13 EQU ATCAOSM+280 03977000 ATCRPT12 EQU ATCAOSM+276 03978000 ATCRPT11 EQU ATCAOSM+272 03979000 ATCAP38 EQU ATCAOSM+268 03980000 ATCZDFJ0 EQU ATCAOSM+260 03981000 ATCAP51 EQU ATCAOSM+256 03982000 ATCZPAB2 EQU ATCAOSM+224 03983000 ATCZPAB1 EQU ATCAOSM+192 03984000 ATCZLFVT EQU ATCAOSM+188 03985000 ATCZLPVT EQU ATCAOSM+184 03986000 ATCZDVTX EQU ATCAOSM+180 03987000 ATCZDVTA EQU ATCAOSM+176 03988000 ATCZDVT9 EQU ATCAOSM+172 03989000 ATCZDVT8 EQU ATCAOSM+168 03990000 ATCZDVT7 EQU ATCAOSM+164 03991000 ATCRSV56 EQU ATCDAPVT+22 03992000 ATCDAPDG EQU ATCDAPVT+20 03993000 ATCDXCEA EQU ATCDAPVT+16 03994000 ATCDCEA EQU ATCDAPVT+12 03995000 ATCDPCIA EQU ATCDAPVT+8 03996000 ATCDSIOA EQU ATCDAPVT+4 03997000 ATCDEOEA EQU ATCDAPVT 03998000 ATCZLAEA EQU ATCLDAPP+16 03999000 ATCZLCEA EQU ATCLDAPP+12 04000000 ATCRSV17 EQU ATCLDAPP+8 04001000 ATCSMFRR EQU ATCLDAPP+4 04002000 ATCCDTID EQU ATCLDAPP 04003000 ATCZAEA EQU ATCICAPP+16 04004000 ATCZCEA EQU ATCICAPP+12 04005000 ATCCDTCB EQU ATCICAPP+8 04006000 ATCZSIOA EQU ATCICAPP+4 04007000 ATCCDRPH EQU ATCICAPP 04008000 ATCAP65 EQU ATCAOSM+96 04009000 ATCZDVT6 EQU ATCAOSM+92 04010000 ATCZDVT4 EQU ATCAOSM+88 04011000 ATCZDVT3 EQU ATCAOSM+84 04012000 ATCZDVT1 EQU ATCAOSM+80 04013000 ATCICNCB EQU ATCAOSM+76 04014000 ATCZPSVT EQU ATCAOSM+72 04015000 ATCZFSVT EQU ATCAOSM+68 04016000 ATCAP64 EQU ATCAOSM+64 04017000 ATCAP63 EQU ATCAOSM+60 04018000 ATCAP61 EQU ATCAOSM+56 04019000 ATCAP58 EQU ATCAOSM+52 04020000 ATCAP57 EQU ATCAOSM+48 04021000 ATCAP54 EQU ATCAOSM+44 04022000 ATCAP53 EQU ATCAOSM+40 04023000 ATCAP52 EQU ATCAOSM+36 04024000 ATCAP32 EQU ATCAOSM+28 04025000 ATCAP31 EQU ATCAOSM+24 04026000 ATCAP12 EQU ATCAOSM+20 04027000 ATCAP11 EQU ATCAOSM+16 04028000 ATCCMTCB EQU ATCAOSM+12 04029000 ATCPRPH EQU ATCAOSM+8 04030000 ATCGSRBF EQU ATCGSRBG 04031000 ATCSRBRT EQU ATCAOSM 04032000 ATCRSVBB EQU ISTATCVT+908 04033000 ATCVDLOK EQU ISTATCVT+904 04034000 ATCVFPAB EQU ISTATCVT+872 04035000 ATCVDPAB EQU ISTATCVT+840 04036000 ATCIOECB EQU ISTATCVT+836 04037000 ATCINCW3 EQU ISTATCVT+832 04038000 ATCMODTB EQU ISTATCVT+828 04039000 ATCUSSPT EQU ISTATCVT+824 04040000 ATCSRTAB EQU ISTATCVT+820 04041000 @NM00061 EQU ISTATCVT+818 04042000 ATCNMCTR EQU ISTATCVT+816 04043000 ATCSEC51 EQU ATCSECST 04044000 ATCSEC40 EQU ATCSIPD+8 04045000 ATCSEC30 EQU ATCSIPD+4 04046000 ATCSEC21 EQU ATCSIPD 04047000 ATCSEC10 EQU ATCSOPD+4 04048000 ATCSEC01 EQU ATCSOPD 04049000 ATCPOIA EQU ISTATCVT+788 04050000 ATCPODVT EQU ISTATCVT+784 04051000 ATCS49XL EQU ISTATCVT+780 04052000 ATCS49XI EQU ISTATCVT+776 04053000 ATCLCLCT EQU ATCVLCNT+2 04054000 ATCRNCNT EQU ATCVLCNT 04055000 ATCCFEAD EQU ISTATCVT+768 04056000 ATCPTR00 EQU ISTATCVT+736 04057000 ATCRSV10 EQU ISTATCVT+704 04058000 ATCTACB EQU ISTATCVT+700 04059000 ATCVTINM EQU ISTATCVT+696 04060000 ATCTCLIM EQU ISTATCVT+692 04061000 ATCTCLOM EQU ISTATCVT+688 04062000 ATCVTIPB EQU ISTATCVT+656 04063000 ATCTCIPB EQU ISTATCVT+624 04064000 ATCTIPAB EQU ISTATCVT+592 04065000 ATCOCCCB EQU ISTATCVT+588 04066000 ATCOCCOB EQU ISTATCVT+584 04067000 ATCCDLAD EQU ISTATCVT+580 04068000 ATCCCLAD EQU ISTATCVT+576 04069000 ATCDLRPB EQU ISTATCVT+544 04070000 ATCPGPAB EQU ISTATCVT+512 04071000 ATCVPAB1 EQU ISTATCVT+480 04072000 ATCRSV97 EQU ISTATCVT+476 04073000 ATCRDTLK EQU ISTATCVT+472 04074000 ATCVOCLK EQU ISTATCVT+468 04075000 ATCCDFDN EQU ISTATCVT+464 04076000 ATCCDFIN EQU ISTATCVT+460 04077000 ATCDVTLK EQU ISTATCVT+456 04078000 ATCAP36 EQU ISTATCVT+452 04079000 ATCAP35 EQU ISTATCVT+448 04080000 ATCAP33 EQU ISTATCVT+444 04081000 ATCRSV99 EQU ISTATCVT+412 04082000 ATCLDECB EQU ISTATCVT+408 04083000 ATCLDNCS EQU ISTATCVT+404 04084000 ATCCDPTR EQU ISTATCVT+400 04085000 ATCADEL EQU ISTATCVT+396 04086000 ATCTODVT EQU ISTATCVT+392 04087000 ATCDEBCH EQU ISTATCVT+388 04088000 ATCHBSIZ EQU ATCHPGM+2 04089000 ATCHBFNO EQU ATCHPGM 04090000 ATCCRME EQU ISTATCVT+380 04091000 ATCRVCHS EQU ISTATCVT+372 04092000 ATCECTLP EQU ISTATCVT+368 04093000 ATCZDVTB EQU ISTATCVT+364 04094000 ATCECPRT EQU ISTATCVT+360 04095000 ATCVTLOD EQU ISTATCVT+356 04096000 ATCTRPAB EQU ISTATCVT+352 04097000 ATCMSGM EQU ISTATCVT+348 04098000 ATCMSGP EQU ISTATCVT+344 04099000 ATCEPT EQU ISTATCVT+340 04100000 ATCDVT EQU ISTATCVT+336 04101000 ATCTRCPT EQU ISTATCVT+332 04102000 ATCDVLOD EQU ISTATCVT+328 04103000 ATCALERT EQU ISTATCVT+324 04104000 ATCEPA EQU ISTATCVT+320 04105000 ATCSAF EQU ISTATCVT+318 04106000 ATCXRANG EQU ISTATCVT+317 04107000 ATCLAST EQU ATCSHRFG 04108000 ATCSHRTN EQU ISTATCVT+308 04109000 ATCUEP EQU ISTATCVT+304 04110000 ATCOCRT EQU ISTATCVT+300 04111000 ATCCSMA EQU ATCCSMR 04112000 ATCESC02 EQU ISTATCVT+292 04113000 ATCCDFND EQU ISTATCVT+284 04114000 ATCCDDEL EQU ISTATCVT+280 04115000 ATCCDADD EQU ISTATCVT+276 04116000 ATCMNT EQU ISTATCVT+272 04117000 ATCRSV16 EQU ISTATCVT+270 04118000 ATCMAXID EQU ISTATCVT+269 04119000 ATCMSGSP EQU ATCCOM+268 04120000 ATCCIDM EQU ATCCOM+266 04121000 ATCACTRM EQU ATCCOM+264 04122000 ATCNERAP EQU ATCCOM+260 04123000 ATCNESAL EQU ATCCOM+256 04124000 ATCRCC65 EQU ATCCOM+252 04125000 ATCRCC26 EQU ATCCOM+248 04126000 ATCRCC63 EQU ATCCOM+244 04127000 ATCRSV11 EQU ATCCOM+242 04128000 ATCVTMID EQU ATCCOM+240 04129000 ATCAPOST EQU ATCCOM+236 04130000 ATCNERFN EQU ATCCOM+232 04131000 ATCNERNE EQU ATCCOM+228 04132000 ATCNERCV EQU ATCCOM+224 04133000 ATCNERST EQU ATCCOM+220 04134000 ATCDCC61 EQU ATCCOM+216 04135000 ATCSRTDF EQU ATCCOM+208 04136000 ATCSRTAD EQU ATCCOM+204 04137000 ATCFIRA EQU ATCCOM+200 04138000 ATCSMBQ EQU ATCCOM+196 04139000 ATCSMRC EQU ATCCOM+192 04140000 ATCSMQU EQU ATCCOM+184 04141000 ATCSMRQ EQU ATCCOM+180 04142000 ATCACDA EQU ATCCOM+176 04143000 ATCSTMA EQU ATCCOM+172 04144000 ATCFRSTR EQU ATCCOM+168 04145000 ATCGTSTR EQU ATCCOM+164 04146000 ATCREADA EQU ATCCOM+160 04147000 ATCALOAD EQU ATCCOM+156 04148000 ATCBLDLA EQU ATCCOM+152 04149000 ATCFBRPH EQU ATCCOM+148 04150000 ATCBFTRC EQU ATCCOM+144 04151000 ATCTPBUF EQU ATCTHTRC 04152000 ATCREMOV EQU ATCCOM+136 04153000 ATCADD EQU ATCCOM+132 04154000 ATCDVTPT EQU ATCCOM+124 04155000 ATCFEPT EQU ATCCOM+120 04156000 ATCFDVT EQU ATCCOM+116 04157000 ATCCONFT EQU ATCCOM+112 04158000 ATCPTCHA EQU ATCCOM+108 04159000 ATCAUTHA EQU ATCCOM+104 04160000 ATCACCTA EQU ATCCOM+100 04161000 ATCRDTH EQU ATCCOM+96 04162000 ATCFRSCH EQU ATCCOM+92 04163000 ATCFSB EQU ATCCOM+88 04164000 ATCHLTMS EQU ATCCOM+84 04165000 ATCECPRM EQU ATCCOM+80 04166000 ATCECNET EQU ATCCOM+76 04167000 ATCECOPC EQU ATCCOM+72 04168000 ATCVPARM EQU ATCCOM+68 04169000 ATCECVRQ EQU ATCCOM+64 04170000 ATCECSES EQU ATCCOM+60 04171000 ATCOCHA EQU ATCCOM+56 04172000 ATCDSPLQ EQU ATCCOM+52 04173000 ATCECDSP EQU ATCCOM+48 04174000 ATCVARYQ EQU ATCCOM+44 04175000 ATCECVRY EQU ATCCOM+40 04176000 ATCHALTQ EQU ATCCOM+36 04177000 ATCECHLT EQU ATCCOM+32 04178000 ATCMODQ EQU ATCCOM+28 04179000 ATCECMOD EQU ATCCOM+24 04180000 ATCASCHD EQU ATCCOM+20 04181000 ATCSRT EQU ATCCOM+16 04182000 ATCRDT EQU ATCCOM+12 04183000 ATCDCFRR EQU ATCCOM+8 04184000 ATCAPI EQU ATCCOM+4 04185000 ATCRSV04 EQU ATCSTAT4 04186000 ATCNCSD EQU ATCSTAT4 04187000 ATCMTST EQU ATCSTAT4 04188000 ATCTPRT EQU ATCSTAT4 04189000 ATCPRTAT EQU ATCSTAT4 04190000 @NM00060 EQU ATCPOFLG 04191000 ATCPOUNS EQU ATCPOFLG 04192000 ATCHSDMF EQU ATCSTFLG 04193000 @NM00059 EQU ATCSTAT1 04194000 ATCINHLT EQU ATCSTAT1 04195000 ATCNETSL EQU ATCSTAT1 04196000 ATCQKHLT EQU ATCSTAT1 04197000 ATCSNHLT EQU ATCSTAT1 04198000 ATCACTIV EQU ATCSTAT1 04199000 ATCSTART EQU ATCSTAT1 04200000 RPHNEXPO EQU ISTRPH+104 04201000 RPHSAV16 EQU RPHWORK+60 04202000 RPHSAV15 EQU RPHWORK+56 04203000 RPHSAV14 EQU RPHWORK+52 04204000 RPHSAV13 EQU RPHWORK+48 04205000 RPHSAV12 EQU RPHWORK+44 04206000 RPHSAV11 EQU RPHWORK+40 04207000 RPHSAV10 EQU RPHWORK+36 04208000 RPHSAVE9 EQU RPHWORK+32 04209000 RPHSAVE8 EQU RPHWORK+28 04210000 RPHSAVE7 EQU RPHWORK+24 04211000 RPHSAVE6 EQU RPHWORK+20 04212000 RPHSAVE5 EQU RPHWORK+16 04213000 RPHSAVE4 EQU RPHWORK+12 04214000 RPHSAVE3 EQU RPHWORK+8 04215000 RPHSAVE2 EQU RPHWORK+4 04216000 RPHSHALF EQU RPHSAVE1+2 04217000 RPHSBIT8 EQU RPHSBITS 04218000 RPHSBIT7 EQU RPHSBITS 04219000 RPHSBIT6 EQU RPHSBITS 04220000 RPHSBIT5 EQU RPHSBITS 04221000 RPHSBIT4 EQU RPHSBITS 04222000 RPHSBIT3 EQU RPHSBITS 04223000 RPHSBIT2 EQU RPHSBITS 04224000 RPHSBIT1 EQU RPHSBITS 04225000 RPHSBYTE EQU RPHSAVE1 04226000 RPHPABQP EQU RPHPABQA+1 04227000 RPHPABFG EQU RPHPABQA 04228000 RPHSRP34 EQU RPHSRPRM+2 04229000 RPHSRP12 EQU RPHSRPRM 04230000 RPHWEGT EQU RPHCSPA 04231000 RPHMAJCB EQU ISTRPH+21 04232000 RPHPABOF EQU ISTRPH+20 04233000 RPHRESUM EQU RPHRESMA+1 04234000 RPHRSV01 EQU RPHWPFLG 04235000 RPHPURGE EQU RPHWPFLG 04236000 RPHPT EQU RPHWPFLG 04237000 RPHWT EQU RPHWPFLG 04238000 RPHRSKEY EQU RPHWPFLG 04239000 RPHDVTA EQU ISTRPH+12 04240000 RPHTIK EQU RPHTSKID+3 04241000 @NM00058 EQU RPHTSKID 04242000 RPHRPHAP EQU RPHRPHA+1 04243000 @NM00057 EQU RPHRPHA 04244000 RPHGATE EQU RPHRPHA 04245000 @NM00056 EQU RPHFLGB 04246000 RPHRLCRA EQU RPHFLGB 04247000 RPHNRSAV EQU RPHFLGB 04248000 RPHPGCMP EQU RPHFLGB 04249000 RPHFBAPS EQU RPHFLGB 04250000 RPHBSSP EQU RPHFLGB 04251000 RPHLOCK EQU RPHFLGB 04252000 RPHFNFLG EQU RPHFSTLC 04253000 RPHMLTCP EQU RPHFLAGS 04254000 RPHSMCLR EQU RPHFLAGS 04255000 RPHSMTYP EQU RPHFLAGS 04256000 RPHSMQ EQU RPHFLAGS 04257000 RPHAUTEX EQU RPHAPTYP 04258000 RPHSPGIN EQU RPHFLAGS 04259000 RPHOGIND EQU RPHFLAGS 04260000 RPHLNGTH EQU ISTRPH+1 04261000 RPHTYPE EQU ISTRPH 04262000 DYPPAB EQU ISTDYPAB+16 04263000 DYPRSV01 EQU ISTDYPAB+12 04264000 DYPTSKID EQU ISTDYPAB+8 04265000 DYPCHAIN EQU ISTDYPAB+4 04266000 DYPFLGS EQU ISTDYPAB+2 04267000 DYPLNGTH EQU ISTDYPAB+1 04268000 DYPTYPE EQU ISTDYPAB 04269000 LOKXCL EQU @NM00054 04270000 LOKPRY EQU @NM00054 04271000 @NM00055 EQU @NM00054 04272000 @NM00053 EQU LOKCHNG 04273000 LOKCT EQU ISTLOK 04274000 PABRPHA EQU PABRPHFG+1 04275000 PABNODQ EQU PABFLAGS 04276000 PABINHBT EQU PABFLAGS 04277000 PABERLOK EQU PABERRLK 04278000 PABSSN EQU PABFLAGS 04279000 PABDYNAM EQU PABFLAGS 04280000 PABNORPR EQU PABFLAGS 04281000 PABPRIOR EQU PABFLAGS 04282000 PABAPYP EQU PABFLAGS 04283000 PABDVTA EQU ISTPAB+9 04284000 PABOFFST EQU ISTPAB+8 04285000 PABCHNGP EQU PABCHAIN+1 04286000 PABRSV02 EQU PABCHAIN 04287000 PABRESET EQU PABCHAIN 04288000 PABUNCON EQU PABCHAIN 04289000 PABCDP EQU PABCHAIN 04290000 PABRESCH EQU PABCHAIN 04291000 PABCHNG EQU PABCHAIN 04292000 PABWEQP EQU PABWEQA+1 04293000 PABRSV01 EQU PABWEQA 04294000 PABWEQG EQU PABWEQA 04295000 CVTLEVL EQU CVTRELNO+2 04296000 CVTNUMB EQU CVTRELNO 04297000 CVTMDL EQU CVTFIX+250 04298000 @NM00052 EQU CVTFIX+248 04299000 @NM00051 EQU CVTFIX 04300000 CVTRV482 EQU CVTXTNT2+128 04301000 CVTRV481 EQU CVTXTNT2+124 04302000 CVTRV480 EQU CVTXTNT2+120 04303000 CVTRV479 EQU CVTXTNT2+118 04304000 CVTRV478 EQU CVTXTNT2+117 04305000 CVTRV477 EQU CVTXTNT2+116 04306000 CVTRV476 EQU CVTXTNT2+115 04307000 CVTRV475 EQU CVTXTNT2+114 04308000 CVTRV474 EQU CVTRV466 04309000 CVTRV473 EQU CVTRV466 04310000 CVTRV472 EQU CVTRV466 04311000 CVTRV471 EQU CVTRV466 04312000 CVTRV470 EQU CVTRV466 04313000 CVTRV469 EQU CVTRV466 04314000 CVTRV468 EQU CVTRV466 04315000 CVTRV467 EQU CVTRV466 04316000 CVTRV465 EQU CVTRV457 04317000 CVTRV464 EQU CVTRV457 04318000 CVTRV463 EQU CVTRV457 04319000 CVTRV462 EQU CVTRV457 04320000 CVTRV461 EQU CVTRV457 04321000 CVTRV460 EQU CVTRV457 04322000 CVTRV459 EQU CVTRV457 04323000 CVTRV458 EQU CVTRV457 04324000 CVTRV456 EQU CVTXTNT2+108 04325000 CVTRV455 EQU CVTXTNT2+104 04326000 CVTRV454 EQU CVTXTNT2+100 04327000 CVTRV453 EQU CVTXTNT2+96 04328000 CVTRV452 EQU CVTXTNT2+94 04329000 CVTRV451 EQU CVTXTNT2+92 04330000 CVTRV450 EQU CVTXTNT2+90 04331000 CVTRV449 EQU CVTXTNT2+88 04332000 CVTRV448 EQU CVTXTNT2+87 04333000 CVTRV447 EQU CVTXTNT2+86 04334000 CVTRV446 EQU CVTRV438 04335000 CVTRV445 EQU CVTRV438 04336000 CVTRV444 EQU CVTRV438 04337000 CVTRV443 EQU CVTRV438 04338000 CVTRV442 EQU CVTRV438 04339000 CVTRV441 EQU CVTRV438 04340000 CVTRV440 EQU CVTRV438 04341000 CVTRV439 EQU CVTRV438 04342000 CVTRV437 EQU CVTRV429 04343000 CVTRV436 EQU CVTRV429 04344000 CVTRV435 EQU CVTRV429 04345000 CVTRV434 EQU CVTRV429 04346000 CVTRV433 EQU CVTRV429 04347000 CVTRV432 EQU CVTRV429 04348000 CVTRV431 EQU CVTRV429 04349000 CVTRV430 EQU CVTRV429 04350000 CVTRV428 EQU CVTXTNT2+80 04351000 CVTRV427 EQU CVTXTNT2+76 04352000 CVTRV426 EQU CVTXTNT2+72 04353000 CVTRV425 EQU CVTXTNT2+68 04354000 CVTATACT EQU CVTATCVT 04355000 CVTRV423 EQU CVTXTNT2+62 04356000 CVTRV422 EQU CVTXTNT2+60 04357000 CVTRV421 EQU CVTXTNT2+58 04358000 CVTRV420 EQU CVTXTNT2+56 04359000 CVTRV419 EQU CVTXTNT2+55 04360000 CVTRV418 EQU CVTXTNT2+54 04361000 CVTRV417 EQU CVTRV409 04362000 CVTRV416 EQU CVTRV409 04363000 CVTRV415 EQU CVTRV409 04364000 CVTRV414 EQU CVTRV409 04365000 CVTRV413 EQU CVTRV409 04366000 CVTRV412 EQU CVTRV409 04367000 CVTRV411 EQU CVTRV409 04368000 CVTRV410 EQU CVTRV409 04369000 CVTRV408 EQU CVTRV400 04370000 CVTRV407 EQU CVTRV400 04371000 CVTRV406 EQU CVTRV400 04372000 CVTRV405 EQU CVTRV400 04373000 CVTRV404 EQU CVTRV400 04374000 CVTRV403 EQU CVTRV400 04375000 CVTRV402 EQU CVTRV400 04376000 CVTRV401 EQU CVTRV400 04377000 CVTICB EQU CVTXTNT2+48 04378000 CVTSKTA EQU CVTXTNT2+44 04379000 CVTSHSB EQU CVTSHS 04380000 CVTRSV98 EQU CVTXTNT2+36 04381000 CVTRSV97 EQU CVTXTNT2+34 04382000 CVTRSV96 EQU CVTXTNT2+32 04383000 CVTOLTEP EQU CVTXTNT2+28 04384000 CVTQIDA EQU CVTQID+1 04385000 CVTRSV95 EQU CVTQID 04386000 CVTRSV94 EQU CVTXTNT2+20 04387000 CVTRSV93 EQU CVTXTNT2+16 04388000 CVTRSV92 EQU CVTXTNT2+12 04389000 CVTDEBVR EQU CVTXTNT2+8 04390000 CVTRSV91 EQU CVTXTNT2+6 04391000 CVTRSV9H EQU CVTFLGBT 04392000 CVTRSV9G EQU CVTFLGBT 04393000 CVTRSV9F EQU CVTFLGBT 04394000 CVTRSV9E EQU CVTFLGBT 04395000 CVTRSV9D EQU CVTFLGBT 04396000 CVTRSV9C EQU CVTFLGBT 04397000 CVTVME EQU CVTFLGBT 04398000 CVTNPE EQU CVTFLGBT 04399000 CVTNUCLS EQU CVTXTNT2+4 04400000 CVTDSSVA EQU CVTDSSV+1 04401000 CVTRSV89 EQU CVTDSSV 04402000 CVTRSV88 EQU CVTXTNT1+8 04403000 CVTRSV87 EQU CVTXTNT1+4 04404000 CVTFACHN EQU CVTXTNT1 04405000 CVTRV488 EQU CVTMAP+412 04406000 CVTRV487 EQU CVTMAP+408 04407000 CVTRV486 EQU CVTMAP+404 04408000 CVTRV485 EQU CVTMAP+400 04409000 CVTACTAP EQU CVTMAP+396 04410000 CVTAUTH EQU CVTMAP+392 04411000 CVTATMCA EQU CVTATMCT+1 04412000 CVTATMST EQU CVTATMCT 04413000 CVTRSV61 EQU CVTMAP+384 04414000 CVTVOLT1 EQU CVTVOLM1+1 04415000 CVTVOLI1 EQU CVTVOLF1 04416000 CVTSTOA EQU CVTMAP+376 04417000 CVTRSV58 EQU CVTMAP+374 04418000 CVTRSV57 EQU CVTMAP+372 04419000 CVTDDCE EQU CVTMAP+368 04420000 CVTPNWFR EQU CVTMAP+364 04421000 CVTSMF EQU CVTMAP+360 04422000 CVTSULK EQU CVTMAP+358 04423000 CVTSLKO EQU CVTSYSK 04424000 CVTSLKP EQU CVTSYSK 04425000 CVTSLKQ EQU CVTSYSK 04426000 CVTSLKR EQU CVTSYSK 04427000 CVTRSV56 EQU CVTSYSK 04428000 CVTRSV55 EQU CVTSYSK 04429000 CVTRSV54 EQU CVTSYSK 04430000 CVTRSV53 EQU CVTSYSK 04431000 CVTRSV52 EQU CVTA1F1 04432000 CVTRSV51 EQU CVTA1F1 04433000 CVTRSV50 EQU CVTA1F1 04434000 CVTRSV49 EQU CVTA1F1 04435000 CVTRSV48 EQU CVTA1F1 04436000 CVTRSV47 EQU CVTA1F1 04437000 CVTSRSW EQU CVTA1F1 04438000 CVTPFSW EQU CVTA1F1 04439000 CVTPCVT EQU CVTMAP+352 04440000 CVTRSV46 EQU CVTMAP+344 04441000 CVTRSV45 EQU CVTMAP+340 04442000 CVTRSV44 EQU CVTMAP+338 04443000 CVTRSV43 EQU CVTMAP+336 04444000 CVTHJESA EQU CVTHJES+1 04445000 CVTRSV42 EQU CVTHJES 04446000 CVTEXT2A EQU CVTEXT2+1 04447000 CVTRSV41 EQU CVTEXT2 04448000 CVTAPFA EQU CVTAPF+1 04449000 CVTRSV40 EQU CVTAPF 04450000 CVTRV518 EQU CVTINTLA 04451000 CVTRV517 EQU CVTERPV 04452000 CVTEORM EQU CVTMAP+312 04453000 CVTMCHPR EQU CVTMAP+308 04454000 CVTTZ EQU CVTMAP+304 04455000 CVTJEPS EQU CVTMAP+300 04456000 CVTJESCT EQU CVTMAP+296 04457000 CVTMODE EQU CVTMAP+292 04458000 CVTPTRV EQU CVTMAP+288 04459000 CVTREAL EQU CVTMAP+284 04460000 CVTRSV39 EQU CVTMAP+280 04461000 CVTRSV38 EQU CVTMAP+276 04462000 CVTDMSRA EQU CVTDMSR+1 04463000 CVTRSV37 EQU CVTDMSR 04464000 CVTQMSGA EQU CVTQMSG+1 04465000 CVTRSV36 EQU CVTQMSG 04466000 CVTAMFF EQU CVTMAP+264 04467000 CVTPURGA EQU CVTPURG+1 04468000 CVTRSV35 EQU CVTPURG 04469000 CVTCBSP EQU CVTMAP+256 04470000 CVTATERA EQU CVTATER+1 04471000 CVTSYST EQU CVTATER 04472000 CVTVOLT2 EQU CVTTAT 04473000 CVTVOLI2 EQU CVTVOLF2 04474000 CVTAQAVB EQU CVTAQAVT+1 04475000 CVTRSV34 EQU CVTTCMFG 04476000 CVTRSV33 EQU CVTTCMFG 04477000 CVTRSV32 EQU CVTTCMFG 04478000 CVTRSV31 EQU CVTTCMFG 04479000 CVTRSV30 EQU CVTTCMFG 04480000 CVTRSV29 EQU CVTTCMFG 04481000 CVTRSV28 EQU CVTTCMFG 04482000 CVTTCRDY EQU CVTTCMFG 04483000 CVTGTFA EQU CVTGTF+1 04484000 CVTRSV27 EQU CVTGTFST 04485000 CVTRNIO EQU CVTGTFST 04486000 CVTUSR EQU CVTGTFST 04487000 CVTRV318 EQU CVTFORM 04488000 CVTRV317 EQU CVTTMODE 04489000 CVTRV316 EQU CVTSTATE 04490000 CVTRV315 EQU CVTGTFS 04491000 CVTGTFAV EQU CVTGTFS 04492000 CVT0SCR1 EQU CVTMAP+232 04493000 CVTRV515 EQU CVTMAP+228 04494000 CVTRMS EQU CVTMAP+224 04495000 CVTPATCH EQU CVTMAP+220 04496000 CVTTSCE EQU CVTMAP+216 04497000 CVTLNKSC EQU CVTMAP+214 04498000 CVTQABST EQU CVTMAP+212 04499000 CVTMDLDS EQU CVTMAP+208 04500000 CVTUSER EQU CVTMAP+204 04501000 CVTABEND EQU CVTMAP+200 04502000 CVTSMCA EQU CVTMAP+196 04503000 CVTRSV18 EQU CVTMAP+192 04504000 CVTQLPAQ EQU CVTMAP+188 04505000 CVTQCDSR EQU CVTMAP+184 04506000 CVTRSV17 EQU CVTOPTB 04507000 CVTRSV16 EQU CVTOPTB 04508000 CVTFP EQU CVTOPTB 04509000 CVTAPTHR EQU CVTOPTB 04510000 CVTNLOG EQU CVTOPTB 04511000 CVTTOD EQU CVTOPTB 04512000 CVTCTIMS EQU CVTOPTB 04513000 CVTPROT EQU CVTOPTB 04514000 CVTXPFP EQU CVTOPTA 04515000 CVTASCII EQU CVTOPTA 04516000 CVTRSV13 EQU CVTOPTA 04517000 CVTRSV12 EQU CVTOPTA 04518000 CVTNIP EQU CVTOPTA 04519000 CVTDDR EQU CVTOPTA 04520000 CVTAPR EQU CVTOPTA 04521000 CVTCCH EQU CVTOPTA 04522000 CVTSNCTR EQU CVTMAP+180 04523000 CVTQMWR EQU CVTMAP+176 04524000 CVTQOCR EQU CVTMAP+172 04525000 CVT1EF00 EQU CVTMAP+168 04526000 CVTMZ00 EQU CVTMAP+164 04527000 CVTHEAD EQU CVTMAP+160 04528000 CVTRSV11 EQU CVTMAP+156 04529000 CVT0PT01 EQU CVTMAP+152 04530000 CVTMSER EQU CVTMAP+148 04531000 CVTRV516 EQU CVTIERLC 04532000 CVTILCH EQU CVTMAP+140 04533000 CVT0DS EQU CVTMAP+136 04534000 CVTFBOSV EQU CVTMAP+132 04535000 CVTNUCB EQU CVTMAP+128 04536000 CVTIXAVL EQU CVTMAP+124 04537000 CVTIOQET EQU CVTMAP+120 04538000 CVTDCBA EQU CVTMAP+117 04539000 CVTMVS2 EQU CVTDCB 04540000 CVT6DAT EQU CVTDCB 04541000 CVT4MPS EQU CVTDCB 04542000 CVTRSV09 EQU CVTDCB 04543000 CVT4MS1 EQU CVTDCB 04544000 CVT2SPS EQU CVTDCB 04545000 CVT1SSS EQU CVTDCB 04546000 CVTRSV08 EQU CVTDCB 04547000 CVTSTB EQU CVTMAP+112 04548000 CVTQTD00 EQU CVTMAP+108 04549000 CVTQTE00 EQU CVTMAP+104 04550000 CVTCUCB EQU CVTMAP+100 04551000 CVTSJQ EQU CVTMAP+96 04552000 CVTPBLDL EQU CVTMAP+92 04553000 CVTTPC EQU CVTMAP+88 04554000 CVTSVDCB EQU CVTMAP+84 04555000 CVTBRET EQU CVTMAP+82 04556000 CVTEXIT EQU CVTMAP+80 04557000 CVT0FN00 EQU CVTMAP+76 04558000 CVTDARA EQU CVTDAR+1 04559000 CVTRSV07 EQU CVTFLGS1 04560000 CVTRSV06 EQU CVTFLGS1 04561000 CVTRSV05 EQU CVTFLGS1 04562000 CVTRSV04 EQU CVTFLGS1 04563000 CVTRSV03 EQU CVTFLGS1 04564000 CVTRSV02 EQU CVTFLGS1 04565000 CVTRSV01 EQU CVTFLGS1 04566000 CVTDMPLK EQU CVTFLGS1 04567000 CVTXITP EQU CVTMAP+68 04568000 CVTZDTAB EQU CVTMAP+64 04569000 CVTMSLT EQU CVTMAP+60 04570000 CVTDATE EQU CVTMAP+56 04571000 CVTBTERM EQU CVTMAP+52 04572000 CVTSYSAD EQU CVTMAP+48 04573000 CVTXTLER EQU CVTMAP+44 04574000 CVTILK2 EQU CVTMAP+40 04575000 CVTILK1 EQU CVTMAP+36 04576000 CVTPRLTV EQU CVTMAP+32 04577000 CVTPCNVT EQU CVTMAP+28 04578000 CVT0VL00 EQU CVTMAP+24 04579000 CVTXAPG EQU CVTMAP+20 04580000 CVTBUF EQU CVTMAP+16 04581000 CVTJOB EQU CVTMAP+12 04582000 CVTLINK EQU CVTMAP+8 04583000 CVT0EF00 EQU CVTMAP+4 04584000 CVTTCBP EQU CVTMAP 04585000 CVT EQU CVTMAP 04586000 RPLSEQNO EQU RPLOF60+6 04587000 @NM00050 EQU RPLIBSQ 04588000 RPLIINV EQU RPLIBSQ 04589000 RPLINEG EQU RPLIBSQ 04590000 RPLIPOS EQU RPLIBSQ 04591000 RPLIIGN EQU RPLIBSQ 04592000 RPLIRSET EQU RPLIBSQ 04593000 RPLITST EQU RPLIBSQ 04594000 RPLISET EQU RPLIBSQ 04595000 @NM00049 EQU RPLOBSQ 04596000 RPLOINV EQU RPLOBSQ 04597000 RPLONEG EQU RPLOBSQ 04598000 RPLOPOS EQU RPLOBSQ 04599000 RPLOIGN EQU RPLOBSQ 04600000 RPLORSET EQU RPLOBSQ 04601000 RPLOTST EQU RPLOBSQ 04602000 RPLOSET EQU RPLOBSQ 04603000 RPLIBSQV EQU RPLOF60+2 04604000 RPLOBSQV EQU RPLOF60 04605000 @NM00048 EQU RPLCNTSC 04606000 RPLRSHUT EQU RPLCNTSC 04607000 RPLRQR EQU RPLCNTSC 04608000 RPLSHUTC EQU RPLCNTSC 04609000 RPLSHUTD EQU RPLCNTSC 04610000 RPLSTSN EQU RPLCNTSC 04611000 RPLCLEAR EQU RPLCNTSC 04612000 RPLSDT EQU RPLCNTSC 04613000 @NM00047 EQU RPLCNTDC 04614000 RPLSIGNL EQU RPLCNTDC 04615000 RPLLUS EQU RPLCNTDC 04616000 RPLRTR EQU RPLCNTDC 04617000 RPLBID EQU RPLCNTDC 04618000 @NM00046 EQU RPLCNTDF 04619000 RPLQI EQU RPLCNTDF 04620000 RPLRELQ EQU RPLCNTDF 04621000 RPLCHASE EQU RPLCNTDF 04622000 RPLQEC EQU RPLCNTDF 04623000 RPLQC EQU RPLCNTDF 04624000 RPLCNCEL EQU RPLCNTDF 04625000 RPLDATA EQU RPLCNTDF 04626000 RPLRRN EQU RPLRESP 04627000 RPLNFME EQU RPLRESP 04628000 RPLEX EQU RPLRESP 04629000 @NM00045 EQU RPLRESP 04630000 @NM00044 EQU RPLPOSTV 04631000 RPLSCHED EQU RPLPOSTV 04632000 @NM00043 EQU RPLVTFL1 04633000 RPLAUTUS EQU RPLVTFL1 04634000 RPLVTUSE EQU RPLVTFL1 04635000 @NM00042 EQU RPLVTFL1 04636000 @NM00041 EQU RPLCHN 04637000 RPLONLY EQU RPLCHN 04638000 RPLLAST EQU RPLCHN 04639000 RPLMIDLE EQU RPLCHN 04640000 RPLFIRST EQU RPLCHN 04641000 @NM00040 EQU RPLRTYPE 04642000 RPLDFASY EQU RPLRTYPE 04643000 RPLNFSYN EQU RPLRTYPE 04644000 RPLRRESP EQU RPLRTYPE 04645000 @NM00039 EQU RPLSTYPE 04646000 RPLSRESP EQU RPLSTYPE 04647000 @NM00038 EQU RPLRH3 04648000 RPLCSI EQU RPLRH3 04649000 RPLCHREQ EQU RPLRH3 04650000 RPLCMD EQU RPLRH3 04651000 RPLEB EQU RPLRH3 04652000 RPLBB EQU RPLRH3 04653000 RPLSIGDA EQU RPLVTEXT+32 04654000 RPLSAV13 EQU RPLVTEXT+28 04655000 RPLUSNSO EQU RPLOSENS+2 04656000 RPLSSMO EQU RPLSSNSO+1 04657000 @NM00037 EQU RPLSSEO 04658000 RPLRRO EQU RPLSSEO 04659000 RPLFIO EQU RPLSSEO 04660000 RPLSTATO EQU RPLSSEO 04661000 RPLCPMO EQU RPLSSEO 04662000 @NM00036 EQU RPLSSEO 04663000 RPLFMHDR EQU RPLOPT12 04664000 @NM00035 EQU RPLOPT12 04665000 @NM00034 EQU RPLOPT12 04666000 @NM00033 EQU RPLOPT12 04667000 RPLNIBTK EQU RPLOPT12 04668000 RPLTRUNC EQU RPLOPT12 04669000 RPLKEEP EQU RPLOPT12 04670000 @NM00032 EQU RPLOPT12 04671000 RPLRSVE8 EQU RPLOPT11 04672000 RPLRSVE7 EQU RPLOPT11 04673000 RPLRSVE6 EQU RPLOPT11 04674000 RPLRSVE5 EQU RPLOPT11 04675000 RPLRSVE4 EQU RPLOPT11 04676000 RPLSTOP EQU RPLOPT11 04677000 RPLSTART EQU RPLOPT11 04678000 RPLQUIES EQU RPLOPT11 04679000 RPLRSVI6 EQU RPLOPT10 04680000 RPLRSVI5 EQU RPLOPT10 04681000 RPLRSVI4 EQU RPLOPT10 04682000 RPLRSVI3 EQU RPLOPT10 04683000 RPLRSVI2 EQU RPLOPT10 04684000 RPLSPARM EQU RPLOPT10 04685000 RPLDSPLY EQU RPLOPT10 04686000 RPLBSCID EQU RPLOPT10 04687000 RPLTOPL EQU RPLOPT9 04688000 RPLCIDE EQU RPLOPT9 04689000 RPLRNNM EQU RPLOPT9 04690000 RPLAPPST EQU RPLOPT9 04691000 RPLCOUNT EQU RPLOPT9 04692000 RPLTERMS EQU RPLOPT9 04693000 RPLDEVCH EQU RPLOPT9 04694000 RPLLOGON EQU RPLOPT9 04695000 RPLUSFLD EQU RPLVTEXT+16 04696000 RPLESR2 EQU RPLUSNSI+1 04697000 RPLESR1 EQU RPLUSNSI 04698000 RPLSSMI EQU RPLDSB2 04699000 @NM00031 EQU RPLSSEI 04700000 RPLRRI EQU RPLSSEI 04701000 RPLFII EQU RPLSSEI 04702000 RPLSTATI EQU RPLSSEI 04703000 RPLCPMI EQU RPLSSEI 04704000 RPLPATHI EQU RPLSSEI 04705000 RPLARCLN EQU RPLVTEXT+8 04706000 RPLAARLN EQU RPLVTEXT+4 04707000 RPLAAREA EQU RPLVTEXT 04708000 RPLERMSA EQU RPLCOMN+72 04709000 RPLEMLEN EQU RPLCOMN+70 04710000 RPLACTIV EQU RPLCOMN+69 04711000 RPLBRANC EQU RPLEXTD1 04712000 RPLNIB EQU RPLEXTD1 04713000 @NM00030 EQU RPLEXTD1 04714000 RPLEXIT EQU RPLEXTD1 04715000 RPLNEXIT EQU RPLEXTD1 04716000 RPLEXSCH EQU RPLEXTD1 04717000 RPLDDDD EQU RPLRBAR+4 04718000 @NM00029 EQU RPLRBAR+3 04719000 @NM00028 EQU RPLAIXID 04720000 RPLAXPKP EQU RPLAIXID 04721000 RPLAIXPC EQU RPLRBAR 04722000 RPLRSV88 EQU RPLOPT8 04723000 RPLUNCON EQU RPLOPT8 04724000 RPLACTV EQU RPLOPT8 04725000 RPLSESS EQU RPLOPT8 04726000 RPLPEND EQU RPLOPT8 04727000 RPLODPRM EQU RPLOPT8 04728000 RPLODACP EQU RPLOPT8 04729000 RPLODACQ EQU RPLOPT8 04730000 RPLRSV78 EQU RPLOPT7 04731000 RPLRSV77 EQU RPLOPT7 04732000 RPLRLSOP EQU RPLOPT7 04733000 RPLTPOST EQU RPLOPT7 04734000 RPLQOPT EQU RPLOPT7 04735000 RPLCNIMM EQU RPLCNOPT 04736000 RPLCNANY EQU RPLCNOPT 04737000 RPLCNALL EQU RPLCNOPT 04738000 RPLRSV68 EQU RPLOPT6 04739000 RPLRSV67 EQU RPLOPT6 04740000 RPLLOCK EQU RPLOPT6 04741000 RPLNCOND EQU RPLOPT6 04742000 RPLCOND EQU RPLOPT6 04743000 RPLEOT EQU RPLUNTYP 04744000 RPLEOM EQU RPLUNTYP 04745000 RPLEOB EQU RPLUNTYP 04746000 RPLWROPT EQU RPLOPT5 04747000 RPLNODE EQU RPLOPT5 04748000 RPLERACE EQU RPLWRTYP 04749000 RPLEAU EQU RPLWRTYP 04750000 RPLNERAS EQU RPLWRTYP 04751000 RPLPSOPT EQU RPLOPT5 04752000 @NM00027 EQU RPLOPT5 04753000 RPLCHAIN EQU RPLNXTRP 04754000 RPLBOP EQU RPLOPT4 04755000 @NM00026 EQU RPLOPT4 04756000 RPLMKFRM EQU RPLOPT4 04757000 RPLENDTR EQU RPLOPT4 04758000 RPLALIGN EQU RPLOPT3 04759000 RPLFMT EQU RPLOPT3 04760000 RPLFLD EQU RPLOPT3 04761000 RPLVFY EQU RPLOPT3 04762000 RPLBLK EQU RPLOPT3 04763000 RPLSFORM EQU RPLOPT3 04764000 RPLEODS EQU RPLOPT3 04765000 RPLNSP EQU RPLOPT2 04766000 RPLUPD EQU RPLOPT2 04767000 @NM00025 EQU RPLOPT2 04768000 RPLLRD EQU RPLOPT2 04769000 RPLBWD EQU RPLOPT2 04770000 RPLCNV EQU RPLOPT2 04771000 RPLADD EQU RPLADR 04772000 RPLKEY EQU RPLOPT2 04773000 RPLECBIN EQU RPLECBSW 04774000 RPLGEN EQU RPLOPT1 04775000 RPLKGE EQU RPLOPT1 04776000 RPLASY EQU RPLOPT1 04777000 RPLSKP EQU RPLOPT1 04778000 RPLSEQ EQU RPLOPT1 04779000 RPLDIR EQU RPLOPT1 04780000 RPLLOC EQU RPLOPT1 04781000 RPLDAF EQU RPLARG+2 04782000 RPLSAF EQU RPLARG 04783000 RPLTCBPT EQU RPLCOMN+28 04784000 RPLDACB EQU RPLCOMN+24 04785000 RPLCCHAR EQU RPLCOMN+20 04786000 RPLSTRID EQU RPLCOMN+18 04787000 RPLKEYL EQU RPLKEYLE 04788000 RPLRDSOH EQU RPLFDB3 04789000 RPLRLG EQU RPLFDB3 04790000 RPLLGFRC EQU RPLFDB3 04791000 RPLREOT EQU RPLFDB3 04792000 RPLREOM EQU RPLFDB3 04793000 RPLREOB EQU RPLFDB3 04794000 RPLSV32 EQU RPLFDB3 04795000 RPLUINPT EQU RPLFDB3 04796000 RPLSTSAV EQU RPLFDB2 04797000 RPLCUERR EQU RPLFDB2 04798000 RPLDLGFL EQU RPLFDB2 04799000 RPLIOERR EQU RPLFDB2 04800000 RPLDVUNS EQU RPLFDB2 04801000 RPLATND EQU RPLFDB2 04802000 RPLRVID EQU RPLFDB2 04803000 RPLERLK EQU RPLFDB2 04804000 RPLERREG EQU RPLRTNCD 04805000 RPLSTAT EQU RPLFDBWD 04806000 RPLPOST EQU RPLECB 04807000 RPLWAIT EQU RPLECB 04808000 RPLPLHPT EQU RPLCOMN+4 04809000 RPLLEN2 EQU RPLLEN 04810000 RPLREQ EQU RPLIDWD+2 04811000 RPLSTYP EQU RPLIDWD+1 04812000 RPLID EQU RPLIDWD 04813000 @NM00024 EQU PSA+3668 04814000 PSASTAK EQU PSA+3072 04815000 @NM00023 EQU PSA+1040 04816000 PSAUSEND EQU PSA+1040 04817000 PSARV062 EQU PSA+1036 04818000 PSAATCVT EQU PSA+1032 04819000 PSAPCPSW EQU PSA+1024 04820000 PSAPIR2 EQU PSA+1020 04821000 PSARV059 EQU PSA+1018 04822000 PSASVC13 EQU PSA+1016 04823000 PSALSFCC EQU PSA+1012 04824000 PSASFACC EQU PSA+1008 04825000 PSASTOP EQU PSA+992 04826000 PSASTART EQU PSA+976 04827000 PSARSPSW EQU PSA+968 04828000 PSASRPSW EQU PSA+960 04829000 PSARV045 EQU PSA+892 04830000 PSARV044 EQU PSA+888 04831000 PSARV043 EQU PSA+884 04832000 PSARV042 EQU PSA+880 04833000 PSARV041 EQU PSA+876 04834000 PSARV040 EQU PSA+872 04835000 PSARV025 EQU PSA+868 04836000 PSADSSED EQU PSA+868 04837000 PSADSSPR EQU PSA+864 04838000 PSADSSFW EQU PSA+860 04839000 PSADSS14 EQU PSA+856 04840000 PSADSSPP EQU PSA+848 04841000 PSADSSRP EQU PSA+840 04842000 PSADSS05 EQU PSADSSF4 04843000 PSADSS10 EQU PSADSSF4 04844000 PSADSSVE EQU PSADSSF4 04845000 PSADSSDE EQU PSADSSF4 04846000 PSADSSC0 EQU PSADSSF4 04847000 PSADSSIE EQU PSADSSF4 04848000 PSADSS12 EQU PSADSSF4 04849000 PSADSSRC EQU PSADSSF4 04850000 PSARV057 EQU PSADSSF3 04851000 PSARV056 EQU PSADSSF3 04852000 PSARV055 EQU PSADSSF3 04853000 PSADSSMC EQU PSADSSF3 04854000 PSADSSRW EQU PSADSSF3 04855000 PSADSSNM EQU PSADSSF3 04856000 PSADSSES EQU PSADSSF3 04857000 PSADSSGP EQU PSADSSF3 04858000 PSADSSF2 EQU PSADSSFL+1 04859000 PSADSSPI EQU PSADSSF1 04860000 PSADSSOI EQU PSADSSF1 04861000 PSADSSSP EQU PSADSSF1 04862000 PSADSSTP EQU PSADSSF1 04863000 PSADSSDW EQU PSADSSF1 04864000 PSADSSDD EQU PSADSSF1 04865000 PSADSSDM EQU PSADSSF1 04866000 PSADSSMV EQU PSADSSF1 04867000 PSADSSTS EQU PSA+816 04868000 PSADSSWK EQU PSA+812 04869000 PSADSSR3 EQU PSA+808 04870000 PSADSSR2 EQU PSA+804 04871000 PSADSSRS EQU PSA+800 04872000 PSASTOR EQU PSA+796 04873000 PSACPUSA EQU PSA+794 04874000 PSAVSTAP EQU PSA+792 04875000 PSAWKVAP EQU PSA+788 04876000 PSAWKRAP EQU PSA+784 04877000 PSAMCHIC EQU PSA+783 04878000 PSARV061 EQU PSA+782 04879000 PSASYMSK EQU PSA+781 04880000 PSAMCHFL EQU PSA+780 04881000 PSACR0 EQU PSA+776 04882000 PSAPSWSV EQU PSA+768 04883000 PSACLHS EQU PSAHLHI 04884000 PSALKR15 EQU PSALKSA+60 04885000 PSALKR14 EQU PSALKSA+56 04886000 PSALKR13 EQU PSALKSA+52 04887000 PSALKR12 EQU PSALKSA+48 04888000 PSALKR11 EQU PSALKSA+44 04889000 PSALKR10 EQU PSALKSA+40 04890000 PSALKR9 EQU PSALKSA+36 04891000 PSALKR8 EQU PSALKSA+32 04892000 PSALKR7 EQU PSALKSA+28 04893000 PSALKR6 EQU PSALKSA+24 04894000 PSALKR5 EQU PSALKSA+20 04895000 PSALKR4 EQU PSALKSA+16 04896000 PSALKR3 EQU PSALKSA+12 04897000 PSALKR2 EQU PSALKSA+8 04898000 PSALKR1 EQU PSALKSA+4 04899000 PSALKR0 EQU PSALKSA 04900000 PSARV023 EQU PSACLHT+52 04901000 PSALOCAL EQU PSACLHT+48 04902000 PSACMSL EQU PSACLHT+44 04903000 PSAOPTL EQU PSACLHT+40 04904000 PSATPACL EQU PSACLHT+36 04905000 PSATPDNL EQU PSACLHT+32 04906000 PSATPNCL EQU PSACLHT+28 04907000 PSAIOSLL EQU PSACLHT+24 04908000 PSAIOSUL EQU PSACLHT+20 04909000 PSAIOSCL EQU PSACLHT+16 04910000 PSAIOSSL EQU PSACLHT+12 04911000 PSASALCL EQU PSACLHT+8 04912000 PSAASML EQU PSACLHT+4 04913000 PSADISPL EQU PSACLHT 04914000 PSASRSA EQU PSA+636 04915000 PSARV050 EQU PSA+634 04916000 PSADSSGO EQU PSA+633 04917000 PSARECUR EQU PSA+632 04918000 PSAHLHIS EQU PSA+628 04919000 PSAIPCSA EQU PSA+624 04920000 @NM00022 EQU PSA+621 04921000 PSAIPCDM EQU PSA+620 04922000 PSAIPCD EQU PSA+616 04923000 @NM00021 EQU PSA+613 04924000 PSAIPCRM EQU PSA+612 04925000 PSAIPCR EQU PSA+608 04926000 PSAMCHEX EQU PSA+600 04927000 PSAMPSW EQU PSA+592 04928000 PSAEXPS2 EQU PSA+584 04929000 PSAEXPS1 EQU PSA+576 04930000 PSAPIREG EQU PSA+572 04931000 PSARSREG EQU PSA+568 04932000 PSAGPREG EQU PSA+556 04933000 PSARV022 EQU PSASUP4 04934000 PSARV021 EQU PSASUP4 04935000 PSARV020 EQU PSASUP4 04936000 PSARV019 EQU PSASUP4 04937000 PSARV018 EQU PSASUP4 04938000 PSARV017 EQU PSASUP4 04939000 PSARV016 EQU PSASUP4 04940000 PSARV015 EQU PSASUP4 04941000 PSARV014 EQU PSASUP3 04942000 PSARV013 EQU PSASUP3 04943000 PSARV012 EQU PSASUP3 04944000 PSARV011 EQU PSASUP3 04945000 PSASPR EQU PSASUP3 04946000 PSAPSREG EQU PSASUP3 04947000 PSAPI2 EQU PSASUP3 04948000 PSAIOSUP EQU PSASUP3 04949000 PSALCR EQU PSASUP2 04950000 PSARTM EQU PSASUP2 04951000 PSAACR EQU PSASUP2 04952000 PSAIPCE2 EQU PSASUP2 04953000 PSAIPCES EQU PSASUP2 04954000 PSAIPCEC EQU PSASUP2 04955000 PSAGTF EQU PSASUP2 04956000 PSAIPCRI EQU PSASUP2 04957000 PSAIPCRP EQU PSASUP1 04958000 PSAIPCDR EQU PSASUP1 04959000 PSADISP EQU PSASUP1 04960000 PSALOCK EQU PSASUP1 04961000 PSAPI EQU PSASUP1 04962000 PSAEXT EQU PSASUP1 04963000 PSASVC EQU PSASUP1 04964000 PSAIO EQU PSASUP1 04965000 PSAAOLD EQU PSA+548 04966000 PSAANEW EQU PSA+544 04967000 PSATOLD EQU PSA+540 04968000 PSATNEW EQU PSA+536 04969000 PSALCCAR EQU PSA+532 04970000 PSALCCAV EQU PSA+528 04971000 PSAPCCAR EQU PSA+524 04972000 PSAPCCAV EQU PSA+520 04973000 PSACPULA EQU PSA+518 04974000 PSACPUPA EQU PSA+516 04975000 PSAPSA EQU PSA+512 04976000 FLCHDEND EQU PSA+512 04977000 FLCCRSAV EQU FLCMCLA+280 04978000 FLCGRSAV EQU FLCMCLA+216 04979000 FLCFPSAV EQU FLCMCLA+184 04980000 FLCFLA EQU FLCMCLA+88 04981000 FLCRGNCD EQU FLCMCLA+84 04982000 FLCFSAA EQU FLCFSA+1 04983000 @NM00020 EQU FLCFSA 04984000 @NM00019 EQU FLCMCLA+72 04985000 FLCMCIC EQU FLCMCLA+64 04986000 @NM00018 EQU FLCMCLA+20 04987000 FLCIOAA EQU FLCIOA+1 04988000 @NM00017 EQU FLCIOA 04989000 @NM00016 EQU FLCMCLA+15 04990000 @NM00015 EQU FLCMCLA+14 04991000 @NM00014 EQU FLCMCLA+12 04992000 FLCLCL EQU FLCMCLA+8 04993000 FLCIOELA EQU FLCIOEL+1 04994000 @NM00013 EQU FLCIOEL 04995000 FLCCHNID EQU FLCMCLA 04996000 @NM00012 EQU PSA+160 04997000 FLCMTRCD EQU PSA+157 04998000 @NM00011 EQU PSA+156 04999000 FLCPERA EQU FLCPER+1 05000000 @NM00010 EQU FLCPER 05001000 @NM00009 EQU PSA+151 05002000 FLCPERCD EQU PSA+150 05003000 FLCMCNUM EQU PSA+149 05004000 @NM00008 EQU PSA+148 05005000 FLCTEAA EQU FLCTEA+1 05006000 @NM00007 EQU FLCTEA 05007000 PSAPIPC EQU PSAPICOD 05008000 PSAPIMC EQU PSAPICOD 05009000 PSAPIPER EQU PSAPICOD 05010000 PSARV049 EQU FLCPICOD 05011000 FLCPILCB EQU FLCPIILC 05012000 @NM00006 EQU FLCPIILC 05013000 @NM00005 EQU PSAEPPSW 05014000 FLCSVCN EQU PSAESPSW+2 05015000 FLCSILCB EQU FLCSVILC 05016000 @NM00004 EQU FLCSVILC 05017000 @NM00003 EQU PSAESPSW 05018000 FLCEICOD EQU PSAEEPSW+2 05019000 PSASPAD EQU PSAEEPSW 05020000 @NM00002 EQU PSA+128 05021000 FLCINPSW EQU PSA+120 05022000 FLCMNPSW EQU PSA+112 05023000 FLCPNPSW EQU PSA+104 05024000 FLCSNPSW EQU PSA+96 05025000 FLCENPSW EQU PSA+88 05026000 FLCTRACE EQU PSA+84 05027000 FLCTIMER EQU PSA+80 05028000 FLCCVT2 EQU PSA+76 05029000 FLCCAW EQU PSA+72 05030000 FLCCSW EQU PSA+64 05031000 FLCIOPSW EQU PSA+56 05032000 FLCMOPSW EQU PSA+48 05033000 FLCPOPSW EQU PSA+40 05034000 FLCSOPSW EQU PSA+32 05035000 FLCEOPSW EQU PSA+24 05036000 @NM00001 EQU FLCICCW2+4 05037000 FLCCVT EQU FLCICCW2 05038000 FLCICCW1 EQU FLCROPSW 05039000 FLCIPPSW EQU FLCRNPSW 05040000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 05041000 @RC00464 EQU @RC00443 05042000 @RC00497 EQU @RC00491 05043000 @RC00492 EQU @RC00491 05044000 @RF00640 EQU @RC00636 05045000 @RC00688 EQU @RC00670 05046000 @PB00006 EQU @PB00007 05047000 @RC00689 EQU @RC00688 05048000 @PB00005 EQU @PB00006 05049000 @PB00004 EQU @PB00005 05050000 @RC00690 EQU @RC00689 05051000 @PB00003 EQU @PB00004 05052000 @PB00002 EQU @PB00003 05053000 @ENDDATA EQU * 05054000 END ISTDCC21,(C'PLS0331',0603,75126) 05055000