TITLE 'ISTZBFMB/AMB-VS1/MMB-VS2 - LCCW/LCPB ANALYSIS ROUTINE *00001000 ' 00002000 ISTZBFMB CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTZBFMB 77.349' 0001 00008000 DROP @15 00009000 @PROLOG DS 0H 0002 00010000 * 0281 00011000 * /*****************************************************************/ 00012000 * /* */ 00013000 * /* ISTZBFMB MAINLINE - ANALYZES A STRING OF LCCWS - UNTIL A */ 00014000 * /* LOGICAL END OF STRING IS ENCOUNTERED OR THE INTERNAL */ 00015000 * /* SUBROUTINE BFMB0010 DETERMINES THAT THE MAXIMUM SIZE FOR AN */ 00016000 * /* LCP HAS BEEN EXCEEDED. - SAVE REGISTERS AND SET ROUTINE BASE */ 00017000 * /* */ 00018000 * /*****************************************************************/ 00019000 * 0281 00020000 */* TPZSAVE (7,12,14) BASE AC(BCMB) */ 00021000 * 0281 00022000 * DO; 0281 00023000 * DCL 0282 00024000 * GPR01F FIXED(31) REG(01); 0282 00025000 * DCL 0283 00026000 * GPR01P PTR(31) REG(01); 0283 00027000 * DCL 0284 00028000 * GPR12F FIXED(31) REG(12); 0284 00029000 * DCL 0285 00030000 * GPR12P PTR(31) REG(12); 0285 00031000 * DCL 0286 00032000 * GPR13F FIXED(31) REG(13); 0286 00033000 * DCL 0287 00034000 * GPR13P PTR(31) REG(13); 0287 00035000 * DCL 0288 00036000 * GPR14F FIXED(31) REG(14); 0288 00037000 * DCL 0289 00038000 * GPR14P PTR(31) REG(14); 0289 00039000 * RFY 0290 00040000 * (GPR01P, 0290 00041000 * GPR12P, 0290 00042000 * GPR13P, 0290 00043000 * GPR14P) RSTD; 0290 00044000 * GEN(PRINT OFF); 0291 00045000 * 0291 00046000 PRINT OFF 00047000 */* ATBUILD (ISTZSAVE) */ 00048000 */* END OF ATBUILD */ 00049000 * 0292 00050000 * GEN(PRINT ON); 0292 00051000 PRINT ON 00052000 * RFY 0293 00053000 * ISTZSAVE BASED(GPR13P); 0293 00054000 * GEN SETS(ZSAZSVVR)(STM 7,12,ZSAZSVVR+0(13)); 0294 00055000 STM 7,12,ZSAZSVVR+0(13) 00056000 * GEN SETS(GPR12P); 0295 00057000 BALR GPR12P,0 00058000 @TSTART DS 0H 00059000 USING @TSTART,GPR12P 00060000 * GEN(PRINT OFF); 0296 00061000 * 0296 00062000 PRINT OFF 00063000 */* ATBUILD (ISTZCRR,ISTRPH,ISTCRA) EJECT(NO) */ 00064000 */* END OF ATBUILD */ 00065000 * 0297 00066000 * GEN(PRINT ON); 0297 00067000 PRINT ON 00068000 * GPR01P->RPHCRR->CRACRR->ZCREBCMB='1'B; 0298 00069000 L @15,RPHCRR(,GPR01P) 0298 00070000 L @15,CRACRR(,@15) 0298 00071000 OI ZCREBCMB(@15),B'00000001' 0298 00072000 * ZSAZACTV='1'B; 0299 00073000 OI ZSAZACTV(GPR13P),B'10000000' 0299 00074000 * ZSAZTRAC='BCMB'; 0300 00075000 MVC ZSAZTRAC(4,GPR13P),@CC02514 0300 00076000 * ZSAZSVRR=GPR14P; 0301 00077000 ST GPR14P,ZSAZSVRR(,GPR13P) 0301 00078000 * GPR13P=ZSAZSVFC; 0302 00079000 L GPR13P,ZSAZSVFC(,GPR13P) 0302 00080000 * RFY 0303 00081000 * (GPR01P) UNRSTD; 0303 00082000 * RFY 0304 00083000 * (GPR14P) UNRSTD; 0304 00084000 * END; 0305 00085000 * 0305 00086000 */* END TPZSAVE */ 00087000 * 0306 00088000 * ZCRPTR=CRACRR; /* ZCRR @ @XL03HEN*/ 00089000 L @15,RPHCRR(,RPHPTR) 0306 00090000 L ZCRPTR,CRACRR(,@15) 0306 00091000 * LCPBPTR=ZCRCRLCP; /* ADDRESS CURRENT LCPB */ 00092000 L LCPBPTR,ZCRCRLCP(,ZCRPTR) 0307 00093000 * ZCRENDAN=OFF; /* INITIALIZE LOOP CONTROL SWITCH*/ 00094000 NI ZCRENDAN(ZCRPTR),B'11111101' 0308 00095000 * REG0=0; /* INITIALIZE WRITE CONTROL SW. 00096000 * @XL03HEN*/ 00097000 SLR REG0,REG0 0309 00098000 * ZCRLCSYN=OFF; /* ZERO LCCW SYNCH FLG @XL03HDP*/ 00099000 NI ZCRLCSYN(ZCRPTR),B'11101111' 0310 00100000 * CURLCCW=LCPNXLCW; /* LOAD NEXT LCCW ADDRESS */ 00101000 L CURLCCW,LCPNXLCW(,LCPBPTR) 0311 00102000 * CNTLCCW=LCPLCCWC; /* SET INTERN LCCW CNT@XL03HDP */ 00103000 * 0312 00104000 SLR CNTLCCW,CNTLCCW 0312 00105000 IC CNTLCCW,LCPLCCWC(,LCPBPTR) 0312 00106000 * /*****************************************************************/ 00107000 * /* */ 00108000 * /* ISTZBFMB ANALYSIS LOOP - LOOPS UNTIL ZCRENDAN SWITCH IS SET - */ 00109000 * /* INDICATING END OF LCP */ 00110000 * /* */ 00111000 * /*****************************************************************/ 00112000 * 0313 00113000 *FMBALOOP: 0313 00114000 * DO WHILE(ZCRENDAN=OFF); 0313 00115000 FMBALOOP B @DE00313 0313 00116000 @DL00313 DS 0H 0314 00117000 * IF LCCWOP=LSEND&ZCR3270R='1'B THEN/* IF SEND REQ AND 3270 0314 00118000 * @ZA28604*/ 00119000 CLI LCCWOP(CURLCCW),X'F1' 0314 00120000 BNE @RF00314 0314 00121000 TM ZCR3270R(ZCRPTR),B'00000010' 0314 00122000 BNO @RF00314 0314 00123000 * DO; /* RECORD @ZA28604*/ 00124000 * RFY 0316 00125000 * WRKREG RSTD; /* @ZA28604*/ 00126000 * WRKREG=CURLCCW; /* DEFAULT 2ND LCCWPTR @ZA28604 00127000 * TO FIRST LCCW. @ZA28604*/ 00128000 LR WRKREG,CURLCCW 0317 00129000 * IF LCCWCD='1'B THEN /* IF CHAIN DATA IS ON @ZA28604*/ 00130000 TM LCCWCD(CURLCCW),B'10000000' 0318 00131000 BNO @RF00318 0318 00132000 * WRKREG=CURLCCW+LENGTH(ISTLCCW);/* POINT TO NXT LCCW 0319 00133000 * @ZA28604*/ 00134000 LA WRKREG,8 0319 00135000 ALR WRKREG,CURLCCW 0319 00136000 * IF LCCWLSI=ON| /* IF LCCW SYNCH REQSTD @ZA28604*/ 00137000 * WRKREG->LCCWLSI='1'B THEN/* IN ANY LCCW @ZA28604*/ 00138000 @RF00318 TM LCCWLSI(CURLCCW),B'00000100' 0320 00139000 BO @RT00320 0320 00140000 TM LCCWLSI(WRKREG),B'00000100' 0320 00141000 BNO @RF00320 0320 00142000 @RT00320 DS 0H 0321 00143000 * DO; /* @ZA28604*/ 00144000 * ZCRLCSYN=ON; /* INDICATE IN ZCR @ZA28604*/ 00145000 OI ZCRLCSYN(ZCRPTR),B'00010000' 0322 00146000 * IF WRKREG->LCCWCNT=0 THEN/* IF ZERO LENGTH RU IN SECOND 00147000 * LCCW @ZA28604*/ 00148000 ICM @15,3,LCCWCNT(WRKREG) 0323 00149000 BNZ @RF00323 0323 00150000 * DO; /* DO NOT SUPPORT SYNC @ZA28604*/ 00151000 * LCPZRT01='1'B; /* CONTROL BLK ERROR @ZA28604*/ 00152000 OI LCPZRT01(LCPBPTR),B'01000000' 0325 00153000 * LCPNXLCW=WRKREG; /* UPDATE LCCW POINTER @ZA28604*/ 00154000 ST WRKREG,LCPNXLCW(,LCPBPTR) 0326 00155000 * LCPMNRCD=FRMINDTR;/* INVALID DATA @ZA28604*/ 00156000 MVI LCPMNRCD(LCPBPTR),X'17' 0327 00157000 * ZCRENDAN=ON; /* EXIT @ZA28604*/ 00158000 OI ZCRENDAN(ZCRPTR),B'00000010' 0328 00159000 * END; /* @ZA28604*/ 00160000 * ELSE 0330 00161000 * ; /* NOT ZERO RU @ZA28604*/ 00162000 @RF00323 DS 0H 0331 00163000 * END; /* END SYNCH FOR 3270R @ZA28604*/ 00164000 * ELSE 0332 00165000 * ; /* NOT SYNCH FOR 3270R @ZA28604*/ 00166000 @RF00320 DS 0H 0333 00167000 * RFY 0333 00168000 * WRKREG UNRSTD; /* @ZA28604*/ 00169000 * END; /* END SEND FOR 3270R @ZA28604*/ 00170000 * ELSE /* NOT 3270R @ZA28604*/ 00171000 * IF LCCWLSI=ON THEN /* IF LCCW SYNCH REQSTD@XL03HDP */ 00172000 B @RC00314 0335 00173000 @RF00314 TM LCCWLSI(CURLCCW),B'00000100' 0335 00174000 BNO @RF00335 0335 00175000 * ZCRLCSYN=ON; /* SO INDICATE IN ZCR @XL03HDP*/ 00176000 OI ZCRLCSYN(ZCRPTR),B'00010000' 0336 00177000 * ELSE 0337 00178000 * ; /* NO LCCW SYNCH @XL03HDP*/ 00179000 * 0337 00180000 @RF00335 DS 0H 0338 00181000 * /***************************************************************/ 00182000 * /* */ 00183000 * /* IF CURRENT LCCW IS A TIC, CALL INTERNAL ANALYSIS SUBROUTINE */ 00184000 * /* IMMEDIATELY. */ 00185000 * /* */ 00186000 * /***************************************************************/ 00187000 * 0338 00188000 * IF LCCWOP=LTIC THEN /* IF A TIC - */ 00189000 @RC00314 CLI LCCWOP(CURLCCW),X'08' 0338 00190000 BNE @RF00338 0338 00191000 * CALL BFMB0010; /* CALL ANALYSIS SUBROUTINE */ 00192000 BAL @14,BFMB0010 0339 00193000 * ELSE /* NOT A TIC LCCW - */ 00194000 * DO; /* @XL03HDP*/ 00195000 B @RC00338 0340 00196000 @RF00338 DS 0H 0341 00197000 * IF REG0=0 THEN 0341 00198000 LTR REG0,REG0 0341 00199000 BZ @RT00341 0341 00200000 * ; /* WRITE CONTROL @XL03HEN 00201000 * ENCOUNTERED? */ 00202000 * ELSE 0343 00203000 * DO; /* YES @XL03HEN*/ 00204000 * REG0=0; /* RESET SWITCH @XL03HEN*/ 00205000 SLR REG0,REG0 0344 00206000 * IF LCCWTYPE=LREAD THEN 0345 00207000 TM LCCWTYPE(CURLCCW),B'00000010' 0345 00208000 BNO @RF00345 0345 00209000 TM LCCWTYPE(CURLCCW),B'00000001' 0345 00210000 BZ @RT00345 0345 00211000 * ; /* READ MUST FOLLOW @XL03HEN 00212000 * WRITE CONTROL */ 00213000 * ELSE 0347 00214000 * DO; /* ERROR IF NOT @XL03HEN*/ 00215000 @RF00345 DS 0H 0348 00216000 * LCPZRT00=ON; /* ERROR FLAG @XL03HEN*/ 00217000 OI LCPZRT00(LCPBPTR),B'10000000' 0348 00218000 * LCPMNRCD=FRMINVCF;/* SET ERROR CODE @XL03HEN*/ 00219000 MVI LCPMNRCD(LCPBPTR),X'81' 0349 00220000 * ZCRENDAN=ON; /* EXIT @XL03HEN*/ 00221000 OI ZCRENDAN(ZCRPTR),B'00000010' 0350 00222000 * END; /* @XL03HEN*/ 00223000 * END; 0352 00224000 @RT00345 DS 0H 0353 00225000 * IF ZCRENDAN=ON THEN 0353 00226000 @RT00341 TM ZCRENDAN(ZCRPTR),B'00000010' 0353 00227000 BO @RT00353 0353 00228000 * ; /* EXIT ? @XL03HEN*/ 00229000 * ELSE /* NO @XL03HEN*/ 00230000 * 0355 00231000 * /*********************************************************/ 00232000 * /* */ 00233000 * /* TEST FOR COMMAND CHAINING */ 00234000 * /* */ 00235000 * /*********************************************************/ 00236000 * 0355 00237000 * IF LCCWCC=ON THEN /* COMMAND CHAINED */ 00238000 TM LCCWCC(CURLCCW),B'01000000' 0355 00239000 BNO @RF00355 0355 00240000 * DO; 0356 00241000 * 0356 00242000 * /*****************************************************/ 00243000 * /* */ 00244000 * /* LCCW IS COMMAND CHAINED - IF THIS IS A CONTROL */ 00245000 * /* COMMAND, INCREMENT TO NEXT LCCW. IF NOT, INDICATE */ 00246000 * /* END OF ANALYSIS. */ 00247000 * /* */ 00248000 * /*****************************************************/ 00249000 * 0357 00250000 * IF LCCWOP=LWRVI| /* IF LCCW IS A WRITE @XL03HEN*/ 00251000 * LCCWOP=LWNA| /* CONTROL @XL03HEN*/ 00252000 * LCCWOP=LWAA| /* @XL03HEN*/ 00253000 * LCCWOP=LWPLG| /* @XL03HEN*/ 00254000 * LCCWOP=LWPA| /* @XM09818*/ 00255000 * LCCWOP=LWNLG THEN/* @XL03HEN*/ 00256000 CLI LCCWOP(CURLCCW),X'1F' 0357 00257000 BE @RT00357 0357 00258000 CLI LCCWOP(CURLCCW),X'2F' 0357 00259000 BE @RT00357 0357 00260000 CLI LCCWOP(CURLCCW),X'3F' 0357 00261000 BE @RT00357 0357 00262000 CLI LCCWOP(CURLCCW),X'5F' 0357 00263000 BE @RT00357 0357 00264000 CLI LCCWOP(CURLCCW),X'FD' 0357 00265000 BE @RT00357 0357 00266000 CLI LCCWOP(CURLCCW),X'6F' 0357 00267000 BNE @RF00357 0357 00268000 @RT00357 DS 0H 0358 00269000 * REG0=1; /* SET WRITE CONTROL FLG @XL03HEN*/ 00270000 LA REG0,1 0358 00271000 * ELSE /* NOT WRITE CONTROL COMMAND */ 00272000 * IF LCCWOP=LWH THEN 0359 00273000 B @RC00357 0359 00274000 @RF00357 CLI LCCWOP(CURLCCW),X'0F' 0359 00275000 BE @RT00359 0359 00276000 * ; /* CONTINUE FOR WRITE SOH */ 00277000 * ELSE 0361 00278000 * ZCRENDAN='1'B; /* SET END ANALYSIS SWITCH */ 00279000 OI ZCRENDAN(ZCRPTR),B'00000010' 0361 00280000 * CALL BFMB0010; /* @XL03HEN*/ 00281000 @RT00359 DS 0H 0362 00282000 @RC00357 BAL @14,BFMB0010 0362 00283000 * END; /* @XL03HEN*/ 00284000 * ELSE /* LCCW NOT COMMAND CHAINED */ 00285000 * 0364 00286000 * /*******************************************************/ 00287000 * /* */ 00288000 * /* IS LCCW DATA CHAINED ? IF SO, PROCESS BY CALLING */ 00289000 * /* INTERNAL ANALYSIS ROUTINE. IF NOT, FLAG AS LAST BTU */ 00290000 * /* AND END ANALYSIS. */ 00291000 * /* */ 00292000 * /*******************************************************/ 00293000 * 0364 00294000 * IF LCCWCD=ON THEN /* DATA CHAINED */ 00295000 B @RC00355 0364 00296000 @RF00355 TM LCCWCD(CURLCCW),B'10000000' 0364 00297000 BNO @RF00364 0364 00298000 * CALL BFMB0010; /* CALL ANALYSIS ROUTINE */ 00299000 BAL @14,BFMB0010 0365 00300000 * ELSE 0366 00301000 * DO; /* NOT DATA CHAINED */ 00302000 B @RC00364 0366 00303000 @RF00364 DS 0H 0367 00304000 * LCPLCCWC=0; /* START LCCW COUNT @XL03HDP*/ 00305000 MVI LCPLCCWC(LCPBPTR),X'00' 0367 00306000 * LCPZF004=ON; /* FLAG LCPB AS SINGLE/LAST */ 00307000 OI LCPZF004(LCPBPTR),B'00000100' 0368 00308000 * ZCRENDAN=ON; /* END OF ANALYSIS */ 00309000 OI ZCRENDAN(ZCRPTR),B'00000010' 0369 00310000 * END; 0370 00311000 * END; /* END - NOT TIC @XL03HDP*/ 00312000 @RC00364 DS 0H 0371 00313000 @RC00355 DS 0H 0371 00314000 @RT00353 DS 0H 0372 00315000 * END FMBALOOP; /* END - ANALYSIS LOOP */ 00316000 * 0372 00317000 @RC00338 DS 0H 0372 00318000 @DE00313 TM ZCRENDAN(ZCRPTR),B'00000010' 0372 00319000 BZ @DL00313 0372 00320000 * /*****************************************************************/ 00321000 * /* */ 00322000 * /* RESTORE REGISTERS AND RETURN */ 00323000 * /* */ 00324000 * /*****************************************************************/ 00325000 * 0373 00326000 */* TPZRETN */ 00327000 * 0373 00328000 * DO; 0373 00329000 * DCL 0374 00330000 * GPR07F FIXED(31) REG(07); 0374 00331000 * DCL 0375 00332000 * GPR07P PTR(31) REG(07); 0375 00333000 * DCL 0376 00334000 * GPR15F FIXED(31) REG(15); 0376 00335000 * DCL 0377 00336000 * GPR15P PTR(31) REG(15); 0377 00337000 * RFY 0378 00338000 * (GPR07P, 0378 00339000 * GPR14P, 0378 00340000 * GPR15P) RSTD; 0378 00341000 * GPR13P=ZSAZSVBC; 0379 00342000 L GPR13P,ZSAZSVBC(,GPR13P) 0379 00343000 * IF GPR13P=0 THEN 0380 00344000 LTR GPR13P,GPR13P 0380 00345000 BZ @RT00380 0380 00346000 * ; /* TPDVTS ISTZFARR */ 00347000 * ELSE 0382 00348000 * GPR14P=ZSAZSVRR; 0382 00349000 L GPR14P,ZSAZSVRR(,GPR13P) 0382 00350000 * GEN REFS(ZSAZSVVR)(LM 7,12,ZSAZSVVR+0(13)); 0383 00351000 @RT00380 DS 0H 0383 00352000 LM 7,12,ZSAZSVVR+0(13) 00353000 * GEN REFS(GPR14P) EXIT NOSEQFLOW(BR GPR14P); 0384 00354000 BR GPR14P 00355000 * RFY 0385 00356000 * (GPR07P, 0385 00357000 * GPR14P, 0385 00358000 * GPR15P) UNRSTD; 0385 00359000 * END; 0386 00360000 * 0386 00361000 */* END TPZRETN */ 00362000 * 0387 00363000 * 0387 00364000 * /*****************************************************************/ 00365000 * /* */ 00366000 * /* BFMB0010 - INTERNAL LCCW/LCP ANALYSIS ROUTINE - CHECKS IF */ 00367000 * /* MAXIMUM SIZE LCP HAS BEEN EXCEEDED. IF NOT, BUMPS INTERNAL */ 00368000 * /* LCCW COUNT AND POINTS CURLCCW TO NEXT LCCW IN THE CHAIN. */ 00369000 * /* */ 00370000 * /*****************************************************************/ 00371000 * 0387 00372000 *BFMB0010: 0387 00373000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* SUBROUTINE ENTRY */ 00374000 BFMB0010 DS 0H 0388 00375000 * ZCRSVF3=RETNREG; /* SAVE RETURN REGISTER */ 00376000 * 0388 00377000 ST RETNREG,ZCRSVF3(,ZCRPTR) 0388 00378000 * /*****************************************************************/ 00379000 * /* */ 00380000 * /* DOES THIS LCCW CAUSE THE LCP TO EXCEED MAXIMUM LCCW COUNT */ 00381000 * /* (255) ? */ 00382000 * /* */ 00383000 * /*****************************************************************/ 00384000 * 0389 00385000 * IF CNTLCCW=FSBLCWMX THEN /* AT MAXIMUM */ 00386000 CH CNTLCCW,@CH00396 0389 00387000 BNE @RF00389 0389 00388000 * DO; /* SET ERROR CODE AND CALL CALL 00389000 * RECOVERY ROUTINE */ 00390000 * LCPZRT01=ON; /* FLAG CONTROL BLOCK ERROR */ 00391000 OI LCPZRT01(LCPBPTR),B'01000000' 0391 00392000 * LCPMNRCD=FRMLCH; /* MINOR RETURN CODE - TOO MANY 00393000 * LCCWS */ 00394000 MVI LCPMNRCD(LCPBPTR),X'AB' 0392 00395000 * ZCRENDAN=ON; /* SET END ANALYSIS SWITCH */ 00396000 OI ZCRENDAN(ZCRPTR),B'00000010' 0393 00397000 * END; 0394 00398000 * ELSE 0395 00399000 * DO; /* NOT TOO MANY LCCWS */ 00400000 B @RC00389 0395 00401000 @RF00389 DS 0H 0396 00402000 * CNTLCCW=CNTLCCW+1; /* INCREMENT INTERNAL LCCW COUNT */ 00403000 LA @15,1 0396 00404000 ALR CNTLCCW,@15 0396 00405000 * IF LCCWCTL=LRESET&CNTLCCW>1 THEN 0397 00406000 TM LCCWCTL(CURLCCW),B'00001011' 0397 00407000 BNO @RF00397 0397 00408000 TM LCCWCTL(CURLCCW),B'00000100' 0397 00409000 BNZ @RF00397 0397 00410000 CR CNTLCCW,@15 0397 00411000 BNH @RF00397 0397 00412000 * DO; 0398 00413000 * LCPZRT01=ON; 0399 00414000 OI LCPZRT01(LCPBPTR),B'01000000' 0399 00415000 * LCPMNRCD=FRMINVCF; 0400 00416000 MVI LCPMNRCD(LCPBPTR),X'81' 0400 00417000 * ZCRENDAN=ON; 0401 00418000 OI ZCRENDAN(ZCRPTR),B'00000010' 0401 00419000 * END; 0402 00420000 * ELSE 0403 00421000 * 0403 00422000 * /***********************************************************/ 00423000 * /* */ 00424000 * /* INCREMENT TO NEXT LCCW. IF THIS IS A TIC LCCW, USE LCCW */ 00425000 * /* DATA ADDRESS FOR NEXT LCCW ADDRESS. */ 00426000 * /* */ 00427000 * /***********************************************************/ 00428000 * 0403 00429000 * IF LCCWOP=LTIC THEN /* A TIC LCCW */ 00430000 B @RC00397 0403 00431000 @RF00397 CLI LCCWOP(CURLCCW),X'08' 0403 00432000 BNE @RF00403 0403 00433000 * DO; 0404 00434000 * CURLCCW=LCCWDATA; /* NEXT LCCW ADDRESS = CURRENT 0405 00435000 * LCCW DATA ADDRESS */ 00436000 L CURLCCW,LCCWDATA(,CURLCCW) 0405 00437000 * IF LCCWOP=LTIC THEN /* TIC TO A TIC ? @XL03HEN*/ 00438000 CLI LCCWOP(CURLCCW),X'08' 0406 00439000 BNE @RF00406 0406 00440000 * DO; /* @XL03HEN*/ 00441000 * LCPZRT01=ON; /* ERROR FLAG @XL03HEN*/ 00442000 OI LCPZRT01(LCPBPTR),B'01000000' 0408 00443000 * LCPMNRCD=FRMINVCF;/* ERROR CODE @XL03HEN*/ 00444000 MVI LCPMNRCD(LCPBPTR),X'81' 0409 00445000 * ZCRENDAN=ON; /* EXIT SWITCH @XL03HEN*/ 00446000 OI ZCRENDAN(ZCRPTR),B'00000010' 0410 00447000 * END; /* @XL03HEN*/ 00448000 * ELSE 0412 00449000 * ; /* @XL03HEN*/ 00450000 @RF00406 DS 0H 0413 00451000 * END; /* @XL03HEN*/ 00452000 * ELSE /* NOT A TIC - */ 00453000 * CURLCCW=CURLCCW+LENGTH(ISTLCCW);/* POINT TO NEXT LCCW */ 00454000 B @RC00403 0414 00455000 @RF00403 AH CURLCCW,@CH00057 0414 00456000 * END; 0415 00457000 @RC00403 DS 0H 0415 00458000 @RC00397 DS 0H 0416 00459000 * RETNREG=ZCRSVF3; /* RESTORE RETURN REGISTER */ 00460000 @RC00389 L RETNREG,ZCRSVF3(,ZCRPTR) 0416 00461000 * END BFMB0010; /* END - INTERNAL PROCEDURE */ 00462000 @EL00002 DS 0H 0417 00463000 @EF00002 DS 0H 0417 00464000 @ER00002 BR @14 0417 00465000 */* TPEPILOG */ 00466000 * 0418 00467000 * GEN(PRINT OFF); 0418 00468000 PRINT OFF 00469000 * GEN(PRINT ON); 0419 00470000 * 0419 00471000 PRINT ON 00472000 */* END OF TPEPILOG */ 00473000 * 0420 00474000 * END ISTZBFMB; /* END - MAINLINE PROCEDURE */ 00475000 @EL00001 DS 0H 0420 00476000 @EF00001 DS 0H 0420 00477000 @ER00001 BR @14 0420 00478000 @DATA DS 0H 00479000 @CH00057 DC H'8' 00480000 @CH00396 DC XL2'FF' 00481000 @DATD DSECT 00482000 DS 0F 00483000 ISTZBFMB CSECT 00484000 DS 0F 00485000 @DATD DSECT 00486000 DS 0D 00487000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00488000 @ENDDATD EQU * 00489000 ISTZBFMB CSECT 00490000 DS 0F 00491000 @SIZDATD DC AL1(0) 00492000 DC AL3(@ENDDATD-@DATD) 00493000 DS 0D 00494000 @CC02514 DC C'BCMB' 00495000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00496000 @01 EQU 01 00497000 @02 EQU 02 00498000 @03 EQU 03 00499000 @04 EQU 04 00500000 @05 EQU 05 00501000 @06 EQU 06 00502000 @07 EQU 07 00503000 @08 EQU 08 00504000 @09 EQU 09 00505000 @10 EQU 10 00506000 @11 EQU 11 00507000 @12 EQU 12 00508000 @13 EQU 13 00509000 @14 EQU 14 00510000 @15 EQU 15 00511000 ATCVTPTR EQU @02 00512000 ICNCBPTR EQU @03 00513000 DNCBPTR EQU @04 00514000 FMCBPTR EQU @05 00515000 REG6 EQU @06 00516000 LCPBPTR EQU @07 00517000 CURLCCW EQU @08 00518000 ZCRPTR EQU @09 00519000 WRKREG EQU @11 00520000 R12 EQU @12 00521000 R13 EQU @13 00522000 REG0 EQU @00 00523000 CNTLCCW EQU @10 00524000 RETNREG EQU @14 00525000 FSBPTR EQU @00 00526000 RPHPTR EQU @01 00527000 GPR01P EQU @01 00528000 GPR12P EQU @12 00529000 GPR13P EQU @13 00530000 GPR14P EQU @14 00531000 GPR07P EQU @07 00532000 GPR15P EQU @15 00533000 GPR01F EQU @01 00534000 GPR07F EQU @07 00535000 GPR12F EQU @12 00536000 GPR13F EQU @13 00537000 GPR14F EQU @14 00538000 GPR15F EQU @15 00539000 ATCLCPTR EQU 1032 00540000 ISTPROCD EQU 0 00541000 PROPROC EQU ISTPROCD 00542000 PROPROC1 EQU PROPROC 00543000 PROPROC2 EQU PROPROC+1 00544000 PROPROC3 EQU PROPROC+2 00545000 PROPROC4 EQU PROPROC+3 00546000 PROPROCS EQU 0 00547000 PROSETMS EQU PROPROCS+1 00548000 PROSETM2 EQU PROSETMS 00549000 PROSETM3 EQU PROSETMS+1 00550000 PROSETM4 EQU PROSETMS+2 00551000 ISTDEVCH EQU 0 00552000 DEVSHCH EQU ISTDEVCH 00553000 DEVCHAR EQU DEVSHCH 00554000 DEVTCODE EQU ISTDEVCH+1 00555000 DEVFLAGS EQU ISTDEVCH+3 00556000 DEVFCCTL EQU DEVFLAGS 00557000 DEVCHAR3 EQU DEVFLAGS 00558000 ISTPAB EQU 0 00559000 PABWQCHN EQU ISTPAB 00560000 PABWEQA EQU PABWQCHN 00561000 PABCHAIN EQU PABWQCHN+4 00562000 PABRPHFG EQU ISTPAB+12 00563000 PABFLAGS EQU PABRPHFG 00564000 PABERLCK EQU PABFLAGS 00565000 PABERRLK EQU PABERLCK 00566000 ISTDYPAB EQU 0 00567000 ISTZSAVE EQU 0 00568000 ZSAZSVBC EQU ISTZSAVE 00569000 ZSAZSVMS EQU ZSAZSVBC 00570000 ZSAZACTV EQU ZSAZSVMS 00571000 ZSAZSVFC EQU ISTZSAVE+4 00572000 ZSAZSVRR EQU ISTZSAVE+8 00573000 ZSAZSVVR EQU ISTZSAVE+12 00574000 ZSAZTRAC EQU ISTZSAVE+36 00575000 ISTLCCW EQU 0 00576000 LCCWOP EQU ISTLCCW 00577000 LCCWRWOP EQU LCCWOP 00578000 LCCWCTL EQU LCCWRWOP 00579000 LCCWTYPE EQU LCCWCTL 00580000 LCCWFLAG EQU ISTLCCW+1 00581000 LCCWCD EQU LCCWFLAG 00582000 LCCWCC EQU LCCWFLAG 00583000 LCCWLSI EQU LCCWFLAG 00584000 LCCWCNT EQU ISTLCCW+2 00585000 LCCWDATA EQU ISTLCCW+4 00586000 ISTLCPB EQU 0 00587000 LCPREQTG EQU ISTLCPB+2 00588000 LCPFLAGS EQU LCPREQTG 00589000 LCPZRT00 EQU LCPFLAGS 00590000 LCPZRT01 EQU LCPFLAGS 00591000 LCPZF001 EQU LCPFLAGS 00592000 LCPZRT02 EQU LCPZF001 00593000 LCPZF002 EQU LCPFLAGS 00594000 LCPZRT03 EQU LCPZF002 00595000 LCPZF003 EQU LCPFLAGS 00596000 LCPZRT04 EQU LCPZF003 00597000 LCPZF004 EQU LCPFLAGS 00598000 LCPZRT05 EQU LCPZF004 00599000 LCPZRT06 EQU LCPFLAGS 00600000 LCPZRT07 EQU LCPFLAGS 00601000 LCPMNRCD EQU LCPREQTG+1 00602000 LCPZRT08 EQU LCPMNRCD 00603000 LCPZRT09 EQU LCPMNRCD 00604000 LCPCHAIN EQU ISTLCPB+4 00605000 LCPCHAI1 EQU LCPCHAIN 00606000 LCPRUCNT EQU ISTLCPB+8 00607000 LCPFLAG2 EQU ISTLCPB+9 00608000 LCPTLBPI EQU LCPFLAG2 00609000 LCPFID0 EQU LCPFLAG2 00610000 LCPSEQ EQU ISTLCPB+10 00611000 LCPCID EQU ISTLCPB+16 00612000 LCPNXLCW EQU ISTLCPB+20 00613000 LCPFDBA EQU ISTLCPB+24 00614000 LCPFLG1 EQU ISTLCPB+37 00615000 LCPLCCWC EQU ISTLCPB+38 00616000 LCPFLCCW EQU ISTLCPB+40 00617000 LCPLCCW EQU ISTLCPB+48 00618000 LCPPABA EQU LCPLCCW+4 00619000 LCPRPHA EQU LCPPABA 00620000 ISTZCRR EQU 0 00621000 ZCRCRR EQU ISTZCRR 00622000 ZCRFLGS1 EQU ISTZCRR+12 00623000 ZCRFLGS2 EQU ISTZCRR+13 00624000 ZCRSWFLD EQU ISTZCRR+14 00625000 ZCRENDSH EQU ZCRSWFLD 00626000 ZCRNDLCP EQU ZCRSWFLD 00627000 ZCRENDAN EQU ZCRSWFLD 00628000 ZCRRESET EQU ZCRSWFLD 00629000 ZCRFLGS3 EQU ISTZCRR+15 00630000 ZCRGENSW EQU ISTZCRR+16 00631000 ZCRLCSYN EQU ZCRGENSW 00632000 ZCRPFLGS EQU ISTZCRR+17 00633000 ZCRIBPR EQU ISTZCRR+18 00634000 ZCR3270R EQU ZCRIBPR 00635000 ZCRSCPSW EQU ISTZCRR+19 00636000 ZCRCRLCP EQU ISTZCRR+20 00637000 ZCRPARMS EQU ISTZCRR+24 00638000 ZCRFBPTR EQU ZCRPARMS 00639000 ZCRDFRDA EQU ZCRPARMS+10 00640000 ZCRPCOD1 EQU ZCRPARMS+12 00641000 ZCRPLSBF EQU ZCRPCOD1 00642000 ZCRPCOD2 EQU ZCRPARMS+13 00643000 ZCRSVRTN EQU ISTZCRR+56 00644000 ZCRSVF3 EQU ZCRSVRTN+8 00645000 ZCRWKARA EQU ISTZCRR+156 00646000 ZCRCIDSV EQU ISTZCRR+192 00647000 ZCRAUDIT EQU ISTZCRR+440 00648000 ZCRENTER EQU ZCRAUDIT+5 00649000 ZCREBCMB EQU ZCRENTER+3 00650000 ZCRLCPB EQU ISTZCRR+480 00651000 ZCRRHRU EQU ZCRLCPB 00652000 ISTFDB EQU 0 00653000 ISTFSB EQU 0 00654000 FSBFSB EQU ISTFSB 00655000 FSBMNRCD EQU FSBFSB+2 00656000 FSBSFLGS EQU FSBFSB+3 00657000 FSBFSBA EQU FSBFSB+4 00658000 FSBBTH EQU FSBFSB+8 00659000 FSBCID EQU FSBBTH 00660000 FSBRQTAG EQU FSBBTH+4 00661000 FSBSEQID EQU FSBRQTAG 00662000 FSBFLAGS EQU FSBSEQID 00663000 FSBSEQ EQU FSBSEQID+1 00664000 FSBCSWST EQU FSBBTH+6 00665000 FSBTHFLD EQU FSBCSWST 00666000 FSBTH1 EQU FSBTHFLD 00667000 FSBSYSRS EQU FSBTH1 00668000 FSBTH2 EQU FSBTHFLD+1 00669000 FSBEXTRS EQU FSBTH2 00670000 FSBXFSTS EQU FSBEXTRS 00671000 FSBXCODE EQU FSBEXTRS 00672000 FSBNETRS EQU FSBFSB+16 00673000 FSBSRCAT EQU FSBNETRS 00674000 FSBERC EQU FSBNETRS+1 00675000 FSBFBMI EQU FSBERC 00676000 FSBDMGRS EQU FSBFSB+18 00677000 FSBSS1 EQU FSBDMGRS 00678000 FSBSS2 EQU FSBDMGRS+1 00679000 FSBLCPB EQU FSBFSB+20 00680000 FSBMSGID EQU FSBLCPB 00681000 FSBLCCWA EQU FSBFSB+24 00682000 FSBRLSTS EQU FSBLCCWA 00683000 ISTLOK EQU 0 00684000 LOKCHN EQU ISTLOK+1 00685000 LOKCHNG EQU LOKCHN 00686000 @NM00011 EQU LOKCHNG+2 00687000 ISTFMCB EQU 0 00688000 FMCSTAT EQU ISTFMCB+28 00689000 FMCSTAT1 EQU ISTFMCB+29 00690000 FMCCMDFL EQU ISTFMCB+31 00691000 FMCCMPS1 EQU ISTFMCB+36 00692000 FMCSIPA EQU ISTFMCB+148 00693000 FMCNXOSQ EQU ISTFMCB+152 00694000 FMCNXCFM EQU FMCNXOSQ 00695000 FMCNXOSC EQU FMCNXOSQ+2 00696000 FMCSSTAT EQU ISTFMCB+159 00697000 FMCPACE EQU ISTFMCB+160 00698000 FMCPACEN EQU FMCPACE 00699000 FMCPACEM EQU FMCPACE+1 00700000 FMCPACPC EQU FMCPACE+2 00701000 FMCCVAL EQU FMCPACE+3 00702000 FMCOBCE EQU FMCCVAL 00703000 FMCCLEXT EQU ISTFMCB+164 00704000 FMCRPLA EQU FMCCLEXT 00705000 FMCFBA EQU FMCCLEXT+4 00706000 FMCCMPS2 EQU FMCCLEXT+16 00707000 FMCFLGA EQU FMCCMPS2 00708000 FMCFLGCL EQU FMCCMPS2+1 00709000 FMCPSCMD EQU FMCCMPS2+2 00710000 FMCPSTAT EQU FMCCMPS2+3 00711000 FMCSTAT2 EQU ISTFMCB+186 00712000 FMCMODEB EQU ISTFMCB+189 00713000 FMCCLSEQ EQU ISTFMCB+190 00714000 FMCRRESP EQU ISTFMCB+195 00715000 FMCSSEGQ EQU ISTFMCB+200 00716000 FMCFBAS EQU ISTFMCB+216 00717000 FMCZV002 EQU FMCFBAS 00718000 FMCSNCTL EQU ISTFMCB+224 00719000 FMCSCFLG EQU FMCSNCTL 00720000 FMCVS1 EQU ISTFMCB+232 00721000 FMCZFLAG EQU FMCVS1 00722000 FMCZF006 EQU FMCZFLAG 00723000 FMCLBXM EQU FMCVS1+12 00724000 FMCSHEAQ EQU FMCLBXM 00725000 FMCLCPBQ EQU FMCVS1+16 00726000 FMCLCPAQ EQU FMCVS1+20 00727000 FMCSEQ1 EQU FMCVS1+34 00728000 FMCZFLG2 EQU FMCVS1+35 00729000 FMCCVFLG EQU FMCVS1+44 00730000 FMCFLAG EQU 0 00731000 FMCFLGB EQU FMCFLAG 00732000 ISTZPSVT EQU 0 00733000 ISTRPH EQU 0 00734000 RPHCNTL EQU ISTRPH 00735000 RPHFLAGS EQU RPHCNTL+2 00736000 RPHAPTYP EQU RPHFLAGS 00737000 RPHFSTLC EQU RPHFLAGS 00738000 RPHFLGB EQU RPHCNTL+3 00739000 RPHRPHA EQU ISTRPH+4 00740000 RPHTSKID EQU ISTRPH+8 00741000 RPHRESMA EQU ISTRPH+16 00742000 RPHWPFLG EQU RPHRESMA 00743000 RPHWEA EQU ISTRPH+24 00744000 RPHCSPA EQU RPHWEA 00745000 RPHSRPRM EQU ISTRPH+28 00746000 RPHCRR EQU ISTRPH+32 00747000 RPHPABQA EQU ISTRPH+36 00748000 RPHWORK EQU ISTRPH+40 00749000 RPHSAVE1 EQU RPHWORK 00750000 RPHSBITS EQU RPHSAVE1+1 00751000 ISTATCVT EQU 0 00752000 ATCCOM EQU ISTATCVT 00753000 ATCSTAT EQU ATCCOM 00754000 ATCSTAT1 EQU ATCSTAT 00755000 ATCSTFLG EQU ATCSTAT+1 00756000 ATCPOFLG EQU ATCSTAT+2 00757000 ATCSTAT4 EQU ATCSTAT+3 00758000 ATCIOTRC EQU ATCCOM+140 00759000 ATCTHTRC EQU ATCIOTRC 00760000 ATCCSMR EQU ISTATCVT+296 00761000 ATCSHRFG EQU ISTATCVT+316 00762000 ATCHPGM EQU ISTATCVT+384 00763000 ATCVLCNT EQU ISTATCVT+772 00764000 ATCRNO EQU ISTATCVT+788 00765000 ATCSOPD EQU ISTATCVT+792 00766000 ATCSIPD EQU ISTATCVT+800 00767000 ATCSECST EQU ISTATCVT+812 00768000 ATCSTAT2 EQU ISTATCVT+818 00769000 ATCVTBAM EQU ISTATCVT+908 00770000 @NM00030 EQU ATCVTBAM+3 00771000 ATCAOSM EQU ISTATCVT+912 00772000 ATCGSRBQ EQU ATCAOSM+4 00773000 ATCGSRBG EQU ATCGSRBQ 00774000 ATCICAPP EQU ATCAOSM+100 00775000 ATCLDAPP EQU ATCAOSM+120 00776000 ATCDAPVT EQU ATCAOSM+140 00777000 ATCCRA EQU ATCAOSM+280 00778000 ATCCRACN EQU ATCCRA+4 00779000 ATCSRB EQU ATCAOSM+288 00780000 ATCSRBCN EQU ATCSRB+4 00781000 ATCCRPL EQU ATCAOSM+296 00782000 ATCRPLCN EQU ATCCRPL+4 00783000 ATCSQAFR EQU ATCAOSM+304 00784000 ATCORTBC EQU ATCSQAFR+4 00785000 ATCORSRB EQU ATCORTBC 00786000 @NM00032 EQU ATCAOSM+332 00787000 ATCVTFLG EQU ATCAOSM+392 00788000 ATCZFLAG EQU ATCAOSM+588 00789000 ISTPFCRR EQU 0 00790000 PFCCRR EQU ISTPFCRR 00791000 PFCCRRID EQU PFCCRR 00792000 PFCCRRLN EQU PFCCRR+2 00793000 PFCHDR EQU ISTPFCRR+4 00794000 PFCCRRO EQU PFCHDR 00795000 PFCFRRO EQU PFCHDR+4 00796000 ISTCFCRR EQU 0 00797000 CFCAUDIT EQU ISTCFCRR 00798000 CFCNTRD EQU CFCAUDIT 00799000 CFCCRT EQU CFCAUDIT+1 00800000 ISTASCRR EQU 0 00801000 ASCFLAGS EQU ISTASCRR+16 00802000 ASCFLG1 EQU ASCFLAGS 00803000 ASCFLG2 EQU ASCFLAGS+2 00804000 ASCFLG3 EQU ASCFLAGS+4 00805000 ASCUSRGS EQU ISTASCRR+28 00806000 ISTAPCRR EQU 0 00807000 APCATFLG EQU ISTAPCRR+16 00808000 APCRFLG EQU ISTAPCRR+18 00809000 APCSAVE EQU ISTAPCRR+44 00810000 APCCOMF EQU ISTAPCRR+116 00811000 APCCOMF1 EQU APCCOMF 00812000 APC31FLG EQU ISTAPCRR+132 00813000 APC52FLG EQU ISTAPCRR+133 00814000 APC53FLG EQU ISTAPCRR+134 00815000 APC54FLG EQU ISTAPCRR+135 00816000 APC57FLG EQU ISTAPCRR+136 00817000 ISTCRA EQU 0 00818000 CRABASIC EQU ISTCRA 00819000 CRAHDR EQU CRABASIC 00820000 CRACRR EQU CRAHDR 00821000 CRALKACT EQU CRABASIC+8 00822000 CRASVC EQU ISTCRA+848 00823000 CRABUFA EQU CRASVC+68 00824000 LCPZTIE EQU LCPCID 00825000 LCPZSNAM EQU LCPZTIE+8 00826000 FSBCOMBN EQU FSBNETRS 00827000 FSBRHFLD EQU FSBCOMBN+1 00828000 FSBRH3 EQU FSBRHFLD+2 00829000 FSBLDFLG EQU FSBRH3 00830000 @NM00009 EQU FSBRQTAG 00831000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00832000 FSBRT0B EQU @NM00009+1 00833000 FSBRT0A EQU @NM00009+1 00834000 FSBRT09 EQU @NM00009+1 00835000 FSBRT08 EQU @NM00009+1 00836000 FSBRT07 EQU @NM00009 00837000 FSBRT06 EQU @NM00009 00838000 FSBRT05 EQU @NM00009 00839000 FSBRT04 EQU @NM00009 00840000 FSBRT03 EQU @NM00009 00841000 FSBRT02 EQU @NM00009 00842000 FSBRT01 EQU @NM00009 00843000 FSBRT00 EQU @NM00009 00844000 FSBLDCUF EQU FSBLDFLG 00845000 FSBLDSIF EQU FSBLDFLG 00846000 FSBLDSOF EQU FSBLDFLG 00847000 FSBLDEBF EQU FSBLDFLG 00848000 FSBLDBBF EQU FSBLDFLG 00849000 FSBLDFME EQU FSBLDFLG 00850000 FSBLDSCF EQU FSBLDFLG 00851000 FSBLDRMF EQU FSBLDFLG 00852000 FSBRH2 EQU FSBRHFLD+1 00853000 FSBRH1 EQU FSBRHFLD 00854000 FSBALIGN EQU FSBCOMBN 00855000 LCPZTRV4 EQU LCPZSNAM+4 00856000 LCPZTRV1 EQU LCPZSNAM 00857000 LCPZSNA EQU LCPZTIE+4 00858000 LCPZFMCA EQU LCPZTIE 00859000 CRACHAIN EQU ISTCRA+928 00860000 CRARSV02 EQU ISTCRA+924 00861000 CRARSV01 EQU ISTCRA+920 00862000 CRABFTBA EQU CRABUFA 00863000 CRAMASK EQU CRASVC+64 00864000 CRAHSIZ EQU CRASVC+60 00865000 CRAASCRR EQU CRASVC 00866000 CRAPROCR EQU ISTCRA+312 00867000 CRAPSS EQU ISTCRA+160 00868000 CRARPH EQU ISTCRA+52 00869000 CRALAPTR EQU CRABASIC+48 00870000 CRAL9PTR EQU CRABASIC+44 00871000 CRAL8PTR EQU CRABASIC+40 00872000 CRAL7PTR EQU CRABASIC+36 00873000 CRAL6PTR EQU CRABASIC+32 00874000 CRAL5PTR EQU CRABASIC+28 00875000 CRAL4PTR EQU CRABASIC+24 00876000 CRAL3PTR EQU CRABASIC+20 00877000 CRAL2PTR EQU CRABASIC+16 00878000 CRAL1PTR EQU CRABASIC+12 00879000 CRALEV01 EQU CRALKACT+3 00880000 CRALEV02 EQU CRALKACT+3 00881000 CRALEV03 EQU CRALKACT+3 00882000 CRALEV04 EQU CRALKACT+3 00883000 CRALEV05 EQU CRALKACT+3 00884000 CRALEV06 EQU CRALKACT+3 00885000 CRALEV07 EQU CRALKACT+3 00886000 CRALEV08 EQU CRALKACT+3 00887000 CRALEV09 EQU CRALKACT+2 00888000 CRALEV10 EQU CRALKACT+2 00889000 CRALEV11 EQU CRALKACT+2 00890000 CRALEV12 EQU CRALKACT+2 00891000 CRALEV13 EQU CRALKACT+2 00892000 CRALEV14 EQU CRALKACT+2 00893000 CRALEV15 EQU CRALKACT+2 00894000 CRALEV16 EQU CRALKACT+2 00895000 CRALEV17 EQU CRALKACT+1 00896000 CRALEV18 EQU CRALKACT+1 00897000 CRALEV19 EQU CRALKACT+1 00898000 CRALEV20 EQU CRALKACT+1 00899000 CRALEV21 EQU CRALKACT+1 00900000 CRALEV22 EQU CRALKACT+1 00901000 CRALEV23 EQU CRALKACT+1 00902000 CRALEV24 EQU CRALKACT+1 00903000 CRALEV25 EQU CRALKACT 00904000 CRALEV26 EQU CRALKACT 00905000 CRALEV27 EQU CRALKACT 00906000 CRALEV28 EQU CRALKACT 00907000 CRALEV29 EQU CRALKACT 00908000 CRALEV30 EQU CRALKACT 00909000 CRALEV31 EQU CRALKACT 00910000 CRALEV32 EQU CRALKACT 00911000 CRAFRR EQU CRAHDR+4 00912000 @NM00043 EQU ISTAPCRR+137 00913000 @NM00042 EQU APC57FLG 00914000 APCNREL EQU APC57FLG 00915000 APCRECRA EQU APC57FLG 00916000 @NM00041 EQU APC54FLG 00917000 APCRLST EQU APC54FLG 00918000 APCPR153 EQU APC53FLG 00919000 @NM00040 EQU APC52FLG 00920000 APCWKF EQU APC52FLG 00921000 APCNWF EQU APC52FLG 00922000 APCRDQ EQU APC52FLG 00923000 APCQENQ EQU APC52FLG 00924000 APCSMSR EQU APC52FLG 00925000 APCCKRQ EQU APC52FLG 00926000 @NM00039 EQU APC31FLG 00927000 APCSORT EQU APC31FLG 00928000 APCRESCH EQU APC31FLG 00929000 APCTPXIT EQU APC31FLG 00930000 APCSWTWD EQU ISTAPCRR+128 00931000 APCSAV2 EQU ISTAPCRR+124 00932000 APCSAV1 EQU ISTAPCRR+120 00933000 APCRETCD EQU APCCOMF+2 00934000 @NM00038 EQU APCCOMF1+1 00935000 APCZLBER EQU APCCOMF1 00936000 APCEXIT EQU APCCOMF1 00937000 APCRELR EQU APCCOMF1 00938000 APCIRB2 EQU APCCOMF1 00939000 APCIRB1 EQU APCCOMF1 00940000 APCSMCR EQU APCCOMF1 00941000 APCUETSK EQU APCCOMF1 00942000 APCSSTSK EQU APCCOMF1 00943000 APCESTAL EQU APCSAVE 00944000 APCFRRPM EQU ISTAPCRR+40 00945000 APCQWFO EQU ISTAPCRR+36 00946000 APCPABSV EQU ISTAPCRR+32 00947000 APCRTRN EQU ISTAPCRR+28 00948000 APCTCBA EQU ISTAPCRR+24 00949000 APCPSTA EQU ISTAPCRR+20 00950000 @NM00037 EQU APCRFLG+1 00951000 APC31R EQU APCRFLG 00952000 APC58R EQU APCRFLG 00953000 APC57R EQU APCRFLG 00954000 APC56R EQU APCRFLG 00955000 APC54R EQU APCRFLG 00956000 APC53R EQU APCRFLG 00957000 APC52R EQU APCRFLG 00958000 APC51R EQU APCRFLG 00959000 @NM00036 EQU APCATFLG+1 00960000 APC31E EQU APCATFLG 00961000 APC58E EQU APCATFLG 00962000 APC57E EQU APCATFLG 00963000 APC56E EQU APCATFLG 00964000 APC54E EQU APCATFLG 00965000 APC53E EQU APCATFLG 00966000 APC52E EQU APCATFLG 00967000 APC51E EQU APCATFLG 00968000 APCHDRSV EQU ISTAPCRR 00969000 ASCPSREG EQU ISTASCRR+44 00970000 ASCUSR01 EQU ASCUSRGS+12 00971000 ASCUSR00 EQU ASCUSRGS+8 00972000 ASCUSR15 EQU ASCUSRGS+4 00973000 ASCUSR14 EQU ASCUSRGS 00974000 ASCETRYA EQU ISTASCRR+24 00975000 ASCKEY EQU ISTASCRR+23 00976000 ASCAUDIT EQU ASCFLG3 00977000 ASCFBDUD EQU ASCFLG3 00978000 ASCLLKF EQU ASCFLG3 00979000 ASCKEYF EQU ASCFLG3 00980000 ASCFBDAL EQU ASCFLG3 00981000 ASCFSRGT EQU ASCFLG3 00982000 ASCICR EQU ASCFLG2 00983000 ASCFSRIC EQU ASCFLG2 00984000 ASCFBDIC EQU ASCFLG2 00985000 ASCFBAIC EQU ASCFLG2 00986000 ASCPASTR EQU ASCFLG1 00987000 ASCFSR EQU ASCFLG1 00988000 ASCFBD EQU ASCFLG1 00989000 ASCFBA EQU ASCFLG1 00990000 ASCPFCRR EQU ISTASCRR 00991000 CCFRSVD1 EQU CFCCRT 00992000 CCFCR2 EQU CFCCRT 00993000 CCFCRP EQU CFCCRT 00994000 CCFCR1 EQU CFCCRT 00995000 CCFCS2 EQU CFCCRT 00996000 CCFCS1 EQU CFCCRT 00997000 NCFRSVD EQU CFCNTRD 00998000 NCFCR2 EQU CFCNTRD 00999000 NCFCRP EQU CFCNTRD 01000000 NCFCR1 EQU CFCNTRD 01001000 NCFCS2 EQU CFCNTRD 01002000 NCFCS1 EQU CFCNTRD 01003000 PFCRSV01 EQU ISTPFCRR+13 01004000 PFCFTA EQU ISTPFCRR+12 01005000 CRRFRR EQU PFCFRRO 01006000 CRRCHAIN EQU PFCCRRO 01007000 CRRLEN EQU PFCCRRLN 01008000 PFCRSV10 EQU PFCCRR+1 01009000 CRRID EQU PFCCRRID 01010000 ATCAOS EQU ISTATCVT+1584 01011000 ATCPOPAB EQU ATCAOSM+640 01012000 ATCVIOPM EQU ATCAOSM+636 01013000 ATCTPMMI EQU ATCAOSM+632 01014000 ATCTPMPB EQU ATCAOSM+600 01015000 ATCRSV88 EQU ATCAOSM+596 01016000 ATCRPLCT EQU ATCAOSM+594 01017000 ATCCRACT EQU ATCAOSM+592 01018000 ATCSRBCT EQU ATCAOSM+590 01019000 ATCRSV75 EQU ATCAOSM+589 01020000 ATCRSV66 EQU ATCZFLAG 01021000 ATCZF001 EQU ATCZFLAG 01022000 ATCTPCP1 EQU ATCAOSM+584 01023000 ATCTPCP0 EQU ATCAOSM+580 01024000 ATCAICTN EQU ATCAOSM+576 01025000 ATCZR01 EQU ATCAOSM+572 01026000 ATCMPLTA EQU ATCAOSM+568 01027000 ATCASCB EQU ATCAOSM+564 01028000 ATCAP86 EQU ATCAOSM+560 01029000 ATCAP85 EQU ATCAOSM+556 01030000 ATCAP84 EQU ATCAOSM+552 01031000 ATCAP83 EQU ATCAOSM+548 01032000 ATCAP82 EQU ATCAOSM+544 01033000 ATCAP69 EQU ATCAOSM+540 01034000 ATCAP66 EQU ATCAOSM+536 01035000 ATCAP62 EQU ATCAOSM+532 01036000 ATCAPC59 EQU ATCAOSM+528 01037000 ATCAP56 EQU ATCAOSM+524 01038000 ATCAP55 EQU ATCAOSM+520 01039000 ATCRCFY0 EQU ATCAOSM+516 01040000 ATCAP41 EQU ATCAOSM+512 01041000 ATCAPC25 EQU ATCAOSM+508 01042000 ATCAP23 EQU ATCAOSM+504 01043000 ATCTPSPB EQU ATCAOSM+472 01044000 ATCTRMPB EQU ATCAOSM+440 01045000 ATCAPBE EQU ATCAOSM+436 01046000 ATCPSTA EQU ATCAOSM+432 01047000 ATCSMABF EQU ATCAOSM+428 01048000 ATCSMAPR EQU ATCAOSM+424 01049000 ATCTPWQA EQU ATCAOSM+420 01050000 ATCSMAID EQU ATCAOSM+416 01051000 ATCSMARA EQU ATCAOSM+412 01052000 ATCCACXA EQU ATCAOSM+408 01053000 ATCZLAAB EQU ATCAOSM+404 01054000 ATCATA10 EQU ATCAOSM+400 01055000 ATCHLTCB EQU ATCAOSM+396 01056000 @NM00035 EQU ATCVTFLG 01057000 ATCVTACT EQU ATCVTFLG 01058000 ATCRPT40 EQU ATCAOSM+388 01059000 ATCRPT39 EQU ATCAOSM+384 01060000 ATCRPT38 EQU ATCAOSM+380 01061000 ATCRPT37 EQU ATCAOSM+376 01062000 ATCRPT36 EQU ATCAOSM+372 01063000 ATCRPT35 EQU ATCAOSM+368 01064000 ATCRPT34 EQU ATCAOSM+364 01065000 ATCRPT33 EQU ATCAOSM+360 01066000 ATCRPT32 EQU ATCAOSM+356 01067000 ATCRPT31 EQU ATCAOSM+352 01068000 ATCRPT30 EQU ATCAOSM+348 01069000 ATCRPT29 EQU ATCAOSM+344 01070000 ATCRPT28 EQU ATCAOSM+340 01071000 ATCRPT27 EQU ATCAOSM+336 01072000 @NM00034 EQU ATCAOSM+333 01073000 @NM00033 EQU @NM00032 01074000 ATCSNUF EQU @NM00032 01075000 ATCOPKL EQU @NM00032 01076000 ATCABEN EQU @NM00032 01077000 ATCAIWT EQU ATCAOSM+328 01078000 ATCINFDD EQU ATCAOSM+324 01079000 ATCORFMG EQU ATCAOSM+320 01080000 ATCORFRL EQU ATCAOSM+316 01081000 ATCOROBT EQU ATCAOSM+312 01082000 ATCORQG EQU ATCORSRB 01083000 ATCORTBF EQU ATCSQAFR 01084000 ATCRPLAC EQU ATCRPLCN+2 01085000 ATCRPLRC EQU ATCRPLCN 01086000 ATCCRPLQ EQU ATCCRPL 01087000 ATCSRBAC EQU ATCSRBCN+2 01088000 ATCSRBRC EQU ATCSRBCN 01089000 ATCSRBQ EQU ATCSRB 01090000 ATCCRAAC EQU ATCCRACN+2 01091000 ATCCRARC EQU ATCCRACN 01092000 ATCCRAQ EQU ATCCRA 01093000 ATCRPT12 EQU ATCAOSM+276 01094000 ATCDMAPP EQU ATCAOSM+272 01095000 ATCAP38 EQU ATCAOSM+268 01096000 ATCAP37 EQU ATCAOSM+264 01097000 ATCZDFJ0 EQU ATCAOSM+260 01098000 ATCAP51 EQU ATCAOSM+256 01099000 ATCZPAB2 EQU ATCAOSM+224 01100000 ATCZPAB1 EQU ATCAOSM+192 01101000 ATCZLFVT EQU ATCAOSM+188 01102000 ATCZLPVT EQU ATCAOSM+184 01103000 ATCZDVTX EQU ATCAOSM+180 01104000 ATCZDVTA EQU ATCAOSM+176 01105000 ATCZDVT9 EQU ATCAOSM+172 01106000 ATCZDVT8 EQU ATCAOSM+168 01107000 ATCZDVT7 EQU ATCAOSM+164 01108000 ATCRSV56 EQU ATCDAPVT+22 01109000 ATCDAPDG EQU ATCDAPVT+20 01110000 ATCDXCEA EQU ATCDAPVT+16 01111000 ATCDCEA EQU ATCDAPVT+12 01112000 ATCDPCIA EQU ATCDAPVT+8 01113000 ATCDSIOA EQU ATCDAPVT+4 01114000 ATCDEOEA EQU ATCDAPVT 01115000 ATCZLAEA EQU ATCLDAPP+16 01116000 ATCZLCEA EQU ATCLDAPP+12 01117000 ATCRSV17 EQU ATCLDAPP+8 01118000 ATCSMFRR EQU ATCLDAPP+4 01119000 ATCCDTID EQU ATCLDAPP 01120000 ATCZAEA EQU ATCICAPP+16 01121000 ATCZCEA EQU ATCICAPP+12 01122000 ATCCDTCB EQU ATCICAPP+8 01123000 ATCZSIOA EQU ATCICAPP+4 01124000 ATCCDRPH EQU ATCICAPP 01125000 ATCAP65 EQU ATCAOSM+96 01126000 ATCZDVT6 EQU ATCAOSM+92 01127000 ATCZDVT4 EQU ATCAOSM+88 01128000 ATCZDVT3 EQU ATCAOSM+84 01129000 ATCZDVT1 EQU ATCAOSM+80 01130000 ATCICNCB EQU ATCAOSM+76 01131000 ATCZPSVT EQU ATCAOSM+72 01132000 ATCZFSVT EQU ATCAOSM+68 01133000 ATCAP64 EQU ATCAOSM+64 01134000 ATCAP63 EQU ATCAOSM+60 01135000 ATCAP61 EQU ATCAOSM+56 01136000 ATCAP58 EQU ATCAOSM+52 01137000 ATCAP57 EQU ATCAOSM+48 01138000 ATCAP54 EQU ATCAOSM+44 01139000 ATCAP53 EQU ATCAOSM+40 01140000 ATCAP52 EQU ATCAOSM+36 01141000 ATCAP34 EQU ATCAOSM+32 01142000 ATCAP32 EQU ATCAOSM+28 01143000 ATCAP31 EQU ATCAOSM+24 01144000 ATCAP12 EQU ATCAOSM+20 01145000 ATCAP11 EQU ATCAOSM+16 01146000 ATCCMTCB EQU ATCAOSM+12 01147000 ATCPRPH EQU ATCAOSM+8 01148000 ATCGSRBF EQU ATCGSRBG 01149000 ATCSRBRT EQU ATCAOSM 01150000 @NM00031 EQU @NM00030 01151000 ATCVTMAB EQU @NM00030 01152000 @NM00029 EQU ATCVTBAM 01153000 ATCVDLOK EQU ISTATCVT+904 01154000 ATCVFPAB EQU ISTATCVT+872 01155000 ATCVDPAB EQU ISTATCVT+840 01156000 ATCIOECB EQU ISTATCVT+836 01157000 ATCINCW3 EQU ISTATCVT+832 01158000 ATCMODTB EQU ISTATCVT+828 01159000 ATCUSSPT EQU ISTATCVT+824 01160000 ATCSRTAB EQU ISTATCVT+820 01161000 @NM00028 EQU ISTATCVT+819 01162000 @NM00027 EQU ATCSTAT2 01163000 ATCTRSMS EQU ATCSTAT2 01164000 ATCTRLOK EQU ATCSTAT2 01165000 ATCTRPSS EQU ATCSTAT2 01166000 ATCTRESC EQU ATCSTAT2 01167000 ATCTRAPI EQU ATCSTAT2 01168000 ATCNMCTR EQU ISTATCVT+816 01169000 ATCSEC51 EQU ATCSECST 01170000 ATCSEC40 EQU ATCSIPD+8 01171000 ATCSEC30 EQU ATCSIPD+4 01172000 ATCSEC21 EQU ATCSIPD 01173000 ATCSEC10 EQU ATCSOPD+4 01174000 ATCSEC01 EQU ATCSOPD 01175000 ATCPOIA EQU ATCRNO+1 01176000 @NM00026 EQU ATCRNO 01177000 ATCPODVT EQU ISTATCVT+784 01178000 ATCS49XL EQU ISTATCVT+780 01179000 ATCS49XI EQU ISTATCVT+776 01180000 ATCLCLCT EQU ATCVLCNT+2 01181000 ATCRNCNT EQU ATCVLCNT 01182000 ATCCFEAD EQU ISTATCVT+768 01183000 ATCPTR00 EQU ISTATCVT+736 01184000 ATCRSV10 EQU ISTATCVT+704 01185000 ATCTACB EQU ISTATCVT+700 01186000 ATCVTINM EQU ISTATCVT+696 01187000 ATCTCLIM EQU ISTATCVT+692 01188000 ATCTCLOM EQU ISTATCVT+688 01189000 ATCVTIPB EQU ISTATCVT+656 01190000 ATCTCIPB EQU ISTATCVT+624 01191000 ATCTIPAB EQU ISTATCVT+592 01192000 ATCOCCCB EQU ISTATCVT+588 01193000 ATCOCCOB EQU ISTATCVT+584 01194000 ATCCDLAD EQU ISTATCVT+580 01195000 ATCCCLAD EQU ISTATCVT+576 01196000 ATCDLRPB EQU ISTATCVT+544 01197000 ATCPGPAB EQU ISTATCVT+512 01198000 ATCVPAB1 EQU ISTATCVT+480 01199000 ATCRSV97 EQU ISTATCVT+476 01200000 ATCRDTLK EQU ISTATCVT+472 01201000 ATCVOCLK EQU ISTATCVT+468 01202000 ATCCDFDN EQU ISTATCVT+464 01203000 ATCCDFIN EQU ISTATCVT+460 01204000 ATCDVTLK EQU ISTATCVT+456 01205000 ATCAP36 EQU ISTATCVT+452 01206000 ATCAP35 EQU ISTATCVT+448 01207000 ATCAP33 EQU ISTATCVT+444 01208000 ATCRSV99 EQU ISTATCVT+440 01209000 ATCONFIG EQU ISTATCVT+432 01210000 ATCNODDS EQU ISTATCVT+428 01211000 ATCNODEL EQU ISTATCVT+420 01212000 ATCRSV69 EQU ISTATCVT+416 01213000 ATCAPCR5 EQU ISTATCVT+412 01214000 ATCLDECB EQU ISTATCVT+408 01215000 ATCLDNCS EQU ISTATCVT+404 01216000 ATCCDPTR EQU ISTATCVT+400 01217000 ATCADEL EQU ISTATCVT+396 01218000 ATCTODVT EQU ISTATCVT+392 01219000 ATCDEBCH EQU ISTATCVT+388 01220000 ATCHBSIZ EQU ATCHPGM+2 01221000 ATCHBFNO EQU ATCHPGM 01222000 ATCCRME EQU ISTATCVT+380 01223000 ATCRVCHS EQU ISTATCVT+372 01224000 ATCECTLP EQU ISTATCVT+368 01225000 ATCZDVTB EQU ISTATCVT+364 01226000 ATCECPRT EQU ISTATCVT+360 01227000 ATCVTLOD EQU ISTATCVT+356 01228000 ATCTRPAB EQU ISTATCVT+352 01229000 ATCMSGM EQU ISTATCVT+348 01230000 ATCMSGP EQU ISTATCVT+344 01231000 ATCEPT EQU ISTATCVT+340 01232000 ATCDVT EQU ISTATCVT+336 01233000 ATCTRCPT EQU ISTATCVT+332 01234000 ATCDVLOD EQU ISTATCVT+328 01235000 ATCALERT EQU ISTATCVT+324 01236000 ATCEPA EQU ISTATCVT+320 01237000 ATCSAF EQU ISTATCVT+318 01238000 ATCXRANG EQU ISTATCVT+317 01239000 ATCLAST EQU ATCSHRFG 01240000 ATCSHRTN EQU ISTATCVT+308 01241000 ATCUEP EQU ISTATCVT+304 01242000 ATCOCRT EQU ISTATCVT+300 01243000 ATCCSMA EQU ATCCSMR 01244000 ATCESC02 EQU ISTATCVT+292 01245000 ATCESC01 EQU ISTATCVT+288 01246000 ATCCDFND EQU ISTATCVT+284 01247000 ATCCDDEL EQU ISTATCVT+280 01248000 ATCCDADD EQU ISTATCVT+276 01249000 ATCMNT EQU ISTATCVT+272 01250000 ATCRSV16 EQU ISTATCVT+270 01251000 ATCMAXID EQU ISTATCVT+269 01252000 ATCMSGSP EQU ATCCOM+268 01253000 ATCCIDM EQU ATCCOM+266 01254000 ATCACTRM EQU ATCCOM+264 01255000 ATCNERAP EQU ATCCOM+260 01256000 ATCNESAL EQU ATCCOM+256 01257000 ATCRCC65 EQU ATCCOM+252 01258000 ATCRCC26 EQU ATCCOM+248 01259000 ATCRCC63 EQU ATCCOM+244 01260000 ATCRSV11 EQU ATCCOM+242 01261000 ATCVTMID EQU ATCCOM+240 01262000 ATCAPOST EQU ATCCOM+236 01263000 ATCNERFN EQU ATCCOM+232 01264000 ATCNERNE EQU ATCCOM+228 01265000 ATCNERCV EQU ATCCOM+224 01266000 ATCNERST EQU ATCCOM+220 01267000 ATCDCC61 EQU ATCCOM+216 01268000 ATCDCC60 EQU ATCCOM+212 01269000 ATCSRTDF EQU ATCCOM+208 01270000 ATCSRTAD EQU ATCCOM+204 01271000 ATCFIRA EQU ATCCOM+200 01272000 ATCSMBQ EQU ATCCOM+196 01273000 ATCSMRC EQU ATCCOM+192 01274000 ATCSMRS EQU ATCCOM+188 01275000 ATCSMQU EQU ATCCOM+184 01276000 ATCSMRQ EQU ATCCOM+180 01277000 ATCACDA EQU ATCCOM+176 01278000 ATCSTMA EQU ATCCOM+172 01279000 ATCFRSTR EQU ATCCOM+168 01280000 ATCGTSTR EQU ATCCOM+164 01281000 ATCREADA EQU ATCCOM+160 01282000 ATCALOAD EQU ATCCOM+156 01283000 ATCBLDLA EQU ATCCOM+152 01284000 ATCFBRPH EQU ATCCOM+148 01285000 ATCBFTRC EQU ATCCOM+144 01286000 ATCTPBUF EQU ATCTHTRC 01287000 ATCREMOV EQU ATCCOM+136 01288000 ATCADD EQU ATCCOM+132 01289000 ATCBPDA EQU ATCCOM+128 01290000 ATCDVTPT EQU ATCCOM+124 01291000 ATCFEPT EQU ATCCOM+120 01292000 ATCFDVT EQU ATCCOM+116 01293000 ATCCONFT EQU ATCCOM+112 01294000 ATCPTCHA EQU ATCCOM+108 01295000 ATCAUTHA EQU ATCCOM+104 01296000 ATCACCTA EQU ATCCOM+100 01297000 ATCRDTH EQU ATCCOM+96 01298000 ATCFRSCH EQU ATCCOM+92 01299000 ATCFSB EQU ATCCOM+88 01300000 ATCHLTMS EQU ATCCOM+84 01301000 ATCECPRM EQU ATCCOM+80 01302000 ATCECNET EQU ATCCOM+76 01303000 ATCECOPC EQU ATCCOM+72 01304000 ATCVPARM EQU ATCCOM+68 01305000 ATCECVRQ EQU ATCCOM+64 01306000 ATCECSES EQU ATCCOM+60 01307000 ATCOCHA EQU ATCCOM+56 01308000 ATCDSPLQ EQU ATCCOM+52 01309000 ATCECDSP EQU ATCCOM+48 01310000 ATCVARYQ EQU ATCCOM+44 01311000 ATCECVRY EQU ATCCOM+40 01312000 ATCHALTQ EQU ATCCOM+36 01313000 ATCECHLT EQU ATCCOM+32 01314000 ATCMODQ EQU ATCCOM+28 01315000 ATCECMOD EQU ATCCOM+24 01316000 ATCASCHD EQU ATCCOM+20 01317000 ATCSRT EQU ATCCOM+16 01318000 ATCRDT EQU ATCCOM+12 01319000 ATCDCFRR EQU ATCCOM+8 01320000 ATCAPI EQU ATCCOM+4 01321000 ATCRSV04 EQU ATCSTAT4 01322000 ATCVTTRC EQU ATCSTAT4 01323000 ATCNCSD EQU ATCSTAT4 01324000 ATCMTST EQU ATCSTAT4 01325000 ATCTPRT EQU ATCSTAT4 01326000 ATCPRTAT EQU ATCSTAT4 01327000 @NM00025 EQU ATCPOFLG 01328000 ATCPOUNS EQU ATCPOFLG 01329000 ATCHSDMF EQU ATCSTFLG 01330000 @NM00024 EQU ATCSTAT1 01331000 ATCMDHLT EQU ATCSTAT1 01332000 ATCINHLT EQU ATCSTAT1 01333000 ATCNETSL EQU ATCSTAT1 01334000 ATCQKHLT EQU ATCSTAT1 01335000 ATCSNHLT EQU ATCSTAT1 01336000 ATCACTIV EQU ATCSTAT1 01337000 ATCSTART EQU ATCSTAT1 01338000 RPHNEXPO EQU ISTRPH+104 01339000 RPHSAV16 EQU RPHWORK+60 01340000 RPHSAV15 EQU RPHWORK+56 01341000 RPHSAV14 EQU RPHWORK+52 01342000 RPHSAV13 EQU RPHWORK+48 01343000 RPHSAV12 EQU RPHWORK+44 01344000 RPHSAV11 EQU RPHWORK+40 01345000 RPHSAV10 EQU RPHWORK+36 01346000 RPHSAVE9 EQU RPHWORK+32 01347000 RPHSAVE8 EQU RPHWORK+28 01348000 RPHSAVE7 EQU RPHWORK+24 01349000 RPHSAVE6 EQU RPHWORK+20 01350000 RPHSAVE5 EQU RPHWORK+16 01351000 RPHSAVE4 EQU RPHWORK+12 01352000 RPHSAVE3 EQU RPHWORK+8 01353000 RPHSAVE2 EQU RPHWORK+4 01354000 RPHSHALF EQU RPHSAVE1+2 01355000 RPHSBIT8 EQU RPHSBITS 01356000 RPHSBIT7 EQU RPHSBITS 01357000 RPHSBIT6 EQU RPHSBITS 01358000 RPHSBIT5 EQU RPHSBITS 01359000 RPHSBIT4 EQU RPHSBITS 01360000 RPHSBIT3 EQU RPHSBITS 01361000 RPHSBIT2 EQU RPHSBITS 01362000 RPHSBIT1 EQU RPHSBITS 01363000 RPHSBYTE EQU RPHSAVE1 01364000 RPHPABQP EQU RPHPABQA+1 01365000 RPHPABFG EQU RPHPABQA 01366000 RPHSRP34 EQU RPHSRPRM+2 01367000 RPHSRP12 EQU RPHSRPRM 01368000 RPHWEGT EQU RPHCSPA 01369000 RPHMAJCB EQU ISTRPH+21 01370000 RPHPABOF EQU ISTRPH+20 01371000 RPHRESUM EQU RPHRESMA+1 01372000 RPHRSV01 EQU RPHWPFLG 01373000 RPHPURGE EQU RPHWPFLG 01374000 RPHPT EQU RPHWPFLG 01375000 RPHWT EQU RPHWPFLG 01376000 RPHRSKEY EQU RPHWPFLG 01377000 RPHDVTA EQU ISTRPH+12 01378000 RPHTIK EQU RPHTSKID+3 01379000 @NM00023 EQU RPHTSKID 01380000 RPHRPHAP EQU RPHRPHA+1 01381000 @NM00022 EQU RPHRPHA 01382000 RPHGATE EQU RPHRPHA 01383000 @NM00021 EQU RPHFLGB 01384000 RPHRLCRA EQU RPHFLGB 01385000 RPHNRSAV EQU RPHFLGB 01386000 RPHPGCMP EQU RPHFLGB 01387000 RPHFBAPS EQU RPHFLGB 01388000 RPHBSSP EQU RPHFLGB 01389000 RPHLOCK EQU RPHFLGB 01390000 RPHFNFLG EQU RPHFSTLC 01391000 RPHMLTCP EQU RPHFLAGS 01392000 RPHSMCLR EQU RPHFLAGS 01393000 RPHSMTYP EQU RPHFLAGS 01394000 RPHSMQ EQU RPHFLAGS 01395000 RPHAUTEX EQU RPHAPTYP 01396000 RPHSPGIN EQU RPHFLAGS 01397000 RPHOGIND EQU RPHFLAGS 01398000 RPHLNGTH EQU RPHCNTL+1 01399000 RPHTYPE EQU RPHCNTL 01400000 ZPSZDFQR EQU ISTZPSVT+80 01401000 ZPSZDFPR EQU ISTZPSVT+76 01402000 ZPSZDFXR EQU ISTZPSVT+72 01403000 ZPSZWRD5 EQU ISTZPSVT+68 01404000 ZPSZWRD4 EQU ISTZPSVT+64 01405000 ZPSZDFMB EQU ISTZPSVT+60 01406000 ZPSZDFMF EQU ISTZPSVT+56 01407000 ZPSZDFNB EQU ISTZPSVT+52 01408000 @NM00020 EQU ISTZPSVT+48 01409000 ZPSZDFF0 EQU ISTZPSVT+44 01410000 ZPSZTRTT EQU ISTZPSVT+40 01411000 ZPSZBFOB EQU ISTZPSVT+36 01412000 ZPSZBFMB EQU ISTZPSVT+32 01413000 ZPSZBFZ0 EQU ISTZPSVT+28 01414000 ZPSZBFY0 EQU ISTZPSVT+24 01415000 ZPSZDFI0 EQU ISTZPSVT+20 01416000 ZPSZDFB0 EQU ISTZPSVT+16 01417000 ZPSZDFH0 EQU ISTZPSVT+12 01418000 ZPSZDFD0 EQU ISTZPSVT+8 01419000 ZPSZDFC0 EQU ISTZPSVT+4 01420000 ZPSZDFA0 EQU ISTZPSVT 01421000 FMCFLRSV EQU FMCFLGB 01422000 FMCFLGA8 EQU FMCFLGB 01423000 FMCCLRPH EQU FMCVS1+45 01424000 FMCRSV0X EQU FMCCVFLG 01425000 FMCVYRPH EQU FMCCVFLG 01426000 FMCZV004 EQU FMCVS1+40 01427000 FMCLOCK2 EQU FMCVS1+36 01428000 @NM00019 EQU FMCZFLG2 01429000 FMCZF027 EQU FMCZFLG2 01430000 FMCZF026 EQU FMCZFLG2 01431000 FMCSEQ1B EQU FMCSEQ1 01432000 FMCSEQ1T EQU FMCSEQ1 01433000 FMCZX006 EQU FMCVS1+33 01434000 FMCZX005 EQU FMCVS1+32 01435000 FMCZX004 EQU FMCVS1+31 01436000 FMCZX003 EQU FMCVS1+30 01437000 FMCZX002 EQU FMCVS1+29 01438000 FMCZX001 EQU FMCVS1+28 01439000 FMCZV001 EQU FMCVS1+24 01440000 FMCAWATQ EQU FMCLCPAQ+1 01441000 @NM00018 EQU FMCLCPAQ 01442000 FMCLCPB2 EQU FMCLCPBQ+1 01443000 FMCLCPB1 EQU FMCLCPBQ 01444000 FMCASCDQ EQU FMCSHEAQ+1 01445000 @NM00017 EQU FMCSHEAQ 01446000 FMCSHEDQ EQU FMCVS1+8 01447000 FMCZFCSQ EQU FMCVS1+6 01448000 FMCZH001 EQU FMCVS1+4 01449000 FMCZF025 EQU FMCZFLAG+3 01450000 FMCZF024 EQU FMCZFLAG+3 01451000 FMCZF023 EQU FMCZFLAG+3 01452000 FMCZF022 EQU FMCZFLAG+3 01453000 FMCZF021 EQU FMCZFLAG+3 01454000 FMCZF020 EQU FMCZFLAG+3 01455000 FMCZF019 EQU FMCZFLAG+3 01456000 FMCZF018 EQU FMCZFLAG+3 01457000 FMCZF017 EQU FMCZFLAG+2 01458000 FMCZF016 EQU FMCZFLAG+2 01459000 FMCZF015 EQU FMCZFLAG+2 01460000 FMCZF014 EQU FMCZFLAG+2 01461000 FMCZF013 EQU FMCZFLAG+2 01462000 FMCZF012 EQU FMCZFLAG+2 01463000 FMCZF011 EQU FMCZFLAG+2 01464000 FMCZF010 EQU FMCZFLAG+2 01465000 FMCZF00F EQU FMCZFLAG+1 01466000 FMCZF00E EQU FMCZFLAG+1 01467000 FMCZF00D EQU FMCZFLAG+1 01468000 FMCZF00C EQU FMCZFLAG+1 01469000 FMCZF00B EQU FMCZFLAG+1 01470000 FMCRSV10 EQU FMCZFLAG+1 01471000 FMCZF009 EQU FMCZFLAG+1 01472000 FMCZFD06 EQU FMCZF006+1 01473000 FMCZFC06 EQU FMCZF006 01474000 FMCZFB06 EQU FMCZF006 01475000 FMCZFA06 EQU FMCZF006 01476000 FMCZF005 EQU FMCZFLAG 01477000 FMCZF004 EQU FMCZFLAG 01478000 FMCZF003 EQU FMCZFLAG 01479000 FMCZF002 EQU FMCZFLAG 01480000 FMCZF001 EQU FMCZFLAG 01481000 FMCFRESA EQU ISTFMCB+228 01482000 FMCSCSQN EQU FMCSNCTL+2 01483000 FMCSCCTL EQU FMCSNCTL+1 01484000 FMCSTCTL EQU FMCSCFLG 01485000 FMCSCCLO EQU FMCSCFLG 01486000 FMCAPRO EQU FMCSCFLG 01487000 FMCLURO EQU FMCSCFLG 01488000 FMCOBSAC EQU FMCSCFLG 01489000 FMCIBSAC EQU FMCSCFLG 01490000 FMCFBRE EQU ISTFMCB+220 01491000 FMCFBXM EQU FMCZV002 01492000 FMCASEGQ EQU ISTFMCB+212 01493000 FMCRDTPT EQU ISTFMCB+208 01494000 FMCLOCK EQU ISTFMCB+204 01495000 FMCSEGD EQU FMCSSEGQ 01496000 FMCRSPLM EQU ISTFMCB+198 01497000 FMCPSTRS EQU ISTFMCB+196 01498000 @NM00016 EQU FMCRRESP 01499000 FMCTSLHA EQU FMCRRESP 01500000 FMCFRRN EQU FMCRRESP 01501000 FMCFME EQU FMCRRESP 01502000 FMCFEX EQU FMCRRESP 01503000 FMCFPE EQU FMCRRESP 01504000 FMCCTLB EQU ISTFMCB+194 01505000 FMCBSQNO EQU FMCCLSEQ+2 01506000 FMCTSQNO EQU FMCCLSEQ 01507000 FMCOBPRG EQU FMCMODEB 01508000 FMCIBPRG EQU FMCMODEB 01509000 FMCRESOT EQU FMCMODEB 01510000 FMCRSTSR EQU FMCMODEB 01511000 FMCLUQ EQU FMCMODEB 01512000 FMCAPQ EQU FMCMODEB 01513000 FMCCLEAR EQU FMCMODEB 01514000 FMCHOLD EQU FMCMODEB 01515000 FMCIPSEQ EQU ISTFMCB+188 01516000 FMCLUSTR EQU ISTFMCB+187 01517000 FMCRSV87 EQU FMCSTAT2 01518000 FMCSEQI EQU FMCSTAT2 01519000 FMCCPIP EQU FMCSTAT2 01520000 FMCALIPR EQU FMCSTAT2 01521000 FMCIAIO EQU FMCSTAT2 01522000 FMCZF00A EQU FMCSTAT2 01523000 FMCVPIP EQU FMCSTAT2 01524000 FMCBHSET EQU ISTFMCB+185 01525000 FMCPRMRC EQU FMCCLEXT+20 01526000 FMCRSV89 EQU FMCPSTAT 01527000 FMCPCLSD EQU FMCPSTAT 01528000 FMCDDOCD EQU FMCPSTAT 01529000 FMCIDVFD EQU FMCPSTAT 01530000 FMCELKST EQU FMCPSTAT 01531000 FMCRSV88 EQU FMCPSCMD 01532000 FMCRDBLK EQU FMCPSCMD 01533000 FMCDSEOC EQU FMCPSCMD 01534000 FMCPURGE EQU FMCPSCMD 01535000 FMCRESTI EQU FMCPSCMD 01536000 FMCCNTCT EQU FMCPSCMD 01537000 FMCINVT EQU FMCPSCMD 01538000 FMCFLGB7 EQU FMCFLGCL 01539000 FMCFLGB6 EQU FMCFLGCL 01540000 FMCFLGB5 EQU FMCFLGCL 01541000 FMCFLGB4 EQU FMCFLGCL 01542000 FMCFLGB3 EQU FMCFLGCL 01543000 FMCFLGB2 EQU FMCFLGCL 01544000 FMCFLGB1 EQU FMCFLGCL 01545000 FMCFLGB0 EQU FMCFLGCL 01546000 FMCFLGA7 EQU FMCFLGA 01547000 FMCFLGA6 EQU FMCFLGA 01548000 FMCFLGA5 EQU FMCFLGA 01549000 FMCFLGA4 EQU FMCFLGA 01550000 FMCFLGA3 EQU FMCFLGA 01551000 FMCFLGA2 EQU FMCFLGA 01552000 FMCFLGA1 EQU FMCFLGA 01553000 FMCFLGA0 EQU FMCFLGA 01554000 FMCDCLOK EQU FMCCLEXT+12 01555000 FMCRAFM EQU FMCCLEXT+8 01556000 FMCFBPTR EQU FMCFBA+1 01557000 FMCFBRSV EQU FMCFBA 01558000 FMCRPLPT EQU FMCRPLA+1 01559000 FMCRPLRS EQU FMCRPLA 01560000 FMCPRCLS EQU FMCCVAL 01561000 FMCIBCE EQU FMCCVAL 01562000 FMCONLY EQU FMCOBCE 01563000 FMCLAST EQU FMCOBCE 01564000 FMCMIDLE EQU FMCOBCE 01565000 FMCFIRST EQU FMCOBCE 01566000 FMCCPCNT EQU FMCPACPC 01567000 FMCMPCNT EQU FMCPACEM 01568000 FMCNPCNT EQU FMCPACEN 01569000 FMCCONF EQU FMCSSTAT 01570000 FMCPURCH EQU FMCSSTAT 01571000 FMCNSALU EQU FMCSSTAT 01572000 FMCBIP EQU FMCSSTAT 01573000 FMCSDTR EQU FMCSSTAT 01574000 FMCUIPI EQU FMCSSTAT 01575000 FMCCIPI EQU FMCSSTAT 01576000 FMCSNBI EQU FMCSSTAT 01577000 FMCRVD01 EQU ISTFMCB+158 01578000 FMCISSN EQU ISTFMCB+156 01579000 FMCOASN EQU FMCNXOSC 01580000 FMCOSSN EQU FMCNXCFM 01581000 FMCSIP EQU FMCSIPA 01582000 FMCEXLST EQU ISTFMCB+144 01583000 FMCPAB5 EQU ISTFMCB+128 01584000 FMCPAB4 EQU ISTFMCB+112 01585000 FMCPAB3 EQU ISTFMCB+96 01586000 FMCPAB2 EQU ISTFMCB+80 01587000 FMCPAB1 EQU ISTFMCB+64 01588000 FMCFASYA EQU ISTFMCB+60 01589000 FMCMODE EQU ISTFMCB+52 01590000 FMCPROCD EQU ISTFMCB+48 01591000 FMCVWT EQU ISTFMCB+44 01592000 FMCRPLH EQU ISTFMCB+40 01593000 FMCBUFNB EQU FMCCMPS1+2 01594000 FMCBUFLM EQU FMCCMPS1 01595000 FMCDEBA EQU ISTFMCB+32 01596000 @NM00015 EQU FMCCMDFL 01597000 FMCSNA EQU FMCCMDFL 01598000 FMCVSNA EQU FMCCMDFL 01599000 FMCCMDR EQU FMCCMDFL 01600000 @NM00014 EQU ISTFMCB+30 01601000 @NM00013 EQU FMCSTAT1 01602000 FMCLTCLS EQU FMCSTAT1 01603000 FMCHPURG EQU FMCSTAT1 01604000 FMCVSP2 EQU FMCSTAT1 01605000 FMCVSP1 EQU FMCSTAT 01606000 FMCLTEAS EQU FMCSTAT 01607000 FMCZF007 EQU FMCSTAT 01608000 FMCDEDSC EQU FMCSTAT 01609000 FMCDEVOF EQU FMCSTAT 01610000 FMCDAPT EQU FMCSTAT 01611000 FMCPRMTE EQU FMCSTAT 01612000 FMCPRMTR EQU FMCSTAT 01613000 FMCUSFLD EQU ISTFMCB+24 01614000 FMCFMCBA EQU ISTFMCB+20 01615000 FMCDNCBA EQU ISTFMCB+16 01616000 FMCDVTA EQU ISTFMCB+12 01617000 FMCTSKID EQU ISTFMCB+8 01618000 FMCNXTCB EQU ISTFMCB+4 01619000 FMCSAF EQU ISTFMCB+2 01620000 FMCLNGTH EQU ISTFMCB+1 01621000 FMCTYPE EQU ISTFMCB 01622000 LOKXCL EQU @NM00011 01623000 LOKPRY EQU @NM00011 01624000 @NM00012 EQU @NM00011 01625000 @NM00010 EQU LOKCHNG 01626000 LOKCT EQU ISTLOK 01627000 FSBFDB EQU ISTFSB+32 01628000 FSBRSV01 EQU FSBFSB+30 01629000 FSBTHCNT EQU FSBFSB+28 01630000 FSBRLRSV EQU FSBRLSTS 01631000 FSBCFTX EQU FSBRLSTS 01632000 FSBICNCB EQU FSBMSGID 01633000 FSBSSOC EQU FSBSS2 01634000 FSBSSCC EQU FSBSS2 01635000 FSBSSDC EQU FSBSS2 01636000 FSBSSEC EQU FSBSS2 01637000 FSBSSIR EQU FSBSS2 01638000 FSBSSCR EQU FSBSS2 01639000 @NM00008 EQU FSBSS2 01640000 @NM00007 EQU FSBSS1 01641000 FSBSSDE EQU FSBSS1 01642000 FSBSSUS EQU FSBSS1 01643000 @NM00006 EQU FSBSS1 01644000 FSBSOHI EQU FSBERC 01645000 FSBLGI EQU FSBERC 01646000 FSBLMRI EQU FSBFBMI 01647000 FSBETI EQU FSBERC 01648000 FSBEMI EQU FSBERC 01649000 FSBEBI EQU FSBERC 01650000 FSBECI EQU FSBERC 01651000 FSBELI EQU FSBERC 01652000 FSBMJRCD EQU FSBSRCAT 01653000 FSBXLCI EQU FSBXCODE 01654000 FSBXFINS EQU FSBXCODE 01655000 FSBXNORM EQU FSBXFSTS 01656000 FSBSCODE EQU FSBSYSRS 01657000 FSBSPHSE EQU FSBSYSRS 01658000 FSBSERR EQU FSBSYSRS 01659000 FSBCMD EQU FSBSEQ 01660000 FSBDTRCE EQU FSBFLAGS 01661000 FSBASBTU EQU FSBFLAGS 01662000 FSBINPET EQU FSBFLAGS 01663000 FSBNONCB EQU FSBFLAGS 01664000 FSBLBIND EQU FSBFLAGS 01665000 FSBFFIND EQU FSBFLAGS 01666000 FSBACIND EQU FSBFLAGS 01667000 FSBRFIND EQU FSBFLAGS 01668000 FSBDAF EQU FSBCID+2 01669000 FSBSAF EQU FSBCID 01670000 FSBGATE EQU FSBFSBA 01671000 FSBLATOP EQU FSBSFLGS 01672000 FSBRSV02 EQU FSBSFLGS 01673000 FSBPGBUF EQU FSBSFLGS 01674000 FSBMNSDA EQU FSBMNRCD 01675000 FSBMNOA EQU FSBMNRCD 01676000 FSBMNDIF EQU FSBMNRCD 01677000 FSBMNEOP EQU FSBMNRCD 01678000 FSBMNDNU EQU FSBMNRCD 01679000 FSBMNATN EQU FSBMNRCD 01680000 FSBMNRVI EQU FSBMNRCD 01681000 FSBMNELI EQU FSBMNRCD 01682000 FSBLNGTH EQU FSBFSB+1 01683000 FSBTYPE EQU FSBFSB 01684000 FDBOFSET EQU ISTFDB+10 01685000 FDBDATCT EQU ISTFDB+8 01686000 FDBDATAA EQU ISTFDB+4 01687000 FDBFDBA EQU ISTFDB 01688000 ZCRRU EQU ZCRRHRU+3 01689000 ZCRRH EQU ZCRRHRU 01690000 ZCRWORDA EQU ISTZCRR+477 01691000 ZCRCMNRC EQU ISTZCRR+476 01692000 ZCRRSV97 EQU ZCRENTER+18 01693000 ZCREIC2B EQU ZCRENTER+18 01694000 ZCREAC2B EQU ZCRENTER+18 01695000 ZCRELCAB EQU ZCRENTER+18 01696000 ZCREDCMF EQU ZCRENTER+18 01697000 ZCREBCIF EQU ZCRENTER+18 01698000 ZCREICSG EQU ZCRENTER+18 01699000 ZCREDCK0 EQU ZCRENTER+18 01700000 ZCRECFY0 EQU ZCRENTER+17 01701000 ZCREKCCB EQU ZCRENTER+17 01702000 ZCREDCNB EQU ZCRENTER+17 01703000 ZCREICOE EQU ZCRENTER+17 01704000 ZCREBCNB EQU ZCRENTER+17 01705000 ZCREBC0L EQU ZCRENTER+17 01706000 ZCREBCAL EQU ZCRENTER+17 01707000 ZCREDCQR EQU ZCRENTER+17 01708000 ZCREDCPR EQU ZCRENTER+16 01709000 ZCREBCSB EQU ZCRENTER+16 01710000 ZCREAC1R EQU ZCRENTER+16 01711000 ZCRECCCI EQU ZCRENTER+16 01712000 ZCRECCAI EQU ZCRENTER+16 01713000 ZCRECCBI EQU ZCRENTER+16 01714000 ZCREBCAR EQU ZCRENTER+16 01715000 ZCREBCDR EQU ZCRENTER+16 01716000 ZCREBCBR EQU ZCRENTER+15 01717000 ZCREDCXR EQU ZCRENTER+15 01718000 ZCREDCWB EQU ZCRENTER+15 01719000 ZCREDCWR EQU ZCRENTER+15 01720000 ZCREKCCN EQU ZCRENTER+15 01721000 ZCREKCBN EQU ZCRENTER+15 01722000 ZCREKCBB EQU ZCRENTER+15 01723000 ZCREJC0B EQU ZCRENTER+15 01724000 ZCREJCDB EQU ZCRENTER+14 01725000 ZCREJCCB EQU ZCRENTER+14 01726000 ZCREJCBB EQU ZCRENTER+14 01727000 ZCREJCAB EQU ZCRENTER+14 01728000 ZCREIC1B EQU ZCRENTER+14 01729000 ZCREIC0B EQU ZCRENTER+14 01730000 ZCREICX0 EQU ZCRENTER+14 01731000 ZCREICWB EQU ZCRENTER+14 01732000 ZCREICVB EQU ZCRENTER+13 01733000 ZCREICUB EQU ZCRENTER+13 01734000 ZCREICTB EQU ZCRENTER+13 01735000 ZCREICSC EQU ZCRENTER+13 01736000 ZCREICSB EQU ZCRENTER+13 01737000 ZCREICRB EQU ZCRENTER+13 01738000 ZCREICQB EQU ZCRENTER+13 01739000 ZCREICQA EQU ZCRENTER+13 01740000 ZCREICOB EQU ZCRENTER+12 01741000 ZCREICOA EQU ZCRENTER+12 01742000 ZCREICNB EQU ZCRENTER+12 01743000 ZCREICNA EQU ZCRENTER+12 01744000 ZCREICMB EQU ZCRENTER+12 01745000 ZCREICLB EQU ZCRENTER+12 01746000 ZCREICKG EQU ZCRENTER+12 01747000 ZCREICKE EQU ZCRENTER+12 01748000 ZCREICKB EQU ZCRENTER+11 01749000 ZCREICJB EQU ZCRENTER+11 01750000 ZCREICID EQU ZCRENTER+11 01751000 ZCREICIB EQU ZCRENTER+11 01752000 ZCREICHB EQU ZCRENTER+11 01753000 ZCREICGB EQU ZCRENTER+11 01754000 ZCREICEB EQU ZCRENTER+11 01755000 ZCREICDB EQU ZCRENTER+11 01756000 ZCREICCI EQU ZCRENTER+10 01757000 ZCREICCB EQU ZCRENTER+10 01758000 ZCREICBI EQU ZCRENTER+10 01759000 ZCREICBB EQU ZCRENTER+10 01760000 ZCREICAB EQU ZCRENTER+10 01761000 ZCREICAA EQU ZCRENTER+10 01762000 ZCREHCAN EQU ZCRENTER+10 01763000 ZCREGC0B EQU ZCRENTER+10 01764000 ZCREGC0A EQU ZCRENTER+9 01765000 ZCREGCLA EQU ZCRENTER+9 01766000 ZCREGCEB EQU ZCRENTER+9 01767000 ZCREGCDB EQU ZCRENTER+9 01768000 @NM00005 EQU ZCRENTER+9 01769000 ZCREGCBB EQU ZCRENTER+9 01770000 ZCREGCAB EQU ZCRENTER+9 01771000 ZCREFCEB EQU ZCRENTER+9 01772000 ZCREFCEA EQU ZCRENTER+8 01773000 ZCREECTA EQU ZCRENTER+8 01774000 ZCREECEA EQU ZCRENTER+8 01775000 ZCREECDA EQU ZCRENTER+8 01776000 ZCREECCB EQU ZCRENTER+8 01777000 ZCREECCA EQU ZCRENTER+8 01778000 ZCREECBB EQU ZCRENTER+8 01779000 ZCREECBA EQU ZCRENTER+8 01780000 ZCREDCMB EQU ZCRENTER+7 01781000 ZCREDCL0 EQU ZCRENTER+7 01782000 ZCREDCKB EQU ZCRENTER+7 01783000 ZCREDCKA EQU ZCRENTER+7 01784000 ZCREDCJ0 EQU ZCRENTER+7 01785000 ZCREDCI0 EQU ZCRENTER+7 01786000 ZCREDCH0 EQU ZCRENTER+7 01787000 ZCREDCF0 EQU ZCRENTER+7 01788000 ZCREDCE0 EQU ZCRENTER+6 01789000 ZCREDCD0 EQU ZCRENTER+6 01790000 ZCREDCC0 EQU ZCRENTER+6 01791000 ZCREDCB0 EQU ZCRENTER+6 01792000 ZCREDCA0 EQU ZCRENTER+6 01793000 ZCRECC2B EQU ZCRENTER+6 01794000 ZCRECC1B EQU ZCRENTER+6 01795000 ZCRECC1A EQU ZCRENTER+6 01796000 ZCRECC0B EQU ZCRENTER+5 01797000 ZCRECC0A EQU ZCRENTER+5 01798000 ZCREBC0B EQU ZCRENTER+5 01799000 ZCREBC0A EQU ZCRENTER+5 01800000 ZCREBCZ0 EQU ZCRENTER+5 01801000 ZCREBCY0 EQU ZCRENTER+5 01802000 ZCREBCX0 EQU ZCRENTER+5 01803000 ZCREBCXA EQU ZCRENTER+5 01804000 ZCREBCSC EQU ZCRENTER+4 01805000 ZCREBCRB EQU ZCRENTER+4 01806000 ZCREBCRA EQU ZCRENTER+4 01807000 ZCREBCQB EQU ZCRENTER+4 01808000 ZCREBCPB EQU ZCRENTER+4 01809000 ZCREBCOB EQU ZCRENTER+4 01810000 ZCREBCNE EQU ZCRENTER+4 01811000 ZCREBCND EQU ZCRENTER+4 01812000 ZCREBCLB EQU ZCRENTER+3 01813000 ZCREBCLA EQU ZCRENTER+3 01814000 ZCREBCKB EQU ZCRENTER+3 01815000 ZCREBCKA EQU ZCRENTER+3 01816000 ZCREBCJB EQU ZCRENTER+3 01817000 ZCREBCJA EQU ZCRENTER+3 01818000 ZCREBCID EQU ZCRENTER+3 01819000 ZCREBCIB EQU ZCRENTER+2 01820000 ZCREBCIA EQU ZCRENTER+2 01821000 ZCREBCHB EQU ZCRENTER+2 01822000 ZCREBCHA EQU ZCRENTER+2 01823000 ZCREBCGB EQU ZCRENTER+2 01824000 ZCREBCGA EQU ZCRENTER+2 01825000 ZCREBCFB EQU ZCRENTER+2 01826000 ZCREBCFA EQU ZCRENTER+2 01827000 ZCREBCEB EQU ZCRENTER+1 01828000 ZCREBCDI EQU ZCRENTER+1 01829000 ZCREBCCB EQU ZCRENTER+1 01830000 ZCREBCBI EQU ZCRENTER+1 01831000 ZCREBCBB EQU ZCRENTER+1 01832000 ZCREBCBA EQU ZCRENTER+1 01833000 ZCREBCAM EQU ZCRENTER+1 01834000 ZCREBCAI EQU ZCRENTER+1 01835000 ZCREBCAG EQU ZCRENTER 01836000 ZCREBCAE EQU ZCRENTER 01837000 ZCREBCAB EQU ZCRENTER 01838000 ZCREBCAA EQU ZCRENTER 01839000 ZCREAC1B EQU ZCRENTER 01840000 ZCREAC0B EQU ZCRENTER 01841000 ZCREAC0A EQU ZCRENTER 01842000 ZCREAC1A EQU ZCRENTER 01843000 ZCRTNAME EQU ZCRAUDIT+1 01844000 ZCRTID EQU ZCRAUDIT 01845000 ZCRREMIC EQU ISTZCRR+436 01846000 ZCRSAVEZ EQU ISTZCRR+196 01847000 ZCRDAFSV EQU ZCRCIDSV+2 01848000 ZCRSAFSV EQU ZCRCIDSV 01849000 ZCRR13SV EQU ISTZCRR+188 01850000 ZCRR2SV EQU ISTZCRR+184 01851000 ZCROPCDE EQU ISTZCRR+183 01852000 ZCRPRMTC EQU ISTZCRR+182 01853000 ZCRRCDSV EQU ISTZCRR+181 01854000 ZCRAWQSW EQU ISTZCRR+180 01855000 ZCRTOPQ EQU ISTZCRR+180 01856000 ZCRLSTFB EQU ISTZCRR+180 01857000 ZCRXSCHD EQU ISTZCRR+180 01858000 ZCRNXTEL EQU ISTZCRR+180 01859000 ZCRSCANQ EQU ISTZCRR+180 01860000 ZCRMOREL EQU ISTZCRR+180 01861000 ZCRFBPRC EQU ISTZCRR+180 01862000 ZCRFSBSV EQU ISTZCRR+176 01863000 ZCRSVWK5 EQU ZCRWKARA+16 01864000 ZCRSVWK4 EQU ZCRWKARA+12 01865000 ZCRSVWK3 EQU ZCRWKARA+8 01866000 ZCRSVWK2 EQU ZCRWKARA+4 01867000 ZCRSVWK1 EQU ZCRWKARA 01868000 ZCRSVF25 EQU ZCRSVRTN+96 01869000 ZCRSVF24 EQU ZCRSVRTN+92 01870000 ZCRSVF23 EQU ZCRSVRTN+88 01871000 ZCRSVF22 EQU ZCRSVRTN+84 01872000 ZCRSVF21 EQU ZCRSVRTN+80 01873000 ZCRSVF20 EQU ZCRSVRTN+76 01874000 ZCRSVF19 EQU ZCRSVRTN+72 01875000 ZCRSVF18 EQU ZCRSVRTN+68 01876000 ZCRSVF17 EQU ZCRSVRTN+64 01877000 ZCRSVF16 EQU ZCRSVRTN+60 01878000 ZCRSVF15 EQU ZCRSVRTN+56 01879000 ZCRSVF14 EQU ZCRSVRTN+52 01880000 ZCRSVF13 EQU ZCRSVRTN+48 01881000 ZCRSVF12 EQU ZCRSVRTN+44 01882000 ZCRSVF11 EQU ZCRSVRTN+40 01883000 ZCRSVF10 EQU ZCRSVRTN+36 01884000 ZCRSVF9 EQU ZCRSVRTN+32 01885000 ZCRSVF8 EQU ZCRSVRTN+28 01886000 ZCRSVF7 EQU ZCRSVRTN+24 01887000 ZCRSVF6 EQU ZCRSVRTN+20 01888000 ZCRSVF5 EQU ZCRSVRTN+16 01889000 ZCRSVF4 EQU ZCRSVRTN+12 01890000 ZCRSVF2 EQU ZCRSVRTN+4 01891000 ZCRSVF1 EQU ZCRSVRTN 01892000 ZCRPVZB EQU ISTZCRR+52 01893000 ZCRZLB EQU ISTZCRR+48 01894000 ZCRBFPTR EQU ISTZCRR+44 01895000 ZCRCCWA EQU ISTZCRR+40 01896000 ZCRPSW EQU ZCRPARMS+15 01897000 ZCRPCHAR EQU ZCRPARMS+14 01898000 ZCRPRES2 EQU ZCRPCOD2 01899000 ZCRPMFGF EQU ZCRPCOD2 01900000 ZCRPFHDR EQU ZCRPCOD2 01901000 ZCRPPG2 EQU ZCRPCOD2 01902000 ZCRPRES EQU ZCRPCOD1 01903000 ZCRPCFTX EQU ZCRPCOD1 01904000 ZCRPBUF EQU ZCRPCOD1 01905000 ZCRPLSCB EQU ZCRPCOD1 01906000 ZCRPLSBQ EQU ZCRPLSBF 01907000 ZCRPFSB EQU ZCRPCOD1 01908000 ZCRPLNG EQU ZCRPCOD1 01909000 ZCRPPG EQU ZCRPCOD1 01910000 ZCRDTODA EQU ZCRDFRDA 01911000 ZCRMLNG EQU ZCRPARMS+8 01912000 ZCRTBPTR EQU ZCRPARMS+4 01913000 ZCRCBPTR EQU ZCRFBPTR 01914000 @NM00004 EQU ZCRSCPSW 01915000 ZCRSKIPT EQU ZCRSCPSW 01916000 ZCRFSBWE EQU ZCRSCPSW 01917000 ZCRPRCMP EQU ZCRSCPSW 01918000 ZCRLREQ EQU ZCRSCPSW 01919000 ZCRRJLCP EQU ZCRSCPSW 01920000 ZCRTPINV EQU ZCRSCPSW 01921000 ZCRTPEX EQU ZCRSCPSW 01922000 @NM00003 EQU ZCRIBPR 01923000 ZCR3270 EQU ZCRIBPR 01924000 ZCRLCPFD EQU ZCRIBPR 01925000 ZCRLCPFR EQU ZCRIBPR 01926000 ZCRRELK EQU ZCRIBPR 01927000 ZCRERR EQU ZCRIBPR 01928000 ZCRNOBUF EQU ZCRIBPR 01929000 @NM00002 EQU ZCRPFLGS 01930000 ZCRQAHED EQU ZCRPFLGS 01931000 ZCRF1RES EQU ZCRGENSW 01932000 ZCRBRIS EQU ZCRGENSW 01933000 ZCRCLRBD EQU ZCRGENSW 01934000 ZCREXRES EQU ZCRGENSW 01935000 ZCRRT06 EQU ZCRGENSW 01936000 ZCRTSW2 EQU ZCRGENSW 01937000 ZCRTSW1 EQU ZCRGENSW 01938000 ZCRINLCP EQU ZCRFLGS3 01939000 ZCRWRPTR EQU ZCRFLGS3 01940000 ZCRNOFRE EQU ZCRFLGS3 01941000 ZCREDRIV EQU ZCRFLGS3 01942000 ZCRDISC EQU ZCRFLGS3 01943000 ZCRTPDIS EQU ZCRFLGS3 01944000 ZCRTPCON EQU ZCRFLGS3 01945000 ZCRTIC EQU ZCRFLGS3 01946000 ZCRCNLXL EQU ZCRRESET 01947000 ZCRENDXL EQU ZCRSWFLD 01948000 ZCRENDX EQU ZCRSWFLD 01949000 ZCROB1 EQU ZCRNDLCP 01950000 ZCRENDPR EQU ZCRSWFLD 01951000 ZCREXTYP EQU ZCRSWFLD 01952000 ZCRSLCP EQU ZCRENDSH 01953000 ZCRIF0E3 EQU ZCRFLGS2 01954000 ZCRIF0E2 EQU ZCRFLGS2 01955000 ZCRIF0E1 EQU ZCRFLGS2 01956000 ZCROB EQU ZCRFLGS2 01957000 ZCRFMSED EQU ZCRFLGS2 01958000 ZCRSHEDI EQU ZCRFLGS2 01959000 ZCRLOCAL EQU ZCRFLGS2 01960000 ZCRFEXIT EQU ZCRFLGS1 01961000 ZCRUNSOL EQU ZCRFLGS1 01962000 ZCRENDLP EQU ZCRFLGS1 01963000 ZCRNRMEX EQU ZCRFLGS1 01964000 ZCRWAIT EQU ZCRFLGS1 01965000 ZCRDEQSW EQU ZCRFLGS1 01966000 ZCRQUESW EQU ZCRFLGS1 01967000 ZCREXSW EQU ZCRFLGS1 01968000 ZCRFRRA EQU ISTZCRR+8 01969000 ZCRCHAIN EQU ISTZCRR+4 01970000 ZCRFLAG EQU ZCRCRR+3 01971000 ZCRLEN EQU ZCRCRR+1 01972000 ZCRID EQU ZCRCRR 01973000 LCPFTYPE EQU LCPRPHA 01974000 LCPRSTQH EQU LCPLCCW 01975000 LCPCLREP EQU ISTLCPB+44 01976000 LCPUBFSB EQU LCPFLCCW 01977000 LCPRSV77 EQU ISTLCPB+39 01978000 LCPRSV78 EQU LCPFLG1 01979000 LCPTRANS EQU LCPFLG1 01980000 LCPSTLB EQU LCPFLG1 01981000 LCPREDRV EQU LCPFLG1 01982000 LCPDIRPT EQU LCPFLG1 01983000 LCPINTER EQU LCPFLG1 01984000 LCPRESET EQU LCPFLG1 01985000 LCPSTYPE EQU ISTLCPB+36 01986000 LCPFSNCH EQU ISTLCPB+34 01987000 LCPFOSN EQU ISTLCPB+32 01988000 LCPTLBAD EQU ISTLCPB+28 01989000 LCPFDB2 EQU LCPFDBA+1 01990000 LCPFDB1 EQU LCPFDBA 01991000 LCPDAF EQU LCPCID+2 01992000 LCPSAF EQU LCPCID 01993000 LCPLCCW1 EQU ISTLCPB+12 01994000 LCPRRCNT EQU LCPSEQ+1 01995000 LCPRRCCT EQU LCPSEQ 01996000 LCPATOP EQU LCPFLAG2 01997000 LCPFREE EQU LCPFLAG2 01998000 LCPDSTAT EQU LCPFLAG2 01999000 LCPEXRES EQU LCPFID0 02000000 LCPZRIMM EQU LCPTLBPI 02001000 LCPRSTRT EQU LCPFLAG2 02002000 LCPASYN EQU LCPFLAG2 02003000 LCPPRFLG EQU LCPFLAG2 02004000 LCPZMIRC EQU LCPRUCNT 02005000 LCPCHAI2 EQU LCPCHAIN+1 02006000 LCPCHNG EQU LCPCHAI1 02007000 LCPZRT0B EQU LCPMNRCD 02008000 LCPZRT0A EQU LCPMNRCD 02009000 LCPZRTL9 EQU LCPZRT09 02010000 LCPZRTL8 EQU LCPZRT08 02011000 LCPZRTL7 EQU LCPZRT07 02012000 LCPZRTL6 EQU LCPZRT06 02013000 LCPZRTL5 EQU LCPZRT05 02014000 LCPZRTL4 EQU LCPZRT04 02015000 LCPZRTL3 EQU LCPZRT03 02016000 LCPZRTL2 EQU LCPZRT02 02017000 LCPLNGTH EQU ISTLCPB+1 02018000 LCPTYPE EQU ISTLCPB 02019000 LCCWACI EQU LCCWFLAG 02020000 LCCWRFI EQU LCCWFLAG 02021000 LCCWPER EQU LCCWLSI 02022000 LCCWIDAT EQU LCCWFLAG 02023000 LCCWNTVC EQU LCCWFLAG 02024000 LCCWCKPT EQU LCCWFLAG 02025000 LCCWMODE EQU LCCWCTL 02026000 LCCWSOP EQU LCCWRWOP 02027000 @NM00001 EQU LCCWRWOP 02028000 LCCWSD EQU LCCWOP 02029000 LCCWSI EQU LCCWOP 02030000 DYPPAB EQU ISTDYPAB+16 02031000 DYPRSV01 EQU ISTDYPAB+12 02032000 DYPTSKID EQU ISTDYPAB+8 02033000 DYPCHAIN EQU ISTDYPAB+4 02034000 DYPFLGS EQU ISTDYPAB+2 02035000 DYPLNGTH EQU ISTDYPAB+1 02036000 DYPTYPE EQU ISTDYPAB 02037000 PABRPHA EQU PABRPHFG+1 02038000 PABNODQ EQU PABFLAGS 02039000 PABINHBT EQU PABFLAGS 02040000 PABERLOK EQU PABERRLK 02041000 PABSSN EQU PABFLAGS 02042000 PABDYNAM EQU PABFLAGS 02043000 PABNORPR EQU PABFLAGS 02044000 PABPRIOR EQU PABFLAGS 02045000 PABAPYP EQU PABFLAGS 02046000 PABDVTA EQU ISTPAB+9 02047000 PABOFFST EQU ISTPAB+8 02048000 PABCHNGP EQU PABCHAIN+1 02049000 PABRSV02 EQU PABCHAIN 02050000 PABDELAY EQU PABCHAIN 02051000 PABRUNNG EQU PABCHAIN 02052000 PABRESET EQU PABCHAIN 02053000 PABUNCON EQU PABCHAIN 02054000 PABCDP EQU PABCHAIN 02055000 PABRESCH EQU PABCHAIN 02056000 PABCHNG EQU PABCHAIN 02057000 PABWEQP EQU PABWEQA+1 02058000 PABRSV01 EQU PABWEQA 02059000 PABWEQG EQU PABWEQA 02060000 DEVRSV03 EQU ISTDEVCH+5 02061000 DEVPHYSA EQU ISTDEVCH+4 02062000 DEVCSLPN EQU DEVCHAR3 02063000 DEVCSTCL EQU DEVCHAR3 02064000 DEVCCHEK EQU DEVCHAR3 02065000 DEVCATTN EQU DEVCHAR3 02066000 DEVCSWL EQU DEVFCCTL 02067000 DEVCRVB EQU DEVFCCTL 02068000 DEVCSSL EQU DEVFCCTL 02069000 DEVCBSC EQU DEVFCCTL 02070000 DEVMCODE EQU ISTDEVCH+2 02071000 DEVCHAR2 EQU DEVTCODE 02072000 DEVRSV01 EQU DEVCHAR 02073000 DEVCCTL EQU DEVCHAR 02074000 DEVNNSPT EQU DEVCHAR 02075000 DEVSPS EQU DEVCHAR 02076000 DEVSUBND EQU DEVCHAR 02077000 DEVCONVR EQU DEVCHAR 02078000 DEVOTPUT EQU DEVCHAR 02079000 DEVINPUT EQU DEVCHAR 02080000 PROSRDEF EQU PROSETM4 02081000 PRORSV47 EQU PROSETM4 02082000 PROSCON EQU PROSETM4 02083000 PRORSV46 EQU PROSETM3 02084000 PROSMONT EQU PROSETM3 02085000 PRORSV45 EQU PROSETM3 02086000 PROSNTO EQU PROSETM3 02087000 PRORSV44 EQU PROSETM3 02088000 PRORSV43 EQU PROSETM2 02089000 PROSNTFL EQU PROSETM2 02090000 PRORSV42 EQU PROSETM2 02091000 PRORSV41 EQU PROPROCS 02092000 PROMODC EQU PROPROC4 02093000 PROMODT EQU PROPROC4 02094000 PROMODM EQU PROPROC4 02095000 PROMODB EQU PROPROC4 02096000 PRORSV14 EQU PROPROC4 02097000 PRORSV13 EQU PROPROC4 02098000 PRORSV12 EQU PROPROC4 02099000 PROEIB EQU PROPROC4 02100000 PROMONT3 EQU PROPROC3 02101000 PROMONT2 EQU PROPROC3 02102000 PROMONIT EQU PROPROC3 02103000 PROSUBLK EQU PROPROC3 02104000 PRONTO EQU PROPROC3 02105000 PROLGIN EQU PROPROC3 02106000 PROERPI EQU PROPROC3 02107000 PRORSV07 EQU PROPROC3 02108000 PROCFTX EQU PROPROC2 02109000 PROEMLC EQU PROPROC2 02110000 PRONTFL EQU PROPROC2 02111000 PRORSV05 EQU PROPROC2 02112000 PRORSV04 EQU PROPROC2 02113000 PROLGOT EQU PROPROC2 02114000 PROERPO EQU PROPROC2 02115000 PRORSV03 EQU PROPROC2 02116000 PRORPLC EQU PROPROC1 02117000 PROCS EQU PROPROC1 02118000 PROCA EQU PROPROC1 02119000 PRORESPX EQU PROPROC1 02120000 PRODFASY EQU PROPROC1 02121000 PROXPOPT EQU PROPROC1 02122000 PROTRUNC EQU PROPROC1 02123000 PROASYIP EQU PROPROC1 02124000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02125000 @ENDDATA EQU * 02126000 END ISTZBFMB,(C'PLS1901',0603,77349) 02127000