SVTM TITLE ' COMMAND FAC-- ISTCFCR2 -- POI BUILD/PURGE PROCESS *00001000 ' 00002000 ISTCFCR2 CSECT , 01S0001 00003000 @MAINENT DS 0H 01S0001 00004000 USING *,@15 01S0001 00005000 B @PROLOG 01S0001 00006000 DC AL1(16) 01S0001 00007000 DC C'ISTCFCR2 78.062' 01S0001 00008000 DROP @15 00009000 @PROLOG BALR @12,0 01S0001 00010000 @PSTART DS 0H 01S0001 00011000 USING @PSTART,@12 01S0001 00012000 * 01S0123 00013000 * /*****************************************************************/ 00014000 * /* */ 00015000 * /* ** MAINLINE CODE OF ISTCFCR2 */ 00016000 * /* */ 00017000 * /*****************************************************************/ 00018000 * 01S0123 00019000 * DO; 01S0123 00020000 * 01S0123 00021000 */*** CRRMAINT PROCNM(ISTCFCR2)COMP(CF)FUNC(MAIN)RPHADD((CR2RPHPT)) 00022000 ** */ 00023000 */* CRRMAINT - RPH ADDRESS IGNORED WITH FUNCTION TYPE MAIN */ 00024000 */* ATBUILD (ISTRPH,ISTCRA,ISTPFCRR,ISTCFCRR) */ 00025000 * 01S0124 00026000 * RFY 01S0124 00027000 * ISTLCCW; 01S0124 00028000 * RFY 01S0125 00029000 * ISTLCPB; 01S0125 00030000 * RFY 01S0126 00031000 * ISTZSAVE; 01S0126 00032000 * RFY 01S0127 00033000 * ISTPFCRR; 01S0127 00034000 * RFY 01S0128 00035000 * ISTCFCRR; 01S0128 00036000 * RFY 01S0129 00037000 * ISTZCRR; 01S0129 00038000 * RFY 01S0130 00039000 * ISTASCRR; 01S0130 00040000 * RFY 01S0131 00041000 * ISTAPCRR; 01S0131 00042000 * RFY 01S0132 00043000 * ISTCRA; 01S0132 00044000 * 01S0132 00045000 */* END OF ATBUILD */ 00046000 */* ** SAVE CRR AND FRR POINTERS ** */ 00047000 * 01S0133 00048000 * ADDR(CR2RPHPT->RPHCRR->CRAPROCR)->PFCCRRO=CR2RPHPT->RPHCRR-> 00049000 * CRACRR; 01S0133 00050000 L @15,RPHCRR(,CR2RPHPT) 01S0133 00051000 LA @11,312 01S0133 00052000 ALR @11,@15 01S0133 00053000 MVC PFCCRRO(4,@11),CRACRR(@15) 01S0133 00054000 * ADDR(CR2RPHPT->RPHCRR->CRAPROCR)->PFCFRRO=CR2RPHPT->RPHCRR-> 00055000 * CRAFRR; 01S0134 00056000 * 01S0134 00057000 MVC PFCFRRO(4,@11),CRAFRR(@15) 01S0134 00058000 */* ** SET UP POINTERS TO OUR CRR, FRR ** */ 00059000 * 01S0135 00060000 * CR2RPHPT->RPHCRR->CRACRR=ADDR(CR2RPHPT->RPHCRR->CRAPROCR); 00061000 LA @00,CRAPROCR(,@15) 01S0135 00062000 ST @00,CRACRR(,@15) 01S0135 00063000 * CR2RPHPT->RPHCRR->CRAFRR=0; 01S0136 00064000 * 01S0136 00065000 SLR @11,@11 01S0136 00066000 ST @11,CRAFRR(,@15) 01S0136 00067000 */* ** SET OUR COMPONENT PROCESS ID IN CRR ** */ 00068000 * 01S0137 00069000 * CR2RPHPT->RPHCRR->CRACRR->PFCFTA=TIDCFCR2; 01S0137 00070000 * 01S0137 00071000 LR @11,@00 01S0137 00072000 MVI PFCFTA(@11),X'02' 01S0137 00073000 */* ** CLEAR COMPONENT ENTERED INDICATORS ** */ 00074000 * 01S0138 00075000 * CR2RPHPT->RPHCRR->CRACRR->CFCNTRD='0'B; 01S0138 00076000 * 01S0138 00077000 LR @11,@00 01S0138 00078000 MVI CFCNTRD(@11),B'00000000' 01S0138 00079000 */* ** SET ENTERED BIT FOR THIS PROCEDURE ** */ 00080000 * 01S0139 00081000 * CR2RPHPT->RPHCRR->CRACRR->NCFCR2='1'B; 01S0139 00082000 * 01S0139 00083000 LR @11,@00 01S0139 00084000 OI NCFCR2(@11),B'00001000' 01S0139 00085000 */* ** CLEAR AND SET CURRENT PROCEDURE BIT ** */ 00086000 * 01S0140 00087000 * CR2RPHPT->RPHCRR->CRACRR->CFCCRT='0'B; 01S0140 00088000 LR @11,@00 01S0140 00089000 MVI CFCCRT(@11),B'00000000' 01S0140 00090000 * CR2RPHPT->RPHCRR->CRACRR->CCFCR2='1'B; 01S0141 00091000 LR @11,@00 01S0141 00092000 OI CCFCR2(@11),B'00001000' 01S0141 00093000 * END; 01S0142 00094000 * REGSAPTR=ADDR(CR2RPHPT->RPHCRR->CRASVC);/* INIT S.A. PTR @ZA29867*/ 00095000 LA REGSAPTR,CRASVC(,@15) 01S0143 00096000 * DO; /* LISATCVT 01S0144 00097000 * CVTBASE(PAGEABLE,(CR2ACVT)) */ 00098000 * CR2ACVT=ATCLCPTR; /* SET UP ATCVT POINTER */ 00099000 L CR2ACVT,ATCLCPTR 01S0145 00100000 * END; /* LISATCVT */ 00101000 */*** START -TPLOCK (RDTLOCK)TYPE(XCLSIVE)- ** */ 00102000 * 01S0147 00103000 * DO; 01S0147 00104000 * RFY 01S0148 00105000 * (GPR00P, 01S0148 00106000 * GPR01P, 01S0148 00107000 * GPR02P, 01S0148 00108000 * GPR03P, 01S0148 00109000 * GPR04P, 01S0148 00110000 * GPR15P) RSTD; 01S0148 00111000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(RPHWORK); 00112000 STM GPR00P,GPR14P,RPHWORK(GPR01P) 00113000 * GPR15P=ATCAP36; /* ADDRESS OF LOCK ROUTINE */ 00114000 L GPR15P,ATCAP36(,CR2ACVT) 01S0150 00115000 * GPR02P=ADDR(ATCRDTLK); /* SET PARAM - LOCKWORD PTR */ 00116000 LA GPR02P,ATCRDTLK(,CR2ACVT) 01S0151 00117000 * GPR04P=GPR01P->RPHCRR; /* SET PARAM - ISTCRA PTR */ 00118000 L GPR04P,RPHCRR(,GPR01P) 01S0152 00119000 * GPR00P=CRALMS03; /* SET PARAM - LOCK LEVEL FLAG */ 00120000 LA GPR00P,4 01S0153 00121000 * GPR03P=ADDR(GPR04P->CRAL3PTR);/* SET PARAM - LOCK LEVEL PTR */ 00122000 LA GPR03P,CRAL3PTR(,GPR04P) 01S0154 00123000 * DCL 01S0155 00124000 * FMZL0017 BASED(GPR15P) LABEL VALUERANGE(*); 01S0155 00125000 * CALL FMZL0017; 01S0156 00126000 BALR @14,@15 01S0156 00127000 * GENERATE REFS(GPR00P,GPR01P,GPR14P,RPHWORK) SETS(GPR00P,GPR01P, 00128000 * GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P,GPR09P, 00129000 * GPR10P,GPR11P,GPR12P,GPR13P,GPR14P,GPR15P); 01S0157 00130000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 00131000 * RFY 01S0158 00132000 * (GPR00P, 01S0158 00133000 * GPR01P, 01S0158 00134000 * GPR02P, 01S0158 00135000 * GPR03P, 01S0158 00136000 * GPR04P, 01S0158 00137000 * GPR15P) UNRSTD; 01S0158 00138000 * END; 01S0159 00139000 * 01S0159 00140000 */*** END -TPLOCK (RDTLOCK)TYPE(XCLSIVE)- ** */ 00141000 * 01S0160 00142000 * RFY 01S0160 00143000 * CR2R15F RSTD; 01S0160 00144000 * IF CR2R15F=ZERO /* TPLOCK SUCCESSFULL */ 00145000 * THEN 01S0161 00146000 LTR CR2R15F,CR2R15F 01S0161 00147000 BNZ @RF00161 01S0161 00148000 * DO; 01S0162 00149000 * RFY 01S0163 00150000 * CR2R15F UNRSTD; 01S0163 00151000 * 01S0163 00152000 */* TPDEQ (,DYPPAB) CHAIN(POCPSSQ) */ 00153000 * 01S0164 00154000 * DO; /* BEGIN TPDEQ CODE GENERATION */ 00155000 * DCL 01S0165 00156000 * FMZCA022 BIT(32) CONSTANT('80000000'X); 01S0165 00157000 * DCL 01S0166 00158000 * FMZCB022 BIT(32) CONSTANT('7FFFFFFF'X); 01S0166 00159000 * RFY 01S0167 00160000 * (GPR00P, 01S0167 00161000 * GPR01P, 01S0167 00162000 * GPR14P, 01S0167 00163000 * GPR15P) RSTD; 01S0167 00164000 * GPR15P=ADDR(DYPPAB); /* ADDRESS QUEUE POINTER */ 00165000 LA GPR15P,DYPPAB+1552(,CR2ACVT) 01S0168 00166000 * GPR14P=GPR15P->PABWEQA|FMZCA022; 01S0169 00167000 L @11,@CF01482 01S0169 00168000 L GPR14P,PABWEQA(,GPR15P) 01S0169 00169000 OR GPR14P,@11 01S0169 00170000 * IF GPR14P=FMZCA022 THEN 01S0170 00171000 CLR GPR14P,@11 01S0170 00172000 BE @RT00170 01S0170 00173000 * ; 01S0171 00174000 * ELSE 01S0172 00175000 * DO; 01S0172 00176000 *FMZL1022: 01S0173 00177000 * ; 01S0173 00178000 FMZL1022 DS 0H 01S0174 00179000 * DO WHILE(GPR14P->POCPSSQ^=FMZCA022); 01S0174 00180000 B @DE00174 01S0174 00181000 @DL00174 DS 0H 01S0175 00182000 * GPR15P=ADDR(GPR14P->POCPSSQ); 01S0175 00183000 LA GPR15P,POCPSSQ(,GPR14P) 01S0175 00184000 * GPR14P=GPR15P->PABWEQA; 01S0176 00185000 L GPR14P,PABWEQA(,GPR15P) 01S0176 00186000 * END; 01S0177 00187000 @DE00174 L @11,@CF01482 01S0177 00188000 CL @11,POCPSSQ(,GPR14P) 01S0177 00189000 BNE @DL00174 01S0177 00190000 * GPR00P=FMZCA022; 01S0178 00191000 LR GPR00P,@11 01S0178 00192000 * CS(GPR14P,GPR00P,GPR15P->PABWEQA); 01S0179 00193000 CS GPR14P,@00,PABWEQA(GPR15P) 01S0179 00194000 * BC(7,FMZL1022); 01S0180 00195000 BC 7,FMZL1022 01S0180 00196000 * GPR14P->POCPSSQ=0; 01S0181 00197000 SLR @11,@11 01S0181 00198000 ST @11,POCPSSQ(,GPR14P) 01S0181 00199000 * END; 01S0182 00200000 *ISTA0022: 01S0183 00201000 * ; 01S0183 00202000 @RT00170 DS 0H 01S0183 00203000 ISTA0022 DS 0H 01S0184 00204000 * GPR14P=GPR14P&FMZCB022; 01S0184 00205000 N GPR14P,@CF01484 01S0184 00206000 * GPR01P->RPHWEA=GPR14P; 01S0185 00207000 ST GPR14P,RPHWEA(,GPR01P) 01S0185 00208000 * RFY 01S0186 00209000 * (GPR00P, 01S0186 00210000 * GPR01P, 01S0186 00211000 * GPR14P, 01S0186 00212000 * GPR15P) UNRSTD; 01S0186 00213000 * END; /* END TPDEQ GENERATION */ 00214000 * IF POCCBID=POWE /* DO WE HAVE A POWE W.E. */ 00215000 * THEN 01S0188 00216000 L @15,RPHWEA(,CR2RPHPT) 01S0188 00217000 CLI POCCBID(@15),X'49' 01S0188 00218000 BNE @RF00188 01S0188 00219000 * CALL CR2BLDCB; 01S0189 00220000 BAL @14,CR2BLDCB 01S0189 00221000 * ELSE 01S0190 00222000 * IF POCCBID=POCB /* DO WE HAVE A POCB */ 00223000 * THEN 01S0190 00224000 B @RC00188 01S0190 00225000 @RF00188 L @15,RPHWEA(,CR2RPHPT) 01S0190 00226000 CLI POCCBID(@15),X'46' 01S0190 00227000 BNE @RF00190 01S0190 00228000 * CALL CR2PRGE; 01S0191 00229000 BAL @14,CR2PRGE 01S0191 00230000 * ELSE 01S0192 00231000 * IF POCCBID=PORCB /* DO WE HAVE A PORCB AS W.E. */ 00232000 * THEN 01S0192 00233000 B @RC00190 01S0192 00234000 @RF00190 L @15,RPHWEA(,CR2RPHPT) 01S0192 00235000 CLI POCCBID(@15),X'48' 01S0192 00236000 BNE @RF00192 01S0192 00237000 * CALL CR2CLNUP; 01S0193 00238000 * 01S0193 00239000 BAL @14,CR2CLNUP 01S0193 00240000 */*** START -TPUNLOCK (RDTLOCK)- ** */ 00241000 * 01S0194 00242000 * DO; 01S0194 00243000 * 01S0194 00244000 @RF00192 DS 0H 01S0194 00245000 @RC00190 DS 0H 01S0194 00246000 @RC00188 DS 0H 01S0195 00247000 */* ATBUILD (ISTRPH,ISTLOK,ISTCRA) */ 00248000 */* END OF ATBUILD */ 00249000 * 01S0195 00250000 * RFY 01S0195 00251000 * (GPR00P, 01S0195 00252000 * GPR01P, 01S0195 00253000 * GPR02P, 01S0195 00254000 * GPR03P, 01S0195 00255000 * GPR04P, 01S0195 00256000 * GPR15P) RSTD; 01S0195 00257000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(RPHWORK); 00258000 STM GPR00P,GPR15P,RPHWORK(GPR01P) 00259000 * GPR02P=ADDR(ATCRDTLK); /* SET PARAM - LOCKWORD PTR */ 00260000 LA GPR02P,ATCRDTLK(,CR2ACVT) 01S0197 00261000 * GPR04P=GPR01P->RPHCRR; /* SET PARAM - ISTCRA PTR */ 00262000 L GPR04P,RPHCRR(,GPR01P) 01S0198 00263000 * GPR00P=CRALMS03; /* SET PARAM - LOCK LEVEL FLAG */ 00264000 LA GPR00P,4 01S0199 00265000 * GPR03P=ADDR(GPR04P->CRAL3PTR);/* SET PARAM - LOCK LEVEL PTR*/ 00266000 LA GPR03P,CRAL3PTR(,GPR04P) 01S0200 00267000 * DO; /* LISATCVT 01S0201 00268000 * CVTBASE(PAGEABLE,(GPR15P)) */ 00269000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00270000 L GPR15P,ATCLCPTR 01S0202 00271000 * END; /* LISATCVT */ 00272000 * GPR15P=GPR15P->ATCAP33; 01S0204 00273000 L GPR15P,ATCAP33(,GPR15P) 01S0204 00274000 * DCL 01S0205 00275000 * FMZL0026 BASED(GPR15P) LABEL VALUERANGE(*); 01S0205 00276000 * CALL FMZL0026; 01S0206 00277000 BALR @14,@15 01S0206 00278000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) SETS(GPR00P, 00279000 * GPR01P,GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P, 00280000 * GPR09P,GPR10P,GPR11P,GPR12P,GPR13P,GPR14P,GPR15P); 00281000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 00282000 * RFY 01S0208 00283000 * (GPR00P, 01S0208 00284000 * GPR01P, 01S0208 00285000 * GPR02P, 01S0208 00286000 * GPR03P, 01S0208 00287000 * GPR04P, 01S0208 00288000 * GPR15P) UNRSTD; 01S0208 00289000 * END; 01S0209 00290000 * 01S0209 00291000 */*** END -TPUNLOCK (RDTLOCK)- ** */ 00292000 * 01S0210 00293000 * END; 01S0210 00294000 EJECT 00295000 *CR2BLDCB: 01S0211 00296000 * PROC OPTIONS(NOSAVE NOSAVEAREA); 01S0211 00297000 B @PB00002 01S0211 00298000 CR2BLDCB DS 0H 01S0212 00299000 * CR2R14SV=CR2RTPT; /* SAVE RETURN ADD SINCE WILL 00300000 * CALL ANOTHER SUBROUT INE */ 00301000 LR CR2R14SV,CR2RTPT 01S0212 00302000 */* GETSTOR SIZE(32)CLEAR(YES) */ 00303000 * 01S0213 00304000 * DO; 01S0213 00305000 * 01S0213 00306000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 00307000 */* END OF ATBUILD */ 00308000 * 01S0214 00309000 * RFY 01S0214 00310000 * (GPR00P, 01S0214 00311000 * GPR01P, 01S0214 00312000 * GPR02P, 01S0214 00313000 * GPR03P) RSTD; 01S0214 00314000 * RFY 01S0215 00315000 * ISTRPH BASED(GPR01P); 01S0215 00316000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P,GPR09P, 00317000 * GPR10P,GPR11P,GPR12P,GPR13P) SETS(RPHWORK); 01S0216 00318000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 00319000 * GPR00F=32; /* SIZE IN REG0 */ 00320000 LA GPR00F,32 01S0217 00321000 * DCL 01S0218 00322000 * 1 CMZA0036 FIXED(31) STATIC LOCAL, 01S0218 00323000 * 2 * FIXED(8) INIT(96), /* OPTION FLAGS */ 00324000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 00325000 * 2 * FIXED(8) INIT(231), /* SUBPOOL NUMBER */ 00326000 * 2 * FIXED(8) INIT('00'X); /* REQUEST TYPE */ 00327000 * GPR03F=CMZA0036; 01S0219 00328000 L GPR03F,CMZA0036 01S0219 00329000 * DO; /* LISATCVT 01S0220 00330000 * CVTBASE(PAGEABLE,(GPR02P)) */ 00331000 * GPR02P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00332000 L GPR02P,ATCLCPTR 01S0221 00333000 * END; /* LISATCVT */ 00334000 * CALL GPR02P->ATCGTSTR; /* CALL ISTORFSR */ 00335000 L @15,ATCGTSTR(,GPR02P) 01S0223 00336000 BALR @14,@15 01S0223 00337000 * RFY 01S0224 00338000 * (GPR00P, 01S0224 00339000 * GPR01P, 01S0224 00340000 * GPR02P, 01S0224 00341000 * GPR03P) UNRSTD; 01S0224 00342000 * END; /* END OF GETSTOR */ 00343000 * RFY 01S0226 00344000 * CR2R15F RSTD; 01S0226 00345000 * IF CR2R15F=ZERO THEN 01S0227 00346000 LTR CR2R15F,CR2R15F 01S0227 00347000 BNZ @RF00227 01S0227 00348000 * DO; 01S0228 00349000 * RFY 01S0229 00350000 * CR2R15F UNRSTD; 01S0229 00351000 * CR2WAPTR=RPHSRPRM; /* SAVE ADD OF STORAGE FOR WORK 00352000 * AREA */ 00353000 L CR2WAPTR,RPHSRPRM(,GPR01P) 01S0230 00354000 * IF ATCPOIA^=ZERO /* POI EXIST? */ 00355000 * THEN 01S0231 00356000 SLR @15,@15 01S0231 00357000 ICM @15,7,ATCPOIA(CR2ACVT) 01S0231 00358000 LTR @15,@15 01S0231 00359000 BZ @RF00231 01S0231 00360000 * IF POHGEN=OFF /* MSG IS UNSOLICITED */ 00361000 * THEN 01S0232 00362000 L @11,RPHWEA(,GPR01P) 01S0232 00363000 TM POHGEN+12(@11),B'00000001' 01S0232 00364000 BNZ @RF00232 01S0232 00365000 * DO; 01S0233 00366000 * RFY 01S0234 00367000 * ISTPOCB BASED(POIPRIMQ); 01S0234 00368000 * IF POIPRIMQ^=ZERO&(POCACT=ON&POCINACT=OFF)/* @ZA26100*/ 00369000 * 01S0235 00370000 * /*******************************************************/ 00371000 * /* */ 00372000 * /* WE HAVE AN ACTIVE PRIMARY POCB */ 00373000 * /* */ 00374000 * /*******************************************************/ 00375000 * 01S0235 00376000 * THEN 01S0235 00377000 SLR @11,@11 01S0235 00378000 ICM @11,7,POIPRIMQ(@15) 01S0235 00379000 LTR @11,@11 01S0235 00380000 BZ @RF00235 01S0235 00381000 TM POCACT(@11),B'10000000' 01S0235 00382000 BNO @RF00235 01S0235 00383000 TM POCINACT(@11),B'01000000' 01S0235 00384000 BNZ @RF00235 01S0235 00385000 * DO; 01S0236 00386000 * RFY 01S0237 00387000 * CR2PTR RSTD; 01S0237 00388000 * CR2PTR=POIPRIMQ; /* SAVES POCB ADDRESS */ 00389000 LR CR2PTR,@11 01S0238 00390000 * CALL CR2BUILD; /* BUILDS POI CONTROL BLOCKS */ 00391000 BAL @14,CR2BUILD 01S0239 00392000 * RFY 01S0240 00393000 * CR2PTR UNRSTD; 01S0240 00394000 * END; 01S0241 00395000 * ELSE 01S0242 00396000 * DO; 01S0242 00397000 B @RC00235 01S0242 00398000 @RF00235 DS 0H 01S0243 00399000 * CR2R1SV=CR2RPHPT; /* SAVE RPH PTR ACROSS IWTO/R 00400000 * CALL */ 00401000 LR CR2R1SV,CR2RPHPT 01S0243 00402000 * RFY 01S0244 00403000 * ISTRPH BASED(CR2R1SV); 01S0244 00404000 * CR2RPHPT=ADDR(POWWPL);/* POINT TO MSG FOR OPERATOR */ 00405000 L @15,RPHWEA(,CR2R1SV) 01S0245 00406000 LA CR2RPHPT,POWWPL(,@15) 01S0245 00407000 * IF RWPLRLN^=ZERO /* IS WTO OR WTOR? */ 00408000 * 01S0246 00409000 * /***************************************************/ 00410000 * /* */ 00411000 * /* IN CASE OF WTO FIRST BYTE OF THE WPL PARAMATER */ 00412000 * /* LIST WILL BE ZERO. */ 00413000 * /* */ 00414000 * /***************************************************/ 00415000 * 01S0246 00416000 * THEN 01S0246 00417000 * 01S0246 00418000 CLI RWPLRLN+16(@15),0 01S0246 00419000 BE @RF00246 01S0246 00420000 * /*************************************************/ 00421000 * /* */ 00422000 * /* A SYSTEM INDEPENDENT WTOR WILL BE DONE VIA THE*/ 00423000 * /* THE IWTOR MACRO */ 00424000 * /* */ 00425000 * /*************************************************/ 00426000 * 01S0247 00427000 */***** IWTOR **** */ 00428000 * 01S0247 00429000 * DO; 01S0247 00430000 * GEN; 01S0248 00431000 WTOR MF=(E,(1)) 00432000 * DCL 01S0249 00433000 * REGF0054 REGISTER(15) FIXED; 01S0249 00434000 * REGF0054=0; 01S0250 00435000 SLR REGF0054,REGF0054 01S0250 00436000 * END; /* IWTOR */ 00437000 * ELSE 01S0252 00438000 * 01S0252 00439000 * /*************************************************/ 00440000 * /* */ 00441000 * /* WE WILL DO A WTO */ 00442000 * /* */ 00443000 * /*************************************************/ 00444000 * 01S0252 00445000 */***** IWTO **** */ 00446000 * 01S0252 00447000 * DO; 01S0252 00448000 B @RC00246 01S0252 00449000 @RF00246 DS 0H 01S0253 00450000 * GEN; 01S0253 00451000 WTO MF=(E,(1)) 00452000 * END; /* IWTO */ 00453000 * CR2RPHPT=CR2R1SV; /* RESTORE REG 1 RPH PTR */ 00454000 @RC00246 LR CR2RPHPT,CR2R1SV 01S0255 00455000 * RFY 01S0256 00456000 * ISTRPH BASED(CR2RPHPT); 01S0256 00457000 * END; 01S0257 00458000 * END; 01S0258 00459000 * ELSE 01S0259 00460000 * DO; 01S0259 00461000 * 01S0259 00462000 B @RC00232 01S0259 00463000 @RF00232 DS 0H 01S0260 00464000 * /*******************************************************/ 00465000 * /* */ 00466000 * /* THE MESSAGE IS SOLICITED */ 00467000 * /* */ 00468000 * /*******************************************************/ 00469000 * 01S0260 00470000 * RFY 01S0260 00471000 * CR2PTR RSTD; 01S0260 00472000 * CR2PTR=POIPOCBQ; /* SET TO POCB QUEUE */ 00473000 SLR @15,@15 01S0261 00474000 ICM @15,7,ATCPOIA(CR2ACVT) 01S0261 00475000 SLR CR2PTR,CR2PTR 01S0261 00476000 ICM CR2PTR,7,POIPOCBQ(@15) 01S0261 00477000 * RFY 01S0262 00478000 * ISTPOCB BASED(CR2PTR); 01S0262 00479000 * 01S0262 00480000 * /*******************************************************/ 00481000 * /* */ 00482000 * /* THE FOLLOWING LOOP SEARCHES FOR THE CORRECT POCB BY */ 00483000 * /* A DEB COMPARISON */ 00484000 * /* */ 00485000 * /*******************************************************/ 00486000 * 01S0263 00487000 * DO WHILE(POCFWD^=ZERO&POCDEB^=POWDEB); 01S0263 00488000 B @DE00263 01S0263 00489000 @DL00263 DS 0H 01S0264 00490000 * CR2PTR=POCFWD; 01S0264 00491000 SLR @15,@15 01S0264 00492000 ICM @15,7,POCFWD(CR2PTR) 01S0264 00493000 LR CR2PTR,@15 01S0264 00494000 * END; 01S0265 00495000 @DE00263 ICM @15,7,POCFWD(CR2PTR) 01S0265 00496000 BZ @DC00263 01S0265 00497000 L @15,RPHWEA(,CR2RPHPT) 01S0265 00498000 CLC POCDEB(4,CR2PTR),POWDEB(@15) 01S0265 00499000 BNE @DL00263 01S0265 00500000 @DC00263 DS 0H 01S0266 00501000 * IF POCDEB=POWDEB&(POCACT=ON&POCINACT=OFF)/* @ZA26100*/ 00502000 * 01S0266 00503000 * /*******************************************************/ 00504000 * /* */ 00505000 * /* HAVE FOUND THE POCB AND IT IS ACTIVE */ 00506000 * /* */ 00507000 * /*******************************************************/ 00508000 * 01S0266 00509000 * THEN 01S0266 00510000 L @15,RPHWEA(,CR2RPHPT) 01S0266 00511000 CLC POCDEB(4,CR2PTR),POWDEB(@15) 01S0266 00512000 BNE @RF00266 01S0266 00513000 TM POCACT(CR2PTR),B'10000000' 01S0266 00514000 BNO @RF00266 01S0266 00515000 TM POCINACT(CR2PTR),B'01000000' 01S0266 00516000 BNZ @RF00266 01S0266 00517000 * IF POHRREQ=ON|RWPLRLN^=ZERO 01S0267 00518000 * 01S0267 00519000 * /*****************************************************/ 00520000 * /* */ 00521000 * /* THE POA WANTS A REPLY OR THE MESSAGE IS A WTOR */ 00522000 * /* THEN WE DO NOT SUPPRESS IT AND WILL THEREFORE */ 00523000 * /* BUILD BUILD THE NECESSARY CONTROL BLOCKS */ 00524000 * /* */ 00525000 * /*****************************************************/ 00526000 * 01S0267 00527000 * THEN 01S0267 00528000 TM POHRREQ+12(@15),B'00000010' 01S0267 00529000 BO @RT00267 01S0267 00530000 CLI RWPLRLN+16(@15),0 01S0267 00531000 BE @RF00267 01S0267 00532000 @RT00267 DS 0H 01S0268 00533000 * CALL CR2BUILD; 01S0268 00534000 BAL @14,CR2BUILD 01S0268 00535000 * ELSE 01S0269 00536000 * ; /* MESSAGE WILL BE IGNORED AND 00537000 * THEREBY SUPPRESSED */ 00538000 @RF00267 DS 0H 01S0270 00539000 * ELSE /* THE CORRECT POCB WAS NOT FOUND 00540000 * OR POCB WAS INACTIVE */ 00541000 * IF RWPLRLN^=ZERO /* THE MESSAGE IS A WTOR */ 00542000 * THEN 01S0270 00543000 B @RC00266 01S0270 00544000 @RF00266 L @15,RPHWEA(,CR2RPHPT) 01S0270 00545000 CLI RWPLRLN+16(@15),0 01S0270 00546000 BE @RF00270 01S0270 00547000 * DO; 01S0271 00548000 * 01S0271 00549000 * /*************************************************/ 00550000 * /* */ 00551000 * /* WE WILL AGAIN ISSUE AN IWTOR */ 00552000 * /* */ 00553000 * /*************************************************/ 00554000 * 01S0272 00555000 * CR2R1SV=CR2RPHPT;/* SAVE RPH @ */ 00556000 LR CR2R1SV,CR2RPHPT 01S0272 00557000 * RFY 01S0273 00558000 * ISTRPH BASED(CR2R1SV); 01S0273 00559000 * CR2RPHPT=ADDR(POWWPL);/* SET TO MESSAGE */ 00560000 L CR2RPHPT,RPHWEA(,CR2R1SV) 01S0274 00561000 LA CR2RPHPT,POWWPL(,CR2RPHPT) 01S0274 00562000 */***** IWTOR **** */ 00563000 * 01S0275 00564000 * DO; 01S0275 00565000 * GEN; 01S0276 00566000 WTOR MF=(E,(1)) 00567000 * DCL 01S0277 00568000 * REGF0056 REGISTER(15) FIXED; 01S0277 00569000 * REGF0056=0; 01S0278 00570000 SLR REGF0056,REGF0056 01S0278 00571000 * END; /* IWTOR */ 00572000 * CR2RPHPT=CR2R1SV;/* RESTORE RPHPTR */ 00573000 LR CR2RPHPT,CR2R1SV 01S0280 00574000 * RFY 01S0281 00575000 * ISTRPH BASED(CR2RPHPT); 01S0281 00576000 * END; 01S0282 00577000 * ELSE 01S0283 00578000 * ; /* NOT WTOR */ 00579000 @RF00270 DS 0H 01S0284 00580000 * END; 01S0284 00581000 * ELSE 01S0285 00582000 * DO; /* THE POI INTERFACE DOES NOT 00583000 * PRESENTLY EXIST */ 00584000 B @RC00231 01S0285 00585000 @RF00231 DS 0H 01S0286 00586000 * IF RWPLRLN^=ZERO /* WTOR? */ 00587000 * THEN 01S0286 00588000 L @15,RPHWEA(,CR2RPHPT) 01S0286 00589000 CLI RWPLRLN+16(@15),0 01S0286 00590000 BE @RF00286 01S0286 00591000 * DO; 01S0287 00592000 * 01S0287 00593000 * /*****************************************************/ 00594000 * /* */ 00595000 * /* WE WILL AGAIN ISSUE AN IWTOR */ 00596000 * /* */ 00597000 * /*****************************************************/ 00598000 * 01S0288 00599000 * CR2R1SV=CR2RPHPT; /* SAVE RPH @ */ 00600000 LR CR2R1SV,CR2RPHPT 01S0288 00601000 * RFY 01S0289 00602000 * ISTRPH BASED(CR2R1SV); 01S0289 00603000 * CR2RPHPT=ADDR(POWWPL);/* SET TO MESSAGE */ 00604000 L CR2RPHPT,RPHWEA(,CR2R1SV) 01S0290 00605000 LA CR2RPHPT,POWWPL(,CR2RPHPT) 01S0290 00606000 */***** IWTOR **** */ 00607000 * 01S0291 00608000 * DO; 01S0291 00609000 * GEN; 01S0292 00610000 WTOR MF=(E,(1)) 00611000 * DCL 01S0293 00612000 * REGF0057 REGISTER(15) FIXED; 01S0293 00613000 * REGF0057=0; 01S0294 00614000 SLR REGF0057,REGF0057 01S0294 00615000 * END; /* IWTOR */ 00616000 * CR2RPHPT=CR2R1SV; /* RESTORE RPHPTR */ 00617000 LR CR2RPHPT,CR2R1SV 01S0296 00618000 * RFY 01S0297 00619000 * ISTRPH BASED(CR2RPHPT); 01S0297 00620000 * END; 01S0298 00621000 * ELSE 01S0299 00622000 * IF POHGEN=OFF /* UNSOLICITED MSG */ 00623000 * 01S0299 00624000 * /*******************************************************/ 00625000 * /* */ 00626000 * /* WE WILL ONLY ISSUE WTOS ON UNSOLICITED MSGS TO */ 00627000 * /* SUPPORT MESSAGE SUPRESSION */ 00628000 * /* */ 00629000 * /*******************************************************/ 00630000 * 01S0299 00631000 * THEN 01S0299 00632000 B @RC00286 01S0299 00633000 @RF00286 L @15,RPHWEA(,CR2RPHPT) 01S0299 00634000 TM POHGEN+12(@15),B'00000001' 01S0299 00635000 BNZ @RF00299 01S0299 00636000 * DO; 01S0300 00637000 * 01S0300 00638000 * /***************************************************/ 00639000 * /* */ 00640000 * /* WE WILL AGAIN ISSUE AN IWTO */ 00641000 * /* */ 00642000 * /***************************************************/ 00643000 * 01S0301 00644000 * CR2R1SV=CR2RPHPT; /* SAVE RPH @ */ 00645000 LR CR2R1SV,CR2RPHPT 01S0301 00646000 * RFY 01S0302 00647000 * ISTRPH BASED(CR2R1SV); 01S0302 00648000 * CR2RPHPT=ADDR(POWWPL);/* SET TO MESSAGE */ 00649000 L CR2RPHPT,RPHWEA(,CR2R1SV) 01S0303 00650000 LA CR2RPHPT,POWWPL(,CR2RPHPT) 01S0303 00651000 */***** IWTO **** */ 00652000 * 01S0304 00653000 * DO; 01S0304 00654000 * GEN; 01S0305 00655000 WTO MF=(E,(1)) 00656000 * END; /* IWTO */ 00657000 * CR2RPHPT=CR2R1SV; /* RESTORE RPHPTR */ 00658000 LR CR2RPHPT,CR2R1SV 01S0307 00659000 * RFY 01S0308 00660000 * ISTRPH BASED(CR2RPHPT); 01S0308 00661000 * END; 01S0309 00662000 * ELSE 01S0310 00663000 * ; /* MSG IS NOT UNSOLICITED 01S0310 00664000 * THEREFORE WILL NOT BE ISSUED */ 00665000 @RF00299 DS 0H 01S0311 00666000 * END; 01S0311 00667000 * 01S0311 00668000 @RC00286 DS 0H 01S0312 00669000 * /*************************************************************/ 00670000 * /* */ 00671000 * /* WE WILL NOW FREESTORE THE WORK ELEMENT BEFORE RETURNING WE*/ 00672000 * /* WILL ALSO FREESTORE THE WORK AREA */ 00673000 * /* */ 00674000 * /*************************************************************/ 00675000 * 01S0312 00676000 * 01S0312 00677000 * /*************************************************************/ 00678000 * /* */ 00679000 * /* FREESTOR AREA(CR2WAPTR)SIZE(32)CLEAR(YES) */ 00680000 * /* */ 00681000 * /*************************************************************/ 00682000 * 01S0312 00683000 * DO; 01S0312 00684000 * 01S0312 00685000 @RC00231 DS 0H 01S0313 00686000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 00687000 */* END OF ATBUILD */ 00688000 * 01S0313 00689000 * RFY 01S0313 00690000 * (GPR00P, 01S0313 00691000 * GPR01P, 01S0313 00692000 * GPR02P, 01S0313 00693000 * GPR03P) RSTD; 01S0313 00694000 * RFY 01S0314 00695000 * ISTRPH BASED(GPR01P); 01S0314 00696000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P, 00697000 * GPR09P,GPR10P,GPR11P,GPR12P,GPR13P) SETS(RPHWORK); 00698000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 00699000 * GPR00F=32; /* SIZE IN REG0 */ 00700000 LA GPR00F,32 01S0316 00701000 * DCL 01S0317 00702000 * 1 CMZA0059 FIXED(31) STATIC LOCAL, 01S0317 00703000 * 2 * FIXED(8) INIT(96), /* OPTION FLAGS */ 00704000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 00705000 * 2 * FIXED(8) INIT(231),/* SUBPOOL NUMBER */ 00706000 * 2 * FIXED(8) INIT('01'X);/* REQUEST TYPE */ 00707000 * GPR03F=CMZA0059; 01S0318 00708000 L GPR03F,CMZA0059 01S0318 00709000 * RFY 01S0319 00710000 * (GPR04P) RSTD; 01S0319 00711000 * GPR04P=CR2WAPTR; /* PUT FREEMAIN ADDR IN REG4 */ 00712000 * DO; /* LISATCVT 01S0321 00713000 * CVTBASE(PAGEABLE,(GPR02P)) */ 00714000 * GPR02P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00715000 L GPR02P,ATCLCPTR 01S0322 00716000 * END; /* LISATCVT */ 00717000 * CALL GPR02P->ATCGTSTR; /* CALL ISTORFSR */ 00718000 L @15,ATCGTSTR(,GPR02P) 01S0324 00719000 BALR @14,@15 01S0324 00720000 * RFY 01S0325 00721000 * (GPR00P, 01S0325 00722000 * GPR01P, 01S0325 00723000 * GPR02P, 01S0325 00724000 * GPR03P, 01S0325 00725000 * GPR04P) UNRSTD; 01S0325 00726000 * END; /* END OF FREESTOR */ 00727000 * END; 01S0327 00728000 * ELSE 01S0328 00729000 * DO; 01S0328 00730000 * 01S0328 00731000 B @RC00227 01S0328 00732000 @RF00227 DS 0H 01S0329 00733000 * /*************************************************************/ 00734000 * /* */ 00735000 * /* WE WERE NOT ABLE TO SECURE WORK AREA WE WILL THEREFORE */ 00736000 * /* ISSUE A TPMSG TO TELL THE OPERATOR OF THE ERROR AND ISSUE */ 00737000 * /* THE MESSAGES AS WTO AND WTOR TO THE SYSTEM CONSOLE */ 00738000 * /* */ 00739000 * /*************************************************************/ 00740000 * 01S0329 00741000 * CR2R1SV=CR2RPHPT; /* SAVE RPH @ */ 00742000 LR CR2R1SV,CR2RPHPT 01S0329 00743000 * RFY 01S0330 00744000 * ISTRPH BASED(CR2R1SV); 01S0330 00745000 * 01S0330 00746000 */*TPMSG MSGID('192I') */ 00747000 * 01S0331 00748000 * DO; 01S0331 00749000 * DCL 01S0332 00750000 * REG1078 REG(1) PTR; 01S0332 00751000 * RFY 01S0333 00752000 * (REG1078) RSTD; 01S0333 00753000 * RFY 01S0334 00754000 * (EMCR13) RSTD; 01S0334 00755000 * DCL 01S0335 00756000 * 1 * BASED(REG1078), 01S0335 00757000 * 2 CMZID078 PTR(31), 01S0335 00758000 * 2 *, 01S0335 00759000 * 3 CMZRL078 PTR(8), 01S0335 00760000 * 3 CMZRA078 PTR(24) BDY(BYTE), 01S0335 00761000 * 2 CMZEA078 PTR(31), 01S0335 00762000 * 2 CMZVP078 PTR(31); 01S0335 00763000 * DCL 01S0336 00764000 * CMZPL078(4) FIXED INIT((4)0); 01S0336 00765000 * REG1078=ADDR(CMZPL078); 01S0337 00766000 LA REG1078,CMZPL078 01S0337 00767000 * DCL 01S0338 00768000 * CMZAA078 CHAR(4) INIT('192I'); 01S0338 00769000 * CMZID078=ADDR(CMZAA078); 01S0339 00770000 LA @15,CMZAA078 01S0339 00771000 ST @15,CMZID078(,REG1078) 01S0339 00772000 * DCL 01S0340 00773000 * CMZSA078(18) PTR(31) BASED(EMCR13); 01S0340 00774000 * DCL 01S0341 00775000 * CMZZO078(1) FIXED(31) INIT(0); 01S0341 00776000 * CMZSA078(5)=CMZZO078; 01S0342 00777000 MVC CMZSA078+16(4,EMCR13),CMZZO078 01S0342 00778000 * DCL 01S0343 00779000 * REG15078 REG(15) PTR; 01S0343 00780000 * RFY 01S0344 00781000 * REG15078 RSTD; 01S0344 00782000 * DO; /* LISATCVT 01S0345 00783000 * CVTBASE(PAGEABLE,(REG15078)) */ 00784000 * REG15078=ATCLCPTR; /* SET UP ATCVT POINTER */ 00785000 L REG15078,ATCLCPTR 01S0346 00786000 * END; /* LISATCVT */ 00787000 * DCL 01S0348 00788000 * CMTA078 BASED(REG15078) ENTRY VALUERANGE(*); 01S0348 00789000 * REG15078=REG15078->ATCMSGP; 01S0349 00790000 L REG15078,ATCMSGP(,REG15078) 01S0349 00791000 * CALL CMTA078; 01S0350 00792000 BALR @14,@15 01S0350 00793000 * RESPECIFY 01S0351 00794000 * (REG1078, 01S0351 00795000 * REG15078) UNRESTRICTED; 01S0351 00796000 * RFY 01S0352 00797000 * (EMCR13) UNRSTD; 01S0352 00798000 * END; 01S0353 00799000 * IF RWPLRLN^=ZERO /* WTOR? */ 00800000 * THEN 01S0354 00801000 L @15,RPHWEA(,CR2R1SV) 01S0354 00802000 CLI RWPLRLN+16(@15),0 01S0354 00803000 BE @RF00354 01S0354 00804000 * DO; 01S0355 00805000 * CR2RPHPT=ADDR(POWWPL); /* SET TO MESSAGE */ 00806000 LA CR2RPHPT,POWWPL(,@15) 01S0356 00807000 * RFY 01S0357 00808000 * (CR2R15, 01S0357 00809000 * CR2BASE) RSTD; 01S0357 00810000 * CR2BASE=RPHSRPRM; /* SAVES FEILD TO BE USED */ 00811000 L CR2BASE,RPHSRPRM(,CR2R1SV) 01S0358 00812000 * CR2R15=ADDR(RPHSRPRM); 01S0359 00813000 * 01S0359 00814000 LA CR2R15,RPHSRPRM(,CR2R1SV) 01S0359 00815000 */***** IWTOR **** */ 00816000 * 01S0360 00817000 * DO; 01S0360 00818000 * GEN; 01S0361 00819000 WTOR MF=(E,(1)) 00820000 * DCL 01S0362 00821000 * REGF0086 REGISTER(15) FIXED; 01S0362 00822000 * REGF0086=0; 01S0363 00823000 SLR REGF0086,REGF0086 01S0363 00824000 * END; /* IWTOR */ 00825000 * RPHSRPRM=CR2BASE; /* RESTORES VALUE */ 00826000 ST CR2BASE,RPHSRPRM(,CR2R1SV) 01S0365 00827000 * RFY 01S0366 00828000 * (CR2BASE, 01S0366 00829000 * CR2R15) UNRSTD; 01S0366 00830000 * CR2RPHPT=CR2R1SV; /* RESTORE RPHPTR */ 00831000 LR CR2RPHPT,CR2R1SV 01S0367 00832000 * END; 01S0368 00833000 * ELSE 01S0369 00834000 * IF POHGEN=OFF /* UNSOLICITED MSG */ 00835000 * 01S0369 00836000 * /***********************************************************/ 00837000 * /* */ 00838000 * /* WE WILL ONLY ISSUE WTOS ON UNSOLICITED MSGS TO SUPPORT */ 00839000 * /* MESSAGE SUPRESSION */ 00840000 * /* */ 00841000 * /***********************************************************/ 00842000 * 01S0369 00843000 * THEN 01S0369 00844000 B @RC00354 01S0369 00845000 @RF00354 L @15,RPHWEA(,CR2R1SV) 01S0369 00846000 TM POHGEN+12(@15),B'00000001' 01S0369 00847000 BNZ @RF00369 01S0369 00848000 * DO; 01S0370 00849000 * 01S0370 00850000 * /*******************************************************/ 00851000 * /* */ 00852000 * /* WE WILL AGAIN ISSUE AN IWTO */ 00853000 * /* */ 00854000 * /*******************************************************/ 00855000 * 01S0371 00856000 * CR2RPHPT=ADDR(POWWPL);/* SET TO MESSAGE */ 00857000 LA CR2RPHPT,POWWPL(,@15) 01S0371 00858000 * RFY 01S0372 00859000 * (CR2R15, 01S0372 00860000 * CR2BASE) RSTD; 01S0372 00861000 * CR2BASE=RPHSRPRM; /* SAVES FEILD TO BE USED */ 00862000 L CR2BASE,RPHSRPRM(,CR2R1SV) 01S0373 00863000 * CR2R15=ADDR(RPHSRPRM); 01S0374 00864000 * 01S0374 00865000 LA CR2R15,RPHSRPRM(,CR2R1SV) 01S0374 00866000 */***** IWTO **** */ 00867000 * 01S0375 00868000 * DO; 01S0375 00869000 * GEN; 01S0376 00870000 WTO MF=(E,(1)) 00871000 * END; /* IWTO */ 00872000 * RPHSRPRM=CR2BASE; /* RESTORES VALUE */ 00873000 ST CR2BASE,RPHSRPRM(,CR2R1SV) 01S0378 00874000 * RFY 01S0379 00875000 * (CR2BASE, 01S0379 00876000 * CR2R15) UNRSTD; 01S0379 00877000 * CR2RPHPT=CR2R1SV; /* RESTORE RPHPTR */ 00878000 LR CR2RPHPT,CR2R1SV 01S0380 00879000 * END; 01S0381 00880000 * ELSE /* MSG IS SOLICITED */ 00881000 * CR2RPHPT=CR2R1SV; /* RESTORE RPH ADD. */ 00882000 B @RC00369 01S0382 00883000 @RF00369 LR CR2RPHPT,CR2R1SV 01S0382 00884000 * RFY 01S0383 00885000 * ISTRPH BASED(CR2RPHPT); 01S0383 00886000 @RC00369 DS 0H 01S0383 00887000 @RC00354 DS 0H 01S0384 00888000 * END; 01S0384 00889000 * 01S0384 00890000 * /*****************************************************************/ 00891000 * /* */ 00892000 * /* FREESTOR AREA(RPHWEA)SIZE(LENGTH(ISTPOWE))FETCHP(NO) */ 00893000 * /* */ 00894000 * /*****************************************************************/ 00895000 * 01S0385 00896000 * DO; 01S0385 00897000 * 01S0385 00898000 @RC00227 DS 0H 01S0386 00899000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 00900000 */* END OF ATBUILD */ 00901000 * 01S0386 00902000 * RFY 01S0386 00903000 * (GPR00P, 01S0386 00904000 * GPR01P, 01S0386 00905000 * GPR02P, 01S0386 00906000 * GPR03P) RSTD; 01S0386 00907000 * RFY 01S0387 00908000 * ISTRPH BASED(GPR01P); 01S0387 00909000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P,GPR09P, 00910000 * GPR10P,GPR11P,GPR12P,GPR13P) SETS(RPHWORK); 01S0388 00911000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 00912000 * GPR00F=LENGTH(ISTPOWE); /* SIZE IN REG0 */ 00913000 LA GPR00F,283 01S0389 00914000 * DCL 01S0390 00915000 * 1 CMZA0088 FIXED(31) STATIC LOCAL, 01S0390 00916000 * 2 * FIXED(8) INIT(64), /* OPTION FLAGS */ 00917000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 00918000 * 2 * FIXED(8) INIT(241), /* SUBPOOL NUMBER */ 00919000 * 2 * FIXED(8) INIT('01'X); /* REQUEST TYPE */ 00920000 * GPR03F=CMZA0088; 01S0391 00921000 L GPR03F,CMZA0088 01S0391 00922000 * RFY 01S0392 00923000 * (GPR04P) RSTD; 01S0392 00924000 * GPR04P=RPHWEA; /* PUT FREEMAIN ADDR IN REG4 */ 00925000 L GPR04P,RPHWEA(,GPR01P) 01S0393 00926000 * DO; /* LISATCVT 01S0394 00927000 * CVTBASE(PAGEABLE,(GPR02P)) */ 00928000 * GPR02P=ATCLCPTR; /* SET UP ATCVT POINTER */ 00929000 L GPR02P,ATCLCPTR 01S0395 00930000 * END; /* LISATCVT */ 00931000 * CALL GPR02P->ATCGTSTR; /* CALL ISTORFSR */ 00932000 L @15,ATCGTSTR(,GPR02P) 01S0397 00933000 BALR @14,@15 01S0397 00934000 * RFY 01S0398 00935000 * (GPR00P, 01S0398 00936000 * GPR01P, 01S0398 00937000 * GPR02P, 01S0398 00938000 * GPR03P, 01S0398 00939000 * GPR04P) UNRSTD; 01S0398 00940000 * END; /* END OF FREESTOR */ 00941000 * CR2RTPT=CR2R14SV; /* RESTORE RETURN @ */ 00942000 LR CR2RTPT,CR2R14SV 01S0400 00943000 * RETURN; 01S0401 00944000 @EL00002 DS 0H 01S0401 00945000 @EF00002 DS 0H 01S0401 00946000 @ER00002 BR @14 01S0401 00947000 * END CR2BLDCB; 01S0402 00948000 EJECT 00949000 *CR2BUILD: 01S0403 00950000 * PROC OPTIONS(NOSAVE NOSAVEAREA); 01S0403 00951000 * 01S0403 00952000 CR2BUILD DS 0H 01S0404 00953000 * /*****************************************************************/ 00954000 * /* */ 00955000 * /* THE SUBROUTINE DOES THE ACTUAL BUILDING OF THE C.B.S IT ISSUES*/ 00956000 * /* THE GETSTORES, INITIALIZES THE FEILDS AND QUEUES THE CONTROL */ 00957000 * /* BLOCKS TO THE QUEUES OFF THE POCB VIA THE TPQUE MACRO */ 00958000 * /* */ 00959000 * /*****************************************************************/ 00960000 * 01S0404 00961000 * CR2R14SA=CR2RTPT; /* SAVE RETURN ADDRESS */ 00962000 ST CR2RTPT,CR2R14SA(,CR2WAPTR) 01S0404 00963000 * CR2CVTSV=CR2ACVT; /* SAVE ATCVT @ SO REG CAN BE 00964000 * USED IN BUILD */ 00965000 ST CR2ACVT,CR2CVTSV(,CR2WAPTR) 01S0405 00966000 * RFY 01S0406 00967000 * CR2POCB RSTD; 01S0406 00968000 * CR2POCB=CR2PTR; /* SAVES ADD OF POCB */ 00969000 LR CR2POCB,CR2PTR 01S0407 00970000 * RFY 01S0408 00971000 * ISTATCVT BASED(CR2CVTSV); 01S0408 00972000 * RFY 01S0409 00973000 * ISTPOCB BASED(CR2POCB); 01S0409 00974000 * 01S0409 00975000 */* GETSTOR SIZE(LENGTH(ISTPOMCB))FETCHP(NO)CLEAR(YES) */ 00976000 * 01S0410 00977000 * DO; 01S0410 00978000 * 01S0410 00979000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 00980000 */* END OF ATBUILD */ 00981000 * 01S0411 00982000 * RFY 01S0411 00983000 * (GPR00P, 01S0411 00984000 * GPR01P, 01S0411 00985000 * GPR02P, 01S0411 00986000 * GPR03P) RSTD; 01S0411 00987000 * RFY 01S0412 00988000 * ISTRPH BASED(GPR01P); 01S0412 00989000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P,GPR09P, 00990000 * GPR10P,GPR11P,GPR12P,GPR13P) SETS(RPHWORK); 01S0413 00991000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 00992000 * GPR00F=LENGTH(ISTPOMCB); /* SIZE IN REG0 */ 00993000 LA GPR00F,140 01S0414 00994000 * DCL 01S0415 00995000 * 1 CMZA0107 FIXED(31) STATIC LOCAL, 01S0415 00996000 * 2 * FIXED(8) INIT(96), /* OPTION FLAGS */ 00997000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 00998000 * 2 * FIXED(8) INIT(241), /* SUBPOOL NUMBER */ 00999000 * 2 * FIXED(8) INIT('00'X); /* REQUEST TYPE */ 01000000 * GPR03F=CMZA0107; 01S0416 01001000 L GPR03F,CMZA0107 01S0416 01002000 * DO; /* LISATCVT 01S0417 01003000 * CVTBASE(PAGEABLE,(GPR02P)) */ 01004000 * GPR02P=ATCLCPTR; /* SET UP ATCVT POINTER */ 01005000 L GPR02P,ATCLCPTR 01S0418 01006000 * END; /* LISATCVT */ 01007000 * CALL GPR02P->ATCGTSTR; /* CALL ISTORFSR */ 01008000 L @15,ATCGTSTR(,GPR02P) 01S0420 01009000 BALR @14,@15 01S0420 01010000 * RFY 01S0421 01011000 * (GPR00P, 01S0421 01012000 * GPR01P, 01S0421 01013000 * GPR02P, 01S0421 01014000 * GPR03P) UNRSTD; 01S0421 01015000 * END; /* END OF GETSTOR */ 01016000 * RFY 01S0423 01017000 * CR2R15F RSTD; 01S0423 01018000 * IF CR2R15F=ZERO /* TESTS THE RETURN CODE FOR 01019000 * SUCCESS*/ 01020000 * THEN 01S0424 01021000 LTR CR2R15F,CR2R15F 01S0424 01022000 BNZ @RF00424 01S0424 01023000 * DO; 01S0425 01024000 * 01S0425 01025000 * /*************************************************************/ 01026000 * /* */ 01027000 * /* A POMCB WILL NOW BE BUILT */ 01028000 * /* */ 01029000 * /*************************************************************/ 01030000 * 01S0426 01031000 * RFY 01S0426 01032000 * CR2R15F UNRSTD; 01S0426 01033000 * RFY 01S0427 01034000 * CR2PTR RSTD; 01S0427 01035000 * CR2ERR=OFF; /* INIT ERROR SWITCH */ 01036000 NI CR2ERR(CR2WAPTR),B'10111111' 01S0428 01037000 * CR2PTR=RPHSRPRM; /* SAVE GETSTORED AREA ADD. */ 01038000 L CR2PTR,RPHSRPRM(,GPR01P) 01S0429 01039000 * RFY 01S0430 01040000 * ISTPOMCB BASED(CR2PTR); 01S0430 01041000 * POMLNGTH=LENGTH(ISTPOMCB); /* INITIALIZE LENGTH FEILD */ 01042000 MVI POMLNGTH(CR2PTR),X'8C' 01S0431 01043000 * POMCBID=POMTYPE; /* INITIALIZE CB IDENTIF. */ 01044000 MVI POMCBID(CR2PTR),X'47' 01S0432 01045000 * POMMHDR=POWHDR; /* INIT POA HDR */ 01046000 L @15,RPHWEA(,GPR01P) 01S0433 01047000 MVC POMMHDR(4,CR2PTR),POWHDR(@15) 01S0433 01048000 * RFY 01S0434 01049000 * ISTPOHD BASED(ADDR(POMMHDR)); 01S0434 01050000 * RFY 01S0435 01051000 * CR2R15 RSTD; 01S0435 01052000 * CR2R15=ADDR(POWWPL); /* SET R15 TO BEGIN. OF WPL */ 01053000 L @07,RPHWEA(,GPR01P) 01S0436 01054000 LA CR2R15,POWWPL(,@07) 01S0436 01055000 * IF WPLMCSFD=ON /* IF MSG TYPE FEILD EXISTS */ 01056000 * THEN 01S0437 01057000 TM WPLMCSFD+16(@07),B'00010000' 01S0437 01058000 BNO @RF00437 01S0437 01059000 * CR2R15=CR2R15+6; /* BYPASS IT */ 01060000 AH CR2R15,@CH00785 01S0438 01061000 * ELSE 01S0439 01062000 * IF WPLMCSFA=ON /* IF ROUTING AND DESC CODES */ 01063000 * THEN 01S0439 01064000 B @RC00437 01S0439 01065000 @RF00437 L @07,RPHWEA(,GPR01P) 01S0439 01066000 TM WPLMCSFA+16(@07),B'10000000' 01S0439 01067000 BNO @RF00439 01S0439 01068000 * CR2R15=CR2R15+4; /* BYPASS THEM */ 01069000 AH CR2R15,@CH00085 01S0440 01070000 * ELSE 01S0441 01071000 * ; 01S0441 01072000 @RF00439 DS 0H 01S0442 01073000 * RFY 01S0442 01074000 * CR2MLWTO BASED(CR2R15); 01S0442 01075000 @RC00437 DS 0H 01S0443 01076000 * IF RWPLRLN^=ZERO 01S0443 01077000 * 01S0443 01078000 * /*************************************************************/ 01079000 * /* */ 01080000 * /* WE HAVE WTOR TO SEND */ 01081000 * /* */ 01082000 * /*************************************************************/ 01083000 * 01S0443 01084000 * THEN 01S0443 01085000 LA @07,16 01S0443 01086000 L @11,RPHWEA(,GPR01P) 01S0443 01087000 LR @10,@11 01S0443 01088000 ALR @10,@07 01S0443 01089000 CLI RWPLRLN(@10),0 01S0443 01090000 BE @RF00443 01S0443 01091000 * DO; 01S0444 01092000 * RFY 01S0445 01093000 * ISTRWPL BASED(ADDR(POWWPL)); 01S0445 01094000 * RFY 01S0446 01095000 * ISTWPL BASED(ADDR(RWPWPL)); 01S0446 01096000 * POMMSGLN=WPLLGH+4; /* SET LENGTH OF MSG */ 01097000 LA @10,4 01S0447 01098000 AH @11,@CH00102 01S0447 01099000 LH @09,WPLLGH(,@11) 01S0447 01100000 LR @00,@09 01S0447 01101000 ALR @00,@10 01S0447 01102000 STC @00,POMMSGLN(,CR2PTR) 01S0447 01103000 * POMMSG(5:WPLLGH+1)=WPLTXT(1:WPLLGH);/* SET MSG */ 01104000 LCR @10,@10 01S0448 01105000 ALR @10,@09 01S0448 01106000 EX @10,@SM03418 01S0448 01107000 * POMMSG(1:4)='* '; 01S0449 01108000 MVC POMMSG(4,CR2PTR),@CC01601 01S0449 01109000 * CR2R15=CR2R15+WPLLGH+8; /* SET TO EXTENSION OF WPL */ 01110000 * 01S0450 01111000 ALR @09,CR2R15 01S0450 01112000 AH @09,@CH00091 01S0450 01113000 LR CR2R15,@09 01S0450 01114000 * /*********************************************************/ 01115000 * /* */ 01116000 * /* SET MLWTO FLAGS IN HDR */ 01117000 * /* */ 01118000 * /*********************************************************/ 01119000 * 01S0451 01120000 * IF WPLLTFD=ON THEN 01S0451 01121000 TM WPLLTFD(CR2R15),B'00010000' 01S0451 01122000 BNO @RF00451 01S0451 01123000 * POHEND=ON; /* END LINE */ 01124000 ALR @07,CR2PTR 01S0452 01125000 OI POHEND(@07),B'10000000' 01S0452 01126000 * ELSE 01S0453 01127000 * POHEND=OFF; 01S0453 01128000 B @RC00451 01S0453 01129000 @RF00451 NI POHEND+16(CR2PTR),B'01111111' 01S0453 01130000 * IF WPLLTFC=ON THEN 01S0454 01131000 @RC00451 TM WPLLTFC(CR2R15),B'00100000' 01S0454 01132000 BNO @RF00454 01S0454 01133000 * POHDATA=ON; /* DATA LINE */ 01134000 OI POHDATA+16(CR2PTR),B'01000000' 01S0455 01135000 * ELSE 01S0456 01136000 * POHDATA=OFF; 01S0456 01137000 B @RC00454 01S0456 01138000 @RF00454 NI POHDATA+16(CR2PTR),B'10111111' 01S0456 01139000 * IF WPLLTFB=ON THEN 01S0457 01140000 @RC00454 TM WPLLTFB(CR2R15),B'01000000' 01S0457 01141000 BNO @RF00457 01S0457 01142000 * POHLBL=ON; /* LABEL LINE */ 01143000 OI POHLBL+16(CR2PTR),B'00100000' 01S0458 01144000 * ELSE 01S0459 01145000 * POHLBL=OFF; 01S0459 01146000 B @RC00457 01S0459 01147000 @RF00457 NI POHLBL+16(CR2PTR),B'11011111' 01S0459 01148000 * IF WPLLTFA=ON THEN 01S0460 01149000 @RC00457 TM WPLLTFA(CR2R15),B'10000000' 01S0460 01150000 BNO @RF00460 01S0460 01151000 * POHCNTRL=ON; /* CONTROL LINE */ 01152000 OI POHCNTRL+16(CR2PTR),B'00010000' 01S0461 01153000 * ELSE 01S0462 01154000 * POHCNTRL=OFF; 01S0462 01155000 B @RC00460 01S0462 01156000 @RF00460 NI POHCNTRL+16(CR2PTR),B'11101111' 01S0462 01157000 * END; 01S0463 01158000 * ELSE 01S0464 01159000 * DO; 01S0464 01160000 * 01S0464 01161000 B @RC00443 01S0464 01162000 @RF00443 DS 0H 01S0465 01163000 * /*********************************************************/ 01164000 * /* */ 01165000 * /* WE HAVE WTO */ 01166000 * /* */ 01167000 * /*********************************************************/ 01168000 * 01S0465 01169000 * RFY 01S0465 01170000 * ISTWPL BASED(ADDR(POWWPL)); 01S0465 01171000 * POHRREQ=OFF; /* TELL APPLE THIS IS WTO */ 01172000 LA @07,16 01S0466 01173000 LR @11,CR2PTR 01S0466 01174000 ALR @11,@07 01S0466 01175000 NI POHRREQ(@11),B'11111101' 01S0466 01176000 * POMMSGLN=WPLLGH; /* SET MSG LENGTH */ 01177000 AL @07,RPHWEA(,GPR01P) 01S0467 01178000 LH @10,WPLLGH(,@07) 01S0467 01179000 STC @10,POMMSGLN(,CR2PTR) 01S0467 01180000 * POMMSG(1:WPLLGH)=WPLTXT(1:WPLLGH); 01S0468 01181000 LR @09,@10 01S0468 01182000 BCTR @09,0 01S0468 01183000 EX @09,@SM03428 01S0468 01184000 * CR2R15=CR2R15+WPLLGH; /* SET TO EXTENSION OF WPL */ 01185000 * 01S0469 01186000 ALR CR2R15,@10 01S0469 01187000 * /*********************************************************/ 01188000 * /* */ 01189000 * /* SET MLWTO FLAGS IN HDR */ 01190000 * /* */ 01191000 * /*********************************************************/ 01192000 * 01S0470 01193000 * IF WPLLTFD=ON THEN 01S0470 01194000 TM WPLLTFD(CR2R15),B'00010000' 01S0470 01195000 BNO @RF00470 01S0470 01196000 * POHEND=ON; /* END LINE */ 01197000 OI POHEND(@11),B'10000000' 01S0471 01198000 * ELSE 01S0472 01199000 * POHEND=OFF; 01S0472 01200000 B @RC00470 01S0472 01201000 @RF00470 NI POHEND+16(CR2PTR),B'01111111' 01S0472 01202000 * IF WPLLTFC=ON THEN 01S0473 01203000 @RC00470 TM WPLLTFC(CR2R15),B'00100000' 01S0473 01204000 BNO @RF00473 01S0473 01205000 * POHDATA=ON; /* DATA LINE */ 01206000 OI POHDATA+16(CR2PTR),B'01000000' 01S0474 01207000 * ELSE 01S0475 01208000 * POHDATA=OFF; 01S0475 01209000 B @RC00473 01S0475 01210000 @RF00473 NI POHDATA+16(CR2PTR),B'10111111' 01S0475 01211000 * IF WPLLTFB=ON THEN 01S0476 01212000 @RC00473 TM WPLLTFB(CR2R15),B'01000000' 01S0476 01213000 BNO @RF00476 01S0476 01214000 * POHLBL=ON; /* LABEL LINE */ 01215000 OI POHLBL+16(CR2PTR),B'00100000' 01S0477 01216000 * ELSE 01S0478 01217000 * POHLBL=OFF; 01S0478 01218000 B @RC00476 01S0478 01219000 @RF00476 NI POHLBL+16(CR2PTR),B'11011111' 01S0478 01220000 * IF WPLLTFA=ON THEN 01S0479 01221000 @RC00476 TM WPLLTFA(CR2R15),B'10000000' 01S0479 01222000 BNO @RF00479 01S0479 01223000 * POHCNTRL=ON; /* CONTROL LINE */ 01224000 OI POHCNTRL+16(CR2PTR),B'00010000' 01S0480 01225000 * ELSE 01S0481 01226000 * POHCNTRL=OFF; 01S0481 01227000 B @RC00479 01S0481 01228000 @RF00479 NI POHCNTRL+16(CR2PTR),B'11101111' 01S0481 01229000 * END; 01S0482 01230000 @RC00479 DS 0H 01S0483 01231000 * RFY 01S0483 01232000 * CR2R15 UNRSTD; 01S0483 01233000 @RC00443 DS 0H 01S0484 01234000 * IF POHGEN=OFF /* UNSOLICITED MSG */ 01235000 * THEN 01S0484 01236000 LA @15,16 01S0484 01237000 ALR @15,CR2PTR 01S0484 01238000 TM POHGEN(@15),B'00000001' 01S0484 01239000 BNZ @RF00484 01S0484 01240000 * DO; 01S0485 01241000 * 01S0485 01242000 * /*********************************************************/ 01243000 * /* */ 01244000 * /* INITIALIZE THE HEADER FOR THE POA */ 01245000 * /* */ 01246000 * /*********************************************************/ 01247000 * 01S0486 01248000 * POHID=POCVTMID; /* SET A VTAM ID FOR MSG */ 01249000 LH @07,POCVTMID(,CR2POCB) 01S0486 01250000 STH @07,POHID(,@15) 01S0486 01251000 * POCVTMID=POCVTMID+ONE; /* UPDATE ID FOR NEXT MSG */ 01252000 AH @07,@CH00093 01S0487 01253000 STH @07,POCVTMID(,CR2POCB) 01S0487 01254000 * END; 01S0488 01255000 * IF RWPLRLN^=ZERO 01S0489 01256000 * 01S0489 01257000 * /*************************************************************/ 01258000 * /* */ 01259000 * /* WE WILL NOW BUILD THE PORCB */ 01260000 * /* */ 01261000 * /*************************************************************/ 01262000 * 01S0489 01263000 * THEN 01S0489 01264000 @RF00484 LA @15,16 01S0489 01265000 L @07,RPHWEA(,GPR01P) 01S0489 01266000 ALR @07,@15 01S0489 01267000 CLI RWPLRLN(@07),0 01S0489 01268000 BE @RF00489 01S0489 01269000 * DO; 01S0490 01270000 * POHRREQ=ON; /* REPLY REQUESTED BY VTAM */ 01271000 * 01S0491 01272000 ALR @15,CR2PTR 01S0491 01273000 OI POHRREQ(@15),B'00000010' 01S0491 01274000 * /*********************************************************/ 01275000 * /* */ 01276000 * /* GETSTOR SIZE(LENGTH(ISTPORCB))FETCHP(NO)CLEAR(YES) */ 01277000 * /* */ 01278000 * /*********************************************************/ 01279000 * 01S0492 01280000 * DO; 01S0492 01281000 * 01S0492 01282000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 01283000 */* END OF ATBUILD */ 01284000 * 01S0493 01285000 * RFY 01S0493 01286000 * (GPR00P, 01S0493 01287000 * GPR01P, 01S0493 01288000 * GPR02P, 01S0493 01289000 * GPR03P) RSTD; 01S0493 01290000 * RFY 01S0494 01291000 * ISTRPH BASED(GPR01P); 01S0494 01292000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P 01293000 * ,GPR09P,GPR10P,GPR11P,GPR12P,GPR13P) SETS(RPHWORK); 01294000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 01295000 * GPR00F=LENGTH(ISTPORCB);/* SIZE IN REG0 */ 01296000 LA GPR00F,154 01S0496 01297000 * DCL 01S0497 01298000 * 1 CMZA0125 FIXED(31) STATIC LOCAL, 01S0497 01299000 * 2 * FIXED(8) INIT(96),/* OPTION FLAGS */ 01300000 * 2 * FIXED(8) INIT(96),/* STORAGE KEY */ 01301000 * 2 * FIXED(8) INIT(241),/* SUBPOOL NUMBER */ 01302000 * 2 * FIXED(8) INIT('00'X);/* REQUEST TYPE */ 01303000 * GPR03F=CMZA0125; 01S0498 01304000 L GPR03F,CMZA0125 01S0498 01305000 * DO; /* LISATCVT 01S0499 01306000 * CVTBASE(PAGEABLE,(GPR02P)) */ 01307000 * GPR02P=ATCLCPTR; /* SET UP ATCVT POINTER */ 01308000 L GPR02P,ATCLCPTR 01S0500 01309000 * END; /* LISATCVT */ 01310000 * CALL GPR02P->ATCGTSTR;/* CALL ISTORFSR */ 01311000 L @15,ATCGTSTR(,GPR02P) 01S0502 01312000 BALR @14,@15 01S0502 01313000 * RFY 01S0503 01314000 * (GPR00P, 01S0503 01315000 * GPR01P, 01S0503 01316000 * GPR02P, 01S0503 01317000 * GPR03P) UNRSTD; 01S0503 01318000 * END; /* END OF GETSTOR */ 01319000 * RFY 01S0505 01320000 * CR2R15F RSTD; 01S0505 01321000 * IF CR2R15F=ZERO /* TEST THE RETURN CODES */ 01322000 * THEN 01S0506 01323000 LTR CR2R15F,CR2R15F 01S0506 01324000 BNZ @RF00506 01S0506 01325000 * DO; 01S0507 01326000 * RFY 01S0508 01327000 * ISTWPL BASED(ADDR(RWPWPL)); 01S0508 01328000 * RFY 01S0509 01329000 * ISTRWPL BASED(ADDR(POWWPL)); 01S0509 01330000 * RFY 01S0510 01331000 * CR2R15F UNRSTD; 01S0510 01332000 * RFY 01S0511 01333000 * ISTPORCB BASED(RPHSRPRM); 01S0511 01334000 * PORCBID=PORTYPE; /* SET CB IDENTITY */ 01335000 L @15,RPHSRPRM(,GPR01P) 01S0512 01336000 MVI PORCBID(@15),X'48' 01S0512 01337000 * PORLNGTH=LENGTH(ISTPORCB);/* SET LENGTH OF CONTROL 01338000 * BLOCK */ 01339000 MVI PORLNGTH(@15),X'9A' 01S0513 01340000 * PORECB=RWPRECB; /* INIT ECB PTR */ 01341000 LA @07,16 01S0514 01342000 AL @07,RPHWEA(,GPR01P) 01S0514 01343000 MVC PORECB(4,@15),RWPRECB(@07) 01S0514 01344000 * PORAREA=RWPRPTRA; /* SET PTR TO REPLY AREA */ 01345000 SLR @00,@00 01S0515 01346000 ICM @00,7,RWPRPTRA(@07) 01S0515 01347000 ST @00,PORAREA(,@15) 01S0515 01348000 * POMPORCB=RPHSRPRM; /* POINT POMCB TO PORCB */ 01349000 STCM @15,7,POMPORCB(CR2PTR) 01S0516 01350000 * PORPOMCB=CR2PTR; /* POINT PORCB TO POMCB */ 01351000 STCM CR2PTR,7,PORPOMCB(@15) 01S0517 01352000 * PORREPLN=RWPLRLN; /* SET REPLY MESS. LEN. */ 01353000 MVC PORREPLN(1,@15),RWPLRLN(@07) 01S0518 01354000 * CR2ERR=OFF; /* NO GETSTOR FAILURE */ 01355000 * 01S0519 01356000 NI CR2ERR(CR2WAPTR),B'10111111' 01S0519 01357000 * /*****************************************************/ 01358000 * /* */ 01359000 * /* WE WILL NOW TPQUEUE THE POMCB TO THE POMCB CHAIN */ 01360000 * /* OFF THE POCB */ 01361000 * /* */ 01362000 * /*****************************************************/ 01363000 * 01S0520 01364000 */* TPQUE (CR2PTR,POCRCVQ) CHAIN(POMNEXT)FIRST */ 01365000 * 01S0520 01366000 * DO; 01S0520 01367000 * RFY 01S0521 01368000 * (GPR00P, 01S0521 01369000 * GPR01P, 01S0521 01370000 * GPR02P, 01S0521 01371000 * GPR14P, 01S0521 01372000 * GPR15P) RSTD; 01S0521 01373000 * GEN REFS(GPR01P) SETS(RPHWORK) 01S0522 01374000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 01S0522 01375000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 01376000 * GPR15P=CR2PTR; /* GET WORK ELEM POINTER */ 01377000 LR GPR15P,CR2PTR 01S0523 01378000 * GPR14P=ADDR(POCRCVQ);/* ADDRESS PAB/QUEUE POINTER */ 01379000 LA GPR14P,POCRCVQ(,CR2POCB) 01S0524 01380000 * GPR02P=GPR14P->PABWEQA; 01S0525 01381000 L GPR02P,PABWEQA(,GPR14P) 01S0525 01382000 * GPR00P=GPR02P; 01S0526 01383000 LR GPR00P,GPR02P 01S0526 01384000 *CMZA0143: 01S0527 01385000 * ; 01S0527 01386000 CMZA0143 DS 0H 01S0528 01387000 * IF GPR00P=PABWEQG1|GPR00P=0 THEN 01S0528 01388000 CL GPR00P,@CF01482 01S0528 01389000 BE @RT00528 01S0528 01390000 LTR GPR00P,GPR00P 01S0528 01391000 BNZ @RF00528 01S0528 01392000 @RT00528 DS 0H 01S0529 01393000 * DO; 01S0529 01394000 * GPR15P=GPR15P|PABWEQG1; 01S0530 01395000 O GPR15P,@CF01482 01S0530 01396000 * GPR15P->POMNEXT=PABWEQG1; 01S0531 01397000 MVC POMNEXT(4,GPR15P),@CB01482 01S0531 01398000 * CS(GPR00P,GPR15P,GPR14P->PABWEQA); 01S0532 01399000 CS GPR00P,@15,PABWEQA(GPR14P) 01S0532 01400000 * BC(8,CMZB0143); 01S0533 01401000 BC 8,CMZB0143 01S0533 01402000 * GPR02P=GPR00P; 01S0534 01403000 LR GPR02P,GPR00P 01S0534 01404000 * GOTO CMZA0143; 01S0535 01405000 B CMZA0143 01S0535 01406000 *CMZB0143: 01S0536 01407000 * ; 01S0536 01408000 CMZB0143 DS 0H 01S0537 01409000 * END; 01S0537 01410000 * ELSE 01S0538 01411000 * DO; 01S0538 01412000 B @RC00528 01S0538 01413000 @RF00528 DS 0H 01S0539 01414000 * DO WHILE((GPR02P->POMNEXT)^=PABCHNG1); 01S0539 01415000 B @DE00539 01S0539 01416000 @DL00539 DS 0H 01S0540 01417000 * GPR02P=GPR02P->POMNEXT; 01S0540 01418000 L GPR02P,POMNEXT(,GPR02P) 01S0540 01419000 * END; 01S0541 01420000 @DE00539 CLC POMNEXT(4,GPR02P),@CB01482 01S0541 01421000 BNE @DL00539 01S0541 01422000 * GPR15P->POMNEXT=PABCHNG1; 01S0542 01423000 MVC POMNEXT(4,GPR15P),@CB01482 01S0542 01424000 * GPR02P->POMNEXT=GPR15P|PABCHNG1; 01S0543 01425000 LR @07,GPR15P 01S0543 01426000 O @07,@CF01482 01S0543 01427000 ST @07,POMNEXT(,GPR02P) 01S0543 01428000 * END; 01S0544 01429000 * GEN REFS(RPHWORK,GPR01P) NOSETS 01S0545 01430000 * (LM GPR02P,GPR08P,RPHWORK(GPR01P)); 01S0545 01431000 @RC00528 DS 0H 01S0545 01432000 LM GPR02P,GPR08P,RPHWORK(GPR01P) 01433000 * RFY 01S0546 01434000 * (GPR00P, 01S0546 01435000 * GPR01P, 01S0546 01436000 * GPR02P, 01S0546 01437000 * GPR14P, 01S0546 01438000 * GPR15P) UNRSTD; 01S0546 01439000 * END; /* *** END OF TPQUE GENERATION */ 01440000 * RFY 01S0548 01441000 * CR2INDEX RSTD; 01S0548 01442000 * 01S0548 01443000 * /*****************************************************/ 01444000 * /* */ 01445000 * /* WE WILL NOW SET THE REPLY ID IN THE PORCB WE WILL */ 01446000 * /* SEARCH FOR THE FIRST AVAILABLE ID IN THE POCB BIT */ 01447000 * /* FEILD. WE WILL TEST WHETHER OR NOT IT IS IN USE BY*/ 01448000 * /* ANDING THE CORRECT BYTE (CONTAINING THE CORRECT */ 01449000 * /* BIT TO BE TESTED) WITH THE CORRECT BIT PATTERN */ 01450000 * /* */ 01451000 * /*****************************************************/ 01452000 * 01S0549 01453000 * RFY 01S0549 01454000 * CR2CHARA BASED(EVAL(ADDR(POCRPGEN)+CR2INDEX/8)); 01455000 * CR2INDEX=ZERO; /* INIT INDEX */ 01456000 SLR CR2INDEX,CR2INDEX 01S0550 01457000 * DO UNTIL(CR2INDEX^=100); 01S0551 01458000 @DL00551 DS 0H 01S0552 01459000 * DO CR2INDEX=0 TO 99 WHILE((CR2CHARA&CR2WRO2((CR2INDEX 01460000 * //8)+ONE))^=ZERO); 01S0552 01461000 SLR CR2INDEX,CR2INDEX 01S0552 01462000 @DL00552 LA @15,POCRPGEN(,CR2POCB) 01S0552 01463000 LR @08,CR2INDEX 01S0552 01464000 SRDA @08,32 01S0552 01465000 D @08,@CF00091 01S0552 01466000 ALR @15,@09 01S0552 01467000 LR @08,CR2INDEX 01S0552 01468000 SRDA @08,32 01S0552 01469000 D @08,@CF00091 01S0552 01470000 SLA @08,2 01S0552 01471000 SLR @07,@07 01S0552 01472000 IC @07,CR2CHARA(,@15) 01S0552 01473000 N @07,CR2WRO2(@08) 01S0552 01474000 LTR @07,@07 01S0552 01475000 BZ @DC00552 01S0552 01476000 * END; 01S0553 01477000 AH CR2INDEX,@CH00093 01S0553 01478000 CH CR2INDEX,@CH01643 01S0553 01479000 BNH @DL00552 01S0553 01480000 @DC00552 DS 0H 01S0554 01481000 * IF CR2INDEX=100 /* WE HAVE NOT FOUND AVAILABLE ID*/ 01482000 * THEN 01S0554 01483000 CH CR2INDEX,@CH01642 01S0554 01484000 BNE @RF00554 01S0554 01485000 * DO; 01S0555 01486000 * 01S0555 01487000 * /***********************************************/ 01488000 * /* */ 01489000 * /* WE WILL NOW RELEASE THE LOCKS TO ALLOW A */ 01490000 * /* REPLY TO BE PROCESSED TO RELEASE AN ID */ 01491000 * /* */ 01492000 * /***********************************************/ 01493000 * 01S0556 01494000 */*** START -TPUNLOCK (RDTLOCK)- ** */ 01495000 * 01S0556 01496000 * DO; 01S0556 01497000 * 01S0556 01498000 */* ATBUILD (ISTRPH,ISTLOK,ISTCRA) */ 01499000 */* END OF ATBUILD */ 01500000 * 01S0557 01501000 * RFY 01S0557 01502000 * (GPR00P, 01S0557 01503000 * GPR01P, 01S0557 01504000 * GPR02P, 01S0557 01505000 * GPR03P, 01S0557 01506000 * GPR04P, 01S0557 01507000 * GPR15P) RSTD; 01S0557 01508000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) 01509000 * SETS(RPHWORK); 01S0558 01510000 STM GPR00P,GPR15P,RPHWORK(GPR01P) 01511000 * GPR02P=ADDR(ATCRDTLK);/* SET PARAM - LOCKWORD 01512000 * PTR */ 01513000 L GPR02P,CR2CVTSV(,CR2WAPTR) 01S0559 01514000 LA GPR02P,ATCRDTLK(,GPR02P) 01S0559 01515000 * GPR04P=GPR01P->RPHCRR;/* SET PARAM - ISTCRA 01516000 * PTR */ 01517000 L GPR04P,RPHCRR(,GPR01P) 01S0560 01518000 * GPR00P=CRALMS03;/* SET PARAM - LOCK LEVEL 01519000 * FLAG */ 01520000 LA GPR00P,4 01S0561 01521000 * GPR03P=ADDR(GPR04P->CRAL3PTR);/* SET PARAM - 01522000 * LOCK LEVEL PTR */ 01523000 LA GPR03P,CRAL3PTR(,GPR04P) 01S0562 01524000 * DO; /* LISATCVT 01S0563 01525000 * CVTBASE(PAGEABLE,(GPR15P)) */ 01526000 * GPR15P=ATCLCPTR;/* SET UP ATCVT POINTER */ 01527000 L GPR15P,ATCLCPTR 01S0564 01528000 * END; /* LISATCVT */ 01529000 * GPR15P=GPR15P->ATCAP33; 01S0566 01530000 L GPR15P,ATCAP33(,GPR15P) 01S0566 01531000 * DCL 01S0567 01532000 * FMZL0149 BASED(GPR15P) LABEL VALUERANGE(*); 01533000 * CALL FMZL0149; 01S0568 01534000 BALR @14,@15 01S0568 01535000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) 01536000 * SETS(GPR00P,GPR01P,GPR02P,GPR03P,GPR04P, 01537000 * GPR05P,GPR06P,GPR07P,GPR08P,GPR09P,GPR10P, 01538000 * GPR11P,GPR12P,GPR13P,GPR14P,GPR15P); 01539000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 01540000 * RFY 01S0570 01541000 * (GPR00P, 01S0570 01542000 * GPR01P, 01S0570 01543000 * GPR02P, 01S0570 01544000 * GPR03P, 01S0570 01545000 * GPR04P, 01S0570 01546000 * GPR15P) UNRSTD; 01S0570 01547000 * END; 01S0571 01548000 * 01S0571 01549000 */*** END -TPUNLOCK (RDTLOCK)- ** */ 01550000 */*** START -TPLOCK (RDTLOCK)TYPE(XCLSIVE)- ** */ 01551000 * 01S0572 01552000 * DO; 01S0572 01553000 * RFY 01S0573 01554000 * (GPR00P, 01S0573 01555000 * GPR01P, 01S0573 01556000 * GPR02P, 01S0573 01557000 * GPR03P, 01S0573 01558000 * GPR04P, 01S0573 01559000 * GPR15P) RSTD; 01S0573 01560000 * GENERATE REFS(GPR00P,GPR01P,GPR15P,RPHWORK) 01561000 * SETS(RPHWORK); 01S0574 01562000 STM GPR00P,GPR14P,RPHWORK(GPR01P) 01563000 * GPR15P=ATCAP36;/* ADDRESS OF LOCK ROUTINE */ 01564000 L @07,CR2CVTSV(,CR2WAPTR) 01S0575 01565000 L GPR15P,ATCAP36(,@07) 01S0575 01566000 * GPR02P=ADDR(ATCRDTLK);/* SET PARAM - LOCKWORD 01567000 * PTR */ 01568000 LA GPR02P,ATCRDTLK(,@07) 01S0576 01569000 * GPR04P=GPR01P->RPHCRR;/* SET PARAM - ISTCRA 01570000 * PTR */ 01571000 L GPR04P,RPHCRR(,GPR01P) 01S0577 01572000 * GPR00P=CRALMS03;/* SET PARAM - LOCK LEVEL 01573000 * FLAG */ 01574000 LA GPR00P,4 01S0578 01575000 * GPR03P=ADDR(GPR04P->CRAL3PTR);/* SET PARAM - 01576000 * LOCK LEVEL PTR */ 01577000 LA GPR03P,CRAL3PTR(,GPR04P) 01S0579 01578000 * DCL 01S0580 01579000 * FMZL0159 BASED(GPR15P) LABEL VALUERANGE(*); 01580000 * CALL FMZL0159; 01S0581 01581000 BALR @14,@15 01S0581 01582000 * GENERATE REFS(GPR00P,GPR01P,GPR14P,RPHWORK) 01583000 * SETS(GPR00P,GPR01P,GPR02P,GPR03P,GPR04P, 01584000 * GPR05P,GPR06P,GPR07P,GPR08P,GPR09P,GPR10P, 01585000 * GPR11P,GPR12P,GPR13P,GPR14P,GPR15P); 01586000 LM GPR00P,GPR15P,RPHWORK(GPR01P) 01587000 * RFY 01S0583 01588000 * (GPR00P, 01S0583 01589000 * GPR01P, 01S0583 01590000 * GPR02P, 01S0583 01591000 * GPR03P, 01S0583 01592000 * GPR04P, 01S0583 01593000 * GPR15P) UNRSTD; 01S0583 01594000 * END; 01S0584 01595000 * 01S0584 01596000 */*** END -TPLOCK (RDTLOCK)TYPE(XCLSIVE)- ** */ 01597000 * 01S0585 01598000 * END; 01S0585 01599000 * ELSE 01S0586 01600000 * DO; 01S0586 01601000 B @RC00554 01S0586 01602000 @RF00554 DS 0H 01S0587 01603000 * RFY 01S0587 01604000 * CR2R15F RSTD; 01S0587 01605000 * CR2R15F=ZERO; 01S0588 01606000 SLR CR2R15F,CR2R15F 01S0588 01607000 * END; 01S0589 01608000 * END; 01S0590 01609000 @RC00554 DS 0H 01S0590 01610000 @DE00551 CH CR2INDEX,@CH01642 01S0590 01611000 BE @DL00551 01S0590 01612000 * IF CR2R15F=ZERO /* TPLOCK SUCCESSFULL */ 01613000 * THEN 01S0591 01614000 LTR CR2R15F,CR2R15F 01S0591 01615000 BNZ @RF00591 01S0591 01616000 * DO; 01S0592 01617000 * RFY 01S0593 01618000 * CR2R15F UNRSTD; 01S0593 01619000 * CVD(CR2INDEX,CR2DW);/* CONVERT THE REP ID TO 01620000 * DECIMAL */ 01621000 CVD CR2INDEX,CR2DW(,CR2WAPTR) 01S0594 01622000 * UNPK(CR2NUM,CR2DW);/* UNPACK IT */ 01623000 UNPK CR2NUM(2,CR2WAPTR),CR2DW(8,CR2WAPTR) 01S0595 01624000 * GEN CODE SETS(CR2NUM); 01S0596 01625000 OI CR2NUM+1(CR2WAPTR),X'F0' MAKE LAST CHAR PRINTABLE 01626000 * POREPID=CR2NUM; /* SET REP ID IN PORCB */ 01627000 L @15,RPHSRPRM(,GPR01P) 01S0597 01628000 MVC POREPID(2,@15),CR2NUM(CR2WAPTR) 01S0597 01629000 * RFY 01S0598 01630000 * ISTPOMCB BASED(PORPOMCB); 01S0598 01631000 * POMMSG(2:3)=CR2NUM;/* SET REP ID IN MSG */ 01632000 SLR @07,@07 01S0599 01633000 ICM @07,7,PORPOMCB(@15) 01S0599 01634000 MVC POMMSG+1(2,@07),CR2NUM(CR2WAPTR) 01S0599 01635000 * CR2INDEX=CR2INDEX//8+ONE;/* COMPUTE CORRECT BIT 01636000 * TO TURN AVAILABLE BIT ON IN 01637000 * POCB */ 01638000 LR @08,CR2INDEX 01S0600 01639000 SRDA @08,32 01S0600 01640000 D @08,@CF00091 01S0600 01641000 AH @08,@CH00093 01S0600 01642000 LR CR2INDEX,@08 01S0600 01643000 * CR2CHARA=CR2CHARA|CR2WRO2(CR2INDEX);/* SETS THE 01644000 * AVAILABLE BIT ON */ 01645000 LA @15,POCRPGEN(,CR2POCB) 01S0601 01646000 LA @07,8 01S0601 01647000 LR @08,CR2INDEX 01S0601 01648000 SRDA @08,32 01S0601 01649000 DR @08,@07 01S0601 01650000 ALR @09,@15 01S0601 01651000 LR @10,CR2INDEX 01S0601 01652000 SRDA @10,32 01S0601 01653000 DR @10,@07 01S0601 01654000 ALR @15,@11 01S0601 01655000 LR @07,CR2INDEX 01S0601 01656000 SLA @07,2 01S0601 01657000 SLR @00,@00 01S0601 01658000 IC @00,CR2CHARA(,@15) 01S0601 01659000 O @00,CR2WRO2-4(@07) 01S0601 01660000 STC @00,CR2CHARA(,@09) 01S0601 01661000 * END; 01S0602 01662000 * END; 01S0603 01663000 * ELSE 01S0604 01664000 * DO; 01S0604 01665000 * 01S0604 01666000 B @RC00506 01S0604 01667000 @RF00506 DS 0H 01S0605 01668000 * /*****************************************************/ 01669000 * /* */ 01670000 * /* A TPMSG AND THE APPROPRIATE IWTOR WILL BE SENT TO */ 01671000 * /* THE MASTER CONSOLE TO NOTIFY THE OPERATOR OF THE */ 01672000 * /* GETSTOR FAILURE. */ 01673000 * /* */ 01674000 * /*****************************************************/ 01675000 * 01S0605 01676000 * CR2R1SV=CR2RPHPT; /* SAVE RPH @ */ 01677000 LR CR2R1SV,CR2RPHPT 01S0605 01678000 * RFY 01S0606 01679000 * ISTRPH BASED(CR2R1SV); 01S0606 01680000 * 01S0606 01681000 */*TPMSG MSGID('192I') */ 01682000 * 01S0607 01683000 * DO; 01S0607 01684000 * DCL 01S0608 01685000 * REG1164 REG(1) PTR; 01S0608 01686000 * RFY 01S0609 01687000 * (REG1164) RSTD; 01S0609 01688000 * RFY 01S0610 01689000 * (EMCR13) RSTD; 01S0610 01690000 * DCL 01S0611 01691000 * 1 * BASED(REG1164), 01S0611 01692000 * 2 CMZID164 PTR(31), 01S0611 01693000 * 2 *, 01S0611 01694000 * 3 CMZRL164 PTR(8), 01S0611 01695000 * 3 CMZRA164 PTR(24) BDY(BYTE), 01S0611 01696000 * 2 CMZEA164 PTR(31), 01S0611 01697000 * 2 CMZVP164 PTR(31); 01S0611 01698000 * DCL 01S0612 01699000 * CMZPL164(4) FIXED INIT((4)0); 01S0612 01700000 * REG1164=ADDR(CMZPL164); 01S0613 01701000 LA REG1164,CMZPL164 01S0613 01702000 * DCL 01S0614 01703000 * CMZAA164 CHAR(4) INIT('192I'); 01S0614 01704000 * CMZID164=ADDR(CMZAA164); 01S0615 01705000 LA @15,CMZAA164 01S0615 01706000 ST @15,CMZID164(,REG1164) 01S0615 01707000 * DCL 01S0616 01708000 * CMZSA164(18) PTR(31) BASED(EMCR13); 01S0616 01709000 * DCL 01S0617 01710000 * CMZZO164(1) FIXED(31) INIT(0); 01S0617 01711000 * CMZSA164(5)=CMZZO164; 01S0618 01712000 MVC CMZSA164+16(4,EMCR13),CMZZO164 01S0618 01713000 * DCL 01S0619 01714000 * REG15164 REG(15) PTR; 01S0619 01715000 * RFY 01S0620 01716000 * REG15164 RSTD; 01S0620 01717000 * DO; /* LISATCVT 01S0621 01718000 * CVTBASE(PAGEABLE,(REG15164)) */ 01719000 * REG15164=ATCLCPTR;/* SET UP ATCVT POINTER */ 01720000 L REG15164,ATCLCPTR 01S0622 01721000 * END; /* LISATCVT */ 01722000 * DCL 01S0624 01723000 * CMTA164 BASED(REG15164) ENTRY VALUERANGE(*); 01724000 * REG15164=REG15164->ATCMSGP; 01S0625 01725000 L REG15164,ATCMSGP(,REG15164) 01S0625 01726000 * CALL CMTA164; 01S0626 01727000 BALR @14,@15 01S0626 01728000 * RESPECIFY 01S0627 01729000 * (REG1164, 01S0627 01730000 * REG15164) UNRESTRICTED; 01S0627 01731000 * RFY 01S0628 01732000 * (EMCR13) UNRSTD; 01S0628 01733000 * END; 01S0629 01734000 * 01S0629 01735000 * /*****************************************************/ 01736000 * /* */ 01737000 * /* WE WILL AGAIN ISSUE AN IWTOR */ 01738000 * /* */ 01739000 * /*****************************************************/ 01740000 * 01S0630 01741000 * CR2RPHPT=ADDR(POWWPL);/* SET TO MESSAGE */ 01742000 L CR2RPHPT,RPHWEA(,CR2R1SV) 01S0630 01743000 LA CR2RPHPT,POWWPL(,CR2RPHPT) 01S0630 01744000 */***** IWTOR **** */ 01745000 * 01S0631 01746000 * DO; 01S0631 01747000 * GEN; 01S0632 01748000 WTOR MF=(E,(1)) 01749000 * DCL 01S0633 01750000 * REGF0172 REGISTER(15) FIXED; 01S0633 01751000 * REGF0172=0; 01S0634 01752000 SLR REGF0172,REGF0172 01S0634 01753000 * END; /* IWTOR */ 01754000 * CR2RPHPT=CR2R1SV; /* RESTORE RPHPTR */ 01755000 LR CR2RPHPT,CR2R1SV 01S0636 01756000 * RFY 01S0637 01757000 * ISTRPH BASED(CR2RPHPT); 01S0637 01758000 * 01S0637 01759000 * /*****************************************************/ 01760000 * /* */ 01761000 * /* WE WILL FREE THE GETSTORED AREA FOR THE POMCB */ 01762000 * /* FREESTOR */ 01763000 * /* AREA(CR2PTR)SIZE(LENGTH(ISTPOMCB))FETCHP(NO) */ 01764000 * /* */ 01765000 * /*****************************************************/ 01766000 * 01S0638 01767000 * DO; 01S0638 01768000 * 01S0638 01769000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 01770000 */* END OF ATBUILD */ 01771000 * 01S0639 01772000 * RFY 01S0639 01773000 * (GPR00P, 01S0639 01774000 * GPR01P, 01S0639 01775000 * GPR02P, 01S0639 01776000 * GPR03P) RSTD; 01S0639 01777000 * RFY 01S0640 01778000 * ISTRPH BASED(GPR01P); 01S0640 01779000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P, 01780000 * GPR08P,GPR09P,GPR10P,GPR11P,GPR12P,GPR13P) SETS( 01781000 * RPHWORK); 01S0641 01782000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 01783000 * GPR00F=LENGTH(ISTPOMCB);/* SIZE IN REG0 */ 01784000 LA GPR00F,140 01S0642 01785000 * DCL 01S0643 01786000 * 1 CMZA0173 FIXED(31) STATIC LOCAL, 01S0643 01787000 * 2 * FIXED(8) INIT(64),/* OPTION FLAGS */ 01788000 * 2 * FIXED(8) INIT(96),/* STORAGE KEY */ 01789000 * 2 * FIXED(8) INIT(241),/* SUBPOOL NUMBER */ 01790000 * 2 * FIXED(8) INIT('01'X);/* REQUEST TYPE */ 01791000 * GPR03F=CMZA0173; 01S0644 01792000 L GPR03F,CMZA0173 01S0644 01793000 * RFY 01S0645 01794000 * (GPR04P) RSTD; 01S0645 01795000 * GPR04P=CR2PTR; /* PUT FREEMAIN ADDR IN REG4 */ 01796000 LR GPR04P,CR2PTR 01S0646 01797000 * DO; /* LISATCVT 01S0647 01798000 * CVTBASE(PAGEABLE,(GPR02P)) */ 01799000 * GPR02P=ATCLCPTR;/* SET UP ATCVT POINTER */ 01800000 L GPR02P,ATCLCPTR 01S0648 01801000 * END; /* LISATCVT */ 01802000 * CALL GPR02P->ATCGTSTR;/* CALL ISTORFSR */ 01803000 L @15,ATCGTSTR(,GPR02P) 01S0650 01804000 BALR @14,@15 01S0650 01805000 * RFY 01S0651 01806000 * (GPR00P, 01S0651 01807000 * GPR01P, 01S0651 01808000 * GPR02P, 01S0651 01809000 * GPR03P, 01S0651 01810000 * GPR04P) UNRSTD; 01S0651 01811000 * END; /* END OF FREESTOR */ 01812000 * CR2ERR=ON; /* WE HAVE A GETSTORE FAILURE */ 01813000 OI CR2ERR(CR2WAPTR),B'01000000' 01S0653 01814000 * END; 01S0654 01815000 * END; 01S0655 01816000 * ELSE 01S0656 01817000 * DO; /* NO PORCB IS TO BE BUILT */ 01818000 B @RC00489 01S0656 01819000 @RF00489 DS 0H 01S0657 01820000 * CR2ERR=OFF; /* SET ERROR FEILD */ 01821000 * 01S0657 01822000 NI CR2ERR(CR2WAPTR),B'10111111' 01S0657 01823000 * /*********************************************************/ 01824000 * /* */ 01825000 * /* WE WILL NOW TPQUE THE POMCB TO THE POCB QUEUE */ 01826000 * /* */ 01827000 * /*********************************************************/ 01828000 * 01S0658 01829000 */* TPQUE (CR2PTR,POCRCVQ) CHAIN(POMNEXT)FIRST */ 01830000 * 01S0658 01831000 * DO; 01S0658 01832000 * RFY 01S0659 01833000 * (GPR00P, 01S0659 01834000 * GPR01P, 01S0659 01835000 * GPR02P, 01S0659 01836000 * GPR14P, 01S0659 01837000 * GPR15P) RSTD; 01S0659 01838000 * GEN REFS(GPR01P) SETS(RPHWORK) 01S0660 01839000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 01S0660 01840000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 01841000 * GPR15P=CR2PTR; /* GET WORK ELEM POINTER */ 01842000 LR GPR15P,CR2PTR 01S0661 01843000 * GPR14P=ADDR(POCRCVQ); /* ADDRESS PAB/QUEUE POINTER */ 01844000 LA GPR14P,POCRCVQ(,CR2POCB) 01S0662 01845000 * GPR02P=GPR14P->PABWEQA; 01S0663 01846000 L GPR02P,PABWEQA(,GPR14P) 01S0663 01847000 * GPR00P=GPR02P; 01S0664 01848000 LR GPR00P,GPR02P 01S0664 01849000 *CMZA0192: 01S0665 01850000 * ; 01S0665 01851000 CMZA0192 DS 0H 01S0666 01852000 * IF GPR00P=PABWEQG1|GPR00P=0 THEN 01S0666 01853000 CL GPR00P,@CF01482 01S0666 01854000 BE @RT00666 01S0666 01855000 LTR GPR00P,GPR00P 01S0666 01856000 BNZ @RF00666 01S0666 01857000 @RT00666 DS 0H 01S0667 01858000 * DO; 01S0667 01859000 * GPR15P=GPR15P|PABWEQG1; 01S0668 01860000 O GPR15P,@CF01482 01S0668 01861000 * GPR15P->POMNEXT=PABWEQG1; 01S0669 01862000 MVC POMNEXT(4,GPR15P),@CB01482 01S0669 01863000 * CS(GPR00P,GPR15P,GPR14P->PABWEQA); 01S0670 01864000 CS GPR00P,@15,PABWEQA(GPR14P) 01S0670 01865000 * BC(8,CMZB0192); 01S0671 01866000 BC 8,CMZB0192 01S0671 01867000 * GPR02P=GPR00P; 01S0672 01868000 LR GPR02P,GPR00P 01S0672 01869000 * GOTO CMZA0192; 01S0673 01870000 B CMZA0192 01S0673 01871000 *CMZB0192: 01S0674 01872000 * ; 01S0674 01873000 CMZB0192 DS 0H 01S0675 01874000 * END; 01S0675 01875000 * ELSE 01S0676 01876000 * DO; 01S0676 01877000 B @RC00666 01S0676 01878000 @RF00666 DS 0H 01S0677 01879000 * DO WHILE((GPR02P->POMNEXT)^=PABCHNG1); 01S0677 01880000 B @DE00677 01S0677 01881000 @DL00677 DS 0H 01S0678 01882000 * GPR02P=GPR02P->POMNEXT; 01S0678 01883000 L GPR02P,POMNEXT(,GPR02P) 01S0678 01884000 * END; 01S0679 01885000 @DE00677 CLC POMNEXT(4,GPR02P),@CB01482 01S0679 01886000 BNE @DL00677 01S0679 01887000 * GPR15P->POMNEXT=PABCHNG1; 01S0680 01888000 MVC POMNEXT(4,GPR15P),@CB01482 01S0680 01889000 * GPR02P->POMNEXT=GPR15P|PABCHNG1; 01S0681 01890000 LR @07,GPR15P 01S0681 01891000 O @07,@CF01482 01S0681 01892000 ST @07,POMNEXT(,GPR02P) 01S0681 01893000 * END; 01S0682 01894000 * GEN REFS(RPHWORK,GPR01P) NOSETS 01S0683 01895000 * (LM GPR02P,GPR08P,RPHWORK(GPR01P)); 01S0683 01896000 @RC00666 DS 0H 01S0683 01897000 LM GPR02P,GPR08P,RPHWORK(GPR01P) 01898000 * RFY 01S0684 01899000 * (GPR00P, 01S0684 01900000 * GPR01P, 01S0684 01901000 * GPR02P, 01S0684 01902000 * GPR14P, 01S0684 01903000 * GPR15P) UNRSTD; 01S0684 01904000 * END; /* *** END OF TPQUE GENERATION */ 01905000 * END; 01S0686 01906000 * IF POCRPL^=ZERO&CR2ERR=OFF&RPLTCRNO=OFF THEN 01S0687 01907000 @RC00489 L @15,POCRPL(,CR2POCB) 01S0687 01908000 LTR @15,@15 01S0687 01909000 BZ @RF00687 01S0687 01910000 TM CR2ERR(CR2WAPTR),B'01000000' 01S0687 01911000 BNZ @RF00687 01S0687 01912000 TM RPLTCRNO(@15),B'00000010' 01S0687 01913000 BNZ @RF00687 01S0687 01914000 * DO; 01S0688 01915000 * 01S0688 01916000 * /*********************************************************/ 01917000 * /* */ 01918000 * /* IT TO THE SSPAB IN THE CORRECT ACDEB */ 01919000 * /* */ 01920000 * /*********************************************************/ 01921000 * 01S0689 01922000 * RPLTCRNO=ON; /* TELLS THE RCVCMD PROCESS THAT 01923000 * IT IS REDRIVEN RPL */ 01924000 OI RPLTCRNO(@15),B'00000010' 01S0689 01925000 */* TPQUE (POCRPL,ACDSSPAB) NORM */ 01926000 * 01S0690 01927000 * DO; 01S0690 01928000 * RFY 01S0691 01929000 * (GPR00P, 01S0691 01930000 * GPR01P, 01S0691 01931000 * GPR04P, 01S0691 01932000 * GPR05P, 01S0691 01933000 * GPR15P) RSTD; 01S0691 01934000 * GEN REFS(GPR01P) SETS(RPHWORK) 01S0692 01935000 * (STM GPR02P,GPR08P,RPHWORK(GPR01P)); 01S0692 01936000 STM GPR02P,GPR08P,RPHWORK(GPR01P) 01937000 * GPR00P=0; 01S0693 01938000 SLR GPR00P,GPR00P 01S0693 01939000 * GPR15P=ADDR(ACDSSPAB);/* HOLD PAB PTR */ 01940000 L GPR15P,POCDEB(,CR2POCB) 01S0694 01941000 LA GPR15P,ACDSSPAB(,GPR15P) 01S0694 01942000 * GPR04P=POCRPL; /* WORK ELE PTR */ 01943000 L GPR04P,POCRPL(,CR2POCB) 01S0695 01944000 * GPR05P=GPR15P; /* PASS PAB PTR */ 01945000 LR GPR05P,GPR15P 01S0696 01946000 * CALL ATCLCPTR->ATCAP37->ISTAPC37; 01S0697 01947000 L @07,ATCLCPTR 01S0697 01948000 L @15,ATCAP37(,@07) 01S0697 01949000 BALR @14,@15 01S0697 01950000 * GEN(NOPR 0) 01S0698 01951000 * NOSETS NOREFS; 01S0698 01952000 NOPR 0 01953000 * RFY 01S0699 01954000 * (GPR00P, 01S0699 01955000 * GPR01P, 01S0699 01956000 * GPR04P, 01S0699 01957000 * GPR05P, 01S0699 01958000 * GPR15P) UNRSTD; 01S0699 01959000 * END; /* *** END OF TPQUE GENERATION */ 01960000 * END; 01S0701 01961000 * ELSE 01S0702 01962000 * ; /* EITHER WE HAD A GETSTORE FAIL 01963000 * OR THERE IS NO WAITING RPL */ 01964000 @RF00687 DS 0H 01S0703 01965000 * END; 01S0703 01966000 * 01S0703 01967000 * /*****************************************************************/ 01968000 * /* */ 01969000 * /* THE ORIGINAL GETSTOR FOR THE POMCB FAILED SO WE MUST ISSUE THE*/ 01970000 * /* MESSAGE AS AN IWTO/R TO THE MASTER CONSOLE WITH AN ERROR MSG */ 01971000 * /* */ 01972000 * /*****************************************************************/ 01973000 * 01S0704 01974000 * ELSE 01S0704 01975000 * DO; 01S0704 01976000 B @RC00424 01S0704 01977000 @RF00424 DS 0H 01S0705 01978000 * CR2R1SV=CR2RPHPT; /* SAVE RPH @ */ 01979000 LR CR2R1SV,CR2RPHPT 01S0705 01980000 * RFY 01S0706 01981000 * ISTRPH BASED(CR2R1SV); 01S0706 01982000 * 01S0706 01983000 */*TPMSG MSGID('192I') */ 01984000 * 01S0707 01985000 * DO; 01S0707 01986000 * DCL 01S0708 01987000 * REG1204 REG(1) PTR; 01S0708 01988000 * RFY 01S0709 01989000 * (REG1204) RSTD; 01S0709 01990000 * RFY 01S0710 01991000 * (EMCR13) RSTD; 01S0710 01992000 * DCL 01S0711 01993000 * 1 * BASED(REG1204), 01S0711 01994000 * 2 CMZID204 PTR(31), 01S0711 01995000 * 2 *, 01S0711 01996000 * 3 CMZRL204 PTR(8), 01S0711 01997000 * 3 CMZRA204 PTR(24) BDY(BYTE), 01S0711 01998000 * 2 CMZEA204 PTR(31), 01S0711 01999000 * 2 CMZVP204 PTR(31); 01S0711 02000000 * DCL 01S0712 02001000 * CMZPL204(4) FIXED INIT((4)0); 01S0712 02002000 * REG1204=ADDR(CMZPL204); 01S0713 02003000 LA REG1204,CMZPL204 01S0713 02004000 * DCL 01S0714 02005000 * CMZAA204 CHAR(4) INIT('192I'); 01S0714 02006000 * CMZID204=ADDR(CMZAA204); 01S0715 02007000 LA @15,CMZAA204 01S0715 02008000 ST @15,CMZID204(,REG1204) 01S0715 02009000 * DCL 01S0716 02010000 * CMZSA204(18) PTR(31) BASED(EMCR13); 01S0716 02011000 * DCL 01S0717 02012000 * CMZZO204(1) FIXED(31) INIT(0); 01S0717 02013000 * CMZSA204(5)=CMZZO204; 01S0718 02014000 MVC CMZSA204+16(4,EMCR13),CMZZO204 01S0718 02015000 * DCL 01S0719 02016000 * REG15204 REG(15) PTR; 01S0719 02017000 * RFY 01S0720 02018000 * REG15204 RSTD; 01S0720 02019000 * DO; /* LISATCVT 01S0721 02020000 * CVTBASE(PAGEABLE,(REG15204)) */ 02021000 * REG15204=ATCLCPTR; /* SET UP ATCVT POINTER */ 02022000 L REG15204,ATCLCPTR 01S0722 02023000 * END; /* LISATCVT */ 02024000 * DCL 01S0724 02025000 * CMTA204 BASED(REG15204) ENTRY VALUERANGE(*); 01S0724 02026000 * REG15204=REG15204->ATCMSGP; 01S0725 02027000 L REG15204,ATCMSGP(,REG15204) 01S0725 02028000 * CALL CMTA204; 01S0726 02029000 BALR @14,@15 01S0726 02030000 * RESPECIFY 01S0727 02031000 * (REG1204, 01S0727 02032000 * REG15204) UNRESTRICTED; 01S0727 02033000 * RFY 01S0728 02034000 * (EMCR13) UNRSTD; 01S0728 02035000 * END; 01S0729 02036000 * IF RWPLRLN^=ZERO /* WTOR? */ 02037000 * THEN 01S0730 02038000 L @15,RPHWEA(,CR2R1SV) 01S0730 02039000 CLI RWPLRLN+16(@15),0 01S0730 02040000 BE @RF00730 01S0730 02041000 * DO; 01S0731 02042000 * CR2RPHPT=ADDR(POWWPL); /* SET TO MESSAGE */ 02043000 LA CR2RPHPT,POWWPL(,@15) 01S0732 02044000 */***** IWTOR **** */ 02045000 * 01S0733 02046000 * DO; 01S0733 02047000 * GEN; 01S0734 02048000 WTOR MF=(E,(1)) 02049000 * DCL 01S0735 02050000 * REGF0212 REGISTER(15) FIXED; 01S0735 02051000 * REGF0212=0; 01S0736 02052000 SLR REGF0212,REGF0212 01S0736 02053000 * END; /* IWTOR */ 02054000 * CR2RPHPT=CR2R1SV; /* RESTORE RPHPTR */ 02055000 LR CR2RPHPT,CR2R1SV 01S0738 02056000 * RFY 01S0739 02057000 * ISTPOHD BASED(ADDR(POWHDR));/* @ZA25505*/ 02058000 * END; 01S0740 02059000 * ELSE 01S0741 02060000 * IF POHGEN=OFF /* WE WILL SUPPORT MSG 01S0741 02061000 * SUPPRESSION */ 02062000 * THEN 01S0741 02063000 B @RC00730 01S0741 02064000 @RF00730 L @15,RPHWEA(,CR2R1SV) 01S0741 02065000 TM POHGEN+12(@15),B'00000001' 01S0741 02066000 BNZ @RF00741 01S0741 02067000 * DO; 01S0742 02068000 * CR2RPHPT=ADDR(POWWPL);/* SET TO MESSAGE */ 02069000 LA CR2RPHPT,POWWPL(,@15) 01S0743 02070000 */***** IWTO **** */ 02071000 * 01S0744 02072000 * DO; 01S0744 02073000 * GEN; 01S0745 02074000 WTO MF=(E,(1)) 02075000 * END; /* IWTO */ 02076000 * CR2RPHPT=CR2R1SV; /* RESTORE RPHPTR */ 02077000 LR CR2RPHPT,CR2R1SV 01S0747 02078000 * END; 01S0748 02079000 * ELSE /* MSG IS SOLICITED */ 02080000 * CR2RPHPT=CR2R1SV; /* RESTORE RPH ADD. */ 02081000 B @RC00741 01S0749 02082000 @RF00741 LR CR2RPHPT,CR2R1SV 01S0749 02083000 * RFY 01S0750 02084000 * ISTRPH BASED(CR2RPHPT); 01S0750 02085000 @RC00741 DS 0H 01S0750 02086000 @RC00730 DS 0H 01S0751 02087000 * END; 01S0751 02088000 * CR2ACVT=CR2CVTSV; /* RESTORE ATCVT ADDRESS */ 02089000 @RC00424 L CR2ACVT,CR2CVTSV(,CR2WAPTR) 01S0752 02090000 * RFY 01S0753 02091000 * ISTATCVT BASED(CR2ACVT); 01S0753 02092000 * CR2RTPT=CR2R14SA; /* RESTORE RETURN ADDRESS */ 02093000 L CR2RTPT,CR2R14SA(,CR2WAPTR) 01S0754 02094000 * RETURN; 01S0755 02095000 @EL00003 DS 0H 01S0755 02096000 @EF00003 DS 0H 01S0755 02097000 @ER00003 BR @14 01S0755 02098000 * END CR2BUILD; 01S0756 02099000 EJECT 02100000 *CR2PRGE: 01S0757 02101000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 01S0757 02102000 * 01S0757 02103000 CR2PRGE DS 0H 01S0758 02104000 * /*****************************************************************/ 02105000 * /* */ 02106000 * /* THIS SUBROUTINE PERFORMS THE SECOND DISTINCT FUNCTION OF THE */ 02107000 * /* MODULE: THAT OF CLEANING UP THE POI UPON A SUCCESSFULL CLOSE */ 02108000 * /* OF THE POA */ 02109000 * /* */ 02110000 * /*****************************************************************/ 02111000 * 01S0758 02112000 * CR2R14SV=CR2RTPT; /* SAVE RETURN ADDRESS */ 02113000 LR CR2R14SV,CR2RTPT 01S0758 02114000 * RFY 01S0759 02115000 * ISTPOMCB BASED(POCMSGQ); 01S0759 02116000 * RFY 01S0760 02117000 * ISTPOCB BASED(RPHWEA); 01S0760 02118000 * IF POCMSGQ^=ZERO /* THERE ARE MESSAGES OUTSTANDING 02119000 * TO BE ROUTED TO THE POA */ 02120000 * THEN 01S0761 02121000 L @15,RPHWEA(,CR2RPHPT) 01S0761 02122000 ICM @07,7,POCMSGQ(@15) 01S0761 02123000 BZ @RF00761 01S0761 02124000 * CALL CR2MREL; /* GETS RID OF POMCBS OUTSTANDING*/ 02125000 BAL @14,CR2MREL 01S0762 02126000 * IF POCAWTRQ^=0 /* THERE ARE REPLIES OUTSTANDING */ 02127000 * THEN 01S0763 02128000 @RF00761 L @15,RPHWEA(,CR2RPHPT) 01S0763 02129000 ICM @07,7,POCAWTRQ(@15) 01S0763 02130000 BZ @RF00763 01S0763 02131000 * CALL CR2RREL; /* GETS RID OF THE REPLIES 01S0764 02132000 * OUTSTANDING */ 02133000 BAL @14,CR2RREL 01S0764 02134000 * IF POIPOCBQ=RPHWEA&POCFWD=ZERO /* IS THIS ONLY POCB ON POI QUEUE*/ 02135000 * THEN 01S0765 02136000 @RF00763 SLR @15,@15 01S0765 02137000 ICM @15,7,ATCPOIA(CR2ACVT) 01S0765 02138000 L @07,RPHWEA(,CR2RPHPT) 01S0765 02139000 SLR @00,@00 01S0765 02140000 ICM @00,7,POIPOCBQ(@15) 01S0765 02141000 CR @07,@00 01S0765 02142000 BNE @RF00765 01S0765 02143000 ICM @15,7,POCFWD(@07) 01S0765 02144000 BNZ @RF00765 01S0765 02145000 * DO; 01S0766 02146000 * 01S0766 02147000 * /*************************************************************/ 02148000 * /* */ 02149000 * /* WE WILL NOW GET RID OF BOTH THE POCB AND THE POIA SINCE */ 02150000 * /* THERE ARE NO MORE POCBS ON QUEUE FREESTOR */ 02151000 * /* AREA(POIPOCBQ)SIZE(LENGTH(ISTPOCB))FETCHP(NO) */ 02152000 * /* */ 02153000 * /*************************************************************/ 02154000 * 01S0767 02155000 * DO; 01S0767 02156000 * 01S0767 02157000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 02158000 */* END OF ATBUILD */ 02159000 * 01S0768 02160000 * RFY 01S0768 02161000 * (GPR00P, 01S0768 02162000 * GPR01P, 01S0768 02163000 * GPR02P, 01S0768 02164000 * GPR03P) RSTD; 01S0768 02165000 * RFY 01S0769 02166000 * ISTRPH BASED(GPR01P); 01S0769 02167000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P, 02168000 * GPR09P,GPR10P,GPR11P,GPR12P,GPR13P) SETS(RPHWORK); 02169000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 02170000 * GPR00F=LENGTH(ISTPOCB); /* SIZE IN REG0 */ 02171000 LA GPR00F,311 01S0771 02172000 * DCL 01S0772 02173000 * 1 CMZA0214 FIXED(31) STATIC LOCAL, 01S0772 02174000 * 2 * FIXED(8) INIT(64), /* OPTION FLAGS */ 02175000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 02176000 * 2 * FIXED(8) INIT(241),/* SUBPOOL NUMBER */ 02177000 * 2 * FIXED(8) INIT('01'X);/* REQUEST TYPE */ 02178000 * GPR03F=CMZA0214; 01S0773 02179000 L GPR03F,CMZA0214 01S0773 02180000 * RFY 01S0774 02181000 * (GPR04P) RSTD; 01S0774 02182000 * GPR04P=POIPOCBQ; /* PUT FREEMAIN ADDR IN REG4 */ 02183000 SLR @15,@15 01S0775 02184000 ICM @15,7,ATCPOIA(CR2ACVT) 01S0775 02185000 SLR GPR04P,GPR04P 01S0775 02186000 ICM GPR04P,7,POIPOCBQ(@15) 01S0775 02187000 * DO; /* LISATCVT 01S0776 02188000 * CVTBASE(PAGEABLE,(GPR02P)) */ 02189000 * GPR02P=ATCLCPTR; /* SET UP ATCVT POINTER */ 02190000 L GPR02P,ATCLCPTR 01S0777 02191000 * END; /* LISATCVT */ 02192000 * CALL GPR02P->ATCGTSTR; /* CALL ISTORFSR */ 02193000 L @15,ATCGTSTR(,GPR02P) 01S0779 02194000 BALR @14,@15 01S0779 02195000 * RFY 01S0780 02196000 * (GPR00P, 01S0780 02197000 * GPR01P, 01S0780 02198000 * GPR02P, 01S0780 02199000 * GPR03P, 01S0780 02200000 * GPR04P) UNRSTD; 01S0780 02201000 * END; /* END OF FREESTOR */ 02202000 * 01S0781 02203000 * /*************************************************************/ 02204000 * /* */ 02205000 * /* FREESTOR AREA(ATCPOIA)SIZE(LENGTH(ISTPOIA))FETCHP(NO) */ 02206000 * /* */ 02207000 * /*************************************************************/ 02208000 * 01S0782 02209000 * DO; 01S0782 02210000 * 01S0782 02211000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 02212000 */* END OF ATBUILD */ 02213000 * 01S0783 02214000 * RFY 01S0783 02215000 * (GPR00P, 01S0783 02216000 * GPR01P, 01S0783 02217000 * GPR02P, 01S0783 02218000 * GPR03P) RSTD; 01S0783 02219000 * RFY 01S0784 02220000 * ISTRPH BASED(GPR01P); 01S0784 02221000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P, 02222000 * GPR09P,GPR10P,GPR11P,GPR12P,GPR13P) SETS(RPHWORK); 02223000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 02224000 * GPR00F=LENGTH(ISTPOIA); /* SIZE IN REG0 */ 02225000 LA GPR00F,12 01S0786 02226000 * DCL 01S0787 02227000 * 1 CMZA0233 FIXED(31) STATIC LOCAL, 01S0787 02228000 * 2 * FIXED(8) INIT(64), /* OPTION FLAGS */ 02229000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 02230000 * 2 * FIXED(8) INIT(241),/* SUBPOOL NUMBER */ 02231000 * 2 * FIXED(8) INIT('01'X);/* REQUEST TYPE */ 02232000 * GPR03F=CMZA0233; 01S0788 02233000 L GPR03F,CMZA0233 01S0788 02234000 * RFY 01S0789 02235000 * (GPR04P) RSTD; 01S0789 02236000 * GPR04P=ATCPOIA; /* PUT FREEMAIN ADDR IN REG4 */ 02237000 SLR GPR04P,GPR04P 01S0790 02238000 ICM GPR04P,7,ATCPOIA(CR2ACVT) 01S0790 02239000 * DO; /* LISATCVT 01S0791 02240000 * CVTBASE(PAGEABLE,(GPR02P)) */ 02241000 * GPR02P=ATCLCPTR; /* SET UP ATCVT POINTER */ 02242000 L GPR02P,ATCLCPTR 01S0792 02243000 * END; /* LISATCVT */ 02244000 * CALL GPR02P->ATCGTSTR; /* CALL ISTORFSR */ 02245000 L @15,ATCGTSTR(,GPR02P) 01S0794 02246000 BALR @14,@15 01S0794 02247000 * RFY 01S0795 02248000 * (GPR00P, 01S0795 02249000 * GPR01P, 01S0795 02250000 * GPR02P, 01S0795 02251000 * GPR03P, 01S0795 02252000 * GPR04P) UNRSTD; 01S0795 02253000 * END; /* END OF FREESTOR */ 02254000 * ATCPOIA=ZERO; /* TELLS US THE POI NO LONGER 02255000 * EXISTS */ 02256000 SLR @15,@15 01S0797 02257000 STCM @15,7,ATCPOIA(CR2ACVT) 01S0797 02258000 * END; 01S0798 02259000 * ELSE 01S0799 02260000 * DO; 01S0799 02261000 B @RC00765 01S0799 02262000 @RF00765 DS 0H 01S0800 02263000 * RFY 01S0800 02264000 * CR2PTR RSTD; 01S0800 02265000 * 01S0800 02266000 * /*************************************************************/ 02267000 * /* */ 02268000 * /* SINCE THERE ARE MORE THAN ONE POCB WE WILL ONLY DEQUEUE */ 02269000 * /* THIS ONE AND THEN FREESTOR IT */ 02270000 * /* */ 02271000 * /*************************************************************/ 02272000 * 01S0801 02273000 */* TPDEQ (RPHWEA,POIANCR) CHAIN(POCNEXT)RETPTR(CR2PTR) */ 02274000 * 01S0801 02275000 * DO; /* BEGIN TPDEQ CODE GENERATION */ 02276000 * RFY 01S0802 02277000 * (GPR00P, 01S0802 02278000 * GPR01P, 01S0802 02279000 * GPR14P, 01S0802 02280000 * GPR15P) RSTD; 01S0802 02281000 * GPR15P=ADDR(POIANCR); /* ADDRESS QUEUE POINTER */ 02282000 SLR GPR15P,GPR15P 01S0803 02283000 ICM GPR15P,7,ATCPOIA(CR2ACVT) 01S0803 02284000 LA GPR15P,POIANCR(,GPR15P) 01S0803 02285000 * RFY 01S0804 02286000 * (GPR02P, 01S0804 02287000 * GPR03P) RSTD; 01S0804 02288000 * STM(GPR02P,GPR03P,GPR01P->RPHWORK(5:12)); 01S0805 02289000 STM GPR02P,GPR03P,RPHWORK+4(GPR01P) 01S0805 02290000 * GPR03P=RPHWEA|FMZCA022; 01S0806 02291000 L @07,@CF01482 01S0806 02292000 L GPR03P,RPHWEA(,GPR01P) 01S0806 02293000 OR GPR03P,@07 01S0806 02294000 * GPR14P=FMZCA022; 01S0807 02295000 LR GPR14P,@07 01S0807 02296000 * GPR15P=ADDR(GPR15P->PABWEQA); 01S0808 02297000 * GPR02P=GPR15P->PABWEQA|FMZCA022; 01S0809 02298000 O @07,PABWEQA(,GPR15P) 01S0809 02299000 LR GPR02P,@07 01S0809 02300000 * DO WHILE(GPR02P^=GPR14P); 01S0810 02301000 B @DE00810 01S0810 02302000 @DL00810 DS 0H 01S0811 02303000 *FMZL2252: 01S0811 02304000 * ; 01S0811 02305000 FMZL2252 DS 0H 01S0812 02306000 * IF GPR02P=GPR03P THEN 01S0812 02307000 CR GPR02P,GPR03P 01S0812 02308000 BNE @RF00812 01S0812 02309000 * DO; 01S0813 02310000 * GPR00P=GPR02P->POCNEXT; 01S0814 02311000 L GPR00P,POCNEXT(,GPR02P) 01S0814 02312000 * CS(GPR02P,GPR00P,GPR15P->PABWEQA); 01S0815 02313000 CS GPR02P,@00,PABWEQA(GPR15P) 01S0815 02314000 * BC(7,FMZL3252); 01S0816 02315000 BC 7,FMZL3252 01S0816 02316000 * GPR14P=GPR02P; 01S0817 02317000 LR GPR14P,GPR02P 01S0817 02318000 * GPR14P->POCNEXT=0; 01S0818 02319000 SLR @07,@07 01S0818 02320000 ST @07,POCNEXT(,GPR14P) 01S0818 02321000 * END; 01S0819 02322000 * ELSE 01S0820 02323000 * DO; 01S0820 02324000 B @RC00812 01S0820 02325000 @RF00812 DS 0H 01S0821 02326000 * IF(GPR02P->POCNEXT)=GPR14P THEN 01S0821 02327000 L @07,POCNEXT(,GPR02P) 01S0821 02328000 CLR @07,GPR14P 01S0821 02329000 BE @RT00821 01S0821 02330000 * GOTO ISTA0252; 01S0822 02331000 * ELSE 01S0823 02332000 * DO; 01S0823 02333000 * GPR15P=ADDR(GPR02P->POCNEXT); 01S0824 02334000 LA GPR15P,POCNEXT(,GPR02P) 01S0824 02335000 * GPR02P=GPR02P->POCNEXT; 01S0825 02336000 LR GPR02P,@07 01S0825 02337000 * GOTO FMZL2252; 01S0826 02338000 B FMZL2252 01S0826 02339000 * END; 01S0827 02340000 * END; 01S0828 02341000 *FMZL3252: 01S0829 02342000 * ; 01S0829 02343000 @RC00812 DS 0H 01S0829 02344000 FMZL3252 DS 0H 01S0830 02345000 * END; 01S0830 02346000 @DE00810 CR GPR02P,GPR14P 01S0830 02347000 BNE @DL00810 01S0830 02348000 *ISTA0252: 01S0831 02349000 * ; 01S0831 02350000 ISTA0252 DS 0H 01S0832 02351000 * LM(GPR02P,GPR03P,GPR01P->RPHWORK(5:12)); 01S0832 02352000 LM GPR02P,GPR03P,RPHWORK+4(GPR01P) 01S0832 02353000 * RFY 01S0833 02354000 * (GPR02P, 01S0833 02355000 * GPR03P) UNRSTD; 01S0833 02356000 * GPR14P=GPR14P&FMZCB022; 01S0834 02357000 N GPR14P,@CF01484 01S0834 02358000 * CR2PTR=GPR14P; 01S0835 02359000 LR CR2PTR,GPR14P 01S0835 02360000 * RFY 01S0836 02361000 * (GPR00P, 01S0836 02362000 * GPR01P, 01S0836 02363000 * GPR14P, 01S0836 02364000 * GPR15P) UNRSTD; 01S0836 02365000 * END; /* END TPDEQ GENERATION */ 02366000 * 01S0837 02367000 * /*************************************************************/ 02368000 * /* */ 02369000 * /* FREESTOR AREA(CR2PTR)SIZE(LENGTH(ISTPOCB))FETCHP(NO) */ 02370000 * /* */ 02371000 * /*************************************************************/ 02372000 * 01S0838 02373000 * DO; 01S0838 02374000 * 01S0838 02375000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 02376000 */* END OF ATBUILD */ 02377000 * 01S0839 02378000 * RFY 01S0839 02379000 * (GPR00P, 01S0839 02380000 * GPR01P, 01S0839 02381000 * GPR02P, 01S0839 02382000 * GPR03P) RSTD; 01S0839 02383000 * RFY 01S0840 02384000 * ISTRPH BASED(GPR01P); 01S0840 02385000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P, 02386000 * GPR09P,GPR10P,GPR11P,GPR12P,GPR13P) SETS(RPHWORK); 02387000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 02388000 * GPR00F=LENGTH(ISTPOCB); /* SIZE IN REG0 */ 02389000 LA GPR00F,311 01S0842 02390000 * DCL 01S0843 02391000 * 1 CMZA0258 FIXED(31) STATIC LOCAL, 01S0843 02392000 * 2 * FIXED(8) INIT(64), /* OPTION FLAGS */ 02393000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 02394000 * 2 * FIXED(8) INIT(241),/* SUBPOOL NUMBER */ 02395000 * 2 * FIXED(8) INIT('01'X);/* REQUEST TYPE */ 02396000 * GPR03F=CMZA0258; 01S0844 02397000 L GPR03F,CMZA0258 01S0844 02398000 * RFY 01S0845 02399000 * (GPR04P) RSTD; 01S0845 02400000 * GPR04P=CR2PTR; /* PUT FREEMAIN ADDR IN REG4 */ 02401000 LR GPR04P,CR2PTR 01S0846 02402000 * DO; /* LISATCVT 01S0847 02403000 * CVTBASE(PAGEABLE,(GPR02P)) */ 02404000 * GPR02P=ATCLCPTR; /* SET UP ATCVT POINTER */ 02405000 L GPR02P,ATCLCPTR 01S0848 02406000 * END; /* LISATCVT */ 02407000 * CALL GPR02P->ATCGTSTR; /* CALL ISTORFSR */ 02408000 L @15,ATCGTSTR(,GPR02P) 01S0850 02409000 BALR @14,@15 01S0850 02410000 * RFY 01S0851 02411000 * (GPR00P, 01S0851 02412000 * GPR01P, 01S0851 02413000 * GPR02P, 01S0851 02414000 * GPR03P, 01S0851 02415000 * GPR04P) UNRSTD; 01S0851 02416000 * END; /* END OF FREESTOR */ 02417000 * END; 01S0853 02418000 * CR2RTPT=CR2R14SV; /* RESTORE RETURN ADDRESS */ 02419000 @RC00765 LR CR2RTPT,CR2R14SV 01S0854 02420000 * RETURN; 01S0855 02421000 @EL00004 DS 0H 01S0855 02422000 @EF00004 DS 0H 01S0855 02423000 @ER00004 BR @14 01S0855 02424000 * END CR2PRGE; 01S0856 02425000 EJECT 02426000 *CR2MREL: 01S0857 02427000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 01S0857 02428000 * 01S0857 02429000 CR2MREL DS 0H 01S0858 02430000 * /*****************************************************************/ 02431000 * /* */ 02432000 * /* THIS SUBROUTINE ISSUES POM/RCBS OF THE MESSAGE QUEUE OF THE */ 02433000 * /* POCB AS IWTO/RS THE DEQUEUES AND RELEASES THE CONTROL BLOCKS. */ 02434000 * /* IT ALSO MAKES SURE THAT THE PORCB ATTACHED TO THE POMCB IS NOT*/ 02435000 * /* ALSO QUEUED TO THE POCB AWAITING REPLY QUEUE */ 02436000 * /* */ 02437000 * /*****************************************************************/ 02438000 * 01S0858 02439000 * RFY 01S0858 02440000 * CR2R14SB RSTD; 01S0858 02441000 * CR2R14SB=CR2RTPT; /* SAVE RETURN ADDRESS */ 02442000 LR CR2R14SB,CR2RTPT 01S0859 02443000 * DO UNTIL(POCMSGQ=0); /* UNTIL QUEUE IS EMPTY */ 02444000 @DL00860 DS 0H 01S0861 02445000 * RFY 01S0861 02446000 * CR2PTR RSTD; 01S0861 02447000 * IF POMPORCB=ZERO /* NO PORCB ATTACHED */ 02448000 * THEN 01S0862 02449000 L @15,RPHWEA(,GPR01P) 01S0862 02450000 SLR @08,@08 01S0862 02451000 ICM @08,7,POCMSGQ(@15) 01S0862 02452000 ICM @15,7,POMPORCB(@08) 01S0862 02453000 BNZ @RF00862 01S0862 02454000 * DO; 01S0863 02455000 * RFY 01S0864 02456000 * ISTPOHD BASED(ADDR(POMMHDR)); 01S0864 02457000 * IF POHGEN=OFF THEN 01S0865 02458000 LA @15,16 01S0865 02459000 ALR @08,@15 01S0865 02460000 TM POHGEN(@08),B'00000001' 01S0865 02461000 BNZ @RF00865 01S0865 02462000 * DO; 01S0866 02463000 * 01S0866 02464000 * /*******************************************************/ 02465000 * /* */ 02466000 * /* ISSUE A WTO */ 02467000 * /* */ 02468000 * /*******************************************************/ 02469000 * 01S0867 02470000 */* WE WILL MAKE POMCB LOOK LIKE WPL FOR WTO */ 02471000 * 01S0867 02472000 * CR2R1SV=CR2RPHPT; /* SAVE RPH @ */ 02473000 LR CR2R1SV,CR2RPHPT 01S0867 02474000 * RFY 01S0868 02475000 * ISTRPH BASED(CR2R1SV); 01S0868 02476000 * CR2RPHPT=ADDR(POMMHDR);/* SET TO MESSAGE */ 02477000 L @08,RPHWEA(,CR2R1SV) 01S0869 02478000 SLR @07,@07 01S0869 02479000 ICM @07,7,POCMSGQ(@08) 01S0869 02480000 LA CR2RPHPT,POMMHDR(,@07) 01S0869 02481000 * CR2WPLHD=POMMSGLN; /* SET WPL MSG LENGTH */ 02482000 ALR @15,@07 01S0870 02483000 SLR @08,@08 01S0870 02484000 IC @08,POMMSGLN(,@07) 01S0870 02485000 STH @08,CR2WPLHD(,@15) 01S0870 02486000 * POHID=ZERO; /* INIT WPL FLAGS */ 02487000 SLR @08,@08 01S0871 02488000 STH @08,POHID(,@15) 01S0871 02489000 * RFY 01S0872 02490000 * (CR2R15, 01S0872 02491000 * CR2BASE) RSTD; 01S0872 02492000 * CR2BASE=RPHSRPRM; /* SAVES FEILD TO BE USED */ 02493000 L CR2BASE,RPHSRPRM(,CR2R1SV) 01S0873 02494000 * CR2R15=ADDR(RPHSRPRM); 01S0874 02495000 * 01S0874 02496000 LA CR2R15,RPHSRPRM(,CR2R1SV) 01S0874 02497000 */***** IWTO **** */ 02498000 * 01S0875 02499000 * DO; 01S0875 02500000 * GEN; 01S0876 02501000 WTO MF=(E,(1)) 02502000 * END; /* IWTO */ 02503000 * RPHSRPRM=CR2BASE; /* RESTORES VALUE */ 02504000 ST CR2BASE,RPHSRPRM(,CR2R1SV) 01S0878 02505000 * RFY 01S0879 02506000 * (CR2BASE, 01S0879 02507000 * CR2R15) UNRSTD; 01S0879 02508000 * CR2RPHPT=CR2R1SV; /* RESTORE RPHPTR */ 02509000 LR CR2RPHPT,CR2R1SV 01S0880 02510000 * RFY 01S0881 02511000 * ISTRPH BASED(CR2RPHPT); 01S0881 02512000 * END; 01S0882 02513000 * 01S0882 02514000 * /***********************************************************/ 02515000 * /* */ 02516000 * /* DEQUE AND FREE THE POMCB */ 02517000 * /* */ 02518000 * /***********************************************************/ 02519000 * 01S0883 02520000 */* TPDEQ (POCRCVQ,POCRCVQ) CHAIN(POMNEXT)RETPTR(CR2PTR) */ 02521000 * 01S0883 02522000 * DO; /* BEGIN TPDEQ CODE GENERATION */ 02523000 @RF00865 DS 0H 01S0884 02524000 * RFY 01S0884 02525000 * (GPR00P, 01S0884 02526000 * GPR01P, 01S0884 02527000 * GPR14P, 01S0884 02528000 * GPR15P) RSTD; 01S0884 02529000 * GPR15P=ADDR(POCRCVQ); /* ADDRESS QUEUE POINTER */ 02530000 L @08,RPHWEA(,CR2RPHPT) 01S0885 02531000 LA GPR15P,POCRCVQ(,@08) 01S0885 02532000 * RFY 01S0886 02533000 * (GPR02P, 01S0886 02534000 * GPR03P) RSTD; 01S0886 02535000 * STM(GPR02P,GPR03P,GPR01P->RPHWORK(5:12)); 01S0887 02536000 STM GPR02P,GPR03P,RPHWORK+4(GPR01P) 01S0887 02537000 * GPR03P=POCRCVQ|FMZCA022; 01S0888 02538000 L @07,@CF01482 01S0888 02539000 L GPR03P,POCRCVQ(,@08) 01S0888 02540000 OR GPR03P,@07 01S0888 02541000 * GPR14P=FMZCA022; 01S0889 02542000 LR GPR14P,@07 01S0889 02543000 * GPR15P=ADDR(GPR15P->PABWEQA); 01S0890 02544000 * GPR02P=GPR15P->PABWEQA|FMZCA022; 01S0891 02545000 O @07,PABWEQA(,GPR15P) 01S0891 02546000 LR GPR02P,@07 01S0891 02547000 * DO WHILE(GPR02P^=GPR14P); 01S0892 02548000 B @DE00892 01S0892 02549000 @DL00892 DS 0H 01S0893 02550000 *FMZL2278: 01S0893 02551000 * ; 01S0893 02552000 FMZL2278 DS 0H 01S0894 02553000 * IF GPR02P=GPR03P THEN 01S0894 02554000 CR GPR02P,GPR03P 01S0894 02555000 BNE @RF00894 01S0894 02556000 * DO; 01S0895 02557000 * GPR00P=GPR02P->POMNEXT; 01S0896 02558000 L GPR00P,POMNEXT(,GPR02P) 01S0896 02559000 * CS(GPR02P,GPR00P,GPR15P->PABWEQA); 01S0897 02560000 CS GPR02P,@00,PABWEQA(GPR15P) 01S0897 02561000 * BC(7,FMZL3278); 01S0898 02562000 BC 7,FMZL3278 01S0898 02563000 * GPR14P=GPR02P; 01S0899 02564000 LR GPR14P,GPR02P 01S0899 02565000 * GPR14P->POMNEXT=0; 01S0900 02566000 SLR @08,@08 01S0900 02567000 ST @08,POMNEXT(,GPR14P) 01S0900 02568000 * END; 01S0901 02569000 * ELSE 01S0902 02570000 * DO; 01S0902 02571000 B @RC00894 01S0902 02572000 @RF00894 DS 0H 01S0903 02573000 * IF(GPR02P->POMNEXT)=GPR14P THEN 01S0903 02574000 L @08,POMNEXT(,GPR02P) 01S0903 02575000 CLR @08,GPR14P 01S0903 02576000 BE @RT00903 01S0903 02577000 * GOTO ISTA0278; 01S0904 02578000 * ELSE 01S0905 02579000 * DO; 01S0905 02580000 * GPR15P=ADDR(GPR02P->POMNEXT); 01S0906 02581000 LA GPR15P,POMNEXT(,GPR02P) 01S0906 02582000 * GPR02P=GPR02P->POMNEXT; 01S0907 02583000 LR GPR02P,@08 01S0907 02584000 * GOTO FMZL2278; 01S0908 02585000 B FMZL2278 01S0908 02586000 * END; 01S0909 02587000 * END; 01S0910 02588000 *FMZL3278: 01S0911 02589000 * ; 01S0911 02590000 @RC00894 DS 0H 01S0911 02591000 FMZL3278 DS 0H 01S0912 02592000 * END; 01S0912 02593000 @DE00892 CR GPR02P,GPR14P 01S0912 02594000 BNE @DL00892 01S0912 02595000 *ISTA0278: 01S0913 02596000 * ; 01S0913 02597000 ISTA0278 DS 0H 01S0914 02598000 * LM(GPR02P,GPR03P,GPR01P->RPHWORK(5:12)); 01S0914 02599000 LM GPR02P,GPR03P,RPHWORK+4(GPR01P) 01S0914 02600000 * RFY 01S0915 02601000 * (GPR02P, 01S0915 02602000 * GPR03P) UNRSTD; 01S0915 02603000 * GPR14P=GPR14P&FMZCB022; 01S0916 02604000 N GPR14P,@CF01484 01S0916 02605000 * CR2PTR=GPR14P; 01S0917 02606000 LR CR2PTR,GPR14P 01S0917 02607000 * RFY 01S0918 02608000 * (GPR00P, 01S0918 02609000 * GPR01P, 01S0918 02610000 * GPR14P, 01S0918 02611000 * GPR15P) UNRSTD; 01S0918 02612000 * END; /* END TPDEQ GENERATION */ 02613000 * 01S0919 02614000 * /***********************************************************/ 02615000 * /* */ 02616000 * /* FREESTOR AREA(CR2PTR)SIZE(LENGTH(ISTPOMCB))FETCHP(NO) */ 02617000 * /* */ 02618000 * /***********************************************************/ 02619000 * 01S0920 02620000 * DO; 01S0920 02621000 * 01S0920 02622000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 02623000 */* END OF ATBUILD */ 02624000 * 01S0921 02625000 * RFY 01S0921 02626000 * (GPR00P, 01S0921 02627000 * GPR01P, 01S0921 02628000 * GPR02P, 01S0921 02629000 * GPR03P) RSTD; 01S0921 02630000 * RFY 01S0922 02631000 * ISTRPH BASED(GPR01P); 01S0922 02632000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P, 02633000 * GPR09P,GPR10P,GPR11P,GPR12P,GPR13P) SETS(RPHWORK); 02634000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 02635000 * GPR00F=LENGTH(ISTPOMCB);/* SIZE IN REG0 */ 02636000 LA GPR00F,140 01S0924 02637000 * DCL 01S0925 02638000 * 1 CMZA0284 FIXED(31) STATIC LOCAL, 01S0925 02639000 * 2 * FIXED(8) INIT(64),/* OPTION FLAGS */ 02640000 * 2 * FIXED(8) INIT(96),/* STORAGE KEY */ 02641000 * 2 * FIXED(8) INIT(241),/* SUBPOOL NUMBER */ 02642000 * 2 * FIXED(8) INIT('01'X);/* REQUEST TYPE */ 02643000 * GPR03F=CMZA0284; 01S0926 02644000 L GPR03F,CMZA0284 01S0926 02645000 * RFY 01S0927 02646000 * (GPR04P) RSTD; 01S0927 02647000 * GPR04P=CR2PTR; /* PUT FREEMAIN ADDR IN REG4 */ 02648000 LR GPR04P,CR2PTR 01S0928 02649000 * DO; /* LISATCVT 01S0929 02650000 * CVTBASE(PAGEABLE,(GPR02P)) */ 02651000 * GPR02P=ATCLCPTR; /* SET UP ATCVT POINTER */ 02652000 L GPR02P,ATCLCPTR 01S0930 02653000 * END; /* LISATCVT */ 02654000 * CALL GPR02P->ATCGTSTR; /* CALL ISTORFSR */ 02655000 L @15,ATCGTSTR(,GPR02P) 01S0932 02656000 BALR @14,@15 01S0932 02657000 * RFY 01S0933 02658000 * (GPR00P, 01S0933 02659000 * GPR01P, 01S0933 02660000 * GPR02P, 01S0933 02661000 * GPR03P, 01S0933 02662000 * GPR04P) UNRSTD; 01S0933 02663000 * END; /* END OF FREESTOR */ 02664000 * END; 01S0935 02665000 * ELSE /* PORCB IS PRESENT */ 02666000 * DO; 01S0936 02667000 B @RC00862 01S0936 02668000 @RF00862 DS 0H 01S0937 02669000 * IF POCAWTRQ^=ZERO /* THERE ARE PORCBS AWAITING 02670000 * REPLY */ 02671000 * THEN 01S0937 02672000 L @15,RPHWEA(,GPR01P) 01S0937 02673000 SLR @08,@08 01S0937 02674000 ICM @08,7,POCAWTRQ(@15) 01S0937 02675000 LTR @08,@08 01S0937 02676000 BZ @RF00937 01S0937 02677000 * DO; 01S0938 02678000 * 01S0938 02679000 * /*******************************************************/ 02680000 * /* */ 02681000 * /* WE MUST SEARCH AWAITING REPLY QUEUE TO MAKE SURE */ 02682000 * /* THAT THE PORCB IS NOT DOUBLY QUEUED */ 02683000 * /* */ 02684000 * /*******************************************************/ 02685000 * 01S0939 02686000 * IF POMPORCB^=POCAWTRQ /* NOT THE FIRST ELEMENT */ 02687000 * THEN 01S0939 02688000 SLR @07,@07 01S0939 02689000 ICM @07,7,POCMSGQ(@15) 01S0939 02690000 CLC POMPORCB(3,@07),POCAWTRQ(@15) 01S0939 02691000 BE @RF00939 01S0939 02692000 * DO; 01S0940 02693000 * RFY 01S0941 02694000 * (CR2FNDF, 01S0941 02695000 * CR2BASE) RSTD; 01S0941 02696000 * CR2BASE=POCAWTRQ; /* SET TO QUEUE */ 02697000 L @15,RPHWEA(,GPR01P) 01S0942 02698000 SLR @11,@11 01S0942 02699000 ICM @11,7,POCAWTRQ(@15) 01S0942 02700000 LR CR2BASE,@11 01S0942 02701000 * CR2FNDF=ZERO; 01S0943 02702000 SLR CR2FNDF,CR2FNDF 01S0943 02703000 * CR2PTR=CR2BASE; 01S0944 02704000 LR CR2PTR,CR2BASE 01S0944 02705000 * RFY 01S0945 02706000 * ISTPORCB BASED(CR2PTR); 01S0945 02707000 * 01S0945 02708000 * /***************************************************/ 02709000 * /* */ 02710000 * /* SEARCH */ 02711000 * /* */ 02712000 * /***************************************************/ 02713000 * 01S0946 02714000 * DO UNTIL(PORFWD=ZERO|CR2FNDF=ONE); 01S0946 02715000 @DL00946 DS 0H 01S0947 02716000 * CR2PTR=CR2BASE; 01S0947 02717000 LR CR2PTR,CR2BASE 01S0947 02718000 * IF POMPORCB=PORFWD/* SAME PORCB? */ 02719000 * THEN 01S0948 02720000 L @15,RPHWEA(,GPR01P) 01S0948 02721000 SLR @11,@11 01S0948 02722000 ICM @11,7,POCMSGQ(@15) 01S0948 02723000 CLC POMPORCB(3,@11),PORFWD(CR2PTR) 01S0948 02724000 BNE @RF00948 01S0948 02725000 * CR2FNDF=ONE; /* SET FOUND RESPONSE */ 02726000 LA CR2FNDF,1 01S0949 02727000 * ELSE 01S0950 02728000 * CR2BASE=PORFWD;/* SET TO NEXT PORCB */ 02729000 B @RC00948 01S0950 02730000 @RF00948 SLR CR2BASE,CR2BASE 01S0950 02731000 ICM CR2BASE,7,PORFWD(CR2PTR) 01S0950 02732000 * END; 01S0951 02733000 @RC00948 DS 0H 01S0951 02734000 @DE00946 ICM @15,7,PORFWD(CR2PTR) 01S0951 02735000 BZ @DC00946 01S0951 02736000 CH CR2FNDF,@CH00093 01S0951 02737000 BNE @DL00946 01S0951 02738000 @DC00946 DS 0H 01S0952 02739000 * RFY 01S0952 02740000 * (ISTPORCB) BASED(POCAWTRQ); 01S0952 02741000 * RFY 01S0953 02742000 * CR2BASE UNRSTD; 01S0953 02743000 * END; 01S0954 02744000 * ELSE /* IT IS THE FIRST ELEM. ON PORCB 02745000 * QUEUE */ 02746000 * CR2FNDF=ONE; /* SET FOUND RESPONSE */ 02747000 B @RC00939 01S0955 02748000 @RF00939 LA CR2FNDF,1 01S0955 02749000 * END; 01S0956 02750000 @RC00939 DS 0H 01S0957 02751000 * IF CR2FNDF=ONE /* IF FOUND */ 02752000 * THEN 01S0957 02753000 * 01S0957 02754000 @RF00937 CH CR2FNDF,@CH00093 01S0957 02755000 BNE @RF00957 01S0957 02756000 * /*********************************************************/ 02757000 * /* */ 02758000 * /* THE POMCB WILL BE DEQUED BUT NOT RELEASED AND TAKEN */ 02759000 * /* CARE OF IN PORCB PROCESSING */ 02760000 * /* */ 02761000 * /*********************************************************/ 02762000 * 01S0958 02763000 */* TPDEQ (POCRCVQ,POCRCVQ) CHAIN(POMNEXT)RETPTR(CR2PTR) */ 02764000 * 01S0958 02765000 * DO; /* BEGIN TPDEQ CODE GENERATION */ 02766000 * RFY 01S0959 02767000 * (GPR00P, 01S0959 02768000 * GPR01P, 01S0959 02769000 * GPR14P, 01S0959 02770000 * GPR15P) RSTD; 01S0959 02771000 * GPR15P=ADDR(POCRCVQ); /* ADDRESS QUEUE POINTER */ 02772000 L @07,RPHWEA(,GPR01P) 01S0960 02773000 LA GPR15P,POCRCVQ(,@07) 01S0960 02774000 * RFY 01S0961 02775000 * (GPR02P, 01S0961 02776000 * GPR03P) RSTD; 01S0961 02777000 * STM(GPR02P,GPR03P,GPR01P->RPHWORK(5:12)); 01S0962 02778000 STM GPR02P,GPR03P,RPHWORK+4(GPR01P) 01S0962 02779000 * GPR03P=POCRCVQ|FMZCA022; 01S0963 02780000 L @11,@CF01482 01S0963 02781000 L GPR03P,POCRCVQ(,@07) 01S0963 02782000 OR GPR03P,@11 01S0963 02783000 * GPR14P=FMZCA022; 01S0964 02784000 LR GPR14P,@11 01S0964 02785000 * GPR15P=ADDR(GPR15P->PABWEQA); 01S0965 02786000 * GPR02P=GPR15P->PABWEQA|FMZCA022; 01S0966 02787000 O @11,PABWEQA(,GPR15P) 01S0966 02788000 LR GPR02P,@11 01S0966 02789000 * DO WHILE(GPR02P^=GPR14P); 01S0967 02790000 B @DE00967 01S0967 02791000 @DL00967 DS 0H 01S0968 02792000 *FMZL2303: 01S0968 02793000 * ; 01S0968 02794000 FMZL2303 DS 0H 01S0969 02795000 * IF GPR02P=GPR03P THEN 01S0969 02796000 CR GPR02P,GPR03P 01S0969 02797000 BNE @RF00969 01S0969 02798000 * DO; 01S0970 02799000 * GPR00P=GPR02P->POMNEXT; 01S0971 02800000 L GPR00P,POMNEXT(,GPR02P) 01S0971 02801000 * CS(GPR02P,GPR00P,GPR15P->PABWEQA); 01S0972 02802000 CS GPR02P,@00,PABWEQA(GPR15P) 01S0972 02803000 * BC(7,FMZL3303); 01S0973 02804000 BC 7,FMZL3303 01S0973 02805000 * GPR14P=GPR02P; 01S0974 02806000 LR GPR14P,GPR02P 01S0974 02807000 * GPR14P->POMNEXT=0; 01S0975 02808000 SLR @07,@07 01S0975 02809000 ST @07,POMNEXT(,GPR14P) 01S0975 02810000 * END; 01S0976 02811000 * ELSE 01S0977 02812000 * DO; 01S0977 02813000 B @RC00969 01S0977 02814000 @RF00969 DS 0H 01S0978 02815000 * IF(GPR02P->POMNEXT)=GPR14P THEN 01S0978 02816000 L @07,POMNEXT(,GPR02P) 01S0978 02817000 CLR @07,GPR14P 01S0978 02818000 BE @RT00978 01S0978 02819000 * GOTO ISTA0303; 01S0979 02820000 * ELSE 01S0980 02821000 * DO; 01S0980 02822000 * GPR15P=ADDR(GPR02P->POMNEXT); 01S0981 02823000 LA GPR15P,POMNEXT(,GPR02P) 01S0981 02824000 * GPR02P=GPR02P->POMNEXT; 01S0982 02825000 LR GPR02P,@07 01S0982 02826000 * GOTO FMZL2303; 01S0983 02827000 B FMZL2303 01S0983 02828000 * END; 01S0984 02829000 * END; 01S0985 02830000 *FMZL3303: 01S0986 02831000 * ; 01S0986 02832000 @RC00969 DS 0H 01S0986 02833000 FMZL3303 DS 0H 01S0987 02834000 * END; 01S0987 02835000 @DE00967 CR GPR02P,GPR14P 01S0987 02836000 BNE @DL00967 01S0987 02837000 *ISTA0303: 01S0988 02838000 * ; 01S0988 02839000 ISTA0303 DS 0H 01S0989 02840000 * LM(GPR02P,GPR03P,GPR01P->RPHWORK(5:12)); 01S0989 02841000 LM GPR02P,GPR03P,RPHWORK+4(GPR01P) 01S0989 02842000 * RFY 01S0990 02843000 * (GPR02P, 01S0990 02844000 * GPR03P) UNRSTD; 01S0990 02845000 * GPR14P=GPR14P&FMZCB022; 01S0991 02846000 N GPR14P,@CF01484 01S0991 02847000 * CR2PTR=GPR14P; 01S0992 02848000 LR CR2PTR,GPR14P 01S0992 02849000 * RFY 01S0993 02850000 * (GPR00P, 01S0993 02851000 * GPR01P, 01S0993 02852000 * GPR14P, 01S0993 02853000 * GPR15P) UNRSTD; 01S0993 02854000 * END; /* END TPDEQ GENERATION */ 02855000 * ELSE 01S0995 02856000 * DO; /* PORCB NOT FOUND */ 02857000 * 01S0995 02858000 B @RC00957 01S0995 02859000 @RF00957 DS 0H 01S0996 02860000 * /*******************************************************/ 02861000 * /* */ 02862000 * /* DEQUE AND RELEASE POMR/CBS */ 02863000 * /* */ 02864000 * /*******************************************************/ 02865000 * 01S0996 02866000 */* TPDEQ (POCRCVQ,POCRCVQ) CHAIN(POMNEXT)RETPTR(CR2PTR) */ 02867000 * 01S0996 02868000 * DO; /* BEGIN TPDEQ CODE GENERATION */ 02869000 * RFY 01S0997 02870000 * (GPR00P, 01S0997 02871000 * GPR01P, 01S0997 02872000 * GPR14P, 01S0997 02873000 * GPR15P) RSTD; 01S0997 02874000 * GPR15P=ADDR(POCRCVQ);/* ADDRESS QUEUE POINTER */ 02875000 L @07,RPHWEA(,GPR01P) 01S0998 02876000 LA GPR15P,POCRCVQ(,@07) 01S0998 02877000 * RFY 01S0999 02878000 * (GPR02P, 01S0999 02879000 * GPR03P) RSTD; 01S0999 02880000 * STM(GPR02P,GPR03P,GPR01P->RPHWORK(5:12)); 01S1000 02881000 STM GPR02P,GPR03P,RPHWORK+4(GPR01P) 01S1000 02882000 * GPR03P=POCRCVQ|FMZCA022; 01S1001 02883000 L @11,@CF01482 01S1001 02884000 L GPR03P,POCRCVQ(,@07) 01S1001 02885000 OR GPR03P,@11 01S1001 02886000 * GPR14P=FMZCA022; 01S1002 02887000 LR GPR14P,@11 01S1002 02888000 * GPR15P=ADDR(GPR15P->PABWEQA); 01S1003 02889000 * GPR02P=GPR15P->PABWEQA|FMZCA022; 01S1004 02890000 O @11,PABWEQA(,GPR15P) 01S1004 02891000 LR GPR02P,@11 01S1004 02892000 * DO WHILE(GPR02P^=GPR14P); 01S1005 02893000 B @DE01005 01S1005 02894000 @DL01005 DS 0H 01S1006 02895000 *FMZL2309: 01S1006 02896000 * ; 01S1006 02897000 FMZL2309 DS 0H 01S1007 02898000 * IF GPR02P=GPR03P THEN 01S1007 02899000 CR GPR02P,GPR03P 01S1007 02900000 BNE @RF01007 01S1007 02901000 * DO; 01S1008 02902000 * GPR00P=GPR02P->POMNEXT; 01S1009 02903000 L GPR00P,POMNEXT(,GPR02P) 01S1009 02904000 * CS(GPR02P,GPR00P,GPR15P->PABWEQA); 01S1010 02905000 CS GPR02P,@00,PABWEQA(GPR15P) 01S1010 02906000 * BC(7,FMZL3309); 01S1011 02907000 BC 7,FMZL3309 01S1011 02908000 * GPR14P=GPR02P; 01S1012 02909000 LR GPR14P,GPR02P 01S1012 02910000 * GPR14P->POMNEXT=0; 01S1013 02911000 SLR @07,@07 01S1013 02912000 ST @07,POMNEXT(,GPR14P) 01S1013 02913000 * END; 01S1014 02914000 * ELSE 01S1015 02915000 * DO; 01S1015 02916000 B @RC01007 01S1015 02917000 @RF01007 DS 0H 01S1016 02918000 * IF(GPR02P->POMNEXT)=GPR14P THEN 01S1016 02919000 L @07,POMNEXT(,GPR02P) 01S1016 02920000 CLR @07,GPR14P 01S1016 02921000 BE @RT01016 01S1016 02922000 * GOTO ISTA0309; 01S1017 02923000 * ELSE 01S1018 02924000 * DO; 01S1018 02925000 * GPR15P=ADDR(GPR02P->POMNEXT); 01S1019 02926000 LA GPR15P,POMNEXT(,GPR02P) 01S1019 02927000 * GPR02P=GPR02P->POMNEXT; 01S1020 02928000 LR GPR02P,@07 01S1020 02929000 * GOTO FMZL2309; 01S1021 02930000 B FMZL2309 01S1021 02931000 * END; 01S1022 02932000 * END; 01S1023 02933000 *FMZL3309: 01S1024 02934000 * ; 01S1024 02935000 @RC01007 DS 0H 01S1024 02936000 FMZL3309 DS 0H 01S1025 02937000 * END; 01S1025 02938000 @DE01005 CR GPR02P,GPR14P 01S1025 02939000 BNE @DL01005 01S1025 02940000 *ISTA0309: 01S1026 02941000 * ; 01S1026 02942000 ISTA0309 DS 0H 01S1027 02943000 * LM(GPR02P,GPR03P,GPR01P->RPHWORK(5:12)); 01S1027 02944000 LM GPR02P,GPR03P,RPHWORK+4(GPR01P) 01S1027 02945000 * RFY 01S1028 02946000 * (GPR02P, 01S1028 02947000 * GPR03P) UNRSTD; 01S1028 02948000 * GPR14P=GPR14P&FMZCB022; 01S1029 02949000 N GPR14P,@CF01484 01S1029 02950000 * CR2PTR=GPR14P; 01S1030 02951000 LR CR2PTR,GPR14P 01S1030 02952000 * RFY 01S1031 02953000 * (GPR00P, 01S1031 02954000 * GPR01P, 01S1031 02955000 * GPR14P, 01S1031 02956000 * GPR15P) UNRSTD; 01S1031 02957000 * END; /* END TPDEQ GENERATION */ 02958000 * 01S1032 02959000 * /*******************************************************/ 02960000 * /* */ 02961000 * /* ISSUE IWTOR */ 02962000 * /* */ 02963000 * /*******************************************************/ 02964000 * 01S1033 02965000 * CR2R1SV=CR2RPHPT; /* SAVE RPH @ */ 02966000 LR CR2R1SV,CR2RPHPT 01S1033 02967000 * RFY 01S1034 02968000 * ISTPOMCB BASED(CR2PTR); 01S1034 02969000 * RFY 01S1035 02970000 * ISTRPH BASED(CR2R1SV); 01S1035 02971000 * CR2RPHPT=ADDR(POMNEXT);/* SET TO MESSAGE */ 02972000 LA CR2RPHPT,POMNEXT(,CR2PTR) 01S1036 02973000 * RFY 01S1037 02974000 * CR2REG10 RSTD; 01S1037 02975000 * CR2REG10=POMPORCB; /* SAVE PORCB ADD */ 02976000 SLR CR2REG10,CR2REG10 01S1038 02977000 ICM CR2REG10,7,POMPORCB(CR2PTR) 01S1038 02978000 * RFY 01S1039 02979000 * ISTPORCB BASED(CR2REG10); 01S1039 02980000 * POMFWD=PORAREA; /* SET REP AREA PTR */ 02981000 MVC POMFWD(3,CR2PTR),PORAREA+1(CR2REG10) 01S1040 02982000 * CR2RPLN=PORREPLN; /* SET REPLY LENGTH */ 02983000 MVC CR2RPLN(1,CR2PTR),PORREPLN(CR2REG10) 01S1041 02984000 * POMPORCB=PORECB; /* POINT TO ECB */ 02985000 MVC POMPORCB(3,CR2PTR),PORECB+1(CR2REG10) 01S1042 02986000 * CR2WPLHD=POMMSGLN-4; /* SET MSG LENGTH ELIMINATE POI 02987000 * REPLY NUMBER */ 02988000 LA @15,16 01S1043 02989000 ALR @15,CR2PTR 01S1043 02990000 SLR @11,@11 01S1043 02991000 IC @11,POMMSGLN(,CR2PTR) 01S1043 02992000 SH @11,@CH00085 01S1043 02993000 STH @11,CR2WPLHD(,@15) 01S1043 02994000 * MVC(POMMSG(1:POMMSGLN-3),POMMSG(5:POMMSGLN+1)); 01S1044 02995000 SLR @11,@11 01S1044 02996000 IC @11,POMMSGLN(,CR2PTR) 01S1044 02997000 SH @11,@CH00085 01S1044 02998000 EX @11,@SM03431 01S1044 02999000 * POHID=ZERO; /* INIT WPL FLAGS */ 03000000 SLR @11,@11 01S1045 03001000 STH @11,POHID(,@15) 01S1045 03002000 * RFY 01S1046 03003000 * (CR2R15, 01S1046 03004000 * CR2BASE) RSTD; 01S1046 03005000 * CR2BASE=RPHSRPRM; /* SAVES FEILD TO BE USED */ 03006000 L CR2BASE,RPHSRPRM(,CR2R1SV) 01S1047 03007000 * CR2R15=ADDR(RPHSRPRM); 01S1048 03008000 * 01S1048 03009000 LA CR2R15,RPHSRPRM(,CR2R1SV) 01S1048 03010000 */***** IWTOR **** */ 03011000 * 01S1049 03012000 * DO; 01S1049 03013000 * GEN; 01S1050 03014000 WTOR MF=(E,(1)) 03015000 * DCL 01S1051 03016000 * REGF0315 REGISTER(15) FIXED; 01S1051 03017000 * REGF0315=0; 01S1052 03018000 SLR REGF0315,REGF0315 01S1052 03019000 * END; /* IWTOR */ 03020000 * RPHSRPRM=CR2BASE; /* RESTORES VALUE */ 03021000 ST CR2BASE,RPHSRPRM(,CR2R1SV) 01S1054 03022000 * RFY 01S1055 03023000 * (CR2BASE, 01S1055 03024000 * CR2R15) UNRSTD; 01S1055 03025000 * CR2RPHPT=CR2R1SV; /* RESTORE RPHPTR */ 03026000 LR CR2RPHPT,CR2R1SV 01S1056 03027000 * RFY 01S1057 03028000 * ISTRPH BASED(CR2RPHPT); 01S1057 03029000 * 01S1057 03030000 * /*******************************************************/ 03031000 * /* */ 03032000 * /* FREESTOR */ 03033000 * /* AREA(CR2REG10)SIZE(LENGTH(ISTPORCB))FETCHP(NO) */ 03034000 * /* */ 03035000 * /*******************************************************/ 03036000 * 01S1058 03037000 * DO; 01S1058 03038000 * 01S1058 03039000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 03040000 */* END OF ATBUILD */ 03041000 * 01S1059 03042000 * RFY 01S1059 03043000 * (GPR00P, 01S1059 03044000 * GPR01P, 01S1059 03045000 * GPR02P, 01S1059 03046000 * GPR03P) RSTD; 01S1059 03047000 * RFY 01S1060 03048000 * ISTRPH BASED(GPR01P); 01S1060 03049000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P, 03050000 * GPR08P,GPR09P,GPR10P,GPR11P,GPR12P,GPR13P) SETS( 03051000 * RPHWORK); 01S1061 03052000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 03053000 * GPR00F=LENGTH(ISTPORCB);/* SIZE IN REG0 */ 03054000 LA GPR00F,154 01S1062 03055000 * DCL 01S1063 03056000 * 1 CMZA0316 FIXED(31) STATIC LOCAL, 01S1063 03057000 * 2 * FIXED(8) INIT(64),/* OPTION FLAGS */ 03058000 * 2 * FIXED(8) INIT(96),/* STORAGE KEY */ 03059000 * 2 * FIXED(8) INIT(241),/* SUBPOOL NUMBER */ 03060000 * 2 * FIXED(8) INIT('01'X);/* REQUEST TYPE */ 03061000 * GPR03F=CMZA0316; 01S1064 03062000 L GPR03F,CMZA0316 01S1064 03063000 * RFY 01S1065 03064000 * (GPR04P) RSTD; 01S1065 03065000 * GPR04P=CR2REG10; /* PUT FREEMAIN ADDR IN REG4 */ 03066000 LR GPR04P,CR2REG10 01S1066 03067000 * DO; /* LISATCVT 01S1067 03068000 * CVTBASE(PAGEABLE,(GPR02P)) */ 03069000 * GPR02P=ATCLCPTR; /* SET UP ATCVT POINTER */ 03070000 L GPR02P,ATCLCPTR 01S1068 03071000 * END; /* LISATCVT */ 03072000 * CALL GPR02P->ATCGTSTR;/* CALL ISTORFSR */ 03073000 L @15,ATCGTSTR(,GPR02P) 01S1070 03074000 BALR @14,@15 01S1070 03075000 * RFY 01S1071 03076000 * (GPR00P, 01S1071 03077000 * GPR01P, 01S1071 03078000 * GPR02P, 01S1071 03079000 * GPR03P, 01S1071 03080000 * GPR04P) UNRSTD; 01S1071 03081000 * END; /* END OF FREESTOR */ 03082000 * 01S1072 03083000 * /*******************************************************/ 03084000 * /* */ 03085000 * /* FREESTOR */ 03086000 * /* AREA(CR2PTR)SIZE(LENGTH(ISTPOMCB))FETCHP(NO) */ 03087000 * /* */ 03088000 * /*******************************************************/ 03089000 * 01S1073 03090000 * DO; 01S1073 03091000 * 01S1073 03092000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 03093000 */* END OF ATBUILD */ 03094000 * 01S1074 03095000 * RFY 01S1074 03096000 * (GPR00P, 01S1074 03097000 * GPR01P, 01S1074 03098000 * GPR02P, 01S1074 03099000 * GPR03P) RSTD; 01S1074 03100000 * RFY 01S1075 03101000 * ISTRPH BASED(GPR01P); 01S1075 03102000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P, 03103000 * GPR08P,GPR09P,GPR10P,GPR11P,GPR12P,GPR13P) SETS( 03104000 * RPHWORK); 01S1076 03105000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 03106000 * GPR00F=LENGTH(ISTPOMCB);/* SIZE IN REG0 */ 03107000 LA GPR00F,140 01S1077 03108000 * DCL 01S1078 03109000 * 1 CMZA0335 FIXED(31) STATIC LOCAL, 01S1078 03110000 * 2 * FIXED(8) INIT(64),/* OPTION FLAGS */ 03111000 * 2 * FIXED(8) INIT(96),/* STORAGE KEY */ 03112000 * 2 * FIXED(8) INIT(241),/* SUBPOOL NUMBER */ 03113000 * 2 * FIXED(8) INIT('01'X);/* REQUEST TYPE */ 03114000 * GPR03F=CMZA0335; 01S1079 03115000 L GPR03F,CMZA0335 01S1079 03116000 * RFY 01S1080 03117000 * (GPR04P) RSTD; 01S1080 03118000 * GPR04P=CR2PTR; /* PUT FREEMAIN ADDR IN REG4 */ 03119000 LR GPR04P,CR2PTR 01S1081 03120000 * DO; /* LISATCVT 01S1082 03121000 * CVTBASE(PAGEABLE,(GPR02P)) */ 03122000 * GPR02P=ATCLCPTR; /* SET UP ATCVT POINTER */ 03123000 L GPR02P,ATCLCPTR 01S1083 03124000 * END; /* LISATCVT */ 03125000 * CALL GPR02P->ATCGTSTR;/* CALL ISTORFSR */ 03126000 L @15,ATCGTSTR(,GPR02P) 01S1085 03127000 BALR @14,@15 01S1085 03128000 * RFY 01S1086 03129000 * (GPR00P, 01S1086 03130000 * GPR01P, 01S1086 03131000 * GPR02P, 01S1086 03132000 * GPR03P, 01S1086 03133000 * GPR04P) UNRSTD; 01S1086 03134000 * END; /* END OF FREESTOR */ 03135000 * RFY 01S1088 03136000 * CR2REG10 UNRSTD; 01S1088 03137000 * END; 01S1089 03138000 * RFY 01S1090 03139000 * CR2FNDF UNRSTD; 01S1090 03140000 @RC00957 DS 0H 01S1091 03141000 * END; 01S1091 03142000 * RFY 01S1092 03143000 * CR2PTR UNRSTD; 01S1092 03144000 @RC00862 DS 0H 01S1093 03145000 * END; 01S1093 03146000 @DE00860 L @15,RPHWEA(,GPR01P) 01S1093 03147000 ICM @08,7,POCMSGQ(@15) 01S1093 03148000 BNZ @DL00860 01S1093 03149000 * CR2RTPT=CR2R14SB; /* RESTORE RETURN ADDRESS */ 03150000 LR CR2RTPT,CR2R14SB 01S1094 03151000 * RFY 01S1095 03152000 * CR2R14SB UNRSTD; 01S1095 03153000 * END CR2MREL; 01S1096 03154000 @EL00005 DS 0H 01S1096 03155000 @EF00005 DS 0H 01S1096 03156000 @ER00005 BR @14 01S1096 03157000 EJECT 03158000 *CR2RREL: 01S1097 03159000 * PROC OPTIONS(NOSAVE NOSAVEAREA); 01S1097 03160000 * 01S1097 03161000 CR2RREL DS 0H 01S1098 03162000 * /*****************************************************************/ 03163000 * /* */ 03164000 * /* THE SUBROUTINE ISSUES EACH REMAINING PORCB ON THE POCB */ 03165000 * /* AWAITING REPLY QUEUE AS AN IWTOR TO THE MASTER CONSOLE.IT THEN*/ 03166000 * /* FREES THE STORAGE FOR BOTH THE POR/MCBS AFTER HAVING DEQUEUED */ 03167000 * /* THE PORCB. */ 03168000 * /* */ 03169000 * /*****************************************************************/ 03170000 * 01S1098 03171000 * RFY 01S1098 03172000 * CR2R14SB RSTD; 01S1098 03173000 * CR2R14SB=CR2RTPT; /* SAVE RETURN ADDRESS */ 03174000 LR CR2R14SB,CR2RTPT 01S1099 03175000 * RFY 01S1100 03176000 * CR2PTR RSTD; 01S1100 03177000 * RFY 01S1101 03178000 * ISTPORCB BASED(POCAWTRQ); 01S1101 03179000 * RFY 01S1102 03180000 * ISTPOMCB BASED(PORPOMCB); 01S1102 03181000 * DO UNTIL(POCAWTRQ=ZERO); 01S1103 03182000 @DL01103 DS 0H 01S1104 03183000 * CR2R1SV=CR2RPHPT; /* SAVE RPH @ */ 03184000 LR CR2R1SV,CR2RPHPT 01S1104 03185000 * RFY 01S1105 03186000 * ISTRPH BASED(CR2R1SV); 01S1105 03187000 * CR2RPHPT=ADDR(POMNEXT); /* SET TO MESSAGE */ 03188000 L @15,RPHWEA(,CR2R1SV) 01S1106 03189000 SLR @08,@08 01S1106 03190000 ICM @08,7,POCAWTRQ(@15) 01S1106 03191000 SLR @15,@15 01S1106 03192000 ICM @15,7,PORPOMCB(@08) 01S1106 03193000 LA CR2RPHPT,POMNEXT(,@15) 01S1106 03194000 * POMFWD=PORAREA; /* SET PTR TO REP AREA */ 03195000 MVC POMFWD(3,@15),PORAREA+1(@08) 01S1107 03196000 * CR2RPLN=PORREPLN; /* SET REP LENGTH */ 03197000 MVC CR2RPLN(1,@15),PORREPLN(@08) 01S1108 03198000 * POMPORCB=PORECB; /* SET PTR TO ECB */ 03199000 MVC POMPORCB(3,@15),PORECB+1(@08) 01S1109 03200000 * CR2WPLHD=POMMSGLN-4; /* SET LENGTH OF MSG */ 03201000 * 01S1110 03202000 LA @08,16 01S1110 03203000 ALR @08,@15 01S1110 03204000 SLR @07,@07 01S1110 03205000 IC @07,POMMSGLN(,@15) 01S1110 03206000 SH @07,@CH00085 01S1110 03207000 STH @07,CR2WPLHD(,@08) 01S1110 03208000 * /***************************************************************/ 03209000 * /* */ 03210000 * /* ELIMINATE THE POI REPLY NUMBER */ 03211000 * /* */ 03212000 * /***************************************************************/ 03213000 * 01S1111 03214000 * MVC(POMMSG(1:POMMSGLN-3),POMMSG(5:POMMSGLN+1)); 01S1111 03215000 L @07,RPHWEA(,CR2R1SV) 01S1111 03216000 SLR @11,@11 01S1111 03217000 ICM @11,7,POCAWTRQ(@07) 01S1111 03218000 SLR @07,@07 01S1111 03219000 ICM @07,7,PORPOMCB(@11) 01S1111 03220000 SLR @11,@11 01S1111 03221000 IC @11,POMMSGLN(,@07) 01S1111 03222000 SH @11,@CH00085 01S1111 03223000 EX @11,@SM03433 01S1111 03224000 * POHID=ZERO; /* INIT WPL FLAGS */ 03225000 SLR @15,@15 01S1112 03226000 STH @15,POHID(,@08) 01S1112 03227000 * RFY 01S1113 03228000 * (CR2R15, 01S1113 03229000 * CR2BASE) RSTD; 01S1113 03230000 * CR2BASE=RPHSRPRM; /* SAVES FEILD TO BE USED */ 03231000 L CR2BASE,RPHSRPRM(,CR2R1SV) 01S1114 03232000 * CR2R15=ADDR(RPHSRPRM); 01S1115 03233000 * 01S1115 03234000 LA CR2R15,RPHSRPRM(,CR2R1SV) 01S1115 03235000 */***** IWTOR **** */ 03236000 * 01S1116 03237000 * DO; 01S1116 03238000 * GEN; 01S1117 03239000 WTOR MF=(E,(1)) 03240000 * DCL 01S1118 03241000 * REGF0354 REGISTER(15) FIXED; 01S1118 03242000 * REGF0354=0; 01S1119 03243000 SLR REGF0354,REGF0354 01S1119 03244000 * END; /* IWTOR */ 03245000 * RPHSRPRM=CR2BASE; /* RESTORES VALUE */ 03246000 ST CR2BASE,RPHSRPRM(,CR2R1SV) 01S1121 03247000 * RFY 01S1122 03248000 * (CR2BASE, 01S1122 03249000 * CR2R15) UNRSTD; 01S1122 03250000 * CR2RPHPT=CR2R1SV; /* RESTORE RPHPTR */ 03251000 LR CR2RPHPT,CR2R1SV 01S1123 03252000 * RFY 01S1124 03253000 * ISTRPH BASED(CR2RPHPT); 01S1124 03254000 * RFY 01S1125 03255000 * (ISTPORCB) BASED(CR2PTR); 01S1125 03256000 * 01S1125 03257000 * /***************************************************************/ 03258000 * /* */ 03259000 * /* ** DEQUEUE THE PORCB THEN FREE THE POMCB AND PORCB */ 03260000 * /* */ 03261000 * /***************************************************************/ 03262000 * 01S1126 03263000 */* TPDEQ (POCREPQ,POCREPQ) CHAIN(PORNEXT)RETPTR(CR2PTR) */ 03264000 * 01S1126 03265000 * DO; /* BEGIN TPDEQ CODE GENERATION */ 03266000 * RFY 01S1127 03267000 * (GPR00P, 01S1127 03268000 * GPR01P, 01S1127 03269000 * GPR14P, 01S1127 03270000 * GPR15P) RSTD; 01S1127 03271000 * GPR15P=ADDR(POCREPQ); /* ADDRESS QUEUE POINTER */ 03272000 L @08,RPHWEA(,CR2RPHPT) 01S1128 03273000 LA GPR15P,POCREPQ(,@08) 01S1128 03274000 * RFY 01S1129 03275000 * (GPR02P, 01S1129 03276000 * GPR03P) RSTD; 01S1129 03277000 * STM(GPR02P,GPR03P,GPR01P->RPHWORK(5:12)); 01S1130 03278000 STM GPR02P,GPR03P,RPHWORK+4(GPR01P) 01S1130 03279000 * GPR03P=POCREPQ|FMZCA022; 01S1131 03280000 L @07,@CF01482 01S1131 03281000 L GPR03P,POCREPQ(,@08) 01S1131 03282000 OR GPR03P,@07 01S1131 03283000 * GPR14P=FMZCA022; 01S1132 03284000 LR GPR14P,@07 01S1132 03285000 * GPR15P=ADDR(GPR15P->PABWEQA); 01S1133 03286000 * GPR02P=GPR15P->PABWEQA|FMZCA022; 01S1134 03287000 O @07,PABWEQA(,GPR15P) 01S1134 03288000 LR GPR02P,@07 01S1134 03289000 * DO WHILE(GPR02P^=GPR14P); 01S1135 03290000 B @DE01135 01S1135 03291000 @DL01135 DS 0H 01S1136 03292000 *FMZL2355: 01S1136 03293000 * ; 01S1136 03294000 FMZL2355 DS 0H 01S1137 03295000 * IF GPR02P=GPR03P THEN 01S1137 03296000 CR GPR02P,GPR03P 01S1137 03297000 BNE @RF01137 01S1137 03298000 * DO; 01S1138 03299000 * GPR00P=GPR02P->PORNEXT; 01S1139 03300000 L GPR00P,PORNEXT(,GPR02P) 01S1139 03301000 * CS(GPR02P,GPR00P,GPR15P->PABWEQA); 01S1140 03302000 CS GPR02P,@00,PABWEQA(GPR15P) 01S1140 03303000 * BC(7,FMZL3355); 01S1141 03304000 BC 7,FMZL3355 01S1141 03305000 * GPR14P=GPR02P; 01S1142 03306000 LR GPR14P,GPR02P 01S1142 03307000 * GPR14P->PORNEXT=0; 01S1143 03308000 SLR @08,@08 01S1143 03309000 ST @08,PORNEXT(,GPR14P) 01S1143 03310000 * END; 01S1144 03311000 * ELSE 01S1145 03312000 * DO; 01S1145 03313000 B @RC01137 01S1145 03314000 @RF01137 DS 0H 01S1146 03315000 * IF(GPR02P->PORNEXT)=GPR14P THEN 01S1146 03316000 L @08,PORNEXT(,GPR02P) 01S1146 03317000 CLR @08,GPR14P 01S1146 03318000 BE @RT01146 01S1146 03319000 * GOTO ISTA0355; 01S1147 03320000 * ELSE 01S1148 03321000 * DO; 01S1148 03322000 * GPR15P=ADDR(GPR02P->PORNEXT); 01S1149 03323000 LA GPR15P,PORNEXT(,GPR02P) 01S1149 03324000 * GPR02P=GPR02P->PORNEXT; 01S1150 03325000 LR GPR02P,@08 01S1150 03326000 * GOTO FMZL2355; 01S1151 03327000 B FMZL2355 01S1151 03328000 * END; 01S1152 03329000 * END; 01S1153 03330000 *FMZL3355: 01S1154 03331000 * ; 01S1154 03332000 @RC01137 DS 0H 01S1154 03333000 FMZL3355 DS 0H 01S1155 03334000 * END; 01S1155 03335000 @DE01135 CR GPR02P,GPR14P 01S1155 03336000 BNE @DL01135 01S1155 03337000 *ISTA0355: 01S1156 03338000 * ; 01S1156 03339000 ISTA0355 DS 0H 01S1157 03340000 * LM(GPR02P,GPR03P,GPR01P->RPHWORK(5:12)); 01S1157 03341000 LM GPR02P,GPR03P,RPHWORK+4(GPR01P) 01S1157 03342000 * RFY 01S1158 03343000 * (GPR02P, 01S1158 03344000 * GPR03P) UNRSTD; 01S1158 03345000 * GPR14P=GPR14P&FMZCB022; 01S1159 03346000 N GPR14P,@CF01484 01S1159 03347000 * CR2PTR=GPR14P; 01S1160 03348000 LR CR2PTR,GPR14P 01S1160 03349000 * RFY 01S1161 03350000 * (GPR00P, 01S1161 03351000 * GPR01P, 01S1161 03352000 * GPR14P, 01S1161 03353000 * GPR15P) UNRSTD; 01S1161 03354000 * END; /* END TPDEQ GENERATION */ 03355000 * 01S1162 03356000 * /***************************************************************/ 03357000 * /* */ 03358000 * /* FREESTOR AREA(PORPOMCB)SIZE(LENGTH(ISTPOMCB))FETCHP(NO) */ 03359000 * /* */ 03360000 * /***************************************************************/ 03361000 * 01S1163 03362000 * DO; 01S1163 03363000 * 01S1163 03364000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 03365000 */* END OF ATBUILD */ 03366000 * 01S1164 03367000 * RFY 01S1164 03368000 * (GPR00P, 01S1164 03369000 * GPR01P, 01S1164 03370000 * GPR02P, 01S1164 03371000 * GPR03P) RSTD; 01S1164 03372000 * RFY 01S1165 03373000 * ISTRPH BASED(GPR01P); 01S1165 03374000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P, 03375000 * GPR09P,GPR10P,GPR11P,GPR12P,GPR13P) SETS(RPHWORK); 01S1166 03376000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 03377000 * GPR00F=LENGTH(ISTPOMCB); /* SIZE IN REG0 */ 03378000 LA GPR00F,140 01S1167 03379000 * DCL 01S1168 03380000 * 1 CMZA0361 FIXED(31) STATIC LOCAL, 01S1168 03381000 * 2 * FIXED(8) INIT(64), /* OPTION FLAGS */ 03382000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 03383000 * 2 * FIXED(8) INIT(241), /* SUBPOOL NUMBER */ 03384000 * 2 * FIXED(8) INIT('01'X);/* REQUEST TYPE */ 03385000 * GPR03F=CMZA0361; 01S1169 03386000 L GPR03F,CMZA0361 01S1169 03387000 * RFY 01S1170 03388000 * (GPR04P) RSTD; 01S1170 03389000 * GPR04P=PORPOMCB; /* PUT FREEMAIN ADDR IN REG4 */ 03390000 SLR GPR04P,GPR04P 01S1171 03391000 ICM GPR04P,7,PORPOMCB(CR2PTR) 01S1171 03392000 * DO; /* LISATCVT 01S1172 03393000 * CVTBASE(PAGEABLE,(GPR02P)) */ 03394000 * GPR02P=ATCLCPTR; /* SET UP ATCVT POINTER */ 03395000 L GPR02P,ATCLCPTR 01S1173 03396000 * END; /* LISATCVT */ 03397000 * CALL GPR02P->ATCGTSTR; /* CALL ISTORFSR */ 03398000 L @15,ATCGTSTR(,GPR02P) 01S1175 03399000 BALR @14,@15 01S1175 03400000 * RFY 01S1176 03401000 * (GPR00P, 01S1176 03402000 * GPR01P, 01S1176 03403000 * GPR02P, 01S1176 03404000 * GPR03P, 01S1176 03405000 * GPR04P) UNRSTD; 01S1176 03406000 * END; /* END OF FREESTOR */ 03407000 * 01S1177 03408000 * /***************************************************************/ 03409000 * /* */ 03410000 * /* FREESTOR AREA(CR2PTR)SIZE(LENGTH(ISTPORCB))FETCHP(NO) */ 03411000 * /* */ 03412000 * /***************************************************************/ 03413000 * 01S1178 03414000 * DO; 01S1178 03415000 * 01S1178 03416000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 03417000 */* END OF ATBUILD */ 03418000 * 01S1179 03419000 * RFY 01S1179 03420000 * (GPR00P, 01S1179 03421000 * GPR01P, 01S1179 03422000 * GPR02P, 01S1179 03423000 * GPR03P) RSTD; 01S1179 03424000 * RFY 01S1180 03425000 * ISTRPH BASED(GPR01P); 01S1180 03426000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P, 03427000 * GPR09P,GPR10P,GPR11P,GPR12P,GPR13P) SETS(RPHWORK); 01S1181 03428000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 03429000 * GPR00F=LENGTH(ISTPORCB); /* SIZE IN REG0 */ 03430000 LA GPR00F,154 01S1182 03431000 * DCL 01S1183 03432000 * 1 CMZA0380 FIXED(31) STATIC LOCAL, 01S1183 03433000 * 2 * FIXED(8) INIT(64), /* OPTION FLAGS */ 03434000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 03435000 * 2 * FIXED(8) INIT(241), /* SUBPOOL NUMBER */ 03436000 * 2 * FIXED(8) INIT('01'X);/* REQUEST TYPE */ 03437000 * GPR03F=CMZA0380; 01S1184 03438000 L GPR03F,CMZA0380 01S1184 03439000 * RFY 01S1185 03440000 * (GPR04P) RSTD; 01S1185 03441000 * GPR04P=CR2PTR; /* PUT FREEMAIN ADDR IN REG4 */ 03442000 LR GPR04P,CR2PTR 01S1186 03443000 * DO; /* LISATCVT 01S1187 03444000 * CVTBASE(PAGEABLE,(GPR02P)) */ 03445000 * GPR02P=ATCLCPTR; /* SET UP ATCVT POINTER */ 03446000 L GPR02P,ATCLCPTR 01S1188 03447000 * END; /* LISATCVT */ 03448000 * CALL GPR02P->ATCGTSTR; /* CALL ISTORFSR */ 03449000 L @15,ATCGTSTR(,GPR02P) 01S1190 03450000 BALR @14,@15 01S1190 03451000 * RFY 01S1191 03452000 * (GPR00P, 01S1191 03453000 * GPR01P, 01S1191 03454000 * GPR02P, 01S1191 03455000 * GPR03P, 01S1191 03456000 * GPR04P) UNRSTD; 01S1191 03457000 * END; /* END OF FREESTOR */ 03458000 * END; 01S1193 03459000 @DE01103 L @15,RPHWEA(,GPR01P) 01S1193 03460000 ICM @08,7,POCAWTRQ(@15) 01S1193 03461000 BNZ @DL01103 01S1193 03462000 * RFY 01S1194 03463000 * CR2PTR UNRSTD; 01S1194 03464000 * CR2RTPT=CR2R14SB; /* RESTORE RETURN ADDRESS */ 03465000 LR CR2RTPT,CR2R14SB 01S1195 03466000 * RFY 01S1196 03467000 * CR2R14SB UNRSTD; 01S1196 03468000 * RETURN; 01S1197 03469000 @EL00006 DS 0H 01S1197 03470000 @EF00006 DS 0H 01S1197 03471000 @ER00006 BR @14 01S1197 03472000 * END CR2RREL; 01S1198 03473000 EJECT 03474000 *CR2CLNUP: 01S1199 03475000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 01S1199 03476000 * 01S1199 03477000 CR2CLNUP DS 0H 01S1200 03478000 * /*****************************************************************/ 03479000 * /* */ 03480000 * /* THIS SUBROUTINE PERFORMS THE THIRD FUNCTION OF THIS MODULE: */ 03481000 * /* THAT OF POSTING VTAM AND MOVING REPLY TEXT TO THE DESIGNATED */ 03482000 * /* AREA(PORAREA) THEN DEQUEUEING AND FREEING THE ASSOCIATED */ 03483000 * /* POR/MCB */ 03484000 * /* */ 03485000 * /*****************************************************************/ 03486000 * 01S1200 03487000 * CR2R14SV=CR2RTPT; /* SAVE RETURN ADDRESS */ 03488000 LR CR2R14SV,CR2RTPT 01S1200 03489000 * RFY 01S1201 03490000 * ISTPORCB BASED(RPHWEA); 01S1201 03491000 * CR2AREA(1:PORREPLN)=PORMSG(1:PORREPLN);/* MOVE TEXT INTO 01S1202 03492000 * DESIGNATED AREA FOR VTAM USE */ 03493000 L @15,RPHWEA(,GPR01P) 01S1202 03494000 L @07,PORAREA(,@15) 01S1202 03495000 SLR @11,@11 01S1202 03496000 IC @11,PORREPLN(,@15) 01S1202 03497000 BCTR @11,0 01S1202 03498000 EX @11,@SM03435 01S1202 03499000 * CR2R1SV=CR2RPHPT; /* SAVE RPH PT ACROSS POST */ 03500000 LR CR2R1SV,CR2RPHPT 01S1203 03501000 * RFY 01S1204 03502000 * ISTRPH BASED(CR2R1SV); 01S1204 03503000 * RFY 01S1205 03504000 * CR2SVPT RSTD; 01S1205 03505000 * CR2SVPT=ADDR(RPHWORK); /* SET R13 TO SAVE AREA */ 03506000 LA CR2SVPT,RPHWORK(,CR2R1SV) 01S1206 03507000 *CR2LK: 01S1207 03508000 * 01S1207 03509000 */*VSETLCK (CR2R15F,OBTAIN,LOCAL,(ISTCFCR2(CR2UNLK)),RESET) */ 03510000 * 01S1207 03511000 * DO; /* DECLARE AND RESTRICT REGS 03512000 * 2,10,11,12,13,14, AND 15 */ 03513000 CR2LK DS 0H 01S1208 03514000 * RFY 01S1208 03515000 * (GPR02P, 01S1208 03516000 * GPR10P, 01S1208 03517000 * GPR11P, 01S1208 03518000 * GPR12P, 01S1208 03519000 * GPR13P, 01S1208 03520000 * GPR14P, 01S1208 03521000 * GPR15P) RSTD; /* SAVE REGS 2 AND 10 THRU 14 */ 03522000 * GEN REFS(GPR02F,GPR10F,GPR11F,GPR12F,GPR14F,GPR13P); 01S1209 03523000 STM GPR10F,GPR12F,0(GPR13P) 03524000 ST GPR14F,12(GPR13P) 03525000 ST GPR02F,16(GPR13P) 03526000 * /* INVOKE MODESET TO CHANGE PSW 03527000 * PROTECTION KEY TO 0 */ 03528000 * GEN SETS(2); 01S1210 03529000 MODESET EXTKEY=ZERO,SAVEKEY=(2),WORKREG=2 03530000 * GPR10P=GPR13P; /* PUT SAVE AREA ADDR IN R 10 03531000 * INVOKE OS/VS SETLOCK MACRO */ 03532000 LR GPR10P,GPR13P 01S1211 03533000 * GEN REFS(GPR13P,PSALITA,FLC) SETS(GPR12F); 01S1212 03534000 SETLOCK OBTAIN,TYPE=LOCAL,MODE=UNCOND, *03535000 RELATED=(ISTCFCR2(CR2UNLK)) 03536000 * GPR15P=GPR13P; /* PUT RETURN CODE IN R 15 INVOKE 03537000 * MODESET MACRO TO */ 03538000 LR GPR15P,GPR13P 01S1213 03539000 * DO; /* RESTORE PSW PROTECTION KEY */ 03540000 * GEN SETS(2); 01S1215 03541000 MODESET KEYADDR=(2),WORKREG=2 03542000 * END; /* RESTORE REGISTERS */ 03543000 * GEN REFS(GPR10F,GPR13P) SETS(GPR10F,GPR11F,GPR12F,GPR13F,GPR14F, 03544000 * GPR02F); 01S1217 03545000 LR GPR13F,GPR10F 03546000 LM GPR10F,GPR12F,0(GPR13P) 03547000 L GPR14F,12(GPR13P) 03548000 L GPR02F,16(GPR13P) 03549000 * IF GPR15F=4 THEN 01S1218 03550000 CH GPR15F,@CH00085 01S1218 03551000 BNE @RF01218 01S1218 03552000 * GPR15F=0; 01S1219 03553000 SLR GPR15F,GPR15F 01S1219 03554000 * CR2R15F=GPR15F; /* PUT RETURN CODE IN RCREG */ 03555000 @RF01218 DS 0H 01S1221 03556000 * RFY 01S1221 03557000 * (GPR02P, 01S1221 03558000 * GPR10P, 01S1221 03559000 * GPR11P, 01S1221 03560000 * GPR12P, 01S1221 03561000 * GPR13P, 01S1221 03562000 * GPR14P, 01S1221 03563000 * GPR15P) UNRSTD; 01S1221 03564000 * END; /* VSETLCK */ 03565000 * RFY 01S1223 03566000 * CR2R15F RSTD; 01S1223 03567000 * IF CR2R15F=ZERO THEN 01S1224 03568000 LTR CR2R15F,CR2R15F 01S1224 03569000 BNZ @RF01224 01S1224 03570000 * DO; 01S1225 03571000 * RFY 01S1226 03572000 * CR2R15F UNRSTD; 01S1226 03573000 * 01S1227 03574000 */*VPOST ECB((PORECB)) */ 03575000 * 01S1227 03576000 * DO; 01S1227 03577000 * RFY 01S1228 03578000 * (GPR00P, 01S1228 03579000 * GPR01P, 01S1228 03580000 * GPR02P, 01S1228 03581000 * GPR05P, 01S1228 03582000 * GPR09P, 01S1228 03583000 * GPR10P, 01S1228 03584000 * GPR11P, 01S1228 03585000 * GPR12P, 01S1228 03586000 * GPR13P, 01S1228 03587000 * GPR14P, 01S1228 03588000 * GPR15P) RSTD; /* DECLARE AND RESTRICT REGS SAVE 03589000 * REGS */ 03590000 * GEN REFS(GPR00F,GPR01F,GPR02F,GPR05F,GPR09F,GPR10F,GPR11F, 03591000 * GPR12P,GPR13P,GPR14F,GPR15F); 01S1229 03592000 STM GPR14F,GPR12F,0(GPR13P) 03593000 * GPR00P=GPR13P; /* SAVE REG 13 IN REG 0 INVOKE 03594000 * XREGSET MACRO TO CHECK ECB 03595000 * PARAMETER AND PUT ADDRESS IN 03596000 * REG 1 */ 03597000 LR GPR00P,GPR13P 01S1230 03598000 */*XREGSET PID('ECB')PPARM((PORECB))RREG(1,GPR01P) */ 03599000 * 01S1231 03600000 * DO; 01S1231 03601000 * GPR01P=PORECB; /* SET RREG SYMBOL TO VALUE OF 03602000 * PPARM OPERAND */ 03603000 L @08,RPHWEA(,CR2R1SV) 01S1232 03604000 L GPR01P,PORECB(,@08) 01S1232 03605000 * END; /* XREGSET */ 03606000 * GPR10F=0; /* SET COMPLETION CODE TO 0 */ 03607000 SLR GPR10F,GPR10F 01S1234 03608000 * GPR11P=GPR01P; /* PUT ECB ADDR IN REG 11 */ 03609000 LR GPR11P,GPR01P 01S1235 03610000 * DCL 01S1236 03611000 * CMZP0402 PTR(31) LOCATION(16);/* ESTABLISH POINTER TO CVT*/ 03612000 * 01S1237 03613000 */*VMDESET ((15),ZERO,(2)) */ 03614000 * 01S1237 03615000 * DO; /* INVOKE MODESET MACRO */ 03616000 * GEN SETS(2); 01S1238 03617000 MODESET EXTKEY=ZERO,SAVEKEY=(2),WORKREG=2 03618000 * GPR15F=0; /* PUT RETURN CODE IN RCREG */ 03619000 SLR GPR15F,GPR15F 01S1239 03620000 * END; /* VMDESET */ 03621000 * GPR05F=GPR02F; 01S1241 03622000 LR GPR05F,GPR02F 01S1241 03623000 * CALL CMZP0402->CVT0PT01; /* BRANCH TO TASK SUPERVISOR POST 03624000 * ROUTINE (IEA0PT01) */ 03625000 L @08,CMZP0402 01S1242 03626000 L @15,CVT0PT01(,@08) 01S1242 03627000 BALR @14,@15 01S1242 03628000 * GPR02F=GPR05F; 01S1243 03629000 * 01S1243 03630000 LR GPR02F,GPR05F 01S1243 03631000 */*VMDESET ((15),,,(2)) */ 03632000 * 01S1244 03633000 * DO; /* INVOKE MODESET MACRO */ 03634000 * GEN SETS(2); 01S1245 03635000 MODESET KEYADDR=(2),WORKREG=2 03636000 * GPR15F=0; /* PUT RETURN CODE IN RCREG */ 03637000 SLR GPR15F,GPR15F 01S1246 03638000 * END; /* VMDESET */ 03639000 * GPR13P=GPR00P; /* RESTORE SAVE AREA ADDR FROM 03640000 * REGISTER 0 RESTORE REGS */ 03641000 LR GPR13P,GPR00P 01S1248 03642000 * GEN REFS(GPR13P) SETS(GPR00F,GPR01F,GPR02F,GPR05F,GPR09F, 03643000 * GPR10F,GPR11F,GPR12F,GPR14F,GPR15F); 01S1249 03644000 LM GPR14F,GPR12F,0(GPR13P) 03645000 * RFY 01S1250 03646000 * (GPR00P, 01S1250 03647000 * GPR01P, 01S1250 03648000 * GPR02P, 01S1250 03649000 * GPR05P, 01S1250 03650000 * GPR09P, 01S1250 03651000 * GPR10P, 01S1250 03652000 * GPR11P, 01S1250 03653000 * GPR12P, 01S1250 03654000 * GPR13P, 01S1250 03655000 * GPR14P, 01S1250 03656000 * GPR15P) UNRSTD; /* UNRESTRICT REGS */ 03657000 * END; /* VPOST */ 03658000 *CR2UNLK: 01S1252 03659000 * 01S1252 03660000 */*VSETLCK (CR2R15F,RELEASE,LOCAL,(ISTCFCR2(CR2LK)),SET) */ 03661000 * 01S1252 03662000 * DO; /* DECLARE AND RESTRICT REGS 03663000 * 2,10,11,12,13,14, AND 15 */ 03664000 CR2UNLK DS 0H 01S1253 03665000 * RFY 01S1253 03666000 * (GPR02P, 01S1253 03667000 * GPR10P, 01S1253 03668000 * GPR11P, 01S1253 03669000 * GPR12P, 01S1253 03670000 * GPR13P, 01S1253 03671000 * GPR14P, 01S1253 03672000 * GPR15P) RSTD; /* SAVE REGS 2 AND 10 THRU 14 */ 03673000 * GEN REFS(GPR02F,GPR10F,GPR11F,GPR12F,GPR14F,GPR13P); 01S1254 03674000 STM GPR10F,GPR12F,0(GPR13P) 03675000 ST GPR14F,12(GPR13P) 03676000 ST GPR02F,16(GPR13P) 03677000 * /* INVOKE MODESET TO CHANGE PSW 03678000 * PROTECTION KEY TO 0 */ 03679000 * GEN SETS(2); 01S1255 03680000 MODESET EXTKEY=ZERO,SAVEKEY=(2),WORKREG=2 03681000 * GPR10P=GPR13P; /* PUT SAVE AREA ADDR IN R 10 03682000 * INVOKE OS/VS SETLOCK MACRO */ 03683000 LR GPR10P,GPR13P 01S1256 03684000 * GEN REFS(GPR13P,PSALITA,FLC) SETS(GPR12F); 01S1257 03685000 SETLOCK RELEASE,TYPE=LOCAL, *03686000 RELATED=(ISTCFCR2(CR2LK)) 03687000 * GPR15P=GPR13P; /* PUT RETURN CODE IN R 15 INVOKE 03688000 * MODESET MACRO TO */ 03689000 LR GPR15P,GPR13P 01S1258 03690000 * DO; /* RESTORE PSW PROTECTION KEY */ 03691000 * GEN SETS(2); 01S1260 03692000 MODESET KEYADDR=(2),WORKREG=2 03693000 * END; /* RESTORE REGISTERS */ 03694000 * GEN REFS(GPR10F,GPR13P) SETS(GPR10F,GPR11F,GPR12F,GPR13F, 03695000 * GPR14F,GPR02F); 01S1262 03696000 LR GPR13F,GPR10F 03697000 LM GPR10F,GPR12F,0(GPR13P) 03698000 L GPR14F,12(GPR13P) 03699000 L GPR02F,16(GPR13P) 03700000 * IF GPR15F=4 THEN 01S1263 03701000 CH GPR15F,@CH00085 01S1263 03702000 BNE @RF01263 01S1263 03703000 * GPR15F=0; 01S1264 03704000 SLR GPR15F,GPR15F 01S1264 03705000 * CR2R15F=GPR15F; /* PUT RETURN CODE IN RCREG */ 03706000 @RF01263 DS 0H 01S1266 03707000 * RFY 01S1266 03708000 * (GPR02P, 01S1266 03709000 * GPR10P, 01S1266 03710000 * GPR11P, 01S1266 03711000 * GPR12P, 01S1266 03712000 * GPR13P, 01S1266 03713000 * GPR14P, 01S1266 03714000 * GPR15P) UNRSTD; 01S1266 03715000 * END; /* VSETLCK */ 03716000 * CR2RPHPT=CR2R1SV; /* RESTORE RPH PTR */ 03717000 LR CR2RPHPT,CR2R1SV 01S1268 03718000 * RFY 01S1269 03719000 * ISTRPH BASED(CR2RPHPT); 01S1269 03720000 * RFY 01S1270 03721000 * CR2SVPT UNRSTD; 01S1270 03722000 * 01S1270 03723000 */* DEQUEUE AND FREE POR/MCBS */ 03724000 * 01S1271 03725000 * RFY 01S1271 03726000 * ISTPOMCB BASED(PORPOMCB); 01S1271 03727000 * RFY 01S1272 03728000 * ISTPOCB BASED(POMFWD); 01S1272 03729000 * 01S1272 03730000 */* TPDEQ (RPHWEA,POCREPQ) CHAIN(PORNEXT)RETPTR(CR2PTR) */ 03731000 * 01S1273 03732000 * DO; /* BEGIN TPDEQ CODE GENERATION */ 03733000 * RFY 01S1274 03734000 * (GPR00P, 01S1274 03735000 * GPR01P, 01S1274 03736000 * GPR14P, 01S1274 03737000 * GPR15P) RSTD; 01S1274 03738000 * GPR15P=ADDR(POCREPQ); /* ADDRESS QUEUE POINTER */ 03739000 L @07,RPHWEA(,CR2RPHPT) 01S1275 03740000 SLR @11,@11 01S1275 03741000 ICM @11,7,PORPOMCB(@07) 01S1275 03742000 SLR GPR15P,GPR15P 01S1275 03743000 ICM GPR15P,7,POMFWD(@11) 01S1275 03744000 LA GPR15P,POCREPQ(,GPR15P) 01S1275 03745000 * RFY 01S1276 03746000 * (GPR02P, 01S1276 03747000 * GPR03P) RSTD; 01S1276 03748000 * STM(GPR02P,GPR03P,GPR01P->RPHWORK(5:12)); 01S1277 03749000 STM GPR02P,GPR03P,RPHWORK+4(GPR01P) 01S1277 03750000 * GPR03P=RPHWEA|FMZCA022; 01S1278 03751000 L @11,@CF01482 01S1278 03752000 OR @07,@11 01S1278 03753000 LR GPR03P,@07 01S1278 03754000 * GPR14P=FMZCA022; 01S1279 03755000 LR GPR14P,@11 01S1279 03756000 * GPR15P=ADDR(GPR15P->PABWEQA); 01S1280 03757000 * GPR02P=GPR15P->PABWEQA|FMZCA022; 01S1281 03758000 O @11,PABWEQA(,GPR15P) 01S1281 03759000 LR GPR02P,@11 01S1281 03760000 * DO WHILE(GPR02P^=GPR14P); 01S1282 03761000 B @DE01282 01S1282 03762000 @DL01282 DS 0H 01S1283 03763000 *FMZL2415: 01S1283 03764000 * ; 01S1283 03765000 FMZL2415 DS 0H 01S1284 03766000 * IF GPR02P=GPR03P THEN 01S1284 03767000 CR GPR02P,GPR03P 01S1284 03768000 BNE @RF01284 01S1284 03769000 * DO; 01S1285 03770000 * GPR00P=GPR02P->PORNEXT; 01S1286 03771000 L GPR00P,PORNEXT(,GPR02P) 01S1286 03772000 * CS(GPR02P,GPR00P,GPR15P->PABWEQA); 01S1287 03773000 CS GPR02P,@00,PABWEQA(GPR15P) 01S1287 03774000 * BC(7,FMZL3415); 01S1288 03775000 BC 7,FMZL3415 01S1288 03776000 * GPR14P=GPR02P; 01S1289 03777000 LR GPR14P,GPR02P 01S1289 03778000 * GPR14P->PORNEXT=0; 01S1290 03779000 SLR @07,@07 01S1290 03780000 ST @07,PORNEXT(,GPR14P) 01S1290 03781000 * END; 01S1291 03782000 * ELSE 01S1292 03783000 * DO; 01S1292 03784000 B @RC01284 01S1292 03785000 @RF01284 DS 0H 01S1293 03786000 * IF(GPR02P->PORNEXT)=GPR14P THEN 01S1293 03787000 L @07,PORNEXT(,GPR02P) 01S1293 03788000 CLR @07,GPR14P 01S1293 03789000 BE @RT01293 01S1293 03790000 * GOTO ISTA0415; 01S1294 03791000 * ELSE 01S1295 03792000 * DO; 01S1295 03793000 * GPR15P=ADDR(GPR02P->PORNEXT); 01S1296 03794000 LA GPR15P,PORNEXT(,GPR02P) 01S1296 03795000 * GPR02P=GPR02P->PORNEXT; 01S1297 03796000 LR GPR02P,@07 01S1297 03797000 * GOTO FMZL2415; 01S1298 03798000 B FMZL2415 01S1298 03799000 * END; 01S1299 03800000 * END; 01S1300 03801000 *FMZL3415: 01S1301 03802000 * ; 01S1301 03803000 @RC01284 DS 0H 01S1301 03804000 FMZL3415 DS 0H 01S1302 03805000 * END; 01S1302 03806000 @DE01282 CR GPR02P,GPR14P 01S1302 03807000 BNE @DL01282 01S1302 03808000 *ISTA0415: 01S1303 03809000 * ; 01S1303 03810000 ISTA0415 DS 0H 01S1304 03811000 * LM(GPR02P,GPR03P,GPR01P->RPHWORK(5:12)); 01S1304 03812000 LM GPR02P,GPR03P,RPHWORK+4(GPR01P) 01S1304 03813000 * RFY 01S1305 03814000 * (GPR02P, 01S1305 03815000 * GPR03P) UNRSTD; 01S1305 03816000 * GPR14P=GPR14P&FMZCB022; 01S1306 03817000 N GPR14P,@CF01484 01S1306 03818000 * CR2PTR=GPR14P; 01S1307 03819000 LR CR2PTR,GPR14P 01S1307 03820000 * RFY 01S1308 03821000 * (GPR00P, 01S1308 03822000 * GPR01P, 01S1308 03823000 * GPR14P, 01S1308 03824000 * GPR15P) UNRSTD; 01S1308 03825000 * END; /* END TPDEQ GENERATION */ 03826000 * 01S1309 03827000 * /*************************************************************/ 03828000 * /* */ 03829000 * /* FREESTOR AREA(PORPOMCB)SIZE(LENGTH(ISTPOMCB))FETCHP(NO) */ 03830000 * /* */ 03831000 * /*************************************************************/ 03832000 * 01S1310 03833000 * DO; 01S1310 03834000 * 01S1310 03835000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 03836000 */* END OF ATBUILD */ 03837000 * 01S1311 03838000 * RFY 01S1311 03839000 * (GPR00P, 01S1311 03840000 * GPR01P, 01S1311 03841000 * GPR02P, 01S1311 03842000 * GPR03P) RSTD; 01S1311 03843000 * RFY 01S1312 03844000 * ISTRPH BASED(GPR01P); 01S1312 03845000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P, 03846000 * GPR09P,GPR10P,GPR11P,GPR12P,GPR13P) SETS(RPHWORK); 03847000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 03848000 * GPR00F=LENGTH(ISTPOMCB); /* SIZE IN REG0 */ 03849000 LA GPR00F,140 01S1314 03850000 * DCL 01S1315 03851000 * 1 CMZA0421 FIXED(31) STATIC LOCAL, 01S1315 03852000 * 2 * FIXED(8) INIT(64), /* OPTION FLAGS */ 03853000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 03854000 * 2 * FIXED(8) INIT(241),/* SUBPOOL NUMBER */ 03855000 * 2 * FIXED(8) INIT('01'X);/* REQUEST TYPE */ 03856000 * GPR03F=CMZA0421; 01S1316 03857000 L GPR03F,CMZA0421 01S1316 03858000 * RFY 01S1317 03859000 * (GPR04P) RSTD; 01S1317 03860000 * GPR04P=PORPOMCB; /* PUT FREEMAIN ADDR IN REG4 */ 03861000 L @15,RPHWEA(,GPR01P) 01S1318 03862000 SLR GPR04P,GPR04P 01S1318 03863000 ICM GPR04P,7,PORPOMCB(@15) 01S1318 03864000 * DO; /* LISATCVT 01S1319 03865000 * CVTBASE(PAGEABLE,(GPR02P)) */ 03866000 * GPR02P=ATCLCPTR; /* SET UP ATCVT POINTER */ 03867000 L GPR02P,ATCLCPTR 01S1320 03868000 * END; /* LISATCVT */ 03869000 * CALL GPR02P->ATCGTSTR; /* CALL ISTORFSR */ 03870000 L @15,ATCGTSTR(,GPR02P) 01S1322 03871000 BALR @14,@15 01S1322 03872000 * RFY 01S1323 03873000 * (GPR00P, 01S1323 03874000 * GPR01P, 01S1323 03875000 * GPR02P, 01S1323 03876000 * GPR03P, 01S1323 03877000 * GPR04P) UNRSTD; 01S1323 03878000 * END; /* END OF FREESTOR */ 03879000 * 01S1324 03880000 * /*************************************************************/ 03881000 * /* */ 03882000 * /* FREESTOR AREA(CR2PTR)SIZE(LENGTH(ISTPORCB))FETCHP(NO) */ 03883000 * /* */ 03884000 * /*************************************************************/ 03885000 * 01S1325 03886000 * DO; 01S1325 03887000 * 01S1325 03888000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT,ISTRPH) */ 03889000 */* END OF ATBUILD */ 03890000 * 01S1326 03891000 * RFY 01S1326 03892000 * (GPR00P, 01S1326 03893000 * GPR01P, 01S1326 03894000 * GPR02P, 01S1326 03895000 * GPR03P) RSTD; 01S1326 03896000 * RFY 01S1327 03897000 * ISTRPH BASED(GPR01P); 01S1327 03898000 * GEN REFS(GPR02P,GPR03P,GPR04P,GPR05P,GPR06P,GPR07P,GPR08P, 03899000 * GPR09P,GPR10P,GPR11P,GPR12P,GPR13P) SETS(RPHWORK); 03900000 STM GPR02P,GPR13P,RPHWORK(GPR01P) SAVE REGISTERS 03901000 * GPR00F=LENGTH(ISTPORCB); /* SIZE IN REG0 */ 03902000 LA GPR00F,154 01S1329 03903000 * DCL 01S1330 03904000 * 1 CMZA0440 FIXED(31) STATIC LOCAL, 01S1330 03905000 * 2 * FIXED(8) INIT(64), /* OPTION FLAGS */ 03906000 * 2 * FIXED(8) INIT(96), /* STORAGE KEY */ 03907000 * 2 * FIXED(8) INIT(241),/* SUBPOOL NUMBER */ 03908000 * 2 * FIXED(8) INIT('01'X);/* REQUEST TYPE */ 03909000 * GPR03F=CMZA0440; 01S1331 03910000 L GPR03F,CMZA0440 01S1331 03911000 * RFY 01S1332 03912000 * (GPR04P) RSTD; 01S1332 03913000 * GPR04P=CR2PTR; /* PUT FREEMAIN ADDR IN REG4 */ 03914000 LR GPR04P,CR2PTR 01S1333 03915000 * DO; /* LISATCVT 01S1334 03916000 * CVTBASE(PAGEABLE,(GPR02P)) */ 03917000 * GPR02P=ATCLCPTR; /* SET UP ATCVT POINTER */ 03918000 L GPR02P,ATCLCPTR 01S1335 03919000 * END; /* LISATCVT */ 03920000 * CALL GPR02P->ATCGTSTR; /* CALL ISTORFSR */ 03921000 L @15,ATCGTSTR(,GPR02P) 01S1337 03922000 BALR @14,@15 01S1337 03923000 * RFY 01S1338 03924000 * (GPR00P, 01S1338 03925000 * GPR01P, 01S1338 03926000 * GPR02P, 01S1338 03927000 * GPR03P, 01S1338 03928000 * GPR04P) UNRSTD; 01S1338 03929000 * END; /* END OF FREESTOR */ 03930000 * END; 01S1340 03931000 * CR2RTPT=CR2R14SV; /* RESTORE RETURN ADDRESS */ 03932000 @RF01224 LR CR2RTPT,CR2R14SV 01S1341 03933000 * RETURN; 01S1342 03934000 @EL00007 DS 0H 01S1342 03935000 @EF00007 DS 0H 01S1342 03936000 @ER00007 BR @14 01S1342 03937000 * END CR2CLNUP; 01S1343 03938000 * 01S1343 03939000 @PB00007 DS 0H 01S1343 03940000 */* TPEXIT NORM */ 03941000 * 01S1344 03942000 * DO; 01S1344 03943000 * RESPECIFY 01S1345 03944000 * GPR15P RSTD; 01S1345 03945000 * 01S1345 03946000 */* ATBUILD (ISTPAB,ISTDYPAB,ISTATCVT) */ 03947000 */* END OF ATBUILD */ 03948000 * 01S1346 03949000 * DO; /* LISATCVT 01S1346 03950000 * CVTBASE(PAGEABLE,(GPR15P)) */ 03951000 * GPR15P=ATCLCPTR; /* SET UP ATCVT POINTER */ 03952000 L GPR15P,ATCLCPTR 01S1347 03953000 * END; /* LISATCVT */ 03954000 * RESPECIFY 01S1349 03955000 * GPR00F RSTD; 01S1349 03956000 * GPR00F=4; /* SET PARAMETER REGISTER TO 4 */ 03957000 LA GPR00F,4 01S1350 03958000 * GPR15P=GPR15P->ATCAP31; 01S1351 03959000 L GPR15P,ATCAP31(,GPR15P) 01S1351 03960000 * DCL 01S1352 03961000 * FMZL0459 BASED(GPR15P) LABEL VALUERANGE(*); 01S1352 03962000 * CALL FMZL0459; 01S1353 03963000 BALR @14,@15 01S1353 03964000 * RESPECIFY 01S1354 03965000 * (GPR00F, 01S1354 03966000 * GPR15P) UNRSTD; 01S1354 03967000 * END; /* **** END OF TPEXIT */ 03968000 */* TPEPILOG */ 03969000 * 01S1356 03970000 * GEN(PRINT OFF); 01S1356 03971000 PRINT OFF 03972000 */* LOCKWORD FORMAT DSECT */ 03973000 */* INITIAL LEVEL 001 05/24/74 */ 03974000 *DCL 1 ISTLOK BDY(WORD) BASED, 01S1357 03975000 * 2 LOKCT CHAR(1) BDY(WORD), /* COUNT OF LOCK OWNERS */ 03976000 * 2 LOKCHN PTR(24), /* ADDR OF NEXT RPH WAITING 03977000 * ON LOCK */ 03978000 * 3 LOKCHNG CHAR(3), /* CHAIN/FLAGS */ 03979000 * 4 * CHAR(2), 01S1357 03980000 * 4 * BIT(8), 01S1357 03981000 * 5 * BIT(6), 01S1357 03982000 * 5 LOKPRY BIT(1), /* PRIORITY FLAG, 1 = ON */ 03983000 * 5 LOKXCL BIT(1); /* EXCLUSIVE FLAG, 1 = ON */ 03984000 *DCL LOKXCL1 BIT(32) CONSTANT('00000001'X); /* CONSTANT TO TURN LOKXCL 03985000 * ON */ 03986000 *DCL LOKPRY1 BIT(32) CONSTANT('00000002'X); /* CONSTANT TO TURN LOKPRY 03987000 * ON */ 03988000 *DCL LOKCHN1 BIT(32) CONSTANT('00FFFFFC'X); /* CONSTANT TO TURN LOKXCL 03989000 * AND LOKPRY OFF */ 03990000 *DCL LOKCT1 BIT(32) CONSTANT('01000000'X); /* CONSTANT TO MAKE LOKCT 03991000 * = 1 */ 03992000 *DCL LOKCT255 BIT(32) CONSTANT('FF000000'X); /* CONSTANT TO CHECK FOR 03993000 * MAX LOKCT (255) */ 03994000 */* PROCESS ANCHOR BLOCK * 03995000 */* REVISIONS 002 11/16/75 */ 03996000 */* APAR OZ19540 DCL PABSSN ABNORMAL @ZA19540*/ 03997000 *DCL 1 ISTPAB BDY(DWORD) BASED, 01S1363 03998000 * 2 PABWQCHN CHAR(8) BDY(DWORD), /* CPS SWAP FIELD FOR NEQ&CHN * 03999000 * 3 PABWEQA PTR(31) BDY(WORD), /* WORK ELEMENT QUEUE ADDRESS * 04000000 * 4 PABWEQG BIT(1), /* GATING BIT * 04001000 * 4 PABRSV01 BIT(7), /* RESERVED * 04002000 * 4 PABWEQP PTR(24), /* WKEL PTR * 04003000 * 3 PABCHAIN PTR(31) BDY(WORD), /* APS CHAIN * 04004000 * 4 PABCHNG BIT(1), /* GATING BIT * 04005000 * 4 PABRESCH BIT(1), /* RESCHEDULE PAB AT 01S1363 04006000 * TPEXIT * 04007000 * 4 PABCDP BIT(1), /* CLOSE DST/CHANGE IN PROGRESS* 04008000 * 4 PABUNCON BIT(1), /* UNCONDITIONALLY RESCHEDULE 04009000 * PAB AT TPEXIT * 04010000 * 4 PABRESET BIT(1), /* RESET ISSUED ON THIS PAB * 04011000 * 4 PABRUNNG BIT(1), /* PAB RUNNING * 04012000 * 4 PABDELAY BIT(1), /* DELAY OPTION USED * 04013000 * 4 PABRSV02 BIT(1), /* RESERVED * 04014000 * 4 PABCHNGP PTR(24), /* PSS CHAIN PTR * 04015000 * 2 PABOFFST PTR(8), /* OFFSET FROM CONTROL BLOCK * 04016000 * 2 PABDVTA PTR(24), /* DVT ADDRESS * 04017000 * 2 PABRPHFG PTR(31), /* SCHED FLAGS AND RPH * 04018000 * 3 PABFLAGS BIT(8), /* SCHEDULING FLAGS * 04019000 * 4 PABAPYP BIT(1), /* APPLICATION IS A USER EXIT * 04020000 * 4 PABPRIOR BIT(1), /* IMMEDIATE PRIORITY * 04021000 * 4 PABNORPR BIT(1), /* NORMAL PRIORITY - * 04022000 * /* RESCHEDUALABLE * 04023000 * 4 PABDYNAM BIT(1), /* DYNAMIC * 04024000 * 4 PABSSN BIT(1) ABNL, /* SYSTEM SERVICES @ZA19540 * 04025000 * 4 PABERLCK BIT(1), /* PAB ERROR LOCK FLAG * 04026000 * 5 PABERRLK BIT(1), /* ERROR LOCK * 04027000 * 6 PABERLOK BIT(1), /* ERROR LOCK * 04028000 */* ABNORMAL TO ALLOW VARY COMPARE AND SWAP * 04029000 * 4 PABINHBT BIT(1) ABNL,/* 1=INHIBIT TRAFFIC,0=NO * 04030000 * 4 PABNODQ BIT(1), /* DO NOT DEQ WORK ELEMENT * 04031000 * 3 PABRPHA PTR(24); /* RPL HEADER ADDRESS * 04032000 *DCL PABWEQG0 BIT(32) CONSTANT('7FFFFFFF'X), /* TURN PABWEQG OFF * 04033000 * PABWEQG1 BIT(32) CONSTANT('80000000'X), /* TURN PABWEQG ON * 04034000 * PABCHNG0 BIT(32) CONSTANT('7FFFFFFF'X), /* TURN PABCHNG OFF * 04035000 * PABCHNG1 BIT(32) CONSTANT('80000000'X), /* TURN PABCHNG ON * 04036000 * PABRESC0 BIT(32) CONSTANT('BFFFFFFF'X), /* TURN PABRESCH OFF * 04037000 * PABRESC1 BIT(32) CONSTANT('40000000'X), /* TURN PABRESCH ON * 04038000 * PABCDP0 BIT(32) CONSTANT ('DFFFFFFF'X), /* TURN PABCDP OFF * 04039000 * PABCDP1 BIT(32) CONSTANT ('20000000'X), /* TURN PABCDP ON * 04040000 * PABERLK0 BIT(32) CONSTANT('FBFFFFFF'X), /* TURN PABERRLK ON * 04041000 * PABERLK1 BIT(32) CONSTANT('04000000'X), /* TURN PABERRLK OFF * 04042000 * PABUNCO0 BIT(32) CONSTANT('EFFFFFFF'X), /* TURN PABUNCON OFF * 04043000 * PABUNCO1 BIT(32) CONSTANT('10000000'X), /* TURN PABUNCON ON * 04044000 * PABPRIR0 BIT(32) CONSTANT('BFFFFFFF'X), /* TURN PAB PRIOR OFF * 04045000 * PABPRIR1 BIT(32) CONSTANT('40000000'X), /* TURN PAB PRIOR ON * 04046000 * PABRST0 BIT(32) CONSTANT('F7FFFFFF'X), /* TURN PABRESET OFF * 04047000 * PABRST1 BIT(32) CONSTANT('08000000'X), /* TURN PABRESET ON * 04048000 * PABDLAY0 BIT(32) CONSTANT('FDFFFFFF'X), /* TURN PAB DELAY OFF * 04049000 * PABDLAY1 BIT(32) CONSTANT('02000000'X); /* TURN PAB DELAY ON * 04050000 */* VTAM DATA EXTENT BLOCK */ 04051000 */* */ 04052000 */* INITIAL LEVEL 001 09/17/74 */ 04053000 */* */ 04054000 */* VTAM CONTROL BLOCK PREFIX */ 04055000 */* */ 04056000 *DECLARE 01S1365 04057000 * 1 ISTACDEB BASED BDY(DWORD), 01S1365 04058000 * 2 ACDVTPRX BDY(WORD), /* VTAM DEB PREFIX TO PREFIX SECTION */ 04059000 * 3 ACDTYPE CHAR(1), /* CONTROL BLOCK TYPE */ 04060000 * 3 ACDLNGTH FIXED(8), /* CONTROL BLOCK LENGTH IN BYTES */ 04061000 * 3 ACDSAF CHAR(2), /* FLAGS */ 04062000 * 3 ACDCHN PTR(31), /* CHAIN FIELD */ 04063000 * 3 ACDTSKID PTR(31), /* PST POINTER */ 04064000 * 3 ACDRSV08 PTR(31), /* RESERVED PRESERVE ALIGNMENT */ 04065000 */* */ 04066000 */* VSAM DEB PREFIX */ 04067000 */* */ 04068000 * 2 ACDDBPFX BDY(DWORD), /* VS1/2 DEB PREFIX SECTION */ 04069000 * 3 ACDDEBX PTR(31), /* DEB EXTENSION ADDRESS */ 04070000 * 3 ACDLENG CHAR(1), /* LENGTH FOR OS */ 04071000 * 3 ACDAMTYP CHAR(1), /* ACCESS METHOD TYPE FOR OS */ 04072000 * 3 ACDTBLOF FIXED(16),/* OFFSET IN DEB TABLE TO THE ENTRY FOR 04073000 * THIS DEB */ 04074000 * 4 ACDRSV02 CHAR(1),/* RESERVED - IF NOT USED */ 04075000 * 4 ACDRSV03 CHAR(1),/* RESERVED - IF NOT USED */ 04076000 */* */ 04077000 */* STANDARD DATA EXTENT BLOCK */ 04078000 */* */ 04079000 * 2 ACDBASIC BDY(DWORD), /* BASIC DEB SECTION */ 04080000 * 3 ACDTCBAD CHAR(4), /* ADDRESS OF TCB OWNING DEB */ 04081000 * 4 ACDNMSUB FIXED(8), /* NO. OF SUBRTNS LOADED BY 01S1365 04082000 * OPEN EXECUTOR */ 04083000 * 5 ACDOPNAD CHAR(1), /* 1ST BYTE OF OPEN DEB */ 04084000 * 4 ACDTCB PTR(24) BDY(BYTE),/* ADDRESS OF TCB OWNING THIS 04085000 * DEB */ 04086000 * 3 ACDDEBAD CHAR(4), /* ADDR OF ACDBASIC IN NEXT 01S1365 04087000 * DEB IN CHAIN OFF TCB */ 04088000 * 4 ACDAMLNG FIXED(8), /* NO. OF BYTES IN ACCESS METHOD 01S1365 04089000 * DEPENDENT SECTION OF DEB */ 04090000 * 4 ACDDEB PTR(24) BDY(BYTE),/* ADDRESS OF ACDBASIC IN 01S1365 04091000 * DEB */ 04092000 * 3 ACDIRBAD CHAR(4), /* RESERVED TO MAINTAIN FIELD 01S1365 04093000 * POSITIONS IN BASIC SECTION */ 04094000 * 3 ACDOPATB CHAR(1), /* RESERVED TO MAINTAIN FIELD 01S1365 04095000 * POSITIONS IN BASIC SECTION */ 04096000 * 3 ACDQSCNT CHAR(1), /* RESERVED TO MAINTAIN FIELD 01S1365 04097000 * POSITIONS IN BASIC SECTION */ 04098000 * 3 ACDFLGS1 CHAR(1), /* RESERVED TO MAINTAIN FIELD 01S1365 04099000 * POSTIONS IN BASIC SECTION */ 04100000 * 3 ACDPRLEN CHAR(1), /* LENGTH OF VS1/2 PREFIX */ 04101000 * 3 ACDUSRPG CHAR(4), /* ADDR OF FIRST IOB IN USER 01S1365 04102000 * PURGE CHAIN */ 04103000 * 4 ACDNMEXT FIXED(8), /* NUMBER OF EXTENTS SPECIFIED 01S1365 04104000 * IN DSCBS */ 04105000 * 4 ACDUSRPB PTR(24) BDY(BYTE), /* RESERVED TO MAINTAIN FIELD 04106000 * POSITIONS IN BASIC SECTION */ 04107000 * 3 ACDECBAD CHAR(4), /* RESERVED TO MAINTAIN FIELD 01S1365 04108000 * POSITION IN BASIC SECTION */ 04109000 * 3 ACDACBAD CHAR(4), /* ADDRESS OF ACB ASSOCIATED 01S1365 04110000 * WITH DEB */ 04111000 * 4 ACDPROTG BIT(4), /* TASK PROTECT KEY IN */ 04112000 * 4 ACDDEBID BIT(4), /* A HEX F IN SECOND 4 BITS OF 01S1365 04113000 * ACDACBAD IDENTIFY BLOCK AS DEB */ 04114000 * 4 ACDACB PTR(24) BDY(BYTE), /* ADDRESS OF ACB ASSOCIATED 04115000 * WITH THIS DEB */ 04116000 * 3 ACDAPPAD CHAR(4), /* ADDR OF I/O APPND VECTOR TABLE */ 04117000 * 4 ACDEXSCL FIXED(8), /* EXTENT SCALE */ 04118000 * 4 ACDAPP PTR(24) BDY(BYTE), /* ADDR OF I/O APPND VECTOR 04119000 * TABLE */ 04120000 */* */ 04121000 */* ACCESS METHOD DEPENDENT SECTION */ 04122000 */* */ 04123000 * 2 ACDVTAM BDY(DWORD), /* VTAM DEB SECTION */ 04124000 * 3 ACDLOCK CHAR(LENGTH(ISTLOK)), /* DEBLOCK LOCK */ 04125000 * 3 ACDRDTE PTR(31), /* POINTER TO RDT ENTRY */ 04126000 * 3 ACDFMCB PTR(31), /* ADDR OF 1ST FMCB ON FMCB QUE OF 04127000 * THIS DEB */ 04128000 * 3 ACDRAFQ PTR(31), /* ADDR OF 1ST FMCB ON READANY FMCB QUE*/ 04129000 * 3 ACDRARQ PTR(31), /* ADDR OF 1ST RPL ON READANY RPL QUE*/ 04130000 * 3 ACDRSV20 CHAR(12), /* RESERVED */ 04131000 * 3 ACDNEPAB CHAR(LENGTH(ISTPAB)) BDY(DWORD), /* PSS SOLICIT/READ 04132000 * ANY PAB */ 04133000 * 3 ACDSSPAB CHAR(LENGTH(ISTPAB)) BDY(DWORD), /* PSS SYSTEM 01S1365 04134000 * SERVICES PAB */ 04135000 * 3 ACDRSV21 CHAR(LENGTH(ISTPAB)) BDY(DWORD), /* RESERVED */ 04136000 * 3 ACDSSFLG CHAR(1), /* SYSTEM SERVICE FLAGS */ 04137000 * 4 ACDCACB BIT(1), /* CLOSE ACB IN PROGRESS */ 04138000 * 4 ACDABEND BIT(1), /* IF ABEND OR CANCEL IN PROGRESS, */ 04139000 * /* USED AS FLAG TO INDICATE THAT */ 04140000 * /* A DUMP MUST BE TAKEN */ 04141000 * 4 ACDAICLS BIT(1), /* CLOSE ISSUED IN ISTRAAA1 */ 04142000 * 4 ACDTPEND BIT(1), /* TPEND EXIT IN PROCESS FLAG @VSRIUBL*/ 04143000 * 4 ACDTSO BIT(1), /* RESERVED FOR TSO-DO NOT 01S1365 04144000 * CHANGE @VSRIUBL*/ 04145000 * 4 * BIT(3), /* RESERVED @VSRIUBL*/ 04146000 * 3 ACDRSV06 CHAR(1), /* RESERVED */ 04147000 * 3 ACDRSV07 CHAR(1), /* RESERVED */ 04148000 * 3 ACDAPDAT BDY(BYTE), /* APPLICATION - ID SECTION */ 04149000 * 4 ACDAPDLN FIXED(8), /* LENGTH OF APPLICATION ID DATA */ 04150000 * 4 ACDAPDDT CHAR(8), /* APPLICATION DATA */ 04151000 * 3 ACDRSV10 PTR(31), /* RESERVED */ 04152000 * 3 ACDOCWAD PTR(31), /* ADDR OF OCW FOR USE BY CLOSE ACB */ 04153000 * 3 ACDRSV22 PTR(31), /* RESERVED */ 04154000 * 3 ACDRSV23 PTR(31), /* RESERVED */ 04155000 * 3 ACDRSV24 PTR(31), /* RESERVED FOR ALIGNMENT */ 04156000 * 2 ACDSIP CHAR(LENGTH(ISTPAB)) BDY(DWORD), /* SESSION CONTROL 04157000 * INBOUND PAB */ 04158000 * 2 ACDSOP CHAR(LENGTH(ISTPAB)) BDY(DWORD), /* SESSION CONTROL 04159000 * OUTBOUND PAB */ 04160000 * 2 ACDASFQ PTR(31), /* ADDR 1ST FMCB ON DFASY ANY Q */ 04161000 * 2 ACDREFQ PTR(31); /* ADDR 1ST FMCB ON RESP ANY Q */ 04162000 *DCL ACDID BIT(8) CONSTANT('0F'X); /* VTAM DATA EXTENT BLOCK ID */ 04163000 * /* DYNAMIC PAB 1K633 */ 01S1367 04164000 * /* 1K0997 JAN 20, 1973 MB */ 01S1367 04165000 * /* 1K1142 MAR 03, 1973 MB */ 01S1367 04166000 * DCL 1 ISTDYPAB BDY(DWORD) BASED, /* LEVEL 1 DECLARE 1K633 */ 01S1367 04167000 * 2 DYPTYPE CHAR(1), /* CONTROL BLOCK TYPE CODE 1K633 */ 01S1367 04168000 * 2 DYPLNGTH PTR(8), /* CONTROL BLOCK LENGTH (BYTES) 1K633 */ 04169000 * 2 DYPFLGS CHAR(2), /* FLAGS 1K633 */ 01S1367 04170000 * 2 DYPCHAIN PTR(31), /* CHAIN POINTER 1K633 */ 01S1367 04171000 * 2 DYPTSKID PTR(31), /* TASKID OR PTR TO PSS TABLES 1K633 */ 04172000 * 2 DYPRSV01 PTR(31), /* RESERVED TO PRESERVE ALIGNMENT 04173000 * 1K0997 */ 04174000 * 2 DYPPAB CHAR(LENGTH(ISTPAB)) BDY(DWORD); /* LENGTH OF 1K0997 04175000 * PAB */ 04176000 *DCL DYTYP BIT(8) CONSTANT ('11'X); /* TYPE 1K1142 */ 04177000 */* RPL HEADER * 04178000 */* REVISIONS 006 04/09/75 * 04179000 *DCL RPHPTR PTR(31) REGISTER(1) RESTRICTED; 01S1369 04180000 *DCL 1 ISTRPH BDY(WORD) BASED(RPHPTR), 01S1370 04181000 * 2 RPHCNTL FIXED(32), /* CONTROL INFORMATION * 04182000 * 3 RPHTYPE CHAR(1), /* CONTROL BLOCK TYPE * 04183000 * 3 RPHLNGTH PTR(8), /* LENGTH IN BYTES * 04184000 * 3 RPHFLAGS BIT(8), /* SYSTEM DEPENDENT FLAGS * 04185000 * 4 RPHOGIND BIT(1), /* OPEN GATE INDICATOR * 04186000 * 4 RPHSPGIN BIT(1), /* SPECIAL GATE OPEN IND. * 04187000 * 4 RPHAPTYP BIT(1), /* APS IS A USER EXIT * 04188000 * 5 RPHAUTEX BIT(1), /*EXIT TO AUTHORIZED USER VS2 * 04189000 * 4 RPHSMQ BIT(1), /* INDICATOR IF RPH IS TO BE * 04190000 * /* QUEUED * 04191000 * 4 RPHSMTYP BIT(1), /* REQUEST TYPE IS BUFFER OR * 04192000 * /* DOUBLE-WORD * 04193000 * 4 RPHSMCLR BIT(1), /* INDICATOR IF BUFFER TO BE * 04194000 * /* CLEARED * 04195000 * 4 RPHMLTCP BIT(1), /* USED BY LOCAL 3270 SUPPORT * 04196000 * /* WHEN BUILDING MULTIPLE CHAN * 04197000 * /* PROGRAM * 04198000 * 4 RPHFSTLC BIT(1), /* USED BY LOCAL 3270 SUPPORT * 04199000 * /* TO INDICATE FIRST LCCW * 04200000 * 5 RPHFNFLG BIT(1), /* LCCW SET FUNCTION FLAGS * 04201000 * 3 RPHFLGB BIT(8), /* SECOND FLAG BYTE * 04202000 * 4 RPHLOCK BIT(1), /* LOCKING OPTION * 04203000 * 4 RPHBSSP BIT(1), /* SYSTEM SERVICES PROGRESS * 04204000 * 4 RPHFBAPS BIT(1), /* STG. OBTAINED BY APS * 04205000 * 4 RPHPGCMP BIT(1), /* BIT ON INDICATES RESOURCE * 04206000 * /* MGR HAS COMPLETED UNLOCK * 04207000 * 4 RPHNRSAV BIT(1), /* DO NOT SAVE ON ACTIVATE * 04208000 * 4 RPHRLCRA BIT(1), /* RPH CAN BE RELEASED * 04209000 * /* WHEN PURGE COMPLETE * 04210000 * 4 * BIT(2), /* RESERVED * 04211000 * 2 RPHRPHA PTR(31), /* ADDR.OF NEXT RPL HEADER * 04212000 * 3 RPHGATE BIT(1), /* GATING FLAG * 04213000 * 3 * BIT(7), /* RESERVED * 04214000 * 3 RPHRPHAP PTR(24), 01S1370 04215000 * 2 RPHTSKID PTR(31), /* TASK IDENTIFICATION * 04216000 * /* OR ADDR.OF APS TABLE * 04217000 * 3 * CHAR(3), /* RPH TSK ID * 04218000 * 3 RPHTIK PTR(8), /* TIK * 04219000 * 2 RPHDVTA PTR(31), /* ADDR.OF CURRENT DVT * 04220000 * 2 RPHRESMA PTR(31) BDY(WORD), /* TPWAIT-POST INFO */ 01S1370 04221000 * 3 RPHWPFLG CHAR(1), /* WAIT-POST FLAGS */ 01S1370 04222000 * 4 RPHRSKEY BIT(4), /* STORAGE PROTECT KEY TO RESUME 04223000 * PROCESSING * 04224000 * 4 RPHWT BIT(1), /* WAIT BIT */ 01S1370 04225000 * 4 RPHPT BIT(1), /* POST BIT */ 01S1370 04226000 * 4 RPHPURGE BIT(1), /* RPH FLAGGED BY RECOVERY */ 04227000 * /* TO BE PURGED BY PSS */ 04228000 * /* VS/2 ONLY */ 04229000 * 4 RPHRSV01 BIT(1), /* RESERVED */ 04230000 * 3 RPHRESUM PTR(24), /* RESUME ADDRESS */ 01S1370 04231000 * 2 RPHPABOF PTR(8), /* OFFSET OF PAB IN CONTROL BLK* 04232000 * 2 RPHMAJCB PTR(24), /* ADDR.OF MAJOR CONTROL BLOCK * 04233000 * 2 RPHWEA PTR(31), /* ADDR.OF WORK ELEMENT * 04234000 * 3 RPHCSPA PTR(31), /* ADDR OF ISTCSP * 04235000 * 4 RPHWEGT BIT(1), /* GATE FOR WORK ELEMENT PROC. * 04236000 * 2 RPHSRPRM PTR(31), /* SERVICE ROUTINE PARM.FIELD * 04237000 * 3 RPHSRP12 FIXED(15), /* COUNT OF Q'ED SMS REQUESTS * 04238000 * 3 RPHSRP34 FIXED(15), /* SIZE OF Q'ED SMS REQUESTS * 04239000 * 2 RPHCRR PTR(31), /* ADDR.OF COMPONENT RECOVERY * 04240000 * /* RECORD * 04241000 * 2 RPHPABQA PTR(31), /* PAB QUEUE ADDRESS * 04242000 * 3 RPHPABFG CHAR(1), /* FLAG BYTE CARRIED FROM PAB * 04243000 * 3 RPHPABQP PTR(24), /* POINTER TO QUEUE OF PAB'S * 04244000 * 2 RPHWORK CHAR(64) BDY(WORD), /* 16 WORD WORK AREA * 04245000 * 3 RPHSAVE1 FIXED(31), /* * 04246000 * 4 RPHSBYTE CHAR(1), /* 1-BYTE SAVE FIELD * 04247000 * 4 RPHSBITS BIT(8), /* SAVE FIELD FOR FLAG BYTE * 04248000 * 5 RPHSBIT1 BIT(1), /* 1ST SAVE FIELD * 04249000 * 5 RPHSBIT2 BIT(1), /* 2ND SAVE FIELD * 04250000 * 5 RPHSBIT3 BIT(1), /* 3RD SAVE FIELD * 04251000 * 5 RPHSBIT4 BIT(1), /* 4TH SAVE FIELD * 04252000 * 5 RPHSBIT5 BIT(1), /* 5TH SAVE FIELD * 04253000 * 5 RPHSBIT6 BIT(1), /* 6TH SAVE FIELD * 04254000 * 5 RPHSBIT7 BIT(1), /* 7TH SAVE FIELD * 04255000 * 5 RPHSBIT8 BIT(1), /* 8TH SAVE FIELD * 04256000 * 4 RPHSHALF FIXED(15), /* HALF WORD SAVE AREA * 04257000 * 3 RPHSAVE2 FIXED(31), /* * 04258000 * 3 RPHSAVE3 FIXED(31), /* * 04259000 * 3 RPHSAVE4 FIXED(31), /* * 04260000 * 3 RPHSAVE5 FIXED(31), /* * 04261000 * 3 RPHSAVE6 FIXED(31), /* * 04262000 * 3 RPHSAVE7 FIXED(31), /* * 04263000 * 3 RPHSAVE8 FIXED(31), /* * 04264000 * 3 RPHSAVE9 FIXED(31), /* * 04265000 * 3 RPHSAV10 FIXED(31), /* * 04266000 * 3 RPHSAV11 FIXED(31), /* * 04267000 * 3 RPHSAV12 FIXED(31), /* * 04268000 * 3 RPHSAV13 FIXED(31), /* * 04269000 * 3 RPHSAV14 FIXED(31), /* * 04270000 * 3 RPHSAV15 FIXED(31), /* * 04271000 * 3 RPHSAV16 FIXED(31), /* * 04272000 * 2 RPHNEXPO PTR(31); /* ADDR.NEXT RPH TO BE POSTED * 04273000 * DCL RPTYPE BIT(8) CONSTANT('01'X); /* TYPE CODE FOR RPH * 04274000 * DCL RPHWT0 BIT(32) CONSTANT('F7FFFFFF'X); /* TURN RPHWT OFF */ 04275000 * DCL RPHWT1 BIT(32) CONSTANT('08000000'X); /* TURN RPHWT ON */ 04276000 * DCL RPHPT0 BIT(32) CONSTANT('FBFFFFFF'X); /* TURN RPHPT OFF */ 04277000 * DCL RPHPT1 BIT(32) CONSTANT('04000000'X); /* TURN RPHPT ON */ 04278000 * DCL RPHPABQ1 BIT(24) CONSTANT('000000'X); /* TURN RPHPBQ GATE */ 04279000 */* REVISIONS 03/04/77 * 04280000 *DCL ATCLCPTR PTR LOCATION(1032); /* POINTER TO ATCVT * 04281000 *DCL 1 ISTATCVT BDY(DWORD) BASED, 01S1378 04282000 * 2 ATCCOM BDY(WORD), /* SYSTEM INDEPENDENT FIELDS * 04283000 * 3 ATCSTAT CHAR(4), /* VTAM STATUS INDICATORS * 04284000 * 4 ATCSTAT1 CHAR(1), /* VTAM STATUS BYTE 1 * 04285000 * 5 ATCSTART BIT(1), /* VTAM IS STARTING * 04286000 * 5 ATCACTIV BIT(1), /* VTAM IS ACTIVE * 04287000 * 5 ATCSNHLT BIT(1), /* VTAM SESSION HALT * 04288000 * 5 ATCQKHLT BIT(1), /* VTAM QUICK HALT * 04289000 * 5 ATCNETSL BIT(1), /* NETSOL=YES SPECIFIED ON CMD * 04290000 * 5 ATCINHLT BIT(1), /* INTERNAL VTAM HALT QUICK * 04291000 * 5 ATCMDHLT BIT(1), /* VTAM CMD PROC HALTED * 04292000 * 5 * BIT(1), /* RESERVED * 04293000 * 4 ATCSTFLG BIT(8), /* STORAGE MANAGEMENT FLAGS * 04294000 * 5 ATCHSDMF BIT(1), /* SYSTEM SLOW DOWN FLAG * 04295000 * 4 ATCPOFLG BIT(8), /* PROGRAM OPERATOR * 04296000 * /* INTERFACE FLAGS * 04297000 * 5 ATCPOUNS BIT(1), /* APPLICATION AUTHORIZED TO * 04298000 * /* RECEIVE UNSOLICITED MESSAGES* 04299000 * /* 1 = YES * 04300000 * 5 * BIT(7), /* RESERVED * 04301000 * 4 ATCSTAT4 CHAR(1), /* VTAM STATUS BYTE 4 * 04302000 * 5 ATCPRTAT BIT(1), /* 1 = TRACE PRINT ACTIVE, 04303000 * 0 = NOT ACTIVE * 04304000 * 5 ATCTPRT BIT(1), /* WHEN 1, TPRINT IN PROCESS * 04305000 * 5 ATCMTST BIT(1), /* WHEN 1, MODIFY TEST IN 04306000 * PROCESS * 04307000 * 5 ATCNCSD BIT(1), /* NCS QUIESCED DURING HALT * 04308000 * 5 ATCVTTRC BIT(1), /* VTAM TRACE, 1=ACTIVE * 04309000 * 5 ATCRSV04 BIT(3), /* RESERVED * 04310000 * 3 ATCAPI PTR(31), /* ADDR OF API ROUTINE * 04311000 * 3 ATCDCFRR PTR(31), /* POINTER TO FRR OF CONTROL 04312000 * LAYER,INITIALIZED BY OPENDST* 04313000 * 3 ATCRDT PTR(31), /* POINTER TO FIRST RDT * 04314000 * 3 ATCSRT PTR(31), /* POINTER TO SRT DIRECTORY * 04315000 * 3 ATCASCHD PTR(31), /* POINTER TO AP SCHEDULER * 04316000 * 3 ATCECMOD CHAR(4), /* ECB FOR MODIFY COMMAND PROC.* 04317000 * 3 ATCMODQ PTR(31), /* POINTER FOR OUTPUT QUEUE * 04318000 * /* FOR MODIFY COMMAND * 04319000 * 3 ATCECHLT CHAR(4), /* ECB FOR HALT COMMAND * 04320000 * 3 ATCHALTQ PTR(31), /* POINTER TO OUTPUT QUEUE * 04321000 * /* FOR HALT COMMAND * 04322000 * 3 ATCECVRY CHAR(4), /* ECB FOR VARY COMMAND PROC. * 04323000 * 3 ATCVARYQ PTR(31), /* POINTER TO OUTPUT QUEUE * 04324000 * /* FOR VARY COMMAND * 04325000 * 3 ATCECDSP CHAR(4), /* ECB FOR DISPLAY COMMAND * 04326000 * 3 ATCDSPLQ PTR(31), /* POINTER TO OUTPUT QUEUE * 04327000 * /* FOR DISPLAY COMMAND * 04328000 * 3 ATCOCHA PTR(31), /* POINTER TO OCT HEADER * 04329000 * 3 ATCECSES CHAR(4), /* ECB TO HALT SESSION MODE * 04330000 * 3 ATCECVRQ CHAR(4), /* ERP ECB FOR VARY REQ. INFO. * 04331000 * /* REQUEST NOTIFICATION * 04332000 * 3 ATCVPARM PTR(31), /* ADDR OF VARY PARAMETERS * 04333000 * 3 ATCECOPC CHAR(4), /* ECB TOINDICATE OPERATOR * 04334000 * /* CONTROL PROCESSING COMPLETE * 04335000 * 3 ATCECNET CHAR(4), /* ERP ECB FOR NETWORK * 04336000 * /* CONFIGURATION REQUEST * 04337000 * 3 ATCECPRM PTR(31), /* POINTER TO QAB FOR ERP'S * 04338000 * /* ECB PARAMETERS * 04339000 * 3 ATCHLTMS PTR(31), /* POINTER TO HALT COMMAND * 04340000 * /* OR HALT RETURN MESSAGE * 04341000 * 3 ATCFSB PTR(31), /* PTR TO FEEDBACK STATUS * 04342000 * /* BLOCK * 04343000 * 3 ATCFRSCH PTR(31), /* POINTER TO FEEDBACK * 04344000 * /* ROUTINE SCHEDULER * 04345000 * 3 ATCRDTH PTR(31), /* POINTER RDT HEADER * 04346000 * 3 ATCACCTA PTR(31), /* POINTER TO INSTALLATION * 04347000 * /* ACCOUNTING ROUTINE * 04348000 * 3 ATCAUTHA PTR(31), /* POINTER TO INSTALLATION * 04349000 * /* AUTHORISATION ROUTINE * 04350000 * 3 ATCPTCHA PTR(31), /* PTR TO VTAM PATCH AREA * 04351000 * 3 ATCCONFT PTR(31), /* POINTER TO VTAM * 04352000 * /* CONFIGURATION TABLE * 04353000 * 3 ATCFDVT PTR(31), /* PTR TO FIRST DVT FOR O/C * 04354000 * 3 ATCFEPT PTR(31), /* PTR TO FIRST EPT FOR O/C * 04355000 * 3 ATCDVTPT PTR(31), /* ADDR OF LOAD MOD FOR * 04356000 * /* TYPE=VTAM TRACING * 04357000 * 3 ATCBPDA PTR(31), /* PTR TO BUFFER POOL DIRECTORY* 04358000 * 3 ATCADD PTR(31), /* POINTER TO ADD PROCEDURE * 04359000 * 3 ATCREMOV PTR(31), /* POINTER TO REMOVE PROCEDURE * 04360000 * 3 ATCIOTRC PTR(31), /* POINTER TO I/O TRACE * 04361000 * /* PROCEDURE * 04362000 * 4 ATCTHTRC PTR(31), /* ADDR OF TH TRACE ROUTINE * 04363000 * 5 ATCTPBUF PTR(31), /* TPIOS BUFFER TRACE(ISTRARTP)* 04364000 * 3 ATCBFTRC PTR(31), /* PTR TO BUFFER TRACE * 04365000 * /* PROCEDURE * 04366000 * 3 ATCFBRPH PTR(31), /* ADDR OF FEEDBACK PROC RPH * 04367000 * 3 ATCBLDLA PTR(31), /* ADDR OF BLDL ROUTINE * 04368000 * 3 ATCALOAD PTR(31), /* ADDR OF ALOAD ROUTINE * 04369000 * 3 ATCREADA PTR(31), /* ADDR OF SOURCE READ ROUTINE * 04370000 * 3 ATCGTSTR PTR(31), /* ADDR OF GETSTOR ROUTINE * 04371000 * 3 ATCFRSTR PTR(31), /* ADDR OF FREESTOR ROUTINE * 04372000 * 3 ATCSTMA PTR(31), /* ADDR OF SM INITIALIZATION * 04373000 * /* ROUTINE * 04374000 * 3 ATCACDA PTR(31), /* ADDR OF FIRST ACDEB * 04375000 * 3 ATCSMRQ PTR(31), /* ADDR OF REQUEST STORAGE * 04376000 * /* ROUTINE * 04377000 * 3 ATCSMQU PTR(31), /* ADDR OF QUEUE REQUEST RTNE 04378000 * - DOS ONLY * 04379000 * 3 ATCSMRS PTR(31), /* ADDR OF RELEASE STORAGE * 04380000 * /* ROUTINE * 04381000 * 3 ATCSMRC PTR(31), /* ADDR OF RECOVER STORAGE * 04382000 * /* ROUTINE - DOS ONLY * 04383000 * 3 ATCSMBQ PTR(31), /* PTR TO Q'ED REQ. SMS RTN. * 04384000 * 3 ATCFIRA PTR(31), /* ADDR OF FEEDBACK INITIATION * 04385000 * /* RPH * 04386000 * 3 ATCSRTAD PTR(31), /* PTR TO SRTADD ROUTINE * 04387000 * 3 ATCSRTDF PTR(31), /* PTR TO SRTDELE ROUTN * 04388000 * 3 ATCDCC60 PTR(31), /* PTR TO ISTDCC60 - CTL. LAYER 04389000 * MOVE TO USER AREA * 04390000 * 3 ATCDCC61 PTR(31), /* PTR TO ISTDCC61 - CTL. LAYER 04391000 * MOVE FIXED TO PAGABLE * 04392000 */* BEGIN 'ANY' DVT * 04393000 * 3 ATCNERST PTR(31), /* PTR TO ISTDCC00 - REQUEST-ST* 04394000 * 3 ATCNERCV PTR(31), /* PTR TO ISTRCC21-RECEIVE OB * 04395000 * 3 ATCNERNE PTR(31), /* PTR TO ISTDCC25 - READ-ANY * 04396000 * 3 ATCNERFN PTR(31), /* PTR TO ISTDCC02 - REQUEST-FN * 04397000 */* END 'ANY' DVT * 04398000 * 3 ATCAPOST PTR(31), /* PTR TO VTAM POST ROUTINE * 04399000 * 3 ATCVTMID CHAR(2), /* HOST MAJOR NODE I.D. * 04400000 * 3 ATCRSV11 CHAR(2), /* RESERVED * 04401000 * 3 ATCRCC63 PTR(31), /* HSKPANYQ POINTER * 04402000 * 3 ATCRCC26 PTR(31), /* SEND RESPONSE POINTER * 04403000 * 3 ATCRCC65 PTR(31), /* SET RPL POINTER * 04404000 * 3 ATCNESAL PTR(31), /* PTR TO ISTDCC24 - SOLICIT-ALL* 04405000 * 3 ATCNERAP PTR(31), /* PTR TO ISTDCC85 - READ ANY 04406000 * PURGE * 04407000 * 3 ATCACTRM FIXED(15), /* COUNT OF ACTIVE TERMINALS * 04408000 * 3 ATCCIDM BIT(16), /* CID MASK * 04409000 * 3 ATCMSGSP BIT(8), /* RESERVED FOR MESAGE SURPRESSION * 04410000 * 2 ATCMAXID PTR(8), /* MAXIMUM NUMBER OF MAJOR NODES, 0 = 04411000 * NUMBER OF ENTRIES IN THE MNT * 04412000 * 2 ATCRSV16 CHAR(2), /* NOT USED * 04413000 * 2 ATCMNT PTR(31), /*PTR TO MAJOR NODE TABLE -SET BY SYS. 04414000 * DEF. REF. BY ISTSDCCB (CBDEF), 01S1378 04415000 * ISTSDCCI (CINDEXY) * 04416000 * 2 ATCCDADD PTR(31), /*PTR TO CIDADD ROUTINE ISTSDCCA 01S1378 04417000 * REF. BY CIDCTL MACRO * 04418000 * 2 ATCCDDEL PTR(31), /*PTR TO CIDDEL ROUTINE ISTSDCCD 01S1378 04419000 * REF. BY CIDCTL MACRO * 04420000 * 2 ATCCDFND PTR(31), /*PTR TO CIDFND ROUTINE IATSDCCF 01S1378 04421000 * REF. BY CIDCTL MACRO * 04422000 * 2 ATCESC01 PTR(31), /*PTR TO ESC01 * 04423000 * 2 ATCESC02 PTR(31), /*PTR TO ESC02 * 04424000 * 2 ATCCSMR PTR(31), /* PTR TO CONNECTION SERVICES * 04425000 * /* MASTER ROUTINE * 04426000 * 3 ATCCSMA PTR(31), /* PTR TO CONNECTION SERVICES 04427000 * MASTER ROUTINE * 04428000 * 2 ATCOCRT PTR(31), /* PTR TO OPEN/CLOSE ROUTINE * 04429000 * 2 ATCUEP PTR(31), /* POINTER TO USER EXIT * 04430000 * 2 ATCSHRTN CHAR(8), /* NAME OF VTAM SHARED RTN * 04431000 * /* TO BE LOADED * 04432000 * 2 ATCSHRFG BIT(8), /* ATTRIBUTE FLAGS * 04433000 * 3 ATCLAST BIT(1), /* INDICATE HTIS IS LAST MODULE * 04434000 * 2 ATCXRANG CHAR(1), /* NUMBER OT BITS IN X-VALUE 04435000 * PORTION OF CID * 04436000 * 2 ATCSAF CHAR(2), /* SUB AREA ADDRESS FIELD * 04437000 * 2 ATCEPA PTR(31), /* ENTRY POINT ADDR OF LOADED * 04438000 * 2 ATCALERT PTR(31), /* POINTER TO ALERT-ROUTINE 01S1378 04439000 * ISTSDCAL * 04440000 * 2 ATCDVLOD PTR(31), /* PTR TO ISTSDCOD * 04441000 * 2 ATCTRCPT PTR(31), /* POINTER TO TRACE PARM LIST * 04442000 * 2 ATCDVT PTR(31), /* POINTER TO FIRST DVT ON CHAIN * 04443000 * 2 ATCEPT PTR(31), /* POINTER TO FIRST EPT ON CHAIN * 04444000 * 2 ATCMSGP PTR(31), /* POINTER TO TPMSG PROCESSOR * 04445000 * 2 ATCMSGM PTR(31), /* POINTER TO TPMSG - MESSAGE 04446000 * CSECT * 04447000 * 2 ATCTRPAB PTR(31), /* ADDRESS OF TRACE WRITER PAB * 04448000 * 2 ATCVTLOD PTR(31), /* ADDR OF VTAM LOAD LIST * 04449000 * 2 ATCECPRT CHAR(4), /* ECB FOR TRACE FILE PRINT * 04450000 * 2 ATCZDVTB PTR(31), /* ADDRESS OF ISTZCFBI * 04451000 * 2 ATCECTLP CHAR(4), /* TOLTEP ECB * 04452000 * 2 ATCRVCHS CHAR(8), /* RESERVED * 04453000 * 2 ATCCRME PTR(31), /* VARY PSS CONTROL MECHANISM * 04454000 * 2 ATCHPGM, /* BUFFER INFORMATION */ 04455000 * 3 ATCHBFNO FIXED(15), /* NUMBER OF BUFFS FOR CHANNEL */ 04456000 * 3 ATCHBSIZ FIXED(15), /* BUFFER SIZE IN BYTES */ 04457000 * 2 ATCDEBCH PTR(31), /* CLOSE DEB CHAIN PTR */ 04458000 * 2 ATCTODVT PTR(31), /* THE TOLTEP DVT PTR POINTED 04459000 * TO BY 3RD WORD OF PAB */ 04460000 * 2 ATCADEL PTR(31), /* A DELETE ROUTINE ADDRESS */ 04461000 * 2 ATCCDPTR PTR(31), /* PTR TO ISTOCCCD - DOS ONLY */ 04462000 * 2 ATCLDNCS PTR(31), /* PTR TO NCSPL FOR LOAD/DUMP */ 04463000 * 2 ATCLDECB BIT(32), /* ECB FOR LOAD/DUMP SUBTASK */ 04464000 * 2 ATCAPCR5 PTR(31), /* POINTER TO ISTINCR5 */ 04465000 * 2 ATCRSV69 PTR(31), /* RESERVED TO SYNCH WITH DOS */ 04466000 * 2 ATCNODEL CHAR(8), /* VSAM DATA SET NAME */ 04467000 * 2 ATCNODDS PTR(31), /* POINTER TO RPL */ 04468000 * 2 ATCONFIG CHAR(8), /* START VTAM CONFIG = PARAMETER */ 04469000 * 2 ATCRSV99 CHAR(4), /* RESERVED FOR LATER POINTERS */ 04470000 * 2 ATCAP33 PTR(31), /* PTR TO ISTAPC33 */ 04471000 * 2 ATCAP35 PTR(31), /* PTR TO ISTAPC35 */ 04472000 * 2 ATCAP36 PTR(31), /* PTR TO ISTAPC36 */ 04473000 * 2 ATCDVTLK CHAR(LENGTH(ISTLOK)), /* LOCK WORD FOR DVT LOCK */ 04474000 * 2 ATCCDFIN PTR(31), /* POINTER TO ISTSDCRR */ 04475000 * 2 ATCCDFDN PTR(31), /* POINTER TO ISTSDCCN */ 04476000 * 2 ATCVOCLK CHAR(LENGTH(ISTLOK)), /* VOCLOCK LOCK */ 04477000 * 2 ATCRDTLK CHAR(LENGTH(ISTLOK)), /* RDTLOCK LOCK */ 04478000 * 2 ATCRSV97 PTR(31), /* DWORD ALIGNMENT */ 04479000 * 2 ATCVPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR VARY 04480000 * UNDER PSS CONTROL */ 04481000 * 2 ATCPGPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* ERP PAB FOR 04482000 * PURGE */ 04483000 * 2 ATCDLRPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* DUMP LOAD & 04484000 * RESTART PAB */ 04485000 * 2 ATCCCLAD PTR(31), /* ADDRESS OF VARY ERP (ISTINCCL)*/ 04486000 * 2 ATCCDLAD PTR(31), /* ADDRESS OF VARY DUMP,LD RSTRT 04487000 * (ISTINCDL) */ 04488000 * 2 ATCOCCOB PTR(31), /* ADDRESS ISTOCCOB */ 04489000 * 2 ATCOCCCB PTR(31), /* ADDRESS ISTOCCCB */ 04490000 * 2 ATCTIPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 04491000 * FOR ISTOLTP */ 04492000 * 2 ATCTCIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 04493000 * FOR TOLTEP CLIP */ 04494000 * 2 ATCVTIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 04495000 * FOR TOLTEP-VTAM INTERFACE*/ 04496000 * 2 ATCTCLOM PTR(31), /* ADDR TOLTEP CLOP PROC */ 04497000 * 2 ATCTCLIM PTR(31), /* ADDR TOLTEP CLIP PROC */ 04498000 * 2 ATCVTINM PTR(31), /* ADDR TOLTEP-VTAM INTF PROC */ 04499000 * 2 ATCTACB PTR(31), /* TOLTEP ACB */ 04500000 * 2 ATCRSV10 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* RESERVED */ 04501000 * 2 ATCPTR00 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB */ 04502000 * 2 ATCCFEAD PTR(31), /* ADDR OF ISTINCFE */ 04503000 * 2 ATCVLCNT CHAR(4) BDY(HWORD), /* VARY DEVICE ONLINE COUNTS*/ 04504000 * 3 ATCRNCNT PTR(16), /* 370X COUNT */ 04505000 * 3 ATCLCLCT PTR(16), /* 3270 COUNT */ 04506000 * 2 ATCS49XI PTR(31), /* ADDRESS OF ISTPICXI */ 04507000 * 2 ATCS49XL PTR(31), /* ADDRESS OF ISTPICXL */ 04508000 * 2 ATCPODVT PTR(31), /* PTR TO PROGRAM OPERATOR DVT*/ 04509000 * 2 ATCRNO, 01S1378 04510000 * 3 * CHAR(1), 01S1378 04511000 * 3 ATCPOIA PTR(24), /* PTR TO PROGRAM OPERATOR */ 04512000 * /* INTERFACE AREA */ 04513000 * 2 ATCSOPD CHAR(8) BDY(WORD), /* SESSION CONTROL */ 04514000 * 3 ATCSEC01 PTR(31), /* OUTBOUND PROCESSING */ 04515000 * 3 ATCSEC10 PTR(31), /* DVT */ 04516000 * 2 ATCSIPD CHAR(12) BDY(WORD),/* SESSION CONTROL */ 04517000 * 3 ATCSEC21 PTR(31), /* INBOUND PROCESSING */ 04518000 * 3 ATCSEC30 PTR(31), /* FEEDBACK */ 04519000 * 3 ATCSEC40 PTR(31), /* DVT */ 04520000 * 2 ATCSECST CHAR(4) BDY(WORD),/* SESSION CONTROLSESS TERM */ 04521000 * 3 ATCSEC51 PTR(31), /* RECOVERY DVT */ 04522000 * 2 ATCNMCTR FIXED(15), /* NAME COUNTER */ 04523000 * 2 ATCSTAT2 BIT(8), /* TRACE FLAGS */ 04524000 * 3 ATCTRAPI BIT(1), /* API */ 04525000 * 3 ATCTRESC BIT(1), /* ESC */ 04526000 * 3 ATCTRPSS BIT(1), /* PSS */ 04527000 * 3 ATCTRLOK BIT(1), /* LOCKS */ 04528000 * 3 ATCTRSMS BIT(1), /* SMS */ 04529000 * 3 * BIT(3), /* RESERVED */ 04530000 * 2 * BIT(8), /* RESERVED */ 04531000 * 2 ATCSRTAB PTR(31), /* SEARCH LOGON MODE TABLE */ 04532000 * /* RTN ADDRESS (ISTINCSH) */ 04533000 * 2 ATCUSSPT PTR(31), /* DEFAULT USS DEFINITION */ 04534000 * /* TABLE ADDRESS (ISTINCDT) */ 04535000 * 2 ATCMODTB PTR(31), /* DEFAULT SYSTEM LOGON MODE */ 04536000 * /* TABLE ADDRESS (ISTINCLM) */ 04537000 * 2 ATCINCW3 PTR(31), /* ADDRESS OF ISTINCW3 */ 04538000 * 2 ATCIOECB PTR(31), /* ECB USED BY IOS - */ 04539000 * /* POINTED TO BY IOBECBPT */ 04540000 * 2 ATCVDPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 01S1378 04541000 * /* SSCP COMMAND PROCESSING PAB */ 04542000 * 2 ATCVFPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 01S1378 04543000 * /* SSCP FRONT END PAB */ 04544000 * 2 ATCVDLOK CHAR(LENGTH(ISTLOK)), /* SSCP SERIALIZATION LOCK */ 04545000 */* END OF COMMON AREA */ 04546000 */* VS1/VS2 COMMON CODE. */ 04547000 * 2 ATCVTBAM CHAR(4), 01S1378 04548000 * 3 * CHAR(3), /* RESERVED * 04549000 * 3 * CHAR(1), /* FLAGS * 04550000 * 4 ATCVTMAB BIT(1) ABNL, /* ABEND IN VTAM JOBSTEP * 04551000 * 4 * BIT(7), /* RESERVED * 04552000 * 2 ATCAOSM BDY(DWORD), 01S1378 04553000 */* * 04554000 * 3 ATCSRBRT PTR(31), /* POINTER TO ROUTINE UNDER * 04555000 * /* SRB CONTROL * 04556000 * 3 ATCGSRBQ PTR(31), /* READY QUEUE FOR GLOBAL SRB'S* 04557000 * 4 ATCGSRBG BIT(8), /* READY QUEUE GATE BYTE * 04558000 * 5 ATCGSRBF BIT(1), /* READY QUEUE GATE BIT * 04559000 * 3 ATCPRPH PTR(31), /* PTR TO PREALLOCATED RPH * 04560000 * 3 ATCCMTCB PTR(31), /* PTR TO COMMUNICATIONS TASK * 04561000 * /* TCB * 04562000 * 3 ATCAP11 PTR(31), /* PTR TO ISTAPC11 * 04563000 * 3 ATCAP12 PTR(31), /* PTR TO ISTAPC12 * 04564000 * 3 ATCAP31 PTR(31), /* PTR TO ISTAPC31 * 04565000 * 3 ATCAP32 PTR(31), /* PTR TO ISTAPC32 * 04566000 * 3 ATCAP34 PTR(31), /* PTR TO ISTAPC34 * 04567000 * 3 ATCAP52 PTR(31), /* PTR TO ISTAPC52 * 04568000 * 3 ATCAP53 PTR(31), /* PTR TO ISTAPC53 * 04569000 * 3 ATCAP54 PTR(31), /* PTR TO ISTAPC54 * 04570000 * 3 ATCAP57 PTR(31), /* PTR TO ISTAPC57 * 04571000 * 3 ATCAP58 PTR(31), /* PTR TO ISTAPC58 * 04572000 * 3 ATCAP61 PTR(31), /* PTR TO ISTAPC61 * 04573000 * 3 ATCAP63 PTR(31), /* PTR TO ISTAPC63 * 04574000 * 3 ATCAP64 PTR(31), /* PTR TO ISTAPC64 * 04575000 * 3 ATCZFSVT PTR(31), /* TPIOS FIXED SRVICES VCTR TAB* 04576000 * 3 ATCZPSVT PTR(31), /* TPIOS PAGBL SRVCES VCTR TABL* 04577000 * 3 ATCICNCB PTR(31), /* HEAD OF ICNCB QUEUE * 04578000 * 3 ATCZDVT1 PTR(31), /* TPIOS SLODWN RECOVRY PRCSR * 04579000 * 3 ATCZDVT3 PTR(31), /* 370X FEEDBACK STAT CNTRL RTR* 04580000 * 3 ATCZDVT4 PTR(31), /* OPERATOR MESSAGE SCHEDULER * 04581000 * 3 ATCZDVT6 PTR(31), /* DIALOGUE SCHEDULER (INBOUND)* 04582000 * 3 ATCAP65 PTR(31), /* PTR TO ISTAPC65 */ 04583000 * 3 ATCICAPP CHAR(20) BDY(WORD), /* 3705 APPENDAGE VECTOR * 04584000 * 4 ATCCDRPH PTR(31), /* ADDR CLOSE DEB RPH 01S1378 04585000 * (DUMMY EOA APP.) */ 04586000 * 4 ATCZSIOA PTR(31), /* ADDR 3705 SIO APPENDAGE */ 04587000 * 4 ATCCDTCB PTR(31), /* VTAM TCB (DUMMY PCI APP.) */ 04588000 * 4 ATCZCEA PTR(31), /* ADDR 3705 CHANNEL END 01S1378 04589000 * APPENDAGE */ 04590000 * 4 ATCZAEA PTR(31), /* ADDR 3705 CHANNEL END 01S1378 04591000 * APPENDAGE */ 04592000 * 3 ATCLDAPP CHAR(20) BDY(WORD), /* LOCAL 3270 APPENDAGE 04593000 * VECTOR */ 04594000 * 4 ATCCDTID PTR(31), /* TASK ID OF VTAM 01S1378 04595000 * (DUMP EOE) */ 04596000 * 4 ATCSMFRR PTR(31), /* ADDR OF SMS FRR 01S1378 04597000 * (DUMMY SIOA) */ 04598000 * 4 ATCRSV17 PTR(31), /* RESERVED FOR ALIGNMENT */ 04599000 * 4 ATCZLCEA PTR(31), /* ADDR 3270 CHANNEL END 01S1378 04600000 * APPENDAGE */ 04601000 * 4 ATCZLAEA PTR(31), /* ADDR 3270 CHANNEL END 01S1378 04602000 * APPENDAGE */ 04603000 * 3 ATCDAPVT CHAR(24) BDY(WORD), /* DUMMY APPENDAGE 01S1378 04604000 * VECTOR TABLE FOR LOAD/DVMMY*/ 04605000 * 4 ATCDEOEA PTR(31), /* ADDRESS OF DUMMY END 01S1378 04606000 * OF EXTENT APPENDAGE */ 04607000 * 4 ATCDSIOA PTR(31), /* ADDRESS OF DUMMY END 01S1378 04608000 * OF SIO APPENDAGE */ 04609000 * 4 ATCDPCIA PTR(31), /* ADDRESS OF DUMMY PCI 01S1378 04610000 * APPENDAGE */ 04611000 * 4 ATCDCEA PTR(31), /* ADDRESS OF CHANNEL END 04612000 * APPENDAGE */ 04613000 * 4 ATCDXCEA PTR(31), /* ADDRESS OF ABNORMAL 01S1378 04614000 * END APPENDAGE */ 04615000 * 4 ATCDAPDG CHAR(2), /* DUMMY APPENDAGE */ 04616000 * 4 ATCRSV56 CHAR(2), /* RESERVED */ 04617000 * 3 ATCZDVT7 PTR(31), /* ADDR OF RESET CLEANUP 01S1378 04618000 * (PHASE 1) * 04619000 * 3 ATCZDVT8 PTR(31), /* 3270 LOCAL TEST AND CTL 04620000 * FEEDBACK ROUTER */ 04621000 * 3 ATCZDVT9 PTR(31), /* ADDRESS OF ISTZDFKA */ 04622000 * 3 ATCZDVTA PTR(31), /* ADDRESS OF ISTZCFIA */ 04623000 * 3 ATCZDVTX PTR(31), /* ADDRESS OF TRUNK LINE 01S1378 04624000 * DEACTIVATE ROUTINE */ 04625000 * 3 ATCZLPVT PTR(31), /* ADDRESS OF ISTZPSVA */ 04626000 * 3 ATCZLFVT PTR(31), /* TPIOS 3270 LOCAL FIXED 04627000 * SERVICES VECTOR TABLE */ 04628000 * 3 ATCZPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR 04629000 * TEST AND CTL FEEDBACK ROUTER* 04630000 * 3 ATCZPAB2 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* 370X 04631000 * STATUS AND FEEDBACK ROUTER 04632000 * DYNAMIC PAB */ 04633000 * 3 ATCAP51 PTR(31), /* PTR TO ISTAPC51 */ 04634000 * 3 ATCZDFJ0 PTR(31), /* ADDR OF ISTZDFJ0 */ 04635000 * 3 ATCAP37 PTR(31), /* PTR TO ISTAPC37 */ 04636000 * 3 ATCAP38 PTR(31), /* PTR TO ISTAPC38 */ 04637000 * 3 ATCDMAPP PTR(31), /* DUMMY APPENDAGE ROUTINE */ 04638000 * /* FOR ABEND */ 04639000 * 3 ATCRPT12 PTR(31), /* RESERVED */ 04640000 * 3 ATCCRA CHAR(8) BDY(DWORD), /* AVAILABLE CRA * 04641000 * 4 ATCCRAQ PTR(31), /* QUEUE OF AVAILABLE CRAS * 04642000 * 4 ATCCRACN FIXED(31), /* COUNTS * 04643000 * 5 ATCCRARC FIXED(16), /* ENQUEUE COUNT TO ALLOW * 04644000 * /* MULTIPLE SIMUALTANIOUS * 04645000 * /* ENQUEUES AND DEQUEUES * 04646000 * 5 ATCCRAAC FIXED(16), /* COUNT OF CRAS ON AVAIL Q * 04647000 * 3 ATCSRB CHAR(8) BDY(DWORD), /* AVAILABLE SRBS * 04648000 * 4 ATCSRBQ PTR(31), /* QUE OF AVAILABLE SRBS * 04649000 * 4 ATCSRBCN FIXED(31), /* COUNTS * 04650000 * 5 ATCSRBRC FIXED(16), /* ENQUEUE COUNT TO ALLOW * 04651000 * /* MULTIPLE SIMUALTANIOUS * 04652000 * /* ENQUEUES AND DEQUEUES * 04653000 * 5 ATCSRBAC FIXED(16), /* COUNT OF SRBS ON AVAIL Q * 04654000 * 3 ATCCRPL CHAR(8) BDY(DWORD), /* AVAILABLE CRPLS * 04655000 * 4 ATCCRPLQ PTR(31), /* QUE OF AVAILABLE CRPLS * 04656000 * 4 ATCRPLCN FIXED(31), /* COUNTS * 04657000 * 5 ATCRPLRC FIXED(16), /* ENQUEUE COUNT TO ALLOW * 04658000 * /* MULTIPLE SIMUALTANIOUS * 04659000 * /* ENQUEUES AND DEQUEUES * 04660000 * 5 ATCRPLAC FIXED(16), /* COUNT OF CRPLS ON AVAIL Q * 04661000 * 3 ATCSQAFR BDY(DWORD), /* DOUBLE WORD FOR CDS 01S1378 04662000 * SQA RELEASE @VSRIUBL*/ 04663000 * 4 ATCORTBF PTR(31), /* ANCHOR FOR TO-BE- 01S1378 04664000 * FREED STG Q @VSRIUBL*/ 04665000 * 4 ATCORTBC PTR(31), /* PTR TO TCB OF TASK 01S1378 04666000 * OWNING STG Q @VSRIUBL*/ 04667000 * 5 ATCORSRB PTR(31), /* PTR TO SMS SRB @VSRIUBL*/ 04668000 * 6 ATCORQG BIT(1)ABNL, /* SRB GATE FOR SMS @VSRIUBL*/ 04669000 * 3 ATCOROBT PTR(31), /* ANCHOR FOR OBTAINED 01S1378 04670000 * STAGE @VSRIUBL*/ 04671000 * 3 ATCORFRL PTR(31), /* ADDR OF ISTORFRL @VSRIUBL*/ 04672000 * 3 ATCORFMG PTR(31), /* ADDR OF ISTORFMG @VSRIUBL*/ 04673000 * 3 ATCINFDD PTR(31), /* ADDR OF ISTINFDD @VSRIUBL*/ 04674000 * 3 ATCAIWT PTR(31), /* ADDRESS OF BYTE 01S1378 04675000 * FOLLOWING WAIT IN 01S1378 04676000 * ISTAICCK @VSRIUBL*/ 04677000 * 3 * BIT(8), /* RESERVED @VSRIUBL*/ 04678000 * 4 ATCABEN BIT(1)ABNL, /* VTAM IS ABNORMALLY 01S1378 04679000 * ENDING @VSRIUBL*/ 04680000 * 4 ATCOPKL BIT(1)ABNL, /* OPERATOR IS ENDING 01S1378 04681000 * VTAM @VSRIUBL*/ 04682000 * 4 ATCSNUF BIT(1)ABNL, /* RECURSIVE VTAM ABEND 01S1378 04683000 * DURING RSCE MGR 01S1378 04684000 * OPERATION @VSRIUBL*/ 04685000 * 4 * BIT(5), /* RESERVED @VSRIUBL*/ 04686000 * 3 * BIT(24), /* RESERVED @VSRIUBL*/ 04687000 * 3 ATCRPT27 PTR(31), /* RESERVED */ 04688000 * 3 ATCRPT28 PTR(31), /* RESERVED */ 04689000 * 3 ATCRPT29 PTR(31), /* RESERVED */ 04690000 * 3 ATCRPT30 PTR(31), /* RESERVED */ 04691000 * 3 ATCRPT31 PTR(31), /* RESERVED */ 04692000 * 3 ATCRPT32 PTR(31), /* RESERVED */ 04693000 * 3 ATCRPT33 PTR(31), /* RESERVED */ 04694000 * 3 ATCRPT34 PTR(31), /* RESERVED */ 04695000 * 3 ATCRPT35 PTR(31), /* RESERVED */ 04696000 * 3 ATCRPT36 PTR(31), /* RESERVED */ 04697000 * 3 ATCRPT37 PTR(31), /* RESERVED */ 04698000 * 3 ATCRPT38 PTR(31), /* RESERVED */ 04699000 * 3 ATCRPT39 PTR(31), /* RESERVED */ 04700000 * 3 ATCRPT40 PTR(31), /* RESERVED */ 04701000 */* END OF VS1/VS2 COMMON CODE. */ 04702000 */* START OF VS2 UNIQUE CODE. */ 04703000 * 3 ATCVTFLG BIT(32), 01S1378 04704000 * 4 ATCVTACT BIT(1), /* VTT ACTIVE */ 04705000 * 4 * BIT(31), /* RESERVED */ 04706000 * 3 ATCHLTCB PTR(31), /* ECB FOR HALTING VTAM */ 04707000 * 3 ATCATA10 PTR(31), /* PTR TO ISTATM10 */ 04708000 * 3 ATCZLAAB PTR(31), /* PTR TO ISTZLFAB */ 04709000 * 3 ATCCACXA PTR(31), /* PTR TO ISTCFCXA */ 04710000 * 3 ATCSMARA PTR(31), /* PTR TO ISTORFRA */ 04711000 * 3 ATCSMAID PTR(31), /* PTR TO ISTORFID */ 04712000 * 3 ATCTPWQA PTR(31), /* WAIT Q ANCHOR FOR TPIOS */ 04713000 * 3 ATCSMAPR PTR(31), /* PTR TO ISTORFPR */ 04714000 * 3 ATCSMABF PTR(31), /* PTR TO ISTORFBF */ 04715000 * 3 ATCPSTA PTR(31), /* ACTIVE PST QUEUE */ 04716000 * 3 ATCAPBE PTR(31), /* POINTER TO ISTAICBE */ 04717000 * 3 ATCTRMPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 01S1378 04718000 * /* PAB FOR VTAM TERM TASK */ 04719000 * 3 ATCTPSPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 01S1378 04720000 * /* PAB FOR TPIOS */ 04721000 * 3 ATCAP23 PTR(31), /* PTR TO ISTAPC23 */ 04722000 * 3 ATCAPC25 PTR(31), /* PTR TO ISTAPC25 */ 04723000 * 3 ATCAP41 PTR(31), /* PTR TO ISTAPC41 */ 04724000 * 3 ATCRCFY0 PTR(31), /* PTR TO ISTRCFY0 */ 04725000 * 3 ATCAP55 PTR(31), /* PTR TO ISTAPC55 */ 04726000 * 3 ATCAP56 PTR(31), /* PTR TO ISTAPC56 */ 04727000 * 3 ATCAPC59 PTR(31), /* PTR TO ISTAPC59 */ 04728000 * 3 ATCAP62 PTR(31), /* PTR TO ISTAPC62 */ 04729000 * 3 ATCAP66 PTR(31), /* PTR TO ISTAPC66 */ 04730000 * 3 ATCAP69 PTR(31), /* PTR TO ISTAPM69 */ 04731000 * 3 ATCAP82 PTR(31), /* PTR TO ISTAPC82 */ 04732000 * 3 ATCAP83 PTR(31), /* PTR TO ISTAPC83 */ 04733000 * 3 ATCAP84 PTR(31), /* PTR TO ISTAPC84 */ 04734000 * 3 ATCAP85 PTR(31), /* PTR TO ISTAPC85 */ 04735000 * 3 ATCAP86 PTR(31), /* PTR TO ISTAPC86 */ 04736000 * 3 ATCASCB PTR(31), /* PTR TO VTAM ASCB */ 04737000 * 3 ATCMPLTA PTR(31), /* PTR TO MPST LIST TABLE */ 04738000 * 3 ATCZR01 PTR(31), /* PTR TO ISTZRM01 */ 04739000 * 3 ATCAICTN PTR(31), /* PTR TO ISTAICTN */ 04740000 * 3 ATCTPCP0 PTR(31), /* PTR TO ISTZFSAV */ 04741000 * 3 ATCTPCP1 PTR(31), /* PTR TO ISTZ19SV */ 04742000 * 3 ATCZFLAG BIT(8), /* FLAG BYTE */ 04743000 * 4 ATCZF001 BIT(1), /* MDR RECORDING SUSPENDED */ 04744000 * 4 ATCRSV66 BIT(7), /* RESERVED */ 04745000 * 3 ATCRSV75 BIT(8), /* RESERVED */ 04746000 * 3 ATCSRBCT FIXED(16), /* COUNT OF PREALLOCATED SRB'S*/ 04747000 * 3 ATCCRACT FIXED(16), /* COUNT OF PREALLOCATED CRA'S*/ 04748000 * 3 ATCRPLCT FIXED(16), /* COUNT OF PREALLOCATED CRPL */ 04749000 * 3 ATCRSV88 PTR(31), /* RESERVED */ 04750000 * 3 ATCTPMPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /*TP MSG PAB 04751000 * FOR VS2 */ 04752000 * 3 ATCTPMMI PTR(31), /* PTR TO ISTCFMMI - MSG ISSUER 04753000 * FOR SRB MODE ROUTINES */ 04754000 * 3 ATCVIOPM PTR(31), /* PTR TO ISTVIOPM */ 04755000 * 3 ATCPOPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 01S1378 04756000 * /* POPAB FOR REPLY PROCESSING, POI TERMINATION, */ 04757000 * /* AND VTAM MESSAGE PROCESSOR */ 04758000 * 2 ATCAOS CHAR(0) BDY(WORD); /* VS2 ONLY FIELDS */ 04759000 */* PROGRAM OPERATOR INTERFACE AREA */ 04760000 */* REVISIONS 001 05/28/75 */ 04761000 *DCL 1 ISTPOIA BDY(WORD) BASED, 01S1379 04762000 * 2 POICBID CHAR(1), /* POI IDENTIFIER */ 04763000 * 2 POILNGTH FIXED(8), /* LENGTH IN BYTES */ 04764000 * 2 POIRSVD CHAR(2), /* RESERVED */ 04765000 * 2 POIANCR, 01S1379 04766000 * 3 * CHAR(1), 01S1379 04767000 * 3 POIPOCBQ PTR(24), /* ADDRESS OF POCB QUEUE */ 04768000 * 2 POIPRANC, 01S1379 04769000 * 3 * CHAR(1), 01S1379 04770000 * 3 POIPRIMQ PTR(24); /* ADDRESS OF PRIMARY POCB */ 04771000 *DCL POITYPE BIT(8) CONSTANT('45'X);/* CONTROL BLOCK ID FOR ISTPOIA */ 04772000 */* PROGRAM OPERATOR MESSAGE HEADER */ 04773000 *DCL 1 ISTPOHD BDY(WORD) BASED, 01S1381 04774000 * 2 POHRSVD1 CHAR(1), /* RESERVED */ 04775000 * 2 POHSTAT, /* HEADER STATUS BITS */ 04776000 * 3 POHEND BIT(1), /* END LINE 1=YES */ 04777000 * 3 POHDATA BIT(1), /* DATA LINE 1=YES */ 04778000 * 3 POHLBL BIT(1), /* LABEL LINE 1=YES */ 04779000 * 3 POHCNTRL BIT(1), /* CONTROL LINE 1=YES */ 04780000 * 3 POHRSVD2 BIT(2), /* RESERVED */ 04781000 * 3 POHRREQ BIT(1), /* REPLY REQUESTED 1=YES */ 04782000 * 3 POHGEN BIT(1), /* ID ORIGIN 0=GENERATED BY VTAM */ 04783000 * /* 1=GENERATED BY POA */ 04784000 * 2 POHID FIXED(16); /* MESSAGE IDENTIFIER */ 04785000 */* ***** WTO PARAMETER FORMAT **** */ 01S1382 04786000 * 01S1382 04787000 *DCL 1 ISTWPL BDY(WORD) BASED, 01S1382 04788000 * 2 WPLLGH FIXED(15), /* LENGTH OF MSG TEXT PLUS 4 */ 04789000 * 2 WPLMCSF BIT(16), /* MCS FLAGS */ 04790000 * 3 WPLMCSF1 BIT(8), /* FIRST FLAG BYTE */ 04791000 * 4 WPLMCSFA BIT(1), /* ROUTING CODES EXIST */ 04792000 * 4 WPLMCSFB BIT(1), /* QUEUE TO R0 */ 04793000 * 4 WPLMCSFC BIT(1), /* COMMAND RESP. */ 04794000 * 4 WPLMCSFD BIT(1), /* MSG TYPE FIELD EXISTS */ 04795000 * 4 WPLMCSFE BIT(1), /* REPLY TO WTOR */ 04796000 * 4 WPLMCSFF BIT(1), /* BROADCAST */ 04797000 * 4 WPLMCSFG BIT(1), /* HARD COPY */ 04798000 * 4 WPLMCSFH BIT(1), /* QUEUE TO R0 ALWAYS */ 04799000 * 3 WPLMCSF2 BIT(8), /* SECOND FLAG BYTE */ 04800000 * 4 WPLMCSFI BIT(1), /* TIME STAMP */ 04801000 * 4 WPLMCSFJ BIT(1), /* MLWTO */ 04802000 * 4 WPLSTGFL BIT(1), /* 1=GETVIS ISSUED */ 04803000 * 4 WPLRSV01 BIT(2), /* RESERVED */ 04804000 * 4 WPLMCSFN BIT(1), /* BYPASS HARD COPY */ 04805000 * 4 WPLRSV02 BIT(2), /* RESERVED */ 04806000 * 2 WPLTXT CHAR(255); /* MESSAGE TEXT */ 04807000 */* ***** WTOR PREFIX TO ISTWPL ****** */ 01S1383 04808000 */* APPLIED DCR'S */ 01S1383 04809000 */* 1K1326 - MAR 15, 73 - DM */ 01S1383 04810000 *DCL 1 ISTRWPL BDY(WORD) BASED, 01S1383 04811000 * 2 RWPPRTR FIXED(32), 01S1383 04812000 * 3 RWPLRLN FIXED(8), /* INPUT TEXT LENGTH */ 04813000 * 3 RWPRPTRA PTR(24), /* INPUT BUFFER POINTER */ 04814000 * 2 RWPRECB PTR(31), /* ECB POINTER */ 04815000 * 3 RWPSSECB FIXED(32), /* USED TO TEST COMPLMTD ECB */ 04816000 * 2 RWPWPL CHAR(LENGTH(ISTWPL)); /* CONTINUE WITH WTO FORMAT*/ 04817000 */* PROGRAM OPERATOR WORK ELEMENT */ 04818000 *DCL 1 ISTPOWE BDY(WORD) BASED, 01S1384 04819000 * 2 POWCBID CHAR(1), /* POWE IDENTIFIER */ 04820000 * 2 POWLNGTH FIXED(8), /* LENGTH IN BYTES */ 04821000 * 2 POWRSVD CHAR(2), /* RESERVED */ 04822000 * 2 POWPSSQ PTR(31), /* PTR TO NEXT POWE FOR PSS USE */ 04823000 * 2 POWRTR, /* ROUTING INFORMATION */ 04824000 * 3 POWDEB PTR(31), /* POINTER TO DEB PREFIX */ 04825000 * 3 POWHDR CHAR(LENGTH(ISTPOHD)), /* MESSAGE HEADER */ 04826000 * 2 POWWPL CHAR(LENGTH(ISTRWPL)) BDY(WORD); 01S1384 04827000 * /* ISTWPL,ISTRWPL PARM LISTS */ 04828000 *DCL POWTYPE BIT(8) CONSTANT('49'X);/* CONTROL BLOCK ID FOR ISTPOWE */ 04829000 */* PROGRAM OPERATOR CONTROL BLOCK */ 04830000 */* REVISIONS 001 05/28/75 */ 04831000 *DCL 1 ISTPOCB BDY(WORD) BASED, 01S1386 04832000 * 2 POCCBID CHAR(1), /* POCB IDENTIFIER */ 04833000 * 2 POCLNGTH FIXED(8), /* LENGTH IN BYTES */ 04834000 * 2 POCVTMID FIXED(15), /* VTAM ID COUNTER */ 04835000 * 2 POCPSSQ PTR(31), /* ADDRESS OF NEXT POCB */ 04836000 * /* FOR PSS USE */ 04837000 * 2 POCNEXT, 01S1386 04838000 * 3 * CHAR(1), 01S1386 04839000 * 3 POCFWD PTR(24), /* ADDRESS OF NEXT POCB */ 04840000 * 2 POCDEB PTR(31), /* ADDRESS OF DEB PREFIX */ 04841000 * 2 POCRCVQ, 01S1386 04842000 * 3 * CHAR(1), 01S1386 04843000 * 3 POCMSGQ PTR(24), /* ADDRESS OF MESSAGE QUEUE */ 04844000 * 2 POCREPQ, 01S1386 04845000 * 3 * CHAR(1), 01S1386 04846000 * 3 POCAWTRQ PTR(24), /* ADDRESS OF AWAITING REPLY QUE */ 04847000 * 2 POCRPL PTR(31), /* ADDRESS OF RCVCMD RPL */ 04848000 * 2 POCRPGEN BIT(104), /* BIT STRING TO GENERATE AND KEEP*/ 04849000 * /* TRACK OF REPLY ID'S */ 04850000 * 2 POCRCNTR FIXED(8), /* REPLY ID COUNTER */ 04851000 * 2 POCSTAT, /* POCB STATUS */ 04852000 * 3 POCACT BIT(1), /* POI ACTIVE 1 = YES */ 04853000 * 3 POCINACT BIT(1), /* POI INACTIVE 1 = YES */ 04854000 * 3 POCQUI BIT(1), /* POI QUISCE 1 = YES */ 04855000 * 3 * BIT(5), /* RESERVED */ 04856000 * 2 POCRSVD CHAR(1), /* RESERVED */ 04857000 * 2 POCWTOPL CHAR(LENGTH(ISTRWPL)) BDY(WORD); 01S1386 04858000 * /* ISTWPL AND ISTRWPL PARM LISTS */ 04859000 *DCL POCTYPE BIT(8) CONSTANT('46'X); /* CONTROL BLOCK ID FOR ISTPOCB*/ 04860000 */* PROGRAM OPERATOR REPLY CONTROL BLOCK */ 04861000 */* REVISIONS 001 05/28/75 */ 04862000 *DCL 1 ISTPORCB BDY(WORD) BASED, 01S1388 04863000 * 2 PORCBID CHAR(1), /* PORCB INDICATOR */ 04864000 * 2 PORLNGTH FIXED(8), /* LENGTH IN BYTES */ 04865000 * 2 POREPID CHAR(2), /* REPLY ID */ 04866000 * 2 PORPSSQ PTR(31), /* ADDRESS OF NEXT PORCB */ 04867000 * /* FOR PSS USE */ 04868000 * 2 PORNEXT, 01S1388 04869000 * 3 * CHAR(1), 01S1388 04870000 * 3 PORFWD PTR(24), /* ADDRESS OF NEXT PORCB */ 04871000 * 2 PORPOMQ, 01S1388 04872000 * 3 * CHAR(1), 01S1388 04873000 * 3 PORPOMCB PTR(24), /* ADDRESS OF POMCB */ 04874000 * 2 PORAREA PTR(31), /* ADDRESS OF REPLY AREA */ 04875000 * 2 PORECB PTR(31), /* ADDRESS OF ECB */ 04876000 * 2 PORREPLN FIXED(8), /* REPLY LENGTH */ 04877000 * 2 PORRSVD, /* STATUS, RESERVED BITS */ 04878000 * 3 PORRTPQ BIT(1), /* PORCB HAS BEEN TPQUEUED, 1=YES */ 04879000 * 3 * BIT(7), /* RESERVED */ 04880000 * 2 * CHAR(2), /* RESERVED */ 04881000 * 2 PORMSG CHAR(126); /* AREA TO STORE THE REPLY MESSAGE*/ 04882000 *DCL PORTYPE BIT(8) CONSTANT('48'X);/* CONTROL BLOCK ID FOR ISTPORCB*/ 04883000 */* PROGRAM OPERATOR MESSAGE CONTROL BLOCK */ 04884000 */* REVISIONS 002 08/03/77 */ 04885000 */* APAR OZ25021 @ZA25021 */ 04886000 *DCL 1 ISTPOMCB BDY(WORD) BASED, 01S1390 04887000 * 2 POMCBID CHAR(1), /* POMCB IDENTIFIER */ 04888000 * 2 POMLNGTH FIXED(8), /* LENGTH IN BYTES */ 04889000 * 2 POMMSGLN FIXED(8), /* MESSAGE LENGTH */ 04890000 * 2 POMRSVD1 CHAR(1), /* RESERVED */ 04891000 * 2 POMRSVD2 PTR(31), /* RESERVED FOR FUTURE PSS USE */ 04892000 * 2 POMNEXT, 01S1390 04893000 * 3 * CHAR(1), 01S1390 04894000 * 3 POMFWD PTR(24), /* ADDRESS OF NEXT POMCB */ 04895000 * 2 POMREPQ, 01S1390 04896000 * 3 * CHAR(1), 01S1390 04897000 * 3 POMPORCB PTR(24), /* ADDRESS OF PORCB */ 04898000 * 2 POMMHDR CHAR(LENGTH(ISTPOHD)), /* MESSAGE HEADER */ 04899000 * 2 POMMSG CHAR(120) BDY(WORD); /* MESSAGE @ZA25021*/ 04900000 *DCL POMTYPE BIT(8) CONSTANT('47'X);/* CONTROL BLOCK ID FOR ISTPOMEB*/ 04901000 */* LOGICAL CHANNEL COMMAND WORD * 04902000 */* ADD A DECLARE 003 10/18/74 * 04903000 *DCL 1 ISTLCCW BDY(WORD) BASED, 01S1392 04904000 * 2 LCCWOP CHAR(1), /* OPERATION CODE -CONTROL * 04905000 * 3 LCCWSI BIT(1), /* SESS INIT / START DIALOG FLG* 04906000 * 3 LCCWSD BIT(1), /* SESS DISCON/END DIALOG FLG * 04907000 * 3 LCCWRWOP BIT(6), /* READ/WRITE OPERATION CODE * 04908000 * 4 * BIT(1), /* RESERVED * 04909000 * 4 LCCWSOP BIT(1), /* SPECIAL OPERATION LIKE 04910000 * ERASE OR READ CONT * 04911000 * 4 LCCWCTL BIT(4), /* CONTROL TYPE * 04912000 * 5 LCCWMODE BIT(2), /* MODE TYPE * 04913000 * 5 LCCWTYPE BIT(2), /* OPERATION TYPE * 04914000 * 2 LCCWFLAG CHAR(1), /* FLAG BYTE * 04915000 * 3 LCCWCD BIT(1), /* CHAIN DATA * 04916000 * 3 LCCWCC BIT(1), /* CHAIN COMMAND * 04917000 * 3 LCCWCKPT BIT(1), /* SUPPRESS 3705 CHECK POINT 04918000 * RECORD * 04919000 * 3 LCCWNTVC BIT(1), /* DO NOT PERFORM VALCHEK * 04920000 * 3 LCCWIDAT BIT(1), /* LCCWDATA CONTAINS DATA * 04921000 * 3 LCCWLSI BIT(1), /* LCCW SYNCH INDICATOR * 04922000 * 4 LCCWPER BIT(1), /* POST=RESP * 04923000 * 3 LCCWRFI BIT(1), /* REQUEST FEEDBACK INDICATOR * 04924000 * 3 LCCWACI BIT(1), /* ADDITION COMMAND INDICATOR * 04925000 * 2 LCCWCNT FIXED(16), /* DATA COUNT * 04926000 * 2 LCCWDATA PTR(31); /* DATA ADDRESS OR IMMED. DATA * 04927000 */* LOGICAL COMMAND CODES */ 01S1393 04928000 *DCL LXDQ BIT(8) CONSTANT('3B'X), /* RESET DEVICE QUEUE * 04929000 * LXEC BIT(8) CONSTANT('4B'X), /* RESET AT END OF COMMAND * 04930000 * LXO BIT(8) CONSTANT('5B'X), /* RESET ORDERLY * 04931000 * LCCWPRGE BIT(8) CONSTANT('6B'X), /* PURGE * 04932000 * LWH BIT(8) CONSTANT('0F'X), /* WRITE HEADER INDI. 1ST BLOCK* 04933000 * LWRVI BIT(8) CONSTANT('1F'X), /* WRITE RVI * 04934000 * LWNA BIT(8) CONSTANT('2F'X), /* WRITE NEGATIVE ACK * 04935000 * LWAA BIT(8) CONSTANT('3F'X), /* WRITE ALTERNATE ACK * 04936000 * LWPLG BIT(8) CONSTANT('5F'X), /* WRITE ACK LEADING GRAPHICS * 04937000 * LWNLG BIT(8) CONSTANT('6F'X), /* WRITE NACK LEADING GRAPHICS * 04938000 * LSMDE BIT(8) CONSTANT('4F'X), /* SET MODE * 04939000 * LIFBM BIT(8) CONSTANT('7F'X), /* INDIC 1ST BLOCK OF MESSAGE * 04940000 * LTEST BIT(8) CONSTANT('FE'X), /* TEST LCCW * 04941000 * LPRMPT BIT(8) CONSTANT('13'X), /* PREEMPT LCCW * 04942000 * LRSTR BIT(8) CONSTANT('43'X), /* RESTORE LCCW * 04943000 * LEXEC BIT(8) CONSTANT('FF'X), /* SPECIAL CONTROL OPERATION * 04944000 * LREAD BIT(2) CONSTANT('10'B), /* READ TYPE LCCW * 04945000 * LWRITE BIT(2) CONSTANT('01'B), /* WRITE TYPE LCCW * 04946000 * LCNTRL BIT(2) CONSTANT('11'B), /* CONTROL TYPE LCCW * 04947000 * LRESET BIT(4) CONSTANT('1011'B),/* RESET COMMANDS * 04948000 * LTIC BIT(8) CONSTANT('08'X), /* LOGICAL TIC * 04949000 * LWR BIT(6) CONSTANT('000001'B), /* WRITE CONVERSATIONAL * 04950000 * LWB BIT(6) CONSTANT('000101'B), /* WRITE BLOCK * 04951000 * LWM BIT(6) CONSTANT('001001'B), /* WRITE MESSAGE * 04952000 * LWT BIT(6) CONSTANT('001101'B), /* WRITE TRANSMISSION * 04953000 * LEWM BIT(6) CONSTANT('011001'B), /* ERASE/WRITE MESSAGE * 04954000 * LEWT BIT(6) CONSTANT('011101'B), /* ERASE/WRITE TRNSMSSN * 04955000 * LEAU BIT(6) CONSTANT('010001'B), /* ERASE ALL UNPROTECTED * 04956000 * LRB BIT(6) CONSTANT('000110'B), /* READ BLOCK * 04957000 * LRM BIT(6) CONSTANT('001010'B), /* READ MESSAGE * 04958000 * LRT BIT(6) CONSTANT('001110'B), /* READ TRANSMISSION * 04959000 * LRMOD BIT(6) CONSTANT('010010'B), /* READ MODIFIED * 04960000 * LRBUF BIT(6) CONSTANT('010110'B), /* READ BUFFER * 04961000 * LRCONT BIT(6) CONSTANT('011010'B), /* READ CONTINUOUS * 04962000 * LRPEP BIT(6) CONSTANT('011110'B), /* READ PERPETUAL * 04963000 * LCPYM BIT(6) CONSTANT('101001'B), /* COPY MESSAGE * 04964000 * LCPYT BIT(6) CONSTANT('101101'B), /* COPY TRANSMISSION * 04965000 * LD BIT(8) CONSTANT('23'X), /* DISCONNECT * 04966000 * LDEC BIT(8) CONSTANT('33'X), /* DISCONNECT WITH END OF CALL* 04967000 * LEOC BIT(8) CONSTANT('53'X), /* END OF CALL COMMAND * 04968000 * LXEL BIT(8) CONSTANT('0B'X), /* RESET ERROR LOCK * 04969000 * LXC BIT(8) CONSTANT('1B'X), /* RESET CONDITIONAL * 04970000 * LXI BIT(8) CONSTANT('2B'X), /* RESET IMMEDIATE * 04971000 * LC BIT(8) CONSTANT('03'X), /* CONTACT * 04972000 * LWPA BIT(8) CONSTANT('FD'X); /* WRITE POSITIVE ACK * 04973000 *DCL LMT BIT(2) CONSTANT('11'B), /* TRANSMISSION MODE * 04974000 * LMS BIT(2) CONSTANT('00'B), /* SPECIAL MODE LIKE CONV, EAU * 04975000 * LMB BIT(2) CONSTANT('01'B), /* BLOCK MODE * 04976000 * LMM BIT(2) CONSTANT('10'B); /* MSG OR CONTINUOUS MODE * 04977000 */* FOLLOWING EQUATES FOR - PORT SOLICITOR (DIAL) * 04978000 */* PORT SOLICITOR COMMAND CODES * 04979000 *DCL PSOL BIT(8) CONSTANT('FE'X), /* SPECIAL PORT SOLICITOR 01S1395 04980000 * COMMAND * 04981000 * STCTL BIT(8) CONSTANT('01'X), /* START CONTROL * 04982000 * RESTCTL BIT(8) CONSTANT('02'X), /* RESET & CONTROL - REDRIVE * 04983000 * STIPUT BIT(8) CONSTANT('03'X); /* START INPUT * 04984000 */* FOLLOWING EQUATES FOR SDLC SUPPORT * 04985000 *DCL LCCHOLD BIT(8) CONSTANT('01'X), /* HOLD * 04986000 * LCCRHOLD BIT(8) CONSTANT('02'X), /* RELEASE HOLD * 04987000 * LSEND BIT(8) CONSTANT ('F1'X), /* SEND * 04988000 * LCLEAR BIT(8) CONSTANT ('F2'X), /* CLEAR * 04989000 * LCRUD BIT(8) CONSTANT ('F3'X), /* CLEAR, UNBIND * 04990000 * LCRUDNFY BIT(8) CONSTANT ('F4'X), /* CLEAR, UNBIND, NOTIFY * 04991000 * LNFY BIT(8) CONSTANT ('F5'X), /* NOTIFY * 04992000 * LRELCB BIT(8) CONSTANT ('F6'X), /* RELEASE CB * 04993000 * LRESTSR BIT(8) CONSTANT ('F7'X), /* RESETSR * 04994000 * LCLRNFY BIT(8) CONSTANT('F8'X), /* CLEAR/NOTIFY * 04995000 * LCHPUR BIT(8) CONSTANT('F9'X); /* PURGE * 04996000 *DCL LCCWSIZE FIXED(8) CONSTANT(8); /* LCCW SIZE * 04997000 *DCL LRDS BIT(8) CONSTANT('FF'X); /* RECORD DEV STATS COMMAND * 04998000 *DCL LQUIS BIT(8) CONSTANT('FE'X); /* QUIESCE COMMAND * 04999000 */* LOGICAL CHANNEL PROGRAM BLOCK */ 05000000 */* */ 05001000 */* REVISIONS 007 05/19/75 */ 05002000 */* */ 05003000 *DCL 1 ISTLCPB BDY(WORD) BASED(LCPBPTR), 01S1400 05004000 * 2 LCPTYPE CHAR(1), /* TYPE CODE */ 05005000 * 2 LCPLNGTH PTR(8), /* LENGTH IN BYTES */ 05006000 * 2 LCPREQTG CHAR(2), /* LCPB REQ. TAG FIELD */ 05007000 * 3 LCPFLAGS BIT(8), /* FLAG BYTE */ 05008000 * 4 LCPZRT00 BIT(1), /* LOGICAL ERROR FLAG */ 05009000 * 4 LCPZRT01 BIT(1), /* CONTROL BLOCK ERROR */ 05010000 * 4 LCPZF001 BIT(1), /* LCP START PROCESS FLAG */ 05011000 * 5 LCPZRT02 BIT(1), /* I/O INITIATION DISABLED */ 05012000 * 6 LCPZRTL2 BIT(1), /* END OF SCHEDULABLE BLOCK */ 05013000 * 4 LCPZF002 BIT(1), /* LCP IN PROCESSING FLAG */ 05014000 * 5 LCPZRT03 BIT(1), /* GO LOOK AT FMCB LINE STATE */ 05015000 * /* FIELD (REQ. TAG OVERLAY) */ 05016000 * 6 LCPZRTL3 BIT(1), /* WRITE/READ REQUEST */ 05017000 * 4 LCPZF003 BIT(1), /* LCP PROCESSING COMPLETE FLAG* 05018000 * 5 LCPZRT04 BIT(1), /* STPR SET IN BDU FLAG */ 05019000 * /* (REQ. TAG OVERLAY) */ 05020000 * 6 LCPZRTL4 BIT(1), /* FEEDBACK REQUESTED */ 05021000 * 4 LCPZF004 BIT(1), /* SINGLE LCCW/LCP FLAG */ 05022000 * 5 LCPZRT05 BIT(1), /* FEEDBACK TO BE ROUTED TO */ 05023000 * /* ICNCB FMCB (REQ. TAG */ 05024000 * /* OVERLAY) */ 05025000 * 6 LCPZRTL5 BIT(1), /* DECREMENT SCHED COUNT ON DEQ* 05026000 * 4 LCPZRT06 BIT(1), /* CRITICAL TEXT BLOCK */ 05027000 * /* FLAG (REQ. TAG OVERLAY) */ 05028000 * 5 LCPZRTL6 BIT(1), /* WRITE REQUEST */ 05029000 * 4 LCPZRT07 BIT(1), /* BUFFER TRACE ACTIVE */ 05030000 * /* FLAG (REQ. TAG OVERLAY) */ 05031000 * 5 LCPZRTL7 BIT(1), /* SCHEDULING FLAG */ 05032000 * 3 LCPMNRCD CHAR(1), /* LCP MINOR REJECTION CODE */ 05033000 * 4 LCPZRT08 BIT(1), /* I/O TRACE ACTIVE FLAG */ 05034000 * /* (REQ. TAG OVERLAY) */ 05035000 * 5 LCPZRTL8 BIT(1), /* DEVICE END NOTIFICATION */ 05036000 * 4 LCPZRT09 BIT(1), /* DIALOGUE SCHED DISABLED */ 05037000 * 5 LCPZRTL9 BIT(1), /* CRITICAL TEXT FLAG */ 05038000 * 4 LCPZRT0A BIT(1), /* SIMULATED CONTACT FLAG */ 05039000 * 4 LCPZRT0B BIT(1), /* SIMULATED DISCONNECT FLAG */ 05040000 * 2 LCPCHAIN PTR(31), /* APS CHAIN */ 05041000 * 3 LCPCHAI1 PTR(8), 01S1400 05042000 * 4 LCPCHNG BIT(1), /* GATE BIT */ 05043000 * 3 LCPCHAI2 PTR(24), /* ADDRESS FIELD */ 05044000 * 2 LCPRUCNT PTR(8), /* NUMBER OF RU FOR THIS LCPB */ 05045000 * 3 LCPZMIRC CHAR(1), /* MINOR RETURN CODE */ 05046000 * 2 LCPFLAG2 CHAR(1), /* SECOND FLAG BYTE */ 05047000 * 3 LCPPRFLG BIT(1), /* PACING REQUIRED */ 05048000 * 3 LCPASYN BIT(1), /* ASYNCHRONOUS LCPB */ 05049000 * 3 LCPRSTRT BIT(1), /* RESTART LCPB */ 05050000 * 3 LCPTLBPI BIT(1), /* TPIOS BLOCK LCCW */ 05051000 * 4 LCPZRIMM BIT(1), /* RESET IMMED REQUIRED ON ERR*/ 05052000 * 3 LCPFID0 BIT(1), /* FID0 TH INDICATOR FOR RECORD* 05053000 * 4 LCPEXRES BIT(1), /* EXCEP. RESPONSE SPEC. 3270R*/ 05054000 * 3 LCPDSTAT BIT(1), /* DIALOGUE STATE BIT, 3270R */ 05055000 * /* 0=REQ. REJECT,1=STATE ERROR*/ 05056000 * 3 LCPFREE BIT(1), /* DEALLOCATE LCPB 3270R */ 05057000 * 3 LCPATOP BIT(1), /* ATOP LCPB 3270R */ 05058000 * 2 LCPSEQ FIXED(16), /* OUTBOUND SEQUENCE NUMBER */ 05059000 * 3 LCPRRCCT PTR(8), /* COUNT OF RESPONSES RECEIVED*/ 05060000 * 3 LCPRRCNT PTR(8), /* COUNT OF RESPONSES REQUESTED* 05061000 * 2 LCPLCCW1 PTR(31), /* ADDR FIRST LCCW FOR FID1 */ 05062000 * 2 LCPCID CHAR(4) BDY(WORD), /* COMMUNICATION ID */ 05063000 * 3 LCPSAF BIT(16), /* SOURCE IDENTIFICATION */ 05064000 * 3 LCPDAF BIT(16), /* DESTINATION IDENTIFICATION */ 05065000 * 2 LCPNXLCW PTR(31), /* ADDR NEXT LCCW */ 05066000 * 2 LCPFDBA PTR(31), /* BTU ADDRESS */ 05067000 * 3 LCPFDB1 PTR(8), 01S1400 05068000 * 3 LCPFDB2 PTR(24), /* ADDRESS FIELD */ 05069000 * 2 LCPTLBAD PTR(31), /* ADDRESS OF TLB */ 05070000 * 2 LCPFOSN BIT(16), /* SEQUENCE NUMBER FIRST RU */ 05071000 * 2 LCPFSNCH FIXED(16), /* 1ST SEQ NUMBER IN RU CHAIN */ 05072000 * 2 LCPSTYPE FIXED(8), /* LCPB SUB-TYPE X'FF' = RESET,* 05073000 * /* X'00' = NON-RESET */ 05074000 * 2 LCPFLG1 CHAR(1), /* FLAGS */ 05075000 * 3 LCPRESET BIT(1), /* A TPQUE WITH RESET QUEUED */ 05076000 * /* THIS ELEMENT */ 05077000 * 3 LCPINTER BIT(1), /* INTERNAL LCPB */ 05078000 * 3 LCPDIRPT BIT(1), /* NOT SEND W/POST=SCHED=0 */ 05079000 * 3 LCPREDRV BIT(1), /* LCPB IS FOR REDRIVE */ 05080000 * 3 LCPSTLB BIT(1), /* TLB NOT TO BE FREED */ 05081000 * 3 LCPTRANS BIT(1), /* DATA INCLUDES CONTROL CHARS*/ 05082000 * 3 LCPRSV78 BIT(2), /* RESERVED */ 05083000 * 2 LCPLCCWC BIT(8), /* COUNT OF LCCWS */ 05084000 * 2 LCPRSV77 CHAR(1), /* RESERVED */ 05085000 * 2 LCPFLCCW PTR(31), /* ADDR OF FIRST LCCW */ 05086000 * 3 LCPUBFSB PTR(31), /* UNBIND FSB ADDRESS */ 05087000 * 2 LCPCLREP PTR(31), /* PTR TO CLEAR LCPB IN UCB */ 05088000 */* NOTE: THE FOLLOWING FIELD - LCPLCCW MUST BE THE LAST FIELD */ 05089000 */* IN THIS CONTROL BLOCK. THE CONTROL BLOCK ISTDCLCP HAS */ 05090000 */* FIELDS IN IT WHICH MUST BE CONTIGUOUS WITH LCPLCCW */ 05091000 * 2 LCPLCCW CHAR(LENGTH(ISTLCCW)) BDY(WORD), /* FIRST LCCW */ 05092000 * 3 LCPRSTQH PTR(31), /* RESET LCPB QUEUE HEADER */ 05093000 * 3 LCPPABA PTR(31), /* PAB POINTER */ 05094000 * 4 LCPRPHA PTR(31), /* RPH POINTER */ 05095000 * 5 LCPFTYPE BIT(1); /* FEEDBACK TYPE */ 05096000 */* CONSTANTS FOR LCPTYPE * 05097000 *DCL LCRPHFT BIT(1) CONSTANT('1'B); 01S1401 05098000 *DCL LCPABFT BIT(1) CONSTANT('0'B); 01S1402 05099000 *DCL LCPBFIRM BIT(8) CONSTANT('10'X); /* LU FAILED, CLSDST, SCHED LOST 05100000 * TERM, OPNDST MAY BE TRIED * 05101000 *DCL LCPBTERM BIT(8) CONSTANT('11'X); /* TERM RECEIVED,CLSDST, 01S1404 05102000 * SCHED LOST TERM * 05103000 */* * 05104000 * 01S1405 05105000 *DCL 1 LCPZTIE BDY(WORD) DEFINED(LCPCID), /* TOLTEP INTERFACE 01S1405 05106000 * ELEMENT OVERLAY */ 05107000 * 2 LCPZFMCA PTR(31), /* ACTIVE FMCB ADDRESS */ 05108000 * 2 LCPZSNA PTR(31), /* SYMBOLIC NAME ADDRESS */ 05109000 * 2 LCPZSNAM CHAR(8) BDY(WORD), /* SYMBOLIC NAME */ 05110000 * 3 LCPZTRV1 PTR(31), /* RESERVED FOR RESTORE LCP */ 05111000 * 3 LCPZTRV4 PTR(31); /* RESERVED FOR RESTORE LCP */ 05112000 *DCL LCTYPE BIT(8) CONSTANT('04'X); 01S1406 05113000 *DCL PLCPTYPE BIT(8) CONSTANT('28'X); /* PURGE LCPB TYPE ID */ 05114000 *DCL LCPCLACB BIT(8) CONSTANT('04'X); /* LCPB FROM CLOSE ACB */ 05115000 *DCL LSRSTYPE BIT(8) CONSTANT('FF'X); /* RESET SUBTYPE */ 05116000 *DCL LCPETYPE BIT(8) CONSTANT('40'X); /* EXTENDED LCPB TYPE ID */ 05117000 */* */ 05118000 */* MINOR RETURN CODES */ 05119000 */* */ 05120000 *DCL LCMCRSTR BIT(8) CONSTANT('F7'X), /* MINOR RC FOR RESETSR */ 05121000 * LCPMNEW BIT(8) CONSTANT('02'X), /* EARLY WARNING, */ 05122000 * /* RECOVERY IN PROGRESS */ 05123000 * LCPMNPF BIT(8) CONSTANT('03'X), /* PERM. I/O FAILURE */ 05124000 * LCPMNAS BIT(8) CONSTANT('04'X), /* AUTO NETWORK SHUTDOWN */ 05125000 * LCPMNCL BIT(8) CONSTANT('06'X), /* CLOSE/CLSDST OCCURED */ 05126000 * LCPMNVD BIT(8) CONSTANT('07'X), /* VARY DEACTIVATE */ 05127000 * LCPMNTF BIT(8) CONSTANT('10'X), /* TEMP RECORD DEVICE FAILURE */ 05128000 * LCPMNSF BIT(8) CONSTANT('01'X), /* TEMP BASIC FAILURE / */ 05129000 * LCPMNTS BIT(8) CONSTANT('11'X), /* TERMINATE SELF */ 05130000 * LCPMNAP BIT(8) CONSTANT('0A'X), /* APPL. ISSUED CLEAR */ 05131000 * LCPMNPR BIT(8) CONSTANT('0B'X), /* PREEMPT */ 05132000 * LCPMNRE BIT(8) CONSTANT('0C'X); /* RESTORE */ 05133000 */* VS1, VS2 TPIOS SAVEAREA FORMAT */ 01S1412 05134000 *DCL 1 ISTZSAVE BDY(WORD) BASED, 01S1412 05135000 * 2 ZSAZSVBC PTR(31), /* SAVEAREA BACK CHAIN */ 05136000 * 3 ZSAZSVMS CHAR(1), /* MODULE TRACE CODE */ 05137000 * 4 ZSAZACTV BIT(1), /* ACTIVE SAVE AREA FLAG */ 05138000 * 2 ZSAZSVFC PTR(31), /* SAVEAREA FORWARD CHAIN */ 05139000 * 2 ZSAZSVRR PTR(31), /* RETURN REGISTER */ 05140000 * 2 ZSAZSVVR (6) PTR(31), /* VARIABLE REGS (7-12) SVEAREA*/ 05141000 * 2 ZSAZTRAC CHAR(4); /* EBCDIC NAME OF OWNER */ 05142000 */* 01S1413 05143000 *THE FOLLOWING EQUATES SHOULD READ ''FIXED(8) CONSTANT(LENGTH(X))'', 05144000 *WHERE X IS THE NAME OF THE VARIABLE CONTROL BLOCK OR FIELD OF WHICH 05145000 *LENGTH IS THE VALUE BEING EQUATED, SHOULD THE PLS COMPILER BE 01S1413 05146000 *BE ABLE TO TAKE IT. 01S1413 05147000 * */ 05148000 *DCL ZSAZSVVA FIXED(8) CONSTANT(8); /* DISPLACEMENT TO VARIABLE REGS*/ 05149000 *DCL ZSAZSVSZ FIXED(8) CONSTANT(40); /* LENGTH OF ISTZSAVE */ 05150000 */* PREFIX FOR CRR */ 05151000 */* */ 05152000 */* RELEASE 1 - JUNE 28, 1973 */ 05153000 */* */ 05154000 *DCL 1 ISTPFCRR BASED BDY(WORD), /* PREFIX FOR CRR */ 05155000 * 2 PFCCRR CHAR(4), /* CRR HEADER */ 05156000 * 3 PFCCRRID CHAR(1), /* CRR ID FIELD */ 05157000 * 4 CRRID CHAR(1), /* BASIC CTL LAYER DEFINITION*/ 05158000 * 3 PFCRSV10 CHAR(1), /* RESERVED FOR ALIGNMENT */ 05159000 * 3 PFCCRRLN CHAR(2), /* CRR LENGTH */ 05160000 * 4 CRRLEN CHAR(2), /* BASIC CTL LAYER DEF */ 05161000 * 2 PFCHDR CHAR(8) BDY(WORD), /* SAVE AREA FOR OLD CRR FRR */ 05162000 * 3 PFCCRRO PTR(31), /* PTR TO OLD CRR */ 05163000 * 4 CRRCHAIN PTR(31), /* BASIC CTL LAYER DEFINITION 05164000 * FOR OLD CRR PTR */ 05165000 * 3 PFCFRRO PTR(31), /* PTR TO OLD FRR */ 05166000 * 4 CRRFRR PTR(31), /* BASIC CTL LAYER 01S1415 05167000 * DEFINITION OF OLD FRR PTR */ 05168000 * 2 PFCFTA BIT(8), /* ID OF LAST FUNCTION TRACED*/ 05169000 * 2 PFCRSV01 CHAR(3); /* ALIGNMENT */ 05170000 *DCL PFIDPIE BIT(8) CONSTANT('80'X); /* DOS/VS TPIOS */ 05171000 *DCL PFIDORE BIT(8) CONSTANT('81'X); /* DOS/VS BMS */ 05172000 *DCL PFIDAPE BIT(8) CONSTANT('82'X); /* DOS/VS PSS */ 05173000 *DCL PFCIDPSV BIT(8) CONSTANT('38'X); /* COMPONENT ID 01S1419 05174000 * PSS - VS1 AND 2 */ 05175000 *DCL PFCIDTPV BIT(8) CONSTANT('3C'X); /* COMPONENT ID 01S1420 05176000 * TPIOS VS1 AND 2 */ 05177000 *DCL PFCIDSME BIT(8) CONSTANT('3D'X); /* COMPONENT ID 01S1421 05178000 * STORAGE MANAGEMENT DOS */ 05179000 *DCL PFCIDOC BIT(8) CONSTANT('31'X); /* COMPONENT ID OPEN/CLOSE */ 05180000 *DCL PFCIDPS BIT(8) CONSTANT('32'X); /* PORT SOLICITOR */ 05181000 *DCL PFCIDCS BIT(8) CONSTANT('34'X); /* CLUSTER SOLICITOR */ 05182000 *DCL PFCIDIT BIT(8) CONSTANT('35'X); /* INIT/TERM */ 05183000 *DCL PFCIDVY BIT(8) CONSTANT('36'X); /* VARY */ 05184000 *DCL PFCIDNS BIT(8) CONSTANT('37'X); /* NET. STAT.SRV. */ 05185000 *DCL PFCIDTPE BIT(8) CONSTANT('38'X); /* COMPONENT ID 01S1428 05186000 * TPIOS - DOS */ 05187000 *DCL PFCIDCL BIT(8) CONSTANT('39'X); /* COMPONENT ID 01S1429 05188000 * CONTROL LAYER */ 05189000 *DCL PFCIDPSE BIT(8) CONSTANT('3A'X); /* COMPONENT ID 01S1430 05190000 * PSS - DOS */ 05191000 *DCL PFCIDSMV BIT(8) CONSTANT('3F'X); /* COMPONENT ID 01S1431 05192000 * STORAGE MANAGEMENT */ 05193000 *DCL PFCIDTIO BIT(8) CONSTANT('40'X); /* COMPONENT ID TIIO 01S1432 05194000 * PROCESSING (VS2) */ 05195000 *DCL PFCIDRS BIT(8) CONSTANT('41'X); /* ID FOR REMOTE SOLICITOR */ 05196000 */* CRR FOR COMMAND FACILITIES */ 05197000 */* REVISIONS 001 06/02/75 */ 05198000 *DCL 1 ISTCFCRR BDY(WORD) BASED, /* CRR FOR COMMAND FACILITIES */ 05199000 * 2 CFCAUDIT, /* AUDIT TRAIL FOR CMD FACILITIES*/ 05200000 * 3 CFCNTRD CHAR(1), /* LIST OF MODULES IN COMMAND */ 05201000 * /* FACILITIES ENTERED */ 05202000 * 4 NCFCS1 BIT(1), /* IND MODULE ISTCFCS1 ENTERED */ 05203000 * 4 NCFCS2 BIT(1), /* IND MODULE ISTCFCS2 ENTERED */ 05204000 * 4 NCFCR1 BIT(1), /* IND MODULE ISTCFCR1 ENTERED */ 05205000 * 4 NCFCRP BIT(1), /* IND MODULE ISTCFCRP ENTERED */ 05206000 * 4 NCFCR2 BIT(1), /* IND MODULE ISTCFCR2 ENTERED */ 05207000 * 4 NCFRSVD BIT(3), /* RESERVED */ 05208000 * 3 CFCCRT CHAR(1), /* LIST OF MODULES IN COMMAND */ 05209000 * /* FACILITIES RUNNING */ 05210000 * 4 CCFCS1 BIT(1), /* IND MODULE ISTCFCS1 RUNNING */ 05211000 * 4 CCFCS2 BIT(1), /* IND MODULE ISTCFCS2 RUNNING */ 05212000 * 4 CCFCR1 BIT(1), /* IND MODULE ISTCFCR1 RUNNING */ 05213000 * 4 CCFCRP BIT(1), /* IND MODULE ISTCFCRP RUNNING */ 05214000 * 4 CCFCR2 BIT(1), /* IND MODULE ISTCFCR2 RUNNING */ 05215000 * 4 CCFRSVD1 BIT(3); /* RESERVED */ 05216000 *DCL TIDCFCS1 BIT(8) CONSTANT('00'X); /* THREAD ID FOR ISTCFCS1 */ 05217000 *DCL TIDCFCR1 BIT(8) CONSTANT('01'X); /* THREAD ID FOR ISTCFCR1 */ 05218000 *DCL TIDCFCR2 BIT(8) CONSTANT('02'X); /* THREAD ID FOR ISTCFCR2 */ 05219000 */* COMPONENT RECOVERY RECORD FOR TPIOS */ 01S1438 05220000 */* DELTA 006 02/10/75 */ 05221000 *DCL 01S1438 05222000 *1 ISTZCRR BDY(WORD) BASED, /* CONTROL WORD */ 05223000 * 2 ZCRCRR CHAR(4), /* CONTROL WORD */ 05224000 * 3 ZCRID CHAR(1), /* CONTROL BLOCK ID */ 05225000 * 3 ZCRLEN CHAR(2), /* LENGTH OF ZCR */ 05226000 * 3 ZCRFLAG CHAR(1), /* FLAGS */ 05227000 * 2 ZCRCHAIN PTR(31), /* POINTER TO PREVIOUS ZCR */ 05228000 * 2 ZCRFRRA PTR(31), /* PTR TO FRR */ 05229000 * 2 ZCRFLGS1 CHAR(1), /* FLGS USED BY REQUEST COMPLETION */ 05230000 * 3 ZCREXSW BIT(1), /* EXIT SWITCH */ 05231000 * 3 ZCRQUESW BIT(1), /* QUEUE SWITCH */ 05232000 * 3 ZCRDEQSW BIT(1), /* DEQUEUE SWITCH */ 05233000 * 3 ZCRWAIT BIT(1), /* WAIT Q ANALYSIS COMPLETE */ 05234000 * 3 ZCRNRMEX BIT(1), /* NORMAL EXIT TO BE TAKEN */ 05235000 * 3 ZCRENDLP BIT(1), /* END OF LOOP SWITCH */ 05236000 * 3 ZCRUNSOL BIT(1), /* UNSOLICITED DATA */ 05237000 * 3 ZCRFEXIT BIT(1), /* FORCE EXIT SWITCH */ 05238000 * 2 ZCRFLGS2 CHAR(1), /* FLAGS USED WITHIN TPIOS */ 05239000 * 3 ZCRLOCAL BIT(1), /* LOCAL SUPPORT */ 05240000 * 3 ZCRSHEDI BIT(1), /* IMMEDIATE SCHEDULE */ 05241000 * 3 ZCRFMSED BIT(1), /* FMCB SEARCH ENDED */ 05242000 * 3 ZCROB BIT(1), /* OUTBOUND PROC IN PROGRESS */ 05243000 * 3 ZCRIF0E1 BIT(1), /* SWITCH FOR STRUCTURED PGM USED BY 05244000 * INBOUND PROCESSING */ 05245000 * 3 ZCRIF0E2 BIT(1), /* SWITCH FOR STRUCTURED PGM USED BY 05246000 * INBOUND PROCESSING */ 05247000 * 3 ZCRIF0E3 BIT(1), /* SWITCH FOR STRUCTURED PGM USED BY 05248000 * INBOUND PROCESSING */ 05249000 * 2 ZCRSWFLD CHAR(1), /* SWITCHES FOR TPIOS OUTBOUND */ 05250000 * 3 ZCRENDSH BIT(1), /* EXIT FROM REMOTE DEV SCHEDULER */ 05251000 * 4 ZCRSLCP BIT(1), /* SCHEDULE LCPB */ 05252000 * 3 ZCREXTYP BIT(1), /* TPEXIT TYPE */ 05253000 * 3 ZCRENDPR BIT(1), /* EXIT FROM INNER PROCESS */ 05254000 * 3 ZCRNDLCP BIT(1), /* EXIT FROM LCPB PROCESSING */ 05255000 * 4 ZCROB1 BIT(1), /* REMOTE DEV SCHED 1ST TIME SWITCH */ 05256000 * 3 ZCRENDX BIT(1), /* EXIT FROM LCCW/BTU XLATION */ 05257000 * 3 ZCRENDXL BIT(1), /* EXIT FROM LCCW PROC */ 05258000 * 3 ZCRENDAN BIT(1), /* EXIT FROM LCPB ANALYSIS */ 05259000 * 3 ZCRRESET BIT(1), 01S1438 05260000 * 4 ZCRCNLXL BIT(1), /* CANCEL FURTHER XLATE */ 05261000 * 2 ZCRFLGS3 CHAR(1), /* FLAGS FOR OUTBOUND PROCESSING */ 05262000 * 3 ZCRTIC BIT(1), /* SELECT NOT TO BE SENT */ 05263000 * 3 ZCRTPCON BIT(1), /* TPIOS CONTACT SENT */ 05264000 * 3 ZCRTPDIS BIT(1), /* TPIOS DISCONNECT TO BE SENT */ 05265000 * 3 ZCRDISC BIT(1), /* DISCONNECT IN PROCESS */ 05266000 * 3 ZCREDRIV BIT(1), /* DO DERIVE */ 05267000 * 3 ZCRNOFRE BIT(1), /* NO FREEING OF SIO QUEUE */ 05268000 * 3 ZCRWRPTR BIT(1), /* WRITE TO PRINTER REQUEST */ 05269000 * 3 ZCRINLCP BIT(1), /* ERROR OCCURED DURING OUTBND PROC */ 05270000 * 2 ZCRGENSW CHAR(1), /* GENERAL SWITCHES */ 05271000 * 3 ZCRTSW1 BIT(1), /* TEMP SW FOR STRUCTURED PGM */ 05272000 * 3 ZCRTSW2 BIT(1), /* TEMP SW FOR STRUCTURED PGM */ 05273000 * 3 ZCRRT06 BIT(1), /* CRITICAL TEXT OPTION */ 05274000 * 3 ZCRLCSYN BIT(1), /* LCCW SYNC SPECIFIED */ 05275000 * 3 ZCREXRES BIT(1), /* EXCEPTION RESPONSE SPECIFIED */ 05276000 * 3 ZCRCLRBD BIT(1), /* FLAG INDICATING BIND WAS CLEARED */ 05277000 * 3 ZCRBRIS BIT(1), /* BRACKET REJECTED DUE TO IN BRAC. */ 05278000 * 3 ZCRF1RES BIT(1), /* FID1 RESPONSE TO BE GENERATED */ 05279000 * 2 ZCRPFLGS CHAR(1), /* UTILITIES PROC OPTION FLAGS */ 05280000 * 3 ZCRQAHED BIT(1), /* QXFR RTN TO USE INSERT OPT'N ON TPQ* 05281000 * 3 * BIT(7), /* RESERVED */ 05282000 * 2 ZCRIBPR CHAR(1), /* INBOUND PROCESSING FLAGS */ 05283000 * 3 ZCRNOBUF BIT(1), /* FSB WITH NO BUFFER */ 05284000 * 3 ZCRERR BIT(1), /* ERROR INDICATOR */ 05285000 * 3 ZCRRELK BIT(1), /* RESET ERROR LOCK FUNCTION REQ. */ 05286000 * 3 ZCRLCPFR BIT(1), /* FLAG IND. DEALLOCATE ATOP LCPB */ 05287000 * 3 ZCRLCPFD BIT(1), /* FLAG IND. LCPB FOUND ON WAITQ */ 05288000 * 3 ZCR3270 BIT(1), /* 3270 DEVICE */ 05289000 * 3 ZCR3270R BIT(1), /* 3270 DEVICE IN RECORD MODE */ 05290000 * 3 * BIT(1), /* RESERVED */ 05291000 * 2 ZCRSCPSW CHAR(1), /* SESSION CONTROL FLAGS */ 05292000 * 3 ZCRTPEX BIT(1), /* TP EXIT */ 05293000 * 3 ZCRTPINV BIT(1), /* INVOKE TPIOS */ 05294000 * 3 ZCRRJLCP BIT(1), /* LCPB REJECTED */ 05295000 * 3 ZCRLREQ BIT(1), /* REQUEST */ 05296000 * 3 ZCRPRCMP BIT(1), /* PROCESSING COMPLETE */ 05297000 * 3 ZCRFSBWE BIT(1), /* FSB IS WORK ELEMENT */ 05298000 * 3 ZCRSKIPT BIT(1), /* SKIP TRACE FLAG */ 05299000 * 3 * BIT(1), /* RESERVED */ 05300000 * 2 ZCRCRLCP PTR(31), /* CURRENT LCPB PTR */ 05301000 * 2 ZCRPARMS BDY(WORD), /* PARAMETERS PASSED TO UTILITIES */ 05302000 * 3 ZCRFBPTR PTR(31), /* PTR TO FROM BUFFER */ 05303000 * 4 ZCRCBPTR PTR(31), /* PTR TO CURRENT BUFFER */ 05304000 * 3 ZCRTBPTR PTR(31), /* PTR TO TO-OR-TRANSLATE BUFFER */ 05305000 * 3 ZCRMLNG FIXED(15), /* LENGTH TO MOVE */ 05306000 * 3 ZCRDFRDA FIXED(15), /* OFFSET FROM DATA ADDR IN FROM BUF*/ 05307000 * 4 ZCRDTODA FIXED(15), /* OFFSET FROM DATA ADDR XLATE BUF */ 05308000 * 3 ZCRPCOD1 CHAR(1), /* CODE BYTE FOR ALLOC/DISALLOC */ 05309000 * 4 ZCRPPG BIT(1), /* GET PAGEABLE BUFF */ 05310000 * 4 ZCRPLNG BIT(1), /* LENGTH OF BUFFER SPECIFIED */ 05311000 * 4 ZCRPFSB BIT(1), /* GET FSB */ 05312000 * 4 ZCRPLSBF BIT(1), /* GET LSCB AND BUFFER */ 05313000 * 5 ZCRPLSBQ BIT(1), /* PURGE LSCB QUEUE */ 05314000 * 4 ZCRPLSCB BIT(1), /* GET OR RELEASE LSCB */ 05315000 * 4 ZCRPBUF BIT(1), /* GET OR RELEASE BUFFER */ 05316000 * 4 ZCRPCFTX BIT(1), /* CONFIDENTIAL TEXT */ 05317000 * 4 ZCRPRES BIT(1), /* RESERVED */ 05318000 * 3 ZCRPCOD2 CHAR(1), /* CODE BYTE FOR MOVE */ 05319000 * 4 ZCRPPG2 BIT(1), /* GET PAGEABLE BUFFER */ 05320000 * 4 ZCRPFHDR BIT(1), /* FROM BUFFER FDB TO BE USED */ 05321000 * 4 ZCRPMFGF BIT(1), /* MOVE STARTS WIHT 1ST BUFF IN BLOCK* 05322000 * 4 ZCRPRES2 BIT(5), /* RESERVED */ 05323000 * 3 ZCRPCHAR CHAR(1), /* TRANSLATE & TEST SEARCH CHARACTER*/ 05324000 * 3 ZCRPSW CHAR(1), /* SWITCH FIELD */ 05325000 * 2 ZCRCCWA PTR(31), /* PTR TO CURRENT CCW (CCW 1 OR 2) */ 05326000 * 2 ZCRBFPTR PTR(31), /* SAVE 1ST BUFF PTR IN TO-BUFF CHN 05327000 * OR LAST BUFFER IN CHANNEL PGM */ 05328000 * 2 ZCRZLB PTR(31), /* PTR TO CURR BUFF IN CHANNEL PGM */ 05329000 * 2 ZCRPVZB PTR(31), /* PTR TO PREVIOUS BUFF IN CHAN PGM */ 05330000 * 2 ZCRSVRTN BDY(WORD), /* REG 14 SAVE AREAS */ 05331000 * 3 ZCRSVF1 PTR(31), /* SAVE REQUIRED REGISTER */ 05332000 * 3 ZCRSVF2 PTR(31), /* SAVE REQUIRED REGISTER */ 05333000 * 3 ZCRSVF3 PTR(31), /* SAVE REQUIRED REGISTER */ 05334000 * 3 ZCRSVF4 PTR(31), /* SAVE REQUIRED REGISTER */ 05335000 * 3 ZCRSVF5 PTR(31), /* SAVE REQUIRED REGISTER */ 05336000 * 3 ZCRSVF6 PTR(31), /* SAVE REQUIRED REGISTER */ 05337000 * 3 ZCRSVF7 PTR(31), /* SAVE REQUIRED REGISTER */ 05338000 * 3 ZCRSVF8 PTR(31), /* SAVE REQUIRED REGISTER */ 05339000 * 3 ZCRSVF9 PTR(31), /* SAVE REQUIRED REGISTER */ 05340000 * 3 ZCRSVF10 PTR(31), /* SAVE REQUIRED REGISTER */ 05341000 * 3 ZCRSVF11 PTR(31), /* SAVE REQUIRED REGISTER */ 05342000 * 3 ZCRSVF12 PTR(31), /* SAVE REQUIRED REGISTER */ 05343000 * 3 ZCRSVF13 PTR(31), /* SAVE REQUIRED REGISTER */ 05344000 * 3 ZCRSVF14 PTR(31), /* SAVE REQUIRED REGISTER */ 05345000 * 3 ZCRSVF15 PTR(31), /* SAVE REQUIRED REGISTER */ 05346000 * 3 ZCRSVF16 PTR(31), /* SAVE REQUIRED REGISTER */ 05347000 * 3 ZCRSVF17 PTR(31), /* SAVE REQUIRED REGISTER */ 05348000 * 3 ZCRSVF18 PTR(31), /* SAVE REQUIRED REGISTER */ 05349000 * 3 ZCRSVF19 PTR(31), /* SAVE REQUIRED REGISTER */ 05350000 * 3 ZCRSVF20 PTR(31), /* SAVE REQUIRED REGISTER */ 05351000 * 3 ZCRSVF21 PTR(31), /* SAVE REQUIRED REGISTER */ 05352000 * 3 ZCRSVF22 PTR(31), /* SAVE REQUIRED REGISTER */ 05353000 * 3 ZCRSVF23 PTR(31), /* SAVE REQUIRED REGISTER */ 05354000 * 3 ZCRSVF24 PTR(31), /* SAVE REQUIRED REGISTER */ 05355000 * 3 ZCRSVF25 PTR(31), /* SAVE REQUIRED REGISTER */ 05356000 * 2 ZCRWKARA BDY(WORD), /* TEMPORARY REG SAVE AREA */ 05357000 * 3 ZCRSVWK1 PTR(31), /* SAVE REQUIRED REG */ 05358000 * 3 ZCRSVWK2 PTR(31), /* SAVE REQUIRED REG */ 05359000 * 3 ZCRSVWK3 PTR(31), /* SAVE REQUIRED REG */ 05360000 * 3 ZCRSVWK4 PTR(31), /* SAVE REQUIRED REG */ 05361000 * 3 ZCRSVWK5 PTR(31), /* SAVE REQUIRED REG */ 05362000 * 2 ZCRFSBSV PTR(31), /* FSB CHAIN PTR SAVEAREA */ 05363000 * 2 ZCRFBPRC BIT(1), /* FSB PROCESS SW */ 05364000 * 2 ZCRMOREL BIT(1), /* MORE ELEMENTS SW */ 05365000 * 2 ZCRSCANQ BIT(1), /* SCAN QUEUE SW */ 05366000 * 2 ZCRNXTEL BIT(1), /* NEXT ELEMENT SW */ 05367000 * 2 ZCRXSCHD BIT(1), /* EXIT SCHEDULE SW */ 05368000 * 2 ZCRLSTFB BIT(1), /* INBOUND PROC LAST FSB FOR ELEM SW*/ 05369000 * 2 ZCRTOPQ BIT(1), /* QUEUE ELEMENT TO TOP SW */ 05370000 * 2 ZCRAWQSW BIT(1), /* CHECK AWAITQ FOR MORE WORK =1 */ 05371000 * /* CHECK WAITQ =0 */ 05372000 * 2 ZCRRCDSV CHAR(1), /* RETURN CODE SAVEAREA */ 05373000 * 2 ZCRPRMTC CHAR(1), /* PREEMPT COMPLETION PARAMETER BYTE*/ 05374000 * 2 ZCROPCDE CHAR(1), /* OP CODE TO BE TRANSFORMED * 05375000 * 2 ZCRR2SV PTR(31), /* ISTZBFDI REG 2 SAVE EREA */ 05376000 * 2 ZCRR13SV PTR(31), /* ISTSBFDI REG 13 SAVE EREA */ 05377000 * 2 ZCRCIDSV BDY(WORD), /* ISTZBFDI CID SAVE AREA */ 05378000 * 3 ZCRSAFSV CHAR(2), /* ISTZBFDI SAF SAVE AREA */ 05379000 * 3 ZCRDAFSV CHAR(2), /* ISTZBFDI DAF SAVE AREA */ 05380000 * 2 ZCRSAVEZ (6) BDY(WORD) CHAR(LENGTH(ISTZSAVE)), 01S1438 05381000 * /* SAVE/TRACE AREAS FOR TPIOS MODS */ 05382000 * 2 ZCRREMIC PTR(31), /* POINTER TO REMOTE RN ICNCB */ 05383000 * 2 ZCRAUDIT CHAR(36), /* TPIOS AUDIT TRAIL AREA */ 05384000 * 3 ZCRTID CHAR(1), /* THREAD I.D. */ 05385000 * 3 ZCRTNAME CHAR(4), /* LAST 4 CHARS OF THREAD NAME */ 05386000 * 3 ZCRENTER BIT(248), /* BIT ARRAY FOR MODULES ENTERED */ 05387000 * 4 ZCREAC1A BIT(1), /* ISTZAC1A ENTERED */ 05388000 * 4 ZCREAC0A BIT(1), /* ISTZAC0A ENTERED */ 05389000 * 4 ZCREAC0B BIT(1), /* ISTZAC0B ENTERED */ 05390000 * 4 ZCREAC1B BIT(1), /* ISTZAC1B ENTERED */ 05391000 * 4 ZCREBCAA BIT(1), /* ISTZBCAA ENTERED */ 05392000 * 4 ZCREBCAB BIT(1), /* ISTZBCAB ENTERED */ 05393000 * 4 ZCREBCAE BIT(1), /* ISTZBCAE ENTERED */ 05394000 * 4 ZCREBCAG BIT(1), /* ISTZBCAG ENTERED */ 05395000 * 4 ZCREBCAI BIT(1), /* ISTZBCAI ENTERED */ 05396000 * 4 ZCREBCAM BIT(1), /* ISTZBCAM ENTERED */ 05397000 * 4 ZCREBCBA BIT(1), /* ISTZBCBA ENTERED */ 05398000 * 4 ZCREBCBB BIT(1), /* ISTZBCBB ENTERED */ 05399000 * 4 ZCREBCBI BIT(1), /* ISTZBCBI ENTERED */ 05400000 * 4 ZCREBCCB BIT(1), /* ISTZBCCB ENTERED */ 05401000 * 4 ZCREBCDI BIT(1), /* ISTZBCDI ENTERED */ 05402000 * 4 ZCREBCEB BIT(1), /* ISTZBCEB ENTERED */ 05403000 * 4 ZCREBCFA BIT(1), /* ISTZBCFA ENTERED */ 05404000 * 4 ZCREBCFB BIT(1), /* ISTZBCFB ENTERED */ 05405000 * 4 ZCREBCGA BIT(1), /* ISTZBCGA ENTERED */ 05406000 * 4 ZCREBCGB BIT(1), /* ISTZBCGB ENTERED */ 05407000 * 4 ZCREBCHA BIT(1), /* ISTZBCHA ENTERED */ 05408000 * 4 ZCREBCHB BIT(1), /* ISTZBCHB ENTERED */ 05409000 * 4 ZCREBCIA BIT(1), /* ISTZBCIA ENTERED */ 05410000 * 4 ZCREBCIB BIT(1), /* ISTZBCIB ENTERED */ 05411000 * 4 ZCREBCID BIT(1), /* ISTZBCID ENTERED */ 05412000 * 4 ZCREBCJA BIT(1), /* ISTZBCJA ENTERED */ 05413000 * 4 ZCREBCJB BIT(1), /* ISTZBCJB ENTERED */ 05414000 * 4 ZCREBCKA BIT(1), /* ISTZBCKA ENTERED */ 05415000 * 4 ZCREBCKB BIT(1), /* ISTZBCKB ENTERED */ 05416000 * 4 ZCREBCLA BIT(1), /* ISTZBCLA ENTERED */ 05417000 * 4 ZCREBCLB BIT(1), /* ISTZBCLB ENTERED */ 05418000 * 4 ZCREBCMB BIT(1), /* ISTZBCMB ENTERED */ 05419000 * 4 ZCREBCND BIT(1), /* ISTZBCND ENTERED */ 05420000 * 4 ZCREBCNE BIT(1), /* ISTZBCNE ENTERED */ 05421000 * 4 ZCREBCOB BIT(1), /* ISTZBCOB ENTERED */ 05422000 * 4 ZCREBCPB BIT(1), /* ISTZBCPB ENTERED */ 05423000 * 4 ZCREBCQB BIT(1), /* ISTZBCQB ENTERED */ 05424000 * 4 ZCREBCRA BIT(1), /* ISTZBCRA ENTERED */ 05425000 * 4 ZCREBCRB BIT(1), /* ISTZBCRB ENTERED */ 05426000 * 4 ZCREBCSC BIT(1), /* ISTZBCSC ENTERED */ 05427000 * 4 ZCREBCXA BIT(1), /* ISTZBCXA ENTERED */ 05428000 * 4 ZCREBCX0 BIT(1), /* ISTZBCX0 ENTERED */ 05429000 * 4 ZCREBCY0 BIT(1), /* ISTZBCY0 ENTERED */ 05430000 * 4 ZCREBCZ0 BIT(1), /* ISTZBCZ0 ENTERED */ 05431000 * 4 ZCREBC0A BIT(1), /* ISTZBC0A ENTERED */ 05432000 * 4 ZCREBC0B BIT(1), /* ISTZBC0B ENTERED */ 05433000 * 4 ZCRECC0A BIT(1), /* ISTZCC0A ENTERED */ 05434000 * 4 ZCRECC0B BIT(1), /* ISTZCC0B ENTERED */ 05435000 * 4 ZCRECC1A BIT(1), /* ISTZCC1A ENTERED */ 05436000 * 4 ZCRECC1B BIT(1), /* ISTZCC1B ENTERED */ 05437000 * 4 ZCRECC2B BIT(1), /* ISTZCC2B ENTERED */ 05438000 * 4 ZCREDCA0 BIT(1), /* ISTZDCA0 ENTERED */ 05439000 * 4 ZCREDCB0 BIT(1), /* ISTZDCB0 ENTERED */ 05440000 * 4 ZCREDCC0 BIT(1), /* ISTZDCC0 ENTERED */ 05441000 * 4 ZCREDCD0 BIT(1), /* ISTZDCD0 ENTERED */ 05442000 * 4 ZCREDCE0 BIT(1), /* ISTZDCE0 ENTERED */ 05443000 * 4 ZCREDCF0 BIT(1), /* ISTZDCF0 ENTERED */ 05444000 * 4 ZCREDCH0 BIT(1), /* ISTZDCH0 ENTERED */ 05445000 * 4 ZCREDCI0 BIT(1), /* ISTZDCI0 ENTERED */ 05446000 * 4 ZCREDCJ0 BIT(1), /* ISTZDCJ0 ENTERED */ 05447000 * 4 ZCREDCKA BIT(1), /* ISTZDCKA ENTERED */ 05448000 * 4 ZCREDCKB BIT(1), /* ISTZDCKB ENTERED */ 05449000 * 4 ZCREDCL0 BIT(1), /* ISTZDCL0 ENTERED */ 05450000 * 4 ZCREDCMB BIT(1), /* ISTZDCMB ENTERED */ 05451000 * 4 ZCREECBA BIT(1), /* ISTZECBA ENTERED */ 05452000 * 4 ZCREECBB BIT(1), /* ISTZECBB ENTERED */ 05453000 * 4 ZCREECCA BIT(1), /* ISTZECCA ENTERED */ 05454000 * 4 ZCREECCB BIT(1), /* ISTZECCB ENTERED */ 05455000 * 4 ZCREECDA BIT(1), /* ISTZECDA ENTERED */ 05456000 * 4 ZCREECEA BIT(1), /* ISTZECEA ENTERED */ 05457000 * 4 ZCREECTA BIT(1), /* ISTZECTA ENTERED */ 05458000 * 4 ZCREFCEA BIT(1), /* ISTZFCEA ENTERED */ 05459000 * 4 ZCREFCEB BIT(1), /* ISTZFCEB ENTERED */ 05460000 * 4 ZCREGCAB BIT(1), /* ISTZGCAB ENTERED */ 05461000 * 4 ZCREGCBB BIT(1), /* ISTZGCBB ENTERED */ 05462000 * 4 * BIT(1), /* NOT USED */ 05463000 * 4 ZCREGCDB BIT(1), /* ISTZGCDB ENTERED */ 05464000 * 4 ZCREGCEB BIT(1), /* ISTZGCEB ENTERED */ 05465000 * 4 ZCREGCLA BIT(1), /* ISTZGCLA ENTERED */ 05466000 * 4 ZCREGC0A BIT(1), /* ISTZGC0A ENTERED */ 05467000 * 4 ZCREGC0B BIT(1), /* ISTZGC0B ENTERED */ 05468000 * 4 ZCREHCAN BIT(1), /* ISTZHCAN ENTERED */ 05469000 * 4 ZCREICAA BIT(1), /* ISTZICAA ENTERED */ 05470000 * 4 ZCREICAB BIT(1), /* ISTZICAB ENTERED */ 05471000 * 4 ZCREICBB BIT(1), /* ISTZICBB ENTERED */ 05472000 * 4 ZCREICBI BIT(1), /* ISTZICBI ENTERED */ 05473000 * 4 ZCREICCB BIT(1), /* ISTZICCB ENTERED */ 05474000 * 4 ZCREICCI BIT(1), /* ISTZICCI ENTERED */ 05475000 * 4 ZCREICDB BIT(1), /* ISTZICDB ENTERED */ 05476000 * 4 ZCREICEB BIT(1), /* ISTZICEB ENTERED */ 05477000 * 4 ZCREICGB BIT(1), /* ISTZICGB ENTERED */ 05478000 * 4 ZCREICHB BIT(1), /* ISTZICHB ENTERED */ 05479000 * 4 ZCREICIB BIT(1), /* ISTZICIB ENTERED */ 05480000 * 4 ZCREICID BIT(1), /* ISTZICID ENTERED */ 05481000 * 4 ZCREICJB BIT(1), /* ISTZICJB ENTERED */ 05482000 * 4 ZCREICKB BIT(1), /* ISTZICKB ENTERED */ 05483000 * 4 ZCREICKE BIT(1), /* ISTZICKE ENTERED */ 05484000 * 4 ZCREICKG BIT(1), /* ISTZICKG ENTERED */ 05485000 * 4 ZCREICLB BIT(1), /* ISTZICLB ENTERED */ 05486000 * 4 ZCREICMB BIT(1), /* ISTZICMB ENTERED */ 05487000 * 4 ZCREICNA BIT(1), /* ISTZICNA ENTERED */ 05488000 * 4 ZCREICNB BIT(1), /* ISTZICNB ENTERED */ 05489000 * 4 ZCREICOA BIT(1), /* ISTZICOA ENTERED */ 05490000 * 4 ZCREICOB BIT(1), /* ISTZICOB ENTERED */ 05491000 * 4 ZCREICQA BIT(1), /* ISTZICQA ENTERED */ 05492000 * 4 ZCREICQB BIT(1), /* ISTZICQB ENTERED */ 05493000 * 4 ZCREICRB BIT(1), /* ISTZICRB ENTERED */ 05494000 * 4 ZCREICSB BIT(1), /* ISTZICSB ENTERED */ 05495000 * 4 ZCREICSC BIT(1), /* ISTZICSC ENTERED */ 05496000 * 4 ZCREICTB BIT(1), /* ISTZICTB ENTERED */ 05497000 * 4 ZCREICUB BIT(1), /* ISTZICUB ENTERED */ 05498000 * 4 ZCREICVB BIT(1), /* ISTZICVB ENTERED */ 05499000 * 4 ZCREICWB BIT(1), /* ISTZICWB ENTERED */ 05500000 * 4 ZCREICX0 BIT(1), /* ISTZICX0 ENTERED */ 05501000 * 4 ZCREIC0B BIT(1), /* ISTZIC0B ENTERED */ 05502000 * 4 ZCREIC1B BIT(1), /* ISTZIC1B ENTERED */ 05503000 * 4 ZCREJCAB BIT(1), /* ISTZJCAB ENTERED */ 05504000 * 4 ZCREJCBB BIT(1), /* ISTZJCBB ENTERED */ 05505000 * 4 ZCREJCCB BIT(1), /* ISTZJCCB ENTERED */ 05506000 * 4 ZCREJCDB BIT(1), /* ISTZJCDB ENTERED */ 05507000 * 4 ZCREJC0B BIT(1), /* ISTZJC0B ENTERED */ 05508000 * 4 ZCREKCBB BIT(1), /* ISTZKCBB ENTERED */ 05509000 * 4 ZCREKCBN BIT(1), /* ISTZKCBN ENTERED */ 05510000 * 4 ZCREKCCN BIT(1), /* ISTZKCCN ENTERED */ 05511000 * 4 ZCREDCWR BIT(1), /* ISTZDCWR ENTERED */ 05512000 * 4 ZCREDCWB BIT(1), /* ISTZDCWB ENTERED */ 05513000 * 4 ZCREDCXR BIT(1), /* ISTZDCXR ENTERED */ 05514000 * 4 ZCREBCBR BIT(1), /* ISTZBCBR ENTERED */ 05515000 * 4 ZCREBCDR BIT(1), /* ISTZBCDR ENTERED */ 05516000 * 4 ZCREBCAR BIT(1), /* ISTZBCAR ENTERED */ 05517000 * 4 ZCRECCBI BIT(1), /* ISTZCCBI ENTERED */ 05518000 * 4 ZCRECCAI BIT(1), /* ISTZCCAI ENTERED */ 05519000 * 4 ZCRECCCI BIT(1), /* ISTZCCCI ENTERED */ 05520000 * 4 ZCREAC1R BIT(1), /* ISTZAC1R ENTERED */ 05521000 * 4 ZCREBCSB BIT(1), /* ISTZBCSB ENTERED */ 05522000 * 4 ZCREDCPR BIT(1), /* ISTZDCPR ENTERED */ 05523000 * 4 ZCREDCQR BIT(1), /* ISTZDCQR ENTERED */ 05524000 * 4 ZCREBCAL BIT(1), /* ISTZBCAL ENTERED */ 05525000 * 4 ZCREBC0L BIT(1), /* ISTZBC0L ENTERED */ 05526000 * 4 ZCREBCNB BIT(1), /* ISTZBCNB ENTERED */ 05527000 * 4 ZCREICOE BIT(1), /* ISTZICOE ENTERED */ 05528000 * 4 ZCREDCNB BIT(1), /* ISTZDCNB ENTERED */ 05529000 * 4 ZCREKCCB BIT(1), /* ISTZKCCB ENTERED */ 05530000 * 4 ZCRECFY0 BIT(1), /* ISTZCFY0 ENTERED */ 05531000 * 4 ZCREDCK0 BIT(1), /* ISTZDFK0 ENTERED */ 05532000 * 4 ZCREICSG BIT(1), /* ISTZICSG ENTERED */ 05533000 * 4 ZCREBCIF BIT(1), /* ISTZBCIF ENTERED */ 05534000 * 4 ZCREDCMF BIT(1), /* ISTZDCMF ENTERED */ 05535000 * 4 ZCRELCAB BIT(1), /* ISTZLCAB ENTERED */ 05536000 * 4 ZCREAC2B BIT(1), /* ISTZAC2B ENTERED */ 05537000 * 4 ZCREIC2B BIT(1), /* ISTZIC2B ENTERED */ 05538000 * 4 ZCRRSV97 BIT(97), /* RESERVED */ 05539000 * 2 ZCRCMNRC CHAR(1), /* PURGE MWOR RETURN CODE */ 05540000 * 2 ZCRWORDA CHAR(3), /* RESERVED FOR LATER USE */ 05541000 * 2 ZCRLCPB CHAR(LENGTH(ISTLCPB)), /* 3270 S/R LCPB */ 05542000 * 3 ZCRRHRU, /* SAVEAREA FOR RH AND RU */ 05543000 * 4 ZCRRH CHAR(3), /* RH */ 05544000 * 4 ZCRRU CHAR(*); /* RU */ 05545000 *DCL ZCTYPE BIT(8) CONSTANT('00'X); /* ZCR TYPE */ 05546000 *DCL ZCLNG FIXED(15) CONSTANT(172); /* ZCRR LENGTH */ 05547000 *DCL ZCRSAVNO BIT(8) CONSTANT('06'X); /* NUMBER OF SAVEAREAS IN ZCRR */ 05548000 *DCL ZCRLSVNO BIT(8) CONSTANT('04'X); /* NUMBER OF SAVE AREAS IN 05549000 * LOCAL SUPPORT */ 05550000 */* *** EQUATES FOR ZCRRCDSV *** */ 01S1443 05551000 * 01S1443 05552000 *DCL ZCRMRFSB BIT(8) CONSTANT('0C'X); /* REQUEST COMPLETION MOVE FSB 05553000 * TO PROCESS */ 05554000 *DCL ZCRSRCHQ BIT(8) CONSTANT('10'X); /* REQUEST COMPLETION SEARCH 05555000 * REQUEST QUEUE */ 05556000 *DCL ZCREXIT BIT(8) CONSTANT('14'X); /* REQUEST COMPLETION EXIT */ 05557000 *DCL ZCRSFSB BIT(8) CONSTANT('18'X); /* REQUEST COMPLETION SINGLE 05558000 * FSB */ 05559000 *DCL ZCRDLFSB BIT(8) CONSTANT('1C'X); /* REQUEST COMPLETION DUAL FSB * 05560000 *DCL ZCRNOSCH BIT (8) CONSTANT('20'X); /* REQUEST COMPLETION, EXIT WITH 05561000 * SCHED NONE */ 05562000 *DCL ZCRNRSCH BIT (8) CONSTANT('24'X); /* REQUEST COMPLETION, EXIT WITH 05563000 * SCHED NORM */ 05564000 *DCL ZCRLGERR FIXED(8) CONSTANT(8); /* LOGICAL ERROR */ 05565000 *DCL ZCPLSCB BIT(8) CONSTANT('08'X); /* GET A RELEASE LSCB */ 05566000 *DCL ZCPBUF BIT(8) CONSTANT('04'X); /* GET A RELEASE BUFFER */ 05567000 *DCL ZCRTAC0A FIXED(8) CONSTANT(01); /* LOCAL DEVICE SCHEDULER(OUT)*/ 05568000 *DCL ZCRTAC0B FIXED(8) CONSTANT(02); /* REMOTE DEVICE SCHEDLER(OUT)*/ 05569000 *DCL ZCRTCC1A FIXED(8) CONSTANT(03); /* LOCAL DIALOG SCHEDLER(IN) */ 05570000 *DCL ZCRTCC1B FIXED(8) CONSTANT(04); /* REMOTE DIALOG SCHEDLER(IN) */ 05571000 *DCL ZCRTDCE0 FIXED(8) CONSTANT(05); /* NCP SLOWDOWN RECOVERY */ 05572000 *DCL ZCRTDCKA FIXED(8) CONSTANT(06); /* LOCAL GENERAL FUNCTIONS */ 05573000 *DCL ZCRTDCKB FIXED(8) CONSTANT(07); /* REMOTE GENERAL FUNCTIONS */ 05574000 *DCL ZCRTFCEB FIXED(8) CONSTANT(08); /* REMOTE READ BUFFER ALLOC. */ 05575000 *DCL ZCRTGCLA FIXED(8) CONSTANT(09); /* LCAL CTL & TEST FEEDBACK(IN)* 05576000 *DCL ZCRTGC0A FIXED(8) CONSTANT(10); /* LOCAL REQ. COMPLETION(IN) */ 05577000 *DCL ZCRTGC0B FIXED(8) CONSTANT(11); /* REMOTE REQ. COMPLETION(IN) */ 05578000 *DCL ZCRTICWB FIXED(8) CONSTANT(12); /* RESET CLEANUP (PHASE 5) */ 05579000 *DCL ZCRTIC0B FIXED(8) CONSTANT(13); /* REMOTE REQ COMPLTION CTL(IN)* 05580000 *DCL ZCRTAC1B FIXED(8) CONSTANT(14); /* ISTZAC1B THREAD ID */ 05581000 *DCL ZCRTIC1B FIXED(8) CONSTANT(15); /* ISTZIC1B THREAD ID */ 05582000 *DCL ZCRTCCBI FIXED(8) CONSTANT(16); /* ISTZCCBI THREAD ID */ 05583000 *DCL ZCRTAC1R FIXED(8) CONSTANT(17); /* ISTZAC1R THREAD ID */ 05584000 *DCL ZCRTAC1A FIXED(8) CONSTANT(18); /* ISTZAC1A THREAD ID */ 05585000 *DCL ZCRTLCAB FIXED(8) CONSTANT(19); /* ISTZLCAB THREAD ID */ 05586000 */* COMPONENT RECOVERY */ 05587000 */* */ 05588000 *DCL 1 ISTASCRR BDY(WORD) BASED, /* CRR FOR SMS */ 05589000 * 2 ASCPFCRR CHAR(LENGTH(ISTPFCRR)), 01S1472 05590000 * 2 ASCFLAGS CHAR(7), /* FLAGS */ 05591000 * 3 ASCFLG1 CHAR(2), /* MODULE TRACE FLAGS */ 05592000 * 4 ASCFBA BIT(1), /* ALLOCATION IN PATH */ 05593000 * 4 ASCFBD BIT(1), /* DE-ALLOCATION IN PATH */ 05594000 * 4 ASCFSR BIT(1), /* FSR IN PATH */ 05595000 * 4 ASCPASTR BIT(13), /* RESERVED PATH FLAGS */ 05596000 * 3 ASCFLG2 CHAR(2), /* MODULE IN CONTROL FLAGS */ 05597000 * 4 ASCFBAIC BIT(1), /* ALLOCATION IN CONTROL */ 05598000 * 4 ASCFBDIC BIT(1), /* DE-ALLOCATION IN CONTROL */ 05599000 * 4 ASCFSRIC BIT(1), /* FSR IN CONTROL */ 05600000 * 4 ASCICR BIT(13), /* RESERVED IN CONTROL FLAGS */ 05601000 * 3 ASCFLG3 CHAR(3), /* AUDIT FLAGS */ 05602000 * 4 ASCFSRGT BIT(1), /* FSR DOING GET PROCESSING */ 05603000 * 4 ASCFBDAL BIT(1), /* FBD DOING ALLOCATION */ 05604000 * 4 ASCKEYF BIT(1), /* KEY HAS BEEN ALTERED */ 05605000 * 4 ASCLLKF BIT(1), /* LOCAL LOCK HELD */ 05606000 * 4 ASCFBDUD BIT(1), /* FBD USING USER DATA */ 05607000 * 4 ASCAUDIT BIT(19), /* RESERVED AUDIT BITS */ 05608000 * 2 ASCKEY CHAR(1), /* ORIGINAL KEY */ 05609000 * 2 ASCETRYA PTR(31), /* RETRY ADRS FOR CONTINUE 05610000 * OPTION */ 05611000 * 2 ASCUSRGS CHAR(16), /* SAVE AREA FOR USER REGS 05612000 * 14 - 1 */ 05613000 * 3 ASCUSR14 CHAR(4), /* REGISTER 14 */ 05614000 * 3 ASCUSR15 CHAR(4), /* REGISTER 15 */ 05615000 * 3 ASCUSR00 CHAR(4), /* REGISTER 0 */ 05616000 * 3 ASCUSR01 CHAR(4), /* REGISTER 1 */ 05617000 * 2 ASCPSREG CHAR(16); /* SAVE AREA FOR PSS 01S1472 05618000 * REGS 1 - 4 */ 05619000 */* INITIAL LEVEL 001 04/09/75 */ 05620000 *DCL 1 ISTAPCRR BDY(WORD) BASED, 01S1473 05621000 * 2 APCHDRSV CHAR(LENGTH(ISTPFCRR)), /* HEADER */ 05622000 * 2 APCATFLG CHAR(2), /* AUDIT TRACE FLAGS */ 05623000 * 3 APC51E BIT(1), /* ISTAPC51 WAS ENTERED */ 05624000 * 3 APC52E BIT(1), /* ISTAPC52 ' ' */ 05625000 * 3 APC53E BIT(1), /* ISTAPC53 */ 05626000 * 3 APC54E BIT(1), 01S1473 05627000 * 3 APC56E BIT(1), 01S1473 05628000 * 3 APC57E BIT(1), 01S1473 05629000 * 3 APC58E BIT(1), 01S1473 05630000 * 3 APC31E BIT(1), 01S1473 05631000 * 3 * BIT(8), /* RESERVED */ 05632000 * 2 APCRFLG CHAR(2), /* AUDIT TRACE FLAGS */ 05633000 * 3 APC51R BIT(1), /* ISTAPCR1 IS RUNNING */ 05634000 * 3 APC52R BIT(1), /* ISTAPC52 IS RUNNING */ 05635000 * 3 APC53R BIT(1), 01S1473 05636000 * 3 APC54R BIT(1), 01S1473 05637000 * 3 APC56R BIT(1), 01S1473 05638000 * 3 APC57R BIT(1), 01S1473 05639000 * 3 APC58R BIT(1), 01S1473 05640000 * 3 APC31R BIT(1), 01S1473 05641000 * 3 * BIT(8), /* RESERVED */ 05642000 * 2 APCPSTA PTR(31), /* PST@ */ 05643000 * 2 APCTCBA PTR(31), /* TCB@ */ 05644000 * 2 APCRTRN PTR(31), /*@ TO BR14 TO RTN TO SYSTEM */ 05645000 * 2 APCPABSV PTR(31), /*SAVED PAB@ TO REDISPATCH */ 05646000 * 2 APCQWFO PTR(31), /* Q@ IN PST WORK AREA ON */ 05647000 * 2 APCFRRPM PTR(31), /* WORKAREA@ RTN'D FROM SETFR*/ 05648000 * 2 APCSAVE CHAR(72), 01S1473 05649000 * 3 APCESTAL CHAR(72), /* ESTAE PARAMETER LIST AREA */ 05650000 * 2 APCCOMF CHAR(4) BDY(HWORD), /* FLAGS USED BY ALL PSS RTN */ 05651000 * 3 APCCOMF1 CHAR(2), 01S1473 05652000 * 4 APCSSTSK BIT(1), /* IRB TYPE WORK */ 05653000 * 4 APCUETSK BIT(1), /* USER EXIT RUNNING UNDER IRB* 05654000 * 4 APCSMCR BIT(1), /* SMA CRA BEING USED */ 05655000 * 4 APCIRB1 BIT(1), /* IRB1 BEING USED */ 05656000 * 4 APCIRB2 BIT(1), /* IRB2 BEING USED */ 05657000 * 4 APCRELR BIT(1), /*CALL ISTAPC58 TO RLEASE CRA*/ 05658000 * 4 APCEXIT BIT(1), /* TELLS ISTAPC58 TO EXIT SYS*/ 05659000 * 4 APCZLBER BIT(1), /* ERR WHILE RUNNING ZLFAB PAB* 05660000 * 4 * BIT(8), /* RESERVED */ 05661000 * 3 APCRETCD FIXED(15), /* RTN CODE FOR R15 FOR SYS */ 05662000 * 2 APCSAV1 PTR(31), /* 1ST SAVE WORD */ 05663000 * 2 APCSAV2 PTR(31), /* 2ND SAVE WORD */ 05664000 * 2 APCSWTWD CHAR(4), /* SWITCH AREA FOR PSS RTN */ 05665000 * 2 APC31FLG CHAR(1), /* ISTAPC31 FLAGS */ 05666000 * 3 APCTPXIT BIT(1), /* TPEXIT IN PROGRESS */ 05667000 * 3 APCRESCH BIT(1), /*PAB TPEXIT OCCURED RESCHED*/ 05668000 * 3 APCSORT BIT(1), /* PAB SORTED TO PROPER PST/MPST */ 05669000 * 3 * BIT(5), /* RESERVED */ 05670000 * 2 APC52FLG CHAR(1), /* ISTAPC52 FLAGS */ 05671000 * 3 APCCKRQ BIT(1), /* CHECK RDY Q FOR WORK */ 05672000 * 3 APCSMSR BIT(1), /* RETURNING SMS RPH */ 05673000 * 3 APCQENQ BIT(1), /* ENQUEUEING PAB'S ON PST Q'S */ 05674000 * 3 APCRDQ BIT(1), /* DEQUEING PAB'S FROM PST RDY Q */ 05675000 * 3 APCNWF BIT(1), /* NO WORK FOUND */ 05676000 * 3 APCWKF BIT(1), /* WORK FOUND */ 05677000 * 3 * BIT(2), /* RESERVED */ 05678000 * 2 APC53FLG CHAR(1), /* ISTAPC53 FLAGS */ 05679000 * 3 APCPR153 BIT(1), /* USED PREALLOCATED CRA */ 05680000 * 2 APC54FLG CHAR(1), /* ISTAPC54 FLAGS */ 05681000 * 3 APCRLST BIT(1), /* SMS BEING CALLED TO RELEASE UECB*/ 05682000 * 3 * BIT(7), /* RESERVED */ 05683000 * 2 APC57FLG CHAR(1), /* ISTAPC57 FLAGS */ 05684000 * 3 APCRECRA BIT(1), /* RELEASE CRA BEING DONE */ 05685000 * 3 APCNREL BIT(1), /* DID NOT RELEASE CRA */ 05686000 * 3 * BIT(6), /* RESERVED */ 05687000 * 2 * CHAR(15); /* RESERVED */ 05688000 */* COMPONENT RECOVERY AREA */ 05689000 */* REVISIONS 005 04/09/75 */ 05690000 *DCL 1 ISTCRA BASED BDY(DWORD), /* COMPONENT RECOVERY AREA */ 05691000 * 2 CRABASIC BDY(WORD), /* CRA WITHOUT PROCESS CRR */ 05692000 * 3 CRAHDR CHAR(8) BDY(WORD), /* CRA HEADER */ 05693000 * 4 CRACRR PTR(31), /* PTR TO ACTIVE CRR */ 05694000 * 4 CRAFRR PTR(31), /* PTR TO ACTIVE FRR */ 05695000 * 3 CRALKACT BIT(32), /* LOCK LEVEL AND 01S1474 05696000 * OWNERSHIP FLAGS */ 05697000 * 4 CRALEV32 BIT(1), /* 1 = LEVEL 32 LOCK HELD */ 05698000 * 4 CRALEV31 BIT(1), /* 1 = LEVEL 31 LOCK HELD */ 05699000 * 4 CRALEV30 BIT(1), /* 1 = LEVEL 30 LOCK HELD */ 05700000 * 4 CRALEV29 BIT(1), /* 1 = LEVEL 29 LOCK HELD */ 05701000 * 4 CRALEV28 BIT(1), /* 1 = LEVEL 28 LOCK HELD */ 05702000 * 4 CRALEV27 BIT(1), /* 1 = LEVEL 27 LOCK HELD */ 05703000 * 4 CRALEV26 BIT(1), /* 1 = LEVEL 26 LOCK HELD */ 05704000 * 4 CRALEV25 BIT(1), /* 1 = LEVEL 25 LOCK HELD */ 05705000 * 4 CRALEV24 BIT(1), /* 1 = LEVEL 24 LOCK HELD */ 05706000 * 4 CRALEV23 BIT(1), /* 1 = LEVEL 23 LOCK HELD */ 05707000 * 4 CRALEV22 BIT(1), /* 1 = LEVEL 22 LOCK HELD */ 05708000 * 4 CRALEV21 BIT(1), /* 1 = LEVEL 21 LOCK HELD */ 05709000 * 4 CRALEV20 BIT(1), /* 1 = LEVEL 20 LOCK HELD */ 05710000 * 4 CRALEV19 BIT(1), /* 1 = LEVEL 19 LOCK HELD */ 05711000 * 4 CRALEV18 BIT(1), /* 1 = LEVEL 18 LOCK HELD */ 05712000 * 4 CRALEV17 BIT(1), /* 1 = LEVEL 17 LOCK HELD */ 05713000 * 4 CRALEV16 BIT(1), /* 1 = LEVEL 16 LOCK HELD */ 05714000 * 4 CRALEV15 BIT(1), /* 1 = LEVEL 15 LOCK HELD */ 05715000 * 4 CRALEV14 BIT(1), /* 1 = LEVEL 14 LOCK HELD */ 05716000 * 4 CRALEV13 BIT(1), /* 1 = LEVEL 13 LOCK HELD */ 05717000 * 4 CRALEV12 BIT(1), /* 1 = LEVEL 12 LOCK HELD */ 05718000 * 4 CRALEV11 BIT(1), /* 1 = LEVEL 11 LOCK HELD */ 05719000 * 4 CRALEV10 BIT(1), /* 1 = LEVEL 10 LOCK HELD */ 05720000 * 4 CRALEV09 BIT(1), /* 1 = LEVEL 9 LOCK HELD */ 05721000 * 4 CRALEV08 BIT(1), /* 1 = LEVEL 8 LOCK HELD */ 05722000 * 4 CRALEV07 BIT(1), /* 1 = LEVEL 7 LOCK HELD */ 05723000 * 4 CRALEV06 BIT(1), /* 1 = LEVEL 6 LOCK HELD */ 05724000 * 4 CRALEV05 BIT(1), /* 1 = LEVEL 5 LOCK HELD */ 05725000 * 4 CRALEV04 BIT(1), /* 1 = LEVEL 4 LOCK HELD */ 05726000 * 4 CRALEV03 BIT(1), /* 1 = LEVEL 3 LOCK HELD */ 05727000 * 4 CRALEV02 BIT(1), /* 1 = LEVEL 2 LOCK HELD */ 05728000 * 4 CRALEV01 BIT(1), /* 1 = LEVEL 1 LOCK HELD */ 05729000 * 3 CRAL1PTR PTR(31), /* PTR TO LEVEL 1 LOCK */ 05730000 * 3 CRAL2PTR PTR(31), /* PTR TO LEVEL 2 LOCK */ 05731000 * 3 CRAL3PTR PTR(31), /* PTR TO LEVEL 3 LOCK */ 05732000 * 3 CRAL4PTR PTR(31), /* PTR TO LEVEL 4 LOCK */ 05733000 * 3 CRAL5PTR PTR(31), /* PTR TO LEVEL 5 LOCK */ 05734000 * 3 CRAL6PTR PTR(31), /* PTR TO LEVEL 6 LOCK */ 05735000 * 3 CRAL7PTR PTR(31), /* PTR TO LEVEL 7 LOCK */ 05736000 * 3 CRAL8PTR PTR(31), /* PTR TO LEVEL 8 LOCK */ 05737000 * 3 CRAL9PTR PTR(31), /* PTR TO LEVEL 9 LOCK */ 05738000 * 3 CRALAPTR PTR(31), /* RESERVED */ 05739000 */* */ 05740000 */* VS1/VS2 EXTENSION */ 05741000 */* */ 05742000 * 2 CRARPH CHAR(LENGTH(ISTRPH)), /* RPH ASSOCIATED WITH 01S1474 05743000 * THIS CRH */ 05744000 * 2 CRAPSS CHAR(LENGTH(ISTAPCRR)), /* PSS CRR */ 05745000 * 2 CRAPROCR CHAR(LENGTH(ISTZCRR)) BDY(DWORD), /* PROCESS CRR */ 05746000 * 2 CRASVC CHAR(72) BDY(WORD), /* SERVICE RTN CRA */ 05747000 * 3 CRAASCRR CHAR(LENGTH(ISTASCRR)), /* CRR FOR SMS */ 05748000 * 3 CRAHSIZ PTR(31), /* HEADER SIZE QUED SMS REQ */ 05749000 * 3 CRAMASK PTR(31), /* PREFIX MASK QUED SMS REQ */ 05750000 * 3 CRABUFA FIXED(31), /* BUFF QUE FOR FBQ ALLOCATION* 05751000 * 4 CRABFTBA BIT(1), /* NO BUFFERS ALLOCATED YET * 05752000 * 2 CRARSV01 PTR(31), /* RESERVED */ 05753000 * 2 CRARSV02 PTR(31), /* RESERVED */ 05754000 * 2 CRACHAIN PTR(31); /* CHAIN FIELD USED TO QUEUE 05755000 * CRA TO PREALLOCATE QUEUE 05756000 * WHEN NOT IN USE */ 05757000 *DCL CRALMS32 BIT(32) CONSTANT('80000000'X); /* 32ND LEVEL LOCK MASK */ 05758000 *DCL CRALMS31 BIT(32) CONSTANT('40000000'X); /* 31ST LEVEL LOCK MASK */ 05759000 *DCL CRALMS30 BIT(32) CONSTANT('20000000'X); /* 30TH LEVEL LOCK MASK */ 05760000 *DCL CRALMS29 BIT(32) CONSTANT('10000000'X); /* 29TH LEVEL LOCK MASK */ 05761000 *DCL CRALMS28 BIT(32) CONSTANT('08000000'X); /* 28TH LEVEL LOCK MASK */ 05762000 *DCL CRALMS27 BIT(32) CONSTANT('04000000'X); /* 27TH LEVEL LOCK MASK */ 05763000 *DCL CRALMS26 BIT(32) CONSTANT('02000000'X); /* 26TH LEVEL LOCK MASK */ 05764000 *DCL CRALMS25 BIT(32) CONSTANT('01000000'X); /* 25TH LEVEL LOCK MASK */ 05765000 *DCL CRALMS24 BIT(32) CONSTANT('00800000'X); /* 24TH LEVEL LOCK MASK */ 05766000 *DCL CRALMS23 BIT(32) CONSTANT('00400000'X); /* 23RD LEVEL LOCK MASK */ 05767000 *DCL CRALMS22 BIT(32) CONSTANT('00200000'X); /* 22ND LEVEL LOCK MASK */ 05768000 *DCL CRALMS21 BIT(32) CONSTANT('00100000'X); /* 21ST LEVEL LOCK MASK */ 05769000 *DCL CRALMS20 BIT(32) CONSTANT('00080000'X); /* 20TH LEVEL LOCK MASK */ 05770000 *DCL CRALMS19 BIT(32) CONSTANT('00040000'X); /* 19TH LEVEL LOCK MASK */ 05771000 *DCL CRALMS18 BIT(32) CONSTANT('00020000'X); /* 18TH LEVEL LOCK MASK */ 05772000 *DCL CRALMS17 BIT(32) CONSTANT('00010000'X); /* 17TH LEVEL LOCK MASK */ 05773000 *DCL CRALMS16 BIT(32) CONSTANT('00008000'X); /* 16TH LEVEL LOCK MASK */ 05774000 *DCL CRALMS15 BIT(32) CONSTANT('00004000'X); /* 15TH LEVEL LOCK MASK */ 05775000 *DCL CRALMS14 BIT(32) CONSTANT('00002000'X); /* 14TH LEVEL LOCK MASK */ 05776000 *DCL CRALMS13 BIT(32) CONSTANT('00001000'X); /* 13TH LEVEL LOCK MASK */ 05777000 *DCL CRALMS12 BIT(32) CONSTANT('00000800'X); /* 12TH LEVEL LOCK MASK */ 05778000 *DCL CRALMS11 BIT(32) CONSTANT('00000400'X); /* 11TH LEVEL LOCK MASK */ 05779000 *DCL CRALMS10 BIT(32) CONSTANT('00000200'X); /* 10TH LEVEL LOCK MASK */ 05780000 *DCL CRALMS09 BIT(32) CONSTANT('00000100'X); /* 9TH LEVEL LOCK MASK */ 05781000 *DCL CRALMS08 BIT(32) CONSTANT('00000080'X); /* 8TH LEVEL LOCK MASK */ 05782000 *DCL CRALMS07 BIT(32) CONSTANT('00000040'X); /* 7TH LEVEL LOCK MASK */ 05783000 *DCL CRALMS06 BIT(32) CONSTANT('00000020'X); /* 6TH LEVEL LOCK MASK */ 05784000 *DCL CRALMS05 BIT(32) CONSTANT('00000010'X); /* 5TH LEVEL LOCK MASK */ 05785000 *DCL CRALMS04 BIT(32) CONSTANT('00000008'X); /* 4TH LEVEL LOCK MASK */ 05786000 *DCL CRALMS03 BIT(32) CONSTANT('00000004'X); /* 3RD LEVEL LOCK MASK */ 05787000 *DCL CRALMS02 BIT(32) CONSTANT('00000002'X); /* 2ND LEVEL LOCK MASK */ 05788000 *DCL CRALMS01 BIT(32) CONSTANT('00000001'X); /* 1ST LEVEL LOCK MASK */ 05789000 *DCL CRACRA CHAR(4) CONSTANT('CRA '); /* CHARACTER C.B. ID */ 05790000 * DECLARE 01S1508 05791000 * EMCR0 PTR REG(0), 01S1508 05792000 * EMCR1 PTR REG(1), 01S1508 05793000 * EMCR2 PTR REG(2), 01S1508 05794000 * EMCR3 PTR REG(3), 01S1508 05795000 * EMCR4 PTR REG(4), 01S1508 05796000 * EMCR5 PTR REG(5), 01S1508 05797000 * EMCR6 PTR REG(6), 01S1508 05798000 * EMCR7 PTR REG(7), 01S1508 05799000 * EMCR8 PTR REG(8), 01S1508 05800000 * EMCR9 PTR REG(9), 01S1508 05801000 * EMCR10 PTR REG(10), 01S1508 05802000 * EMCR11 PTR REG(11), 01S1508 05803000 * EMCR12 PTR REG(12), 01S1508 05804000 * EMCR13 PTR REG(13), 01S1508 05805000 * EMCR14 PTR REG(14), 01S1508 05806000 * EMCR15 PTR REG(15); 01S1508 05807000 * DCL 01S1509 05808000 * ISTAPC34 ENTRY BASED(ATCAP34) VALRG(*);/* RESET ROUTINE */ 05809000 * DCL 01S1510 05810000 * ISTAPC37 ENTRY BASED(ATCAP37) VALRG(*);/* TPQUE ROUTINE */ 05811000 * GEN(PRINT ON); 01S1511 05812000 * 01S1511 05813000 PRINT ON 05814000 */* END OF TPEPILOG */ 05815000 */* ATDSPLY INVOKED. */ 05816000 */********************************************************************/ 05817000 */* THE FOLLOWING ATBUILD INCLUSIONS HAVE BEEN MADE IN THIS */ 05818000 */* COMPILATION: */ 05819000 */* ISTLOK */ 05820000 */* ISTPAB */ 05821000 */* ISTACDEB */ 05822000 */* ISTDYPAB */ 05823000 */* ISTRPH */ 05824000 */* ISTATCVT */ 05825000 */* ISTPOIA */ 05826000 */* ISTPOHD */ 05827000 */* ISTWPL */ 05828000 */* ISTRWPL */ 05829000 */* ISTPOWE */ 05830000 */* ISTPOCB */ 05831000 */* ISTPORCB */ 05832000 */* ISTPOMCB */ 05833000 */* ISTLCCW */ 05834000 */* ISTLCPB */ 05835000 */* ISTZSAVE */ 05836000 */* ISTPFCRR */ 05837000 */* ISTCFCRR */ 05838000 */* ISTZCRR */ 05839000 */* ISTASCRR */ 05840000 */* ISTAPCRR */ 05841000 */* ISTCRA */ 05842000 */********************************************************************/ 05843000 */* END OF ATDSPLY. */ 05844000 * 01S1512 05845000 * END ISTCFCR2 01S1512 05846000 * 01S1512 05847000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 05848000 */*%INCLUDE SYSLIB (CVT ) */ 05849000 */*%INCLUDE SYSLIB (IHASRB ) */ 05850000 */*%INCLUDE SYSLIB (IHAPSA ) */ 05851000 */*%INCLUDE SYSLIB (IFGRPL ) */ 05852000 */*%INCLUDE SYSLIB (IFGRPLVT) */ 05853000 */*%INCLUDE SYSLIB (ISTRPLFB) */ 05854000 * 01S1512 05855000 * ; 01S1512 05856000 @DATA DS 0H 05857000 @CH00093 DC H'1' 05858000 @CH00085 DC H'4' 05859000 @CH00785 DC H'6' 05860000 @CH00102 DC H'24' 05861000 @CH01643 DC H'99' 05862000 @CH01642 DC H'100' 05863000 @SM03418 MVC POMMSG+4(0,CR2PTR),WPLTXT(@11) 05864000 @SM03428 MVC POMMSG(0,CR2PTR),WPLTXT(@07) 05865000 @SM03431 MVC POMMSG(0,CR2PTR),POMMSG+4(CR2PTR) 05866000 @SM03433 MVC POMMSG(0,@15),POMMSG+4(@15) 05867000 @SM03435 MVC CR2AREA(0,@07),PORMSG(@15) 05868000 @DATD DSECT 05869000 DS 0F 05870000 ISTCFCR2 CSECT 05871000 DS 0F 05872000 @CF00091 DC F'8' 05873000 @CH00091 EQU @CF00091+2 05874000 @CF01482 DC XL4'80000000' 05875000 @CF01484 DC XL4'7FFFFFFF' 05876000 @DATD DSECT 05877000 DS 0D 05878000 CVTPTR DS A 05879000 SRBPTR DS A 05880000 LCPBPTR DS A 05881000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 05882000 @ENDDATD EQU * 05883000 ISTCFCR2 CSECT 05884000 DS 0F 05885000 @SIZDATD DC AL1(0) 05886000 DC AL3(@ENDDATD-@DATD) 05887000 DS 0D 05888000 CMZA0036 DS FL4 05889000 ORG CMZA0036 05890000 @NM00058 DC AL1(96) 05891000 @NM00059 DC AL1(96) 05892000 @NM00060 DC AL1(231) 05893000 @NM00061 DC XL1'00' 05894000 ORG CMZA0036+4 05895000 CMZA0059 DS FL4 05896000 ORG CMZA0059 05897000 @NM00062 DC AL1(96) 05898000 @NM00063 DC AL1(96) 05899000 @NM00064 DC AL1(231) 05900000 @NM00065 DC XL1'01' 05901000 ORG CMZA0059+4 05902000 CMZA0088 DS FL4 05903000 ORG CMZA0088 05904000 @NM00068 DC AL1(64) 05905000 @NM00069 DC AL1(96) 05906000 @NM00070 DC AL1(241) 05907000 @NM00071 DC XL1'01' 05908000 ORG CMZA0088+4 05909000 CMZA0107 DS FL4 05910000 ORG CMZA0107 05911000 @NM00072 DC AL1(96) 05912000 @NM00073 DC AL1(96) 05913000 @NM00074 DC AL1(241) 05914000 @NM00075 DC XL1'00' 05915000 ORG CMZA0107+4 05916000 CMZA0125 DS FL4 05917000 ORG CMZA0125 05918000 @NM00076 DC AL1(96) 05919000 @NM00077 DC AL1(96) 05920000 @NM00078 DC AL1(241) 05921000 @NM00079 DC XL1'00' 05922000 ORG CMZA0125+4 05923000 CMZA0173 DS FL4 05924000 ORG CMZA0173 05925000 @NM00082 DC AL1(64) 05926000 @NM00083 DC AL1(96) 05927000 @NM00084 DC AL1(241) 05928000 @NM00085 DC XL1'01' 05929000 ORG CMZA0173+4 05930000 CMZA0214 DS FL4 05931000 ORG CMZA0214 05932000 @NM00088 DC AL1(64) 05933000 @NM00089 DC AL1(96) 05934000 @NM00090 DC AL1(241) 05935000 @NM00091 DC XL1'01' 05936000 ORG CMZA0214+4 05937000 CMZA0233 DS FL4 05938000 ORG CMZA0233 05939000 @NM00092 DC AL1(64) 05940000 @NM00093 DC AL1(96) 05941000 @NM00094 DC AL1(241) 05942000 @NM00095 DC XL1'01' 05943000 ORG CMZA0233+4 05944000 CMZA0258 DS FL4 05945000 ORG CMZA0258 05946000 @NM00096 DC AL1(64) 05947000 @NM00097 DC AL1(96) 05948000 @NM00098 DC AL1(241) 05949000 @NM00099 DC XL1'01' 05950000 ORG CMZA0258+4 05951000 CMZA0284 DS FL4 05952000 ORG CMZA0284 05953000 @NM00100 DC AL1(64) 05954000 @NM00101 DC AL1(96) 05955000 @NM00102 DC AL1(241) 05956000 @NM00103 DC XL1'01' 05957000 ORG CMZA0284+4 05958000 CMZA0316 DS FL4 05959000 ORG CMZA0316 05960000 @NM00104 DC AL1(64) 05961000 @NM00105 DC AL1(96) 05962000 @NM00106 DC AL1(241) 05963000 @NM00107 DC XL1'01' 05964000 ORG CMZA0316+4 05965000 CMZA0335 DS FL4 05966000 ORG CMZA0335 05967000 @NM00108 DC AL1(64) 05968000 @NM00109 DC AL1(96) 05969000 @NM00110 DC AL1(241) 05970000 @NM00111 DC XL1'01' 05971000 ORG CMZA0335+4 05972000 CMZA0361 DS FL4 05973000 ORG CMZA0361 05974000 @NM00112 DC AL1(64) 05975000 @NM00113 DC AL1(96) 05976000 @NM00114 DC AL1(241) 05977000 @NM00115 DC XL1'01' 05978000 ORG CMZA0361+4 05979000 CMZA0380 DS FL4 05980000 ORG CMZA0380 05981000 @NM00116 DC AL1(64) 05982000 @NM00117 DC AL1(96) 05983000 @NM00118 DC AL1(241) 05984000 @NM00119 DC XL1'01' 05985000 ORG CMZA0380+4 05986000 CMZA0421 DS FL4 05987000 ORG CMZA0421 05988000 @NM00120 DC AL1(64) 05989000 @NM00121 DC AL1(96) 05990000 @NM00122 DC AL1(241) 05991000 @NM00123 DC XL1'01' 05992000 ORG CMZA0421+4 05993000 CMZA0440 DS FL4 05994000 ORG CMZA0440 05995000 @NM00124 DC AL1(64) 05996000 @NM00125 DC AL1(96) 05997000 @NM00126 DC AL1(241) 05998000 @NM00127 DC XL1'01' 05999000 ORG CMZA0440+4 06000000 @CC01601 DC C'* ' 06001000 @CB01482 DC X'80000000' 06002000 CMZAA078 DC CL4'192I' 06003000 CMZAA164 DC CL4'192I' 06004000 CMZAA204 DC CL4'192I' 06005000 CR2WRO2 DC F'128' 06006000 DC F'64' 06007000 DC F'32' 06008000 DC F'16' 06009000 DC F'8' 06010000 DC F'4' 06011000 DC F'2' 06012000 DC F'1' 06013000 CMZPL078 DC 4F'0' 06014000 CMZZO078 DC F'0' 06015000 CMZPL164 DC 4F'0' 06016000 CMZZO164 DC F'0' 06017000 CMZPL204 DC 4F'0' 06018000 CMZZO204 DC F'0' 06019000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 06020000 @01 EQU 01 06021000 @02 EQU 02 06022000 @03 EQU 03 06023000 @04 EQU 04 06024000 @05 EQU 05 06025000 @06 EQU 06 06026000 @07 EQU 07 06027000 @08 EQU 08 06028000 @09 EQU 09 06029000 @10 EQU 10 06030000 @11 EQU 11 06031000 @12 EQU 12 06032000 @13 EQU 13 06033000 @14 EQU 14 06034000 @15 EQU 15 06035000 GPR00F EQU @00 06036000 GPR00P EQU @00 06037000 GPR01F EQU @01 06038000 GPR01P EQU @01 06039000 GPR02F EQU @02 06040000 GPR02P EQU @02 06041000 GPR03F EQU @03 06042000 GPR03P EQU @03 06043000 GPR04P EQU @04 06044000 GPR05F EQU @05 06045000 GPR05P EQU @05 06046000 GPR06P EQU @06 06047000 GPR07P EQU @07 06048000 GPR08P EQU @08 06049000 GPR09F EQU @09 06050000 GPR09P EQU @09 06051000 GPR10F EQU @10 06052000 GPR10P EQU @10 06053000 GPR11F EQU @11 06054000 GPR11P EQU @11 06055000 GPR12F EQU @12 06056000 GPR12P EQU @12 06057000 GPR13F EQU @13 06058000 GPR13P EQU @13 06059000 GPR14F EQU @14 06060000 GPR14P EQU @14 06061000 GPR15F EQU @15 06062000 GPR15P EQU @15 06063000 CR2RPHPT EQU @01 06064000 BASEREG EQU @12 06065000 CR2SVPT EQU @13 06066000 CR2RTPT EQU @14 06067000 CR2ACVT EQU @05 06068000 REGSAPTR EQU @13 06069000 CR2PTR EQU @06 06070000 CR2BASE EQU @07 06071000 CR2R14SV EQU @03 06072000 CR2R1SV EQU @02 06073000 CR2INDEX EQU @06 06074000 CR2WAPTR EQU @04 06075000 CR2R15 EQU @15 06076000 CR2R15F EQU @15 06077000 CR2FNDF EQU @08 06078000 CR2R14SB EQU @09 06079000 CR2POCB EQU @05 06080000 CR2REG10 EQU @10 06081000 REGF0054 EQU @15 06082000 REGF0056 EQU @15 06083000 REGF0057 EQU @15 06084000 REG1078 EQU @01 06085000 EMCR13 EQU @13 06086000 REG15078 EQU @15 06087000 REGF0086 EQU @15 06088000 REG1164 EQU @01 06089000 REG15164 EQU @15 06090000 REGF0172 EQU @15 06091000 REG1204 EQU @01 06092000 REG15204 EQU @15 06093000 REGF0212 EQU @15 06094000 REGF0315 EQU @15 06095000 REGF0354 EQU @15 06096000 RPHPTR EQU @01 06097000 EMCR0 EQU @00 06098000 EMCR1 EQU @01 06099000 EMCR10 EQU @10 06100000 EMCR11 EQU @11 06101000 EMCR12 EQU @12 06102000 EMCR14 EQU @14 06103000 EMCR15 EQU @15 06104000 EMCR2 EQU @02 06105000 EMCR3 EQU @03 06106000 EMCR4 EQU @04 06107000 EMCR5 EQU @05 06108000 EMCR6 EQU @06 06109000 EMCR7 EQU @07 06110000 EMCR8 EQU @08 06111000 EMCR9 EQU @09 06112000 GPR04F EQU @04 06113000 GPR06F EQU @06 06114000 GPR07F EQU @07 06115000 GPR08F EQU @08 06116000 PSA EQU 0 06117000 FLCRNPSW EQU PSA 06118000 FLCROPSW EQU PSA+8 06119000 FLCICCW2 EQU PSA+16 06120000 PSAEEPSW EQU PSA+132 06121000 PSAESPSW EQU PSA+136 06122000 FLCSVILC EQU PSAESPSW+1 06123000 PSAEPPSW EQU PSA+140 06124000 FLCPIILC EQU PSAEPPSW+1 06125000 FLCPICOD EQU PSAEPPSW+2 06126000 PSAPICOD EQU FLCPICOD+1 06127000 FLCTEA EQU PSAEPPSW+4 06128000 FLCPER EQU PSA+152 06129000 FLCMCLA EQU PSA+168 06130000 FLCIOEL EQU FLCMCLA+4 06131000 FLCIOA EQU FLCMCLA+16 06132000 FLCFSA EQU FLCMCLA+80 06133000 PSASUPER EQU PSA+552 06134000 PSASUP1 EQU PSASUPER 06135000 PSASUP2 EQU PSASUPER+1 06136000 PSASUP3 EQU PSASUPER+2 06137000 PSASUP4 EQU PSASUPER+3 06138000 PSACLHT EQU PSA+640 06139000 PSALKSA EQU PSA+696 06140000 PSAHLHI EQU PSA+760 06141000 PSALITA EQU PSA+764 06142000 PSADSSFL EQU PSA+836 06143000 PSADSSF1 EQU PSADSSFL 06144000 PSADSSF3 EQU PSADSSFL+2 06145000 PSADSSF4 EQU PSADSSFL+3 06146000 PSARSVT EQU PSA+896 06147000 ATCLCPTR EQU 1032 06148000 CMZP0402 EQU 16 06149000 CVTMAP EQU 0 06150000 CVTDAR EQU CVTMAP+72 06151000 CVTFLGS1 EQU CVTDAR 06152000 CVTDCB EQU CVTMAP+116 06153000 CVTIERLC EQU CVTMAP+144 06154000 CVT0PT01 EQU CVTMAP+152 06155000 CVTOPTA EQU CVTMAP+182 06156000 CVTOPTB EQU CVTMAP+183 06157000 CVTGTF EQU CVTMAP+236 06158000 CVTGTFST EQU CVTGTF 06159000 CVTGTFS EQU CVTGTFST 06160000 CVTSTATE EQU CVTGTFST 06161000 CVTTMODE EQU CVTGTFST 06162000 CVTFORM EQU CVTGTFST 06163000 CVTAQAVT EQU CVTMAP+240 06164000 CVTTCMFG EQU CVTAQAVT 06165000 CVTVOLM2 EQU CVTMAP+244 06166000 CVTTATA EQU CVTVOLM2 06167000 CVTTSKS EQU CVTTATA 06168000 CVTVOLF2 EQU CVTTSKS 06169000 CVTTAT EQU CVTTATA+1 06170000 CVTATER EQU CVTMAP+248 06171000 CVTEXT1 EQU CVTMAP+252 06172000 CVTPURG EQU CVTMAP+260 06173000 CVTQMSG EQU CVTMAP+268 06174000 CVTDMSR EQU CVTMAP+272 06175000 CVTRSV37 EQU CVTDMSR 06176000 CVTDMSRF EQU CVTRSV37 06177000 CVTERPV EQU CVTMAP+316 06178000 CVTINTLA EQU CVTMAP+320 06179000 CVTAPF EQU CVTMAP+324 06180000 CVTEXT2 EQU CVTMAP+328 06181000 CVTHJES EQU CVTMAP+332 06182000 CVTPGSIA EQU CVTMAP+348 06183000 CVTA1F1 EQU CVTMAP+356 06184000 CVTSYSK EQU CVTMAP+357 06185000 CVTVOLM1 EQU CVTMAP+380 06186000 CVTVOLF1 EQU CVTVOLM1 06187000 CVTATMCT EQU CVTMAP+388 06188000 CVTXTNT1 EQU 0 06189000 CVTXTNT2 EQU 0 06190000 CVTDSSV EQU CVTXTNT2 06191000 CVTFLGBT EQU CVTXTNT2+5 06192000 CVTQID EQU CVTXTNT2+24 06193000 CVTSHS EQU CVTXTNT2+40 06194000 CVTRV400 EQU CVTXTNT2+52 06195000 CVTRV409 EQU CVTXTNT2+53 06196000 CVTATCVT EQU CVTXTNT2+64 06197000 CVTRV429 EQU CVTXTNT2+84 06198000 CVTRV438 EQU CVTXTNT2+85 06199000 CVTRV457 EQU CVTXTNT2+112 06200000 CVTRV466 EQU CVTXTNT2+113 06201000 CVTFIX EQU 0 06202000 CVTRELNO EQU CVTFIX+252 06203000 SRBSECT EQU 0 06204000 SRBFLC EQU SRBSECT+12 06205000 IFGRPL EQU 0 06206000 RPLCOMN EQU IFGRPL 06207000 RPLIDWD EQU RPLCOMN 06208000 RPLLEN EQU RPLIDWD+3 06209000 RPLECB EQU RPLCOMN+8 06210000 RPLFDBWD EQU RPLCOMN+12 06211000 RPLFDBK EQU RPLFDBWD+1 06212000 RPLRTNCD EQU RPLFDBK 06213000 RPLCNDCD EQU RPLFDBK+1 06214000 RPLCMPON EQU RPLCNDCD 06215000 RPLFDB2 EQU RPLCMPON 06216000 RPLERRCD EQU RPLCNDCD+1 06217000 RPLFDB3 EQU RPLERRCD 06218000 RPLKEYLE EQU RPLCOMN+16 06219000 RPLARG EQU RPLCOMN+36 06220000 RPLOPTCD EQU RPLCOMN+40 06221000 RPLOPT1 EQU RPLOPTCD 06222000 RPLECBSW EQU RPLOPT1 06223000 RPLOPT2 EQU RPLOPTCD+1 06224000 RPLADR EQU RPLOPT2 06225000 RPLOPT3 EQU RPLOPTCD+2 06226000 RPLOPT4 EQU RPLOPTCD+3 06227000 RPLNXTRP EQU RPLCOMN+44 06228000 RPLOPTC2 EQU RPLCOMN+56 06229000 RPLOPT5 EQU RPLOPTC2 06230000 RPLWRTYP EQU RPLOPT5 06231000 RPLOPT6 EQU RPLOPTC2+1 06232000 RPLUNTYP EQU RPLOPT6 06233000 RPLOPT7 EQU RPLOPTC2+2 06234000 RPLCNOPT EQU RPLOPT7 06235000 RPLTCRNO EQU RPLOPT7 06236000 RPLOPT8 EQU RPLOPTC2+3 06237000 RPLRBAR EQU RPLCOMN+60 06238000 RPLAIXID EQU RPLRBAR+2 06239000 RPLEXTDS EQU RPLCOMN+68 06240000 RPLEXTD1 EQU RPLEXTDS 06241000 RPLVTEXT EQU IFGRPL+76 06242000 RPLFDBK2 EQU RPLVTEXT+12 06243000 RPLSSNSI EQU RPLFDBK2 06244000 RPLDSB EQU RPLSSNSI 06245000 RPLDSB1 EQU RPLDSB 06246000 RPLSSEI EQU RPLDSB1 06247000 RPLDSB2 EQU RPLDSB+1 06248000 RPLUSNSI EQU RPLFDBK2+2 06249000 RPLOPTC3 EQU RPLVTEXT+20 06250000 RPLOPT9 EQU RPLOPTC3 06251000 RPLOPT10 EQU RPLOPTC3+1 06252000 RPLOPT11 EQU RPLOPTC3+2 06253000 RPLOPT12 EQU RPLOPTC3+3 06254000 RPLOSENS EQU RPLVTEXT+24 06255000 RPLSSNSO EQU RPLOSENS 06256000 RPLSSEO EQU RPLSSNSO 06257000 RPLOF16 EQU 0 06258000 RPLRH3 EQU RPLOF16 06259000 RPLSRTYP EQU RPLOF16+1 06260000 RPLSTYPE EQU RPLSRTYP 06261000 RPLRTYPE EQU RPLSRTYP 06262000 RPLCHN EQU RPLOF16+2 06263000 RPLVTFL1 EQU RPLOF16+3 06264000 RPLVTFL2 EQU RPLOF16+4 06265000 RPLPOSTV EQU RPLVTFL2 06266000 RPLRESP EQU RPLVTFL2 06267000 RPLCNTRL EQU RPLOF16+5 06268000 RPLCNTDF EQU RPLCNTRL 06269000 RPLCNTDC EQU RPLCNTRL+1 06270000 RPLCNTSC EQU RPLCNTRL+2 06271000 RPLOF60 EQU 0 06272000 RPLOBSQ EQU RPLOF60+4 06273000 RPLIBSQ EQU RPLOF60+5 06274000 ISTLOK EQU 0 06275000 LOKCHN EQU ISTLOK+1 06276000 LOKCHNG EQU LOKCHN 06277000 @NM00129 EQU LOKCHNG+2 06278000 ISTPAB EQU 0 06279000 PABWQCHN EQU ISTPAB 06280000 PABWEQA EQU PABWQCHN 06281000 PABCHAIN EQU PABWQCHN+4 06282000 PABRPHFG EQU ISTPAB+12 06283000 PABFLAGS EQU PABRPHFG 06284000 PABERLCK EQU PABFLAGS 06285000 PABERRLK EQU PABERLCK 06286000 ISTACDEB EQU 0 06287000 ACDVTPRX EQU ISTACDEB 06288000 ACDDBPFX EQU ISTACDEB+16 06289000 ACDTBLOF EQU ACDDBPFX+6 06290000 ACDBASIC EQU ISTACDEB+24 06291000 ACDTCBAD EQU ACDBASIC 06292000 ACDNMSUB EQU ACDTCBAD 06293000 ACDDEBAD EQU ACDBASIC+4 06294000 ACDUSRPG EQU ACDBASIC+16 06295000 ACDACBAD EQU ACDBASIC+24 06296000 ACDAPPAD EQU ACDBASIC+28 06297000 ACDVTAM EQU ISTACDEB+56 06298000 ACDSSPAB EQU ACDVTAM+48 06299000 ACDSSFLG EQU ACDVTAM+80 06300000 ACDAPDAT EQU ACDVTAM+83 06301000 ISTDYPAB EQU 0 06302000 DYPPAB EQU ISTDYPAB+16 06303000 ISTRPH EQU 0 06304000 RPHCNTL EQU ISTRPH 06305000 RPHFLAGS EQU RPHCNTL+2 06306000 RPHAPTYP EQU RPHFLAGS 06307000 RPHFSTLC EQU RPHFLAGS 06308000 RPHFLGB EQU RPHCNTL+3 06309000 RPHRPHA EQU ISTRPH+4 06310000 RPHTSKID EQU ISTRPH+8 06311000 RPHRESMA EQU ISTRPH+16 06312000 RPHWPFLG EQU RPHRESMA 06313000 RPHWEA EQU ISTRPH+24 06314000 RPHCSPA EQU RPHWEA 06315000 RPHSRPRM EQU ISTRPH+28 06316000 RPHCRR EQU ISTRPH+32 06317000 RPHPABQA EQU ISTRPH+36 06318000 RPHWORK EQU ISTRPH+40 06319000 RPHSAVE1 EQU RPHWORK 06320000 RPHSBITS EQU RPHSAVE1+1 06321000 ISTATCVT EQU 0 06322000 ATCCOM EQU ISTATCVT 06323000 ATCSTAT EQU ATCCOM 06324000 ATCSTAT1 EQU ATCSTAT 06325000 ATCSTFLG EQU ATCSTAT+1 06326000 ATCPOFLG EQU ATCSTAT+2 06327000 ATCSTAT4 EQU ATCSTAT+3 06328000 ATCIOTRC EQU ATCCOM+140 06329000 ATCTHTRC EQU ATCIOTRC 06330000 ATCGTSTR EQU ATCCOM+164 06331000 ATCCSMR EQU ISTATCVT+296 06332000 ATCSHRFG EQU ISTATCVT+316 06333000 ATCMSGP EQU ISTATCVT+344 06334000 ATCHPGM EQU ISTATCVT+384 06335000 ATCAP33 EQU ISTATCVT+444 06336000 ATCAP36 EQU ISTATCVT+452 06337000 ATCRDTLK EQU ISTATCVT+472 06338000 ATCVLCNT EQU ISTATCVT+772 06339000 ATCRNO EQU ISTATCVT+788 06340000 ATCPOIA EQU ATCRNO+1 06341000 ATCSOPD EQU ISTATCVT+792 06342000 ATCSIPD EQU ISTATCVT+800 06343000 ATCSECST EQU ISTATCVT+812 06344000 ATCSTAT2 EQU ISTATCVT+818 06345000 ATCVTBAM EQU ISTATCVT+908 06346000 @NM00141 EQU ATCVTBAM+3 06347000 ATCAOSM EQU ISTATCVT+912 06348000 ATCGSRBQ EQU ATCAOSM+4 06349000 ATCGSRBG EQU ATCGSRBQ 06350000 ATCAP31 EQU ATCAOSM+24 06351000 ATCAP34 EQU ATCAOSM+32 06352000 ATCICAPP EQU ATCAOSM+100 06353000 ATCLDAPP EQU ATCAOSM+120 06354000 ATCDAPVT EQU ATCAOSM+140 06355000 ATCAP37 EQU ATCAOSM+264 06356000 ATCCRA EQU ATCAOSM+280 06357000 ATCCRACN EQU ATCCRA+4 06358000 ATCSRB EQU ATCAOSM+288 06359000 ATCSRBCN EQU ATCSRB+4 06360000 ATCCRPL EQU ATCAOSM+296 06361000 ATCRPLCN EQU ATCCRPL+4 06362000 ATCSQAFR EQU ATCAOSM+304 06363000 ATCORTBC EQU ATCSQAFR+4 06364000 ATCORSRB EQU ATCORTBC 06365000 @NM00143 EQU ATCAOSM+332 06366000 ATCVTFLG EQU ATCAOSM+392 06367000 ATCZFLAG EQU ATCAOSM+588 06368000 ATCPOPAB EQU ATCAOSM+640 06369000 ISTPOIA EQU 0 06370000 POIANCR EQU ISTPOIA+4 06371000 POIPOCBQ EQU POIANCR+1 06372000 POIPRANC EQU ISTPOIA+8 06373000 POIPRIMQ EQU POIPRANC+1 06374000 ISTPOHD EQU 0 06375000 POHRSVD1 EQU ISTPOHD 06376000 POHSTAT EQU ISTPOHD+1 06377000 POHEND EQU POHSTAT 06378000 POHDATA EQU POHSTAT 06379000 POHLBL EQU POHSTAT 06380000 POHCNTRL EQU POHSTAT 06381000 POHRREQ EQU POHSTAT 06382000 POHGEN EQU POHSTAT 06383000 POHID EQU ISTPOHD+2 06384000 ISTWPL EQU 0 06385000 WPLLGH EQU ISTWPL 06386000 WPLMCSF EQU ISTWPL+2 06387000 WPLMCSF1 EQU WPLMCSF 06388000 WPLMCSFA EQU WPLMCSF1 06389000 WPLMCSFD EQU WPLMCSF1 06390000 WPLMCSF2 EQU WPLMCSF+1 06391000 WPLTXT EQU ISTWPL+4 06392000 ISTRWPL EQU 0 06393000 RWPPRTR EQU ISTRWPL 06394000 RWPLRLN EQU RWPPRTR 06395000 RWPRPTRA EQU RWPPRTR+1 06396000 RWPRECB EQU ISTRWPL+4 06397000 RWPWPL EQU ISTRWPL+8 06398000 ISTPOWE EQU 0 06399000 POWRTR EQU ISTPOWE+8 06400000 POWDEB EQU POWRTR 06401000 POWHDR EQU POWRTR+4 06402000 POWWPL EQU ISTPOWE+16 06403000 ISTPOCB EQU 0 06404000 POCCBID EQU ISTPOCB 06405000 POCVTMID EQU ISTPOCB+2 06406000 POCPSSQ EQU ISTPOCB+4 06407000 POCNEXT EQU ISTPOCB+8 06408000 POCFWD EQU POCNEXT+1 06409000 POCDEB EQU ISTPOCB+12 06410000 POCRCVQ EQU ISTPOCB+16 06411000 POCMSGQ EQU POCRCVQ+1 06412000 POCREPQ EQU ISTPOCB+20 06413000 POCAWTRQ EQU POCREPQ+1 06414000 POCRPL EQU ISTPOCB+24 06415000 POCRPGEN EQU ISTPOCB+28 06416000 POCSTAT EQU ISTPOCB+42 06417000 POCACT EQU POCSTAT 06418000 POCINACT EQU POCSTAT 06419000 ISTPORCB EQU 0 06420000 PORCBID EQU ISTPORCB 06421000 PORLNGTH EQU ISTPORCB+1 06422000 POREPID EQU ISTPORCB+2 06423000 PORNEXT EQU ISTPORCB+8 06424000 PORFWD EQU PORNEXT+1 06425000 PORPOMQ EQU ISTPORCB+12 06426000 PORPOMCB EQU PORPOMQ+1 06427000 PORAREA EQU ISTPORCB+16 06428000 PORECB EQU ISTPORCB+20 06429000 PORREPLN EQU ISTPORCB+24 06430000 PORRSVD EQU ISTPORCB+25 06431000 PORMSG EQU ISTPORCB+28 06432000 ISTPOMCB EQU 0 06433000 POMCBID EQU ISTPOMCB 06434000 POMLNGTH EQU ISTPOMCB+1 06435000 POMMSGLN EQU ISTPOMCB+2 06436000 POMNEXT EQU ISTPOMCB+8 06437000 POMFWD EQU POMNEXT+1 06438000 POMREPQ EQU ISTPOMCB+12 06439000 POMPORCB EQU POMREPQ+1 06440000 POMMHDR EQU ISTPOMCB+16 06441000 POMMSG EQU ISTPOMCB+20 06442000 CR2CHARA EQU 0 06443000 CR2AREA EQU 0 06444000 CR2WA EQU 0 06445000 CR2DW EQU CR2WA 06446000 CR2R14SA EQU CR2WA+8 06447000 CR2CVTSV EQU CR2WA+12 06448000 CR2PACK EQU CR2WA+16 06449000 CR2NUM EQU CR2PACK+4 06450000 CR2STSW EQU CR2WA+22 06451000 CR2ERR EQU CR2STSW 06452000 CR2MLWTO EQU 0 06453000 WPLLTFA EQU CR2MLWTO 06454000 WPLLTFB EQU CR2MLWTO 06455000 WPLLTFC EQU CR2MLWTO 06456000 WPLLTFD EQU CR2MLWTO 06457000 ISTLCCW EQU 0 06458000 LCCWOP EQU ISTLCCW 06459000 LCCWRWOP EQU LCCWOP 06460000 LCCWCTL EQU LCCWRWOP 06461000 LCCWFLAG EQU ISTLCCW+1 06462000 LCCWLSI EQU LCCWFLAG 06463000 ISTLCPB EQU 0 06464000 LCPREQTG EQU ISTLCPB+2 06465000 LCPFLAGS EQU LCPREQTG 06466000 LCPZF001 EQU LCPFLAGS 06467000 LCPZRT02 EQU LCPZF001 06468000 LCPZF002 EQU LCPFLAGS 06469000 LCPZRT03 EQU LCPZF002 06470000 LCPZF003 EQU LCPFLAGS 06471000 LCPZRT04 EQU LCPZF003 06472000 LCPZF004 EQU LCPFLAGS 06473000 LCPZRT05 EQU LCPZF004 06474000 LCPZRT06 EQU LCPFLAGS 06475000 LCPZRT07 EQU LCPFLAGS 06476000 LCPMNRCD EQU LCPREQTG+1 06477000 LCPZRT08 EQU LCPMNRCD 06478000 LCPZRT09 EQU LCPMNRCD 06479000 LCPCHAIN EQU ISTLCPB+4 06480000 LCPCHAI1 EQU LCPCHAIN 06481000 LCPRUCNT EQU ISTLCPB+8 06482000 LCPFLAG2 EQU ISTLCPB+9 06483000 LCPTLBPI EQU LCPFLAG2 06484000 LCPFID0 EQU LCPFLAG2 06485000 LCPSEQ EQU ISTLCPB+10 06486000 LCPCID EQU ISTLCPB+16 06487000 LCPFDBA EQU ISTLCPB+24 06488000 LCPFLG1 EQU ISTLCPB+37 06489000 LCPFLCCW EQU ISTLCPB+40 06490000 LCPLCCW EQU ISTLCPB+48 06491000 LCPPABA EQU LCPLCCW+4 06492000 LCPRPHA EQU LCPPABA 06493000 ISTZSAVE EQU 0 06494000 ZSAZSVBC EQU ISTZSAVE 06495000 ZSAZSVMS EQU ZSAZSVBC 06496000 ISTPFCRR EQU 0 06497000 PFCCRR EQU ISTPFCRR 06498000 PFCCRRID EQU PFCCRR 06499000 PFCCRRLN EQU PFCCRR+2 06500000 PFCHDR EQU ISTPFCRR+4 06501000 PFCCRRO EQU PFCHDR 06502000 PFCFRRO EQU PFCHDR+4 06503000 PFCFTA EQU ISTPFCRR+12 06504000 ISTCFCRR EQU 0 06505000 CFCAUDIT EQU ISTCFCRR 06506000 CFCNTRD EQU CFCAUDIT 06507000 NCFCR2 EQU CFCNTRD 06508000 CFCCRT EQU CFCAUDIT+1 06509000 CCFCR2 EQU CFCCRT 06510000 ISTZCRR EQU 0 06511000 ZCRCRR EQU ISTZCRR 06512000 ZCRFLGS1 EQU ISTZCRR+12 06513000 ZCRFLGS2 EQU ISTZCRR+13 06514000 ZCRSWFLD EQU ISTZCRR+14 06515000 ZCRENDSH EQU ZCRSWFLD 06516000 ZCRNDLCP EQU ZCRSWFLD 06517000 ZCRRESET EQU ZCRSWFLD 06518000 ZCRFLGS3 EQU ISTZCRR+15 06519000 ZCRGENSW EQU ISTZCRR+16 06520000 ZCRPFLGS EQU ISTZCRR+17 06521000 ZCRIBPR EQU ISTZCRR+18 06522000 ZCRSCPSW EQU ISTZCRR+19 06523000 ZCRPARMS EQU ISTZCRR+24 06524000 ZCRFBPTR EQU ZCRPARMS 06525000 ZCRDFRDA EQU ZCRPARMS+10 06526000 ZCRPCOD1 EQU ZCRPARMS+12 06527000 ZCRPLSBF EQU ZCRPCOD1 06528000 ZCRPCOD2 EQU ZCRPARMS+13 06529000 ZCRSVRTN EQU ISTZCRR+56 06530000 ZCRWKARA EQU ISTZCRR+156 06531000 ZCRCIDSV EQU ISTZCRR+192 06532000 ZCRAUDIT EQU ISTZCRR+440 06533000 ZCRENTER EQU ZCRAUDIT+5 06534000 ZCRLCPB EQU ISTZCRR+480 06535000 ZCRRHRU EQU ZCRLCPB 06536000 ISTASCRR EQU 0 06537000 ASCFLAGS EQU ISTASCRR+16 06538000 ASCFLG1 EQU ASCFLAGS 06539000 ASCFLG2 EQU ASCFLAGS+2 06540000 ASCFLG3 EQU ASCFLAGS+4 06541000 ASCUSRGS EQU ISTASCRR+28 06542000 ISTAPCRR EQU 0 06543000 APCATFLG EQU ISTAPCRR+16 06544000 APCRFLG EQU ISTAPCRR+18 06545000 APCSAVE EQU ISTAPCRR+44 06546000 APCCOMF EQU ISTAPCRR+116 06547000 APCCOMF1 EQU APCCOMF 06548000 APC31FLG EQU ISTAPCRR+132 06549000 APC52FLG EQU ISTAPCRR+133 06550000 APC53FLG EQU ISTAPCRR+134 06551000 APC54FLG EQU ISTAPCRR+135 06552000 APC57FLG EQU ISTAPCRR+136 06553000 ISTCRA EQU 0 06554000 CRABASIC EQU ISTCRA 06555000 CRAHDR EQU CRABASIC 06556000 CRACRR EQU CRAHDR 06557000 CRAFRR EQU CRAHDR+4 06558000 CRALKACT EQU CRABASIC+8 06559000 CRAL3PTR EQU CRABASIC+20 06560000 CRAPROCR EQU ISTCRA+312 06561000 CRASVC EQU ISTCRA+848 06562000 CRABUFA EQU CRASVC+68 06563000 FMZL0017 EQU 0 06564000 FMZL0026 EQU 0 06565000 @NM00066 EQU 0 06566000 CMZID078 EQU @NM00066 06567000 @NM00067 EQU @NM00066+4 06568000 CMZSA078 EQU 0 06569000 CMTA078 EQU 0 06570000 FMZL0149 EQU 0 06571000 FMZL0159 EQU 0 06572000 @NM00080 EQU 0 06573000 CMZID164 EQU @NM00080 06574000 @NM00081 EQU @NM00080+4 06575000 CMZSA164 EQU 0 06576000 CMTA164 EQU 0 06577000 ISTAPC37 EQU 0 06578000 @NM00086 EQU 0 06579000 CMZID204 EQU @NM00086 06580000 @NM00087 EQU @NM00086+4 06581000 CMZSA204 EQU 0 06582000 CMTA204 EQU 0 06583000 FMZL0459 EQU 0 06584000 ISTAPC34 EQU 0 06585000 ISTRPL EQU 0 06586000 CVTS01 EQU CVTPGSIA 06587000 CVTLPDIA EQU CVTS01+12 06588000 CVTDIRST EQU CVTLPDIA 06589000 CVTSLIDA EQU CVTS01+24 06590000 CVTCTLFG EQU CVTS01+50 06591000 CVTRV210 EQU CVTS01+424 06592000 CVTRV219 EQU CVTS01+425 06593000 CVTRV228 EQU CVTS01+426 06594000 CVTRV237 EQU CVTS01+427 06595000 CVTMFRTR EQU CVTS01+452 06596000 CVTRV262 EQU CVTS01+468 06597000 CVTRV271 EQU CVTS01+469 06598000 CVTRV280 EQU CVTS01+470 06599000 CVTRV289 EQU CVTS01+471 06600000 CVTGSDA EQU CVTS01+600 06601000 FLC EQU PSA 06602000 PSARSVTE EQU PSARSVT 06603000 CR2WPLHD EQU POHRSVD1 06604000 CR2RPLN EQU POMNEXT 06605000 LCPZTIE EQU LCPCID 06606000 LCPZSNAM EQU LCPZTIE+8 06607000 SRB EQU SRBSECT 06608000 AGO .@UNREFD START UNREFERENCED COMPONENTS 06609000 LCPZTRV4 EQU LCPZSNAM+4 06610000 LCPZTRV1 EQU LCPZSNAM 06611000 LCPZSNA EQU LCPZTIE+4 06612000 LCPZFMCA EQU LCPZTIE 06613000 PSARSAV EQU PSARSVTE+60 06614000 PSARSTK EQU PSARSVTE+56 06615000 PSAESAV3 EQU PSARSVTE+52 06616000 PSAESTK3 EQU PSARSVTE+48 06617000 PSAESAV2 EQU PSARSVTE+44 06618000 PSAESTK2 EQU PSARSVTE+40 06619000 PSAESAV1 EQU PSARSVTE+36 06620000 PSAESTK1 EQU PSARSVTE+32 06621000 PSAPSAV EQU PSARSVTE+28 06622000 PSAPSTK EQU PSARSVTE+24 06623000 PSAMSAV EQU PSARSVTE+20 06624000 PSAMSTK EQU PSARSVTE+16 06625000 PSASSAV EQU PSARSVTE+12 06626000 PSASSTK EQU PSARSVTE+8 06627000 PSANSTK EQU PSARSVTE+4 06628000 PSACSTK EQU PSARSVTE 06629000 CVTRV628 EQU CVTS01+728 06630000 CVTRV627 EQU CVTS01+724 06631000 CVTRV626 EQU CVTS01+720 06632000 CVTRV625 EQU CVTS01+716 06633000 CVTRV624 EQU CVTS01+712 06634000 CVTRV623 EQU CVTS01+708 06635000 CVTRV622 EQU CVTS01+704 06636000 CVTRV621 EQU CVTS01+700 06637000 CVTRV620 EQU CVTS01+696 06638000 CVTRV619 EQU CVTS01+692 06639000 CVTRV618 EQU CVTS01+688 06640000 CVTRV617 EQU CVTS01+684 06641000 CVTRV616 EQU CVTS01+680 06642000 CVTRV615 EQU CVTS01+676 06643000 CVTRV614 EQU CVTS01+672 06644000 CVTRV613 EQU CVTS01+668 06645000 CVTTCASP EQU CVTS01+664 06646000 CVT0PT03 EQU CVTS01+660 06647000 CVT0PT0E EQU CVTS01+656 06648000 CVTIRM EQU CVTS01+652 06649000 CVTCGK EQU CVTS01+648 06650000 CVTRV607 EQU CVTS01+644 06651000 CVTRV606 EQU CVTS01+640 06652000 CVTRV605 EQU CVTS01+636 06653000 CVTRV604 EQU CVTS01+632 06654000 CVTEFF02 EQU CVTS01+628 06655000 CVTCBBR EQU CVTS01+624 06656000 CVTSSCR EQU CVTS01+620 06657000 CVTEVENT EQU CVTS01+616 06658000 CVTCRCA EQU CVTS01+612 06659000 CVTTPIO EQU CVTS01+608 06660000 CVTADV EQU CVTS01+604 06661000 CVTGSDAB EQU CVTGSDA 06662000 CVTQV3 EQU CVTS01+596 06663000 CVTQV2 EQU CVTS01+592 06664000 CVTQV1 EQU CVTS01+588 06665000 CVTRPT EQU CVTS01+584 06666000 CVTSSRB EQU CVTS01+580 06667000 CVTCSDRL EQU CVTS01+576 06668000 CVTEXP1 EQU CVTS01+572 06669000 CVTRMPMT EQU CVTS01+568 06670000 CVTRMPTT EQU CVTS01+564 06671000 CVTVPSA EQU CVTS01+560 06672000 CVTVSTOP EQU CVTS01+556 06673000 CVTGTFR8 EQU CVTS01+552 06674000 CVTQUIT EQU CVTS01+548 06675000 CVTVACR EQU CVTS01+544 06676000 CVTWTCB EQU CVTS01+540 06677000 CVTSTPRS EQU CVTS01+536 06678000 CVT0PT02 EQU CVTS01+532 06679000 CVTDARCM EQU CVTS01+528 06680000 CVTIRECM EQU CVTS01+524 06681000 CVTJRECM EQU CVTS01+520 06682000 CVTVEMS0 EQU CVTS01+516 06683000 CVTSPFRR EQU CVTS01+512 06684000 CVTRLSTG EQU CVTS01+508 06685000 CVT0TC0A EQU CVTS01+504 06686000 CVTGMBR EQU CVTS01+500 06687000 CVTLFRM EQU CVTS01+496 06688000 CVTRMBR EQU CVTS01+492 06689000 CVTVIOP EQU CVTS01+488 06690000 CVTRV307 EQU CVTS01+486 06691000 CVTRV306 EQU CVTS01+484 06692000 CVTRV305 EQU CVTS01+482 06693000 CVTRV304 EQU CVTS01+480 06694000 CVTRV303 EQU CVTS01+478 06695000 CVTRV302 EQU CVTS01+476 06696000 CVTTRCA EQU CVTS01+472 06697000 CVTRV297 EQU CVTRV289 06698000 CVTRV296 EQU CVTRV289 06699000 CVTRV295 EQU CVTRV289 06700000 CVTRV294 EQU CVTRV289 06701000 CVTRV293 EQU CVTRV289 06702000 CVTRV292 EQU CVTRV289 06703000 CVTRV291 EQU CVTRV289 06704000 CVTRV290 EQU CVTRV289 06705000 CVTRV288 EQU CVTRV280 06706000 CVTRV287 EQU CVTRV280 06707000 CVTRV286 EQU CVTRV280 06708000 CVTRV285 EQU CVTRV280 06709000 CVTRV284 EQU CVTRV280 06710000 CVTRV283 EQU CVTRV280 06711000 CVTRV282 EQU CVTRV280 06712000 CVTRV281 EQU CVTRV280 06713000 CVTRV279 EQU CVTRV271 06714000 CVTRV278 EQU CVTRV271 06715000 CVTRV277 EQU CVTRV271 06716000 CVTRV276 EQU CVTRV271 06717000 CVTRV275 EQU CVTRV271 06718000 CVTRV274 EQU CVTRV271 06719000 CVTRV273 EQU CVTRV271 06720000 CVTRV272 EQU CVTRV271 06721000 CVTRV270 EQU CVTRV262 06722000 CVTRV269 EQU CVTRV262 06723000 CVTRV268 EQU CVTRV262 06724000 CVTRV267 EQU CVTRV262 06725000 CVTRV266 EQU CVTRV262 06726000 CVTRV265 EQU CVTRV262 06727000 CVTRV264 EQU CVTRV262 06728000 CVTRV263 EQU CVTRV262 06729000 CVTVFP EQU CVTS01+464 06730000 CVTVSI EQU CVTS01+460 06731000 CVTVPSIB EQU CVTS01+456 06732000 CVTMFACT EQU CVTMFRTR 06733000 CVTMFCTL EQU CVTS01+448 06734000 CVTPVBP EQU CVTS01+444 06735000 CVTPWI EQU CVTS01+440 06736000 CVTRV254 EQU CVTS01+438 06737000 CVTRV253 EQU CVTS01+436 06738000 CVTRV252 EQU CVTS01+434 06739000 CVTRV251 EQU CVTS01+433 06740000 CVTRV250 EQU CVTS01+432 06741000 CVTRV249 EQU CVTS01+431 06742000 CVTRV248 EQU CVTS01+430 06743000 CVTRV247 EQU CVTS01+429 06744000 CVTRV246 EQU CVTS01+428 06745000 CVTRV245 EQU CVTRV237 06746000 CVTRV244 EQU CVTRV237 06747000 CVTRV243 EQU CVTRV237 06748000 CVTRV242 EQU CVTRV237 06749000 CVTRV241 EQU CVTRV237 06750000 CVTRV240 EQU CVTRV237 06751000 CVTRV239 EQU CVTRV237 06752000 CVTRV238 EQU CVTRV237 06753000 CVTRV236 EQU CVTRV228 06754000 CVTRV235 EQU CVTRV228 06755000 CVTRV234 EQU CVTRV228 06756000 CVTRV233 EQU CVTRV228 06757000 CVTRV232 EQU CVTRV228 06758000 CVTRV231 EQU CVTRV228 06759000 CVTRV230 EQU CVTRV228 06760000 CVTRV229 EQU CVTRV228 06761000 CVTRV227 EQU CVTRV219 06762000 CVTRV226 EQU CVTRV219 06763000 CVTRV225 EQU CVTRV219 06764000 CVTRV224 EQU CVTRV219 06765000 CVTRV223 EQU CVTRV219 06766000 CVTRV222 EQU CVTRV219 06767000 CVTRV221 EQU CVTRV219 06768000 CVTRV220 EQU CVTRV219 06769000 CVTRV218 EQU CVTRV210 06770000 CVTRV217 EQU CVTRV210 06771000 CVTRV216 EQU CVTRV210 06772000 CVTRV215 EQU CVTRV210 06773000 CVTRV214 EQU CVTRV210 06774000 CVTRV213 EQU CVTRV210 06775000 CVTRV212 EQU CVTRV210 06776000 CVTRV211 EQU CVTRV210 06777000 CVTLCCAT EQU CVTS01+420 06778000 CVTPCCAT EQU CVTS01+416 06779000 CVTIPCRP EQU CVTS01+412 06780000 CVTIPCRI EQU CVTS01+408 06781000 CVTIPCDS EQU CVTS01+404 06782000 CVTAIDVT EQU CVTS01+400 06783000 CVTSSAP EQU CVTS01+396 06784000 CVTEHCIR EQU CVTS01+392 06785000 CVTEHDEF EQU CVTS01+388 06786000 CVTDAIR EQU CVTS01+384 06787000 CVTPERFM EQU CVTS01+380 06788000 CVT044R2 EQU CVTS01+376 06789000 CVTFETCH EQU CVTS01+372 06790000 CVTRSTWD EQU CVTS01+368 06791000 CVTSPOST EQU CVTS01+364 06792000 CVTIOBP EQU CVTS01+360 06793000 CVTASMVT EQU CVTS01+356 06794000 CVTRECRQ EQU CVTS01+352 06795000 CVTWSAC EQU CVTS01+348 06796000 CVTRV149 EQU CVTS01+344 06797000 CVTWSAL EQU CVTS01+340 06798000 CVTSPSA EQU CVTS01+336 06799000 CVTGLMN EQU CVTS01+332 06800000 CVTVEAC0 EQU CVTS01+328 06801000 CVT062R1 EQU CVTS01+324 06802000 CVTRPOST EQU CVTS01+320 06803000 CVTDQIQE EQU CVTS01+316 06804000 CVTCSD EQU CVTS01+312 06805000 CVTLKRMA EQU CVTS01+308 06806000 CVTRSPIE EQU CVTS01+304 06807000 CVTRENQ EQU CVTS01+300 06808000 CVTLQCB EQU CVTS01+296 06809000 CVTFQCB EQU CVTS01+292 06810000 CVTQCS01 EQU CVTS01+288 06811000 CVTAPFT EQU CVTS01+284 06812000 CVTPARRL EQU CVTS01+280 06813000 CVTVWAIT EQU CVTS01+276 06814000 CVTGSPL EQU CVTS01+272 06815000 CVTLSMQ EQU CVTS01+268 06816000 CVTGSMQ EQU CVTS01+264 06817000 CVTEXPRO EQU CVTS01+260 06818000 CVTOPCTP EQU CVTS01+256 06819000 CVTSIC EQU CVTS01+252 06820000 CVTTPIOS EQU CVTS01+248 06821000 CVTRTMS EQU CVTS01+244 06822000 CVTSDBF EQU CVTS01+240 06823000 CVTSCBP EQU CVTS01+236 06824000 CVTSDMP EQU CVTS01+232 06825000 CVTSV60 EQU CVTS01+228 06826000 CVTRTMCT EQU CVTS01+224 06827000 CVTASCBL EQU CVTS01+220 06828000 CVTASCBH EQU CVTS01+216 06829000 CVTGDA EQU CVTS01+212 06830000 CVTASVT EQU CVTS01+208 06831000 CVTVVMDI EQU CVTS01+204 06832000 CVTAQTOP EQU CVTS01+200 06833000 CVTIOSCS EQU CVTS01+196 06834000 CVTSDRM EQU CVTS01+192 06835000 CVTOPTE EQU CVTS01+188 06836000 CVTSTXU EQU CVTS01+184 06837000 CVTQUIS EQU CVTS01+180 06838000 CVTPARS EQU CVTS01+176 06839000 CVTS1EE EQU CVTS01+172 06840000 CVTFRAS EQU CVTS01+168 06841000 CVTQSAS EQU CVTS01+164 06842000 CVTCRAS EQU CVTS01+160 06843000 CVTCRMN EQU CVTS01+156 06844000 CVTDELCP EQU CVTS01+152 06845000 CVTFRECL EQU CVTS01+148 06846000 CVTGETCL EQU CVTS01+144 06847000 CVTBLDCP EQU CVTS01+140 06848000 CVTAUTHL EQU CVTS01+136 06849000 CVTSCAN EQU CVTS01+132 06850000 CVTRV144 EQU CVTS01+130 06851000 CVTMAXMP EQU CVTS01+128 06852000 CVTSTCK EQU CVTS01+124 06853000 CVTRV139 EQU CVTS01+123 06854000 CVTDSSAC EQU CVTS01+122 06855000 CVTRV513 EQU CVTS01+121 06856000 CVTIOSPL EQU CVTS01+120 06857000 CVTPTGT EQU CVTS01+116 06858000 CVTCSPIE EQU CVTS01+112 06859000 CVTSMFEX EQU CVTS01+108 06860000 CVTOLT0A EQU CVTS01+104 06861000 CVTSRBRT EQU CVTS01+100 06862000 CVTPUTL EQU CVTS01+96 06863000 CVTASCRL EQU CVTS01+92 06864000 CVTASCRF EQU CVTS01+88 06865000 CVTRV326 EQU CVTS01+84 06866000 CVTRV325 EQU CVTS01+80 06867000 CVTRV324 EQU CVTS01+76 06868000 CVT0VL01 EQU CVTS01+72 06869000 CVTSHRVM EQU CVTS01+68 06870000 CVTRV332 EQU CVTS01+64 06871000 CVTTAS EQU CVTS01+60 06872000 CVTRSCN EQU CVTS01+56 06873000 CVTTRAC2 EQU CVTS01+54 06874000 CVTTRACE EQU CVTS01+52 06875000 CVTAPG EQU CVTS01+51 06876000 CVTSDTRC EQU CVTCTLFG 06877000 CVTGTRCE EQU CVTCTLFG 06878000 CVTNOMP EQU CVTCTLFG 06879000 CVTRSV79 EQU CVTCTLFG 06880000 CVTDSTAT EQU CVTCTLFG 06881000 CVTRSV78 EQU CVTCTLFG 06882000 CVTRV333 EQU CVTCTLFG 06883000 CVTRV323 EQU CVTCTLFG 06884000 CVTSPVLK EQU CVTS01+49 06885000 CVTRSV77 EQU CVTS01+48 06886000 CVTRV331 EQU CVTS01+44 06887000 CVTRV330 EQU CVTS01+40 06888000 CVTRV329 EQU CVTS01+36 06889000 CVTRV328 EQU CVTS01+32 06890000 CVTRV322 EQU CVTS01+28 06891000 CVTSLID EQU CVTSLIDA+1 06892000 CVTSYLK EQU CVTSLIDA 06893000 CVTRV321 EQU CVTS01+20 06894000 CVTRV320 EQU CVTS01+16 06895000 CVTLPDIR EQU CVTLPDIA+1 06896000 CVTRSV69 EQU CVTDIRST 06897000 CVTRSV68 EQU CVTDIRST 06898000 CVTRSV67 EQU CVTDIRST 06899000 CVTRSV66 EQU CVTDIRST 06900000 CVTRSV65 EQU CVTDIRST 06901000 CVTRSV64 EQU CVTDIRST 06902000 CVTRSV63 EQU CVTDIRST 06903000 CVTDICOM EQU CVTDIRST 06904000 CVTPVTP EQU CVTS01+8 06905000 CVTLPDSR EQU CVTS01+4 06906000 CVTGETL EQU CVTS01 06907000 CMZVP204 EQU @NM00086+12 06908000 CMZEA204 EQU @NM00086+8 06909000 CMZRA204 EQU @NM00087+1 06910000 CMZRL204 EQU @NM00087 06911000 CMZVP164 EQU @NM00080+12 06912000 CMZEA164 EQU @NM00080+8 06913000 CMZRA164 EQU @NM00081+1 06914000 CMZRL164 EQU @NM00081 06915000 CMZVP078 EQU @NM00066+12 06916000 CMZEA078 EQU @NM00066+8 06917000 CMZRA078 EQU @NM00067+1 06918000 CMZRL078 EQU @NM00067 06919000 CRACHAIN EQU ISTCRA+928 06920000 CRARSV02 EQU ISTCRA+924 06921000 CRARSV01 EQU ISTCRA+920 06922000 CRABFTBA EQU CRABUFA 06923000 CRAMASK EQU CRASVC+64 06924000 CRAHSIZ EQU CRASVC+60 06925000 CRAASCRR EQU CRASVC 06926000 CRAPSS EQU ISTCRA+160 06927000 CRARPH EQU ISTCRA+52 06928000 CRALAPTR EQU CRABASIC+48 06929000 CRAL9PTR EQU CRABASIC+44 06930000 CRAL8PTR EQU CRABASIC+40 06931000 CRAL7PTR EQU CRABASIC+36 06932000 CRAL6PTR EQU CRABASIC+32 06933000 CRAL5PTR EQU CRABASIC+28 06934000 CRAL4PTR EQU CRABASIC+24 06935000 CRAL2PTR EQU CRABASIC+16 06936000 CRAL1PTR EQU CRABASIC+12 06937000 CRALEV01 EQU CRALKACT+3 06938000 CRALEV02 EQU CRALKACT+3 06939000 CRALEV03 EQU CRALKACT+3 06940000 CRALEV04 EQU CRALKACT+3 06941000 CRALEV05 EQU CRALKACT+3 06942000 CRALEV06 EQU CRALKACT+3 06943000 CRALEV07 EQU CRALKACT+3 06944000 CRALEV08 EQU CRALKACT+3 06945000 CRALEV09 EQU CRALKACT+2 06946000 CRALEV10 EQU CRALKACT+2 06947000 CRALEV11 EQU CRALKACT+2 06948000 CRALEV12 EQU CRALKACT+2 06949000 CRALEV13 EQU CRALKACT+2 06950000 CRALEV14 EQU CRALKACT+2 06951000 CRALEV15 EQU CRALKACT+2 06952000 CRALEV16 EQU CRALKACT+2 06953000 CRALEV17 EQU CRALKACT+1 06954000 CRALEV18 EQU CRALKACT+1 06955000 CRALEV19 EQU CRALKACT+1 06956000 CRALEV20 EQU CRALKACT+1 06957000 CRALEV21 EQU CRALKACT+1 06958000 CRALEV22 EQU CRALKACT+1 06959000 CRALEV23 EQU CRALKACT+1 06960000 CRALEV24 EQU CRALKACT+1 06961000 CRALEV25 EQU CRALKACT 06962000 CRALEV26 EQU CRALKACT 06963000 CRALEV27 EQU CRALKACT 06964000 CRALEV28 EQU CRALKACT 06965000 CRALEV29 EQU CRALKACT 06966000 CRALEV30 EQU CRALKACT 06967000 CRALEV31 EQU CRALKACT 06968000 CRALEV32 EQU CRALKACT 06969000 @NM00171 EQU ISTAPCRR+137 06970000 @NM00170 EQU APC57FLG 06971000 APCNREL EQU APC57FLG 06972000 APCRECRA EQU APC57FLG 06973000 @NM00169 EQU APC54FLG 06974000 APCRLST EQU APC54FLG 06975000 APCPR153 EQU APC53FLG 06976000 @NM00168 EQU APC52FLG 06977000 APCWKF EQU APC52FLG 06978000 APCNWF EQU APC52FLG 06979000 APCRDQ EQU APC52FLG 06980000 APCQENQ EQU APC52FLG 06981000 APCSMSR EQU APC52FLG 06982000 APCCKRQ EQU APC52FLG 06983000 @NM00167 EQU APC31FLG 06984000 APCSORT EQU APC31FLG 06985000 APCRESCH EQU APC31FLG 06986000 APCTPXIT EQU APC31FLG 06987000 APCSWTWD EQU ISTAPCRR+128 06988000 APCSAV2 EQU ISTAPCRR+124 06989000 APCSAV1 EQU ISTAPCRR+120 06990000 APCRETCD EQU APCCOMF+2 06991000 @NM00166 EQU APCCOMF1+1 06992000 APCZLBER EQU APCCOMF1 06993000 APCEXIT EQU APCCOMF1 06994000 APCRELR EQU APCCOMF1 06995000 APCIRB2 EQU APCCOMF1 06996000 APCIRB1 EQU APCCOMF1 06997000 APCSMCR EQU APCCOMF1 06998000 APCUETSK EQU APCCOMF1 06999000 APCSSTSK EQU APCCOMF1 07000000 APCESTAL EQU APCSAVE 07001000 APCFRRPM EQU ISTAPCRR+40 07002000 APCQWFO EQU ISTAPCRR+36 07003000 APCPABSV EQU ISTAPCRR+32 07004000 APCRTRN EQU ISTAPCRR+28 07005000 APCTCBA EQU ISTAPCRR+24 07006000 APCPSTA EQU ISTAPCRR+20 07007000 @NM00165 EQU APCRFLG+1 07008000 APC31R EQU APCRFLG 07009000 APC58R EQU APCRFLG 07010000 APC57R EQU APCRFLG 07011000 APC56R EQU APCRFLG 07012000 APC54R EQU APCRFLG 07013000 APC53R EQU APCRFLG 07014000 APC52R EQU APCRFLG 07015000 APC51R EQU APCRFLG 07016000 @NM00164 EQU APCATFLG+1 07017000 APC31E EQU APCATFLG 07018000 APC58E EQU APCATFLG 07019000 APC57E EQU APCATFLG 07020000 APC56E EQU APCATFLG 07021000 APC54E EQU APCATFLG 07022000 APC53E EQU APCATFLG 07023000 APC52E EQU APCATFLG 07024000 APC51E EQU APCATFLG 07025000 APCHDRSV EQU ISTAPCRR 07026000 ASCPSREG EQU ISTASCRR+44 07027000 ASCUSR01 EQU ASCUSRGS+12 07028000 ASCUSR00 EQU ASCUSRGS+8 07029000 ASCUSR15 EQU ASCUSRGS+4 07030000 ASCUSR14 EQU ASCUSRGS 07031000 ASCETRYA EQU ISTASCRR+24 07032000 ASCKEY EQU ISTASCRR+23 07033000 ASCAUDIT EQU ASCFLG3 07034000 ASCFBDUD EQU ASCFLG3 07035000 ASCLLKF EQU ASCFLG3 07036000 ASCKEYF EQU ASCFLG3 07037000 ASCFBDAL EQU ASCFLG3 07038000 ASCFSRGT EQU ASCFLG3 07039000 ASCICR EQU ASCFLG2 07040000 ASCFSRIC EQU ASCFLG2 07041000 ASCFBDIC EQU ASCFLG2 07042000 ASCFBAIC EQU ASCFLG2 07043000 ASCPASTR EQU ASCFLG1 07044000 ASCFSR EQU ASCFLG1 07045000 ASCFBD EQU ASCFLG1 07046000 ASCFBA EQU ASCFLG1 07047000 ASCPFCRR EQU ISTASCRR 07048000 ZCRRU EQU ZCRRHRU+3 07049000 ZCRRH EQU ZCRRHRU 07050000 ZCRWORDA EQU ISTZCRR+477 07051000 ZCRCMNRC EQU ISTZCRR+476 07052000 ZCRRSV97 EQU ZCRENTER+18 07053000 ZCREIC2B EQU ZCRENTER+18 07054000 ZCREAC2B EQU ZCRENTER+18 07055000 ZCRELCAB EQU ZCRENTER+18 07056000 ZCREDCMF EQU ZCRENTER+18 07057000 ZCREBCIF EQU ZCRENTER+18 07058000 ZCREICSG EQU ZCRENTER+18 07059000 ZCREDCK0 EQU ZCRENTER+18 07060000 ZCRECFY0 EQU ZCRENTER+17 07061000 ZCREKCCB EQU ZCRENTER+17 07062000 ZCREDCNB EQU ZCRENTER+17 07063000 ZCREICOE EQU ZCRENTER+17 07064000 ZCREBCNB EQU ZCRENTER+17 07065000 ZCREBC0L EQU ZCRENTER+17 07066000 ZCREBCAL EQU ZCRENTER+17 07067000 ZCREDCQR EQU ZCRENTER+17 07068000 ZCREDCPR EQU ZCRENTER+16 07069000 ZCREBCSB EQU ZCRENTER+16 07070000 ZCREAC1R EQU ZCRENTER+16 07071000 ZCRECCCI EQU ZCRENTER+16 07072000 ZCRECCAI EQU ZCRENTER+16 07073000 ZCRECCBI EQU ZCRENTER+16 07074000 ZCREBCAR EQU ZCRENTER+16 07075000 ZCREBCDR EQU ZCRENTER+16 07076000 ZCREBCBR EQU ZCRENTER+15 07077000 ZCREDCXR EQU ZCRENTER+15 07078000 ZCREDCWB EQU ZCRENTER+15 07079000 ZCREDCWR EQU ZCRENTER+15 07080000 ZCREKCCN EQU ZCRENTER+15 07081000 ZCREKCBN EQU ZCRENTER+15 07082000 ZCREKCBB EQU ZCRENTER+15 07083000 ZCREJC0B EQU ZCRENTER+15 07084000 ZCREJCDB EQU ZCRENTER+14 07085000 ZCREJCCB EQU ZCRENTER+14 07086000 ZCREJCBB EQU ZCRENTER+14 07087000 ZCREJCAB EQU ZCRENTER+14 07088000 ZCREIC1B EQU ZCRENTER+14 07089000 ZCREIC0B EQU ZCRENTER+14 07090000 ZCREICX0 EQU ZCRENTER+14 07091000 ZCREICWB EQU ZCRENTER+14 07092000 ZCREICVB EQU ZCRENTER+13 07093000 ZCREICUB EQU ZCRENTER+13 07094000 ZCREICTB EQU ZCRENTER+13 07095000 ZCREICSC EQU ZCRENTER+13 07096000 ZCREICSB EQU ZCRENTER+13 07097000 ZCREICRB EQU ZCRENTER+13 07098000 ZCREICQB EQU ZCRENTER+13 07099000 ZCREICQA EQU ZCRENTER+13 07100000 ZCREICOB EQU ZCRENTER+12 07101000 ZCREICOA EQU ZCRENTER+12 07102000 ZCREICNB EQU ZCRENTER+12 07103000 ZCREICNA EQU ZCRENTER+12 07104000 ZCREICMB EQU ZCRENTER+12 07105000 ZCREICLB EQU ZCRENTER+12 07106000 ZCREICKG EQU ZCRENTER+12 07107000 ZCREICKE EQU ZCRENTER+12 07108000 ZCREICKB EQU ZCRENTER+11 07109000 ZCREICJB EQU ZCRENTER+11 07110000 ZCREICID EQU ZCRENTER+11 07111000 ZCREICIB EQU ZCRENTER+11 07112000 ZCREICHB EQU ZCRENTER+11 07113000 ZCREICGB EQU ZCRENTER+11 07114000 ZCREICEB EQU ZCRENTER+11 07115000 ZCREICDB EQU ZCRENTER+11 07116000 ZCREICCI EQU ZCRENTER+10 07117000 ZCREICCB EQU ZCRENTER+10 07118000 ZCREICBI EQU ZCRENTER+10 07119000 ZCREICBB EQU ZCRENTER+10 07120000 ZCREICAB EQU ZCRENTER+10 07121000 ZCREICAA EQU ZCRENTER+10 07122000 ZCREHCAN EQU ZCRENTER+10 07123000 ZCREGC0B EQU ZCRENTER+10 07124000 ZCREGC0A EQU ZCRENTER+9 07125000 ZCREGCLA EQU ZCRENTER+9 07126000 ZCREGCEB EQU ZCRENTER+9 07127000 ZCREGCDB EQU ZCRENTER+9 07128000 @NM00163 EQU ZCRENTER+9 07129000 ZCREGCBB EQU ZCRENTER+9 07130000 ZCREGCAB EQU ZCRENTER+9 07131000 ZCREFCEB EQU ZCRENTER+9 07132000 ZCREFCEA EQU ZCRENTER+8 07133000 ZCREECTA EQU ZCRENTER+8 07134000 ZCREECEA EQU ZCRENTER+8 07135000 ZCREECDA EQU ZCRENTER+8 07136000 ZCREECCB EQU ZCRENTER+8 07137000 ZCREECCA EQU ZCRENTER+8 07138000 ZCREECBB EQU ZCRENTER+8 07139000 ZCREECBA EQU ZCRENTER+8 07140000 ZCREDCMB EQU ZCRENTER+7 07141000 ZCREDCL0 EQU ZCRENTER+7 07142000 ZCREDCKB EQU ZCRENTER+7 07143000 ZCREDCKA EQU ZCRENTER+7 07144000 ZCREDCJ0 EQU ZCRENTER+7 07145000 ZCREDCI0 EQU ZCRENTER+7 07146000 ZCREDCH0 EQU ZCRENTER+7 07147000 ZCREDCF0 EQU ZCRENTER+7 07148000 ZCREDCE0 EQU ZCRENTER+6 07149000 ZCREDCD0 EQU ZCRENTER+6 07150000 ZCREDCC0 EQU ZCRENTER+6 07151000 ZCREDCB0 EQU ZCRENTER+6 07152000 ZCREDCA0 EQU ZCRENTER+6 07153000 ZCRECC2B EQU ZCRENTER+6 07154000 ZCRECC1B EQU ZCRENTER+6 07155000 ZCRECC1A EQU ZCRENTER+6 07156000 ZCRECC0B EQU ZCRENTER+5 07157000 ZCRECC0A EQU ZCRENTER+5 07158000 ZCREBC0B EQU ZCRENTER+5 07159000 ZCREBC0A EQU ZCRENTER+5 07160000 ZCREBCZ0 EQU ZCRENTER+5 07161000 ZCREBCY0 EQU ZCRENTER+5 07162000 ZCREBCX0 EQU ZCRENTER+5 07163000 ZCREBCXA EQU ZCRENTER+5 07164000 ZCREBCSC EQU ZCRENTER+4 07165000 ZCREBCRB EQU ZCRENTER+4 07166000 ZCREBCRA EQU ZCRENTER+4 07167000 ZCREBCQB EQU ZCRENTER+4 07168000 ZCREBCPB EQU ZCRENTER+4 07169000 ZCREBCOB EQU ZCRENTER+4 07170000 ZCREBCNE EQU ZCRENTER+4 07171000 ZCREBCND EQU ZCRENTER+4 07172000 ZCREBCMB EQU ZCRENTER+3 07173000 ZCREBCLB EQU ZCRENTER+3 07174000 ZCREBCLA EQU ZCRENTER+3 07175000 ZCREBCKB EQU ZCRENTER+3 07176000 ZCREBCKA EQU ZCRENTER+3 07177000 ZCREBCJB EQU ZCRENTER+3 07178000 ZCREBCJA EQU ZCRENTER+3 07179000 ZCREBCID EQU ZCRENTER+3 07180000 ZCREBCIB EQU ZCRENTER+2 07181000 ZCREBCIA EQU ZCRENTER+2 07182000 ZCREBCHB EQU ZCRENTER+2 07183000 ZCREBCHA EQU ZCRENTER+2 07184000 ZCREBCGB EQU ZCRENTER+2 07185000 ZCREBCGA EQU ZCRENTER+2 07186000 ZCREBCFB EQU ZCRENTER+2 07187000 ZCREBCFA EQU ZCRENTER+2 07188000 ZCREBCEB EQU ZCRENTER+1 07189000 ZCREBCDI EQU ZCRENTER+1 07190000 ZCREBCCB EQU ZCRENTER+1 07191000 ZCREBCBI EQU ZCRENTER+1 07192000 ZCREBCBB EQU ZCRENTER+1 07193000 ZCREBCBA EQU ZCRENTER+1 07194000 ZCREBCAM EQU ZCRENTER+1 07195000 ZCREBCAI EQU ZCRENTER+1 07196000 ZCREBCAG EQU ZCRENTER 07197000 ZCREBCAE EQU ZCRENTER 07198000 ZCREBCAB EQU ZCRENTER 07199000 ZCREBCAA EQU ZCRENTER 07200000 ZCREAC1B EQU ZCRENTER 07201000 ZCREAC0B EQU ZCRENTER 07202000 ZCREAC0A EQU ZCRENTER 07203000 ZCREAC1A EQU ZCRENTER 07204000 ZCRTNAME EQU ZCRAUDIT+1 07205000 ZCRTID EQU ZCRAUDIT 07206000 ZCRREMIC EQU ISTZCRR+436 07207000 ZCRSAVEZ EQU ISTZCRR+196 07208000 ZCRDAFSV EQU ZCRCIDSV+2 07209000 ZCRSAFSV EQU ZCRCIDSV 07210000 ZCRR13SV EQU ISTZCRR+188 07211000 ZCRR2SV EQU ISTZCRR+184 07212000 ZCROPCDE EQU ISTZCRR+183 07213000 ZCRPRMTC EQU ISTZCRR+182 07214000 ZCRRCDSV EQU ISTZCRR+181 07215000 ZCRAWQSW EQU ISTZCRR+180 07216000 ZCRTOPQ EQU ISTZCRR+180 07217000 ZCRLSTFB EQU ISTZCRR+180 07218000 ZCRXSCHD EQU ISTZCRR+180 07219000 ZCRNXTEL EQU ISTZCRR+180 07220000 ZCRSCANQ EQU ISTZCRR+180 07221000 ZCRMOREL EQU ISTZCRR+180 07222000 ZCRFBPRC EQU ISTZCRR+180 07223000 ZCRFSBSV EQU ISTZCRR+176 07224000 ZCRSVWK5 EQU ZCRWKARA+16 07225000 ZCRSVWK4 EQU ZCRWKARA+12 07226000 ZCRSVWK3 EQU ZCRWKARA+8 07227000 ZCRSVWK2 EQU ZCRWKARA+4 07228000 ZCRSVWK1 EQU ZCRWKARA 07229000 ZCRSVF25 EQU ZCRSVRTN+96 07230000 ZCRSVF24 EQU ZCRSVRTN+92 07231000 ZCRSVF23 EQU ZCRSVRTN+88 07232000 ZCRSVF22 EQU ZCRSVRTN+84 07233000 ZCRSVF21 EQU ZCRSVRTN+80 07234000 ZCRSVF20 EQU ZCRSVRTN+76 07235000 ZCRSVF19 EQU ZCRSVRTN+72 07236000 ZCRSVF18 EQU ZCRSVRTN+68 07237000 ZCRSVF17 EQU ZCRSVRTN+64 07238000 ZCRSVF16 EQU ZCRSVRTN+60 07239000 ZCRSVF15 EQU ZCRSVRTN+56 07240000 ZCRSVF14 EQU ZCRSVRTN+52 07241000 ZCRSVF13 EQU ZCRSVRTN+48 07242000 ZCRSVF12 EQU ZCRSVRTN+44 07243000 ZCRSVF11 EQU ZCRSVRTN+40 07244000 ZCRSVF10 EQU ZCRSVRTN+36 07245000 ZCRSVF9 EQU ZCRSVRTN+32 07246000 ZCRSVF8 EQU ZCRSVRTN+28 07247000 ZCRSVF7 EQU ZCRSVRTN+24 07248000 ZCRSVF6 EQU ZCRSVRTN+20 07249000 ZCRSVF5 EQU ZCRSVRTN+16 07250000 ZCRSVF4 EQU ZCRSVRTN+12 07251000 ZCRSVF3 EQU ZCRSVRTN+8 07252000 ZCRSVF2 EQU ZCRSVRTN+4 07253000 ZCRSVF1 EQU ZCRSVRTN 07254000 ZCRPVZB EQU ISTZCRR+52 07255000 ZCRZLB EQU ISTZCRR+48 07256000 ZCRBFPTR EQU ISTZCRR+44 07257000 ZCRCCWA EQU ISTZCRR+40 07258000 ZCRPSW EQU ZCRPARMS+15 07259000 ZCRPCHAR EQU ZCRPARMS+14 07260000 ZCRPRES2 EQU ZCRPCOD2 07261000 ZCRPMFGF EQU ZCRPCOD2 07262000 ZCRPFHDR EQU ZCRPCOD2 07263000 ZCRPPG2 EQU ZCRPCOD2 07264000 ZCRPRES EQU ZCRPCOD1 07265000 ZCRPCFTX EQU ZCRPCOD1 07266000 ZCRPBUF EQU ZCRPCOD1 07267000 ZCRPLSCB EQU ZCRPCOD1 07268000 ZCRPLSBQ EQU ZCRPLSBF 07269000 ZCRPFSB EQU ZCRPCOD1 07270000 ZCRPLNG EQU ZCRPCOD1 07271000 ZCRPPG EQU ZCRPCOD1 07272000 ZCRDTODA EQU ZCRDFRDA 07273000 ZCRMLNG EQU ZCRPARMS+8 07274000 ZCRTBPTR EQU ZCRPARMS+4 07275000 ZCRCBPTR EQU ZCRFBPTR 07276000 ZCRCRLCP EQU ISTZCRR+20 07277000 @NM00162 EQU ZCRSCPSW 07278000 ZCRSKIPT EQU ZCRSCPSW 07279000 ZCRFSBWE EQU ZCRSCPSW 07280000 ZCRPRCMP EQU ZCRSCPSW 07281000 ZCRLREQ EQU ZCRSCPSW 07282000 ZCRRJLCP EQU ZCRSCPSW 07283000 ZCRTPINV EQU ZCRSCPSW 07284000 ZCRTPEX EQU ZCRSCPSW 07285000 @NM00161 EQU ZCRIBPR 07286000 ZCR3270R EQU ZCRIBPR 07287000 ZCR3270 EQU ZCRIBPR 07288000 ZCRLCPFD EQU ZCRIBPR 07289000 ZCRLCPFR EQU ZCRIBPR 07290000 ZCRRELK EQU ZCRIBPR 07291000 ZCRERR EQU ZCRIBPR 07292000 ZCRNOBUF EQU ZCRIBPR 07293000 @NM00160 EQU ZCRPFLGS 07294000 ZCRQAHED EQU ZCRPFLGS 07295000 ZCRF1RES EQU ZCRGENSW 07296000 ZCRBRIS EQU ZCRGENSW 07297000 ZCRCLRBD EQU ZCRGENSW 07298000 ZCREXRES EQU ZCRGENSW 07299000 ZCRLCSYN EQU ZCRGENSW 07300000 ZCRRT06 EQU ZCRGENSW 07301000 ZCRTSW2 EQU ZCRGENSW 07302000 ZCRTSW1 EQU ZCRGENSW 07303000 ZCRINLCP EQU ZCRFLGS3 07304000 ZCRWRPTR EQU ZCRFLGS3 07305000 ZCRNOFRE EQU ZCRFLGS3 07306000 ZCREDRIV EQU ZCRFLGS3 07307000 ZCRDISC EQU ZCRFLGS3 07308000 ZCRTPDIS EQU ZCRFLGS3 07309000 ZCRTPCON EQU ZCRFLGS3 07310000 ZCRTIC EQU ZCRFLGS3 07311000 ZCRCNLXL EQU ZCRRESET 07312000 ZCRENDAN EQU ZCRSWFLD 07313000 ZCRENDXL EQU ZCRSWFLD 07314000 ZCRENDX EQU ZCRSWFLD 07315000 ZCROB1 EQU ZCRNDLCP 07316000 ZCRENDPR EQU ZCRSWFLD 07317000 ZCREXTYP EQU ZCRSWFLD 07318000 ZCRSLCP EQU ZCRENDSH 07319000 ZCRIF0E3 EQU ZCRFLGS2 07320000 ZCRIF0E2 EQU ZCRFLGS2 07321000 ZCRIF0E1 EQU ZCRFLGS2 07322000 ZCROB EQU ZCRFLGS2 07323000 ZCRFMSED EQU ZCRFLGS2 07324000 ZCRSHEDI EQU ZCRFLGS2 07325000 ZCRLOCAL EQU ZCRFLGS2 07326000 ZCRFEXIT EQU ZCRFLGS1 07327000 ZCRUNSOL EQU ZCRFLGS1 07328000 ZCRENDLP EQU ZCRFLGS1 07329000 ZCRNRMEX EQU ZCRFLGS1 07330000 ZCRWAIT EQU ZCRFLGS1 07331000 ZCRDEQSW EQU ZCRFLGS1 07332000 ZCRQUESW EQU ZCRFLGS1 07333000 ZCREXSW EQU ZCRFLGS1 07334000 ZCRFRRA EQU ISTZCRR+8 07335000 ZCRCHAIN EQU ISTZCRR+4 07336000 ZCRFLAG EQU ZCRCRR+3 07337000 ZCRLEN EQU ZCRCRR+1 07338000 ZCRID EQU ZCRCRR 07339000 CCFRSVD1 EQU CFCCRT 07340000 CCFCRP EQU CFCCRT 07341000 CCFCR1 EQU CFCCRT 07342000 CCFCS2 EQU CFCCRT 07343000 CCFCS1 EQU CFCCRT 07344000 NCFRSVD EQU CFCNTRD 07345000 NCFCRP EQU CFCNTRD 07346000 NCFCR1 EQU CFCNTRD 07347000 NCFCS2 EQU CFCNTRD 07348000 NCFCS1 EQU CFCNTRD 07349000 PFCRSV01 EQU ISTPFCRR+13 07350000 CRRFRR EQU PFCFRRO 07351000 CRRCHAIN EQU PFCCRRO 07352000 CRRLEN EQU PFCCRRLN 07353000 PFCRSV10 EQU PFCCRR+1 07354000 CRRID EQU PFCCRRID 07355000 ZSAZTRAC EQU ISTZSAVE+36 07356000 ZSAZSVVR EQU ISTZSAVE+12 07357000 ZSAZSVRR EQU ISTZSAVE+8 07358000 ZSAZSVFC EQU ISTZSAVE+4 07359000 ZSAZACTV EQU ZSAZSVMS 07360000 LCPFTYPE EQU LCPRPHA 07361000 LCPRSTQH EQU LCPLCCW 07362000 LCPCLREP EQU ISTLCPB+44 07363000 LCPUBFSB EQU LCPFLCCW 07364000 LCPRSV77 EQU ISTLCPB+39 07365000 LCPLCCWC EQU ISTLCPB+38 07366000 LCPRSV78 EQU LCPFLG1 07367000 LCPTRANS EQU LCPFLG1 07368000 LCPSTLB EQU LCPFLG1 07369000 LCPREDRV EQU LCPFLG1 07370000 LCPDIRPT EQU LCPFLG1 07371000 LCPINTER EQU LCPFLG1 07372000 LCPRESET EQU LCPFLG1 07373000 LCPSTYPE EQU ISTLCPB+36 07374000 LCPFSNCH EQU ISTLCPB+34 07375000 LCPFOSN EQU ISTLCPB+32 07376000 LCPTLBAD EQU ISTLCPB+28 07377000 LCPFDB2 EQU LCPFDBA+1 07378000 LCPFDB1 EQU LCPFDBA 07379000 LCPNXLCW EQU ISTLCPB+20 07380000 LCPDAF EQU LCPCID+2 07381000 LCPSAF EQU LCPCID 07382000 LCPLCCW1 EQU ISTLCPB+12 07383000 LCPRRCNT EQU LCPSEQ+1 07384000 LCPRRCCT EQU LCPSEQ 07385000 LCPATOP EQU LCPFLAG2 07386000 LCPFREE EQU LCPFLAG2 07387000 LCPDSTAT EQU LCPFLAG2 07388000 LCPEXRES EQU LCPFID0 07389000 LCPZRIMM EQU LCPTLBPI 07390000 LCPRSTRT EQU LCPFLAG2 07391000 LCPASYN EQU LCPFLAG2 07392000 LCPPRFLG EQU LCPFLAG2 07393000 LCPZMIRC EQU LCPRUCNT 07394000 LCPCHAI2 EQU LCPCHAIN+1 07395000 LCPCHNG EQU LCPCHAI1 07396000 LCPZRT0B EQU LCPMNRCD 07397000 LCPZRT0A EQU LCPMNRCD 07398000 LCPZRTL9 EQU LCPZRT09 07399000 LCPZRTL8 EQU LCPZRT08 07400000 LCPZRTL7 EQU LCPZRT07 07401000 LCPZRTL6 EQU LCPZRT06 07402000 LCPZRTL5 EQU LCPZRT05 07403000 LCPZRTL4 EQU LCPZRT04 07404000 LCPZRTL3 EQU LCPZRT03 07405000 LCPZRTL2 EQU LCPZRT02 07406000 LCPZRT01 EQU LCPFLAGS 07407000 LCPZRT00 EQU LCPFLAGS 07408000 LCPLNGTH EQU ISTLCPB+1 07409000 LCPTYPE EQU ISTLCPB 07410000 LCCWDATA EQU ISTLCCW+4 07411000 LCCWCNT EQU ISTLCCW+2 07412000 LCCWACI EQU LCCWFLAG 07413000 LCCWRFI EQU LCCWFLAG 07414000 LCCWPER EQU LCCWLSI 07415000 LCCWIDAT EQU LCCWFLAG 07416000 LCCWNTVC EQU LCCWFLAG 07417000 LCCWCKPT EQU LCCWFLAG 07418000 LCCWCC EQU LCCWFLAG 07419000 LCCWCD EQU LCCWFLAG 07420000 LCCWTYPE EQU LCCWCTL 07421000 LCCWMODE EQU LCCWCTL 07422000 LCCWSOP EQU LCCWRWOP 07423000 @NM00159 EQU LCCWRWOP 07424000 LCCWSD EQU LCCWOP 07425000 LCCWSI EQU LCCWOP 07426000 @NM00057 EQU CR2MLWTO 07427000 @NM00056 EQU CR2WA+23 07428000 @NM00055 EQU CR2STSW 07429000 CR2FND EQU CR2STSW 07430000 CR2TEMP EQU CR2PACK 07431000 @NM00158 EQU POMREPQ 07432000 @NM00157 EQU POMNEXT 07433000 POMRSVD2 EQU ISTPOMCB+4 07434000 POMRSVD1 EQU ISTPOMCB+3 07435000 @NM00156 EQU ISTPORCB+26 07436000 @NM00155 EQU PORRSVD 07437000 PORRTPQ EQU PORRSVD 07438000 @NM00154 EQU PORPOMQ 07439000 @NM00153 EQU PORNEXT 07440000 PORPSSQ EQU ISTPORCB+4 07441000 POCWTOPL EQU ISTPOCB+44 07442000 POCRSVD EQU ISTPOCB+43 07443000 @NM00152 EQU POCSTAT 07444000 POCQUI EQU POCSTAT 07445000 POCRCNTR EQU ISTPOCB+41 07446000 @NM00151 EQU POCREPQ 07447000 @NM00150 EQU POCRCVQ 07448000 @NM00149 EQU POCNEXT 07449000 POCLNGTH EQU ISTPOCB+1 07450000 POWPSSQ EQU ISTPOWE+4 07451000 POWRSVD EQU ISTPOWE+2 07452000 POWLNGTH EQU ISTPOWE+1 07453000 POWCBID EQU ISTPOWE 07454000 RWPSSECB EQU RWPRECB 07455000 WPLRSV02 EQU WPLMCSF2 07456000 WPLMCSFN EQU WPLMCSF2 07457000 WPLRSV01 EQU WPLMCSF2 07458000 WPLSTGFL EQU WPLMCSF2 07459000 WPLMCSFJ EQU WPLMCSF2 07460000 WPLMCSFI EQU WPLMCSF2 07461000 WPLMCSFH EQU WPLMCSF1 07462000 WPLMCSFG EQU WPLMCSF1 07463000 WPLMCSFF EQU WPLMCSF1 07464000 WPLMCSFE EQU WPLMCSF1 07465000 WPLMCSFC EQU WPLMCSF1 07466000 WPLMCSFB EQU WPLMCSF1 07467000 POHRSVD2 EQU POHSTAT 07468000 @NM00148 EQU POIPRANC 07469000 @NM00147 EQU POIANCR 07470000 POIRSVD EQU ISTPOIA+2 07471000 POILNGTH EQU ISTPOIA+1 07472000 POICBID EQU ISTPOIA 07473000 ATCAOS EQU ISTATCVT+1584 07474000 ATCVIOPM EQU ATCAOSM+636 07475000 ATCTPMMI EQU ATCAOSM+632 07476000 ATCTPMPB EQU ATCAOSM+600 07477000 ATCRSV88 EQU ATCAOSM+596 07478000 ATCRPLCT EQU ATCAOSM+594 07479000 ATCCRACT EQU ATCAOSM+592 07480000 ATCSRBCT EQU ATCAOSM+590 07481000 ATCRSV75 EQU ATCAOSM+589 07482000 ATCRSV66 EQU ATCZFLAG 07483000 ATCZF001 EQU ATCZFLAG 07484000 ATCTPCP1 EQU ATCAOSM+584 07485000 ATCTPCP0 EQU ATCAOSM+580 07486000 ATCAICTN EQU ATCAOSM+576 07487000 ATCZR01 EQU ATCAOSM+572 07488000 ATCMPLTA EQU ATCAOSM+568 07489000 ATCASCB EQU ATCAOSM+564 07490000 ATCAP86 EQU ATCAOSM+560 07491000 ATCAP85 EQU ATCAOSM+556 07492000 ATCAP84 EQU ATCAOSM+552 07493000 ATCAP83 EQU ATCAOSM+548 07494000 ATCAP82 EQU ATCAOSM+544 07495000 ATCAP69 EQU ATCAOSM+540 07496000 ATCAP66 EQU ATCAOSM+536 07497000 ATCAP62 EQU ATCAOSM+532 07498000 ATCAPC59 EQU ATCAOSM+528 07499000 ATCAP56 EQU ATCAOSM+524 07500000 ATCAP55 EQU ATCAOSM+520 07501000 ATCRCFY0 EQU ATCAOSM+516 07502000 ATCAP41 EQU ATCAOSM+512 07503000 ATCAPC25 EQU ATCAOSM+508 07504000 ATCAP23 EQU ATCAOSM+504 07505000 ATCTPSPB EQU ATCAOSM+472 07506000 ATCTRMPB EQU ATCAOSM+440 07507000 ATCAPBE EQU ATCAOSM+436 07508000 ATCPSTA EQU ATCAOSM+432 07509000 ATCSMABF EQU ATCAOSM+428 07510000 ATCSMAPR EQU ATCAOSM+424 07511000 ATCTPWQA EQU ATCAOSM+420 07512000 ATCSMAID EQU ATCAOSM+416 07513000 ATCSMARA EQU ATCAOSM+412 07514000 ATCCACXA EQU ATCAOSM+408 07515000 ATCZLAAB EQU ATCAOSM+404 07516000 ATCATA10 EQU ATCAOSM+400 07517000 ATCHLTCB EQU ATCAOSM+396 07518000 @NM00146 EQU ATCVTFLG 07519000 ATCVTACT EQU ATCVTFLG 07520000 ATCRPT40 EQU ATCAOSM+388 07521000 ATCRPT39 EQU ATCAOSM+384 07522000 ATCRPT38 EQU ATCAOSM+380 07523000 ATCRPT37 EQU ATCAOSM+376 07524000 ATCRPT36 EQU ATCAOSM+372 07525000 ATCRPT35 EQU ATCAOSM+368 07526000 ATCRPT34 EQU ATCAOSM+364 07527000 ATCRPT33 EQU ATCAOSM+360 07528000 ATCRPT32 EQU ATCAOSM+356 07529000 ATCRPT31 EQU ATCAOSM+352 07530000 ATCRPT30 EQU ATCAOSM+348 07531000 ATCRPT29 EQU ATCAOSM+344 07532000 ATCRPT28 EQU ATCAOSM+340 07533000 ATCRPT27 EQU ATCAOSM+336 07534000 @NM00145 EQU ATCAOSM+333 07535000 @NM00144 EQU @NM00143 07536000 ATCSNUF EQU @NM00143 07537000 ATCOPKL EQU @NM00143 07538000 ATCABEN EQU @NM00143 07539000 ATCAIWT EQU ATCAOSM+328 07540000 ATCINFDD EQU ATCAOSM+324 07541000 ATCORFMG EQU ATCAOSM+320 07542000 ATCORFRL EQU ATCAOSM+316 07543000 ATCOROBT EQU ATCAOSM+312 07544000 ATCORQG EQU ATCORSRB 07545000 ATCORTBF EQU ATCSQAFR 07546000 ATCRPLAC EQU ATCRPLCN+2 07547000 ATCRPLRC EQU ATCRPLCN 07548000 ATCCRPLQ EQU ATCCRPL 07549000 ATCSRBAC EQU ATCSRBCN+2 07550000 ATCSRBRC EQU ATCSRBCN 07551000 ATCSRBQ EQU ATCSRB 07552000 ATCCRAAC EQU ATCCRACN+2 07553000 ATCCRARC EQU ATCCRACN 07554000 ATCCRAQ EQU ATCCRA 07555000 ATCRPT12 EQU ATCAOSM+276 07556000 ATCDMAPP EQU ATCAOSM+272 07557000 ATCAP38 EQU ATCAOSM+268 07558000 ATCZDFJ0 EQU ATCAOSM+260 07559000 ATCAP51 EQU ATCAOSM+256 07560000 ATCZPAB2 EQU ATCAOSM+224 07561000 ATCZPAB1 EQU ATCAOSM+192 07562000 ATCZLFVT EQU ATCAOSM+188 07563000 ATCZLPVT EQU ATCAOSM+184 07564000 ATCZDVTX EQU ATCAOSM+180 07565000 ATCZDVTA EQU ATCAOSM+176 07566000 ATCZDVT9 EQU ATCAOSM+172 07567000 ATCZDVT8 EQU ATCAOSM+168 07568000 ATCZDVT7 EQU ATCAOSM+164 07569000 ATCRSV56 EQU ATCDAPVT+22 07570000 ATCDAPDG EQU ATCDAPVT+20 07571000 ATCDXCEA EQU ATCDAPVT+16 07572000 ATCDCEA EQU ATCDAPVT+12 07573000 ATCDPCIA EQU ATCDAPVT+8 07574000 ATCDSIOA EQU ATCDAPVT+4 07575000 ATCDEOEA EQU ATCDAPVT 07576000 ATCZLAEA EQU ATCLDAPP+16 07577000 ATCZLCEA EQU ATCLDAPP+12 07578000 ATCRSV17 EQU ATCLDAPP+8 07579000 ATCSMFRR EQU ATCLDAPP+4 07580000 ATCCDTID EQU ATCLDAPP 07581000 ATCZAEA EQU ATCICAPP+16 07582000 ATCZCEA EQU ATCICAPP+12 07583000 ATCCDTCB EQU ATCICAPP+8 07584000 ATCZSIOA EQU ATCICAPP+4 07585000 ATCCDRPH EQU ATCICAPP 07586000 ATCAP65 EQU ATCAOSM+96 07587000 ATCZDVT6 EQU ATCAOSM+92 07588000 ATCZDVT4 EQU ATCAOSM+88 07589000 ATCZDVT3 EQU ATCAOSM+84 07590000 ATCZDVT1 EQU ATCAOSM+80 07591000 ATCICNCB EQU ATCAOSM+76 07592000 ATCZPSVT EQU ATCAOSM+72 07593000 ATCZFSVT EQU ATCAOSM+68 07594000 ATCAP64 EQU ATCAOSM+64 07595000 ATCAP63 EQU ATCAOSM+60 07596000 ATCAP61 EQU ATCAOSM+56 07597000 ATCAP58 EQU ATCAOSM+52 07598000 ATCAP57 EQU ATCAOSM+48 07599000 ATCAP54 EQU ATCAOSM+44 07600000 ATCAP53 EQU ATCAOSM+40 07601000 ATCAP52 EQU ATCAOSM+36 07602000 ATCAP32 EQU ATCAOSM+28 07603000 ATCAP12 EQU ATCAOSM+20 07604000 ATCAP11 EQU ATCAOSM+16 07605000 ATCCMTCB EQU ATCAOSM+12 07606000 ATCPRPH EQU ATCAOSM+8 07607000 ATCGSRBF EQU ATCGSRBG 07608000 ATCSRBRT EQU ATCAOSM 07609000 @NM00142 EQU @NM00141 07610000 ATCVTMAB EQU @NM00141 07611000 @NM00140 EQU ATCVTBAM 07612000 ATCVDLOK EQU ISTATCVT+904 07613000 ATCVFPAB EQU ISTATCVT+872 07614000 ATCVDPAB EQU ISTATCVT+840 07615000 ATCIOECB EQU ISTATCVT+836 07616000 ATCINCW3 EQU ISTATCVT+832 07617000 ATCMODTB EQU ISTATCVT+828 07618000 ATCUSSPT EQU ISTATCVT+824 07619000 ATCSRTAB EQU ISTATCVT+820 07620000 @NM00139 EQU ISTATCVT+819 07621000 @NM00138 EQU ATCSTAT2 07622000 ATCTRSMS EQU ATCSTAT2 07623000 ATCTRLOK EQU ATCSTAT2 07624000 ATCTRPSS EQU ATCSTAT2 07625000 ATCTRESC EQU ATCSTAT2 07626000 ATCTRAPI EQU ATCSTAT2 07627000 ATCNMCTR EQU ISTATCVT+816 07628000 ATCSEC51 EQU ATCSECST 07629000 ATCSEC40 EQU ATCSIPD+8 07630000 ATCSEC30 EQU ATCSIPD+4 07631000 ATCSEC21 EQU ATCSIPD 07632000 ATCSEC10 EQU ATCSOPD+4 07633000 ATCSEC01 EQU ATCSOPD 07634000 @NM00137 EQU ATCRNO 07635000 ATCPODVT EQU ISTATCVT+784 07636000 ATCS49XL EQU ISTATCVT+780 07637000 ATCS49XI EQU ISTATCVT+776 07638000 ATCLCLCT EQU ATCVLCNT+2 07639000 ATCRNCNT EQU ATCVLCNT 07640000 ATCCFEAD EQU ISTATCVT+768 07641000 ATCPTR00 EQU ISTATCVT+736 07642000 ATCRSV10 EQU ISTATCVT+704 07643000 ATCTACB EQU ISTATCVT+700 07644000 ATCVTINM EQU ISTATCVT+696 07645000 ATCTCLIM EQU ISTATCVT+692 07646000 ATCTCLOM EQU ISTATCVT+688 07647000 ATCVTIPB EQU ISTATCVT+656 07648000 ATCTCIPB EQU ISTATCVT+624 07649000 ATCTIPAB EQU ISTATCVT+592 07650000 ATCOCCCB EQU ISTATCVT+588 07651000 ATCOCCOB EQU ISTATCVT+584 07652000 ATCCDLAD EQU ISTATCVT+580 07653000 ATCCCLAD EQU ISTATCVT+576 07654000 ATCDLRPB EQU ISTATCVT+544 07655000 ATCPGPAB EQU ISTATCVT+512 07656000 ATCVPAB1 EQU ISTATCVT+480 07657000 ATCRSV97 EQU ISTATCVT+476 07658000 ATCVOCLK EQU ISTATCVT+468 07659000 ATCCDFDN EQU ISTATCVT+464 07660000 ATCCDFIN EQU ISTATCVT+460 07661000 ATCDVTLK EQU ISTATCVT+456 07662000 ATCAP35 EQU ISTATCVT+448 07663000 ATCRSV99 EQU ISTATCVT+440 07664000 ATCONFIG EQU ISTATCVT+432 07665000 ATCNODDS EQU ISTATCVT+428 07666000 ATCNODEL EQU ISTATCVT+420 07667000 ATCRSV69 EQU ISTATCVT+416 07668000 ATCAPCR5 EQU ISTATCVT+412 07669000 ATCLDECB EQU ISTATCVT+408 07670000 ATCLDNCS EQU ISTATCVT+404 07671000 ATCCDPTR EQU ISTATCVT+400 07672000 ATCADEL EQU ISTATCVT+396 07673000 ATCTODVT EQU ISTATCVT+392 07674000 ATCDEBCH EQU ISTATCVT+388 07675000 ATCHBSIZ EQU ATCHPGM+2 07676000 ATCHBFNO EQU ATCHPGM 07677000 ATCCRME EQU ISTATCVT+380 07678000 ATCRVCHS EQU ISTATCVT+372 07679000 ATCECTLP EQU ISTATCVT+368 07680000 ATCZDVTB EQU ISTATCVT+364 07681000 ATCECPRT EQU ISTATCVT+360 07682000 ATCVTLOD EQU ISTATCVT+356 07683000 ATCTRPAB EQU ISTATCVT+352 07684000 ATCMSGM EQU ISTATCVT+348 07685000 ATCEPT EQU ISTATCVT+340 07686000 ATCDVT EQU ISTATCVT+336 07687000 ATCTRCPT EQU ISTATCVT+332 07688000 ATCDVLOD EQU ISTATCVT+328 07689000 ATCALERT EQU ISTATCVT+324 07690000 ATCEPA EQU ISTATCVT+320 07691000 ATCSAF EQU ISTATCVT+318 07692000 ATCXRANG EQU ISTATCVT+317 07693000 ATCLAST EQU ATCSHRFG 07694000 ATCSHRTN EQU ISTATCVT+308 07695000 ATCUEP EQU ISTATCVT+304 07696000 ATCOCRT EQU ISTATCVT+300 07697000 ATCCSMA EQU ATCCSMR 07698000 ATCESC02 EQU ISTATCVT+292 07699000 ATCESC01 EQU ISTATCVT+288 07700000 ATCCDFND EQU ISTATCVT+284 07701000 ATCCDDEL EQU ISTATCVT+280 07702000 ATCCDADD EQU ISTATCVT+276 07703000 ATCMNT EQU ISTATCVT+272 07704000 ATCRSV16 EQU ISTATCVT+270 07705000 ATCMAXID EQU ISTATCVT+269 07706000 ATCMSGSP EQU ATCCOM+268 07707000 ATCCIDM EQU ATCCOM+266 07708000 ATCACTRM EQU ATCCOM+264 07709000 ATCNERAP EQU ATCCOM+260 07710000 ATCNESAL EQU ATCCOM+256 07711000 ATCRCC65 EQU ATCCOM+252 07712000 ATCRCC26 EQU ATCCOM+248 07713000 ATCRCC63 EQU ATCCOM+244 07714000 ATCRSV11 EQU ATCCOM+242 07715000 ATCVTMID EQU ATCCOM+240 07716000 ATCAPOST EQU ATCCOM+236 07717000 ATCNERFN EQU ATCCOM+232 07718000 ATCNERNE EQU ATCCOM+228 07719000 ATCNERCV EQU ATCCOM+224 07720000 ATCNERST EQU ATCCOM+220 07721000 ATCDCC61 EQU ATCCOM+216 07722000 ATCDCC60 EQU ATCCOM+212 07723000 ATCSRTDF EQU ATCCOM+208 07724000 ATCSRTAD EQU ATCCOM+204 07725000 ATCFIRA EQU ATCCOM+200 07726000 ATCSMBQ EQU ATCCOM+196 07727000 ATCSMRC EQU ATCCOM+192 07728000 ATCSMRS EQU ATCCOM+188 07729000 ATCSMQU EQU ATCCOM+184 07730000 ATCSMRQ EQU ATCCOM+180 07731000 ATCACDA EQU ATCCOM+176 07732000 ATCSTMA EQU ATCCOM+172 07733000 ATCFRSTR EQU ATCCOM+168 07734000 ATCREADA EQU ATCCOM+160 07735000 ATCALOAD EQU ATCCOM+156 07736000 ATCBLDLA EQU ATCCOM+152 07737000 ATCFBRPH EQU ATCCOM+148 07738000 ATCBFTRC EQU ATCCOM+144 07739000 ATCTPBUF EQU ATCTHTRC 07740000 ATCREMOV EQU ATCCOM+136 07741000 ATCADD EQU ATCCOM+132 07742000 ATCBPDA EQU ATCCOM+128 07743000 ATCDVTPT EQU ATCCOM+124 07744000 ATCFEPT EQU ATCCOM+120 07745000 ATCFDVT EQU ATCCOM+116 07746000 ATCCONFT EQU ATCCOM+112 07747000 ATCPTCHA EQU ATCCOM+108 07748000 ATCAUTHA EQU ATCCOM+104 07749000 ATCACCTA EQU ATCCOM+100 07750000 ATCRDTH EQU ATCCOM+96 07751000 ATCFRSCH EQU ATCCOM+92 07752000 ATCFSB EQU ATCCOM+88 07753000 ATCHLTMS EQU ATCCOM+84 07754000 ATCECPRM EQU ATCCOM+80 07755000 ATCECNET EQU ATCCOM+76 07756000 ATCECOPC EQU ATCCOM+72 07757000 ATCVPARM EQU ATCCOM+68 07758000 ATCECVRQ EQU ATCCOM+64 07759000 ATCECSES EQU ATCCOM+60 07760000 ATCOCHA EQU ATCCOM+56 07761000 ATCDSPLQ EQU ATCCOM+52 07762000 ATCECDSP EQU ATCCOM+48 07763000 ATCVARYQ EQU ATCCOM+44 07764000 ATCECVRY EQU ATCCOM+40 07765000 ATCHALTQ EQU ATCCOM+36 07766000 ATCECHLT EQU ATCCOM+32 07767000 ATCMODQ EQU ATCCOM+28 07768000 ATCECMOD EQU ATCCOM+24 07769000 ATCASCHD EQU ATCCOM+20 07770000 ATCSRT EQU ATCCOM+16 07771000 ATCRDT EQU ATCCOM+12 07772000 ATCDCFRR EQU ATCCOM+8 07773000 ATCAPI EQU ATCCOM+4 07774000 ATCRSV04 EQU ATCSTAT4 07775000 ATCVTTRC EQU ATCSTAT4 07776000 ATCNCSD EQU ATCSTAT4 07777000 ATCMTST EQU ATCSTAT4 07778000 ATCTPRT EQU ATCSTAT4 07779000 ATCPRTAT EQU ATCSTAT4 07780000 @NM00136 EQU ATCPOFLG 07781000 ATCPOUNS EQU ATCPOFLG 07782000 ATCHSDMF EQU ATCSTFLG 07783000 @NM00135 EQU ATCSTAT1 07784000 ATCMDHLT EQU ATCSTAT1 07785000 ATCINHLT EQU ATCSTAT1 07786000 ATCNETSL EQU ATCSTAT1 07787000 ATCQKHLT EQU ATCSTAT1 07788000 ATCSNHLT EQU ATCSTAT1 07789000 ATCACTIV EQU ATCSTAT1 07790000 ATCSTART EQU ATCSTAT1 07791000 RPHNEXPO EQU ISTRPH+104 07792000 RPHSAV16 EQU RPHWORK+60 07793000 RPHSAV15 EQU RPHWORK+56 07794000 RPHSAV14 EQU RPHWORK+52 07795000 RPHSAV13 EQU RPHWORK+48 07796000 RPHSAV12 EQU RPHWORK+44 07797000 RPHSAV11 EQU RPHWORK+40 07798000 RPHSAV10 EQU RPHWORK+36 07799000 RPHSAVE9 EQU RPHWORK+32 07800000 RPHSAVE8 EQU RPHWORK+28 07801000 RPHSAVE7 EQU RPHWORK+24 07802000 RPHSAVE6 EQU RPHWORK+20 07803000 RPHSAVE5 EQU RPHWORK+16 07804000 RPHSAVE4 EQU RPHWORK+12 07805000 RPHSAVE3 EQU RPHWORK+8 07806000 RPHSAVE2 EQU RPHWORK+4 07807000 RPHSHALF EQU RPHSAVE1+2 07808000 RPHSBIT8 EQU RPHSBITS 07809000 RPHSBIT7 EQU RPHSBITS 07810000 RPHSBIT6 EQU RPHSBITS 07811000 RPHSBIT5 EQU RPHSBITS 07812000 RPHSBIT4 EQU RPHSBITS 07813000 RPHSBIT3 EQU RPHSBITS 07814000 RPHSBIT2 EQU RPHSBITS 07815000 RPHSBIT1 EQU RPHSBITS 07816000 RPHSBYTE EQU RPHSAVE1 07817000 RPHPABQP EQU RPHPABQA+1 07818000 RPHPABFG EQU RPHPABQA 07819000 RPHSRP34 EQU RPHSRPRM+2 07820000 RPHSRP12 EQU RPHSRPRM 07821000 RPHWEGT EQU RPHCSPA 07822000 RPHMAJCB EQU ISTRPH+21 07823000 RPHPABOF EQU ISTRPH+20 07824000 RPHRESUM EQU RPHRESMA+1 07825000 RPHRSV01 EQU RPHWPFLG 07826000 RPHPURGE EQU RPHWPFLG 07827000 RPHPT EQU RPHWPFLG 07828000 RPHWT EQU RPHWPFLG 07829000 RPHRSKEY EQU RPHWPFLG 07830000 RPHDVTA EQU ISTRPH+12 07831000 RPHTIK EQU RPHTSKID+3 07832000 @NM00134 EQU RPHTSKID 07833000 RPHRPHAP EQU RPHRPHA+1 07834000 @NM00133 EQU RPHRPHA 07835000 RPHGATE EQU RPHRPHA 07836000 @NM00132 EQU RPHFLGB 07837000 RPHRLCRA EQU RPHFLGB 07838000 RPHNRSAV EQU RPHFLGB 07839000 RPHPGCMP EQU RPHFLGB 07840000 RPHFBAPS EQU RPHFLGB 07841000 RPHBSSP EQU RPHFLGB 07842000 RPHLOCK EQU RPHFLGB 07843000 RPHFNFLG EQU RPHFSTLC 07844000 RPHMLTCP EQU RPHFLAGS 07845000 RPHSMCLR EQU RPHFLAGS 07846000 RPHSMTYP EQU RPHFLAGS 07847000 RPHSMQ EQU RPHFLAGS 07848000 RPHAUTEX EQU RPHAPTYP 07849000 RPHSPGIN EQU RPHFLAGS 07850000 RPHOGIND EQU RPHFLAGS 07851000 RPHLNGTH EQU RPHCNTL+1 07852000 RPHTYPE EQU RPHCNTL 07853000 DYPRSV01 EQU ISTDYPAB+12 07854000 DYPTSKID EQU ISTDYPAB+8 07855000 DYPCHAIN EQU ISTDYPAB+4 07856000 DYPFLGS EQU ISTDYPAB+2 07857000 DYPLNGTH EQU ISTDYPAB+1 07858000 DYPTYPE EQU ISTDYPAB 07859000 ACDREFQ EQU ISTACDEB+204 07860000 ACDASFQ EQU ISTACDEB+200 07861000 ACDSOP EQU ISTACDEB+184 07862000 ACDSIP EQU ISTACDEB+168 07863000 ACDRSV24 EQU ACDVTAM+108 07864000 ACDRSV23 EQU ACDVTAM+104 07865000 ACDRSV22 EQU ACDVTAM+100 07866000 ACDOCWAD EQU ACDVTAM+96 07867000 ACDRSV10 EQU ACDVTAM+92 07868000 ACDAPDDT EQU ACDAPDAT+1 07869000 ACDAPDLN EQU ACDAPDAT 07870000 ACDRSV07 EQU ACDVTAM+82 07871000 ACDRSV06 EQU ACDVTAM+81 07872000 @NM00131 EQU ACDSSFLG 07873000 ACDTSO EQU ACDSSFLG 07874000 ACDTPEND EQU ACDSSFLG 07875000 ACDAICLS EQU ACDSSFLG 07876000 ACDABEND EQU ACDSSFLG 07877000 ACDCACB EQU ACDSSFLG 07878000 ACDRSV21 EQU ACDVTAM+64 07879000 ACDNEPAB EQU ACDVTAM+32 07880000 ACDRSV20 EQU ACDVTAM+20 07881000 ACDRARQ EQU ACDVTAM+16 07882000 ACDRAFQ EQU ACDVTAM+12 07883000 ACDFMCB EQU ACDVTAM+8 07884000 ACDRDTE EQU ACDVTAM+4 07885000 ACDLOCK EQU ACDVTAM 07886000 ACDAPP EQU ACDAPPAD+1 07887000 ACDEXSCL EQU ACDAPPAD 07888000 ACDACB EQU ACDACBAD+1 07889000 ACDDEBID EQU ACDACBAD 07890000 ACDPROTG EQU ACDACBAD 07891000 ACDECBAD EQU ACDBASIC+20 07892000 ACDUSRPB EQU ACDUSRPG+1 07893000 ACDNMEXT EQU ACDUSRPG 07894000 ACDPRLEN EQU ACDBASIC+15 07895000 ACDFLGS1 EQU ACDBASIC+14 07896000 ACDQSCNT EQU ACDBASIC+13 07897000 ACDOPATB EQU ACDBASIC+12 07898000 ACDIRBAD EQU ACDBASIC+8 07899000 ACDDEB EQU ACDDEBAD+1 07900000 ACDAMLNG EQU ACDDEBAD 07901000 ACDTCB EQU ACDTCBAD+1 07902000 ACDOPNAD EQU ACDNMSUB 07903000 ACDRSV03 EQU ACDTBLOF+1 07904000 ACDRSV02 EQU ACDTBLOF 07905000 ACDAMTYP EQU ACDDBPFX+5 07906000 ACDLENG EQU ACDDBPFX+4 07907000 ACDDEBX EQU ACDDBPFX 07908000 ACDRSV08 EQU ACDVTPRX+12 07909000 ACDTSKID EQU ACDVTPRX+8 07910000 ACDCHN EQU ACDVTPRX+4 07911000 ACDSAF EQU ACDVTPRX+2 07912000 ACDLNGTH EQU ACDVTPRX+1 07913000 ACDTYPE EQU ACDVTPRX 07914000 PABRPHA EQU PABRPHFG+1 07915000 PABNODQ EQU PABFLAGS 07916000 PABINHBT EQU PABFLAGS 07917000 PABERLOK EQU PABERRLK 07918000 PABSSN EQU PABFLAGS 07919000 PABDYNAM EQU PABFLAGS 07920000 PABNORPR EQU PABFLAGS 07921000 PABPRIOR EQU PABFLAGS 07922000 PABAPYP EQU PABFLAGS 07923000 PABDVTA EQU ISTPAB+9 07924000 PABOFFST EQU ISTPAB+8 07925000 PABCHNGP EQU PABCHAIN+1 07926000 PABRSV02 EQU PABCHAIN 07927000 PABDELAY EQU PABCHAIN 07928000 PABRUNNG EQU PABCHAIN 07929000 PABRESET EQU PABCHAIN 07930000 PABUNCON EQU PABCHAIN 07931000 PABCDP EQU PABCHAIN 07932000 PABRESCH EQU PABCHAIN 07933000 PABCHNG EQU PABCHAIN 07934000 PABWEQP EQU PABWEQA+1 07935000 PABRSV01 EQU PABWEQA 07936000 PABWEQG EQU PABWEQA 07937000 LOKXCL EQU @NM00129 07938000 LOKPRY EQU @NM00129 07939000 @NM00130 EQU @NM00129 07940000 @NM00128 EQU LOKCHNG 07941000 LOKCT EQU ISTLOK 07942000 RPLSEQNO EQU RPLOF60+6 07943000 @NM00054 EQU RPLIBSQ 07944000 RPLIINV EQU RPLIBSQ 07945000 RPLINEG EQU RPLIBSQ 07946000 RPLIPOS EQU RPLIBSQ 07947000 RPLIIGN EQU RPLIBSQ 07948000 RPLIRSET EQU RPLIBSQ 07949000 RPLITST EQU RPLIBSQ 07950000 RPLISET EQU RPLIBSQ 07951000 @NM00053 EQU RPLOBSQ 07952000 RPLOINV EQU RPLOBSQ 07953000 RPLONEG EQU RPLOBSQ 07954000 RPLOPOS EQU RPLOBSQ 07955000 RPLOIGN EQU RPLOBSQ 07956000 RPLORSET EQU RPLOBSQ 07957000 RPLOTST EQU RPLOBSQ 07958000 RPLOSET EQU RPLOBSQ 07959000 RPLIBSQV EQU RPLOF60+2 07960000 RPLOBSQV EQU RPLOF60 07961000 @NM00052 EQU RPLCNTSC 07962000 RPLRSHUT EQU RPLCNTSC 07963000 RPLRQR EQU RPLCNTSC 07964000 RPLSHUTC EQU RPLCNTSC 07965000 RPLSHUTD EQU RPLCNTSC 07966000 RPLSTSN EQU RPLCNTSC 07967000 RPLCLEAR EQU RPLCNTSC 07968000 RPLSDT EQU RPLCNTSC 07969000 @NM00051 EQU RPLCNTDC 07970000 RPLSIGNL EQU RPLCNTDC 07971000 RPLLUS EQU RPLCNTDC 07972000 RPLRTR EQU RPLCNTDC 07973000 RPLBID EQU RPLCNTDC 07974000 @NM00050 EQU RPLCNTDF 07975000 RPLQI EQU RPLCNTDF 07976000 RPLRELQ EQU RPLCNTDF 07977000 RPLCHASE EQU RPLCNTDF 07978000 RPLQEC EQU RPLCNTDF 07979000 RPLQC EQU RPLCNTDF 07980000 RPLCNCEL EQU RPLCNTDF 07981000 RPLDATA EQU RPLCNTDF 07982000 RPLRRN EQU RPLRESP 07983000 RPLNFME EQU RPLRESP 07984000 RPLEX EQU RPLRESP 07985000 @NM00049 EQU RPLRESP 07986000 @NM00048 EQU RPLPOSTV 07987000 RPLSCHED EQU RPLPOSTV 07988000 @NM00047 EQU RPLVTFL1 07989000 RPLAUTUS EQU RPLVTFL1 07990000 RPLVTUSE EQU RPLVTFL1 07991000 @NM00046 EQU RPLVTFL1 07992000 @NM00045 EQU RPLCHN 07993000 RPLONLY EQU RPLCHN 07994000 RPLLAST EQU RPLCHN 07995000 RPLMIDLE EQU RPLCHN 07996000 RPLFIRST EQU RPLCHN 07997000 @NM00044 EQU RPLRTYPE 07998000 RPLDFASY EQU RPLRTYPE 07999000 RPLNFSYN EQU RPLRTYPE 08000000 RPLRRESP EQU RPLRTYPE 08001000 @NM00043 EQU RPLSTYPE 08002000 RPLSRESP EQU RPLSTYPE 08003000 @NM00042 EQU RPLRH3 08004000 RPLCSI EQU RPLRH3 08005000 RPLCHREQ EQU RPLRH3 08006000 RPLCMD EQU RPLRH3 08007000 RPLEB EQU RPLRH3 08008000 RPLBB EQU RPLRH3 08009000 RPLSIGDA EQU RPLVTEXT+32 08010000 RPLSAV13 EQU RPLVTEXT+28 08011000 RPLUSNSO EQU RPLOSENS+2 08012000 RPLSSMO EQU RPLSSNSO+1 08013000 @NM00041 EQU RPLSSEO 08014000 RPLRRO EQU RPLSSEO 08015000 RPLFIO EQU RPLSSEO 08016000 RPLSTATO EQU RPLSSEO 08017000 RPLCPMO EQU RPLSSEO 08018000 @NM00040 EQU RPLSSEO 08019000 RPLFMHDR EQU RPLOPT12 08020000 @NM00039 EQU RPLOPT12 08021000 @NM00038 EQU RPLOPT12 08022000 @NM00037 EQU RPLOPT12 08023000 RPLNIBTK EQU RPLOPT12 08024000 RPLTRUNC EQU RPLOPT12 08025000 RPLKEEP EQU RPLOPT12 08026000 @NM00036 EQU RPLOPT12 08027000 RPLRSVE8 EQU RPLOPT11 08028000 RPLRSVE7 EQU RPLOPT11 08029000 RPLRSVE6 EQU RPLOPT11 08030000 RPLRSVE5 EQU RPLOPT11 08031000 RPLRSVE4 EQU RPLOPT11 08032000 RPLSTOP EQU RPLOPT11 08033000 RPLSTART EQU RPLOPT11 08034000 RPLQUIES EQU RPLOPT11 08035000 RPLRSVI6 EQU RPLOPT10 08036000 RPLRSVI5 EQU RPLOPT10 08037000 RPLRSVI4 EQU RPLOPT10 08038000 RPLRSVI3 EQU RPLOPT10 08039000 RPLRSVI2 EQU RPLOPT10 08040000 RPLSPARM EQU RPLOPT10 08041000 RPLDSPLY EQU RPLOPT10 08042000 RPLBSCID EQU RPLOPT10 08043000 RPLTOPL EQU RPLOPT9 08044000 RPLCIDE EQU RPLOPT9 08045000 RPLRNNM EQU RPLOPT9 08046000 RPLAPPST EQU RPLOPT9 08047000 RPLCOUNT EQU RPLOPT9 08048000 RPLTERMS EQU RPLOPT9 08049000 RPLDEVCH EQU RPLOPT9 08050000 RPLLOGON EQU RPLOPT9 08051000 RPLUSFLD EQU RPLVTEXT+16 08052000 RPLESR2 EQU RPLUSNSI+1 08053000 RPLESR1 EQU RPLUSNSI 08054000 RPLSSMI EQU RPLDSB2 08055000 @NM00035 EQU RPLSSEI 08056000 RPLRRI EQU RPLSSEI 08057000 RPLFII EQU RPLSSEI 08058000 RPLSTATI EQU RPLSSEI 08059000 RPLCPMI EQU RPLSSEI 08060000 RPLPATHI EQU RPLSSEI 08061000 RPLARCLN EQU RPLVTEXT+8 08062000 RPLAARLN EQU RPLVTEXT+4 08063000 RPLAAREA EQU RPLVTEXT 08064000 RPLERMSA EQU RPLCOMN+72 08065000 RPLEMLEN EQU RPLCOMN+70 08066000 RPLACTIV EQU RPLCOMN+69 08067000 RPLBRANC EQU RPLEXTD1 08068000 RPLNIB EQU RPLEXTD1 08069000 @NM00034 EQU RPLEXTD1 08070000 RPLEXIT EQU RPLEXTD1 08071000 RPLNEXIT EQU RPLEXTD1 08072000 RPLEXSCH EQU RPLEXTD1 08073000 RPLDDDD EQU RPLRBAR+4 08074000 @NM00033 EQU RPLRBAR+3 08075000 @NM00032 EQU RPLAIXID 08076000 RPLAXPKP EQU RPLAIXID 08077000 RPLAIXPC EQU RPLRBAR 08078000 RPLRSV88 EQU RPLOPT8 08079000 RPLUNCON EQU RPLOPT8 08080000 RPLACTV EQU RPLOPT8 08081000 RPLSESS EQU RPLOPT8 08082000 RPLPEND EQU RPLOPT8 08083000 RPLODPRM EQU RPLOPT8 08084000 RPLODACP EQU RPLOPT8 08085000 RPLODACQ EQU RPLOPT8 08086000 RPLRSV78 EQU RPLOPT7 08087000 RPLRLSOP EQU RPLOPT7 08088000 RPLTPOST EQU RPLOPT7 08089000 RPLQOPT EQU RPLOPT7 08090000 RPLCNIMM EQU RPLCNOPT 08091000 RPLCNANY EQU RPLCNOPT 08092000 RPLCNALL EQU RPLCNOPT 08093000 RPLRSV68 EQU RPLOPT6 08094000 RPLRSV67 EQU RPLOPT6 08095000 RPLLOCK EQU RPLOPT6 08096000 RPLNCOND EQU RPLOPT6 08097000 RPLCOND EQU RPLOPT6 08098000 RPLEOT EQU RPLUNTYP 08099000 RPLEOM EQU RPLUNTYP 08100000 RPLEOB EQU RPLUNTYP 08101000 RPLWROPT EQU RPLOPT5 08102000 RPLNODE EQU RPLOPT5 08103000 RPLERACE EQU RPLWRTYP 08104000 RPLEAU EQU RPLWRTYP 08105000 RPLNERAS EQU RPLWRTYP 08106000 RPLPSOPT EQU RPLOPT5 08107000 @NM00031 EQU RPLOPT5 08108000 RPLDLGIN EQU RPLOPT5 08109000 RPLBUFL EQU RPLCOMN+52 08110000 RPLRLEN EQU RPLCOMN+48 08111000 RPLCHAIN EQU RPLNXTRP 08112000 RPLBOP EQU RPLOPT4 08113000 @NM00030 EQU RPLOPT4 08114000 RPLMKFRM EQU RPLOPT4 08115000 RPLENDTR EQU RPLOPT4 08116000 RPLALIGN EQU RPLOPT3 08117000 RPLFMT EQU RPLOPT3 08118000 RPLFLD EQU RPLOPT3 08119000 RPLVFY EQU RPLOPT3 08120000 RPLBLK EQU RPLOPT3 08121000 RPLSFORM EQU RPLOPT3 08122000 RPLEODS EQU RPLOPT3 08123000 RPLNSP EQU RPLOPT2 08124000 RPLUPD EQU RPLOPT2 08125000 @NM00029 EQU RPLOPT2 08126000 RPLLRD EQU RPLOPT2 08127000 RPLBWD EQU RPLOPT2 08128000 RPLCNV EQU RPLOPT2 08129000 RPLADD EQU RPLADR 08130000 RPLKEY EQU RPLOPT2 08131000 RPLECBIN EQU RPLECBSW 08132000 RPLGEN EQU RPLOPT1 08133000 RPLKGE EQU RPLOPT1 08134000 RPLASY EQU RPLOPT1 08135000 RPLSKP EQU RPLOPT1 08136000 RPLSEQ EQU RPLOPT1 08137000 RPLDIR EQU RPLOPT1 08138000 RPLLOC EQU RPLOPT1 08139000 RPLDAF EQU RPLARG+2 08140000 RPLSAF EQU RPLARG 08141000 RPLAREA EQU RPLCOMN+32 08142000 RPLTCBPT EQU RPLCOMN+28 08143000 RPLDACB EQU RPLCOMN+24 08144000 RPLCCHAR EQU RPLCOMN+20 08145000 RPLSTRID EQU RPLCOMN+18 08146000 RPLKEYL EQU RPLKEYLE 08147000 RPLRDSOH EQU RPLFDB3 08148000 RPLRLG EQU RPLFDB3 08149000 RPLLGFRC EQU RPLFDB3 08150000 RPLREOT EQU RPLFDB3 08151000 RPLREOM EQU RPLFDB3 08152000 RPLREOB EQU RPLFDB3 08153000 RPLSV32 EQU RPLFDB3 08154000 RPLUINPT EQU RPLFDB3 08155000 RPLSTSAV EQU RPLFDB2 08156000 RPLCUERR EQU RPLFDB2 08157000 RPLDLGFL EQU RPLFDB2 08158000 RPLIOERR EQU RPLFDB2 08159000 RPLDVUNS EQU RPLFDB2 08160000 RPLATND EQU RPLFDB2 08161000 RPLRVID EQU RPLFDB2 08162000 RPLERLK EQU RPLFDB2 08163000 RPLERREG EQU RPLRTNCD 08164000 RPLSTAT EQU RPLFDBWD 08165000 RPLPOST EQU RPLECB 08166000 RPLWAIT EQU RPLECB 08167000 RPLPLHPT EQU RPLCOMN+4 08168000 RPLLEN2 EQU RPLLEN 08169000 RPLREQ EQU RPLIDWD+2 08170000 RPLSTYP EQU RPLIDWD+1 08171000 RPLID EQU RPLIDWD 08172000 @NM00004 EQU SRBSECT+40 08173000 @NM00003 EQU SRBSECT+38 08174000 SRBPRIOR EQU SRBSECT+37 08175000 SRBPKF EQU SRBSECT+36 08176000 SRBSAVE EQU SRBSECT+32 08177000 SRBPARM EQU SRBSECT+28 08178000 SRBRMTR EQU SRBSECT+24 08179000 SRBEP EQU SRBSECT+20 08180000 SRBPTCB EQU SRBFLC+4 08181000 SRBPASID EQU SRBFLC+2 08182000 SRBCPAFF EQU SRBFLC 08183000 SRBASCB EQU SRBSECT+8 08184000 SRBFLNK EQU SRBSECT+4 08185000 SRBID EQU SRBSECT 08186000 CVTLEVL EQU CVTRELNO+2 08187000 CVTNUMB EQU CVTRELNO 08188000 CVTMDL EQU CVTFIX+250 08189000 @NM00002 EQU CVTFIX+248 08190000 @NM00001 EQU CVTFIX 08191000 CVTRV482 EQU CVTXTNT2+128 08192000 CVTRV481 EQU CVTXTNT2+124 08193000 CVTRV480 EQU CVTXTNT2+120 08194000 CVTRV479 EQU CVTXTNT2+118 08195000 CVTRV478 EQU CVTXTNT2+117 08196000 CVTRV477 EQU CVTXTNT2+116 08197000 CVTRV476 EQU CVTXTNT2+115 08198000 CVTRV475 EQU CVTXTNT2+114 08199000 CVTRV474 EQU CVTRV466 08200000 CVTRV473 EQU CVTRV466 08201000 CVTRV472 EQU CVTRV466 08202000 CVTRV471 EQU CVTRV466 08203000 CVTRV470 EQU CVTRV466 08204000 CVTRV469 EQU CVTRV466 08205000 CVTRV468 EQU CVTRV466 08206000 CVTRV467 EQU CVTRV466 08207000 CVTRV465 EQU CVTRV457 08208000 CVTRV464 EQU CVTRV457 08209000 CVTRV463 EQU CVTRV457 08210000 CVTRV462 EQU CVTRV457 08211000 CVTRV461 EQU CVTRV457 08212000 CVTRV460 EQU CVTRV457 08213000 CVTRV459 EQU CVTRV457 08214000 CVTRV458 EQU CVTRV457 08215000 CVTRV456 EQU CVTXTNT2+108 08216000 CVTRV455 EQU CVTXTNT2+104 08217000 CVTRV454 EQU CVTXTNT2+100 08218000 CVTRV453 EQU CVTXTNT2+96 08219000 CVTRV452 EQU CVTXTNT2+94 08220000 CVTRV451 EQU CVTXTNT2+92 08221000 CVTRV450 EQU CVTXTNT2+90 08222000 CVTRV449 EQU CVTXTNT2+88 08223000 CVTRV448 EQU CVTXTNT2+87 08224000 CVTRV447 EQU CVTXTNT2+86 08225000 CVTRV446 EQU CVTRV438 08226000 CVTRV445 EQU CVTRV438 08227000 CVTRV444 EQU CVTRV438 08228000 CVTRV443 EQU CVTRV438 08229000 CVTRV442 EQU CVTRV438 08230000 CVTRV441 EQU CVTRV438 08231000 CVTRV440 EQU CVTRV438 08232000 CVTRV439 EQU CVTRV438 08233000 CVTRV437 EQU CVTRV429 08234000 CVTRV436 EQU CVTRV429 08235000 CVTRV435 EQU CVTRV429 08236000 CVTRV434 EQU CVTRV429 08237000 CVTRV433 EQU CVTRV429 08238000 CVTRV432 EQU CVTRV429 08239000 CVTRV431 EQU CVTRV429 08240000 CVTRV430 EQU CVTRV429 08241000 CVTRV428 EQU CVTXTNT2+80 08242000 CVTRV427 EQU CVTXTNT2+76 08243000 CVTRV426 EQU CVTXTNT2+72 08244000 CVTRV425 EQU CVTXTNT2+68 08245000 CVTATACT EQU CVTATCVT 08246000 CVTRV423 EQU CVTXTNT2+62 08247000 CVTRV422 EQU CVTXTNT2+60 08248000 CVTRV421 EQU CVTXTNT2+58 08249000 CVTRV420 EQU CVTXTNT2+56 08250000 CVTRV419 EQU CVTXTNT2+55 08251000 CVTRV418 EQU CVTXTNT2+54 08252000 CVTRV417 EQU CVTRV409 08253000 CVTRV416 EQU CVTRV409 08254000 CVTRV415 EQU CVTRV409 08255000 CVTRV414 EQU CVTRV409 08256000 CVTRV413 EQU CVTRV409 08257000 CVTRV412 EQU CVTRV409 08258000 CVTRV411 EQU CVTRV409 08259000 CVTRV410 EQU CVTRV409 08260000 CVTRV408 EQU CVTRV400 08261000 CVTRV407 EQU CVTRV400 08262000 CVTRV406 EQU CVTRV400 08263000 CVTRV405 EQU CVTRV400 08264000 CVTRV404 EQU CVTRV400 08265000 CVTRV403 EQU CVTRV400 08266000 CVTRV402 EQU CVTRV400 08267000 CVTRV401 EQU CVTRV400 08268000 CVTICB EQU CVTXTNT2+48 08269000 CVTSKTA EQU CVTXTNT2+44 08270000 CVTSHSB EQU CVTSHS 08271000 CVTRSV98 EQU CVTXTNT2+36 08272000 CVTRSV97 EQU CVTXTNT2+34 08273000 CVTRSV96 EQU CVTXTNT2+32 08274000 CVTOLTEP EQU CVTXTNT2+28 08275000 CVTQIDA EQU CVTQID+1 08276000 CVTRSV95 EQU CVTQID 08277000 CVTRSV94 EQU CVTXTNT2+20 08278000 CVTRSV93 EQU CVTXTNT2+16 08279000 CVTRSV92 EQU CVTXTNT2+12 08280000 CVTDEBVR EQU CVTXTNT2+8 08281000 CVTRSV91 EQU CVTXTNT2+6 08282000 CVTRSV9H EQU CVTFLGBT 08283000 CVTRSV9G EQU CVTFLGBT 08284000 CVTRSV9F EQU CVTFLGBT 08285000 CVTRSV9E EQU CVTFLGBT 08286000 CVTRSV9D EQU CVTFLGBT 08287000 CVTRSV9C EQU CVTFLGBT 08288000 CVTVME EQU CVTFLGBT 08289000 CVTNPE EQU CVTFLGBT 08290000 CVTNUCLS EQU CVTXTNT2+4 08291000 CVTDSSVA EQU CVTDSSV+1 08292000 CVTRSV89 EQU CVTDSSV 08293000 CVTRSV88 EQU CVTXTNT1+8 08294000 CVTRSV87 EQU CVTXTNT1+4 08295000 CVTFACHN EQU CVTXTNT1 08296000 CVTRV488 EQU CVTMAP+412 08297000 CVTRV487 EQU CVTMAP+408 08298000 CVTRV486 EQU CVTMAP+404 08299000 CVTRV485 EQU CVTMAP+400 08300000 CVTACTAP EQU CVTMAP+396 08301000 CVTAUTH EQU CVTMAP+392 08302000 CVTATMCA EQU CVTATMCT+1 08303000 CVTATMST EQU CVTATMCT 08304000 CVTRSV61 EQU CVTMAP+384 08305000 CVTVOLT1 EQU CVTVOLM1+1 08306000 CVTVOLI1 EQU CVTVOLF1 08307000 CVTSTOA EQU CVTMAP+376 08308000 CVTRSV58 EQU CVTMAP+374 08309000 CVTRSV57 EQU CVTMAP+372 08310000 CVTDDCE EQU CVTMAP+368 08311000 CVTPNWFR EQU CVTMAP+364 08312000 CVTSMF EQU CVTMAP+360 08313000 CVTSULK EQU CVTMAP+358 08314000 CVTSLKO EQU CVTSYSK 08315000 CVTSLKP EQU CVTSYSK 08316000 CVTSLKQ EQU CVTSYSK 08317000 CVTSLKR EQU CVTSYSK 08318000 CVTRSV56 EQU CVTSYSK 08319000 CVTRSV55 EQU CVTSYSK 08320000 CVTRSV54 EQU CVTSYSK 08321000 CVTRSV53 EQU CVTSYSK 08322000 CVTRSV52 EQU CVTA1F1 08323000 CVTRSV51 EQU CVTA1F1 08324000 CVTRSV50 EQU CVTA1F1 08325000 CVTRSV49 EQU CVTA1F1 08326000 CVTRSV48 EQU CVTA1F1 08327000 CVTRSV47 EQU CVTA1F1 08328000 CVTSRSW EQU CVTA1F1 08329000 CVTPFSW EQU CVTA1F1 08330000 CVTPCVT EQU CVTMAP+352 08331000 CVTRSV46 EQU CVTMAP+344 08332000 CVTRSV45 EQU CVTMAP+340 08333000 CVTRSV44 EQU CVTMAP+338 08334000 CVTRSV43 EQU CVTMAP+336 08335000 CVTHJESA EQU CVTHJES+1 08336000 CVTRSV42 EQU CVTHJES 08337000 CVTEXT2A EQU CVTEXT2+1 08338000 CVTRSV41 EQU CVTEXT2 08339000 CVTAPFA EQU CVTAPF+1 08340000 CVTRSV40 EQU CVTAPF 08341000 CVTRV518 EQU CVTINTLA 08342000 CVTRV517 EQU CVTERPV 08343000 CVTEORM EQU CVTMAP+312 08344000 CVTMCHPR EQU CVTMAP+308 08345000 CVTTZ EQU CVTMAP+304 08346000 CVTJEPS EQU CVTMAP+300 08347000 CVTJESCT EQU CVTMAP+296 08348000 CVTMODE EQU CVTMAP+292 08349000 CVTPTRV EQU CVTMAP+288 08350000 CVTREAL EQU CVTMAP+284 08351000 CVTRSV39 EQU CVTMAP+280 08352000 CVTRSV38 EQU CVTMAP+276 08353000 CVTDMSRA EQU CVTDMSR+1 08354000 CVTRV634 EQU CVTDMSRF 08355000 CVTRV633 EQU CVTDMSRF 08356000 CVTRV632 EQU CVTDMSRF 08357000 CVTRV631 EQU CVTDMSRF 08358000 CVTRV630 EQU CVTDMSRF 08359000 CVTRV629 EQU CVTDMSRF 08360000 CVTUDUMP EQU CVTDMSRF 08361000 CVTSDUMP EQU CVTDMSRF 08362000 CVTQMSGA EQU CVTQMSG+1 08363000 CVTRSV36 EQU CVTQMSG 08364000 CVTAMFF EQU CVTMAP+264 08365000 CVTPURGA EQU CVTPURG+1 08366000 CVTRSV35 EQU CVTPURG 08367000 CVTCBSP EQU CVTMAP+256 08368000 CVTATERA EQU CVTATER+1 08369000 CVTSYST EQU CVTATER 08370000 CVTVOLT2 EQU CVTTAT 08371000 CVTVOLI2 EQU CVTVOLF2 08372000 CVTAQAVB EQU CVTAQAVT+1 08373000 CVTRSV34 EQU CVTTCMFG 08374000 CVTRSV33 EQU CVTTCMFG 08375000 CVTRSV32 EQU CVTTCMFG 08376000 CVTRSV31 EQU CVTTCMFG 08377000 CVTRSV30 EQU CVTTCMFG 08378000 CVTRSV29 EQU CVTTCMFG 08379000 CVTRSV28 EQU CVTTCMFG 08380000 CVTTCRDY EQU CVTTCMFG 08381000 CVTGTFA EQU CVTGTF+1 08382000 CVTRSV27 EQU CVTGTFST 08383000 CVTRNIO EQU CVTGTFST 08384000 CVTUSR EQU CVTGTFST 08385000 CVTRV318 EQU CVTFORM 08386000 CVTRV317 EQU CVTTMODE 08387000 CVTRV316 EQU CVTSTATE 08388000 CVTRV315 EQU CVTGTFS 08389000 CVTGTFAV EQU CVTGTFS 08390000 CVT0SCR1 EQU CVTMAP+232 08391000 CVTRV515 EQU CVTMAP+228 08392000 CVTRMS EQU CVTMAP+224 08393000 CVTPATCH EQU CVTMAP+220 08394000 CVTTSCE EQU CVTMAP+216 08395000 CVTLNKSC EQU CVTMAP+214 08396000 CVTQABST EQU CVTMAP+212 08397000 CVTMDLDS EQU CVTMAP+208 08398000 CVTUSER EQU CVTMAP+204 08399000 CVTABEND EQU CVTMAP+200 08400000 CVTSMCA EQU CVTMAP+196 08401000 CVTRSV18 EQU CVTMAP+192 08402000 CVTQLPAQ EQU CVTMAP+188 08403000 CVTQCDSR EQU CVTMAP+184 08404000 CVTRSV17 EQU CVTOPTB 08405000 CVTRSV16 EQU CVTOPTB 08406000 CVTFP EQU CVTOPTB 08407000 CVTAPTHR EQU CVTOPTB 08408000 CVTNLOG EQU CVTOPTB 08409000 CVTTOD EQU CVTOPTB 08410000 CVTCTIMS EQU CVTOPTB 08411000 CVTPROT EQU CVTOPTB 08412000 CVTXPFP EQU CVTOPTA 08413000 CVTASCII EQU CVTOPTA 08414000 CVTRSV13 EQU CVTOPTA 08415000 CVTRSV12 EQU CVTOPTA 08416000 CVTNIP EQU CVTOPTA 08417000 CVTDDR EQU CVTOPTA 08418000 CVTAPR EQU CVTOPTA 08419000 CVTCCH EQU CVTOPTA 08420000 CVTSNCTR EQU CVTMAP+180 08421000 CVTQMWR EQU CVTMAP+176 08422000 CVTQOCR EQU CVTMAP+172 08423000 CVT1EF00 EQU CVTMAP+168 08424000 CVTMZ00 EQU CVTMAP+164 08425000 CVTHEAD EQU CVTMAP+160 08426000 CVTRSV11 EQU CVTMAP+156 08427000 CVTMSER EQU CVTMAP+148 08428000 CVTRV516 EQU CVTIERLC 08429000 CVTILCH EQU CVTMAP+140 08430000 CVT0DS EQU CVTMAP+136 08431000 CVTFBOSV EQU CVTMAP+132 08432000 CVTNUCB EQU CVTMAP+128 08433000 CVTIXAVL EQU CVTMAP+124 08434000 CVTIOQET EQU CVTMAP+120 08435000 CVTDCBA EQU CVTMAP+117 08436000 CVTMVS2 EQU CVTDCB 08437000 CVT6DAT EQU CVTDCB 08438000 CVT4MPS EQU CVTDCB 08439000 CVTRSV09 EQU CVTDCB 08440000 CVT4MS1 EQU CVTDCB 08441000 CVT2SPS EQU CVTDCB 08442000 CVT1SSS EQU CVTDCB 08443000 CVTRSV08 EQU CVTDCB 08444000 CVTSTB EQU CVTMAP+112 08445000 CVTQTD00 EQU CVTMAP+108 08446000 CVTQTE00 EQU CVTMAP+104 08447000 CVTCUCB EQU CVTMAP+100 08448000 CVTSJQ EQU CVTMAP+96 08449000 CVTPBLDL EQU CVTMAP+92 08450000 CVTTPC EQU CVTMAP+88 08451000 CVTSVDCB EQU CVTMAP+84 08452000 CVTBRET EQU CVTMAP+82 08453000 CVTEXIT EQU CVTMAP+80 08454000 CVT0FN00 EQU CVTMAP+76 08455000 CVTDARA EQU CVTDAR+1 08456000 CVTRSV07 EQU CVTFLGS1 08457000 CVTRSV06 EQU CVTFLGS1 08458000 CVTRSV05 EQU CVTFLGS1 08459000 CVTRSV04 EQU CVTFLGS1 08460000 CVTRSV03 EQU CVTFLGS1 08461000 CVTRSV02 EQU CVTFLGS1 08462000 CVTRSV01 EQU CVTFLGS1 08463000 CVTDMPLK EQU CVTFLGS1 08464000 CVTXITP EQU CVTMAP+68 08465000 CVTZDTAB EQU CVTMAP+64 08466000 CVTMSLT EQU CVTMAP+60 08467000 CVTDATE EQU CVTMAP+56 08468000 CVTBTERM EQU CVTMAP+52 08469000 CVTSYSAD EQU CVTMAP+48 08470000 CVTXTLER EQU CVTMAP+44 08471000 CVTILK2 EQU CVTMAP+40 08472000 CVTILK1 EQU CVTMAP+36 08473000 CVTPRLTV EQU CVTMAP+32 08474000 CVTPCNVT EQU CVTMAP+28 08475000 CVT0VL00 EQU CVTMAP+24 08476000 CVTXAPG EQU CVTMAP+20 08477000 CVTBUF EQU CVTMAP+16 08478000 CVTJOB EQU CVTMAP+12 08479000 CVTLINK EQU CVTMAP+8 08480000 CVT0EF00 EQU CVTMAP+4 08481000 CVTTCBP EQU CVTMAP 08482000 CVT EQU CVTMAP 08483000 @NM00028 EQU PSA+3668 08484000 PSASTAK EQU PSA+3072 08485000 @NM00027 EQU PSA+1048 08486000 PSAUSEND EQU PSA+1048 08487000 PSARV062 EQU PSA+1044 08488000 PSACDAL EQU PSA+1040 08489000 PSAWTCOD EQU PSA+1036 08490000 PSAATCVT EQU PSA+1032 08491000 PSAPCPSW EQU PSA+1024 08492000 PSAPIR2 EQU PSA+1020 08493000 PSARV059 EQU PSA+1018 08494000 PSASVC13 EQU PSA+1016 08495000 PSALSFCC EQU PSA+1012 08496000 PSASFACC EQU PSA+1008 08497000 PSASTOP EQU PSA+992 08498000 PSASTART EQU PSA+976 08499000 PSARSPSW EQU PSA+968 08500000 PSASRPSW EQU PSA+960 08501000 PSARV045 EQU PSA+892 08502000 PSARV044 EQU PSA+888 08503000 PSARV043 EQU PSA+884 08504000 PSARV042 EQU PSA+880 08505000 PSARV041 EQU PSA+876 08506000 PSARV040 EQU PSA+872 08507000 PSARV025 EQU PSA+868 08508000 PSADSSED EQU PSA+868 08509000 PSADSSPR EQU PSA+864 08510000 PSADSSFW EQU PSA+860 08511000 PSADSS14 EQU PSA+856 08512000 PSADSSPP EQU PSA+848 08513000 PSADSSRP EQU PSA+840 08514000 PSADSS05 EQU PSADSSF4 08515000 PSADSS10 EQU PSADSSF4 08516000 PSADSSVE EQU PSADSSF4 08517000 PSADSSDE EQU PSADSSF4 08518000 PSADSSC0 EQU PSADSSF4 08519000 PSADSSIE EQU PSADSSF4 08520000 PSADSS12 EQU PSADSSF4 08521000 PSADSSRC EQU PSADSSF4 08522000 PSARV057 EQU PSADSSF3 08523000 PSARV056 EQU PSADSSF3 08524000 PSARV055 EQU PSADSSF3 08525000 PSADSSMC EQU PSADSSF3 08526000 PSADSSRW EQU PSADSSF3 08527000 PSADSSNM EQU PSADSSF3 08528000 PSADSSES EQU PSADSSF3 08529000 PSADSSGP EQU PSADSSF3 08530000 PSADSSF2 EQU PSADSSFL+1 08531000 PSADSSPI EQU PSADSSF1 08532000 PSADSSOI EQU PSADSSF1 08533000 PSADSSSP EQU PSADSSF1 08534000 PSADSSTP EQU PSADSSF1 08535000 PSADSSDW EQU PSADSSF1 08536000 PSADSSDD EQU PSADSSF1 08537000 PSADSSDM EQU PSADSSF1 08538000 PSADSSMV EQU PSADSSF1 08539000 PSADSSTS EQU PSA+816 08540000 PSADSSWK EQU PSA+812 08541000 PSADSSR3 EQU PSA+808 08542000 PSADSSR2 EQU PSA+804 08543000 PSADSSRS EQU PSA+800 08544000 PSASTOR EQU PSA+796 08545000 PSACPUSA EQU PSA+794 08546000 PSAVSTAP EQU PSA+792 08547000 PSAWKVAP EQU PSA+788 08548000 PSAWKRAP EQU PSA+784 08549000 PSAMCHIC EQU PSA+783 08550000 PSARV061 EQU PSA+782 08551000 PSASYMSK EQU PSA+781 08552000 PSAMCHFL EQU PSA+780 08553000 PSACR0 EQU PSA+776 08554000 PSAPSWSV EQU PSA+768 08555000 PSACLHS EQU PSAHLHI 08556000 PSALKR15 EQU PSALKSA+60 08557000 PSALKR14 EQU PSALKSA+56 08558000 PSALKR13 EQU PSALKSA+52 08559000 PSALKR12 EQU PSALKSA+48 08560000 PSALKR11 EQU PSALKSA+44 08561000 PSALKR10 EQU PSALKSA+40 08562000 PSALKR9 EQU PSALKSA+36 08563000 PSALKR8 EQU PSALKSA+32 08564000 PSALKR7 EQU PSALKSA+28 08565000 PSALKR6 EQU PSALKSA+24 08566000 PSALKR5 EQU PSALKSA+20 08567000 PSALKR4 EQU PSALKSA+16 08568000 PSALKR3 EQU PSALKSA+12 08569000 PSALKR2 EQU PSALKSA+8 08570000 PSALKR1 EQU PSALKSA+4 08571000 PSALKR0 EQU PSALKSA 08572000 PSARV023 EQU PSACLHT+52 08573000 PSALOCAL EQU PSACLHT+48 08574000 PSACMSL EQU PSACLHT+44 08575000 PSAOPTL EQU PSACLHT+40 08576000 PSATPACL EQU PSACLHT+36 08577000 PSATPDNL EQU PSACLHT+32 08578000 PSATPNCL EQU PSACLHT+28 08579000 PSAIOSLL EQU PSACLHT+24 08580000 PSAIOSUL EQU PSACLHT+20 08581000 PSAIOSCL EQU PSACLHT+16 08582000 PSAIOSSL EQU PSACLHT+12 08583000 PSASALCL EQU PSACLHT+8 08584000 PSAASML EQU PSACLHT+4 08585000 PSADISPL EQU PSACLHT 08586000 PSASRSA EQU PSA+636 08587000 PSARV050 EQU PSA+634 08588000 PSADSSGO EQU PSA+633 08589000 PSARECUR EQU PSA+632 08590000 PSAHLHIS EQU PSA+628 08591000 PSAIPCSA EQU PSA+624 08592000 @NM00026 EQU PSA+621 08593000 PSAIPCDM EQU PSA+620 08594000 PSAIPCD EQU PSA+616 08595000 @NM00025 EQU PSA+613 08596000 PSAIPCRM EQU PSA+612 08597000 PSAIPCR EQU PSA+608 08598000 PSAMCHEX EQU PSA+600 08599000 PSAMPSW EQU PSA+592 08600000 PSAEXPS2 EQU PSA+584 08601000 PSAEXPS1 EQU PSA+576 08602000 PSAPIREG EQU PSA+572 08603000 PSARSREG EQU PSA+568 08604000 PSAGPREG EQU PSA+556 08605000 PSARV022 EQU PSASUP4 08606000 PSARV021 EQU PSASUP4 08607000 PSARV020 EQU PSASUP4 08608000 PSARV019 EQU PSASUP4 08609000 PSARV018 EQU PSASUP4 08610000 PSARV017 EQU PSASUP4 08611000 PSARV016 EQU PSASUP4 08612000 PSARV015 EQU PSASUP4 08613000 PSARV014 EQU PSASUP3 08614000 PSARV013 EQU PSASUP3 08615000 PSARV012 EQU PSASUP3 08616000 PSARV011 EQU PSASUP3 08617000 PSASPR EQU PSASUP3 08618000 PSAPSREG EQU PSASUP3 08619000 PSAPI2 EQU PSASUP3 08620000 PSAIOSUP EQU PSASUP3 08621000 PSALCR EQU PSASUP2 08622000 PSARTM EQU PSASUP2 08623000 PSAACR EQU PSASUP2 08624000 PSAIPCE2 EQU PSASUP2 08625000 PSAIPCES EQU PSASUP2 08626000 PSAIPCEC EQU PSASUP2 08627000 PSAGTF EQU PSASUP2 08628000 PSAIPCRI EQU PSASUP2 08629000 PSARV063 EQU PSASUP1 08630000 PSATCTL EQU PSASUP1 08631000 PSADISP EQU PSASUP1 08632000 PSALOCK EQU PSASUP1 08633000 PSAPI EQU PSASUP1 08634000 PSAEXT EQU PSASUP1 08635000 PSASVC EQU PSASUP1 08636000 PSAIO EQU PSASUP1 08637000 PSAAOLD EQU PSA+548 08638000 PSAANEW EQU PSA+544 08639000 PSATOLD EQU PSA+540 08640000 PSATNEW EQU PSA+536 08641000 PSALCCAR EQU PSA+532 08642000 PSALCCAV EQU PSA+528 08643000 PSAPCCAR EQU PSA+524 08644000 PSAPCCAV EQU PSA+520 08645000 PSACPULA EQU PSA+518 08646000 PSACPUPA EQU PSA+516 08647000 PSAPSA EQU PSA+512 08648000 FLCHDEND EQU PSA+512 08649000 FLCCRSAV EQU FLCMCLA+280 08650000 FLCGRSAV EQU FLCMCLA+216 08651000 FLCFPSAV EQU FLCMCLA+184 08652000 FLCFLA EQU FLCMCLA+88 08653000 FLCRGNCD EQU FLCMCLA+84 08654000 FLCFSAA EQU FLCFSA+1 08655000 @NM00024 EQU FLCFSA 08656000 @NM00023 EQU FLCMCLA+72 08657000 FLCMCIC EQU FLCMCLA+64 08658000 @NM00022 EQU FLCMCLA+20 08659000 FLCIOAA EQU FLCIOA+1 08660000 @NM00021 EQU FLCIOA 08661000 @NM00020 EQU FLCMCLA+15 08662000 @NM00019 EQU FLCMCLA+14 08663000 @NM00018 EQU FLCMCLA+12 08664000 FLCLCL EQU FLCMCLA+8 08665000 FLCIOELA EQU FLCIOEL+1 08666000 @NM00017 EQU FLCIOEL 08667000 FLCCHNID EQU FLCMCLA 08668000 @NM00016 EQU PSA+160 08669000 FLCMTRCD EQU PSA+157 08670000 @NM00015 EQU PSA+156 08671000 FLCPERA EQU FLCPER+1 08672000 @NM00014 EQU FLCPER 08673000 @NM00013 EQU PSA+151 08674000 FLCPERCD EQU PSA+150 08675000 FLCMCNUM EQU PSA+149 08676000 @NM00012 EQU PSA+148 08677000 FLCTEAA EQU FLCTEA+1 08678000 @NM00011 EQU FLCTEA 08679000 PSAPIPC EQU PSAPICOD 08680000 PSAPIMC EQU PSAPICOD 08681000 PSAPIPER EQU PSAPICOD 08682000 PSARV049 EQU FLCPICOD 08683000 FLCPILCB EQU FLCPIILC 08684000 @NM00010 EQU FLCPIILC 08685000 @NM00009 EQU PSAEPPSW 08686000 FLCSVCN EQU PSAESPSW+2 08687000 FLCSILCB EQU FLCSVILC 08688000 @NM00008 EQU FLCSVILC 08689000 @NM00007 EQU PSAESPSW 08690000 FLCEICOD EQU PSAEEPSW+2 08691000 PSASPAD EQU PSAEEPSW 08692000 @NM00006 EQU PSA+128 08693000 FLCINPSW EQU PSA+120 08694000 FLCMNPSW EQU PSA+112 08695000 FLCPNPSW EQU PSA+104 08696000 FLCSNPSW EQU PSA+96 08697000 FLCENPSW EQU PSA+88 08698000 FLCTRACE EQU PSA+84 08699000 FLCTIMER EQU PSA+80 08700000 FLCCVT2 EQU PSA+76 08701000 FLCCAW EQU PSA+72 08702000 FLCCSW EQU PSA+64 08703000 FLCIOPSW EQU PSA+56 08704000 FLCMOPSW EQU PSA+48 08705000 FLCPOPSW EQU PSA+40 08706000 FLCSOPSW EQU PSA+32 08707000 FLCEOPSW EQU PSA+24 08708000 @NM00005 EQU FLCICCW2+4 08709000 FLCCVT EQU FLCICCW2 08710000 FLCICCW1 EQU FLCROPSW 08711000 FLCIPPSW EQU FLCRNPSW 08712000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 08713000 @RC00232 EQU @RC00231 08714000 @RC00266 EQU @RC00231 08715000 @RC00460 EQU @RC00443 08716000 @RC00506 EQU @RC00489 08717000 @RT00821 EQU ISTA0252 08718000 @RT00903 EQU ISTA0278 08719000 @RT00978 EQU ISTA0303 08720000 @RT01016 EQU ISTA0309 08721000 @RT01146 EQU ISTA0355 08722000 @PB00006 EQU @PB00007 08723000 @RT01293 EQU ISTA0415 08724000 @RC00235 EQU @RC00232 08725000 @RF00591 EQU @RC00506 08726000 @PB00005 EQU @PB00006 08727000 @PB00004 EQU @PB00005 08728000 @PB00003 EQU @PB00004 08729000 @PB00002 EQU @PB00003 08730000 @RF00161 EQU @PB00002 08731000 @ENDDATA EQU * 08732000 END ISTCFCR2,(C'PLS2011',0603,78062) 08733000