TITLE 'ISTESC02 - DVT NAME RESOLUTION *00001000 ' 00002000 ISTESC02 CSECT 00003000 USING ISTESC02,EMCR15 00004000 */*******************************************************************/ 00005000 */* LOCATE EPTABLE */ 00006000 */*******************************************************************/ 00007000 *CEPTPTR = RPHSRPRM; /* EPTBL HDR ADDR FROM RPH */ 00008000 L CEPTPTR,RPHSRPRM(,RPHPTR) 0030 00009000 *IF CEPTPTR = ZERO /* IS EPTABLE ADDR PROVIDED? */ 00010000 * THEN DO; /* NO,FIND VIA MAJ. CTL. BLOCK*/ 00011000 LTR CEPTPTR,CEPTPTR 0031 00012000 BNZ @RF00031 0031 00013000 * CFMCPTR = RPHMAJCB; /* LOCATE FMCB */ 0033 00014000 L CFMCPTR,RPHMAJCB-1(,RPHPTR) 0033 00015000 LA CFMCPTR,0(,CFMCPTR) 0033 00016000 * CEPTPTR = FMCDVTA; /* LOCATE EPTABLE HEADER */ 0034 00017000 L CEPTPTR,FMCDVTA(,CFMCPTR) 0034 00018000 * END; 0035 00019000 * ELSE; 0036 00020000 @RF00031 DS 0H 0037 00021000 *CEPTPTR = ADDR(EPTENTRY); /* LOOK AT EPT ENTRY */ 0037 00022000 LA @05,EPTENTRY(,CEPTPTR) 0037 00023000 LR CEPTPTR,@05 0037 00024000 */*******************************************************************/ 00025000 */* SEARCH FOR NAME IN EPTABLE */ 00026000 */*******************************************************************/ 00027000 *GENERATE SETS(CNAMPTR) REFS(EMCR0) (LPR CNAMPTR,EMCR0);/*GET NAME*/ 00028000 LPR CNAMPTR,EMCR0 00029000 *CRETCODE = FOUR; /* RETURN CODE */ 0039 00030000 LA CRETCODE,4 0039 00031000 *DO WHILE (EPTENDF = OFFB & CRETCODE = FOUR); /* SEARCH FOR NAME */ 00032000 B @DE00040 0040 00033000 @DL00040 DS 0H 0041 00034000 * IF EPTNAME = CSRCHNAM /* ARE NAMES EQUAL? */ 0041 00035000 * THEN DO; /* YES */ 0041 00036000 CLC EPTNAME(8,CEPTPTR),CSRCHNAM(CNAMPTR) 0041 00037000 BNE @RF00041 0041 00038000 * RPHDVTA = EPTDVT; /* PUT DVT ADDR IN RPH */ 0043 00039000 L @05,EPTDVT(,CEPTPTR) 0043 00040000 ST @05,RPHDVTA(,RPHPTR) 0043 00041000 * CRETCODE = ZERO; /* INDICATE NAME FOUND */ 0044 00042000 SLR CRETCODE,CRETCODE 0044 00043000 * END; 0045 00044000 * ELSE CEPTPTR = CEPTPTR + LENGTH(ISTEPTE); /* NO,CHK NEXT NAME */ 00045000 B @RC00041 0046 00046000 @RF00041 AL CEPTPTR,@CF01092 0046 00047000 * END; 0047 00048000 @RC00041 DS 0H 0047 00049000 @DE00040 TM EPTENDF(CEPTPTR),B'10000000' 0047 00050000 BNZ @DC00040 0047 00051000 C CRETCODE,@CF00052 0047 00052000 BE @DL00040 0047 00053000 @DC00040 DS 0H 0048 00054000 */*******************************************************************/ 00055000 */* RETURN TO USER OR CALL ESC */ 00056000 */*******************************************************************/ 00057000 *IF REG0<0|CRETCODE=FOUR /* RETURN TO CALLER ? @DM11264 */ 00058000 * THEN DO; /* YES */ 0048 00059000 LTR REG0,REG0 0048 00060000 BM @RT00048 0048 00061000 C CRETCODE,@CF00052 0048 00062000 BNE @RF00048 0048 00063000 @RT00048 DS 0H 0049 00064000 * EMCR15=CRETCODE; /* SET RETURN CODE */ 0050 00065000 LR EMCR15,CRETCODE 0050 00066000 * GENERATE SETS(EMCR0) (LPR EMCR0,EMCR0); 0051 00067000 LPR EMCR0,EMCR0 00068000 * GENERATE REFS(EMCR14) (BR EMCR14); /* RETURN TO CALLER */ 0052 00069000 BR EMCR14 00070000 * END; 0053 00071000 * ELSE 0054 00072000 */*TPESC*/ 0054 00073000 * DO; 0054 00074000 * 0054 00075000 B @RC00048 0054 00076000 @RF00048 DS 0H 0055 00077000 * DCL GPR15F FIXED(31) REG(15); 0055 00078000 * DCL GPR15P PTR(31) REG(15); 0056 00079000 * 0056 00080000 */* ATBUILD (ISTDYPAB,ISTAVT,ISTATCVT) */ 0057 00081000 */* PROCESS ANCHOR BLOCK * 00082000 */* * 00083000 */* RELEASE 1 - JULY 02, 1973 * 00084000 */* * 00085000 *DCL 1 ISTPAB BDY(DWORD) BASED, 0057 00086000 * 2 PABWQCHN CHAR(8) BDY(DWORD), /* CPS SWAP FIELD FOR NEQ&CHN * 00087000 * 3 PABWEQA PTR(31) BDY(WORD), /* WORK ELEMENT QUEUE ADDRESS * 00088000 * 4 PABWEQG BIT(1), /* GATING BIT * 00089000 * 4 PABRSV01 BIT(7), /* RESERVED * 00090000 * 4 PABWEQP PTR(24), /* WKEL PTR * 00091000 * 3 PABCHAIN PTR(31) BDY(WORD), /* APS CHAIN * 00092000 * 4 PABCHNG BIT(1), /* GATING BIT * 00093000 * 4 PABRESCH BIT(1), /* RESCHEDULE PAB AT 0057 00094000 * TPEXIT * 00095000 * 4 PABCDP BIT(1), /* CLOSE DST/CHANGE IN PROGRESS* 00096000 * 4 PABUNCON BIT(1), /* UNCONDITIONALLY RESCHEDULE 00097000 * PAB AT TPEXIT * 00098000 * 4 PABRESET BIT(1), /* RESET ISSUED ON THIS PAB * 00099000 * 4 PABRSV02 BIT(3), /* RESERVED * 00100000 * 4 PABCHNGP PTR(24), /* PSS CHAIN PTR * 00101000 * 2 PABOFFST PTR(8), /* OFFSET FROM CONTROL BLOCK * 00102000 * 2 PABDVTA PTR(24), /* DVT ADDRESS * 00103000 * 2 PABRPHFG PTR(31), /* SCHED FLAGS AND RPH * 00104000 * 3 PABFLAGS BIT(8), /* SCHEDULING FLAGS * 00105000 * 4 PABAPYP BIT(1), /* APPLICATION IS A USER EXIT * 00106000 * 4 PABPRIOR BIT(1), /* IMMEDIATE PRIORITY * 00107000 * 4 PABNORPR BIT(1), /* NORMAL PRIORITY - * 00108000 * /* RESCHEDUALABLE * 00109000 * 4 PABDYNAM BIT(1), /* DYNAMIC * 00110000 * 4 PABSSN BIT(1), /* SYSTEM SERVICES * 00111000 * 4 PABERLCK BIT(1), /* PAB ERROR LOCK FLAG * 00112000 * 5 PABERRLK BIT(1), /* ERROR LOCK * 00113000 * 6 PABERLOK BIT(1), /* ERROR LOCK * 00114000 */* ABNORMAL TO ALLOW VARY COMPARE AND SWAP * 00115000 * 4 PABINHBT BIT(1) ABNL,/* 1=INHIBIT TRAFFIC,0=NO * 00116000 * 4 PABNODQ BIT(1), /* DO NOT DEQ WORK ELEMENT * 00117000 * 3 PABRPHA PTR(24); /* RPL HEADER ADDRESS * 00118000 *DCL PABWEQG0 BIT(32) CONSTANT('7FFFFFFF'X), /* TURN PABWEQG OFF * 00119000 * PABWEQG1 BIT(32) CONSTANT('80000000'X), /* TURN PABWEQG ON * 00120000 * PABCHNG0 BIT(32) CONSTANT('7FFFFFFF'X), /* TURN PABCHNG OFF * 00121000 * PABCHNG1 BIT(32) CONSTANT('80000000'X), /* TURN PABCHNG ON * 00122000 * PABRESC0 BIT(32) CONSTANT('BFFFFFFF'X), /* TURN PABRESCH OFF * 00123000 * PABRESC1 BIT(32) CONSTANT('40000000'X), /* TURN PABRESCH ON * 00124000 * PABCDP0 BIT(32) CONSTANT ('DFFFFFFF'X), /* TURN PABCDP OFF * 00125000 * PABCDP1 BIT(32) CONSTANT ('20000000'X), /* TURN PABCDP ON * 00126000 * PABERLK0 BIT(32) CONSTANT('FBFFFFFF'X), /* TURN PABERRLK ON * 00127000 * PABERLK1 BIT(32) CONSTANT('04000000'X), /* TURN PABERRLK OFF * 00128000 * PABUNCO0 BIT(32) CONSTANT('EFFFFFFF'X), /* TURN PABUNCON OFF * 00129000 * PABUNCO1 BIT(32) CONSTANT('10000000'X), /* TURN PABUNCON ON * 00130000 * PABPRIR0 BIT(32) CONSTANT('BFFFFFFF'X), /* TURN PAB PRIOR OFF * 00131000 * PABPRIR1 BIT(32) CONSTANT('40000000'X), /* TURN PAB PRIOR ON * 00132000 * PABRST0 BIT(32) CONSTANT('F7FFFFFF'X), /* TURN PABRESET OFF * 00133000 * PABRST1 BIT(32) CONSTANT('08000000'X); /* TURN PABRESET ON * 00134000 * /* DYNAMIC PAB 1K633 */ 0059 00135000 * /* 1K0997 JAN 20, 1973 MB */ 0059 00136000 * /* 1K1142 MAR 03, 1973 MB */ 0059 00137000 * DCL 1 ISTDYPAB BDY(DWORD) BASED, /* LEVEL 1 DECLARE 1K633 */ 0059 00138000 * 2 DYPTYPE CHAR(1), /* CONTROL BLOCK TYPE CODE 1K633 */ 0059 00139000 * 2 DYPLNGTH PTR(8), /* CONTROL BLOCK LENGTH (BYTES) 1K633 */ 00140000 * 2 DYPFLGS CHAR(2), /* FLAGS 1K633 */ 0059 00141000 * 2 DYPCHAIN PTR(31), /* CHAIN POINTER 1K633 */ 0059 00142000 * 2 DYPTSKID PTR(31), /* TASKID OR PTR TO PSS TABLES 1K633 */ 00143000 * 2 DYPRSV01 PTR(31), /* RESERVED TO PRESERVE ALIGNMENT 0059 00144000 * 1K0997 */ 00145000 * 2 DYPPAB CHAR(LENGTH(ISTPAB)) BDY(DWORD); /* LENGTH OF 1K0997 00146000 * PAB */ 00147000 *DCL DYTYP BIT(8) CONSTANT ('11'X); /* TYPE 1K1142 */ 00148000 */* VTAM ADDRESS VECTOR TABLE */ 0061 00149000 */* REVISIONS 002 03/06/75 */ 00150000 *DCL 1 ISTAVT BDY(WORD) BASED, 0061 00151000 * 2 ISTACVT PTR(31), /* ADDR OF VTAM CVT */ 00152000 * 2 ISTAS49 PTR(31), /* ADDR OF SVC 49 CODE */ 00153000 * 3 ISTAHIP BIT(1), /* HALT IN PROGRESS */ 00154000 * 2 ISTAS53 PTR(31), /* ADDR OF SVC 53 CODE */ 00155000 * 2 ISTAPSTA PTR(31), /* ADDR OF APS TABLE */ 00156000 * 2 AVTASID FIXED(15), /* VTAM ASID */ 00157000 * 2 ISTVTTIK FIXED(15), /* VTAMRP TASK ID */ 00158000 * 2 ISTAPSEX PTR(31), /* ADDR OF APS EXIT */ 00159000 * 2 ISTPHNM CHAR(5), /* PHASE NAME OF TRANSIENT */ 00160000 * 2 ISTX1 CHAR(1), /* TEST FIELD */ 00161000 * 2 ISTARID PTR(15), /* ADDR OF RID */ 00162000 * 2 ISTATRT PTR(15), /* ADDR OF VTAM GATES IN RETAB*/ 00163000 * 2 ISTAGTWT PTR(15), /* ADDR OF GATEWAIT ROUTINE */ 00164000 * 2 ISTVTTP PTR(15), /* ADDR OF CODE TO CHECK FOR */ 00165000 * /* PENDING TIMER INTERRUPT */ 00166000 * 2 ISTAVR01 CHAR(2), /* RESERVED */ 00167000 * 2 ISTPDAVP PTR(31); /* VECTOR FOR PDAIDS SMS TRACE*/ 00168000 */* LOCKWORD FORMAT DSECT */ 00169000 */* INITIAL LEVEL 001 05/24/74 */ 00170000 *DCL 1 ISTLOK BDY(WORD) BASED, 0062 00171000 * 2 LOKCT CHAR(1) BDY(WORD), /* COUNT OF LOCK OWNERS */ 00172000 * 2 LOKCHN PTR(24), /* ADDR OF NEXT RPH WAITING 00173000 * ON LOCK */ 00174000 * 3 LOKCHNG CHAR(3), /* CHAIN/FLAGS */ 00175000 * 4 * CHAR(2), 0062 00176000 * 4 * BIT(8), 0062 00177000 * 5 * BIT(6), 0062 00178000 * 5 LOKPRY BIT(1), /* PRIORITY FLAG, 1 = ON */ 00179000 * 5 LOKXCL BIT(1); /* EXCLUSIVE FLAG, 1 = ON */ 00180000 *DCL LOKXCL1 BIT(32) CONSTANT('00000001'X); /* CONSTANT TO TURN LOKXCL 00181000 * ON */ 00182000 *DCL LOKPRY1 BIT(32) CONSTANT('00000002'X); /* CONSTANT TO TURN LOKPRY 00183000 * ON */ 00184000 *DCL LOKCHN1 BIT(32) CONSTANT('00FFFFFC'X); /* CONSTANT TO TURN LOKXCL 00185000 * AND LOKPRY OFF */ 00186000 *DCL LOKCT1 BIT(32) CONSTANT('01000000'X); /* CONSTANT TO MAKE LOKCT 00187000 * = 1 */ 00188000 *DCL LOKCT255 BIT(32) CONSTANT('FF000000'X); /* CONSTANT TO CHECK FOR 00189000 * MAX LOKCT (255) */ 00190000 */* RPL HEADER * 00191000 */* REVISIONS 006 04/09/75 * 00192000 *DCL RPHPTR PTR(31) REGISTER(1) RESTRICTED; 0068 00193000 *DCL 1 ISTRPH BDY(WORD) BASED(RPHPTR), 0069 00194000 * 2 RPHTYPE CHAR(1), /* CONTROL BLOCK TYPE * 00195000 * 2 RPHLNGTH PTR(8), /* LENGTH IN BYTES * 00196000 * 2 RPHFLAGS BIT(8), /* SYSTEM DEPENDENT FLAGS * 00197000 * 3 RPHOGIND BIT(1), /* OPEN GATE INDICATOR * 00198000 * 3 RPHSPGIN BIT(1), /* SPECIAL GATE OPEN IND. * 00199000 * 3 RPHAPTYP BIT(1), /* APS IS A USER EXIT * 00200000 * 4 RPHAUTEX BIT(1), /*EXIT TO AUTHORIZED USER VS2 * 00201000 * 3 RPHSMQ BIT(1), /* INDICATOR IF RPH IS TO BE * 00202000 * /* QUEUED * 00203000 * 3 RPHSMTYP BIT(1), /* REQUEST TYPE IS BUFFER OR * 00204000 * /* DOUBLE-WORD * 00205000 * 3 RPHSMCLR BIT(1), /* INDICATOR IF BUFFER TO BE * 00206000 * /* CLEARED * 00207000 * 3 RPHMLTCP BIT(1), /* USED BY LOCAL 3270 SUPPORT * 00208000 * /* WHEN BUILDING MULTIPLE CHAN * 00209000 * /* PROGRAM * 00210000 * 3 RPHFSTLC BIT(1), /* USED BY LOCAL 3270 SUPPORT * 00211000 * /* TO INDICATE FIRST LCCW * 00212000 * 4 RPHFNFLG BIT(1), /* LCCW SET FUNCTION FLAGS * 00213000 * 2 RPHFLGB BIT(8), /* SECOND FLAG BYTE * 00214000 * 3 RPHLOCK BIT(1), /* LOCKING OPTION * 00215000 * 3 RPHBSSP BIT(1), /* SYSTEM SERVICES PROGRESS * 00216000 * 3 RPHFBAPS BIT(1), /* STG. OBTAINED BY APS * 00217000 * 3 RPHPGCMP BIT(1), /* BIT ON INDICATES RESOURCE * 00218000 * /* MGR HAS COMPLETED UNLOCK * 00219000 * 3 RPHNRSAV BIT(1), /* DO NOT SAVE ON ACTIVATE * 00220000 * 3 RPHRLCRA BIT(1), /* RPH CAN BE RELEASED * 00221000 * /* WHEN PURGE COMPLETE * 00222000 * 3 * BIT(2), /* RESERVED * 00223000 * 2 RPHRPHA PTR(31), /* ADDR.OF NEXT RPL HEADER * 00224000 * 3 RPHGATE BIT(1), /* GATING FLAG * 00225000 * 3 * BIT(7), /* RESERVED * 00226000 * 3 RPHRPHAP PTR(24), 0069 00227000 * 2 RPHTSKID PTR(31), /* TASK IDENTIFICATION * 00228000 * /* OR ADDR.OF APS TABLE * 00229000 * 3 * CHAR(3), /* RPH TSK ID * 00230000 * 3 RPHTIK PTR(8), /* TIK * 00231000 * 2 RPHDVTA PTR(31), /* ADDR.OF CURRENT DVT * 00232000 * 2 RPHRESMA PTR(31) BDY(WORD), /* TPWAIT-POST INFO */ 0069 00233000 * 3 RPHWPFLG CHAR(1), /* WAIT-POST FLAGS */ 0069 00234000 * 4 RPHRSKEY BIT(4), /* STORAGE PROTECT KEY TO RESUME 00235000 * PROCESSING * 00236000 * 4 RPHWT BIT(1), /* WAIT BIT */ 0069 00237000 * 4 RPHPT BIT(1), /* POST BIT */ 0069 00238000 * 4 RPHPURGE BIT(1), /* RPH FLAGGED BY RECOVERY */ 00239000 * /* TO BE PURGED BY PSS */ 00240000 * /* VS/2 ONLY */ 00241000 * 4 RPHRSV01 BIT(1), /* RESERVED */ 00242000 * 3 RPHRESUM PTR(24), /* RESUME ADDRESS */ 0069 00243000 * 2 RPHPABOF PTR(8), /* OFFSET OF PAB IN CONTROL BLK* 00244000 * 2 RPHMAJCB PTR(24), /* ADDR.OF MAJOR CONTROL BLOCK * 00245000 * 2 RPHWEA PTR(31), /* ADDR.OF WORK ELEMENT * 00246000 * 3 RPHCSPA PTR(31), /* ADDR OF ISTCSP * 00247000 * 4 RPHWEGT BIT(1), /* GATE FOR WORK ELEMENT PROC. * 00248000 * 2 RPHSRPRM PTR(31), /* SERVICE ROUTINE PARM.FIELD * 00249000 * 3 RPHSRP12 FIXED(15), /* COUNT OF Q'ED SMS REQUESTS * 00250000 * 3 RPHSRP34 FIXED(15), /* SIZE OF Q'ED SMS REQUESTS * 00251000 * 2 RPHCRR PTR(31), /* ADDR.OF COMPONENT RECOVERY * 00252000 * /* RECORD * 00253000 * 2 RPHPABQA PTR(31), /* PAB QUEUE ADDRESS * 00254000 * 3 RPHPABFG CHAR(1), /* FLAG BYTE CARRIED FROM PAB * 00255000 * 3 RPHPABQP PTR(24), /* POINTER TO QUEUE OF PAB'S * 00256000 * 2 RPHWORK CHAR(64) BDY(WORD), /* 16 WORD WORK AREA * 00257000 * 3 RPHSAVE1 FIXED(31), /* * 00258000 * 4 RPHSBYTE CHAR(1), /* 1-BYTE SAVE FIELD * 00259000 * 4 RPHSBITS BIT(8), /* SAVE FIELD FOR FLAG BYTE * 00260000 * 5 RPHSBIT1 BIT(1), /* 1ST SAVE FIELD * 00261000 * 5 RPHSBIT2 BIT(1), /* 2ND SAVE FIELD * 00262000 * 5 RPHSBIT3 BIT(1), /* 3RD SAVE FIELD * 00263000 * 5 RPHSBIT4 BIT(1), /* 4TH SAVE FIELD * 00264000 * 5 RPHSBIT5 BIT(1), /* 5TH SAVE FIELD * 00265000 * 5 RPHSBIT6 BIT(1), /* 6TH SAVE FIELD * 00266000 * 5 RPHSBIT7 BIT(1), /* 7TH SAVE FIELD * 00267000 * 5 RPHSBIT8 BIT(1), /* 8TH SAVE FIELD * 00268000 * 4 RPHSHALF FIXED(15), /* HALF WORD SAVE AREA * 00269000 * 3 RPHSAVE2 FIXED(31), /* * 00270000 * 3 RPHSAVE3 FIXED(31), /* * 00271000 * 3 RPHSAVE4 FIXED(31), /* * 00272000 * 3 RPHSAVE5 FIXED(31), /* * 00273000 * 3 RPHSAVE6 FIXED(31), /* * 00274000 * 3 RPHSAVE7 FIXED(31), /* * 00275000 * 3 RPHSAVE8 FIXED(31), /* * 00276000 * 3 RPHSAVE9 FIXED(31), /* * 00277000 * 3 RPHSAV10 FIXED(31), /* * 00278000 * 3 RPHSAV11 FIXED(31), /* * 00279000 * 3 RPHSAV12 FIXED(31), /* * 00280000 * 3 RPHSAV13 FIXED(31), /* * 00281000 * 3 RPHSAV14 FIXED(31), /* * 00282000 * 3 RPHSAV15 FIXED(31), /* * 00283000 * 3 RPHSAV16 FIXED(31), /* * 00284000 * 2 RPHNEXPO PTR(31); /* ADDR.NEXT RPH TO BE POSTED * 00285000 * DCL RPTYPE BIT(8) CONSTANT('01'X); /* TYPE CODE FOR RPH * 00286000 * DCL RPHWT0 BIT(32) CONSTANT('F7FFFFFF'X); /* TURN RPHWT OFF */ 0071 00287000 * DCL RPHWT1 BIT(32) CONSTANT('08000000'X); /* TURN RPHWT ON */ 0072 00288000 * DCL RPHPT0 BIT(32) CONSTANT('FBFFFFFF'X); /* TURN RPHPT OFF */ 0073 00289000 * DCL RPHPT1 BIT(32) CONSTANT('04000000'X); /* TURN RPHPT ON */ 0074 00290000 * DCL RPHPABQ1 BIT(24) CONSTANT('000000'X); /* TURN RPHPBQ GATE */ 0075 00291000 */* REVISIONS 011 04/25/75 * 00292000 *DCL ATCLCPTR PTR LOCATION(1032); /* POINTER TO ATCVT * 00293000 *DCL 1 ISTATCVT BDY(DWORD) BASED, 0077 00294000 * 2 ATCCOM BDY(WORD), /* SYSTEM INDEPENDENT FIELDS * 00295000 * 3 ATCSTAT CHAR(4), /* VTAM STATUS INDICATORS * 00296000 * 4 ATCSTAT1 CHAR(1), /* VTAM STATUS BYTE 1 * 00297000 * 5 ATCSTART BIT(1), /* VTAM IS STARTING * 00298000 * 5 ATCACTIV BIT(1), /* VTAM IS ACTIVE * 00299000 * 5 ATCSNHLT BIT(1), /* VTAM SESSION HALT * 00300000 * 5 ATCQKHLT BIT(1), /* VTAM QUICK HALT * 00301000 * 5 ATCNETSL BIT(1), /* NETSOL=YES SPECIFIED ON CMD * 00302000 * 5 ATCINHLT BIT(1), /* INTERNAL VTAM HALT QUICK * 00303000 * 5 * BIT(2), /* RESERVED * 00304000 * 4 ATCSTFLG BIT(8), /* STORAGE MANAGEMENT FLAGS * 00305000 * 5 ATCHSDMF BIT(1), /* SYSTEM SLOW DOWN FLAG * 00306000 * 4 ATCPOFLG BIT(8), /* PROGRAM OPERATOR * 00307000 * /* INTERFACE FLAGS * 00308000 * 5 ATCPOUNS BIT(1), /* APPLICATION AUTHORIZED TO * 00309000 * /* RECEIVE UNSOLICITED MESSAGES* 00310000 * /* 1 = YES * 00311000 * 5 * BIT(7), /* RESERVED * 00312000 * 4 ATCSTAT4 CHAR(1), /* VTAM STATUS BYTE 4 * 00313000 * 5 ATCPRTAT BIT(1), /* 1 = TRACE PRINT ACTIVE, 0077 00314000 * 0 = NOT ACTIVE * 00315000 * 5 ATCTPRT BIT(1), /* WHEN 1, TPRINT IN PROCESS * 00316000 * 5 ATCMTST BIT(1), /* WHEN 1, MODIFY TEST IN 0077 00317000 * PROCESS * 00318000 * 5 ATCNCSD BIT(1), /* NCS QUIESCED DURING HALT * 00319000 * 5 ATCRSV04 BIT(4), /* RESERVED * 00320000 * 3 ATCAPI PTR(31), /* ADDR OF API ROUTINE * 00321000 * 3 ATCDCFRR PTR(31), /* POINTER TO FRR OF CONTROL 00322000 * LAYER,INITIALIZED BY OPENDST* 00323000 * 3 ATCRDT PTR(31), /* POINTER TO FIRST RDT * 00324000 * 3 ATCSRT PTR(31), /* POINTER TO SRT DIRECTORY * 00325000 * 3 ATCASCHD PTR(31), /* POINTER TO AP SCHEDULER * 00326000 * 3 ATCECMOD CHAR(4), /* ECB FOR MODIFY COMMAND PROC.* 00327000 * 3 ATCMODQ PTR(31), /* POINTER FOR OUTPUT QUEUE * 00328000 * /* FOR MODIFY COMMAND * 00329000 * 3 ATCECHLT CHAR(4), /* ECB FOR HALT COMMAND * 00330000 * 3 ATCHALTQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00331000 * /* FOR HALT COMMAND * 00332000 * 3 ATCECVRY CHAR(4), /* ECB FOR VARY COMMAND PROC. * 00333000 * 3 ATCVARYQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00334000 * /* FOR VARY COMMAND * 00335000 * 3 ATCECDSP CHAR(4), /* ECB FOR DISPLAY COMMAND * 00336000 * 3 ATCDSPLQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00337000 * /* FOR DISPLAY COMMAND * 00338000 * 3 ATCOCHA PTR(31), /* POINTER TO OCT HEADER * 00339000 * 3 ATCECSES CHAR(4), /* ECB TO HALT SESSION MODE * 00340000 * 3 ATCECVRQ CHAR(4), /* ERP ECB FOR VARY REQ. INFO. * 00341000 * /* REQUEST NOTIFICATION * 00342000 * 3 ATCVPARM PTR(31), /* ADDR OF VARY PARAMETERS * 00343000 * 3 ATCECOPC CHAR(4), /* ECB TOINDICATE OPERATOR * 00344000 * /* CONTROL PROCESSING COMPLETE * 00345000 * 3 ATCECNET CHAR(4), /* ERP ECB FOR NETWORK * 00346000 * /* CONFIGURATION REQUEST * 00347000 * 3 ATCECPRM PTR(31), /* POINTER TO QAB FOR ERP'S * 00348000 * /* ECB PARAMETERS * 00349000 * 3 ATCHLTMS PTR(31), /* POINTER TO HALT COMMAND * 00350000 * /* OR HALT RETURN MESSAGE * 00351000 * 3 ATCFSB PTR(31), /* PTR TO FEEDBACK STATUS * 00352000 * /* BLOCK * 00353000 * 3 ATCFRSCH PTR(31), /* POINTER TO FEEDBACK * 00354000 * /* ROUTINE SCHEDULER * 00355000 * 3 ATCRDTH PTR(31), /* POINTER RDT HEADER * 00356000 * 3 ATCACCTA PTR(31), /* POINTER TO INSTALLATION * 00357000 * /* ACCOUNTING ROUTINE * 00358000 * 3 ATCAUTHA PTR(31), /* POINTER TO INSTALLATION * 00359000 * /* AUTHORISATION ROUTINE * 00360000 * 3 ATCPTCHA PTR(31), /* PTR TO VTAM PATCH AREA * 00361000 * 3 ATCCONFT PTR(31), /* POINTER TO VTAM * 00362000 * /* CONFIGURATION TABLE * 00363000 * 3 ATCFDVT PTR(31), /* PTR TO FIRST DVT FOR O/C * 00364000 * 3 ATCFEPT PTR(31), /* PTR TO FIRST EPT FOR O/C * 00365000 * 3 ATCDVTPT PTR(31), /* ADDR OF LOAD MOD FOR * 00366000 * /* TYPE=VTAM TRACING * 00367000 * 3 ATCBPDA PTR(31), /* PTR TO BUFFER POOL DIRECTORY* 00368000 * 3 ATCADD PTR(31), /* POINTER TO ADD PROCEDURE * 00369000 * 3 ATCREMOV PTR(31), /* POINTER TO REMOVE PROCEDURE * 00370000 * 3 ATCIOTRC PTR(31), /* POINTER TO I/O TRACE * 00371000 * /* PROCEDURE * 00372000 * 4 ATCTHTRC PTR(31), /* ADDR OF TH TRACE ROUTINE * 00373000 * 5 ATCTPBUF PTR(31), /* TPIOS BUFFER TRACE(ISTRARTP)* 00374000 * 3 ATCBFTRC PTR(31), /* PTR TO BUFFER TRACE * 00375000 * /* PROCEDURE * 00376000 * 3 ATCFBRPH PTR(31), /* ADDR OF FEEDBACK PROC RPH * 00377000 * 3 ATCBLDLA PTR(31), /* ADDR OF BLDL ROUTINE * 00378000 * 3 ATCALOAD PTR(31), /* ADDR OF ALOAD ROUTINE * 00379000 * 3 ATCREADA PTR(31), /* ADDR OF SOURCE READ ROUTINE * 00380000 * 3 ATCGTSTR PTR(31), /* ADDR OF GETSTOR ROUTINE * 00381000 * 3 ATCFRSTR PTR(31), /* ADDR OF FREESTOR ROUTINE * 00382000 * 3 ATCSTMA PTR(31), /* ADDR OF SM INITIALIZATION * 00383000 * /* ROUTINE * 00384000 * 3 ATCACDA PTR(31), /* ADDR OF FIRST ACDEB * 00385000 * 3 ATCSMRQ PTR(31), /* ADDR OF REQUEST STORAGE * 00386000 * /* ROUTINE * 00387000 * 3 ATCSMQU PTR(31), /* ADDR OF QUEUE REQUEST RTNE 00388000 * - DOS ONLY * 00389000 * 3 ATCSMRS PTR(31), /* ADDR OF RELEASE STORAGE * 00390000 * /* ROUTINE * 00391000 * 3 ATCSMRC PTR(31), /* ADDR OF RECOVER STORAGE * 00392000 * /* ROUTINE - DOS ONLY * 00393000 * 3 ATCSMBQ PTR(31), /* PTR TO Q'ED REQ. SMS RTN. * 00394000 * 3 ATCFIRA PTR(31), /* ADDR OF FEEDBACK INITIATION * 00395000 * /* RPH * 00396000 * 3 ATCSRTAD PTR(31), /* PTR TO SRTADD ROUTINE * 00397000 * 3 ATCSRTDF PTR(31), /* PTR TO SRTDELE ROUTN * 00398000 * 3 ATCDCC60 PTR(31), /* PTR TO ISTDCC60 - CTL. LAYER 00399000 * MOVE TO USER AREA * 00400000 * 3 ATCDCC61 PTR(31), /* PTR TO ISTDCC61 - CTL. LAYER 00401000 * MOVE FIXED TO PAGABLE * 00402000 */* BEGIN 'ANY' DVT * 00403000 * 3 ATCNERST PTR(31), /* PTR TO ISTDCC00 - REQUEST-ST* 00404000 * 3 ATCNERCV PTR(31), /* PTR TO ISTRCC21-RECEIVE OB * 00405000 * 3 ATCNERNE PTR(31), /* PTR TO ISTDCC25 - READ-ANY * 00406000 * 3 ATCNERFN PTR(31), /* PTR TO ISTDCC02 - REQUEST-FN * 00407000 */* END 'ANY' DVT * 00408000 * 3 ATCAPOST PTR(31), /* PTR TO VTAM POST ROUTINE * 00409000 * 3 ATCVTMID CHAR(2), /* HOST MAJOR NODE I.D. * 00410000 * 3 ATCRSV11 CHAR(2), /* RESERVED * 00411000 * 3 ATCRCC63 PTR(31), /* HSKPANYQ POINTER * 00412000 * 3 ATCRCC26 PTR(31), /* SEND RESPONSE POINTER * 00413000 * 3 ATCRCC65 PTR(31), /* SET RPL POINTER * 00414000 * 3 ATCNESAL PTR(31), /* PTR TO ISTDCC24 - SOLICIT-ALL* 00415000 * 3 ATCNERAP PTR(31), /* PTR TO ISTDCC85 - READ ANY 00416000 * PURGE * 00417000 * 3 ATCACTRM FIXED(15), /* COUNT OF ACTIVE TERMINALS * 00418000 * 3 ATCCIDM BIT(16), /* CID MASK * 00419000 * 3 ATCMSGSP BIT(8), /* RESERVED FOR MESAGE SURPRESSION * 00420000 * 2 ATCMAXID PTR(8), /* MAXIMUM NUMBER OF MAJOR NODES, 0 = 00421000 * NUMBER OF ENTRIES IN THE MNT * 00422000 * 2 ATCRSV16 CHAR(2), /* NOT USED * 00423000 * 2 ATCMNT PTR(31), /*PTR TO MAJOR NODE TABLE -SET BY SYS. 00424000 * DEF. REF. BY ISTSDCCB (CBDEF), 0077 00425000 * ISTSDCCI (CINDEXY) * 00426000 * 2 ATCCDADD PTR(31), /*PTR TO CIDADD ROUTINE ISTSDCCA 0077 00427000 * REF. BY CIDCTL MACRO * 00428000 * 2 ATCCDDEL PTR(31), /*PTR TO CIDDEL ROUTINE ISTSDCCD 0077 00429000 * REF. BY CIDCTL MACRO * 00430000 * 2 ATCCDFND PTR(31), /*PTR TO CIDFND ROUTINE IATSDCCF 0077 00431000 * REF. BY CIDCTL MACRO * 00432000 * 2 ATCESC01 PTR(31), /*PTR TO ESC01 * 00433000 * 2 ATCESC02 PTR(31), /*PTR TO ESC02 * 00434000 * 2 ATCCSMR PTR(31), /* PTR TO CONNECTION SERVICES * 00435000 * /* MASTER ROUTINE * 00436000 * 3 ATCCSMA PTR(31), /* PTR TO CONNECTION SERVICES 0077 00437000 * MASTER ROUTINE * 00438000 * 2 ATCOCRT PTR(31), /* PTR TO OPEN/CLOSE ROUTINE * 00439000 * 2 ATCUEP PTR(31), /* POINTER TO USER EXIT * 00440000 * 2 ATCSHRTN CHAR(8), /* NAME OF VTAM SHARED RTN * 00441000 * /* TO BE LOADED * 00442000 * 2 ATCSHRFG BIT(8), /* ATTRIBUTE FLAGS * 00443000 * 3 ATCLAST BIT(1), /* INDICATE HTIS IS LAST MODULE * 00444000 * 2 ATCXRANG CHAR(1), /* NUMBER OT BITS IN X-VALUE 0077 00445000 * PORTION OF CID * 00446000 * 2 ATCSAF CHAR(2), /* SUB AREA ADDRESS FIELD * 00447000 * 2 ATCEPA PTR(31), /* ENTRY POINT ADDR OF LOADED * 00448000 * 2 ATCALERT PTR(31), /* POINTER TO ALERT-ROUTINE 0077 00449000 * ISTSDCAL * 00450000 * 2 ATCDVLOD PTR(31), /* PTR TO ISTSDCOD * 00451000 * 2 ATCTRCPT PTR(31), /* POINTER TO TRACE PARM LIST * 00452000 * 2 ATCDVT PTR(31), /* POINTER TO FIRST DVT ON CHAIN * 00453000 * 2 ATCEPT PTR(31), /* POINTER TO FIRST EPT ON CHAIN * 00454000 * 2 ATCMSGP PTR(31), /* POINTER TO TPMSG PROCESSOR * 00455000 * 2 ATCMSGM PTR(31), /* POINTER TO TPMSG - MESSAGE 0077 00456000 * CSECT * 00457000 * 2 ATCTRPAB PTR(31), /* ADDRESS OF TRACE WRITER PAB * 00458000 * 2 ATCVTLOD PTR(31), /* ADDR OF VTAM LOAD LIST * 00459000 * 2 ATCECPRT CHAR(4), /* ECB FOR TRACE FILE PRINT * 00460000 * 2 ATCZDVTB PTR(31), /* ADDRESS OF ISTZCFBI * 00461000 * 2 ATCECTLP CHAR(4), /* TOLTEP ECB * 00462000 * 2 ATCRVCHS CHAR(8), /* RESERVED * 00463000 * 2 ATCCRME PTR(31), /* VARY PSS CONTROL MECHANISM * 00464000 * 2 ATCHPGM, /* BUFFER INFORMATION */ 00465000 * 3 ATCHBFNO FIXED(15), /* NUMBER OF BUFFS FOR CHANNEL */ 00466000 * 3 ATCHBSIZ FIXED(15), /* BUFFER SIZE IN BYTES */ 00467000 * 2 ATCDEBCH PTR(31), /* CLOSE DEB CHAIN PTR */ 00468000 * 2 ATCTODVT PTR(31), /* THE TOLTEP DVT PTR POINTED 0077 00469000 * TO BY 3RD WORD OF PAB */ 00470000 * 2 ATCADEL PTR(31), /* A DELETE ROUTINE ADDRESS */ 00471000 * 2 ATCCDPTR PTR(31), /* PTR TO ISTOCCCD - DOS ONLY */ 00472000 * 2 ATCLDNCS PTR(31), /* PTR TO NCSPL FOR LOAD/DUMP */ 00473000 * 2 ATCLDECB BIT(32), /* ECB FOR LOAD/DUMP SUBTASK */ 00474000 * 2 ATCRSV99 CHAR(32), /* RESERVED FOR LATER POINTERS */ 00475000 * 2 ATCAP33 PTR(31), /* PTR TO ISTAPC33 */ 00476000 * 2 ATCAP35 PTR(31), /* PTR TO ISTAPC35 */ 00477000 * 2 ATCAP36 PTR(31), /* PTR TO ISTAPC36 */ 00478000 * 2 ATCDVTLK CHAR(LENGTH(ISTLOK)), /* LOCK WORD FOR DVT LOCK */ 00479000 * 2 ATCCDFIN PTR(31), /* POINTER TO ISTSDCRR */ 00480000 * 2 ATCCDFDN PTR(31), /* POINTER TO ISTSDCCN */ 00481000 * 2 ATCVOCLK CHAR(LENGTH(ISTLOK)), /* VOCLOCK LOCK */ 00482000 * 2 ATCRDTLK CHAR(LENGTH(ISTLOK)), /* RDTLOCK LOCK */ 00483000 * 2 ATCRSV97 PTR(31), /* DWORD ALIGNMENT */ 00484000 * 2 ATCVPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR VARY 00485000 * UNDER PSS CONTROL */ 00486000 * 2 ATCPGPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* ERP PAB FOR 00487000 * PURGE */ 00488000 * 2 ATCDLRPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* DUMP LOAD & 00489000 * RESTART PAB */ 00490000 * 2 ATCCCLAD PTR(31), /* ADDRESS OF VARY ERP (ISTINCCL)*/ 00491000 * 2 ATCCDLAD PTR(31), /* ADDRESS OF VARY DUMP,LD RSTRT 00492000 * (ISTINCDL) */ 00493000 * 2 ATCOCCOB PTR(31), /* ADDRESS ISTOCCOB */ 00494000 * 2 ATCOCCCB PTR(31), /* ADDRESS ISTOCCCB */ 00495000 * 2 ATCTIPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0077 00496000 * FOR ISTOLTP */ 00497000 * 2 ATCTCIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0077 00498000 * FOR TOLTEP CLIP */ 00499000 * 2 ATCVTIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0077 00500000 * FOR TOLTEP-VTAM INTERFACE*/ 00501000 * 2 ATCTCLOM PTR(31), /* ADDR TOLTEP CLOP PROC */ 00502000 * 2 ATCTCLIM PTR(31), /* ADDR TOLTEP CLIP PROC */ 00503000 * 2 ATCVTINM PTR(31), /* ADDR TOLTEP-VTAM INTF PROC */ 00504000 * 2 ATCTACB PTR(31), /* TOLTEP ACB */ 00505000 * 2 ATCRSV10 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* RESERVED */ 00506000 * 2 ATCPTR00 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB */ 00507000 * 2 ATCCFEAD PTR(31), /* ADDR OF ISTINCFE */ 00508000 * 2 ATCVLCNT CHAR(4) BDY(HWORD), /* VARY DEVICE ONLINE COUNTS*/ 00509000 * 3 ATCRNCNT PTR(16), /* 370X COUNT */ 00510000 * 3 ATCLCLCT PTR(16), /* 3270 COUNT */ 00511000 * 2 ATCS49XI PTR(31), /* ADDRESS OF ISTPICXI */ 00512000 * 2 ATCS49XL PTR(31), /* ADDRESS OF ISTPICXL */ 00513000 * 2 ATCPODVT PTR(31), /* PTR TO PROGRAM OPERATOR DVT*/ 00514000 * 2 ATCPOIA PTR(31), /* PTR TO PROGRAM OPERATOR */ 00515000 * /* INTERFACE AREA */ 00516000 * 2 ATCSOPD CHAR(8) BDY(WORD), /* SESSION CONTROL */ 00517000 * 3 ATCSEC01 PTR(31), /* OUTBOUND PROCESSING */ 00518000 * 3 ATCSEC10 PTR(31), /* DVT */ 00519000 * 2 ATCSIPD CHAR(12) BDY(WORD),/* SESSION CONTROL */ 00520000 * 3 ATCSEC21 PTR(31), /* INBOUND PROCESSING */ 00521000 * 3 ATCSEC30 PTR(31), /* FEEDBACK */ 00522000 * 3 ATCSEC40 PTR(31), /* DVT */ 00523000 * 2 ATCSECST CHAR(4) BDY(WORD),/* SESSION CONTROLSESS TERM */ 00524000 * 3 ATCSEC51 PTR(31), /* RECOVERY DVT */ 00525000 * 2 ATCNMCTR FIXED(15), /* NAME COUNTER */ 00526000 * 2 * FIXED(15), /* RESERVED */ 00527000 * 2 ATCSRTAB PTR(31), /* SEARCH LOGON MODE TABLE */ 00528000 * /* RTN ADDRESS (ISTINCSH) */ 00529000 * 2 ATCUSSPT PTR(31), /* DEFAULT USS DEFINITION */ 00530000 * /* TABLE ADDRESS (ISTINCDT) */ 00531000 * 2 ATCMODTB PTR(31), /* DEFAULT SYSTEM LOGON MODE */ 00532000 * /* TABLE ADDRESS (ISTINCLM) */ 00533000 * 2 ATCINCW3 PTR(31), /* ADDRESS OF ISTINCW3 */ 00534000 * 2 ATCIOECB PTR(31), /* ECB USED BY IOS - */ 00535000 * /* POINTED TO BY IOBECBPT */ 00536000 * 2 ATCVDPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0077 00537000 * /* SSCP COMMAND PROCESSING PAB */ 00538000 * 2 ATCVFPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0077 00539000 * /* SSCP FRONT END PAB */ 00540000 * 2 ATCVDLOK CHAR(LENGTH(ISTLOK)), /* SSCP SERIALIZATION LOCK */ 00541000 */* END OF COMMON AREA */ 00542000 */* VS1/VS2 COMMON CODE. */ 00543000 * 2 ATCRSVBB PTR(31), /* RESERVED * 00544000 * 2 ATCAOSM BDY(DWORD), 0077 00545000 */* * 00546000 * 3 ATCSRBRT PTR(31), /* POINTER TO ROUTINE UNDER * 00547000 * /* SRB CONTROL * 00548000 * 3 ATCGSRBQ PTR(31), /* READY QUEUE FOR GLOBAL SRB'S* 00549000 * 4 ATCGSRBG BIT(8), /* READY QUEUE GATE BYTE * 00550000 * 5 ATCGSRBF BIT(1), /* READY QUEUE GATE BIT * 00551000 * 3 ATCPRPH PTR(31), /* PTR TO PREALLOCATED RPH * 00552000 * 3 ATCCMTCB PTR(31), /* PTR TO COMMUNICATIONS TASK * 00553000 * /* TCB * 00554000 * 3 ATCAP11 PTR(31), /* PTR TO ISTAPC11 * 00555000 * 3 ATCAP12 PTR(31), /* PTR TO ISTAPC12 * 00556000 * 3 ATCAP31 PTR(31), /* PTR TO ISTAPC31 * 00557000 * 3 ATCAP32 PTR(31), /* PTR TO ISTAPC32 * 00558000 * 3 ATCAP34 PTR(31), /* PTR TO ISTAPC34 * 00559000 * 3 ATCAP52 PTR(31), /* PTR TO ISTAPC52 * 00560000 * 3 ATCAP53 PTR(31), /* PTR TO ISTAPC53 * 00561000 * 3 ATCAP54 PTR(31), /* PTR TO ISTAPC54 * 00562000 * 3 ATCAP57 PTR(31), /* PTR TO ISTAPC57 * 00563000 * 3 ATCAP58 PTR(31), /* PTR TO ISTAPC58 * 00564000 * 3 ATCAP61 PTR(31), /* PTR TO ISTAPC61 * 00565000 * 3 ATCAP63 PTR(31), /* PTR TO ISTAPC63 * 00566000 * 3 ATCAP64 PTR(31), /* PTR TO ISTAPC64 * 00567000 * 3 ATCZFSVT PTR(31), /* TPIOS FIXED SRVICES VCTR TAB* 00568000 * 3 ATCZPSVT PTR(31), /* TPIOS PAGBL SRVCES VCTR TABL* 00569000 * 3 ATCICNCB PTR(31), /* HEAD OF ICNCB QUEUE * 00570000 * 3 ATCZDVT1 PTR(31), /* TPIOS SLODWN RECOVRY PRCSR * 00571000 * 3 ATCZDVT3 PTR(31), /* 370X FEEDBACK STAT CNTRL RTR* 00572000 * 3 ATCZDVT4 PTR(31), /* OPERATOR MESSAGE SCHEDULER * 00573000 * 3 ATCZDVT6 PTR(31), /* DIALOGUE SCHEDULER (INBOUND)* 00574000 * 3 ATCAP65 PTR(31), /* PTR TO ISTAPC65 */ 00575000 * 3 ATCICAPP CHAR(20) BDY(WORD), /* 3705 APPENDAGE VECTOR * 00576000 * 4 ATCCDRPH PTR(31), /* ADDR CLOSE DEB RPH 0077 00577000 * (DUMMY EOA APP.) */ 00578000 * 4 ATCZSIOA PTR(31), /* ADDR 3705 SIO APPENDAGE */ 00579000 * 4 ATCCDTCB PTR(31), /* VTAM TCB (DUMMY PCI APP.) */ 00580000 * 4 ATCZCEA PTR(31), /* ADDR 3705 CHANNEL END 0077 00581000 * APPENDAGE */ 00582000 * 4 ATCZAEA PTR(31), /* ADDR 3705 CHANNEL END 0077 00583000 * APPENDAGE */ 00584000 * 3 ATCLDAPP CHAR(20) BDY(WORD), /* LOCAL 3270 APPENDAGE 00585000 * VECTOR */ 00586000 * 4 ATCCDTID PTR(31), /* TASK ID OF VTAM 0077 00587000 * (DUMP EOE) */ 00588000 * 4 ATCSMFRR PTR(31), /* ADDR OF SMS FRR 0077 00589000 * (DUMMY SIOA) */ 00590000 * 4 ATCRSV17 PTR(31), /* RESERVED FOR ALIGNMENT */ 00591000 * 4 ATCZLCEA PTR(31), /* ADDR 3270 CHANNEL END 0077 00592000 * APPENDAGE */ 00593000 * 4 ATCZLAEA PTR(31), /* ADDR 3270 CHANNEL END 0077 00594000 * APPENDAGE */ 00595000 * 3 ATCDAPVT CHAR(24) BDY(WORD), /* DUMMY APPENDAGE 0077 00596000 * VECTOR TABLE FOR LOAD/DVMMY*/ 00597000 * 4 ATCDEOEA PTR(31), /* ADDRESS OF DUMMY END 0077 00598000 * OF EXTENT APPENDAGE */ 00599000 * 4 ATCDSIOA PTR(31), /* ADDRESS OF DUMMY END 0077 00600000 * OF SIO APPENDAGE */ 00601000 * 4 ATCDPCIA PTR(31), /* ADDRESS OF DUMMY PCI 0077 00602000 * APPENDAGE */ 00603000 * 4 ATCDCEA PTR(31), /* ADDRESS OF CHANNEL END 0077 00604000 * APPENDAGE */ 00605000 * 4 ATCDXCEA PTR(31), /* ADDRESS OF ABNORMAL 0077 00606000 * END APPENDAGE */ 00607000 * 4 ATCDAPDG CHAR(2), /* DUMMY APPENDAGE */ 00608000 * 4 ATCRSV56 CHAR(2), /* RESERVED */ 00609000 * 3 ATCZDVT7 PTR(31), /* ADDR OF RESET CLEANUP 0077 00610000 * (PHASE 1) * 00611000 * 3 ATCZDVT8 PTR(31), /* 3270 LOCAL TEST AND CTL 0077 00612000 * FEEDBACK ROUTER */ 00613000 * 3 ATCZDVT9 PTR(31), /* ADDRESS OF ISTZDFKA */ 00614000 * 3 ATCZDVTA PTR(31), /* ADDRESS OF ISTZCFIA */ 00615000 * 3 ATCZDVTX PTR(31), /* ADDRESS OF TRUNK LINE 0077 00616000 * DEACTIVATE ROUTINE */ 00617000 * 3 ATCZLPVT PTR(31), /* ADDRESS OF ISTZPSVA */ 00618000 * 3 ATCZLFVT PTR(31), /* TPIOS 3270 LOCAL FIXED 0077 00619000 * SERVICES VECTOR TABLE */ 00620000 * 3 ATCZPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR 00621000 * TEST AND CTL FEEDBACK ROUTER* 00622000 * 3 ATCZPAB2 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* 370X 0077 00623000 * STATUS AND FEEDBACK ROUTER 00624000 * DYNAMIC PAB */ 00625000 * 3 ATCAP51 PTR(31), /* PTR TO ISTAPC51 */ 00626000 * 3 ATCZDFJ0 PTR(31), /* ADDR OF ISTZDFJ0 */ 00627000 * 3 ATCAP37 PTR(31), /* PTR TO ISTAPC37 */ 00628000 * 3 ATCAP38 PTR(31), /* PTR TO ISTAPC38 */ 00629000 * 3 ATCRPT11 PTR(31), /* RESERVED */ 00630000 * 3 ATCRPT12 PTR(31), /* RESERVED */ 00631000 * 3 ATCRPT13 PTR(31), /* RESERVED */ 00632000 * 3 ATCRPT14 PTR(31), /* RESERVED */ 00633000 * 3 ATCRPT15 PTR(31), /* RESERVED */ 00634000 * 3 ATCRPT16 PTR(31), /* RESERVED */ 00635000 * 3 ATCRPT17 PTR(31), /* RESERVED */ 00636000 * 3 ATCRPT18 PTR(31), /* RESERVED */ 00637000 * 3 ATCRPT19 PTR(31), /* RESERVED */ 00638000 * 3 ATCRPT20 PTR(31), /* RESERVED */ 00639000 * 3 ATCRPT21 PTR(31), /* RESERVED */ 00640000 * 3 ATCRPT22 PTR(31), /* RESERVED */ 00641000 * 3 ATCRPT23 PTR(31), /* RESERVED */ 00642000 * 3 ATCRPT24 PTR(31), /* RESERVED */ 00643000 * 3 ATCRPT25 PTR(31), /* RESERVED */ 00644000 * 3 ATCRPT26 PTR(31), /* RESERVED */ 00645000 * 3 ATCRPT27 PTR(31), /* RESERVED */ 00646000 * 3 ATCRPT28 PTR(31), /* RESERVED */ 00647000 * 3 ATCRPT29 PTR(31), /* RESERVED */ 00648000 * 3 ATCRPT30 PTR(31), /* RESERVED */ 00649000 * 3 ATCRPT31 PTR(31), /* RESERVED */ 00650000 * 3 ATCRPT32 PTR(31), /* RESERVED */ 00651000 * 3 ATCRPT33 PTR(31), /* RESERVED */ 00652000 * 3 ATCRPT34 PTR(31), /* RESERVED */ 00653000 * 3 ATCRPT35 PTR(31), /* RESERVED */ 00654000 * 3 ATCRPT36 PTR(31), /* RESERVED */ 00655000 * 3 ATCRPT37 PTR(31), /* RESERVED */ 00656000 * 3 ATCRPT38 PTR(31), /* RESERVED */ 00657000 * 3 ATCRPT39 PTR(31), /* RESERVED */ 00658000 * 3 ATCRPT40 PTR(31), /* RESERVED */ 00659000 */* END OF VS1/VS2 COMMON CODE. */ 00660000 */* START OF VS2 UNIQUE CODE. */ 00661000 * 3 ATCVTFLG BIT(32), 0077 00662000 * 4 ATCVTACT BIT(1), /* VTT ACTIVE */ 00663000 * 4 * BIT(31), /* RESERVED */ 00664000 * 3 ATCHLTCB PTR(31), /* ECB FOR HALTING VTAM */ 00665000 * 3 ATCATA10 PTR(31), /* PTR TO ISTATM10 */ 00666000 * 3 ATCZLAAB PTR(31), /* PTR TO ISTZLFAB */ 00667000 * 3 ATCCACXA PTR(31), /* PTR TO ISTCFCXA */ 00668000 * 3 ATCSMARA PTR(31), /* PTR TO ISTORFRA */ 00669000 * 3 ATCSMAID PTR(31), /* PTR TO ISTORFID */ 00670000 * 3 ATCTPWQA PTR(31), /* WAIT Q ANCHOR FOR TPIOS */ 00671000 * 3 ATCSMAPR PTR(31), /* PTR TO ISTORFPR */ 00672000 * 3 ATCSMABF PTR(31), /* PTR TO ISTORFBF */ 00673000 * 3 ATCPSTA PTR(31), /* ACTIVE PST QUEUE */ 00674000 * 3 ATCTRMBP CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0077 00675000 * /* PAB FOR VTAM TERM TASK */ 00676000 * 3 ATCTPSPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0077 00677000 * /* PAB FOR TPIOS */ 00678000 * 3 ATCAP23 PTR(31), /* PTR TO ISTAPC23 */ 00679000 * 3 ATCAPC25 PTR(31), /* PTR TO ISTAPC25 */ 00680000 * 3 ATCAP41 PTR(31), /* PTR TO ISTAPC41 */ 00681000 * 3 ATCRCFY0 PTR(31), /* PTR TO ISTRCFY0 */ 00682000 * 3 ATCAP55 PTR(31), /* PTR TO ISTAPC55 */ 00683000 * 3 ATCAP56 PTR(31), /* PTR TO ISTAPC56 */ 00684000 * 3 ATCAPC59 PTR(31), /* PTR TO ISTAPC59 */ 00685000 * 3 ATCAP62 PTR(31), /* PTR TO ISTAPC62 */ 00686000 * 3 ATCAP66 PTR(31), /* PTR TO ISTAPC66 */ 00687000 * 3 ATCAP69 PTR(31), /* PTR TO ISTAPM69 */ 00688000 * 3 ATCAP82 PTR(31), /* PTR TO ISTAPC82 */ 00689000 * 3 ATCAP83 PTR(31), /* PTR TO ISTAPC83 */ 00690000 * 3 ATCAP84 PTR(31), /* PTR TO ISTAPC84 */ 00691000 * 3 ATCAP85 PTR(31), /* PTR TO ISTAPC85 */ 00692000 * 3 ATCAP86 PTR(31), /* PTR TO ISTAPC86 */ 00693000 * 3 ATCASCB PTR(31), /* PTR TO VTAM ASCB */ 00694000 * 3 ATCMPLTA PTR(31), /* PTR TO MPST LIST TABLE */ 00695000 * 3 ATCZR01 PTR(31), /* PTR TO ISTZRM01 */ 00696000 * 3 ATCAICTN PTR(31), /* PTR TO ISTAICTN */ 00697000 * 3 ATCTPCP0 PTR(31), /* PTR TO ISTZFSAV */ 00698000 * 3 ATCTPCP1 PTR(31), /* PTR TO ISTZ19SV */ 00699000 * 3 ATCZFLAG BIT(8), /* FLAG BYTE */ 00700000 * 4 ATCZF001 BIT(1), /* MDR RECORDING SUSPENDED */ 00701000 * 4 ATCRSV66 BIT(7), /* RESERVED */ 00702000 * 3 ATCRSV75 BIT(8), /* RESERVED */ 00703000 * 3 ATCSRBCT FIXED(16), /* COUNT OF PREALLOCATED SRB'S*/ 00704000 * 3 ATCCRACT FIXED(16), /* COUNT OF PREALLOCATED CRA'S*/ 00705000 * 3 ATCRPLCT FIXED(16), /* COUNT OF PREALLOCATED CRPL */ 00706000 * 3 ATCTPMPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /*TP MSG PAB 00707000 * FOR VS2 */ 00708000 * 3 ATCTPMMI PTR(31), /* PTR TO ISTCFMMI - MSG ISSUER 00709000 * FOR SRB MODE ROUTINES */ 00710000 * 3 ATCVIOPM PTR(31), /* PTR TO ISTVIOPM */ 00711000 * 2 ATCAOS CHAR(0) BDY(WORD); /* VS2 ONLY FIELDS */ 00712000 */* END OF ATBUILD */ 0078 00713000 * RFY GPR15P RSTD; 0078 00714000 * 0078 00715000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0079 00716000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0080 00717000 L GPR15P,ATCLCPTR 0080 00718000 * END; /*LISATCVT*/ 0081 00719000 * GPR15P=GPR15P->ATCESC01; 0082 00720000 L GPR15P,ATCESC01(,GPR15P) 0082 00721000 * DCL FMZL0004 BASED(GPR15P) LABEL VALUERANGE(*); 0083 00722000 * CALL FMZL0004; 0084 00723000 BALR @14,@15 0084 00724000 * RESPECIFY GPR15P UNRSTD; 0085 00725000 * END; /***** END OF TPESC *****/ 0086 00726000 * 0086 00727000 * GEN(DC C'ISTesc02 75.128'); 0087 00728000 * 0087 00729000 @RC00048 DS 0H 0087 00730000 DC C'ISTesc02 75.128' 00731000 */* TPEPILOG */ 0088 00732000 * GEN (PRINT OFF); 0088 00733000 * 0088 00734000 PRINT OFF 00735000 */* ENTRY POINT TABLE */ 0089 00736000 */* COMPLETED DCR SOLUTIONS */ 0089 00737000 */* IK0434,IK0697 - HC - 18 NOV 72 */ 0089 00738000 *DECLARE 0089 00739000 * 1 ISTEPT BDY(WORD) BASED, 0089 00740000 * 2 EPTHDR CHAR(12) BDY(WORD), /* USED TO CHAIN ENTRY PT TABLE */ 00741000 * 3 EPTHFORM PTR(31), /* PTR TO NEXT ENTRY PT TABLE */ 00742000 * 4 EPTHFW1 CHAR(1), /* FLAGS */ 00743000 * 5 EPTHFW1A BIT(1), /* END OF EPT CHAIN */ 00744000 * 5 EPTHFW1B BIT(7), /* RESERVED */ 00745000 * 4 EPTHFWDA PTR(24), /* NEXT EPT ADDR (ZERO FOR END OF CHAIN) */ 00746000 * 3 EPTHECNT FIXED(15), /* #OF ENTRIES IN ENTRY PT TABLE */ 00747000 * 3 EPTHUCNT FIXED (15), /* USE COUNT-#USERS REFERENCING TABLE */ 00748000 * 3 EPTHFGA CHAR(1), /* FLAG FIELD 1 */ 00749000 * 4 EPTHFGA1 BIT(1), /* A DUP EPT HAS BEEN BUILT */ 00750000 * 4 EPTRSVO1 BIT(1), /* RESERVED */ 00751000 * 4 EPTRSV02 BIT(1), /* RESERVED */ 00752000 * 4 EPTRSV03 BIT(1), /* RESERVED */ 00753000 * 4 EPTRSV04 BIT(1), /* RESERVED */ 00754000 * 4 EPTRSV05 BIT(1), /* RESERVED */ 00755000 * 4 EPTRSV06 BIT(1), /* RESERVED */ 00756000 * 4 EPTRSV07 BIT(1), /* RESERVED */ 00757000 * 3 EPTHFGB CHAR(1), /* RESERVED */ 00758000 * 3 EPTHLEN FIXED(15), /* LENGTH OF EPT (BYTES) */ 00759000 * 2 EPTENTRY CHAR(*); /* BEGIN ENTRIES */ 00760000 *DECLARE 0090 00761000 * 1 ISTEPTE BDY(WORD) BASED, 0090 00762000 * 2 EPTNAME CHAR(8), /* SYMBOLIC DVT NAME */ 00763000 * 2 EPTDVT PTR(31), /* DVT POINTER FIELD */ 00764000 * 3 EPTFLAG1 CHAR(1), /* EPT FLAGS */ 00765000 * 4 EPTENDF BIT(1), /* END OF EPT */ 00766000 * 4 EPTRSV08 BIT(1), /* RESERVED */ 00767000 * 4 EPTRSV09 BIT(1), /* RESERVED */ 00768000 * 4 EPTRSV10 BIT(1), /* RESERVED */ 00769000 * 4 EPTRSV11 BIT(1), /* RESERVED */ 00770000 * 4 EPTRSV12 BIT(1), /* RESERVED */ 00771000 * 4 EPTRSV13 BIT(1), /* RESERVED */ 00772000 * 4 EPTRSV14 BIT(1), /* RESERVED */ 00773000 * 3 EPTDVTA PTR(24); /* DVT POINTER */ 00774000 */* DEVICE CHARACTERISTICS TABLE - ORIGINATES IN RDT USED TO DEFINE 00775000 * DEVICE CHARACTERISTICS IN DNCB,FMCB AND NIB */ 0091 00776000 */* INITIAL LEVEL 001 08/07/74 */ 00777000 *DCL 1 ISTDEVCH BDY(WORD)BASED, 0091 00778000 * 2 DEVSHCH BIT(8), /* DEV SCHED CHARACTERISTICS */ 00779000 * 3 DEVCHAR BIT(8), /* COMPATIBILITY EXISTING CODE*/ 00780000 * 4 DEVINPUT BIT(1), /* DEVICE IS FOR INPUT */ 00781000 * 4 DEVOTPUT BIT(1), /* DEVICE IS FOR OUTPUT */ 00782000 * 4 DEVCONVR BIT(1), /* DEVICE IS CONVERSATION */ 00783000 * /* RN DEFINITION */ 00784000 * 4 DEVSUBND BIT(1), /* DEVICE HAS SCHEDULABLE */ 00785000 * /* SUB-NODES */ 00786000 * 4 DEVSPS BIT(1), /* DEV IS START PRINT SENSITIVE* 00787000 * 4 DEVNNSPT BIT(1), /* NODE HAS NETWRK MNGMNT SPRT*/ 00788000 * 4 DEVCCTL BIT(1), /* NODE HAS CONN CNTRL DEPENDCS* 00789000 * 4 DEVRSV01 BIT(1), /* RESERVED */ 00790000 * 2 DEVTCODE BIT(8), /* DEVICE TYPE CODES */ 00791000 * 3 DEVCHAR2 BIT(8), /* COMPATIBILITY EXISTING CODE*/ 00792000 * 2 DEVMCODE BIT(8), /* DEVICE MODEL CODE * 00793000 * 2 DEVFLAGS BIT(8), /*USE DEPENDS ON DEVSHCH VALUES* 00794000 * 3 DEVFCCTL BIT(4), /* USED IF DEVICE REQ CONN CTRL* 00795000 * 4 DEVCBSC BIT(1), /* RESET ORDERLY, BI-SYNCH 0091 00796000 * TERMINALS EXCEPT 3270'S */ 00797000 * 4 DEVCSSL BIT(1), /*RESET AT END OF COMMAND. 3270' 00798000 * AND START/STOP EXCEPT TERMS 00799000 * WITH REVERSE BREAK FEATURE */ 00800000 * 0091 00801000 * 4 DEVCRVB BIT(1), /* RESET IMMEDIATE. START/STOP 00802000 * TERMS WITH REVERSE BREAK 0091 00803000 * FEATURE */ 00804000 * 4 DEVCSWL BIT(1), /* 1=HIGHER NODE IS SWITCH CON- 00805000 * NECTION, 0=LEASED CONNECTION* 00806000 * 3 DEVCHAR3 BIT(4), /* COMPATIBILITY EXISTING CODE*/ 00807000 * 4 DEVCATTN BIT(1), /* TERMINAL CAN INTERRUPT WITH 00808000 * ATTENTION */ 00809000 * 4 DEVCCHEK BIT(1), /* TERMINAL HAS CHECKING */ 00810000 * 4 DEVCSTCL BIT(1), /* TERMINAL HAS STATION 0091 00811000 * CONTROL */ 00812000 * 4 DEVCSLPN BIT(1), /* TERMINAL HAS SELECTOR PEN */ 00813000 * 2 DEVPHYSA CHAR(1), /* PHYSICAL DEVICE ADDRESS */ 00814000 * 2 DEVRSV03 CHAR(3); /* RESERVED */ 00815000 */* DEVICE TYPE CODES */ 0092 00816000 *DCL DEV2740 BIT(8) CONSTANT ('01'X); /* DEVICE IS A 2740 */ 00817000 *DCL DEV2741 BIT(8) CONSTANT ('02'X); /* DEVICE IS A 2741 */ 00818000 *DCL DEV1050 BIT(8) CONSTANT ('03'X); /* DEVICE IS A 1050 */ 00819000 *DCL DEVTWX BIT(8) CONSTANT ('04'X); /* DEVICE IS A TWX */ 00820000 *DCL DEVWTTY BIT(8) CONSTANT ('05'X); /* DEVICE IS A WTTY */ 00821000 *DCL DEV115A BIT(8) CONSTANT ('06'X); /* DEVICE IS A 115A */ 00822000 *DCL DEV83B3 BIT(8) CONSTANT ('07'X); /* DEVICE IS AN 83B3 */ 00823000 *DCL DEV2715 BIT(8) CONSTANT ('08'X); /* DEVICE IS A 2715 */ 00824000 *DCL DEV2770 BIT(8) CONSTANT ('09'X); /* DEVICE IS A 2770 */ 00825000 *DCL DEV2780 BIT(8) CONSTANT ('0A'X); /* DEVICE IS A 2780 */ 00826000 *DCL DEV3735 BIT(8) CONSTANT ('0B'X); /* DEVICE IS A 3735 */ 00827000 *DCL DEV3780 BIT(8) CONSTANT ('0C'X); /* DEVICE IS A 3780 */ 00828000 *DCL DEV1130 BIT(8) CONSTANT ('0D'X); /* DEVICE IS AN 1130 */ 00829000 *DCL DEV1800 BIT(8) CONSTANT ('0E'X); /* DEVICE IS AN 1800 */ 00830000 *DCL DEV3125 BIT(8) CONSTANT ('11'X); /* DEVICE IS A 3125 */ 00831000 *DCL DEV3135 BIT(8) CONSTANT ('12'X); /* DEVICE IS A 3135 */ 00832000 *DCL DEVSYS3 BIT(8) CONSTANT ('13'X); /* DEVICE IS SYS 3 */ 00833000 *DCL DEV3704 BIT(8) CONSTANT ('16'X); /* DEVICE IS A 3704 */ 00834000 *DCL DEV3705 BIT(8) CONSTANT ('17'X); /* DEVICE IS A 3705 */ 00835000 *DCL DEV2980 BIT(8) CONSTANT ('18'X); /* DEVICE IS A 2980 */ 00836000 *DCL DEV3277 BIT(8) CONSTANT ('19'X); /* DEVICE IS A 3277 */ 00837000 *DCL DEV3284 BIT(8) CONSTANT ('1A'X); /* DEVICE IS A 3284 */ 00838000 *DCL DEV3286 BIT(8) CONSTANT ('1B'X); /* DEVICE IS A 3286 */ 00839000 *DCL DEV3275 BIT(8) CONSTANT ('1C'X); /* DEVICE IS A 3275 */ 00840000 *DCL DEV3741 BIT(8) CONSTANT ('1D'X); /* DEVICE IS A 3741 */ 00841000 *DCL DEV3747 BIT(8) CONSTANT ('1E'X); /* DEVICE IS A 3747 */ 00842000 *DCL DEVMTA BIT(8) CONSTANT ('28'X); /* DEVICE IS AN MTA */ 00843000 *DCL DEV2972 BIT(8) CONSTANT ('33'X); /* DEVICE IS A 2972 */ 00844000 *DCL DEV3271 BIT(8) CONSTANT ('34'X); /* DEVICE IS A 3271 */ 00845000 *DCL DEV3272 BIT(8) CONSTANT ('36'X); /* DEVICE IS A 3272 */ 00846000 *DCL DEVCC BIT(8) CONSTANT ('35'X); /* DEVICE IS A PHYSICAL UNIT */ 00847000 *DCL DEV1052 BIT(8) CONSTANT ('64'X); /* DEVICE IS A 1052 */ 00848000 *DCL DEV1053 BIT(8) CONSTANT ('65'X); /* DEVICE IS A 1053 */ 00849000 *DCL DEV1054 BIT(8) CONSTANT ('66'X); /* DEVICE IS A 1054 */ 00850000 *DCL DEV1055 BIT(8) CONSTANT ('67'X); /* DEVICE IS A 1055 */ 00851000 *DCL DEV1056 BIT(8) CONSTANT ('68'X); /* DEVICE IS A 1056 */ 00852000 *DCL DEV1057 BIT(8) CONSTANT ('69'X); /* DEVICE IS A 1057 */ 00853000 *DCL DEV1058 BIT(8) CONSTANT ('6A'X); /* DEVICE IS A 1058 */ 00854000 *DCL DEV1092 BIT(8) CONSTANT ('6B'X); /* DEVICE IS A 1092 */ 00855000 *DCL DEV1093 BIT(8) CONSTANT ('6C'X); /* DEVICE IS A 1093 */ 00856000 *DCL DEVLU BIT(8) CONSTANT ('6D'X); /* DEVICE IS A LOGICAL UNIT */ 00857000 *DCL DEV545 BIT(8) CONSTANT ('78'X); /* DEVICE IS A 545 */ 00858000 *DCL DEV1017 BIT(8) CONSTANT ('79'X); /* DEVICE IS A 1017 */ 00859000 *DCL DEV1018 BIT(8) CONSTANT ('7A'X); /* DEVICE IS A 1018 */ 00860000 *DCL DEV2203 BIT(8) CONSTANT ('7B'X); /* DEVICE IS A 2203 */ 00861000 *DCL DEV2213 BIT(8) CONSTANT ('7C'X); /* DEVICE IS A 2213 */ 00862000 *DCL DEV2265 BIT(8) CONSTANT ('7D'X); /* DEVICE IS A 2265 */ 00863000 *DCL DEV2502 BIT(8) CONSTANT ('7E'X); /* DEVICE IS A 2502 */ 00864000 *DCL DEV50 BIT(8) CONSTANT ('7F'X); /* DEVICE IS A 50 */ 00865000 *DCL DEV1255 BIT(8) CONSTANT ('80'X); /* DEVICE IS A 1255 */ 00866000 *DCL DEV5496 BIT(8) CONSTANT ('81'X); /* DEVICE IS A 5496 */ 00867000 */* MODEL CODES */ 0143 00868000 *DCL DEVMOD1 BIT(8) CONSTANT ('00'X); /* MODEL 1 */ 00869000 *DCL DEVMOD2 BIT(8) CONSTANT ('01'X); /* MODEL 2 */ 00870000 */* VTAM PROCESS OPTION DEFINITION BLOCK */ 00871000 */* USE RESERVED BIT 002 06/10/74 */ 00872000 */* */ 00873000 *DECLARE 0145 00874000 * 1 ISTPROCD BDY(WORD) BASED, 0145 00875000 * 2 PROPROC BIT(32), /* PROCESSING OPTIONS */ 00876000 * 3 PROPROC1 BIT(8), /* PROCESSING OPTIONS - 1 */ 00877000 * 4 PROASYIP BIT(1), /* 1=ASYIPX 0=NASYIPX */ 00878000 * 4 PROTRUNC BIT(1), /* 1=TRUNC 0=KEEP */ 00879000 * 4 PROXPOPT BIT(1), /* 1=BINARY 0=NBINARY */ 00880000 * 4 PRODFASY BIT(1), /* PROC-0=NDFASYX/1=DFASYX */ 00881000 * 4 PRORESPX BIT(1), /* PROC-0=NRESPX/1=RESPX */ 00882000 * 4 PROCA BIT(1), /* 1=RECEIVE ANY CA/0=NO CA */ 00883000 * 4 PROCS BIT(1), /* 1=RECEIVE ANY CS/0=NO CS */ 00884000 * 4 PRORPLC BIT(1), /* 1=OPTION IN RPL/0=NO RPL */ 00885000 * 3 PROPROC2 BIT(8), /* PROCESSING OPTIONS - 2 */ 00886000 * 4 PRORSV03 BIT(1), /* RESERVED */ 00887000 * 4 PROERPO BIT(1), /* 1=NERPOUT 0=ERPOUT */ 00888000 * 4 PROLGOT BIT(1), /* 1=NLGOUT 0=LGOUT */ 00889000 * 4 PRORSV04 BIT(1), /* RESERVED */ 00890000 * 4 PRORSV05 BIT(1), /* RESERVED */ 00891000 * 4 PRONTFL BIT(1), /* 1=NTMFLL 0=TMFLL */ 00892000 * 4 PROEMLC BIT(1), /* 1=ELC 0=NELC */ 00893000 * 4 PROCFTX BIT(1), /* 1=CONFTXT 0=NCONFTXT */ 00894000 * 3 PROPROC3 BIT(8), /* PROCESSING OPTIONS - 3 */ 00895000 * 4 PRORSV07 BIT(1), /* RESERVED */ 00896000 * 4 PROERPI BIT(1), /* 1=NERPIN 0=ERPIN */ 00897000 * 4 PROLGIN BIT(1), /* 1=NLGIN 0=LGIN */ 00898000 * 4 PRONTO BIT(1), /* 1=NTIMEOUT 0=TIMEOUT */ 00899000 * 4 PROSUBLK BIT(1), /* OFF = INHIBIT SUBBLOCKING */ 00900000 * /* ON = ALLOW SUBBLOCKING */ 00901000 * 4 PROMONIT BIT(1), /* 1=MONITOR 0=NMONITOR */ 00902000 * 4 PROMONT2 BIT(1), /* 1=MONITOR, 0=NMONITOR */ 00903000 * 4 PRORSV11 BIT(1), /* RESERVED */ 00904000 * 3 PROPROC4 BIT(8), /* PROCESSING OPTIONS - 4 */ 00905000 * 4 PROEIB BIT(1), /* 1=EIB 0=NEIB */ 00906000 * 4 PRORSV12 BIT(1), /* RESERVED */ 00907000 * 4 PRORSV13 BIT(1), /* RESERVED */ 00908000 * 4 PRORSV14 BIT(1), /* RESERVED */ 00909000 * 4 PROMODB BIT(1), /* BLOCK */ 00910000 * 4 PROMODM BIT(1), /* MSG */ 00911000 * 4 PROMODT BIT(1), /* TRANS (DEFAULT) */ 00912000 * 4 PROMODC BIT(1); /* CONT */ 00913000 */* */ 00914000 */* */ 00915000 *DCL 1 PROPROCS BASED(ADDR(ISTPROCD)), /* REDEFINITION OF 0146 00916000 * OPTIONS FOR SETMODE MASK */ 00917000 * 2 PRORSV41 BIT(8), /* PROCESSING OPTIONS - 1 */ 00918000 * 2 PROSETMS CHAR(3), /* SETMODE OPTION BYTES */ 00919000 * 3 PROSETM2 BIT(8), /* PROCESSING OPTIONS - 2 */ 00920000 * 4 PRORSV42 BIT(5), /* RESERVED */ 00921000 * 4 PROSNTFL BIT(1), /* INHIBIT TIME FILL 0146 00922000 * SS - ONLY */ 00923000 * 4 PRORSV43 BIT(2), /* RESERVED */ 00924000 * 3 PROSETM3 BIT(8), /* PROCESSING OPTIONS - 3 */ 00925000 * 4 PRORSV44 BIT(3), /* RESERVED */ 00926000 * 4 PROSNTO BIT(1), /* ON = BSC - EIB INSERTION 00927000 * SS - INHIBIT TIMEOUT */ 00928000 * 4 PRORSV45 BIT(1), /* RESERVED */ 00929000 * 4 PROSMONT BIT(1), /* ON = MONITOR FOR ATTN 0146 00930000 * INTS - SS ONLY */ 00931000 * 4 PRORSV46 BIT(2), /* RESERVED */ 00932000 * 3 PROSETM4 BIT(8), /* PROCESSING OPTIONS - 4 */ 00933000 * 4 PROSCON BIT(1), /* ON = CONTINUOUS MODE 0146 00934000 * (TPIOS ONLY) */ 00935000 * 4 PRORSV47 BIT(5), /* RESERVED */ 00936000 * 4 PROSRDEF BIT(2); /* RECORD DEFINITION 0146 00937000 * 01 = BLOCK, 10 = MSG, 0146 00938000 * 11 = TRANSMISSION */ 00939000 *DCL PROSBLCK BIT(8) CONSTANT('01'X); /* TO INDICATE BLOCK MODE */ 00940000 *DCL PROSMSG BIT(8) CONSTANT('02'X); /* TO INDICATE MSG MODE */ 00941000 *DCL PROSTRNS BIT(8) CONSTANT('03'X); /* TO INDICATE TRANSMISSION 0149 00942000 * MODE */ 00943000 *DCL PROSCONT BIT(8) CONSTANT('83'X); /* TO INDICATE CONTINUOUS MODE */ 00944000 *DCL PROSANDC BIT(8) CONSTANT('7F'X); /* TO EQUATE CONT TO TRANS 0151 00945000 * FOR 370X */ 00946000 *DCL PROSORC BIT(8) CONSTANT('80'X); /* TO RESTORE CONT INDICATOR */ 00947000 */* FUNCTION MANAGEMENT CONTROL BLOCK * 00948000 */* REVISIONS 005 12/16/74 * 00949000 *DCL 1 ISTFMCB BDY(DWORD) BASED(FMCBPTR), 0153 00950000 * 2 FMCTYPE CHAR(1), /* CONTROL TYPE BLOCK CODE * 00951000 * 2 FMCLNGTH PTR(8), /* LENGTH IN BYTES * 00952000 * 2 FMCSAF CHAR(2), /* ID OF SOURCE * 00953000 * 2 FMCNXTCB PTR(31), /* ADDR OF NEXT FMCB IN ACDEB * 00954000 * 2 FMCTSKID PTR(31), /* TASK IDENTIFIER * 00955000 * /* OS - TCB ADDR, DOS - PIK * 00956000 * 2 FMCDVTA PTR(31), /* ADDR OF DVT ENTRY * 00957000 * /* POINT TABLE * 00958000 * 2 FMCDNCBA PTR(31), /* ADDR OF DNCB FOR THIS NODE * 00959000 * 2 FMCFMCBA PTR(31), /* ADDR OF NEXT FMCB FOR THIS * 00960000 * /* NODE * 00961000 * 2 FMCUSFLD CHAR(4) BDY(WORD), /* USE INFO. FIELD * 00962000 * 2 FMCSTAT BIT(8), /* SOURCE STATUS INFO. * 00963000 * 3 FMCPRMTR BIT(1), /* FMCB IS A PREEMPTOR * 00964000 * 3 FMCPRMTE BIT(1), /* FMCB IS A PREEMPTEE * 00965000 * 3 FMCDAPT BIT(1), /* DEVICE ACCEPTED * 00966000 * 3 FMCDEVOF BIT(1), /* DEVICE VARIED OR SET BY * 00967000 * /* VARY DSACT. * 00968000 * 3 FMCDEDSC BIT(1), /* DEVICE DISCONNECTED * 00969000 * 3 FMCZF007 BIT(1), /* BUFFER TRACE ACTIVE FLAG * 00970000 * 3 FMCLTEAS BIT(1), /* LOST TERM EXIT SCHEDULED FOR 00971000 * THIS FMCB * 00972000 * 3 FMCVSP1 BIT(1), /* SOFT PURGE IN PROGRESS * 00973000 * 2 FMCSTAT1 BIT(8), /* STATUS INFORMATION * 00974000 * 3 FMCVSP2 BIT(1), /* A USER REQUEST WAS SOFT 0153 00975000 * PURGED * 00976000 * 3 FMCHPURG BIT(1), /* SESSION HAS BEEN HARD PURGED* 00977000 * 3 * BIT(6), /* RESERVED * 00978000 * 2 * CHAR(1), /* RESERVED * 00979000 * 2 FMCCMDFL CHAR(1), /* COMMAND FLAGS * 00980000 * 3 FMCCMDR BIT(1), /* 1=INITIATE SELF REVD * 00981000 * 3 FMCVSNA BIT(1), /* FMCB FOR VARY SESSION * 00982000 * 3 FMCSNA BIT(1), /* USER SESSION WITH NEW DEV'S * 00983000 * 3 * BIT(5), /* RESERVED * 00984000 * 2 FMCDEBA PTR(31), /* ADDR OF ACDEB * 00985000 * 2 FMCCMPS1 FIXED(32), 0153 00986000 * 3 FMCBUFLM BIT(16), /* LIMIT OF QUEUED BUFFERS * 00987000 * 3 FMCBUFNB BIT(16), /* NUMBER OF QUEUED BUFFERS * 00988000 * 2 FMCRPLH PTR(31), /* ADDR OF HELD RPL * 00989000 * 2 FMCVWT PTR(31), /* RPH ADDR FOR VARY WAIT * 00990000 * 2 FMCPROCD CHAR(LENGTH(ISTPROCD)),/*PROCESS OPTION FROM NIB * 00991000 * 2 FMCMODE CHAR(8), /* MODE NAME FROM NIB * 00992000 * 2 FMCFASYA PTR(31), /* DFASY ANY Q CHAIN * 00993000 * 2 FMCPAB1 CHAR(LENGTH(ISTPAB)) BDY(DWORD),/* CONTROL LAYER 00994000 * OUTBOUND PAB * 00995000 * 2 FMCPAB2 CHAR(LENGTH(ISTPAB)) BDY(DWORD),/* CONTROL LAYER 00996000 * INBOUND PAB * 00997000 * 2 FMCPAB3 CHAR(LENGTH(ISTPAB)) BDY(DWORD),/* SYNCH WITH 0153 00998000 * OUTBOUND PAB * 00999000 * 2 FMCPAB4 CHAR(LENGTH(ISTPAB)) BDY(DWORD),/* TPIOS INBOUND 01000000 * PAB * 01001000 * 2 FMCPAB5 CHAR(LENGTH(ISTPAB)) BDY(DWORD),/* TPIOS ALL BUT 01002000 * SYNCH WITH OUTBOUND PAB * 01003000 * 2 FMCEXLST PTR(31), /* ADDRESS OF CEXLST * 01004000 * 2 FMCSIPA PTR(31), /* ADDRESS OF SESSION CONTROL 01005000 * INBOUND PAB * 01006000 * 3 FMCSIP PTR(31), /* SCAFFOLD FOR DCR*** * 01007000 * 2 FMCNXOSQ FIXED(32), /* NEXT OUTBOUND SEQUENCE NUMS. * 01008000 * 3 FMCNXCFM FIXED(16), /* NEXT OUTBOUND FM SEQ. NUMBER * 01009000 * 4 FMCOSSN BIT(16), 0153 01010000 * 3 FMCNXOSC FIXED(16), /* NEXT OUTBOUND SC SEQ. NUMBER * 01011000 * 4 FMCOASN BIT(16), 0153 01012000 * 2 FMCISSN FIXED(16), /* INBOUND SYNC SEQUENCE NUMBER * 01013000 * 2 FMCRVD01 CHAR(1), /* FOR CONTROL LAYER XXXX * 01014000 * 2 FMCSSTAT CHAR(1), /* SESSION-CPM STATUS * 01015000 * 3 FMCSNBI BIT(1), /* SESSION NOT BOUND * 01016000 * 3 FMCCIPI BIT(1), /* TPIOS CLEAR IN PROGRESS * 01017000 * 3 FMCUIPI BIT(1), /* UNBIND IN PROGRESS * 01018000 * 3 FMCSDTR BIT(1), /* SDT REQUIRED * 01019000 * 3 FMCBIP BIT(1), /* BIND IN PROGRESS * 01020000 * 3 FMCNSALU BIT(1), /* NO SESSION EXISTS BETWEEN THE* 01021000 * /* APPLICATION AND THE LU * 01022000 * 3 FMCPURCH BIT(1), /* TPIOS PURGING CHAIN START * 01023000 * 3 FMCCONF BIT(1), /* SICK FLAG * 01024000 * 2 FMCPACE FIXED(32), /* PACING COUNTS * 01025000 * 3 FMCPACEN CHAR(1), /* N VALUE OF PACING * 01026000 * 4 FMCNPCNT BIT(8), 0153 01027000 * 3 FMCPACEM CHAR(1), /* M VALUE OF PACING * 01028000 * 4 FMCMPCNT BIT(8), 0153 01029000 * 3 FMCPACPC FIXED(8), /* CURRENT PACING COUNT * 01030000 * 4 FMCCPCNT BIT(8), 0153 01031000 * 3 FMCCVAL CHAR(1), /* CHAIN VALUES * 01032000 * 4 FMCOBCE BIT(4), /* CURRENT OUTBOUND * 01033000 * 5 FMCFIRST BIT(1), /* FIRST PIECE * 01034000 * 5 FMCMIDLE BIT(1), /* MIDDLE PIECE * 01035000 * 5 FMCLAST BIT(1), /* LAST PIECE * 01036000 * 5 FMCONLY BIT(1), /* ONLY PIECE * 01037000 * 4 FMCIBCE BIT(2), /* CURRENT INBOUND * 01038000 * 4 FMCPRCLS BIT(2), /* PRESENTATION CLASS, 0153 01039000 * 01=RECORD * 01040000 * 2 FMCCLEXT, /* BASIC CONTROL LAYER EXTENSION* 01041000 * 3 FMCRPLA PTR(31), /* ADDR OF APPLICATION RPL * 01042000 * 4 FMCRPLRS PTR(8), /* RESERVED * 01043000 * 4 FMCRPLPT PTR(24), /* POINTER TO RPL * 01044000 * 3 FMCFBA PTR(31), /* ADDR OF FSB DATA QUEUE * 01045000 * 4 FMCFBRSV PTR(8), /* RESERVED * 01046000 * 4 FMCFBPTR PTR(24), /* POINTER TO FSB * 01047000 * 3 FMCRAFM PTR(31), /* ADDR OF FMCB ON ACDEB READ * 01048000 * /* ANY QUEUE * 01049000 * 3 FMCDCLOK CHAR(LENGTH(ISTLOK)), /* CNTRL LAYER FMCB LOCK * 01050000 * 3 FMCCMPS2 FIXED(32), 0153 01051000 * 4 FMCFLGA CHAR(1), /* FLAG FIELD 1 (CONTROL * 01052000 * /* LAYER) * 01053000 * 5 FMCFLGA0 BIT(1), /* DATA EXPECTED * 01054000 * 5 FMCFLGA1 BIT(1), /* IN DIALOGUE * 01055000 * 5 FMCFLGA2 BIT(1), /* FMCB ON ACDEB FOR READ ANY * 01056000 * 5 FMCFLGA3 BIT(1), /* INCOMING DATA FLUSH * 01057000 * 5 FMCFLGA4 BIT(1), /* PURGE IN PROGRESS * 01058000 * 5 FMCFLGA5 BIT(1), /* BUFFER THRESHOLD EXCEEDED * 01059000 * 5 FMCFLGA6 BIT(1), /* READ DONE TO 3735 (ON) * 01060000 * 5 FMCFLGA7 BIT(1), /* FMCB IS LOCKED */ 01061000 * 4 FMCFLGCL CHAR(1), /* FLAG FIELD2 (RECORD CONTROL * 01062000 * /* LAYER) * 01063000 * 5 FMCFLGB0 BIT(1), /* FMCB ON ACDEB DFASY ANY Q * 01064000 * 5 FMCFLGB1 BIT(1), /* FMCB ON ACDEB REQ ANY Q * 01065000 * 5 FMCFLGB2 BIT(1), /* SATISFY DFASY SPEC. * 01066000 * 5 FMCFLGB3 BIT(1), /* SATISFY RESP SPEC. * 01067000 * 5 FMCFLGB4 BIT(1), /* RESERVED * 01068000 * 5 FMCFLGB5 BIT(1), /* POST=SCHED OUTSTANDING * 01069000 * 5 FMCFLGB6 BIT(1), /* HOLD RESPONSE OUTSTANDING * 01070000 * 5 FMCFLGB7 BIT(1), /* RESERVED * 01071000 * 4 FMCPSCMD CHAR(1), /* PORT OUTSTANDING COMMAND 01072000 * FIELD */ 01073000 * 5 FMCINVT BIT(1), /* INVITE */ 01074000 * 5 FMCCNTCT BIT(1), /* CONTACT */ 01075000 * 5 FMCRESTI BIT(1), /* RESET IMMEDIATE 0153 01076000 * COMMAND OUTSTANDING */ 01077000 * 5 FMCPURGE BIT(1), /* PURGE(RESET) */ 01078000 * 5 FMCDSEOC BIT(1), /* DISCONNECT END OF CALL */ 01079000 * 5 FMCRDBLK BIT(1), /* READ BLOCK(START 0153 01080000 * INPUT) */ 01081000 * 5 FMCRSV88 BIT(2), /* NOT DEFINED */ 01082000 * 4 FMCPSTAT CHAR(1), /* PORT SOLICITOR STATUS FLAGS 01083000 * */ 01084000 * 5 FMCELKST BIT(1), /* ERROR LOCK SET */ 01085000 * 5 FMCIDVFD BIT(1), /* TPIOS COULD NOT FIND 0153 01086000 * A */ 01087000 * 5 FMCDDOCD BIT(1), /* DIAL DISCONNECT OCCURRED */ 01088000 * 5 FMCPCLSD BIT(1), /* PORT BEING CLOSED BY PORT 01089000 * SOLICITOR */ 01090000 * 5 FMCRSV89 BIT(4), /* RESERVED */ 01091000 * 3 FMCPRMRC CHAR(1), /* PURGE MINOR RETURN CODE */ 01092000 * 2 FMCBHSET CHAR(1), /* BHSET ID INDEX FOR 0153 01093000 * CONNECTED APPLICATION */ 01094000 * 2 FMCSTAT2 BIT(8), /* PURGE FLAGS */ 01095000 * 3 FMCVPIP BIT(1), /* VARY PURGE IN PROGRESS */ 01096000 * 3 FMCZF00A BIT(1), /* PURGE SUCCESSFULLY 0153 01097000 * COMPLETED */ 01098000 * 3 FMCIAIO BIT(1), /* INHIBIT ALL I/O */ 01099000 * 3 FMCALIPR BIT(1), /* ALLOCATION IN PROGRESS */ 01100000 * 3 FMCCPIP BIT(1), /* CLSDST PURGE IN 0153 01101000 * PROGRESS */ 01102000 * 3 FMCSEQI BIT(1), /* SEQ/ID, 1=SEQUENCE NUMBER*/ 01103000 * 3 FMCRSV87 BIT(2), /* RESERVED */ 01104000 * 2 FMCLUSTR BIT(8), /* COUNT OF START CTLS REC */ 01105000 * 2 FMCIPSEQ FIXED(8), /* INVITE PERPETUAL COUNT */ 01106000 * 2 FMCMODEB CHAR(1), /* MODE BYTE */ 01107000 * 3 FMCHOLD BIT(1), /* BUFFER FLOOD CONDITION */ 01108000 * 3 FMCCLEAR BIT(1), /* CLEAR IN PROGRESS */ 01109000 * 3 FMCAPQ BIT(1), /* APPLICATION QUIESCED */ 01110000 * 3 FMCLUQ BIT(1), /* LU QUIESCED */ 01111000 * 3 FMCRSTSR BIT(1), /* RESETSR IN PROGRESS */ 01112000 * 3 FMCRESOT BIT(1), /* RESPONSE OUTSTANDING */ 01113000 * 3 FMCIBPRG BIT(1), /* I/B PURGE CHAIN */ 01114000 * 3 FMCOBPRG BIT(1), /* O/B PURGE CHAIN */ 01115000 * 2 FMCCLSEQ CHAR(4), /* CL SEQUENCE NUMBERS */ 01116000 * 3 FMCTSQNO CHAR(2), /* EXPECTED RESPONSE SEQ NR */ 01117000 * 3 FMCBSQNO CHAR(2), /* SQNO LAST RECEIVED */ 01118000 * 2 FMCCTLB CHAR(1), /* CTL TYPE OUTSTANDING */ 01119000 * 2 FMCRRESP CHAR(1), /* RESPOND TYPE EXPECTED */ 01120000 * 3 FMCFPE BIT(1), /* 1=PATH END RESPONSE */ 01121000 * 3 FMCFEX BIT(1), /* 1=EXCEPTION RESPONSE */ 01122000 * 3 FMCFME BIT(1), /* 0=FUNCTION MNMT END RESP */ 01123000 * 3 FMCFRRN BIT(1), /* 1=REACHED RECOVERY MODE */ 01124000 * 3 FMCTSLHA BIT(1), /* 1=TERM SELF LAST HAS ARVD*/ 01125000 * 3 * BIT(3), /* RESERVED */ 01126000 * 2 FMCPSTRS CHAR(2), /* CNT OUTSTANDING POST=RESP*/ 01127000 * 2 FMCRSPLM CHAR(2), /* RESPLIM VALUE */ 01128000 * 2 FMCSSEGQ PTR(31), /* SYNC FLOW SEGMENT QUEUE */ 01129000 * 3 FMCSEGD PTR(31), /* SEGMENTED INPUT DATA QUE */ 01130000 * 2 FMCLOCK CHAR(LENGTH(ISTLOK)), /* FMCB LOCK */ 01131000 * 2 FMCRDTPT PTR(31), /* PTR TO RDTE AFTER FMCB 0153 01132000 * DISCONNECT */ 01133000 * 2 FMCASEGQ PTR(31), /* ASYN FLOW SEGMENT QUEUE */ 01134000 * 2 FMCFBAS PTR(31), /* DFASY DATA Q PTR */ 01135000 * 3 FMCZV002 PTR(31), /* RESET ORDERLY LCPB ADDR */ 01136000 * 4 FMCFBXM PTR(31), /* PTR TO 1ST BUFFER OF TRAN*/ 01137000 * 2 FMCFBRE PTR(31), /* RESP DATA Q PTR */ 01138000 * 2 FMCSNCTL CHAR(4), /* SESSION CONTROL FIELD */ 01139000 * 3 FMCSCFLG CHAR(1), /* FLAG BYTE */ 01140000 * 4 FMCIBSAC BIT(2), /* SAVE IBSQAC */ 01141000 * 4 FMCOBSAC BIT(2), /* SAVE OBSQAC */ 01142000 * 4 FMCLURO BIT(1), /* LU OWES RESPONSE */ 01143000 * 4 FMCAPRO BIT(1), /* APPL OWES RESPONSE */ 01144000 * 4 FMCSCCLO BIT(1), /* CLEAR OUTSTANDING */ 01145000 * 4 FMCSTCTL BIT(1), /* 1=CLUS ALREADY SCHED */ 01146000 * 3 FMCSCCTL CHAR(1), /* SC LAST CTL RECEIVED */ 01147000 * 3 FMCSCSQN BIT(16), /* SC LAST SEQ NR RECEIVED */ 01148000 * 2 FMCFRESA PTR(31), /* RESP ANY Q CHAIN PTR */ 01149000 */* END OF COMMON AREA...EXCEPT CONSTANTS */ 01150000 */* */ 01151000 */* VS1 TPIOS EXTENSION */ 01152000 */* */ 01153000 * 2 FMCVS1, /* VS1 EXTENSION */ 01154000 * 3 FMCZFLAG BIT(32), /* VS/1 TPIOS FLAGS */ 01155000 * 4 FMCZF001 BIT(1), /* LSCB BTW ALLOCATION REQUIRED 01156000 * */ 01157000 * 4 FMCZF002 BIT(1), /* I/O SCHEDULING TO BE 0153 01158000 * SUSPENDED */ 01159000 * 4 FMCZF003 BIT(1), /* TPIOS WAIT IS FOR 370X 0153 01160000 * SLOWDOWN */ 01161000 * 4 FMCZF004 BIT(1), /* READ OUTSTANDING FLAG */ 01162000 * 4 FMCZF005 BIT(1), /* 1ST BSC (SWITCH) TRANS 0153 01163000 * ACTION */ 01164000 * 4 FMCZF006 BIT(4), /* DEVICE SESSION STATUS IN 01165000 * OUTBOUND SCHEDULING */ 01166000 * 5 FMCZFA06 BIT(1), /* IN SESSION */ 01167000 * 5 FMCZFB06 BIT(1), /* INVITE OUTSTANDING */ 01168000 * 5 FMCZFC06 BIT(1), /* CONTACT OUTSTANDING */ 01169000 * 5 FMCZFD06 BIT(1), /* DISCONNECT OUTSTANDING */ 01170000 * 4 FMCZF009 BIT(1), /* RESET AT END OF COMMAND 0153 01171000 * (LOCAL 3270) */ 01172000 * 4 FMCRSV10 BIT(1), /* RESERVED */ 01173000 * 4 FMCZF00B BIT(1), /* FMCB PREEMPTED FLAG */ 01174000 * 4 FMCZF00C BIT(1), /* 1ST BLK IN MSG FLAG (O/B) */ 01175000 * 4 FMCZF00D BIT(1), /* TRM RECEIVED FLAG */ 01176000 * 4 FMCZF00E BIT(1), /* PREEMPT PENDING FLG */ 01177000 * 4 FMCZF00F BIT(1), /* PREEMPT LCCW FLAG */ 01178000 * 4 FMCZF010 BIT(1), /* RESET IN PROGRESS (AND 0153 01179000 * SUSPENDED) */ 01180000 * 4 FMCZF011 BIT(1), /* RESET ERROR LOCK INHIBITED*/ 01181000 * 4 FMCZF012 BIT(1), /* FMCB IN CONTACT QUEUE */ 01182000 * 4 FMCZF013 BIT(1), /* FMCB IN INVITE QUEUE */ 01183000 * 4 FMCZF014 BIT(1), /* LSCB FLAG */ 01184000 * 4 FMCZF015 BIT(1), /* RESET CLEANUP PHASE 1 0153 01185000 * EXEC */ 01186000 * 4 FMCZF016 BIT(1), /* DNCB LOCK HELD */ 01187000 * 4 FMCZF017 BIT(1), /* APPLICATION I/O SCHEDQ LOCK 01188000 * INVITE */ 01189000 * 4 FMCZF018 BIT(1), /* EOT RECV'D FLAG */ 01190000 * 4 FMCZF019 BIT(1), /* RESET ORDERLY IN PROGRESS 01191000 * FLAG */ 01192000 * 4 FMCZF020 BIT(1), /* TPIOS CONT IN PROGRESS */ 01193000 * 4 FMCZF021 BIT(1), /* DISCONNECT IN PROGRESS */ 01194000 * 4 FMCZF022 BIT(1), /* DELAYED SCHEDQ LOCK */ 01195000 * 4 FMCZF023 BIT(1), /* RESET IN PROCESS */ 01196000 * 4 FMCZF024 BIT(1), /* PHASE-3 RECEIVED FOR */ 01197000 * 4 FMCZF025 BIT(1), /* PREEMPT IN QUEUE */ 01198000 * 3 FMCZH001 FIXED(16), /* FMCB LINE STATE FIELD */ 01199000 * 3 FMCRSV04 FIXED(16), /* RESERVED FOR ALIGNMENT */ 01200000 * 3 FMCSHEDQ PTR(31), /* APPLICATION I/O SCHEDULE Q*/ 01201000 * 3 FMCLBXM PTR(31), /* PTR TO LAST BUFF OF TRANS*/ 01202000 * 4 FMCSHEAQ PTR(31), /* ASYNCH I/O SCHEDULE QUEUE */ 01203000 * 5 * PTR(8), 0153 01204000 * 5 FMCASCDQ PTR(24), /* ASYNCH I/O SCHEDULE QUEUE 01205000 * ADDRESS FIELD */ 01206000 * 3 FMCLCPBQ PTR(31), /* APPLICATION FEEDBACK 0153 01207000 * QUEUE */ 01208000 * 4 FMCLCPB1 PTR(8), 0153 01209000 * 4 FMCLCPB2 PTR(24), /* ADDRESS FIELD */ 01210000 * 3 FMCLCPAQ PTR(31), /* ASYNCH FEEDBACK WAIT QUEUE*/ 01211000 * 4 * PTR(8), 0153 01212000 * 4 FMCAWATQ PTR(24), /* ASYNCH FEEDBACK WAIT QUEUE 01213000 * ADDRESS FIELD */ 01214000 * 3 FMCZV001 PTR(31), /* DIALOGUE SCHEDULE QUEUE 0153 01215000 * CHAIN POINTER */ 01216000 * 3 FMCZX001 FIXED(8), /* APPLICATION SESSION COUNT */ 01217000 * 3 FMCZX002 FIXED(8), /* RESERVED */ 01218000 * 3 FMCZX003 FIXED(8), /* I/O SCHEDULE QUEUE COUNT */ 01219000 * 3 FMCZX004 FIXED(8), /* STPR SCHEDULE COUNT */ 01220000 * 3 FMCZX005 FIXED(8), /* NEGATIVE RESP TO POLL CTR */ 01221000 * 3 FMCZX006 FIXED(8), /* RESET COUNT */ 01222000 * 3 FMCSEQ1 FIXED(8), /* REQ TAG SEQ CTR */ 01223000 * 4 FMCSEQ1T BIT(4), /* REQUEST TAG OVERFLOW */ 01224000 * 4 FMCSEQ1B BIT(4), /* REQUEST TAG COUNT */ 01225000 * 3 FMCZFLG2 BIT(8), /* VS/1 TPIOS FLAGS */ 01226000 * 4 FMCZF026 BIT(1), /* DEAD PREEMPT REMEMBER */ 01227000 * 4 FMCZF027 BIT(1), /* DATA RECEIVED FLAG */ 01228000 * 4 * BIT(6), /* RESERVED */ 01229000 * 3 FMCLOCK2 CHAR(LENGTH(ISTLOK)), /* FMCB LOCK WORD */ 01230000 * 3 FMCZV004 PTR(31), /* RESET FOR LCP FSB BFR ADDR 01231000 * */ 01232000 * 3 FMCCVFLG BIT(8), 0153 01233000 * 4 FMCVYRPH BIT(1), 0153 01234000 * 4 FMCRSV0X BIT(7), 0153 01235000 * 3 FMCCLRPH PTR(24); /* ATR TO CLOSE DST */ 01236000 *DCL 1 FMCFLAG BASED(ADDR(FMCPSCMD)), /* ADDITIONAL CONTROL 0154 01237000 * LAYER FLAGS */ 01238000 * 2 FMCFLGB CHAR(1), /* FLAG FIELD 2 (CONTROL 0154 01239000 * LAYER) */ 01240000 * 3 FMCFLGA8 BIT(1), /* RESET CONDITIONAL 0154 01241000 * IS ACTIVE */ 01242000 * 3 FMCFLRSV BIT(7); /* UNUSED */ 01243000 */* */ 01244000 */* *********** FMCB LINE STATE EQUATES ************* */ 01245000 */* */ 01246000 *DCL FMCZHF01 BIT(16) CONSTANT('0005'X); /* NEG RESP TO POLLING 0155 01247000 * (RESET PHASE) */ 01248000 *DCL FMCZHF11 BIT(16) CONSTANT ('0004'X); /* NEG RESP TO POLLING 0156 01249000 * (DISC. PHASE) */ 01250000 *DCL FMCZHF21 BIT(16) CONSTANT ('0006'X); /* NEG RESP TO POLLING 0157 01251000 * (INVITE PHASE) */ 01252000 *DCL FMCZHF31 BIT(16) CONSTANT ('0000'X); /* NULL (NORMAL) STATE */ 01253000 *DCL FMCZHF41 BIT(16) CONSTANT ('0007'X); /* RESCHEDULE STATE */ 01254000 *DCL FMCZHF51 BIT(16) CONSTANT ('B007'X); /* ERROR/RESCHEDULE STATE 01255000 * */ 01256000 *DCL FMCZHF61 BIT(16) CONSTANT ('9007'X); /* LOCICAL ERROR STATE */ 01257000 *DCL FMCZHF71 BIT(16) CONSTANT ('A007'X); /* PHYSICAL ERROR STATE */ 01258000 *DCL FMCZHF81 BIT(16) CONSTANT ('0008'X); /* PREEMPT PENDING STATE */ 01259000 *DCL FMCZHRIP BIT(16) CONSTANT ('1000'X); /* RESYNCH IN PROGRESS */ 01260000 */* COMMON CONSTANTS FOLLOW */ 01261000 *DCL FMTYPE BIT(8) CONSTANT('03'X); /* TYPE CODE FOR FMCB */ 01262000 *DCL FMCOBCEI BIT(4) CONSTANT('0001'B); 0166 01263000 *DCL FMCIBCEI BIT(2) CONSTANT('11'B); 0167 01264000 *DCL FMCRCD CHAR(8) CONSTANT('RECORD '); /* EQUATE FOR RECORD MODE * 01265000 *DCL FMCPSOL CHAR(8) CONSTANT('ISTYPSOL'); /* EQUATE FOR PORT SOLICIT* 01266000 * /* SKELETON DVT * 01267000 * 0170 01268000 * DECLARE 0170 01269000 * EMCR0 PTR REG(0), 0170 01270000 * EMCR1 PTR REG(1), 0170 01271000 * EMCR2 PTR REG(2), 0170 01272000 * EMCR3 PTR REG(3), 0170 01273000 * EMCR4 PTR REG(4), 0170 01274000 * EMCR5 PTR REG(5), 0170 01275000 * EMCR6 PTR REG(6), 0170 01276000 * EMCR7 PTR REG(7), 0170 01277000 * EMCR8 PTR REG(8), 0170 01278000 * EMCR9 PTR REG(9), 0170 01279000 * EMCR10 PTR REG(10), 0170 01280000 * EMCR11 PTR REG(11), 0170 01281000 * EMCR12 PTR REG(12), 0170 01282000 * EMCR13 PTR REG(13), 0170 01283000 * EMCR14 PTR REG(14), 0170 01284000 * EMCR15 PTR REG(15); 0170 01285000 * GEN (PRINT ON); 0171 01286000 PRINT ON 01287000 */* END OF TPEPILOG */ 0172 01288000 *END 0172 01289000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 01290000 */*%INCLUDE SYSLIB (CVT ) * 01291000 *; 0172 01292000 @DATA DS 0H 01293000 @DATD DSECT 01294000 DS 0F 01295000 ISTESC02 CSECT 01296000 DS 0F 01297000 @CF00052 DC F'4' 01298000 @CF01092 DC F'12' 01299000 @DATD DSECT 01300000 DS 0D 01301000 CVTPTR DS A 01302000 FMCBPTR DS A 01303000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01304000 @ENDDATD EQU * 01305000 ISTESC02 CSECT 01306000 DS 0F 01307000 @SIZDATD DC AL1(0) 01308000 DC AL3(@ENDDATD-@DATD) 01309000 DS 0D 01310000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01311000 @01 EQU 01 01312000 @02 EQU 02 01313000 @03 EQU 03 01314000 @04 EQU 04 01315000 @05 EQU 05 01316000 @06 EQU 06 01317000 @07 EQU 07 01318000 @08 EQU 08 01319000 @09 EQU 09 01320000 @10 EQU 10 01321000 @11 EQU 11 01322000 @12 EQU 12 01323000 @13 EQU 13 01324000 @14 EQU 14 01325000 @15 EQU 15 01326000 EMCR0 EQU @00 01327000 EMCR1 EQU @01 01328000 EMCR6 EQU @06 01329000 EMCR7 EQU @07 01330000 EMCR8 EQU @08 01331000 EMCR9 EQU @09 01332000 EMCR10 EQU @10 01333000 EMCR11 EQU @11 01334000 EMCR12 EQU @12 01335000 EMCR13 EQU @13 01336000 EMCR14 EQU @14 01337000 EMCR15 EQU @15 01338000 REG0 EQU @00 01339000 CEPTPTR EQU @02 01340000 CFMCPTR EQU @02 01341000 CRETCODE EQU @04 01342000 CNAMPTR EQU @03 01343000 GPR15P EQU @15 01344000 RPHPTR EQU @01 01345000 EMCR2 EQU @02 01346000 EMCR3 EQU @03 01347000 EMCR4 EQU @04 01348000 EMCR5 EQU @05 01349000 GPR15F EQU @15 01350000 ATCLCPTR EQU 1032 01351000 CVTMAP EQU 0 01352000 CVTDAR EQU CVTMAP+72 01353000 CVTFLGS1 EQU CVTDAR 01354000 CVTDCB EQU CVTMAP+116 01355000 CVTIERLC EQU CVTMAP+144 01356000 CVTOPTA EQU CVTMAP+182 01357000 CVTOPTB EQU CVTMAP+183 01358000 CVTGTF EQU CVTMAP+236 01359000 CVTGTFST EQU CVTGTF 01360000 CVTGTFS EQU CVTGTFST 01361000 CVTSTATE EQU CVTGTFST 01362000 CVTTMODE EQU CVTGTFST 01363000 CVTFORM EQU CVTGTFST 01364000 CVTAQAVT EQU CVTMAP+240 01365000 CVTTCMFG EQU CVTAQAVT 01366000 CVTVOLM2 EQU CVTMAP+244 01367000 CVTTATA EQU CVTVOLM2 01368000 CVTTSKS EQU CVTTATA 01369000 CVTVOLF2 EQU CVTTSKS 01370000 CVTTAT EQU CVTTATA+1 01371000 CVTATER EQU CVTMAP+248 01372000 CVTEXT1 EQU CVTMAP+252 01373000 CVTPURG EQU CVTMAP+260 01374000 CVTQMSG EQU CVTMAP+268 01375000 CVTDMSR EQU CVTMAP+272 01376000 CVTERPV EQU CVTMAP+316 01377000 CVTINTLA EQU CVTMAP+320 01378000 CVTAPF EQU CVTMAP+324 01379000 CVTEXT2 EQU CVTMAP+328 01380000 CVTHJES EQU CVTMAP+332 01381000 CVTPGSIA EQU CVTMAP+348 01382000 CVTA1F1 EQU CVTMAP+356 01383000 CVTSYSK EQU CVTMAP+357 01384000 CVTVOLM1 EQU CVTMAP+380 01385000 CVTVOLF1 EQU CVTVOLM1 01386000 CVTATMCT EQU CVTMAP+388 01387000 CVTXTNT1 EQU 0 01388000 CVTXTNT2 EQU 0 01389000 CVTDSSV EQU CVTXTNT2 01390000 CVTFLGBT EQU CVTXTNT2+5 01391000 CVTQID EQU CVTXTNT2+24 01392000 CVTSHS EQU CVTXTNT2+40 01393000 CVTRV400 EQU CVTXTNT2+52 01394000 CVTRV409 EQU CVTXTNT2+53 01395000 CVTATCVT EQU CVTXTNT2+64 01396000 CVTRV429 EQU CVTXTNT2+84 01397000 CVTRV438 EQU CVTXTNT2+85 01398000 CVTRV457 EQU CVTXTNT2+112 01399000 CVTRV466 EQU CVTXTNT2+113 01400000 CVTFIX EQU 0 01401000 CVTRELNO EQU CVTFIX+252 01402000 ISTRPH EQU 0 01403000 RPHFLAGS EQU ISTRPH+2 01404000 RPHAPTYP EQU RPHFLAGS 01405000 RPHFSTLC EQU RPHFLAGS 01406000 RPHFLGB EQU ISTRPH+3 01407000 RPHRPHA EQU ISTRPH+4 01408000 RPHTSKID EQU ISTRPH+8 01409000 RPHDVTA EQU ISTRPH+12 01410000 RPHRESMA EQU ISTRPH+16 01411000 RPHWPFLG EQU RPHRESMA 01412000 RPHMAJCB EQU ISTRPH+21 01413000 RPHWEA EQU ISTRPH+24 01414000 RPHCSPA EQU RPHWEA 01415000 RPHSRPRM EQU ISTRPH+28 01416000 RPHPABQA EQU ISTRPH+36 01417000 RPHWORK EQU ISTRPH+40 01418000 RPHSAVE1 EQU RPHWORK 01419000 RPHSBITS EQU RPHSAVE1+1 01420000 ISTEPT EQU 0 01421000 EPTHDR EQU ISTEPT 01422000 EPTHFORM EQU EPTHDR 01423000 EPTHFW1 EQU EPTHFORM 01424000 EPTHFGA EQU EPTHDR+8 01425000 EPTENTRY EQU ISTEPT+12 01426000 ISTEPTE EQU 0 01427000 EPTNAME EQU ISTEPTE 01428000 EPTDVT EQU ISTEPTE+8 01429000 EPTFLAG1 EQU EPTDVT 01430000 EPTENDF EQU EPTFLAG1 01431000 ISTLOK EQU 0 01432000 LOKCHN EQU ISTLOK+1 01433000 LOKCHNG EQU LOKCHN 01434000 @NM00004 EQU LOKCHNG+2 01435000 ISTPAB EQU 0 01436000 PABWQCHN EQU ISTPAB 01437000 PABWEQA EQU PABWQCHN 01438000 PABCHAIN EQU PABWQCHN+4 01439000 PABRPHFG EQU ISTPAB+12 01440000 PABFLAGS EQU PABRPHFG 01441000 PABERLCK EQU PABFLAGS 01442000 PABERRLK EQU PABERLCK 01443000 ISTDEVCH EQU 0 01444000 DEVSHCH EQU ISTDEVCH 01445000 DEVCHAR EQU DEVSHCH 01446000 DEVTCODE EQU ISTDEVCH+1 01447000 DEVFLAGS EQU ISTDEVCH+3 01448000 DEVFCCTL EQU DEVFLAGS 01449000 DEVCHAR3 EQU DEVFLAGS 01450000 ISTPROCD EQU 0 01451000 PROPROC EQU ISTPROCD 01452000 PROPROC1 EQU PROPROC 01453000 PROPROC2 EQU PROPROC+1 01454000 PROPROC3 EQU PROPROC+2 01455000 PROPROC4 EQU PROPROC+3 01456000 PROPROCS EQU 0 01457000 PROSETMS EQU PROPROCS+1 01458000 PROSETM2 EQU PROSETMS 01459000 PROSETM3 EQU PROSETMS+1 01460000 PROSETM4 EQU PROSETMS+2 01461000 ISTFMCB EQU 0 01462000 FMCDVTA EQU ISTFMCB+12 01463000 FMCSTAT EQU ISTFMCB+28 01464000 FMCSTAT1 EQU ISTFMCB+29 01465000 FMCCMDFL EQU ISTFMCB+31 01466000 FMCCMPS1 EQU ISTFMCB+36 01467000 FMCSIPA EQU ISTFMCB+148 01468000 FMCNXOSQ EQU ISTFMCB+152 01469000 FMCNXCFM EQU FMCNXOSQ 01470000 FMCNXOSC EQU FMCNXOSQ+2 01471000 FMCSSTAT EQU ISTFMCB+159 01472000 FMCPACE EQU ISTFMCB+160 01473000 FMCPACEN EQU FMCPACE 01474000 FMCPACEM EQU FMCPACE+1 01475000 FMCPACPC EQU FMCPACE+2 01476000 FMCCVAL EQU FMCPACE+3 01477000 FMCOBCE EQU FMCCVAL 01478000 FMCCLEXT EQU ISTFMCB+164 01479000 FMCRPLA EQU FMCCLEXT 01480000 FMCFBA EQU FMCCLEXT+4 01481000 FMCCMPS2 EQU FMCCLEXT+16 01482000 FMCFLGA EQU FMCCMPS2 01483000 FMCFLGCL EQU FMCCMPS2+1 01484000 FMCPSCMD EQU FMCCMPS2+2 01485000 FMCPSTAT EQU FMCCMPS2+3 01486000 FMCSTAT2 EQU ISTFMCB+186 01487000 FMCMODEB EQU ISTFMCB+189 01488000 FMCCLSEQ EQU ISTFMCB+190 01489000 FMCRRESP EQU ISTFMCB+195 01490000 FMCSSEGQ EQU ISTFMCB+200 01491000 FMCFBAS EQU ISTFMCB+216 01492000 FMCZV002 EQU FMCFBAS 01493000 FMCSNCTL EQU ISTFMCB+224 01494000 FMCSCFLG EQU FMCSNCTL 01495000 FMCVS1 EQU ISTFMCB+232 01496000 FMCZFLAG EQU FMCVS1 01497000 FMCZF006 EQU FMCZFLAG 01498000 FMCLBXM EQU FMCVS1+12 01499000 FMCSHEAQ EQU FMCLBXM 01500000 FMCLCPBQ EQU FMCVS1+16 01501000 FMCLCPAQ EQU FMCVS1+20 01502000 FMCSEQ1 EQU FMCVS1+34 01503000 FMCZFLG2 EQU FMCVS1+35 01504000 FMCCVFLG EQU FMCVS1+44 01505000 CSRCHNAM EQU 0 01506000 ISTDYPAB EQU 0 01507000 ISTAVT EQU 0 01508000 ISTAS49 EQU ISTAVT+4 01509000 ISTATCVT EQU 0 01510000 ATCCOM EQU ISTATCVT 01511000 ATCSTAT EQU ATCCOM 01512000 ATCSTAT1 EQU ATCSTAT 01513000 ATCSTFLG EQU ATCSTAT+1 01514000 ATCPOFLG EQU ATCSTAT+2 01515000 ATCSTAT4 EQU ATCSTAT+3 01516000 ATCIOTRC EQU ATCCOM+140 01517000 ATCTHTRC EQU ATCIOTRC 01518000 ATCESC01 EQU ISTATCVT+288 01519000 ATCCSMR EQU ISTATCVT+296 01520000 ATCSHRFG EQU ISTATCVT+316 01521000 ATCHPGM EQU ISTATCVT+384 01522000 ATCVLCNT EQU ISTATCVT+772 01523000 ATCSOPD EQU ISTATCVT+792 01524000 ATCSIPD EQU ISTATCVT+800 01525000 ATCSECST EQU ISTATCVT+812 01526000 ATCAOSM EQU ISTATCVT+912 01527000 ATCGSRBQ EQU ATCAOSM+4 01528000 ATCGSRBG EQU ATCGSRBQ 01529000 ATCICAPP EQU ATCAOSM+100 01530000 ATCLDAPP EQU ATCAOSM+120 01531000 ATCDAPVT EQU ATCAOSM+140 01532000 ATCVTFLG EQU ATCAOSM+392 01533000 ATCZFLAG EQU ATCAOSM+588 01534000 FMZL0004 EQU 0 01535000 FMCFLAG EQU 0 01536000 FMCFLGB EQU FMCFLAG 01537000 CVTS01 EQU CVTPGSIA 01538000 CVTLPDIA EQU CVTS01+12 01539000 CVTDIRST EQU CVTLPDIA 01540000 CVTSLIDA EQU CVTS01+24 01541000 CVTCTLFG EQU CVTS01+50 01542000 CVTRV210 EQU CVTS01+424 01543000 CVTRV219 EQU CVTS01+425 01544000 CVTRV228 EQU CVTS01+426 01545000 CVTRV237 EQU CVTS01+427 01546000 CVTMFRTR EQU CVTS01+452 01547000 CVTRV262 EQU CVTS01+468 01548000 CVTRV271 EQU CVTS01+469 01549000 CVTRV280 EQU CVTS01+470 01550000 CVTRV289 EQU CVTS01+471 01551000 CVTGSDA EQU CVTS01+600 01552000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01553000 CVTRV628 EQU CVTS01+728 01554000 CVTRV627 EQU CVTS01+724 01555000 CVTRV626 EQU CVTS01+720 01556000 CVTRV625 EQU CVTS01+716 01557000 CVTRV624 EQU CVTS01+712 01558000 CVTRV623 EQU CVTS01+708 01559000 CVTRV622 EQU CVTS01+704 01560000 CVTRV621 EQU CVTS01+700 01561000 CVTRV620 EQU CVTS01+696 01562000 CVTRV619 EQU CVTS01+692 01563000 CVTRV618 EQU CVTS01+688 01564000 CVTRV617 EQU CVTS01+684 01565000 CVTRV616 EQU CVTS01+680 01566000 CVTRV615 EQU CVTS01+676 01567000 CVTRV614 EQU CVTS01+672 01568000 CVTRV613 EQU CVTS01+668 01569000 CVTRV612 EQU CVTS01+664 01570000 CVTRV611 EQU CVTS01+660 01571000 CVTEVERM EQU CVTS01+656 01572000 CVTIRM EQU CVTS01+652 01573000 CVTCGK EQU CVTS01+648 01574000 CVTRAC EQU CVTS01+644 01575000 CVTRV606 EQU CVTS01+640 01576000 CVTRV605 EQU CVTS01+636 01577000 CVTRV604 EQU CVTS01+632 01578000 CVTEFF02 EQU CVTS01+628 01579000 CVTCBBR EQU CVTS01+624 01580000 CVTSSCR EQU CVTS01+620 01581000 CVTEVENT EQU CVTS01+616 01582000 CVTCRCA EQU CVTS01+612 01583000 CVTTPIO EQU CVTS01+608 01584000 CVTADV EQU CVTS01+604 01585000 CVTGSDAB EQU CVTGSDA 01586000 CVTQV3 EQU CVTS01+596 01587000 CVTQV2 EQU CVTS01+592 01588000 CVTQV1 EQU CVTS01+588 01589000 CVTRPT EQU CVTS01+584 01590000 CVTSSRB EQU CVTS01+580 01591000 CVTCSDRL EQU CVTS01+576 01592000 CVTEXP1 EQU CVTS01+572 01593000 CVTRMPMT EQU CVTS01+568 01594000 CVTRMPTT EQU CVTS01+564 01595000 CVTVPSA EQU CVTS01+560 01596000 CVTVSTOP EQU CVTS01+556 01597000 CVTGTFR8 EQU CVTS01+552 01598000 CVTQUIT EQU CVTS01+548 01599000 CVTVACR EQU CVTS01+544 01600000 CVTWTCB EQU CVTS01+540 01601000 CVTSTPRS EQU CVTS01+536 01602000 CVT0PT02 EQU CVTS01+532 01603000 CVTDARCM EQU CVTS01+528 01604000 CVTIRECM EQU CVTS01+524 01605000 CVTJRECM EQU CVTS01+520 01606000 CVTVEMS0 EQU CVTS01+516 01607000 CVTSPFRR EQU CVTS01+512 01608000 CVTRLSTG EQU CVTS01+508 01609000 CVT0TC0A EQU CVTS01+504 01610000 CVTGMBR EQU CVTS01+500 01611000 CVTLFRM EQU CVTS01+496 01612000 CVTRMBR EQU CVTS01+492 01613000 CVTVIOP EQU CVTS01+488 01614000 CVTRV307 EQU CVTS01+486 01615000 CVTRV306 EQU CVTS01+484 01616000 CVTRV305 EQU CVTS01+482 01617000 CVTRV304 EQU CVTS01+480 01618000 CVTRV303 EQU CVTS01+478 01619000 CVTRV302 EQU CVTS01+476 01620000 CVTTRCA EQU CVTS01+472 01621000 CVTRV297 EQU CVTRV289 01622000 CVTRV296 EQU CVTRV289 01623000 CVTRV295 EQU CVTRV289 01624000 CVTRV294 EQU CVTRV289 01625000 CVTRV293 EQU CVTRV289 01626000 CVTRV292 EQU CVTRV289 01627000 CVTRV291 EQU CVTRV289 01628000 CVTRV290 EQU CVTRV289 01629000 CVTRV288 EQU CVTRV280 01630000 CVTRV287 EQU CVTRV280 01631000 CVTRV286 EQU CVTRV280 01632000 CVTRV285 EQU CVTRV280 01633000 CVTRV284 EQU CVTRV280 01634000 CVTRV283 EQU CVTRV280 01635000 CVTRV282 EQU CVTRV280 01636000 CVTRV281 EQU CVTRV280 01637000 CVTRV279 EQU CVTRV271 01638000 CVTRV278 EQU CVTRV271 01639000 CVTRV277 EQU CVTRV271 01640000 CVTRV276 EQU CVTRV271 01641000 CVTRV275 EQU CVTRV271 01642000 CVTRV274 EQU CVTRV271 01643000 CVTRV273 EQU CVTRV271 01644000 CVTRV272 EQU CVTRV271 01645000 CVTRV270 EQU CVTRV262 01646000 CVTRV269 EQU CVTRV262 01647000 CVTRV268 EQU CVTRV262 01648000 CVTRV267 EQU CVTRV262 01649000 CVTRV266 EQU CVTRV262 01650000 CVTRV265 EQU CVTRV262 01651000 CVTRV264 EQU CVTRV262 01652000 CVTRV263 EQU CVTRV262 01653000 CVTVFP EQU CVTS01+464 01654000 CVTVSI EQU CVTS01+460 01655000 CVTVPSIB EQU CVTS01+456 01656000 CVTMFACT EQU CVTMFRTR 01657000 CVTMFCTL EQU CVTS01+448 01658000 CVTPVBP EQU CVTS01+444 01659000 CVTPWI EQU CVTS01+440 01660000 CVTRV254 EQU CVTS01+438 01661000 CVTRV253 EQU CVTS01+436 01662000 CVTRV252 EQU CVTS01+434 01663000 CVTRV251 EQU CVTS01+433 01664000 CVTRV250 EQU CVTS01+432 01665000 CVTRV249 EQU CVTS01+431 01666000 CVTRV248 EQU CVTS01+430 01667000 CVTRV247 EQU CVTS01+429 01668000 CVTRV246 EQU CVTS01+428 01669000 CVTRV245 EQU CVTRV237 01670000 CVTRV244 EQU CVTRV237 01671000 CVTRV243 EQU CVTRV237 01672000 CVTRV242 EQU CVTRV237 01673000 CVTRV241 EQU CVTRV237 01674000 CVTRV240 EQU CVTRV237 01675000 CVTRV239 EQU CVTRV237 01676000 CVTRV238 EQU CVTRV237 01677000 CVTRV236 EQU CVTRV228 01678000 CVTRV235 EQU CVTRV228 01679000 CVTRV234 EQU CVTRV228 01680000 CVTRV233 EQU CVTRV228 01681000 CVTRV232 EQU CVTRV228 01682000 CVTRV231 EQU CVTRV228 01683000 CVTRV230 EQU CVTRV228 01684000 CVTRV229 EQU CVTRV228 01685000 CVTRV227 EQU CVTRV219 01686000 CVTRV226 EQU CVTRV219 01687000 CVTRV225 EQU CVTRV219 01688000 CVTRV224 EQU CVTRV219 01689000 CVTRV223 EQU CVTRV219 01690000 CVTRV222 EQU CVTRV219 01691000 CVTRV221 EQU CVTRV219 01692000 CVTRV220 EQU CVTRV219 01693000 CVTRV218 EQU CVTRV210 01694000 CVTRV217 EQU CVTRV210 01695000 CVTRV216 EQU CVTRV210 01696000 CVTRV215 EQU CVTRV210 01697000 CVTRV214 EQU CVTRV210 01698000 CVTRV213 EQU CVTRV210 01699000 CVTRV212 EQU CVTRV210 01700000 CVTRV211 EQU CVTRV210 01701000 CVTLCCAT EQU CVTS01+420 01702000 CVTPCCAT EQU CVTS01+416 01703000 CVTIPCRP EQU CVTS01+412 01704000 CVTIPCRI EQU CVTS01+408 01705000 CVTIPCDS EQU CVTS01+404 01706000 CVTAIDVT EQU CVTS01+400 01707000 CVTSSAP EQU CVTS01+396 01708000 CVTEHCIR EQU CVTS01+392 01709000 CVTEHDEF EQU CVTS01+388 01710000 CVTDAIR EQU CVTS01+384 01711000 CVTPERFM EQU CVTS01+380 01712000 CVT044R2 EQU CVTS01+376 01713000 CVTFETCH EQU CVTS01+372 01714000 CVTRSTWD EQU CVTS01+368 01715000 CVTSPOST EQU CVTS01+364 01716000 CVTIOBP EQU CVTS01+360 01717000 CVTASMVT EQU CVTS01+356 01718000 CVTRECRQ EQU CVTS01+352 01719000 CVTWSAC EQU CVTS01+348 01720000 CVTRV149 EQU CVTS01+344 01721000 CVTWSAL EQU CVTS01+340 01722000 CVTSPSA EQU CVTS01+336 01723000 CVTGLMN EQU CVTS01+332 01724000 CVTVEAC0 EQU CVTS01+328 01725000 CVT062R1 EQU CVTS01+324 01726000 CVTRPOST EQU CVTS01+320 01727000 CVTDQIQE EQU CVTS01+316 01728000 CVTCSD EQU CVTS01+312 01729000 CVTLKRMA EQU CVTS01+308 01730000 CVTRSPIE EQU CVTS01+304 01731000 CVTRENQ EQU CVTS01+300 01732000 CVTLQCB EQU CVTS01+296 01733000 CVTFQCB EQU CVTS01+292 01734000 CVTQCS01 EQU CVTS01+288 01735000 CVTAPFT EQU CVTS01+284 01736000 CVTPARRL EQU CVTS01+280 01737000 CVTVWAIT EQU CVTS01+276 01738000 CVTGSPL EQU CVTS01+272 01739000 CVTLSMQ EQU CVTS01+268 01740000 CVTGSMQ EQU CVTS01+264 01741000 CVTEXPRO EQU CVTS01+260 01742000 CVTOPCTP EQU CVTS01+256 01743000 CVTSIC EQU CVTS01+252 01744000 CVTTPIOS EQU CVTS01+248 01745000 CVTRTMS EQU CVTS01+244 01746000 CVTSDBF EQU CVTS01+240 01747000 CVTSCBP EQU CVTS01+236 01748000 CVTSDMP EQU CVTS01+232 01749000 CVTSV60 EQU CVTS01+228 01750000 CVTRTMCT EQU CVTS01+224 01751000 CVTASCBL EQU CVTS01+220 01752000 CVTASCBH EQU CVTS01+216 01753000 CVTGDA EQU CVTS01+212 01754000 CVTASVT EQU CVTS01+208 01755000 CVTVVMDI EQU CVTS01+204 01756000 CVTAQTOP EQU CVTS01+200 01757000 CVTIOSCS EQU CVTS01+196 01758000 CVTSDRM EQU CVTS01+192 01759000 CVTOPTE EQU CVTS01+188 01760000 CVTSTXU EQU CVTS01+184 01761000 CVTQUIS EQU CVTS01+180 01762000 CVTPARS EQU CVTS01+176 01763000 CVTS1EE EQU CVTS01+172 01764000 CVTFRAS EQU CVTS01+168 01765000 CVTQSAS EQU CVTS01+164 01766000 CVTCRAS EQU CVTS01+160 01767000 CVTCRMN EQU CVTS01+156 01768000 CVTDELCP EQU CVTS01+152 01769000 CVTFRECL EQU CVTS01+148 01770000 CVTGETCL EQU CVTS01+144 01771000 CVTBLDCP EQU CVTS01+140 01772000 CVTAUTHL EQU CVTS01+136 01773000 CVTSCAN EQU CVTS01+132 01774000 CVTRV144 EQU CVTS01+130 01775000 CVTMAXMP EQU CVTS01+128 01776000 CVTSTCK EQU CVTS01+124 01777000 CVTRV139 EQU CVTS01+123 01778000 CVTDSSAC EQU CVTS01+122 01779000 CVTRV513 EQU CVTS01+121 01780000 CVTIOSPL EQU CVTS01+120 01781000 CVTPTGT EQU CVTS01+116 01782000 CVTCSPIE EQU CVTS01+112 01783000 CVTSMFEX EQU CVTS01+108 01784000 CVTOLT0A EQU CVTS01+104 01785000 CVTSRBRT EQU CVTS01+100 01786000 CVTPUTL EQU CVTS01+96 01787000 CVTRV519 EQU CVTS01+92 01788000 CVTRV327 EQU CVTS01+88 01789000 CVTRV326 EQU CVTS01+84 01790000 CVTRV325 EQU CVTS01+80 01791000 CVTRV324 EQU CVTS01+76 01792000 CVT0VL01 EQU CVTS01+72 01793000 CVTSHRVM EQU CVTS01+68 01794000 CVTRV332 EQU CVTS01+64 01795000 CVTTAS EQU CVTS01+60 01796000 CVTRSCN EQU CVTS01+56 01797000 CVTTRAC2 EQU CVTS01+54 01798000 CVTTRACE EQU CVTS01+52 01799000 CVTAPG EQU CVTS01+51 01800000 CVTSDTRC EQU CVTCTLFG 01801000 CVTGTRCE EQU CVTCTLFG 01802000 CVTNOMP EQU CVTCTLFG 01803000 CVTRSV79 EQU CVTCTLFG 01804000 CVTDSTAT EQU CVTCTLFG 01805000 CVTRSV78 EQU CVTCTLFG 01806000 CVTRV333 EQU CVTCTLFG 01807000 CVTRV323 EQU CVTCTLFG 01808000 CVTSPVLK EQU CVTS01+49 01809000 CVTRSV77 EQU CVTS01+48 01810000 CVTRV331 EQU CVTS01+44 01811000 CVTRV330 EQU CVTS01+40 01812000 CVTRV329 EQU CVTS01+36 01813000 CVTRV328 EQU CVTS01+32 01814000 CVTRV322 EQU CVTS01+28 01815000 CVTSLID EQU CVTSLIDA+1 01816000 CVTSYLK EQU CVTSLIDA 01817000 CVTRV321 EQU CVTS01+20 01818000 CVTRV320 EQU CVTS01+16 01819000 CVTLPDIR EQU CVTLPDIA+1 01820000 CVTRSV69 EQU CVTDIRST 01821000 CVTRSV68 EQU CVTDIRST 01822000 CVTRSV67 EQU CVTDIRST 01823000 CVTRSV66 EQU CVTDIRST 01824000 CVTRSV65 EQU CVTDIRST 01825000 CVTRSV64 EQU CVTDIRST 01826000 CVTRSV63 EQU CVTDIRST 01827000 CVTDICOM EQU CVTDIRST 01828000 CVTPVTP EQU CVTS01+8 01829000 CVTLPDSR EQU CVTS01+4 01830000 CVTGETL EQU CVTS01 01831000 FMCFLRSV EQU FMCFLGB 01832000 FMCFLGA8 EQU FMCFLGB 01833000 ATCAOS EQU ISTATCVT+1552 01834000 ATCVIOPM EQU ATCAOSM+636 01835000 ATCTPMMI EQU ATCAOSM+632 01836000 ATCTPMPB EQU ATCAOSM+600 01837000 ATCRPLCT EQU ATCAOSM+594 01838000 ATCCRACT EQU ATCAOSM+592 01839000 ATCSRBCT EQU ATCAOSM+590 01840000 ATCRSV75 EQU ATCAOSM+589 01841000 ATCRSV66 EQU ATCZFLAG 01842000 ATCZF001 EQU ATCZFLAG 01843000 ATCTPCP1 EQU ATCAOSM+584 01844000 ATCTPCP0 EQU ATCAOSM+580 01845000 ATCAICTN EQU ATCAOSM+576 01846000 ATCZR01 EQU ATCAOSM+572 01847000 ATCMPLTA EQU ATCAOSM+568 01848000 ATCASCB EQU ATCAOSM+564 01849000 ATCAP86 EQU ATCAOSM+560 01850000 ATCAP85 EQU ATCAOSM+556 01851000 ATCAP84 EQU ATCAOSM+552 01852000 ATCAP83 EQU ATCAOSM+548 01853000 ATCAP82 EQU ATCAOSM+544 01854000 ATCAP69 EQU ATCAOSM+540 01855000 ATCAP66 EQU ATCAOSM+536 01856000 ATCAP62 EQU ATCAOSM+532 01857000 ATCAPC59 EQU ATCAOSM+528 01858000 ATCAP56 EQU ATCAOSM+524 01859000 ATCAP55 EQU ATCAOSM+520 01860000 ATCRCFY0 EQU ATCAOSM+516 01861000 ATCAP41 EQU ATCAOSM+512 01862000 ATCAPC25 EQU ATCAOSM+508 01863000 ATCAP23 EQU ATCAOSM+504 01864000 ATCTPSPB EQU ATCAOSM+472 01865000 ATCTRMBP EQU ATCAOSM+440 01866000 ATCPSTA EQU ATCAOSM+432 01867000 ATCSMABF EQU ATCAOSM+428 01868000 ATCSMAPR EQU ATCAOSM+424 01869000 ATCTPWQA EQU ATCAOSM+420 01870000 ATCSMAID EQU ATCAOSM+416 01871000 ATCSMARA EQU ATCAOSM+412 01872000 ATCCACXA EQU ATCAOSM+408 01873000 ATCZLAAB EQU ATCAOSM+404 01874000 ATCATA10 EQU ATCAOSM+400 01875000 ATCHLTCB EQU ATCAOSM+396 01876000 @NM00012 EQU ATCVTFLG 01877000 ATCVTACT EQU ATCVTFLG 01878000 ATCRPT40 EQU ATCAOSM+388 01879000 ATCRPT39 EQU ATCAOSM+384 01880000 ATCRPT38 EQU ATCAOSM+380 01881000 ATCRPT37 EQU ATCAOSM+376 01882000 ATCRPT36 EQU ATCAOSM+372 01883000 ATCRPT35 EQU ATCAOSM+368 01884000 ATCRPT34 EQU ATCAOSM+364 01885000 ATCRPT33 EQU ATCAOSM+360 01886000 ATCRPT32 EQU ATCAOSM+356 01887000 ATCRPT31 EQU ATCAOSM+352 01888000 ATCRPT30 EQU ATCAOSM+348 01889000 ATCRPT29 EQU ATCAOSM+344 01890000 ATCRPT28 EQU ATCAOSM+340 01891000 ATCRPT27 EQU ATCAOSM+336 01892000 ATCRPT26 EQU ATCAOSM+332 01893000 ATCRPT25 EQU ATCAOSM+328 01894000 ATCRPT24 EQU ATCAOSM+324 01895000 ATCRPT23 EQU ATCAOSM+320 01896000 ATCRPT22 EQU ATCAOSM+316 01897000 ATCRPT21 EQU ATCAOSM+312 01898000 ATCRPT20 EQU ATCAOSM+308 01899000 ATCRPT19 EQU ATCAOSM+304 01900000 ATCRPT18 EQU ATCAOSM+300 01901000 ATCRPT17 EQU ATCAOSM+296 01902000 ATCRPT16 EQU ATCAOSM+292 01903000 ATCRPT15 EQU ATCAOSM+288 01904000 ATCRPT14 EQU ATCAOSM+284 01905000 ATCRPT13 EQU ATCAOSM+280 01906000 ATCRPT12 EQU ATCAOSM+276 01907000 ATCRPT11 EQU ATCAOSM+272 01908000 ATCAP38 EQU ATCAOSM+268 01909000 ATCAP37 EQU ATCAOSM+264 01910000 ATCZDFJ0 EQU ATCAOSM+260 01911000 ATCAP51 EQU ATCAOSM+256 01912000 ATCZPAB2 EQU ATCAOSM+224 01913000 ATCZPAB1 EQU ATCAOSM+192 01914000 ATCZLFVT EQU ATCAOSM+188 01915000 ATCZLPVT EQU ATCAOSM+184 01916000 ATCZDVTX EQU ATCAOSM+180 01917000 ATCZDVTA EQU ATCAOSM+176 01918000 ATCZDVT9 EQU ATCAOSM+172 01919000 ATCZDVT8 EQU ATCAOSM+168 01920000 ATCZDVT7 EQU ATCAOSM+164 01921000 ATCRSV56 EQU ATCDAPVT+22 01922000 ATCDAPDG EQU ATCDAPVT+20 01923000 ATCDXCEA EQU ATCDAPVT+16 01924000 ATCDCEA EQU ATCDAPVT+12 01925000 ATCDPCIA EQU ATCDAPVT+8 01926000 ATCDSIOA EQU ATCDAPVT+4 01927000 ATCDEOEA EQU ATCDAPVT 01928000 ATCZLAEA EQU ATCLDAPP+16 01929000 ATCZLCEA EQU ATCLDAPP+12 01930000 ATCRSV17 EQU ATCLDAPP+8 01931000 ATCSMFRR EQU ATCLDAPP+4 01932000 ATCCDTID EQU ATCLDAPP 01933000 ATCZAEA EQU ATCICAPP+16 01934000 ATCZCEA EQU ATCICAPP+12 01935000 ATCCDTCB EQU ATCICAPP+8 01936000 ATCZSIOA EQU ATCICAPP+4 01937000 ATCCDRPH EQU ATCICAPP 01938000 ATCAP65 EQU ATCAOSM+96 01939000 ATCZDVT6 EQU ATCAOSM+92 01940000 ATCZDVT4 EQU ATCAOSM+88 01941000 ATCZDVT3 EQU ATCAOSM+84 01942000 ATCZDVT1 EQU ATCAOSM+80 01943000 ATCICNCB EQU ATCAOSM+76 01944000 ATCZPSVT EQU ATCAOSM+72 01945000 ATCZFSVT EQU ATCAOSM+68 01946000 ATCAP64 EQU ATCAOSM+64 01947000 ATCAP63 EQU ATCAOSM+60 01948000 ATCAP61 EQU ATCAOSM+56 01949000 ATCAP58 EQU ATCAOSM+52 01950000 ATCAP57 EQU ATCAOSM+48 01951000 ATCAP54 EQU ATCAOSM+44 01952000 ATCAP53 EQU ATCAOSM+40 01953000 ATCAP52 EQU ATCAOSM+36 01954000 ATCAP34 EQU ATCAOSM+32 01955000 ATCAP32 EQU ATCAOSM+28 01956000 ATCAP31 EQU ATCAOSM+24 01957000 ATCAP12 EQU ATCAOSM+20 01958000 ATCAP11 EQU ATCAOSM+16 01959000 ATCCMTCB EQU ATCAOSM+12 01960000 ATCPRPH EQU ATCAOSM+8 01961000 ATCGSRBF EQU ATCGSRBG 01962000 ATCSRBRT EQU ATCAOSM 01963000 ATCRSVBB EQU ISTATCVT+908 01964000 ATCVDLOK EQU ISTATCVT+904 01965000 ATCVFPAB EQU ISTATCVT+872 01966000 ATCVDPAB EQU ISTATCVT+840 01967000 ATCIOECB EQU ISTATCVT+836 01968000 ATCINCW3 EQU ISTATCVT+832 01969000 ATCMODTB EQU ISTATCVT+828 01970000 ATCUSSPT EQU ISTATCVT+824 01971000 ATCSRTAB EQU ISTATCVT+820 01972000 @NM00011 EQU ISTATCVT+818 01973000 ATCNMCTR EQU ISTATCVT+816 01974000 ATCSEC51 EQU ATCSECST 01975000 ATCSEC40 EQU ATCSIPD+8 01976000 ATCSEC30 EQU ATCSIPD+4 01977000 ATCSEC21 EQU ATCSIPD 01978000 ATCSEC10 EQU ATCSOPD+4 01979000 ATCSEC01 EQU ATCSOPD 01980000 ATCPOIA EQU ISTATCVT+788 01981000 ATCPODVT EQU ISTATCVT+784 01982000 ATCS49XL EQU ISTATCVT+780 01983000 ATCS49XI EQU ISTATCVT+776 01984000 ATCLCLCT EQU ATCVLCNT+2 01985000 ATCRNCNT EQU ATCVLCNT 01986000 ATCCFEAD EQU ISTATCVT+768 01987000 ATCPTR00 EQU ISTATCVT+736 01988000 ATCRSV10 EQU ISTATCVT+704 01989000 ATCTACB EQU ISTATCVT+700 01990000 ATCVTINM EQU ISTATCVT+696 01991000 ATCTCLIM EQU ISTATCVT+692 01992000 ATCTCLOM EQU ISTATCVT+688 01993000 ATCVTIPB EQU ISTATCVT+656 01994000 ATCTCIPB EQU ISTATCVT+624 01995000 ATCTIPAB EQU ISTATCVT+592 01996000 ATCOCCCB EQU ISTATCVT+588 01997000 ATCOCCOB EQU ISTATCVT+584 01998000 ATCCDLAD EQU ISTATCVT+580 01999000 ATCCCLAD EQU ISTATCVT+576 02000000 ATCDLRPB EQU ISTATCVT+544 02001000 ATCPGPAB EQU ISTATCVT+512 02002000 ATCVPAB1 EQU ISTATCVT+480 02003000 ATCRSV97 EQU ISTATCVT+476 02004000 ATCRDTLK EQU ISTATCVT+472 02005000 ATCVOCLK EQU ISTATCVT+468 02006000 ATCCDFDN EQU ISTATCVT+464 02007000 ATCCDFIN EQU ISTATCVT+460 02008000 ATCDVTLK EQU ISTATCVT+456 02009000 ATCAP36 EQU ISTATCVT+452 02010000 ATCAP35 EQU ISTATCVT+448 02011000 ATCAP33 EQU ISTATCVT+444 02012000 ATCRSV99 EQU ISTATCVT+412 02013000 ATCLDECB EQU ISTATCVT+408 02014000 ATCLDNCS EQU ISTATCVT+404 02015000 ATCCDPTR EQU ISTATCVT+400 02016000 ATCADEL EQU ISTATCVT+396 02017000 ATCTODVT EQU ISTATCVT+392 02018000 ATCDEBCH EQU ISTATCVT+388 02019000 ATCHBSIZ EQU ATCHPGM+2 02020000 ATCHBFNO EQU ATCHPGM 02021000 ATCCRME EQU ISTATCVT+380 02022000 ATCRVCHS EQU ISTATCVT+372 02023000 ATCECTLP EQU ISTATCVT+368 02024000 ATCZDVTB EQU ISTATCVT+364 02025000 ATCECPRT EQU ISTATCVT+360 02026000 ATCVTLOD EQU ISTATCVT+356 02027000 ATCTRPAB EQU ISTATCVT+352 02028000 ATCMSGM EQU ISTATCVT+348 02029000 ATCMSGP EQU ISTATCVT+344 02030000 ATCEPT EQU ISTATCVT+340 02031000 ATCDVT EQU ISTATCVT+336 02032000 ATCTRCPT EQU ISTATCVT+332 02033000 ATCDVLOD EQU ISTATCVT+328 02034000 ATCALERT EQU ISTATCVT+324 02035000 ATCEPA EQU ISTATCVT+320 02036000 ATCSAF EQU ISTATCVT+318 02037000 ATCXRANG EQU ISTATCVT+317 02038000 ATCLAST EQU ATCSHRFG 02039000 ATCSHRTN EQU ISTATCVT+308 02040000 ATCUEP EQU ISTATCVT+304 02041000 ATCOCRT EQU ISTATCVT+300 02042000 ATCCSMA EQU ATCCSMR 02043000 ATCESC02 EQU ISTATCVT+292 02044000 ATCCDFND EQU ISTATCVT+284 02045000 ATCCDDEL EQU ISTATCVT+280 02046000 ATCCDADD EQU ISTATCVT+276 02047000 ATCMNT EQU ISTATCVT+272 02048000 ATCRSV16 EQU ISTATCVT+270 02049000 ATCMAXID EQU ISTATCVT+269 02050000 ATCMSGSP EQU ATCCOM+268 02051000 ATCCIDM EQU ATCCOM+266 02052000 ATCACTRM EQU ATCCOM+264 02053000 ATCNERAP EQU ATCCOM+260 02054000 ATCNESAL EQU ATCCOM+256 02055000 ATCRCC65 EQU ATCCOM+252 02056000 ATCRCC26 EQU ATCCOM+248 02057000 ATCRCC63 EQU ATCCOM+244 02058000 ATCRSV11 EQU ATCCOM+242 02059000 ATCVTMID EQU ATCCOM+240 02060000 ATCAPOST EQU ATCCOM+236 02061000 ATCNERFN EQU ATCCOM+232 02062000 ATCNERNE EQU ATCCOM+228 02063000 ATCNERCV EQU ATCCOM+224 02064000 ATCNERST EQU ATCCOM+220 02065000 ATCDCC61 EQU ATCCOM+216 02066000 ATCDCC60 EQU ATCCOM+212 02067000 ATCSRTDF EQU ATCCOM+208 02068000 ATCSRTAD EQU ATCCOM+204 02069000 ATCFIRA EQU ATCCOM+200 02070000 ATCSMBQ EQU ATCCOM+196 02071000 ATCSMRC EQU ATCCOM+192 02072000 ATCSMRS EQU ATCCOM+188 02073000 ATCSMQU EQU ATCCOM+184 02074000 ATCSMRQ EQU ATCCOM+180 02075000 ATCACDA EQU ATCCOM+176 02076000 ATCSTMA EQU ATCCOM+172 02077000 ATCFRSTR EQU ATCCOM+168 02078000 ATCGTSTR EQU ATCCOM+164 02079000 ATCREADA EQU ATCCOM+160 02080000 ATCALOAD EQU ATCCOM+156 02081000 ATCBLDLA EQU ATCCOM+152 02082000 ATCFBRPH EQU ATCCOM+148 02083000 ATCBFTRC EQU ATCCOM+144 02084000 ATCTPBUF EQU ATCTHTRC 02085000 ATCREMOV EQU ATCCOM+136 02086000 ATCADD EQU ATCCOM+132 02087000 ATCBPDA EQU ATCCOM+128 02088000 ATCDVTPT EQU ATCCOM+124 02089000 ATCFEPT EQU ATCCOM+120 02090000 ATCFDVT EQU ATCCOM+116 02091000 ATCCONFT EQU ATCCOM+112 02092000 ATCPTCHA EQU ATCCOM+108 02093000 ATCAUTHA EQU ATCCOM+104 02094000 ATCACCTA EQU ATCCOM+100 02095000 ATCRDTH EQU ATCCOM+96 02096000 ATCFRSCH EQU ATCCOM+92 02097000 ATCFSB EQU ATCCOM+88 02098000 ATCHLTMS EQU ATCCOM+84 02099000 ATCECPRM EQU ATCCOM+80 02100000 ATCECNET EQU ATCCOM+76 02101000 ATCECOPC EQU ATCCOM+72 02102000 ATCVPARM EQU ATCCOM+68 02103000 ATCECVRQ EQU ATCCOM+64 02104000 ATCECSES EQU ATCCOM+60 02105000 ATCOCHA EQU ATCCOM+56 02106000 ATCDSPLQ EQU ATCCOM+52 02107000 ATCECDSP EQU ATCCOM+48 02108000 ATCVARYQ EQU ATCCOM+44 02109000 ATCECVRY EQU ATCCOM+40 02110000 ATCHALTQ EQU ATCCOM+36 02111000 ATCECHLT EQU ATCCOM+32 02112000 ATCMODQ EQU ATCCOM+28 02113000 ATCECMOD EQU ATCCOM+24 02114000 ATCASCHD EQU ATCCOM+20 02115000 ATCSRT EQU ATCCOM+16 02116000 ATCRDT EQU ATCCOM+12 02117000 ATCDCFRR EQU ATCCOM+8 02118000 ATCAPI EQU ATCCOM+4 02119000 ATCRSV04 EQU ATCSTAT4 02120000 ATCNCSD EQU ATCSTAT4 02121000 ATCMTST EQU ATCSTAT4 02122000 ATCTPRT EQU ATCSTAT4 02123000 ATCPRTAT EQU ATCSTAT4 02124000 @NM00010 EQU ATCPOFLG 02125000 ATCPOUNS EQU ATCPOFLG 02126000 ATCHSDMF EQU ATCSTFLG 02127000 @NM00009 EQU ATCSTAT1 02128000 ATCINHLT EQU ATCSTAT1 02129000 ATCNETSL EQU ATCSTAT1 02130000 ATCQKHLT EQU ATCSTAT1 02131000 ATCSNHLT EQU ATCSTAT1 02132000 ATCACTIV EQU ATCSTAT1 02133000 ATCSTART EQU ATCSTAT1 02134000 ISTPDAVP EQU ISTAVT+40 02135000 ISTAVR01 EQU ISTAVT+38 02136000 ISTVTTP EQU ISTAVT+36 02137000 ISTAGTWT EQU ISTAVT+34 02138000 ISTATRT EQU ISTAVT+32 02139000 ISTARID EQU ISTAVT+30 02140000 ISTX1 EQU ISTAVT+29 02141000 ISTPHNM EQU ISTAVT+24 02142000 ISTAPSEX EQU ISTAVT+20 02143000 ISTVTTIK EQU ISTAVT+18 02144000 AVTASID EQU ISTAVT+16 02145000 ISTAPSTA EQU ISTAVT+12 02146000 ISTAS53 EQU ISTAVT+8 02147000 ISTAHIP EQU ISTAS49 02148000 ISTACVT EQU ISTAVT 02149000 DYPPAB EQU ISTDYPAB+16 02150000 DYPRSV01 EQU ISTDYPAB+12 02151000 DYPTSKID EQU ISTDYPAB+8 02152000 DYPCHAIN EQU ISTDYPAB+4 02153000 DYPFLGS EQU ISTDYPAB+2 02154000 DYPLNGTH EQU ISTDYPAB+1 02155000 DYPTYPE EQU ISTDYPAB 02156000 FMCCLRPH EQU FMCVS1+45 02157000 FMCRSV0X EQU FMCCVFLG 02158000 FMCVYRPH EQU FMCCVFLG 02159000 FMCZV004 EQU FMCVS1+40 02160000 FMCLOCK2 EQU FMCVS1+36 02161000 @NM00019 EQU FMCZFLG2 02162000 FMCZF027 EQU FMCZFLG2 02163000 FMCZF026 EQU FMCZFLG2 02164000 FMCSEQ1B EQU FMCSEQ1 02165000 FMCSEQ1T EQU FMCSEQ1 02166000 FMCZX006 EQU FMCVS1+33 02167000 FMCZX005 EQU FMCVS1+32 02168000 FMCZX004 EQU FMCVS1+31 02169000 FMCZX003 EQU FMCVS1+30 02170000 FMCZX002 EQU FMCVS1+29 02171000 FMCZX001 EQU FMCVS1+28 02172000 FMCZV001 EQU FMCVS1+24 02173000 FMCAWATQ EQU FMCLCPAQ+1 02174000 @NM00018 EQU FMCLCPAQ 02175000 FMCLCPB2 EQU FMCLCPBQ+1 02176000 FMCLCPB1 EQU FMCLCPBQ 02177000 FMCASCDQ EQU FMCSHEAQ+1 02178000 @NM00017 EQU FMCSHEAQ 02179000 FMCSHEDQ EQU FMCVS1+8 02180000 FMCRSV04 EQU FMCVS1+6 02181000 FMCZH001 EQU FMCVS1+4 02182000 FMCZF025 EQU FMCZFLAG+3 02183000 FMCZF024 EQU FMCZFLAG+3 02184000 FMCZF023 EQU FMCZFLAG+3 02185000 FMCZF022 EQU FMCZFLAG+3 02186000 FMCZF021 EQU FMCZFLAG+3 02187000 FMCZF020 EQU FMCZFLAG+3 02188000 FMCZF019 EQU FMCZFLAG+3 02189000 FMCZF018 EQU FMCZFLAG+3 02190000 FMCZF017 EQU FMCZFLAG+2 02191000 FMCZF016 EQU FMCZFLAG+2 02192000 FMCZF015 EQU FMCZFLAG+2 02193000 FMCZF014 EQU FMCZFLAG+2 02194000 FMCZF013 EQU FMCZFLAG+2 02195000 FMCZF012 EQU FMCZFLAG+2 02196000 FMCZF011 EQU FMCZFLAG+2 02197000 FMCZF010 EQU FMCZFLAG+2 02198000 FMCZF00F EQU FMCZFLAG+1 02199000 FMCZF00E EQU FMCZFLAG+1 02200000 FMCZF00D EQU FMCZFLAG+1 02201000 FMCZF00C EQU FMCZFLAG+1 02202000 FMCZF00B EQU FMCZFLAG+1 02203000 FMCRSV10 EQU FMCZFLAG+1 02204000 FMCZF009 EQU FMCZFLAG+1 02205000 FMCZFD06 EQU FMCZF006+1 02206000 FMCZFC06 EQU FMCZF006 02207000 FMCZFB06 EQU FMCZF006 02208000 FMCZFA06 EQU FMCZF006 02209000 FMCZF005 EQU FMCZFLAG 02210000 FMCZF004 EQU FMCZFLAG 02211000 FMCZF003 EQU FMCZFLAG 02212000 FMCZF002 EQU FMCZFLAG 02213000 FMCZF001 EQU FMCZFLAG 02214000 FMCFRESA EQU ISTFMCB+228 02215000 FMCSCSQN EQU FMCSNCTL+2 02216000 FMCSCCTL EQU FMCSNCTL+1 02217000 FMCSTCTL EQU FMCSCFLG 02218000 FMCSCCLO EQU FMCSCFLG 02219000 FMCAPRO EQU FMCSCFLG 02220000 FMCLURO EQU FMCSCFLG 02221000 FMCOBSAC EQU FMCSCFLG 02222000 FMCIBSAC EQU FMCSCFLG 02223000 FMCFBRE EQU ISTFMCB+220 02224000 FMCFBXM EQU FMCZV002 02225000 FMCASEGQ EQU ISTFMCB+212 02226000 FMCRDTPT EQU ISTFMCB+208 02227000 FMCLOCK EQU ISTFMCB+204 02228000 FMCSEGD EQU FMCSSEGQ 02229000 FMCRSPLM EQU ISTFMCB+198 02230000 FMCPSTRS EQU ISTFMCB+196 02231000 @NM00016 EQU FMCRRESP 02232000 FMCTSLHA EQU FMCRRESP 02233000 FMCFRRN EQU FMCRRESP 02234000 FMCFME EQU FMCRRESP 02235000 FMCFEX EQU FMCRRESP 02236000 FMCFPE EQU FMCRRESP 02237000 FMCCTLB EQU ISTFMCB+194 02238000 FMCBSQNO EQU FMCCLSEQ+2 02239000 FMCTSQNO EQU FMCCLSEQ 02240000 FMCOBPRG EQU FMCMODEB 02241000 FMCIBPRG EQU FMCMODEB 02242000 FMCRESOT EQU FMCMODEB 02243000 FMCRSTSR EQU FMCMODEB 02244000 FMCLUQ EQU FMCMODEB 02245000 FMCAPQ EQU FMCMODEB 02246000 FMCCLEAR EQU FMCMODEB 02247000 FMCHOLD EQU FMCMODEB 02248000 FMCIPSEQ EQU ISTFMCB+188 02249000 FMCLUSTR EQU ISTFMCB+187 02250000 FMCRSV87 EQU FMCSTAT2 02251000 FMCSEQI EQU FMCSTAT2 02252000 FMCCPIP EQU FMCSTAT2 02253000 FMCALIPR EQU FMCSTAT2 02254000 FMCIAIO EQU FMCSTAT2 02255000 FMCZF00A EQU FMCSTAT2 02256000 FMCVPIP EQU FMCSTAT2 02257000 FMCBHSET EQU ISTFMCB+185 02258000 FMCPRMRC EQU FMCCLEXT+20 02259000 FMCRSV89 EQU FMCPSTAT 02260000 FMCPCLSD EQU FMCPSTAT 02261000 FMCDDOCD EQU FMCPSTAT 02262000 FMCIDVFD EQU FMCPSTAT 02263000 FMCELKST EQU FMCPSTAT 02264000 FMCRSV88 EQU FMCPSCMD 02265000 FMCRDBLK EQU FMCPSCMD 02266000 FMCDSEOC EQU FMCPSCMD 02267000 FMCPURGE EQU FMCPSCMD 02268000 FMCRESTI EQU FMCPSCMD 02269000 FMCCNTCT EQU FMCPSCMD 02270000 FMCINVT EQU FMCPSCMD 02271000 FMCFLGB7 EQU FMCFLGCL 02272000 FMCFLGB6 EQU FMCFLGCL 02273000 FMCFLGB5 EQU FMCFLGCL 02274000 FMCFLGB4 EQU FMCFLGCL 02275000 FMCFLGB3 EQU FMCFLGCL 02276000 FMCFLGB2 EQU FMCFLGCL 02277000 FMCFLGB1 EQU FMCFLGCL 02278000 FMCFLGB0 EQU FMCFLGCL 02279000 FMCFLGA7 EQU FMCFLGA 02280000 FMCFLGA6 EQU FMCFLGA 02281000 FMCFLGA5 EQU FMCFLGA 02282000 FMCFLGA4 EQU FMCFLGA 02283000 FMCFLGA3 EQU FMCFLGA 02284000 FMCFLGA2 EQU FMCFLGA 02285000 FMCFLGA1 EQU FMCFLGA 02286000 FMCFLGA0 EQU FMCFLGA 02287000 FMCDCLOK EQU FMCCLEXT+12 02288000 FMCRAFM EQU FMCCLEXT+8 02289000 FMCFBPTR EQU FMCFBA+1 02290000 FMCFBRSV EQU FMCFBA 02291000 FMCRPLPT EQU FMCRPLA+1 02292000 FMCRPLRS EQU FMCRPLA 02293000 FMCPRCLS EQU FMCCVAL 02294000 FMCIBCE EQU FMCCVAL 02295000 FMCONLY EQU FMCOBCE 02296000 FMCLAST EQU FMCOBCE 02297000 FMCMIDLE EQU FMCOBCE 02298000 FMCFIRST EQU FMCOBCE 02299000 FMCCPCNT EQU FMCPACPC 02300000 FMCMPCNT EQU FMCPACEM 02301000 FMCNPCNT EQU FMCPACEN 02302000 FMCCONF EQU FMCSSTAT 02303000 FMCPURCH EQU FMCSSTAT 02304000 FMCNSALU EQU FMCSSTAT 02305000 FMCBIP EQU FMCSSTAT 02306000 FMCSDTR EQU FMCSSTAT 02307000 FMCUIPI EQU FMCSSTAT 02308000 FMCCIPI EQU FMCSSTAT 02309000 FMCSNBI EQU FMCSSTAT 02310000 FMCRVD01 EQU ISTFMCB+158 02311000 FMCISSN EQU ISTFMCB+156 02312000 FMCOASN EQU FMCNXOSC 02313000 FMCOSSN EQU FMCNXCFM 02314000 FMCSIP EQU FMCSIPA 02315000 FMCEXLST EQU ISTFMCB+144 02316000 FMCPAB5 EQU ISTFMCB+128 02317000 FMCPAB4 EQU ISTFMCB+112 02318000 FMCPAB3 EQU ISTFMCB+96 02319000 FMCPAB2 EQU ISTFMCB+80 02320000 FMCPAB1 EQU ISTFMCB+64 02321000 FMCFASYA EQU ISTFMCB+60 02322000 FMCMODE EQU ISTFMCB+52 02323000 FMCPROCD EQU ISTFMCB+48 02324000 FMCVWT EQU ISTFMCB+44 02325000 FMCRPLH EQU ISTFMCB+40 02326000 FMCBUFNB EQU FMCCMPS1+2 02327000 FMCBUFLM EQU FMCCMPS1 02328000 FMCDEBA EQU ISTFMCB+32 02329000 @NM00015 EQU FMCCMDFL 02330000 FMCSNA EQU FMCCMDFL 02331000 FMCVSNA EQU FMCCMDFL 02332000 FMCCMDR EQU FMCCMDFL 02333000 @NM00014 EQU ISTFMCB+30 02334000 @NM00013 EQU FMCSTAT1 02335000 FMCHPURG EQU FMCSTAT1 02336000 FMCVSP2 EQU FMCSTAT1 02337000 FMCVSP1 EQU FMCSTAT 02338000 FMCLTEAS EQU FMCSTAT 02339000 FMCZF007 EQU FMCSTAT 02340000 FMCDEDSC EQU FMCSTAT 02341000 FMCDEVOF EQU FMCSTAT 02342000 FMCDAPT EQU FMCSTAT 02343000 FMCPRMTE EQU FMCSTAT 02344000 FMCPRMTR EQU FMCSTAT 02345000 FMCUSFLD EQU ISTFMCB+24 02346000 FMCFMCBA EQU ISTFMCB+20 02347000 FMCDNCBA EQU ISTFMCB+16 02348000 FMCTSKID EQU ISTFMCB+8 02349000 FMCNXTCB EQU ISTFMCB+4 02350000 FMCSAF EQU ISTFMCB+2 02351000 FMCLNGTH EQU ISTFMCB+1 02352000 FMCTYPE EQU ISTFMCB 02353000 PROSRDEF EQU PROSETM4 02354000 PRORSV47 EQU PROSETM4 02355000 PROSCON EQU PROSETM4 02356000 PRORSV46 EQU PROSETM3 02357000 PROSMONT EQU PROSETM3 02358000 PRORSV45 EQU PROSETM3 02359000 PROSNTO EQU PROSETM3 02360000 PRORSV44 EQU PROSETM3 02361000 PRORSV43 EQU PROSETM2 02362000 PROSNTFL EQU PROSETM2 02363000 PRORSV42 EQU PROSETM2 02364000 PRORSV41 EQU PROPROCS 02365000 PROMODC EQU PROPROC4 02366000 PROMODT EQU PROPROC4 02367000 PROMODM EQU PROPROC4 02368000 PROMODB EQU PROPROC4 02369000 PRORSV14 EQU PROPROC4 02370000 PRORSV13 EQU PROPROC4 02371000 PRORSV12 EQU PROPROC4 02372000 PROEIB EQU PROPROC4 02373000 PRORSV11 EQU PROPROC3 02374000 PROMONT2 EQU PROPROC3 02375000 PROMONIT EQU PROPROC3 02376000 PROSUBLK EQU PROPROC3 02377000 PRONTO EQU PROPROC3 02378000 PROLGIN EQU PROPROC3 02379000 PROERPI EQU PROPROC3 02380000 PRORSV07 EQU PROPROC3 02381000 PROCFTX EQU PROPROC2 02382000 PROEMLC EQU PROPROC2 02383000 PRONTFL EQU PROPROC2 02384000 PRORSV05 EQU PROPROC2 02385000 PRORSV04 EQU PROPROC2 02386000 PROLGOT EQU PROPROC2 02387000 PROERPO EQU PROPROC2 02388000 PRORSV03 EQU PROPROC2 02389000 PRORPLC EQU PROPROC1 02390000 PROCS EQU PROPROC1 02391000 PROCA EQU PROPROC1 02392000 PRORESPX EQU PROPROC1 02393000 PRODFASY EQU PROPROC1 02394000 PROXPOPT EQU PROPROC1 02395000 PROTRUNC EQU PROPROC1 02396000 PROASYIP EQU PROPROC1 02397000 DEVRSV03 EQU ISTDEVCH+5 02398000 DEVPHYSA EQU ISTDEVCH+4 02399000 DEVCSLPN EQU DEVCHAR3 02400000 DEVCSTCL EQU DEVCHAR3 02401000 DEVCCHEK EQU DEVCHAR3 02402000 DEVCATTN EQU DEVCHAR3 02403000 DEVCSWL EQU DEVFCCTL 02404000 DEVCRVB EQU DEVFCCTL 02405000 DEVCSSL EQU DEVFCCTL 02406000 DEVCBSC EQU DEVFCCTL 02407000 DEVMCODE EQU ISTDEVCH+2 02408000 DEVCHAR2 EQU DEVTCODE 02409000 DEVRSV01 EQU DEVCHAR 02410000 DEVCCTL EQU DEVCHAR 02411000 DEVNNSPT EQU DEVCHAR 02412000 DEVSPS EQU DEVCHAR 02413000 DEVSUBND EQU DEVCHAR 02414000 DEVCONVR EQU DEVCHAR 02415000 DEVOTPUT EQU DEVCHAR 02416000 DEVINPUT EQU DEVCHAR 02417000 PABRPHA EQU PABRPHFG+1 02418000 PABNODQ EQU PABFLAGS 02419000 PABINHBT EQU PABFLAGS 02420000 PABERLOK EQU PABERRLK 02421000 PABSSN EQU PABFLAGS 02422000 PABDYNAM EQU PABFLAGS 02423000 PABNORPR EQU PABFLAGS 02424000 PABPRIOR EQU PABFLAGS 02425000 PABAPYP EQU PABFLAGS 02426000 PABDVTA EQU ISTPAB+9 02427000 PABOFFST EQU ISTPAB+8 02428000 PABCHNGP EQU PABCHAIN+1 02429000 PABRSV02 EQU PABCHAIN 02430000 PABRESET EQU PABCHAIN 02431000 PABUNCON EQU PABCHAIN 02432000 PABCDP EQU PABCHAIN 02433000 PABRESCH EQU PABCHAIN 02434000 PABCHNG EQU PABCHAIN 02435000 PABWEQP EQU PABWEQA+1 02436000 PABRSV01 EQU PABWEQA 02437000 PABWEQG EQU PABWEQA 02438000 LOKXCL EQU @NM00004 02439000 LOKPRY EQU @NM00004 02440000 @NM00005 EQU @NM00004 02441000 @NM00003 EQU LOKCHNG 02442000 LOKCT EQU ISTLOK 02443000 EPTDVTA EQU EPTDVT+1 02444000 EPTRSV14 EQU EPTFLAG1 02445000 EPTRSV13 EQU EPTFLAG1 02446000 EPTRSV12 EQU EPTFLAG1 02447000 EPTRSV11 EQU EPTFLAG1 02448000 EPTRSV10 EQU EPTFLAG1 02449000 EPTRSV09 EQU EPTFLAG1 02450000 EPTRSV08 EQU EPTFLAG1 02451000 EPTHLEN EQU EPTHDR+10 02452000 EPTHFGB EQU EPTHDR+9 02453000 EPTRSV07 EQU EPTHFGA 02454000 EPTRSV06 EQU EPTHFGA 02455000 EPTRSV05 EQU EPTHFGA 02456000 EPTRSV04 EQU EPTHFGA 02457000 EPTRSV03 EQU EPTHFGA 02458000 EPTRSV02 EQU EPTHFGA 02459000 EPTRSVO1 EQU EPTHFGA 02460000 EPTHFGA1 EQU EPTHFGA 02461000 EPTHUCNT EQU EPTHDR+6 02462000 EPTHECNT EQU EPTHDR+4 02463000 EPTHFWDA EQU EPTHFORM+1 02464000 EPTHFW1B EQU EPTHFW1 02465000 EPTHFW1A EQU EPTHFW1 02466000 RPHNEXPO EQU ISTRPH+104 02467000 RPHSAV16 EQU RPHWORK+60 02468000 RPHSAV15 EQU RPHWORK+56 02469000 RPHSAV14 EQU RPHWORK+52 02470000 RPHSAV13 EQU RPHWORK+48 02471000 RPHSAV12 EQU RPHWORK+44 02472000 RPHSAV11 EQU RPHWORK+40 02473000 RPHSAV10 EQU RPHWORK+36 02474000 RPHSAVE9 EQU RPHWORK+32 02475000 RPHSAVE8 EQU RPHWORK+28 02476000 RPHSAVE7 EQU RPHWORK+24 02477000 RPHSAVE6 EQU RPHWORK+20 02478000 RPHSAVE5 EQU RPHWORK+16 02479000 RPHSAVE4 EQU RPHWORK+12 02480000 RPHSAVE3 EQU RPHWORK+8 02481000 RPHSAVE2 EQU RPHWORK+4 02482000 RPHSHALF EQU RPHSAVE1+2 02483000 RPHSBIT8 EQU RPHSBITS 02484000 RPHSBIT7 EQU RPHSBITS 02485000 RPHSBIT6 EQU RPHSBITS 02486000 RPHSBIT5 EQU RPHSBITS 02487000 RPHSBIT4 EQU RPHSBITS 02488000 RPHSBIT3 EQU RPHSBITS 02489000 RPHSBIT2 EQU RPHSBITS 02490000 RPHSBIT1 EQU RPHSBITS 02491000 RPHSBYTE EQU RPHSAVE1 02492000 RPHPABQP EQU RPHPABQA+1 02493000 RPHPABFG EQU RPHPABQA 02494000 RPHCRR EQU ISTRPH+32 02495000 RPHSRP34 EQU RPHSRPRM+2 02496000 RPHSRP12 EQU RPHSRPRM 02497000 RPHWEGT EQU RPHCSPA 02498000 RPHPABOF EQU ISTRPH+20 02499000 RPHRESUM EQU RPHRESMA+1 02500000 RPHRSV01 EQU RPHWPFLG 02501000 RPHPURGE EQU RPHWPFLG 02502000 RPHPT EQU RPHWPFLG 02503000 RPHWT EQU RPHWPFLG 02504000 RPHRSKEY EQU RPHWPFLG 02505000 RPHTIK EQU RPHTSKID+3 02506000 @NM00008 EQU RPHTSKID 02507000 RPHRPHAP EQU RPHRPHA+1 02508000 @NM00007 EQU RPHRPHA 02509000 RPHGATE EQU RPHRPHA 02510000 @NM00006 EQU RPHFLGB 02511000 RPHRLCRA EQU RPHFLGB 02512000 RPHNRSAV EQU RPHFLGB 02513000 RPHPGCMP EQU RPHFLGB 02514000 RPHFBAPS EQU RPHFLGB 02515000 RPHBSSP EQU RPHFLGB 02516000 RPHLOCK EQU RPHFLGB 02517000 RPHFNFLG EQU RPHFSTLC 02518000 RPHMLTCP EQU RPHFLAGS 02519000 RPHSMCLR EQU RPHFLAGS 02520000 RPHSMTYP EQU RPHFLAGS 02521000 RPHSMQ EQU RPHFLAGS 02522000 RPHAUTEX EQU RPHAPTYP 02523000 RPHSPGIN EQU RPHFLAGS 02524000 RPHOGIND EQU RPHFLAGS 02525000 RPHLNGTH EQU ISTRPH+1 02526000 RPHTYPE EQU ISTRPH 02527000 CVTLEVL EQU CVTRELNO+2 02528000 CVTNUMB EQU CVTRELNO 02529000 CVTMDL EQU CVTFIX+250 02530000 @NM00002 EQU CVTFIX+248 02531000 @NM00001 EQU CVTFIX 02532000 CVTRV482 EQU CVTXTNT2+128 02533000 CVTRV481 EQU CVTXTNT2+124 02534000 CVTRV480 EQU CVTXTNT2+120 02535000 CVTRV479 EQU CVTXTNT2+118 02536000 CVTRV478 EQU CVTXTNT2+117 02537000 CVTRV477 EQU CVTXTNT2+116 02538000 CVTRV476 EQU CVTXTNT2+115 02539000 CVTRV475 EQU CVTXTNT2+114 02540000 CVTRV474 EQU CVTRV466 02541000 CVTRV473 EQU CVTRV466 02542000 CVTRV472 EQU CVTRV466 02543000 CVTRV471 EQU CVTRV466 02544000 CVTRV470 EQU CVTRV466 02545000 CVTRV469 EQU CVTRV466 02546000 CVTRV468 EQU CVTRV466 02547000 CVTRV467 EQU CVTRV466 02548000 CVTRV465 EQU CVTRV457 02549000 CVTRV464 EQU CVTRV457 02550000 CVTRV463 EQU CVTRV457 02551000 CVTRV462 EQU CVTRV457 02552000 CVTRV461 EQU CVTRV457 02553000 CVTRV460 EQU CVTRV457 02554000 CVTRV459 EQU CVTRV457 02555000 CVTRV458 EQU CVTRV457 02556000 CVTRV456 EQU CVTXTNT2+108 02557000 CVTRV455 EQU CVTXTNT2+104 02558000 CVTRV454 EQU CVTXTNT2+100 02559000 CVTRV453 EQU CVTXTNT2+96 02560000 CVTRV452 EQU CVTXTNT2+94 02561000 CVTRV451 EQU CVTXTNT2+92 02562000 CVTRV450 EQU CVTXTNT2+90 02563000 CVTRV449 EQU CVTXTNT2+88 02564000 CVTRV448 EQU CVTXTNT2+87 02565000 CVTRV447 EQU CVTXTNT2+86 02566000 CVTRV446 EQU CVTRV438 02567000 CVTRV445 EQU CVTRV438 02568000 CVTRV444 EQU CVTRV438 02569000 CVTRV443 EQU CVTRV438 02570000 CVTRV442 EQU CVTRV438 02571000 CVTRV441 EQU CVTRV438 02572000 CVTRV440 EQU CVTRV438 02573000 CVTRV439 EQU CVTRV438 02574000 CVTRV437 EQU CVTRV429 02575000 CVTRV436 EQU CVTRV429 02576000 CVTRV435 EQU CVTRV429 02577000 CVTRV434 EQU CVTRV429 02578000 CVTRV433 EQU CVTRV429 02579000 CVTRV432 EQU CVTRV429 02580000 CVTRV431 EQU CVTRV429 02581000 CVTRV430 EQU CVTRV429 02582000 CVTRV428 EQU CVTXTNT2+80 02583000 CVTRV427 EQU CVTXTNT2+76 02584000 CVTRV426 EQU CVTXTNT2+72 02585000 CVTRV425 EQU CVTXTNT2+68 02586000 CVTATACT EQU CVTATCVT 02587000 CVTRV423 EQU CVTXTNT2+62 02588000 CVTRV422 EQU CVTXTNT2+60 02589000 CVTRV421 EQU CVTXTNT2+58 02590000 CVTRV420 EQU CVTXTNT2+56 02591000 CVTRV419 EQU CVTXTNT2+55 02592000 CVTRV418 EQU CVTXTNT2+54 02593000 CVTRV417 EQU CVTRV409 02594000 CVTRV416 EQU CVTRV409 02595000 CVTRV415 EQU CVTRV409 02596000 CVTRV414 EQU CVTRV409 02597000 CVTRV413 EQU CVTRV409 02598000 CVTRV412 EQU CVTRV409 02599000 CVTRV411 EQU CVTRV409 02600000 CVTRV410 EQU CVTRV409 02601000 CVTRV408 EQU CVTRV400 02602000 CVTRV407 EQU CVTRV400 02603000 CVTRV406 EQU CVTRV400 02604000 CVTRV405 EQU CVTRV400 02605000 CVTRV404 EQU CVTRV400 02606000 CVTRV403 EQU CVTRV400 02607000 CVTRV402 EQU CVTRV400 02608000 CVTRV401 EQU CVTRV400 02609000 CVTICB EQU CVTXTNT2+48 02610000 CVTSKTA EQU CVTXTNT2+44 02611000 CVTSHSB EQU CVTSHS 02612000 CVTRSV98 EQU CVTXTNT2+36 02613000 CVTRSV97 EQU CVTXTNT2+34 02614000 CVTRSV96 EQU CVTXTNT2+32 02615000 CVTOLTEP EQU CVTXTNT2+28 02616000 CVTQIDA EQU CVTQID+1 02617000 CVTRSV95 EQU CVTQID 02618000 CVTRSV94 EQU CVTXTNT2+20 02619000 CVTRSV93 EQU CVTXTNT2+16 02620000 CVTRSV92 EQU CVTXTNT2+12 02621000 CVTDEBVR EQU CVTXTNT2+8 02622000 CVTRSV91 EQU CVTXTNT2+6 02623000 CVTRSV9H EQU CVTFLGBT 02624000 CVTRSV9G EQU CVTFLGBT 02625000 CVTRSV9F EQU CVTFLGBT 02626000 CVTRSV9E EQU CVTFLGBT 02627000 CVTRSV9D EQU CVTFLGBT 02628000 CVTRSV9C EQU CVTFLGBT 02629000 CVTVME EQU CVTFLGBT 02630000 CVTNPE EQU CVTFLGBT 02631000 CVTNUCLS EQU CVTXTNT2+4 02632000 CVTDSSVA EQU CVTDSSV+1 02633000 CVTRSV89 EQU CVTDSSV 02634000 CVTRSV88 EQU CVTXTNT1+8 02635000 CVTRSV87 EQU CVTXTNT1+4 02636000 CVTFACHN EQU CVTXTNT1 02637000 CVTRV488 EQU CVTMAP+412 02638000 CVTRV487 EQU CVTMAP+408 02639000 CVTRV486 EQU CVTMAP+404 02640000 CVTRV485 EQU CVTMAP+400 02641000 CVTACTAP EQU CVTMAP+396 02642000 CVTAUTH EQU CVTMAP+392 02643000 CVTATMCA EQU CVTATMCT+1 02644000 CVTATMST EQU CVTATMCT 02645000 CVTRSV61 EQU CVTMAP+384 02646000 CVTVOLT1 EQU CVTVOLM1+1 02647000 CVTVOLI1 EQU CVTVOLF1 02648000 CVTSTOA EQU CVTMAP+376 02649000 CVTRSV58 EQU CVTMAP+374 02650000 CVTRSV57 EQU CVTMAP+372 02651000 CVTDDCE EQU CVTMAP+368 02652000 CVTPNWFR EQU CVTMAP+364 02653000 CVTSMF EQU CVTMAP+360 02654000 CVTSULK EQU CVTMAP+358 02655000 CVTSLKO EQU CVTSYSK 02656000 CVTSLKP EQU CVTSYSK 02657000 CVTSLKQ EQU CVTSYSK 02658000 CVTSLKR EQU CVTSYSK 02659000 CVTRSV56 EQU CVTSYSK 02660000 CVTRSV55 EQU CVTSYSK 02661000 CVTRSV54 EQU CVTSYSK 02662000 CVTRSV53 EQU CVTSYSK 02663000 CVTRSV52 EQU CVTA1F1 02664000 CVTRSV51 EQU CVTA1F1 02665000 CVTRSV50 EQU CVTA1F1 02666000 CVTRSV49 EQU CVTA1F1 02667000 CVTRSV48 EQU CVTA1F1 02668000 CVTRSV47 EQU CVTA1F1 02669000 CVTSRSW EQU CVTA1F1 02670000 CVTPFSW EQU CVTA1F1 02671000 CVTPCVT EQU CVTMAP+352 02672000 CVTRSV46 EQU CVTMAP+344 02673000 CVTRSV45 EQU CVTMAP+340 02674000 CVTRSV44 EQU CVTMAP+338 02675000 CVTRSV43 EQU CVTMAP+336 02676000 CVTHJESA EQU CVTHJES+1 02677000 CVTRSV42 EQU CVTHJES 02678000 CVTEXT2A EQU CVTEXT2+1 02679000 CVTRSV41 EQU CVTEXT2 02680000 CVTAPFA EQU CVTAPF+1 02681000 CVTRSV40 EQU CVTAPF 02682000 CVTRV518 EQU CVTINTLA 02683000 CVTRV517 EQU CVTERPV 02684000 CVTEORM EQU CVTMAP+312 02685000 CVTMCHPR EQU CVTMAP+308 02686000 CVTTZ EQU CVTMAP+304 02687000 CVTJEPS EQU CVTMAP+300 02688000 CVTJESCT EQU CVTMAP+296 02689000 CVTMODE EQU CVTMAP+292 02690000 CVTPTRV EQU CVTMAP+288 02691000 CVTREAL EQU CVTMAP+284 02692000 CVTRSV39 EQU CVTMAP+280 02693000 CVTRSV38 EQU CVTMAP+276 02694000 CVTDMSRA EQU CVTDMSR+1 02695000 CVTRSV37 EQU CVTDMSR 02696000 CVTQMSGA EQU CVTQMSG+1 02697000 CVTRSV36 EQU CVTQMSG 02698000 CVTAMFF EQU CVTMAP+264 02699000 CVTPURGA EQU CVTPURG+1 02700000 CVTRSV35 EQU CVTPURG 02701000 CVTCBSP EQU CVTMAP+256 02702000 CVTATERA EQU CVTATER+1 02703000 CVTSYST EQU CVTATER 02704000 CVTVOLT2 EQU CVTTAT 02705000 CVTVOLI2 EQU CVTVOLF2 02706000 CVTAQAVB EQU CVTAQAVT+1 02707000 CVTRSV34 EQU CVTTCMFG 02708000 CVTRSV33 EQU CVTTCMFG 02709000 CVTRSV32 EQU CVTTCMFG 02710000 CVTRSV31 EQU CVTTCMFG 02711000 CVTRSV30 EQU CVTTCMFG 02712000 CVTRSV29 EQU CVTTCMFG 02713000 CVTRSV28 EQU CVTTCMFG 02714000 CVTTCRDY EQU CVTTCMFG 02715000 CVTGTFA EQU CVTGTF+1 02716000 CVTRSV27 EQU CVTGTFST 02717000 CVTRNIO EQU CVTGTFST 02718000 CVTUSR EQU CVTGTFST 02719000 CVTRV318 EQU CVTFORM 02720000 CVTRV317 EQU CVTTMODE 02721000 CVTRV316 EQU CVTSTATE 02722000 CVTRV315 EQU CVTGTFS 02723000 CVTGTFAV EQU CVTGTFS 02724000 CVT0SCR1 EQU CVTMAP+232 02725000 CVTRV515 EQU CVTMAP+228 02726000 CVTRMS EQU CVTMAP+224 02727000 CVTPATCH EQU CVTMAP+220 02728000 CVTTSCE EQU CVTMAP+216 02729000 CVTLNKSC EQU CVTMAP+214 02730000 CVTQABST EQU CVTMAP+212 02731000 CVTMDLDS EQU CVTMAP+208 02732000 CVTUSER EQU CVTMAP+204 02733000 CVTABEND EQU CVTMAP+200 02734000 CVTSMCA EQU CVTMAP+196 02735000 CVTRSV18 EQU CVTMAP+192 02736000 CVTQLPAQ EQU CVTMAP+188 02737000 CVTQCDSR EQU CVTMAP+184 02738000 CVTRSV17 EQU CVTOPTB 02739000 CVTRSV16 EQU CVTOPTB 02740000 CVTFP EQU CVTOPTB 02741000 CVTAPTHR EQU CVTOPTB 02742000 CVTNLOG EQU CVTOPTB 02743000 CVTTOD EQU CVTOPTB 02744000 CVTCTIMS EQU CVTOPTB 02745000 CVTPROT EQU CVTOPTB 02746000 CVTXPFP EQU CVTOPTA 02747000 CVTASCII EQU CVTOPTA 02748000 CVTRSV13 EQU CVTOPTA 02749000 CVTRSV12 EQU CVTOPTA 02750000 CVTNIP EQU CVTOPTA 02751000 CVTDDR EQU CVTOPTA 02752000 CVTAPR EQU CVTOPTA 02753000 CVTCCH EQU CVTOPTA 02754000 CVTSNCTR EQU CVTMAP+180 02755000 CVTQMWR EQU CVTMAP+176 02756000 CVTQOCR EQU CVTMAP+172 02757000 CVT1EF00 EQU CVTMAP+168 02758000 CVTMZ00 EQU CVTMAP+164 02759000 CVTHEAD EQU CVTMAP+160 02760000 CVTRSV11 EQU CVTMAP+156 02761000 CVT0PT01 EQU CVTMAP+152 02762000 CVTMSER EQU CVTMAP+148 02763000 CVTRV516 EQU CVTIERLC 02764000 CVTILCH EQU CVTMAP+140 02765000 CVT0DS EQU CVTMAP+136 02766000 CVTFBOSV EQU CVTMAP+132 02767000 CVTNUCB EQU CVTMAP+128 02768000 CVTIXAVL EQU CVTMAP+124 02769000 CVTIOQET EQU CVTMAP+120 02770000 CVTDCBA EQU CVTMAP+117 02771000 CVTMVS2 EQU CVTDCB 02772000 CVT6DAT EQU CVTDCB 02773000 CVT4MPS EQU CVTDCB 02774000 CVTRSV09 EQU CVTDCB 02775000 CVT4MS1 EQU CVTDCB 02776000 CVT2SPS EQU CVTDCB 02777000 CVT1SSS EQU CVTDCB 02778000 CVTRSV08 EQU CVTDCB 02779000 CVTSTB EQU CVTMAP+112 02780000 CVTQTD00 EQU CVTMAP+108 02781000 CVTQTE00 EQU CVTMAP+104 02782000 CVTCUCB EQU CVTMAP+100 02783000 CVTSJQ EQU CVTMAP+96 02784000 CVTPBLDL EQU CVTMAP+92 02785000 CVTTPC EQU CVTMAP+88 02786000 CVTSVDCB EQU CVTMAP+84 02787000 CVTBRET EQU CVTMAP+82 02788000 CVTEXIT EQU CVTMAP+80 02789000 CVT0FN00 EQU CVTMAP+76 02790000 CVTDARA EQU CVTDAR+1 02791000 CVTRSV07 EQU CVTFLGS1 02792000 CVTRSV06 EQU CVTFLGS1 02793000 CVTRSV05 EQU CVTFLGS1 02794000 CVTRSV04 EQU CVTFLGS1 02795000 CVTRSV03 EQU CVTFLGS1 02796000 CVTRSV02 EQU CVTFLGS1 02797000 CVTRSV01 EQU CVTFLGS1 02798000 CVTDMPLK EQU CVTFLGS1 02799000 CVTXITP EQU CVTMAP+68 02800000 CVTZDTAB EQU CVTMAP+64 02801000 CVTMSLT EQU CVTMAP+60 02802000 CVTDATE EQU CVTMAP+56 02803000 CVTBTERM EQU CVTMAP+52 02804000 CVTSYSAD EQU CVTMAP+48 02805000 CVTXTLER EQU CVTMAP+44 02806000 CVTILK2 EQU CVTMAP+40 02807000 CVTILK1 EQU CVTMAP+36 02808000 CVTPRLTV EQU CVTMAP+32 02809000 CVTPCNVT EQU CVTMAP+28 02810000 CVT0VL00 EQU CVTMAP+24 02811000 CVTXAPG EQU CVTMAP+20 02812000 CVTBUF EQU CVTMAP+16 02813000 CVTJOB EQU CVTMAP+12 02814000 CVTLINK EQU CVTMAP+8 02815000 CVT0EF00 EQU CVTMAP+4 02816000 CVTTCBP EQU CVTMAP 02817000 CVT EQU CVTMAP 02818000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02819000 @ENDDATA EQU * 02820000 END ISTESC02,(C'PLS0457',0603,75128) 02821000