TITLE 'ISTINCIB-ISTINFIB/AIB-VS1: ESTABLISH RECOVERY ENVIRONME*00001000 ENT ' 00002000 ISTINCIB CSECT , 0001 00003000 ISTINFIB DS 0H 0001 00004000 ENTRY ISTINFIB 00005000 @MAINENT DS 0H 0001 00006000 USING *,@15 0001 00007000 B @PROLOG 0001 00008000 DC AL2(@EP00001-@MAINENT) 00009000 DC AL1(16) 0001 00010000 DC C'ISTINCIB 75.129' 0001 00011000 DROP @15 00012000 @PROLOG STM @14,@12,12(@13) 0001 00013000 BALR @12,0 0001 00014000 @PSTART DS 0H 0001 00015000 USING @PSTART,@12 0001 00016000 ST @13,@SA00001+4 0001 00017000 LA @14,@SA00001 0001 00018000 ST @14,8(,@13) 0001 00019000 LR @13,@14 0001 00020000 AH @15,4(,@15) 0001 00021000 BR @15 0001 00022000 @EP00001 DS 0H 0002 00023000 * /* LOAD ADDRESS OF ABEND EXIT ROUTINE INTO STAEREG */ 00024000 * STAEREG = ADDR(ISTINCST); 0005 00025000 L STAEREG,@CV00036 0005 00026000 * /* ISSUE STAE MACRO */ 00027000 * GEN (STAE (2),CT,XCTL=YES); 0006 00028000 STAE (2),CT,XCTL=YES 00029000 * /* */ 00030000 * /* */ 00031000 * /* IF STAE RETURN CODE WAS ZERO, THEN RETURN NORMALLY */ 00032000 * /* IF NOT THEN ISSUE WTO IST016I AND RETURN WITH @XM01232*/ 00033000 * /* RETURN CODE IN REG 15. */ 00034000 * STAEREG = RETCODE; /* SAVE RETURN CODE FROM STAE*/ 00035000 LR STAEREG,RETCODE 0007 00036000 * IF RETCODE ^= 0 0008 00037000 * THEN DO; 0008 00038000 * 0008 00039000 LTR RETCODE,RETCODE 0008 00040000 BZ @RF00008 0008 00041000 */*TPMSG MSGID('016I')*/ 0010 00042000 * 0010 00043000 * DO; 0010 00044000 * DCL REG1003 REG(1) PTR; 0011 00045000 * RFY (REG1003) RSTD; 0012 00046000 * 0012 00047000 * RFY (EMCR13) RSTD; 0013 00048000 * DCL 1 * BASED(REG1003), 0014 00049000 * 2 CMZID003 PTR(31), 0014 00050000 * 2 *, 0014 00051000 * 3 CMZRL003 PTR(8), 0014 00052000 * 3 CMZRA003 PTR(24) BDY(BYTE), 0014 00053000 * 2 CMZEA003 PTR(31), 0014 00054000 * 2 CMZVP003 PTR(31); 0014 00055000 * DCL CMZPL003(4) FIXED INIT((4)0); 0015 00056000 * REG1003 = ADDR(CMZPL003); 0016 00057000 LA REG1003,CMZPL003 0016 00058000 * DCL CMZAA003 CHAR(4) INIT('016I'); 0017 00059000 * CMZID003 = ADDR(CMZAA003); 0018 00060000 LA @14,CMZAA003 0018 00061000 ST @14,CMZID003(,REG1003) 0018 00062000 * DCL CMZSA003 (18) PTR(31) BASED(EMCR13); 0019 00063000 * DCL CMZZO003 (1) FIXED(31) INIT(0); 0020 00064000 * CMZSA003(5) = CMZZO003; 0021 00065000 * 0021 00066000 MVC CMZSA003+16(4,EMCR13),CMZZO003 0021 00067000 * DCL REG15003 REG(15) PTR; 0022 00068000 * RFY REG15003 RSTD; 0023 00069000 * 0023 00070000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(REG15003)) */ 0024 00071000 * 0024 00072000 * RFY ISTPAB ; 0025 00073000 * RFY ISTLOK ; 0026 00074000 * RFY ISTDYPAB; 0027 00075000 * RFY ISTRPH ; 0028 00076000 * RFY ISTATCVT; 0029 00077000 * REG15003 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0030 00078000 L REG15003,ATCLCPTR 0030 00079000 * END; /*LISATCVT*/ 0031 00080000 * DCL CMTA003 BASED(REG15003) ENTRY VALUERANGE(*); 0032 00081000 * REG15003 = REG15003->ATCMSGP; 0033 00082000 L REG15003,ATCMSGP(,REG15003) 0033 00083000 * CALL CMTA003; 0034 00084000 BALR @14,@15 0034 00085000 * RESPECIFY (REG1003,REG15003) UNRESTRICTED; 0035 00086000 * 0035 00087000 * RFY (EMCR13) UNRSTD; 0036 00088000 * END; /* ISSUE ERROR MESSAGE @XM01232*/ 0037 00089000 * END; 0038 00090000 * ELSE; 0039 00091000 @RF00008 DS 0H 0040 00092000 * RETURN CODE(STAEREG); /* RETURN TO ISTINCBC */ 0040 00093000 * 0040 00094000 LR @15,STAEREG 0040 00095000 L @13,4(,@13) 0040 00096000 L @14,12(,@13) 0040 00097000 LM @00,@12,20(@13) 0040 00098000 BR @14 0040 00099000 */* TPEPILOG */ 0041 00100000 * GEN (PRINT OFF); 0041 00101000 * 0041 00102000 PRINT OFF 00103000 */* PROCESS ANCHOR BLOCK * 00104000 */* INITIAL LEVEL 001 01/16/75 */ 00105000 *DCL 1 ISTPAB BDY(DWORD) BASED, 0042 00106000 * 2 PABWQCHN CHAR(8) BDY(DWORD), /* CPS SWAP FIELD FOR NEQ&CHN * 00107000 * 3 PABWEQA PTR(31) BDY(WORD), /* WORK ELEMENT QUEUE ADDRESS * 00108000 * 4 PABWEQG BIT(1), /* GATING BIT * 00109000 * 4 PABRSV01 BIT(7), /* RESERVED * 00110000 * 4 PABWEQP PTR(24), /* WKEL PTR * 00111000 * 3 PABCHAIN PTR(31) BDY(WORD), /* APS CHAIN * 00112000 * 4 PABCHNG BIT(1), /* GATING BIT * 00113000 * 4 PABRESCH BIT(1), /* RESCHEDULE PAB AT 0042 00114000 * TPEXIT * 00115000 * 4 PABCDP BIT(1), /* CLOSE DST/CHANGE IN PROGRESS* 00116000 * 4 PABUNCON BIT(1), /* UNCONDITIONALLY RESCHEDULE 00117000 * PAB AT TPEXIT * 00118000 * 4 PABRESET BIT(1), /* RESET ISSUED ON THIS PAB * 00119000 * 4 PABRUNNG BIT(1), /* PAB RUNNING * 00120000 * 4 PABRSV02 BIT(2), /* RESERVED * 00121000 * 4 PABCHNGP PTR(24), /* PSS CHAIN PTR * 00122000 * 2 PABOFFST PTR(8), /* OFFSET FROM CONTROL BLOCK * 00123000 * 2 PABDVTA PTR(24), /* DVT ADDRESS * 00124000 * 2 PABRPHFG PTR(31), /* SCHED FLAGS AND RPH * 00125000 * 3 PABFLAGS BIT(8), /* SCHEDULING FLAGS * 00126000 * 4 PABAPYP BIT(1), /* APPLICATION IS A USER EXIT * 00127000 * 4 PABPRIOR BIT(1), /* IMMEDIATE PRIORITY * 00128000 * 4 PABNORPR BIT(1), /* NORMAL PRIORITY - * 00129000 * /* RESCHEDUALABLE * 00130000 * 4 PABDYNAM BIT(1), /* DYNAMIC * 00131000 * 4 PABSSN BIT(1), /* SYSTEM SERVICES * 00132000 * 4 PABERLCK BIT(1), /* PAB ERROR LOCK FLAG * 00133000 * 5 PABERRLK BIT(1), /* ERROR LOCK * 00134000 * 6 PABERLOK BIT(1), /* ERROR LOCK * 00135000 */* ABNORMAL TO ALLOW VARY COMPARE AND SWAP * 00136000 * 4 PABINHBT BIT(1) ABNL,/* 1=INHIBIT TRAFFIC,0=NO * 00137000 * 4 PABNODQ BIT(1), /* DO NOT DEQ WORK ELEMENT * 00138000 * 3 PABRPHA PTR(24); /* RPL HEADER ADDRESS * 00139000 *DCL PABWEQG0 BIT(32) CONSTANT('7FFFFFFF'X), /* TURN PABWEQG OFF * 00140000 * PABWEQG1 BIT(32) CONSTANT('80000000'X), /* TURN PABWEQG ON * 00141000 * PABCHNG0 BIT(32) CONSTANT('7FFFFFFF'X), /* TURN PABCHNG OFF * 00142000 * PABCHNG1 BIT(32) CONSTANT('80000000'X), /* TURN PABCHNG ON * 00143000 * PABRESC0 BIT(32) CONSTANT('BFFFFFFF'X), /* TURN PABRESCH OFF * 00144000 * PABRESC1 BIT(32) CONSTANT('40000000'X), /* TURN PABRESCH ON * 00145000 * PABCDP0 BIT(32) CONSTANT ('DFFFFFFF'X), /* TURN PABCDP OFF * 00146000 * PABCDP1 BIT(32) CONSTANT ('20000000'X), /* TURN PABCDP ON * 00147000 * PABERLK0 BIT(32) CONSTANT('FBFFFFFF'X), /* TURN PABERRLK ON * 00148000 * PABERLK1 BIT(32) CONSTANT('04000000'X), /* TURN PABERRLK OFF * 00149000 * PABUNCO0 BIT(32) CONSTANT('EFFFFFFF'X), /* TURN PABUNCON OFF * 00150000 * PABUNCO1 BIT(32) CONSTANT('10000000'X), /* TURN PABUNCON ON * 00151000 * PABPRIR0 BIT(32) CONSTANT('BFFFFFFF'X), /* TURN PAB PRIOR OFF * 00152000 * PABPRIR1 BIT(32) CONSTANT('40000000'X), /* TURN PAB PRIOR ON * 00153000 * PABRST0 BIT(32) CONSTANT('F7FFFFFF'X), /* TURN PABRESET OFF * 00154000 * PABRST1 BIT(32) CONSTANT('08000000'X); /* TURN PABRESET ON * 00155000 */* LOCKWORD FORMAT DSECT */ 00156000 */* INITIAL LEVEL 001 05/24/74 */ 00157000 *DCL 1 ISTLOK BDY(WORD) BASED, 0044 00158000 * 2 LOKCT CHAR(1) BDY(WORD), /* COUNT OF LOCK OWNERS */ 00159000 * 2 LOKCHN PTR(24), /* ADDR OF NEXT RPH WAITING 00160000 * ON LOCK */ 00161000 * 3 LOKCHNG CHAR(3), /* CHAIN/FLAGS */ 00162000 * 4 * CHAR(2), 0044 00163000 * 4 * BIT(8), 0044 00164000 * 5 * BIT(6), 0044 00165000 * 5 LOKPRY BIT(1), /* PRIORITY FLAG, 1 = ON */ 00166000 * 5 LOKXCL BIT(1); /* EXCLUSIVE FLAG, 1 = ON */ 00167000 *DCL LOKXCL1 BIT(32) CONSTANT('00000001'X); /* CONSTANT TO TURN LOKXCL 00168000 * ON */ 00169000 *DCL LOKPRY1 BIT(32) CONSTANT('00000002'X); /* CONSTANT TO TURN LOKPRY 00170000 * ON */ 00171000 *DCL LOKCHN1 BIT(32) CONSTANT('00FFFFFC'X); /* CONSTANT TO TURN LOKXCL 00172000 * AND LOKPRY OFF */ 00173000 *DCL LOKCT1 BIT(32) CONSTANT('01000000'X); /* CONSTANT TO MAKE LOKCT 00174000 * = 1 */ 00175000 *DCL LOKCT255 BIT(32) CONSTANT('FF000000'X); /* CONSTANT TO CHECK FOR 00176000 * MAX LOKCT (255) */ 00177000 * /* DYNAMIC PAB 1K633 */ 0050 00178000 * /* 1K0997 JAN 20, 1973 MB */ 0050 00179000 * /* 1K1142 MAR 03, 1973 MB */ 0050 00180000 * DCL 1 ISTDYPAB BDY(DWORD) BASED, /* LEVEL 1 DECLARE 1K633 */ 0050 00181000 * 2 DYPTYPE CHAR(1), /* CONTROL BLOCK TYPE CODE 1K633 */ 0050 00182000 * 2 DYPLNGTH PTR(8), /* CONTROL BLOCK LENGTH (BYTES) 1K633 */ 00183000 * 2 DYPFLGS CHAR(2), /* FLAGS 1K633 */ 0050 00184000 * 2 DYPCHAIN PTR(31), /* CHAIN POINTER 1K633 */ 0050 00185000 * 2 DYPTSKID PTR(31), /* TASKID OR PTR TO PSS TABLES 1K633 */ 00186000 * 2 DYPRSV01 PTR(31), /* RESERVED TO PRESERVE ALIGNMENT 0050 00187000 * 1K0997 */ 00188000 * 2 DYPPAB CHAR(LENGTH(ISTPAB)) BDY(DWORD); /* LENGTH OF 1K0997 00189000 * PAB */ 00190000 *DCL DYTYP BIT(8) CONSTANT ('11'X); /* TYPE 1K1142 */ 00191000 */* RPL HEADER * 00192000 */* REVISIONS 006 04/09/75 * 00193000 *DCL RPHPTR PTR(31) REGISTER(1) RESTRICTED; 0052 00194000 *DCL 1 ISTRPH BDY(WORD) BASED(RPHPTR), 0053 00195000 * 2 RPHTYPE CHAR(1), /* CONTROL BLOCK TYPE * 00196000 * 2 RPHLNGTH PTR(8), /* LENGTH IN BYTES * 00197000 * 2 RPHFLAGS BIT(8), /* SYSTEM DEPENDENT FLAGS * 00198000 * 3 RPHOGIND BIT(1), /* OPEN GATE INDICATOR * 00199000 * 3 RPHSPGIN BIT(1), /* SPECIAL GATE OPEN IND. * 00200000 * 3 RPHAPTYP BIT(1), /* APS IS A USER EXIT * 00201000 * 4 RPHAUTEX BIT(1), /*EXIT TO AUTHORIZED USER VS2 * 00202000 * 3 RPHSMQ BIT(1), /* INDICATOR IF RPH IS TO BE * 00203000 * /* QUEUED * 00204000 * 3 RPHSMTYP BIT(1), /* REQUEST TYPE IS BUFFER OR * 00205000 * /* DOUBLE-WORD * 00206000 * 3 RPHSMCLR BIT(1), /* INDICATOR IF BUFFER TO BE * 00207000 * /* CLEARED * 00208000 * 3 RPHMLTCP BIT(1), /* USED BY LOCAL 3270 SUPPORT * 00209000 * /* WHEN BUILDING MULTIPLE CHAN * 00210000 * /* PROGRAM * 00211000 * 3 RPHFSTLC BIT(1), /* USED BY LOCAL 3270 SUPPORT * 00212000 * /* TO INDICATE FIRST LCCW * 00213000 * 4 RPHFNFLG BIT(1), /* LCCW SET FUNCTION FLAGS * 00214000 * 2 RPHFLGB BIT(8), /* SECOND FLAG BYTE * 00215000 * 3 RPHLOCK BIT(1), /* LOCKING OPTION * 00216000 * 3 RPHBSSP BIT(1), /* SYSTEM SERVICES PROGRESS * 00217000 * 3 RPHFBAPS BIT(1), /* STG. OBTAINED BY APS * 00218000 * 3 RPHPGCMP BIT(1), /* BIT ON INDICATES RESOURCE * 00219000 * /* MGR HAS COMPLETED UNLOCK * 00220000 * 3 RPHNRSAV BIT(1), /* DO NOT SAVE ON ACTIVATE * 00221000 * 3 RPHRLCRA BIT(1), /* RPH CAN BE RELEASED * 00222000 * /* WHEN PURGE COMPLETE * 00223000 * 3 * BIT(2), /* RESERVED * 00224000 * 2 RPHRPHA PTR(31), /* ADDR.OF NEXT RPL HEADER * 00225000 * 3 RPHGATE BIT(1), /* GATING FLAG * 00226000 * 3 * BIT(7), /* RESERVED * 00227000 * 3 RPHRPHAP PTR(24), 0053 00228000 * 2 RPHTSKID PTR(31), /* TASK IDENTIFICATION * 00229000 * /* OR ADDR.OF APS TABLE * 00230000 * 3 * CHAR(3), /* RPH TSK ID * 00231000 * 3 RPHTIK PTR(8), /* TIK * 00232000 * 2 RPHDVTA PTR(31), /* ADDR.OF CURRENT DVT * 00233000 * 2 RPHRESMA PTR(31) BDY(WORD), /* TPWAIT-POST INFO */ 0053 00234000 * 3 RPHWPFLG CHAR(1), /* WAIT-POST FLAGS */ 0053 00235000 * 4 RPHRSKEY BIT(4), /* STORAGE PROTECT KEY TO RESUME 00236000 * PROCESSING * 00237000 * 4 RPHWT BIT(1), /* WAIT BIT */ 0053 00238000 * 4 RPHPT BIT(1), /* POST BIT */ 0053 00239000 * 4 RPHPURGE BIT(1), /* RPH FLAGGED BY RECOVERY */ 00240000 * /* TO BE PURGED BY PSS */ 00241000 * /* VS/2 ONLY */ 00242000 * 4 RPHRSV01 BIT(1), /* RESERVED */ 00243000 * 3 RPHRESUM PTR(24), /* RESUME ADDRESS */ 0053 00244000 * 2 RPHPABOF PTR(8), /* OFFSET OF PAB IN CONTROL BLK* 00245000 * 2 RPHMAJCB PTR(24), /* ADDR.OF MAJOR CONTROL BLOCK * 00246000 * 2 RPHWEA PTR(31), /* ADDR.OF WORK ELEMENT * 00247000 * 3 RPHCSPA PTR(31), /* ADDR OF ISTCSP * 00248000 * 4 RPHWEGT BIT(1), /* GATE FOR WORK ELEMENT PROC. * 00249000 * 2 RPHSRPRM PTR(31), /* SERVICE ROUTINE PARM.FIELD * 00250000 * 3 RPHSRP12 FIXED(15), /* COUNT OF Q'ED SMS REQUESTS * 00251000 * 3 RPHSRP34 FIXED(15), /* SIZE OF Q'ED SMS REQUESTS * 00252000 * 2 RPHCRR PTR(31), /* ADDR.OF COMPONENT RECOVERY * 00253000 * /* RECORD * 00254000 * 2 RPHPABQA PTR(31), /* PAB QUEUE ADDRESS * 00255000 * 3 RPHPABFG CHAR(1), /* FLAG BYTE CARRIED FROM PAB * 00256000 * 3 RPHPABQP PTR(24), /* POINTER TO QUEUE OF PAB'S * 00257000 * 2 RPHWORK CHAR(64) BDY(WORD), /* 16 WORD WORK AREA * 00258000 * 3 RPHSAVE1 FIXED(31), /* * 00259000 * 4 RPHSBYTE CHAR(1), /* 1-BYTE SAVE FIELD * 00260000 * 4 RPHSBITS BIT(8), /* SAVE FIELD FOR FLAG BYTE * 00261000 * 5 RPHSBIT1 BIT(1), /* 1ST SAVE FIELD * 00262000 * 5 RPHSBIT2 BIT(1), /* 2ND SAVE FIELD * 00263000 * 5 RPHSBIT3 BIT(1), /* 3RD SAVE FIELD * 00264000 * 5 RPHSBIT4 BIT(1), /* 4TH SAVE FIELD * 00265000 * 5 RPHSBIT5 BIT(1), /* 5TH SAVE FIELD * 00266000 * 5 RPHSBIT6 BIT(1), /* 6TH SAVE FIELD * 00267000 * 5 RPHSBIT7 BIT(1), /* 7TH SAVE FIELD * 00268000 * 5 RPHSBIT8 BIT(1), /* 8TH SAVE FIELD * 00269000 * 4 RPHSHALF FIXED(15), /* HALF WORD SAVE AREA * 00270000 * 3 RPHSAVE2 FIXED(31), /* * 00271000 * 3 RPHSAVE3 FIXED(31), /* * 00272000 * 3 RPHSAVE4 FIXED(31), /* * 00273000 * 3 RPHSAVE5 FIXED(31), /* * 00274000 * 3 RPHSAVE6 FIXED(31), /* * 00275000 * 3 RPHSAVE7 FIXED(31), /* * 00276000 * 3 RPHSAVE8 FIXED(31), /* * 00277000 * 3 RPHSAVE9 FIXED(31), /* * 00278000 * 3 RPHSAV10 FIXED(31), /* * 00279000 * 3 RPHSAV11 FIXED(31), /* * 00280000 * 3 RPHSAV12 FIXED(31), /* * 00281000 * 3 RPHSAV13 FIXED(31), /* * 00282000 * 3 RPHSAV14 FIXED(31), /* * 00283000 * 3 RPHSAV15 FIXED(31), /* * 00284000 * 3 RPHSAV16 FIXED(31), /* * 00285000 * 2 RPHNEXPO PTR(31); /* ADDR.NEXT RPH TO BE POSTED * 00286000 * DCL RPTYPE BIT(8) CONSTANT('01'X); /* TYPE CODE FOR RPH * 00287000 * DCL RPHWT0 BIT(32) CONSTANT('F7FFFFFF'X); /* TURN RPHWT OFF */ 0055 00288000 * DCL RPHWT1 BIT(32) CONSTANT('08000000'X); /* TURN RPHWT ON */ 0056 00289000 * DCL RPHPT0 BIT(32) CONSTANT('FBFFFFFF'X); /* TURN RPHPT OFF */ 0057 00290000 * DCL RPHPT1 BIT(32) CONSTANT('04000000'X); /* TURN RPHPT ON */ 0058 00291000 * DCL RPHPABQ1 BIT(24) CONSTANT('000000'X); /* TURN RPHPBQ GATE */ 0059 00292000 */* REVISIONS 011 04/25/75 * 00293000 *DCL ATCLCPTR PTR LOCATION(1032); /* POINTER TO ATCVT * 00294000 *DCL 1 ISTATCVT BDY(DWORD) BASED, 0061 00295000 * 2 ATCCOM BDY(WORD), /* SYSTEM INDEPENDENT FIELDS * 00296000 * 3 ATCSTAT CHAR(4), /* VTAM STATUS INDICATORS * 00297000 * 4 ATCSTAT1 CHAR(1), /* VTAM STATUS BYTE 1 * 00298000 * 5 ATCSTART BIT(1), /* VTAM IS STARTING * 00299000 * 5 ATCACTIV BIT(1), /* VTAM IS ACTIVE * 00300000 * 5 ATCSNHLT BIT(1), /* VTAM SESSION HALT * 00301000 * 5 ATCQKHLT BIT(1), /* VTAM QUICK HALT * 00302000 * 5 ATCNETSL BIT(1), /* NETSOL=YES SPECIFIED ON CMD * 00303000 * 5 ATCINHLT BIT(1), /* INTERNAL VTAM HALT QUICK * 00304000 * 5 * BIT(2), /* RESERVED * 00305000 * 4 ATCSTFLG BIT(8), /* STORAGE MANAGEMENT FLAGS * 00306000 * 5 ATCHSDMF BIT(1), /* SYSTEM SLOW DOWN FLAG * 00307000 * 4 ATCPOFLG BIT(8), /* PROGRAM OPERATOR * 00308000 * /* INTERFACE FLAGS * 00309000 * 5 ATCPOUNS BIT(1), /* APPLICATION AUTHORIZED TO * 00310000 * /* RECEIVE UNSOLICITED MESSAGES* 00311000 * /* 1 = YES * 00312000 * 5 * BIT(7), /* RESERVED * 00313000 * 4 ATCSTAT4 CHAR(1), /* VTAM STATUS BYTE 4 * 00314000 * 5 ATCPRTAT BIT(1), /* 1 = TRACE PRINT ACTIVE, 0061 00315000 * 0 = NOT ACTIVE * 00316000 * 5 ATCTPRT BIT(1), /* WHEN 1, TPRINT IN PROCESS * 00317000 * 5 ATCMTST BIT(1), /* WHEN 1, MODIFY TEST IN 0061 00318000 * PROCESS * 00319000 * 5 ATCNCSD BIT(1), /* NCS QUIESCED DURING HALT * 00320000 * 5 ATCRSV04 BIT(4), /* RESERVED * 00321000 * 3 ATCAPI PTR(31), /* ADDR OF API ROUTINE * 00322000 * 3 ATCDCFRR PTR(31), /* POINTER TO FRR OF CONTROL 00323000 * LAYER,INITIALIZED BY OPENDST* 00324000 * 3 ATCRDT PTR(31), /* POINTER TO FIRST RDT * 00325000 * 3 ATCSRT PTR(31), /* POINTER TO SRT DIRECTORY * 00326000 * 3 ATCASCHD PTR(31), /* POINTER TO AP SCHEDULER * 00327000 * 3 ATCECMOD CHAR(4), /* ECB FOR MODIFY COMMAND PROC.* 00328000 * 3 ATCMODQ PTR(31), /* POINTER FOR OUTPUT QUEUE * 00329000 * /* FOR MODIFY COMMAND * 00330000 * 3 ATCECHLT CHAR(4), /* ECB FOR HALT COMMAND * 00331000 * 3 ATCHALTQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00332000 * /* FOR HALT COMMAND * 00333000 * 3 ATCECVRY CHAR(4), /* ECB FOR VARY COMMAND PROC. * 00334000 * 3 ATCVARYQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00335000 * /* FOR VARY COMMAND * 00336000 * 3 ATCECDSP CHAR(4), /* ECB FOR DISPLAY COMMAND * 00337000 * 3 ATCDSPLQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00338000 * /* FOR DISPLAY COMMAND * 00339000 * 3 ATCOCHA PTR(31), /* POINTER TO OCT HEADER * 00340000 * 3 ATCECSES CHAR(4), /* ECB TO HALT SESSION MODE * 00341000 * 3 ATCECVRQ CHAR(4), /* ERP ECB FOR VARY REQ. INFO. * 00342000 * /* REQUEST NOTIFICATION * 00343000 * 3 ATCVPARM PTR(31), /* ADDR OF VARY PARAMETERS * 00344000 * 3 ATCECOPC CHAR(4), /* ECB TOINDICATE OPERATOR * 00345000 * /* CONTROL PROCESSING COMPLETE * 00346000 * 3 ATCECNET CHAR(4), /* ERP ECB FOR NETWORK * 00347000 * /* CONFIGURATION REQUEST * 00348000 * 3 ATCECPRM PTR(31), /* POINTER TO QAB FOR ERP'S * 00349000 * /* ECB PARAMETERS * 00350000 * 3 ATCHLTMS PTR(31), /* POINTER TO HALT COMMAND * 00351000 * /* OR HALT RETURN MESSAGE * 00352000 * 3 ATCFSB PTR(31), /* PTR TO FEEDBACK STATUS * 00353000 * /* BLOCK * 00354000 * 3 ATCFRSCH PTR(31), /* POINTER TO FEEDBACK * 00355000 * /* ROUTINE SCHEDULER * 00356000 * 3 ATCRDTH PTR(31), /* POINTER RDT HEADER * 00357000 * 3 ATCACCTA PTR(31), /* POINTER TO INSTALLATION * 00358000 * /* ACCOUNTING ROUTINE * 00359000 * 3 ATCAUTHA PTR(31), /* POINTER TO INSTALLATION * 00360000 * /* AUTHORISATION ROUTINE * 00361000 * 3 ATCPTCHA PTR(31), /* PTR TO VTAM PATCH AREA * 00362000 * 3 ATCCONFT PTR(31), /* POINTER TO VTAM * 00363000 * /* CONFIGURATION TABLE * 00364000 * 3 ATCFDVT PTR(31), /* PTR TO FIRST DVT FOR O/C * 00365000 * 3 ATCFEPT PTR(31), /* PTR TO FIRST EPT FOR O/C * 00366000 * 3 ATCDVTPT PTR(31), /* ADDR OF LOAD MOD FOR * 00367000 * /* TYPE=VTAM TRACING * 00368000 * 3 ATCBPDA PTR(31), /* PTR TO BUFFER POOL DIRECTORY* 00369000 * 3 ATCADD PTR(31), /* POINTER TO ADD PROCEDURE * 00370000 * 3 ATCREMOV PTR(31), /* POINTER TO REMOVE PROCEDURE * 00371000 * 3 ATCIOTRC PTR(31), /* POINTER TO I/O TRACE * 00372000 * /* PROCEDURE * 00373000 * 4 ATCTHTRC PTR(31), /* ADDR OF TH TRACE ROUTINE * 00374000 * 5 ATCTPBUF PTR(31), /* TPIOS BUFFER TRACE(ISTRARTP)* 00375000 * 3 ATCBFTRC PTR(31), /* PTR TO BUFFER TRACE * 00376000 * /* PROCEDURE * 00377000 * 3 ATCFBRPH PTR(31), /* ADDR OF FEEDBACK PROC RPH * 00378000 * 3 ATCBLDLA PTR(31), /* ADDR OF BLDL ROUTINE * 00379000 * 3 ATCALOAD PTR(31), /* ADDR OF ALOAD ROUTINE * 00380000 * 3 ATCREADA PTR(31), /* ADDR OF SOURCE READ ROUTINE * 00381000 * 3 ATCGTSTR PTR(31), /* ADDR OF GETSTOR ROUTINE * 00382000 * 3 ATCFRSTR PTR(31), /* ADDR OF FREESTOR ROUTINE * 00383000 * 3 ATCSTMA PTR(31), /* ADDR OF SM INITIALIZATION * 00384000 * /* ROUTINE * 00385000 * 3 ATCACDA PTR(31), /* ADDR OF FIRST ACDEB * 00386000 * 3 ATCSMRQ PTR(31), /* ADDR OF REQUEST STORAGE * 00387000 * /* ROUTINE * 00388000 * 3 ATCSMQU PTR(31), /* ADDR OF QUEUE REQUEST RTNE 00389000 * - DOS ONLY * 00390000 * 3 ATCSMRS PTR(31), /* ADDR OF RELEASE STORAGE * 00391000 * /* ROUTINE * 00392000 * 3 ATCSMRC PTR(31), /* ADDR OF RECOVER STORAGE * 00393000 * /* ROUTINE - DOS ONLY * 00394000 * 3 ATCSMBQ PTR(31), /* PTR TO Q'ED REQ. SMS RTN. * 00395000 * 3 ATCFIRA PTR(31), /* ADDR OF FEEDBACK INITIATION * 00396000 * /* RPH * 00397000 * 3 ATCSRTAD PTR(31), /* PTR TO SRTADD ROUTINE * 00398000 * 3 ATCSRTDF PTR(31), /* PTR TO SRTDELE ROUTN * 00399000 * 3 ATCDCC60 PTR(31), /* PTR TO ISTDCC60 - CTL. LAYER 00400000 * MOVE TO USER AREA * 00401000 * 3 ATCDCC61 PTR(31), /* PTR TO ISTDCC61 - CTL. LAYER 00402000 * MOVE FIXED TO PAGABLE * 00403000 */* BEGIN 'ANY' DVT * 00404000 * 3 ATCNERST PTR(31), /* PTR TO ISTDCC00 - REQUEST-ST* 00405000 * 3 ATCNERCV PTR(31), /* PTR TO ISTRCC21-RECEIVE OB * 00406000 * 3 ATCNERNE PTR(31), /* PTR TO ISTDCC25 - READ-ANY * 00407000 * 3 ATCNERFN PTR(31), /* PTR TO ISTDCC02 - REQUEST-FN * 00408000 */* END 'ANY' DVT * 00409000 * 3 ATCAPOST PTR(31), /* PTR TO VTAM POST ROUTINE * 00410000 * 3 ATCVTMID CHAR(2), /* HOST MAJOR NODE I.D. * 00411000 * 3 ATCRSV11 CHAR(2), /* RESERVED * 00412000 * 3 ATCRCC63 PTR(31), /* HSKPANYQ POINTER * 00413000 * 3 ATCRCC26 PTR(31), /* SEND RESPONSE POINTER * 00414000 * 3 ATCRCC65 PTR(31), /* SET RPL POINTER * 00415000 * 3 ATCNESAL PTR(31), /* PTR TO ISTDCC24 - SOLICIT-ALL* 00416000 * 3 ATCNERAP PTR(31), /* PTR TO ISTDCC85 - READ ANY 00417000 * PURGE * 00418000 * 3 ATCACTRM FIXED(15), /* COUNT OF ACTIVE TERMINALS * 00419000 * 3 ATCCIDM BIT(16), /* CID MASK * 00420000 * 3 ATCMSGSP BIT(8), /* RESERVED FOR MESAGE SURPRESSION * 00421000 * 2 ATCMAXID PTR(8), /* MAXIMUM NUMBER OF MAJOR NODES, 0 = 00422000 * NUMBER OF ENTRIES IN THE MNT * 00423000 * 2 ATCRSV16 CHAR(2), /* NOT USED * 00424000 * 2 ATCMNT PTR(31), /*PTR TO MAJOR NODE TABLE -SET BY SYS. 00425000 * DEF. REF. BY ISTSDCCB (CBDEF), 0061 00426000 * ISTSDCCI (CINDEXY) * 00427000 * 2 ATCCDADD PTR(31), /*PTR TO CIDADD ROUTINE ISTSDCCA 0061 00428000 * REF. BY CIDCTL MACRO * 00429000 * 2 ATCCDDEL PTR(31), /*PTR TO CIDDEL ROUTINE ISTSDCCD 0061 00430000 * REF. BY CIDCTL MACRO * 00431000 * 2 ATCCDFND PTR(31), /*PTR TO CIDFND ROUTINE IATSDCCF 0061 00432000 * REF. BY CIDCTL MACRO * 00433000 * 2 ATCESC01 PTR(31), /*PTR TO ESC01 * 00434000 * 2 ATCESC02 PTR(31), /*PTR TO ESC02 * 00435000 * 2 ATCCSMR PTR(31), /* PTR TO CONNECTION SERVICES * 00436000 * /* MASTER ROUTINE * 00437000 * 3 ATCCSMA PTR(31), /* PTR TO CONNECTION SERVICES 0061 00438000 * MASTER ROUTINE * 00439000 * 2 ATCOCRT PTR(31), /* PTR TO OPEN/CLOSE ROUTINE * 00440000 * 2 ATCUEP PTR(31), /* POINTER TO USER EXIT * 00441000 * 2 ATCSHRTN CHAR(8), /* NAME OF VTAM SHARED RTN * 00442000 * /* TO BE LOADED * 00443000 * 2 ATCSHRFG BIT(8), /* ATTRIBUTE FLAGS * 00444000 * 3 ATCLAST BIT(1), /* INDICATE HTIS IS LAST MODULE * 00445000 * 2 ATCXRANG CHAR(1), /* NUMBER OT BITS IN X-VALUE 0061 00446000 * PORTION OF CID * 00447000 * 2 ATCSAF CHAR(2), /* SUB AREA ADDRESS FIELD * 00448000 * 2 ATCEPA PTR(31), /* ENTRY POINT ADDR OF LOADED * 00449000 * 2 ATCALERT PTR(31), /* POINTER TO ALERT-ROUTINE 0061 00450000 * ISTSDCAL * 00451000 * 2 ATCDVLOD PTR(31), /* PTR TO ISTSDCOD * 00452000 * 2 ATCTRCPT PTR(31), /* POINTER TO TRACE PARM LIST * 00453000 * 2 ATCDVT PTR(31), /* POINTER TO FIRST DVT ON CHAIN * 00454000 * 2 ATCEPT PTR(31), /* POINTER TO FIRST EPT ON CHAIN * 00455000 * 2 ATCMSGP PTR(31), /* POINTER TO TPMSG PROCESSOR * 00456000 * 2 ATCMSGM PTR(31), /* POINTER TO TPMSG - MESSAGE 0061 00457000 * CSECT * 00458000 * 2 ATCTRPAB PTR(31), /* ADDRESS OF TRACE WRITER PAB * 00459000 * 2 ATCVTLOD PTR(31), /* ADDR OF VTAM LOAD LIST * 00460000 * 2 ATCECPRT CHAR(4), /* ECB FOR TRACE FILE PRINT * 00461000 * 2 ATCZDVTB PTR(31), /* ADDRESS OF ISTZCFBI * 00462000 * 2 ATCECTLP CHAR(4), /* TOLTEP ECB * 00463000 * 2 ATCRVCHS CHAR(8), /* RESERVED * 00464000 * 2 ATCCRME PTR(31), /* VARY PSS CONTROL MECHANISM * 00465000 * 2 ATCHPGM, /* BUFFER INFORMATION */ 00466000 * 3 ATCHBFNO FIXED(15), /* NUMBER OF BUFFS FOR CHANNEL */ 00467000 * 3 ATCHBSIZ FIXED(15), /* BUFFER SIZE IN BYTES */ 00468000 * 2 ATCDEBCH PTR(31), /* CLOSE DEB CHAIN PTR */ 00469000 * 2 ATCTODVT PTR(31), /* THE TOLTEP DVT PTR POINTED 0061 00470000 * TO BY 3RD WORD OF PAB */ 00471000 * 2 ATCADEL PTR(31), /* A DELETE ROUTINE ADDRESS */ 00472000 * 2 ATCCDPTR PTR(31), /* PTR TO ISTOCCCD - DOS ONLY */ 00473000 * 2 ATCLDNCS PTR(31), /* PTR TO NCSPL FOR LOAD/DUMP */ 00474000 * 2 ATCLDECB BIT(32), /* ECB FOR LOAD/DUMP SUBTASK */ 00475000 * 2 ATCRSV99 CHAR(32), /* RESERVED FOR LATER POINTERS */ 00476000 * 2 ATCAP33 PTR(31), /* PTR TO ISTAPC33 */ 00477000 * 2 ATCAP35 PTR(31), /* PTR TO ISTAPC35 */ 00478000 * 2 ATCAP36 PTR(31), /* PTR TO ISTAPC36 */ 00479000 * 2 ATCDVTLK CHAR(LENGTH(ISTLOK)), /* LOCK WORD FOR DVT LOCK */ 00480000 * 2 ATCCDFIN PTR(31), /* POINTER TO ISTSDCRR */ 00481000 * 2 ATCCDFDN PTR(31), /* POINTER TO ISTSDCCN */ 00482000 * 2 ATCVOCLK CHAR(LENGTH(ISTLOK)), /* VOCLOCK LOCK */ 00483000 * 2 ATCRDTLK CHAR(LENGTH(ISTLOK)), /* RDTLOCK LOCK */ 00484000 * 2 ATCRSV97 PTR(31), /* DWORD ALIGNMENT */ 00485000 * 2 ATCVPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR VARY 00486000 * UNDER PSS CONTROL */ 00487000 * 2 ATCPGPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* ERP PAB FOR 00488000 * PURGE */ 00489000 * 2 ATCDLRPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* DUMP LOAD & 00490000 * RESTART PAB */ 00491000 * 2 ATCCCLAD PTR(31), /* ADDRESS OF VARY ERP (ISTINCCL)*/ 00492000 * 2 ATCCDLAD PTR(31), /* ADDRESS OF VARY DUMP,LD RSTRT 00493000 * (ISTINCDL) */ 00494000 * 2 ATCOCCOB PTR(31), /* ADDRESS ISTOCCOB */ 00495000 * 2 ATCOCCCB PTR(31), /* ADDRESS ISTOCCCB */ 00496000 * 2 ATCTIPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0061 00497000 * FOR ISTOLTP */ 00498000 * 2 ATCTCIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0061 00499000 * FOR TOLTEP CLIP */ 00500000 * 2 ATCVTIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0061 00501000 * FOR TOLTEP-VTAM INTERFACE*/ 00502000 * 2 ATCTCLOM PTR(31), /* ADDR TOLTEP CLOP PROC */ 00503000 * 2 ATCTCLIM PTR(31), /* ADDR TOLTEP CLIP PROC */ 00504000 * 2 ATCVTINM PTR(31), /* ADDR TOLTEP-VTAM INTF PROC */ 00505000 * 2 ATCTACB PTR(31), /* TOLTEP ACB */ 00506000 * 2 ATCRSV10 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* RESERVED */ 00507000 * 2 ATCPTR00 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB */ 00508000 * 2 ATCCFEAD PTR(31), /* ADDR OF ISTINCFE */ 00509000 * 2 ATCVLCNT CHAR(4) BDY(HWORD), /* VARY DEVICE ONLINE COUNTS*/ 00510000 * 3 ATCRNCNT PTR(16), /* 370X COUNT */ 00511000 * 3 ATCLCLCT PTR(16), /* 3270 COUNT */ 00512000 * 2 ATCS49XI PTR(31), /* ADDRESS OF ISTPICXI */ 00513000 * 2 ATCS49XL PTR(31), /* ADDRESS OF ISTPICXL */ 00514000 * 2 ATCPODVT PTR(31), /* PTR TO PROGRAM OPERATOR DVT*/ 00515000 * 2 ATCPOIA PTR(31), /* PTR TO PROGRAM OPERATOR */ 00516000 * /* INTERFACE AREA */ 00517000 * 2 ATCSOPD CHAR(8) BDY(WORD), /* SESSION CONTROL */ 00518000 * 3 ATCSEC01 PTR(31), /* OUTBOUND PROCESSING */ 00519000 * 3 ATCSEC10 PTR(31), /* DVT */ 00520000 * 2 ATCSIPD CHAR(12) BDY(WORD),/* SESSION CONTROL */ 00521000 * 3 ATCSEC21 PTR(31), /* INBOUND PROCESSING */ 00522000 * 3 ATCSEC30 PTR(31), /* FEEDBACK */ 00523000 * 3 ATCSEC40 PTR(31), /* DVT */ 00524000 * 2 ATCSECST CHAR(4) BDY(WORD),/* SESSION CONTROLSESS TERM */ 00525000 * 3 ATCSEC51 PTR(31), /* RECOVERY DVT */ 00526000 * 2 ATCNMCTR FIXED(15), /* NAME COUNTER */ 00527000 * 2 * FIXED(15), /* RESERVED */ 00528000 * 2 ATCSRTAB PTR(31), /* SEARCH LOGON MODE TABLE */ 00529000 * /* RTN ADDRESS (ISTINCSH) */ 00530000 * 2 ATCUSSPT PTR(31), /* DEFAULT USS DEFINITION */ 00531000 * /* TABLE ADDRESS (ISTINCDT) */ 00532000 * 2 ATCMODTB PTR(31), /* DEFAULT SYSTEM LOGON MODE */ 00533000 * /* TABLE ADDRESS (ISTINCLM) */ 00534000 * 2 ATCINCW3 PTR(31), /* ADDRESS OF ISTINCW3 */ 00535000 * 2 ATCIOECB PTR(31), /* ECB USED BY IOS - */ 00536000 * /* POINTED TO BY IOBECBPT */ 00537000 * 2 ATCVDPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0061 00538000 * /* SSCP COMMAND PROCESSING PAB */ 00539000 * 2 ATCVFPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0061 00540000 * /* SSCP FRONT END PAB */ 00541000 * 2 ATCVDLOK CHAR(LENGTH(ISTLOK)), /* SSCP SERIALIZATION LOCK */ 00542000 */* END OF COMMON AREA */ 00543000 */* VS1/VS2 COMMON CODE. */ 00544000 * 2 ATCRSVBB PTR(31), /* RESERVED * 00545000 * 2 ATCAOSM BDY(DWORD), 0061 00546000 */* * 00547000 * 3 ATCSRBRT PTR(31), /* POINTER TO ROUTINE UNDER * 00548000 * /* SRB CONTROL * 00549000 * 3 ATCGSRBQ PTR(31), /* READY QUEUE FOR GLOBAL SRB'S* 00550000 * 4 ATCGSRBG BIT(8), /* READY QUEUE GATE BYTE * 00551000 * 5 ATCGSRBF BIT(1), /* READY QUEUE GATE BIT * 00552000 * 3 ATCPRPH PTR(31), /* PTR TO PREALLOCATED RPH * 00553000 * 3 ATCCMTCB PTR(31), /* PTR TO COMMUNICATIONS TASK * 00554000 * /* TCB * 00555000 * 3 ATCAP11 PTR(31), /* PTR TO ISTAPC11 * 00556000 * 3 ATCAP12 PTR(31), /* PTR TO ISTAPC12 * 00557000 * 3 ATCAP31 PTR(31), /* PTR TO ISTAPC31 * 00558000 * 3 ATCAP32 PTR(31), /* PTR TO ISTAPC32 * 00559000 * 3 ATCAP34 PTR(31), /* PTR TO ISTAPC34 * 00560000 * 3 ATCAP52 PTR(31), /* PTR TO ISTAPC52 * 00561000 * 3 ATCAP53 PTR(31), /* PTR TO ISTAPC53 * 00562000 * 3 ATCAP54 PTR(31), /* PTR TO ISTAPC54 * 00563000 * 3 ATCAP57 PTR(31), /* PTR TO ISTAPC57 * 00564000 * 3 ATCAP58 PTR(31), /* PTR TO ISTAPC58 * 00565000 * 3 ATCAP61 PTR(31), /* PTR TO ISTAPC61 * 00566000 * 3 ATCAP63 PTR(31), /* PTR TO ISTAPC63 * 00567000 * 3 ATCAP64 PTR(31), /* PTR TO ISTAPC64 * 00568000 * 3 ATCZFSVT PTR(31), /* TPIOS FIXED SRVICES VCTR TAB* 00569000 * 3 ATCZPSVT PTR(31), /* TPIOS PAGBL SRVCES VCTR TABL* 00570000 * 3 ATCICNCB PTR(31), /* HEAD OF ICNCB QUEUE * 00571000 * 3 ATCZDVT1 PTR(31), /* TPIOS SLODWN RECOVRY PRCSR * 00572000 * 3 ATCZDVT3 PTR(31), /* 370X FEEDBACK STAT CNTRL RTR* 00573000 * 3 ATCZDVT4 PTR(31), /* OPERATOR MESSAGE SCHEDULER * 00574000 * 3 ATCZDVT6 PTR(31), /* DIALOGUE SCHEDULER (INBOUND)* 00575000 * 3 ATCAP65 PTR(31), /* PTR TO ISTAPC65 */ 00576000 * 3 ATCICAPP CHAR(20) BDY(WORD), /* 3705 APPENDAGE VECTOR * 00577000 * 4 ATCCDRPH PTR(31), /* ADDR CLOSE DEB RPH 0061 00578000 * (DUMMY EOA APP.) */ 00579000 * 4 ATCZSIOA PTR(31), /* ADDR 3705 SIO APPENDAGE */ 00580000 * 4 ATCCDTCB PTR(31), /* VTAM TCB (DUMMY PCI APP.) */ 00581000 * 4 ATCZCEA PTR(31), /* ADDR 3705 CHANNEL END 0061 00582000 * APPENDAGE */ 00583000 * 4 ATCZAEA PTR(31), /* ADDR 3705 CHANNEL END 0061 00584000 * APPENDAGE */ 00585000 * 3 ATCLDAPP CHAR(20) BDY(WORD), /* LOCAL 3270 APPENDAGE 00586000 * VECTOR */ 00587000 * 4 ATCCDTID PTR(31), /* TASK ID OF VTAM 0061 00588000 * (DUMP EOE) */ 00589000 * 4 ATCSMFRR PTR(31), /* ADDR OF SMS FRR 0061 00590000 * (DUMMY SIOA) */ 00591000 * 4 ATCRSV17 PTR(31), /* RESERVED FOR ALIGNMENT */ 00592000 * 4 ATCZLCEA PTR(31), /* ADDR 3270 CHANNEL END 0061 00593000 * APPENDAGE */ 00594000 * 4 ATCZLAEA PTR(31), /* ADDR 3270 CHANNEL END 0061 00595000 * APPENDAGE */ 00596000 * 3 ATCDAPVT CHAR(24) BDY(WORD), /* DUMMY APPENDAGE 0061 00597000 * VECTOR TABLE FOR LOAD/DVMMY*/ 00598000 * 4 ATCDEOEA PTR(31), /* ADDRESS OF DUMMY END 0061 00599000 * OF EXTENT APPENDAGE */ 00600000 * 4 ATCDSIOA PTR(31), /* ADDRESS OF DUMMY END 0061 00601000 * OF SIO APPENDAGE */ 00602000 * 4 ATCDPCIA PTR(31), /* ADDRESS OF DUMMY PCI 0061 00603000 * APPENDAGE */ 00604000 * 4 ATCDCEA PTR(31), /* ADDRESS OF CHANNEL END 0061 00605000 * APPENDAGE */ 00606000 * 4 ATCDXCEA PTR(31), /* ADDRESS OF ABNORMAL 0061 00607000 * END APPENDAGE */ 00608000 * 4 ATCDAPDG CHAR(2), /* DUMMY APPENDAGE */ 00609000 * 4 ATCRSV56 CHAR(2), /* RESERVED */ 00610000 * 3 ATCZDVT7 PTR(31), /* ADDR OF RESET CLEANUP 0061 00611000 * (PHASE 1) * 00612000 * 3 ATCZDVT8 PTR(31), /* 3270 LOCAL TEST AND CTL 0061 00613000 * FEEDBACK ROUTER */ 00614000 * 3 ATCZDVT9 PTR(31), /* ADDRESS OF ISTZDFKA */ 00615000 * 3 ATCZDVTA PTR(31), /* ADDRESS OF ISTZCFIA */ 00616000 * 3 ATCZDVTX PTR(31), /* ADDRESS OF TRUNK LINE 0061 00617000 * DEACTIVATE ROUTINE */ 00618000 * 3 ATCZLPVT PTR(31), /* ADDRESS OF ISTZPSVA */ 00619000 * 3 ATCZLFVT PTR(31), /* TPIOS 3270 LOCAL FIXED 0061 00620000 * SERVICES VECTOR TABLE */ 00621000 * 3 ATCZPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR 00622000 * TEST AND CTL FEEDBACK ROUTER* 00623000 * 3 ATCZPAB2 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* 370X 0061 00624000 * STATUS AND FEEDBACK ROUTER 00625000 * DYNAMIC PAB */ 00626000 * 3 ATCAP51 PTR(31), /* PTR TO ISTAPC51 */ 00627000 * 3 ATCZDFJ0 PTR(31), /* ADDR OF ISTZDFJ0 */ 00628000 * 3 ATCAP37 PTR(31), /* PTR TO ISTAPC37 */ 00629000 * 3 ATCAP38 PTR(31), /* PTR TO ISTAPC38 */ 00630000 * 3 ATCRPT11 PTR(31), /* RESERVED */ 00631000 * 3 ATCRPT12 PTR(31), /* RESERVED */ 00632000 * 3 ATCRPT13 PTR(31), /* RESERVED */ 00633000 * 3 ATCRPT14 PTR(31), /* RESERVED */ 00634000 * 3 ATCRPT15 PTR(31), /* RESERVED */ 00635000 * 3 ATCRPT16 PTR(31), /* RESERVED */ 00636000 * 3 ATCRPT17 PTR(31), /* RESERVED */ 00637000 * 3 ATCRPT18 PTR(31), /* RESERVED */ 00638000 * 3 ATCRPT19 PTR(31), /* RESERVED */ 00639000 * 3 ATCRPT20 PTR(31), /* RESERVED */ 00640000 * 3 ATCRPT21 PTR(31), /* RESERVED */ 00641000 * 3 ATCRPT22 PTR(31), /* RESERVED */ 00642000 * 3 ATCRPT23 PTR(31), /* RESERVED */ 00643000 * 3 ATCRPT24 PTR(31), /* RESERVED */ 00644000 * 3 ATCRPT25 PTR(31), /* RESERVED */ 00645000 * 3 ATCRPT26 PTR(31), /* RESERVED */ 00646000 * 3 ATCRPT27 PTR(31), /* RESERVED */ 00647000 * 3 ATCRPT28 PTR(31), /* RESERVED */ 00648000 * 3 ATCRPT29 PTR(31), /* RESERVED */ 00649000 * 3 ATCRPT30 PTR(31), /* RESERVED */ 00650000 * 3 ATCRPT31 PTR(31), /* RESERVED */ 00651000 * 3 ATCRPT32 PTR(31), /* RESERVED */ 00652000 * 3 ATCRPT33 PTR(31), /* RESERVED */ 00653000 * 3 ATCRPT34 PTR(31), /* RESERVED */ 00654000 * 3 ATCRPT35 PTR(31), /* RESERVED */ 00655000 * 3 ATCRPT36 PTR(31), /* RESERVED */ 00656000 * 3 ATCRPT37 PTR(31), /* RESERVED */ 00657000 * 3 ATCRPT38 PTR(31), /* RESERVED */ 00658000 * 3 ATCRPT39 PTR(31), /* RESERVED */ 00659000 * 3 ATCRPT40 PTR(31), /* RESERVED */ 00660000 */* END OF VS1/VS2 COMMON CODE. */ 00661000 */* START OF VS2 UNIQUE CODE. */ 00662000 * 3 ATCVTFLG BIT(32), 0061 00663000 * 4 ATCVTACT BIT(1), /* VTT ACTIVE */ 00664000 * 4 * BIT(31), /* RESERVED */ 00665000 * 3 ATCHLTCB PTR(31), /* ECB FOR HALTING VTAM */ 00666000 * 3 ATCATA10 PTR(31), /* PTR TO ISTATM10 */ 00667000 * 3 ATCZLAAB PTR(31), /* PTR TO ISTZLFAB */ 00668000 * 3 ATCCACXA PTR(31), /* PTR TO ISTCFCXA */ 00669000 * 3 ATCSMARA PTR(31), /* PTR TO ISTORFRA */ 00670000 * 3 ATCSMAID PTR(31), /* PTR TO ISTORFID */ 00671000 * 3 ATCTPWQA PTR(31), /* WAIT Q ANCHOR FOR TPIOS */ 00672000 * 3 ATCSMAPR PTR(31), /* PTR TO ISTORFPR */ 00673000 * 3 ATCSMABF PTR(31), /* PTR TO ISTORFBF */ 00674000 * 3 ATCPSTA PTR(31), /* ACTIVE PST QUEUE */ 00675000 * 3 ATCTRMBP CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0061 00676000 * /* PAB FOR VTAM TERM TASK */ 00677000 * 3 ATCTPSPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0061 00678000 * /* PAB FOR TPIOS */ 00679000 * 3 ATCAP23 PTR(31), /* PTR TO ISTAPC23 */ 00680000 * 3 ATCAPC25 PTR(31), /* PTR TO ISTAPC25 */ 00681000 * 3 ATCAP41 PTR(31), /* PTR TO ISTAPC41 */ 00682000 * 3 ATCRCFY0 PTR(31), /* PTR TO ISTRCFY0 */ 00683000 * 3 ATCAP55 PTR(31), /* PTR TO ISTAPC55 */ 00684000 * 3 ATCAP56 PTR(31), /* PTR TO ISTAPC56 */ 00685000 * 3 ATCAPC59 PTR(31), /* PTR TO ISTAPC59 */ 00686000 * 3 ATCAP62 PTR(31), /* PTR TO ISTAPC62 */ 00687000 * 3 ATCAP66 PTR(31), /* PTR TO ISTAPC66 */ 00688000 * 3 ATCAP69 PTR(31), /* PTR TO ISTAPM69 */ 00689000 * 3 ATCAP82 PTR(31), /* PTR TO ISTAPC82 */ 00690000 * 3 ATCAP83 PTR(31), /* PTR TO ISTAPC83 */ 00691000 * 3 ATCAP84 PTR(31), /* PTR TO ISTAPC84 */ 00692000 * 3 ATCAP85 PTR(31), /* PTR TO ISTAPC85 */ 00693000 * 3 ATCAP86 PTR(31), /* PTR TO ISTAPC86 */ 00694000 * 3 ATCASCB PTR(31), /* PTR TO VTAM ASCB */ 00695000 * 3 ATCMPLTA PTR(31), /* PTR TO MPST LIST TABLE */ 00696000 * 3 ATCZR01 PTR(31), /* PTR TO ISTZRM01 */ 00697000 * 3 ATCAICTN PTR(31), /* PTR TO ISTAICTN */ 00698000 * 3 ATCTPCP0 PTR(31), /* PTR TO ISTZFSAV */ 00699000 * 3 ATCTPCP1 PTR(31), /* PTR TO ISTZ19SV */ 00700000 * 3 ATCZFLAG BIT(8), /* FLAG BYTE */ 00701000 * 4 ATCZF001 BIT(1), /* MDR RECORDING SUSPENDED */ 00702000 * 4 ATCRSV66 BIT(7), /* RESERVED */ 00703000 * 3 ATCRSV75 BIT(8), /* RESERVED */ 00704000 * 3 ATCSRBCT FIXED(16), /* COUNT OF PREALLOCATED SRB'S*/ 00705000 * 3 ATCCRACT FIXED(16), /* COUNT OF PREALLOCATED CRA'S*/ 00706000 * 3 ATCRPLCT FIXED(16), /* COUNT OF PREALLOCATED CRPL */ 00707000 * 3 ATCTPMPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /*TP MSG PAB 00708000 * FOR VS2 */ 00709000 * 3 ATCTPMMI PTR(31), /* PTR TO ISTCFMMI - MSG ISSUER 00710000 * FOR SRB MODE ROUTINES */ 00711000 * 3 ATCVIOPM PTR(31), /* PTR TO ISTVIOPM */ 00712000 * 2 ATCAOS CHAR(0) BDY(WORD); /* VS2 ONLY FIELDS */ 00713000 * 0062 00714000 * DECLARE 0062 00715000 * EMCR0 PTR REG(0), 0062 00716000 * EMCR1 PTR REG(1), 0062 00717000 * EMCR2 PTR REG(2), 0062 00718000 * EMCR3 PTR REG(3), 0062 00719000 * EMCR4 PTR REG(4), 0062 00720000 * EMCR5 PTR REG(5), 0062 00721000 * EMCR6 PTR REG(6), 0062 00722000 * EMCR7 PTR REG(7), 0062 00723000 * EMCR8 PTR REG(8), 0062 00724000 * EMCR9 PTR REG(9), 0062 00725000 * EMCR10 PTR REG(10), 0062 00726000 * EMCR11 PTR REG(11), 0062 00727000 * EMCR12 PTR REG(12), 0062 00728000 * EMCR13 PTR REG(13), 0062 00729000 * EMCR14 PTR REG(14), 0062 00730000 * EMCR15 PTR REG(15); 0062 00731000 * GEN (PRINT ON); 0063 00732000 PRINT ON 00733000 */* END OF TPEPILOG */ 0064 00734000 * END ISTINCIB; 0064 00735000 @EL00001 L @13,4(,@13) 0064 00736000 @EF00001 DS 0H 0064 00737000 @ER00001 LM @14,@12,12(@13) 0064 00738000 BR @14 0064 00739000 @DATA DS 0H 00740000 DS 0F 00741000 @SA00001 DS 18F 00742000 DS 0F 00743000 @CV00036 DC V(ISTINCST) 00744000 DS 0D 00745000 CMZAA003 DC CL4'016I' 00746000 CMZPL003 DC 4F'0' 00747000 CMZZO003 DC F'0' 00748000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00749000 @01 EQU 01 00750000 @02 EQU 02 00751000 @03 EQU 03 00752000 @04 EQU 04 00753000 @05 EQU 05 00754000 @06 EQU 06 00755000 @07 EQU 07 00756000 @08 EQU 08 00757000 @09 EQU 09 00758000 @10 EQU 10 00759000 @11 EQU 11 00760000 @12 EQU 12 00761000 @13 EQU 13 00762000 @14 EQU 14 00763000 @15 EQU 15 00764000 STAEREG EQU @02 00765000 RETCODE EQU @15 00766000 REG1003 EQU @01 00767000 EMCR13 EQU @13 00768000 REG15003 EQU @15 00769000 RPHPTR EQU @01 00770000 EMCR0 EQU @00 00771000 EMCR1 EQU @01 00772000 EMCR10 EQU @10 00773000 EMCR11 EQU @11 00774000 EMCR12 EQU @12 00775000 EMCR14 EQU @14 00776000 EMCR15 EQU @15 00777000 EMCR2 EQU @02 00778000 EMCR3 EQU @03 00779000 EMCR4 EQU @04 00780000 EMCR5 EQU @05 00781000 EMCR6 EQU @06 00782000 EMCR7 EQU @07 00783000 EMCR8 EQU @08 00784000 EMCR9 EQU @09 00785000 ATCLCPTR EQU 1032 00786000 @NM00001 EQU 0 00787000 CMZID003 EQU @NM00001 00788000 @NM00002 EQU @NM00001+4 00789000 CMZSA003 EQU 0 00790000 ISTPAB EQU 0 00791000 PABWQCHN EQU ISTPAB 00792000 PABWEQA EQU PABWQCHN 00793000 PABCHAIN EQU PABWQCHN+4 00794000 PABRPHFG EQU ISTPAB+12 00795000 PABFLAGS EQU PABRPHFG 00796000 PABERLCK EQU PABFLAGS 00797000 PABERRLK EQU PABERLCK 00798000 ISTLOK EQU 0 00799000 LOKCHN EQU ISTLOK+1 00800000 LOKCHNG EQU LOKCHN 00801000 @NM00004 EQU LOKCHNG+2 00802000 ISTDYPAB EQU 0 00803000 ISTRPH EQU 0 00804000 RPHFLAGS EQU ISTRPH+2 00805000 RPHAPTYP EQU RPHFLAGS 00806000 RPHFSTLC EQU RPHFLAGS 00807000 RPHFLGB EQU ISTRPH+3 00808000 RPHRPHA EQU ISTRPH+4 00809000 RPHTSKID EQU ISTRPH+8 00810000 RPHRESMA EQU ISTRPH+16 00811000 RPHWPFLG EQU RPHRESMA 00812000 RPHWEA EQU ISTRPH+24 00813000 RPHCSPA EQU RPHWEA 00814000 RPHSRPRM EQU ISTRPH+28 00815000 RPHPABQA EQU ISTRPH+36 00816000 RPHWORK EQU ISTRPH+40 00817000 RPHSAVE1 EQU RPHWORK 00818000 RPHSBITS EQU RPHSAVE1+1 00819000 ISTATCVT EQU 0 00820000 ATCCOM EQU ISTATCVT 00821000 ATCSTAT EQU ATCCOM 00822000 ATCSTAT1 EQU ATCSTAT 00823000 ATCSTFLG EQU ATCSTAT+1 00824000 ATCPOFLG EQU ATCSTAT+2 00825000 ATCSTAT4 EQU ATCSTAT+3 00826000 ATCIOTRC EQU ATCCOM+140 00827000 ATCTHTRC EQU ATCIOTRC 00828000 ATCCSMR EQU ISTATCVT+296 00829000 ATCSHRFG EQU ISTATCVT+316 00830000 ATCMSGP EQU ISTATCVT+344 00831000 ATCHPGM EQU ISTATCVT+384 00832000 ATCVLCNT EQU ISTATCVT+772 00833000 ATCSOPD EQU ISTATCVT+792 00834000 ATCSIPD EQU ISTATCVT+800 00835000 ATCSECST EQU ISTATCVT+812 00836000 ATCAOSM EQU ISTATCVT+912 00837000 ATCGSRBQ EQU ATCAOSM+4 00838000 ATCGSRBG EQU ATCGSRBQ 00839000 ATCICAPP EQU ATCAOSM+100 00840000 ATCLDAPP EQU ATCAOSM+120 00841000 ATCDAPVT EQU ATCAOSM+140 00842000 ATCVTFLG EQU ATCAOSM+392 00843000 ATCZFLAG EQU ATCAOSM+588 00844000 CMTA003 EQU 0 00845000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00846000 ATCAOS EQU ISTATCVT+1552 00847000 ATCVIOPM EQU ATCAOSM+636 00848000 ATCTPMMI EQU ATCAOSM+632 00849000 ATCTPMPB EQU ATCAOSM+600 00850000 ATCRPLCT EQU ATCAOSM+594 00851000 ATCCRACT EQU ATCAOSM+592 00852000 ATCSRBCT EQU ATCAOSM+590 00853000 ATCRSV75 EQU ATCAOSM+589 00854000 ATCRSV66 EQU ATCZFLAG 00855000 ATCZF001 EQU ATCZFLAG 00856000 ATCTPCP1 EQU ATCAOSM+584 00857000 ATCTPCP0 EQU ATCAOSM+580 00858000 ATCAICTN EQU ATCAOSM+576 00859000 ATCZR01 EQU ATCAOSM+572 00860000 ATCMPLTA EQU ATCAOSM+568 00861000 ATCASCB EQU ATCAOSM+564 00862000 ATCAP86 EQU ATCAOSM+560 00863000 ATCAP85 EQU ATCAOSM+556 00864000 ATCAP84 EQU ATCAOSM+552 00865000 ATCAP83 EQU ATCAOSM+548 00866000 ATCAP82 EQU ATCAOSM+544 00867000 ATCAP69 EQU ATCAOSM+540 00868000 ATCAP66 EQU ATCAOSM+536 00869000 ATCAP62 EQU ATCAOSM+532 00870000 ATCAPC59 EQU ATCAOSM+528 00871000 ATCAP56 EQU ATCAOSM+524 00872000 ATCAP55 EQU ATCAOSM+520 00873000 ATCRCFY0 EQU ATCAOSM+516 00874000 ATCAP41 EQU ATCAOSM+512 00875000 ATCAPC25 EQU ATCAOSM+508 00876000 ATCAP23 EQU ATCAOSM+504 00877000 ATCTPSPB EQU ATCAOSM+472 00878000 ATCTRMBP EQU ATCAOSM+440 00879000 ATCPSTA EQU ATCAOSM+432 00880000 ATCSMABF EQU ATCAOSM+428 00881000 ATCSMAPR EQU ATCAOSM+424 00882000 ATCTPWQA EQU ATCAOSM+420 00883000 ATCSMAID EQU ATCAOSM+416 00884000 ATCSMARA EQU ATCAOSM+412 00885000 ATCCACXA EQU ATCAOSM+408 00886000 ATCZLAAB EQU ATCAOSM+404 00887000 ATCATA10 EQU ATCAOSM+400 00888000 ATCHLTCB EQU ATCAOSM+396 00889000 @NM00012 EQU ATCVTFLG 00890000 ATCVTACT EQU ATCVTFLG 00891000 ATCRPT40 EQU ATCAOSM+388 00892000 ATCRPT39 EQU ATCAOSM+384 00893000 ATCRPT38 EQU ATCAOSM+380 00894000 ATCRPT37 EQU ATCAOSM+376 00895000 ATCRPT36 EQU ATCAOSM+372 00896000 ATCRPT35 EQU ATCAOSM+368 00897000 ATCRPT34 EQU ATCAOSM+364 00898000 ATCRPT33 EQU ATCAOSM+360 00899000 ATCRPT32 EQU ATCAOSM+356 00900000 ATCRPT31 EQU ATCAOSM+352 00901000 ATCRPT30 EQU ATCAOSM+348 00902000 ATCRPT29 EQU ATCAOSM+344 00903000 ATCRPT28 EQU ATCAOSM+340 00904000 ATCRPT27 EQU ATCAOSM+336 00905000 ATCRPT26 EQU ATCAOSM+332 00906000 ATCRPT25 EQU ATCAOSM+328 00907000 ATCRPT24 EQU ATCAOSM+324 00908000 ATCRPT23 EQU ATCAOSM+320 00909000 ATCRPT22 EQU ATCAOSM+316 00910000 ATCRPT21 EQU ATCAOSM+312 00911000 ATCRPT20 EQU ATCAOSM+308 00912000 ATCRPT19 EQU ATCAOSM+304 00913000 ATCRPT18 EQU ATCAOSM+300 00914000 ATCRPT17 EQU ATCAOSM+296 00915000 ATCRPT16 EQU ATCAOSM+292 00916000 ATCRPT15 EQU ATCAOSM+288 00917000 ATCRPT14 EQU ATCAOSM+284 00918000 ATCRPT13 EQU ATCAOSM+280 00919000 ATCRPT12 EQU ATCAOSM+276 00920000 ATCRPT11 EQU ATCAOSM+272 00921000 ATCAP38 EQU ATCAOSM+268 00922000 ATCAP37 EQU ATCAOSM+264 00923000 ATCZDFJ0 EQU ATCAOSM+260 00924000 ATCAP51 EQU ATCAOSM+256 00925000 ATCZPAB2 EQU ATCAOSM+224 00926000 ATCZPAB1 EQU ATCAOSM+192 00927000 ATCZLFVT EQU ATCAOSM+188 00928000 ATCZLPVT EQU ATCAOSM+184 00929000 ATCZDVTX EQU ATCAOSM+180 00930000 ATCZDVTA EQU ATCAOSM+176 00931000 ATCZDVT9 EQU ATCAOSM+172 00932000 ATCZDVT8 EQU ATCAOSM+168 00933000 ATCZDVT7 EQU ATCAOSM+164 00934000 ATCRSV56 EQU ATCDAPVT+22 00935000 ATCDAPDG EQU ATCDAPVT+20 00936000 ATCDXCEA EQU ATCDAPVT+16 00937000 ATCDCEA EQU ATCDAPVT+12 00938000 ATCDPCIA EQU ATCDAPVT+8 00939000 ATCDSIOA EQU ATCDAPVT+4 00940000 ATCDEOEA EQU ATCDAPVT 00941000 ATCZLAEA EQU ATCLDAPP+16 00942000 ATCZLCEA EQU ATCLDAPP+12 00943000 ATCRSV17 EQU ATCLDAPP+8 00944000 ATCSMFRR EQU ATCLDAPP+4 00945000 ATCCDTID EQU ATCLDAPP 00946000 ATCZAEA EQU ATCICAPP+16 00947000 ATCZCEA EQU ATCICAPP+12 00948000 ATCCDTCB EQU ATCICAPP+8 00949000 ATCZSIOA EQU ATCICAPP+4 00950000 ATCCDRPH EQU ATCICAPP 00951000 ATCAP65 EQU ATCAOSM+96 00952000 ATCZDVT6 EQU ATCAOSM+92 00953000 ATCZDVT4 EQU ATCAOSM+88 00954000 ATCZDVT3 EQU ATCAOSM+84 00955000 ATCZDVT1 EQU ATCAOSM+80 00956000 ATCICNCB EQU ATCAOSM+76 00957000 ATCZPSVT EQU ATCAOSM+72 00958000 ATCZFSVT EQU ATCAOSM+68 00959000 ATCAP64 EQU ATCAOSM+64 00960000 ATCAP63 EQU ATCAOSM+60 00961000 ATCAP61 EQU ATCAOSM+56 00962000 ATCAP58 EQU ATCAOSM+52 00963000 ATCAP57 EQU ATCAOSM+48 00964000 ATCAP54 EQU ATCAOSM+44 00965000 ATCAP53 EQU ATCAOSM+40 00966000 ATCAP52 EQU ATCAOSM+36 00967000 ATCAP34 EQU ATCAOSM+32 00968000 ATCAP32 EQU ATCAOSM+28 00969000 ATCAP31 EQU ATCAOSM+24 00970000 ATCAP12 EQU ATCAOSM+20 00971000 ATCAP11 EQU ATCAOSM+16 00972000 ATCCMTCB EQU ATCAOSM+12 00973000 ATCPRPH EQU ATCAOSM+8 00974000 ATCGSRBF EQU ATCGSRBG 00975000 ATCSRBRT EQU ATCAOSM 00976000 ATCRSVBB EQU ISTATCVT+908 00977000 ATCVDLOK EQU ISTATCVT+904 00978000 ATCVFPAB EQU ISTATCVT+872 00979000 ATCVDPAB EQU ISTATCVT+840 00980000 ATCIOECB EQU ISTATCVT+836 00981000 ATCINCW3 EQU ISTATCVT+832 00982000 ATCMODTB EQU ISTATCVT+828 00983000 ATCUSSPT EQU ISTATCVT+824 00984000 ATCSRTAB EQU ISTATCVT+820 00985000 @NM00011 EQU ISTATCVT+818 00986000 ATCNMCTR EQU ISTATCVT+816 00987000 ATCSEC51 EQU ATCSECST 00988000 ATCSEC40 EQU ATCSIPD+8 00989000 ATCSEC30 EQU ATCSIPD+4 00990000 ATCSEC21 EQU ATCSIPD 00991000 ATCSEC10 EQU ATCSOPD+4 00992000 ATCSEC01 EQU ATCSOPD 00993000 ATCPOIA EQU ISTATCVT+788 00994000 ATCPODVT EQU ISTATCVT+784 00995000 ATCS49XL EQU ISTATCVT+780 00996000 ATCS49XI EQU ISTATCVT+776 00997000 ATCLCLCT EQU ATCVLCNT+2 00998000 ATCRNCNT EQU ATCVLCNT 00999000 ATCCFEAD EQU ISTATCVT+768 01000000 ATCPTR00 EQU ISTATCVT+736 01001000 ATCRSV10 EQU ISTATCVT+704 01002000 ATCTACB EQU ISTATCVT+700 01003000 ATCVTINM EQU ISTATCVT+696 01004000 ATCTCLIM EQU ISTATCVT+692 01005000 ATCTCLOM EQU ISTATCVT+688 01006000 ATCVTIPB EQU ISTATCVT+656 01007000 ATCTCIPB EQU ISTATCVT+624 01008000 ATCTIPAB EQU ISTATCVT+592 01009000 ATCOCCCB EQU ISTATCVT+588 01010000 ATCOCCOB EQU ISTATCVT+584 01011000 ATCCDLAD EQU ISTATCVT+580 01012000 ATCCCLAD EQU ISTATCVT+576 01013000 ATCDLRPB EQU ISTATCVT+544 01014000 ATCPGPAB EQU ISTATCVT+512 01015000 ATCVPAB1 EQU ISTATCVT+480 01016000 ATCRSV97 EQU ISTATCVT+476 01017000 ATCRDTLK EQU ISTATCVT+472 01018000 ATCVOCLK EQU ISTATCVT+468 01019000 ATCCDFDN EQU ISTATCVT+464 01020000 ATCCDFIN EQU ISTATCVT+460 01021000 ATCDVTLK EQU ISTATCVT+456 01022000 ATCAP36 EQU ISTATCVT+452 01023000 ATCAP35 EQU ISTATCVT+448 01024000 ATCAP33 EQU ISTATCVT+444 01025000 ATCRSV99 EQU ISTATCVT+412 01026000 ATCLDECB EQU ISTATCVT+408 01027000 ATCLDNCS EQU ISTATCVT+404 01028000 ATCCDPTR EQU ISTATCVT+400 01029000 ATCADEL EQU ISTATCVT+396 01030000 ATCTODVT EQU ISTATCVT+392 01031000 ATCDEBCH EQU ISTATCVT+388 01032000 ATCHBSIZ EQU ATCHPGM+2 01033000 ATCHBFNO EQU ATCHPGM 01034000 ATCCRME EQU ISTATCVT+380 01035000 ATCRVCHS EQU ISTATCVT+372 01036000 ATCECTLP EQU ISTATCVT+368 01037000 ATCZDVTB EQU ISTATCVT+364 01038000 ATCECPRT EQU ISTATCVT+360 01039000 ATCVTLOD EQU ISTATCVT+356 01040000 ATCTRPAB EQU ISTATCVT+352 01041000 ATCMSGM EQU ISTATCVT+348 01042000 ATCEPT EQU ISTATCVT+340 01043000 ATCDVT EQU ISTATCVT+336 01044000 ATCTRCPT EQU ISTATCVT+332 01045000 ATCDVLOD EQU ISTATCVT+328 01046000 ATCALERT EQU ISTATCVT+324 01047000 ATCEPA EQU ISTATCVT+320 01048000 ATCSAF EQU ISTATCVT+318 01049000 ATCXRANG EQU ISTATCVT+317 01050000 ATCLAST EQU ATCSHRFG 01051000 ATCSHRTN EQU ISTATCVT+308 01052000 ATCUEP EQU ISTATCVT+304 01053000 ATCOCRT EQU ISTATCVT+300 01054000 ATCCSMA EQU ATCCSMR 01055000 ATCESC02 EQU ISTATCVT+292 01056000 ATCESC01 EQU ISTATCVT+288 01057000 ATCCDFND EQU ISTATCVT+284 01058000 ATCCDDEL EQU ISTATCVT+280 01059000 ATCCDADD EQU ISTATCVT+276 01060000 ATCMNT EQU ISTATCVT+272 01061000 ATCRSV16 EQU ISTATCVT+270 01062000 ATCMAXID EQU ISTATCVT+269 01063000 ATCMSGSP EQU ATCCOM+268 01064000 ATCCIDM EQU ATCCOM+266 01065000 ATCACTRM EQU ATCCOM+264 01066000 ATCNERAP EQU ATCCOM+260 01067000 ATCNESAL EQU ATCCOM+256 01068000 ATCRCC65 EQU ATCCOM+252 01069000 ATCRCC26 EQU ATCCOM+248 01070000 ATCRCC63 EQU ATCCOM+244 01071000 ATCRSV11 EQU ATCCOM+242 01072000 ATCVTMID EQU ATCCOM+240 01073000 ATCAPOST EQU ATCCOM+236 01074000 ATCNERFN EQU ATCCOM+232 01075000 ATCNERNE EQU ATCCOM+228 01076000 ATCNERCV EQU ATCCOM+224 01077000 ATCNERST EQU ATCCOM+220 01078000 ATCDCC61 EQU ATCCOM+216 01079000 ATCDCC60 EQU ATCCOM+212 01080000 ATCSRTDF EQU ATCCOM+208 01081000 ATCSRTAD EQU ATCCOM+204 01082000 ATCFIRA EQU ATCCOM+200 01083000 ATCSMBQ EQU ATCCOM+196 01084000 ATCSMRC EQU ATCCOM+192 01085000 ATCSMRS EQU ATCCOM+188 01086000 ATCSMQU EQU ATCCOM+184 01087000 ATCSMRQ EQU ATCCOM+180 01088000 ATCACDA EQU ATCCOM+176 01089000 ATCSTMA EQU ATCCOM+172 01090000 ATCFRSTR EQU ATCCOM+168 01091000 ATCGTSTR EQU ATCCOM+164 01092000 ATCREADA EQU ATCCOM+160 01093000 ATCALOAD EQU ATCCOM+156 01094000 ATCBLDLA EQU ATCCOM+152 01095000 ATCFBRPH EQU ATCCOM+148 01096000 ATCBFTRC EQU ATCCOM+144 01097000 ATCTPBUF EQU ATCTHTRC 01098000 ATCREMOV EQU ATCCOM+136 01099000 ATCADD EQU ATCCOM+132 01100000 ATCBPDA EQU ATCCOM+128 01101000 ATCDVTPT EQU ATCCOM+124 01102000 ATCFEPT EQU ATCCOM+120 01103000 ATCFDVT EQU ATCCOM+116 01104000 ATCCONFT EQU ATCCOM+112 01105000 ATCPTCHA EQU ATCCOM+108 01106000 ATCAUTHA EQU ATCCOM+104 01107000 ATCACCTA EQU ATCCOM+100 01108000 ATCRDTH EQU ATCCOM+96 01109000 ATCFRSCH EQU ATCCOM+92 01110000 ATCFSB EQU ATCCOM+88 01111000 ATCHLTMS EQU ATCCOM+84 01112000 ATCECPRM EQU ATCCOM+80 01113000 ATCECNET EQU ATCCOM+76 01114000 ATCECOPC EQU ATCCOM+72 01115000 ATCVPARM EQU ATCCOM+68 01116000 ATCECVRQ EQU ATCCOM+64 01117000 ATCECSES EQU ATCCOM+60 01118000 ATCOCHA EQU ATCCOM+56 01119000 ATCDSPLQ EQU ATCCOM+52 01120000 ATCECDSP EQU ATCCOM+48 01121000 ATCVARYQ EQU ATCCOM+44 01122000 ATCECVRY EQU ATCCOM+40 01123000 ATCHALTQ EQU ATCCOM+36 01124000 ATCECHLT EQU ATCCOM+32 01125000 ATCMODQ EQU ATCCOM+28 01126000 ATCECMOD EQU ATCCOM+24 01127000 ATCASCHD EQU ATCCOM+20 01128000 ATCSRT EQU ATCCOM+16 01129000 ATCRDT EQU ATCCOM+12 01130000 ATCDCFRR EQU ATCCOM+8 01131000 ATCAPI EQU ATCCOM+4 01132000 ATCRSV04 EQU ATCSTAT4 01133000 ATCNCSD EQU ATCSTAT4 01134000 ATCMTST EQU ATCSTAT4 01135000 ATCTPRT EQU ATCSTAT4 01136000 ATCPRTAT EQU ATCSTAT4 01137000 @NM00010 EQU ATCPOFLG 01138000 ATCPOUNS EQU ATCPOFLG 01139000 ATCHSDMF EQU ATCSTFLG 01140000 @NM00009 EQU ATCSTAT1 01141000 ATCINHLT EQU ATCSTAT1 01142000 ATCNETSL EQU ATCSTAT1 01143000 ATCQKHLT EQU ATCSTAT1 01144000 ATCSNHLT EQU ATCSTAT1 01145000 ATCACTIV EQU ATCSTAT1 01146000 ATCSTART EQU ATCSTAT1 01147000 RPHNEXPO EQU ISTRPH+104 01148000 RPHSAV16 EQU RPHWORK+60 01149000 RPHSAV15 EQU RPHWORK+56 01150000 RPHSAV14 EQU RPHWORK+52 01151000 RPHSAV13 EQU RPHWORK+48 01152000 RPHSAV12 EQU RPHWORK+44 01153000 RPHSAV11 EQU RPHWORK+40 01154000 RPHSAV10 EQU RPHWORK+36 01155000 RPHSAVE9 EQU RPHWORK+32 01156000 RPHSAVE8 EQU RPHWORK+28 01157000 RPHSAVE7 EQU RPHWORK+24 01158000 RPHSAVE6 EQU RPHWORK+20 01159000 RPHSAVE5 EQU RPHWORK+16 01160000 RPHSAVE4 EQU RPHWORK+12 01161000 RPHSAVE3 EQU RPHWORK+8 01162000 RPHSAVE2 EQU RPHWORK+4 01163000 RPHSHALF EQU RPHSAVE1+2 01164000 RPHSBIT8 EQU RPHSBITS 01165000 RPHSBIT7 EQU RPHSBITS 01166000 RPHSBIT6 EQU RPHSBITS 01167000 RPHSBIT5 EQU RPHSBITS 01168000 RPHSBIT4 EQU RPHSBITS 01169000 RPHSBIT3 EQU RPHSBITS 01170000 RPHSBIT2 EQU RPHSBITS 01171000 RPHSBIT1 EQU RPHSBITS 01172000 RPHSBYTE EQU RPHSAVE1 01173000 RPHPABQP EQU RPHPABQA+1 01174000 RPHPABFG EQU RPHPABQA 01175000 RPHCRR EQU ISTRPH+32 01176000 RPHSRP34 EQU RPHSRPRM+2 01177000 RPHSRP12 EQU RPHSRPRM 01178000 RPHWEGT EQU RPHCSPA 01179000 RPHMAJCB EQU ISTRPH+21 01180000 RPHPABOF EQU ISTRPH+20 01181000 RPHRESUM EQU RPHRESMA+1 01182000 RPHRSV01 EQU RPHWPFLG 01183000 RPHPURGE EQU RPHWPFLG 01184000 RPHPT EQU RPHWPFLG 01185000 RPHWT EQU RPHWPFLG 01186000 RPHRSKEY EQU RPHWPFLG 01187000 RPHDVTA EQU ISTRPH+12 01188000 RPHTIK EQU RPHTSKID+3 01189000 @NM00008 EQU RPHTSKID 01190000 RPHRPHAP EQU RPHRPHA+1 01191000 @NM00007 EQU RPHRPHA 01192000 RPHGATE EQU RPHRPHA 01193000 @NM00006 EQU RPHFLGB 01194000 RPHRLCRA EQU RPHFLGB 01195000 RPHNRSAV EQU RPHFLGB 01196000 RPHPGCMP EQU RPHFLGB 01197000 RPHFBAPS EQU RPHFLGB 01198000 RPHBSSP EQU RPHFLGB 01199000 RPHLOCK EQU RPHFLGB 01200000 RPHFNFLG EQU RPHFSTLC 01201000 RPHMLTCP EQU RPHFLAGS 01202000 RPHSMCLR EQU RPHFLAGS 01203000 RPHSMTYP EQU RPHFLAGS 01204000 RPHSMQ EQU RPHFLAGS 01205000 RPHAUTEX EQU RPHAPTYP 01206000 RPHSPGIN EQU RPHFLAGS 01207000 RPHOGIND EQU RPHFLAGS 01208000 RPHLNGTH EQU ISTRPH+1 01209000 RPHTYPE EQU ISTRPH 01210000 DYPPAB EQU ISTDYPAB+16 01211000 DYPRSV01 EQU ISTDYPAB+12 01212000 DYPTSKID EQU ISTDYPAB+8 01213000 DYPCHAIN EQU ISTDYPAB+4 01214000 DYPFLGS EQU ISTDYPAB+2 01215000 DYPLNGTH EQU ISTDYPAB+1 01216000 DYPTYPE EQU ISTDYPAB 01217000 LOKXCL EQU @NM00004 01218000 LOKPRY EQU @NM00004 01219000 @NM00005 EQU @NM00004 01220000 @NM00003 EQU LOKCHNG 01221000 LOKCT EQU ISTLOK 01222000 PABRPHA EQU PABRPHFG+1 01223000 PABNODQ EQU PABFLAGS 01224000 PABINHBT EQU PABFLAGS 01225000 PABERLOK EQU PABERRLK 01226000 PABSSN EQU PABFLAGS 01227000 PABDYNAM EQU PABFLAGS 01228000 PABNORPR EQU PABFLAGS 01229000 PABPRIOR EQU PABFLAGS 01230000 PABAPYP EQU PABFLAGS 01231000 PABDVTA EQU ISTPAB+9 01232000 PABOFFST EQU ISTPAB+8 01233000 PABCHNGP EQU PABCHAIN+1 01234000 PABRSV02 EQU PABCHAIN 01235000 PABRUNNG EQU PABCHAIN 01236000 PABRESET EQU PABCHAIN 01237000 PABUNCON EQU PABCHAIN 01238000 PABCDP EQU PABCHAIN 01239000 PABRESCH EQU PABCHAIN 01240000 PABCHNG EQU PABCHAIN 01241000 PABWEQP EQU PABWEQA+1 01242000 PABRSV01 EQU PABWEQA 01243000 PABWEQG EQU PABWEQA 01244000 CMZVP003 EQU @NM00001+12 01245000 CMZEA003 EQU @NM00001+8 01246000 CMZRA003 EQU @NM00002+1 01247000 CMZRL003 EQU @NM00002 01248000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01249000 @ENDDATA EQU * 01250000 END ISTINCIB,(C'PLS0101',0603,75129) 01251000