TITLE 'ISTAPC33-TPUNLOCK ROUTINE *00001000 ' 00002000 ISTAPC33 CSECT 00003000 USING ISTAPC33,GPR12 00004000 * GPR12=GPR15; /*LOAD BASE REGISTER @Z40GKTK*/ 00005000 LR GPR12,GPR15 0186 00006000 * SSW14=SSW14 & SWOFF; /*CLEAR HIGH ORDER BIT @ZM32009*/ 00007000 N SSW14,@CF02044 0187 00008000 * OLDREG=LOCKWORD; 0188 00009000 L OLDREG,LOCKWORD(,LOKREG) 0188 00010000 * IF (LEVELREG & CRALKACT)=0 /*IS LEVEL LOKD BY ANY PROC */ 00011000 */*TR01*/ THEN; /* NO, EXIT FROM PROCEDURE */ 00012000 LR @11,LEVELREG 0189 00013000 N @11,CRALKACT(,CRAREG) 0189 00014000 LTR @11,@11 0189 00015000 BZ @RT00189 0189 00016000 * ELSE 0191 00017000 *ELS01: DO; 0191 00018000 ELS01 DS 0H 0192 00019000 * IF LOKPTRWD=GPR2 /*DOES CALLER OWN LOCK */ 00020000 * THEN; 0192 00021000 C GPR2,LOKPTRWD(,CRALXREG) 0192 00022000 BE @RT00192 0192 00023000 * ELSE /* IF HERE, LOCK NOT OWNED */ 0194 00024000 *ELS02: DO; 0194 00025000 ELS02 DS 0H 0195 00026000 *ELS03: 0195 00027000 * RETURN; /* EXIT FROM PROCEDURE */ 00028000 @EL00001 DS 0H 0195 00029000 @EF00001 DS 0H 0195 00030000 @ER00001 BR @14 0195 00031000 * END ELS02; 0196 00032000 *RETRY: IF (OLDREG & LOKCT255)=0 /*IS COUNT ALREADY 0 @ZM32009*/ 00033000 * THEN NEWREG=OLDREG; /*YES-BYPASS DECREMENT @ZM33590*/ 00034000 @RT00192 DS 0H 0197 00035000 RETRY LR @11,OLDREG 0197 00036000 N @11,@CF01082 0197 00037000 LTR @11,@11 0197 00038000 BNZ @RF00197 0197 00039000 LR NEWREG,OLDREG 0198 00040000 * ELSE 0199 00041000 * NEWREG=OLDREG-LOKCT1; /*REDUCE NUMB OWNERS BY 1 */ 00042000 B @RC00197 0199 00043000 @RF00197 LR NEWREG,OLDREG 0199 00044000 SL NEWREG,@CF01080 0199 00045000 * IF (OLDREG & LOKXCL1)^=0 /* IS LOK HELD EXCLUSIVE */ 00046000 * THEN /* YES */ 0200 00047000 @RC00197 LR @11,OLDREG 0200 00048000 N @11,@CF01074 0200 00049000 LTR @11,@11 0200 00050000 BZ @RF00200 0200 00051000 *TR05: DO; /*SHAR CNT GR 255 CAN SET XCL*/ 00052000 TR05 DS 0H 0202 00053000 * IF NEWREGSAVREG14=GPR14; 0212 00081000 ST GPR14,SAVREG14(,SAVREG1) 0212 00082000 * CRRREG=ADDR(RPHCRR->CRAPSS); 0213 00083000 L CRRREG,RPHCRR(,RPHREG) 0213 00084000 LA CRRREG,CRAPSS(,CRRREG) 0213 00085000 * ZSAVE=LEVELREG;/*SAVE R0 IN CALLERS PSSCRR @Z40GKTK*/ 00086000 ST LEVELREG,ZSAVE(,CRRREG) 0214 00087000 * PTRLOKRG=GPR3; 0215 00088000 LR PTRLOKRG,GPR3 0215 00089000 *DOW01: DO WHILE(OLDREG^=0); /*IF QUED RQSTS DO LOOP */ 00090000 DOW01 B @DE00216 0216 00091000 @DL00216 DS 0H 0217 00092000 * POSTREG=OLDREG; /*GET RPH TO TPPOST */ 00093000 LR POSTREG,OLDREG 0217 00094000 * RFY ISTRPH BASED(OLDREG); 0218 00095000 * OLDREG=RPHRPHA & LOKCHN1; /*GET NEXT RPH ON QUE */ 00096000 L @11,RPHRPHA(,OLDREG) 0219 00097000 N @11,@CF01078 0219 00098000 LR OLDREG,@11 0219 00099000 * RFY ISTRPH BASED(POSTREG); 0220 00100000 * IF ((RPHCRR->CRALKACT)& LEVELREG)=0 0221 00101000 */*TR08*/ THEN; 0221 00102000 L @11,RPHCRR(,POSTREG) 0221 00103000 L @11,CRALKACT(,@11) 0221 00104000 NR @11,LEVELREG 0221 00105000 LTR @11,@11 0221 00106000 BZ @RT00221 0221 00107000 * ELSE 0223 00108000 *ELS08: DO; 0223 00109000 ELS08 DS 0H 0224 00110000 * CRAREG=SAVREG1->RPHCRR; 0224 00111000 L CRAREG,RPHCRR(,SAVREG1) 0224 00112000 * OLDLKPTR=(PTRLOKRG & '7FFFFFFF'X)-CRAREG+RPHCRR; 00113000 LR OLDLKPTR,PTRLOKRG 0225 00114000 N OLDLKPTR,@CF02044 0225 00115000 SLR OLDLKPTR,CRAREG 0225 00116000 AL OLDLKPTR,RPHCRR(,POSTREG) 0225 00117000 * OLDLKPTR->LOKPTRWD = OLDLKPTR->LOKPTRWD +1; 0226 00118000 LA @11,1 0226 00119000 AL @11,LOKPTRWD(,OLDLKPTR) 0226 00120000 ST @11,LOKPTRWD(,OLDLKPTR) 0226 00121000 * END ELS08; 0227 00122000 * RETCODE=8; /*IND QUED RQST NOW REJECTED */ 00123000 @RT00221 MVC RETCODE(4,POSTREG),@CF00058 0228 00124000 * /********************************************/ 00125000 * /* TPPOST DESTROYS REGS 14 THRU 8 INCLUSIVE */ 00126000 * /********************************************/ 00127000 *CKPURG: IF RPHPURGE=ON & RPHPGCMP=OFF /*PURGED BUT NOT COMP.@Z40GKTK*/ 00128000 * THEN DO; /*YES-SET RPHRLCRA TO @Z40GKTK*/ 00129000 CKPURG TM RPHPURGE(POSTREG),B'00000010' 0229 00130000 BNO @RF00229 0229 00131000 TM RPHPGCMP(POSTREG),B'00010000' 0229 00132000 BNZ @RF00229 0229 00133000 * RFY (COMPREG,SWAPREG) RSTD; /*RELEASE CRA LATER @Z40GKTK*/ 00134000 * COMPREG=ISTRPH(1:4) & 'FFFFFFEF'X; /*@Z40GKTK*/ 00135000 ICM @11,15,ISTRPH(POSTREG) 0232 00136000 LR COMPREG,@11 0232 00137000 N COMPREG,@CF02081 0232 00138000 * SWAPREG=ISTRPH(1:4) | '00000004'X; /*@Z40GKTK*/ 00139000 O @11,@CF02005 0233 00140000 LR SWAPREG,@11 0233 00141000 * CS(COMPREG,SWAPREG,ISTRPH(1:4)); /*@Z40GKTK*/ 00142000 CS COMPREG,@07,ISTRPH(POSTREG) 0234 00143000 * BC(FAIL,CKPURG); /*@Z40GKTK*/ 00144000 BC 7,CKPURG 0235 00145000 * RFY (COMPREG,SWAPREG) UNRSTD; /*@Z40GKTK*/ 00146000 * END; /*@Z40GKTK*/ 00147000 * ELSE /*@Z40GKTK*/ 00148000 * 0238 00149000 */*TPPOST (POSTREG) ENA NSTR*/ 0238 00150000 * DO; 0238 00151000 * 0238 00152000 B @RC00229 0238 00153000 @RF00229 DS 0H 0239 00154000 * DCL GPR00F FIXED(31) REG(00); 0239 00155000 * DCL GPR00P PTR(31) REG(00); 0240 00156000 * DCL GPR01F FIXED(31) REG(01); 0241 00157000 * DCL GPR01P PTR(31) REG(01); 0242 00158000 * DCL GPR02F FIXED(31) REG(02); 0243 00159000 * DCL GPR02P PTR(31) REG(02); 0244 00160000 * DCL GPR03F FIXED(31) REG(03); 0245 00161000 * DCL GPR03P PTR(31) REG(03); 0246 00162000 * DCL GPR04F FIXED(31) REG(04); 0247 00163000 * DCL GPR04P PTR(31) REG(04); 0248 00164000 * DCL GPR05F FIXED(31) REG(05); 0249 00165000 * DCL GPR05P PTR(31) REG(05); 0250 00166000 * DCL GPR06F FIXED(31) REG(06); 0251 00167000 * DCL GPR06P PTR(31) REG(06); 0252 00168000 * DCL GPR14F FIXED(31) REG(14); 0253 00169000 * DCL GPR14P PTR(31) REG(14); 0254 00170000 * DCL GPR15F FIXED(31) REG(15); 0255 00171000 * DCL GPR15P PTR(31) REG(15); 0256 00172000 * /*DECLARE AND RESTRICT REGS*/ 00173000 * RESPECIFY (GPR00F,GPR01F,GPR04F,GPR05F, 0257 00174000 * GPR06F,GPR14F,GPR15F) RSTD; 0257 00175000 * /*0,1,4,5,6,14, AND 15 */ 00176000 * 0258 00177000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTRPH,ISTAVT,ISTATCVT) */ 0258 00178000 */* PROCESS ANCHOR BLOCK * 00179000 */* INITIAL LEVEL 001 01/16/75 */ 00180000 *DCL 1 ISTPAB BDY(DWORD) BASED, 0258 00181000 * 2 PABWQCHN CHAR(8) BDY(DWORD), /* CPS SWAP FIELD FOR NEQ&CHN * 00182000 * 3 PABWEQA PTR(31) BDY(WORD), /* WORK ELEMENT QUEUE ADDRESS * 00183000 * 4 PABWEQG BIT(1), /* GATING BIT * 00184000 * 4 PABRSV01 BIT(7), /* RESERVED * 00185000 * 4 PABWEQP PTR(24), /* WKEL PTR * 00186000 * 3 PABCHAIN PTR(31) BDY(WORD), /* APS CHAIN * 00187000 * 4 PABCHNG BIT(1), /* GATING BIT * 00188000 * 4 PABRESCH BIT(1), /* RESCHEDULE PAB AT 0258 00189000 * TPEXIT * 00190000 * 4 PABCDP BIT(1), /* CLOSE DST/CHANGE IN PROGRESS* 00191000 * 4 PABUNCON BIT(1), /* UNCONDITIONALLY RESCHEDULE 00192000 * PAB AT TPEXIT * 00193000 * 4 PABRESET BIT(1), /* RESET ISSUED ON THIS PAB * 00194000 * 4 PABRUNNG BIT(1), /* PAB RUNNING * 00195000 * 4 PABRSV02 BIT(2), /* RESERVED * 00196000 * 4 PABCHNGP PTR(24), /* PSS CHAIN PTR * 00197000 * 2 PABOFFST PTR(8), /* OFFSET FROM CONTROL BLOCK * 00198000 * 2 PABDVTA PTR(24), /* DVT ADDRESS * 00199000 * 2 PABRPHFG PTR(31), /* SCHED FLAGS AND RPH * 00200000 * 3 PABFLAGS BIT(8), /* SCHEDULING FLAGS * 00201000 * 4 PABAPYP BIT(1), /* APPLICATION IS A USER EXIT * 00202000 * 4 PABPRIOR BIT(1), /* IMMEDIATE PRIORITY * 00203000 * 4 PABNORPR BIT(1), /* NORMAL PRIORITY - * 00204000 * /* RESCHEDUALABLE * 00205000 * 4 PABDYNAM BIT(1), /* DYNAMIC * 00206000 * 4 PABSSN BIT(1), /* SYSTEM SERVICES * 00207000 * 4 PABERLCK BIT(1), /* PAB ERROR LOCK FLAG * 00208000 * 5 PABERRLK BIT(1), /* ERROR LOCK * 00209000 * 6 PABERLOK BIT(1), /* ERROR LOCK * 00210000 */* ABNORMAL TO ALLOW VARY COMPARE AND SWAP * 00211000 * 4 PABINHBT BIT(1) ABNL,/* 1=INHIBIT TRAFFIC,0=NO * 00212000 * 4 PABNODQ BIT(1), /* DO NOT DEQ WORK ELEMENT * 00213000 * 3 PABRPHA PTR(24); /* RPL HEADER ADDRESS * 00214000 *DCL PABWEQG0 BIT(32) CONSTANT('7FFFFFFF'X), /* TURN PABWEQG OFF * 00215000 * PABWEQG1 BIT(32) CONSTANT('80000000'X), /* TURN PABWEQG ON * 00216000 * PABCHNG0 BIT(32) CONSTANT('7FFFFFFF'X), /* TURN PABCHNG OFF * 00217000 * PABCHNG1 BIT(32) CONSTANT('80000000'X), /* TURN PABCHNG ON * 00218000 * PABRESC0 BIT(32) CONSTANT('BFFFFFFF'X), /* TURN PABRESCH OFF * 00219000 * PABRESC1 BIT(32) CONSTANT('40000000'X), /* TURN PABRESCH ON * 00220000 * PABCDP0 BIT(32) CONSTANT ('DFFFFFFF'X), /* TURN PABCDP OFF * 00221000 * PABCDP1 BIT(32) CONSTANT ('20000000'X), /* TURN PABCDP ON * 00222000 * PABERLK0 BIT(32) CONSTANT('FBFFFFFF'X), /* TURN PABERRLK ON * 00223000 * PABERLK1 BIT(32) CONSTANT('04000000'X), /* TURN PABERRLK OFF * 00224000 * PABUNCO0 BIT(32) CONSTANT('EFFFFFFF'X), /* TURN PABUNCON OFF * 00225000 * PABUNCO1 BIT(32) CONSTANT('10000000'X), /* TURN PABUNCON ON * 00226000 * PABPRIR0 BIT(32) CONSTANT('BFFFFFFF'X), /* TURN PAB PRIOR OFF * 00227000 * PABPRIR1 BIT(32) CONSTANT('40000000'X), /* TURN PAB PRIOR ON * 00228000 * PABRST0 BIT(32) CONSTANT('F7FFFFFF'X), /* TURN PABRESET OFF * 00229000 * PABRST1 BIT(32) CONSTANT('08000000'X); /* TURN PABRESET ON * 00230000 * /* DYNAMIC PAB 1K633 */ 0260 00231000 * /* 1K0997 JAN 20, 1973 MB */ 0260 00232000 * /* 1K1142 MAR 03, 1973 MB */ 0260 00233000 * DCL 1 ISTDYPAB BDY(DWORD) BASED, /* LEVEL 1 DECLARE 1K633 */ 0260 00234000 * 2 DYPTYPE CHAR(1), /* CONTROL BLOCK TYPE CODE 1K633 */ 0260 00235000 * 2 DYPLNGTH PTR(8), /* CONTROL BLOCK LENGTH (BYTES) 1K633 */ 00236000 * 2 DYPFLGS CHAR(2), /* FLAGS 1K633 */ 0260 00237000 * 2 DYPCHAIN PTR(31), /* CHAIN POINTER 1K633 */ 0260 00238000 * 2 DYPTSKID PTR(31), /* TASKID OR PTR TO PSS TABLES 1K633 */ 00239000 * 2 DYPRSV01 PTR(31), /* RESERVED TO PRESERVE ALIGNMENT 0260 00240000 * 1K0997 */ 00241000 * 2 DYPPAB CHAR(LENGTH(ISTPAB)) BDY(DWORD); /* LENGTH OF 1K0997 00242000 * PAB */ 00243000 *DCL DYTYP BIT(8) CONSTANT ('11'X); /* TYPE 1K1142 */ 00244000 */* VTAM ADDRESS VECTOR TABLE */ 0262 00245000 */* REVISIONS 002 03/06/75 */ 00246000 *DCL 1 ISTAVT BDY(WORD) BASED, 0262 00247000 * 2 ISTACVT PTR(31), /* ADDR OF VTAM CVT */ 00248000 * 2 ISTAS49 PTR(31), /* ADDR OF SVC 49 CODE */ 00249000 * 3 ISTAHIP BIT(1), /* HALT IN PROGRESS */ 00250000 * 2 ISTAS53 PTR(31), /* ADDR OF SVC 53 CODE */ 00251000 * 2 ISTAPSTA PTR(31), /* ADDR OF APS TABLE */ 00252000 * 2 AVTASID FIXED(15), /* VTAM ASID */ 00253000 * 2 ISTVTTIK FIXED(15), /* VTAMRP TASK ID */ 00254000 * 2 ISTAPSEX PTR(31), /* ADDR OF APS EXIT */ 00255000 * 2 ISTPHNM CHAR(5), /* PHASE NAME OF TRANSIENT */ 00256000 * 2 ISTX1 CHAR(1), /* TEST FIELD */ 00257000 * 2 ISTARID PTR(15), /* ADDR OF RID */ 00258000 * 2 ISTATRT PTR(15), /* ADDR OF VTAM GATES IN RETAB*/ 00259000 * 2 ISTAGTWT PTR(15), /* ADDR OF GATEWAIT ROUTINE */ 00260000 * 2 ISTVTTP PTR(15), /* ADDR OF CODE TO CHECK FOR */ 00261000 * /* PENDING TIMER INTERRUPT */ 00262000 * 2 ISTAVR01 CHAR(2), /* RESERVED */ 00263000 * 2 ISTPDAVP PTR(31); /* VECTOR FOR PDAIDS SMS TRACE*/ 00264000 */* REVISIONS 013 07/16/75 * 00265000 *DCL ATCLCPTR PTR LOCATION(1032); /* POINTER TO ATCVT * 00266000 *DCL 1 ISTATCVT BDY(DWORD) BASED, 0264 00267000 * 2 ATCCOM BDY(WORD), /* SYSTEM INDEPENDENT FIELDS * 00268000 * 3 ATCSTAT CHAR(4), /* VTAM STATUS INDICATORS * 00269000 * 4 ATCSTAT1 CHAR(1), /* VTAM STATUS BYTE 1 * 00270000 * 5 ATCSTART BIT(1), /* VTAM IS STARTING * 00271000 * 5 ATCACTIV BIT(1), /* VTAM IS ACTIVE * 00272000 * 5 ATCSNHLT BIT(1), /* VTAM SESSION HALT * 00273000 * 5 ATCQKHLT BIT(1), /* VTAM QUICK HALT * 00274000 * 5 ATCNETSL BIT(1), /* NETSOL=YES SPECIFIED ON CMD * 00275000 * 5 ATCINHLT BIT(1), /* INTERNAL VTAM HALT QUICK * 00276000 * 5 ATCMDHLT BIT(1), /* VTAM CMD PROC HALTED * 00277000 * 5 * BIT(1), /* RESERVED * 00278000 * 4 ATCSTFLG BIT(8), /* STORAGE MANAGEMENT FLAGS * 00279000 * 5 ATCHSDMF BIT(1), /* SYSTEM SLOW DOWN FLAG * 00280000 * 4 ATCPOFLG BIT(8), /* PROGRAM OPERATOR * 00281000 * /* INTERFACE FLAGS * 00282000 * 5 ATCPOUNS BIT(1), /* APPLICATION AUTHORIZED TO * 00283000 * /* RECEIVE UNSOLICITED MESSAGES* 00284000 * /* 1 = YES * 00285000 * 5 * BIT(7), /* RESERVED * 00286000 * 4 ATCSTAT4 CHAR(1), /* VTAM STATUS BYTE 4 * 00287000 * 5 ATCPRTAT BIT(1), /* 1 = TRACE PRINT ACTIVE, 0264 00288000 * 0 = NOT ACTIVE * 00289000 * 5 ATCTPRT BIT(1), /* WHEN 1, TPRINT IN PROCESS * 00290000 * 5 ATCMTST BIT(1), /* WHEN 1, MODIFY TEST IN 0264 00291000 * PROCESS * 00292000 * 5 ATCNCSD BIT(1), /* NCS QUIESCED DURING HALT * 00293000 * 5 ATCVTTRC BIT(1), /* VTAM TRACE, 1=ACTIVE * 00294000 * 5 ATCRSV04 BIT(3), /* RESERVED * 00295000 * 3 ATCAPI PTR(31), /* ADDR OF API ROUTINE * 00296000 * 3 ATCDCFRR PTR(31), /* POINTER TO FRR OF CONTROL 00297000 * LAYER,INITIALIZED BY OPENDST* 00298000 * 3 ATCRDT PTR(31), /* POINTER TO FIRST RDT * 00299000 * 3 ATCSRT PTR(31), /* POINTER TO SRT DIRECTORY * 00300000 * 3 ATCASCHD PTR(31), /* POINTER TO AP SCHEDULER * 00301000 * 3 ATCECMOD CHAR(4), /* ECB FOR MODIFY COMMAND PROC.* 00302000 * 3 ATCMODQ PTR(31), /* POINTER FOR OUTPUT QUEUE * 00303000 * /* FOR MODIFY COMMAND * 00304000 * 3 ATCECHLT CHAR(4), /* ECB FOR HALT COMMAND * 00305000 * 3 ATCHALTQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00306000 * /* FOR HALT COMMAND * 00307000 * 3 ATCECVRY CHAR(4), /* ECB FOR VARY COMMAND PROC. * 00308000 * 3 ATCVARYQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00309000 * /* FOR VARY COMMAND * 00310000 * 3 ATCECDSP CHAR(4), /* ECB FOR DISPLAY COMMAND * 00311000 * 3 ATCDSPLQ PTR(31), /* POINTER TO OUTPUT QUEUE * 00312000 * /* FOR DISPLAY COMMAND * 00313000 * 3 ATCOCHA PTR(31), /* POINTER TO OCT HEADER * 00314000 * 3 ATCECSES CHAR(4), /* ECB TO HALT SESSION MODE * 00315000 * 3 ATCECVRQ CHAR(4), /* ERP ECB FOR VARY REQ. INFO. * 00316000 * /* REQUEST NOTIFICATION * 00317000 * 3 ATCVPARM PTR(31), /* ADDR OF VARY PARAMETERS * 00318000 * 3 ATCECOPC CHAR(4), /* ECB TOINDICATE OPERATOR * 00319000 * /* CONTROL PROCESSING COMPLETE * 00320000 * 3 ATCECNET CHAR(4), /* ERP ECB FOR NETWORK * 00321000 * /* CONFIGURATION REQUEST * 00322000 * 3 ATCECPRM PTR(31), /* POINTER TO QAB FOR ERP'S * 00323000 * /* ECB PARAMETERS * 00324000 * 3 ATCHLTMS PTR(31), /* POINTER TO HALT COMMAND * 00325000 * /* OR HALT RETURN MESSAGE * 00326000 * 3 ATCFSB PTR(31), /* PTR TO FEEDBACK STATUS * 00327000 * /* BLOCK * 00328000 * 3 ATCFRSCH PTR(31), /* POINTER TO FEEDBACK * 00329000 * /* ROUTINE SCHEDULER * 00330000 * 3 ATCRDTH PTR(31), /* POINTER RDT HEADER * 00331000 * 3 ATCACCTA PTR(31), /* POINTER TO INSTALLATION * 00332000 * /* ACCOUNTING ROUTINE * 00333000 * 3 ATCAUTHA PTR(31), /* POINTER TO INSTALLATION * 00334000 * /* AUTHORISATION ROUTINE * 00335000 * 3 ATCPTCHA PTR(31), /* PTR TO VTAM PATCH AREA * 00336000 * 3 ATCCONFT PTR(31), /* POINTER TO VTAM * 00337000 * /* CONFIGURATION TABLE * 00338000 * 3 ATCFDVT PTR(31), /* PTR TO FIRST DVT FOR O/C * 00339000 * 3 ATCFEPT PTR(31), /* PTR TO FIRST EPT FOR O/C * 00340000 * 3 ATCDVTPT PTR(31), /* ADDR OF LOAD MOD FOR * 00341000 * /* TYPE=VTAM TRACING * 00342000 * 3 ATCBPDA PTR(31), /* PTR TO BUFFER POOL DIRECTORY* 00343000 * 3 ATCADD PTR(31), /* POINTER TO ADD PROCEDURE * 00344000 * 3 ATCREMOV PTR(31), /* POINTER TO REMOVE PROCEDURE * 00345000 * 3 ATCIOTRC PTR(31), /* POINTER TO I/O TRACE * 00346000 * /* PROCEDURE * 00347000 * 4 ATCTHTRC PTR(31), /* ADDR OF TH TRACE ROUTINE * 00348000 * 5 ATCTPBUF PTR(31), /* TPIOS BUFFER TRACE(ISTRARTP)* 00349000 * 3 ATCBFTRC PTR(31), /* PTR TO BUFFER TRACE * 00350000 * /* PROCEDURE * 00351000 * 3 ATCFBRPH PTR(31), /* ADDR OF FEEDBACK PROC RPH * 00352000 * 3 ATCBLDLA PTR(31), /* ADDR OF BLDL ROUTINE * 00353000 * 3 ATCALOAD PTR(31), /* ADDR OF ALOAD ROUTINE * 00354000 * 3 ATCREADA PTR(31), /* ADDR OF SOURCE READ ROUTINE * 00355000 * 3 ATCGTSTR PTR(31), /* ADDR OF GETSTOR ROUTINE * 00356000 * 3 ATCFRSTR PTR(31), /* ADDR OF FREESTOR ROUTINE * 00357000 * 3 ATCSTMA PTR(31), /* ADDR OF SM INITIALIZATION * 00358000 * /* ROUTINE * 00359000 * 3 ATCACDA PTR(31), /* ADDR OF FIRST ACDEB * 00360000 * 3 ATCSMRQ PTR(31), /* ADDR OF REQUEST STORAGE * 00361000 * /* ROUTINE * 00362000 * 3 ATCSMQU PTR(31), /* ADDR OF QUEUE REQUEST RTNE 00363000 * - DOS ONLY * 00364000 * 3 ATCSMRS PTR(31), /* ADDR OF RELEASE STORAGE * 00365000 * /* ROUTINE * 00366000 * 3 ATCSMRC PTR(31), /* ADDR OF RECOVER STORAGE * 00367000 * /* ROUTINE - DOS ONLY * 00368000 * 3 ATCSMBQ PTR(31), /* PTR TO Q'ED REQ. SMS RTN. * 00369000 * 3 ATCFIRA PTR(31), /* ADDR OF FEEDBACK INITIATION * 00370000 * /* RPH * 00371000 * 3 ATCSRTAD PTR(31), /* PTR TO SRTADD ROUTINE * 00372000 * 3 ATCSRTDF PTR(31), /* PTR TO SRTDELE ROUTN * 00373000 * 3 ATCDCC60 PTR(31), /* PTR TO ISTDCC60 - CTL. LAYER 00374000 * MOVE TO USER AREA * 00375000 * 3 ATCDCC61 PTR(31), /* PTR TO ISTDCC61 - CTL. LAYER 00376000 * MOVE FIXED TO PAGABLE * 00377000 */* BEGIN 'ANY' DVT * 00378000 * 3 ATCNERST PTR(31), /* PTR TO ISTDCC00 - REQUEST-ST* 00379000 * 3 ATCNERCV PTR(31), /* PTR TO ISTRCC21-RECEIVE OB * 00380000 * 3 ATCNERNE PTR(31), /* PTR TO ISTDCC25 - READ-ANY * 00381000 * 3 ATCNERFN PTR(31), /* PTR TO ISTDCC02 - REQUEST-FN * 00382000 */* END 'ANY' DVT * 00383000 * 3 ATCAPOST PTR(31), /* PTR TO VTAM POST ROUTINE * 00384000 * 3 ATCVTMID CHAR(2), /* HOST MAJOR NODE I.D. * 00385000 * 3 ATCRSV11 CHAR(2), /* RESERVED * 00386000 * 3 ATCRCC63 PTR(31), /* HSKPANYQ POINTER * 00387000 * 3 ATCRCC26 PTR(31), /* SEND RESPONSE POINTER * 00388000 * 3 ATCRCC65 PTR(31), /* SET RPL POINTER * 00389000 * 3 ATCNESAL PTR(31), /* PTR TO ISTDCC24 - SOLICIT-ALL* 00390000 * 3 ATCNERAP PTR(31), /* PTR TO ISTDCC85 - READ ANY 00391000 * PURGE * 00392000 * 3 ATCACTRM FIXED(15), /* COUNT OF ACTIVE TERMINALS * 00393000 * 3 ATCCIDM BIT(16), /* CID MASK * 00394000 * 3 ATCMSGSP BIT(8), /* RESERVED FOR MESAGE SURPRESSION * 00395000 * 2 ATCMAXID PTR(8), /* MAXIMUM NUMBER OF MAJOR NODES, 0 = 00396000 * NUMBER OF ENTRIES IN THE MNT * 00397000 * 2 ATCRSV16 CHAR(2), /* NOT USED * 00398000 * 2 ATCMNT PTR(31), /*PTR TO MAJOR NODE TABLE -SET BY SYS. 00399000 * DEF. REF. BY ISTSDCCB (CBDEF), 0264 00400000 * ISTSDCCI (CINDEXY) * 00401000 * 2 ATCCDADD PTR(31), /*PTR TO CIDADD ROUTINE ISTSDCCA 0264 00402000 * REF. BY CIDCTL MACRO * 00403000 * 2 ATCCDDEL PTR(31), /*PTR TO CIDDEL ROUTINE ISTSDCCD 0264 00404000 * REF. BY CIDCTL MACRO * 00405000 * 2 ATCCDFND PTR(31), /*PTR TO CIDFND ROUTINE IATSDCCF 0264 00406000 * REF. BY CIDCTL MACRO * 00407000 * 2 ATCESC01 PTR(31), /*PTR TO ESC01 * 00408000 * 2 ATCESC02 PTR(31), /*PTR TO ESC02 * 00409000 * 2 ATCCSMR PTR(31), /* PTR TO CONNECTION SERVICES * 00410000 * /* MASTER ROUTINE * 00411000 * 3 ATCCSMA PTR(31), /* PTR TO CONNECTION SERVICES 0264 00412000 * MASTER ROUTINE * 00413000 * 2 ATCOCRT PTR(31), /* PTR TO OPEN/CLOSE ROUTINE * 00414000 * 2 ATCUEP PTR(31), /* POINTER TO USER EXIT * 00415000 * 2 ATCSHRTN CHAR(8), /* NAME OF VTAM SHARED RTN * 00416000 * /* TO BE LOADED * 00417000 * 2 ATCSHRFG BIT(8), /* ATTRIBUTE FLAGS * 00418000 * 3 ATCLAST BIT(1), /* INDICATE HTIS IS LAST MODULE * 00419000 * 2 ATCXRANG CHAR(1), /* NUMBER OT BITS IN X-VALUE 0264 00420000 * PORTION OF CID * 00421000 * 2 ATCSAF CHAR(2), /* SUB AREA ADDRESS FIELD * 00422000 * 2 ATCEPA PTR(31), /* ENTRY POINT ADDR OF LOADED * 00423000 * 2 ATCALERT PTR(31), /* POINTER TO ALERT-ROUTINE 0264 00424000 * ISTSDCAL * 00425000 * 2 ATCDVLOD PTR(31), /* PTR TO ISTSDCOD * 00426000 * 2 ATCTRCPT PTR(31), /* POINTER TO TRACE PARM LIST * 00427000 * 2 ATCDVT PTR(31), /* POINTER TO FIRST DVT ON CHAIN * 00428000 * 2 ATCEPT PTR(31), /* POINTER TO FIRST EPT ON CHAIN * 00429000 * 2 ATCMSGP PTR(31), /* POINTER TO TPMSG PROCESSOR * 00430000 * 2 ATCMSGM PTR(31), /* POINTER TO TPMSG - MESSAGE 0264 00431000 * CSECT * 00432000 * 2 ATCTRPAB PTR(31), /* ADDRESS OF TRACE WRITER PAB * 00433000 * 2 ATCVTLOD PTR(31), /* ADDR OF VTAM LOAD LIST * 00434000 * 2 ATCECPRT CHAR(4), /* ECB FOR TRACE FILE PRINT * 00435000 * 2 ATCZDVTB PTR(31), /* ADDRESS OF ISTZCFBI * 00436000 * 2 ATCECTLP CHAR(4), /* TOLTEP ECB * 00437000 * 2 ATCRVCHS CHAR(8), /* RESERVED * 00438000 * 2 ATCCRME PTR(31), /* VARY PSS CONTROL MECHANISM * 00439000 * 2 ATCHPGM, /* BUFFER INFORMATION */ 00440000 * 3 ATCHBFNO FIXED(15), /* NUMBER OF BUFFS FOR CHANNEL */ 00441000 * 3 ATCHBSIZ FIXED(15), /* BUFFER SIZE IN BYTES */ 00442000 * 2 ATCDEBCH PTR(31), /* CLOSE DEB CHAIN PTR */ 00443000 * 2 ATCTODVT PTR(31), /* THE TOLTEP DVT PTR POINTED 0264 00444000 * TO BY 3RD WORD OF PAB */ 00445000 * 2 ATCADEL PTR(31), /* A DELETE ROUTINE ADDRESS */ 00446000 * 2 ATCCDPTR PTR(31), /* PTR TO ISTOCCCD - DOS ONLY */ 00447000 * 2 ATCLDNCS PTR(31), /* PTR TO NCSPL FOR LOAD/DUMP */ 00448000 * 2 ATCLDECB BIT(32), /* ECB FOR LOAD/DUMP SUBTASK */ 00449000 * 2 ATCAPCR5 PTR(31), /* POINTER TO ISTINCR5 */ 00450000 * 2 ATCRSV69 PTR(31), /* RESERVED TO SYNCH WITH DOS */ 00451000 * 2 ATCNODEL CHAR(8), /* VSAM DATA SET NAME */ 00452000 * 2 ATCNODDS PTR(31), /* POINTER TO RPL */ 00453000 * 2 ATCONFIG CHAR(8), /* START VTAM CONFIG = PARAMETER */ 00454000 * 2 ATCRSV99 CHAR(4), /* RESERVED FOR LATER POINTERS */ 00455000 * 2 ATCAP33 PTR(31), /* PTR TO ISTAPC33 */ 00456000 * 2 ATCAP35 PTR(31), /* PTR TO ISTAPC35 */ 00457000 * 2 ATCAP36 PTR(31), /* PTR TO ISTAPC36 */ 00458000 * 2 ATCDVTLK CHAR(LENGTH(ISTLOK)), /* LOCK WORD FOR DVT LOCK */ 00459000 * 2 ATCCDFIN PTR(31), /* POINTER TO ISTSDCRR */ 00460000 * 2 ATCCDFDN PTR(31), /* POINTER TO ISTSDCCN */ 00461000 * 2 ATCVOCLK CHAR(LENGTH(ISTLOK)), /* VOCLOCK LOCK */ 00462000 * 2 ATCRDTLK CHAR(LENGTH(ISTLOK)), /* RDTLOCK LOCK */ 00463000 * 2 ATCRSV97 PTR(31), /* DWORD ALIGNMENT */ 00464000 * 2 ATCVPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR VARY 00465000 * UNDER PSS CONTROL */ 00466000 * 2 ATCPGPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* ERP PAB FOR 00467000 * PURGE */ 00468000 * 2 ATCDLRPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* DUMP LOAD & 00469000 * RESTART PAB */ 00470000 * 2 ATCCCLAD PTR(31), /* ADDRESS OF VARY ERP (ISTINCCL)*/ 00471000 * 2 ATCCDLAD PTR(31), /* ADDRESS OF VARY DUMP,LD RSTRT 00472000 * (ISTINCDL) */ 00473000 * 2 ATCOCCOB PTR(31), /* ADDRESS ISTOCCOB */ 00474000 * 2 ATCOCCCB PTR(31), /* ADDRESS ISTOCCCB */ 00475000 * 2 ATCTIPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0264 00476000 * FOR ISTOLTP */ 00477000 * 2 ATCTCIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0264 00478000 * FOR TOLTEP CLIP */ 00479000 * 2 ATCVTIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0264 00480000 * FOR TOLTEP-VTAM INTERFACE*/ 00481000 * 2 ATCTCLOM PTR(31), /* ADDR TOLTEP CLOP PROC */ 00482000 * 2 ATCTCLIM PTR(31), /* ADDR TOLTEP CLIP PROC */ 00483000 * 2 ATCVTINM PTR(31), /* ADDR TOLTEP-VTAM INTF PROC */ 00484000 * 2 ATCTACB PTR(31), /* TOLTEP ACB */ 00485000 * 2 ATCRSV10 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* RESERVED */ 00486000 * 2 ATCPTR00 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB */ 00487000 * 2 ATCCFEAD PTR(31), /* ADDR OF ISTINCFE */ 00488000 * 2 ATCVLCNT CHAR(4) BDY(HWORD), /* VARY DEVICE ONLINE COUNTS*/ 00489000 * 3 ATCRNCNT PTR(16), /* 370X COUNT */ 00490000 * 3 ATCLCLCT PTR(16), /* 3270 COUNT */ 00491000 * 2 ATCS49XI PTR(31), /* ADDRESS OF ISTPICXI */ 00492000 * 2 ATCS49XL PTR(31), /* ADDRESS OF ISTPICXL */ 00493000 * 2 ATCPODVT PTR(31), /* PTR TO PROGRAM OPERATOR DVT*/ 00494000 * 2 ATCRNO, 0264 00495000 * 3 * CHAR(1), 0264 00496000 * 3 ATCPOIA PTR(24), /* PTR TO PROGRAM OPERATOR */ 00497000 * /* INTERFACE AREA */ 00498000 * 2 ATCSOPD CHAR(8) BDY(WORD), /* SESSION CONTROL */ 00499000 * 3 ATCSEC01 PTR(31), /* OUTBOUND PROCESSING */ 00500000 * 3 ATCSEC10 PTR(31), /* DVT */ 00501000 * 2 ATCSIPD CHAR(12) BDY(WORD),/* SESSION CONTROL */ 00502000 * 3 ATCSEC21 PTR(31), /* INBOUND PROCESSING */ 00503000 * 3 ATCSEC30 PTR(31), /* FEEDBACK */ 00504000 * 3 ATCSEC40 PTR(31), /* DVT */ 00505000 * 2 ATCSECST CHAR(4) BDY(WORD),/* SESSION CONTROLSESS TERM */ 00506000 * 3 ATCSEC51 PTR(31), /* RECOVERY DVT */ 00507000 * 2 ATCNMCTR FIXED(15), /* NAME COUNTER */ 00508000 * 2 ATCSTAT2 BIT(8), /* TRACE FLAGS */ 00509000 * 3 ATCTRAPI BIT(1), /* API */ 00510000 * 3 ATCTRESC BIT(1), /* ESC */ 00511000 * 3 ATCTRPSS BIT(1), /* PSS */ 00512000 * 3 ATCTRLOK BIT(1), /* LOCKS */ 00513000 * 3 ATCTRSMS BIT(1), /* SMS */ 00514000 * 3 * BIT(3), /* RESERVED */ 00515000 * 2 * BIT(8), /* RESERVED */ 00516000 * 2 ATCSRTAB PTR(31), /* SEARCH LOGON MODE TABLE */ 00517000 * /* RTN ADDRESS (ISTINCSH) */ 00518000 * 2 ATCUSSPT PTR(31), /* DEFAULT USS DEFINITION */ 00519000 * /* TABLE ADDRESS (ISTINCDT) */ 00520000 * 2 ATCMODTB PTR(31), /* DEFAULT SYSTEM LOGON MODE */ 00521000 * /* TABLE ADDRESS (ISTINCLM) */ 00522000 * 2 ATCINCW3 PTR(31), /* ADDRESS OF ISTINCW3 */ 00523000 * 2 ATCIOECB PTR(31), /* ECB USED BY IOS - */ 00524000 * /* POINTED TO BY IOBECBPT */ 00525000 * 2 ATCVDPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0264 00526000 * /* SSCP COMMAND PROCESSING PAB */ 00527000 * 2 ATCVFPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0264 00528000 * /* SSCP FRONT END PAB */ 00529000 * 2 ATCVDLOK CHAR(LENGTH(ISTLOK)), /* SSCP SERIALIZATION LOCK */ 00530000 */* END OF COMMON AREA */ 00531000 */* VS1/VS2 COMMON CODE. */ 00532000 * 2 * CHAR(3), /* RESERVED * 00533000 * 2 * CHAR(1), /* FLAGS * 00534000 * 3 ATCVTMAB BIT(1), /* ABEND IN VTAM JOBSTEP * 00535000 * 3 * BIT(7), /* RESERVED * 00536000 * 2 ATCAOSM BDY(DWORD), 0264 00537000 */* * 00538000 * 3 ATCSRBRT PTR(31), /* POINTER TO ROUTINE UNDER * 00539000 * /* SRB CONTROL * 00540000 * 3 ATCGSRBQ PTR(31), /* READY QUEUE FOR GLOBAL SRB'S* 00541000 * 4 ATCGSRBG BIT(8), /* READY QUEUE GATE BYTE * 00542000 * 5 ATCGSRBF BIT(1), /* READY QUEUE GATE BIT * 00543000 * 3 ATCPRPH PTR(31), /* PTR TO PREALLOCATED RPH * 00544000 * 3 ATCCMTCB PTR(31), /* PTR TO COMMUNICATIONS TASK * 00545000 * /* TCB * 00546000 * 3 ATCAP11 PTR(31), /* PTR TO ISTAPC11 * 00547000 * 3 ATCAP12 PTR(31), /* PTR TO ISTAPC12 * 00548000 * 3 ATCAP31 PTR(31), /* PTR TO ISTAPC31 * 00549000 * 3 ATCAP32 PTR(31), /* PTR TO ISTAPC32 * 00550000 * 3 ATCAP34 PTR(31), /* PTR TO ISTAPC34 * 00551000 * 3 ATCAP52 PTR(31), /* PTR TO ISTAPC52 * 00552000 * 3 ATCAP53 PTR(31), /* PTR TO ISTAPC53 * 00553000 * 3 ATCAP54 PTR(31), /* PTR TO ISTAPC54 * 00554000 * 3 ATCAP57 PTR(31), /* PTR TO ISTAPC57 * 00555000 * 3 ATCAP58 PTR(31), /* PTR TO ISTAPC58 * 00556000 * 3 ATCAP61 PTR(31), /* PTR TO ISTAPC61 * 00557000 * 3 ATCAP63 PTR(31), /* PTR TO ISTAPC63 * 00558000 * 3 ATCAP64 PTR(31), /* PTR TO ISTAPC64 * 00559000 * 3 ATCZFSVT PTR(31), /* TPIOS FIXED SRVICES VCTR TAB* 00560000 * 3 ATCZPSVT PTR(31), /* TPIOS PAGBL SRVCES VCTR TABL* 00561000 * 3 ATCICNCB PTR(31), /* HEAD OF ICNCB QUEUE * 00562000 * 3 ATCZDVT1 PTR(31), /* TPIOS SLODWN RECOVRY PRCSR * 00563000 * 3 ATCZDVT3 PTR(31), /* 370X FEEDBACK STAT CNTRL RTR* 00564000 * 3 ATCZDVT4 PTR(31), /* OPERATOR MESSAGE SCHEDULER * 00565000 * 3 ATCZDVT6 PTR(31), /* DIALOGUE SCHEDULER (INBOUND)* 00566000 * 3 ATCAP65 PTR(31), /* PTR TO ISTAPC65 */ 00567000 * 3 ATCICAPP CHAR(20) BDY(WORD), /* 3705 APPENDAGE VECTOR * 00568000 * 4 ATCCDRPH PTR(31), /* ADDR CLOSE DEB RPH 0264 00569000 * (DUMMY EOA APP.) */ 00570000 * 4 ATCZSIOA PTR(31), /* ADDR 3705 SIO APPENDAGE */ 00571000 * 4 ATCCDTCB PTR(31), /* VTAM TCB (DUMMY PCI APP.) */ 00572000 * 4 ATCZCEA PTR(31), /* ADDR 3705 CHANNEL END 0264 00573000 * APPENDAGE */ 00574000 * 4 ATCZAEA PTR(31), /* ADDR 3705 CHANNEL END 0264 00575000 * APPENDAGE */ 00576000 * 3 ATCLDAPP CHAR(20) BDY(WORD), /* LOCAL 3270 APPENDAGE 00577000 * VECTOR */ 00578000 * 4 ATCCDTID PTR(31), /* TASK ID OF VTAM 0264 00579000 * (DUMP EOE) */ 00580000 * 4 ATCSMFRR PTR(31), /* ADDR OF SMS FRR 0264 00581000 * (DUMMY SIOA) */ 00582000 * 4 ATCRSV17 PTR(31), /* RESERVED FOR ALIGNMENT */ 00583000 * 4 ATCZLCEA PTR(31), /* ADDR 3270 CHANNEL END 0264 00584000 * APPENDAGE */ 00585000 * 4 ATCZLAEA PTR(31), /* ADDR 3270 CHANNEL END 0264 00586000 * APPENDAGE */ 00587000 * 3 ATCDAPVT CHAR(24) BDY(WORD), /* DUMMY APPENDAGE 0264 00588000 * VECTOR TABLE FOR LOAD/DVMMY*/ 00589000 * 4 ATCDEOEA PTR(31), /* ADDRESS OF DUMMY END 0264 00590000 * OF EXTENT APPENDAGE */ 00591000 * 4 ATCDSIOA PTR(31), /* ADDRESS OF DUMMY END 0264 00592000 * OF SIO APPENDAGE */ 00593000 * 4 ATCDPCIA PTR(31), /* ADDRESS OF DUMMY PCI 0264 00594000 * APPENDAGE */ 00595000 * 4 ATCDCEA PTR(31), /* ADDRESS OF CHANNEL END 0264 00596000 * APPENDAGE */ 00597000 * 4 ATCDXCEA PTR(31), /* ADDRESS OF ABNORMAL 0264 00598000 * END APPENDAGE */ 00599000 * 4 ATCDAPDG CHAR(2), /* DUMMY APPENDAGE */ 00600000 * 4 ATCRSV56 CHAR(2), /* RESERVED */ 00601000 * 3 ATCZDVT7 PTR(31), /* ADDR OF RESET CLEANUP 0264 00602000 * (PHASE 1) * 00603000 * 3 ATCZDVT8 PTR(31), /* 3270 LOCAL TEST AND CTL 0264 00604000 * FEEDBACK ROUTER */ 00605000 * 3 ATCZDVT9 PTR(31), /* ADDRESS OF ISTZDFKA */ 00606000 * 3 ATCZDVTA PTR(31), /* ADDRESS OF ISTZCFIA */ 00607000 * 3 ATCZDVTX PTR(31), /* ADDRESS OF TRUNK LINE 0264 00608000 * DEACTIVATE ROUTINE */ 00609000 * 3 ATCZLPVT PTR(31), /* ADDRESS OF ISTZPSVA */ 00610000 * 3 ATCZLFVT PTR(31), /* TPIOS 3270 LOCAL FIXED 0264 00611000 * SERVICES VECTOR TABLE */ 00612000 * 3 ATCZPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR 00613000 * TEST AND CTL FEEDBACK ROUTER* 00614000 * 3 ATCZPAB2 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* 370X 0264 00615000 * STATUS AND FEEDBACK ROUTER 00616000 * DYNAMIC PAB */ 00617000 * 3 ATCAP51 PTR(31), /* PTR TO ISTAPC51 */ 00618000 * 3 ATCZDFJ0 PTR(31), /* ADDR OF ISTZDFJ0 */ 00619000 * 3 ATCAP37 PTR(31), /* PTR TO ISTAPC37 */ 00620000 * 3 ATCAP38 PTR(31), /* PTR TO ISTAPC38 */ 00621000 * 3 ATCDMAPP PTR(31), /* DUMMY APPENDAGE ROUTINE */ 00622000 * /* FOR ABEND */ 00623000 * 3 ATCRPT12 PTR(31), /* RESERVED */ 00624000 * 3 ATCRPT13 PTR(31), /* RESERVED */ 00625000 * 3 ATCRPT14 PTR(31), /* RESERVED */ 00626000 * 3 ATCRPT15 PTR(31), /* RESERVED */ 00627000 * 3 ATCRPT16 PTR(31), /* RESERVED */ 00628000 * 3 ATCRPT17 PTR(31), /* RESERVED */ 00629000 * 3 ATCRPT18 PTR(31), /* RESERVED */ 00630000 * 3 ATCRPT19 PTR(31), /* RESERVED */ 00631000 * 3 ATCRPT20 PTR(31), /* RESERVED */ 00632000 * 3 ATCRPT21 PTR(31), /* RESERVED */ 00633000 * 3 ATCRPT22 PTR(31), /* RESERVED */ 00634000 * 3 ATCRPT23 PTR(31), /* RESERVED */ 00635000 * 3 ATCRPT24 PTR(31), /* RESERVED */ 00636000 * 3 ATCRPT25 PTR(31), /* RESERVED */ 00637000 * 3 ATCRPT26 PTR(31), /* RESERVED */ 00638000 * 3 ATCRPT27 PTR(31), /* RESERVED */ 00639000 * 3 ATCRPT28 PTR(31), /* RESERVED */ 00640000 * 3 ATCRPT29 PTR(31), /* RESERVED */ 00641000 * 3 ATCRPT30 PTR(31), /* RESERVED */ 00642000 * 3 ATCRPT31 PTR(31), /* RESERVED */ 00643000 * 3 ATCRPT32 PTR(31), /* RESERVED */ 00644000 * 3 ATCRPT33 PTR(31), /* RESERVED */ 00645000 * 3 ATCRPT34 PTR(31), /* RESERVED */ 00646000 * 3 ATCRPT35 PTR(31), /* RESERVED */ 00647000 * 3 ATCRPT36 PTR(31), /* RESERVED */ 00648000 * 3 ATCRPT37 PTR(31), /* RESERVED */ 00649000 * 3 ATCRPT38 PTR(31), /* RESERVED */ 00650000 * 3 ATCRPT39 PTR(31), /* RESERVED */ 00651000 * 3 ATCRPT40 PTR(31), /* RESERVED */ 00652000 */* END OF VS1/VS2 COMMON CODE. */ 00653000 */* START OF VS2 UNIQUE CODE. */ 00654000 * 3 ATCVTFLG BIT(32), 0264 00655000 * 4 ATCVTACT BIT(1), /* VTT ACTIVE */ 00656000 * 4 * BIT(31), /* RESERVED */ 00657000 * 3 ATCHLTCB PTR(31), /* ECB FOR HALTING VTAM */ 00658000 * 3 ATCATA10 PTR(31), /* PTR TO ISTATM10 */ 00659000 * 3 ATCZLAAB PTR(31), /* PTR TO ISTZLFAB */ 00660000 * 3 ATCCACXA PTR(31), /* PTR TO ISTCFCXA */ 00661000 * 3 ATCSMARA PTR(31), /* PTR TO ISTORFRA */ 00662000 * 3 ATCSMAID PTR(31), /* PTR TO ISTORFID */ 00663000 * 3 ATCTPWQA PTR(31), /* WAIT Q ANCHOR FOR TPIOS */ 00664000 * 3 ATCSMAPR PTR(31), /* PTR TO ISTORFPR */ 00665000 * 3 ATCSMABF PTR(31), /* PTR TO ISTORFBF */ 00666000 * 3 ATCPSTA PTR(31), /* ACTIVE PST QUEUE */ 00667000 * 3 ATCAPBE PTR(31), /* POINTER TO ISTAICBE */ 00668000 * 3 ATCTRMPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0264 00669000 * /* PAB FOR VTAM TERM TASK */ 00670000 * 3 ATCTPSPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0264 00671000 * /* PAB FOR TPIOS */ 00672000 * 3 ATCAP23 PTR(31), /* PTR TO ISTAPC23 */ 00673000 * 3 ATCAPC25 PTR(31), /* PTR TO ISTAPC25 */ 00674000 * 3 ATCAP41 PTR(31), /* PTR TO ISTAPC41 */ 00675000 * 3 ATCRCFY0 PTR(31), /* PTR TO ISTRCFY0 */ 00676000 * 3 ATCAP55 PTR(31), /* PTR TO ISTAPC55 */ 00677000 * 3 ATCAP56 PTR(31), /* PTR TO ISTAPC56 */ 00678000 * 3 ATCAPC59 PTR(31), /* PTR TO ISTAPC59 */ 00679000 * 3 ATCAP62 PTR(31), /* PTR TO ISTAPC62 */ 00680000 * 3 ATCAP66 PTR(31), /* PTR TO ISTAPC66 */ 00681000 * 3 ATCAP69 PTR(31), /* PTR TO ISTAPM69 */ 00682000 * 3 ATCAP82 PTR(31), /* PTR TO ISTAPC82 */ 00683000 * 3 ATCAP83 PTR(31), /* PTR TO ISTAPC83 */ 00684000 * 3 ATCAP84 PTR(31), /* PTR TO ISTAPC84 */ 00685000 * 3 ATCAP85 PTR(31), /* PTR TO ISTAPC85 */ 00686000 * 3 ATCAP86 PTR(31), /* PTR TO ISTAPC86 */ 00687000 * 3 ATCASCB PTR(31), /* PTR TO VTAM ASCB */ 00688000 * 3 ATCMPLTA PTR(31), /* PTR TO MPST LIST TABLE */ 00689000 * 3 ATCZR01 PTR(31), /* PTR TO ISTZRM01 */ 00690000 * 3 ATCAICTN PTR(31), /* PTR TO ISTAICTN */ 00691000 * 3 ATCTPCP0 PTR(31), /* PTR TO ISTZFSAV */ 00692000 * 3 ATCTPCP1 PTR(31), /* PTR TO ISTZ19SV */ 00693000 * 3 ATCZFLAG BIT(8), /* FLAG BYTE */ 00694000 * 4 ATCZF001 BIT(1), /* MDR RECORDING SUSPENDED */ 00695000 * 4 ATCRSV66 BIT(7), /* RESERVED */ 00696000 * 3 ATCRSV75 BIT(8), /* RESERVED */ 00697000 * 3 ATCSRBCT FIXED(16), /* COUNT OF PREALLOCATED SRB'S*/ 00698000 * 3 ATCCRACT FIXED(16), /* COUNT OF PREALLOCATED CRA'S*/ 00699000 * 3 ATCRPLCT FIXED(16), /* COUNT OF PREALLOCATED CRPL */ 00700000 * 3 ATCRSV88 PTR(31), /* RESERVED */ 00701000 * 3 ATCTPMPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /*TP MSG PAB 00702000 * FOR VS2 */ 00703000 * 3 ATCTPMMI PTR(31), /* PTR TO ISTCFMMI - MSG ISSUER 00704000 * FOR SRB MODE ROUTINES */ 00705000 * 3 ATCVIOPM PTR(31), /* PTR TO ISTVIOPM */ 00706000 * 3 ATCPOPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0264 00707000 * /* POPAB FOR REPLY PROCESSING, POI TERMINATION, */ 00708000 * /* AND VTAM MESSAGE PROCESSOR */ 00709000 * 2 ATCAOS CHAR(0) BDY(WORD); /* VS2 ONLY FIELDS */ 00710000 */* END OF ATBUILD */ GPR04F=POSTREG; /*LOAD RPH PNTR INTO REG 4*/ 00711000 LR GPR04F,POSTREG 0265 00712000 * RFY GPR03F RSTD; 0266 00713000 * GPR03F=0; 0267 00714000 * 0267 00715000 SLR @11,@11 0267 00716000 LR GPR03F,@11 0267 00717000 * DO; /*MODESET SAVEKEY(GPR06F) KEYADDR(GPR03F) WO 00718000 *KREG(GPR05F)*/ RESPECIFY (GPR02F) RESTRICTED; 0268 00719000 * GPR05F = GPR02F; /*SAVE REGISTER 2*/ 0270 00720000 LR GPR05F,GPR02F 0270 00721000 * IPK; /*SAVE CURRENT PSW KEY*/ 0271 00722000 IPK 0271 00723000 * GPR06F = GPR02F; 0272 00724000 LR GPR06F,GPR02F 0272 00725000 * GPR02F = GPR05F; /*RESTORE REGISTER 2*/ 0273 00726000 LR GPR02F,GPR05F 0273 00727000 * SPKA (GPR03F); /*SET PSW KEY*/ 0274 00728000 SPKA 0(GPR03F) 0274 00729000 * RESPECIFY (GPR02F) UNRESTRICTED; 0275 00730000 * END; /*MODESET SAVEKEY(GPR06F) KEYADDR(GPR03F) W 00731000 *RKREG(GPR05F)*/ RFY GPR03F UNRSTD; 0276 00732000 * GPR05P=GPR04P->RPHMAJCB+GPR04P->RPHPABOF; 0278 00733000 L GPR05P,RPHMAJCB-1(,GPR04P) 0278 00734000 LA GPR05P,0(,GPR05P) 0278 00735000 SLR @07,@07 0278 00736000 IC @07,RPHPABOF(,GPR04P) 0278 00737000 ALR GPR05P,@07 0278 00738000 * /*LOAD REG 5 WITH ADDR OF*/ 00739000 * /*MAJOR CONTROL BLOCK PLUS*/ 00740000 * /*OFFSET OF PAB IN BLOCK */ 00741000 * GPR14P=0; /*LOAD 0 INTO REG 14 */ 00742000 LR GPR14P,@11 0279 00743000 * GPR15P='FFFFFFFF'X; 0280 00744000 SLR GPR15P,GPR15P 0280 00745000 BCTR GPR15P,0 0280 00746000 * /*LOAD REG 15 WITH DUMMY */ 00747000 * /*ADDRESS */ 00748000 * CS (GPR14P,GPR15P,GPR04P->RPHRESMA); 0281 00749000 CS GPR14P,@15,RPHRESMA(GPR04P) 0281 00750000 * /*COMPARE RESUME ADDRESS */ 00751000 * /*WITH 0 AND,IF EQUAL, PUT*/ 00752000 * /*DUMMY ADDRESS IN CONTROL*/ 00753000 * /*BLOCK RESUME ADDRESS */ 00754000 * BC (8,FMZT0005);/*IF EQUAL, BYPASS REMAINDER*/ 00755000 BC 8,FMZT0005 0282 00756000 * /*OF EXPANSION */ 00757000 *FMZL0005: IF GPR04P->RPHWT='1'B THEN 0283 00758000 FMZL0005 TM RPHWT(GPR04P),B'00001000' 0283 00759000 BNO @RF00283 0283 00760000 * /*WT/EXT CONTENTION FLAG ON */ 00761000 * DO; /*IN RPH */ 00762000 * GPR14P=GPR04P->RPHRESMA|RPHWT1; 0285 00763000 L GPR14P,RPHRESMA(,GPR04P) 0285 00764000 O GPR14P,@CF01057 0285 00765000 * /*LOAD REG 14 WITH FLAG FIELD*/ 00766000 * /*AND MAKE CERTAIN WT/EXT */ 00767000 * /*CONTENTION FLAG STILL ON */ 00768000 * GPR15P=GPR14P|RPHPT1; 0286 00769000 LR GPR15P,GPR14P 0286 00770000 O GPR15P,@CF01061 0286 00771000 * /*LOAD REG 15 WITH FLAG FIELD*/ 00772000 * /*AND TURN POST FLAG ON */ 00773000 * CS (GPR14P,GPR15P,GPR04P->RPHRESMA); 0287 00774000 CS GPR14P,@15,RPHRESMA(GPR04P) 0287 00775000 * /*COMPARE REG 14 WITH FLAG */ 00776000 * /*FIELD--IF WT/EXT BIT ON, */ 00777000 * /*TURN ON POST FLAG */ 00778000 * BC (4,FMZL0005); 0288 00779000 BC 4,FMZL0005 0288 00780000 * /*IF WT/EXT BIT WAS OFF, LOOP*/ 00781000 * /*TO TEST CONTENTION FLAG */ 00782000 * BC (8,FMZT0005); 0289 00783000 BC 8,FMZT0005 0289 00784000 * /*IF WT/EXT BIT WAS OFF, */ 00785000 * /*BRANCH TO BYPASS CODE GEN */ 00786000 * END; /*IF POST FLAG IS ON, FALL*/ 00787000 * /*THRU BOTTOM OF LOOP */ 00788000 * ELSE; /*WT/EXT CONTENTION FLAG OFF*/ 00789000 @RF00283 DS 0H 0292 00790000 * GPR00F=0; /*SET REG 0 TO INDICATE ENA*/ 00791000 * 0292 00792000 SLR GPR00F,GPR00F 0292 00793000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 00794000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 00795000 L GPR15P,ATCLCPTR 0294 00796000 * END; /*LISATCVT*/ /*PUT POINTER TO ATCVT IN */ 00797000 * /* IN REG 15 */ 00798000 * CALL GPR15P->ATCAP32; 0296 00799000 L @11,ATCAP32(,GPR15P) 0296 00800000 LR @15,@11 0296 00801000 BALR @14,@15 0296 00802000 * /* CALL ISTAPC32: TPSCHED */ 00803000 *FMZT0005: 0297 00804000 * DO; /*MODESET KEYADDR(GPR06F) WORKREG(GPR05F)*/ 00805000 FMZT0005 DS 0H 0298 00806000 * GPR05F = GPR06F; /*GET KEY FORM SAVE LOCATION*/ 00807000 LR GPR05F,GPR06F 0298 00808000 * SPKA (GPR05F); /*SET PSW KEY*/ 0299 00809000 SPKA 0(GPR05F) 0299 00810000 * END; /*MODESET KEYADDR(GPR06F) WORKREG(GPR05F)*/ 00811000 * RESPECIFY (GPR00F,GPR01F,GPR04F,GPR05F,GPR06F, 00812000 * GPR14F,GPR15F) UNRSTD; 0301 00813000 * /*UNRESTRICT REGS 0,1, */ 00814000 * /*4,5,14, AND 15 */ 00815000 * END; /****END OF TPPOST GENERATION****/ 0302 00816000 * RFY ISTRPH BASED(SAVREG1); 0303 00817000 @RC00229 DS 0H 0304 00818000 * CRRREG=ADDR(RPHCRR->CRAPSS); 0304 00819000 L CRRREG,RPHCRR(,SAVREG1) 0304 00820000 LA CRRREG,CRAPSS(,CRRREG) 0304 00821000 * LEVELREG=ZSAVE; 0305 00822000 L LEVELREG,ZSAVE(,CRRREG) 0305 00823000 * END DOW01; 0306 00824000 @DE00216 LTR OLDREG,OLDREG 0306 00825000 BNZ @DL00216 0306 00826000 * GPR14=SAVREG1->SAVREG14; 0307 00827000 L GPR14,SAVREG14(,SAVREG1) 0307 00828000 * RPHREG=SAVREG1; 0308 00829000 LR RPHREG,SAVREG1 0308 00830000 * RETURN; 0309 00831000 B @EL00001 0309 00832000 * END TR07; 0310 00833000 * ELSE /*LOK UNLOKD, PRTY NOT SPECFD*/ 00834000 *ELS07: DO; 0311 00835000 @RF00204 DS 0H 0311 00836000 ELS07 DS 0H 0312 00837000 * IF NEWREG=LOKXCL1 /*ANY REQUESTS QUEUED UP */ 00838000 * THEN /* NO, SET NEWREG TO FREE LOK*/ 00839000 CL NEWREG,@CF01074 0312 00840000 BNE @RF00312 0312 00841000 *TR09: NEWREG=0; 0313 00842000 TR09 SLR NEWREG,NEWREG 0313 00843000 * ELSE /*YES, OWNERSHIP MUST CHANGE */ 00844000 *ELS09: DO; 0314 00845000 B @RC00312 0314 00846000 @RF00312 DS 0H 0314 00847000 ELS09 DS 0H 0315 00848000 * RFY (REG6,REG7) RSTD; /*@Z30APGG*/ 00849000 * REG6=GPR2; /*@Z30APGG*/ 00850000 LR REG6,GPR2 0316 00851000 * DO; /*MODESET SAVEKEY(REG7) EXTKEY(ZERO)*/ 0317 00852000 * RESPECIFY (GPR02F) RESTRICTED; 0318 00853000 * IPK; /*SAVE CURRENT PSW KEY*/ 0319 00854000 IPK 0319 00855000 * SPKA (0); /*SET PSW KEY*/ 0320 00856000 SLR @11,@11 0320 00857000 SPKA 0(@11) 0320 00858000 * REG7 = GPR02F; 0321 00859000 LR REG7,GPR02F 0321 00860000 * RESPECIFY (GPR02F) UNRESTRICTED; 0322 00861000 * END; /*MODESET SAVEKEY(REG7) EXTKEY(ZERO)*/ /*@ 00862000 *30APGG*/ 0323 00863000 * GPR2=REG6; /*@Z30APGG*/ 00864000 LR GPR2,REG6 0324 00865000 * REG6=GPR12; /*@Z30APGG*/ 00866000 LR REG6,GPR12 0325 00867000 * RPHREG->SAVREG14=GPR14; /*@Z30APGG*/ 00868000 ST GPR14,SAVREG14(,RPHREG) 0326 00869000 */*REGS 11,12,13,14 ARE CORRUPTED BY SET LOCK @ZM32009*/ 0327 00870000 *KLOCAL: GEN CODE REFS (PSALITA,FLC,UNLL); 0327 00871000 KLOCAL DS 0H 0327 00872000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND,RELATED=(LOCAL,ISTAPC33(UNLL)) 00873000 * GPR12=REG6; /*@Z30APGG*/ 00874000 LR GPR12,REG6 0328 00875000 * GPR14=RPHREG->SAVREG14; /*@Z30APGG*/ 00876000 L GPR14,SAVREG14(,RPHREG) 0329 00877000 * RFY REG6 UNRSTD; /*@Z30APGG*/ 00878000 * IF R13LKRC=ZERO /*LOCAL LOCK OBT. @Z30APGG*/ 00879000 * THEN SSW14=-SSW14; /*SET LOK OBT SW @Z30APGG*/ 00880000 C R13LKRC,ZERO 0331 00881000 BNE @RF00331 0331 00882000 LCR SSW14,SSW14 0332 00883000 * ELSE; 0333 00884000 @RF00331 DS 0H 0334 00885000 * CS (OLDREG,NEWREG,LOCKWORD); 0334 00886000 CS OLDREG,@05,LOCKWORD(LOKREG) 0334 00887000 * BC (FAIL,RETRY); /*SWAP FAILED, TRY AGAIN */ 00888000 BC 7,RETRY 0335 00889000 * CRALKACT=CRALKACT&&LEVELREG; /*CLEAR LOCK LEV BIT @ZM32009*/ 00890000 L @11,CRALKACT(,CRAREG) 0336 00891000 XR @11,LEVELREG 0336 00892000 ST @11,CRALKACT(,CRAREG) 0336 00893000 * /**************************************/ 0337 00894000 * /* XCL BIT IS STILL ON IN LOCKWORD TO */ 0337 00895000 * /* PREVENT OTHER LOCKS FROM GETTING */ 0337 00896000 * /* CONTROL DURING THE FOLLOWING CODE */ 0337 00897000 * /**************************************/ 0337 00898000 * OLDREG=NEWREG; 0337 00899000 LR OLDREG,NEWREG 0337 00900000 *RETRY2: NEWREG=0; /*SET NUMB NEW OWNERS TO ZERO*/ 00901000 RETRY2 SLR @11,@11 0338 00902000 LR NEWREG,@11 0338 00903000 * LASTREG=0; /*INITLZ ADR OF LAST ON QUEUE*/ 00904000 LR LASTREG,@11 0339 00905000 *DOW02: DO WHILE((OLDREG&LOKCHN1) ^= LASTREG); 0340 00906000 DOW02 B @DE00340 0340 00907000 @DL00340 DS 0H 0341 00908000 * CURREG=OLDREG & LOKCHN1; /*GET ADR BEG OF QUE */ 00909000 LR CURREG,OLDREG 0341 00910000 N CURREG,@CF01078 0341 00911000 * RFY ISTRPH BASED(CURREG); 0342 00912000 *DOW03: DO WHILE((RPHRPHA&LOKCHN1) ^= LASTREG); 0343 00913000 DOW03 B @DE00343 0343 00914000 @DL00343 DS 0H 0344 00915000 * CURREG=RPHRPHA & LOKCHN1; /*FIND END OF QUE */ 00916000 L @11,RPHRPHA(,CURREG) 0344 00917000 N @11,@CF01078 0344 00918000 LR CURREG,@11 0344 00919000 * END DOW03; 0345 00920000 @DE00343 L @11,RPHRPHA(,CURREG) 0345 00921000 LR @06,@11 0345 00922000 N @06,@CF01078 0345 00923000 CR @06,LASTREG 0345 00924000 BNE @DL00343 0345 00925000 * IF NEWREG=LOKCT255 | /*SHARE COUNT AT MAX*/ 00926000 * (RPHRPHA&LOKXCL1) ^=0 /* OR XCL REQUEST */ 00927000 * THEN 0346 00928000 CL NEWREG,@CF01082 0346 00929000 BE @RT00346 0346 00930000 N @11,@CF01074 0346 00931000 LTR @11,@11 0346 00932000 BZ @RF00346 0346 00933000 @RT00346 DS 0H 0347 00934000 *TR10: DO; 0347 00935000 TR10 DS 0H 0348 00936000 * IF LASTREG=0 /*IS 1ST NEW OWNER XCL RQSTOR*/ 00937000 * THEN /* YES */ 0348 00938000 LTR LASTREG,LASTREG 0348 00939000 BNZ @RF00348 0348 00940000 *TR11: DO; 0349 00941000 TR11 DS 0H 0350 00942000 * LASTREG=CURREG; /*SET UP OWNER QUEUE*/ 00943000 LR LASTREG,CURREG 0350 00944000 * CURREG=OLDREG & LOKCHN1; /*GET BEG OF QUE */ 00945000 LR CURREG,OLDREG 0351 00946000 N CURREG,@CF01078 0351 00947000 * NEWREG=LOKCT1 | LOKXCL1; 0352 00948000 L NEWREG,@CF01080 0352 00949000 O NEWREG,@CF01074 0352 00950000 * IF CURREG=LASTREG /*ONLY 1 RQST ON QUE */ 00951000 * THEN /* YES */ 00952000 CR CURREG,LASTREG 0353 00953000 BE @RT00353 0353 00954000 *TR12: GOTO BLK46; 0354 00955000 * ELSE /* NO */ 00956000 *ELS12: DO; 0355 00957000 ELS12 DS 0H 0356 00958000 * /* FIND 2ND REQUESTOR IN QUEUE */ 00959000 *DOW04: DO WHILE((RPHRPHA&LOKCHN1) ^= LASTREG); 00960000 DOW04 B @DE00356 0356 00961000 @DL00356 DS 0H 0357 00962000 * CURREG=RPHRPHA & LOKCHN1; 0357 00963000 L @11,RPHRPHA(,CURREG) 0357 00964000 N @11,@CF01078 0357 00965000 LR CURREG,@11 0357 00966000 * END DOW04; 0358 00967000 @DE00356 L @11,RPHRPHA(,CURREG) 0358 00968000 N @11,@CF01078 0358 00969000 CR @11,LASTREG 0358 00970000 BNE @DL00356 0358 00971000 * END ELS12; 0359 00972000 * END TR11; 0360 00973000 */*ELS11*/ ELSE; /* XCL REQUEST NOT 1ST QUEUED */ 00974000 @RF00348 DS 0H 0362 00975000 * RPHRPHA=RPHRPHA & (LOKXCL1 + LOKPRY1); 0362 00976000 L @11,RPHRPHA(,CURREG) 0362 00977000 N @11,@CF00278 0362 00978000 ST @11,RPHRPHA(,CURREG) 0362 00979000 *RETRY3: NEWREG=NEWREG | LOKXCL1 | (OLDREG & LOKCHN1); 00980000 RETRY3 LR @11,NEWREG 0363 00981000 O @11,@CF01074 0363 00982000 LR @06,OLDREG 0363 00983000 N @06,@CF01078 0363 00984000 OR @11,@06 0363 00985000 LR NEWREG,@11 0363 00986000 * CS (OLDREG,NEWREG,LOCKWORD); 0364 00987000 CS OLDREG,@05,LOCKWORD(LOKREG) 0364 00988000 * BC (SUCC,SAVE01); 0365 00989000 BC 8,SAVE01 0365 00990000 * NEWREG=NEWREG & LOKCT255; /*RETAIN NEW COUNT*/ 00991000 N NEWREG,@CF01082 0366 00992000 * GOTO RETRY3; 0367 00993000 B RETRY3 0367 00994000 * END TR10; 0368 00995000 * ELSE 0369 00996000 *ELS10: DO; /* LOCK OWNER CHAIN NOW */ 00997000 @RF00346 DS 0H 0369 00998000 ELS10 DS 0H 0370 00999000 * LASTREG=CURREG; /* INCLUDES THIS RPH */ 01000000 LR LASTREG,CURREG 0370 01001000 * NEWREG=NEWREG + LOKCT1; /*INCR NUMB OWNERS */ 01002000 AL NEWREG,@CF01080 0371 01003000 * END ELS10; 0372 01004000 * END DOW02; 0373 01005000 @DE00340 LR @11,OLDREG 0373 01006000 N @11,@CF01078 0373 01007000 CR @11,LASTREG 0373 01008000 BNE @DL00340 0373 01009000 *BLK46:; 0374 01010000 BLK46 DS 0H 0375 01011000 * CS (OLDREG,NEWREG,LOCKWORD); 0375 01012000 CS OLDREG,@05,LOCKWORD(LOKREG) 0375 01013000 * BC (FAIL,RETRY2); 0376 01014000 BC 7,RETRY2 0376 01015000 *SAVE01:; 0377 01016000 SAVE01 DS 0H 0378 01017000 * SAVREG1=RPHREG; /*SAVE REG1 ACROSS TPPOST*/ 01018000 LR SAVREG1,RPHREG 0378 01019000 * SAVREG1->SAVREG14=GPR14; /*SAVE REG14 */ 01020000 ST GPR14,SAVREG14(,SAVREG1) 0379 01021000 *DOW05: DO WHILE(LASTREG ^= 0); 0380 01022000 DOW05 B @DE00380 0380 01023000 @DL00380 DS 0H 0381 01024000 * POSTREG=LASTREG; 0381 01025000 LR POSTREG,LASTREG 0381 01026000 * RFY ISTRPH BASED(POSTREG); 0382 01027000 * LASTREG=RPHRPHA & LOKCHN1; 0383 01028000 L LASTREG,RPHRPHA(,POSTREG) 0383 01029000 N LASTREG,@CF01078 0383 01030000 * RPHCRR->CRALKACT=RPHCRR->CRALKACT|LEVELREG; 0384 01031000 L @11,RPHCRR(,POSTREG) 0384 01032000 L @06,CRALKACT(,@11) 0384 01033000 OR @06,LEVELREG 0384 01034000 ST @06,CRALKACT(,@11) 0384 01035000 * RETCODE=0; /*SET SUCCESSFUL LOK RETURN CODE */ 01036000 SLR @11,@11 0385 01037000 ST @11,RETCODE(,POSTREG) 0385 01038000 * RPHRPHA=0; 0386 01039000 ST @11,RPHRPHA(,POSTREG) 0386 01040000 * RFY ISTRPH BASED(SAVREG1); 0387 01041000 * CRRREG=ADDR(RPHCRR->CRAPSS); /*@XL03HTK*/ 01042000 L CRRREG,RPHCRR(,SAVREG1) 0388 01043000 LA CRRREG,CRAPSS(,CRRREG) 0388 01044000 * STM (REG0,GPR15,APCSAVE); /*IN CALLERS RPH-PSS CRR@Z40GKTK*/ 01045000 STM REG0,GPR15,APCSAVE(CRRREG) 0389 01046000 * RFY ISTRPH BASED(POSTREG); 0390 01047000 * IF RPHPURGE=ON /*@Z40GKTK*/ 01048000 * THEN /*@Z40GKTK*/ 01049000 TM RPHPURGE(POSTREG),B'00000010' 0391 01050000 BNO @RF00391 0391 01051000 *CKCMP: IF RPHPGCMP=OFF /*PURGE NOT COMPLETE @Z40GKTK*/ 01052000 * THEN DO; /*@Z40GKTK*/ 01053000 CKCMP TM RPHPGCMP(POSTREG),B'00010000' 0392 01054000 BNZ @RF00392 0392 01055000 * RFY (COMPREG,SWAPREG) RSTD; /*@Z40GKTK*/ 01056000 * COMPREG=ISTRPH(1:4)&'FFFFFFEF'X; /*@Z40GKTK*/ 01057000 ICM @11,15,ISTRPH(POSTREG) 0395 01058000 LR COMPREG,@11 0395 01059000 N COMPREG,@CF02081 0395 01060000 * SWAPREG=ISTRPH(1:4)|'00000004'X; /*@Z40GKTK*/ 01061000 O @11,@CF02005 0396 01062000 LR SWAPREG,@11 0396 01063000 * CS(COMPREG,SWAPREG,ISTRPH(1:4)); /*@Z40GKTK*/ 01064000 CS COMPREG,@07,ISTRPH(POSTREG) 0397 01065000 * BC(FAIL,CKCMP); /*@Z40GKTK*/ 01066000 BC 7,CKCMP 0398 01067000 * RFY (COMPREG,SWAPREG) UNRSTD; /*@Z40GKTK*/ 01068000 * END; /*RELEASE CRA FLAG SET FOR LATER @Z40GKTK*/ 01069000 * ELSE DO; /*RELEASE LOCKS+FREE CRA @Z40GKTK*/ 01070000 B @RC00392 0401 01071000 @RF00392 DS 0H 0402 01072000 * REG0='00000001'X; /*INITLZ MASK REG FOR APC33 */ 01073000 LA REG0,1 0402 01074000 * CRAREG=RPHCRR; /*CRA PTR OF DEACT. RPH*/ 0403 01075000 L CRAREG,RPHCRR(,POSTREG) 0403 01076000 * LEVEZREG=CRALKACT; /*INITLZ DOWHIL REG FOR LOOP*/ 01077000 L LEVEZREG,CRALKACT(,CRAREG) 0404 01078000 * REG3=ADDR(CRAL1PTR); /*INITLZ PTR TO LOK PTR WORD*/ 01079000 LA REG3,CRAL1PTR(,CRAREG) 0405 01080000 *ZOW01: DO WHILE(LEVEZREG^=0); /*LOOP TILL ALL LOKS UNLOKED*/ 01081000 ZOW01 B @DE00406 0406 01082000 @DL00406 DS 0H 0407 01083000 * IF (LEVEZREG & '00000001'X) ^= 0 /* THIS LEVEL LOKED */ 01084000 * THEN /* YES */ 0407 01085000 LR @11,LEVEZREG 0407 01086000 N @11,@CF01074 0407 01087000 LTR @11,@11 0407 01088000 BZ @RF00407 0407 01089000 */*ZR03*/ DO; 0408 01090000 * REG2=LOKPTRWD; /*ACCESS LOK PTR WORD IN CRA*/ 01091000 L REG2,LOKPTRWD(,CRALXREG) 0409 01092000 */**/ 0410 01093000 */* GPR15 NOT SAVED AS TPUNLOCK USES RPHSAV16*/ 0410 01094000 */**/ 0410 01095000 * STM (REG0,GPR14,RPHWORK); 0410 01096000 * 0410 01097000 STM REG0,GPR14,RPHWORK(POSTREG) 0410 01098000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15)) */ 0411 01099000 * GPR15 = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0412 01100000 L GPR15,ATCLCPTR 0412 01101000 * END; /*LISATCVT*/ 0413 01102000 * GPR15=GPR15->ATCAP33; 0414 01103000 L GPR15,ATCAP33(,GPR15) 0414 01104000 * CALL APC33; /*CALL UNLOCK ROUTINE */ 01105000 BALR @14,@15 0415 01106000 * LM (REG0,GPR14,RPHWORK); 0416 01107000 LM REG0,GPR14,RPHWORK(POSTREG) 0416 01108000 */*END ZRO3*/ END; 0417 01109000 * ELSE; 0418 01110000 @RF00407 DS 0H 0419 01111000 * REG0=REG0*2; /*SHIFT MASK WORD LEFT ONE */ 01112000 ALR REG0,REG0 0419 01113000 * REG3=REG3+4; /*UPDATE PTR TO LOK PTR WORD*/ 01114000 AL REG3,@CF00052 0420 01115000 * LEVEZREG=LEVEZREG/2; /*SHIFT LOOP REG RIGHT ONE */ 01116000 SRL LEVEZREG,1 0421 01117000 */*END ZOW01*/ END; 0422 01118000 @DE00406 LTR LEVEZREG,LEVEZREG 0422 01119000 BNZ @DL00406 0422 01120000 * TEMPREG=RPHCRR; /*@XL03HTK*/ 01121000 L TEMPREG,RPHCRR(,POSTREG) 0423 01122000 * /*RELSTORE BUFADDR(TEMPREG)SAVE(NO)*/ 0424 01123000 * DO; 0424 01124000 */* ATBUILD (ISTATCVT,ISTRPH) */ 0425 01125000 */* END OF ATBUILD */ 0425 01126000 * DCL GPR07F FIXED(31) REG(07); 0425 01127000 * DCL GPR07P PTR(31) REG(07); 0426 01128000 * DCL GPR08F FIXED(31) REG(08); 0427 01129000 * DCL GPR08P PTR(31) REG(08); 0428 01130000 * DCL GPR09F FIXED(31) REG(09); 0429 01131000 * DCL GPR09P PTR(31) REG(09); 0430 01132000 * DCL GPR10F FIXED(31) REG(10); 0431 01133000 * DCL GPR10P PTR(31) REG(10); 0432 01134000 * DCL GPR11F FIXED(31) REG(11); 0433 01135000 * DCL GPR11P PTR(31) REG(11); 0434 01136000 * DCL GPR12F FIXED(31) REG(12); 0435 01137000 * DCL GPR12P PTR(31) REG(12); 0436 01138000 * DCL GPR13F FIXED(31) REG(13); 0437 01139000 * DCL GPR13P PTR(31) REG(13); 0438 01140000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) RSTD; 0439 01141000 * GPR04P=TEMPREG; 0440 01142000 LR GPR04P,TEMPREG 0440 01143000 * DCL 1 FMZA0024 FIXED(31) STATIC LOCAL, 0441 01144000 * 2 * FIXED(8) INIT(0), 0441 01145000 * 2 * PTR(24) INIT(0); 0441 01146000 * GPR03F = FMZA0024; 0442 01147000 * 0442 01148000 L GPR03F,FMZA0024 0442 01149000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 0443 01150000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 0444 01151000 L GPR15P,ATCLCPTR 0444 01152000 * END; /*LISATCVT*/ 0445 01153000 * GPR02P = GPR15P->ATCBPDA; 0446 01154000 L GPR02P,ATCBPDA(,GPR15P) 0446 01155000 * GPR15P=GPR15P->ATCSMRS; 0447 01156000 L GPR15P,ATCSMRS(,GPR15P) 0447 01157000 * DCL FMZL0024 BASED(GPR15P) LABEL VALUERANGE(*); 0448 01158000 * CALL FMZL0024; 0449 01159000 BALR @14,@15 0449 01160000 * RFY (GPR02P,GPR03P,GPR04P,GPR15P) UNRSTD; 0450 01161000 * END ;/**********END OF RELSTORE EXPANSION**********/ 0451 01162000 * /*@XL03HTK*/ 0452 01163000 * RFY ISTRPH BASED(SAVREG1); 0452 01164000 * CRRREG=ADDR(RPHCRR->CRAPSS); /*@XL03HTK*/ 01165000 L CRRREG,RPHCRR(,SAVREG1) 0453 01166000 LA CRRREG,CRAPSS(,CRRREG) 0453 01167000 * RFY ISTRPH BASED(POSTREG); 0454 01168000 * GOTO ZNEXT; /*@XL03HTK*/ 01169000 B ZNEXT 0455 01170000 * END; /*@XL03HTK*/ 01171000 * ELSE; /*@XL03HTK*/ 01172000 @RF00391 DS 0H 0458 01173000 * /********************************************/ 01174000 * /* TPPOST DESTROYS REGS 14 THRU 8 INCLUSIVE */ 01175000 * /********************************************/ 01176000 * 0458 01177000 */*TPPOST (POSTREG) ENA NSTR*/ 0458 01178000 * DO; 0458 01179000 @RC00391 DS 0H 0459 01180000 * /*DECLARE AND RESTRICT REGS*/ 01181000 * RESPECIFY (GPR00F,GPR01F,GPR04F,GPR05F, 0459 01182000 * GPR06F,GPR14F,GPR15F) RSTD; 0459 01183000 * /*0,1,4,5,6,14, AND 15 */ 01184000 * 0460 01185000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTRPH,ISTAVT,ISTATCVT) */ 0460 01186000 */* END OF ATBUILD */ GPR04F=POSTREG; 0460 01187000 LR GPR04F,POSTREG 0460 01188000 * /*LOAD RPH PNTR INTO REG 4*/ 01189000 * RFY GPR03F RSTD; 0461 01190000 * GPR03F=0; 0462 01191000 * 0462 01192000 SLR @11,@11 0462 01193000 LR GPR03F,@11 0462 01194000 * DO; /*MODESET SAVEKEY(GPR06F) KEYADDR(GPR03F) 01195000 *ORKREG(GPR05F)*/ RESPECIFY (GPR02F) RESTRICTED; 0463 01196000 * GPR05F = GPR02F; /*SAVE REGISTER 2*/ 0465 01197000 LR GPR05F,GPR02F 0465 01198000 * IPK; /*SAVE CURRENT PSW KEY*/ 0466 01199000 IPK 0466 01200000 * GPR06F = GPR02F; 0467 01201000 LR GPR06F,GPR02F 0467 01202000 * GPR02F = GPR05F; /*RESTORE REGISTER 2*/ 0468 01203000 LR GPR02F,GPR05F 0468 01204000 * SPKA (GPR03F); /*SET PSW KEY*/ 0469 01205000 SPKA 0(GPR03F) 0469 01206000 * RESPECIFY (GPR02F) UNRESTRICTED; 0470 01207000 * END; /*MODESET SAVEKEY(GPR06F) KEYADDR(GPR03F) 01208000 *WORKREG(GPR05F)*/ RFY GPR03F UNRSTD; 0471 01209000 * GPR05P=GPR04P->RPHMAJCB+GPR04P->RPHPABOF; 01210000 L GPR05P,RPHMAJCB-1(,GPR04P) 0473 01211000 LA GPR05P,0(,GPR05P) 0473 01212000 SLR @11,@11 0473 01213000 IC @11,RPHPABOF(,GPR04P) 0473 01214000 ALR GPR05P,@11 0473 01215000 * /*LOAD REG 5 WITH ADDR OF*/ 01216000 * /*MAJOR CONTROL BLOCK PLUS*/ 01217000 * /*OFFSET OF PAB IN BLOCK */ 01218000 * GPR14P=0; /*LOAD 0 INTO REG 14 */ 01219000 SLR @11,@11 0474 01220000 LR GPR14P,@11 0474 01221000 * GPR15P='FFFFFFFF'X; 0475 01222000 SLR GPR15P,GPR15P 0475 01223000 BCTR GPR15P,0 0475 01224000 * /*LOAD REG 15 WITH DUMMY */ 01225000 * /*ADDRESS */ 01226000 * CS (GPR14P,GPR15P,GPR04P->RPHRESMA); 0476 01227000 CS GPR14P,@15,RPHRESMA(GPR04P) 0476 01228000 * /*COMPARE RESUME ADDRESS */ 01229000 * /*WITH 0 AND,IF EQUAL, PUT*/ 01230000 * /*DUMMY ADDRESS IN CONTROL*/ 01231000 * /*BLOCK RESUME ADDRESS */ 01232000 * BC (8,FMZT0040); 0477 01233000 BC 8,FMZT0040 0477 01234000 * /*IF EQUAL, BYPASS REMAINDER*/ 01235000 * /*OF EXPANSION */ 01236000 *FMZL0040: IF GPR04P->RPHWT='1'B THEN 0478 01237000 FMZL0040 TM RPHWT(GPR04P),B'00001000' 0478 01238000 BNO @RF00478 0478 01239000 * /*WT/EXT CONTENTION FLAG ON */ 01240000 * DO; /*IN RPH */ 01241000 * GPR14P=GPR04P->RPHRESMA|RPHWT1; 0480 01242000 L GPR14P,RPHRESMA(,GPR04P) 0480 01243000 O GPR14P,@CF01057 0480 01244000 * /*LOAD REG 14 WITH FLAG FIELD*/ 01245000 * /*AND MAKE CERTAIN WT/EXT */ 01246000 * /*CONTENTION FLAG STILL ON */ 01247000 * GPR15P=GPR14P|RPHPT1; 0481 01248000 LR GPR15P,GPR14P 0481 01249000 O GPR15P,@CF01061 0481 01250000 * /*LOAD REG 15 WITH FLAG FIELD*/ 01251000 * /*AND TURN POST FLAG ON */ 01252000 * CS (GPR14P,GPR15P,GPR04P->RPHRESMA); 0482 01253000 CS GPR14P,@15,RPHRESMA(GPR04P) 0482 01254000 * /*COMPARE REG 14 WITH FLAG */ 01255000 * /*FIELD--IF WT/EXT BIT ON, */ 01256000 * /*TURN ON POST FLAG */ 01257000 * BC (4,FMZL0040); 0483 01258000 BC 4,FMZL0040 0483 01259000 * /*IF WT/EXT BIT WAS OFF, LOOP*/ 01260000 * /*TO TEST CONTENTION FLAG */ 01261000 * BC (8,FMZT0040); 0484 01262000 BC 8,FMZT0040 0484 01263000 * /*IF WT/EXT BIT WAS OFF, */ 01264000 * /*BRANCH TO BYPASS CODE GEN */ 01265000 * END; /*IF POST FLAG IS ON, FALL*/ 01266000 * /*THRU BOTTOM OF LOOP */ 01267000 * ELSE; /*WT/EXT CONTENTION FLAG OFF*/ 01268000 @RF00478 DS 0H 0487 01269000 * GPR00F=0; /*SET REG 0 TO INDICATE ENA*/ 01270000 * 0487 01271000 SLR GPR00F,GPR00F 0487 01272000 * DO; /* LISATCVT CVTBASE(PAGEABLE,(GPR15P)) */ 01273000 * GPR15P = ATCLCPTR; /*SET UP ATCVT POINTER*/ 01274000 L GPR15P,ATCLCPTR 0489 01275000 * END; /*LISATCVT*/ 0490 01276000 * /*PUT POINTER TO ATCVT IN */ 01277000 * /* IN REG 15 */ 01278000 * CALL GPR15P->ATCAP32; 0491 01279000 L @11,ATCAP32(,GPR15P) 0491 01280000 LR @15,@11 0491 01281000 BALR @14,@15 0491 01282000 * /* CALL ISTAPC32: TPSCHED */ 01283000 *FMZT0040: 0492 01284000 * DO; /*MODESET KEYADDR(GPR06F) WORKREG(GPR05F)* 01285000 FMZT0040 DS 0H 0493 01286000 * GPR05F = GPR06F; /*GET KEY FORM SAVE LOCATION 01287000 */ SPKA (GPR05F); /*SET PSW KEY*/ 0493 01288000 LR GPR05F,GPR06F 0493 01289000 SPKA 0(GPR05F) 0494 01290000 * END; /*MODESET KEYADDR(GPR06F) WORKREG(GPR05F) 01291000 */ RESPECIFY (GPR00F,GPR01F,GPR04F,GPR05F,GPR06F 01292000 * GPR14F,GPR15F) UNRSTD; 0496 01293000 * /*UNRESTRICT REGS 0,1, */ 01294000 * /*4,5,14, AND 15 */ 01295000 * END; /****END OF TPPOST GENERATION****/ 0497 01296000 *ZNEXT:; 0498 01297000 ZNEXT DS 0H 0499 01298000 * RFY ISTRPH BASED(SAVREG1); /*@Z40GKTK*/ 01299000 * CRRREG=ADDR(RPHCRR->CRAPSS); /*CALLERS RPH-PSS CRR @Z40GKTK*/ 01300000 L CRRREG,RPHCRR(,SAVREG1) 0500 01301000 LA CRRREG,CRAPSS(,CRRREG) 0500 01302000 * LM(REG0,GPR15,APCSAVE); /*AFTER RELSTORE,CS,TPPOST@Z40GKTK*/ 01303000 LM REG0,GPR15,APCSAVE(CRRREG) 0501 01304000 * RFY ISTRPH BASED(POSTREG); /*@Z40GKTK*/ 01305000 * END DOW05; 0503 01306000 @DE00380 SLR @11,@11 0503 01307000 CR LASTREG,@11 0503 01308000 BNE @DL00380 0503 01309000 * GPR14=SAVREG1->SAVREG14; /*RESTORE REG14 */ 01310000 L GPR14,SAVREG14(,SAVREG1) 0504 01311000 * RPHREG=SAVREG1; /*RESTORE REG1 */ 01312000 LR RPHREG,SAVREG1 0505 01313000 * IF SSW14<0 /*LOCAL LOK OBT SW ON @Z30APGG*/ 01314000 * THEN 0506 01315000 CR SSW14,@11 0506 01316000 BNL @RF00506 0506 01317000 *TR12A: DO; 0507 01318000 TR12A DS 0H 0508 01319000 * RFY REG6 RSTD; 0508 01320000 * REG6=GPR12; /*@Z30APGG*/ 01321000 LR REG6,GPR12 0509 01322000 * RPHREG->SAVREG14=GPR14; /*SAVE RETURN REG @Z30APGG*/ 01323000 ST GPR14,SAVREG14(,RPHREG) 0510 01324000 */*REGS 11,12,13,14 ARE CORRUPTED BY SETLOCK @ZM32009*/ 0511 01325000 *UNLL: GEN CODE REFS(PSALITA,FLC,LKLOCAL); 0511 01326000 UNLL DS 0H 0511 01327000 SETLOCK RELEASE,TYPE=LOCAL,RELATED=(LOCAL,ISTAPC33(LKLOCAL)) 01328000 * GPR12=REG6; /*BASE REG RESTORED @Z30APGG*/ 01329000 LR GPR12,REG6 0512 01330000 * GPR14=RPHREG->SAVREG14; /*RETURN REG RESTORED @Z30APGG*/ 01331000 L GPR14,SAVREG14(,RPHREG) 0513 01332000 * RFY REG6 UNRSTD; 0514 01333000 * SSW14=-SSW14; /*NORMALIZE THE REG @Z30APGG*/ 01334000 LCR SSW14,SSW14 0515 01335000 * END TR12A; 0516 01336000 * ELSE; 0517 01337000 @RF00506 DS 0H 0518 01338000 * DO; /*MODESET KEYADDR(REG7)*/ 0518 01339000 * SPKA (REG7); /*SET PSW KEY*/ 0519 01340000 SPKA 0(REG7) 0519 01341000 * END; /*MODESET KEYADDR(REG7)*/ /*@ 01342000 *M32725*/ 0520 01343000 * RFY REG7 UNRSTD; 0521 01344000 * RETURN; 0522 01345000 B @EL00001 0522 01346000 * END ELS09; 0523 01347000 * END ELS07; 0524 01348000 @RC00312 DS 0H 0525 01349000 * END TR06; 0525 01350000 */*ELS06*/ ELSE; 0526 01351000 @RF00202 DS 0H 0527 01352000 * END TR05; 0527 01353000 */*ELS05*/ ELSE; 0528 01354000 @RF00200 DS 0H 0529 01355000 * CS (OLDREG,NEWREG,LOCKWORD); /*UNLOCK-NO QUE ACTION */ 01356000 CS OLDREG,@05,LOCKWORD(LOKREG) 0529 01357000 * BC (FAIL,RETRY); /*SWAP FALED-TRY AGAIN */ 01358000 BC 7,RETRY 0530 01359000 * CRALKACT=CRALKACT && LEVELREG; /*CLEAR LOK LEV BIT @Z30APGG*/ 01360000 L @11,CRALKACT(,CRAREG) 0531 01361000 XR @11,LEVELREG 0531 01362000 ST @11,CRALKACT(,CRAREG) 0531 01363000 * END ELS01; 0532 01364000 * RETURN; /*@Z40GKTK*/ 01365000 * 0533 01366000 B @EL00001 0533 01367000 * GEN(DC C'END ISTAPC3375.290'); 0534 01368000 * 0534 01369000 DC C'END ISTAPC3375.290' 01370000 */* TPEPILOG */ 0535 01371000 * GEN (PRINT OFF); 0535 01372000 * 0535 01373000 PRINT OFF 01374000 * GEN (PRINT ON); 0536 01375000 PRINT ON 01376000 */* END OF TPEPILOG */ 0537 01377000 * END ISTAPC33 0537 01378000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 01379000 */*%INCLUDE SYSLIB (CVT ) * 01380000 */*%INCLUDE SYSLIB (IHAPSA ) * 01381000 *; 0537 01382000 B @EL00001 0537 01383000 @DATA DS 0H 01384000 @DATD DSECT 01385000 DS 0F 01386000 ISTAPC33 CSECT 01387000 DS 0F 01388000 @CF00278 DC F'3' 01389000 @CF00052 DC F'4' 01390000 @CF00058 DC F'8' 01391000 @CF01057 DC XL4'08000000' 01392000 @CF01061 DC XL4'04000000' 01393000 @CF01074 DC XL4'00000001' 01394000 @CF01078 DC XL4'00FFFFFC' 01395000 @CF01080 DC XL4'01000000' 01396000 @CF01082 DC XL4'FF000000' 01397000 @CF02005 DC XL4'00000004' 01398000 @CF02044 DC XL4'7FFFFFFF' 01399000 @CF02081 DC XL4'FFFFFFEF' 01400000 @DATD DSECT 01401000 DS 0D 01402000 CVTPTR DS A 01403000 LCPBPTR DS A 01404000 LKLOCAL DS F 01405000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01406000 @ENDDATD EQU * 01407000 ISTAPC33 CSECT 01408000 DS 0F 01409000 @SIZDATD DC AL1(0) 01410000 DC AL3(@ENDDATD-@DATD) 01411000 DS 0D 01412000 ZERO DC F'0' 01413000 FMZA0024 DS FL4 01414000 ORG FMZA0024 01415000 @NM00055 DC AL1(0) 01416000 @NM00056 DC AL3(0) 01417000 ORG FMZA0024+4 01418000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01419000 @01 EQU 01 01420000 @02 EQU 02 01421000 @03 EQU 03 01422000 @04 EQU 04 01423000 @05 EQU 05 01424000 @06 EQU 06 01425000 @07 EQU 07 01426000 @08 EQU 08 01427000 @09 EQU 09 01428000 @10 EQU 10 01429000 @11 EQU 11 01430000 @12 EQU 12 01431000 @13 EQU 13 01432000 @14 EQU 14 01433000 @15 EQU 15 01434000 RPHPTR EQU @01 01435000 LEVELREG EQU @00 01436000 RPHREG EQU @01 01437000 POSTREG EQU @01 01438000 LOKREG EQU @02 01439000 GPR2 EQU @02 01440000 CRALXREG EQU @03 01441000 GPR3 EQU @03 01442000 CRAREG EQU @04 01443000 NEWREG EQU @05 01444000 CURREG EQU @08 01445000 OLDREG EQU @09 01446000 LASTREG EQU @10 01447000 PTRLOKRG EQU @10 01448000 GPR12 EQU @12 01449000 SAVREG1 EQU @13 01450000 GPR14 EQU @14 01451000 OLDLKPTR EQU @15 01452000 REG0 EQU @00 01453000 REG2 EQU @02 01454000 REG3 EQU @03 01455000 LEVEZREG EQU @05 01456000 CRRREG EQU @15 01457000 TEMPREG EQU @15 01458000 GPR15 EQU @15 01459000 SSW14 EQU @14 01460000 COMPREG EQU @06 01461000 SWAPREG EQU @07 01462000 R13LKRC EQU @13 01463000 REG6 EQU @06 01464000 REG7 EQU @07 01465000 GPR00F EQU @00 01466000 GPR01F EQU @01 01467000 GPR02F EQU @02 01468000 GPR02P EQU @02 01469000 GPR03F EQU @03 01470000 GPR03P EQU @03 01471000 GPR04F EQU @04 01472000 GPR04P EQU @04 01473000 GPR05F EQU @05 01474000 GPR05P EQU @05 01475000 GPR06F EQU @06 01476000 GPR14F EQU @14 01477000 GPR14P EQU @14 01478000 GPR15F EQU @15 01479000 GPR15P EQU @15 01480000 GPR00P EQU @00 01481000 GPR01P EQU @01 01482000 GPR06P EQU @06 01483000 GPR07F EQU @07 01484000 GPR07P EQU @07 01485000 GPR08F EQU @08 01486000 GPR08P EQU @08 01487000 GPR09F EQU @09 01488000 GPR09P EQU @09 01489000 GPR10F EQU @10 01490000 GPR10P EQU @10 01491000 GPR11F EQU @11 01492000 GPR11P EQU @11 01493000 GPR12F EQU @12 01494000 GPR12P EQU @12 01495000 GPR13F EQU @13 01496000 GPR13P EQU @13 01497000 PSA EQU 0 01498000 FLCRNPSW EQU PSA 01499000 FLCROPSW EQU PSA+8 01500000 FLCICCW2 EQU PSA+16 01501000 PSAEEPSW EQU PSA+132 01502000 PSAESPSW EQU PSA+136 01503000 FLCSVILC EQU PSAESPSW+1 01504000 PSAEPPSW EQU PSA+140 01505000 FLCPIILC EQU PSAEPPSW+1 01506000 FLCPICOD EQU PSAEPPSW+2 01507000 PSAPICOD EQU FLCPICOD+1 01508000 FLCTEA EQU PSAEPPSW+4 01509000 FLCPER EQU PSA+152 01510000 FLCMCLA EQU PSA+168 01511000 FLCIOEL EQU FLCMCLA+4 01512000 FLCIOA EQU FLCMCLA+16 01513000 FLCFSA EQU FLCMCLA+80 01514000 PSASUPER EQU PSA+552 01515000 PSASUP1 EQU PSASUPER 01516000 PSASUP2 EQU PSASUPER+1 01517000 PSASUP3 EQU PSASUPER+2 01518000 PSASUP4 EQU PSASUPER+3 01519000 PSACLHT EQU PSA+640 01520000 PSALKSA EQU PSA+696 01521000 PSAHLHI EQU PSA+760 01522000 PSALITA EQU PSA+764 01523000 PSADSSFL EQU PSA+836 01524000 PSADSSF1 EQU PSADSSFL 01525000 PSADSSF3 EQU PSADSSFL+2 01526000 PSADSSF4 EQU PSADSSFL+3 01527000 PSARSVT EQU PSA+896 01528000 ATCLCPTR EQU 1032 01529000 CVTMAP EQU 0 01530000 CVTDAR EQU CVTMAP+72 01531000 CVTFLGS1 EQU CVTDAR 01532000 CVTDCB EQU CVTMAP+116 01533000 CVTIERLC EQU CVTMAP+144 01534000 CVTOPTA EQU CVTMAP+182 01535000 CVTOPTB EQU CVTMAP+183 01536000 CVTGTF EQU CVTMAP+236 01537000 CVTGTFST EQU CVTGTF 01538000 CVTGTFS EQU CVTGTFST 01539000 CVTSTATE EQU CVTGTFST 01540000 CVTTMODE EQU CVTGTFST 01541000 CVTFORM EQU CVTGTFST 01542000 CVTAQAVT EQU CVTMAP+240 01543000 CVTTCMFG EQU CVTAQAVT 01544000 CVTVOLM2 EQU CVTMAP+244 01545000 CVTTATA EQU CVTVOLM2 01546000 CVTTSKS EQU CVTTATA 01547000 CVTVOLF2 EQU CVTTSKS 01548000 CVTTAT EQU CVTTATA+1 01549000 CVTATER EQU CVTMAP+248 01550000 CVTEXT1 EQU CVTMAP+252 01551000 CVTPURG EQU CVTMAP+260 01552000 CVTQMSG EQU CVTMAP+268 01553000 CVTDMSR EQU CVTMAP+272 01554000 CVTERPV EQU CVTMAP+316 01555000 CVTINTLA EQU CVTMAP+320 01556000 CVTAPF EQU CVTMAP+324 01557000 CVTEXT2 EQU CVTMAP+328 01558000 CVTHJES EQU CVTMAP+332 01559000 CVTPGSIA EQU CVTMAP+348 01560000 CVTA1F1 EQU CVTMAP+356 01561000 CVTSYSK EQU CVTMAP+357 01562000 CVTVOLM1 EQU CVTMAP+380 01563000 CVTVOLF1 EQU CVTVOLM1 01564000 CVTATMCT EQU CVTMAP+388 01565000 CVTXTNT1 EQU 0 01566000 CVTXTNT2 EQU 0 01567000 CVTDSSV EQU CVTXTNT2 01568000 CVTFLGBT EQU CVTXTNT2+5 01569000 CVTQID EQU CVTXTNT2+24 01570000 CVTSHS EQU CVTXTNT2+40 01571000 CVTRV400 EQU CVTXTNT2+52 01572000 CVTRV409 EQU CVTXTNT2+53 01573000 CVTATCVT EQU CVTXTNT2+64 01574000 CVTRV429 EQU CVTXTNT2+84 01575000 CVTRV438 EQU CVTXTNT2+85 01576000 CVTRV457 EQU CVTXTNT2+112 01577000 CVTRV466 EQU CVTXTNT2+113 01578000 CVTFIX EQU 0 01579000 CVTRELNO EQU CVTFIX+252 01580000 ISTRPH EQU 0 01581000 RPHCNTL EQU ISTRPH 01582000 RPHFLAGS EQU RPHCNTL+2 01583000 RPHAPTYP EQU RPHFLAGS 01584000 RPHFSTLC EQU RPHFLAGS 01585000 RPHFLGB EQU RPHCNTL+3 01586000 RPHPGCMP EQU RPHFLGB 01587000 RPHRPHA EQU ISTRPH+4 01588000 RPHTSKID EQU ISTRPH+8 01589000 RPHRESMA EQU ISTRPH+16 01590000 RPHWPFLG EQU RPHRESMA 01591000 RPHWT EQU RPHWPFLG 01592000 RPHPURGE EQU RPHWPFLG 01593000 RPHPABOF EQU ISTRPH+20 01594000 RPHMAJCB EQU ISTRPH+21 01595000 RPHWEA EQU ISTRPH+24 01596000 RPHCSPA EQU RPHWEA 01597000 RPHSRPRM EQU ISTRPH+28 01598000 RPHCRR EQU ISTRPH+32 01599000 RPHPABQA EQU ISTRPH+36 01600000 RPHWORK EQU ISTRPH+40 01601000 RPHSAVE1 EQU RPHWORK 01602000 RPHSBITS EQU RPHSAVE1+1 01603000 RPHSAV16 EQU RPHWORK+60 01604000 ISTLOK EQU 0 01605000 LOKCHN EQU ISTLOK+1 01606000 LOKCHNG EQU LOKCHN 01607000 @NM00031 EQU LOKCHNG+2 01608000 ISTLCCW EQU 0 01609000 LCCWOP EQU ISTLCCW 01610000 LCCWRWOP EQU LCCWOP 01611000 LCCWCTL EQU LCCWRWOP 01612000 LCCWFLAG EQU ISTLCCW+1 01613000 LCCWLSI EQU LCCWFLAG 01614000 ISTLCPB EQU 0 01615000 LCPREQTG EQU ISTLCPB+2 01616000 LCPFLAGS EQU LCPREQTG 01617000 LCPZF001 EQU LCPFLAGS 01618000 LCPZRT02 EQU LCPZF001 01619000 LCPZF002 EQU LCPFLAGS 01620000 LCPZRT03 EQU LCPZF002 01621000 LCPZF003 EQU LCPFLAGS 01622000 LCPZRT04 EQU LCPZF003 01623000 LCPZF004 EQU LCPFLAGS 01624000 LCPZRT05 EQU LCPZF004 01625000 LCPZRT06 EQU LCPFLAGS 01626000 LCPZRT07 EQU LCPFLAGS 01627000 LCPMNRCD EQU LCPREQTG+1 01628000 LCPZRT08 EQU LCPMNRCD 01629000 LCPZRT09 EQU LCPMNRCD 01630000 LCPCHAIN EQU ISTLCPB+4 01631000 LCPCHAI1 EQU LCPCHAIN 01632000 LCPRUCNT EQU ISTLCPB+8 01633000 LCPFLAG2 EQU ISTLCPB+9 01634000 LCPTLBPI EQU LCPFLAG2 01635000 LCPFID0 EQU LCPFLAG2 01636000 LCPSEQ EQU ISTLCPB+10 01637000 LCPCID EQU ISTLCPB+16 01638000 LCPFDBA EQU ISTLCPB+24 01639000 LCPFLG1 EQU ISTLCPB+37 01640000 LCPFLCCW EQU ISTLCPB+40 01641000 LCPLCCW EQU ISTLCPB+48 01642000 LCPPABA EQU LCPLCCW+4 01643000 LCPRPHA EQU LCPPABA 01644000 ISTZSAVE EQU 0 01645000 ZSAZSVBC EQU ISTZSAVE 01646000 ZSAZSVMS EQU ZSAZSVBC 01647000 ISTPFCRR EQU 0 01648000 PFCCRR EQU ISTPFCRR 01649000 PFCCRRID EQU PFCCRR 01650000 PFCCRRLN EQU PFCCRR+2 01651000 PFCHDR EQU ISTPFCRR+4 01652000 PFCCRRO EQU PFCHDR 01653000 PFCFRRO EQU PFCHDR+4 01654000 ISTCFCRR EQU 0 01655000 CFCAUDIT EQU ISTCFCRR 01656000 CFCNTRD EQU CFCAUDIT 01657000 CFCCRT EQU CFCAUDIT+1 01658000 ISTZCRR EQU 0 01659000 ZCRCRR EQU ISTZCRR 01660000 ZCRFLGS1 EQU ISTZCRR+12 01661000 ZCRFLGS2 EQU ISTZCRR+13 01662000 ZCRSWFLD EQU ISTZCRR+14 01663000 ZCRENDSH EQU ZCRSWFLD 01664000 ZCRNDLCP EQU ZCRSWFLD 01665000 ZCRRESET EQU ZCRSWFLD 01666000 ZCRFLGS3 EQU ISTZCRR+15 01667000 ZCRGENSW EQU ISTZCRR+16 01668000 ZCRPFLGS EQU ISTZCRR+17 01669000 ZCRIBPR EQU ISTZCRR+18 01670000 ZCRSCPSW EQU ISTZCRR+19 01671000 ZCRPARMS EQU ISTZCRR+24 01672000 ZCRFBPTR EQU ZCRPARMS 01673000 ZCRDFRDA EQU ZCRPARMS+10 01674000 ZCRPCOD1 EQU ZCRPARMS+12 01675000 ZCRPLSBF EQU ZCRPCOD1 01676000 ZCRPCOD2 EQU ZCRPARMS+13 01677000 ZCRSVRTN EQU ISTZCRR+56 01678000 ZCRWKARA EQU ISTZCRR+156 01679000 ZCRCIDSV EQU ISTZCRR+192 01680000 ZCRAUDIT EQU ISTZCRR+440 01681000 ZCRENTER EQU ZCRAUDIT+5 01682000 ZCRLCPB EQU ISTZCRR+480 01683000 ZCRRHRU EQU ZCRLCPB 01684000 ISTASCRR EQU 0 01685000 ASCFLAGS EQU ISTASCRR+16 01686000 ASCFLG1 EQU ASCFLAGS 01687000 ASCFLG2 EQU ASCFLAGS+2 01688000 ASCFLG3 EQU ASCFLAGS+4 01689000 ASCUSRGS EQU ISTASCRR+28 01690000 ISTAPCRR EQU 0 01691000 APCATFLG EQU ISTAPCRR+16 01692000 APCRFLG EQU ISTAPCRR+18 01693000 APCSAVE EQU ISTAPCRR+44 01694000 APCCOMF EQU ISTAPCRR+116 01695000 APCCOMF1 EQU APCCOMF 01696000 APC31FLG EQU ISTAPCRR+132 01697000 APC52FLG EQU ISTAPCRR+133 01698000 APC53FLG EQU ISTAPCRR+134 01699000 APC54FLG EQU ISTAPCRR+135 01700000 APC57FLG EQU ISTAPCRR+136 01701000 ISTCRA EQU 0 01702000 CRABASIC EQU ISTCRA 01703000 CRAHDR EQU CRABASIC 01704000 CRALKACT EQU CRABASIC+8 01705000 CRAL1PTR EQU CRABASIC+12 01706000 CRAPSS EQU ISTCRA+160 01707000 CRASVC EQU ISTCRA+848 01708000 CRABUFA EQU CRASVC+68 01709000 LOKPTRWD EQU 0 01710000 LOCKWORD EQU 0 01711000 APC33 EQU 0 01712000 ISTPAB EQU 0 01713000 PABWQCHN EQU ISTPAB 01714000 PABWEQA EQU PABWQCHN 01715000 PABCHAIN EQU PABWQCHN+4 01716000 PABRPHFG EQU ISTPAB+12 01717000 PABFLAGS EQU PABRPHFG 01718000 PABERLCK EQU PABFLAGS 01719000 PABERRLK EQU PABERLCK 01720000 ISTDYPAB EQU 0 01721000 ISTAVT EQU 0 01722000 ISTAS49 EQU ISTAVT+4 01723000 ISTATCVT EQU 0 01724000 ATCCOM EQU ISTATCVT 01725000 ATCSTAT EQU ATCCOM 01726000 ATCSTAT1 EQU ATCSTAT 01727000 ATCSTFLG EQU ATCSTAT+1 01728000 ATCPOFLG EQU ATCSTAT+2 01729000 ATCSTAT4 EQU ATCSTAT+3 01730000 ATCBPDA EQU ATCCOM+128 01731000 ATCIOTRC EQU ATCCOM+140 01732000 ATCTHTRC EQU ATCIOTRC 01733000 ATCSMRS EQU ATCCOM+188 01734000 ATCCSMR EQU ISTATCVT+296 01735000 ATCSHRFG EQU ISTATCVT+316 01736000 ATCHPGM EQU ISTATCVT+384 01737000 ATCAP33 EQU ISTATCVT+444 01738000 ATCVLCNT EQU ISTATCVT+772 01739000 ATCRNO EQU ISTATCVT+788 01740000 ATCSOPD EQU ISTATCVT+792 01741000 ATCSIPD EQU ISTATCVT+800 01742000 ATCSECST EQU ISTATCVT+812 01743000 ATCSTAT2 EQU ISTATCVT+818 01744000 @NM00052 EQU ISTATCVT+911 01745000 ATCAOSM EQU ISTATCVT+912 01746000 ATCGSRBQ EQU ATCAOSM+4 01747000 ATCGSRBG EQU ATCGSRBQ 01748000 ATCAP32 EQU ATCAOSM+28 01749000 ATCICAPP EQU ATCAOSM+100 01750000 ATCLDAPP EQU ATCAOSM+120 01751000 ATCDAPVT EQU ATCAOSM+140 01752000 ATCVTFLG EQU ATCAOSM+392 01753000 ATCZFLAG EQU ATCAOSM+588 01754000 FMZL0024 EQU 0 01755000 CVTS01 EQU CVTPGSIA 01756000 CVTLPDIA EQU CVTS01+12 01757000 CVTDIRST EQU CVTLPDIA 01758000 CVTSLIDA EQU CVTS01+24 01759000 CVTCTLFG EQU CVTS01+50 01760000 CVTRV210 EQU CVTS01+424 01761000 CVTRV219 EQU CVTS01+425 01762000 CVTRV228 EQU CVTS01+426 01763000 CVTRV237 EQU CVTS01+427 01764000 CVTMFRTR EQU CVTS01+452 01765000 CVTRV262 EQU CVTS01+468 01766000 CVTRV271 EQU CVTS01+469 01767000 CVTRV280 EQU CVTS01+470 01768000 CVTRV289 EQU CVTS01+471 01769000 CVTGSDA EQU CVTS01+600 01770000 FLC EQU PSA 01771000 PSARSVTE EQU PSARSVT 01772000 LCPZTIE EQU LCPCID 01773000 LCPZSNAM EQU LCPZTIE+8 01774000 RETCODE EQU RPHSAV16 01775000 SAVREG14 EQU RPHSAV16 01776000 ZSAVE EQU APCSAVE 01777000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01778000 LCPZTRV4 EQU LCPZSNAM+4 01779000 LCPZTRV1 EQU LCPZSNAM 01780000 LCPZSNA EQU LCPZTIE+4 01781000 LCPZFMCA EQU LCPZTIE 01782000 PSARSAV EQU PSARSVTE+60 01783000 PSARSTK EQU PSARSVTE+56 01784000 PSAESAV3 EQU PSARSVTE+52 01785000 PSAESTK3 EQU PSARSVTE+48 01786000 PSAESAV2 EQU PSARSVTE+44 01787000 PSAESTK2 EQU PSARSVTE+40 01788000 PSAESAV1 EQU PSARSVTE+36 01789000 PSAESTK1 EQU PSARSVTE+32 01790000 PSAPSAV EQU PSARSVTE+28 01791000 PSAPSTK EQU PSARSVTE+24 01792000 PSAMSAV EQU PSARSVTE+20 01793000 PSAMSTK EQU PSARSVTE+16 01794000 PSASSAV EQU PSARSVTE+12 01795000 PSASSTK EQU PSARSVTE+8 01796000 PSANSTK EQU PSARSVTE+4 01797000 PSACSTK EQU PSARSVTE 01798000 CVTRV628 EQU CVTS01+728 01799000 CVTRV627 EQU CVTS01+724 01800000 CVTRV626 EQU CVTS01+720 01801000 CVTRV625 EQU CVTS01+716 01802000 CVTRV624 EQU CVTS01+712 01803000 CVTRV623 EQU CVTS01+708 01804000 CVTRV622 EQU CVTS01+704 01805000 CVTRV621 EQU CVTS01+700 01806000 CVTRV620 EQU CVTS01+696 01807000 CVTSUSP EQU CVTS01+692 01808000 CVTT6SVC EQU CVTS01+688 01809000 CVTCDAL EQU CVTS01+684 01810000 CVTTCTL EQU CVTS01+680 01811000 CVTRSUME EQU CVTS01+676 01812000 CVTJTERM EQU CVTS01+672 01813000 CVTASMRM EQU CVTS01+668 01814000 CVTTCASP EQU CVTS01+664 01815000 CVT0PT03 EQU CVTS01+660 01816000 CVT0PT0E EQU CVTS01+656 01817000 CVTIRM EQU CVTS01+652 01818000 CVTCGK EQU CVTS01+648 01819000 CVTRAC EQU CVTS01+644 01820000 CVTRV606 EQU CVTS01+640 01821000 CVTRV605 EQU CVTS01+636 01822000 CVTRV604 EQU CVTS01+632 01823000 CVTEFF02 EQU CVTS01+628 01824000 CVTCBBR EQU CVTS01+624 01825000 CVTSSCR EQU CVTS01+620 01826000 CVTEVENT EQU CVTS01+616 01827000 CVTCRCA EQU CVTS01+612 01828000 CVTTPIO EQU CVTS01+608 01829000 CVTADV EQU CVTS01+604 01830000 CVTGSDAB EQU CVTGSDA 01831000 CVTQV3 EQU CVTS01+596 01832000 CVTQV2 EQU CVTS01+592 01833000 CVTQV1 EQU CVTS01+588 01834000 CVTRPT EQU CVTS01+584 01835000 CVTSSRB EQU CVTS01+580 01836000 CVTCSDRL EQU CVTS01+576 01837000 CVTEXP1 EQU CVTS01+572 01838000 CVTRMPMT EQU CVTS01+568 01839000 CVTRMPTT EQU CVTS01+564 01840000 CVTVPSA EQU CVTS01+560 01841000 CVTVSTOP EQU CVTS01+556 01842000 CVTGTFR8 EQU CVTS01+552 01843000 CVTQUIT EQU CVTS01+548 01844000 CVTVACR EQU CVTS01+544 01845000 CVTWTCB EQU CVTS01+540 01846000 CVTSTPRS EQU CVTS01+536 01847000 CVT0PT02 EQU CVTS01+532 01848000 CVTDARCM EQU CVTS01+528 01849000 CVTIRECM EQU CVTS01+524 01850000 CVTJRECM EQU CVTS01+520 01851000 CVTVEMS0 EQU CVTS01+516 01852000 CVTSPFRR EQU CVTS01+512 01853000 CVTRLSTG EQU CVTS01+508 01854000 CVT0TC0A EQU CVTS01+504 01855000 CVTGMBR EQU CVTS01+500 01856000 CVTLFRM EQU CVTS01+496 01857000 CVTRMBR EQU CVTS01+492 01858000 CVTVIOP EQU CVTS01+488 01859000 CVTRV307 EQU CVTS01+486 01860000 CVTRV306 EQU CVTS01+484 01861000 CVTRV305 EQU CVTS01+482 01862000 CVTRV304 EQU CVTS01+480 01863000 CVTRV303 EQU CVTS01+478 01864000 CVTRV302 EQU CVTS01+476 01865000 CVTTRCA EQU CVTS01+472 01866000 CVTRV297 EQU CVTRV289 01867000 CVTRV296 EQU CVTRV289 01868000 CVTRV295 EQU CVTRV289 01869000 CVTRV294 EQU CVTRV289 01870000 CVTRV293 EQU CVTRV289 01871000 CVTRV292 EQU CVTRV289 01872000 CVTRV291 EQU CVTRV289 01873000 CVTRV290 EQU CVTRV289 01874000 CVTRV288 EQU CVTRV280 01875000 CVTRV287 EQU CVTRV280 01876000 CVTRV286 EQU CVTRV280 01877000 CVTRV285 EQU CVTRV280 01878000 CVTRV284 EQU CVTRV280 01879000 CVTRV283 EQU CVTRV280 01880000 CVTRV282 EQU CVTRV280 01881000 CVTRV281 EQU CVTRV280 01882000 CVTRV279 EQU CVTRV271 01883000 CVTRV278 EQU CVTRV271 01884000 CVTRV277 EQU CVTRV271 01885000 CVTRV276 EQU CVTRV271 01886000 CVTRV275 EQU CVTRV271 01887000 CVTRV274 EQU CVTRV271 01888000 CVTRV273 EQU CVTRV271 01889000 CVTRV272 EQU CVTRV271 01890000 CVTRV270 EQU CVTRV262 01891000 CVTRV269 EQU CVTRV262 01892000 CVTRV268 EQU CVTRV262 01893000 CVTRV267 EQU CVTRV262 01894000 CVTRV266 EQU CVTRV262 01895000 CVTRV265 EQU CVTRV262 01896000 CVTRV264 EQU CVTRV262 01897000 CVTRV263 EQU CVTRV262 01898000 CVTVFP EQU CVTS01+464 01899000 CVTVSI EQU CVTS01+460 01900000 CVTVPSIB EQU CVTS01+456 01901000 CVTMFACT EQU CVTMFRTR 01902000 CVTMFCTL EQU CVTS01+448 01903000 CVTPVBP EQU CVTS01+444 01904000 CVTPWI EQU CVTS01+440 01905000 CVTRV254 EQU CVTS01+438 01906000 CVTRV253 EQU CVTS01+436 01907000 CVTRV252 EQU CVTS01+434 01908000 CVTRV251 EQU CVTS01+433 01909000 CVTRV250 EQU CVTS01+432 01910000 CVTRV249 EQU CVTS01+431 01911000 CVTRV248 EQU CVTS01+430 01912000 CVTRV247 EQU CVTS01+429 01913000 CVTRV246 EQU CVTS01+428 01914000 CVTRV245 EQU CVTRV237 01915000 CVTRV244 EQU CVTRV237 01916000 CVTRV243 EQU CVTRV237 01917000 CVTRV242 EQU CVTRV237 01918000 CVTRV241 EQU CVTRV237 01919000 CVTRV240 EQU CVTRV237 01920000 CVTRV239 EQU CVTRV237 01921000 CVTRV238 EQU CVTRV237 01922000 CVTRV236 EQU CVTRV228 01923000 CVTRV235 EQU CVTRV228 01924000 CVTRV234 EQU CVTRV228 01925000 CVTRV233 EQU CVTRV228 01926000 CVTRV232 EQU CVTRV228 01927000 CVTRV231 EQU CVTRV228 01928000 CVTRV230 EQU CVTRV228 01929000 CVTRV229 EQU CVTRV228 01930000 CVTRV227 EQU CVTRV219 01931000 CVTRV226 EQU CVTRV219 01932000 CVTRV225 EQU CVTRV219 01933000 CVTRV224 EQU CVTRV219 01934000 CVTRV223 EQU CVTRV219 01935000 CVTRV222 EQU CVTRV219 01936000 CVTRV221 EQU CVTRV219 01937000 CVTRV220 EQU CVTRV219 01938000 CVTRV218 EQU CVTRV210 01939000 CVTRV217 EQU CVTRV210 01940000 CVTRV216 EQU CVTRV210 01941000 CVTRV215 EQU CVTRV210 01942000 CVTRV214 EQU CVTRV210 01943000 CVTRV213 EQU CVTRV210 01944000 CVTRV212 EQU CVTRV210 01945000 CVTRV211 EQU CVTRV210 01946000 CVTLCCAT EQU CVTS01+420 01947000 CVTPCCAT EQU CVTS01+416 01948000 CVTIPCRP EQU CVTS01+412 01949000 CVTIPCRI EQU CVTS01+408 01950000 CVTIPCDS EQU CVTS01+404 01951000 CVTAIDVT EQU CVTS01+400 01952000 CVTSSAP EQU CVTS01+396 01953000 CVTEHCIR EQU CVTS01+392 01954000 CVTEHDEF EQU CVTS01+388 01955000 CVTDAIR EQU CVTS01+384 01956000 CVTPERFM EQU CVTS01+380 01957000 CVT044R2 EQU CVTS01+376 01958000 CVTFETCH EQU CVTS01+372 01959000 CVTRSTWD EQU CVTS01+368 01960000 CVTSPOST EQU CVTS01+364 01961000 CVTIOBP EQU CVTS01+360 01962000 CVTASMVT EQU CVTS01+356 01963000 CVTRECRQ EQU CVTS01+352 01964000 CVTWSAC EQU CVTS01+348 01965000 CVTRV149 EQU CVTS01+344 01966000 CVTWSAL EQU CVTS01+340 01967000 CVTSPSA EQU CVTS01+336 01968000 CVTGLMN EQU CVTS01+332 01969000 CVTVEAC0 EQU CVTS01+328 01970000 CVT062R1 EQU CVTS01+324 01971000 CVTRPOST EQU CVTS01+320 01972000 CVTDQIQE EQU CVTS01+316 01973000 CVTCSD EQU CVTS01+312 01974000 CVTLKRMA EQU CVTS01+308 01975000 CVTRSPIE EQU CVTS01+304 01976000 CVTRENQ EQU CVTS01+300 01977000 CVTLQCB EQU CVTS01+296 01978000 CVTFQCB EQU CVTS01+292 01979000 CVTQCS01 EQU CVTS01+288 01980000 CVTAPFT EQU CVTS01+284 01981000 CVTPARRL EQU CVTS01+280 01982000 CVTVWAIT EQU CVTS01+276 01983000 CVTGSPL EQU CVTS01+272 01984000 CVTLSMQ EQU CVTS01+268 01985000 CVTGSMQ EQU CVTS01+264 01986000 CVTEXPRO EQU CVTS01+260 01987000 CVTOPCTP EQU CVTS01+256 01988000 CVTSIC EQU CVTS01+252 01989000 CVTTPIOS EQU CVTS01+248 01990000 CVTRTMS EQU CVTS01+244 01991000 CVTSDBF EQU CVTS01+240 01992000 CVTSCBP EQU CVTS01+236 01993000 CVTSDMP EQU CVTS01+232 01994000 CVTSV60 EQU CVTS01+228 01995000 CVTRTMCT EQU CVTS01+224 01996000 CVTASCBL EQU CVTS01+220 01997000 CVTASCBH EQU CVTS01+216 01998000 CVTGDA EQU CVTS01+212 01999000 CVTASVT EQU CVTS01+208 02000000 CVTVVMDI EQU CVTS01+204 02001000 CVTAQTOP EQU CVTS01+200 02002000 CVTIOSCS EQU CVTS01+196 02003000 CVTSDRM EQU CVTS01+192 02004000 CVTOPTE EQU CVTS01+188 02005000 CVTSTXU EQU CVTS01+184 02006000 CVTQUIS EQU CVTS01+180 02007000 CVTPARS EQU CVTS01+176 02008000 CVTS1EE EQU CVTS01+172 02009000 CVTFRAS EQU CVTS01+168 02010000 CVTQSAS EQU CVTS01+164 02011000 CVTCRAS EQU CVTS01+160 02012000 CVTCRMN EQU CVTS01+156 02013000 CVTDELCP EQU CVTS01+152 02014000 CVTFRECL EQU CVTS01+148 02015000 CVTGETCL EQU CVTS01+144 02016000 CVTBLDCP EQU CVTS01+140 02017000 CVTAUTHL EQU CVTS01+136 02018000 CVTSCAN EQU CVTS01+132 02019000 CVTRV144 EQU CVTS01+130 02020000 CVTMAXMP EQU CVTS01+128 02021000 CVTSTCK EQU CVTS01+124 02022000 CVTRV139 EQU CVTS01+123 02023000 CVTDSSAC EQU CVTS01+122 02024000 CVTRV513 EQU CVTS01+121 02025000 CVTIOSPL EQU CVTS01+120 02026000 CVTPTGT EQU CVTS01+116 02027000 CVTCSPIE EQU CVTS01+112 02028000 CVTSMFEX EQU CVTS01+108 02029000 CVTOLT0A EQU CVTS01+104 02030000 CVTSRBRT EQU CVTS01+100 02031000 CVTPUTL EQU CVTS01+96 02032000 CVTASCRL EQU CVTS01+92 02033000 CVTASCRF EQU CVTS01+88 02034000 CVTRV326 EQU CVTS01+84 02035000 CVTRV325 EQU CVTS01+80 02036000 CVTRV324 EQU CVTS01+76 02037000 CVT0VL01 EQU CVTS01+72 02038000 CVTSHRVM EQU CVTS01+68 02039000 CVTRV332 EQU CVTS01+64 02040000 CVTTAS EQU CVTS01+60 02041000 CVTRSCN EQU CVTS01+56 02042000 CVTTRAC2 EQU CVTS01+54 02043000 CVTTRACE EQU CVTS01+52 02044000 CVTAPG EQU CVTS01+51 02045000 CVTSDTRC EQU CVTCTLFG 02046000 CVTGTRCE EQU CVTCTLFG 02047000 CVTNOMP EQU CVTCTLFG 02048000 CVTRSV79 EQU CVTCTLFG 02049000 CVTDSTAT EQU CVTCTLFG 02050000 CVTRSV78 EQU CVTCTLFG 02051000 CVTRV333 EQU CVTCTLFG 02052000 CVTRV323 EQU CVTCTLFG 02053000 CVTSPVLK EQU CVTS01+49 02054000 CVTRSV77 EQU CVTS01+48 02055000 CVTRV331 EQU CVTS01+44 02056000 CVTRV330 EQU CVTS01+40 02057000 CVTRV329 EQU CVTS01+36 02058000 CVTRV328 EQU CVTS01+32 02059000 CVTRV322 EQU CVTS01+28 02060000 CVTSLID EQU CVTSLIDA+1 02061000 CVTSYLK EQU CVTSLIDA 02062000 CVTRV321 EQU CVTS01+20 02063000 CVTRV320 EQU CVTS01+16 02064000 CVTLPDIR EQU CVTLPDIA+1 02065000 CVTRSV69 EQU CVTDIRST 02066000 CVTRSV68 EQU CVTDIRST 02067000 CVTRSV67 EQU CVTDIRST 02068000 CVTRSV66 EQU CVTDIRST 02069000 CVTRSV65 EQU CVTDIRST 02070000 CVTRSV64 EQU CVTDIRST 02071000 CVTRSV63 EQU CVTDIRST 02072000 CVTDICOM EQU CVTDIRST 02073000 CVTPVTP EQU CVTS01+8 02074000 CVTLPDSR EQU CVTS01+4 02075000 CVTGETL EQU CVTS01 02076000 ATCAOS EQU ISTATCVT+1584 02077000 ATCPOPAB EQU ATCAOSM+640 02078000 ATCVIOPM EQU ATCAOSM+636 02079000 ATCTPMMI EQU ATCAOSM+632 02080000 ATCTPMPB EQU ATCAOSM+600 02081000 ATCRSV88 EQU ATCAOSM+596 02082000 ATCRPLCT EQU ATCAOSM+594 02083000 ATCCRACT EQU ATCAOSM+592 02084000 ATCSRBCT EQU ATCAOSM+590 02085000 ATCRSV75 EQU ATCAOSM+589 02086000 ATCRSV66 EQU ATCZFLAG 02087000 ATCZF001 EQU ATCZFLAG 02088000 ATCTPCP1 EQU ATCAOSM+584 02089000 ATCTPCP0 EQU ATCAOSM+580 02090000 ATCAICTN EQU ATCAOSM+576 02091000 ATCZR01 EQU ATCAOSM+572 02092000 ATCMPLTA EQU ATCAOSM+568 02093000 ATCASCB EQU ATCAOSM+564 02094000 ATCAP86 EQU ATCAOSM+560 02095000 ATCAP85 EQU ATCAOSM+556 02096000 ATCAP84 EQU ATCAOSM+552 02097000 ATCAP83 EQU ATCAOSM+548 02098000 ATCAP82 EQU ATCAOSM+544 02099000 ATCAP69 EQU ATCAOSM+540 02100000 ATCAP66 EQU ATCAOSM+536 02101000 ATCAP62 EQU ATCAOSM+532 02102000 ATCAPC59 EQU ATCAOSM+528 02103000 ATCAP56 EQU ATCAOSM+524 02104000 ATCAP55 EQU ATCAOSM+520 02105000 ATCRCFY0 EQU ATCAOSM+516 02106000 ATCAP41 EQU ATCAOSM+512 02107000 ATCAPC25 EQU ATCAOSM+508 02108000 ATCAP23 EQU ATCAOSM+504 02109000 ATCTPSPB EQU ATCAOSM+472 02110000 ATCTRMPB EQU ATCAOSM+440 02111000 ATCAPBE EQU ATCAOSM+436 02112000 ATCPSTA EQU ATCAOSM+432 02113000 ATCSMABF EQU ATCAOSM+428 02114000 ATCSMAPR EQU ATCAOSM+424 02115000 ATCTPWQA EQU ATCAOSM+420 02116000 ATCSMAID EQU ATCAOSM+416 02117000 ATCSMARA EQU ATCAOSM+412 02118000 ATCCACXA EQU ATCAOSM+408 02119000 ATCZLAAB EQU ATCAOSM+404 02120000 ATCATA10 EQU ATCAOSM+400 02121000 ATCHLTCB EQU ATCAOSM+396 02122000 @NM00054 EQU ATCVTFLG 02123000 ATCVTACT EQU ATCVTFLG 02124000 ATCRPT40 EQU ATCAOSM+388 02125000 ATCRPT39 EQU ATCAOSM+384 02126000 ATCRPT38 EQU ATCAOSM+380 02127000 ATCRPT37 EQU ATCAOSM+376 02128000 ATCRPT36 EQU ATCAOSM+372 02129000 ATCRPT35 EQU ATCAOSM+368 02130000 ATCRPT34 EQU ATCAOSM+364 02131000 ATCRPT33 EQU ATCAOSM+360 02132000 ATCRPT32 EQU ATCAOSM+356 02133000 ATCRPT31 EQU ATCAOSM+352 02134000 ATCRPT30 EQU ATCAOSM+348 02135000 ATCRPT29 EQU ATCAOSM+344 02136000 ATCRPT28 EQU ATCAOSM+340 02137000 ATCRPT27 EQU ATCAOSM+336 02138000 ATCRPT26 EQU ATCAOSM+332 02139000 ATCRPT25 EQU ATCAOSM+328 02140000 ATCRPT24 EQU ATCAOSM+324 02141000 ATCRPT23 EQU ATCAOSM+320 02142000 ATCRPT22 EQU ATCAOSM+316 02143000 ATCRPT21 EQU ATCAOSM+312 02144000 ATCRPT20 EQU ATCAOSM+308 02145000 ATCRPT19 EQU ATCAOSM+304 02146000 ATCRPT18 EQU ATCAOSM+300 02147000 ATCRPT17 EQU ATCAOSM+296 02148000 ATCRPT16 EQU ATCAOSM+292 02149000 ATCRPT15 EQU ATCAOSM+288 02150000 ATCRPT14 EQU ATCAOSM+284 02151000 ATCRPT13 EQU ATCAOSM+280 02152000 ATCRPT12 EQU ATCAOSM+276 02153000 ATCDMAPP EQU ATCAOSM+272 02154000 ATCAP38 EQU ATCAOSM+268 02155000 ATCAP37 EQU ATCAOSM+264 02156000 ATCZDFJ0 EQU ATCAOSM+260 02157000 ATCAP51 EQU ATCAOSM+256 02158000 ATCZPAB2 EQU ATCAOSM+224 02159000 ATCZPAB1 EQU ATCAOSM+192 02160000 ATCZLFVT EQU ATCAOSM+188 02161000 ATCZLPVT EQU ATCAOSM+184 02162000 ATCZDVTX EQU ATCAOSM+180 02163000 ATCZDVTA EQU ATCAOSM+176 02164000 ATCZDVT9 EQU ATCAOSM+172 02165000 ATCZDVT8 EQU ATCAOSM+168 02166000 ATCZDVT7 EQU ATCAOSM+164 02167000 ATCRSV56 EQU ATCDAPVT+22 02168000 ATCDAPDG EQU ATCDAPVT+20 02169000 ATCDXCEA EQU ATCDAPVT+16 02170000 ATCDCEA EQU ATCDAPVT+12 02171000 ATCDPCIA EQU ATCDAPVT+8 02172000 ATCDSIOA EQU ATCDAPVT+4 02173000 ATCDEOEA EQU ATCDAPVT 02174000 ATCZLAEA EQU ATCLDAPP+16 02175000 ATCZLCEA EQU ATCLDAPP+12 02176000 ATCRSV17 EQU ATCLDAPP+8 02177000 ATCSMFRR EQU ATCLDAPP+4 02178000 ATCCDTID EQU ATCLDAPP 02179000 ATCZAEA EQU ATCICAPP+16 02180000 ATCZCEA EQU ATCICAPP+12 02181000 ATCCDTCB EQU ATCICAPP+8 02182000 ATCZSIOA EQU ATCICAPP+4 02183000 ATCCDRPH EQU ATCICAPP 02184000 ATCAP65 EQU ATCAOSM+96 02185000 ATCZDVT6 EQU ATCAOSM+92 02186000 ATCZDVT4 EQU ATCAOSM+88 02187000 ATCZDVT3 EQU ATCAOSM+84 02188000 ATCZDVT1 EQU ATCAOSM+80 02189000 ATCICNCB EQU ATCAOSM+76 02190000 ATCZPSVT EQU ATCAOSM+72 02191000 ATCZFSVT EQU ATCAOSM+68 02192000 ATCAP64 EQU ATCAOSM+64 02193000 ATCAP63 EQU ATCAOSM+60 02194000 ATCAP61 EQU ATCAOSM+56 02195000 ATCAP58 EQU ATCAOSM+52 02196000 ATCAP57 EQU ATCAOSM+48 02197000 ATCAP54 EQU ATCAOSM+44 02198000 ATCAP53 EQU ATCAOSM+40 02199000 ATCAP52 EQU ATCAOSM+36 02200000 ATCAP34 EQU ATCAOSM+32 02201000 ATCAP31 EQU ATCAOSM+24 02202000 ATCAP12 EQU ATCAOSM+20 02203000 ATCAP11 EQU ATCAOSM+16 02204000 ATCCMTCB EQU ATCAOSM+12 02205000 ATCPRPH EQU ATCAOSM+8 02206000 ATCGSRBF EQU ATCGSRBG 02207000 ATCSRBRT EQU ATCAOSM 02208000 @NM00053 EQU @NM00052 02209000 ATCVTMAB EQU @NM00052 02210000 @NM00051 EQU ISTATCVT+908 02211000 ATCVDLOK EQU ISTATCVT+904 02212000 ATCVFPAB EQU ISTATCVT+872 02213000 ATCVDPAB EQU ISTATCVT+840 02214000 ATCIOECB EQU ISTATCVT+836 02215000 ATCINCW3 EQU ISTATCVT+832 02216000 ATCMODTB EQU ISTATCVT+828 02217000 ATCUSSPT EQU ISTATCVT+824 02218000 ATCSRTAB EQU ISTATCVT+820 02219000 @NM00050 EQU ISTATCVT+819 02220000 @NM00049 EQU ATCSTAT2 02221000 ATCTRSMS EQU ATCSTAT2 02222000 ATCTRLOK EQU ATCSTAT2 02223000 ATCTRPSS EQU ATCSTAT2 02224000 ATCTRESC EQU ATCSTAT2 02225000 ATCTRAPI EQU ATCSTAT2 02226000 ATCNMCTR EQU ISTATCVT+816 02227000 ATCSEC51 EQU ATCSECST 02228000 ATCSEC40 EQU ATCSIPD+8 02229000 ATCSEC30 EQU ATCSIPD+4 02230000 ATCSEC21 EQU ATCSIPD 02231000 ATCSEC10 EQU ATCSOPD+4 02232000 ATCSEC01 EQU ATCSOPD 02233000 ATCPOIA EQU ATCRNO+1 02234000 @NM00048 EQU ATCRNO 02235000 ATCPODVT EQU ISTATCVT+784 02236000 ATCS49XL EQU ISTATCVT+780 02237000 ATCS49XI EQU ISTATCVT+776 02238000 ATCLCLCT EQU ATCVLCNT+2 02239000 ATCRNCNT EQU ATCVLCNT 02240000 ATCCFEAD EQU ISTATCVT+768 02241000 ATCPTR00 EQU ISTATCVT+736 02242000 ATCRSV10 EQU ISTATCVT+704 02243000 ATCTACB EQU ISTATCVT+700 02244000 ATCVTINM EQU ISTATCVT+696 02245000 ATCTCLIM EQU ISTATCVT+692 02246000 ATCTCLOM EQU ISTATCVT+688 02247000 ATCVTIPB EQU ISTATCVT+656 02248000 ATCTCIPB EQU ISTATCVT+624 02249000 ATCTIPAB EQU ISTATCVT+592 02250000 ATCOCCCB EQU ISTATCVT+588 02251000 ATCOCCOB EQU ISTATCVT+584 02252000 ATCCDLAD EQU ISTATCVT+580 02253000 ATCCCLAD EQU ISTATCVT+576 02254000 ATCDLRPB EQU ISTATCVT+544 02255000 ATCPGPAB EQU ISTATCVT+512 02256000 ATCVPAB1 EQU ISTATCVT+480 02257000 ATCRSV97 EQU ISTATCVT+476 02258000 ATCRDTLK EQU ISTATCVT+472 02259000 ATCVOCLK EQU ISTATCVT+468 02260000 ATCCDFDN EQU ISTATCVT+464 02261000 ATCCDFIN EQU ISTATCVT+460 02262000 ATCDVTLK EQU ISTATCVT+456 02263000 ATCAP36 EQU ISTATCVT+452 02264000 ATCAP35 EQU ISTATCVT+448 02265000 ATCRSV99 EQU ISTATCVT+440 02266000 ATCONFIG EQU ISTATCVT+432 02267000 ATCNODDS EQU ISTATCVT+428 02268000 ATCNODEL EQU ISTATCVT+420 02269000 ATCRSV69 EQU ISTATCVT+416 02270000 ATCAPCR5 EQU ISTATCVT+412 02271000 ATCLDECB EQU ISTATCVT+408 02272000 ATCLDNCS EQU ISTATCVT+404 02273000 ATCCDPTR EQU ISTATCVT+400 02274000 ATCADEL EQU ISTATCVT+396 02275000 ATCTODVT EQU ISTATCVT+392 02276000 ATCDEBCH EQU ISTATCVT+388 02277000 ATCHBSIZ EQU ATCHPGM+2 02278000 ATCHBFNO EQU ATCHPGM 02279000 ATCCRME EQU ISTATCVT+380 02280000 ATCRVCHS EQU ISTATCVT+372 02281000 ATCECTLP EQU ISTATCVT+368 02282000 ATCZDVTB EQU ISTATCVT+364 02283000 ATCECPRT EQU ISTATCVT+360 02284000 ATCVTLOD EQU ISTATCVT+356 02285000 ATCTRPAB EQU ISTATCVT+352 02286000 ATCMSGM EQU ISTATCVT+348 02287000 ATCMSGP EQU ISTATCVT+344 02288000 ATCEPT EQU ISTATCVT+340 02289000 ATCDVT EQU ISTATCVT+336 02290000 ATCTRCPT EQU ISTATCVT+332 02291000 ATCDVLOD EQU ISTATCVT+328 02292000 ATCALERT EQU ISTATCVT+324 02293000 ATCEPA EQU ISTATCVT+320 02294000 ATCSAF EQU ISTATCVT+318 02295000 ATCXRANG EQU ISTATCVT+317 02296000 ATCLAST EQU ATCSHRFG 02297000 ATCSHRTN EQU ISTATCVT+308 02298000 ATCUEP EQU ISTATCVT+304 02299000 ATCOCRT EQU ISTATCVT+300 02300000 ATCCSMA EQU ATCCSMR 02301000 ATCESC02 EQU ISTATCVT+292 02302000 ATCESC01 EQU ISTATCVT+288 02303000 ATCCDFND EQU ISTATCVT+284 02304000 ATCCDDEL EQU ISTATCVT+280 02305000 ATCCDADD EQU ISTATCVT+276 02306000 ATCMNT EQU ISTATCVT+272 02307000 ATCRSV16 EQU ISTATCVT+270 02308000 ATCMAXID EQU ISTATCVT+269 02309000 ATCMSGSP EQU ATCCOM+268 02310000 ATCCIDM EQU ATCCOM+266 02311000 ATCACTRM EQU ATCCOM+264 02312000 ATCNERAP EQU ATCCOM+260 02313000 ATCNESAL EQU ATCCOM+256 02314000 ATCRCC65 EQU ATCCOM+252 02315000 ATCRCC26 EQU ATCCOM+248 02316000 ATCRCC63 EQU ATCCOM+244 02317000 ATCRSV11 EQU ATCCOM+242 02318000 ATCVTMID EQU ATCCOM+240 02319000 ATCAPOST EQU ATCCOM+236 02320000 ATCNERFN EQU ATCCOM+232 02321000 ATCNERNE EQU ATCCOM+228 02322000 ATCNERCV EQU ATCCOM+224 02323000 ATCNERST EQU ATCCOM+220 02324000 ATCDCC61 EQU ATCCOM+216 02325000 ATCDCC60 EQU ATCCOM+212 02326000 ATCSRTDF EQU ATCCOM+208 02327000 ATCSRTAD EQU ATCCOM+204 02328000 ATCFIRA EQU ATCCOM+200 02329000 ATCSMBQ EQU ATCCOM+196 02330000 ATCSMRC EQU ATCCOM+192 02331000 ATCSMQU EQU ATCCOM+184 02332000 ATCSMRQ EQU ATCCOM+180 02333000 ATCACDA EQU ATCCOM+176 02334000 ATCSTMA EQU ATCCOM+172 02335000 ATCFRSTR EQU ATCCOM+168 02336000 ATCGTSTR EQU ATCCOM+164 02337000 ATCREADA EQU ATCCOM+160 02338000 ATCALOAD EQU ATCCOM+156 02339000 ATCBLDLA EQU ATCCOM+152 02340000 ATCFBRPH EQU ATCCOM+148 02341000 ATCBFTRC EQU ATCCOM+144 02342000 ATCTPBUF EQU ATCTHTRC 02343000 ATCREMOV EQU ATCCOM+136 02344000 ATCADD EQU ATCCOM+132 02345000 ATCDVTPT EQU ATCCOM+124 02346000 ATCFEPT EQU ATCCOM+120 02347000 ATCFDVT EQU ATCCOM+116 02348000 ATCCONFT EQU ATCCOM+112 02349000 ATCPTCHA EQU ATCCOM+108 02350000 ATCAUTHA EQU ATCCOM+104 02351000 ATCACCTA EQU ATCCOM+100 02352000 ATCRDTH EQU ATCCOM+96 02353000 ATCFRSCH EQU ATCCOM+92 02354000 ATCFSB EQU ATCCOM+88 02355000 ATCHLTMS EQU ATCCOM+84 02356000 ATCECPRM EQU ATCCOM+80 02357000 ATCECNET EQU ATCCOM+76 02358000 ATCECOPC EQU ATCCOM+72 02359000 ATCVPARM EQU ATCCOM+68 02360000 ATCECVRQ EQU ATCCOM+64 02361000 ATCECSES EQU ATCCOM+60 02362000 ATCOCHA EQU ATCCOM+56 02363000 ATCDSPLQ EQU ATCCOM+52 02364000 ATCECDSP EQU ATCCOM+48 02365000 ATCVARYQ EQU ATCCOM+44 02366000 ATCECVRY EQU ATCCOM+40 02367000 ATCHALTQ EQU ATCCOM+36 02368000 ATCECHLT EQU ATCCOM+32 02369000 ATCMODQ EQU ATCCOM+28 02370000 ATCECMOD EQU ATCCOM+24 02371000 ATCASCHD EQU ATCCOM+20 02372000 ATCSRT EQU ATCCOM+16 02373000 ATCRDT EQU ATCCOM+12 02374000 ATCDCFRR EQU ATCCOM+8 02375000 ATCAPI EQU ATCCOM+4 02376000 ATCRSV04 EQU ATCSTAT4 02377000 ATCVTTRC EQU ATCSTAT4 02378000 ATCNCSD EQU ATCSTAT4 02379000 ATCMTST EQU ATCSTAT4 02380000 ATCTPRT EQU ATCSTAT4 02381000 ATCPRTAT EQU ATCSTAT4 02382000 @NM00047 EQU ATCPOFLG 02383000 ATCPOUNS EQU ATCPOFLG 02384000 ATCHSDMF EQU ATCSTFLG 02385000 @NM00046 EQU ATCSTAT1 02386000 ATCMDHLT EQU ATCSTAT1 02387000 ATCINHLT EQU ATCSTAT1 02388000 ATCNETSL EQU ATCSTAT1 02389000 ATCQKHLT EQU ATCSTAT1 02390000 ATCSNHLT EQU ATCSTAT1 02391000 ATCACTIV EQU ATCSTAT1 02392000 ATCSTART EQU ATCSTAT1 02393000 ISTPDAVP EQU ISTAVT+40 02394000 ISTAVR01 EQU ISTAVT+38 02395000 ISTVTTP EQU ISTAVT+36 02396000 ISTAGTWT EQU ISTAVT+34 02397000 ISTATRT EQU ISTAVT+32 02398000 ISTARID EQU ISTAVT+30 02399000 ISTX1 EQU ISTAVT+29 02400000 ISTPHNM EQU ISTAVT+24 02401000 ISTAPSEX EQU ISTAVT+20 02402000 ISTVTTIK EQU ISTAVT+18 02403000 AVTASID EQU ISTAVT+16 02404000 ISTAPSTA EQU ISTAVT+12 02405000 ISTAS53 EQU ISTAVT+8 02406000 ISTAHIP EQU ISTAS49 02407000 ISTACVT EQU ISTAVT 02408000 DYPPAB EQU ISTDYPAB+16 02409000 DYPRSV01 EQU ISTDYPAB+12 02410000 DYPTSKID EQU ISTDYPAB+8 02411000 DYPCHAIN EQU ISTDYPAB+4 02412000 DYPFLGS EQU ISTDYPAB+2 02413000 DYPLNGTH EQU ISTDYPAB+1 02414000 DYPTYPE EQU ISTDYPAB 02415000 PABRPHA EQU PABRPHFG+1 02416000 PABNODQ EQU PABFLAGS 02417000 PABINHBT EQU PABFLAGS 02418000 PABERLOK EQU PABERRLK 02419000 PABSSN EQU PABFLAGS 02420000 PABDYNAM EQU PABFLAGS 02421000 PABNORPR EQU PABFLAGS 02422000 PABPRIOR EQU PABFLAGS 02423000 PABAPYP EQU PABFLAGS 02424000 PABDVTA EQU ISTPAB+9 02425000 PABOFFST EQU ISTPAB+8 02426000 PABCHNGP EQU PABCHAIN+1 02427000 PABRSV02 EQU PABCHAIN 02428000 PABRUNNG EQU PABCHAIN 02429000 PABRESET EQU PABCHAIN 02430000 PABUNCON EQU PABCHAIN 02431000 PABCDP EQU PABCHAIN 02432000 PABRESCH EQU PABCHAIN 02433000 PABCHNG EQU PABCHAIN 02434000 PABWEQP EQU PABWEQA+1 02435000 PABRSV01 EQU PABWEQA 02436000 PABWEQG EQU PABWEQA 02437000 CRACHAIN EQU ISTCRA+928 02438000 CRARSV02 EQU ISTCRA+924 02439000 CRARSV01 EQU ISTCRA+920 02440000 CRABFTBA EQU CRABUFA 02441000 CRAMASK EQU CRASVC+64 02442000 CRAHSIZ EQU CRASVC+60 02443000 CRAASCRR EQU CRASVC 02444000 CRAPROCR EQU ISTCRA+312 02445000 CRARPH EQU ISTCRA+52 02446000 CRALAPTR EQU CRABASIC+48 02447000 CRAL9PTR EQU CRABASIC+44 02448000 CRAL8PTR EQU CRABASIC+40 02449000 CRAL7PTR EQU CRABASIC+36 02450000 CRAL6PTR EQU CRABASIC+32 02451000 CRAL5PTR EQU CRABASIC+28 02452000 CRAL4PTR EQU CRABASIC+24 02453000 CRAL3PTR EQU CRABASIC+20 02454000 CRAL2PTR EQU CRABASIC+16 02455000 CRALEV01 EQU CRALKACT+3 02456000 CRALEV02 EQU CRALKACT+3 02457000 CRALEV03 EQU CRALKACT+3 02458000 CRALEV04 EQU CRALKACT+3 02459000 CRALEV05 EQU CRALKACT+3 02460000 CRALEV06 EQU CRALKACT+3 02461000 CRALEV07 EQU CRALKACT+3 02462000 CRALEV08 EQU CRALKACT+3 02463000 CRALEV09 EQU CRALKACT+2 02464000 CRALEV10 EQU CRALKACT+2 02465000 CRALEV11 EQU CRALKACT+2 02466000 CRALEV12 EQU CRALKACT+2 02467000 CRALEV13 EQU CRALKACT+2 02468000 CRALEV14 EQU CRALKACT+2 02469000 CRALEV15 EQU CRALKACT+2 02470000 CRALEV16 EQU CRALKACT+2 02471000 CRALEV17 EQU CRALKACT+1 02472000 CRALEV18 EQU CRALKACT+1 02473000 CRALEV19 EQU CRALKACT+1 02474000 CRALEV20 EQU CRALKACT+1 02475000 CRALEV21 EQU CRALKACT+1 02476000 CRALEV22 EQU CRALKACT+1 02477000 CRALEV23 EQU CRALKACT+1 02478000 CRALEV24 EQU CRALKACT+1 02479000 CRALEV25 EQU CRALKACT 02480000 CRALEV26 EQU CRALKACT 02481000 CRALEV27 EQU CRALKACT 02482000 CRALEV28 EQU CRALKACT 02483000 CRALEV29 EQU CRALKACT 02484000 CRALEV30 EQU CRALKACT 02485000 CRALEV31 EQU CRALKACT 02486000 CRALEV32 EQU CRALKACT 02487000 CRAFRR EQU CRAHDR+4 02488000 CRACRR EQU CRAHDR 02489000 @NM00045 EQU ISTAPCRR+137 02490000 @NM00044 EQU APC57FLG 02491000 APCNREL EQU APC57FLG 02492000 APCRECRA EQU APC57FLG 02493000 @NM00043 EQU APC54FLG 02494000 APCRLST EQU APC54FLG 02495000 APCPR153 EQU APC53FLG 02496000 @NM00042 EQU APC52FLG 02497000 APCWKF EQU APC52FLG 02498000 APCNWF EQU APC52FLG 02499000 APCRDQ EQU APC52FLG 02500000 APCQENQ EQU APC52FLG 02501000 APCSMSR EQU APC52FLG 02502000 APCCKRQ EQU APC52FLG 02503000 @NM00041 EQU APC31FLG 02504000 APCSORT EQU APC31FLG 02505000 APCRESCH EQU APC31FLG 02506000 APCTPXIT EQU APC31FLG 02507000 APCSWTWD EQU ISTAPCRR+128 02508000 APCSAV2 EQU ISTAPCRR+124 02509000 APCSAV1 EQU ISTAPCRR+120 02510000 APCRETCD EQU APCCOMF+2 02511000 @NM00040 EQU APCCOMF1+1 02512000 APCZLBER EQU APCCOMF1 02513000 APCEXIT EQU APCCOMF1 02514000 APCRELR EQU APCCOMF1 02515000 APCIRB2 EQU APCCOMF1 02516000 APCIRB1 EQU APCCOMF1 02517000 APCSMCR EQU APCCOMF1 02518000 APCUETSK EQU APCCOMF1 02519000 APCSSTSK EQU APCCOMF1 02520000 APCESTAL EQU APCSAVE 02521000 APCFRRPM EQU ISTAPCRR+40 02522000 APCQWFO EQU ISTAPCRR+36 02523000 APCPABSV EQU ISTAPCRR+32 02524000 APCRTRN EQU ISTAPCRR+28 02525000 APCTCBA EQU ISTAPCRR+24 02526000 APCPSTA EQU ISTAPCRR+20 02527000 @NM00039 EQU APCRFLG+1 02528000 APC31R EQU APCRFLG 02529000 APC58R EQU APCRFLG 02530000 APC57R EQU APCRFLG 02531000 APC56R EQU APCRFLG 02532000 APC54R EQU APCRFLG 02533000 APC53R EQU APCRFLG 02534000 APC52R EQU APCRFLG 02535000 APC51R EQU APCRFLG 02536000 @NM00038 EQU APCATFLG+1 02537000 APC31E EQU APCATFLG 02538000 APC58E EQU APCATFLG 02539000 APC57E EQU APCATFLG 02540000 APC56E EQU APCATFLG 02541000 APC54E EQU APCATFLG 02542000 APC53E EQU APCATFLG 02543000 APC52E EQU APCATFLG 02544000 APC51E EQU APCATFLG 02545000 APCHDRSV EQU ISTAPCRR 02546000 ASCPSREG EQU ISTASCRR+44 02547000 ASCUSR01 EQU ASCUSRGS+12 02548000 ASCUSR00 EQU ASCUSRGS+8 02549000 ASCUSR15 EQU ASCUSRGS+4 02550000 ASCUSR14 EQU ASCUSRGS 02551000 ASCETRYA EQU ISTASCRR+24 02552000 ASCKEY EQU ISTASCRR+23 02553000 ASCAUDIT EQU ASCFLG3 02554000 ASCFBDUD EQU ASCFLG3 02555000 ASCLLKF EQU ASCFLG3 02556000 ASCKEYF EQU ASCFLG3 02557000 ASCFBDAL EQU ASCFLG3 02558000 ASCFSRGT EQU ASCFLG3 02559000 ASCICR EQU ASCFLG2 02560000 ASCFSRIC EQU ASCFLG2 02561000 ASCFBDIC EQU ASCFLG2 02562000 ASCFBAIC EQU ASCFLG2 02563000 ASCPASTR EQU ASCFLG1 02564000 ASCFSR EQU ASCFLG1 02565000 ASCFBD EQU ASCFLG1 02566000 ASCFBA EQU ASCFLG1 02567000 ASCPFCRR EQU ISTASCRR 02568000 ZCRRU EQU ZCRRHRU+3 02569000 ZCRRH EQU ZCRRHRU 02570000 ZCRWORDA EQU ISTZCRR+477 02571000 ZCRCMNRC EQU ISTZCRR+476 02572000 ZCRRSV97 EQU ZCRENTER+18 02573000 ZCREIC2B EQU ZCRENTER+18 02574000 ZCREAC2B EQU ZCRENTER+18 02575000 ZCRELCAB EQU ZCRENTER+18 02576000 ZCREDCMF EQU ZCRENTER+18 02577000 ZCREBCIF EQU ZCRENTER+18 02578000 ZCREICSG EQU ZCRENTER+18 02579000 ZCREDCK0 EQU ZCRENTER+18 02580000 ZCRECFY0 EQU ZCRENTER+17 02581000 ZCREKCCB EQU ZCRENTER+17 02582000 ZCREDCNB EQU ZCRENTER+17 02583000 ZCREICOE EQU ZCRENTER+17 02584000 ZCREBCNB EQU ZCRENTER+17 02585000 ZCREBC0L EQU ZCRENTER+17 02586000 ZCREBCAL EQU ZCRENTER+17 02587000 ZCREDCQR EQU ZCRENTER+17 02588000 ZCREDCPR EQU ZCRENTER+16 02589000 ZCREBCSB EQU ZCRENTER+16 02590000 ZCREAC1R EQU ZCRENTER+16 02591000 ZCRECCCI EQU ZCRENTER+16 02592000 ZCRECCAI EQU ZCRENTER+16 02593000 ZCRECCBI EQU ZCRENTER+16 02594000 ZCREBCAR EQU ZCRENTER+16 02595000 ZCREBCDR EQU ZCRENTER+16 02596000 ZCREBCBR EQU ZCRENTER+15 02597000 ZCREDCXR EQU ZCRENTER+15 02598000 ZCREDCWB EQU ZCRENTER+15 02599000 ZCREDCWR EQU ZCRENTER+15 02600000 ZCREKCCN EQU ZCRENTER+15 02601000 ZCREKCBN EQU ZCRENTER+15 02602000 ZCREKCBB EQU ZCRENTER+15 02603000 ZCREJC0B EQU ZCRENTER+15 02604000 ZCREJCDB EQU ZCRENTER+14 02605000 ZCREJCCB EQU ZCRENTER+14 02606000 ZCREJCBB EQU ZCRENTER+14 02607000 ZCREJCAB EQU ZCRENTER+14 02608000 ZCREIC1B EQU ZCRENTER+14 02609000 ZCREIC0B EQU ZCRENTER+14 02610000 ZCREICX0 EQU ZCRENTER+14 02611000 ZCREICWB EQU ZCRENTER+14 02612000 ZCREICVB EQU ZCRENTER+13 02613000 ZCREICUB EQU ZCRENTER+13 02614000 ZCREICTB EQU ZCRENTER+13 02615000 ZCREICSC EQU ZCRENTER+13 02616000 ZCREICSB EQU ZCRENTER+13 02617000 ZCREICRB EQU ZCRENTER+13 02618000 ZCREICQB EQU ZCRENTER+13 02619000 ZCREICQA EQU ZCRENTER+13 02620000 ZCREICOB EQU ZCRENTER+12 02621000 ZCREICOA EQU ZCRENTER+12 02622000 ZCREICNB EQU ZCRENTER+12 02623000 ZCREICNA EQU ZCRENTER+12 02624000 ZCREICMB EQU ZCRENTER+12 02625000 ZCREICLB EQU ZCRENTER+12 02626000 ZCREICKG EQU ZCRENTER+12 02627000 ZCREICKE EQU ZCRENTER+12 02628000 ZCREICKB EQU ZCRENTER+11 02629000 ZCREICJB EQU ZCRENTER+11 02630000 ZCREICID EQU ZCRENTER+11 02631000 ZCREICIB EQU ZCRENTER+11 02632000 ZCREICHB EQU ZCRENTER+11 02633000 ZCREICGB EQU ZCRENTER+11 02634000 ZCREICEB EQU ZCRENTER+11 02635000 ZCREICDB EQU ZCRENTER+11 02636000 ZCREICCI EQU ZCRENTER+10 02637000 ZCREICCB EQU ZCRENTER+10 02638000 ZCREICBI EQU ZCRENTER+10 02639000 ZCREICBB EQU ZCRENTER+10 02640000 ZCREICAB EQU ZCRENTER+10 02641000 ZCREICAA EQU ZCRENTER+10 02642000 ZCREHCAN EQU ZCRENTER+10 02643000 ZCREGC0B EQU ZCRENTER+10 02644000 ZCREGC0A EQU ZCRENTER+9 02645000 ZCREGCLA EQU ZCRENTER+9 02646000 ZCREGCEB EQU ZCRENTER+9 02647000 ZCREGCDB EQU ZCRENTER+9 02648000 @NM00037 EQU ZCRENTER+9 02649000 ZCREGCBB EQU ZCRENTER+9 02650000 ZCREGCAB EQU ZCRENTER+9 02651000 ZCREFCEB EQU ZCRENTER+9 02652000 ZCREFCEA EQU ZCRENTER+8 02653000 ZCREECTA EQU ZCRENTER+8 02654000 ZCREECEA EQU ZCRENTER+8 02655000 ZCREECDA EQU ZCRENTER+8 02656000 ZCREECCB EQU ZCRENTER+8 02657000 ZCREECCA EQU ZCRENTER+8 02658000 ZCREECBB EQU ZCRENTER+8 02659000 ZCREECBA EQU ZCRENTER+8 02660000 ZCREDCMB EQU ZCRENTER+7 02661000 ZCREDCL0 EQU ZCRENTER+7 02662000 ZCREDCKB EQU ZCRENTER+7 02663000 ZCREDCKA EQU ZCRENTER+7 02664000 ZCREDCJ0 EQU ZCRENTER+7 02665000 ZCREDCI0 EQU ZCRENTER+7 02666000 ZCREDCH0 EQU ZCRENTER+7 02667000 ZCREDCF0 EQU ZCRENTER+7 02668000 ZCREDCE0 EQU ZCRENTER+6 02669000 ZCREDCD0 EQU ZCRENTER+6 02670000 ZCREDCC0 EQU ZCRENTER+6 02671000 ZCREDCB0 EQU ZCRENTER+6 02672000 ZCREDCA0 EQU ZCRENTER+6 02673000 ZCRECC2B EQU ZCRENTER+6 02674000 ZCRECC1B EQU ZCRENTER+6 02675000 ZCRECC1A EQU ZCRENTER+6 02676000 ZCRECC0B EQU ZCRENTER+5 02677000 ZCRECC0A EQU ZCRENTER+5 02678000 ZCREBC0B EQU ZCRENTER+5 02679000 ZCREBC0A EQU ZCRENTER+5 02680000 ZCREBCZ0 EQU ZCRENTER+5 02681000 ZCREBCY0 EQU ZCRENTER+5 02682000 ZCREBCX0 EQU ZCRENTER+5 02683000 ZCREBCXA EQU ZCRENTER+5 02684000 ZCREBCSC EQU ZCRENTER+4 02685000 ZCREBCRB EQU ZCRENTER+4 02686000 ZCREBCRA EQU ZCRENTER+4 02687000 ZCREBCQB EQU ZCRENTER+4 02688000 ZCREBCPB EQU ZCRENTER+4 02689000 ZCREBCOB EQU ZCRENTER+4 02690000 ZCREBCNE EQU ZCRENTER+4 02691000 ZCREBCND EQU ZCRENTER+4 02692000 ZCREBCMB EQU ZCRENTER+3 02693000 ZCREBCLB EQU ZCRENTER+3 02694000 ZCREBCLA EQU ZCRENTER+3 02695000 ZCREBCKB EQU ZCRENTER+3 02696000 ZCREBCKA EQU ZCRENTER+3 02697000 ZCREBCJB EQU ZCRENTER+3 02698000 ZCREBCJA EQU ZCRENTER+3 02699000 ZCREBCID EQU ZCRENTER+3 02700000 ZCREBCIB EQU ZCRENTER+2 02701000 ZCREBCIA EQU ZCRENTER+2 02702000 ZCREBCHB EQU ZCRENTER+2 02703000 ZCREBCHA EQU ZCRENTER+2 02704000 ZCREBCGB EQU ZCRENTER+2 02705000 ZCREBCGA EQU ZCRENTER+2 02706000 ZCREBCFB EQU ZCRENTER+2 02707000 ZCREBCFA EQU ZCRENTER+2 02708000 ZCREBCEB EQU ZCRENTER+1 02709000 ZCREBCDI EQU ZCRENTER+1 02710000 ZCREBCCB EQU ZCRENTER+1 02711000 ZCREBCBI EQU ZCRENTER+1 02712000 ZCREBCBB EQU ZCRENTER+1 02713000 ZCREBCBA EQU ZCRENTER+1 02714000 ZCREBCAM EQU ZCRENTER+1 02715000 ZCREBCAI EQU ZCRENTER+1 02716000 ZCREBCAG EQU ZCRENTER 02717000 ZCREBCAE EQU ZCRENTER 02718000 ZCREBCAB EQU ZCRENTER 02719000 ZCREBCAA EQU ZCRENTER 02720000 ZCREAC1B EQU ZCRENTER 02721000 ZCREAC0B EQU ZCRENTER 02722000 ZCREAC0A EQU ZCRENTER 02723000 ZCREAC1A EQU ZCRENTER 02724000 ZCRTNAME EQU ZCRAUDIT+1 02725000 ZCRTID EQU ZCRAUDIT 02726000 ZCRREMIC EQU ISTZCRR+436 02727000 ZCRSAVEZ EQU ISTZCRR+196 02728000 ZCRDAFSV EQU ZCRCIDSV+2 02729000 ZCRSAFSV EQU ZCRCIDSV 02730000 ZCRR13SV EQU ISTZCRR+188 02731000 ZCRR2SV EQU ISTZCRR+184 02732000 ZCROPCDE EQU ISTZCRR+183 02733000 ZCRPRMTC EQU ISTZCRR+182 02734000 ZCRRCDSV EQU ISTZCRR+181 02735000 ZCRAWQSW EQU ISTZCRR+180 02736000 ZCRTOPQ EQU ISTZCRR+180 02737000 ZCRLSTFB EQU ISTZCRR+180 02738000 ZCRXSCHD EQU ISTZCRR+180 02739000 ZCRNXTEL EQU ISTZCRR+180 02740000 ZCRSCANQ EQU ISTZCRR+180 02741000 ZCRMOREL EQU ISTZCRR+180 02742000 ZCRFBPRC EQU ISTZCRR+180 02743000 ZCRFSBSV EQU ISTZCRR+176 02744000 ZCRSVWK5 EQU ZCRWKARA+16 02745000 ZCRSVWK4 EQU ZCRWKARA+12 02746000 ZCRSVWK3 EQU ZCRWKARA+8 02747000 ZCRSVWK2 EQU ZCRWKARA+4 02748000 ZCRSVWK1 EQU ZCRWKARA 02749000 ZCRSVF25 EQU ZCRSVRTN+96 02750000 ZCRSVF24 EQU ZCRSVRTN+92 02751000 ZCRSVF23 EQU ZCRSVRTN+88 02752000 ZCRSVF22 EQU ZCRSVRTN+84 02753000 ZCRSVF21 EQU ZCRSVRTN+80 02754000 ZCRSVF20 EQU ZCRSVRTN+76 02755000 ZCRSVF19 EQU ZCRSVRTN+72 02756000 ZCRSVF18 EQU ZCRSVRTN+68 02757000 ZCRSVF17 EQU ZCRSVRTN+64 02758000 ZCRSVF16 EQU ZCRSVRTN+60 02759000 ZCRSVF15 EQU ZCRSVRTN+56 02760000 ZCRSVF14 EQU ZCRSVRTN+52 02761000 ZCRSVF13 EQU ZCRSVRTN+48 02762000 ZCRSVF12 EQU ZCRSVRTN+44 02763000 ZCRSVF11 EQU ZCRSVRTN+40 02764000 ZCRSVF10 EQU ZCRSVRTN+36 02765000 ZCRSVF9 EQU ZCRSVRTN+32 02766000 ZCRSVF8 EQU ZCRSVRTN+28 02767000 ZCRSVF7 EQU ZCRSVRTN+24 02768000 ZCRSVF6 EQU ZCRSVRTN+20 02769000 ZCRSVF5 EQU ZCRSVRTN+16 02770000 ZCRSVF4 EQU ZCRSVRTN+12 02771000 ZCRSVF3 EQU ZCRSVRTN+8 02772000 ZCRSVF2 EQU ZCRSVRTN+4 02773000 ZCRSVF1 EQU ZCRSVRTN 02774000 ZCRPVZB EQU ISTZCRR+52 02775000 ZCRZLB EQU ISTZCRR+48 02776000 ZCRBFPTR EQU ISTZCRR+44 02777000 ZCRCCWA EQU ISTZCRR+40 02778000 ZCRPSW EQU ZCRPARMS+15 02779000 ZCRPCHAR EQU ZCRPARMS+14 02780000 ZCRPRES2 EQU ZCRPCOD2 02781000 ZCRPMFGF EQU ZCRPCOD2 02782000 ZCRPFHDR EQU ZCRPCOD2 02783000 ZCRPPG2 EQU ZCRPCOD2 02784000 ZCRPRES EQU ZCRPCOD1 02785000 ZCRPCFTX EQU ZCRPCOD1 02786000 ZCRPBUF EQU ZCRPCOD1 02787000 ZCRPLSCB EQU ZCRPCOD1 02788000 ZCRPLSBQ EQU ZCRPLSBF 02789000 ZCRPFSB EQU ZCRPCOD1 02790000 ZCRPLNG EQU ZCRPCOD1 02791000 ZCRPPG EQU ZCRPCOD1 02792000 ZCRDTODA EQU ZCRDFRDA 02793000 ZCRMLNG EQU ZCRPARMS+8 02794000 ZCRTBPTR EQU ZCRPARMS+4 02795000 ZCRCBPTR EQU ZCRFBPTR 02796000 ZCRCRLCP EQU ISTZCRR+20 02797000 @NM00036 EQU ZCRSCPSW 02798000 ZCRSKIPT EQU ZCRSCPSW 02799000 ZCRFSBWE EQU ZCRSCPSW 02800000 ZCRPRCMP EQU ZCRSCPSW 02801000 ZCRLREQ EQU ZCRSCPSW 02802000 ZCRRJLCP EQU ZCRSCPSW 02803000 ZCRTPINV EQU ZCRSCPSW 02804000 ZCRTPEX EQU ZCRSCPSW 02805000 @NM00035 EQU ZCRIBPR 02806000 ZCR3270R EQU ZCRIBPR 02807000 ZCR3270 EQU ZCRIBPR 02808000 ZCRLCPFD EQU ZCRIBPR 02809000 ZCRLCPFR EQU ZCRIBPR 02810000 ZCRRELK EQU ZCRIBPR 02811000 ZCRERR EQU ZCRIBPR 02812000 ZCRNOBUF EQU ZCRIBPR 02813000 @NM00034 EQU ZCRPFLGS 02814000 ZCRQAHED EQU ZCRPFLGS 02815000 ZCRF1RES EQU ZCRGENSW 02816000 ZCRBRIS EQU ZCRGENSW 02817000 ZCRCLRBD EQU ZCRGENSW 02818000 ZCREXRES EQU ZCRGENSW 02819000 ZCRLCSYN EQU ZCRGENSW 02820000 ZCRRT06 EQU ZCRGENSW 02821000 ZCRTSW2 EQU ZCRGENSW 02822000 ZCRTSW1 EQU ZCRGENSW 02823000 ZCRINLCP EQU ZCRFLGS3 02824000 ZCRWRPTR EQU ZCRFLGS3 02825000 ZCRNOFRE EQU ZCRFLGS3 02826000 ZCREDRIV EQU ZCRFLGS3 02827000 ZCRDISC EQU ZCRFLGS3 02828000 ZCRTPDIS EQU ZCRFLGS3 02829000 ZCRTPCON EQU ZCRFLGS3 02830000 ZCRTIC EQU ZCRFLGS3 02831000 ZCRCNLXL EQU ZCRRESET 02832000 ZCRENDAN EQU ZCRSWFLD 02833000 ZCRENDXL EQU ZCRSWFLD 02834000 ZCRENDX EQU ZCRSWFLD 02835000 ZCROB1 EQU ZCRNDLCP 02836000 ZCRENDPR EQU ZCRSWFLD 02837000 ZCREXTYP EQU ZCRSWFLD 02838000 ZCRSLCP EQU ZCRENDSH 02839000 ZCRIF0E3 EQU ZCRFLGS2 02840000 ZCRIF0E2 EQU ZCRFLGS2 02841000 ZCRIF0E1 EQU ZCRFLGS2 02842000 ZCROB EQU ZCRFLGS2 02843000 ZCRFMSED EQU ZCRFLGS2 02844000 ZCRSHEDI EQU ZCRFLGS2 02845000 ZCRLOCAL EQU ZCRFLGS2 02846000 ZCRFEXIT EQU ZCRFLGS1 02847000 ZCRUNSOL EQU ZCRFLGS1 02848000 ZCRENDLP EQU ZCRFLGS1 02849000 ZCRNRMEX EQU ZCRFLGS1 02850000 ZCRWAIT EQU ZCRFLGS1 02851000 ZCRDEQSW EQU ZCRFLGS1 02852000 ZCRQUESW EQU ZCRFLGS1 02853000 ZCREXSW EQU ZCRFLGS1 02854000 ZCRFRRA EQU ISTZCRR+8 02855000 ZCRCHAIN EQU ISTZCRR+4 02856000 ZCRFLAG EQU ZCRCRR+3 02857000 ZCRLEN EQU ZCRCRR+1 02858000 ZCRID EQU ZCRCRR 02859000 CCFRSVD1 EQU CFCCRT 02860000 CCFCR2 EQU CFCCRT 02861000 CCFCRP EQU CFCCRT 02862000 CCFCR1 EQU CFCCRT 02863000 CCFCS2 EQU CFCCRT 02864000 CCFCS1 EQU CFCCRT 02865000 NCFRSVD EQU CFCNTRD 02866000 NCFCR2 EQU CFCNTRD 02867000 NCFCRP EQU CFCNTRD 02868000 NCFCR1 EQU CFCNTRD 02869000 NCFCS2 EQU CFCNTRD 02870000 NCFCS1 EQU CFCNTRD 02871000 PFCRSV01 EQU ISTPFCRR+13 02872000 PFCFTA EQU ISTPFCRR+12 02873000 CRRFRR EQU PFCFRRO 02874000 CRRCHAIN EQU PFCCRRO 02875000 CRRLEN EQU PFCCRRLN 02876000 PFCRSV10 EQU PFCCRR+1 02877000 CRRID EQU PFCCRRID 02878000 ZSAZTRAC EQU ISTZSAVE+36 02879000 ZSAZSVVR EQU ISTZSAVE+12 02880000 ZSAZSVRR EQU ISTZSAVE+8 02881000 ZSAZSVFC EQU ISTZSAVE+4 02882000 ZSAZACTV EQU ZSAZSVMS 02883000 LCPFTYPE EQU LCPRPHA 02884000 LCPRSTQH EQU LCPLCCW 02885000 LCPCLREP EQU ISTLCPB+44 02886000 LCPUBFSB EQU LCPFLCCW 02887000 LCPRSV77 EQU ISTLCPB+39 02888000 LCPLCCWC EQU ISTLCPB+38 02889000 LCPRSV78 EQU LCPFLG1 02890000 LCPTRANS EQU LCPFLG1 02891000 LCPSTLB EQU LCPFLG1 02892000 LCPREDRV EQU LCPFLG1 02893000 LCPDIRPT EQU LCPFLG1 02894000 LCPINTER EQU LCPFLG1 02895000 LCPRESET EQU LCPFLG1 02896000 LCPSTYPE EQU ISTLCPB+36 02897000 LCPFSNCH EQU ISTLCPB+34 02898000 LCPFOSN EQU ISTLCPB+32 02899000 LCPTLBAD EQU ISTLCPB+28 02900000 LCPFDB2 EQU LCPFDBA+1 02901000 LCPFDB1 EQU LCPFDBA 02902000 LCPNXLCW EQU ISTLCPB+20 02903000 LCPDAF EQU LCPCID+2 02904000 LCPSAF EQU LCPCID 02905000 LCPLCCW1 EQU ISTLCPB+12 02906000 LCPRRCNT EQU LCPSEQ+1 02907000 LCPRRCCT EQU LCPSEQ 02908000 LCPATOP EQU LCPFLAG2 02909000 LCPFREE EQU LCPFLAG2 02910000 LCPDSTAT EQU LCPFLAG2 02911000 LCPEXRES EQU LCPFID0 02912000 LCPZRIMM EQU LCPTLBPI 02913000 LCPRSTRT EQU LCPFLAG2 02914000 LCPASYN EQU LCPFLAG2 02915000 LCPPRFLG EQU LCPFLAG2 02916000 LCPZMIRC EQU LCPRUCNT 02917000 LCPCHAI2 EQU LCPCHAIN+1 02918000 LCPCHNG EQU LCPCHAI1 02919000 LCPZRT0B EQU LCPMNRCD 02920000 LCPZRT0A EQU LCPMNRCD 02921000 LCPZRTL9 EQU LCPZRT09 02922000 LCPZRTL8 EQU LCPZRT08 02923000 LCPZRTL7 EQU LCPZRT07 02924000 LCPZRTL6 EQU LCPZRT06 02925000 LCPZRTL5 EQU LCPZRT05 02926000 LCPZRTL4 EQU LCPZRT04 02927000 LCPZRTL3 EQU LCPZRT03 02928000 LCPZRTL2 EQU LCPZRT02 02929000 LCPZRT01 EQU LCPFLAGS 02930000 LCPZRT00 EQU LCPFLAGS 02931000 LCPLNGTH EQU ISTLCPB+1 02932000 LCPTYPE EQU ISTLCPB 02933000 LCCWDATA EQU ISTLCCW+4 02934000 LCCWCNT EQU ISTLCCW+2 02935000 LCCWACI EQU LCCWFLAG 02936000 LCCWRFI EQU LCCWFLAG 02937000 LCCWPER EQU LCCWLSI 02938000 LCCWIDAT EQU LCCWFLAG 02939000 LCCWNTVC EQU LCCWFLAG 02940000 LCCWCKPT EQU LCCWFLAG 02941000 LCCWCC EQU LCCWFLAG 02942000 LCCWCD EQU LCCWFLAG 02943000 LCCWTYPE EQU LCCWCTL 02944000 LCCWMODE EQU LCCWCTL 02945000 LCCWSOP EQU LCCWRWOP 02946000 @NM00033 EQU LCCWRWOP 02947000 LCCWSD EQU LCCWOP 02948000 LCCWSI EQU LCCWOP 02949000 LOKXCL EQU @NM00031 02950000 LOKPRY EQU @NM00031 02951000 @NM00032 EQU @NM00031 02952000 @NM00030 EQU LOKCHNG 02953000 LOKCT EQU ISTLOK 02954000 RPHNEXPO EQU ISTRPH+104 02955000 RPHSAV15 EQU RPHWORK+56 02956000 RPHSAV14 EQU RPHWORK+52 02957000 RPHSAV13 EQU RPHWORK+48 02958000 RPHSAV12 EQU RPHWORK+44 02959000 RPHSAV11 EQU RPHWORK+40 02960000 RPHSAV10 EQU RPHWORK+36 02961000 RPHSAVE9 EQU RPHWORK+32 02962000 RPHSAVE8 EQU RPHWORK+28 02963000 RPHSAVE7 EQU RPHWORK+24 02964000 RPHSAVE6 EQU RPHWORK+20 02965000 RPHSAVE5 EQU RPHWORK+16 02966000 RPHSAVE4 EQU RPHWORK+12 02967000 RPHSAVE3 EQU RPHWORK+8 02968000 RPHSAVE2 EQU RPHWORK+4 02969000 RPHSHALF EQU RPHSAVE1+2 02970000 RPHSBIT8 EQU RPHSBITS 02971000 RPHSBIT7 EQU RPHSBITS 02972000 RPHSBIT6 EQU RPHSBITS 02973000 RPHSBIT5 EQU RPHSBITS 02974000 RPHSBIT4 EQU RPHSBITS 02975000 RPHSBIT3 EQU RPHSBITS 02976000 RPHSBIT2 EQU RPHSBITS 02977000 RPHSBIT1 EQU RPHSBITS 02978000 RPHSBYTE EQU RPHSAVE1 02979000 RPHPABQP EQU RPHPABQA+1 02980000 RPHPABFG EQU RPHPABQA 02981000 RPHSRP34 EQU RPHSRPRM+2 02982000 RPHSRP12 EQU RPHSRPRM 02983000 RPHWEGT EQU RPHCSPA 02984000 RPHRESUM EQU RPHRESMA+1 02985000 RPHRSV01 EQU RPHWPFLG 02986000 RPHPT EQU RPHWPFLG 02987000 RPHRSKEY EQU RPHWPFLG 02988000 RPHDVTA EQU ISTRPH+12 02989000 RPHTIK EQU RPHTSKID+3 02990000 @NM00029 EQU RPHTSKID 02991000 RPHRPHAP EQU RPHRPHA+1 02992000 @NM00028 EQU RPHRPHA 02993000 RPHGATE EQU RPHRPHA 02994000 @NM00027 EQU RPHFLGB 02995000 RPHRLCRA EQU RPHFLGB 02996000 RPHNRSAV EQU RPHFLGB 02997000 RPHFBAPS EQU RPHFLGB 02998000 RPHBSSP EQU RPHFLGB 02999000 RPHLOCK EQU RPHFLGB 03000000 RPHFNFLG EQU RPHFSTLC 03001000 RPHMLTCP EQU RPHFLAGS 03002000 RPHSMCLR EQU RPHFLAGS 03003000 RPHSMTYP EQU RPHFLAGS 03004000 RPHSMQ EQU RPHFLAGS 03005000 RPHAUTEX EQU RPHAPTYP 03006000 RPHSPGIN EQU RPHFLAGS 03007000 RPHOGIND EQU RPHFLAGS 03008000 RPHLNGTH EQU RPHCNTL+1 03009000 RPHTYPE EQU RPHCNTL 03010000 CVTLEVL EQU CVTRELNO+2 03011000 CVTNUMB EQU CVTRELNO 03012000 CVTMDL EQU CVTFIX+250 03013000 @NM00002 EQU CVTFIX+248 03014000 @NM00001 EQU CVTFIX 03015000 CVTRV482 EQU CVTXTNT2+128 03016000 CVTRV481 EQU CVTXTNT2+124 03017000 CVTRV480 EQU CVTXTNT2+120 03018000 CVTRV479 EQU CVTXTNT2+118 03019000 CVTRV478 EQU CVTXTNT2+117 03020000 CVTRV477 EQU CVTXTNT2+116 03021000 CVTRV476 EQU CVTXTNT2+115 03022000 CVTRV475 EQU CVTXTNT2+114 03023000 CVTRV474 EQU CVTRV466 03024000 CVTRV473 EQU CVTRV466 03025000 CVTRV472 EQU CVTRV466 03026000 CVTRV471 EQU CVTRV466 03027000 CVTRV470 EQU CVTRV466 03028000 CVTRV469 EQU CVTRV466 03029000 CVTRV468 EQU CVTRV466 03030000 CVTRV467 EQU CVTRV466 03031000 CVTRV465 EQU CVTRV457 03032000 CVTRV464 EQU CVTRV457 03033000 CVTRV463 EQU CVTRV457 03034000 CVTRV462 EQU CVTRV457 03035000 CVTRV461 EQU CVTRV457 03036000 CVTRV460 EQU CVTRV457 03037000 CVTRV459 EQU CVTRV457 03038000 CVTRV458 EQU CVTRV457 03039000 CVTRV456 EQU CVTXTNT2+108 03040000 CVTRV455 EQU CVTXTNT2+104 03041000 CVTRV454 EQU CVTXTNT2+100 03042000 CVTRV453 EQU CVTXTNT2+96 03043000 CVTRV452 EQU CVTXTNT2+94 03044000 CVTRV451 EQU CVTXTNT2+92 03045000 CVTRV450 EQU CVTXTNT2+90 03046000 CVTRV449 EQU CVTXTNT2+88 03047000 CVTRV448 EQU CVTXTNT2+87 03048000 CVTRV447 EQU CVTXTNT2+86 03049000 CVTRV446 EQU CVTRV438 03050000 CVTRV445 EQU CVTRV438 03051000 CVTRV444 EQU CVTRV438 03052000 CVTRV443 EQU CVTRV438 03053000 CVTRV442 EQU CVTRV438 03054000 CVTRV441 EQU CVTRV438 03055000 CVTRV440 EQU CVTRV438 03056000 CVTRV439 EQU CVTRV438 03057000 CVTRV437 EQU CVTRV429 03058000 CVTRV436 EQU CVTRV429 03059000 CVTRV435 EQU CVTRV429 03060000 CVTRV434 EQU CVTRV429 03061000 CVTRV433 EQU CVTRV429 03062000 CVTRV432 EQU CVTRV429 03063000 CVTRV431 EQU CVTRV429 03064000 CVTRV430 EQU CVTRV429 03065000 CVTRV428 EQU CVTXTNT2+80 03066000 CVTRV427 EQU CVTXTNT2+76 03067000 CVTRV426 EQU CVTXTNT2+72 03068000 CVTRV425 EQU CVTXTNT2+68 03069000 CVTATACT EQU CVTATCVT 03070000 CVTRV423 EQU CVTXTNT2+62 03071000 CVTRV422 EQU CVTXTNT2+60 03072000 CVTRV421 EQU CVTXTNT2+58 03073000 CVTRV420 EQU CVTXTNT2+56 03074000 CVTRV419 EQU CVTXTNT2+55 03075000 CVTRV418 EQU CVTXTNT2+54 03076000 CVTRV417 EQU CVTRV409 03077000 CVTRV416 EQU CVTRV409 03078000 CVTRV415 EQU CVTRV409 03079000 CVTRV414 EQU CVTRV409 03080000 CVTRV413 EQU CVTRV409 03081000 CVTRV412 EQU CVTRV409 03082000 CVTRV411 EQU CVTRV409 03083000 CVTRV410 EQU CVTRV409 03084000 CVTRV408 EQU CVTRV400 03085000 CVTRV407 EQU CVTRV400 03086000 CVTRV406 EQU CVTRV400 03087000 CVTRV405 EQU CVTRV400 03088000 CVTRV404 EQU CVTRV400 03089000 CVTRV403 EQU CVTRV400 03090000 CVTRV402 EQU CVTRV400 03091000 CVTRV401 EQU CVTRV400 03092000 CVTICB EQU CVTXTNT2+48 03093000 CVTSKTA EQU CVTXTNT2+44 03094000 CVTSHSB EQU CVTSHS 03095000 CVTRSV98 EQU CVTXTNT2+36 03096000 CVTRSV97 EQU CVTXTNT2+34 03097000 CVTRSV96 EQU CVTXTNT2+32 03098000 CVTOLTEP EQU CVTXTNT2+28 03099000 CVTQIDA EQU CVTQID+1 03100000 CVTRSV95 EQU CVTQID 03101000 CVTRSV94 EQU CVTXTNT2+20 03102000 CVTRSV93 EQU CVTXTNT2+16 03103000 CVTRSV92 EQU CVTXTNT2+12 03104000 CVTDEBVR EQU CVTXTNT2+8 03105000 CVTRSV91 EQU CVTXTNT2+6 03106000 CVTRSV9H EQU CVTFLGBT 03107000 CVTRSV9G EQU CVTFLGBT 03108000 CVTRSV9F EQU CVTFLGBT 03109000 CVTRSV9E EQU CVTFLGBT 03110000 CVTRSV9D EQU CVTFLGBT 03111000 CVTRSV9C EQU CVTFLGBT 03112000 CVTVME EQU CVTFLGBT 03113000 CVTNPE EQU CVTFLGBT 03114000 CVTNUCLS EQU CVTXTNT2+4 03115000 CVTDSSVA EQU CVTDSSV+1 03116000 CVTRSV89 EQU CVTDSSV 03117000 CVTRSV88 EQU CVTXTNT1+8 03118000 CVTRSV87 EQU CVTXTNT1+4 03119000 CVTFACHN EQU CVTXTNT1 03120000 CVTRV488 EQU CVTMAP+412 03121000 CVTRV487 EQU CVTMAP+408 03122000 CVTRV486 EQU CVTMAP+404 03123000 CVTRV485 EQU CVTMAP+400 03124000 CVTACTAP EQU CVTMAP+396 03125000 CVTAUTH EQU CVTMAP+392 03126000 CVTATMCA EQU CVTATMCT+1 03127000 CVTATMST EQU CVTATMCT 03128000 CVTRSV61 EQU CVTMAP+384 03129000 CVTVOLT1 EQU CVTVOLM1+1 03130000 CVTVOLI1 EQU CVTVOLF1 03131000 CVTSTOA EQU CVTMAP+376 03132000 CVTRSV58 EQU CVTMAP+374 03133000 CVTRSV57 EQU CVTMAP+372 03134000 CVTDDCE EQU CVTMAP+368 03135000 CVTPNWFR EQU CVTMAP+364 03136000 CVTSMF EQU CVTMAP+360 03137000 CVTSULK EQU CVTMAP+358 03138000 CVTSLKO EQU CVTSYSK 03139000 CVTSLKP EQU CVTSYSK 03140000 CVTSLKQ EQU CVTSYSK 03141000 CVTSLKR EQU CVTSYSK 03142000 CVTRSV56 EQU CVTSYSK 03143000 CVTRSV55 EQU CVTSYSK 03144000 CVTRSV54 EQU CVTSYSK 03145000 CVTRSV53 EQU CVTSYSK 03146000 CVTRSV52 EQU CVTA1F1 03147000 CVTRSV51 EQU CVTA1F1 03148000 CVTRSV50 EQU CVTA1F1 03149000 CVTRSV49 EQU CVTA1F1 03150000 CVTRSV48 EQU CVTA1F1 03151000 CVTRSV47 EQU CVTA1F1 03152000 CVTSRSW EQU CVTA1F1 03153000 CVTPFSW EQU CVTA1F1 03154000 CVTPCVT EQU CVTMAP+352 03155000 CVTRSV46 EQU CVTMAP+344 03156000 CVTRSV45 EQU CVTMAP+340 03157000 CVTRSV44 EQU CVTMAP+338 03158000 CVTRSV43 EQU CVTMAP+336 03159000 CVTHJESA EQU CVTHJES+1 03160000 CVTRSV42 EQU CVTHJES 03161000 CVTEXT2A EQU CVTEXT2+1 03162000 CVTRSV41 EQU CVTEXT2 03163000 CVTAPFA EQU CVTAPF+1 03164000 CVTRSV40 EQU CVTAPF 03165000 CVTRV518 EQU CVTINTLA 03166000 CVTRV517 EQU CVTERPV 03167000 CVTEORM EQU CVTMAP+312 03168000 CVTMCHPR EQU CVTMAP+308 03169000 CVTTZ EQU CVTMAP+304 03170000 CVTJEPS EQU CVTMAP+300 03171000 CVTJESCT EQU CVTMAP+296 03172000 CVTMODE EQU CVTMAP+292 03173000 CVTPTRV EQU CVTMAP+288 03174000 CVTREAL EQU CVTMAP+284 03175000 CVTRSV39 EQU CVTMAP+280 03176000 CVTRSV38 EQU CVTMAP+276 03177000 CVTDMSRA EQU CVTDMSR+1 03178000 CVTRSV37 EQU CVTDMSR 03179000 CVTQMSGA EQU CVTQMSG+1 03180000 CVTRSV36 EQU CVTQMSG 03181000 CVTAMFF EQU CVTMAP+264 03182000 CVTPURGA EQU CVTPURG+1 03183000 CVTRSV35 EQU CVTPURG 03184000 CVTCBSP EQU CVTMAP+256 03185000 CVTATERA EQU CVTATER+1 03186000 CVTSYST EQU CVTATER 03187000 CVTVOLT2 EQU CVTTAT 03188000 CVTVOLI2 EQU CVTVOLF2 03189000 CVTAQAVB EQU CVTAQAVT+1 03190000 CVTRSV34 EQU CVTTCMFG 03191000 CVTRSV33 EQU CVTTCMFG 03192000 CVTRSV32 EQU CVTTCMFG 03193000 CVTRSV31 EQU CVTTCMFG 03194000 CVTRSV30 EQU CVTTCMFG 03195000 CVTRSV29 EQU CVTTCMFG 03196000 CVTRSV28 EQU CVTTCMFG 03197000 CVTTCRDY EQU CVTTCMFG 03198000 CVTGTFA EQU CVTGTF+1 03199000 CVTRSV27 EQU CVTGTFST 03200000 CVTRNIO EQU CVTGTFST 03201000 CVTUSR EQU CVTGTFST 03202000 CVTRV318 EQU CVTFORM 03203000 CVTRV317 EQU CVTTMODE 03204000 CVTRV316 EQU CVTSTATE 03205000 CVTRV315 EQU CVTGTFS 03206000 CVTGTFAV EQU CVTGTFS 03207000 CVT0SCR1 EQU CVTMAP+232 03208000 CVTRV515 EQU CVTMAP+228 03209000 CVTRMS EQU CVTMAP+224 03210000 CVTPATCH EQU CVTMAP+220 03211000 CVTTSCE EQU CVTMAP+216 03212000 CVTLNKSC EQU CVTMAP+214 03213000 CVTQABST EQU CVTMAP+212 03214000 CVTMDLDS EQU CVTMAP+208 03215000 CVTUSER EQU CVTMAP+204 03216000 CVTABEND EQU CVTMAP+200 03217000 CVTSMCA EQU CVTMAP+196 03218000 CVTRSV18 EQU CVTMAP+192 03219000 CVTQLPAQ EQU CVTMAP+188 03220000 CVTQCDSR EQU CVTMAP+184 03221000 CVTRSV17 EQU CVTOPTB 03222000 CVTRSV16 EQU CVTOPTB 03223000 CVTFP EQU CVTOPTB 03224000 CVTAPTHR EQU CVTOPTB 03225000 CVTNLOG EQU CVTOPTB 03226000 CVTTOD EQU CVTOPTB 03227000 CVTCTIMS EQU CVTOPTB 03228000 CVTPROT EQU CVTOPTB 03229000 CVTXPFP EQU CVTOPTA 03230000 CVTASCII EQU CVTOPTA 03231000 CVTRSV13 EQU CVTOPTA 03232000 CVTRSV12 EQU CVTOPTA 03233000 CVTNIP EQU CVTOPTA 03234000 CVTDDR EQU CVTOPTA 03235000 CVTAPR EQU CVTOPTA 03236000 CVTCCH EQU CVTOPTA 03237000 CVTSNCTR EQU CVTMAP+180 03238000 CVTQMWR EQU CVTMAP+176 03239000 CVTQOCR EQU CVTMAP+172 03240000 CVT1EF00 EQU CVTMAP+168 03241000 CVTMZ00 EQU CVTMAP+164 03242000 CVTHEAD EQU CVTMAP+160 03243000 CVTRSV11 EQU CVTMAP+156 03244000 CVT0PT01 EQU CVTMAP+152 03245000 CVTMSER EQU CVTMAP+148 03246000 CVTRV516 EQU CVTIERLC 03247000 CVTILCH EQU CVTMAP+140 03248000 CVT0DS EQU CVTMAP+136 03249000 CVTFBOSV EQU CVTMAP+132 03250000 CVTNUCB EQU CVTMAP+128 03251000 CVTIXAVL EQU CVTMAP+124 03252000 CVTIOQET EQU CVTMAP+120 03253000 CVTDCBA EQU CVTMAP+117 03254000 CVTMVS2 EQU CVTDCB 03255000 CVT6DAT EQU CVTDCB 03256000 CVT4MPS EQU CVTDCB 03257000 CVTRSV09 EQU CVTDCB 03258000 CVT4MS1 EQU CVTDCB 03259000 CVT2SPS EQU CVTDCB 03260000 CVT1SSS EQU CVTDCB 03261000 CVTRSV08 EQU CVTDCB 03262000 CVTSTB EQU CVTMAP+112 03263000 CVTQTD00 EQU CVTMAP+108 03264000 CVTQTE00 EQU CVTMAP+104 03265000 CVTCUCB EQU CVTMAP+100 03266000 CVTSJQ EQU CVTMAP+96 03267000 CVTPBLDL EQU CVTMAP+92 03268000 CVTTPC EQU CVTMAP+88 03269000 CVTSVDCB EQU CVTMAP+84 03270000 CVTBRET EQU CVTMAP+82 03271000 CVTEXIT EQU CVTMAP+80 03272000 CVT0FN00 EQU CVTMAP+76 03273000 CVTDARA EQU CVTDAR+1 03274000 CVTRSV07 EQU CVTFLGS1 03275000 CVTRSV06 EQU CVTFLGS1 03276000 CVTRSV05 EQU CVTFLGS1 03277000 CVTRSV04 EQU CVTFLGS1 03278000 CVTRSV03 EQU CVTFLGS1 03279000 CVTRSV02 EQU CVTFLGS1 03280000 CVTRSV01 EQU CVTFLGS1 03281000 CVTDMPLK EQU CVTFLGS1 03282000 CVTXITP EQU CVTMAP+68 03283000 CVTZDTAB EQU CVTMAP+64 03284000 CVTMSLT EQU CVTMAP+60 03285000 CVTDATE EQU CVTMAP+56 03286000 CVTBTERM EQU CVTMAP+52 03287000 CVTSYSAD EQU CVTMAP+48 03288000 CVTXTLER EQU CVTMAP+44 03289000 CVTILK2 EQU CVTMAP+40 03290000 CVTILK1 EQU CVTMAP+36 03291000 CVTPRLTV EQU CVTMAP+32 03292000 CVTPCNVT EQU CVTMAP+28 03293000 CVT0VL00 EQU CVTMAP+24 03294000 CVTXAPG EQU CVTMAP+20 03295000 CVTBUF EQU CVTMAP+16 03296000 CVTJOB EQU CVTMAP+12 03297000 CVTLINK EQU CVTMAP+8 03298000 CVT0EF00 EQU CVTMAP+4 03299000 CVTTCBP EQU CVTMAP 03300000 CVT EQU CVTMAP 03301000 @NM00026 EQU PSA+3668 03302000 PSASTAK EQU PSA+3072 03303000 @NM00025 EQU PSA+1048 03304000 PSAUSEND EQU PSA+1048 03305000 PSARV062 EQU PSA+1044 03306000 PSACDAL EQU PSA+1040 03307000 PSAWTCOD EQU PSA+1036 03308000 PSAATCVT EQU PSA+1032 03309000 PSAPCPSW EQU PSA+1024 03310000 PSAPIR2 EQU PSA+1020 03311000 PSARV059 EQU PSA+1018 03312000 PSASVC13 EQU PSA+1016 03313000 PSALSFCC EQU PSA+1012 03314000 PSASFACC EQU PSA+1008 03315000 PSASTOP EQU PSA+992 03316000 PSASTART EQU PSA+976 03317000 PSARSPSW EQU PSA+968 03318000 PSASRPSW EQU PSA+960 03319000 PSARV045 EQU PSA+892 03320000 PSARV044 EQU PSA+888 03321000 PSARV043 EQU PSA+884 03322000 PSARV042 EQU PSA+880 03323000 PSARV041 EQU PSA+876 03324000 PSARV040 EQU PSA+872 03325000 PSARV025 EQU PSA+868 03326000 PSADSSED EQU PSA+868 03327000 PSADSSPR EQU PSA+864 03328000 PSADSSFW EQU PSA+860 03329000 PSADSS14 EQU PSA+856 03330000 PSADSSPP EQU PSA+848 03331000 PSADSSRP EQU PSA+840 03332000 PSADSS05 EQU PSADSSF4 03333000 PSADSS10 EQU PSADSSF4 03334000 PSADSSVE EQU PSADSSF4 03335000 PSADSSDE EQU PSADSSF4 03336000 PSADSSC0 EQU PSADSSF4 03337000 PSADSSIE EQU PSADSSF4 03338000 PSADSS12 EQU PSADSSF4 03339000 PSADSSRC EQU PSADSSF4 03340000 PSARV057 EQU PSADSSF3 03341000 PSARV056 EQU PSADSSF3 03342000 PSARV055 EQU PSADSSF3 03343000 PSADSSMC EQU PSADSSF3 03344000 PSADSSRW EQU PSADSSF3 03345000 PSADSSNM EQU PSADSSF3 03346000 PSADSSES EQU PSADSSF3 03347000 PSADSSGP EQU PSADSSF3 03348000 PSADSSF2 EQU PSADSSFL+1 03349000 PSADSSPI EQU PSADSSF1 03350000 PSADSSOI EQU PSADSSF1 03351000 PSADSSSP EQU PSADSSF1 03352000 PSADSSTP EQU PSADSSF1 03353000 PSADSSDW EQU PSADSSF1 03354000 PSADSSDD EQU PSADSSF1 03355000 PSADSSDM EQU PSADSSF1 03356000 PSADSSMV EQU PSADSSF1 03357000 PSADSSTS EQU PSA+816 03358000 PSADSSWK EQU PSA+812 03359000 PSADSSR3 EQU PSA+808 03360000 PSADSSR2 EQU PSA+804 03361000 PSADSSRS EQU PSA+800 03362000 PSASTOR EQU PSA+796 03363000 PSACPUSA EQU PSA+794 03364000 PSAVSTAP EQU PSA+792 03365000 PSAWKVAP EQU PSA+788 03366000 PSAWKRAP EQU PSA+784 03367000 PSAMCHIC EQU PSA+783 03368000 PSARV061 EQU PSA+782 03369000 PSASYMSK EQU PSA+781 03370000 PSAMCHFL EQU PSA+780 03371000 PSACR0 EQU PSA+776 03372000 PSAPSWSV EQU PSA+768 03373000 PSACLHS EQU PSAHLHI 03374000 PSALKR15 EQU PSALKSA+60 03375000 PSALKR14 EQU PSALKSA+56 03376000 PSALKR13 EQU PSALKSA+52 03377000 PSALKR12 EQU PSALKSA+48 03378000 PSALKR11 EQU PSALKSA+44 03379000 PSALKR10 EQU PSALKSA+40 03380000 PSALKR9 EQU PSALKSA+36 03381000 PSALKR8 EQU PSALKSA+32 03382000 PSALKR7 EQU PSALKSA+28 03383000 PSALKR6 EQU PSALKSA+24 03384000 PSALKR5 EQU PSALKSA+20 03385000 PSALKR4 EQU PSALKSA+16 03386000 PSALKR3 EQU PSALKSA+12 03387000 PSALKR2 EQU PSALKSA+8 03388000 PSALKR1 EQU PSALKSA+4 03389000 PSALKR0 EQU PSALKSA 03390000 PSARV023 EQU PSACLHT+52 03391000 PSALOCAL EQU PSACLHT+48 03392000 PSACMSL EQU PSACLHT+44 03393000 PSAOPTL EQU PSACLHT+40 03394000 PSATPACL EQU PSACLHT+36 03395000 PSATPDNL EQU PSACLHT+32 03396000 PSATPNCL EQU PSACLHT+28 03397000 PSAIOSLL EQU PSACLHT+24 03398000 PSAIOSUL EQU PSACLHT+20 03399000 PSAIOSCL EQU PSACLHT+16 03400000 PSAIOSSL EQU PSACLHT+12 03401000 PSASALCL EQU PSACLHT+8 03402000 PSAASML EQU PSACLHT+4 03403000 PSADISPL EQU PSACLHT 03404000 PSASRSA EQU PSA+636 03405000 PSARV050 EQU PSA+634 03406000 PSADSSGO EQU PSA+633 03407000 PSARECUR EQU PSA+632 03408000 PSAHLHIS EQU PSA+628 03409000 PSAIPCSA EQU PSA+624 03410000 @NM00024 EQU PSA+621 03411000 PSAIPCDM EQU PSA+620 03412000 PSAIPCD EQU PSA+616 03413000 @NM00023 EQU PSA+613 03414000 PSAIPCRM EQU PSA+612 03415000 PSAIPCR EQU PSA+608 03416000 PSAMCHEX EQU PSA+600 03417000 PSAMPSW EQU PSA+592 03418000 PSAEXPS2 EQU PSA+584 03419000 PSAEXPS1 EQU PSA+576 03420000 PSAPIREG EQU PSA+572 03421000 PSARSREG EQU PSA+568 03422000 PSAGPREG EQU PSA+556 03423000 PSARV022 EQU PSASUP4 03424000 PSARV021 EQU PSASUP4 03425000 PSARV020 EQU PSASUP4 03426000 PSARV019 EQU PSASUP4 03427000 PSARV018 EQU PSASUP4 03428000 PSARV017 EQU PSASUP4 03429000 PSARV016 EQU PSASUP4 03430000 PSARV015 EQU PSASUP4 03431000 PSARV014 EQU PSASUP3 03432000 PSARV013 EQU PSASUP3 03433000 PSARV012 EQU PSASUP3 03434000 PSARV011 EQU PSASUP3 03435000 PSASPR EQU PSASUP3 03436000 PSAPSREG EQU PSASUP3 03437000 PSAPI2 EQU PSASUP3 03438000 PSAIOSUP EQU PSASUP3 03439000 PSALCR EQU PSASUP2 03440000 PSARTM EQU PSASUP2 03441000 PSAACR EQU PSASUP2 03442000 PSAIPCE2 EQU PSASUP2 03443000 PSAIPCES EQU PSASUP2 03444000 PSAIPCEC EQU PSASUP2 03445000 PSAGTF EQU PSASUP2 03446000 PSAIPCRI EQU PSASUP2 03447000 PSARV063 EQU PSASUP1 03448000 PSATCTL EQU PSASUP1 03449000 PSADISP EQU PSASUP1 03450000 PSALOCK EQU PSASUP1 03451000 PSAPI EQU PSASUP1 03452000 PSAEXT EQU PSASUP1 03453000 PSASVC EQU PSASUP1 03454000 PSAIO EQU PSASUP1 03455000 PSAAOLD EQU PSA+548 03456000 PSAANEW EQU PSA+544 03457000 PSATOLD EQU PSA+540 03458000 PSATNEW EQU PSA+536 03459000 PSALCCAR EQU PSA+532 03460000 PSALCCAV EQU PSA+528 03461000 PSAPCCAR EQU PSA+524 03462000 PSAPCCAV EQU PSA+520 03463000 PSACPULA EQU PSA+518 03464000 PSACPUPA EQU PSA+516 03465000 PSAPSA EQU PSA+512 03466000 FLCHDEND EQU PSA+512 03467000 FLCCRSAV EQU FLCMCLA+280 03468000 FLCGRSAV EQU FLCMCLA+216 03469000 FLCFPSAV EQU FLCMCLA+184 03470000 FLCFLA EQU FLCMCLA+88 03471000 FLCRGNCD EQU FLCMCLA+84 03472000 FLCFSAA EQU FLCFSA+1 03473000 @NM00022 EQU FLCFSA 03474000 @NM00021 EQU FLCMCLA+72 03475000 FLCMCIC EQU FLCMCLA+64 03476000 @NM00020 EQU FLCMCLA+20 03477000 FLCIOAA EQU FLCIOA+1 03478000 @NM00019 EQU FLCIOA 03479000 @NM00018 EQU FLCMCLA+15 03480000 @NM00017 EQU FLCMCLA+14 03481000 @NM00016 EQU FLCMCLA+12 03482000 FLCLCL EQU FLCMCLA+8 03483000 FLCIOELA EQU FLCIOEL+1 03484000 @NM00015 EQU FLCIOEL 03485000 FLCCHNID EQU FLCMCLA 03486000 @NM00014 EQU PSA+160 03487000 FLCMTRCD EQU PSA+157 03488000 @NM00013 EQU PSA+156 03489000 FLCPERA EQU FLCPER+1 03490000 @NM00012 EQU FLCPER 03491000 @NM00011 EQU PSA+151 03492000 FLCPERCD EQU PSA+150 03493000 FLCMCNUM EQU PSA+149 03494000 @NM00010 EQU PSA+148 03495000 FLCTEAA EQU FLCTEA+1 03496000 @NM00009 EQU FLCTEA 03497000 PSAPIPC EQU PSAPICOD 03498000 PSAPIMC EQU PSAPICOD 03499000 PSAPIPER EQU PSAPICOD 03500000 PSARV049 EQU FLCPICOD 03501000 FLCPILCB EQU FLCPIILC 03502000 @NM00008 EQU FLCPIILC 03503000 @NM00007 EQU PSAEPPSW 03504000 FLCSVCN EQU PSAESPSW+2 03505000 FLCSILCB EQU FLCSVILC 03506000 @NM00006 EQU FLCSVILC 03507000 @NM00005 EQU PSAESPSW 03508000 FLCEICOD EQU PSAEEPSW+2 03509000 PSASPAD EQU PSAEEPSW 03510000 @NM00004 EQU PSA+128 03511000 FLCINPSW EQU PSA+120 03512000 FLCMNPSW EQU PSA+112 03513000 FLCPNPSW EQU PSA+104 03514000 FLCSNPSW EQU PSA+96 03515000 FLCENPSW EQU PSA+88 03516000 FLCTRACE EQU PSA+84 03517000 FLCTIMER EQU PSA+80 03518000 FLCCVT2 EQU PSA+76 03519000 FLCCAW EQU PSA+72 03520000 FLCCSW EQU PSA+64 03521000 FLCIOPSW EQU PSA+56 03522000 FLCMOPSW EQU PSA+48 03523000 FLCPOPSW EQU PSA+40 03524000 FLCSOPSW EQU PSA+32 03525000 FLCEOPSW EQU PSA+24 03526000 @NM00003 EQU FLCICCW2+4 03527000 FLCCVT EQU FLCICCW2 03528000 FLCICCW1 EQU FLCROPSW 03529000 FLCIPPSW EQU FLCRNPSW 03530000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03531000 ELS03 EQU @EL00001 03532000 @RT00353 EQU BLK46 03533000 TR12 EQU BLK46 03534000 @RC00392 EQU @RC00391 03535000 @RT00189 EQU @EL00001 03536000 @ENDDATA EQU * 03537000 END ISTAPC33,(C'PLS1651',0603,75290) 03538000