TITLE 'ISTZBFBB/ABB-VS1/MBB-VS2 - WRITE LCCW PROCESSOR *00001000 ' 00002000 ISTZBFBB CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTZBFBB 75.134' 0001 00008000 DROP @15 00009000 @PROLOG DS 0H 0002 00010000 * 0357 00011000 * /*****************************************************************/ 00012000 * /* */ 00013000 * /* ISTZBFBB MAINLINE - SAVE REGS AND SET ROUTINE BASE */ 00014000 * /* */ 00015000 * /*****************************************************************/ 00016000 * 0357 00017000 */* TPZSAVE (7,12,14) BASE AC(BCBB) */ 00018000 * 0357 00019000 * DO; 0357 00020000 * DCL 0358 00021000 * GPR01F FIXED(31) REG(01); 0358 00022000 * DCL 0359 00023000 * GPR01P PTR(31) REG(01); 0359 00024000 * DCL 0360 00025000 * GPR12F FIXED(31) REG(12); 0360 00026000 * DCL 0361 00027000 * GPR12P PTR(31) REG(12); 0361 00028000 * DCL 0362 00029000 * GPR13F FIXED(31) REG(13); 0362 00030000 * DCL 0363 00031000 * GPR13P PTR(31) REG(13); 0363 00032000 * DCL 0364 00033000 * GPR14F FIXED(31) REG(14); 0364 00034000 * DCL 0365 00035000 * GPR14P PTR(31) REG(14); 0365 00036000 * RFY 0366 00037000 * (GPR01P, 0366 00038000 * GPR12P, 0366 00039000 * GPR13P, 0366 00040000 * GPR14P) RSTD; 0366 00041000 * GEN(PRINT OFF); 0367 00042000 * 0367 00043000 PRINT OFF 00044000 */* ATBUILD (ISTZSAVE) */ 00045000 */* END OF ATBUILD */ 00046000 * 0368 00047000 * GEN(PRINT ON); 0368 00048000 PRINT ON 00049000 * RFY 0369 00050000 * ISTZSAVE BASED(GPR13P); 0369 00051000 * GEN SETS(ZSAZSVVR)(STM 7,12,ZSAZSVVR+0(13)); 0370 00052000 STM 7,12,ZSAZSVVR+0(13) 00053000 * GEN SETS(GPR12P); 0371 00054000 BALR GPR12P,0 00055000 @TSTART DS 0H 00056000 USING @TSTART,GPR12P 00057000 * GEN(PRINT OFF); 0372 00058000 * 0372 00059000 PRINT OFF 00060000 */* ATBUILD (ISTZCRR,ISTRPH,ISTCRA) EJECT(NO) */ 00061000 */* END OF ATBUILD */ 00062000 * 0373 00063000 * GEN(PRINT ON); 0373 00064000 PRINT ON 00065000 * GPR01P->RPHCRR->CRACRR->ZCREBCBB='1'B; 0374 00066000 L @08,RPHCRR(,GPR01P) 0374 00067000 L @08,CRACRR(,@08) 0374 00068000 OI ZCREBCBB(@08),B'00010000' 0374 00069000 * ZSAZACTV='1'B; 0375 00070000 OI ZSAZACTV(GPR13P),B'10000000' 0375 00071000 * ZSAZTRAC='BCBB'; 0376 00072000 MVC ZSAZTRAC(4,GPR13P),@CC02933 0376 00073000 * ZSAZSVRR=GPR14P; 0377 00074000 ST GPR14P,ZSAZSVRR(,GPR13P) 0377 00075000 * GPR13P=ZSAZSVFC; 0378 00076000 L GPR13P,ZSAZSVFC(,GPR13P) 0378 00077000 * RFY 0379 00078000 * (GPR01P) UNRSTD; 0379 00079000 * RFY 0380 00080000 * (GPR14P) UNRSTD; 0380 00081000 * END; 0381 00082000 * 0381 00083000 */* END TPZSAVE */ 00084000 * 0382 00085000 * CNTRLREG=0; /* INITIALIZE CONTROL/CODE 0382 00086000 * REGISTER */ 00087000 SLR CNTRLREG,CNTRLREG 0382 00088000 * LCCWPTR=LSCLCCWA; /* LOAD LCCW ADDRESS @XM07032*/ 00089000 L LCCWPTR,LSCLCCWA(,LSCBPTR) 0383 00090000 * IF DNCZF006='0'B& /* IF NOT FIRST TRANSMISSION */ 00091000 * DNCPSOL='1'B& /* AND SWITCHED CALL IN */ 00092000 * (DEVTCODE=DEVTWX|DEVCBSC='1'B) THEN/* AND BSC OR TWX DEVICE */ 00093000 TM DNCPSOL(DNCBPTR),B'00001000' 0384 00094000 BNO @RF00384 0384 00095000 TM DNCZF006(DNCBPTR),B'00100000' 0384 00096000 BNZ @RF00384 0384 00097000 LA @08,36 0384 00098000 ALR @08,DNCBPTR 0384 00099000 CLI DEVTCODE(@08),X'04' 0384 00100000 BE @RT00384 0384 00101000 TM DEVCBSC(@08),B'10000000' 0384 00102000 BNO @RF00384 0384 00103000 @RT00384 DS 0H 0385 00104000 * DO; 0385 00105000 * CNTRLREG=NRDWREQ; /* NO READ WHERE REQUIRED */ 00106000 LA CNTRLREG,16 0386 00107000 * CALL BFBB0010; /* PROCESS ERROR */ 00108000 BAL @14,BFBB0010 0387 00109000 * END; 0388 00110000 * ELSE 0389 00111000 * DO; 0389 00112000 * 0389 00113000 B @RC00384 0389 00114000 @RF00384 DS 0H 0390 00115000 * /*************************************************************/ 00116000 * /* */ 00117000 * /* LOGICAL ERROR CONDITION IF END-DIALOG FLAG IS SET AND LCCW*/ 00118000 * /* IS NOT A WRITE TRANSMISSION COMMAND. */ 00119000 * /* */ 00120000 * /*************************************************************/ 00121000 * 0390 00122000 * IF LCCWSD=ON THEN /* END DIALOG FLAG ON */ 00123000 TM LCCWSD(LCCWPTR),B'01000000' 0390 00124000 BNO @RF00390 0390 00125000 * IF LCCWRWOP=LWT THEN 0391 00126000 TM LCCWRWOP(LCCWPTR),B'00001101' 0391 00127000 BNO @RF00391 0391 00128000 TM LCCWRWOP(LCCWPTR),B'00110010' 0391 00129000 BZ @RT00391 0391 00130000 * ; /* OK IF WRITE TRANSMISSION */ 00131000 * ELSE 0393 00132000 * DO; /* NOT WRITE TRANSMISSION - 0393 00133000 * INVALID LCP */ 00134000 @RF00391 DS 0H 0394 00135000 * CNTRLREG=LOGERR; /* INDICATE LOGICAL ERROR */ 00136000 * 0394 00137000 LA CNTRLREG,8 0394 00138000 * /*******************************************************/ 00139000 * /* */ 00140000 * /* CALL INVALID LCP PROCESSING SUBROUTINE */ 00141000 * /* */ 00142000 * /*******************************************************/ 00143000 * 0395 00144000 * CALL BFBB0010; 0395 00145000 BAL @14,BFBB0010 0395 00146000 * END; 0396 00147000 * ELSE 0397 00148000 * ; /* NOT END OF DIALOG */ 00149000 @RF00390 DS 0H 0398 00150000 * END; 0398 00151000 * 0398 00152000 @RC00390 DS 0H 0399 00153000 * /*****************************************************************/ 00154000 * /* */ 00155000 * /* WAS A LOGICAL ERROR ENCOUNTERED ABOVE ? */ 00156000 * /* */ 00157000 * /*****************************************************************/ 00158000 * 0399 00159000 * IF CNTRLREG^=0 THEN 0399 00160000 @RC00384 LTR CNTRLREG,CNTRLREG 0399 00161000 BNZ @RT00399 0399 00162000 * ; /* ERROR - DROP THRU */ 00163000 * ELSE /* NO ERROR - */ 00164000 *FBBNOERR: 0401 00165000 * DO; /* CONTINUE */ 00166000 * 0401 00167000 FBBNOERR DS 0H 0402 00168000 * /*************************************************************/ 00169000 * /* */ 00170000 * /* CURRENTLY IN 370X SESSION ? */ 00171000 * /* */ 00172000 * /*************************************************************/ 00173000 * 0402 00174000 * IF FMCZFA06=ON THEN /* IN SESSION */ 00175000 * 0402 00176000 TM FMCZFA06(FMCBPTR),B'00000100' 0402 00177000 BNO @RF00402 0402 00178000 * /***********************************************************/ 00179000 * /* */ 00180000 * /* IS DISCONNECT PENDING ? */ 00181000 * /* */ 00182000 * /***********************************************************/ 00183000 * 0403 00184000 * IF FMCZFD06=ON THEN /* DISCONNECT PENDING */ 00185000 TM FMCZFD06(FMCBPTR),B'10000000' 0403 00186000 BNO @RF00403 0403 00187000 * DO; 0404 00188000 * BDUMODIF=BDUMODIF|BMODWC;/* SET CONTACT BIT IN BDU 0405 00189000 * MODIFIER */ 00190000 LA @08,42 0405 00191000 ALR @08,BUFPTR 0405 00192000 OI BDUMODIF(@08),X'08' 0405 00193000 * BDURTOE='1'B; /* RETURN TEXT ON ERROR @X50BHXF*/ 00194000 OI BDURTOE(@08),B'00000010' 0406 00195000 * FMCZX001=FMCZX001+1; /* INCREMENT APPLICATION SESSION 00196000 * COUNT */ 00197000 LA @08,1 0407 00198000 SLR @11,@11 0407 00199000 IC @11,FMCZX001(,FMCBPTR) 0407 00200000 ALR @08,@11 0407 00201000 STC @08,FMCZX001(,FMCBPTR) 0407 00202000 * FMCZFC06=ON; /* SET CONTACT OUTSTANDING FLAG */ 00203000 OI FMCZFC06(FMCBPTR),B'00000001' 0408 00204000 * DNCCONT=ON; /* SET DNCB CONTACT FLAG */ 00205000 OI DNCCONT(DNCBPTR),B'00010000' 0409 00206000 * END; 0410 00207000 * ELSE /* NO DISCONNECT PENDING */ 00208000 * 0411 00209000 * /*********************************************************/ 00210000 * /* */ 00211000 * /* CURRENTLY IN 370X SESSION - LOGICAL ERROR IF START */ 00212000 * /* DIALOG IS INDICATED IN LCCW */ 00213000 * /* */ 00214000 * /*********************************************************/ 00215000 * 0411 00216000 * IF LCCWSI=ON THEN /* START DIALOG FLAG SET */ 00217000 B @RC00403 0411 00218000 @RF00403 TM LCCWSI(LCCWPTR),B'10000000' 0411 00219000 BNO @RF00411 0411 00220000 * DO; /* LOGICAL ERROR */ 00221000 * CNTRLREG=LOGERR; /* INDICATE LOGICAL ERROR */ 00222000 * 0413 00223000 LA CNTRLREG,8 0413 00224000 * /*****************************************************/ 00225000 * /* */ 00226000 * /* CALL INVALID LCP PROCESSING ROUTINE */ 00227000 * /* */ 00228000 * /*****************************************************/ 00229000 * 0414 00230000 * CALL BFBB0010; 0414 00231000 BAL @14,BFBB0010 0414 00232000 * END; 0415 00233000 * ELSE 0416 00234000 * ; /* NOT START DIALOG - NULL */ 00235000 @RF00411 DS 0H 0417 00236000 * ELSE /* NOT CURRENTLY IN SESSION */ 00237000 * 0417 00238000 * /***********************************************************/ 00239000 * /* */ 00240000 * /* CONTACT OR INVITE OUTSTANDING IS INDICATED ? */ 00241000 * /* */ 00242000 * /***********************************************************/ 00243000 * 0417 00244000 * IF FMCZFC06=ON|FMCZFB06=ON THEN 0417 00245000 B @RC00402 0417 00246000 @RF00402 TM FMCZFC06(FMCBPTR),B'00000011' 0417 00247000 BNZ @RT00417 0417 00248000 * ; /* CONTACT OR INVITE - NULL */ 00249000 * ELSE /* NO CONTACT OR INVITE */ 00250000 * 0419 00251000 * /*********************************************************/ 00252000 * /* */ 00253000 * /* SEGMENT(BFBB050)REQUEST */ 00254000 * /* */ 00255000 * /*********************************************************/ 00256000 * 0419 00257000 * DO; 0419 00258000 * GOTO BFBB050; 0420 00259000 B BFBB050 0420 00260000 *BFBB050#: 0421 00261000 * END; 0421 00262000 * 0421 00263000 BFBB050# DS 0H 0422 00264000 * /*************************************************************/ 00265000 * /* */ 00266000 * /* WAS AN ERROR CONDITION ENCOUNTERED ABOVE ? */ 00267000 * /* */ 00268000 * /*************************************************************/ 00269000 * 0422 00270000 * IF CNTRLREG^=0 THEN 0422 00271000 @RT00417 DS 0H 0422 00272000 @RC00402 LTR CNTRLREG,CNTRLREG 0422 00273000 BNZ @RT00422 0422 00274000 * ; /* ERROR - FALL THRU */ 00275000 * ELSE 0424 00276000 * DO; /* NO ERROR - CONTINUE, CALL 0424 00277000 * PROCESSOR SUBROUTINE */ 00278000 * BDUCOMND=BCMDW; /* SET COMMAND TO WRITE */ 00279000 * 0425 00280000 MVI BDUCOMND+42(BUFPTR),X'02' 0425 00281000 * /*********************************************************/ 00282000 * /* */ 00283000 * /* SET BTU FLAG IF CRITICAL TEXT BLOCK */ 00284000 * /* */ 00285000 * /*********************************************************/ 00286000 * 0426 00287000 * IF PROCFTX=ON THEN 0426 00288000 TM PROCFTX+48(FMCBPTR),B'00000001' 0426 00289000 BNO @RF00426 0426 00290000 * BTUZRT06=ON; /* SET BTU FLAG */ 00291000 OI BTUZRT06+28(BUFPTR),B'00000010' 0427 00292000 * ELSE 0428 00293000 * ; 0428 00294000 * 0428 00295000 @RF00426 DS 0H 0429 00296000 * /*********************************************************/ 00297000 * /* */ 00298000 * /* SET BTU FLAG IF BUFFER TRACE IS ACTIVE */ 00299000 * /* */ 00300000 * /*********************************************************/ 00301000 * 0429 00302000 * IF FMCZF007=ON THEN 0429 00303000 TM FMCZF007(FMCBPTR),B'00000100' 0429 00304000 BNO @RF00429 0429 00305000 * BTUZRT07=ON; /* SET BTU FLAG */ 00306000 OI BTUZRT07+28(BUFPTR),B'00000001' 0430 00307000 * ELSE 0431 00308000 * ; 0431 00309000 * 0431 00310000 @RF00429 DS 0H 0432 00311000 * /*********************************************************/ 00312000 * /* */ 00313000 * /* SET BTU FLAG IF I/O TRACE IS ACTIVE */ 00314000 * /* */ 00315000 * /*********************************************************/ 00316000 * 0432 00317000 * IF NCBFTRIO=ON THEN 0432 00318000 CLI NCBFTRIO(DNCBPTR),1 0432 00319000 BNE @RF00432 0432 00320000 * BTUZRT08=ON; /* SET BTU FLAG */ 00321000 OI BTUZRT08+28(BUFPTR),B'10000000' 0433 00322000 * ELSE 0434 00323000 * ; 0434 00324000 * 0434 00325000 @RF00432 DS 0H 0435 00326000 * /*********************************************************/ 00327000 * /* */ 00328000 * /* SET BDU FLAG IF TRANSPARENT TEXT */ 00329000 * /* */ 00330000 * /*********************************************************/ 00331000 * 0435 00332000 * IF PROXPOPT=ON THEN 0435 00333000 TM PROXPOPT+48(FMCBPTR),B'00100000' 0435 00334000 BNO @RF00435 0435 00335000 * BDUTRPM=ON; 0436 00336000 OI BDUTRPM+42(BUFPTR),B'00001000' 0436 00337000 * ELSE 0437 00338000 * ; 0437 00339000 * 0437 00340000 @RF00435 DS 0H 0438 00341000 * /*********************************************************/ 00342000 * /* */ 00343000 * /* CALL WRITE PROCESSING INTERNAL SUBROUTINE */ 00344000 * /* SEGMENT(BFBB020)REQUEST */ 00345000 * /* */ 00346000 * /*********************************************************/ 00347000 * 0438 00348000 * DO; 0438 00349000 * GOTO BFBB020; 0439 00350000 B BFBB020 0439 00351000 *BFBB020#: 0440 00352000 * END; 0440 00353000 BFBB020# DS 0H 0441 00354000 * END; 0441 00355000 * END FBBNOERR; 0442 00356000 * 0442 00357000 @RT00422 DS 0H 0443 00358000 * /*****************************************************************/ 00359000 * /* */ 00360000 * /* RETURN TO CALLER */ 00361000 * /* */ 00362000 * /*****************************************************************/ 00363000 * 0443 00364000 */* TPZRETN */ 00365000 * 0443 00366000 * DO; 0443 00367000 @RT00399 DS 0H 0444 00368000 * DCL 0444 00369000 * GPR07F FIXED(31) REG(07); 0444 00370000 * DCL 0445 00371000 * GPR07P PTR(31) REG(07); 0445 00372000 * DCL 0446 00373000 * GPR15F FIXED(31) REG(15); 0446 00374000 * DCL 0447 00375000 * GPR15P PTR(31) REG(15); 0447 00376000 * RFY 0448 00377000 * (GPR07P, 0448 00378000 * GPR14P, 0448 00379000 * GPR15P) RSTD; 0448 00380000 * GPR13P=ZSAZSVBC; 0449 00381000 L GPR13P,ZSAZSVBC(,GPR13P) 0449 00382000 * IF GPR13P=0 THEN 0450 00383000 LTR GPR13P,GPR13P 0450 00384000 BZ @RT00450 0450 00385000 * ; /* TPDVTS ISTZFARR */ 00386000 * ELSE 0452 00387000 * GPR14P=ZSAZSVRR; 0452 00388000 L GPR14P,ZSAZSVRR(,GPR13P) 0452 00389000 * GEN REFS(ZSAZSVVR)(LM 7,12,ZSAZSVVR+0(13)); 0453 00390000 @RT00450 DS 0H 0453 00391000 LM 7,12,ZSAZSVVR+0(13) 00392000 * GEN REFS(GPR14P) EXIT NOSEQFLOW(BR GPR14P); 0454 00393000 BR GPR14P 00394000 * RFY 0455 00395000 * (GPR07P, 0455 00396000 * GPR14P, 0455 00397000 * GPR15P) UNRSTD; 0455 00398000 * END; 0456 00399000 * 0456 00400000 */* END TPZRETN */ 00401000 * 0457 00402000 * GEN(EJECT); 0457 00403000 * 0457 00404000 EJECT 00405000 * /*****************************************************************/ 00406000 * /* */ 00407000 * /* BFBB0010 INTERNAL SUBROUTINE - INVALID LCP PROCESSING . */ 00408000 * /* CNTRLREG INDICATES TYPE OF ERROR - EITHER LOGICAL OR CONTROL */ 00409000 * /* BLOCK ERROR. APPROPRIATE LCPB FIELDS ARE SET AND THE INVALID */ 00410000 * /* LCP RECOVERY ROUTINE (ISTZBFZ0) IS CALLED. */ 00411000 * /* */ 00412000 * /*****************************************************************/ 00413000 * 0458 00414000 *INVLCP: 0458 00415000 *BFBB0010: 0458 00416000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* SUBROUTINE ENTRY */ 00417000 B @PB00002 0458 00418000 INVLCP DS 0H 0458 00419000 BFBB0010 DS 0H 0459 00420000 * ZCRSVF5=RETNREG; /* SAVE RETURN REGISTER */ 00421000 * 0459 00422000 L @08,RPHCRR(,RPHPTR) 0459 00423000 L @08,CRACRR(,@08) 0459 00424000 ST RETNREG,ZCRSVF5(,@08) 0459 00425000 * /*****************************************************************/ 00426000 * /* */ 00427000 * /* ENTERED ON A CONTROL BLOCK OR LOGICAL ERROR ? */ 00428000 * /* */ 00429000 * /*****************************************************************/ 00430000 * 0460 00431000 * IF CNTRLREG=CBERR THEN 0460 00432000 C CNTRLREG,@CF00062 0460 00433000 BNE @RF00460 0460 00434000 * DO; 0461 00435000 * LSCZRT01=ON; /* FLAG AS CNTRL BLOCK ERROR */ 00436000 OI LSCZRT01(LSCBPTR),B'01000000' 0462 00437000 * LSCZMNRC=FRMINVL; /* SET MINOR CODE - INVALID LCCW 00438000 * CODE */ 00439000 MVI LSCZMNRC(LSCBPTR),X'A3' 0463 00440000 * END; 0464 00441000 * ELSE 0465 00442000 * DO; 0465 00443000 B @RC00460 0465 00444000 @RF00460 DS 0H 0466 00445000 * LSCZRT00=ON; /* SET LOGIC ERROR FLAG */ 00446000 OI LSCZRT00(LSCBPTR),B'10000000' 0466 00447000 * IF CNTRLREG=NRDWREQ THEN /* WHAT TYPE LOGIC ERROR */ 00448000 C CNTRLREG,@CF00049 0467 00449000 BNE @RF00467 0467 00450000 * LSCZMNRC=FRMNORD; /* NO READ WHERE REQ. */ 00451000 MVI LSCZMNRC(LSCBPTR),X'AC' 0468 00452000 * ELSE 0469 00453000 * IF CNTRLREG=MOVEERR THEN /* ERROR IN DATA MOVE */ 00454000 B @RC00467 0469 00455000 @RF00467 C CNTRLREG,@CF00065 0469 00456000 BNE @RF00469 0469 00457000 * LSCZMNRC=FRMINDAT; 0470 00458000 MVI LSCZMNRC(LSCBPTR),X'97' 0470 00459000 * ELSE 0471 00460000 * LSCZMNRC=FRMCDITS; /* COFLICTING DIALOGUE */ 00461000 B @RC00469 0471 00462000 @RF00469 MVI LSCZMNRC(LSCBPTR),X'A6' 0471 00463000 * END; 0472 00464000 * 0472 00465000 @RC00469 DS 0H 0472 00466000 @RC00467 DS 0H 0473 00467000 * /*****************************************************************/ 00468000 * /* */ 00469000 * /* CALL INVALID LCP RECOVERY ROUTINE */ 00470000 * /* */ 00471000 * /*****************************************************************/ 00472000 * 0473 00473000 * CALL ISTZBFZ0; /* @XL03HCH*/ 00474000 @RC00460 L @08,ATCZPSVT(,ATCVTPTR) 0473 00475000 L @15,ZPSZBFZ0(,@08) 0473 00476000 BALR @14,@15 0473 00477000 * CNTRLREG=LOGERR; /* SET RETURN CODE TO NON-ZERO 0474 00478000 * FOR MAINLINE */ 00479000 LA CNTRLREG,8 0474 00480000 * RETNREG=ZCRSVF5; /* RESTORE RETURN REGISTER */ 00481000 L @08,RPHCRR(,RPHPTR) 0475 00482000 L @08,CRACRR(,@08) 0475 00483000 L RETNREG,ZCRSVF5(,@08) 0475 00484000 * END BFBB0010; /* END - INTERNAL PROCEDURE */ 00485000 @EL00002 DS 0H 0476 00486000 @EF00002 DS 0H 0476 00487000 @ER00002 BR @14 0476 00488000 @PB00002 DS 0H 0477 00489000 * GEN(EJECT); 0477 00490000 * 0477 00491000 EJECT 00492000 * /*****************************************************************/ 00493000 * /* */ 00494000 * /* WRITE LCCW PROCESSING - MAIN INITAILIZATION SUBROUTINE */ 00495000 * /* */ 00496000 * /*****************************************************************/ 00497000 * 0478 00498000 *WRITCONT: 0478 00499000 * 0478 00500000 */* SEGMENT(BFBB020)START */ 00501000 * 0478 00502000 * DO; 0478 00503000 WRITCONT DS 0H 0479 00504000 * GOTO BFBB020@; 0479 00505000 B BFBB020@ 0479 00506000 *BFBB020: 0480 00507000 * END; 0480 00508000 * 0480 00509000 BFBB020 DS 0H 0481 00510000 * /*****************************************************************/ 00511000 * /* */ 00512000 * /* COPY REQUEST TAG SEQUENCE COUNTER TO BTU (4 BITS) */ 00513000 * /* */ 00514000 * /*****************************************************************/ 00515000 * 0481 00516000 * GEN SETS(BTUREQ) REFS(FMCSEQ1) 0481 00517000 * (MVN ZOBBTU+BTUREQ+1(1,BUFPTR),FMCSEQ1(FMCBPTR)) ; 0481 00518000 MVN ZOBBTU+BTUREQ+1(1,BUFPTR),FMCSEQ1(FMCBPTR) 00519000 * FMCSEQ1=FMCSEQ1+1; /* INCREMENT REGUEST TAG SEQUENCE 00520000 * COUNTER */ 00521000 * 0482 00522000 LA @08,1 0482 00523000 SLR @11,@11 0482 00524000 IC @11,FMCSEQ1(,FMCBPTR) 0482 00525000 ALR @08,@11 0482 00526000 STC @08,FMCSEQ1(,FMCBPTR) 0482 00527000 * /*****************************************************************/ 00528000 * /* */ 00529000 * /* ON SEQUENCE COUNTER HALF-BYTE OVERFLOW, RESET COUNTER TO ONE. */ 00530000 * /* */ 00531000 * /*****************************************************************/ 00532000 * 0483 00533000 * IF FMCSEQ1B='0000'B THEN 0483 00534000 TM FMCSEQ1B(FMCBPTR),B'00001111' 0483 00535000 BNZ @RF00483 0483 00536000 * FMCSEQ1=1; /* RESET SEQUENCE COUNTER */ 00537000 MVI FMCSEQ1(FMCBPTR),X'01' 0484 00538000 * ELSE 0485 00539000 * ; 0485 00540000 @RF00483 DS 0H 0486 00541000 * BTUSORCE=FMCSAF; /* COPY SOURCE ID TO BTU */ 00542000 LA @08,28 0486 00543000 ALR @08,BUFPTR 0486 00544000 MVC BTUSORCE(2,@08),FMCSAF(FMCBPTR) 0486 00545000 * BTUDEST=NCBDAF; /* COPY DESTINATION ID TO BTU */ 00546000 MVC BTUDEST(2,@08),NCBDAF(DNCBPTR) 0487 00547000 * BTUFID=THSET; /* INIT TH BYTES 1&2 @XL03HAH*/ 00548000 MVC BTUFID(2,@08),@CB00050 0488 00549000 * BTURH=0; /* INIT REQST HEADER @XL03HAH*/ 00550000 * 0489 00551000 SLR @11,@11 0489 00552000 STCM @11,15,BTURH(@08) 0489 00553000 * /*****************************************************************/ 00554000 * /* */ 00555000 * /* CALL INTERNAL BUILD BDU MODIFIER SUBROUTINE */ 00556000 * /* SEGMENT(BFBB030)REQUEST */ 00557000 * /* */ 00558000 * /*****************************************************************/ 00559000 * 0490 00560000 * DO; 0490 00561000 * GOTO BFBB030; 0491 00562000 B BFBB030 0491 00563000 *BFBB030#: 0492 00564000 * END; 0492 00565000 * 0492 00566000 BFBB030# DS 0H 0493 00567000 * /*****************************************************************/ 00568000 * /* */ 00569000 * /* ERROR ENCOUNTERED IN BDU MODIFIER BUILD (INVALID LCCW */ 00570000 * /* OPERATION) ? */ 00571000 * /* */ 00572000 * /*****************************************************************/ 00573000 * 0493 00574000 * IF CNTRLREG^=0 THEN 0493 00575000 LTR CNTRLREG,CNTRLREG 0493 00576000 BNZ @RT00493 0493 00577000 * ; /* DROP TO RETURN ON ERROR */ 00578000 * ELSE /* NO ERROR - */ 00579000 *FBB2NOER: 0495 00580000 * DO; /* CONTINUE */ 00581000 * 0495 00582000 FBB2NOER DS 0H 0496 00583000 * /*************************************************************/ 00584000 * /* */ 00585000 * /* IF LCCW END-DIALOG FLAG IS SET, SET DISCONNECT FLAGS */ 00586000 * /* */ 00587000 * /*************************************************************/ 00588000 * 0496 00589000 * IF LCCWSD=ON THEN 0496 00590000 TM LCCWSD(LCCWPTR),B'01000000' 0496 00591000 BNO @RF00496 0496 00592000 * DO; /* SET DISCONNECT FLAGS */ 00593000 * BDUMODIF=BDUMODIF|BMODWD;/* SET DISCONNECT FLAG IN BDU 0498 00594000 * MODIFIER */ 00595000 OI BDUMODIF+42(BUFPTR),X'03' 0498 00596000 * FMCZFD06=ON; /* SET FMCB DISCONNECT PENDING 0499 00597000 * FLAG */ 00598000 OI FMCZFD06(FMCBPTR),B'10000000' 0499 00599000 * DNCDISC=ON; /* SET DNCB DISCONNECT PENDING 0500 00600000 * FLAG */ 00601000 OI DNCDISC(DNCBPTR),B'00001000' 0500 00602000 * END; 0501 00603000 * ELSE 0502 00604000 * DO; /* NOT END OF DIALOG - SET 0502 00605000 * DISCONNECT FLAGS OFF */ 00606000 B @RC00496 0502 00607000 @RF00496 DS 0H 0503 00608000 * FMCZFD06=OFF; /* TURN OFF FMCB DISCONNECT 0503 00609000 * PENDING FLAG */ 00610000 NI FMCZFD06(FMCBPTR),B'01111111' 0503 00611000 * DNCDISC=OFF; /* TURN OFF DNCB DISCONNECT 0504 00612000 * PENDING FLAG */ 00613000 NI DNCDISC(DNCBPTR),B'11110111' 0504 00614000 * END; 0505 00615000 * FDBDATAA=ADDR(ZOBBTU); /* SET DATA ADDR @XM07427*/ 00616000 @RC00496 LA @08,ZOBBTU(,BUFPTR) 0506 00617000 ST @08,FDBDATAA(,BUFPTR) 0506 00618000 * FDBDATCT=LENGTH(ISTBTU); /* SET DATA COUNT @XM07427*/ 00619000 * 0507 00620000 MVC FDBDATCT(2,BUFPTR),@CH00065 0507 00621000 * /*************************************************************/ 00622000 * /* */ 00623000 * /* CALL LCCW MOVE ROUTINE */ 00624000 * /* */ 00625000 * /*************************************************************/ 00626000 * 0508 00627000 * CALL ISTZDFC0; /* @XL03HCH*/ 00628000 L @08,ATCZPSVT(,ATCVTPTR) 0508 00629000 L @15,ZPSZDFC0(,@08) 0508 00630000 BALR @14,@15 0508 00631000 * CNTRLREG=REG15; /* MOVE RETURN CODE TO LOCAL 0509 00632000 * CONTROL/CODE REGISTER */ 00633000 * 0509 00634000 LR CNTRLREG,REG15 0509 00635000 * /*************************************************************/ 00636000 * /* */ 00637000 * /* ERROR RETURN FROM MOVE LCCW ROUTINE ? */ 00638000 * /* */ 00639000 * /*************************************************************/ 00640000 * 0510 00641000 * IF CNTRLREG^=0 THEN /* ERROR ON MOVE LCCW */ 00642000 LTR CNTRLREG,CNTRLREG 0510 00643000 BZ @RF00510 0510 00644000 * DO; 0511 00645000 * CNTRLREG=MOVEERR; 0512 00646000 LA CNTRLREG,20 0512 00647000 * CALL BFBB0010; /* CALL INVALID LCP RTN */ 00648000 BAL @14,BFBB0010 0513 00649000 * END; 0514 00650000 * ELSE /* NO MOVE LCCW ERROR */ 00651000 * 0515 00652000 * /***********************************************************/ 00653000 * /* */ 00654000 * /* SEGMENT(BFBB040)REQUEST */ 00655000 * /* */ 00656000 * /***********************************************************/ 00657000 * 0515 00658000 * DO; 0515 00659000 B @RC00510 0515 00660000 @RF00510 DS 0H 0516 00661000 * GOTO BFBB040; 0516 00662000 B BFBB040 0516 00663000 *BFBB040#: 0517 00664000 * END; 0517 00665000 BFBB040# DS 0H 0518 00666000 * END FBB2NOER; 0518 00667000 * 0518 00668000 @RC00510 DS 0H 0519 00669000 */* SEGMENT(BFBB020)FINISH */ 00670000 * 0519 00671000 * DO; 0519 00672000 @RT00493 DS 0H 0520 00673000 * GOTO BFBB020#; 0520 00674000 B BFBB020# 0520 00675000 *BFBB020@: 0521 00676000 * END; 0521 00677000 BFBB020@ DS 0H 0522 00678000 * GEN(EJECT); 0522 00679000 * 0522 00680000 EJECT 00681000 * /*****************************************************************/ 00682000 * /* */ 00683000 * /* BFBB0030 - BUILD BDU MODIFIER ROUTINE. SETS BDU MODIFIER BASED*/ 00684000 * /* ON THE LCCW COMMAND CODE. IF INVALID COMMAND, CALLS INVALID */ 00685000 * /* LCP PROCESSING ROUTINE (BFBB0010) */ 00686000 * /* */ 00687000 * /*****************************************************************/ 00688000 * 0523 00689000 *BDUMOD: 0523 00690000 * 0523 00691000 */* SEGMENT(BFBB030)START */ 00692000 * 0523 00693000 * DO; 0523 00694000 BDUMOD DS 0H 0524 00695000 * GOTO BFBB030@; 0524 00696000 B BFBB030@ 0524 00697000 *BFBB030: 0525 00698000 * END; 0525 00699000 * 0525 00700000 BFBB030 DS 0H 0526 00701000 * /*****************************************************************/ 00702000 * /* */ 00703000 * /* IF WRITE BLOCK LCCW, SET BDU MODIFIER AS SUCH */ 00704000 * /* */ 00705000 * /*****************************************************************/ 00706000 * 0526 00707000 * IF LCCWRWOP=LWB THEN /* WRITE BLOCK LCCW */ 00708000 TM LCCWRWOP(LCCWPTR),B'00000101' 0526 00709000 BNO @RF00526 0526 00710000 TM LCCWRWOP(LCCWPTR),B'00111010' 0526 00711000 BNZ @RF00526 0526 00712000 * BDUMODIF=BDUMODIF|BMODW; /* SET BDU MODIFIER */ 00713000 OI BDUMODIF+42(BUFPTR),X'00' 0527 00714000 * ELSE /* NOT WRITE BLOCK LCCW */ 00715000 * 0528 00716000 * /***************************************************************/ 00717000 * /* */ 00718000 * /* IF WRITE MESSAGE LCCW, SET BDU MODIFIER AS SUCH */ 00719000 * /* */ 00720000 * /***************************************************************/ 00721000 * 0528 00722000 * IF LCCWRWOP=LWM THEN /* WRITE MESSAGE LCCW */ 00723000 B @RC00526 0528 00724000 @RF00526 TM LCCWRWOP(LCCWPTR),B'00001001' 0528 00725000 BNO @RF00528 0528 00726000 TM LCCWRWOP(LCCWPTR),B'00110110' 0528 00727000 BNZ @RF00528 0528 00728000 * BDUMODIF=BDUMODIF|BMODWM; /* SET BDU MODIFIER */ 00729000 OI BDUMODIF+42(BUFPTR),X'01' 0529 00730000 * ELSE /* NOT WRITE MESSAGE */ 00731000 * 0530 00732000 * /*************************************************************/ 00733000 * /* */ 00734000 * /* IF WRITE TRANSMISSION LCCW, SET MODIFIER AS SUCH */ 00735000 * /* */ 00736000 * /*************************************************************/ 00737000 * 0530 00738000 * IF LCCWRWOP=LWT THEN /* WRITE TRANSMISSION LCCW */ 00739000 B @RC00528 0530 00740000 @RF00528 TM LCCWRWOP(LCCWPTR),B'00001101' 0530 00741000 BNO @RF00530 0530 00742000 TM LCCWRWOP(LCCWPTR),B'00110010' 0530 00743000 BNZ @RF00530 0530 00744000 * BDUMODIF=BDUMODIF|BMODWT; /* SET BDU MODIFIER */ 00745000 OI BDUMODIF+42(BUFPTR),X'02' 0531 00746000 * ELSE /* NOT WRITE XMISSION LCCW */ 00747000 * 0532 00748000 * /***********************************************************/ 00749000 * /* */ 00750000 * /* IF WRITE/READ LCCW, SET BDU MODIFIER AS SUCH */ 00751000 * /* */ 00752000 * /***********************************************************/ 00753000 * 0532 00754000 * IF LCCWRWOP=LWR THEN /* WRITE/READ LCCW */ 00755000 B @RC00530 0532 00756000 @RF00530 TM LCCWRWOP(LCCWPTR),B'00000001' 0532 00757000 BNO @RF00532 0532 00758000 TM LCCWRWOP(LCCWPTR),B'00111110' 0532 00759000 BNZ @RF00532 0532 00760000 * BDUMODIF=BDUMODIF|BMODWR;/* SET BDU MODIFIER */ 00761000 OI BDUMODIF+42(BUFPTR),X'06' 0533 00762000 * ELSE 0534 00763000 * DO; /* NONE OF THE ABOVE */ 00764000 B @RC00532 0534 00765000 @RF00532 DS 0H 0535 00766000 * CNTRLREG=CBERR; /* INDICATE CONTROL BLOCK ERROR */ 00767000 * 0535 00768000 LA CNTRLREG,12 0535 00769000 * /*******************************************************/ 00770000 * /* */ 00771000 * /* CALL INVALID LCP PROCESSING ROUTINE */ 00772000 * /* */ 00773000 * /*******************************************************/ 00774000 * 0536 00775000 * CALL BFBB0010; 0536 00776000 BAL @14,BFBB0010 0536 00777000 * END; 0537 00778000 * 0537 00779000 */* SEGMENT(BFBB030)FINISH */ 00780000 * 0538 00781000 * DO; 0538 00782000 @RC00532 DS 0H 0538 00783000 @RC00530 DS 0H 0538 00784000 @RC00528 DS 0H 0538 00785000 @RC00526 DS 0H 0539 00786000 * GOTO BFBB030#; 0539 00787000 B BFBB030# 0539 00788000 *BFBB030@: 0540 00789000 * END; 0540 00790000 BFBB030@ DS 0H 0541 00791000 * GEN(EJECT); 0541 00792000 * 0541 00793000 EJECT 00794000 * /*****************************************************************/ 00795000 * /* */ 00796000 * /* BFBB040 SUBROUTINE - INTERNAL WRITE LCCW PROCESSOR ROUTINE. */ 00797000 * /* CALLED BY BFBB020 TO COMPLETE LCCW PROCESSING IF NO ERROR */ 00798000 * /* CONDITION HAD BEEN ENCOUNTERED UP TO THAT POINT. */ 00799000 * /* */ 00800000 * /*****************************************************************/ 00801000 * 0542 00802000 *WRCONT1: 0542 00803000 * 0542 00804000 */* SEGMENT(BFBB040)START */ 00805000 * 0542 00806000 * DO; 0542 00807000 WRCONT1 DS 0H 0543 00808000 * GOTO BFBB040@; 0543 00809000 B BFBB040@ 0543 00810000 *BFBB040: 0544 00811000 * END; 0544 00812000 * 0544 00813000 BFBB040 DS 0H 0545 00814000 * /*****************************************************************/ 00815000 * /* */ 00816000 * /* IS THIS FLAGGED AS FIRST BLOCK IN THE FMCB ? */ 00817000 * /* */ 00818000 * /*****************************************************************/ 00819000 * 0545 00820000 * IF FMCZF00C=ON THEN /* FIRST BLOCK */ 00821000 TM FMCZF00C(FMCBPTR),B'00001000' 0545 00822000 BNO @RF00545 0545 00823000 * DO; /* MOVE FLAG TO BDU */ 00824000 * FMCZF00C=OFF; /* RESET FIRST BLOCK FLAG */ 00825000 NI FMCZF00C(FMCBPTR),B'11110111' 0547 00826000 * BDUFBMI=ON; /* SET 1ST BLOCK FLAG IN BDU */ 00827000 OI BDUFBMI+42(BUFPTR),B'00010000' 0548 00828000 * END; 0549 00829000 * ELSE 0550 00830000 * ; /* NOT FIRST BLOCK */ 00831000 @RF00545 DS 0H 0551 00832000 * LCCWPTR=LSCLCCWA; /* LOAD LCCW POINTER @XM07032*/ 00833000 * 0551 00834000 L LCCWPTR,LSCLCCWA(,LSCBPTR) 0551 00835000 * /*****************************************************************/ 00836000 * /* */ 00837000 * /* IS THIS LCCW A WRITE/READ COMMAND ? */ 00838000 * /* */ 00839000 * /*****************************************************************/ 00840000 * 0552 00841000 * IF LCCWRWOP=LWR THEN /* WRITE/READ ? */ 00842000 TM LCCWRWOP(LCCWPTR),B'00000001' 0552 00843000 BNO @RF00552 0552 00844000 TM LCCWRWOP(LCCWPTR),B'00111110' 0552 00845000 BNZ @RF00552 0552 00846000 * DO; 0553 00847000 * IF BDUMODIF=BMODWCR THEN 0554 00848000 CLI BDUMODIF+42(BUFPTR),X'0E' 0554 00849000 BE @RT00554 0554 00850000 * ; /* IF CONTACT MODIF NO STPR 0555 00851000 * @XM09075*/ 00852000 * ELSE /* @XM09075*/ 00853000 * BDUSTPR=ON; /* SET BDU STOPPER */ 00854000 OI BDUSTPR+42(BUFPTR),B'00000100' 0556 00855000 * END; 0557 00856000 * ELSE /* NOT WRITE/READ */ 00857000 * 0558 00858000 * /***************************************************************/ 00859000 * /* */ 00860000 * /* NOT WRITE/READ - IS RESPONSE REQUIRED INDICATED */ 00861000 * /* */ 00862000 * /***************************************************************/ 00863000 * 0558 00864000 * IF LCCWRFI=ON THEN 0558 00865000 B @RC00552 0558 00866000 @RF00552 TM LCCWRFI(LCCWPTR),B'00000010' 0558 00867000 BO @RT00558 0558 00868000 * ; /* RESPONSE REQUIRED - NULL */ 00869000 * ELSE /* NOT RESPONSE REQUIRED */ 00870000 * 0560 00871000 * /*************************************************************/ 00872000 * /* */ 00873000 * /* NOT REPONSE REQUIRED. IF COMMAND CHAINED AND NO */ 00874000 * /* CONTACT/DISCONNECT MODIFIER, INCREMENT STPR SCHEDULE COUNT*/ 00875000 * /* @XM07311*/ 00876000 * /* */ 00877000 * /*************************************************************/ 00878000 * 0560 00879000 * IF LCCWCC=OFF| /* IF NO COMMND CHAIN@XM07311 */ 00880000 * BDUMODIF=BMODWC| /* OR MODIFIER @XM07311*/ 00881000 * BDUMODIF=BMODWCM| /* IS A CONTACT @XM07311*/ 00882000 * BDUMODIF=BMODWCT| /* OR DISCONNECT @XM07311*/ 00883000 * BDUMODIF=BMODWCD| /* DON'T @XM07311*/ 00884000 * BDUMODIF=BMODWCR| /* UPDATE @XM07311*/ 00885000 * BDUMODIF=BMODWD THEN 0560 00886000 TM LCCWCC(LCCWPTR),B'01000000' 0560 00887000 BZ @RT00560 0560 00888000 LA @08,42 0560 00889000 ALR @08,BUFPTR 0560 00890000 CLI BDUMODIF(@08),X'08' 0560 00891000 BE @RT00560 0560 00892000 CLI BDUMODIF(@08),X'09' 0560 00893000 BE @RT00560 0560 00894000 CLI BDUMODIF(@08),X'0A' 0560 00895000 BE @RT00560 0560 00896000 CLI BDUMODIF(@08),X'0B' 0560 00897000 BE @RT00560 0560 00898000 CLI BDUMODIF(@08),X'0E' 0560 00899000 BE @RT00560 0560 00900000 CLI BDUMODIF(@08),X'03' 0560 00901000 BE @RT00560 0560 00902000 * ; /* STPR @XM07311*/ 00903000 * ELSE 0562 00904000 * DO; /* UPDATE STPR */ 00905000 * FMCZX004=FMCZX004+1; /* INCREMENT STPR SCHEDULE COUNT */ 00906000 * 0563 00907000 LA @08,1 0563 00908000 SLR @11,@11 0563 00909000 IC @11,FMCZX004(,FMCBPTR) 0563 00910000 ALR @08,@11 0563 00911000 STC @08,FMCZX004(,FMCBPTR) 0563 00912000 * /*********************************************************/ 00913000 * /* */ 00914000 * /* HAS SCHEDULING LIMIT THRESHOLD BEEN HIT ? */ 00915000 * /* */ 00916000 * /*********************************************************/ 00917000 * 0564 00918000 * IF FMCZX004FDBFDBA^=0); 0587 00999000 B @DE00587 0587 01000000 @DL00587 DS 0H 0588 01001000 * SAVEZOB=SAVEZOB->FDBFDBA; /* BUMB TO NEXT FDB */ 01002000 L SAVEZOB,FDBFDBA(,SAVEZOB) 0588 01003000 * COUNT=COUNT+SAVEZOB->FDBDATCT;/* ADD DATA COUNT TO RUNNING 0589 01004000 * TOTAL */ 01005000 AH COUNT,FDBDATCT(,SAVEZOB) 0589 01006000 * END; /* END - FDB COUNT LOOP */ 01007000 @DE00587 L @08,FDBFDBA(,SAVEZOB) 0590 01008000 LTR @08,@08 0590 01009000 BNZ @DL00587 0590 01010000 * BTUDCF=COUNT-LENGTH(ISTTH); /* UPDATE COUNT @XL03HCH*/ 01011000 LR @08,COUNT 0591 01012000 SL @08,@CF02618 0591 01013000 STH @08,BTUDCF+28(,BUFPTR) 0591 01014000 * RFY 0592 01015000 * (COUNT, 0592 01016000 * SAVEZOB) UNRSTD; /* RELEASE TEMP REGS */ 01017000 */* SEGMENT(BFBB040)FINISH */ 01018000 * 0593 01019000 * DO; 0593 01020000 * GOTO BFBB040#; 0594 01021000 B BFBB040# 0594 01022000 *BFBB040@: 0595 01023000 * END; 0595 01024000 BFBB040@ DS 0H 0596 01025000 * GEN(EJECT); 0596 01026000 EJECT 01027000 * 0597 01028000 * /*****************************************************************/ 01029000 * /* */ 01030000 * /* SEGMENT(BFBB050)START */ 01031000 * /* */ 01032000 * /*****************************************************************/ 01033000 * 0597 01034000 * DO; 0597 01035000 * GOTO BFBB050@; 0598 01036000 B BFBB050@ 0598 01037000 *BFBB050: 0599 01038000 * END; 0599 01039000 BFBB050 DS 0H 0600 01040000 * CNTRLREG=8; /* PARAM=CONTAC MODIFIER */ 01041000 LA CNTRLREG,8 0600 01042000 * CALL ISTZBFNB; /* CALL SESSION SCHEDULER */ 01043000 L @08,PABDVTA+95(,FMCBPTR) 0601 01044000 LA @08,0(,@08) 0601 01045000 L @15,ZLBZBFNB(,@08) 0601 01046000 BALR @14,@15 0601 01047000 * IF REG15=0 THEN 0602 01048000 LTR REG15,REG15 0602 01049000 BNZ @RF00602 0602 01050000 * DO; /* CAN CONTACT BE MADE? */ 01051000 * BDUMODIF=BDUMODIF|BMODWC; /* CONTACT MODIFIER BIT ON */ 01052000 LA @08,42 0604 01053000 ALR @08,BUFPTR 0604 01054000 OI BDUMODIF(@08),X'08' 0604 01055000 * FMCZFC06=ON; /* CONTACT OUTSTANDING FLAG */ 01056000 OI FMCZFC06(FMCBPTR),B'00000001' 0605 01057000 * DNCCONT=ON; /* FOR DEVICE AND FUNCTION */ 01058000 OI DNCCONT(DNCBPTR),B'00010000' 0606 01059000 * BDURTOE=ON; /* RETURN TEXT WITH ERROR 0607 01060000 * @X50BHXF*/ 01061000 OI BDURTOE(@08),B'00000010' 0607 01062000 * END; 0608 01063000 * ELSE 0609 01064000 * BTUZRT0A=ON; /* FLAG CONTACT SIMULATED */ 01065000 B @RC00602 0609 01066000 @RF00602 OI BTUZRT0A+28(BUFPTR),B'00100000' 0609 01067000 * FMCZX001=FMCZX001+1; /* BUMP FUNCTION SESSION COUNT 0610 01068000 * @XM07108*/ 01069000 @RC00602 LA @08,1 0610 01070000 SLR @11,@11 0610 01071000 IC @11,FMCZX001(,FMCBPTR) 0610 01072000 ALR @08,@11 0610 01073000 STC @08,FMCZX001(,FMCBPTR) 0610 01074000 * CNTRLREG=0; /* INDICATE NO ERROR */ 01075000 * 0611 01076000 SLR CNTRLREG,CNTRLREG 0611 01077000 * /*****************************************************************/ 01078000 * /* */ 01079000 * /* SEGMENT(BFBB050)FINISH */ 01080000 * /* */ 01081000 * /*****************************************************************/ 01082000 * 0612 01083000 * DO; 0612 01084000 * GOTO BFBB050#; 0613 01085000 B BFBB050# 0613 01086000 *BFBB050@: 0614 01087000 * END; 0614 01088000 * 0614 01089000 BFBB050@ DS 0H 0615 01090000 */* TPEPILOG */ 01091000 * 0615 01092000 * GEN(PRINT OFF); 0615 01093000 PRINT OFF 01094000 * GEN(PRINT ON); 0616 01095000 * 0616 01096000 PRINT ON 01097000 */* END OF TPEPILOG */ 01098000 * 0617 01099000 * END ISTZBFBB; /* END OF MODULE */ 01100000 @EL00001 DS 0H 0617 01101000 @EF00001 DS 0H 0617 01102000 @ER00001 BR @14 0617 01103000 @DATA DS 0H 01104000 @DATD DSECT 01105000 DS 0F 01106000 ISTZBFBB CSECT 01107000 DS 0F 01108000 @CF00058 DC F'4' 01109000 @CF02618 DC F'10' 01110000 @CF00062 DC F'12' 01111000 @CF00049 DC F'16' 01112000 @CF00065 DC F'20' 01113000 @CH00065 EQU @CF00065+2 01114000 @DATD DSECT 01115000 DS 0D 01116000 BDUPTR DS A 01117000 BTUPTR DS A 01118000 LCPBPTR DS A 01119000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01120000 @ENDDATD EQU * 01121000 ISTZBFBB CSECT 01122000 DS 0F 01123000 @SIZDATD DC AL1(0) 01124000 DC AL3(@ENDDATD-@DATD) 01125000 DS 0D 01126000 @CC02933 DC C'BCBB' 01127000 @CB00050 DC X'0E00' 01128000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01129000 @01 EQU 01 01130000 @02 EQU 02 01131000 @03 EQU 03 01132000 @04 EQU 04 01133000 @05 EQU 05 01134000 @06 EQU 06 01135000 @07 EQU 07 01136000 @08 EQU 08 01137000 @09 EQU 09 01138000 @10 EQU 10 01139000 @11 EQU 11 01140000 @12 EQU 12 01141000 @13 EQU 13 01142000 @14 EQU 14 01143000 @15 EQU 15 01144000 ATCVTPTR EQU @02 01145000 DNCBPTR EQU @04 01146000 FMCBPTR EQU @05 01147000 ICNCBPTR EQU @03 01148000 BUFPTR EQU @06 01149000 LSCBPTR EQU @07 01150000 LCCWPTR EQU @09 01151000 R12 EQU @12 01152000 R13 EQU @13 01153000 CNTRLREG EQU @00 01154000 RETNREG EQU @14 01155000 FSBPTR EQU @00 01156000 REG15 EQU @15 01157000 COUNT EQU @14 01158000 SAVEZOB EQU @15 01159000 RPHPTR EQU @01 01160000 GPR01P EQU @01 01161000 GPR12P EQU @12 01162000 GPR13P EQU @13 01163000 GPR14P EQU @14 01164000 GPR07P EQU @07 01165000 GPR15P EQU @15 01166000 GPR01F EQU @01 01167000 GPR07F EQU @07 01168000 GPR12F EQU @12 01169000 GPR13F EQU @13 01170000 GPR14F EQU @14 01171000 GPR15F EQU @15 01172000 ATCLCPTR EQU 1032 01173000 ISTZBFZ0 EQU 0 01174000 ISTZDFC0 EQU 0 01175000 ISTZBFNB EQU 0 01176000 ISTPROCD EQU 0 01177000 PROPROC EQU ISTPROCD 01178000 PROPROC1 EQU PROPROC 01179000 PROXPOPT EQU PROPROC1 01180000 PROPROC2 EQU PROPROC+1 01181000 PROCFTX EQU PROPROC2 01182000 PROPROC3 EQU PROPROC+2 01183000 PROPROC4 EQU PROPROC+3 01184000 PROPROCS EQU 0 01185000 PROSETMS EQU PROPROCS+1 01186000 PROSETM2 EQU PROSETMS 01187000 PROSETM3 EQU PROSETMS+1 01188000 PROSETM4 EQU PROSETMS+2 01189000 ISTDEVCH EQU 0 01190000 DEVSHCH EQU ISTDEVCH 01191000 DEVCHAR EQU DEVSHCH 01192000 DEVTCODE EQU ISTDEVCH+1 01193000 DEVFLAGS EQU ISTDEVCH+3 01194000 DEVFCCTL EQU DEVFLAGS 01195000 DEVCBSC EQU DEVFCCTL 01196000 DEVCHAR3 EQU DEVFLAGS 01197000 ISTBDU EQU 0 01198000 BDUCOMND EQU ISTBDU 01199000 BDUMODIF EQU ISTBDU+1 01200000 BDUMOD1 EQU BDUMODIF 01201000 BDUDAF EQU ISTBDU+2 01202000 BDUFUNC EQU BDUDAF 01203000 BDUCHECK EQU BDUFUNC 01204000 BDUFBMI EQU BDUFUNC 01205000 BDUTRPM EQU BDUFUNC 01206000 BDUFLAGS EQU BDUDAF+1 01207000 BDUSTPR EQU BDUFLAGS 01208000 BDURTOE EQU BDUFLAGS 01209000 ISTBTU EQU 0 01210000 BTUBTH EQU ISTBTU 01211000 BTUFID EQU BTUBTH 01212000 BTUDEST EQU BTUBTH+2 01213000 BTUSORCE EQU BTUBTH+4 01214000 BTUREQ EQU BTUBTH+6 01215000 BTURQFLG EQU BTUREQ 01216000 BTUZRT04 EQU BTURQFLG 01217000 BTUZRT06 EQU BTURQFLG 01218000 BTUZRT07 EQU BTURQFLG 01219000 BTUZRT08 EQU BTURQFLG+1 01220000 BTUZRT0A EQU BTURQFLG+1 01221000 BTUDCF EQU BTUBTH+8 01222000 BTURH EQU BTUBTH+10 01223000 BTUBDU EQU ISTBTU+14 01224000 BTUSYSTR EQU ISTBTU+18 01225000 ISTPAB EQU 0 01226000 PABWQCHN EQU ISTPAB 01227000 PABWEQA EQU PABWQCHN 01228000 PABCHAIN EQU PABWQCHN+4 01229000 PABDVTA EQU ISTPAB+9 01230000 PABRPHFG EQU ISTPAB+12 01231000 PABFLAGS EQU PABRPHFG 01232000 PABERLCK EQU PABFLAGS 01233000 PABERRLK EQU PABERLCK 01234000 ISTDYPAB EQU 0 01235000 ISTLOK EQU 0 01236000 LOKCHN EQU ISTLOK+1 01237000 LOKCHNG EQU LOKCHN 01238000 @NM00002 EQU LOKCHNG+2 01239000 ISTRPH EQU 0 01240000 RPHFLAGS EQU ISTRPH+2 01241000 RPHAPTYP EQU RPHFLAGS 01242000 RPHFSTLC EQU RPHFLAGS 01243000 RPHFLGB EQU ISTRPH+3 01244000 RPHRPHA EQU ISTRPH+4 01245000 RPHTSKID EQU ISTRPH+8 01246000 RPHRESMA EQU ISTRPH+16 01247000 RPHWPFLG EQU RPHRESMA 01248000 RPHWEA EQU ISTRPH+24 01249000 RPHCSPA EQU RPHWEA 01250000 RPHSRPRM EQU ISTRPH+28 01251000 RPHCRR EQU ISTRPH+32 01252000 RPHPABQA EQU ISTRPH+36 01253000 RPHWORK EQU ISTRPH+40 01254000 RPHSAVE1 EQU RPHWORK 01255000 RPHSBITS EQU RPHSAVE1+1 01256000 ISTATCVT EQU 0 01257000 ATCCOM EQU ISTATCVT 01258000 ATCSTAT EQU ATCCOM 01259000 ATCSTAT1 EQU ATCSTAT 01260000 ATCSTFLG EQU ATCSTAT+1 01261000 ATCPOFLG EQU ATCSTAT+2 01262000 ATCSTAT4 EQU ATCSTAT+3 01263000 ATCIOTRC EQU ATCCOM+140 01264000 ATCTHTRC EQU ATCIOTRC 01265000 ATCCSMR EQU ISTATCVT+296 01266000 ATCSHRFG EQU ISTATCVT+316 01267000 ATCHPGM EQU ISTATCVT+384 01268000 ATCVLCNT EQU ISTATCVT+772 01269000 ATCSOPD EQU ISTATCVT+792 01270000 ATCSIPD EQU ISTATCVT+800 01271000 ATCSECST EQU ISTATCVT+812 01272000 ATCAOSM EQU ISTATCVT+912 01273000 ATCGSRBQ EQU ATCAOSM+4 01274000 ATCGSRBG EQU ATCGSRBQ 01275000 ATCZPSVT EQU ATCAOSM+72 01276000 ATCICAPP EQU ATCAOSM+100 01277000 ATCLDAPP EQU ATCAOSM+120 01278000 ATCDAPVT EQU ATCAOSM+140 01279000 ATCVTFLG EQU ATCAOSM+392 01280000 ATCZFLAG EQU ATCAOSM+588 01281000 ISTLCCW EQU 0 01282000 LCCWOP EQU ISTLCCW 01283000 LCCWSI EQU LCCWOP 01284000 LCCWSD EQU LCCWOP 01285000 LCCWRWOP EQU LCCWOP 01286000 LCCWCTL EQU LCCWRWOP 01287000 LCCWFLAG EQU ISTLCCW+1 01288000 LCCWCC EQU LCCWFLAG 01289000 LCCWLSI EQU LCCWFLAG 01290000 LCCWRFI EQU LCCWFLAG 01291000 ISTNCB EQU 0 01292000 NCBDAF EQU ISTNCB+2 01293000 NCBFLAGS EQU ISTNCB+24 01294000 NCBFRAS EQU NCBFLAGS+1 01295000 NCBFTRIO EQU NCBFRAS 01296000 NCBFLAG1 EQU NCBFLAGS+2 01297000 NCBDEVCH EQU ISTNCB+36 01298000 ISTDNCB EQU 0 01299000 DNCOS EQU ISTDNCB+56 01300000 DNCZFLGS EQU DNCOS 01301000 DNCCONT EQU DNCZFLGS 01302000 DNCDISC EQU DNCZFLGS 01303000 DNCZF006 EQU DNCZFLGS+1 01304000 DNCPSOL EQU DNCZFLGS+1 01305000 DNCBSCED EQU DNCOS+2 01306000 DNCLICP EQU DNCBSCED 01307000 ISTFDB EQU 0 01308000 FDBFDBA EQU ISTFDB 01309000 FDBDATAA EQU ISTFDB+4 01310000 FDBDATCT EQU ISTFDB+8 01311000 ISTFSB EQU 0 01312000 FSBFSB EQU ISTFSB 01313000 FSBMNRCD EQU FSBFSB+2 01314000 FSBSFLGS EQU FSBFSB+3 01315000 FSBFSBA EQU FSBFSB+4 01316000 FSBBTH EQU FSBFSB+8 01317000 FSBCID EQU FSBBTH 01318000 FSBRQTAG EQU FSBBTH+4 01319000 FSBSEQID EQU FSBRQTAG 01320000 FSBFLAGS EQU FSBSEQID 01321000 FSBSEQ EQU FSBSEQID+1 01322000 FSBCSWST EQU FSBBTH+6 01323000 FSBTHFLD EQU FSBCSWST 01324000 FSBTH1 EQU FSBTHFLD 01325000 FSBSYSRS EQU FSBTH1 01326000 FSBTH2 EQU FSBTHFLD+1 01327000 FSBEXTRS EQU FSBTH2 01328000 FSBXFSTS EQU FSBEXTRS 01329000 FSBXCODE EQU FSBEXTRS 01330000 FSBNETRS EQU FSBFSB+16 01331000 FSBSRCAT EQU FSBNETRS 01332000 FSBERC EQU FSBNETRS+1 01333000 FSBFBMI EQU FSBERC 01334000 FSBDMGRS EQU FSBFSB+18 01335000 FSBSS1 EQU FSBDMGRS 01336000 FSBSS2 EQU FSBDMGRS+1 01337000 FSBLCPB EQU FSBFSB+20 01338000 FSBMSGID EQU FSBLCPB 01339000 FSBLCCWA EQU FSBFSB+24 01340000 FSBRLSTS EQU FSBLCCWA 01341000 ISTFMCB EQU 0 01342000 FMCSAF EQU ISTFMCB+2 01343000 FMCSTAT EQU ISTFMCB+28 01344000 FMCZF007 EQU FMCSTAT 01345000 FMCSTAT1 EQU ISTFMCB+29 01346000 FMCCMDFL EQU ISTFMCB+31 01347000 FMCCMPS1 EQU ISTFMCB+36 01348000 FMCPROCD EQU ISTFMCB+48 01349000 FMCPAB3 EQU ISTFMCB+96 01350000 FMCSIPA EQU ISTFMCB+148 01351000 FMCNXOSQ EQU ISTFMCB+152 01352000 FMCNXCFM EQU FMCNXOSQ 01353000 FMCNXOSC EQU FMCNXOSQ+2 01354000 FMCSSTAT EQU ISTFMCB+159 01355000 FMCPACE EQU ISTFMCB+160 01356000 FMCPACEN EQU FMCPACE 01357000 FMCPACEM EQU FMCPACE+1 01358000 FMCPACPC EQU FMCPACE+2 01359000 FMCCVAL EQU FMCPACE+3 01360000 FMCOBCE EQU FMCCVAL 01361000 FMCCLEXT EQU ISTFMCB+164 01362000 FMCRPLA EQU FMCCLEXT 01363000 FMCFBA EQU FMCCLEXT+4 01364000 FMCCMPS2 EQU FMCCLEXT+16 01365000 FMCFLGA EQU FMCCMPS2 01366000 FMCFLGCL EQU FMCCMPS2+1 01367000 FMCPSCMD EQU FMCCMPS2+2 01368000 FMCPSTAT EQU FMCCMPS2+3 01369000 FMCSTAT2 EQU ISTFMCB+186 01370000 FMCMODEB EQU ISTFMCB+189 01371000 FMCCLSEQ EQU ISTFMCB+190 01372000 FMCRRESP EQU ISTFMCB+195 01373000 FMCSSEGQ EQU ISTFMCB+200 01374000 FMCFBAS EQU ISTFMCB+216 01375000 FMCZV002 EQU FMCFBAS 01376000 FMCSNCTL EQU ISTFMCB+224 01377000 FMCSCFLG EQU FMCSNCTL 01378000 FMCVS1 EQU ISTFMCB+232 01379000 FMCZFLAG EQU FMCVS1 01380000 FMCZF001 EQU FMCZFLAG 01381000 FMCZF006 EQU FMCZFLAG 01382000 FMCZFA06 EQU FMCZF006 01383000 FMCZFB06 EQU FMCZF006 01384000 FMCZFC06 EQU FMCZF006 01385000 FMCZFD06 EQU FMCZF006+1 01386000 FMCZF00C EQU FMCZFLAG+1 01387000 FMCLBXM EQU FMCVS1+12 01388000 FMCSHEAQ EQU FMCLBXM 01389000 FMCLCPBQ EQU FMCVS1+16 01390000 FMCLCPAQ EQU FMCVS1+20 01391000 FMCZX001 EQU FMCVS1+28 01392000 FMCZX003 EQU FMCVS1+30 01393000 FMCZX004 EQU FMCVS1+31 01394000 FMCSEQ1 EQU FMCVS1+34 01395000 FMCSEQ1B EQU FMCSEQ1 01396000 FMCZFLG2 EQU FMCVS1+35 01397000 FMCCVFLG EQU FMCVS1+44 01398000 FMCFLAG EQU 0 01399000 FMCFLGB EQU FMCFLAG 01400000 ISTZSAVE EQU 0 01401000 ZSAZSVBC EQU ISTZSAVE 01402000 ZSAZSVMS EQU ZSAZSVBC 01403000 ZSAZACTV EQU ZSAZSVMS 01404000 ZSAZSVFC EQU ISTZSAVE+4 01405000 ZSAZSVRR EQU ISTZSAVE+8 01406000 ZSAZSVVR EQU ISTZSAVE+12 01407000 ZSAZTRAC EQU ISTZSAVE+36 01408000 ISTLSCB EQU 0 01409000 LSC1WORD EQU ISTLSCB 01410000 LSCREQTG EQU LSC1WORD+2 01411000 LSCZRT00 EQU LSCREQTG 01412000 LSCZRT01 EQU LSCREQTG 01413000 LSCZRT02 EQU LSCREQTG 01414000 LSCZRT03 EQU LSCREQTG 01415000 LSCZRT04 EQU LSCREQTG 01416000 LSCZRT05 EQU LSCREQTG 01417000 LSCZRT06 EQU LSCREQTG 01418000 LSCZRT07 EQU LSCREQTG 01419000 LSCZMNRC EQU LSCREQTG+1 01420000 LSCZRT08 EQU LSCZMNRC 01421000 LSCZRT09 EQU LSCZMNRC 01422000 LSCCHAIN EQU ISTLSCB+4 01423000 LSCCHAI1 EQU LSCCHAIN 01424000 LSCRUCNT EQU ISTLSCB+8 01425000 LSCFLGS EQU ISTLSCB+9 01426000 LSCSEQ EQU ISTLSCB+10 01427000 LSCLCCWA EQU ISTLSCB+20 01428000 LSCFDBA EQU ISTLSCB+24 01429000 ISTLH EQU 0 01430000 ISTTH EQU 0 01431000 THFLAG1 EQU ISTTH 01432000 THFLGA EQU THFLAG1 01433000 THMPF EQU THFLGA 01434000 THFLGB EQU THFLAG1+1 01435000 ISTTH2 EQU 0 01436000 TH2FLAG1 EQU ISTTH2 01437000 TH2MPF EQU TH2FLAG1 01438000 ISTZOBUF EQU 0 01439000 ZOBFSM EQU ISTZOBUF+4 01440000 ISTZPSVT EQU 0 01441000 ZPSZDFC0 EQU ISTZPSVT+4 01442000 ZPSZBFZ0 EQU ISTZPSVT+28 01443000 ISTZLBVT EQU 0 01444000 ZLBZBFNB EQU ISTZLBVT+12 01445000 ISTLCPB EQU 0 01446000 LCPREQTG EQU ISTLCPB+2 01447000 LCPFLAGS EQU LCPREQTG 01448000 LCPZF001 EQU LCPFLAGS 01449000 LCPZRT02 EQU LCPZF001 01450000 LCPZF002 EQU LCPFLAGS 01451000 LCPZRT03 EQU LCPZF002 01452000 LCPZF003 EQU LCPFLAGS 01453000 LCPZRT04 EQU LCPZF003 01454000 LCPZF004 EQU LCPFLAGS 01455000 LCPZRT05 EQU LCPZF004 01456000 LCPZRT06 EQU LCPFLAGS 01457000 LCPZRT07 EQU LCPFLAGS 01458000 LCPMNRCD EQU LCPREQTG+1 01459000 LCPZRT08 EQU LCPMNRCD 01460000 LCPZRT09 EQU LCPMNRCD 01461000 LCPCHAIN EQU ISTLCPB+4 01462000 LCPCHAI1 EQU LCPCHAIN 01463000 LCPRUCNT EQU ISTLCPB+8 01464000 LCPFLAG2 EQU ISTLCPB+9 01465000 LCPTLBPI EQU LCPFLAG2 01466000 LCPFID0 EQU LCPFLAG2 01467000 LCPSEQ EQU ISTLCPB+10 01468000 LCPCID EQU ISTLCPB+16 01469000 LCPFDBA EQU ISTLCPB+24 01470000 LCPFLG1 EQU ISTLCPB+37 01471000 LCPFLCCW EQU ISTLCPB+40 01472000 LCPLCCW EQU ISTLCPB+48 01473000 LCPPABA EQU LCPLCCW+4 01474000 LCPRPHA EQU LCPPABA 01475000 ISTZCRR EQU 0 01476000 ZCRCRR EQU ISTZCRR 01477000 ZCRFLGS1 EQU ISTZCRR+12 01478000 ZCRFLGS2 EQU ISTZCRR+13 01479000 ZCRSWFLD EQU ISTZCRR+14 01480000 ZCRENDSH EQU ZCRSWFLD 01481000 ZCRNDLCP EQU ZCRSWFLD 01482000 ZCRRESET EQU ZCRSWFLD 01483000 ZCRFLGS3 EQU ISTZCRR+15 01484000 ZCRGENSW EQU ISTZCRR+16 01485000 ZCRPFLGS EQU ISTZCRR+17 01486000 ZCRIBPR EQU ISTZCRR+18 01487000 ZCRSCPSW EQU ISTZCRR+19 01488000 ZCRPARMS EQU ISTZCRR+24 01489000 ZCRFBPTR EQU ZCRPARMS 01490000 ZCRDFRDA EQU ZCRPARMS+10 01491000 ZCRPCOD1 EQU ZCRPARMS+12 01492000 ZCRPLSBF EQU ZCRPCOD1 01493000 ZCRPCOD2 EQU ZCRPARMS+13 01494000 ZCRSVRTN EQU ISTZCRR+56 01495000 ZCRSVF5 EQU ZCRSVRTN+16 01496000 ZCRWKARA EQU ISTZCRR+156 01497000 ZCRCIDSV EQU ISTZCRR+192 01498000 ZCRAUDIT EQU ISTZCRR+440 01499000 ZCRENTER EQU ZCRAUDIT+5 01500000 ZCREBCBB EQU ZCRENTER+1 01501000 ZCRLCPB EQU ISTZCRR+480 01502000 ZCRRHRU EQU ZCRLCPB 01503000 ISTPFCRR EQU 0 01504000 PFCCRR EQU ISTPFCRR 01505000 PFCCRRID EQU PFCCRR 01506000 PFCCRRLN EQU PFCCRR+2 01507000 PFCHDR EQU ISTPFCRR+4 01508000 PFCCRRO EQU PFCHDR 01509000 PFCFRRO EQU PFCHDR+4 01510000 ISTCFCRR EQU 0 01511000 CFCAUDIT EQU ISTCFCRR 01512000 CFCNTRD EQU CFCAUDIT 01513000 CFCCRT EQU CFCAUDIT+1 01514000 ISTASCRR EQU 0 01515000 ASCFLAGS EQU ISTASCRR+16 01516000 ASCFLG1 EQU ASCFLAGS 01517000 ASCFLG2 EQU ASCFLAGS+2 01518000 ASCFLG3 EQU ASCFLAGS+4 01519000 ASCUSRGS EQU ISTASCRR+28 01520000 ISTAPCRR EQU 0 01521000 APCATFLG EQU ISTAPCRR+16 01522000 APCRFLG EQU ISTAPCRR+18 01523000 APCSAVE EQU ISTAPCRR+44 01524000 APCCOMF EQU ISTAPCRR+116 01525000 APCCOMF1 EQU APCCOMF 01526000 APC31FLG EQU ISTAPCRR+132 01527000 APC52FLG EQU ISTAPCRR+133 01528000 APC53FLG EQU ISTAPCRR+134 01529000 APC54FLG EQU ISTAPCRR+135 01530000 APC57FLG EQU ISTAPCRR+136 01531000 ISTCRA EQU 0 01532000 CRABASIC EQU ISTCRA 01533000 CRAHDR EQU CRABASIC 01534000 CRACRR EQU CRAHDR 01535000 CRALKACT EQU CRABASIC+8 01536000 CRASVC EQU ISTCRA+848 01537000 CRABUFA EQU CRASVC+68 01538000 FSBCOMBN EQU FSBNETRS 01539000 FSBRHFLD EQU FSBCOMBN+1 01540000 FSBRH3 EQU FSBRHFLD+2 01541000 FSBLDFLG EQU FSBRH3 01542000 @NM00017 EQU FSBRQTAG 01543000 ZOBDLBT EQU ISTZOBUF 01544000 ZOBDLBCM EQU ZOBDLBT 01545000 ZOBFDB EQU ZOBDLBCM 01546000 @NM00026 EQU ZOBDLBCM+25 01547000 ZOBBTU EQU ZOBDLBT+28 01548000 ZOBWCC EQU ZOBDLBT+48 01549000 ZOBECCC EQU ZOBDLBT+50 01550000 ZOBDIO EQU ZOBFSM 01551000 ZOBCCW2 EQU ZOBDIO+8 01552000 ZOBCPTCC EQU ZOBCCW2 01553000 ZOBFLAGS EQU ZOBCCW2+5 01554000 ZOBCCW3 EQU ZOBDIO+16 01555000 ZOBCPTRC EQU ZOBCCW3 01556000 ZOBCPN2C EQU ZOBCPTRC 01557000 ZOBCPTRA EQU ZOBCCW3+1 01558000 @NM00030 EQU ZOBBTU 01559000 LCPZTIE EQU LCPCID 01560000 LCPZSNAM EQU LCPZTIE+8 01561000 ZOBTEXT EQU ZOBBTU 01562000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01563000 LCPZTRV4 EQU LCPZSNAM+4 01564000 LCPZTRV1 EQU LCPZSNAM 01565000 LCPZSNA EQU LCPZTIE+4 01566000 LCPZFMCA EQU LCPZTIE 01567000 ZOBTH2 EQU @NM00030+4 01568000 ZOBLH EQU @NM00030 01569000 ZOBCPN2K EQU ZOBCCW3+6 01570000 ZOBRSV99 EQU ZOBCCW3+5 01571000 ZOBCPN2F EQU ZOBCCW3+4 01572000 ZOBCPTC2 EQU ZOBCPTRA 01573000 ZOBCPTC1 EQU ZOBCPN2C 01574000 ZOBCPNPK EQU ZOBCCW2+6 01575000 ZOBRSV03 EQU ZOBFLAGS 01576000 ZOBRT08 EQU ZOBFLAGS 01577000 ZOBRT06 EQU ZOBFLAGS 01578000 ZOBCPNPF EQU ZOBCCW2+4 01579000 ZOBCPTCA EQU ZOBCCW2+1 01580000 ZOBCPNPC EQU ZOBCPTCC 01581000 ZOBCPWTK EQU ZOBDIO+6 01582000 ZOBRSV02 EQU ZOBDIO+5 01583000 ZOBCPWTF EQU ZOBDIO+4 01584000 ZOBCPTXA EQU ZOBDIO+1 01585000 ZOBCPWTC EQU ZOBDIO 01586000 ZOBRSV09 EQU ZOBECCC 01587000 ZOBECSP EQU ZOBECCC 01588000 ZOBRSV08 EQU ZOBECCC 01589000 ZOBRSV07 EQU ZOBDLBT+49 01590000 ZOBRSV06 EQU ZOBWCC 01591000 ZOBWCSP EQU ZOBWCC 01592000 ZOBRSV05 EQU ZOBWCC 01593000 ZOBRSV10 EQU ZOBDLBCM+26 01594000 @NM00029 EQU @NM00026 01595000 @NM00028 EQU @NM00026 01596000 @NM00027 EQU @NM00026 01597000 ZOBRSV04 EQU ZOBDLBCM+16 01598000 ZOBLNG2 EQU ZOBDLBCM+14 01599000 ZOBRSV01 EQU ZOBDLBCM+12 01600000 FSBRT0B EQU @NM00017+1 01601000 FSBRT0A EQU @NM00017+1 01602000 FSBRT09 EQU @NM00017+1 01603000 FSBRT08 EQU @NM00017+1 01604000 FSBRT07 EQU @NM00017 01605000 FSBRT06 EQU @NM00017 01606000 FSBRT05 EQU @NM00017 01607000 FSBRT04 EQU @NM00017 01608000 FSBRT03 EQU @NM00017 01609000 FSBRT02 EQU @NM00017 01610000 FSBRT01 EQU @NM00017 01611000 FSBRT00 EQU @NM00017 01612000 FSBLDCUF EQU FSBLDFLG 01613000 FSBLDSIF EQU FSBLDFLG 01614000 FSBLDSOF EQU FSBLDFLG 01615000 FSBLDEBF EQU FSBLDFLG 01616000 FSBLDBBF EQU FSBLDFLG 01617000 FSBLDFME EQU FSBLDFLG 01618000 FSBLDSCF EQU FSBLDFLG 01619000 FSBLDRMF EQU FSBLDFLG 01620000 FSBRH2 EQU FSBRHFLD+1 01621000 FSBRH1 EQU FSBRHFLD 01622000 FSBALIGN EQU FSBCOMBN 01623000 CRACHAIN EQU ISTCRA+928 01624000 CRARSV02 EQU ISTCRA+924 01625000 CRARSV01 EQU ISTCRA+920 01626000 CRABFTBA EQU CRABUFA 01627000 CRAMASK EQU CRASVC+64 01628000 CRAHSIZ EQU CRASVC+60 01629000 CRAASCRR EQU CRASVC 01630000 CRAPROCR EQU ISTCRA+312 01631000 CRAPSS EQU ISTCRA+160 01632000 CRARPH EQU ISTCRA+52 01633000 CRALAPTR EQU CRABASIC+48 01634000 CRAL9PTR EQU CRABASIC+44 01635000 CRAL8PTR EQU CRABASIC+40 01636000 CRAL7PTR EQU CRABASIC+36 01637000 CRAL6PTR EQU CRABASIC+32 01638000 CRAL5PTR EQU CRABASIC+28 01639000 CRAL4PTR EQU CRABASIC+24 01640000 CRAL3PTR EQU CRABASIC+20 01641000 CRAL2PTR EQU CRABASIC+16 01642000 CRAL1PTR EQU CRABASIC+12 01643000 CRALEV01 EQU CRALKACT+3 01644000 CRALEV02 EQU CRALKACT+3 01645000 CRALEV03 EQU CRALKACT+3 01646000 CRALEV04 EQU CRALKACT+3 01647000 CRALEV05 EQU CRALKACT+3 01648000 CRALEV06 EQU CRALKACT+3 01649000 CRALEV07 EQU CRALKACT+3 01650000 CRALEV08 EQU CRALKACT+3 01651000 CRALEV09 EQU CRALKACT+2 01652000 CRALEV10 EQU CRALKACT+2 01653000 CRALEV11 EQU CRALKACT+2 01654000 CRALEV12 EQU CRALKACT+2 01655000 CRALEV13 EQU CRALKACT+2 01656000 CRALEV14 EQU CRALKACT+2 01657000 CRALEV15 EQU CRALKACT+2 01658000 CRALEV16 EQU CRALKACT+2 01659000 CRALEV17 EQU CRALKACT+1 01660000 CRALEV18 EQU CRALKACT+1 01661000 CRALEV19 EQU CRALKACT+1 01662000 CRALEV20 EQU CRALKACT+1 01663000 CRALEV21 EQU CRALKACT+1 01664000 CRALEV22 EQU CRALKACT+1 01665000 CRALEV23 EQU CRALKACT+1 01666000 CRALEV24 EQU CRALKACT+1 01667000 CRALEV25 EQU CRALKACT 01668000 CRALEV26 EQU CRALKACT 01669000 CRALEV27 EQU CRALKACT 01670000 CRALEV28 EQU CRALKACT 01671000 CRALEV29 EQU CRALKACT 01672000 CRALEV30 EQU CRALKACT 01673000 CRALEV31 EQU CRALKACT 01674000 CRALEV32 EQU CRALKACT 01675000 CRAFRR EQU CRAHDR+4 01676000 @NM00043 EQU ISTAPCRR+137 01677000 @NM00042 EQU APC57FLG 01678000 APCNREL EQU APC57FLG 01679000 APCRECRA EQU APC57FLG 01680000 @NM00041 EQU APC54FLG 01681000 APCRLST EQU APC54FLG 01682000 APCPR153 EQU APC53FLG 01683000 @NM00040 EQU APC52FLG 01684000 APCWKF EQU APC52FLG 01685000 APCNWF EQU APC52FLG 01686000 APCRDQ EQU APC52FLG 01687000 APCQENQ EQU APC52FLG 01688000 APCSMSR EQU APC52FLG 01689000 APCCKRQ EQU APC52FLG 01690000 @NM00039 EQU APC31FLG 01691000 APCSORT EQU APC31FLG 01692000 APCRESCH EQU APC31FLG 01693000 APCTPXIT EQU APC31FLG 01694000 APCSWTWD EQU ISTAPCRR+128 01695000 APCSAV2 EQU ISTAPCRR+124 01696000 APCSAV1 EQU ISTAPCRR+120 01697000 APCRETCD EQU APCCOMF+2 01698000 @NM00038 EQU APCCOMF1+1 01699000 APCZLBER EQU APCCOMF1 01700000 APCEXIT EQU APCCOMF1 01701000 APCRELR EQU APCCOMF1 01702000 APCIRB2 EQU APCCOMF1 01703000 APCIRB1 EQU APCCOMF1 01704000 APCSMCR EQU APCCOMF1 01705000 APCUETSK EQU APCCOMF1 01706000 APCSSTSK EQU APCCOMF1 01707000 APCESTAL EQU APCSAVE 01708000 APCFRRPM EQU ISTAPCRR+40 01709000 APCQWFO EQU ISTAPCRR+36 01710000 APCPABSV EQU ISTAPCRR+32 01711000 APCRTRN EQU ISTAPCRR+28 01712000 APCTCBA EQU ISTAPCRR+24 01713000 APCPSTA EQU ISTAPCRR+20 01714000 @NM00037 EQU APCRFLG+1 01715000 APC31R EQU APCRFLG 01716000 APC58R EQU APCRFLG 01717000 APC57R EQU APCRFLG 01718000 APC56R EQU APCRFLG 01719000 APC54R EQU APCRFLG 01720000 APC53R EQU APCRFLG 01721000 APC52R EQU APCRFLG 01722000 APC51R EQU APCRFLG 01723000 @NM00036 EQU APCATFLG+1 01724000 APC31E EQU APCATFLG 01725000 APC58E EQU APCATFLG 01726000 APC57E EQU APCATFLG 01727000 APC56E EQU APCATFLG 01728000 APC54E EQU APCATFLG 01729000 APC53E EQU APCATFLG 01730000 APC52E EQU APCATFLG 01731000 APC51E EQU APCATFLG 01732000 APCHDRSV EQU ISTAPCRR 01733000 ASCPSREG EQU ISTASCRR+44 01734000 ASCUSR01 EQU ASCUSRGS+12 01735000 ASCUSR00 EQU ASCUSRGS+8 01736000 ASCUSR15 EQU ASCUSRGS+4 01737000 ASCUSR14 EQU ASCUSRGS 01738000 ASCETRYA EQU ISTASCRR+24 01739000 ASCKEY EQU ISTASCRR+23 01740000 ASCAUDIT EQU ASCFLG3 01741000 ASCFBDUD EQU ASCFLG3 01742000 ASCLLKF EQU ASCFLG3 01743000 ASCKEYF EQU ASCFLG3 01744000 ASCFBDAL EQU ASCFLG3 01745000 ASCFSRGT EQU ASCFLG3 01746000 ASCICR EQU ASCFLG2 01747000 ASCFSRIC EQU ASCFLG2 01748000 ASCFBDIC EQU ASCFLG2 01749000 ASCFBAIC EQU ASCFLG2 01750000 ASCPASTR EQU ASCFLG1 01751000 ASCFSR EQU ASCFLG1 01752000 ASCFBD EQU ASCFLG1 01753000 ASCFBA EQU ASCFLG1 01754000 ASCPFCRR EQU ISTASCRR 01755000 CCFRSVD1 EQU CFCCRT 01756000 CCFCR2 EQU CFCCRT 01757000 CCFCRP EQU CFCCRT 01758000 CCFCR1 EQU CFCCRT 01759000 CCFCS2 EQU CFCCRT 01760000 CCFCS1 EQU CFCCRT 01761000 NCFRSVD EQU CFCNTRD 01762000 NCFCR2 EQU CFCNTRD 01763000 NCFCRP EQU CFCNTRD 01764000 NCFCR1 EQU CFCNTRD 01765000 NCFCS2 EQU CFCNTRD 01766000 NCFCS1 EQU CFCNTRD 01767000 PFCRSV01 EQU ISTPFCRR+13 01768000 PFCFTA EQU ISTPFCRR+12 01769000 CRRFRR EQU PFCFRRO 01770000 CRRCHAIN EQU PFCCRRO 01771000 CRRLEN EQU PFCCRRLN 01772000 PFCRSV10 EQU PFCCRR+1 01773000 CRRID EQU PFCCRRID 01774000 ZCRRU EQU ZCRRHRU+3 01775000 ZCRRH EQU ZCRRHRU 01776000 ZCRWORDA EQU ISTZCRR+477 01777000 ZCRCMNRC EQU ISTZCRR+476 01778000 ZCRRSV97 EQU ZCRENTER+18 01779000 ZCREIC2B EQU ZCRENTER+18 01780000 ZCREAC2B EQU ZCRENTER+18 01781000 ZCRELCAB EQU ZCRENTER+18 01782000 ZCREDCMF EQU ZCRENTER+18 01783000 ZCREBCIF EQU ZCRENTER+18 01784000 ZCREICSG EQU ZCRENTER+18 01785000 ZCREDCK0 EQU ZCRENTER+18 01786000 ZCRECFY0 EQU ZCRENTER+17 01787000 ZCREKCCB EQU ZCRENTER+17 01788000 ZCREDCNB EQU ZCRENTER+17 01789000 ZCREICOE EQU ZCRENTER+17 01790000 ZCREBCNB EQU ZCRENTER+17 01791000 ZCREBC0L EQU ZCRENTER+17 01792000 ZCREBCAL EQU ZCRENTER+17 01793000 ZCREDCQR EQU ZCRENTER+17 01794000 ZCREDCPR EQU ZCRENTER+16 01795000 ZCREBCSB EQU ZCRENTER+16 01796000 ZCREAC1R EQU ZCRENTER+16 01797000 ZCRECCCI EQU ZCRENTER+16 01798000 ZCRECCAI EQU ZCRENTER+16 01799000 ZCRECCBI EQU ZCRENTER+16 01800000 ZCREBCAR EQU ZCRENTER+16 01801000 ZCREBCDR EQU ZCRENTER+16 01802000 ZCREBCBR EQU ZCRENTER+15 01803000 ZCREDCXR EQU ZCRENTER+15 01804000 ZCREDCWB EQU ZCRENTER+15 01805000 ZCREDCWR EQU ZCRENTER+15 01806000 ZCREKCCN EQU ZCRENTER+15 01807000 ZCREKCBN EQU ZCRENTER+15 01808000 ZCREKCBB EQU ZCRENTER+15 01809000 ZCREJC0B EQU ZCRENTER+15 01810000 ZCREJCDB EQU ZCRENTER+14 01811000 ZCREJCCB EQU ZCRENTER+14 01812000 ZCREJCBB EQU ZCRENTER+14 01813000 ZCREJCAB EQU ZCRENTER+14 01814000 ZCREIC1B EQU ZCRENTER+14 01815000 ZCREIC0B EQU ZCRENTER+14 01816000 ZCREICX0 EQU ZCRENTER+14 01817000 ZCREICWB EQU ZCRENTER+14 01818000 ZCREICVB EQU ZCRENTER+13 01819000 ZCREICUB EQU ZCRENTER+13 01820000 ZCREICTB EQU ZCRENTER+13 01821000 ZCREICSC EQU ZCRENTER+13 01822000 ZCREICSB EQU ZCRENTER+13 01823000 ZCREICRB EQU ZCRENTER+13 01824000 ZCREICQB EQU ZCRENTER+13 01825000 ZCREICQA EQU ZCRENTER+13 01826000 ZCREICOB EQU ZCRENTER+12 01827000 ZCREICOA EQU ZCRENTER+12 01828000 ZCREICNB EQU ZCRENTER+12 01829000 ZCREICNA EQU ZCRENTER+12 01830000 ZCREICMB EQU ZCRENTER+12 01831000 ZCREICLB EQU ZCRENTER+12 01832000 ZCREICKG EQU ZCRENTER+12 01833000 ZCREICKE EQU ZCRENTER+12 01834000 ZCREICKB EQU ZCRENTER+11 01835000 ZCREICJB EQU ZCRENTER+11 01836000 ZCREICID EQU ZCRENTER+11 01837000 ZCREICIB EQU ZCRENTER+11 01838000 ZCREICHB EQU ZCRENTER+11 01839000 ZCREICGB EQU ZCRENTER+11 01840000 ZCREICEB EQU ZCRENTER+11 01841000 ZCREICDB EQU ZCRENTER+11 01842000 ZCREICCI EQU ZCRENTER+10 01843000 ZCREICCB EQU ZCRENTER+10 01844000 ZCREICBI EQU ZCRENTER+10 01845000 ZCREICBB EQU ZCRENTER+10 01846000 ZCREICAB EQU ZCRENTER+10 01847000 ZCREICAA EQU ZCRENTER+10 01848000 ZCREHCAN EQU ZCRENTER+10 01849000 ZCREGC0B EQU ZCRENTER+10 01850000 ZCREGC0A EQU ZCRENTER+9 01851000 ZCREGCLA EQU ZCRENTER+9 01852000 ZCREGCEB EQU ZCRENTER+9 01853000 ZCREGCDB EQU ZCRENTER+9 01854000 @NM00035 EQU ZCRENTER+9 01855000 ZCREGCBB EQU ZCRENTER+9 01856000 ZCREGCAB EQU ZCRENTER+9 01857000 ZCREFCEB EQU ZCRENTER+9 01858000 ZCREFCEA EQU ZCRENTER+8 01859000 ZCREECTA EQU ZCRENTER+8 01860000 ZCREECEA EQU ZCRENTER+8 01861000 ZCREECDA EQU ZCRENTER+8 01862000 ZCREECCB EQU ZCRENTER+8 01863000 ZCREECCA EQU ZCRENTER+8 01864000 ZCREECBB EQU ZCRENTER+8 01865000 ZCREECBA EQU ZCRENTER+8 01866000 ZCREDCMB EQU ZCRENTER+7 01867000 ZCREDCL0 EQU ZCRENTER+7 01868000 ZCREDCKB EQU ZCRENTER+7 01869000 ZCREDCKA EQU ZCRENTER+7 01870000 ZCREDCJ0 EQU ZCRENTER+7 01871000 ZCREDCI0 EQU ZCRENTER+7 01872000 ZCREDCH0 EQU ZCRENTER+7 01873000 ZCREDCF0 EQU ZCRENTER+7 01874000 ZCREDCE0 EQU ZCRENTER+6 01875000 ZCREDCD0 EQU ZCRENTER+6 01876000 ZCREDCC0 EQU ZCRENTER+6 01877000 ZCREDCB0 EQU ZCRENTER+6 01878000 ZCREDCA0 EQU ZCRENTER+6 01879000 ZCRECC2B EQU ZCRENTER+6 01880000 ZCRECC1B EQU ZCRENTER+6 01881000 ZCRECC1A EQU ZCRENTER+6 01882000 ZCRECC0B EQU ZCRENTER+5 01883000 ZCRECC0A EQU ZCRENTER+5 01884000 ZCREBC0B EQU ZCRENTER+5 01885000 ZCREBC0A EQU ZCRENTER+5 01886000 ZCREBCZ0 EQU ZCRENTER+5 01887000 ZCREBCY0 EQU ZCRENTER+5 01888000 ZCREBCX0 EQU ZCRENTER+5 01889000 ZCREBCXA EQU ZCRENTER+5 01890000 ZCREBCSC EQU ZCRENTER+4 01891000 ZCREBCRB EQU ZCRENTER+4 01892000 ZCREBCRA EQU ZCRENTER+4 01893000 ZCREBCQB EQU ZCRENTER+4 01894000 ZCREBCPB EQU ZCRENTER+4 01895000 ZCREBCOB EQU ZCRENTER+4 01896000 ZCREBCNE EQU ZCRENTER+4 01897000 ZCREBCND EQU ZCRENTER+4 01898000 ZCREBCMB EQU ZCRENTER+3 01899000 ZCREBCLB EQU ZCRENTER+3 01900000 ZCREBCLA EQU ZCRENTER+3 01901000 ZCREBCKB EQU ZCRENTER+3 01902000 ZCREBCKA EQU ZCRENTER+3 01903000 ZCREBCJB EQU ZCRENTER+3 01904000 ZCREBCJA EQU ZCRENTER+3 01905000 ZCREBCID EQU ZCRENTER+3 01906000 ZCREBCIB EQU ZCRENTER+2 01907000 ZCREBCIA EQU ZCRENTER+2 01908000 ZCREBCHB EQU ZCRENTER+2 01909000 ZCREBCHA EQU ZCRENTER+2 01910000 ZCREBCGB EQU ZCRENTER+2 01911000 ZCREBCGA EQU ZCRENTER+2 01912000 ZCREBCFB EQU ZCRENTER+2 01913000 ZCREBCFA EQU ZCRENTER+2 01914000 ZCREBCEB EQU ZCRENTER+1 01915000 ZCREBCDI EQU ZCRENTER+1 01916000 ZCREBCCB EQU ZCRENTER+1 01917000 ZCREBCBI EQU ZCRENTER+1 01918000 ZCREBCBA EQU ZCRENTER+1 01919000 ZCREBCAM EQU ZCRENTER+1 01920000 ZCREBCAI EQU ZCRENTER+1 01921000 ZCREBCAG EQU ZCRENTER 01922000 ZCREBCAE EQU ZCRENTER 01923000 ZCREBCAB EQU ZCRENTER 01924000 ZCREBCAA EQU ZCRENTER 01925000 ZCREAC1B EQU ZCRENTER 01926000 ZCREAC0B EQU ZCRENTER 01927000 ZCREAC0A EQU ZCRENTER 01928000 ZCREAC1A EQU ZCRENTER 01929000 ZCRTNAME EQU ZCRAUDIT+1 01930000 ZCRTID EQU ZCRAUDIT 01931000 ZCRREMIC EQU ISTZCRR+436 01932000 ZCRSAVEZ EQU ISTZCRR+196 01933000 ZCRDAFSV EQU ZCRCIDSV+2 01934000 ZCRSAFSV EQU ZCRCIDSV 01935000 ZCRR13SV EQU ISTZCRR+188 01936000 ZCRR2SV EQU ISTZCRR+184 01937000 ZCROPCDE EQU ISTZCRR+183 01938000 ZCRPRMTC EQU ISTZCRR+182 01939000 ZCRRCDSV EQU ISTZCRR+181 01940000 ZCRAWQSW EQU ISTZCRR+180 01941000 ZCRTOPQ EQU ISTZCRR+180 01942000 ZCRLSTFB EQU ISTZCRR+180 01943000 ZCRXSCHD EQU ISTZCRR+180 01944000 ZCRNXTEL EQU ISTZCRR+180 01945000 ZCRSCANQ EQU ISTZCRR+180 01946000 ZCRMOREL EQU ISTZCRR+180 01947000 ZCRFBPRC EQU ISTZCRR+180 01948000 ZCRFSBSV EQU ISTZCRR+176 01949000 ZCRSVWK5 EQU ZCRWKARA+16 01950000 ZCRSVWK4 EQU ZCRWKARA+12 01951000 ZCRSVWK3 EQU ZCRWKARA+8 01952000 ZCRSVWK2 EQU ZCRWKARA+4 01953000 ZCRSVWK1 EQU ZCRWKARA 01954000 ZCRSVF25 EQU ZCRSVRTN+96 01955000 ZCRSVF24 EQU ZCRSVRTN+92 01956000 ZCRSVF23 EQU ZCRSVRTN+88 01957000 ZCRSVF22 EQU ZCRSVRTN+84 01958000 ZCRSVF21 EQU ZCRSVRTN+80 01959000 ZCRSVF20 EQU ZCRSVRTN+76 01960000 ZCRSVF19 EQU ZCRSVRTN+72 01961000 ZCRSVF18 EQU ZCRSVRTN+68 01962000 ZCRSVF17 EQU ZCRSVRTN+64 01963000 ZCRSVF16 EQU ZCRSVRTN+60 01964000 ZCRSVF15 EQU ZCRSVRTN+56 01965000 ZCRSVF14 EQU ZCRSVRTN+52 01966000 ZCRSVF13 EQU ZCRSVRTN+48 01967000 ZCRSVF12 EQU ZCRSVRTN+44 01968000 ZCRSVF11 EQU ZCRSVRTN+40 01969000 ZCRSVF10 EQU ZCRSVRTN+36 01970000 ZCRSVF9 EQU ZCRSVRTN+32 01971000 ZCRSVF8 EQU ZCRSVRTN+28 01972000 ZCRSVF7 EQU ZCRSVRTN+24 01973000 ZCRSVF6 EQU ZCRSVRTN+20 01974000 ZCRSVF4 EQU ZCRSVRTN+12 01975000 ZCRSVF3 EQU ZCRSVRTN+8 01976000 ZCRSVF2 EQU ZCRSVRTN+4 01977000 ZCRSVF1 EQU ZCRSVRTN 01978000 ZCRPVZB EQU ISTZCRR+52 01979000 ZCRZLB EQU ISTZCRR+48 01980000 ZCRBFPTR EQU ISTZCRR+44 01981000 ZCRCCWA EQU ISTZCRR+40 01982000 ZCRPSW EQU ZCRPARMS+15 01983000 ZCRPCHAR EQU ZCRPARMS+14 01984000 ZCRPRES2 EQU ZCRPCOD2 01985000 ZCRPMFGF EQU ZCRPCOD2 01986000 ZCRPFHDR EQU ZCRPCOD2 01987000 ZCRPPG2 EQU ZCRPCOD2 01988000 ZCRPRES EQU ZCRPCOD1 01989000 ZCRPCFTX EQU ZCRPCOD1 01990000 ZCRPBUF EQU ZCRPCOD1 01991000 ZCRPLSCB EQU ZCRPCOD1 01992000 ZCRPLSBQ EQU ZCRPLSBF 01993000 ZCRPFSB EQU ZCRPCOD1 01994000 ZCRPLNG EQU ZCRPCOD1 01995000 ZCRPPG EQU ZCRPCOD1 01996000 ZCRDTODA EQU ZCRDFRDA 01997000 ZCRMLNG EQU ZCRPARMS+8 01998000 ZCRTBPTR EQU ZCRPARMS+4 01999000 ZCRCBPTR EQU ZCRFBPTR 02000000 ZCRCRLCP EQU ISTZCRR+20 02001000 @NM00034 EQU ZCRSCPSW 02002000 ZCRSKIPT EQU ZCRSCPSW 02003000 ZCRFSBWE EQU ZCRSCPSW 02004000 ZCRPRCMP EQU ZCRSCPSW 02005000 ZCRLREQ EQU ZCRSCPSW 02006000 ZCRRJLCP EQU ZCRSCPSW 02007000 ZCRTPINV EQU ZCRSCPSW 02008000 ZCRTPEX EQU ZCRSCPSW 02009000 @NM00033 EQU ZCRIBPR 02010000 ZCR3270R EQU ZCRIBPR 02011000 ZCR3270 EQU ZCRIBPR 02012000 ZCRLCPFD EQU ZCRIBPR 02013000 ZCRLCPFR EQU ZCRIBPR 02014000 ZCRRELK EQU ZCRIBPR 02015000 ZCRERR EQU ZCRIBPR 02016000 ZCRNOBUF EQU ZCRIBPR 02017000 @NM00032 EQU ZCRPFLGS 02018000 ZCRQAHED EQU ZCRPFLGS 02019000 ZCRF1RES EQU ZCRGENSW 02020000 ZCRBRIS EQU ZCRGENSW 02021000 ZCRCLRBD EQU ZCRGENSW 02022000 ZCREXRES EQU ZCRGENSW 02023000 ZCRLCSYN EQU ZCRGENSW 02024000 ZCRRT06 EQU ZCRGENSW 02025000 ZCRTSW2 EQU ZCRGENSW 02026000 ZCRTSW1 EQU ZCRGENSW 02027000 ZCRINLCP EQU ZCRFLGS3 02028000 ZCRWRPTR EQU ZCRFLGS3 02029000 ZCRNOFRE EQU ZCRFLGS3 02030000 ZCREDRIV EQU ZCRFLGS3 02031000 ZCRDISC EQU ZCRFLGS3 02032000 ZCRTPDIS EQU ZCRFLGS3 02033000 ZCRTPCON EQU ZCRFLGS3 02034000 ZCRTIC EQU ZCRFLGS3 02035000 ZCRCNLXL EQU ZCRRESET 02036000 ZCRENDAN EQU ZCRSWFLD 02037000 ZCRENDXL EQU ZCRSWFLD 02038000 ZCRENDX EQU ZCRSWFLD 02039000 ZCROB1 EQU ZCRNDLCP 02040000 ZCRENDPR EQU ZCRSWFLD 02041000 ZCREXTYP EQU ZCRSWFLD 02042000 ZCRSLCP EQU ZCRENDSH 02043000 ZCRIF0E3 EQU ZCRFLGS2 02044000 ZCRIF0E2 EQU ZCRFLGS2 02045000 ZCRIF0E1 EQU ZCRFLGS2 02046000 ZCROB EQU ZCRFLGS2 02047000 ZCRFMSED EQU ZCRFLGS2 02048000 ZCRSHEDI EQU ZCRFLGS2 02049000 ZCRLOCAL EQU ZCRFLGS2 02050000 ZCRFEXIT EQU ZCRFLGS1 02051000 ZCRUNSOL EQU ZCRFLGS1 02052000 ZCRENDLP EQU ZCRFLGS1 02053000 ZCRNRMEX EQU ZCRFLGS1 02054000 ZCRWAIT EQU ZCRFLGS1 02055000 ZCRDEQSW EQU ZCRFLGS1 02056000 ZCRQUESW EQU ZCRFLGS1 02057000 ZCREXSW EQU ZCRFLGS1 02058000 ZCRFRRA EQU ISTZCRR+8 02059000 ZCRCHAIN EQU ISTZCRR+4 02060000 ZCRFLAG EQU ZCRCRR+3 02061000 ZCRLEN EQU ZCRCRR+1 02062000 ZCRID EQU ZCRCRR 02063000 LCPFTYPE EQU LCPRPHA 02064000 LCPRSTQH EQU LCPLCCW 02065000 LCPCLREP EQU ISTLCPB+44 02066000 LCPUBFSB EQU LCPFLCCW 02067000 LCPRSV77 EQU ISTLCPB+39 02068000 LCPLCCWC EQU ISTLCPB+38 02069000 LCPRSV78 EQU LCPFLG1 02070000 LCPTRANS EQU LCPFLG1 02071000 LCPSTLB EQU LCPFLG1 02072000 LCPREDRV EQU LCPFLG1 02073000 LCPDIRPT EQU LCPFLG1 02074000 LCPINTER EQU LCPFLG1 02075000 LCPRESET EQU LCPFLG1 02076000 LCPSTYPE EQU ISTLCPB+36 02077000 LCPFSNCH EQU ISTLCPB+34 02078000 LCPFOSN EQU ISTLCPB+32 02079000 LCPTLBAD EQU ISTLCPB+28 02080000 LCPFDB2 EQU LCPFDBA+1 02081000 LCPFDB1 EQU LCPFDBA 02082000 LCPNXLCW EQU ISTLCPB+20 02083000 LCPDAF EQU LCPCID+2 02084000 LCPSAF EQU LCPCID 02085000 LCPLCCW1 EQU ISTLCPB+12 02086000 LCPRRCNT EQU LCPSEQ+1 02087000 LCPRRCCT EQU LCPSEQ 02088000 LCPATOP EQU LCPFLAG2 02089000 LCPFREE EQU LCPFLAG2 02090000 LCPDSTAT EQU LCPFLAG2 02091000 LCPEXRES EQU LCPFID0 02092000 LCPZRIMM EQU LCPTLBPI 02093000 LCPRSTRT EQU LCPFLAG2 02094000 LCPASYN EQU LCPFLAG2 02095000 LCPPRFLG EQU LCPFLAG2 02096000 LCPZMIRC EQU LCPRUCNT 02097000 LCPCHAI2 EQU LCPCHAIN+1 02098000 LCPCHNG EQU LCPCHAI1 02099000 LCPZRT0B EQU LCPMNRCD 02100000 LCPZRT0A EQU LCPMNRCD 02101000 LCPZRTL9 EQU LCPZRT09 02102000 LCPZRTL8 EQU LCPZRT08 02103000 LCPZRTL7 EQU LCPZRT07 02104000 LCPZRTL6 EQU LCPZRT06 02105000 LCPZRTL5 EQU LCPZRT05 02106000 LCPZRTL4 EQU LCPZRT04 02107000 LCPZRTL3 EQU LCPZRT03 02108000 LCPZRTL2 EQU LCPZRT02 02109000 LCPZRT01 EQU LCPFLAGS 02110000 LCPZRT00 EQU LCPFLAGS 02111000 LCPLNGTH EQU ISTLCPB+1 02112000 LCPTYPE EQU ISTLCPB 02113000 ZLBZBFSC EQU ISTZLBVT+88 02114000 ZLBZIFVB EQU ISTZLBVT+84 02115000 ZLBZIFUB EQU ISTZLBVT+80 02116000 ZLBZIFSB EQU ISTZLBVT+76 02117000 ZLBRSV22 EQU ISTZLBVT+72 02118000 ZLBZBFID EQU ISTZLBVT+68 02119000 ZLBZBFX0 EQU ISTZLBVT+64 02120000 ZLBRSV02 EQU ISTZLBVT+60 02121000 ZLBRSV21 EQU ISTZLBVT+56 02122000 ZLBZBFJB EQU ISTZLBVT+52 02123000 ZLBZBFIB EQU ISTZLBVT+48 02124000 ZLBZBFHB EQU ISTZLBVT+44 02125000 ZLBZBFGB EQU ISTZLBVT+40 02126000 ZLBZBFFB EQU ISTZLBVT+36 02127000 ZLBZBFEB EQU ISTZLBVT+32 02128000 ZLBZBFDB EQU ISTZLBVT+28 02129000 ZLBZBFCB EQU ISTZLBVT+24 02130000 ZLBZBFBB EQU ISTZLBVT+20 02131000 ZLBZBFAB EQU ISTZLBVT+16 02132000 ZLBZCFAI EQU ISTZLBVT+8 02133000 ZLBZBF0B EQU ISTZLBVT+4 02134000 ZLBZAF0B EQU ISTZLBVT 02135000 ZPSZDFQR EQU ISTZPSVT+80 02136000 ZPSZDFPR EQU ISTZPSVT+76 02137000 ZPSZDFXR EQU ISTZPSVT+72 02138000 ZPSZIF2B EQU ISTZPSVT+68 02139000 ZPSZAF2B EQU ISTZPSVT+64 02140000 ZPSZDFMB EQU ISTZPSVT+60 02141000 ZPSZDFMF EQU ISTZPSVT+56 02142000 ZPSZDFNB EQU ISTZPSVT+52 02143000 @NM00031 EQU ISTZPSVT+48 02144000 ZPSZDFF0 EQU ISTZPSVT+44 02145000 ZPSZTRTT EQU ISTZPSVT+40 02146000 ZPSZBFOB EQU ISTZPSVT+36 02147000 ZPSZBFMB EQU ISTZPSVT+32 02148000 ZPSZBFY0 EQU ISTZPSVT+24 02149000 ZPSZDFI0 EQU ISTZPSVT+20 02150000 ZPSZDFB0 EQU ISTZPSVT+16 02151000 ZPSZDFH0 EQU ISTZPSVT+12 02152000 ZPSZDFD0 EQU ISTZPSVT+8 02153000 ZPSZDFA0 EQU ISTZPSVT 02154000 ZOBLNG1 EQU ZOBFSM 02155000 ZOBCHAIN EQU ISTZOBUF 02156000 TH2SNF EQU ISTTH2+4 02157000 TH2OAF EQU ISTTH2+3 02158000 TH2DAF EQU ISTTH2+2 02159000 TH2CDF EQU TH2FLAG1+1 02160000 TH2SEF EQU TH2FLAG1+1 02161000 TH2PYF EQU TH2FLAG1+1 02162000 TH2AFI EQU TH2FLAG1 02163000 TH2PSI EQU TH2FLAG1 02164000 TH2CMPLI EQU TH2MPF 02165000 TH2RHI EQU TH2MPF 02166000 TH2FID EQU TH2FLAG1 02167000 THDCF EQU ISTTH+8 02168000 THSNF EQU ISTTH+6 02169000 THOAF EQU ISTTH+4 02170000 THDAF EQU ISTTH+2 02171000 THCDF EQU THFLGB 02172000 THSEF EQU THFLGB 02173000 THPYF EQU THFLGB 02174000 THAFI EQU THFLGA 02175000 THPSI EQU THFLGA 02176000 THCMPLI EQU THMPF 02177000 THRHI EQU THMPF 02178000 THFID EQU THFLAG1 02179000 LHVDATA EQU ISTLH+4 02180000 LHFUNCT EQU ISTLH+3 02181000 @NM00025 EQU ISTLH+2 02182000 LHLEN EQU ISTLH 02183000 LSCTLBAD EQU ISTLSCB+28 02184000 LSCFDB2 EQU LSCFDBA+1 02185000 LSCFDB1 EQU LSCFDBA 02186000 LSCLCPBA EQU ISTLSCB+16 02187000 LSCLCCW1 EQU ISTLSCB+12 02188000 LSCRRCNT EQU LSCSEQ+1 02189000 LSCRRCCT EQU LSCSEQ 02190000 LSCATOP EQU LSCFLGS 02191000 LSCFREE EQU LSCFLGS 02192000 LSCDSTAT EQU LSCFLGS 02193000 LSCEXRES EQU LSCFLGS 02194000 LSCZRIMM EQU LSCFLGS 02195000 LSCRSV01 EQU LSCFLGS 02196000 LSCSMODE EQU LSCFLGS 02197000 LSCZMIRC EQU LSCRUCNT 02198000 LSCCHAI2 EQU LSCCHAIN+1 02199000 LSCCHNG EQU LSCCHAI1 02200000 LSCZRTSC EQU LSCZMNRC 02201000 LSCZRT0B EQU LSCZMNRC 02202000 LSCZRT0A EQU LSCZMNRC 02203000 LSCZRTL9 EQU LSCZRT09 02204000 LSCZRTL8 EQU LSCZRT08 02205000 LSCZRTL7 EQU LSCZRT07 02206000 LSCZRTL6 EQU LSCZRT06 02207000 LSCZRTL5 EQU LSCZRT05 02208000 LSCZRTL4 EQU LSCZRT04 02209000 LSCZRTL3 EQU LSCZRT03 02210000 LSCZRTL2 EQU LSCZRT02 02211000 LSCLNGTH EQU LSC1WORD+1 02212000 LSCTYPE EQU LSC1WORD 02213000 FMCFLRSV EQU FMCFLGB 02214000 FMCFLGA8 EQU FMCFLGB 02215000 FMCCLRPH EQU FMCVS1+45 02216000 FMCRSV0X EQU FMCCVFLG 02217000 FMCVYRPH EQU FMCCVFLG 02218000 FMCZV004 EQU FMCVS1+40 02219000 FMCLOCK2 EQU FMCVS1+36 02220000 @NM00024 EQU FMCZFLG2 02221000 FMCZF027 EQU FMCZFLG2 02222000 FMCZF026 EQU FMCZFLG2 02223000 FMCSEQ1T EQU FMCSEQ1 02224000 FMCZX006 EQU FMCVS1+33 02225000 FMCZX005 EQU FMCVS1+32 02226000 FMCZX002 EQU FMCVS1+29 02227000 FMCZV001 EQU FMCVS1+24 02228000 FMCAWATQ EQU FMCLCPAQ+1 02229000 @NM00023 EQU FMCLCPAQ 02230000 FMCLCPB2 EQU FMCLCPBQ+1 02231000 FMCLCPB1 EQU FMCLCPBQ 02232000 FMCASCDQ EQU FMCSHEAQ+1 02233000 @NM00022 EQU FMCSHEAQ 02234000 FMCSHEDQ EQU FMCVS1+8 02235000 FMCRSV04 EQU FMCVS1+6 02236000 FMCZH001 EQU FMCVS1+4 02237000 FMCZF025 EQU FMCZFLAG+3 02238000 FMCZF024 EQU FMCZFLAG+3 02239000 FMCZF023 EQU FMCZFLAG+3 02240000 FMCZF022 EQU FMCZFLAG+3 02241000 FMCZF021 EQU FMCZFLAG+3 02242000 FMCZF020 EQU FMCZFLAG+3 02243000 FMCZF019 EQU FMCZFLAG+3 02244000 FMCZF018 EQU FMCZFLAG+3 02245000 FMCZF017 EQU FMCZFLAG+2 02246000 FMCZF016 EQU FMCZFLAG+2 02247000 FMCZF015 EQU FMCZFLAG+2 02248000 FMCZF014 EQU FMCZFLAG+2 02249000 FMCZF013 EQU FMCZFLAG+2 02250000 FMCZF012 EQU FMCZFLAG+2 02251000 FMCZF011 EQU FMCZFLAG+2 02252000 FMCZF010 EQU FMCZFLAG+2 02253000 FMCZF00F EQU FMCZFLAG+1 02254000 FMCZF00E EQU FMCZFLAG+1 02255000 FMCZF00D EQU FMCZFLAG+1 02256000 FMCZF00B EQU FMCZFLAG+1 02257000 FMCRSV10 EQU FMCZFLAG+1 02258000 FMCZF009 EQU FMCZFLAG+1 02259000 FMCZF005 EQU FMCZFLAG 02260000 FMCZF004 EQU FMCZFLAG 02261000 FMCZF003 EQU FMCZFLAG 02262000 FMCZF002 EQU FMCZFLAG 02263000 FMCFRESA EQU ISTFMCB+228 02264000 FMCSCSQN EQU FMCSNCTL+2 02265000 FMCSCCTL EQU FMCSNCTL+1 02266000 FMCSTCTL EQU FMCSCFLG 02267000 FMCSCCLO EQU FMCSCFLG 02268000 FMCAPRO EQU FMCSCFLG 02269000 FMCLURO EQU FMCSCFLG 02270000 FMCOBSAC EQU FMCSCFLG 02271000 FMCIBSAC EQU FMCSCFLG 02272000 FMCFBRE EQU ISTFMCB+220 02273000 FMCFBXM EQU FMCZV002 02274000 FMCASEGQ EQU ISTFMCB+212 02275000 FMCRDTPT EQU ISTFMCB+208 02276000 FMCLOCK EQU ISTFMCB+204 02277000 FMCSEGD EQU FMCSSEGQ 02278000 FMCRSPLM EQU ISTFMCB+198 02279000 FMCPSTRS EQU ISTFMCB+196 02280000 @NM00021 EQU FMCRRESP 02281000 FMCTSLHA EQU FMCRRESP 02282000 FMCFRRN EQU FMCRRESP 02283000 FMCFME EQU FMCRRESP 02284000 FMCFEX EQU FMCRRESP 02285000 FMCFPE EQU FMCRRESP 02286000 FMCCTLB EQU ISTFMCB+194 02287000 FMCBSQNO EQU FMCCLSEQ+2 02288000 FMCTSQNO EQU FMCCLSEQ 02289000 FMCOBPRG EQU FMCMODEB 02290000 FMCIBPRG EQU FMCMODEB 02291000 FMCRESOT EQU FMCMODEB 02292000 FMCRSTSR EQU FMCMODEB 02293000 FMCLUQ EQU FMCMODEB 02294000 FMCAPQ EQU FMCMODEB 02295000 FMCCLEAR EQU FMCMODEB 02296000 FMCHOLD EQU FMCMODEB 02297000 FMCIPSEQ EQU ISTFMCB+188 02298000 FMCLUSTR EQU ISTFMCB+187 02299000 FMCRSV87 EQU FMCSTAT2 02300000 FMCSEQI EQU FMCSTAT2 02301000 FMCCPIP EQU FMCSTAT2 02302000 FMCALIPR EQU FMCSTAT2 02303000 FMCIAIO EQU FMCSTAT2 02304000 FMCZF00A EQU FMCSTAT2 02305000 FMCVPIP EQU FMCSTAT2 02306000 FMCBHSET EQU ISTFMCB+185 02307000 FMCPRMRC EQU FMCCLEXT+20 02308000 FMCRSV89 EQU FMCPSTAT 02309000 FMCPCLSD EQU FMCPSTAT 02310000 FMCDDOCD EQU FMCPSTAT 02311000 FMCIDVFD EQU FMCPSTAT 02312000 FMCELKST EQU FMCPSTAT 02313000 FMCRSV88 EQU FMCPSCMD 02314000 FMCRDBLK EQU FMCPSCMD 02315000 FMCDSEOC EQU FMCPSCMD 02316000 FMCPURGE EQU FMCPSCMD 02317000 FMCRESTI EQU FMCPSCMD 02318000 FMCCNTCT EQU FMCPSCMD 02319000 FMCINVT EQU FMCPSCMD 02320000 FMCFLGB7 EQU FMCFLGCL 02321000 FMCFLGB6 EQU FMCFLGCL 02322000 FMCFLGB5 EQU FMCFLGCL 02323000 FMCFLGB4 EQU FMCFLGCL 02324000 FMCFLGB3 EQU FMCFLGCL 02325000 FMCFLGB2 EQU FMCFLGCL 02326000 FMCFLGB1 EQU FMCFLGCL 02327000 FMCFLGB0 EQU FMCFLGCL 02328000 FMCFLGA7 EQU FMCFLGA 02329000 FMCFLGA6 EQU FMCFLGA 02330000 FMCFLGA5 EQU FMCFLGA 02331000 FMCFLGA4 EQU FMCFLGA 02332000 FMCFLGA3 EQU FMCFLGA 02333000 FMCFLGA2 EQU FMCFLGA 02334000 FMCFLGA1 EQU FMCFLGA 02335000 FMCFLGA0 EQU FMCFLGA 02336000 FMCDCLOK EQU FMCCLEXT+12 02337000 FMCRAFM EQU FMCCLEXT+8 02338000 FMCFBPTR EQU FMCFBA+1 02339000 FMCFBRSV EQU FMCFBA 02340000 FMCRPLPT EQU FMCRPLA+1 02341000 FMCRPLRS EQU FMCRPLA 02342000 FMCPRCLS EQU FMCCVAL 02343000 FMCIBCE EQU FMCCVAL 02344000 FMCONLY EQU FMCOBCE 02345000 FMCLAST EQU FMCOBCE 02346000 FMCMIDLE EQU FMCOBCE 02347000 FMCFIRST EQU FMCOBCE 02348000 FMCCPCNT EQU FMCPACPC 02349000 FMCMPCNT EQU FMCPACEM 02350000 FMCNPCNT EQU FMCPACEN 02351000 FMCCONF EQU FMCSSTAT 02352000 FMCPURCH EQU FMCSSTAT 02353000 FMCNSALU EQU FMCSSTAT 02354000 FMCBIP EQU FMCSSTAT 02355000 FMCSDTR EQU FMCSSTAT 02356000 FMCUIPI EQU FMCSSTAT 02357000 FMCCIPI EQU FMCSSTAT 02358000 FMCSNBI EQU FMCSSTAT 02359000 FMCRVD01 EQU ISTFMCB+158 02360000 FMCISSN EQU ISTFMCB+156 02361000 FMCOASN EQU FMCNXOSC 02362000 FMCOSSN EQU FMCNXCFM 02363000 FMCSIP EQU FMCSIPA 02364000 FMCEXLST EQU ISTFMCB+144 02365000 FMCPAB5 EQU ISTFMCB+128 02366000 FMCPAB4 EQU ISTFMCB+112 02367000 FMCPAB2 EQU ISTFMCB+80 02368000 FMCPAB1 EQU ISTFMCB+64 02369000 FMCFASYA EQU ISTFMCB+60 02370000 FMCMODE EQU ISTFMCB+52 02371000 FMCVWT EQU ISTFMCB+44 02372000 FMCRPLH EQU ISTFMCB+40 02373000 FMCBUFNB EQU FMCCMPS1+2 02374000 FMCBUFLM EQU FMCCMPS1 02375000 FMCDEBA EQU ISTFMCB+32 02376000 @NM00020 EQU FMCCMDFL 02377000 FMCSNA EQU FMCCMDFL 02378000 FMCVSNA EQU FMCCMDFL 02379000 FMCCMDR EQU FMCCMDFL 02380000 @NM00019 EQU ISTFMCB+30 02381000 @NM00018 EQU FMCSTAT1 02382000 FMCHPURG EQU FMCSTAT1 02383000 FMCVSP2 EQU FMCSTAT1 02384000 FMCVSP1 EQU FMCSTAT 02385000 FMCLTEAS EQU FMCSTAT 02386000 FMCDEDSC EQU FMCSTAT 02387000 FMCDEVOF EQU FMCSTAT 02388000 FMCDAPT EQU FMCSTAT 02389000 FMCPRMTE EQU FMCSTAT 02390000 FMCPRMTR EQU FMCSTAT 02391000 FMCUSFLD EQU ISTFMCB+24 02392000 FMCFMCBA EQU ISTFMCB+20 02393000 FMCDNCBA EQU ISTFMCB+16 02394000 FMCDVTA EQU ISTFMCB+12 02395000 FMCTSKID EQU ISTFMCB+8 02396000 FMCNXTCB EQU ISTFMCB+4 02397000 FMCLNGTH EQU ISTFMCB+1 02398000 FMCTYPE EQU ISTFMCB 02399000 FSBFDB EQU ISTFSB+32 02400000 FSBRSV01 EQU FSBFSB+30 02401000 FSBTHCNT EQU FSBFSB+28 02402000 FSBRLRSV EQU FSBRLSTS 02403000 FSBCFTX EQU FSBRLSTS 02404000 FSBICNCB EQU FSBMSGID 02405000 FSBSSOC EQU FSBSS2 02406000 FSBSSCC EQU FSBSS2 02407000 FSBSSDC EQU FSBSS2 02408000 FSBSSEC EQU FSBSS2 02409000 FSBSSIR EQU FSBSS2 02410000 FSBSSCR EQU FSBSS2 02411000 @NM00016 EQU FSBSS2 02412000 @NM00015 EQU FSBSS1 02413000 FSBSSDE EQU FSBSS1 02414000 FSBSSUS EQU FSBSS1 02415000 @NM00014 EQU FSBSS1 02416000 FSBSOHI EQU FSBERC 02417000 FSBLGI EQU FSBERC 02418000 FSBLMRI EQU FSBFBMI 02419000 FSBETI EQU FSBERC 02420000 FSBEMI EQU FSBERC 02421000 FSBEBI EQU FSBERC 02422000 FSBECI EQU FSBERC 02423000 FSBELI EQU FSBERC 02424000 FSBMJRCD EQU FSBSRCAT 02425000 FSBXLCI EQU FSBXCODE 02426000 FSBXFINS EQU FSBXCODE 02427000 FSBXNORM EQU FSBXFSTS 02428000 FSBSCODE EQU FSBSYSRS 02429000 FSBSPHSE EQU FSBSYSRS 02430000 FSBSERR EQU FSBSYSRS 02431000 FSBCMD EQU FSBSEQ 02432000 FSBDTRCE EQU FSBFLAGS 02433000 FSBASBTU EQU FSBFLAGS 02434000 FSBINPET EQU FSBFLAGS 02435000 FSBNONCB EQU FSBFLAGS 02436000 FSBLBIND EQU FSBFLAGS 02437000 FSBFFIND EQU FSBFLAGS 02438000 FSBACIND EQU FSBFLAGS 02439000 FSBRFIND EQU FSBFLAGS 02440000 FSBDAF EQU FSBCID+2 02441000 FSBSAF EQU FSBCID 02442000 FSBGATE EQU FSBFSBA 02443000 FSBRSV02 EQU FSBSFLGS 02444000 FSBPGBUF EQU FSBSFLGS 02445000 FSBMNSDA EQU FSBMNRCD 02446000 FSBMNOA EQU FSBMNRCD 02447000 FSBMNDIF EQU FSBMNRCD 02448000 FSBMNEOP EQU FSBMNRCD 02449000 FSBMNDNU EQU FSBMNRCD 02450000 FSBMNATN EQU FSBMNRCD 02451000 FSBMNRVI EQU FSBMNRCD 02452000 FSBMNELI EQU FSBMNRCD 02453000 FSBLNGTH EQU FSBFSB+1 02454000 FSBTYPE EQU FSBFSB 02455000 FDBOFSET EQU ISTFDB+10 02456000 DNCZC001 EQU DNCOS+40 02457000 DNCLOCK EQU DNCOS+36 02458000 DNCZV005 EQU DNCOS+32 02459000 DNCZV004 EQU DNCOS+28 02460000 DNCZV003 EQU DNCOS+24 02461000 DNCZV002 EQU DNCOS+21 02462000 DNCZX001 EQU DNCOS+20 02463000 DNCZV001 EQU DNCOS+17 02464000 DNCZX003 EQU DNCOS+16 02465000 DNCZV000 EQU DNCOS+12 02466000 DNCSESCQ EQU DNCOS+8 02467000 DNCSESIQ EQU DNCOS+4 02468000 DNCACIP EQU DNCBSCED+1 02469000 DNCZF008 EQU DNCZFLGS+1 02470000 DNCZPSRD EQU DNCZFLGS+1 02471000 DNCZF007 EQU DNCZFLGS+1 02472000 DNCZF005 EQU DNCZFLGS+1 02473000 DNCZF004 EQU DNCZFLGS+1 02474000 DNCZF003 EQU DNCZFLGS 02475000 DNCZF002 EQU DNCZFLGS 02476000 DNCZRSCH EQU DNCZFLGS 02477000 DNCINVIT EQU DNCZFLGS 02478000 DNCSESS EQU DNCZFLGS 02479000 DNCZF001 EQU DNCZFLGS 02480000 DNCMODE EQU ISTDNCB+49 02481000 DNCBHSET EQU ISTDNCB+48 02482000 DNCNCB EQU ISTDNCB 02483000 NCBRSV01 EQU ISTNCB+46 02484000 NCBSWDAF EQU ISTNCB+44 02485000 NCBFMCBP EQU ISTNCB+32 02486000 NCBLTRC EQU ISTNCB+30 02487000 NCBRVPT1 EQU ISTNCB+28 02488000 NCBNMLLN EQU NCBFLAGS+3 02489000 @NM00013 EQU NCBFLAG1 02490000 @NM00012 EQU NCBFLAG1 02491000 NCBTTF EQU NCBFLAG1 02492000 NCBRSYNC EQU NCBFLAG1 02493000 NCBRSTRT EQU NCBFLAG1 02494000 NCBCONF EQU NCBFLAG1 02495000 NCBSNAI EQU NCBFLAG1 02496000 NCBFLTIO EQU NCBFTRIO 02497000 NCBCSTAT EQU NCBFLAGS 02498000 NCBNCSL EQU ISTNCB+22 02499000 NCBNCBA EQU ISTNCB+20 02500000 NCBFMCBA EQU ISTNCB+16 02501000 NCBNSNA EQU ISTNCB+12 02502000 NCBTSKID EQU ISTNCB+8 02503000 NCBRDTE EQU ISTNCB+4 02504000 NCBLNGTH EQU ISTNCB+1 02505000 NCBTYPE EQU ISTNCB 02506000 LCCWDATA EQU ISTLCCW+4 02507000 LCCWCNT EQU ISTLCCW+2 02508000 LCCWACI EQU LCCWFLAG 02509000 LCCWPER EQU LCCWLSI 02510000 LCCWIDAT EQU LCCWFLAG 02511000 LCCWNTVC EQU LCCWFLAG 02512000 LCCWCKPT EQU LCCWFLAG 02513000 LCCWCD EQU LCCWFLAG 02514000 LCCWTYPE EQU LCCWCTL 02515000 LCCWMODE EQU LCCWCTL 02516000 LCCWSOP EQU LCCWRWOP 02517000 @NM00011 EQU LCCWRWOP 02518000 ATCAOS EQU ISTATCVT+1552 02519000 ATCVIOPM EQU ATCAOSM+636 02520000 ATCTPMMI EQU ATCAOSM+632 02521000 ATCTPMPB EQU ATCAOSM+600 02522000 ATCRPLCT EQU ATCAOSM+594 02523000 ATCCRACT EQU ATCAOSM+592 02524000 ATCSRBCT EQU ATCAOSM+590 02525000 ATCRSV75 EQU ATCAOSM+589 02526000 ATCRSV66 EQU ATCZFLAG 02527000 ATCZF001 EQU ATCZFLAG 02528000 ATCTPCP1 EQU ATCAOSM+584 02529000 ATCTPCP0 EQU ATCAOSM+580 02530000 ATCAICTN EQU ATCAOSM+576 02531000 ATCZR01 EQU ATCAOSM+572 02532000 ATCMPLTA EQU ATCAOSM+568 02533000 ATCASCB EQU ATCAOSM+564 02534000 ATCAP86 EQU ATCAOSM+560 02535000 ATCAP85 EQU ATCAOSM+556 02536000 ATCAP84 EQU ATCAOSM+552 02537000 ATCAP83 EQU ATCAOSM+548 02538000 ATCAP82 EQU ATCAOSM+544 02539000 ATCAP69 EQU ATCAOSM+540 02540000 ATCAP66 EQU ATCAOSM+536 02541000 ATCAP62 EQU ATCAOSM+532 02542000 ATCAPC59 EQU ATCAOSM+528 02543000 ATCAP56 EQU ATCAOSM+524 02544000 ATCAP55 EQU ATCAOSM+520 02545000 ATCRCFY0 EQU ATCAOSM+516 02546000 ATCAP41 EQU ATCAOSM+512 02547000 ATCAPC25 EQU ATCAOSM+508 02548000 ATCAP23 EQU ATCAOSM+504 02549000 ATCTPSPB EQU ATCAOSM+472 02550000 ATCTRMPB EQU ATCAOSM+440 02551000 ATCPSTA EQU ATCAOSM+432 02552000 ATCSMABF EQU ATCAOSM+428 02553000 ATCSMAPR EQU ATCAOSM+424 02554000 ATCTPWQA EQU ATCAOSM+420 02555000 ATCSMAID EQU ATCAOSM+416 02556000 ATCSMARA EQU ATCAOSM+412 02557000 ATCCACXA EQU ATCAOSM+408 02558000 ATCZLAAB EQU ATCAOSM+404 02559000 ATCATA10 EQU ATCAOSM+400 02560000 ATCHLTCB EQU ATCAOSM+396 02561000 @NM00010 EQU ATCVTFLG 02562000 ATCVTACT EQU ATCVTFLG 02563000 ATCRPT40 EQU ATCAOSM+388 02564000 ATCRPT39 EQU ATCAOSM+384 02565000 ATCRPT38 EQU ATCAOSM+380 02566000 ATCRPT37 EQU ATCAOSM+376 02567000 ATCRPT36 EQU ATCAOSM+372 02568000 ATCRPT35 EQU ATCAOSM+368 02569000 ATCRPT34 EQU ATCAOSM+364 02570000 ATCRPT33 EQU ATCAOSM+360 02571000 ATCRPT32 EQU ATCAOSM+356 02572000 ATCRPT31 EQU ATCAOSM+352 02573000 ATCRPT30 EQU ATCAOSM+348 02574000 ATCRPT29 EQU ATCAOSM+344 02575000 ATCRPT28 EQU ATCAOSM+340 02576000 ATCRPT27 EQU ATCAOSM+336 02577000 ATCRPT26 EQU ATCAOSM+332 02578000 ATCRPT25 EQU ATCAOSM+328 02579000 ATCRPT24 EQU ATCAOSM+324 02580000 ATCRPT23 EQU ATCAOSM+320 02581000 ATCRPT22 EQU ATCAOSM+316 02582000 ATCRPT21 EQU ATCAOSM+312 02583000 ATCRPT20 EQU ATCAOSM+308 02584000 ATCRPT19 EQU ATCAOSM+304 02585000 ATCRPT18 EQU ATCAOSM+300 02586000 ATCRPT17 EQU ATCAOSM+296 02587000 ATCRPT16 EQU ATCAOSM+292 02588000 ATCRPT15 EQU ATCAOSM+288 02589000 ATCRPT14 EQU ATCAOSM+284 02590000 ATCRPT13 EQU ATCAOSM+280 02591000 ATCRPT12 EQU ATCAOSM+276 02592000 ATCRPT11 EQU ATCAOSM+272 02593000 ATCAP38 EQU ATCAOSM+268 02594000 ATCAP37 EQU ATCAOSM+264 02595000 ATCZDFJ0 EQU ATCAOSM+260 02596000 ATCAP51 EQU ATCAOSM+256 02597000 ATCZPAB2 EQU ATCAOSM+224 02598000 ATCZPAB1 EQU ATCAOSM+192 02599000 ATCZLFVT EQU ATCAOSM+188 02600000 ATCZLPVT EQU ATCAOSM+184 02601000 ATCZDVTX EQU ATCAOSM+180 02602000 ATCZDVTA EQU ATCAOSM+176 02603000 ATCZDVT9 EQU ATCAOSM+172 02604000 ATCZDVT8 EQU ATCAOSM+168 02605000 ATCZDVT7 EQU ATCAOSM+164 02606000 ATCRSV56 EQU ATCDAPVT+22 02607000 ATCDAPDG EQU ATCDAPVT+20 02608000 ATCDXCEA EQU ATCDAPVT+16 02609000 ATCDCEA EQU ATCDAPVT+12 02610000 ATCDPCIA EQU ATCDAPVT+8 02611000 ATCDSIOA EQU ATCDAPVT+4 02612000 ATCDEOEA EQU ATCDAPVT 02613000 ATCZLAEA EQU ATCLDAPP+16 02614000 ATCZLCEA EQU ATCLDAPP+12 02615000 ATCRSV17 EQU ATCLDAPP+8 02616000 ATCSMFRR EQU ATCLDAPP+4 02617000 ATCCDTID EQU ATCLDAPP 02618000 ATCZAEA EQU ATCICAPP+16 02619000 ATCZCEA EQU ATCICAPP+12 02620000 ATCCDTCB EQU ATCICAPP+8 02621000 ATCZSIOA EQU ATCICAPP+4 02622000 ATCCDRPH EQU ATCICAPP 02623000 ATCAP65 EQU ATCAOSM+96 02624000 ATCZDVT6 EQU ATCAOSM+92 02625000 ATCZDVT4 EQU ATCAOSM+88 02626000 ATCZDVT3 EQU ATCAOSM+84 02627000 ATCZDVT1 EQU ATCAOSM+80 02628000 ATCICNCB EQU ATCAOSM+76 02629000 ATCZFSVT EQU ATCAOSM+68 02630000 ATCAP64 EQU ATCAOSM+64 02631000 ATCAP63 EQU ATCAOSM+60 02632000 ATCAP61 EQU ATCAOSM+56 02633000 ATCAP58 EQU ATCAOSM+52 02634000 ATCAP57 EQU ATCAOSM+48 02635000 ATCAP54 EQU ATCAOSM+44 02636000 ATCAP53 EQU ATCAOSM+40 02637000 ATCAP52 EQU ATCAOSM+36 02638000 ATCAP34 EQU ATCAOSM+32 02639000 ATCAP32 EQU ATCAOSM+28 02640000 ATCAP31 EQU ATCAOSM+24 02641000 ATCAP12 EQU ATCAOSM+20 02642000 ATCAP11 EQU ATCAOSM+16 02643000 ATCCMTCB EQU ATCAOSM+12 02644000 ATCPRPH EQU ATCAOSM+8 02645000 ATCGSRBF EQU ATCGSRBG 02646000 ATCSRBRT EQU ATCAOSM 02647000 ATCRSVBB EQU ISTATCVT+908 02648000 ATCVDLOK EQU ISTATCVT+904 02649000 ATCVFPAB EQU ISTATCVT+872 02650000 ATCVDPAB EQU ISTATCVT+840 02651000 ATCIOECB EQU ISTATCVT+836 02652000 ATCINCW3 EQU ISTATCVT+832 02653000 ATCMODTB EQU ISTATCVT+828 02654000 ATCUSSPT EQU ISTATCVT+824 02655000 ATCSRTAB EQU ISTATCVT+820 02656000 @NM00009 EQU ISTATCVT+818 02657000 ATCNMCTR EQU ISTATCVT+816 02658000 ATCSEC51 EQU ATCSECST 02659000 ATCSEC40 EQU ATCSIPD+8 02660000 ATCSEC30 EQU ATCSIPD+4 02661000 ATCSEC21 EQU ATCSIPD 02662000 ATCSEC10 EQU ATCSOPD+4 02663000 ATCSEC01 EQU ATCSOPD 02664000 ATCPOIA EQU ISTATCVT+788 02665000 ATCPODVT EQU ISTATCVT+784 02666000 ATCS49XL EQU ISTATCVT+780 02667000 ATCS49XI EQU ISTATCVT+776 02668000 ATCLCLCT EQU ATCVLCNT+2 02669000 ATCRNCNT EQU ATCVLCNT 02670000 ATCCFEAD EQU ISTATCVT+768 02671000 ATCPTR00 EQU ISTATCVT+736 02672000 ATCRSV10 EQU ISTATCVT+704 02673000 ATCTACB EQU ISTATCVT+700 02674000 ATCVTINM EQU ISTATCVT+696 02675000 ATCTCLIM EQU ISTATCVT+692 02676000 ATCTCLOM EQU ISTATCVT+688 02677000 ATCVTIPB EQU ISTATCVT+656 02678000 ATCTCIPB EQU ISTATCVT+624 02679000 ATCTIPAB EQU ISTATCVT+592 02680000 ATCOCCCB EQU ISTATCVT+588 02681000 ATCOCCOB EQU ISTATCVT+584 02682000 ATCCDLAD EQU ISTATCVT+580 02683000 ATCCCLAD EQU ISTATCVT+576 02684000 ATCDLRPB EQU ISTATCVT+544 02685000 ATCPGPAB EQU ISTATCVT+512 02686000 ATCVPAB1 EQU ISTATCVT+480 02687000 ATCRSV97 EQU ISTATCVT+476 02688000 ATCRDTLK EQU ISTATCVT+472 02689000 ATCVOCLK EQU ISTATCVT+468 02690000 ATCCDFDN EQU ISTATCVT+464 02691000 ATCCDFIN EQU ISTATCVT+460 02692000 ATCDVTLK EQU ISTATCVT+456 02693000 ATCAP36 EQU ISTATCVT+452 02694000 ATCAP35 EQU ISTATCVT+448 02695000 ATCAP33 EQU ISTATCVT+444 02696000 ATCRSV99 EQU ISTATCVT+412 02697000 ATCLDECB EQU ISTATCVT+408 02698000 ATCLDNCS EQU ISTATCVT+404 02699000 ATCCDPTR EQU ISTATCVT+400 02700000 ATCADEL EQU ISTATCVT+396 02701000 ATCTODVT EQU ISTATCVT+392 02702000 ATCDEBCH EQU ISTATCVT+388 02703000 ATCHBSIZ EQU ATCHPGM+2 02704000 ATCHBFNO EQU ATCHPGM 02705000 ATCCRME EQU ISTATCVT+380 02706000 ATCRVCHS EQU ISTATCVT+372 02707000 ATCECTLP EQU ISTATCVT+368 02708000 ATCZDVTB EQU ISTATCVT+364 02709000 ATCECPRT EQU ISTATCVT+360 02710000 ATCVTLOD EQU ISTATCVT+356 02711000 ATCTRPAB EQU ISTATCVT+352 02712000 ATCMSGM EQU ISTATCVT+348 02713000 ATCMSGP EQU ISTATCVT+344 02714000 ATCEPT EQU ISTATCVT+340 02715000 ATCDVT EQU ISTATCVT+336 02716000 ATCTRCPT EQU ISTATCVT+332 02717000 ATCDVLOD EQU ISTATCVT+328 02718000 ATCALERT EQU ISTATCVT+324 02719000 ATCEPA EQU ISTATCVT+320 02720000 ATCSAF EQU ISTATCVT+318 02721000 ATCXRANG EQU ISTATCVT+317 02722000 ATCLAST EQU ATCSHRFG 02723000 ATCSHRTN EQU ISTATCVT+308 02724000 ATCUEP EQU ISTATCVT+304 02725000 ATCOCRT EQU ISTATCVT+300 02726000 ATCCSMA EQU ATCCSMR 02727000 ATCESC02 EQU ISTATCVT+292 02728000 ATCESC01 EQU ISTATCVT+288 02729000 ATCCDFND EQU ISTATCVT+284 02730000 ATCCDDEL EQU ISTATCVT+280 02731000 ATCCDADD EQU ISTATCVT+276 02732000 ATCMNT EQU ISTATCVT+272 02733000 ATCRSV16 EQU ISTATCVT+270 02734000 ATCMAXID EQU ISTATCVT+269 02735000 ATCMSGSP EQU ATCCOM+268 02736000 ATCCIDM EQU ATCCOM+266 02737000 ATCACTRM EQU ATCCOM+264 02738000 ATCNERAP EQU ATCCOM+260 02739000 ATCNESAL EQU ATCCOM+256 02740000 ATCRCC65 EQU ATCCOM+252 02741000 ATCRCC26 EQU ATCCOM+248 02742000 ATCRCC63 EQU ATCCOM+244 02743000 ATCRSV11 EQU ATCCOM+242 02744000 ATCVTMID EQU ATCCOM+240 02745000 ATCAPOST EQU ATCCOM+236 02746000 ATCNERFN EQU ATCCOM+232 02747000 ATCNERNE EQU ATCCOM+228 02748000 ATCNERCV EQU ATCCOM+224 02749000 ATCNERST EQU ATCCOM+220 02750000 ATCDCC61 EQU ATCCOM+216 02751000 ATCDCC60 EQU ATCCOM+212 02752000 ATCSRTDF EQU ATCCOM+208 02753000 ATCSRTAD EQU ATCCOM+204 02754000 ATCFIRA EQU ATCCOM+200 02755000 ATCSMBQ EQU ATCCOM+196 02756000 ATCSMRC EQU ATCCOM+192 02757000 ATCSMRS EQU ATCCOM+188 02758000 ATCSMQU EQU ATCCOM+184 02759000 ATCSMRQ EQU ATCCOM+180 02760000 ATCACDA EQU ATCCOM+176 02761000 ATCSTMA EQU ATCCOM+172 02762000 ATCFRSTR EQU ATCCOM+168 02763000 ATCGTSTR EQU ATCCOM+164 02764000 ATCREADA EQU ATCCOM+160 02765000 ATCALOAD EQU ATCCOM+156 02766000 ATCBLDLA EQU ATCCOM+152 02767000 ATCFBRPH EQU ATCCOM+148 02768000 ATCBFTRC EQU ATCCOM+144 02769000 ATCTPBUF EQU ATCTHTRC 02770000 ATCREMOV EQU ATCCOM+136 02771000 ATCADD EQU ATCCOM+132 02772000 ATCBPDA EQU ATCCOM+128 02773000 ATCDVTPT EQU ATCCOM+124 02774000 ATCFEPT EQU ATCCOM+120 02775000 ATCFDVT EQU ATCCOM+116 02776000 ATCCONFT EQU ATCCOM+112 02777000 ATCPTCHA EQU ATCCOM+108 02778000 ATCAUTHA EQU ATCCOM+104 02779000 ATCACCTA EQU ATCCOM+100 02780000 ATCRDTH EQU ATCCOM+96 02781000 ATCFRSCH EQU ATCCOM+92 02782000 ATCFSB EQU ATCCOM+88 02783000 ATCHLTMS EQU ATCCOM+84 02784000 ATCECPRM EQU ATCCOM+80 02785000 ATCECNET EQU ATCCOM+76 02786000 ATCECOPC EQU ATCCOM+72 02787000 ATCVPARM EQU ATCCOM+68 02788000 ATCECVRQ EQU ATCCOM+64 02789000 ATCECSES EQU ATCCOM+60 02790000 ATCOCHA EQU ATCCOM+56 02791000 ATCDSPLQ EQU ATCCOM+52 02792000 ATCECDSP EQU ATCCOM+48 02793000 ATCVARYQ EQU ATCCOM+44 02794000 ATCECVRY EQU ATCCOM+40 02795000 ATCHALTQ EQU ATCCOM+36 02796000 ATCECHLT EQU ATCCOM+32 02797000 ATCMODQ EQU ATCCOM+28 02798000 ATCECMOD EQU ATCCOM+24 02799000 ATCASCHD EQU ATCCOM+20 02800000 ATCSRT EQU ATCCOM+16 02801000 ATCRDT EQU ATCCOM+12 02802000 ATCDCFRR EQU ATCCOM+8 02803000 ATCAPI EQU ATCCOM+4 02804000 ATCRSV04 EQU ATCSTAT4 02805000 ATCNCSD EQU ATCSTAT4 02806000 ATCMTST EQU ATCSTAT4 02807000 ATCTPRT EQU ATCSTAT4 02808000 ATCPRTAT EQU ATCSTAT4 02809000 @NM00008 EQU ATCPOFLG 02810000 ATCPOUNS EQU ATCPOFLG 02811000 ATCHSDMF EQU ATCSTFLG 02812000 @NM00007 EQU ATCSTAT1 02813000 ATCINHLT EQU ATCSTAT1 02814000 ATCNETSL EQU ATCSTAT1 02815000 ATCQKHLT EQU ATCSTAT1 02816000 ATCSNHLT EQU ATCSTAT1 02817000 ATCACTIV EQU ATCSTAT1 02818000 ATCSTART EQU ATCSTAT1 02819000 RPHNEXPO EQU ISTRPH+104 02820000 RPHSAV16 EQU RPHWORK+60 02821000 RPHSAV15 EQU RPHWORK+56 02822000 RPHSAV14 EQU RPHWORK+52 02823000 RPHSAV13 EQU RPHWORK+48 02824000 RPHSAV12 EQU RPHWORK+44 02825000 RPHSAV11 EQU RPHWORK+40 02826000 RPHSAV10 EQU RPHWORK+36 02827000 RPHSAVE9 EQU RPHWORK+32 02828000 RPHSAVE8 EQU RPHWORK+28 02829000 RPHSAVE7 EQU RPHWORK+24 02830000 RPHSAVE6 EQU RPHWORK+20 02831000 RPHSAVE5 EQU RPHWORK+16 02832000 RPHSAVE4 EQU RPHWORK+12 02833000 RPHSAVE3 EQU RPHWORK+8 02834000 RPHSAVE2 EQU RPHWORK+4 02835000 RPHSHALF EQU RPHSAVE1+2 02836000 RPHSBIT8 EQU RPHSBITS 02837000 RPHSBIT7 EQU RPHSBITS 02838000 RPHSBIT6 EQU RPHSBITS 02839000 RPHSBIT5 EQU RPHSBITS 02840000 RPHSBIT4 EQU RPHSBITS 02841000 RPHSBIT3 EQU RPHSBITS 02842000 RPHSBIT2 EQU RPHSBITS 02843000 RPHSBIT1 EQU RPHSBITS 02844000 RPHSBYTE EQU RPHSAVE1 02845000 RPHPABQP EQU RPHPABQA+1 02846000 RPHPABFG EQU RPHPABQA 02847000 RPHSRP34 EQU RPHSRPRM+2 02848000 RPHSRP12 EQU RPHSRPRM 02849000 RPHWEGT EQU RPHCSPA 02850000 RPHMAJCB EQU ISTRPH+21 02851000 RPHPABOF EQU ISTRPH+20 02852000 RPHRESUM EQU RPHRESMA+1 02853000 RPHRSV01 EQU RPHWPFLG 02854000 RPHPURGE EQU RPHWPFLG 02855000 RPHPT EQU RPHWPFLG 02856000 RPHWT EQU RPHWPFLG 02857000 RPHRSKEY EQU RPHWPFLG 02858000 RPHDVTA EQU ISTRPH+12 02859000 RPHTIK EQU RPHTSKID+3 02860000 @NM00006 EQU RPHTSKID 02861000 RPHRPHAP EQU RPHRPHA+1 02862000 @NM00005 EQU RPHRPHA 02863000 RPHGATE EQU RPHRPHA 02864000 @NM00004 EQU RPHFLGB 02865000 RPHRLCRA EQU RPHFLGB 02866000 RPHNRSAV EQU RPHFLGB 02867000 RPHPGCMP EQU RPHFLGB 02868000 RPHFBAPS EQU RPHFLGB 02869000 RPHBSSP EQU RPHFLGB 02870000 RPHLOCK EQU RPHFLGB 02871000 RPHFNFLG EQU RPHFSTLC 02872000 RPHMLTCP EQU RPHFLAGS 02873000 RPHSMCLR EQU RPHFLAGS 02874000 RPHSMTYP EQU RPHFLAGS 02875000 RPHSMQ EQU RPHFLAGS 02876000 RPHAUTEX EQU RPHAPTYP 02877000 RPHSPGIN EQU RPHFLAGS 02878000 RPHOGIND EQU RPHFLAGS 02879000 RPHLNGTH EQU ISTRPH+1 02880000 RPHTYPE EQU ISTRPH 02881000 LOKXCL EQU @NM00002 02882000 LOKPRY EQU @NM00002 02883000 @NM00003 EQU @NM00002 02884000 @NM00001 EQU LOKCHNG 02885000 LOKCT EQU ISTLOK 02886000 DYPPAB EQU ISTDYPAB+16 02887000 DYPRSV01 EQU ISTDYPAB+12 02888000 DYPTSKID EQU ISTDYPAB+8 02889000 DYPCHAIN EQU ISTDYPAB+4 02890000 DYPFLGS EQU ISTDYPAB+2 02891000 DYPLNGTH EQU ISTDYPAB+1 02892000 DYPTYPE EQU ISTDYPAB 02893000 PABRPHA EQU PABRPHFG+1 02894000 PABNODQ EQU PABFLAGS 02895000 PABINHBT EQU PABFLAGS 02896000 PABERLOK EQU PABERRLK 02897000 PABSSN EQU PABFLAGS 02898000 PABDYNAM EQU PABFLAGS 02899000 PABNORPR EQU PABFLAGS 02900000 PABPRIOR EQU PABFLAGS 02901000 PABAPYP EQU PABFLAGS 02902000 PABOFFST EQU ISTPAB+8 02903000 PABCHNGP EQU PABCHAIN+1 02904000 PABRSV02 EQU PABCHAIN 02905000 PABRUNNG EQU PABCHAIN 02906000 PABRESET EQU PABCHAIN 02907000 PABUNCON EQU PABCHAIN 02908000 PABCDP EQU PABCHAIN 02909000 PABRESCH EQU PABCHAIN 02910000 PABCHNG EQU PABCHAIN 02911000 PABWEQP EQU PABWEQA+1 02912000 PABRSV01 EQU PABWEQA 02913000 PABWEQG EQU PABWEQA 02914000 BTUTEXT EQU ISTBTU+20 02915000 BTUEXTR EQU ISTBTU+19 02916000 BTURSV02 EQU BTUSYSTR 02917000 BTUPHASE EQU BTUSYSTR 02918000 BTURSV01 EQU BTUSYSTR 02919000 BTUPAD EQU BTURH+3 02920000 BTURH3 EQU BTURH+2 02921000 BTURH2 EQU BTURH+1 02922000 BTURH1 EQU BTURH 02923000 BTUZRTSC EQU BTURQFLG+1 02924000 BTUZRT0B EQU BTURQFLG+1 02925000 BTUZRT09 EQU BTURQFLG+1 02926000 BTUZRT05 EQU BTURQFLG 02927000 BTUZRT03 EQU BTURQFLG 02928000 BTUZRT02 EQU BTURQFLG 02929000 BTUZRT01 EQU BTURQFLG 02930000 BTUZRT00 EQU BTURQFLG 02931000 BTUCDF EQU BTUFID+1 02932000 BTUSCF EQU BTUFID+1 02933000 BTUPRY EQU BTUFID+1 02934000 BTUASFL EQU BTUFID 02935000 BTUPSFL EQU BTUFID 02936000 BTUMPF EQU BTUFID 02937000 BTUFIDNO EQU BTUFID 02938000 BDURSV04 EQU BDUFLAGS 02939000 BDURSV03 EQU BDUFLAGS 02940000 BDUALT EQU BDUFUNC 02941000 BDUNACK EQU BDUFUNC 02942000 BDUACK EQU BDUFUNC 02943000 BDULDGPH EQU BDUFUNC 02944000 BDUHEADP EQU BDUFUNC 02945000 BDUSOH EQU BDUCHECK 02946000 BDURSV01 EQU BDUMODIF 02947000 BDUMOD0 EQU BDUMOD1 02948000 DEVRSV03 EQU ISTDEVCH+5 02949000 DEVPHYSA EQU ISTDEVCH+4 02950000 DEVCSLPN EQU DEVCHAR3 02951000 DEVCSTCL EQU DEVCHAR3 02952000 DEVCCHEK EQU DEVCHAR3 02953000 DEVCATTN EQU DEVCHAR3 02954000 DEVCSWL EQU DEVFCCTL 02955000 DEVCRVB EQU DEVFCCTL 02956000 DEVCSSL EQU DEVFCCTL 02957000 DEVMCODE EQU ISTDEVCH+2 02958000 DEVCHAR2 EQU DEVTCODE 02959000 DEVRSV01 EQU DEVCHAR 02960000 DEVCCTL EQU DEVCHAR 02961000 DEVNNSPT EQU DEVCHAR 02962000 DEVSPS EQU DEVCHAR 02963000 DEVSUBND EQU DEVCHAR 02964000 DEVCONVR EQU DEVCHAR 02965000 DEVOTPUT EQU DEVCHAR 02966000 DEVINPUT EQU DEVCHAR 02967000 PROSRDEF EQU PROSETM4 02968000 PRORSV47 EQU PROSETM4 02969000 PROSCON EQU PROSETM4 02970000 PRORSV46 EQU PROSETM3 02971000 PROSMONT EQU PROSETM3 02972000 PRORSV45 EQU PROSETM3 02973000 PROSNTO EQU PROSETM3 02974000 PRORSV44 EQU PROSETM3 02975000 PRORSV43 EQU PROSETM2 02976000 PROSNTFL EQU PROSETM2 02977000 PRORSV42 EQU PROSETM2 02978000 PRORSV41 EQU PROPROCS 02979000 PROMODC EQU PROPROC4 02980000 PROMODT EQU PROPROC4 02981000 PROMODM EQU PROPROC4 02982000 PROMODB EQU PROPROC4 02983000 PRORSV14 EQU PROPROC4 02984000 PRORSV13 EQU PROPROC4 02985000 PRORSV12 EQU PROPROC4 02986000 PROEIB EQU PROPROC4 02987000 PRORSV11 EQU PROPROC3 02988000 PROMONT2 EQU PROPROC3 02989000 PROMONIT EQU PROPROC3 02990000 PROSUBLK EQU PROPROC3 02991000 PRONTO EQU PROPROC3 02992000 PROLGIN EQU PROPROC3 02993000 PROERPI EQU PROPROC3 02994000 PRORSV07 EQU PROPROC3 02995000 PROEMLC EQU PROPROC2 02996000 PRONTFL EQU PROPROC2 02997000 PRORSV05 EQU PROPROC2 02998000 PRORSV04 EQU PROPROC2 02999000 PROLGOT EQU PROPROC2 03000000 PROERPO EQU PROPROC2 03001000 PRORSV03 EQU PROPROC2 03002000 PRORPLC EQU PROPROC1 03003000 PROCS EQU PROPROC1 03004000 PROCA EQU PROPROC1 03005000 PRORESPX EQU PROPROC1 03006000 PRODFASY EQU PROPROC1 03007000 PROTRUNC EQU PROPROC1 03008000 PROASYIP EQU PROPROC1 03009000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03010000 @RT00391 EQU @RC00390 03011000 @RC00403 EQU @RC00402 03012000 @RT00554 EQU @RC00552 03013000 @ENDDATA EQU * 03014000 END ISTZBFBB,(C'PLS0431',0603,75134) 03015000