TITLE 'ISTZIFBB/ABB-VS1/MBB-VS2 - INPUT ERROR ANALYSIS *00001000 ' 00002000 ISTZIFBB CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTZIFBB 78.173' 0001 00008000 DROP @15 00009000 @PROLOG DS 0H 0002 00010000 * 0358 00011000 * /*****************************************************************/ 00012000 * /* */ 00013000 * /* SAVE REGISTERS AND ESTABLISH MODULE BASE */ 00014000 * /* */ 00015000 * /*****************************************************************/ 00016000 * 0358 00017000 */* TPZSAVE (7,12,14) BASE AC(ICBB) */ 00018000 * 0358 00019000 * DO; 0358 00020000 * DCL 0359 00021000 * GPR01F FIXED(31) REG(01); 0359 00022000 * DCL 0360 00023000 * GPR01P PTR(31) REG(01); 0360 00024000 * DCL 0361 00025000 * GPR12F FIXED(31) REG(12); 0361 00026000 * DCL 0362 00027000 * GPR12P PTR(31) REG(12); 0362 00028000 * DCL 0363 00029000 * GPR13F FIXED(31) REG(13); 0363 00030000 * DCL 0364 00031000 * GPR13P PTR(31) REG(13); 0364 00032000 * DCL 0365 00033000 * GPR14F FIXED(31) REG(14); 0365 00034000 * DCL 0366 00035000 * GPR14P PTR(31) REG(14); 0366 00036000 * RFY 0367 00037000 * (GPR01P, 0367 00038000 * GPR12P, 0367 00039000 * GPR13P, 0367 00040000 * GPR14P) RSTD; 0367 00041000 * GEN(PRINT OFF); 0368 00042000 * 0368 00043000 PRINT OFF 00044000 */* ATBUILD (ISTZSAVE) */ 00045000 */* END OF ATBUILD */ 00046000 * 0369 00047000 * GEN(PRINT ON); 0369 00048000 PRINT ON 00049000 * RFY 0370 00050000 * ISTZSAVE BASED(GPR13P); 0370 00051000 * GEN SETS(ZSAZSVVR)(STM 7,12,ZSAZSVVR+0(13)); 0371 00052000 STM 7,12,ZSAZSVVR+0(13) 00053000 * GEN SETS(GPR12P); 0372 00054000 BALR GPR12P,0 00055000 @TSTART DS 0H 00056000 USING @TSTART,GPR12P 00057000 * GEN(PRINT OFF); 0373 00058000 * 0373 00059000 PRINT OFF 00060000 */* ATBUILD (ISTZCRR,ISTRPH,ISTCRA) EJECT(NO) */ 00061000 */* END OF ATBUILD */ 00062000 * 0374 00063000 * GEN(PRINT ON); 0374 00064000 PRINT ON 00065000 * GPR01P->RPHCRR->CRACRR->ZCREICBB='1'B; 0375 00066000 L @15,RPHCRR(,GPR01P) 0375 00067000 L @15,CRACRR(,@15) 0375 00068000 OI ZCREICBB(@15),B'00001000' 0375 00069000 * ZSAZACTV='1'B; 0376 00070000 OI ZSAZACTV(GPR13P),B'10000000' 0376 00071000 * ZSAZTRAC='ICBB'; 0377 00072000 MVC ZSAZTRAC(4,GPR13P),@CC03019 0377 00073000 * ZSAZSVRR=GPR14P; 0378 00074000 ST GPR14P,ZSAZSVRR(,GPR13P) 0378 00075000 * GPR13P=ZSAZSVFC; 0379 00076000 L GPR13P,ZSAZSVFC(,GPR13P) 0379 00077000 * RFY 0380 00078000 * (GPR01P) UNRSTD; 0380 00079000 * RFY 0381 00080000 * (GPR14P) UNRSTD; 0381 00081000 * END; 0382 00082000 * 0382 00083000 */* END TPZSAVE */ 00084000 * 0383 00085000 * ADDR(FMCPAB3)->PABERLOK=ON; /* SET OUTBOUND PAB ERROR LOCK */ 00086000 OI PABERLOK+96(FMCBREG),B'00000100' 0383 00087000 * DNCZF001=ON; /* SET DEVICE ERROR LOCK */ 00088000 OI DNCZF001(DNCBREG),B'10000000' 0384 00089000 * FSBECI=ON; /* END OF COMMAND @XL03HEN*/ 00090000 LA @09,16 0385 00091000 ALR @09,BFRREG 0385 00092000 OI FSBECI(@09),B'01000000' 0385 00093000 * IF ELEMREG^=0 /* WAITQ ELEMENT ? @ZA32515*/ 00094000 * &LSCTYPE=LSTYPE THEN /* WAIT Q ELEMENT AN LSCB? */ 00095000 LTR ELEMREG,ELEMREG 0386 00096000 BZ @RF00386 0386 00097000 CLI LSCTYPE(ELEMREG),X'DF' 0386 00098000 BNE @RF00386 0386 00099000 * IF LSCLCCWA->LCCWCC^=ON THEN 0387 00100000 L @15,LSCLCCWA(,ELEMREG) 0387 00101000 TM LCCWCC(@15),B'01000000' 0387 00102000 BO @RF00387 0387 00103000 * FSBELI=ON; /* END OF LCP IF NOT CHAINED */ 00104000 OI FSBELI(@09),B'10000000' 0388 00105000 * ELSE 0389 00106000 * ; 0389 00107000 @RF00387 DS 0H 0390 00108000 * ELSE 0390 00109000 * FSBELI=ON; /* END OF LCP IF ELEMNT WAS LCPB 00110000 * @XL03HEN*/ 00111000 B @RC00386 0390 00112000 @RF00386 OI FSBELI+16(BFRREG),B'10000000' 0390 00113000 * RCVTREG=ADDR(FMCPAB4)->PABDVTA; /* INITIALIZE RCVT PTR */ 00114000 * 0391 00115000 @RC00386 L RCVTREG,PABDVTA+111(,FMCBREG) 0391 00116000 LA RCVTREG,0(,RCVTREG) 0391 00117000 * /*****************************************************************/ 00118000 * /* */ 00119000 * /* IF SESSION INITIATION ERROR, DECREMENT APPLICATION SESSION */ 00120000 * /* COUNT AND SET OFF SESSION/DIALOGUE STATUS FLAGS. IF NOT, SET */ 00121000 * /* ON SESSION/DIALOGUE FLAGS. */ 00122000 * /* */ 00123000 * /*****************************************************************/ 00124000 * 0392 00125000 * IF BDUCOMND=BCMDI| /* IF INVITE COMND OR@XM09531 */ 00126000 * (BDUCOMND=BCMDW& /* WRITE COMND AND */ 00127000 * BDUMODIF=BMODWCR) THEN /* WRITE WITH CONTACT AND */ 00128000 LA @09,62 0392 00129000 ALR @09,BFRREG 0392 00130000 CLI BDUCOMND(@09),X'05' 0392 00131000 BE @RT00392 0392 00132000 CLI BDUCOMND(@09),X'02' 0392 00133000 BNE @RF00392 0392 00134000 CLI BDUMODIF(@09),X'0E' 0392 00135000 BNE @RF00392 0392 00136000 @RT00392 DS 0H 0393 00137000 * DO; /* READ MODIFIER @XM09531*/ 00138000 * IF FSBSCODE=NCPSSNS /* SESSION INIT ERROR */ 00139000 */* REMOVED TEST FOR FIRST STATUS AND FINAL STATUS @XM02349*/ 00140000 * 0394 00141000 * THEN /* @XM02349*/ 00142000 TM FSBSCODE+16(BFRREG),B'00001001' 0394 00143000 BNO @RF00394 0394 00144000 TM FSBSCODE+16(BFRREG),B'00010110' 0394 00145000 BNZ @RF00394 0394 00146000 * DO; 0395 00147000 * FMCZX001=FMCZX001-1; /* DECREMENT APPLICATION SESSION 00148000 * COUNT */ 00149000 SLR @09,@09 0396 00150000 IC @09,FMCZX001(,FMCBREG) 0396 00151000 BCTR @09,0 0396 00152000 STC @09,FMCZX001(,FMCBREG) 0396 00153000 * IF NCBNSNA->NCBTYPE=DNTYPE&/* IF MULTI-COMPONENT DEVICE 00154000 * AND @OZ06597*/ 00155000 * NCBNSNA->DNCZX003>0 THEN/* SESSION CNT>0 @OZ06597*/ 00156000 L @09,NCBNSNA(,DNCBREG) 0397 00157000 CLI NCBTYPE(@09),X'05' 0397 00158000 BNE @RF00397 0397 00159000 CLI DNCZX003(@09),0 0397 00160000 BNH @RF00397 0397 00161000 * NCBNSNA->DNCZX003=NCBNSNA->DNCZX003-1;/* DECREMENT 0398 00162000 * SESSION COUNT @OZ06597*/ 00163000 SLR @00,@00 0398 00164000 IC @00,DNCZX003(,@09) 0398 00165000 BCTR @00,0 0398 00166000 STC @00,DNCZX003(,@09) 0398 00167000 * ELSE 0399 00168000 * ; /* NOT MULTI-COMP DEVICE OR SESS 00169000 * CNT^>0 @OZ06597*/ 00170000 * 0399 00171000 @RF00397 DS 0H 0400 00172000 * /*********************************************************/ 00173000 * /* */ 00174000 * /* IF SESSION COUNTER = 0, RESET CONTACT/INVITE */ 00175000 * /* OUTSTANDING FLAGS. */ 00176000 * /* */ 00177000 * /*********************************************************/ 00178000 * 0400 00179000 * IF FMCZX001=0 THEN 0400 00180000 CLI FMCZX001(FMCBREG),0 0400 00181000 BNE @RF00400 0400 00182000 * DO; 0401 00183000 * FMCZFB06=OFF; /* RESET INVITE OUTSTANDING */ 00184000 * FMCZFC06=OFF; /* RESET CONTACT OUTSTANDING */ 00185000 NI FMCZFB06(FMCBREG),B'11111100' 0403 00186000 * END; 0404 00187000 * ELSE 0405 00188000 * ; /* SESSION COUNTER NOT 0 - NULL */ 00189000 @RF00400 DS 0H 0406 00190000 * FMCZFA06=OFF; /* SET OFF FMCB SESSION STATUS 0406 00191000 * FLAG */ 00192000 NI FMCZFA06(FMCBREG),B'11111011' 0406 00193000 * DNCSESS=OFF; /* SET OFF DNCB DEVICE DIALOG 0407 00194000 * STATUS FLAG */ 00195000 NI DNCSESS(DNCBREG),B'10111111' 0407 00196000 * END; 0408 00197000 * ELSE 0409 00198000 * DO; /* NOT SESSION INIT ERROR */ 00199000 B @RC00394 0409 00200000 @RF00394 DS 0H 0410 00201000 * FMCZFA06=ON; /* SET FMCB SESSION STATUS FLAG */ 00202000 OI FMCZFA06(FMCBREG),B'00000100' 0410 00203000 * DNCSESS=ON; /* SET DNCB DEVICE DIALOG STATUS 00204000 * FLAG */ 00205000 OI DNCSESS(DNCBREG),B'01000000' 0411 00206000 * END; 0412 00207000 * END; 0413 00208000 * ELSE 0414 00209000 * ; /* NULL (NOT SESSION INIT COMMAND 00210000 * @XM09531*/ 00211000 @RF00392 DS 0H 0415 00212000 * CALL ISTZIFCB; /* GOTO TPIOS INPUT COMPLETION 0415 00213000 * ANALYSIS ROUTINE @XL03HCH*/ 00214000 @RC00392 L @15,ZRCZIFCB(,RCVTREG) 0415 00215000 BALR @14,@15 0415 00216000 * RFY 0416 00217000 * RCDREG RSTD; /* @XL03HCH*/ 00218000 * ZCRRCDSV=RCDREG; /* SAVE RETURN CODE @XL03HCH*/ 00219000 L @14,RPHCRR(,RPHPTR) 0417 00220000 L @14,CRACRR(,@14) 0417 00221000 STC RCDREG,ZCRRCDSV(,@14) 0417 00222000 * RFY 0418 00223000 * RCDREG UNRSTD; /* @XL03HCH*/ 00224000 * IF FSBMNSDA=ON THEN /* BSC STATUS */ 00225000 LA @09,16 0419 00226000 ALR @09,BFRREG 0419 00227000 TM FSBMNSDA(@09),B'00000001' 0419 00228000 BNO @RF00419 0419 00229000 * DO; 0420 00230000 * FSBDMGRS=BTUTEXT(4:5); /* MOVE STATUS, SENSE INFO TO FSB*/ 00231000 MVC FSBDMGRS(2,@09),BTUTEXT+51(BFRREG) 0421 00232000 * FDBDATAA=0; /* ZERO DATA ADDRESS */ 00233000 SLR @09,@09 0422 00234000 ST @09,FDBDATAA(,BFRREG) 0422 00235000 * FDBDATCT=0; /* ZERO DATA COUNT */ 00236000 STH @09,FDBDATCT(,BFRREG) 0423 00237000 * CALL ISTZDFNB; /* CALL MSG FORMATTER */ 00238000 L @09,ATCZPSVT(,VTCVTREG) 0424 00239000 L @15,ZPSZDFNB(,@09) 0424 00240000 BALR @14,@15 0424 00241000 * END; 0425 00242000 * ELSE 0426 00243000 * 0426 00244000 * /***************************************************************/ 00245000 * /* */ 00246000 * /* CALL NCP EXTENDED RESPONSE ANALYSIS SUBROUTINE */ 00247000 * /* SEGMENT(IFBB00A)REQUEST */ 00248000 * /* */ 00249000 * /***************************************************************/ 00250000 * 0426 00251000 * DO; 0426 00252000 B @RC00419 0426 00253000 @RF00419 DS 0H 0427 00254000 * GOTO IFBB00A; 0427 00255000 B IFBB00A 0427 00256000 *IFBB00A#: 0428 00257000 * END; 0428 00258000 * 0428 00259000 IFBB00A# DS 0H 0429 00260000 * /*****************************************************************/ 00261000 * /* */ 00262000 * /* ANALYZE LINE STATE - IF RESCHEDULE STATE, SET TO */ 00263000 * /* ERROR/RESCHEDULE STATE */ 00264000 * /* */ 00265000 * /*****************************************************************/ 00266000 * 0429 00267000 * IF FMCZH001=FMCZHF41 THEN 0429 00268000 @RC00419 CLC FMCZH001(2,FMCBREG),@CH00610 0429 00269000 BNE @RF00429 0429 00270000 * FMCZH001=FMCZHF51; /* SET TO ERROR/RESCHEDULE STATE */ 00271000 MVC FMCZH001(2,FMCBREG),@CH00612 0430 00272000 * ELSE /* NOT RESCHEDULE STATE */ 00273000 * 0431 00274000 * /***************************************************************/ 00275000 * /* */ 00276000 * /* IF ERROR/RESCHEDULE STATE, LEAVE AS SUCH */ 00277000 * /* */ 00278000 * /***************************************************************/ 00279000 * 0431 00280000 * IF FMCZH001=FMCZHF51 THEN 0431 00281000 B @RC00429 0431 00282000 @RF00429 CLC FMCZH001(2,FMCBREG),@CH00612 0431 00283000 BE @RT00431 0431 00284000 * ; 0432 00285000 * ELSE /* NOT ERROR/RESCHED STATE */ 00286000 * FMCZH001=FMCZHF71; /* SET TO PHYSICAL ERROR STATE */ 00287000 MVC FMCZH001(2,FMCBREG),@CH00616 0433 00288000 * RFY 0434 00289000 * RCDREG RSTD; /* RESTORE RTN CODE @XL03HCH*/ 00290000 @RT00431 DS 0H 0434 00291000 @RC00429 DS 0H 0435 00292000 * RCDREG=ZCRRCDSV; /* @XL03HCH*/ 00293000 * 0435 00294000 L @09,RPHCRR(,RPHPTR) 0435 00295000 L @09,CRACRR(,@09) 0435 00296000 SLR RCDREG,RCDREG 0435 00297000 IC RCDREG,ZCRRCDSV(,@09) 0435 00298000 * /*****************************************************************/ 00299000 * /* */ 00300000 * /* RESTORE REGISTERS AND RETURN TO CALLER */ 00301000 * /* */ 00302000 * /*****************************************************************/ 00303000 * 0436 00304000 */* TPZRETN */ 00305000 * 0436 00306000 * DO; 0436 00307000 * DCL 0437 00308000 * GPR07F FIXED(31) REG(07); 0437 00309000 * DCL 0438 00310000 * GPR07P PTR(31) REG(07); 0438 00311000 * DCL 0439 00312000 * GPR15F FIXED(31) REG(15); 0439 00313000 * DCL 0440 00314000 * GPR15P PTR(31) REG(15); 0440 00315000 * RFY 0441 00316000 * (GPR07P, 0441 00317000 * GPR14P, 0441 00318000 * GPR15P) RSTD; 0441 00319000 * GPR13P=ZSAZSVBC; 0442 00320000 L GPR13P,ZSAZSVBC(,GPR13P) 0442 00321000 * IF GPR13P=0 THEN 0443 00322000 LTR GPR13P,GPR13P 0443 00323000 BZ @RT00443 0443 00324000 * ; /* TPDVTS ISTZFARR */ 00325000 * ELSE 0445 00326000 * GPR14P=ZSAZSVRR; 0445 00327000 L GPR14P,ZSAZSVRR(,GPR13P) 0445 00328000 * GEN REFS(ZSAZSVVR)(LM 7,12,ZSAZSVVR+0(13)); 0446 00329000 @RT00443 DS 0H 0446 00330000 LM 7,12,ZSAZSVVR+0(13) 00331000 * GEN REFS(GPR14P) EXIT NOSEQFLOW(BR GPR14P); 0447 00332000 BR GPR14P 00333000 * RFY 0448 00334000 * (GPR07P, 0448 00335000 * GPR14P, 0448 00336000 * GPR15P) UNRSTD; 0448 00337000 * END; 0449 00338000 * 0449 00339000 */* END TPZRETN */ 00340000 * 0450 00341000 * 0450 00342000 */* IFBB000A - ANALYZE NCP EXTENDED RESPONSE */ 00343000 */* ANALYZES THE FIRST AND FINAL STATUS FIELDS PROVIDED IN THE */ 00344000 */* FSB AND SETS THE FSB MINOR RETURN CODE FLAGS UNDER THE */ 00345000 */* FOLLOWING CONDITIONS - */ 00346000 */* */ 00347000 */* FIRST STATUS FINAL STATUS ACTION */ 00348000 */* SPECIAL RECIEVED BREAK SET ATTN RECIEVED */ 00349000 */* SPECIAL RECIEVED DISCONNECT SET DEVICE UNUSABLE */ 00350000 */* SPECIAL DISCONNECTED SET DEVICE UNUSABLE */ 00351000 */* HARDWARE CHECK - SET DEVICE UNUSABLE */ 00352000 * 0450 00353000 *IFBB000A: 0450 00354000 * ; 0450 00355000 * 0450 00356000 IFBB000A DS 0H 0451 00357000 * /*****************************************************************/ 00358000 * /* */ 00359000 * /* SEGMENT(IFBB00A)START */ 00360000 * /* */ 00361000 * /*****************************************************************/ 00362000 * 0451 00363000 * DO; 0451 00364000 * GOTO IFBB00A@; 0452 00365000 B IFBB00A@ 0452 00366000 *IFBB00A: 0453 00367000 * END; 0453 00368000 * 0453 00369000 IFBB00A DS 0H 0454 00370000 * /*****************************************************************/ 00371000 * /* */ 00372000 * /* IF FIRST STATUS - SPECIAL, FINAL STATUS - RECIEVED BREAK, SET */ 00373000 * /* FSB MINOR RETURN CODE ATTENTION RECIEVED FLAG */ 00374000 * /* */ 00375000 * /*****************************************************************/ 00376000 * 0454 00377000 * IF(FSBXFSTS=NCPXSPEC) /* SPECIAL */ 00378000 * &(FSBXFINS=NCPXRCB) /* BREAK RECIEVED */ 00379000 * THEN 0454 00380000 LA @14,16 0454 00381000 ALR @14,BFRREG 0454 00382000 TM FSBXFSTS(@14),B'10000000' 0454 00383000 BNO @RF00454 0454 00384000 TM FSBXFSTS(@14),B'01100000' 0454 00385000 BNZ @RF00454 0454 00386000 TM FSBXFINS(@14),B'00011010' 0454 00387000 BNO @RF00454 0454 00388000 TM FSBXFINS(@14),B'00000100' 0454 00389000 BNZ @RF00454 0454 00390000 * FSBMNATN=ON; /* INDICATE ATTN RECIEVED */ 00391000 OI FSBMNATN(@14),B'00100000' 0455 00392000 * ELSE /* NOT SPECIAL/BREAK RECIEVED */ 00393000 * 0456 00394000 * /***************************************************************/ 00395000 * /* */ 00396000 * /* IF FIRST STATUS - SPECIAL, FINAL STATUS - RECIEVED */ 00397000 * /* DISCONNECT OR DISCONNECTED, SET FSB MINOR RETURN CODE DEVICE*/ 00398000 * /* NOT USABLE FLAG */ 00399000 * /* */ 00400000 * /***************************************************************/ 00401000 * 0456 00402000 * IF FSBXFSTS=NCPXSPEC THEN /* SPECIAL @XL03HCH*/ 00403000 B @RC00454 0456 00404000 @RF00454 TM FSBXFSTS+16(BFRREG),B'10000000' 0456 00405000 BNO @RF00456 0456 00406000 TM FSBXFSTS+16(BFRREG),B'01100000' 0456 00407000 BNZ @RF00456 0456 00408000 *ICBBSPEC: 0457 00409000 * DO; /* @XL03HCH*/ 00410000 ICBBSPEC DS 0H 0458 00411000 * IF FSBXFINS=NCPXRDS| /* RECIEVED DISCONNECT @XL03HCH*/ 00412000 * FSBXFINS=NCPXDSCT THEN/* DISCONNECTED @XL03HCH*/ 00413000 TM FSBXFINS+16(BFRREG),B'00001000' 0458 00414000 BNO @GL00006 0458 00415000 TM FSBXFINS+16(BFRREG),B'00010110' 0458 00416000 BZ @RT00458 0458 00417000 @GL00006 TM FSBXFINS+16(BFRREG),B'00011100' 0458 00418000 BNO @RF00458 0458 00419000 TM FSBXFINS+16(BFRREG),B'00000010' 0458 00420000 BNZ @RF00458 0458 00421000 @RT00458 DS 0H 0459 00422000 *ICBBCKLN: 0459 00423000 * DO; 0459 00424000 ICBBCKLN DS 0H 0460 00425000 * IF DNCPSOL=ON THEN /* IF SWITCHED CALLIN@XL03HCH */ 00426000 TM DNCPSOL(DNCBREG),B'00001000' 0460 00427000 BNO @RF00460 0460 00428000 * FSBMNDNU=ON; /* INDICATE DEVICE NOT USABLE */ 00429000 OI FSBMNDNU+16(BFRREG),B'00010000' 0461 00430000 * ELSE 0462 00431000 * ; /* NOT SWITCHD CALLIN@XL03HCH */ 00432000 @RF00460 DS 0H 0463 00433000 * CALL ISTZKFBB; /* GOTO DIAL DISCONN @XL03HCH*/ 00434000 L @15,ZRCZKFBB(,RCVTREG) 0463 00435000 BALR @14,@15 0463 00436000 * END ICBBCKLN; /* @XL03HCH*/ 00437000 * ELSE 0465 00438000 * ; /* NOT DISCONNECT @XL03HCH*/ 00439000 @RF00458 DS 0H 0466 00440000 * END ICBBSPEC; /* @XL03HCH*/ 00441000 * ELSE /* NOT SPECIAL @XL03HCH*/ 00442000 * 0467 00443000 * /*************************************************************/ 00444000 * /* */ 00445000 * /* IF HARDWARE CHECK, FLAG AS DEVICE NOT USABLE */ 00446000 * /* */ 00447000 * /*************************************************************/ 00448000 * 0467 00449000 * IF FSBXFSTS=NCPXHCHK /* HARDWARE CHECK */ 00450000 * THEN 0467 00451000 B @RC00456 0467 00452000 @RF00456 LA @14,16 0467 00453000 ALR @14,BFRREG 0467 00454000 TM FSBXFSTS(@14),B'11100000' 0467 00455000 BNO @RF00467 0467 00456000 * DO; /* @XL03HCH*/ 00457000 * FSBMNDNU=ON; /* INDICATE DEVICE NOT USABLE */ 00458000 OI FSBMNDNU(@14),B'00010000' 0469 00459000 * CALL ISTZKFBB; /* GOTO DIAL DISCONN @XL03HCH*/ 00460000 L @15,ZRCZKFBB(,RCVTREG) 0470 00461000 BALR @14,@15 0470 00462000 * IF FSBXFINS^=NCPXEQUC /* IF NOT EQUIP CHK @ZA31006*/ 00463000 * THEN 0471 00464000 TM FSBXFINS+16(BFRREG),B'00001100' 0471 00465000 BNO @RT00471 0471 00466000 TM FSBXFINS+16(BFRREG),B'00010010' 0471 00467000 BZ @RF00471 0471 00468000 @RT00471 DS 0H 0472 00469000 * CALL ISTZDFNB; /* WRITE MSG IST201I @ZA31006*/ 00470000 L @09,ATCZPSVT(,VTCVTREG) 0472 00471000 L @15,ZPSZDFNB(,@09) 0472 00472000 BALR @14,@15 0472 00473000 * ELSE 0473 00474000 * ; /* @ZA31006*/ 00475000 @RF00471 DS 0H 0474 00476000 * END; 0474 00477000 * ELSE 0475 00478000 * ; /* NONE OF THE ABOVE - NULL */ 00479000 * 0475 00480000 @RF00467 DS 0H 0476 00481000 * /*****************************************************************/ 00482000 * /* */ 00483000 * /* SEGMENT(IFBB00A)FINISH */ 00484000 * /* */ 00485000 * /*****************************************************************/ 00486000 * 0476 00487000 * DO; 0476 00488000 @RC00456 DS 0H 0476 00489000 @RC00454 DS 0H 0477 00490000 * GOTO IFBB00A#; 0477 00491000 B IFBB00A# 0477 00492000 *IFBB00A@: 0478 00493000 * END; 0478 00494000 * 0478 00495000 IFBB00A@ DS 0H 0479 00496000 */* TPEPILOG */ 00497000 * 0479 00498000 * GEN(PRINT OFF); 0479 00499000 PRINT OFF 00500000 * GEN(PRINT ON); 0480 00501000 * 0480 00502000 PRINT ON 00503000 */* END OF TPEPILOG */ 00504000 * 0481 00505000 * END ISTZIFBB; /* END OF MODULE */ 00506000 @EL00001 DS 0H 0481 00507000 @EF00001 DS 0H 0481 00508000 @ER00001 BR @14 0481 00509000 @DATA DS 0H 00510000 @CH00610 DC XL2'0007' 00511000 @CH00612 DC XL2'B007' 00512000 @CH00616 DC XL2'A007' 00513000 @DATD DSECT 00514000 DS 0F 00515000 ISTZIFBB CSECT 00516000 DS 0F 00517000 @DATD DSECT 00518000 DS 0D 00519000 FMCBPTR DS A 00520000 DNCBPTR DS A 00521000 FSBPTR DS A 00522000 BDUPTR DS A 00523000 BTUPTR DS A 00524000 LCPBPTR DS A 00525000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00526000 @ENDDATD EQU * 00527000 ISTZIFBB CSECT 00528000 DS 0F 00529000 @SIZDATD DC AL1(0) 00530000 DC AL3(@ENDDATD-@DATD) 00531000 DS 0D 00532000 @CC03019 DC C'ICBB' 00533000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00534000 @01 EQU 01 00535000 @02 EQU 02 00536000 @03 EQU 03 00537000 @04 EQU 04 00538000 @05 EQU 05 00539000 @06 EQU 06 00540000 @07 EQU 07 00541000 @08 EQU 08 00542000 @09 EQU 09 00543000 @10 EQU 10 00544000 @11 EQU 11 00545000 @12 EQU 12 00546000 @13 EQU 13 00547000 @14 EQU 14 00548000 @15 EQU 15 00549000 RPHREG EQU @01 00550000 VTCVTREG EQU @02 00551000 ICNCBREG EQU @03 00552000 DNCBREG EQU @04 00553000 FMCBREG EQU @05 00554000 BFRREG EQU @06 00555000 ELEMREG EQU @07 00556000 RCVTREG EQU @08 00557000 R12 EQU @12 00558000 R13 EQU @13 00559000 RCDREG EQU @15 00560000 RPHPTR EQU @01 00561000 GPR01P EQU @01 00562000 GPR12P EQU @12 00563000 GPR13P EQU @13 00564000 GPR14P EQU @14 00565000 GPR07P EQU @07 00566000 GPR15P EQU @15 00567000 GPR01F EQU @01 00568000 GPR07F EQU @07 00569000 GPR12F EQU @12 00570000 GPR13F EQU @13 00571000 GPR14F EQU @14 00572000 GPR15F EQU @15 00573000 ATCLCPTR EQU 1032 00574000 ISTZIFCB EQU 0 00575000 ISTZDFNB EQU 0 00576000 ISTZKFBB EQU 0 00577000 ISTDEVCH EQU 0 00578000 DEVSHCH EQU ISTDEVCH 00579000 DEVCHAR EQU DEVSHCH 00580000 DEVTCODE EQU ISTDEVCH+1 00581000 DEVFLAGS EQU ISTDEVCH+3 00582000 DEVFCCTL EQU DEVFLAGS 00583000 DEVCHAR3 EQU DEVFLAGS 00584000 ISTPROCD EQU 0 00585000 PROPROC EQU ISTPROCD 00586000 PROPROC1 EQU PROPROC 00587000 PROPROC2 EQU PROPROC+1 00588000 PROPROC3 EQU PROPROC+2 00589000 PROPROC4 EQU PROPROC+3 00590000 PROPROCS EQU 0 00591000 PROSETMS EQU PROPROCS+1 00592000 PROSETM2 EQU PROSETMS 00593000 PROSETM3 EQU PROSETMS+1 00594000 PROSETM4 EQU PROSETMS+2 00595000 ISTPAB EQU 0 00596000 PABWQCHN EQU ISTPAB 00597000 PABWEQA EQU PABWQCHN 00598000 PABCHAIN EQU PABWQCHN+4 00599000 PABDVTA EQU ISTPAB+9 00600000 PABRPHFG EQU ISTPAB+12 00601000 PABFLAGS EQU PABRPHFG 00602000 PABERLCK EQU PABFLAGS 00603000 PABERRLK EQU PABERLCK 00604000 PABERLOK EQU PABERRLK 00605000 ISTLOK EQU 0 00606000 LOKCHN EQU ISTLOK+1 00607000 LOKCHNG EQU LOKCHN 00608000 @NM00002 EQU LOKCHNG+2 00609000 ISTFMCB EQU 0 00610000 FMCSTAT EQU ISTFMCB+28 00611000 FMCSTAT1 EQU ISTFMCB+29 00612000 FMCCMDFL EQU ISTFMCB+31 00613000 FMCCMPS1 EQU ISTFMCB+36 00614000 FMCPAB3 EQU ISTFMCB+96 00615000 FMCPAB4 EQU ISTFMCB+112 00616000 FMCSIPA EQU ISTFMCB+148 00617000 FMCNXOSQ EQU ISTFMCB+152 00618000 FMCNXCFM EQU FMCNXOSQ 00619000 FMCNXOSC EQU FMCNXOSQ+2 00620000 FMCSSTAT EQU ISTFMCB+159 00621000 FMCPACE EQU ISTFMCB+160 00622000 FMCPACEN EQU FMCPACE 00623000 FMCPACEM EQU FMCPACE+1 00624000 FMCPACPC EQU FMCPACE+2 00625000 FMCCVAL EQU FMCPACE+3 00626000 FMCOBCE EQU FMCCVAL 00627000 FMCCLEXT EQU ISTFMCB+164 00628000 FMCRPLA EQU FMCCLEXT 00629000 FMCFBA EQU FMCCLEXT+4 00630000 FMCCMPS2 EQU FMCCLEXT+16 00631000 FMCFLGA EQU FMCCMPS2 00632000 FMCFLGCL EQU FMCCMPS2+1 00633000 FMCPSCMD EQU FMCCMPS2+2 00634000 FMCPSTAT EQU FMCCMPS2+3 00635000 FMCSTAT2 EQU ISTFMCB+186 00636000 FMCMODEB EQU ISTFMCB+189 00637000 FMCCLSEQ EQU ISTFMCB+190 00638000 FMCRRESP EQU ISTFMCB+195 00639000 FMCSSEGQ EQU ISTFMCB+200 00640000 FMCFBAS EQU ISTFMCB+216 00641000 FMCZV002 EQU FMCFBAS 00642000 FMCSNCTL EQU ISTFMCB+224 00643000 FMCSCFLG EQU FMCSNCTL 00644000 FMCVS1 EQU ISTFMCB+232 00645000 FMCZFLAG EQU FMCVS1 00646000 FMCZF006 EQU FMCZFLAG 00647000 FMCZFA06 EQU FMCZF006 00648000 FMCZFB06 EQU FMCZF006 00649000 FMCZFC06 EQU FMCZF006 00650000 FMCZH001 EQU FMCVS1+4 00651000 FMCLBXM EQU FMCVS1+12 00652000 FMCSHEAQ EQU FMCLBXM 00653000 FMCLCPBQ EQU FMCVS1+16 00654000 FMCLCPAQ EQU FMCVS1+20 00655000 FMCZX001 EQU FMCVS1+28 00656000 FMCSEQ1 EQU FMCVS1+34 00657000 FMCZFLG2 EQU FMCVS1+35 00658000 FMCCVFLG EQU FMCVS1+44 00659000 FMCFLAG EQU 0 00660000 FMCFLGB EQU FMCFLAG 00661000 ISTNCB EQU 0 00662000 NCBTYPE EQU ISTNCB 00663000 NCBNSNA EQU ISTNCB+12 00664000 NCBFLAGS EQU ISTNCB+24 00665000 NCBFRAS EQU NCBFLAGS+1 00666000 NCBFTRIO EQU NCBFRAS 00667000 NCBFLAG1 EQU NCBFLAGS+2 00668000 ISTDNCB EQU 0 00669000 DNCOS EQU ISTDNCB+56 00670000 DNCZFLGS EQU DNCOS 00671000 DNCZF001 EQU DNCZFLGS 00672000 DNCSESS EQU DNCZFLGS 00673000 DNCPSOL EQU DNCZFLGS+1 00674000 DNCBSCED EQU DNCOS+2 00675000 DNCZX003 EQU DNCOS+16 00676000 ISTFDB EQU 0 00677000 FDBDATAA EQU ISTFDB+4 00678000 FDBDATCT EQU ISTFDB+8 00679000 ISTFSB EQU 0 00680000 FSBFSB EQU ISTFSB 00681000 FSBMNRCD EQU FSBFSB+2 00682000 FSBMNATN EQU FSBMNRCD 00683000 FSBMNDNU EQU FSBMNRCD 00684000 FSBMNSDA EQU FSBMNRCD 00685000 FSBSFLGS EQU FSBFSB+3 00686000 FSBFSBA EQU FSBFSB+4 00687000 FSBBTH EQU FSBFSB+8 00688000 FSBCID EQU FSBBTH 00689000 FSBRQTAG EQU FSBBTH+4 00690000 FSBSEQID EQU FSBRQTAG 00691000 FSBFLAGS EQU FSBSEQID 00692000 FSBSEQ EQU FSBSEQID+1 00693000 FSBCSWST EQU FSBBTH+6 00694000 FSBTHFLD EQU FSBCSWST 00695000 FSBTH1 EQU FSBTHFLD 00696000 FSBSYSRS EQU FSBTH1 00697000 FSBSCODE EQU FSBSYSRS 00698000 FSBTH2 EQU FSBTHFLD+1 00699000 FSBEXTRS EQU FSBTH2 00700000 FSBXFSTS EQU FSBEXTRS 00701000 FSBXCODE EQU FSBEXTRS 00702000 FSBXFINS EQU FSBXCODE 00703000 FSBNETRS EQU FSBFSB+16 00704000 FSBSRCAT EQU FSBNETRS 00705000 FSBERC EQU FSBNETRS+1 00706000 FSBELI EQU FSBERC 00707000 FSBECI EQU FSBERC 00708000 FSBFBMI EQU FSBERC 00709000 FSBDMGRS EQU FSBFSB+18 00710000 FSBSS1 EQU FSBDMGRS 00711000 FSBSS2 EQU FSBDMGRS+1 00712000 FSBLCPB EQU FSBFSB+20 00713000 FSBMSGID EQU FSBLCPB 00714000 FSBLCCWA EQU FSBFSB+24 00715000 FSBRLSTS EQU FSBLCCWA 00716000 ISTZRCVT EQU 0 00717000 ZRCZIFCB EQU ISTZRCVT+72 00718000 ZRCZKFBB EQU ISTZRCVT+108 00719000 ISTBDU EQU 0 00720000 BDUCOMND EQU ISTBDU 00721000 BDUMODIF EQU ISTBDU+1 00722000 BDUMOD1 EQU BDUMODIF 00723000 BDUDAF EQU ISTBDU+2 00724000 BDUFUNC EQU BDUDAF 00725000 BDUCHECK EQU BDUFUNC 00726000 BDUFLAGS EQU BDUDAF+1 00727000 ISTBTU EQU 0 00728000 BTUBTH EQU ISTBTU 00729000 BTUFID EQU BTUBTH 00730000 BTUREQ EQU BTUBTH+6 00731000 BTURQFLG EQU BTUREQ 00732000 BTURH EQU BTUBTH+10 00733000 BTUBDU EQU ISTBTU+14 00734000 BTUSYSTR EQU ISTBTU+18 00735000 BTUTEXT EQU ISTBTU+20 00736000 ISTLH EQU 0 00737000 ISTTH EQU 0 00738000 THFLAG1 EQU ISTTH 00739000 THFLGA EQU THFLAG1 00740000 THMPF EQU THFLGA 00741000 THFLGB EQU THFLAG1+1 00742000 ISTTH2 EQU 0 00743000 TH2FLAG1 EQU ISTTH2 00744000 TH2MPF EQU TH2FLAG1 00745000 ISTZIBUF EQU 0 00746000 ZIBFSM EQU ISTZIBUF+4 00747000 ISTRPH EQU 0 00748000 RPHCNTL EQU ISTRPH 00749000 RPHFLAGS EQU RPHCNTL+2 00750000 RPHAPTYP EQU RPHFLAGS 00751000 RPHFSTLC EQU RPHFLAGS 00752000 RPHFLGB EQU RPHCNTL+3 00753000 RPHRPHA EQU ISTRPH+4 00754000 RPHCVFLG EQU RPHRPHA 00755000 RPHGATE EQU RPHCVFLG 00756000 RPHTSKID EQU ISTRPH+8 00757000 RPHRESMA EQU ISTRPH+16 00758000 RPHWPFLG EQU RPHRESMA 00759000 RPHWEA EQU ISTRPH+24 00760000 RPHCSPA EQU RPHWEA 00761000 RPHSRPRM EQU ISTRPH+28 00762000 RPHCRR EQU ISTRPH+32 00763000 RPHPABQA EQU ISTRPH+36 00764000 RPHWORK EQU ISTRPH+40 00765000 RPHSAVE1 EQU RPHWORK 00766000 RPHSBITS EQU RPHSAVE1+1 00767000 ISTZSAVE EQU 0 00768000 ZSAZSVBC EQU ISTZSAVE 00769000 ZSAZSVMS EQU ZSAZSVBC 00770000 ZSAZACTV EQU ZSAZSVMS 00771000 ZSAZSVFC EQU ISTZSAVE+4 00772000 ZSAZSVRR EQU ISTZSAVE+8 00773000 ZSAZSVVR EQU ISTZSAVE+12 00774000 ZSAZTRAC EQU ISTZSAVE+36 00775000 ISTLCCW EQU 0 00776000 LCCWOP EQU ISTLCCW 00777000 LCCWRWOP EQU LCCWOP 00778000 LCCWCTL EQU LCCWRWOP 00779000 LCCWFLAG EQU ISTLCCW+1 00780000 LCCWCC EQU LCCWFLAG 00781000 LCCWLSI EQU LCCWFLAG 00782000 ISTLCPB EQU 0 00783000 LCPREQTG EQU ISTLCPB+2 00784000 LCPFLAGS EQU LCPREQTG 00785000 LCPZF001 EQU LCPFLAGS 00786000 LCPZRT02 EQU LCPZF001 00787000 LCPZF002 EQU LCPFLAGS 00788000 LCPZRT03 EQU LCPZF002 00789000 LCPZF003 EQU LCPFLAGS 00790000 LCPZRT04 EQU LCPZF003 00791000 LCPZF004 EQU LCPFLAGS 00792000 LCPZRT05 EQU LCPZF004 00793000 LCPZRT06 EQU LCPFLAGS 00794000 LCPZRT07 EQU LCPFLAGS 00795000 LCPMNRCD EQU LCPREQTG+1 00796000 LCPZRT08 EQU LCPMNRCD 00797000 LCPZRT09 EQU LCPMNRCD 00798000 LCPCHAIN EQU ISTLCPB+4 00799000 LCPCHAI1 EQU LCPCHAIN 00800000 LCPRUCNT EQU ISTLCPB+8 00801000 LCPFLAG2 EQU ISTLCPB+9 00802000 LCPTLBPI EQU LCPFLAG2 00803000 LCPFID0 EQU LCPFLAG2 00804000 LCPSEQ EQU ISTLCPB+10 00805000 LCPCID EQU ISTLCPB+16 00806000 LCPFDBA EQU ISTLCPB+24 00807000 LCPFLG1 EQU ISTLCPB+37 00808000 LCPFLCCW EQU ISTLCPB+40 00809000 LCPLCCW EQU ISTLCPB+48 00810000 LCPPABA EQU LCPLCCW+4 00811000 LCPRPHA EQU LCPPABA 00812000 ISTZCRR EQU 0 00813000 ZCRCRR EQU ISTZCRR 00814000 ZCRFLGS1 EQU ISTZCRR+12 00815000 ZCRFLGS2 EQU ISTZCRR+13 00816000 ZCRSWFLD EQU ISTZCRR+14 00817000 ZCRENDSH EQU ZCRSWFLD 00818000 ZCRNDLCP EQU ZCRSWFLD 00819000 ZCRRESET EQU ZCRSWFLD 00820000 ZCRFLGS3 EQU ISTZCRR+15 00821000 ZCRGENSW EQU ISTZCRR+16 00822000 ZCRPFLGS EQU ISTZCRR+17 00823000 ZCRIBPR EQU ISTZCRR+18 00824000 ZCRSCPSW EQU ISTZCRR+19 00825000 ZCRPARMS EQU ISTZCRR+24 00826000 ZCRFBPTR EQU ZCRPARMS 00827000 ZCRDFRDA EQU ZCRPARMS+10 00828000 ZCRPCOD1 EQU ZCRPARMS+12 00829000 ZCRPLSBF EQU ZCRPCOD1 00830000 ZCRPCOD2 EQU ZCRPARMS+13 00831000 ZCRSVRTN EQU ISTZCRR+56 00832000 ZCRWKARA EQU ISTZCRR+156 00833000 ZCRRCDSV EQU ISTZCRR+181 00834000 ZCRCIDSV EQU ISTZCRR+192 00835000 ZCRAUDIT EQU ISTZCRR+440 00836000 ZCRENTER EQU ZCRAUDIT+5 00837000 ZCREICBB EQU ZCRENTER+10 00838000 ZCRLCPB EQU ISTZCRR+480 00839000 ZCRRHRU EQU ZCRLCPB 00840000 ISTPFCRR EQU 0 00841000 PFCCRR EQU ISTPFCRR 00842000 PFCCRRID EQU PFCCRR 00843000 PFCCRRLN EQU PFCCRR+2 00844000 PFCHDR EQU ISTPFCRR+4 00845000 PFCCRRO EQU PFCHDR 00846000 PFCFRRO EQU PFCHDR+4 00847000 ISTCFCRR EQU 0 00848000 CFCAUDIT EQU ISTCFCRR 00849000 CFCNTRD EQU CFCAUDIT 00850000 CFCCRT EQU CFCAUDIT+1 00851000 ISTASCRR EQU 0 00852000 ASCFLAGS EQU ISTASCRR+16 00853000 ASCFLG1 EQU ASCFLAGS 00854000 ASCFLG2 EQU ASCFLAGS+2 00855000 ASCFLG3 EQU ASCFLAGS+4 00856000 ASCUSRGS EQU ISTASCRR+28 00857000 ISTAPCRR EQU 0 00858000 APCATFLG EQU ISTAPCRR+16 00859000 APCRFLG EQU ISTAPCRR+18 00860000 APCSAVE EQU ISTAPCRR+44 00861000 APCCOMF EQU ISTAPCRR+116 00862000 APCCOMF1 EQU APCCOMF 00863000 APC31FLG EQU ISTAPCRR+132 00864000 APC52FLG EQU ISTAPCRR+133 00865000 APC53FLG EQU ISTAPCRR+134 00866000 APC54FLG EQU ISTAPCRR+135 00867000 APC57FLG EQU ISTAPCRR+136 00868000 ISTCRA EQU 0 00869000 CRABASIC EQU ISTCRA 00870000 CRAHDR EQU CRABASIC 00871000 CRACRR EQU CRAHDR 00872000 CRALKACT EQU CRABASIC+8 00873000 CRASVC EQU ISTCRA+848 00874000 CRABUFA EQU CRASVC+68 00875000 ISTDYPAB EQU 0 00876000 ISTATCVT EQU 0 00877000 ATCCOM EQU ISTATCVT 00878000 ATCSTAT EQU ATCCOM 00879000 ATCSTAT1 EQU ATCSTAT 00880000 ATCSTFLG EQU ATCSTAT+1 00881000 ATCPOFLG EQU ATCSTAT+2 00882000 ATCSTAT4 EQU ATCSTAT+3 00883000 ATCIOTRC EQU ATCCOM+140 00884000 ATCTHTRC EQU ATCIOTRC 00885000 ATCCSMR EQU ISTATCVT+296 00886000 ATCSHRFG EQU ISTATCVT+316 00887000 ATCHPGM EQU ISTATCVT+384 00888000 ATCVLCNT EQU ISTATCVT+772 00889000 ATCRNO EQU ISTATCVT+788 00890000 ATCSOPD EQU ISTATCVT+792 00891000 ATCSIPD EQU ISTATCVT+800 00892000 ATCSECST EQU ISTATCVT+812 00893000 ATCSTAT2 EQU ISTATCVT+818 00894000 ATCVTBAM EQU ISTATCVT+908 00895000 @NM00048 EQU ATCVTBAM+3 00896000 ATCAOSM EQU ISTATCVT+912 00897000 ATCGSRBQ EQU ATCAOSM+4 00898000 ATCGSRBG EQU ATCGSRBQ 00899000 ATCZPSVT EQU ATCAOSM+72 00900000 ATCICAPP EQU ATCAOSM+100 00901000 ATCLDAPP EQU ATCAOSM+120 00902000 ATCDAPVT EQU ATCAOSM+140 00903000 ATCCRA EQU ATCAOSM+280 00904000 ATCCRACN EQU ATCCRA+4 00905000 ATCSRB EQU ATCAOSM+288 00906000 ATCSRBCN EQU ATCSRB+4 00907000 ATCCRPL EQU ATCAOSM+296 00908000 ATCRPLCN EQU ATCCRPL+4 00909000 ATCSQAFR EQU ATCAOSM+304 00910000 ATCORTBC EQU ATCSQAFR+4 00911000 ATCORSRB EQU ATCORTBC 00912000 @NM00050 EQU ATCAOSM+332 00913000 ATCVTFLG EQU ATCAOSM+392 00914000 ATCZFLAG EQU ATCAOSM+588 00915000 ISTZPSVT EQU 0 00916000 ZPSZDFNB EQU ISTZPSVT+52 00917000 ISTLSCB EQU 0 00918000 LSC1WORD EQU ISTLSCB 00919000 LSCTYPE EQU LSC1WORD 00920000 LSCREQTG EQU LSC1WORD+2 00921000 LSCZRT02 EQU LSCREQTG 00922000 LSCZRT03 EQU LSCREQTG 00923000 LSCZRT04 EQU LSCREQTG 00924000 LSCZRT05 EQU LSCREQTG 00925000 LSCZRT06 EQU LSCREQTG 00926000 LSCZRT07 EQU LSCREQTG 00927000 LSCZMNRC EQU LSCREQTG+1 00928000 LSCZRT08 EQU LSCZMNRC 00929000 LSCZRT09 EQU LSCZMNRC 00930000 LSCCHAIN EQU ISTLSCB+4 00931000 LSCCHAI1 EQU LSCCHAIN 00932000 LSCRUCNT EQU ISTLSCB+8 00933000 LSCFLGS EQU ISTLSCB+9 00934000 LSCSEQ EQU ISTLSCB+10 00935000 LSCLCCWA EQU ISTLSCB+20 00936000 LSCFDBA EQU ISTLSCB+24 00937000 ZIBSRB EQU 0 00938000 FSBCOMBN EQU FSBNETRS 00939000 FSBRHFLD EQU FSBCOMBN+1 00940000 FSBRH3 EQU FSBRHFLD+2 00941000 FSBLDFLG EQU FSBRH3 00942000 @NM00015 EQU FSBRQTAG 00943000 ZIBDIO EQU ZIBFSM 00944000 ZIBCCW2 EQU ZIBDIO+8 00945000 ZIBCPTCC EQU ZIBCCW2 00946000 ZIBAIO EQU ISTZIBUF 00947000 ZIBAIOCM EQU ZIBAIO 00948000 ZIBFDBZ EQU ZIBAIOCM 00949000 ZIBFIB EQU ZIBAIO+16 00950000 ZIBFSB EQU ZIBFIB 00951000 ZIBMDREC EQU ZIBFSB+4 00952000 ZIBMDRIN EQU ZIBFSB+28 00953000 ZIBBTU EQU ZIBFIB+32 00954000 @NM00024 EQU ZIBBTU+12 00955000 ZIBFID1 EQU @NM00024+1 00956000 ZIBFITXT EQU ZIBFID1 00957000 ZIBSIB EQU ZIBFIB 00958000 ZIBREC EQU ZIBMDRIN 00959000 ZIBRECPL EQU ZIBREC 00960000 ZIBRECHD EQU ZIBRECPL 00961000 ZIBRECRS EQU ZIBREC+8 00962000 ZIBRECDT EQU ZIBREC+10 00963000 ZIBMDRRC EQU ZIBMDREC 00964000 ZIBRCPL EQU ZIBMDRRC 00965000 ZIBRCDT EQU ZIBMDRRC+24 00966000 @NM00026 EQU ZIBBTU 00967000 LCPZTIE EQU LCPCID 00968000 LCPZSNAM EQU LCPZTIE+8 00969000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00970000 LCPZTRV4 EQU LCPZSNAM+4 00971000 LCPZTRV1 EQU LCPZSNAM 00972000 LCPZSNA EQU LCPZTIE+4 00973000 LCPZFMCA EQU LCPZTIE 00974000 ZIBTH2 EQU @NM00026+4 00975000 ZIBLH EQU @NM00026 00976000 ZIBRCTXT EQU ZIBMDRRC+36 00977000 ZIBRCRID EQU ZIBRCDT+10 00978000 ZIBRCNAM EQU ZIBRCDT+2 00979000 ZIBRCUA EQU ZIBRCDT 00980000 ZIBRCPUI EQU ZIBRCPL+20 00981000 ZIBRCPUN EQU ZIBRCPL+16 00982000 ZIBRCTIM EQU ZIBRCPL+12 00983000 ZIBRCDAT EQU ZIBRCPL+8 00984000 ZIBRCRS1 EQU ZIBRCPL+6 00985000 ZIBRCSID EQU ZIBRCPL+5 00986000 ZIBRCID EQU ZIBRCPL+4 00987000 ZIBRCSW EQU ZIBRCPL+2 00988000 ZIBRCSYR EQU ZIBRCPL+1 00989000 ZIBRCL EQU ZIBRCPL 00990000 ZIBRECTX EQU ZIBREC+22 00991000 ZIBRECID EQU ZIBRECDT+10 00992000 ZIBRECNA EQU ZIBRECDT+2 00993000 ZIBRECUA EQU ZIBRECDT 00994000 ZIBRECSV EQU ZIBRECRS 00995000 ZIBRECDA EQU ZIBRECPL+4 00996000 ZIBRECSI EQU ZIBRECHD+3 00997000 ZIBRECDV EQU ZIBRECHD+2 00998000 ZIBRECFL EQU ZIBRECHD+1 00999000 ZIBRECTY EQU ZIBRECHD 01000000 ZIBTEXT EQU ZIBSIB+4 01001000 ZIBRSV04 EQU ZIBSIB 01002000 ZIBTEXT2 EQU ZIBFITXT 01003000 ZIBTEXT1 EQU ZIBFIB+52 01004000 @NM00025 EQU @NM00024 01005000 ZIBFDBS EQU ZIBBTU 01006000 @NM00023 EQU ZIBMDREC 01007000 @NM00022 EQU ZIBFSB 01008000 ZIBLNG2 EQU ZIBAIOCM+14 01009000 ZIBRSV03 EQU ZIBAIOCM+13 01010000 ZIBWKBYT EQU ZIBAIOCM+12 01011000 ZIBCPNPK EQU ZIBCCW2+6 01012000 ZIBRSV02 EQU ZIBCCW2+5 01013000 ZIBCPTPF EQU ZIBCCW2+4 01014000 ZIBCPTCA EQU ZIBCCW2+1 01015000 ZIBCPNPC EQU ZIBCPTCC 01016000 ZIBCPRDK EQU ZIBDIO+6 01017000 ZIBRSV01 EQU ZIBDIO+5 01018000 ZIBCPRDF EQU ZIBDIO+4 01019000 ZIBCPTXA EQU ZIBDIO+1 01020000 ZIBCPRDC EQU ZIBDIO 01021000 FSBRT0B EQU @NM00015+1 01022000 FSBRT0A EQU @NM00015+1 01023000 FSBRT09 EQU @NM00015+1 01024000 FSBRT08 EQU @NM00015+1 01025000 FSBRT07 EQU @NM00015 01026000 FSBRT06 EQU @NM00015 01027000 FSBRT05 EQU @NM00015 01028000 FSBRT04 EQU @NM00015 01029000 FSBRT03 EQU @NM00015 01030000 FSBRT02 EQU @NM00015 01031000 FSBRT01 EQU @NM00015 01032000 FSBRT00 EQU @NM00015 01033000 FSBLDCUF EQU FSBLDFLG 01034000 FSBLDSIF EQU FSBLDFLG 01035000 FSBLDSOF EQU FSBLDFLG 01036000 FSBLDEBF EQU FSBLDFLG 01037000 FSBLDBBF EQU FSBLDFLG 01038000 FSBLDFME EQU FSBLDFLG 01039000 FSBLDSCF EQU FSBLDFLG 01040000 FSBLDRMF EQU FSBLDFLG 01041000 FSBRH2 EQU FSBRHFLD+1 01042000 FSBRH1 EQU FSBRHFLD 01043000 FSBALIGN EQU FSBCOMBN 01044000 LSCTLBAD EQU ISTLSCB+28 01045000 LSCFDB2 EQU LSCFDBA+1 01046000 LSCFDB1 EQU LSCFDBA 01047000 LSCLCPBA EQU ISTLSCB+16 01048000 LSCLCCW1 EQU ISTLSCB+12 01049000 LSCRRCNT EQU LSCSEQ+1 01050000 LSCRRCCT EQU LSCSEQ 01051000 LSCATOP EQU LSCFLGS 01052000 LSCFREE EQU LSCFLGS 01053000 LSCDSTAT EQU LSCFLGS 01054000 LSCEXRES EQU LSCFLGS 01055000 LSCZRIMM EQU LSCFLGS 01056000 LSCRSV01 EQU LSCFLGS 01057000 LSCSMODE EQU LSCFLGS 01058000 LSCZMIRC EQU LSCRUCNT 01059000 LSCCHAI2 EQU LSCCHAIN+1 01060000 LSCCHNG EQU LSCCHAI1 01061000 LSCZRTSC EQU LSCZMNRC 01062000 LSCZRT0B EQU LSCZMNRC 01063000 LSCZRT0A EQU LSCZMNRC 01064000 LSCZRTL9 EQU LSCZRT09 01065000 LSCZRTL8 EQU LSCZRT08 01066000 LSCZRTL7 EQU LSCZRT07 01067000 LSCZRTL6 EQU LSCZRT06 01068000 LSCZRTL5 EQU LSCZRT05 01069000 LSCZRTL4 EQU LSCZRT04 01070000 LSCZRTL3 EQU LSCZRT03 01071000 LSCZRTL2 EQU LSCZRT02 01072000 LSCZRT01 EQU LSCREQTG 01073000 LSCZRT00 EQU LSCREQTG 01074000 LSCLNGTH EQU LSC1WORD+1 01075000 ZPSZDFQR EQU ISTZPSVT+80 01076000 ZPSZDFPR EQU ISTZPSVT+76 01077000 ZPSZDFXR EQU ISTZPSVT+72 01078000 ZPSZWRD5 EQU ISTZPSVT+68 01079000 ZPSZWRD4 EQU ISTZPSVT+64 01080000 ZPSZDFMB EQU ISTZPSVT+60 01081000 ZPSZDFMF EQU ISTZPSVT+56 01082000 @NM00054 EQU ISTZPSVT+48 01083000 ZPSZDFF0 EQU ISTZPSVT+44 01084000 ZPSZTRTT EQU ISTZPSVT+40 01085000 ZPSZBFOB EQU ISTZPSVT+36 01086000 ZPSZBFMB EQU ISTZPSVT+32 01087000 ZPSZBFZ0 EQU ISTZPSVT+28 01088000 ZPSZBFY0 EQU ISTZPSVT+24 01089000 ZPSZDFI0 EQU ISTZPSVT+20 01090000 ZPSZDFB0 EQU ISTZPSVT+16 01091000 ZPSZDFH0 EQU ISTZPSVT+12 01092000 ZPSZDFD0 EQU ISTZPSVT+8 01093000 ZPSZDFC0 EQU ISTZPSVT+4 01094000 ZPSZDFA0 EQU ISTZPSVT 01095000 ATCAOS EQU ISTATCVT+1584 01096000 ATCPOPAB EQU ATCAOSM+640 01097000 ATCVIOPM EQU ATCAOSM+636 01098000 ATCTPMMI EQU ATCAOSM+632 01099000 ATCTPMPB EQU ATCAOSM+600 01100000 ATCRSV88 EQU ATCAOSM+596 01101000 ATCRPLCT EQU ATCAOSM+594 01102000 ATCCRACT EQU ATCAOSM+592 01103000 ATCSRBCT EQU ATCAOSM+590 01104000 ATCRSV75 EQU ATCAOSM+589 01105000 ATCRSV66 EQU ATCZFLAG 01106000 ATCZF001 EQU ATCZFLAG 01107000 ATCTPCP1 EQU ATCAOSM+584 01108000 ATCTPCP0 EQU ATCAOSM+580 01109000 ATCAICTN EQU ATCAOSM+576 01110000 ATCZR01 EQU ATCAOSM+572 01111000 ATCMPLTA EQU ATCAOSM+568 01112000 ATCASCB EQU ATCAOSM+564 01113000 ATCAP86 EQU ATCAOSM+560 01114000 ATCAP85 EQU ATCAOSM+556 01115000 ATCAP84 EQU ATCAOSM+552 01116000 ATCAP83 EQU ATCAOSM+548 01117000 ATCAP82 EQU ATCAOSM+544 01118000 ATCAP69 EQU ATCAOSM+540 01119000 ATCAP66 EQU ATCAOSM+536 01120000 ATCAP62 EQU ATCAOSM+532 01121000 ATCAPC59 EQU ATCAOSM+528 01122000 ATCAP56 EQU ATCAOSM+524 01123000 ATCAP55 EQU ATCAOSM+520 01124000 ATCRCFY0 EQU ATCAOSM+516 01125000 ATCAP41 EQU ATCAOSM+512 01126000 ATCAPC25 EQU ATCAOSM+508 01127000 ATCAP23 EQU ATCAOSM+504 01128000 ATCTPSPB EQU ATCAOSM+472 01129000 ATCTRMPB EQU ATCAOSM+440 01130000 ATCAPBE EQU ATCAOSM+436 01131000 ATCPSTA EQU ATCAOSM+432 01132000 ATCSMABF EQU ATCAOSM+428 01133000 ATCSMAPR EQU ATCAOSM+424 01134000 ATCTPWQA EQU ATCAOSM+420 01135000 ATCSMAID EQU ATCAOSM+416 01136000 ATCSMARA EQU ATCAOSM+412 01137000 ATCCACXA EQU ATCAOSM+408 01138000 ATCZLAAB EQU ATCAOSM+404 01139000 ATCATA10 EQU ATCAOSM+400 01140000 ATCHLTCB EQU ATCAOSM+396 01141000 @NM00053 EQU ATCVTFLG 01142000 ATCVTACT EQU ATCVTFLG 01143000 ATCRPT40 EQU ATCAOSM+388 01144000 ATCRPT39 EQU ATCAOSM+384 01145000 ATCRPT38 EQU ATCAOSM+380 01146000 ATCRPT37 EQU ATCAOSM+376 01147000 ATCRPT36 EQU ATCAOSM+372 01148000 ATCRPT35 EQU ATCAOSM+368 01149000 ATCRPT34 EQU ATCAOSM+364 01150000 ATCRPT33 EQU ATCAOSM+360 01151000 ATCRPT32 EQU ATCAOSM+356 01152000 ATCRPT31 EQU ATCAOSM+352 01153000 ATCRPT30 EQU ATCAOSM+348 01154000 ATCOCWCB EQU ATCAOSM+344 01155000 ATCOCWOB EQU ATCAOSM+340 01156000 ATCRPT27 EQU ATCAOSM+336 01157000 @NM00052 EQU ATCAOSM+333 01158000 @NM00051 EQU @NM00050 01159000 ATCSNUF EQU @NM00050 01160000 ATCOPKL EQU @NM00050 01161000 ATCABEN EQU @NM00050 01162000 ATCAIWT EQU ATCAOSM+328 01163000 ATCINFDD EQU ATCAOSM+324 01164000 ATCORFMG EQU ATCAOSM+320 01165000 ATCORFRL EQU ATCAOSM+316 01166000 ATCOROBT EQU ATCAOSM+312 01167000 ATCORQG EQU ATCORSRB 01168000 ATCORTBF EQU ATCSQAFR 01169000 ATCRPLAC EQU ATCRPLCN+2 01170000 ATCRPLRC EQU ATCRPLCN 01171000 ATCCRPLQ EQU ATCCRPL 01172000 ATCSRBAC EQU ATCSRBCN+2 01173000 ATCSRBRC EQU ATCSRBCN 01174000 ATCSRBQ EQU ATCSRB 01175000 ATCCRAAC EQU ATCCRACN+2 01176000 ATCCRARC EQU ATCCRACN 01177000 ATCCRAQ EQU ATCCRA 01178000 ATCRPT12 EQU ATCAOSM+276 01179000 ATCDMAPP EQU ATCAOSM+272 01180000 ATCAP38 EQU ATCAOSM+268 01181000 ATCAP37 EQU ATCAOSM+264 01182000 ATCZDFJ0 EQU ATCAOSM+260 01183000 ATCAP51 EQU ATCAOSM+256 01184000 ATCZPAB2 EQU ATCAOSM+224 01185000 ATCZPAB1 EQU ATCAOSM+192 01186000 ATCZLFVT EQU ATCAOSM+188 01187000 ATCZLPVT EQU ATCAOSM+184 01188000 ATCZDVTX EQU ATCAOSM+180 01189000 ATCZDVTA EQU ATCAOSM+176 01190000 ATCZDVT9 EQU ATCAOSM+172 01191000 ATCZDVT8 EQU ATCAOSM+168 01192000 ATCZDVT7 EQU ATCAOSM+164 01193000 ATCRSV56 EQU ATCDAPVT+22 01194000 ATCDAPDG EQU ATCDAPVT+20 01195000 ATCDXCEA EQU ATCDAPVT+16 01196000 ATCDCEA EQU ATCDAPVT+12 01197000 ATCDPCIA EQU ATCDAPVT+8 01198000 ATCDSIOA EQU ATCDAPVT+4 01199000 ATCDEOEA EQU ATCDAPVT 01200000 ATCZLAEA EQU ATCLDAPP+16 01201000 ATCZLCEA EQU ATCLDAPP+12 01202000 ATCRSV17 EQU ATCLDAPP+8 01203000 ATCSMFRR EQU ATCLDAPP+4 01204000 ATCCDTID EQU ATCLDAPP 01205000 ATCZAEA EQU ATCICAPP+16 01206000 ATCZCEA EQU ATCICAPP+12 01207000 ATCCDTCB EQU ATCICAPP+8 01208000 ATCZSIOA EQU ATCICAPP+4 01209000 ATCCDRPH EQU ATCICAPP 01210000 ATCAP65 EQU ATCAOSM+96 01211000 ATCZDVT6 EQU ATCAOSM+92 01212000 ATCZDVT4 EQU ATCAOSM+88 01213000 ATCZDVT3 EQU ATCAOSM+84 01214000 ATCZDVT1 EQU ATCAOSM+80 01215000 ATCICNCB EQU ATCAOSM+76 01216000 ATCZFSVT EQU ATCAOSM+68 01217000 ATCAP64 EQU ATCAOSM+64 01218000 ATCAP63 EQU ATCAOSM+60 01219000 ATCAP61 EQU ATCAOSM+56 01220000 ATCAP58 EQU ATCAOSM+52 01221000 ATCAP57 EQU ATCAOSM+48 01222000 ATCAP54 EQU ATCAOSM+44 01223000 ATCAP53 EQU ATCAOSM+40 01224000 ATCAP52 EQU ATCAOSM+36 01225000 ATCAP34 EQU ATCAOSM+32 01226000 ATCAP32 EQU ATCAOSM+28 01227000 ATCAP31 EQU ATCAOSM+24 01228000 ATCAP12 EQU ATCAOSM+20 01229000 ATCAP11 EQU ATCAOSM+16 01230000 ATCCMTCB EQU ATCAOSM+12 01231000 ATCPRPH EQU ATCAOSM+8 01232000 ATCGSRBF EQU ATCGSRBG 01233000 ATCSRBRT EQU ATCAOSM 01234000 @NM00049 EQU @NM00048 01235000 ATCVTMAB EQU @NM00048 01236000 @NM00047 EQU ATCVTBAM 01237000 ATCVDLOK EQU ISTATCVT+904 01238000 ATCVFPAB EQU ISTATCVT+872 01239000 ATCVDPAB EQU ISTATCVT+840 01240000 ATCIOECB EQU ISTATCVT+836 01241000 ATCINCW3 EQU ISTATCVT+832 01242000 ATCMODTB EQU ISTATCVT+828 01243000 ATCUSSPT EQU ISTATCVT+824 01244000 ATCSRTAB EQU ISTATCVT+820 01245000 @NM00046 EQU ISTATCVT+819 01246000 @NM00045 EQU ATCSTAT2 01247000 ATCTRSMS EQU ATCSTAT2 01248000 ATCTRLOK EQU ATCSTAT2 01249000 ATCTRPSS EQU ATCSTAT2 01250000 ATCTRESC EQU ATCSTAT2 01251000 ATCTRAPI EQU ATCSTAT2 01252000 ATCNMCTR EQU ISTATCVT+816 01253000 ATCSEC51 EQU ATCSECST 01254000 ATCSEC40 EQU ATCSIPD+8 01255000 ATCSEC30 EQU ATCSIPD+4 01256000 ATCSEC21 EQU ATCSIPD 01257000 ATCSEC10 EQU ATCSOPD+4 01258000 ATCSEC01 EQU ATCSOPD 01259000 ATCPOIA EQU ATCRNO+1 01260000 @NM00044 EQU ATCRNO 01261000 ATCPODVT EQU ISTATCVT+784 01262000 ATCS49XL EQU ISTATCVT+780 01263000 ATCS49XI EQU ISTATCVT+776 01264000 ATCLCLCT EQU ATCVLCNT+2 01265000 ATCRNCNT EQU ATCVLCNT 01266000 ATCCFEAD EQU ISTATCVT+768 01267000 ATCPTR00 EQU ISTATCVT+736 01268000 ATCRSV10 EQU ISTATCVT+704 01269000 ATCTACB EQU ISTATCVT+700 01270000 ATCVTINM EQU ISTATCVT+696 01271000 ATCTCLIM EQU ISTATCVT+692 01272000 ATCTCLOM EQU ISTATCVT+688 01273000 ATCVTIPB EQU ISTATCVT+656 01274000 ATCTCIPB EQU ISTATCVT+624 01275000 ATCTIPAB EQU ISTATCVT+592 01276000 ATCOCCCB EQU ISTATCVT+588 01277000 ATCOCCOB EQU ISTATCVT+584 01278000 ATCCDLAD EQU ISTATCVT+580 01279000 ATCCCLAD EQU ISTATCVT+576 01280000 ATCDLRPB EQU ISTATCVT+544 01281000 ATCPGPAB EQU ISTATCVT+512 01282000 ATCVPAB1 EQU ISTATCVT+480 01283000 ATCRSV97 EQU ISTATCVT+476 01284000 ATCRDTLK EQU ISTATCVT+472 01285000 ATCVOCLK EQU ISTATCVT+468 01286000 ATCCDFDN EQU ISTATCVT+464 01287000 ATCCDFIN EQU ISTATCVT+460 01288000 ATCDVTLK EQU ISTATCVT+456 01289000 ATCAP36 EQU ISTATCVT+452 01290000 ATCAP35 EQU ISTATCVT+448 01291000 ATCAP33 EQU ISTATCVT+444 01292000 ATCRSV99 EQU ISTATCVT+440 01293000 ATCONFIG EQU ISTATCVT+432 01294000 ATCNODDS EQU ISTATCVT+428 01295000 ATCNODEL EQU ISTATCVT+420 01296000 ATCRSV69 EQU ISTATCVT+416 01297000 ATCAPCR5 EQU ISTATCVT+412 01298000 ATCLDECB EQU ISTATCVT+408 01299000 ATCLDNCS EQU ISTATCVT+404 01300000 ATCCDPTR EQU ISTATCVT+400 01301000 ATCADEL EQU ISTATCVT+396 01302000 ATCTODVT EQU ISTATCVT+392 01303000 ATCDEBCH EQU ISTATCVT+388 01304000 ATCHBSIZ EQU ATCHPGM+2 01305000 ATCHBFNO EQU ATCHPGM 01306000 ATCCRME EQU ISTATCVT+380 01307000 ATCRVCHS EQU ISTATCVT+372 01308000 ATCECTLP EQU ISTATCVT+368 01309000 ATCZDVTB EQU ISTATCVT+364 01310000 ATCECPRT EQU ISTATCVT+360 01311000 ATCVTLOD EQU ISTATCVT+356 01312000 ATCTRPAB EQU ISTATCVT+352 01313000 ATCMSGM EQU ISTATCVT+348 01314000 ATCMSGP EQU ISTATCVT+344 01315000 ATCEPT EQU ISTATCVT+340 01316000 ATCDVT EQU ISTATCVT+336 01317000 ATCTRCPT EQU ISTATCVT+332 01318000 ATCDVLOD EQU ISTATCVT+328 01319000 ATCALERT EQU ISTATCVT+324 01320000 ATCEPA EQU ISTATCVT+320 01321000 ATCSAF EQU ISTATCVT+318 01322000 ATCXRANG EQU ISTATCVT+317 01323000 ATCLAST EQU ATCSHRFG 01324000 ATCSHRTN EQU ISTATCVT+308 01325000 ATCUEP EQU ISTATCVT+304 01326000 ATCOCRT EQU ISTATCVT+300 01327000 ATCCSMA EQU ATCCSMR 01328000 ATCESC02 EQU ISTATCVT+292 01329000 ATCESC01 EQU ISTATCVT+288 01330000 ATCCDFND EQU ISTATCVT+284 01331000 ATCCDDEL EQU ISTATCVT+280 01332000 ATCCDADD EQU ISTATCVT+276 01333000 ATCMNT EQU ISTATCVT+272 01334000 ATCRSV16 EQU ISTATCVT+270 01335000 ATCMAXID EQU ISTATCVT+269 01336000 ATCMSGSP EQU ATCCOM+268 01337000 ATCCIDM EQU ATCCOM+266 01338000 ATCACTRM EQU ATCCOM+264 01339000 ATCNERAP EQU ATCCOM+260 01340000 ATCNESAL EQU ATCCOM+256 01341000 ATCRCC65 EQU ATCCOM+252 01342000 ATCRCC26 EQU ATCCOM+248 01343000 ATCRCC63 EQU ATCCOM+244 01344000 ATCRSV11 EQU ATCCOM+242 01345000 ATCVTMID EQU ATCCOM+240 01346000 ATCAPOST EQU ATCCOM+236 01347000 ATCNERFN EQU ATCCOM+232 01348000 ATCNERNE EQU ATCCOM+228 01349000 ATCNERCV EQU ATCCOM+224 01350000 ATCNERST EQU ATCCOM+220 01351000 ATCDCC61 EQU ATCCOM+216 01352000 ATCDCC60 EQU ATCCOM+212 01353000 ATCSRTDF EQU ATCCOM+208 01354000 ATCSRTAD EQU ATCCOM+204 01355000 ATCFIRA EQU ATCCOM+200 01356000 ATCSMBQ EQU ATCCOM+196 01357000 ATCSMRC EQU ATCCOM+192 01358000 ATCSMRS EQU ATCCOM+188 01359000 ATCSMQU EQU ATCCOM+184 01360000 ATCSMRQ EQU ATCCOM+180 01361000 ATCACDA EQU ATCCOM+176 01362000 ATCSTMA EQU ATCCOM+172 01363000 ATCFRSTR EQU ATCCOM+168 01364000 ATCGTSTR EQU ATCCOM+164 01365000 ATCREADA EQU ATCCOM+160 01366000 ATCALOAD EQU ATCCOM+156 01367000 ATCBLDLA EQU ATCCOM+152 01368000 ATCFBRPH EQU ATCCOM+148 01369000 ATCBFTRC EQU ATCCOM+144 01370000 ATCTPBUF EQU ATCTHTRC 01371000 ATCREMOV EQU ATCCOM+136 01372000 ATCADD EQU ATCCOM+132 01373000 ATCBPDA EQU ATCCOM+128 01374000 ATCDVTPT EQU ATCCOM+124 01375000 ATCFEPT EQU ATCCOM+120 01376000 ATCFDVT EQU ATCCOM+116 01377000 ATCCONFT EQU ATCCOM+112 01378000 ATCPTCHA EQU ATCCOM+108 01379000 ATCAUTHA EQU ATCCOM+104 01380000 ATCACCTA EQU ATCCOM+100 01381000 ATCRDTH EQU ATCCOM+96 01382000 ATCFRSCH EQU ATCCOM+92 01383000 ATCFSB EQU ATCCOM+88 01384000 ATCHLTMS EQU ATCCOM+84 01385000 ATCECPRM EQU ATCCOM+80 01386000 ATCECNET EQU ATCCOM+76 01387000 ATCECOPC EQU ATCCOM+72 01388000 ATCVPARM EQU ATCCOM+68 01389000 ATCECVRQ EQU ATCCOM+64 01390000 ATCECSES EQU ATCCOM+60 01391000 ATCOCHA EQU ATCCOM+56 01392000 ATCDSPLQ EQU ATCCOM+52 01393000 ATCECDSP EQU ATCCOM+48 01394000 ATCVARYQ EQU ATCCOM+44 01395000 ATCECVRY EQU ATCCOM+40 01396000 ATCHALTQ EQU ATCCOM+36 01397000 ATCECHLT EQU ATCCOM+32 01398000 ATCMODQ EQU ATCCOM+28 01399000 ATCECMOD EQU ATCCOM+24 01400000 ATCASCHD EQU ATCCOM+20 01401000 ATCSRT EQU ATCCOM+16 01402000 ATCRDT EQU ATCCOM+12 01403000 ATCDCFRR EQU ATCCOM+8 01404000 ATCAPI EQU ATCCOM+4 01405000 ATCRSV04 EQU ATCSTAT4 01406000 ATCVTTRC EQU ATCSTAT4 01407000 ATCNCSD EQU ATCSTAT4 01408000 ATCMTST EQU ATCSTAT4 01409000 ATCTPRT EQU ATCSTAT4 01410000 ATCPRTAT EQU ATCSTAT4 01411000 @NM00043 EQU ATCPOFLG 01412000 ATCPOUNS EQU ATCPOFLG 01413000 ATCHSDMF EQU ATCSTFLG 01414000 @NM00042 EQU ATCSTAT1 01415000 ATCMDHLT EQU ATCSTAT1 01416000 ATCINHLT EQU ATCSTAT1 01417000 ATCNETSL EQU ATCSTAT1 01418000 ATCQKHLT EQU ATCSTAT1 01419000 ATCSNHLT EQU ATCSTAT1 01420000 ATCACTIV EQU ATCSTAT1 01421000 ATCSTART EQU ATCSTAT1 01422000 DYPPAB EQU ISTDYPAB+16 01423000 DYPRSV01 EQU ISTDYPAB+12 01424000 DYPTSKID EQU ISTDYPAB+8 01425000 DYPCHAIN EQU ISTDYPAB+4 01426000 DYPFLGS EQU ISTDYPAB+2 01427000 DYPLNGTH EQU ISTDYPAB+1 01428000 DYPTYPE EQU ISTDYPAB 01429000 CRACHAIN EQU ISTCRA+928 01430000 CRARSV02 EQU ISTCRA+924 01431000 CRARSV01 EQU ISTCRA+920 01432000 CRABFTBA EQU CRABUFA 01433000 CRAMASK EQU CRASVC+64 01434000 CRAHSIZ EQU CRASVC+60 01435000 CRAASCRR EQU CRASVC 01436000 CRAPROCR EQU ISTCRA+312 01437000 CRAPSS EQU ISTCRA+160 01438000 CRARPH EQU ISTCRA+52 01439000 CRALAPTR EQU CRABASIC+48 01440000 CRAL9PTR EQU CRABASIC+44 01441000 CRAL8PTR EQU CRABASIC+40 01442000 CRAL7PTR EQU CRABASIC+36 01443000 CRAL6PTR EQU CRABASIC+32 01444000 CRAL5PTR EQU CRABASIC+28 01445000 CRAL4PTR EQU CRABASIC+24 01446000 CRAL3PTR EQU CRABASIC+20 01447000 CRAL2PTR EQU CRABASIC+16 01448000 CRAL1PTR EQU CRABASIC+12 01449000 CRALEV01 EQU CRALKACT+3 01450000 CRALEV02 EQU CRALKACT+3 01451000 CRALEV03 EQU CRALKACT+3 01452000 CRALEV04 EQU CRALKACT+3 01453000 CRALEV05 EQU CRALKACT+3 01454000 CRALEV06 EQU CRALKACT+3 01455000 CRALEV07 EQU CRALKACT+3 01456000 CRALEV08 EQU CRALKACT+3 01457000 CRALEV09 EQU CRALKACT+2 01458000 CRALEV10 EQU CRALKACT+2 01459000 CRALEV11 EQU CRALKACT+2 01460000 CRALEV12 EQU CRALKACT+2 01461000 CRALEV13 EQU CRALKACT+2 01462000 CRALEV14 EQU CRALKACT+2 01463000 CRALEV15 EQU CRALKACT+2 01464000 CRALEV16 EQU CRALKACT+2 01465000 CRALEV17 EQU CRALKACT+1 01466000 CRALEV18 EQU CRALKACT+1 01467000 CRALEV19 EQU CRALKACT+1 01468000 CRALEV20 EQU CRALKACT+1 01469000 CRALEV21 EQU CRALKACT+1 01470000 CRALEV22 EQU CRALKACT+1 01471000 CRALEV23 EQU CRALKACT+1 01472000 CRALEV24 EQU CRALKACT+1 01473000 CRALEV25 EQU CRALKACT 01474000 CRALEV26 EQU CRALKACT 01475000 CRALEV27 EQU CRALKACT 01476000 CRALEV28 EQU CRALKACT 01477000 CRALEV29 EQU CRALKACT 01478000 CRALEV30 EQU CRALKACT 01479000 CRALEV31 EQU CRALKACT 01480000 CRALEV32 EQU CRALKACT 01481000 CRAFRR EQU CRAHDR+4 01482000 @NM00041 EQU ISTAPCRR+137 01483000 @NM00040 EQU APC57FLG 01484000 APCNREL EQU APC57FLG 01485000 APCRECRA EQU APC57FLG 01486000 @NM00039 EQU APC54FLG 01487000 APCRLST EQU APC54FLG 01488000 APCPR153 EQU APC53FLG 01489000 @NM00038 EQU APC52FLG 01490000 APCWKF EQU APC52FLG 01491000 APCNWF EQU APC52FLG 01492000 APCRDQ EQU APC52FLG 01493000 APCQENQ EQU APC52FLG 01494000 APCSMSR EQU APC52FLG 01495000 APCCKRQ EQU APC52FLG 01496000 @NM00037 EQU APC31FLG 01497000 APCSORT EQU APC31FLG 01498000 APCRESCH EQU APC31FLG 01499000 APCTPXIT EQU APC31FLG 01500000 APCSWTWD EQU ISTAPCRR+128 01501000 APCSAV2 EQU ISTAPCRR+124 01502000 APCSAV1 EQU ISTAPCRR+120 01503000 APCRETCD EQU APCCOMF+2 01504000 @NM00036 EQU APCCOMF1+1 01505000 APCZLBER EQU APCCOMF1 01506000 APCEXIT EQU APCCOMF1 01507000 APCRELR EQU APCCOMF1 01508000 APCIRB2 EQU APCCOMF1 01509000 APCIRB1 EQU APCCOMF1 01510000 APCSMCR EQU APCCOMF1 01511000 APCUETSK EQU APCCOMF1 01512000 APCSSTSK EQU APCCOMF1 01513000 APCESTAL EQU APCSAVE 01514000 APCFRRPM EQU ISTAPCRR+40 01515000 APCQWFO EQU ISTAPCRR+36 01516000 APCPABSV EQU ISTAPCRR+32 01517000 APCRTRN EQU ISTAPCRR+28 01518000 APCTCBA EQU ISTAPCRR+24 01519000 APCPSTA EQU ISTAPCRR+20 01520000 @NM00035 EQU APCRFLG+1 01521000 APC31R EQU APCRFLG 01522000 APC58R EQU APCRFLG 01523000 APC57R EQU APCRFLG 01524000 APC56R EQU APCRFLG 01525000 APC54R EQU APCRFLG 01526000 APC53R EQU APCRFLG 01527000 APC52R EQU APCRFLG 01528000 APC51R EQU APCRFLG 01529000 @NM00034 EQU APCATFLG+1 01530000 APC31E EQU APCATFLG 01531000 APC58E EQU APCATFLG 01532000 APC57E EQU APCATFLG 01533000 APC56E EQU APCATFLG 01534000 APC54E EQU APCATFLG 01535000 APC53E EQU APCATFLG 01536000 APC52E EQU APCATFLG 01537000 APC51E EQU APCATFLG 01538000 APCHDRSV EQU ISTAPCRR 01539000 ASCPSREG EQU ISTASCRR+44 01540000 ASCUSR01 EQU ASCUSRGS+12 01541000 ASCUSR00 EQU ASCUSRGS+8 01542000 ASCUSR15 EQU ASCUSRGS+4 01543000 ASCUSR14 EQU ASCUSRGS 01544000 ASCETRYA EQU ISTASCRR+24 01545000 ASCKEY EQU ISTASCRR+23 01546000 ASCAUDIT EQU ASCFLG3 01547000 ASCFBDUD EQU ASCFLG3 01548000 ASCLLKF EQU ASCFLG3 01549000 ASCKEYF EQU ASCFLG3 01550000 ASCFBDAL EQU ASCFLG3 01551000 ASCFSRGT EQU ASCFLG3 01552000 ASCICR EQU ASCFLG2 01553000 ASCFSRIC EQU ASCFLG2 01554000 ASCFBDIC EQU ASCFLG2 01555000 ASCFBAIC EQU ASCFLG2 01556000 ASCPASTR EQU ASCFLG1 01557000 ASCFSR EQU ASCFLG1 01558000 ASCFBD EQU ASCFLG1 01559000 ASCFBA EQU ASCFLG1 01560000 ASCPFCRR EQU ISTASCRR 01561000 CCFRSVD1 EQU CFCCRT 01562000 CCFCR2 EQU CFCCRT 01563000 CCFCRP EQU CFCCRT 01564000 CCFCR1 EQU CFCCRT 01565000 CCFCS2 EQU CFCCRT 01566000 CCFCS1 EQU CFCCRT 01567000 NCFRSVD EQU CFCNTRD 01568000 NCFCR2 EQU CFCNTRD 01569000 NCFCRP EQU CFCNTRD 01570000 NCFCR1 EQU CFCNTRD 01571000 NCFCS2 EQU CFCNTRD 01572000 NCFCS1 EQU CFCNTRD 01573000 PFCRSV01 EQU ISTPFCRR+13 01574000 PFCFTA EQU ISTPFCRR+12 01575000 CRRFRR EQU PFCFRRO 01576000 CRRCHAIN EQU PFCCRRO 01577000 CRRLEN EQU PFCCRRLN 01578000 PFCRSV10 EQU PFCCRR+1 01579000 CRRID EQU PFCCRRID 01580000 ZCRRU EQU ZCRRHRU+3 01581000 ZCRRH EQU ZCRRHRU 01582000 ZCRWORDA EQU ISTZCRR+477 01583000 ZCRCMNRC EQU ISTZCRR+476 01584000 ZCRRSV97 EQU ZCRENTER+18 01585000 ZCREIC2B EQU ZCRENTER+18 01586000 ZCREAC2B EQU ZCRENTER+18 01587000 ZCRELCAB EQU ZCRENTER+18 01588000 ZCREDCMF EQU ZCRENTER+18 01589000 ZCREBCIF EQU ZCRENTER+18 01590000 ZCREICSG EQU ZCRENTER+18 01591000 ZCREDCK0 EQU ZCRENTER+18 01592000 ZCRECFY0 EQU ZCRENTER+17 01593000 ZCREKCCB EQU ZCRENTER+17 01594000 ZCREDCNB EQU ZCRENTER+17 01595000 ZCREICOE EQU ZCRENTER+17 01596000 ZCREBCNB EQU ZCRENTER+17 01597000 ZCREBC0L EQU ZCRENTER+17 01598000 ZCREBCAL EQU ZCRENTER+17 01599000 ZCREDCQR EQU ZCRENTER+17 01600000 ZCREDCPR EQU ZCRENTER+16 01601000 ZCREBCSB EQU ZCRENTER+16 01602000 ZCREAC1R EQU ZCRENTER+16 01603000 ZCRECCCI EQU ZCRENTER+16 01604000 ZCRECCAI EQU ZCRENTER+16 01605000 ZCRECCBI EQU ZCRENTER+16 01606000 ZCREBCAR EQU ZCRENTER+16 01607000 ZCREBCDR EQU ZCRENTER+16 01608000 ZCREBCBR EQU ZCRENTER+15 01609000 ZCREDCXR EQU ZCRENTER+15 01610000 ZCREDCWB EQU ZCRENTER+15 01611000 ZCREDCWR EQU ZCRENTER+15 01612000 ZCREKCCN EQU ZCRENTER+15 01613000 ZCREKCBN EQU ZCRENTER+15 01614000 ZCREKCBB EQU ZCRENTER+15 01615000 ZCREJC0B EQU ZCRENTER+15 01616000 ZCREJCDB EQU ZCRENTER+14 01617000 ZCREJCCB EQU ZCRENTER+14 01618000 ZCREJCBB EQU ZCRENTER+14 01619000 ZCREJCAB EQU ZCRENTER+14 01620000 ZCREIC1B EQU ZCRENTER+14 01621000 ZCREIC0B EQU ZCRENTER+14 01622000 ZCREICX0 EQU ZCRENTER+14 01623000 ZCREICWB EQU ZCRENTER+14 01624000 ZCREICVB EQU ZCRENTER+13 01625000 ZCREICUB EQU ZCRENTER+13 01626000 ZCREICTB EQU ZCRENTER+13 01627000 ZCREICSC EQU ZCRENTER+13 01628000 ZCREICSB EQU ZCRENTER+13 01629000 ZCREICRB EQU ZCRENTER+13 01630000 ZCREICQB EQU ZCRENTER+13 01631000 ZCREICQA EQU ZCRENTER+13 01632000 ZCREICOB EQU ZCRENTER+12 01633000 ZCREICOA EQU ZCRENTER+12 01634000 ZCREICNB EQU ZCRENTER+12 01635000 ZCREICNA EQU ZCRENTER+12 01636000 ZCREICMB EQU ZCRENTER+12 01637000 ZCREICLB EQU ZCRENTER+12 01638000 ZCREICKG EQU ZCRENTER+12 01639000 ZCREICKE EQU ZCRENTER+12 01640000 ZCREICKB EQU ZCRENTER+11 01641000 ZCREICJB EQU ZCRENTER+11 01642000 ZCREICID EQU ZCRENTER+11 01643000 ZCREICIB EQU ZCRENTER+11 01644000 ZCREICHB EQU ZCRENTER+11 01645000 ZCREICGB EQU ZCRENTER+11 01646000 ZCREICEB EQU ZCRENTER+11 01647000 ZCREICDB EQU ZCRENTER+11 01648000 ZCREICCI EQU ZCRENTER+10 01649000 ZCREICCB EQU ZCRENTER+10 01650000 ZCREICBI EQU ZCRENTER+10 01651000 ZCREICAB EQU ZCRENTER+10 01652000 ZCREICAA EQU ZCRENTER+10 01653000 ZCREHCAN EQU ZCRENTER+10 01654000 ZCREGC0B EQU ZCRENTER+10 01655000 ZCREGC0A EQU ZCRENTER+9 01656000 ZCREGCLA EQU ZCRENTER+9 01657000 ZCREGCEB EQU ZCRENTER+9 01658000 ZCREGCDB EQU ZCRENTER+9 01659000 @NM00033 EQU ZCRENTER+9 01660000 ZCREGCBB EQU ZCRENTER+9 01661000 ZCREGCAB EQU ZCRENTER+9 01662000 ZCREFCEB EQU ZCRENTER+9 01663000 ZCREFCEA EQU ZCRENTER+8 01664000 ZCREECTA EQU ZCRENTER+8 01665000 ZCREECEA EQU ZCRENTER+8 01666000 ZCREECDA EQU ZCRENTER+8 01667000 ZCREECCB EQU ZCRENTER+8 01668000 ZCREECCA EQU ZCRENTER+8 01669000 ZCREECBB EQU ZCRENTER+8 01670000 ZCREECBA EQU ZCRENTER+8 01671000 ZCREDCMB EQU ZCRENTER+7 01672000 ZCREDCL0 EQU ZCRENTER+7 01673000 ZCREDCKB EQU ZCRENTER+7 01674000 ZCREDCKA EQU ZCRENTER+7 01675000 ZCREDCJ0 EQU ZCRENTER+7 01676000 ZCREDCI0 EQU ZCRENTER+7 01677000 ZCREDCH0 EQU ZCRENTER+7 01678000 ZCREDCF0 EQU ZCRENTER+7 01679000 ZCREDCE0 EQU ZCRENTER+6 01680000 ZCREDCD0 EQU ZCRENTER+6 01681000 ZCREDCC0 EQU ZCRENTER+6 01682000 ZCREDCB0 EQU ZCRENTER+6 01683000 ZCREDCA0 EQU ZCRENTER+6 01684000 ZCRECC2B EQU ZCRENTER+6 01685000 ZCRECC1B EQU ZCRENTER+6 01686000 ZCRECC1A EQU ZCRENTER+6 01687000 ZCRECC0B EQU ZCRENTER+5 01688000 ZCRECC0A EQU ZCRENTER+5 01689000 ZCREBC0B EQU ZCRENTER+5 01690000 ZCREBC0A EQU ZCRENTER+5 01691000 ZCREBCZ0 EQU ZCRENTER+5 01692000 ZCREBCY0 EQU ZCRENTER+5 01693000 ZCREBCX0 EQU ZCRENTER+5 01694000 ZCREBCXA EQU ZCRENTER+5 01695000 ZCREBCSC EQU ZCRENTER+4 01696000 ZCREBCRB EQU ZCRENTER+4 01697000 ZCREBCRA EQU ZCRENTER+4 01698000 ZCREBCQB EQU ZCRENTER+4 01699000 ZCREBCPB EQU ZCRENTER+4 01700000 ZCREBCOB EQU ZCRENTER+4 01701000 ZCREBCNE EQU ZCRENTER+4 01702000 ZCREBCND EQU ZCRENTER+4 01703000 ZCREBCMB EQU ZCRENTER+3 01704000 ZCREBCLB EQU ZCRENTER+3 01705000 ZCREBCLA EQU ZCRENTER+3 01706000 ZCREBCKB EQU ZCRENTER+3 01707000 ZCREBCKA EQU ZCRENTER+3 01708000 ZCREBCJB EQU ZCRENTER+3 01709000 ZCREBCJA EQU ZCRENTER+3 01710000 ZCREBCID EQU ZCRENTER+3 01711000 ZCREBCIB EQU ZCRENTER+2 01712000 ZCREBCIA EQU ZCRENTER+2 01713000 ZCREBCHB EQU ZCRENTER+2 01714000 ZCREBCHA EQU ZCRENTER+2 01715000 ZCREBCGB EQU ZCRENTER+2 01716000 ZCREBCGA EQU ZCRENTER+2 01717000 ZCREBCFB EQU ZCRENTER+2 01718000 ZCREBCFA EQU ZCRENTER+2 01719000 ZCREBCEB EQU ZCRENTER+1 01720000 ZCREBCDI EQU ZCRENTER+1 01721000 ZCREBCCB EQU ZCRENTER+1 01722000 ZCREBCBI EQU ZCRENTER+1 01723000 ZCREBCBB EQU ZCRENTER+1 01724000 ZCREBCBA EQU ZCRENTER+1 01725000 ZCREBCAM EQU ZCRENTER+1 01726000 ZCREBCAI EQU ZCRENTER+1 01727000 ZCREBCAG EQU ZCRENTER 01728000 ZCREBCAE EQU ZCRENTER 01729000 ZCREBCAB EQU ZCRENTER 01730000 ZCREBCAA EQU ZCRENTER 01731000 ZCREAC1B EQU ZCRENTER 01732000 ZCREAC0B EQU ZCRENTER 01733000 ZCREAC0A EQU ZCRENTER 01734000 ZCREAC1A EQU ZCRENTER 01735000 ZCRTNAME EQU ZCRAUDIT+1 01736000 ZCRTID EQU ZCRAUDIT 01737000 ZCRREMIC EQU ISTZCRR+436 01738000 ZCRSAVEZ EQU ISTZCRR+196 01739000 ZCRDAFSV EQU ZCRCIDSV+2 01740000 ZCRSAFSV EQU ZCRCIDSV 01741000 ZCRR13SV EQU ISTZCRR+188 01742000 ZCRR2SV EQU ISTZCRR+184 01743000 ZCROPCDE EQU ISTZCRR+183 01744000 ZCRPRMTC EQU ISTZCRR+182 01745000 ZCRAWQSW EQU ISTZCRR+180 01746000 ZCRTOPQ EQU ISTZCRR+180 01747000 ZCRLSTFB EQU ISTZCRR+180 01748000 ZCRXSCHD EQU ISTZCRR+180 01749000 ZCRNXTEL EQU ISTZCRR+180 01750000 ZCRSCANQ EQU ISTZCRR+180 01751000 ZCRMOREL EQU ISTZCRR+180 01752000 ZCRFBPRC EQU ISTZCRR+180 01753000 ZCRFSBSV EQU ISTZCRR+176 01754000 ZCRSVWK5 EQU ZCRWKARA+16 01755000 ZCRSVWK4 EQU ZCRWKARA+12 01756000 ZCRSVWK3 EQU ZCRWKARA+8 01757000 ZCRSVWK2 EQU ZCRWKARA+4 01758000 ZCRSVWK1 EQU ZCRWKARA 01759000 ZCRSVF25 EQU ZCRSVRTN+96 01760000 ZCRSVF24 EQU ZCRSVRTN+92 01761000 ZCRSVF23 EQU ZCRSVRTN+88 01762000 ZCRSVF22 EQU ZCRSVRTN+84 01763000 ZCRSVF21 EQU ZCRSVRTN+80 01764000 ZCRSVF20 EQU ZCRSVRTN+76 01765000 ZCRSVF19 EQU ZCRSVRTN+72 01766000 ZCRSVF18 EQU ZCRSVRTN+68 01767000 ZCRSVF17 EQU ZCRSVRTN+64 01768000 ZCRSVF16 EQU ZCRSVRTN+60 01769000 ZCRSVF15 EQU ZCRSVRTN+56 01770000 ZCRSVF14 EQU ZCRSVRTN+52 01771000 ZCRSVF13 EQU ZCRSVRTN+48 01772000 ZCRSVF12 EQU ZCRSVRTN+44 01773000 ZCRSVF11 EQU ZCRSVRTN+40 01774000 ZCRSVF10 EQU ZCRSVRTN+36 01775000 ZCRSVF9 EQU ZCRSVRTN+32 01776000 ZCRSVF8 EQU ZCRSVRTN+28 01777000 ZCRSVF7 EQU ZCRSVRTN+24 01778000 ZCRSVF6 EQU ZCRSVRTN+20 01779000 ZCRSVF5 EQU ZCRSVRTN+16 01780000 ZCRSVF4 EQU ZCRSVRTN+12 01781000 ZCRSVF3 EQU ZCRSVRTN+8 01782000 ZCRSVF2 EQU ZCRSVRTN+4 01783000 ZCRSVF1 EQU ZCRSVRTN 01784000 ZCRPVZB EQU ISTZCRR+52 01785000 ZCRZLB EQU ISTZCRR+48 01786000 ZCRBFPTR EQU ISTZCRR+44 01787000 ZCRCCWA EQU ISTZCRR+40 01788000 ZCRPSW EQU ZCRPARMS+15 01789000 ZCRPCHAR EQU ZCRPARMS+14 01790000 ZCRPRES2 EQU ZCRPCOD2 01791000 ZCRPMFGF EQU ZCRPCOD2 01792000 ZCRPFHDR EQU ZCRPCOD2 01793000 ZCRPPG2 EQU ZCRPCOD2 01794000 ZCRPRES EQU ZCRPCOD1 01795000 ZCRPCFTX EQU ZCRPCOD1 01796000 ZCRPBUF EQU ZCRPCOD1 01797000 ZCRPLSCB EQU ZCRPCOD1 01798000 ZCRPLSBQ EQU ZCRPLSBF 01799000 ZCRPFSB EQU ZCRPCOD1 01800000 ZCRPLNG EQU ZCRPCOD1 01801000 ZCRPPG EQU ZCRPCOD1 01802000 ZCRDTODA EQU ZCRDFRDA 01803000 ZCRMLNG EQU ZCRPARMS+8 01804000 ZCRTBPTR EQU ZCRPARMS+4 01805000 ZCRCBPTR EQU ZCRFBPTR 01806000 ZCRCRLCP EQU ISTZCRR+20 01807000 ZCRMDATA EQU ZCRSCPSW 01808000 ZCRSKIPT EQU ZCRSCPSW 01809000 ZCRFSBWE EQU ZCRSCPSW 01810000 ZCRPRCMP EQU ZCRSCPSW 01811000 ZCRLREQ EQU ZCRSCPSW 01812000 ZCRRJLCP EQU ZCRSCPSW 01813000 ZCRTPINV EQU ZCRSCPSW 01814000 ZCRTPEX EQU ZCRSCPSW 01815000 @NM00032 EQU ZCRIBPR 01816000 ZCR3270R EQU ZCRIBPR 01817000 ZCR3270 EQU ZCRIBPR 01818000 ZCRLCPFD EQU ZCRIBPR 01819000 ZCRLCPFR EQU ZCRIBPR 01820000 ZCRRELK EQU ZCRIBPR 01821000 ZCRERR EQU ZCRIBPR 01822000 ZCRNOBUF EQU ZCRIBPR 01823000 @NM00031 EQU ZCRPFLGS 01824000 ZCRQAHED EQU ZCRPFLGS 01825000 ZCRF1RES EQU ZCRGENSW 01826000 ZCRBRIS EQU ZCRGENSW 01827000 ZCRCLRBD EQU ZCRGENSW 01828000 ZCREXRES EQU ZCRGENSW 01829000 ZCRLCSYN EQU ZCRGENSW 01830000 ZCRRT06 EQU ZCRGENSW 01831000 ZCRTSW2 EQU ZCRGENSW 01832000 ZCRTSW1 EQU ZCRGENSW 01833000 ZCRINLCP EQU ZCRFLGS3 01834000 ZCRWRPTR EQU ZCRFLGS3 01835000 ZCRNOFRE EQU ZCRFLGS3 01836000 ZCREDRIV EQU ZCRFLGS3 01837000 ZCRDISC EQU ZCRFLGS3 01838000 ZCRTPDIS EQU ZCRFLGS3 01839000 ZCRTPCON EQU ZCRFLGS3 01840000 ZCRTIC EQU ZCRFLGS3 01841000 ZCRCNLXL EQU ZCRRESET 01842000 ZCRENDAN EQU ZCRSWFLD 01843000 ZCRENDXL EQU ZCRSWFLD 01844000 ZCRENDX EQU ZCRSWFLD 01845000 ZCROB1 EQU ZCRNDLCP 01846000 ZCRENDPR EQU ZCRSWFLD 01847000 ZCREXTYP EQU ZCRSWFLD 01848000 ZCRSLCP EQU ZCRENDSH 01849000 ZCRIF0E3 EQU ZCRFLGS2 01850000 ZCRIF0E2 EQU ZCRFLGS2 01851000 ZCRIF0E1 EQU ZCRFLGS2 01852000 ZCROB EQU ZCRFLGS2 01853000 ZCRFMSED EQU ZCRFLGS2 01854000 ZCRSHEDI EQU ZCRFLGS2 01855000 ZCRLOCAL EQU ZCRFLGS2 01856000 ZCRFEXIT EQU ZCRFLGS1 01857000 ZCRUNSOL EQU ZCRFLGS1 01858000 ZCRENDLP EQU ZCRFLGS1 01859000 ZCRNRMEX EQU ZCRFLGS1 01860000 ZCRWAIT EQU ZCRFLGS1 01861000 ZCRDEQSW EQU ZCRFLGS1 01862000 ZCRQUESW EQU ZCRFLGS1 01863000 ZCREXSW EQU ZCRFLGS1 01864000 ZCRFRRA EQU ISTZCRR+8 01865000 ZCRCHAIN EQU ISTZCRR+4 01866000 ZCRFLAG EQU ZCRCRR+3 01867000 ZCRLEN EQU ZCRCRR+1 01868000 ZCRID EQU ZCRCRR 01869000 LCPFTYPE EQU LCPRPHA 01870000 LCPRSTQH EQU LCPLCCW 01871000 LCPCLREP EQU ISTLCPB+44 01872000 LCPUBFSB EQU LCPFLCCW 01873000 LCPRSV77 EQU ISTLCPB+39 01874000 LCPLCCWC EQU ISTLCPB+38 01875000 LCPRSV78 EQU LCPFLG1 01876000 LCPTRANS EQU LCPFLG1 01877000 LCPSTLB EQU LCPFLG1 01878000 LCPREDRV EQU LCPFLG1 01879000 LCPDIRPT EQU LCPFLG1 01880000 LCPINTER EQU LCPFLG1 01881000 LCPRESET EQU LCPFLG1 01882000 LCPSTYPE EQU ISTLCPB+36 01883000 LCPFSNCH EQU ISTLCPB+34 01884000 LCPFOSN EQU ISTLCPB+32 01885000 LCPTLBAD EQU ISTLCPB+28 01886000 LCPFDB2 EQU LCPFDBA+1 01887000 LCPFDB1 EQU LCPFDBA 01888000 LCPNXLCW EQU ISTLCPB+20 01889000 LCPDAF EQU LCPCID+2 01890000 LCPSAF EQU LCPCID 01891000 LCPLCCW1 EQU ISTLCPB+12 01892000 LCPRRCNT EQU LCPSEQ+1 01893000 LCPRRCCT EQU LCPSEQ 01894000 LCPATOP EQU LCPFLAG2 01895000 LCPFREE EQU LCPFLAG2 01896000 LCPDSTAT EQU LCPFLAG2 01897000 LCPEXRES EQU LCPFID0 01898000 LCPZRIMM EQU LCPTLBPI 01899000 LCPRSTRT EQU LCPFLAG2 01900000 LCPASYN EQU LCPFLAG2 01901000 LCPPRFLG EQU LCPFLAG2 01902000 LCPZMIRC EQU LCPRUCNT 01903000 LCPCHAI2 EQU LCPCHAIN+1 01904000 LCPCHNG EQU LCPCHAI1 01905000 LCPZRT0B EQU LCPMNRCD 01906000 LCPZRT0A EQU LCPMNRCD 01907000 LCPZRTL9 EQU LCPZRT09 01908000 LCPZRTL8 EQU LCPZRT08 01909000 LCPZRTL7 EQU LCPZRT07 01910000 LCPZRTL6 EQU LCPZRT06 01911000 LCPZRTL5 EQU LCPZRT05 01912000 LCPZRTL4 EQU LCPZRT04 01913000 LCPZRTL3 EQU LCPZRT03 01914000 LCPZRTL2 EQU LCPZRT02 01915000 LCPZRT01 EQU LCPFLAGS 01916000 LCPZRT00 EQU LCPFLAGS 01917000 LCPLNGTH EQU ISTLCPB+1 01918000 LCPTYPE EQU ISTLCPB 01919000 LCCWDATA EQU ISTLCCW+4 01920000 LCCWCNT EQU ISTLCCW+2 01921000 LCCWACI EQU LCCWFLAG 01922000 LCCWRFI EQU LCCWFLAG 01923000 LCCWPER EQU LCCWLSI 01924000 LCCWIDAT EQU LCCWFLAG 01925000 LCCWNTVC EQU LCCWFLAG 01926000 LCCWCKPT EQU LCCWFLAG 01927000 LCCWCD EQU LCCWFLAG 01928000 LCCWTYPE EQU LCCWCTL 01929000 LCCWMODE EQU LCCWCTL 01930000 LCCWSOP EQU LCCWRWOP 01931000 @NM00030 EQU LCCWRWOP 01932000 LCCWSD EQU LCCWOP 01933000 LCCWSI EQU LCCWOP 01934000 RPHNEXPO EQU ISTRPH+104 01935000 RPHSAV16 EQU RPHWORK+60 01936000 RPHSAV15 EQU RPHWORK+56 01937000 RPHSAV14 EQU RPHWORK+52 01938000 RPHSAV13 EQU RPHWORK+48 01939000 RPHSAV12 EQU RPHWORK+44 01940000 RPHSAV11 EQU RPHWORK+40 01941000 RPHSAV10 EQU RPHWORK+36 01942000 RPHSAVE9 EQU RPHWORK+32 01943000 RPHSAVE8 EQU RPHWORK+28 01944000 RPHSAVE7 EQU RPHWORK+24 01945000 RPHSAVE6 EQU RPHWORK+20 01946000 RPHSAVE5 EQU RPHWORK+16 01947000 RPHSAVE4 EQU RPHWORK+12 01948000 RPHSAVE3 EQU RPHWORK+8 01949000 RPHSAVE2 EQU RPHWORK+4 01950000 RPHSHALF EQU RPHSAVE1+2 01951000 RPHSBIT8 EQU RPHSBITS 01952000 RPHSBIT7 EQU RPHSBITS 01953000 RPHSBIT6 EQU RPHSBITS 01954000 RPHSBIT5 EQU RPHSBITS 01955000 RPHSBIT4 EQU RPHSBITS 01956000 RPHSBIT3 EQU RPHSBITS 01957000 RPHSBIT2 EQU RPHSBITS 01958000 RPHSBIT1 EQU RPHSBITS 01959000 RPHSBYTE EQU RPHSAVE1 01960000 RPHPABQP EQU RPHPABQA+1 01961000 RPHPABFG EQU RPHPABQA 01962000 RPHSRP34 EQU RPHSRPRM+2 01963000 RPHSRP12 EQU RPHSRPRM 01964000 RPHWEGT EQU RPHCSPA 01965000 RPHMAJCB EQU ISTRPH+21 01966000 RPHPABOF EQU ISTRPH+20 01967000 RPHRESUM EQU RPHRESMA+1 01968000 RPHRSV01 EQU RPHWPFLG 01969000 RPHPURGE EQU RPHWPFLG 01970000 RPHPT EQU RPHWPFLG 01971000 RPHWT EQU RPHWPFLG 01972000 RPHRSKEY EQU RPHWPFLG 01973000 RPHDVTA EQU ISTRPH+12 01974000 RPHTIK EQU RPHTSKID+3 01975000 @NM00029 EQU RPHTSKID 01976000 RPHRPHAP EQU RPHRPHA+1 01977000 @NM00028 EQU RPHCVFLG 01978000 RPHFRRPH EQU RPHCVFLG 01979000 RPHOWRPH EQU RPHCVFLG 01980000 RPHCDRPH EQU RPHCVFLG 01981000 RPHPSRPH EQU RPHCVFLG 01982000 RPHVYRPH EQU RPHGATE 01983000 @NM00027 EQU RPHFLGB 01984000 RPHRLCRA EQU RPHFLGB 01985000 RPHNRSAV EQU RPHFLGB 01986000 RPHPGCMP EQU RPHFLGB 01987000 RPHFBAPS EQU RPHFLGB 01988000 RPHBSSP EQU RPHFLGB 01989000 RPHLOCK EQU RPHFLGB 01990000 RPHFNFLG EQU RPHFSTLC 01991000 RPHMLTCP EQU RPHFLAGS 01992000 RPHSMCLR EQU RPHFLAGS 01993000 RPHSMTYP EQU RPHFLAGS 01994000 RPHSMQ EQU RPHFLAGS 01995000 RPHAUTEX EQU RPHAPTYP 01996000 RPHSPGIN EQU RPHFLAGS 01997000 RPHOGIND EQU RPHFLAGS 01998000 RPHLNGTH EQU RPHCNTL+1 01999000 RPHTYPE EQU RPHCNTL 02000000 ZIBLNG1 EQU ZIBFSM 02001000 ZIBCHAIN EQU ISTZIBUF 02002000 TH2SNF EQU ISTTH2+4 02003000 TH2OAF EQU ISTTH2+3 02004000 TH2DAF EQU ISTTH2+2 02005000 TH2CDF EQU TH2FLAG1+1 02006000 TH2SEF EQU TH2FLAG1+1 02007000 TH2PYF EQU TH2FLAG1+1 02008000 TH2AFI EQU TH2FLAG1 02009000 TH2PSI EQU TH2FLAG1 02010000 TH2CMPLI EQU TH2MPF 02011000 TH2RHI EQU TH2MPF 02012000 TH2FID EQU TH2FLAG1 02013000 THDCF EQU ISTTH+8 02014000 THSNF EQU ISTTH+6 02015000 THOAF EQU ISTTH+4 02016000 THDAF EQU ISTTH+2 02017000 THCDF EQU THFLGB 02018000 THSEF EQU THFLGB 02019000 THPYF EQU THFLGB 02020000 THAFI EQU THFLGA 02021000 THPSI EQU THFLGA 02022000 THCMPLI EQU THMPF 02023000 THRHI EQU THMPF 02024000 THFID EQU THFLAG1 02025000 LHVDATA EQU ISTLH+4 02026000 LHFUNCT EQU ISTLH+3 02027000 @NM00021 EQU ISTLH+2 02028000 LHLEN EQU ISTLH 02029000 BTUEXTR EQU ISTBTU+19 02030000 BTURSV02 EQU BTUSYSTR 02031000 BTUPHASE EQU BTUSYSTR 02032000 BTURSV01 EQU BTUSYSTR 02033000 BTUPAD EQU BTURH+3 02034000 BTURH3 EQU BTURH+2 02035000 BTURH2 EQU BTURH+1 02036000 BTURH1 EQU BTURH 02037000 BTUDCF EQU BTUBTH+8 02038000 BTUZRTSC EQU BTURQFLG+1 02039000 BTUZRT0B EQU BTURQFLG+1 02040000 BTUZRT0A EQU BTURQFLG+1 02041000 BTUZRT09 EQU BTURQFLG+1 02042000 BTUZRT08 EQU BTURQFLG+1 02043000 BTUZRT07 EQU BTURQFLG 02044000 BTUZRT06 EQU BTURQFLG 02045000 BTUZRT05 EQU BTURQFLG 02046000 BTUZRT04 EQU BTURQFLG 02047000 BTUZRT03 EQU BTURQFLG 02048000 BTUZRT02 EQU BTURQFLG 02049000 BTUZRT01 EQU BTURQFLG 02050000 BTUZRT00 EQU BTURQFLG 02051000 BTUSORCE EQU BTUBTH+4 02052000 BTUDEST EQU BTUBTH+2 02053000 BTUCDF EQU BTUFID+1 02054000 BTUSCF EQU BTUFID+1 02055000 BTUPRY EQU BTUFID+1 02056000 BTUASFL EQU BTUFID 02057000 BTUPSFL EQU BTUFID 02058000 BTUMPF EQU BTUFID 02059000 BTUFIDNO EQU BTUFID 02060000 BDURSV04 EQU BDUFLAGS 02061000 BDURTOE EQU BDUFLAGS 02062000 BDUSTPR EQU BDUFLAGS 02063000 BDURSV03 EQU BDUFLAGS 02064000 BDUALT EQU BDUFUNC 02065000 BDUNACK EQU BDUFUNC 02066000 BDUACK EQU BDUFUNC 02067000 BDUTRPM EQU BDUFUNC 02068000 BDUFBMI EQU BDUFUNC 02069000 BDULDGPH EQU BDUFUNC 02070000 BDUHEADP EQU BDUFUNC 02071000 BDUSOH EQU BDUCHECK 02072000 BDURSV01 EQU BDUMODIF 02073000 BDUMOD0 EQU BDUMOD1 02074000 ZRCZDFWB EQU ISTZRCVT+120 02075000 ZRCZIFJB EQU ISTZRCVT+116 02076000 ZRCZKFCB EQU ISTZRCVT+112 02077000 ZRCZIFTB EQU ISTZRCVT+104 02078000 ZRCZIFSB EQU ISTZRCVT+100 02079000 ZRCZIFX0 EQU ISTZRCVT+96 02080000 ZRCZIFIB EQU ISTZRCVT+92 02081000 ZRCZIFAB EQU ISTZRCVT+88 02082000 ZRCZIFGB EQU ISTZRCVT+84 02083000 ZRCZIFHB EQU ISTZRCVT+80 02084000 ZRCZIFBB EQU ISTZRCVT+76 02085000 ZRCZIFDB EQU ISTZRCVT+68 02086000 ZRCZIFEB EQU ISTZRCVT+64 02087000 ZRCRSV01 EQU ISTZRCVT+60 02088000 ZRCZGFBB EQU ISTZRCVT+56 02089000 ZRCZIFQB EQU ISTZRCVT+52 02090000 ZRCZIFNB EQU ISTZRCVT+48 02091000 ZRCZIFOB EQU ISTZRCVT+44 02092000 ZRCZIFMB EQU ISTZRCVT+40 02093000 ZRCZIFKB EQU ISTZRCVT+36 02094000 ZRCZIFLB EQU ISTZRCVT+32 02095000 @NM00020 EQU ISTZRCVT+28 02096000 @NM00019 EQU ISTZRCVT+24 02097000 @NM00018 EQU ISTZRCVT+20 02098000 @NM00017 EQU ISTZRCVT+16 02099000 @NM00016 EQU ISTZRCVT+12 02100000 ZRCZJF0B EQU ISTZRCVT+8 02101000 ZRCZCFCI EQU ISTZRCVT+4 02102000 ZRCZIF0B EQU ISTZRCVT 02103000 FSBFDB EQU ISTFSB+32 02104000 FSBRSV01 EQU FSBFSB+30 02105000 FSBTHCNT EQU FSBFSB+28 02106000 FSBRLRSV EQU FSBRLSTS 02107000 FSBCFTX EQU FSBRLSTS 02108000 FSBICNCB EQU FSBMSGID 02109000 FSBSSOC EQU FSBSS2 02110000 FSBSSCC EQU FSBSS2 02111000 FSBSSDC EQU FSBSS2 02112000 FSBSSEC EQU FSBSS2 02113000 FSBSSIR EQU FSBSS2 02114000 FSBSSCR EQU FSBSS2 02115000 @NM00014 EQU FSBSS2 02116000 @NM00013 EQU FSBSS1 02117000 FSBSSDE EQU FSBSS1 02118000 FSBSSUS EQU FSBSS1 02119000 @NM00012 EQU FSBSS1 02120000 FSBSOHI EQU FSBERC 02121000 FSBLGI EQU FSBERC 02122000 FSBLMRI EQU FSBFBMI 02123000 FSBETI EQU FSBERC 02124000 FSBEMI EQU FSBERC 02125000 FSBEBI EQU FSBERC 02126000 FSBMJRCD EQU FSBSRCAT 02127000 FSBXLCI EQU FSBXCODE 02128000 FSBXNORM EQU FSBXFSTS 02129000 FSBSPHSE EQU FSBSYSRS 02130000 FSBSERR EQU FSBSYSRS 02131000 FSBCMD EQU FSBSEQ 02132000 FSBDTRCE EQU FSBFLAGS 02133000 FSBASBTU EQU FSBFLAGS 02134000 FSBINPET EQU FSBFLAGS 02135000 FSBNONCB EQU FSBFLAGS 02136000 FSBLBIND EQU FSBFLAGS 02137000 FSBFFIND EQU FSBFLAGS 02138000 FSBACIND EQU FSBFLAGS 02139000 FSBRFIND EQU FSBFLAGS 02140000 FSBDAF EQU FSBCID+2 02141000 FSBSAF EQU FSBCID 02142000 FSBGATE EQU FSBFSBA 02143000 FSBLATOP EQU FSBSFLGS 02144000 FSBRSV02 EQU FSBSFLGS 02145000 FSBPGBUF EQU FSBSFLGS 02146000 FSBMNOA EQU FSBMNRCD 02147000 FSBMNDIF EQU FSBMNRCD 02148000 FSBMNEOP EQU FSBMNRCD 02149000 FSBMNRVI EQU FSBMNRCD 02150000 FSBMNELI EQU FSBMNRCD 02151000 FSBLNGTH EQU FSBFSB+1 02152000 FSBTYPE EQU FSBFSB 02153000 FDBOFSET EQU ISTFDB+10 02154000 FDBFDBA EQU ISTFDB 02155000 DNCZC001 EQU DNCOS+40 02156000 DNCLOCK EQU DNCOS+36 02157000 DNCZV005 EQU DNCOS+32 02158000 DNCZV004 EQU DNCOS+28 02159000 DNCZV003 EQU DNCOS+24 02160000 DNCZV002 EQU DNCOS+21 02161000 DNCZX001 EQU DNCOS+20 02162000 DNCZV001 EQU DNCOS+17 02163000 DNCZV000 EQU DNCOS+12 02164000 DNCSESCQ EQU DNCOS+8 02165000 DNCSESIQ EQU DNCOS+4 02166000 DNCACIP EQU DNCBSCED+1 02167000 DNCLICP EQU DNCBSCED 02168000 DNCZF008 EQU DNCZFLGS+1 02169000 DNCZPSRD EQU DNCZFLGS+1 02170000 DNCZF007 EQU DNCZFLGS+1 02171000 DNCZF006 EQU DNCZFLGS+1 02172000 DNCZF005 EQU DNCZFLGS+1 02173000 DNCZF004 EQU DNCZFLGS+1 02174000 DNCZF003 EQU DNCZFLGS 02175000 DNCZF002 EQU DNCZFLGS 02176000 DNCZRSCH EQU DNCZFLGS 02177000 DNCDISC EQU DNCZFLGS 02178000 DNCCONT EQU DNCZFLGS 02179000 DNCINVIT EQU DNCZFLGS 02180000 DNCMODE EQU ISTDNCB+49 02181000 DNCBHSET EQU ISTDNCB+48 02182000 DNCNCB EQU ISTDNCB 02183000 NCBRSV01 EQU ISTNCB+46 02184000 NCBSWDAF EQU ISTNCB+44 02185000 NCBDEVCH EQU ISTNCB+36 02186000 NCBFMCBP EQU ISTNCB+32 02187000 NCBLTRC EQU ISTNCB+30 02188000 NCBRVPT1 EQU ISTNCB+28 02189000 NCBNMLLN EQU NCBFLAGS+3 02190000 @NM00011 EQU NCBFLAG1 02191000 NCBFORCE EQU NCBFLAG1 02192000 NCBTTF EQU NCBFLAG1 02193000 NCBRSYNC EQU NCBFLAG1 02194000 NCBRSTRT EQU NCBFLAG1 02195000 NCBCONF EQU NCBFLAG1 02196000 NCBSNAI EQU NCBFLAG1 02197000 NCBFLTIO EQU NCBFTRIO 02198000 NCBCSTAT EQU NCBFLAGS 02199000 NCBNCSL EQU ISTNCB+22 02200000 NCBNCBA EQU ISTNCB+20 02201000 NCBFMCBA EQU ISTNCB+16 02202000 NCBTSKID EQU ISTNCB+8 02203000 NCBRDTE EQU ISTNCB+4 02204000 NCBDAF EQU ISTNCB+2 02205000 NCBLNGTH EQU ISTNCB+1 02206000 FMCFLRSV EQU FMCFLGB 02207000 FMCFLGA8 EQU FMCFLGB 02208000 FMCCLRPH EQU FMCVS1+45 02209000 FMCRSV0X EQU FMCCVFLG 02210000 FMCFRRPH EQU FMCCVFLG 02211000 FMCOWRPH EQU FMCCVFLG 02212000 FMCCDRPH EQU FMCCVFLG 02213000 FMCPSRPH EQU FMCCVFLG 02214000 FMCVYRPH EQU FMCCVFLG 02215000 FMCZV004 EQU FMCVS1+40 02216000 FMCLOCK2 EQU FMCVS1+36 02217000 @NM00010 EQU FMCZFLG2 02218000 FMCZF027 EQU FMCZFLG2 02219000 FMCZF026 EQU FMCZFLG2 02220000 FMCSEQ1B EQU FMCSEQ1 02221000 FMCSEQ1T EQU FMCSEQ1 02222000 FMCZX006 EQU FMCVS1+33 02223000 FMCZX005 EQU FMCVS1+32 02224000 FMCZX004 EQU FMCVS1+31 02225000 FMCZX003 EQU FMCVS1+30 02226000 FMCZX002 EQU FMCVS1+29 02227000 FMCZV001 EQU FMCVS1+24 02228000 FMCAWATQ EQU FMCLCPAQ+1 02229000 @NM00009 EQU FMCLCPAQ 02230000 FMCLCPB2 EQU FMCLCPBQ+1 02231000 FMCLCPB1 EQU FMCLCPBQ 02232000 FMCASCDQ EQU FMCSHEAQ+1 02233000 @NM00008 EQU FMCSHEAQ 02234000 FMCSHEDQ EQU FMCVS1+8 02235000 FMCZFCSQ EQU FMCVS1+6 02236000 FMCZF025 EQU FMCZFLAG+3 02237000 FMCZF024 EQU FMCZFLAG+3 02238000 FMCZF023 EQU FMCZFLAG+3 02239000 FMCZF022 EQU FMCZFLAG+3 02240000 FMCZF021 EQU FMCZFLAG+3 02241000 FMCZF020 EQU FMCZFLAG+3 02242000 FMCZF019 EQU FMCZFLAG+3 02243000 FMCZF018 EQU FMCZFLAG+3 02244000 FMCZF017 EQU FMCZFLAG+2 02245000 FMCZF016 EQU FMCZFLAG+2 02246000 FMCZF015 EQU FMCZFLAG+2 02247000 FMCZF014 EQU FMCZFLAG+2 02248000 FMCZF013 EQU FMCZFLAG+2 02249000 FMCZF012 EQU FMCZFLAG+2 02250000 FMCZF011 EQU FMCZFLAG+2 02251000 FMCZF010 EQU FMCZFLAG+2 02252000 FMCZF00F EQU FMCZFLAG+1 02253000 FMCZF00E EQU FMCZFLAG+1 02254000 FMCZF00D EQU FMCZFLAG+1 02255000 FMCZF00C EQU FMCZFLAG+1 02256000 FMCZF00B EQU FMCZFLAG+1 02257000 FMCRSV10 EQU FMCZFLAG+1 02258000 FMCZF009 EQU FMCZFLAG+1 02259000 FMCZFD06 EQU FMCZF006+1 02260000 FMCZF005 EQU FMCZFLAG 02261000 FMCZF004 EQU FMCZFLAG 02262000 FMCZF003 EQU FMCZFLAG 02263000 FMCZF002 EQU FMCZFLAG 02264000 FMCZF001 EQU FMCZFLAG 02265000 FMCFRESA EQU ISTFMCB+228 02266000 FMCSCSQN EQU FMCSNCTL+2 02267000 FMCSCCTL EQU FMCSNCTL+1 02268000 FMCSTCTL EQU FMCSCFLG 02269000 FMCSCCLO EQU FMCSCFLG 02270000 FMCAPRO EQU FMCSCFLG 02271000 FMCLURO EQU FMCSCFLG 02272000 FMCOBSAC EQU FMCSCFLG 02273000 FMCIBSAC EQU FMCSCFLG 02274000 FMCFBRE EQU ISTFMCB+220 02275000 FMCFBXM EQU FMCZV002 02276000 FMCASEGQ EQU ISTFMCB+212 02277000 FMCRDTPT EQU ISTFMCB+208 02278000 FMCLOCK EQU ISTFMCB+204 02279000 FMCSEGD EQU FMCSSEGQ 02280000 FMCRSPLM EQU ISTFMCB+198 02281000 FMCPSTRS EQU ISTFMCB+196 02282000 @NM00007 EQU FMCRRESP 02283000 FMCTSLHA EQU FMCRRESP 02284000 FMCFRRN EQU FMCRRESP 02285000 FMCFME EQU FMCRRESP 02286000 FMCFEX EQU FMCRRESP 02287000 FMCFPE EQU FMCRRESP 02288000 FMCCTLB EQU ISTFMCB+194 02289000 FMCBSQNO EQU FMCCLSEQ+2 02290000 FMCTSQNO EQU FMCCLSEQ 02291000 FMCOBPRG EQU FMCMODEB 02292000 FMCIBPRG EQU FMCMODEB 02293000 FMCRESOT EQU FMCMODEB 02294000 FMCRSTSR EQU FMCMODEB 02295000 FMCLUQ EQU FMCMODEB 02296000 FMCAPQ EQU FMCMODEB 02297000 FMCCLEAR EQU FMCMODEB 02298000 FMCHOLD EQU FMCMODEB 02299000 FMCIPSEQ EQU ISTFMCB+188 02300000 FMCLUSTR EQU ISTFMCB+187 02301000 FMCCDPIP EQU FMCSTAT2 02302000 FMCPSPIP EQU FMCSTAT2 02303000 FMCSEQI EQU FMCSTAT2 02304000 FMCCPIP EQU FMCSTAT2 02305000 FMCALIPR EQU FMCSTAT2 02306000 FMCIAIO EQU FMCSTAT2 02307000 FMCZF00A EQU FMCSTAT2 02308000 FMCVPIP EQU FMCSTAT2 02309000 FMCBHSET EQU ISTFMCB+185 02310000 FMCPRMRC EQU FMCCLEXT+20 02311000 FMCRSV89 EQU FMCPSTAT 02312000 FMCPCLSD EQU FMCPSTAT 02313000 FMCDDOCD EQU FMCPSTAT 02314000 FMCIDVFD EQU FMCPSTAT 02315000 FMCELKST EQU FMCPSTAT 02316000 FMCRSV88 EQU FMCPSCMD 02317000 FMCRDBLK EQU FMCPSCMD 02318000 FMCDSEOC EQU FMCPSCMD 02319000 FMCPURGE EQU FMCPSCMD 02320000 FMCRESTI EQU FMCPSCMD 02321000 FMCCNTCT EQU FMCPSCMD 02322000 FMCINVT EQU FMCPSCMD 02323000 FMCFLGB7 EQU FMCFLGCL 02324000 FMCFLGB6 EQU FMCFLGCL 02325000 FMCFLGB5 EQU FMCFLGCL 02326000 FMCFLGB4 EQU FMCFLGCL 02327000 FMCFLGB3 EQU FMCFLGCL 02328000 FMCFLGB2 EQU FMCFLGCL 02329000 FMCFLGB1 EQU FMCFLGCL 02330000 FMCFLGB0 EQU FMCFLGCL 02331000 FMCFLGA7 EQU FMCFLGA 02332000 FMCFLGA6 EQU FMCFLGA 02333000 FMCFLGA5 EQU FMCFLGA 02334000 FMCFLGA4 EQU FMCFLGA 02335000 FMCFLGA3 EQU FMCFLGA 02336000 FMCFLGA2 EQU FMCFLGA 02337000 FMCFLGA1 EQU FMCFLGA 02338000 FMCFLGA0 EQU FMCFLGA 02339000 FMCDCLOK EQU FMCCLEXT+12 02340000 FMCRAFM EQU FMCCLEXT+8 02341000 FMCFBPTR EQU FMCFBA+1 02342000 FMCFBRSV EQU FMCFBA 02343000 FMCRPLPT EQU FMCRPLA+1 02344000 FMCRPLRS EQU FMCRPLA 02345000 FMCPRCLS EQU FMCCVAL 02346000 FMCIBCE EQU FMCCVAL 02347000 FMCONLY EQU FMCOBCE 02348000 FMCLAST EQU FMCOBCE 02349000 FMCMIDLE EQU FMCOBCE 02350000 FMCFIRST EQU FMCOBCE 02351000 FMCCPCNT EQU FMCPACPC 02352000 FMCMPCNT EQU FMCPACEM 02353000 FMCNPCNT EQU FMCPACEN 02354000 FMCCONF EQU FMCSSTAT 02355000 FMCPURCH EQU FMCSSTAT 02356000 FMCNSALU EQU FMCSSTAT 02357000 FMCBIP EQU FMCSSTAT 02358000 FMCSDTR EQU FMCSSTAT 02359000 FMCUIPI EQU FMCSSTAT 02360000 FMCCIPI EQU FMCSSTAT 02361000 FMCSNBI EQU FMCSSTAT 02362000 FMCRVD01 EQU ISTFMCB+158 02363000 FMCISSN EQU ISTFMCB+156 02364000 FMCOASN EQU FMCNXOSC 02365000 FMCOSSN EQU FMCNXCFM 02366000 FMCSIP EQU FMCSIPA 02367000 FMCEXLST EQU ISTFMCB+144 02368000 FMCPAB5 EQU ISTFMCB+128 02369000 FMCPAB2 EQU ISTFMCB+80 02370000 FMCPAB1 EQU ISTFMCB+64 02371000 FMCFASYA EQU ISTFMCB+60 02372000 FMCMODE EQU ISTFMCB+52 02373000 FMCPROCD EQU ISTFMCB+48 02374000 FMCVWT EQU ISTFMCB+44 02375000 FMCRPLH EQU ISTFMCB+40 02376000 FMCBUFNB EQU FMCCMPS1+2 02377000 FMCBUFLM EQU FMCCMPS1 02378000 FMCDEBA EQU ISTFMCB+32 02379000 @NM00006 EQU FMCCMDFL 02380000 FMCSNA EQU FMCCMDFL 02381000 FMCVSNA EQU FMCCMDFL 02382000 FMCCMDR EQU FMCCMDFL 02383000 @NM00005 EQU ISTFMCB+30 02384000 @NM00004 EQU FMCSTAT1 02385000 FMCLTCLS EQU FMCSTAT1 02386000 FMCHPURG EQU FMCSTAT1 02387000 FMCVSP2 EQU FMCSTAT1 02388000 FMCVSP1 EQU FMCSTAT 02389000 FMCLTEAS EQU FMCSTAT 02390000 FMCZF007 EQU FMCSTAT 02391000 FMCDEDSC EQU FMCSTAT 02392000 FMCDEVOF EQU FMCSTAT 02393000 FMCDAPT EQU FMCSTAT 02394000 FMCPRMTE EQU FMCSTAT 02395000 FMCPRMTR EQU FMCSTAT 02396000 FMCUSFLD EQU ISTFMCB+24 02397000 FMCFMCBA EQU ISTFMCB+20 02398000 FMCDNCBA EQU ISTFMCB+16 02399000 FMCDVTA EQU ISTFMCB+12 02400000 FMCTSKID EQU ISTFMCB+8 02401000 FMCNXTCB EQU ISTFMCB+4 02402000 FMCSAF EQU ISTFMCB+2 02403000 FMCLNGTH EQU ISTFMCB+1 02404000 FMCTYPE EQU ISTFMCB 02405000 LOKXCL EQU @NM00002 02406000 LOKPRY EQU @NM00002 02407000 @NM00003 EQU @NM00002 02408000 @NM00001 EQU LOKCHNG 02409000 LOKCT EQU ISTLOK 02410000 PABRPHA EQU PABRPHFG+1 02411000 PABNODQ EQU PABFLAGS 02412000 PABINHBT EQU PABFLAGS 02413000 PABSSN EQU PABFLAGS 02414000 PABDYNAM EQU PABFLAGS 02415000 PABNORPR EQU PABFLAGS 02416000 PABPRIOR EQU PABFLAGS 02417000 PABAPYP EQU PABFLAGS 02418000 PABOFFST EQU ISTPAB+8 02419000 PABCHNGP EQU PABCHAIN+1 02420000 PABRSV02 EQU PABCHAIN 02421000 PABDELAY EQU PABCHAIN 02422000 PABRUNNG EQU PABCHAIN 02423000 PABRESET EQU PABCHAIN 02424000 PABUNCON EQU PABCHAIN 02425000 PABCDP EQU PABCHAIN 02426000 PABRESCH EQU PABCHAIN 02427000 PABCHNG EQU PABCHAIN 02428000 PABWEQP EQU PABWEQA+1 02429000 PABRSV01 EQU PABWEQA 02430000 PABWEQG EQU PABWEQA 02431000 PROSRDEF EQU PROSETM4 02432000 PRORSV47 EQU PROSETM4 02433000 PROSCON EQU PROSETM4 02434000 PRORSV46 EQU PROSETM3 02435000 PROSMONT EQU PROSETM3 02436000 PRORSV45 EQU PROSETM3 02437000 PROSNTO EQU PROSETM3 02438000 PRORSV44 EQU PROSETM3 02439000 PROCPUID EQU PROSETM3 02440000 PRORSV43 EQU PROSETM2 02441000 PROSNTFL EQU PROSETM2 02442000 PRORSV42 EQU PROSETM2 02443000 PRORSV41 EQU PROPROCS 02444000 PROMODC EQU PROPROC4 02445000 PROMODT EQU PROPROC4 02446000 PROMODM EQU PROPROC4 02447000 PROMODB EQU PROPROC4 02448000 PRORSV14 EQU PROPROC4 02449000 PRORSV13 EQU PROPROC4 02450000 PRORSV12 EQU PROPROC4 02451000 PROEIB EQU PROPROC4 02452000 PROMONT3 EQU PROPROC3 02453000 PROMONT2 EQU PROPROC3 02454000 PROMONIT EQU PROPROC3 02455000 PROSUBLK EQU PROPROC3 02456000 PRONTO EQU PROPROC3 02457000 PROLGIN EQU PROPROC3 02458000 PROERPI EQU PROPROC3 02459000 PRORSV07 EQU PROPROC3 02460000 PROCFTX EQU PROPROC2 02461000 PROEMLC EQU PROPROC2 02462000 PRONTFL EQU PROPROC2 02463000 PRORSV05 EQU PROPROC2 02464000 PRORSV04 EQU PROPROC2 02465000 PROLGOT EQU PROPROC2 02466000 PROERPO EQU PROPROC2 02467000 PRORSV03 EQU PROPROC2 02468000 PRORPLC EQU PROPROC1 02469000 PROCS EQU PROPROC1 02470000 PROCA EQU PROPROC1 02471000 PRORESPX EQU PROPROC1 02472000 PRODFASY EQU PROPROC1 02473000 PROXPOPT EQU PROPROC1 02474000 PROTRUNC EQU PROPROC1 02475000 PROASYIP EQU PROPROC1 02476000 DEVRSV03 EQU ISTDEVCH+5 02477000 DEVPHYSA EQU ISTDEVCH+4 02478000 DEVCSLPN EQU DEVCHAR3 02479000 DEVCSTCL EQU DEVCHAR3 02480000 DEVCCHEK EQU DEVCHAR3 02481000 DEVCATTN EQU DEVCHAR3 02482000 DEVCSWL EQU DEVFCCTL 02483000 DEVCRVB EQU DEVFCCTL 02484000 DEVCSSL EQU DEVFCCTL 02485000 DEVCBSC EQU DEVFCCTL 02486000 DEVMCODE EQU ISTDEVCH+2 02487000 DEVCHAR2 EQU DEVTCODE 02488000 DEVRSV01 EQU DEVCHAR 02489000 DEVCCTL EQU DEVCHAR 02490000 DEVNNSPT EQU DEVCHAR 02491000 DEVSPS EQU DEVCHAR 02492000 DEVSUBND EQU DEVCHAR 02493000 DEVCONVR EQU DEVCHAR 02494000 DEVOTPUT EQU DEVCHAR 02495000 DEVINPUT EQU DEVCHAR 02496000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02497000 @RC00394 EQU @RC00392 02498000 @ENDDATA EQU * 02499000 END ISTZIFBB,(C'PLS2108',0603,78173) 02500000