TITLE 'ISTINCA0/AA0-VS1/MA0-VS2 SUBTASK ATTACH ROUTINE *00001000 ' 00002000 ISTINCA0 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTINCA0 75.128' 0001 00008000 DROP @15 00009000 @PROLOG ST @14,12(,@13) 0001 00010000 STM @00,@12,20(@13) 0001 00011000 BALR @12,0 0001 00012000 @PSTART DS 0H 0001 00013000 USING @PSTART,@12 0001 00014000 ST @13,@SA00001+4 0001 00015000 LA @14,@SA00001 0001 00016000 ST @14,8(,@13) 0001 00017000 LR @13,@14 0001 00018000 */* END OF ATBUILD */ 0022 00019000 * 0022 00020000 * /*****************************************************************/ 00021000 * /* */ 00022000 * /* START MAINLINE ROUTINE */ 00023000 * /* */ 00024000 * /*****************************************************************/ 00025000 * 0022 00026000 * CA0SWA = CA0OFF; /* INIT SWITCHA OFF */ 00027000 * CA0LOOP = CA0ON; /* INIT LOOP CONTROL */ 00028000 OI CA0LOOP,B'01000000' 0023 00029000 NI CA0SWA,B'01111111' 0023 00030000 * DO WHILE (CA0LOOP = CA0ON); /* START DO LOOP */ 00031000 B @DE00024 0024 00032000 @DL00024 DS 0H 0025 00033000 * IF LDPATACH = CA0ON /* IS THIS MOD TO BE ATTACHED */ 00034000 * THEN /* YES */ 00035000 TM LDPATACH(LDPRMPTR),B'01000000' 0025 00036000 BNO @RF00025 0025 00037000 * DO; 0026 00038000 * IF LDPACTIF ^= CA0ON /* IS TASK ATTACHED */ 00039000 * THEN /* NO */ 00040000 TM LDPACTIF(LDPRMPTR),B'00100000' 0027 00041000 BO @RF00027 0027 00042000 * DO; 0028 00043000 * CA0R0 = ADDR(VBLBLDLT); /* INIT BLDL LIST ADDR */ 00044000 LA CA0R0,VBLBLDLT 0029 00045000 * VBLBLDNM = LDPMBR; /* PUT NAME INTO LIST */ 00046000 MVC VBLBLDNM(8),LDPMBR(LDPRMPTR) 0030 00047000 * CALL ISTINFBL; /* CALL BLDL ROUTINE */ 00048000 L @15,@CV00725 0031 00049000 BALR @14,@15 0031 00050000 * IF CA0R15 ^= 0 /* IS RETURN CODE 900D */ 00051000 * THEN /* NO BLDL FAILED */ 00052000 LTR CA0R15,CA0R15 0032 00053000 BZ @RF00032 0032 00054000 * DO; /* ISSUE ATTACH FAILED MSG */ 00055000 * CA0R6 = CA0R1; /* INIT LIST SAVE REG */ 00056000 * 0034 00057000 LR CA0R6,CA0R1 0034 00058000 */*TPMSG MSGID('122I')MSG((CA0R6))*/ 0035 00059000 * 0035 00060000 * DO; 0035 00061000 * DCL REG1004 REG(1) PTR; 0036 00062000 * RFY (REG1004) RSTD; 0037 00063000 * 0037 00064000 * RFY (EMCR13) RSTD; 0038 00065000 * DCL 1 * BASED(REG1004), 0039 00066000 * 2 CMZID004 PTR(31), 0039 00067000 * 2 *, 0039 00068000 * 3 CMZRL004 PTR(8), 0039 00069000 * 3 CMZRA004 PTR(24) BDY(BYTE), 0039 00070000 * 2 CMZEA004 PTR(31), 0039 00071000 * 2 CMZVP004 PTR(31); 0039 00072000 * DCL CMZPL004(4) FIXED INIT((4)0); 0040 00073000 * REG1004 = ADDR(CMZPL004); 0041 00074000 LA REG1004,CMZPL004 0041 00075000 * DCL CMZAA004 CHAR(4) INIT('122I'); 0042 00076000 * CMZID004 = ADDR(CMZAA004); 0043 00077000 LA @14,CMZAA004 0043 00078000 ST @14,CMZID004(,REG1004) 0043 00079000 * CMZVP004 = CA0R6; 0044 00080000 ST CA0R6,CMZVP004(,REG1004) 0044 00081000 * DCL CMZSA004 (18) PTR(31) BASED(EMCR13); 0045 00082000 * DCL CMZZO004 (1) FIXED(31) INIT(0); 0046 00083000 * CMZSA004(5) = CMZZO004; 0047 00084000 * 0047 00085000 L @14,CMZZO004 0047 00086000 ST @14,CMZSA004+16(,EMCR13) 0047 00087000 * DCL REG15004 REG(15) PTR; 0048 00088000 * RFY REG15004 RSTD; 0049 00089000 * 0049 00090000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15004)) */ 0050 00091000 * 0050 00092000 * RFY ISTPAB ; 0051 00093000 * RFY ISTLOK ; 0052 00094000 * RFY ISTDYPAB; 0053 00095000 * RFY ISTRPH ; 0054 00096000 * RFY ISTATCVT; 0055 00097000 * REG15004 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0056 00098000 L REG15004,ATCLCPTR 0056 00099000 * END; /*LISATCVT*/ 0057 00100000 * DCL CMTA004 BASED(REG15004) ENTRY VALUERANGE(*); 00101000 * REG15004 = REG15004->ATCMSGP; 0059 00102000 L REG15004,ATCMSGP(,REG15004) 0059 00103000 * CALL CMTA004; 0060 00104000 BALR @14,@15 0060 00105000 * RESPECIFY (REG1004,REG15004) UNRESTRICTED; 0061 00106000 * 0061 00107000 * RFY (EMCR13) UNRSTD; 0062 00108000 * END; /*@XM01115*/ 0063 00109000 * CA0R1 = CA0R6; /* RESTORE LIST TO BASE REG */ 00110000 LR CA0R1,CA0R6 0064 00111000 * CA0SWA = CA0ON; /* SET SWITCHA ON */ 00112000 OI CA0SWA,B'10000000' 0065 00113000 * END; 0066 00114000 * ELSE 0067 00115000 * DO; 0067 00116000 B @RC00032 0067 00117000 @RF00032 DS 0H 0068 00118000 * CA0R5 = CA0R1; /* SAVE PARM ADDR */ 00119000 LR CA0R5,CA0R1 0068 00120000 * CA0R2 = ADDR(VBLBLDNM); /* INIT BLDL LIST ADDR */ 00121000 LA CA0R2,VBLBLDNM 0069 00122000 * CA0R3 = LDPDCBA; /* INIT DCB ADDR */ 00123000 L CA0R3,LDPDCBA(,LDPRMPTR) 0070 00124000 * CA0R4 = ADDR(ISTINCXR); /* INIT EXIT RTN ADDR */ 00125000 L CA0R4,@CA00696 0071 00126000 * GEN (ATTACH DE=(CA0R2),DCB=(CA0R3),ETXR=(CA0R4),SM=SUPV); 00127000 ATTACH DE=(CA0R2),DCB=(CA0R3),ETXR=(CA0R4),SM=SUPV 00128000 * CA0R4 = CA0R1; /* SAVE TCB PARM ADDR @XM09735*/ 00129000 LR CA0R4,CA0R1 0073 00130000 * CA0R1 = CA0R5; /* RESTORE PARM ADDR */ 00131000 LR CA0R1,CA0R5 0074 00132000 * LDPTCEP = CA0R4; /* INIT TCB ADDR @XM09735*/ 00133000 ST CA0R4,LDPTCEP(,LDPRMPTR) 0075 00134000 * LDPACTIF = CA0ON; /* SET TASK ATTACHED */ 00135000 OI LDPACTIF(LDPRMPTR),B'00100000' 0076 00136000 * END; 0077 00137000 * END; /* END LDPACTIF ^= */ 00138000 @RC00032 DS 0H 0079 00139000 * END; /* END LDPATACH = ON */ 00140000 @RF00027 DS 0H 0080 00141000 * IF LDPFLAST = CA0ON /* IS IT LAST ENTRY */ 00142000 * THEN /* YES */ 00143000 @RF00025 TM LDPFLAST(LDPRMPTR),B'10000000' 0080 00144000 BNO @RF00080 0080 00145000 * DO; 0081 00146000 * CA0LOOP = CA0OFF; /* TURN LOOP OFF */ 00147000 NI CA0LOOP,B'10111111' 0082 00148000 * IF CA0SWA = CA0ON /* IS SWITCHA ON */ 00149000 * THEN /* YES */ 00150000 TM CA0SWA,B'10000000' 0083 00151000 BNO @RF00083 0083 00152000 * CA0R15 = 4; /* SET ERROR RETURN CODE */ 00153000 LA CA0R15,4 0084 00154000 * ELSE /* NO */ 00155000 * CA0R15 = 0; /* SET GOOD RETURN CODE */ 00156000 B @RC00083 0085 00157000 @RF00083 SLR CA0R15,CA0R15 0085 00158000 * END; 0086 00159000 * ELSE /* GET NEXT LIST ENTRY */ 00160000 * CA0R1 = CA0R1+LENGTH(ISTLDPRM); /* UPDATE TO NEXT LIST PARA M*/ 00161000 B @RC00080 0087 00162000 @RF00080 AL CA0R1,@CF01267 0087 00163000 * END; 0088 00164000 * 0088 00165000 @RC00080 DS 0H 0088 00166000 @DE00024 TM CA0LOOP,B'01000000' 0088 00167000 BO @DL00024 0088 00168000 */* TPEPILOG */ 0089 00169000 * GEN (PRINT OFF); 0089 00170000 * 0089 00171000 PRINT OFF 00172000 */* PROCESS ANCHOR BLOCK * 00173000 */* * 00174000 */* RELEASE 1 - JULY 02, 1973 * 00175000 */* * 00176000 *DCL 1 ISTPAB BDY(DWORD) BASED, 0090 00177000 * 2 PABWQCHN CHAR(8) BDY(DWORD), /* CPS SWAP FIELD FOR NEQ&CHN * 00178000 * 3 PABWEQA PTR(31) BDY(WORD), /* WORK ELEMENT QUEUE ADDRESS * 00179000 * 4 PABWEQG BIT(1), /* GATING BIT * 00180000 * 4 PABRSV01 BIT(7), /* RESERVED * 00181000 * 4 PABWEQP PTR(24), /* WKEL PTR * 00182000 * 3 PABCHAIN PTR(31) BDY(WORD), /* APS CHAIN * 00183000 * 4 PABCHNG BIT(1), /* GATING BIT * 00184000 * 4 PABRESCH BIT(1), /* RESCHEDULE PAB AT 0090 00185000 * TPEXIT * 00186000 * 4 PABCDP BIT(1), /* CLOSE DST/CHANGE IN PROGRESS* 00187000 * 4 PABUNCON BIT(1), /* UNCONDITIONALLY RESCHEDULE 00188000 * PAB AT TPEXIT * 00189000 * 4 PABRESET BIT(1), /* RESET ISSUED ON THIS PAB * 00190000 * 4 PABRSV02 BIT(3), /* RESERVED * 00191000 * 4 PABCHNGP PTR(24), /* PSS CHAIN PTR * 00192000 * 2 PABOFFST PTR(8), /* OFFSET FROM CONTROL BLOCK * 00193000 * 2 PABDVTA PTR(24), /* DVT ADDRESS * 00194000 * 2 PABRPHFG PTR(31), /* SCHED FLAGS AND RPH * 00195000 * 3 PABFLAGS BIT(8), /* SCHEDULING FLAGS * 00196000 * 4 PABAPYP BIT(1), /* APPLICATION IS A USER EXIT * 00197000 * 4 PABPRIOR BIT(1), /* IMMEDIATE PRIORITY * 00198000 * 4 PABNORPR BIT(1), /* NORMAL PRIORITY - * 00199000 * /* RESCHEDUALABLE * 00200000 * 4 PABDYNAM BIT(1), /* DYNAMIC * 00201000 * 4 PABSSN BIT(1), /* SYSTEM SERVICES * 00202000 * 4 PABERLCK BIT(1), /* PAB ERROR LOCK FLAG * 00203000 * 5 PABERRLK BIT(1), /* ERROR LOCK * 00204000 * 6 PABERLOK BIT(1), /* ERROR LOCK * 00205000 */* ABNORMAL TO ALLOW VARY COMPARE AND SWAP * 00206000 * 4 PABINHBT BIT(1) ABNL,/* 1=INHIBIT TRAFFIC,0=NO * 00207000 * 4 PABNODQ BIT(1), /* DO NOT DEQ WORK ELEMENT * 00208000 * 3 PABRPHA PTR(24); /* RPL HEADER ADDRESS * 00209000 *DCL PABWEQG0 BIT(32) CONSTANT('7FFFFFFF'X), /* TURN PABWEQG OFF * 00210000 * PABWEQG1 BIT(32) CONSTANT('80000000'X), /* TURN PABWEQG ON * 00211000 * PABCHNG0 BIT(32) CONSTANT('7FFFFFFF'X), /* TURN PABCHNG OFF * 00212000 * PABCHNG1 BIT(32) CONSTANT('80000000'X), /* TURN PABCHNG ON * 00213000 * PABRESC0 BIT(32) CONSTANT('BFFFFFFF'X), /* TURN PABRESCH OFF * 00214000 * PABRESC1 BIT(32) CONSTANT('40000000'X), /* TURN PABRESCH ON * 00215000 * PABCDP0 BIT(32) CONSTANT ('DFFFFFFF'X), /* TURN PABCDP OFF * 00216000 * PABCDP1 BIT(32) CONSTANT ('20000000'X), /* TURN PABCDP ON * 00217000 * PABERLK0 BIT(32) CONSTANT('FBFFFFFF'X), /* TURN PABERRLK ON * 00218000 * PABERLK1 BIT(32) CONSTANT('04000000'X), /* TURN PABERRLK OFF * 00219000 * PABUNCO0 BIT(32) CONSTANT('EFFFFFFF'X), /* TURN PABUNCON OFF * 00220000 * PABUNCO1 BIT(32) CONSTANT('10000000'X), /* TURN PABUNCON ON * 00221000 * PABPRIR0 BIT(32) CONSTANT('BFFFFFFF'X), /* TURN PAB PRIOR OFF * 00222000 * PABPRIR1 BIT(32) CONSTANT('40000000'X), /* TURN PAB PRIOR ON * 00223000 * PABRST0 BIT(32) CONSTANT('F7FFFFFF'X), /* TURN PABRESET OFF * 00224000 * PABRST1 BIT(32) CONSTANT('08000000'X); /* TURN PABRESET ON * 00225000 */* LOCKWORD FORMAT DSECT */ 00226000 */* INITIAL LEVEL 001 05/24/74 */ 00227000 *DCL 1 ISTLOK BDY(WORD) BASED, 0092 00228000 * 2 LOKCT CHAR(1) BDY(WORD), /* COUNT OF LOCK OWNERS */ 00229000 * 2 LOKCHN PTR(24), /* ADDR OF NEXT RPH WAITING 00230000 * ON LOCK */ 00231000 * 3 LOKCHNG CHAR(3), /* CHAIN/FLAGS */ 00232000 * 4 * CHAR(2), 0092 00233000 * 4 * BIT(8), 0092 00234000 * 5 * BIT(6), 0092 00235000 * 5 LOKPRY BIT(1), /* PRIORITY FLAG, 1 = ON */ 00236000 * 5 LOKXCL BIT(1); /* EXCLUSIVE FLAG, 1 = ON */ 00237000 *DCL LOKXCL1 BIT(32) CONSTANT('00000001'X); /* CONSTANT TO TURN LOKXCL 00238000 * ON */ 00239000 *DCL LOKPRY1 BIT(32) CONSTANT('00000002'X); /* CONSTANT TO TURN LOKPRY 00240000 * ON */ 00241000 *DCL LOKCHN1 BIT(32) CONSTANT('00FFFFFC'X); /* CONSTANT TO TURN LOKXCL 00242000 * AND LOKPRY OFF */ 00243000 *DCL LOKCT1 BIT(32) CONSTANT('01000000'X); /* CONSTANT TO MAKE LOKCT 00244000 * = 1 */ 00245000 *DCL LOKCT255 BIT(32) CONSTANT('FF000000'X); /* CONSTANT TO CHECK FOR 00246000 * MAX LOKCT (255) */ 00247000 * /* DYNAMIC PAB 1K633 */ 0098 00248000 * /* 1K0997 JAN 20, 1973 MB */ 0098 00249000 * /* 1K1142 MAR 03, 1973 MB */ 0098 00250000 * DCL 1 ISTDYPAB BDY(DWORD) BASED, /* LEVEL 1 DECLARE 1K633 */ 0098 00251000 * 2 DYPTYPE CHAR(1), /* CONTROL BLOCK TYPE CODE 1K633 */ 0098 00252000 * 2 DYPLNGTH PTR(8), /* CONTROL BLOCK LENGTH (BYTES) 1K633 */ 00253000 * 2 DYPFLGS CHAR(2), /* FLAGS 1K633 */ 0098 00254000 * 2 DYPCHAIN PTR(31), /* CHAIN POINTER 1K633 */ 0098 00255000 * 2 DYPTSKID PTR(31), /* TASKID OR PTR TO PSS TABLES 1K633 */ 00256000 * 2 DYPRSV01 PTR(31), /* RESERVED TO PRESERVE ALIGNMENT 0098 00257000 * 1K0997 */ 00258000 * 2 DYPPAB CHAR(LENGTH(ISTPAB)) BDY(DWORD); /* LENGTH OF 1K0997 00259000 * PAB */ 00260000 *DCL DYTYP BIT(8) CONSTANT ('11'X); /* TYPE 1K1142 */ 00261000 */* RPL HEADER * 00262000 */* REVISIONS 006 04/09/75 * 00263000 *DCL RPHPTR PTR(31) REGISTER(1) RESTRICTED; 0100 00264000 *DCL 1 ISTRPH BDY(WORD) BASED(RPHPTR), 0101 00265000 * 2 RPHTYPE CHAR(1), /* CONTROL BLOCK TYPE * 00266000 * 2 RPHLNGTH PTR(8), /* LENGTH IN BYTES * 00267000 * 2 RPHFLAGS BIT(8), /* SYSTEM DEPENDENT FLAGS * 00268000 * 3 RPHOGIND BIT(1), /* OPEN GATE INDICATOR * 00269000 * 3 RPHSPGIN BIT(1), /* SPECIAL GATE OPEN IND. * 00270000 * 3 RPHAPTYP BIT(1), /* APS IS A USER EXIT * 00271000 * 4 RPHAUTEX BIT(1), /*EXIT TO AUTHORIZED USER VS2 * 00272000 * 3 RPHSMQ BIT(1), /* INDICATOR IF RPH IS TO BE * 00273000 * /* QUEUED * 00274000 * 3 RPHSMTYP BIT(1), /* REQUEST TYPE IS BUFFER OR * 00275000 * /* DOUBLE-WORD * 00276000 * 3 RPHSMCLR BIT(1), /* INDICATOR IF BUFFER TO BE * 00277000 * /* CLEARED * 00278000 * 3 RPHMLTCP BIT(1), /* USED BY LOCAL 3270 SUPPORT * 00279000 * /* WHEN BUILDING MULTIPLE CHAN * 00280000 * /* PROGRAM * 00281000 * 3 RPHFSTLC BIT(1), /* USED BY LOCAL 3270 SUPPORT * 00282000 * /* TO INDICATE FIRST LCCW * 00283000 * 4 RPHFNFLG BIT(1), /* LCCW SET FUNCTION FLAGS * 00284000 * 2 RPHFLGB BIT(8), /* SECOND FLAG BYTE * 00285000 * 3 RPHLOCK BIT(1), /* LOCKING OPTION * 00286000 * 3 RPHBSSP BIT(1), /* SYSTEM SERVICES PROGRESS * 00287000 * 3 RPHFBAPS BIT(1), /* STG. OBTAINED BY APS * 00288000 * 3 RPHPGCMP BIT(1), /* BIT ON INDICATES RESOURCE * 00289000 * /* MGR HAS COMPLETED UNLOCK * 00290000 * 3 RPHNRSAV BIT(1), /* DO NOT SAVE ON ACTIVATE * 00291000 * 3 RPHRLCRA BIT(1), /* RPH CAN BE RELEASED * 00292000 * /* WHEN PURGE COMPLETE * 00293000 * 3 * BIT(2), /* RESERVED * 00294000 * 2 RPHRPHA PTR(31), /* ADDR.OF NEXT RPL HEADER * 00295000 * 3 RPHGATE BIT(1), /* GATING FLAG * 00296000 * 3 * BIT(7), /* RESERVED * 00297000 * 3 RPHRPHAP PTR(24), 0101 00298000 * 2 RPHTSKID PTR(31), /* TASK IDENTIFICATION * 00299000 * /* OR ADDR.OF APS TABLE * 00300000 * 3 * CHAR(3), /* RPH TSK ID * 00301000 * 3 RPHTIK PTR(8), /* TIK * 00302000 * 2 RPHDVTA PTR(31), /* ADDR.OF CURRENT DVT * 00303000 * 2 RPHRESMA PTR(31) BDY(WORD), /* TPWAIT-POST INFO */ 0101 00304000 * 3 RPHWPFLG CHAR(1), /* WAIT-POST FLAGS */ 0101 00305000 * 4 RPHRSKEY BIT(4), /* STORAGE PROTECT KEY TO RESUME 00306000 * PROCESSING * 00307000 * 4 RPHWT BIT(1), /* WAIT BIT */ 0101 00308000 * 4 RPHPT BIT(1), /* POST BIT */ 0101 00309000 * 4 RPHPURGE BIT(1), /* RPH FLAGGED BY RECOVERY */ 00310000 * /* TO BE PURGED BY PSS */ 00311000 * /* VS/2 ONLY */ 00312000 * 4 RPHRSV01 BIT(1), /* RESERVED */ 00313000 * 3 RPHRESUM PTR(24), /* RESUME ADDRESS */ 0101 00314000 * 2 RPHPABOF PTR(8), /* OFFSET OF PAB IN CONTROL BLK* 00315000 * 2 RPHMAJCB PTR(24), /* ADDR.OF MAJOR CONTROL BLOCK * 00316000 * 2 RPHWEA PTR(31), /* ADDR.OF WORK ELEMENT * 00317000 * 3 RPHCSPA PTR(31), /* ADDR OF ISTCSP * 00318000 * 4 RPHWEGT BIT(1), /* GATE FOR WORK ELEMENT PROC. * 00319000 * 2 RPHSRPRM PTR(31), /* SERVICE ROUTINE PARM.FIELD * 00320000 * 3 RPHSRP12 FIXED(15), /* COUNT OF Q'ED SMS REQUESTS * 00321000 * 3 RPHSRP34 FIXED(15), /* SIZE OF Q'ED SMS REQUESTS * 00322000 * 2 RPHCRR PTR(31), /* ADDR.OF COMPONENT RECOVERY * 00323000 * /* RECORD * 00324000 * 2 RPHPABQA PTR(31), /* PAB QUEUE ADDRESS * 00325000 * 3 RPHPABFG CHAR(1), /* FLAG BYTE CARRIED FROM PAB * 00326000 * 3 RPHPABQP PTR(24), /* POINTER TO QUEUE OF PAB'S * 00327000 * 2 RPHWORK CHAR(64) BDY(WORD), /* 16 WORD WORK AREA * 00328000 * 3 RPHSAVE1 FIXED(31), /* * 00329000 * 4 RPHSBYTE CHAR(1), /* 1-BYTE SAVE FIELD * 00330000 * 4 RPHSBITS BIT(8), /* SAVE FIELD FOR FLAG BYTE * 00331000 * 5 RPHSBIT1 BIT(1), /* 1ST SAVE FIELD * 00332000 * 5 RPHSBIT2 BIT(1), /* 2ND SAVE FIELD * 00333000 * 5 RPHSBIT3 BIT(1), /* 3RD SAVE FIELD * 00334000 * 5 RPHSBIT4 BIT(1), /* 4TH SAVE FIELD * 00335000 * 5 RPHSBIT5 BIT(1), /* 5TH SAVE FIELD * 00336000 * 5 RPHSBIT6 BIT(1), /* 6TH SAVE FIELD * 00337000 * 5 RPHSBIT7 BIT(1), /* 7TH SAVE FIELD * 00338000 * 5 RPHSBIT8 BIT(1), /* 8TH SAVE FIELD * 00339000 * 4 RPHSHALF FIXED(15), /* HALF WORD SAVE AREA * 00340000 * 3 RPHSAVE2 FIXED(31), /* * 00341000 * 3 RPHSAVE3 FIXED(31), /* * 00342000 * 3 RPHSAVE4 FIXED(31), /* * 00343000 * 3 RPHSAVE5 FIXED(31), /* * 00344000 * 3 RPHSAVE6 FIXED(31), /* * 00345000 * 3 RPHSAVE7 FIXED(31), /* * 00346000 * 3 RPHSAVE8 FIXED(31), /* * 00347000 * 3 RPHSAVE9 FIXED(31), /* * 00348000 * 3 RPHSAV10 FIXED(31), /* * 00349000 * 3 RPHSAV11 FIXED(31), /* * 00350000 * 3 RPHSAV12 FIXED(31), /* * 00351000 * 3 RPHSAV13 FIXED(31), /* * 00352000 * 3 RPHSAV14 FIXED(31), /* * 00353000 * 3 RPHSAV15 FIXED(31), /* * 00354000 * 3 RPHSAV16 FIXED(31), /* * 00355000 * 2 RPHNEXPO PTR(31); /* ADDR.NEXT RPH TO BE POSTED * 00356000 * DCL RPTYPE BIT(8) CONSTANT('01'X); /* TYPE CODE FOR RPH * 00357000 * DCL RPHWT0 BIT(32) CONSTANT('F7FFFFFF'X); /* TURN RPHWT OFF */ 0103 00358000 * DCL RPHWT1 BIT(32) CONSTANT('08000000'X); /* TURN RPHWT ON */ 0104 00359000 * DCL RPHPT0 BIT(32) CONSTANT('FBFFFFFF'X); /* TURN RPHPT OFF */ 0105 00360000 * DCL RPHPT1 BIT(32) CONSTANT('04000000'X); /* TURN RPHPT ON */ 0106 00361000 * DCL RPHPABQ1 BIT(24) CONSTANT('000000'X); /* TURN RPHPBQ GATE */ 0107 00362000 */* REVISIONS 011 04/25/75 * 00363000 *DCL ATCLCPTR PTR LOCATION(1032); /* POINTER TO ATCVT * 00364000 *DCL 1 ISTATCVT BDY(DWORD) BASED, 0109 00365000 * 2 ATCCOM BDY(WORD), /* SYSTEM INDEPENDENT FIELDS * 00366000 * 3 ATCSTAT CHAR(4), /* VTAM STATUS INDICATORS * 00367000 * 4 ATCSTAT1 CHAR(1), /* VTAM STATUS BYTE 1 * 00368000 * 5 ATCSTART BIT(1), /* VTAM IS STARTING * 00369000 * 5 ATCACTIV BIT(1), /* VTAM IS ACTIVE * 00370000 * 5 ATCSNHLT BIT(1), /* VTAM SESSION HALT * 00371000 * 5 ATCQKHLT BIT(1), /* VTAM QUICK HALT * 00372000 * 5 ATCNETSL BIT(1), /* NETSOL=YES SPECIFIED ON CMD * 00373000 * 5 ATCINHLT BIT(1), /* INTERNAL VTAM HALT QUICK * 00374000 * 5 * BIT(2), /* RESERVED * 00375000 * 4 ATCSTFLG BIT(8), /* STORAGE MANAGEMENT FLAGS * 00376000 * 5 ATCHSDMF BIT(1), /* SYSTEM SLOW DOWN FLAG * 00377000 * 4 ATCPOFLG BIT(8), /* PROGRAM OPERATOR * 00378000 * /* INTERFACE FLAGS * 00379000 * 5 ATCPOUNS BIT(1), /* APPLICATION AUTHORIZED TO * 00380000 * /* RECEIVE UNSOLICITED MESSAGES* 00381000 * /* 1 = YES * 00382000 * 5 * BIT(7), /* RESERVED * 00383000 * 4 ATCSTAT4 CHAR(1), /* VTAM STATUS BYTE 4 * 00384000 * 5 ATCPRTAT BIT(1), /* 1 = TRACE PRINT ACTIVE, 0109 00385000 * 0 = NOT ACTIVE * 00386000 * 5 ATCTPRT BIT(1), /* WHEN 1, TPRINT IN PROCESS * 00387000 * 5 ATCMTST BIT(1), /* WHEN 1, MODIFY TEST IN 0109 00388000 * PROCESS * 00389000 * 5 ATCNCSD BIT(1), /* NCS QUIESCED DURING HALT * 00390000 * 5 ATCRSV04 BIT(4), /* RESERVED * 00391000 * 3 ATCAPI PTR(31), /* ADDR OF API ROUTINE * 00392000 * 3 ATCDCFRR PTR(31), /* POINTER TO FRR OF CONTROL 00393000 * LAYER,INITIALIZED BY OPENDST* 00394000 * 3 ATCRDT PTR(31), /* POINTER TO FIRST RDT * 00395000 * 3 ATCSRT PTR(31), /* POINTER TO SRT DIRECTORY * 00396000 * 3 ATCASCHD PTR(31), /* POINTER TO AP SCHEDULER * 00397000 * 3 ATCECMOD CHAR(4), /* ECB FOR MODIFY COMMAND PROC.* 00398000 * 3 ATCMODQ PTR(31), /* POINTER FOR OUTPUT QUEUE * 00399000 * /* FOR MODIFY COMMAND * 00400000 * 3 ATCECHLT CHAR(4), /* ECB FOR HALT COMMAND * 00401000 * 3 ATCHALTQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00402000 * /* FOR HALT COMMAND * 00403000 * 3 ATCECVRY CHAR(4), /* ECB FOR VARY COMMAND PROC. * 00404000 * 3 ATCVARYQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00405000 * /* FOR VARY COMMAND * 00406000 * 3 ATCECDSP CHAR(4), /* ECB FOR DISPLAY COMMAND * 00407000 * 3 ATCDSPLQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00408000 * /* FOR DISPLAY COMMAND * 00409000 * 3 ATCOCHA PTR(31), /* POINTER TO OCT HEADER * 00410000 * 3 ATCECSES CHAR(4), /* ECB TO HALT SESSION MODE * 00411000 * 3 ATCECVRQ CHAR(4), /* ERP ECB FOR VARY REQ. INFO. * 00412000 * /* REQUEST NOTIFICATION * 00413000 * 3 ATCVPARM PTR(31), /* ADDR OF VARY PARAMETERS * 00414000 * 3 ATCECOPC CHAR(4), /* ECB TOINDICATE OPERATOR * 00415000 * /* CONTROL PROCESSING COMPLETE * 00416000 * 3 ATCECNET CHAR(4), /* ERP ECB FOR NETWORK * 00417000 * /* CONFIGURATION REQUEST * 00418000 * 3 ATCECPRM PTR(31), /* POINTER TO QAB FOR ERP'S * 00419000 * /* ECB PARAMETERS * 00420000 * 3 ATCHLTMS PTR(31), /* POINTER TO HALT COMMAND * 00421000 * /* OR HALT RETURN MESSAGE * 00422000 * 3 ATCFSB PTR(31), /* PTR TO FEEDBACK STATUS * 00423000 * /* BLOCK * 00424000 * 3 ATCFRSCH PTR(31), /* POINTER TO FEEDBACK * 00425000 * /* ROUTINE SCHEDULER * 00426000 * 3 ATCRDTH PTR(31), /* POINTER RDT HEADER * 00427000 * 3 ATCACCTA PTR(31), /* POINTER TO INSTALLATION * 00428000 * /* ACCOUNTING ROUTINE * 00429000 * 3 ATCAUTHA PTR(31), /* POINTER TO INSTALLATION * 00430000 * /* AUTHORISATION ROUTINE * 00431000 * 3 ATCPTCHA PTR(31), /* PTR TO VTAM PATCH AREA * 00432000 * 3 ATCCONFT PTR(31), /* POINTER TO VTAM * 00433000 * /* CONFIGURATION TABLE * 00434000 * 3 ATCFDVT PTR(31), /* PTR TO FIRST DVT FOR O/C * 00435000 * 3 ATCFEPT PTR(31), /* PTR TO FIRST EPT FOR O/C * 00436000 * 3 ATCDVTPT PTR(31), /* ADDR OF LOAD MOD FOR * 00437000 * /* TYPE=VTAM TRACING * 00438000 * 3 ATCBPDA PTR(31), /* PTR TO BUFFER POOL DIRECTORY* 00439000 * 3 ATCADD PTR(31), /* POINTER TO ADD PROCEDURE * 00440000 * 3 ATCREMOV PTR(31), /* POINTER TO REMOVE PROCEDURE * 00441000 * 3 ATCIOTRC PTR(31), /* POINTER TO I/O TRACE * 00442000 * /* PROCEDURE * 00443000 * 4 ATCTHTRC PTR(31), /* ADDR OF TH TRACE ROUTINE * 00444000 * 5 ATCTPBUF PTR(31), /* TPIOS BUFFER TRACE(ISTRARTP)* 00445000 * 3 ATCBFTRC PTR(31), /* PTR TO BUFFER TRACE * 00446000 * /* PROCEDURE * 00447000 * 3 ATCFBRPH PTR(31), /* ADDR OF FEEDBACK PROC RPH * 00448000 * 3 ATCBLDLA PTR(31), /* ADDR OF BLDL ROUTINE * 00449000 * 3 ATCALOAD PTR(31), /* ADDR OF ALOAD ROUTINE * 00450000 * 3 ATCREADA PTR(31), /* ADDR OF SOURCE READ ROUTINE * 00451000 * 3 ATCGTSTR PTR(31), /* ADDR OF GETSTOR ROUTINE * 00452000 * 3 ATCFRSTR PTR(31), /* ADDR OF FREESTOR ROUTINE * 00453000 * 3 ATCSTMA PTR(31), /* ADDR OF SM INITIALIZATION * 00454000 * /* ROUTINE * 00455000 * 3 ATCACDA PTR(31), /* ADDR OF FIRST ACDEB * 00456000 * 3 ATCSMRQ PTR(31), /* ADDR OF REQUEST STORAGE * 00457000 * /* ROUTINE * 00458000 * 3 ATCSMQU PTR(31), /* ADDR OF QUEUE REQUEST RTNE 00459000 * - DOS ONLY * 00460000 * 3 ATCSMRS PTR(31), /* ADDR OF RELEASE STORAGE * 00461000 * /* ROUTINE * 00462000 * 3 ATCSMRC PTR(31), /* ADDR OF RECOVER STORAGE * 00463000 * /* ROUTINE - DOS ONLY * 00464000 * 3 ATCSMBQ PTR(31), /* PTR TO Q'ED REQ. SMS RTN. * 00465000 * 3 ATCFIRA PTR(31), /* ADDR OF FEEDBACK INITIATION * 00466000 * /* RPH * 00467000 * 3 ATCSRTAD PTR(31), /* PTR TO SRTADD ROUTINE * 00468000 * 3 ATCSRTDF PTR(31), /* PTR TO SRTDELE ROUTN * 00469000 * 3 ATCDCC60 PTR(31), /* PTR TO ISTDCC60 - CTL. LAYER 00470000 * MOVE TO USER AREA * 00471000 * 3 ATCDCC61 PTR(31), /* PTR TO ISTDCC61 - CTL. LAYER 00472000 * MOVE FIXED TO PAGABLE * 00473000 */* BEGIN 'ANY' DVT * 00474000 * 3 ATCNERST PTR(31), /* PTR TO ISTDCC00 - REQUEST-ST* 00475000 * 3 ATCNERCV PTR(31), /* PTR TO ISTRCC21-RECEIVE OB * 00476000 * 3 ATCNERNE PTR(31), /* PTR TO ISTDCC25 - READ-ANY * 00477000 * 3 ATCNERFN PTR(31), /* PTR TO ISTDCC02 - REQUEST-FN * 00478000 */* END 'ANY' DVT * 00479000 * 3 ATCAPOST PTR(31), /* PTR TO VTAM POST ROUTINE * 00480000 * 3 ATCVTMID CHAR(2), /* HOST MAJOR NODE I.D. * 00481000 * 3 ATCRSV11 CHAR(2), /* RESERVED * 00482000 * 3 ATCRCC63 PTR(31), /* HSKPANYQ POINTER * 00483000 * 3 ATCRCC26 PTR(31), /* SEND RESPONSE POINTER * 00484000 * 3 ATCRCC65 PTR(31), /* SET RPL POINTER * 00485000 * 3 ATCNESAL PTR(31), /* PTR TO ISTDCC24 - SOLICIT-ALL* 00486000 * 3 ATCNERAP PTR(31), /* PTR TO ISTDCC85 - READ ANY 00487000 * PURGE * 00488000 * 3 ATCACTRM FIXED(15), /* COUNT OF ACTIVE TERMINALS * 00489000 * 3 ATCCIDM BIT(16), /* CID MASK * 00490000 * 3 ATCMSGSP BIT(8), /* RESERVED FOR MESAGE SURPRESSION * 00491000 * 2 ATCMAXID PTR(8), /* MAXIMUM NUMBER OF MAJOR NODES, 0 = 00492000 * NUMBER OF ENTRIES IN THE MNT * 00493000 * 2 ATCRSV16 CHAR(2), /* NOT USED * 00494000 * 2 ATCMNT PTR(31), /*PTR TO MAJOR NODE TABLE -SET BY SYS. 00495000 * DEF. REF. BY ISTSDCCB (CBDEF), 0109 00496000 * ISTSDCCI (CINDEXY) * 00497000 * 2 ATCCDADD PTR(31), /*PTR TO CIDADD ROUTINE ISTSDCCA 0109 00498000 * REF. BY CIDCTL MACRO * 00499000 * 2 ATCCDDEL PTR(31), /*PTR TO CIDDEL ROUTINE ISTSDCCD 0109 00500000 * REF. BY CIDCTL MACRO * 00501000 * 2 ATCCDFND PTR(31), /*PTR TO CIDFND ROUTINE IATSDCCF 0109 00502000 * REF. BY CIDCTL MACRO * 00503000 * 2 ATCESC01 PTR(31), /*PTR TO ESC01 * 00504000 * 2 ATCESC02 PTR(31), /*PTR TO ESC02 * 00505000 * 2 ATCCSMR PTR(31), /* PTR TO CONNECTION SERVICES * 00506000 * /* MASTER ROUTINE * 00507000 * 3 ATCCSMA PTR(31), /* PTR TO CONNECTION SERVICES 0109 00508000 * MASTER ROUTINE * 00509000 * 2 ATCOCRT PTR(31), /* PTR TO OPEN/CLOSE ROUTINE * 00510000 * 2 ATCUEP PTR(31), /* POINTER TO USER EXIT * 00511000 * 2 ATCSHRTN CHAR(8), /* NAME OF VTAM SHARED RTN * 00512000 * /* TO BE LOADED * 00513000 * 2 ATCSHRFG BIT(8), /* ATTRIBUTE FLAGS * 00514000 * 3 ATCLAST BIT(1), /* INDICATE HTIS IS LAST MODULE * 00515000 * 2 ATCXRANG CHAR(1), /* NUMBER OT BITS IN X-VALUE 0109 00516000 * PORTION OF CID * 00517000 * 2 ATCSAF CHAR(2), /* SUB AREA ADDRESS FIELD * 00518000 * 2 ATCEPA PTR(31), /* ENTRY POINT ADDR OF LOADED * 00519000 * 2 ATCALERT PTR(31), /* POINTER TO ALERT-ROUTINE 0109 00520000 * ISTSDCAL * 00521000 * 2 ATCDVLOD PTR(31), /* PTR TO ISTSDCOD * 00522000 * 2 ATCTRCPT PTR(31), /* POINTER TO TRACE PARM LIST * 00523000 * 2 ATCDVT PTR(31), /* POINTER TO FIRST DVT ON CHAIN * 00524000 * 2 ATCEPT PTR(31), /* POINTER TO FIRST EPT ON CHAIN * 00525000 * 2 ATCMSGP PTR(31), /* POINTER TO TPMSG PROCESSOR * 00526000 * 2 ATCMSGM PTR(31), /* POINTER TO TPMSG - MESSAGE 0109 00527000 * CSECT * 00528000 * 2 ATCTRPAB PTR(31), /* ADDRESS OF TRACE WRITER PAB * 00529000 * 2 ATCVTLOD PTR(31), /* ADDR OF VTAM LOAD LIST * 00530000 * 2 ATCECPRT CHAR(4), /* ECB FOR TRACE FILE PRINT * 00531000 * 2 ATCZDVTB PTR(31), /* ADDRESS OF ISTZCFBI * 00532000 * 2 ATCECTLP CHAR(4), /* TOLTEP ECB * 00533000 * 2 ATCRVCHS CHAR(8), /* RESERVED * 00534000 * 2 ATCCRME PTR(31), /* VARY PSS CONTROL MECHANISM * 00535000 * 2 ATCHPGM, /* BUFFER INFORMATION */ 00536000 * 3 ATCHBFNO FIXED(15), /* NUMBER OF BUFFS FOR CHANNEL */ 00537000 * 3 ATCHBSIZ FIXED(15), /* BUFFER SIZE IN BYTES */ 00538000 * 2 ATCDEBCH PTR(31), /* CLOSE DEB CHAIN PTR */ 00539000 * 2 ATCTODVT PTR(31), /* THE TOLTEP DVT PTR POINTED 0109 00540000 * TO BY 3RD WORD OF PAB */ 00541000 * 2 ATCADEL PTR(31), /* A DELETE ROUTINE ADDRESS */ 00542000 * 2 ATCCDPTR PTR(31), /* PTR TO ISTOCCCD - DOS ONLY */ 00543000 * 2 ATCLDNCS PTR(31), /* PTR TO NCSPL FOR LOAD/DUMP */ 00544000 * 2 ATCLDECB BIT(32), /* ECB FOR LOAD/DUMP SUBTASK */ 00545000 * 2 ATCRSV99 CHAR(32), /* RESERVED FOR LATER POINTERS */ 00546000 * 2 ATCAP33 PTR(31), /* PTR TO ISTAPC33 */ 00547000 * 2 ATCAP35 PTR(31), /* PTR TO ISTAPC35 */ 00548000 * 2 ATCAP36 PTR(31), /* PTR TO ISTAPC36 */ 00549000 * 2 ATCDVTLK CHAR(LENGTH(ISTLOK)), /* LOCK WORD FOR DVT LOCK */ 00550000 * 2 ATCCDFIN PTR(31), /* POINTER TO ISTSDCRR */ 00551000 * 2 ATCCDFDN PTR(31), /* POINTER TO ISTSDCCN */ 00552000 * 2 ATCVOCLK CHAR(LENGTH(ISTLOK)), /* VOCLOCK LOCK */ 00553000 * 2 ATCRDTLK CHAR(LENGTH(ISTLOK)), /* RDTLOCK LOCK */ 00554000 * 2 ATCRSV97 PTR(31), /* DWORD ALIGNMENT */ 00555000 * 2 ATCVPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR VARY 00556000 * UNDER PSS CONTROL */ 00557000 * 2 ATCPGPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* ERP PAB FOR 00558000 * PURGE */ 00559000 * 2 ATCDLRPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* DUMP LOAD & 00560000 * RESTART PAB */ 00561000 * 2 ATCCCLAD PTR(31), /* ADDRESS OF VARY ERP (ISTINCCL)*/ 00562000 * 2 ATCCDLAD PTR(31), /* ADDRESS OF VARY DUMP,LD RSTRT 00563000 * (ISTINCDL) */ 00564000 * 2 ATCOCCOB PTR(31), /* ADDRESS ISTOCCOB */ 00565000 * 2 ATCOCCCB PTR(31), /* ADDRESS ISTOCCCB */ 00566000 * 2 ATCTIPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0109 00567000 * FOR ISTOLTP */ 00568000 * 2 ATCTCIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0109 00569000 * FOR TOLTEP CLIP */ 00570000 * 2 ATCVTIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0109 00571000 * FOR TOLTEP-VTAM INTERFACE*/ 00572000 * 2 ATCTCLOM PTR(31), /* ADDR TOLTEP CLOP PROC */ 00573000 * 2 ATCTCLIM PTR(31), /* ADDR TOLTEP CLIP PROC */ 00574000 * 2 ATCVTINM PTR(31), /* ADDR TOLTEP-VTAM INTF PROC */ 00575000 * 2 ATCTACB PTR(31), /* TOLTEP ACB */ 00576000 * 2 ATCRSV10 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* RESERVED */ 00577000 * 2 ATCPTR00 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB */ 00578000 * 2 ATCCFEAD PTR(31), /* ADDR OF ISTINCFE */ 00579000 * 2 ATCVLCNT CHAR(4) BDY(HWORD), /* VARY DEVICE ONLINE COUNTS*/ 00580000 * 3 ATCRNCNT PTR(16), /* 370X COUNT */ 00581000 * 3 ATCLCLCT PTR(16), /* 3270 COUNT */ 00582000 * 2 ATCS49XI PTR(31), /* ADDRESS OF ISTPICXI */ 00583000 * 2 ATCS49XL PTR(31), /* ADDRESS OF ISTPICXL */ 00584000 * 2 ATCPODVT PTR(31), /* PTR TO PROGRAM OPERATOR DVT*/ 00585000 * 2 ATCPOIA PTR(31), /* PTR TO PROGRAM OPERATOR */ 00586000 * /* INTERFACE AREA */ 00587000 * 2 ATCSOPD CHAR(8) BDY(WORD), /* SESSION CONTROL */ 00588000 * 3 ATCSEC01 PTR(31), /* OUTBOUND PROCESSING */ 00589000 * 3 ATCSEC10 PTR(31), /* DVT */ 00590000 * 2 ATCSIPD CHAR(12) BDY(WORD),/* SESSION CONTROL */ 00591000 * 3 ATCSEC21 PTR(31), /* INBOUND PROCESSING */ 00592000 * 3 ATCSEC30 PTR(31), /* FEEDBACK */ 00593000 * 3 ATCSEC40 PTR(31), /* DVT */ 00594000 * 2 ATCSECST CHAR(4) BDY(WORD),/* SESSION CONTROLSESS TERM */ 00595000 * 3 ATCSEC51 PTR(31), /* RECOVERY DVT */ 00596000 * 2 ATCNMCTR FIXED(15), /* NAME COUNTER */ 00597000 * 2 * FIXED(15), /* RESERVED */ 00598000 * 2 ATCSRTAB PTR(31), /* SEARCH LOGON MODE TABLE */ 00599000 * /* RTN ADDRESS (ISTINCSH) */ 00600000 * 2 ATCUSSPT PTR(31), /* DEFAULT USS DEFINITION */ 00601000 * /* TABLE ADDRESS (ISTINCDT) */ 00602000 * 2 ATCMODTB PTR(31), /* DEFAULT SYSTEM LOGON MODE */ 00603000 * /* TABLE ADDRESS (ISTINCLM) */ 00604000 * 2 ATCINCW3 PTR(31), /* ADDRESS OF ISTINCW3 */ 00605000 * 2 ATCIOECB PTR(31), /* ECB USED BY IOS - */ 00606000 * /* POINTED TO BY IOBECBPT */ 00607000 * 2 ATCVDPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0109 00608000 * /* SSCP COMMAND PROCESSING PAB */ 00609000 * 2 ATCVFPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0109 00610000 * /* SSCP FRONT END PAB */ 00611000 * 2 ATCVDLOK CHAR(LENGTH(ISTLOK)), /* SSCP SERIALIZATION LOCK */ 00612000 */* END OF COMMON AREA */ 00613000 */* VS1/VS2 COMMON CODE. */ 00614000 * 2 ATCRSVBB PTR(31), /* RESERVED * 00615000 * 2 ATCAOSM BDY(DWORD), 0109 00616000 */* * 00617000 * 3 ATCSRBRT PTR(31), /* POINTER TO ROUTINE UNDER * 00618000 * /* SRB CONTROL * 00619000 * 3 ATCGSRBQ PTR(31), /* READY QUEUE FOR GLOBAL SRB'S* 00620000 * 4 ATCGSRBG BIT(8), /* READY QUEUE GATE BYTE * 00621000 * 5 ATCGSRBF BIT(1), /* READY QUEUE GATE BIT * 00622000 * 3 ATCPRPH PTR(31), /* PTR TO PREALLOCATED RPH * 00623000 * 3 ATCCMTCB PTR(31), /* PTR TO COMMUNICATIONS TASK * 00624000 * /* TCB * 00625000 * 3 ATCAP11 PTR(31), /* PTR TO ISTAPC11 * 00626000 * 3 ATCAP12 PTR(31), /* PTR TO ISTAPC12 * 00627000 * 3 ATCAP31 PTR(31), /* PTR TO ISTAPC31 * 00628000 * 3 ATCAP32 PTR(31), /* PTR TO ISTAPC32 * 00629000 * 3 ATCAP34 PTR(31), /* PTR TO ISTAPC34 * 00630000 * 3 ATCAP52 PTR(31), /* PTR TO ISTAPC52 * 00631000 * 3 ATCAP53 PTR(31), /* PTR TO ISTAPC53 * 00632000 * 3 ATCAP54 PTR(31), /* PTR TO ISTAPC54 * 00633000 * 3 ATCAP57 PTR(31), /* PTR TO ISTAPC57 * 00634000 * 3 ATCAP58 PTR(31), /* PTR TO ISTAPC58 * 00635000 * 3 ATCAP61 PTR(31), /* PTR TO ISTAPC61 * 00636000 * 3 ATCAP63 PTR(31), /* PTR TO ISTAPC63 * 00637000 * 3 ATCAP64 PTR(31), /* PTR TO ISTAPC64 * 00638000 * 3 ATCZFSVT PTR(31), /* TPIOS FIXED SRVICES VCTR TAB* 00639000 * 3 ATCZPSVT PTR(31), /* TPIOS PAGBL SRVCES VCTR TABL* 00640000 * 3 ATCICNCB PTR(31), /* HEAD OF ICNCB QUEUE * 00641000 * 3 ATCZDVT1 PTR(31), /* TPIOS SLODWN RECOVRY PRCSR * 00642000 * 3 ATCZDVT3 PTR(31), /* 370X FEEDBACK STAT CNTRL RTR* 00643000 * 3 ATCZDVT4 PTR(31), /* OPERATOR MESSAGE SCHEDULER * 00644000 * 3 ATCZDVT6 PTR(31), /* DIALOGUE SCHEDULER (INBOUND)* 00645000 * 3 ATCAP65 PTR(31), /* PTR TO ISTAPC65 */ 00646000 * 3 ATCICAPP CHAR(20) BDY(WORD), /* 3705 APPENDAGE VECTOR * 00647000 * 4 ATCCDRPH PTR(31), /* ADDR CLOSE DEB RPH 0109 00648000 * (DUMMY EOA APP.) */ 00649000 * 4 ATCZSIOA PTR(31), /* ADDR 3705 SIO APPENDAGE */ 00650000 * 4 ATCCDTCB PTR(31), /* VTAM TCB (DUMMY PCI APP.) */ 00651000 * 4 ATCZCEA PTR(31), /* ADDR 3705 CHANNEL END 0109 00652000 * APPENDAGE */ 00653000 * 4 ATCZAEA PTR(31), /* ADDR 3705 CHANNEL END 0109 00654000 * APPENDAGE */ 00655000 * 3 ATCLDAPP CHAR(20) BDY(WORD), /* LOCAL 3270 APPENDAGE 00656000 * VECTOR */ 00657000 * 4 ATCCDTID PTR(31), /* TASK ID OF VTAM 0109 00658000 * (DUMP EOE) */ 00659000 * 4 ATCSMFRR PTR(31), /* ADDR OF SMS FRR 0109 00660000 * (DUMMY SIOA) */ 00661000 * 4 ATCRSV17 PTR(31), /* RESERVED FOR ALIGNMENT */ 00662000 * 4 ATCZLCEA PTR(31), /* ADDR 3270 CHANNEL END 0109 00663000 * APPENDAGE */ 00664000 * 4 ATCZLAEA PTR(31), /* ADDR 3270 CHANNEL END 0109 00665000 * APPENDAGE */ 00666000 * 3 ATCDAPVT CHAR(24) BDY(WORD), /* DUMMY APPENDAGE 0109 00667000 * VECTOR TABLE FOR LOAD/DVMMY*/ 00668000 * 4 ATCDEOEA PTR(31), /* ADDRESS OF DUMMY END 0109 00669000 * OF EXTENT APPENDAGE */ 00670000 * 4 ATCDSIOA PTR(31), /* ADDRESS OF DUMMY END 0109 00671000 * OF SIO APPENDAGE */ 00672000 * 4 ATCDPCIA PTR(31), /* ADDRESS OF DUMMY PCI 0109 00673000 * APPENDAGE */ 00674000 * 4 ATCDCEA PTR(31), /* ADDRESS OF CHANNEL END 0109 00675000 * APPENDAGE */ 00676000 * 4 ATCDXCEA PTR(31), /* ADDRESS OF ABNORMAL 0109 00677000 * END APPENDAGE */ 00678000 * 4 ATCDAPDG CHAR(2), /* DUMMY APPENDAGE */ 00679000 * 4 ATCRSV56 CHAR(2), /* RESERVED */ 00680000 * 3 ATCZDVT7 PTR(31), /* ADDR OF RESET CLEANUP 0109 00681000 * (PHASE 1) * 00682000 * 3 ATCZDVT8 PTR(31), /* 3270 LOCAL TEST AND CTL 0109 00683000 * FEEDBACK ROUTER */ 00684000 * 3 ATCZDVT9 PTR(31), /* ADDRESS OF ISTZDFKA */ 00685000 * 3 ATCZDVTA PTR(31), /* ADDRESS OF ISTZCFIA */ 00686000 * 3 ATCZDVTX PTR(31), /* ADDRESS OF TRUNK LINE 0109 00687000 * DEACTIVATE ROUTINE */ 00688000 * 3 ATCZLPVT PTR(31), /* ADDRESS OF ISTZPSVA */ 00689000 * 3 ATCZLFVT PTR(31), /* TPIOS 3270 LOCAL FIXED 0109 00690000 * SERVICES VECTOR TABLE */ 00691000 * 3 ATCZPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR 00692000 * TEST AND CTL FEEDBACK ROUTER* 00693000 * 3 ATCZPAB2 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* 370X 0109 00694000 * STATUS AND FEEDBACK ROUTER 00695000 * DYNAMIC PAB */ 00696000 * 3 ATCAP51 PTR(31), /* PTR TO ISTAPC51 */ 00697000 * 3 ATCZDFJ0 PTR(31), /* ADDR OF ISTZDFJ0 */ 00698000 * 3 ATCAP37 PTR(31), /* PTR TO ISTAPC37 */ 00699000 * 3 ATCAP38 PTR(31), /* PTR TO ISTAPC38 */ 00700000 * 3 ATCRPT11 PTR(31), /* RESERVED */ 00701000 * 3 ATCRPT12 PTR(31), /* RESERVED */ 00702000 * 3 ATCRPT13 PTR(31), /* RESERVED */ 00703000 * 3 ATCRPT14 PTR(31), /* RESERVED */ 00704000 * 3 ATCRPT15 PTR(31), /* RESERVED */ 00705000 * 3 ATCRPT16 PTR(31), /* RESERVED */ 00706000 * 3 ATCRPT17 PTR(31), /* RESERVED */ 00707000 * 3 ATCRPT18 PTR(31), /* RESERVED */ 00708000 * 3 ATCRPT19 PTR(31), /* RESERVED */ 00709000 * 3 ATCRPT20 PTR(31), /* RESERVED */ 00710000 * 3 ATCRPT21 PTR(31), /* RESERVED */ 00711000 * 3 ATCRPT22 PTR(31), /* RESERVED */ 00712000 * 3 ATCRPT23 PTR(31), /* RESERVED */ 00713000 * 3 ATCRPT24 PTR(31), /* RESERVED */ 00714000 * 3 ATCRPT25 PTR(31), /* RESERVED */ 00715000 * 3 ATCRPT26 PTR(31), /* RESERVED */ 00716000 * 3 ATCRPT27 PTR(31), /* RESERVED */ 00717000 * 3 ATCRPT28 PTR(31), /* RESERVED */ 00718000 * 3 ATCRPT29 PTR(31), /* RESERVED */ 00719000 * 3 ATCRPT30 PTR(31), /* RESERVED */ 00720000 * 3 ATCRPT31 PTR(31), /* RESERVED */ 00721000 * 3 ATCRPT32 PTR(31), /* RESERVED */ 00722000 * 3 ATCRPT33 PTR(31), /* RESERVED */ 00723000 * 3 ATCRPT34 PTR(31), /* RESERVED */ 00724000 * 3 ATCRPT35 PTR(31), /* RESERVED */ 00725000 * 3 ATCRPT36 PTR(31), /* RESERVED */ 00726000 * 3 ATCRPT37 PTR(31), /* RESERVED */ 00727000 * 3 ATCRPT38 PTR(31), /* RESERVED */ 00728000 * 3 ATCRPT39 PTR(31), /* RESERVED */ 00729000 * 3 ATCRPT40 PTR(31), /* RESERVED */ 00730000 */* END OF VS1/VS2 COMMON CODE. */ 00731000 */* START OF VS2 UNIQUE CODE. */ 00732000 * 3 ATCVTFLG BIT(32), 0109 00733000 * 4 ATCVTACT BIT(1), /* VTT ACTIVE */ 00734000 * 4 * BIT(31), /* RESERVED */ 00735000 * 3 ATCHLTCB PTR(31), /* ECB FOR HALTING VTAM */ 00736000 * 3 ATCATA10 PTR(31), /* PTR TO ISTATM10 */ 00737000 * 3 ATCZLAAB PTR(31), /* PTR TO ISTZLFAB */ 00738000 * 3 ATCCACXA PTR(31), /* PTR TO ISTCFCXA */ 00739000 * 3 ATCSMARA PTR(31), /* PTR TO ISTORFRA */ 00740000 * 3 ATCSMAID PTR(31), /* PTR TO ISTORFID */ 00741000 * 3 ATCTPWQA PTR(31), /* WAIT Q ANCHOR FOR TPIOS */ 00742000 * 3 ATCSMAPR PTR(31), /* PTR TO ISTORFPR */ 00743000 * 3 ATCSMABF PTR(31), /* PTR TO ISTORFBF */ 00744000 * 3 ATCPSTA PTR(31), /* ACTIVE PST QUEUE */ 00745000 * 3 ATCTRMBP CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0109 00746000 * /* PAB FOR VTAM TERM TASK */ 00747000 * 3 ATCTPSPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0109 00748000 * /* PAB FOR TPIOS */ 00749000 * 3 ATCAP23 PTR(31), /* PTR TO ISTAPC23 */ 00750000 * 3 ATCAPC25 PTR(31), /* PTR TO ISTAPC25 */ 00751000 * 3 ATCAP41 PTR(31), /* PTR TO ISTAPC41 */ 00752000 * 3 ATCRCFY0 PTR(31), /* PTR TO ISTRCFY0 */ 00753000 * 3 ATCAP55 PTR(31), /* PTR TO ISTAPC55 */ 00754000 * 3 ATCAP56 PTR(31), /* PTR TO ISTAPC56 */ 00755000 * 3 ATCAPC59 PTR(31), /* PTR TO ISTAPC59 */ 00756000 * 3 ATCAP62 PTR(31), /* PTR TO ISTAPC62 */ 00757000 * 3 ATCAP66 PTR(31), /* PTR TO ISTAPC66 */ 00758000 * 3 ATCAP69 PTR(31), /* PTR TO ISTAPM69 */ 00759000 * 3 ATCAP82 PTR(31), /* PTR TO ISTAPC82 */ 00760000 * 3 ATCAP83 PTR(31), /* PTR TO ISTAPC83 */ 00761000 * 3 ATCAP84 PTR(31), /* PTR TO ISTAPC84 */ 00762000 * 3 ATCAP85 PTR(31), /* PTR TO ISTAPC85 */ 00763000 * 3 ATCAP86 PTR(31), /* PTR TO ISTAPC86 */ 00764000 * 3 ATCASCB PTR(31), /* PTR TO VTAM ASCB */ 00765000 * 3 ATCMPLTA PTR(31), /* PTR TO MPST LIST TABLE */ 00766000 * 3 ATCZR01 PTR(31), /* PTR TO ISTZRM01 */ 00767000 * 3 ATCAICTN PTR(31), /* PTR TO ISTAICTN */ 00768000 * 3 ATCTPCP0 PTR(31), /* PTR TO ISTZFSAV */ 00769000 * 3 ATCTPCP1 PTR(31), /* PTR TO ISTZ19SV */ 00770000 * 3 ATCZFLAG BIT(8), /* FLAG BYTE */ 00771000 * 4 ATCZF001 BIT(1), /* MDR RECORDING SUSPENDED */ 00772000 * 4 ATCRSV66 BIT(7), /* RESERVED */ 00773000 * 3 ATCRSV75 BIT(8), /* RESERVED */ 00774000 * 3 ATCSRBCT FIXED(16), /* COUNT OF PREALLOCATED SRB'S*/ 00775000 * 3 ATCCRACT FIXED(16), /* COUNT OF PREALLOCATED CRA'S*/ 00776000 * 3 ATCRPLCT FIXED(16), /* COUNT OF PREALLOCATED CRPL */ 00777000 * 3 ATCTPMPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /*TP MSG PAB 00778000 * FOR VS2 */ 00779000 * 3 ATCTPMMI PTR(31), /* PTR TO ISTCFMMI - MSG ISSUER 00780000 * FOR SRB MODE ROUTINES */ 00781000 * 3 ATCVIOPM PTR(31), /* PTR TO ISTVIOPM */ 00782000 * 2 ATCAOS CHAR(0) BDY(WORD); /* VS2 ONLY FIELDS */ 00783000 * 0110 00784000 * DECLARE 0110 00785000 * EMCR0 PTR REG(0), 0110 00786000 * EMCR1 PTR REG(1), 0110 00787000 * EMCR2 PTR REG(2), 0110 00788000 * EMCR3 PTR REG(3), 0110 00789000 * EMCR4 PTR REG(4), 0110 00790000 * EMCR5 PTR REG(5), 0110 00791000 * EMCR6 PTR REG(6), 0110 00792000 * EMCR7 PTR REG(7), 0110 00793000 * EMCR8 PTR REG(8), 0110 00794000 * EMCR9 PTR REG(9), 0110 00795000 * EMCR10 PTR REG(10), 0110 00796000 * EMCR11 PTR REG(11), 0110 00797000 * EMCR12 PTR REG(12), 0110 00798000 * EMCR13 PTR REG(13), 0110 00799000 * EMCR14 PTR REG(14), 0110 00800000 * EMCR15 PTR REG(15); 0110 00801000 * GEN (PRINT ON); 0111 00802000 PRINT ON 00803000 */* END OF TPEPILOG */ 0112 00804000 * END ISTINCA0 0112 00805000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00806000 */*%INCLUDE SYSLIB (CVT ) * 00807000 *; 0112 00808000 @EL00001 L @13,4(,@13) 0112 00809000 @EF00001 DS 0H 0112 00810000 @ER00001 L @14,12(,@13) 0112 00811000 LM @00,@12,20(@13) 0112 00812000 BR @14 0112 00813000 @DATA DS 0H 00814000 DS 0F 00815000 @SA00001 DS 18F 00816000 DS 0F 00817000 @CF01267 DC F'28' 00818000 @CA00696 DC A(ISTINCXR) 00819000 @CV00725 DC V(ISTINFBL) 00820000 DS 0D 00821000 CVTPTR DS A 00822000 CA0FLAG DS BL1 00823000 ORG CA0FLAG 00824000 CA0SWA DS BL1 00825000 CA0LOOP EQU CA0FLAG+0 00826000 @NM00003 EQU CA0FLAG+0 00827000 ORG CA0FLAG+1 00828000 DS CL1 00829000 VBLBLDLT DS CL80 00830000 ORG VBLBLDLT 00831000 VBLBLTFF DC X'0001' 00832000 VBLBLTLL DC X'004C' 00833000 VBLBLDNM DS CL8 00834000 VBLBLSYS DS CL6 00835000 VBLBLUSE DS CL62 00836000 ORG VBLBLDLT+80 00837000 CMZAA004 DC CL4'122I' 00838000 DS CL2 00839000 CMZPL004 DC 4F'0' 00840000 CMZZO004 DC F'0' 00841000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00842000 @01 EQU 01 00843000 @02 EQU 02 00844000 @03 EQU 03 00845000 @04 EQU 04 00846000 @05 EQU 05 00847000 @06 EQU 06 00848000 @07 EQU 07 00849000 @08 EQU 08 00850000 @09 EQU 09 00851000 @10 EQU 10 00852000 @11 EQU 11 00853000 @12 EQU 12 00854000 @13 EQU 13 00855000 @14 EQU 14 00856000 @15 EQU 15 00857000 CA0R15 EQU @15 00858000 CA0R0 EQU @00 00859000 CA0R1 EQU @01 00860000 CA0R2 EQU @02 00861000 CA0R3 EQU @03 00862000 CA0R4 EQU @04 00863000 CA0R5 EQU @05 00864000 CA0R6 EQU @06 00865000 LDPRMPTR EQU @01 00866000 REG1004 EQU @01 00867000 EMCR13 EQU @13 00868000 REG15004 EQU @15 00869000 RPHPTR EQU @01 00870000 EMCR0 EQU @00 00871000 EMCR1 EQU @01 00872000 EMCR10 EQU @10 00873000 EMCR11 EQU @11 00874000 EMCR12 EQU @12 00875000 EMCR14 EQU @14 00876000 EMCR15 EQU @15 00877000 EMCR2 EQU @02 00878000 EMCR3 EQU @03 00879000 EMCR4 EQU @04 00880000 EMCR5 EQU @05 00881000 EMCR6 EQU @06 00882000 EMCR7 EQU @07 00883000 EMCR8 EQU @08 00884000 EMCR9 EQU @09 00885000 EXTRN ISTINCXR 00886000 ATCLCPTR EQU 1032 00887000 CVTMAP EQU 0 00888000 CVTDAR EQU CVTMAP+72 00889000 CVTFLGS1 EQU CVTDAR 00890000 CVTDCB EQU CVTMAP+116 00891000 CVTIERLC EQU CVTMAP+144 00892000 CVTOPTA EQU CVTMAP+182 00893000 CVTOPTB EQU CVTMAP+183 00894000 CVTGTF EQU CVTMAP+236 00895000 CVTGTFST EQU CVTGTF 00896000 CVTGTFS EQU CVTGTFST 00897000 CVTSTATE EQU CVTGTFST 00898000 CVTTMODE EQU CVTGTFST 00899000 CVTFORM EQU CVTGTFST 00900000 CVTAQAVT EQU CVTMAP+240 00901000 CVTTCMFG EQU CVTAQAVT 00902000 CVTVOLM2 EQU CVTMAP+244 00903000 CVTTATA EQU CVTVOLM2 00904000 CVTTSKS EQU CVTTATA 00905000 CVTVOLF2 EQU CVTTSKS 00906000 CVTTAT EQU CVTTATA+1 00907000 CVTATER EQU CVTMAP+248 00908000 CVTEXT1 EQU CVTMAP+252 00909000 CVTPURG EQU CVTMAP+260 00910000 CVTQMSG EQU CVTMAP+268 00911000 CVTDMSR EQU CVTMAP+272 00912000 CVTERPV EQU CVTMAP+316 00913000 CVTINTLA EQU CVTMAP+320 00914000 CVTAPF EQU CVTMAP+324 00915000 CVTEXT2 EQU CVTMAP+328 00916000 CVTHJES EQU CVTMAP+332 00917000 CVTPGSIA EQU CVTMAP+348 00918000 CVTA1F1 EQU CVTMAP+356 00919000 CVTSYSK EQU CVTMAP+357 00920000 CVTVOLM1 EQU CVTMAP+380 00921000 CVTVOLF1 EQU CVTVOLM1 00922000 CVTATMCT EQU CVTMAP+388 00923000 CVTXTNT1 EQU 0 00924000 CVTXTNT2 EQU 0 00925000 CVTDSSV EQU CVTXTNT2 00926000 CVTFLGBT EQU CVTXTNT2+5 00927000 CVTQID EQU CVTXTNT2+24 00928000 CVTSHS EQU CVTXTNT2+40 00929000 CVTRV400 EQU CVTXTNT2+52 00930000 CVTRV409 EQU CVTXTNT2+53 00931000 CVTATCVT EQU CVTXTNT2+64 00932000 CVTRV429 EQU CVTXTNT2+84 00933000 CVTRV438 EQU CVTXTNT2+85 00934000 CVTRV457 EQU CVTXTNT2+112 00935000 CVTRV466 EQU CVTXTNT2+113 00936000 CVTFIX EQU 0 00937000 CVTRELNO EQU CVTFIX+252 00938000 ISTLDPRM EQU 0 00939000 LDPMBR EQU ISTLDPRM 00940000 LDPDCBA EQU ISTLDPRM+16 00941000 LDPFG EQU ISTLDPRM+20 00942000 LDPFB2 EQU ISTLDPRM+21 00943000 LDPFLAST EQU LDPFB2 00944000 LDPATACH EQU LDPFB2 00945000 LDPACTIF EQU LDPFB2 00946000 LDPTCEP EQU ISTLDPRM+24 00947000 @NM00004 EQU 0 00948000 CMZID004 EQU @NM00004 00949000 @NM00005 EQU @NM00004+4 00950000 CMZVP004 EQU @NM00004+12 00951000 CMZSA004 EQU 0 00952000 ISTPAB EQU 0 00953000 PABWQCHN EQU ISTPAB 00954000 PABWEQA EQU PABWQCHN 00955000 PABCHAIN EQU PABWQCHN+4 00956000 PABRPHFG EQU ISTPAB+12 00957000 PABFLAGS EQU PABRPHFG 00958000 PABERLCK EQU PABFLAGS 00959000 PABERRLK EQU PABERLCK 00960000 ISTLOK EQU 0 00961000 LOKCHN EQU ISTLOK+1 00962000 LOKCHNG EQU LOKCHN 00963000 @NM00007 EQU LOKCHNG+2 00964000 ISTDYPAB EQU 0 00965000 ISTRPH EQU 0 00966000 RPHFLAGS EQU ISTRPH+2 00967000 RPHAPTYP EQU RPHFLAGS 00968000 RPHFSTLC EQU RPHFLAGS 00969000 RPHFLGB EQU ISTRPH+3 00970000 RPHRPHA EQU ISTRPH+4 00971000 RPHTSKID EQU ISTRPH+8 00972000 RPHRESMA EQU ISTRPH+16 00973000 RPHWPFLG EQU RPHRESMA 00974000 RPHWEA EQU ISTRPH+24 00975000 RPHCSPA EQU RPHWEA 00976000 RPHSRPRM EQU ISTRPH+28 00977000 RPHPABQA EQU ISTRPH+36 00978000 RPHWORK EQU ISTRPH+40 00979000 RPHSAVE1 EQU RPHWORK 00980000 RPHSBITS EQU RPHSAVE1+1 00981000 ISTATCVT EQU 0 00982000 ATCCOM EQU ISTATCVT 00983000 ATCSTAT EQU ATCCOM 00984000 ATCSTAT1 EQU ATCSTAT 00985000 ATCSTFLG EQU ATCSTAT+1 00986000 ATCPOFLG EQU ATCSTAT+2 00987000 ATCSTAT4 EQU ATCSTAT+3 00988000 ATCIOTRC EQU ATCCOM+140 00989000 ATCTHTRC EQU ATCIOTRC 00990000 ATCCSMR EQU ISTATCVT+296 00991000 ATCSHRFG EQU ISTATCVT+316 00992000 ATCMSGP EQU ISTATCVT+344 00993000 ATCHPGM EQU ISTATCVT+384 00994000 ATCVLCNT EQU ISTATCVT+772 00995000 ATCSOPD EQU ISTATCVT+792 00996000 ATCSIPD EQU ISTATCVT+800 00997000 ATCSECST EQU ISTATCVT+812 00998000 ATCAOSM EQU ISTATCVT+912 00999000 ATCGSRBQ EQU ATCAOSM+4 01000000 ATCGSRBG EQU ATCGSRBQ 01001000 ATCICAPP EQU ATCAOSM+100 01002000 ATCLDAPP EQU ATCAOSM+120 01003000 ATCDAPVT EQU ATCAOSM+140 01004000 ATCVTFLG EQU ATCAOSM+392 01005000 ATCZFLAG EQU ATCAOSM+588 01006000 CMTA004 EQU 0 01007000 CVTS01 EQU CVTPGSIA 01008000 CVTLPDIA EQU CVTS01+12 01009000 CVTDIRST EQU CVTLPDIA 01010000 CVTSLIDA EQU CVTS01+24 01011000 CVTCTLFG EQU CVTS01+50 01012000 CVTRV210 EQU CVTS01+424 01013000 CVTRV219 EQU CVTS01+425 01014000 CVTRV228 EQU CVTS01+426 01015000 CVTRV237 EQU CVTS01+427 01016000 CVTMFRTR EQU CVTS01+452 01017000 CVTRV262 EQU CVTS01+468 01018000 CVTRV271 EQU CVTS01+469 01019000 CVTRV280 EQU CVTS01+470 01020000 CVTRV289 EQU CVTS01+471 01021000 CVTGSDA EQU CVTS01+600 01022000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01023000 CVTRV628 EQU CVTS01+728 01024000 CVTRV627 EQU CVTS01+724 01025000 CVTRV626 EQU CVTS01+720 01026000 CVTRV625 EQU CVTS01+716 01027000 CVTRV624 EQU CVTS01+712 01028000 CVTRV623 EQU CVTS01+708 01029000 CVTRV622 EQU CVTS01+704 01030000 CVTRV621 EQU CVTS01+700 01031000 CVTRV620 EQU CVTS01+696 01032000 CVTRV619 EQU CVTS01+692 01033000 CVTRV618 EQU CVTS01+688 01034000 CVTRV617 EQU CVTS01+684 01035000 CVTRV616 EQU CVTS01+680 01036000 CVTRV615 EQU CVTS01+676 01037000 CVTRV614 EQU CVTS01+672 01038000 CVTRV613 EQU CVTS01+668 01039000 CVTRV612 EQU CVTS01+664 01040000 CVTRV611 EQU CVTS01+660 01041000 CVTEVERM EQU CVTS01+656 01042000 CVTIRM EQU CVTS01+652 01043000 CVTCGK EQU CVTS01+648 01044000 CVTRAC EQU CVTS01+644 01045000 CVTRV606 EQU CVTS01+640 01046000 CVTRV605 EQU CVTS01+636 01047000 CVTRV604 EQU CVTS01+632 01048000 CVTEFF02 EQU CVTS01+628 01049000 CVTCBBR EQU CVTS01+624 01050000 CVTSSCR EQU CVTS01+620 01051000 CVTEVENT EQU CVTS01+616 01052000 CVTCRCA EQU CVTS01+612 01053000 CVTTPIO EQU CVTS01+608 01054000 CVTADV EQU CVTS01+604 01055000 CVTGSDAB EQU CVTGSDA 01056000 CVTQV3 EQU CVTS01+596 01057000 CVTQV2 EQU CVTS01+592 01058000 CVTQV1 EQU CVTS01+588 01059000 CVTRPT EQU CVTS01+584 01060000 CVTSSRB EQU CVTS01+580 01061000 CVTCSDRL EQU CVTS01+576 01062000 CVTEXP1 EQU CVTS01+572 01063000 CVTRMPMT EQU CVTS01+568 01064000 CVTRMPTT EQU CVTS01+564 01065000 CVTVPSA EQU CVTS01+560 01066000 CVTVSTOP EQU CVTS01+556 01067000 CVTGTFR8 EQU CVTS01+552 01068000 CVTQUIT EQU CVTS01+548 01069000 CVTVACR EQU CVTS01+544 01070000 CVTWTCB EQU CVTS01+540 01071000 CVTSTPRS EQU CVTS01+536 01072000 CVT0PT02 EQU CVTS01+532 01073000 CVTDARCM EQU CVTS01+528 01074000 CVTIRECM EQU CVTS01+524 01075000 CVTJRECM EQU CVTS01+520 01076000 CVTVEMS0 EQU CVTS01+516 01077000 CVTSPFRR EQU CVTS01+512 01078000 CVTRLSTG EQU CVTS01+508 01079000 CVT0TC0A EQU CVTS01+504 01080000 CVTGMBR EQU CVTS01+500 01081000 CVTLFRM EQU CVTS01+496 01082000 CVTRMBR EQU CVTS01+492 01083000 CVTVIOP EQU CVTS01+488 01084000 CVTRV307 EQU CVTS01+486 01085000 CVTRV306 EQU CVTS01+484 01086000 CVTRV305 EQU CVTS01+482 01087000 CVTRV304 EQU CVTS01+480 01088000 CVTRV303 EQU CVTS01+478 01089000 CVTRV302 EQU CVTS01+476 01090000 CVTTRCA EQU CVTS01+472 01091000 CVTRV297 EQU CVTRV289 01092000 CVTRV296 EQU CVTRV289 01093000 CVTRV295 EQU CVTRV289 01094000 CVTRV294 EQU CVTRV289 01095000 CVTRV293 EQU CVTRV289 01096000 CVTRV292 EQU CVTRV289 01097000 CVTRV291 EQU CVTRV289 01098000 CVTRV290 EQU CVTRV289 01099000 CVTRV288 EQU CVTRV280 01100000 CVTRV287 EQU CVTRV280 01101000 CVTRV286 EQU CVTRV280 01102000 CVTRV285 EQU CVTRV280 01103000 CVTRV284 EQU CVTRV280 01104000 CVTRV283 EQU CVTRV280 01105000 CVTRV282 EQU CVTRV280 01106000 CVTRV281 EQU CVTRV280 01107000 CVTRV279 EQU CVTRV271 01108000 CVTRV278 EQU CVTRV271 01109000 CVTRV277 EQU CVTRV271 01110000 CVTRV276 EQU CVTRV271 01111000 CVTRV275 EQU CVTRV271 01112000 CVTRV274 EQU CVTRV271 01113000 CVTRV273 EQU CVTRV271 01114000 CVTRV272 EQU CVTRV271 01115000 CVTRV270 EQU CVTRV262 01116000 CVTRV269 EQU CVTRV262 01117000 CVTRV268 EQU CVTRV262 01118000 CVTRV267 EQU CVTRV262 01119000 CVTRV266 EQU CVTRV262 01120000 CVTRV265 EQU CVTRV262 01121000 CVTRV264 EQU CVTRV262 01122000 CVTRV263 EQU CVTRV262 01123000 CVTVFP EQU CVTS01+464 01124000 CVTVSI EQU CVTS01+460 01125000 CVTVPSIB EQU CVTS01+456 01126000 CVTMFACT EQU CVTMFRTR 01127000 CVTMFCTL EQU CVTS01+448 01128000 CVTPVBP EQU CVTS01+444 01129000 CVTPWI EQU CVTS01+440 01130000 CVTRV254 EQU CVTS01+438 01131000 CVTRV253 EQU CVTS01+436 01132000 CVTRV252 EQU CVTS01+434 01133000 CVTRV251 EQU CVTS01+433 01134000 CVTRV250 EQU CVTS01+432 01135000 CVTRV249 EQU CVTS01+431 01136000 CVTRV248 EQU CVTS01+430 01137000 CVTRV247 EQU CVTS01+429 01138000 CVTRV246 EQU CVTS01+428 01139000 CVTRV245 EQU CVTRV237 01140000 CVTRV244 EQU CVTRV237 01141000 CVTRV243 EQU CVTRV237 01142000 CVTRV242 EQU CVTRV237 01143000 CVTRV241 EQU CVTRV237 01144000 CVTRV240 EQU CVTRV237 01145000 CVTRV239 EQU CVTRV237 01146000 CVTRV238 EQU CVTRV237 01147000 CVTRV236 EQU CVTRV228 01148000 CVTRV235 EQU CVTRV228 01149000 CVTRV234 EQU CVTRV228 01150000 CVTRV233 EQU CVTRV228 01151000 CVTRV232 EQU CVTRV228 01152000 CVTRV231 EQU CVTRV228 01153000 CVTRV230 EQU CVTRV228 01154000 CVTRV229 EQU CVTRV228 01155000 CVTRV227 EQU CVTRV219 01156000 CVTRV226 EQU CVTRV219 01157000 CVTRV225 EQU CVTRV219 01158000 CVTRV224 EQU CVTRV219 01159000 CVTRV223 EQU CVTRV219 01160000 CVTRV222 EQU CVTRV219 01161000 CVTRV221 EQU CVTRV219 01162000 CVTRV220 EQU CVTRV219 01163000 CVTRV218 EQU CVTRV210 01164000 CVTRV217 EQU CVTRV210 01165000 CVTRV216 EQU CVTRV210 01166000 CVTRV215 EQU CVTRV210 01167000 CVTRV214 EQU CVTRV210 01168000 CVTRV213 EQU CVTRV210 01169000 CVTRV212 EQU CVTRV210 01170000 CVTRV211 EQU CVTRV210 01171000 CVTLCCAT EQU CVTS01+420 01172000 CVTPCCAT EQU CVTS01+416 01173000 CVTIPCRP EQU CVTS01+412 01174000 CVTIPCRI EQU CVTS01+408 01175000 CVTIPCDS EQU CVTS01+404 01176000 CVTAIDVT EQU CVTS01+400 01177000 CVTSSAP EQU CVTS01+396 01178000 CVTEHCIR EQU CVTS01+392 01179000 CVTEHDEF EQU CVTS01+388 01180000 CVTDAIR EQU CVTS01+384 01181000 CVTPERFM EQU CVTS01+380 01182000 CVT044R2 EQU CVTS01+376 01183000 CVTFETCH EQU CVTS01+372 01184000 CVTRSTWD EQU CVTS01+368 01185000 CVTSPOST EQU CVTS01+364 01186000 CVTIOBP EQU CVTS01+360 01187000 CVTASMVT EQU CVTS01+356 01188000 CVTRECRQ EQU CVTS01+352 01189000 CVTWSAC EQU CVTS01+348 01190000 CVTRV149 EQU CVTS01+344 01191000 CVTWSAL EQU CVTS01+340 01192000 CVTSPSA EQU CVTS01+336 01193000 CVTGLMN EQU CVTS01+332 01194000 CVTVEAC0 EQU CVTS01+328 01195000 CVT062R1 EQU CVTS01+324 01196000 CVTRPOST EQU CVTS01+320 01197000 CVTDQIQE EQU CVTS01+316 01198000 CVTCSD EQU CVTS01+312 01199000 CVTLKRMA EQU CVTS01+308 01200000 CVTRSPIE EQU CVTS01+304 01201000 CVTRENQ EQU CVTS01+300 01202000 CVTLQCB EQU CVTS01+296 01203000 CVTFQCB EQU CVTS01+292 01204000 CVTQCS01 EQU CVTS01+288 01205000 CVTAPFT EQU CVTS01+284 01206000 CVTPARRL EQU CVTS01+280 01207000 CVTVWAIT EQU CVTS01+276 01208000 CVTGSPL EQU CVTS01+272 01209000 CVTLSMQ EQU CVTS01+268 01210000 CVTGSMQ EQU CVTS01+264 01211000 CVTEXPRO EQU CVTS01+260 01212000 CVTOPCTP EQU CVTS01+256 01213000 CVTSIC EQU CVTS01+252 01214000 CVTTPIOS EQU CVTS01+248 01215000 CVTRTMS EQU CVTS01+244 01216000 CVTSDBF EQU CVTS01+240 01217000 CVTSCBP EQU CVTS01+236 01218000 CVTSDMP EQU CVTS01+232 01219000 CVTSV60 EQU CVTS01+228 01220000 CVTRTMCT EQU CVTS01+224 01221000 CVTASCBL EQU CVTS01+220 01222000 CVTASCBH EQU CVTS01+216 01223000 CVTGDA EQU CVTS01+212 01224000 CVTASVT EQU CVTS01+208 01225000 CVTVVMDI EQU CVTS01+204 01226000 CVTAQTOP EQU CVTS01+200 01227000 CVTIOSCS EQU CVTS01+196 01228000 CVTSDRM EQU CVTS01+192 01229000 CVTOPTE EQU CVTS01+188 01230000 CVTSTXU EQU CVTS01+184 01231000 CVTQUIS EQU CVTS01+180 01232000 CVTPARS EQU CVTS01+176 01233000 CVTS1EE EQU CVTS01+172 01234000 CVTFRAS EQU CVTS01+168 01235000 CVTQSAS EQU CVTS01+164 01236000 CVTCRAS EQU CVTS01+160 01237000 CVTCRMN EQU CVTS01+156 01238000 CVTDELCP EQU CVTS01+152 01239000 CVTFRECL EQU CVTS01+148 01240000 CVTGETCL EQU CVTS01+144 01241000 CVTBLDCP EQU CVTS01+140 01242000 CVTAUTHL EQU CVTS01+136 01243000 CVTSCAN EQU CVTS01+132 01244000 CVTRV144 EQU CVTS01+130 01245000 CVTMAXMP EQU CVTS01+128 01246000 CVTSTCK EQU CVTS01+124 01247000 CVTRV139 EQU CVTS01+123 01248000 CVTDSSAC EQU CVTS01+122 01249000 CVTRV513 EQU CVTS01+121 01250000 CVTIOSPL EQU CVTS01+120 01251000 CVTPTGT EQU CVTS01+116 01252000 CVTCSPIE EQU CVTS01+112 01253000 CVTSMFEX EQU CVTS01+108 01254000 CVTOLT0A EQU CVTS01+104 01255000 CVTSRBRT EQU CVTS01+100 01256000 CVTPUTL EQU CVTS01+96 01257000 CVTRV519 EQU CVTS01+92 01258000 CVTRV327 EQU CVTS01+88 01259000 CVTRV326 EQU CVTS01+84 01260000 CVTRV325 EQU CVTS01+80 01261000 CVTRV324 EQU CVTS01+76 01262000 CVT0VL01 EQU CVTS01+72 01263000 CVTSHRVM EQU CVTS01+68 01264000 CVTRV332 EQU CVTS01+64 01265000 CVTTAS EQU CVTS01+60 01266000 CVTRSCN EQU CVTS01+56 01267000 CVTTRAC2 EQU CVTS01+54 01268000 CVTTRACE EQU CVTS01+52 01269000 CVTAPG EQU CVTS01+51 01270000 CVTSDTRC EQU CVTCTLFG 01271000 CVTGTRCE EQU CVTCTLFG 01272000 CVTNOMP EQU CVTCTLFG 01273000 CVTRSV79 EQU CVTCTLFG 01274000 CVTDSTAT EQU CVTCTLFG 01275000 CVTRSV78 EQU CVTCTLFG 01276000 CVTRV333 EQU CVTCTLFG 01277000 CVTRV323 EQU CVTCTLFG 01278000 CVTSPVLK EQU CVTS01+49 01279000 CVTRSV77 EQU CVTS01+48 01280000 CVTRV331 EQU CVTS01+44 01281000 CVTRV330 EQU CVTS01+40 01282000 CVTRV329 EQU CVTS01+36 01283000 CVTRV328 EQU CVTS01+32 01284000 CVTRV322 EQU CVTS01+28 01285000 CVTSLID EQU CVTSLIDA+1 01286000 CVTSYLK EQU CVTSLIDA 01287000 CVTRV321 EQU CVTS01+20 01288000 CVTRV320 EQU CVTS01+16 01289000 CVTLPDIR EQU CVTLPDIA+1 01290000 CVTRSV69 EQU CVTDIRST 01291000 CVTRSV68 EQU CVTDIRST 01292000 CVTRSV67 EQU CVTDIRST 01293000 CVTRSV66 EQU CVTDIRST 01294000 CVTRSV65 EQU CVTDIRST 01295000 CVTRSV64 EQU CVTDIRST 01296000 CVTRSV63 EQU CVTDIRST 01297000 CVTDICOM EQU CVTDIRST 01298000 CVTPVTP EQU CVTS01+8 01299000 CVTLPDSR EQU CVTS01+4 01300000 CVTGETL EQU CVTS01 01301000 ATCAOS EQU ISTATCVT+1552 01302000 ATCVIOPM EQU ATCAOSM+636 01303000 ATCTPMMI EQU ATCAOSM+632 01304000 ATCTPMPB EQU ATCAOSM+600 01305000 ATCRPLCT EQU ATCAOSM+594 01306000 ATCCRACT EQU ATCAOSM+592 01307000 ATCSRBCT EQU ATCAOSM+590 01308000 ATCRSV75 EQU ATCAOSM+589 01309000 ATCRSV66 EQU ATCZFLAG 01310000 ATCZF001 EQU ATCZFLAG 01311000 ATCTPCP1 EQU ATCAOSM+584 01312000 ATCTPCP0 EQU ATCAOSM+580 01313000 ATCAICTN EQU ATCAOSM+576 01314000 ATCZR01 EQU ATCAOSM+572 01315000 ATCMPLTA EQU ATCAOSM+568 01316000 ATCASCB EQU ATCAOSM+564 01317000 ATCAP86 EQU ATCAOSM+560 01318000 ATCAP85 EQU ATCAOSM+556 01319000 ATCAP84 EQU ATCAOSM+552 01320000 ATCAP83 EQU ATCAOSM+548 01321000 ATCAP82 EQU ATCAOSM+544 01322000 ATCAP69 EQU ATCAOSM+540 01323000 ATCAP66 EQU ATCAOSM+536 01324000 ATCAP62 EQU ATCAOSM+532 01325000 ATCAPC59 EQU ATCAOSM+528 01326000 ATCAP56 EQU ATCAOSM+524 01327000 ATCAP55 EQU ATCAOSM+520 01328000 ATCRCFY0 EQU ATCAOSM+516 01329000 ATCAP41 EQU ATCAOSM+512 01330000 ATCAPC25 EQU ATCAOSM+508 01331000 ATCAP23 EQU ATCAOSM+504 01332000 ATCTPSPB EQU ATCAOSM+472 01333000 ATCTRMBP EQU ATCAOSM+440 01334000 ATCPSTA EQU ATCAOSM+432 01335000 ATCSMABF EQU ATCAOSM+428 01336000 ATCSMAPR EQU ATCAOSM+424 01337000 ATCTPWQA EQU ATCAOSM+420 01338000 ATCSMAID EQU ATCAOSM+416 01339000 ATCSMARA EQU ATCAOSM+412 01340000 ATCCACXA EQU ATCAOSM+408 01341000 ATCZLAAB EQU ATCAOSM+404 01342000 ATCATA10 EQU ATCAOSM+400 01343000 ATCHLTCB EQU ATCAOSM+396 01344000 @NM00015 EQU ATCVTFLG 01345000 ATCVTACT EQU ATCVTFLG 01346000 ATCRPT40 EQU ATCAOSM+388 01347000 ATCRPT39 EQU ATCAOSM+384 01348000 ATCRPT38 EQU ATCAOSM+380 01349000 ATCRPT37 EQU ATCAOSM+376 01350000 ATCRPT36 EQU ATCAOSM+372 01351000 ATCRPT35 EQU ATCAOSM+368 01352000 ATCRPT34 EQU ATCAOSM+364 01353000 ATCRPT33 EQU ATCAOSM+360 01354000 ATCRPT32 EQU ATCAOSM+356 01355000 ATCRPT31 EQU ATCAOSM+352 01356000 ATCRPT30 EQU ATCAOSM+348 01357000 ATCRPT29 EQU ATCAOSM+344 01358000 ATCRPT28 EQU ATCAOSM+340 01359000 ATCRPT27 EQU ATCAOSM+336 01360000 ATCRPT26 EQU ATCAOSM+332 01361000 ATCRPT25 EQU ATCAOSM+328 01362000 ATCRPT24 EQU ATCAOSM+324 01363000 ATCRPT23 EQU ATCAOSM+320 01364000 ATCRPT22 EQU ATCAOSM+316 01365000 ATCRPT21 EQU ATCAOSM+312 01366000 ATCRPT20 EQU ATCAOSM+308 01367000 ATCRPT19 EQU ATCAOSM+304 01368000 ATCRPT18 EQU ATCAOSM+300 01369000 ATCRPT17 EQU ATCAOSM+296 01370000 ATCRPT16 EQU ATCAOSM+292 01371000 ATCRPT15 EQU ATCAOSM+288 01372000 ATCRPT14 EQU ATCAOSM+284 01373000 ATCRPT13 EQU ATCAOSM+280 01374000 ATCRPT12 EQU ATCAOSM+276 01375000 ATCRPT11 EQU ATCAOSM+272 01376000 ATCAP38 EQU ATCAOSM+268 01377000 ATCAP37 EQU ATCAOSM+264 01378000 ATCZDFJ0 EQU ATCAOSM+260 01379000 ATCAP51 EQU ATCAOSM+256 01380000 ATCZPAB2 EQU ATCAOSM+224 01381000 ATCZPAB1 EQU ATCAOSM+192 01382000 ATCZLFVT EQU ATCAOSM+188 01383000 ATCZLPVT EQU ATCAOSM+184 01384000 ATCZDVTX EQU ATCAOSM+180 01385000 ATCZDVTA EQU ATCAOSM+176 01386000 ATCZDVT9 EQU ATCAOSM+172 01387000 ATCZDVT8 EQU ATCAOSM+168 01388000 ATCZDVT7 EQU ATCAOSM+164 01389000 ATCRSV56 EQU ATCDAPVT+22 01390000 ATCDAPDG EQU ATCDAPVT+20 01391000 ATCDXCEA EQU ATCDAPVT+16 01392000 ATCDCEA EQU ATCDAPVT+12 01393000 ATCDPCIA EQU ATCDAPVT+8 01394000 ATCDSIOA EQU ATCDAPVT+4 01395000 ATCDEOEA EQU ATCDAPVT 01396000 ATCZLAEA EQU ATCLDAPP+16 01397000 ATCZLCEA EQU ATCLDAPP+12 01398000 ATCRSV17 EQU ATCLDAPP+8 01399000 ATCSMFRR EQU ATCLDAPP+4 01400000 ATCCDTID EQU ATCLDAPP 01401000 ATCZAEA EQU ATCICAPP+16 01402000 ATCZCEA EQU ATCICAPP+12 01403000 ATCCDTCB EQU ATCICAPP+8 01404000 ATCZSIOA EQU ATCICAPP+4 01405000 ATCCDRPH EQU ATCICAPP 01406000 ATCAP65 EQU ATCAOSM+96 01407000 ATCZDVT6 EQU ATCAOSM+92 01408000 ATCZDVT4 EQU ATCAOSM+88 01409000 ATCZDVT3 EQU ATCAOSM+84 01410000 ATCZDVT1 EQU ATCAOSM+80 01411000 ATCICNCB EQU ATCAOSM+76 01412000 ATCZPSVT EQU ATCAOSM+72 01413000 ATCZFSVT EQU ATCAOSM+68 01414000 ATCAP64 EQU ATCAOSM+64 01415000 ATCAP63 EQU ATCAOSM+60 01416000 ATCAP61 EQU ATCAOSM+56 01417000 ATCAP58 EQU ATCAOSM+52 01418000 ATCAP57 EQU ATCAOSM+48 01419000 ATCAP54 EQU ATCAOSM+44 01420000 ATCAP53 EQU ATCAOSM+40 01421000 ATCAP52 EQU ATCAOSM+36 01422000 ATCAP34 EQU ATCAOSM+32 01423000 ATCAP32 EQU ATCAOSM+28 01424000 ATCAP31 EQU ATCAOSM+24 01425000 ATCAP12 EQU ATCAOSM+20 01426000 ATCAP11 EQU ATCAOSM+16 01427000 ATCCMTCB EQU ATCAOSM+12 01428000 ATCPRPH EQU ATCAOSM+8 01429000 ATCGSRBF EQU ATCGSRBG 01430000 ATCSRBRT EQU ATCAOSM 01431000 ATCRSVBB EQU ISTATCVT+908 01432000 ATCVDLOK EQU ISTATCVT+904 01433000 ATCVFPAB EQU ISTATCVT+872 01434000 ATCVDPAB EQU ISTATCVT+840 01435000 ATCIOECB EQU ISTATCVT+836 01436000 ATCINCW3 EQU ISTATCVT+832 01437000 ATCMODTB EQU ISTATCVT+828 01438000 ATCUSSPT EQU ISTATCVT+824 01439000 ATCSRTAB EQU ISTATCVT+820 01440000 @NM00014 EQU ISTATCVT+818 01441000 ATCNMCTR EQU ISTATCVT+816 01442000 ATCSEC51 EQU ATCSECST 01443000 ATCSEC40 EQU ATCSIPD+8 01444000 ATCSEC30 EQU ATCSIPD+4 01445000 ATCSEC21 EQU ATCSIPD 01446000 ATCSEC10 EQU ATCSOPD+4 01447000 ATCSEC01 EQU ATCSOPD 01448000 ATCPOIA EQU ISTATCVT+788 01449000 ATCPODVT EQU ISTATCVT+784 01450000 ATCS49XL EQU ISTATCVT+780 01451000 ATCS49XI EQU ISTATCVT+776 01452000 ATCLCLCT EQU ATCVLCNT+2 01453000 ATCRNCNT EQU ATCVLCNT 01454000 ATCCFEAD EQU ISTATCVT+768 01455000 ATCPTR00 EQU ISTATCVT+736 01456000 ATCRSV10 EQU ISTATCVT+704 01457000 ATCTACB EQU ISTATCVT+700 01458000 ATCVTINM EQU ISTATCVT+696 01459000 ATCTCLIM EQU ISTATCVT+692 01460000 ATCTCLOM EQU ISTATCVT+688 01461000 ATCVTIPB EQU ISTATCVT+656 01462000 ATCTCIPB EQU ISTATCVT+624 01463000 ATCTIPAB EQU ISTATCVT+592 01464000 ATCOCCCB EQU ISTATCVT+588 01465000 ATCOCCOB EQU ISTATCVT+584 01466000 ATCCDLAD EQU ISTATCVT+580 01467000 ATCCCLAD EQU ISTATCVT+576 01468000 ATCDLRPB EQU ISTATCVT+544 01469000 ATCPGPAB EQU ISTATCVT+512 01470000 ATCVPAB1 EQU ISTATCVT+480 01471000 ATCRSV97 EQU ISTATCVT+476 01472000 ATCRDTLK EQU ISTATCVT+472 01473000 ATCVOCLK EQU ISTATCVT+468 01474000 ATCCDFDN EQU ISTATCVT+464 01475000 ATCCDFIN EQU ISTATCVT+460 01476000 ATCDVTLK EQU ISTATCVT+456 01477000 ATCAP36 EQU ISTATCVT+452 01478000 ATCAP35 EQU ISTATCVT+448 01479000 ATCAP33 EQU ISTATCVT+444 01480000 ATCRSV99 EQU ISTATCVT+412 01481000 ATCLDECB EQU ISTATCVT+408 01482000 ATCLDNCS EQU ISTATCVT+404 01483000 ATCCDPTR EQU ISTATCVT+400 01484000 ATCADEL EQU ISTATCVT+396 01485000 ATCTODVT EQU ISTATCVT+392 01486000 ATCDEBCH EQU ISTATCVT+388 01487000 ATCHBSIZ EQU ATCHPGM+2 01488000 ATCHBFNO EQU ATCHPGM 01489000 ATCCRME EQU ISTATCVT+380 01490000 ATCRVCHS EQU ISTATCVT+372 01491000 ATCECTLP EQU ISTATCVT+368 01492000 ATCZDVTB EQU ISTATCVT+364 01493000 ATCECPRT EQU ISTATCVT+360 01494000 ATCVTLOD EQU ISTATCVT+356 01495000 ATCTRPAB EQU ISTATCVT+352 01496000 ATCMSGM EQU ISTATCVT+348 01497000 ATCEPT EQU ISTATCVT+340 01498000 ATCDVT EQU ISTATCVT+336 01499000 ATCTRCPT EQU ISTATCVT+332 01500000 ATCDVLOD EQU ISTATCVT+328 01501000 ATCALERT EQU ISTATCVT+324 01502000 ATCEPA EQU ISTATCVT+320 01503000 ATCSAF EQU ISTATCVT+318 01504000 ATCXRANG EQU ISTATCVT+317 01505000 ATCLAST EQU ATCSHRFG 01506000 ATCSHRTN EQU ISTATCVT+308 01507000 ATCUEP EQU ISTATCVT+304 01508000 ATCOCRT EQU ISTATCVT+300 01509000 ATCCSMA EQU ATCCSMR 01510000 ATCESC02 EQU ISTATCVT+292 01511000 ATCESC01 EQU ISTATCVT+288 01512000 ATCCDFND EQU ISTATCVT+284 01513000 ATCCDDEL EQU ISTATCVT+280 01514000 ATCCDADD EQU ISTATCVT+276 01515000 ATCMNT EQU ISTATCVT+272 01516000 ATCRSV16 EQU ISTATCVT+270 01517000 ATCMAXID EQU ISTATCVT+269 01518000 ATCMSGSP EQU ATCCOM+268 01519000 ATCCIDM EQU ATCCOM+266 01520000 ATCACTRM EQU ATCCOM+264 01521000 ATCNERAP EQU ATCCOM+260 01522000 ATCNESAL EQU ATCCOM+256 01523000 ATCRCC65 EQU ATCCOM+252 01524000 ATCRCC26 EQU ATCCOM+248 01525000 ATCRCC63 EQU ATCCOM+244 01526000 ATCRSV11 EQU ATCCOM+242 01527000 ATCVTMID EQU ATCCOM+240 01528000 ATCAPOST EQU ATCCOM+236 01529000 ATCNERFN EQU ATCCOM+232 01530000 ATCNERNE EQU ATCCOM+228 01531000 ATCNERCV EQU ATCCOM+224 01532000 ATCNERST EQU ATCCOM+220 01533000 ATCDCC61 EQU ATCCOM+216 01534000 ATCDCC60 EQU ATCCOM+212 01535000 ATCSRTDF EQU ATCCOM+208 01536000 ATCSRTAD EQU ATCCOM+204 01537000 ATCFIRA EQU ATCCOM+200 01538000 ATCSMBQ EQU ATCCOM+196 01539000 ATCSMRC EQU ATCCOM+192 01540000 ATCSMRS EQU ATCCOM+188 01541000 ATCSMQU EQU ATCCOM+184 01542000 ATCSMRQ EQU ATCCOM+180 01543000 ATCACDA EQU ATCCOM+176 01544000 ATCSTMA EQU ATCCOM+172 01545000 ATCFRSTR EQU ATCCOM+168 01546000 ATCGTSTR EQU ATCCOM+164 01547000 ATCREADA EQU ATCCOM+160 01548000 ATCALOAD EQU ATCCOM+156 01549000 ATCBLDLA EQU ATCCOM+152 01550000 ATCFBRPH EQU ATCCOM+148 01551000 ATCBFTRC EQU ATCCOM+144 01552000 ATCTPBUF EQU ATCTHTRC 01553000 ATCREMOV EQU ATCCOM+136 01554000 ATCADD EQU ATCCOM+132 01555000 ATCBPDA EQU ATCCOM+128 01556000 ATCDVTPT EQU ATCCOM+124 01557000 ATCFEPT EQU ATCCOM+120 01558000 ATCFDVT EQU ATCCOM+116 01559000 ATCCONFT EQU ATCCOM+112 01560000 ATCPTCHA EQU ATCCOM+108 01561000 ATCAUTHA EQU ATCCOM+104 01562000 ATCACCTA EQU ATCCOM+100 01563000 ATCRDTH EQU ATCCOM+96 01564000 ATCFRSCH EQU ATCCOM+92 01565000 ATCFSB EQU ATCCOM+88 01566000 ATCHLTMS EQU ATCCOM+84 01567000 ATCECPRM EQU ATCCOM+80 01568000 ATCECNET EQU ATCCOM+76 01569000 ATCECOPC EQU ATCCOM+72 01570000 ATCVPARM EQU ATCCOM+68 01571000 ATCECVRQ EQU ATCCOM+64 01572000 ATCECSES EQU ATCCOM+60 01573000 ATCOCHA EQU ATCCOM+56 01574000 ATCDSPLQ EQU ATCCOM+52 01575000 ATCECDSP EQU ATCCOM+48 01576000 ATCVARYQ EQU ATCCOM+44 01577000 ATCECVRY EQU ATCCOM+40 01578000 ATCHALTQ EQU ATCCOM+36 01579000 ATCECHLT EQU ATCCOM+32 01580000 ATCMODQ EQU ATCCOM+28 01581000 ATCECMOD EQU ATCCOM+24 01582000 ATCASCHD EQU ATCCOM+20 01583000 ATCSRT EQU ATCCOM+16 01584000 ATCRDT EQU ATCCOM+12 01585000 ATCDCFRR EQU ATCCOM+8 01586000 ATCAPI EQU ATCCOM+4 01587000 ATCRSV04 EQU ATCSTAT4 01588000 ATCNCSD EQU ATCSTAT4 01589000 ATCMTST EQU ATCSTAT4 01590000 ATCTPRT EQU ATCSTAT4 01591000 ATCPRTAT EQU ATCSTAT4 01592000 @NM00013 EQU ATCPOFLG 01593000 ATCPOUNS EQU ATCPOFLG 01594000 ATCHSDMF EQU ATCSTFLG 01595000 @NM00012 EQU ATCSTAT1 01596000 ATCINHLT EQU ATCSTAT1 01597000 ATCNETSL EQU ATCSTAT1 01598000 ATCQKHLT EQU ATCSTAT1 01599000 ATCSNHLT EQU ATCSTAT1 01600000 ATCACTIV EQU ATCSTAT1 01601000 ATCSTART EQU ATCSTAT1 01602000 RPHNEXPO EQU ISTRPH+104 01603000 RPHSAV16 EQU RPHWORK+60 01604000 RPHSAV15 EQU RPHWORK+56 01605000 RPHSAV14 EQU RPHWORK+52 01606000 RPHSAV13 EQU RPHWORK+48 01607000 RPHSAV12 EQU RPHWORK+44 01608000 RPHSAV11 EQU RPHWORK+40 01609000 RPHSAV10 EQU RPHWORK+36 01610000 RPHSAVE9 EQU RPHWORK+32 01611000 RPHSAVE8 EQU RPHWORK+28 01612000 RPHSAVE7 EQU RPHWORK+24 01613000 RPHSAVE6 EQU RPHWORK+20 01614000 RPHSAVE5 EQU RPHWORK+16 01615000 RPHSAVE4 EQU RPHWORK+12 01616000 RPHSAVE3 EQU RPHWORK+8 01617000 RPHSAVE2 EQU RPHWORK+4 01618000 RPHSHALF EQU RPHSAVE1+2 01619000 RPHSBIT8 EQU RPHSBITS 01620000 RPHSBIT7 EQU RPHSBITS 01621000 RPHSBIT6 EQU RPHSBITS 01622000 RPHSBIT5 EQU RPHSBITS 01623000 RPHSBIT4 EQU RPHSBITS 01624000 RPHSBIT3 EQU RPHSBITS 01625000 RPHSBIT2 EQU RPHSBITS 01626000 RPHSBIT1 EQU RPHSBITS 01627000 RPHSBYTE EQU RPHSAVE1 01628000 RPHPABQP EQU RPHPABQA+1 01629000 RPHPABFG EQU RPHPABQA 01630000 RPHCRR EQU ISTRPH+32 01631000 RPHSRP34 EQU RPHSRPRM+2 01632000 RPHSRP12 EQU RPHSRPRM 01633000 RPHWEGT EQU RPHCSPA 01634000 RPHMAJCB EQU ISTRPH+21 01635000 RPHPABOF EQU ISTRPH+20 01636000 RPHRESUM EQU RPHRESMA+1 01637000 RPHRSV01 EQU RPHWPFLG 01638000 RPHPURGE EQU RPHWPFLG 01639000 RPHPT EQU RPHWPFLG 01640000 RPHWT EQU RPHWPFLG 01641000 RPHRSKEY EQU RPHWPFLG 01642000 RPHDVTA EQU ISTRPH+12 01643000 RPHTIK EQU RPHTSKID+3 01644000 @NM00011 EQU RPHTSKID 01645000 RPHRPHAP EQU RPHRPHA+1 01646000 @NM00010 EQU RPHRPHA 01647000 RPHGATE EQU RPHRPHA 01648000 @NM00009 EQU RPHFLGB 01649000 RPHRLCRA EQU RPHFLGB 01650000 RPHNRSAV EQU RPHFLGB 01651000 RPHPGCMP EQU RPHFLGB 01652000 RPHFBAPS EQU RPHFLGB 01653000 RPHBSSP EQU RPHFLGB 01654000 RPHLOCK EQU RPHFLGB 01655000 RPHFNFLG EQU RPHFSTLC 01656000 RPHMLTCP EQU RPHFLAGS 01657000 RPHSMCLR EQU RPHFLAGS 01658000 RPHSMTYP EQU RPHFLAGS 01659000 RPHSMQ EQU RPHFLAGS 01660000 RPHAUTEX EQU RPHAPTYP 01661000 RPHSPGIN EQU RPHFLAGS 01662000 RPHOGIND EQU RPHFLAGS 01663000 RPHLNGTH EQU ISTRPH+1 01664000 RPHTYPE EQU ISTRPH 01665000 DYPPAB EQU ISTDYPAB+16 01666000 DYPRSV01 EQU ISTDYPAB+12 01667000 DYPTSKID EQU ISTDYPAB+8 01668000 DYPCHAIN EQU ISTDYPAB+4 01669000 DYPFLGS EQU ISTDYPAB+2 01670000 DYPLNGTH EQU ISTDYPAB+1 01671000 DYPTYPE EQU ISTDYPAB 01672000 LOKXCL EQU @NM00007 01673000 LOKPRY EQU @NM00007 01674000 @NM00008 EQU @NM00007 01675000 @NM00006 EQU LOKCHNG 01676000 LOKCT EQU ISTLOK 01677000 PABRPHA EQU PABRPHFG+1 01678000 PABNODQ EQU PABFLAGS 01679000 PABINHBT EQU PABFLAGS 01680000 PABERLOK EQU PABERRLK 01681000 PABSSN EQU PABFLAGS 01682000 PABDYNAM EQU PABFLAGS 01683000 PABNORPR EQU PABFLAGS 01684000 PABPRIOR EQU PABFLAGS 01685000 PABAPYP EQU PABFLAGS 01686000 PABDVTA EQU ISTPAB+9 01687000 PABOFFST EQU ISTPAB+8 01688000 PABCHNGP EQU PABCHAIN+1 01689000 PABRSV02 EQU PABCHAIN 01690000 PABRESET EQU PABCHAIN 01691000 PABUNCON EQU PABCHAIN 01692000 PABCDP EQU PABCHAIN 01693000 PABRESCH EQU PABCHAIN 01694000 PABCHNG EQU PABCHAIN 01695000 PABWEQP EQU PABWEQA+1 01696000 PABRSV01 EQU PABWEQA 01697000 PABWEQG EQU PABWEQA 01698000 CMZEA004 EQU @NM00004+8 01699000 CMZRA004 EQU @NM00005+1 01700000 CMZRL004 EQU @NM00005 01701000 LDPRSV02 EQU ISTLDPRM+22 01702000 LDPRSV01 EQU LDPFB2 01703000 LDPRSV03 EQU LDPFG 01704000 LDPPB EQU LDPFG 01705000 LDPFX EQU LDPFG 01706000 LDPPDS EQU ISTLDPRM+8 01707000 CVTLEVL EQU CVTRELNO+2 01708000 CVTNUMB EQU CVTRELNO 01709000 CVTMDL EQU CVTFIX+250 01710000 @NM00002 EQU CVTFIX+248 01711000 @NM00001 EQU CVTFIX 01712000 CVTRV482 EQU CVTXTNT2+128 01713000 CVTRV481 EQU CVTXTNT2+124 01714000 CVTRV480 EQU CVTXTNT2+120 01715000 CVTRV479 EQU CVTXTNT2+118 01716000 CVTRV478 EQU CVTXTNT2+117 01717000 CVTRV477 EQU CVTXTNT2+116 01718000 CVTRV476 EQU CVTXTNT2+115 01719000 CVTRV475 EQU CVTXTNT2+114 01720000 CVTRV474 EQU CVTRV466 01721000 CVTRV473 EQU CVTRV466 01722000 CVTRV472 EQU CVTRV466 01723000 CVTRV471 EQU CVTRV466 01724000 CVTRV470 EQU CVTRV466 01725000 CVTRV469 EQU CVTRV466 01726000 CVTRV468 EQU CVTRV466 01727000 CVTRV467 EQU CVTRV466 01728000 CVTRV465 EQU CVTRV457 01729000 CVTRV464 EQU CVTRV457 01730000 CVTRV463 EQU CVTRV457 01731000 CVTRV462 EQU CVTRV457 01732000 CVTRV461 EQU CVTRV457 01733000 CVTRV460 EQU CVTRV457 01734000 CVTRV459 EQU CVTRV457 01735000 CVTRV458 EQU CVTRV457 01736000 CVTRV456 EQU CVTXTNT2+108 01737000 CVTRV455 EQU CVTXTNT2+104 01738000 CVTRV454 EQU CVTXTNT2+100 01739000 CVTRV453 EQU CVTXTNT2+96 01740000 CVTRV452 EQU CVTXTNT2+94 01741000 CVTRV451 EQU CVTXTNT2+92 01742000 CVTRV450 EQU CVTXTNT2+90 01743000 CVTRV449 EQU CVTXTNT2+88 01744000 CVTRV448 EQU CVTXTNT2+87 01745000 CVTRV447 EQU CVTXTNT2+86 01746000 CVTRV446 EQU CVTRV438 01747000 CVTRV445 EQU CVTRV438 01748000 CVTRV444 EQU CVTRV438 01749000 CVTRV443 EQU CVTRV438 01750000 CVTRV442 EQU CVTRV438 01751000 CVTRV441 EQU CVTRV438 01752000 CVTRV440 EQU CVTRV438 01753000 CVTRV439 EQU CVTRV438 01754000 CVTRV437 EQU CVTRV429 01755000 CVTRV436 EQU CVTRV429 01756000 CVTRV435 EQU CVTRV429 01757000 CVTRV434 EQU CVTRV429 01758000 CVTRV433 EQU CVTRV429 01759000 CVTRV432 EQU CVTRV429 01760000 CVTRV431 EQU CVTRV429 01761000 CVTRV430 EQU CVTRV429 01762000 CVTRV428 EQU CVTXTNT2+80 01763000 CVTRV427 EQU CVTXTNT2+76 01764000 CVTRV426 EQU CVTXTNT2+72 01765000 CVTRV425 EQU CVTXTNT2+68 01766000 CVTATACT EQU CVTATCVT 01767000 CVTRV423 EQU CVTXTNT2+62 01768000 CVTRV422 EQU CVTXTNT2+60 01769000 CVTRV421 EQU CVTXTNT2+58 01770000 CVTRV420 EQU CVTXTNT2+56 01771000 CVTRV419 EQU CVTXTNT2+55 01772000 CVTRV418 EQU CVTXTNT2+54 01773000 CVTRV417 EQU CVTRV409 01774000 CVTRV416 EQU CVTRV409 01775000 CVTRV415 EQU CVTRV409 01776000 CVTRV414 EQU CVTRV409 01777000 CVTRV413 EQU CVTRV409 01778000 CVTRV412 EQU CVTRV409 01779000 CVTRV411 EQU CVTRV409 01780000 CVTRV410 EQU CVTRV409 01781000 CVTRV408 EQU CVTRV400 01782000 CVTRV407 EQU CVTRV400 01783000 CVTRV406 EQU CVTRV400 01784000 CVTRV405 EQU CVTRV400 01785000 CVTRV404 EQU CVTRV400 01786000 CVTRV403 EQU CVTRV400 01787000 CVTRV402 EQU CVTRV400 01788000 CVTRV401 EQU CVTRV400 01789000 CVTICB EQU CVTXTNT2+48 01790000 CVTSKTA EQU CVTXTNT2+44 01791000 CVTSHSB EQU CVTSHS 01792000 CVTRSV98 EQU CVTXTNT2+36 01793000 CVTRSV97 EQU CVTXTNT2+34 01794000 CVTRSV96 EQU CVTXTNT2+32 01795000 CVTOLTEP EQU CVTXTNT2+28 01796000 CVTQIDA EQU CVTQID+1 01797000 CVTRSV95 EQU CVTQID 01798000 CVTRSV94 EQU CVTXTNT2+20 01799000 CVTRSV93 EQU CVTXTNT2+16 01800000 CVTRSV92 EQU CVTXTNT2+12 01801000 CVTDEBVR EQU CVTXTNT2+8 01802000 CVTRSV91 EQU CVTXTNT2+6 01803000 CVTRSV9H EQU CVTFLGBT 01804000 CVTRSV9G EQU CVTFLGBT 01805000 CVTRSV9F EQU CVTFLGBT 01806000 CVTRSV9E EQU CVTFLGBT 01807000 CVTRSV9D EQU CVTFLGBT 01808000 CVTRSV9C EQU CVTFLGBT 01809000 CVTVME EQU CVTFLGBT 01810000 CVTNPE EQU CVTFLGBT 01811000 CVTNUCLS EQU CVTXTNT2+4 01812000 CVTDSSVA EQU CVTDSSV+1 01813000 CVTRSV89 EQU CVTDSSV 01814000 CVTRSV88 EQU CVTXTNT1+8 01815000 CVTRSV87 EQU CVTXTNT1+4 01816000 CVTFACHN EQU CVTXTNT1 01817000 CVTRV488 EQU CVTMAP+412 01818000 CVTRV487 EQU CVTMAP+408 01819000 CVTRV486 EQU CVTMAP+404 01820000 CVTRV485 EQU CVTMAP+400 01821000 CVTACTAP EQU CVTMAP+396 01822000 CVTAUTH EQU CVTMAP+392 01823000 CVTATMCA EQU CVTATMCT+1 01824000 CVTATMST EQU CVTATMCT 01825000 CVTRSV61 EQU CVTMAP+384 01826000 CVTVOLT1 EQU CVTVOLM1+1 01827000 CVTVOLI1 EQU CVTVOLF1 01828000 CVTSTOA EQU CVTMAP+376 01829000 CVTRSV58 EQU CVTMAP+374 01830000 CVTRSV57 EQU CVTMAP+372 01831000 CVTDDCE EQU CVTMAP+368 01832000 CVTPNWFR EQU CVTMAP+364 01833000 CVTSMF EQU CVTMAP+360 01834000 CVTSULK EQU CVTMAP+358 01835000 CVTSLKO EQU CVTSYSK 01836000 CVTSLKP EQU CVTSYSK 01837000 CVTSLKQ EQU CVTSYSK 01838000 CVTSLKR EQU CVTSYSK 01839000 CVTRSV56 EQU CVTSYSK 01840000 CVTRSV55 EQU CVTSYSK 01841000 CVTRSV54 EQU CVTSYSK 01842000 CVTRSV53 EQU CVTSYSK 01843000 CVTRSV52 EQU CVTA1F1 01844000 CVTRSV51 EQU CVTA1F1 01845000 CVTRSV50 EQU CVTA1F1 01846000 CVTRSV49 EQU CVTA1F1 01847000 CVTRSV48 EQU CVTA1F1 01848000 CVTRSV47 EQU CVTA1F1 01849000 CVTSRSW EQU CVTA1F1 01850000 CVTPFSW EQU CVTA1F1 01851000 CVTPCVT EQU CVTMAP+352 01852000 CVTRSV46 EQU CVTMAP+344 01853000 CVTRSV45 EQU CVTMAP+340 01854000 CVTRSV44 EQU CVTMAP+338 01855000 CVTRSV43 EQU CVTMAP+336 01856000 CVTHJESA EQU CVTHJES+1 01857000 CVTRSV42 EQU CVTHJES 01858000 CVTEXT2A EQU CVTEXT2+1 01859000 CVTRSV41 EQU CVTEXT2 01860000 CVTAPFA EQU CVTAPF+1 01861000 CVTRSV40 EQU CVTAPF 01862000 CVTRV518 EQU CVTINTLA 01863000 CVTRV517 EQU CVTERPV 01864000 CVTEORM EQU CVTMAP+312 01865000 CVTMCHPR EQU CVTMAP+308 01866000 CVTTZ EQU CVTMAP+304 01867000 CVTJEPS EQU CVTMAP+300 01868000 CVTJESCT EQU CVTMAP+296 01869000 CVTMODE EQU CVTMAP+292 01870000 CVTPTRV EQU CVTMAP+288 01871000 CVTREAL EQU CVTMAP+284 01872000 CVTRSV39 EQU CVTMAP+280 01873000 CVTRSV38 EQU CVTMAP+276 01874000 CVTDMSRA EQU CVTDMSR+1 01875000 CVTRSV37 EQU CVTDMSR 01876000 CVTQMSGA EQU CVTQMSG+1 01877000 CVTRSV36 EQU CVTQMSG 01878000 CVTAMFF EQU CVTMAP+264 01879000 CVTPURGA EQU CVTPURG+1 01880000 CVTRSV35 EQU CVTPURG 01881000 CVTCBSP EQU CVTMAP+256 01882000 CVTATERA EQU CVTATER+1 01883000 CVTSYST EQU CVTATER 01884000 CVTVOLT2 EQU CVTTAT 01885000 CVTVOLI2 EQU CVTVOLF2 01886000 CVTAQAVB EQU CVTAQAVT+1 01887000 CVTRSV34 EQU CVTTCMFG 01888000 CVTRSV33 EQU CVTTCMFG 01889000 CVTRSV32 EQU CVTTCMFG 01890000 CVTRSV31 EQU CVTTCMFG 01891000 CVTRSV30 EQU CVTTCMFG 01892000 CVTRSV29 EQU CVTTCMFG 01893000 CVTRSV28 EQU CVTTCMFG 01894000 CVTTCRDY EQU CVTTCMFG 01895000 CVTGTFA EQU CVTGTF+1 01896000 CVTRSV27 EQU CVTGTFST 01897000 CVTRNIO EQU CVTGTFST 01898000 CVTUSR EQU CVTGTFST 01899000 CVTRV318 EQU CVTFORM 01900000 CVTRV317 EQU CVTTMODE 01901000 CVTRV316 EQU CVTSTATE 01902000 CVTRV315 EQU CVTGTFS 01903000 CVTGTFAV EQU CVTGTFS 01904000 CVT0SCR1 EQU CVTMAP+232 01905000 CVTRV515 EQU CVTMAP+228 01906000 CVTRMS EQU CVTMAP+224 01907000 CVTPATCH EQU CVTMAP+220 01908000 CVTTSCE EQU CVTMAP+216 01909000 CVTLNKSC EQU CVTMAP+214 01910000 CVTQABST EQU CVTMAP+212 01911000 CVTMDLDS EQU CVTMAP+208 01912000 CVTUSER EQU CVTMAP+204 01913000 CVTABEND EQU CVTMAP+200 01914000 CVTSMCA EQU CVTMAP+196 01915000 CVTRSV18 EQU CVTMAP+192 01916000 CVTQLPAQ EQU CVTMAP+188 01917000 CVTQCDSR EQU CVTMAP+184 01918000 CVTRSV17 EQU CVTOPTB 01919000 CVTRSV16 EQU CVTOPTB 01920000 CVTFP EQU CVTOPTB 01921000 CVTAPTHR EQU CVTOPTB 01922000 CVTNLOG EQU CVTOPTB 01923000 CVTTOD EQU CVTOPTB 01924000 CVTCTIMS EQU CVTOPTB 01925000 CVTPROT EQU CVTOPTB 01926000 CVTXPFP EQU CVTOPTA 01927000 CVTASCII EQU CVTOPTA 01928000 CVTRSV13 EQU CVTOPTA 01929000 CVTRSV12 EQU CVTOPTA 01930000 CVTNIP EQU CVTOPTA 01931000 CVTDDR EQU CVTOPTA 01932000 CVTAPR EQU CVTOPTA 01933000 CVTCCH EQU CVTOPTA 01934000 CVTSNCTR EQU CVTMAP+180 01935000 CVTQMWR EQU CVTMAP+176 01936000 CVTQOCR EQU CVTMAP+172 01937000 CVT1EF00 EQU CVTMAP+168 01938000 CVTMZ00 EQU CVTMAP+164 01939000 CVTHEAD EQU CVTMAP+160 01940000 CVTRSV11 EQU CVTMAP+156 01941000 CVT0PT01 EQU CVTMAP+152 01942000 CVTMSER EQU CVTMAP+148 01943000 CVTRV516 EQU CVTIERLC 01944000 CVTILCH EQU CVTMAP+140 01945000 CVT0DS EQU CVTMAP+136 01946000 CVTFBOSV EQU CVTMAP+132 01947000 CVTNUCB EQU CVTMAP+128 01948000 CVTIXAVL EQU CVTMAP+124 01949000 CVTIOQET EQU CVTMAP+120 01950000 CVTDCBA EQU CVTMAP+117 01951000 CVTMVS2 EQU CVTDCB 01952000 CVT6DAT EQU CVTDCB 01953000 CVT4MPS EQU CVTDCB 01954000 CVTRSV09 EQU CVTDCB 01955000 CVT4MS1 EQU CVTDCB 01956000 CVT2SPS EQU CVTDCB 01957000 CVT1SSS EQU CVTDCB 01958000 CVTRSV08 EQU CVTDCB 01959000 CVTSTB EQU CVTMAP+112 01960000 CVTQTD00 EQU CVTMAP+108 01961000 CVTQTE00 EQU CVTMAP+104 01962000 CVTCUCB EQU CVTMAP+100 01963000 CVTSJQ EQU CVTMAP+96 01964000 CVTPBLDL EQU CVTMAP+92 01965000 CVTTPC EQU CVTMAP+88 01966000 CVTSVDCB EQU CVTMAP+84 01967000 CVTBRET EQU CVTMAP+82 01968000 CVTEXIT EQU CVTMAP+80 01969000 CVT0FN00 EQU CVTMAP+76 01970000 CVTDARA EQU CVTDAR+1 01971000 CVTRSV07 EQU CVTFLGS1 01972000 CVTRSV06 EQU CVTFLGS1 01973000 CVTRSV05 EQU CVTFLGS1 01974000 CVTRSV04 EQU CVTFLGS1 01975000 CVTRSV03 EQU CVTFLGS1 01976000 CVTRSV02 EQU CVTFLGS1 01977000 CVTRSV01 EQU CVTFLGS1 01978000 CVTDMPLK EQU CVTFLGS1 01979000 CVTXITP EQU CVTMAP+68 01980000 CVTZDTAB EQU CVTMAP+64 01981000 CVTMSLT EQU CVTMAP+60 01982000 CVTDATE EQU CVTMAP+56 01983000 CVTBTERM EQU CVTMAP+52 01984000 CVTSYSAD EQU CVTMAP+48 01985000 CVTXTLER EQU CVTMAP+44 01986000 CVTILK2 EQU CVTMAP+40 01987000 CVTILK1 EQU CVTMAP+36 01988000 CVTPRLTV EQU CVTMAP+32 01989000 CVTPCNVT EQU CVTMAP+28 01990000 CVT0VL00 EQU CVTMAP+24 01991000 CVTXAPG EQU CVTMAP+20 01992000 CVTBUF EQU CVTMAP+16 01993000 CVTJOB EQU CVTMAP+12 01994000 CVTLINK EQU CVTMAP+8 01995000 CVT0EF00 EQU CVTMAP+4 01996000 CVTTCBP EQU CVTMAP 01997000 CVT EQU CVTMAP 01998000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01999000 @RC00083 EQU @RC00080 02000000 @ENDDATA EQU * 02001000 END ISTINCA0,(C'PLS0501',0603,75128) 02002000