TITLE 'IGG019TH - 3705 CHANNEL END/SIO APPENDAGE *00001000 ' 00002000 IGG019TH CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 * /* @YM02924*/ 00005000 * 00006000 DC A(END19TH+2-IGG019TH) LENGTH OF IGG019TH 00007000 DC A(SIOAPNDG) ADDRESS OF SIO APPENDAGE 00008000 THENTRY EQU * @YM02924 00009000 USING THENTRY,TEMPBASE MODULE ADDRESSABILITY @YM02924 00010000 IGG019TH IEDHJN AFTERHJN MODULE AND DATE 00011000 * STM(REG0,RBRANCH,SIOSAVE); /* SAVE REGS ON ENTRY @ZM47611*/ 00012000 STM REG0,RBRANCH,SIOSAVE 0546 00013000 * RAVT=TCXAVT; /* GET AVT ADDR FROM TCX */ 00014000 L @11,CVTPTR 0547 00015000 L @11,TCXPTR(,@11) 0547 00016000 L RAVT,TCXAVT(,@11) 0547 00017000 * GEN REFS(TEMPBASE,RBASE) NOEXIT SEQFLOW SETS(RBASE); 0548 00018000 * /* @YM02924*/ 00019000 DROP TEMPBASE 00020000 LR RBASE,TEMPBASE @YM02924 00021000 USING THENTRY,RBASE @YM02924 00022000 * RFY 0549 00023000 * TEMPBASE UNRSTD; /* @YM02924*/ 00024000 * AVTDPARM=RRETURN; /* SAVE REGISTER FOR IOS */ 00025000 ST RRETURN,AVTDPARM(,RAVT) 0550 00026000 * RLCB=RPARM->IOSUSE; /* REG 1 POINTS TO IOSB. PTR TO 00027000 * LCB IS IN IOSB @G36XRIB*/ 00028000 L RLCB,IOSUSE(,RPARM) 0551 00029000 */* MAP I/O STATUS FIELDS FROM IOSB INTO LCB(IOB) @G36XRIB*/ 00030000 * 0552 00031000 * LCBFLAG1=IOSFLA; /* STATUS BITS @G36XRIB*/ 00032000 L @15,IOSBPTR-1(,RLCB) 0552 00033000 LA @15,0(,@15) 0552 00034000 MVC LCBFLAG1(1,RLCB),IOSFLA(@15) 0552 00035000 * LCBFLAG2=IOSFLB; /* STATUS BITS @G36XRIB*/ 00036000 MVC LCBFLAG2(1,RLCB),IOSFLB(@15) 0553 00037000 * LCBECBCC=IOSCOD; /* ECB COMPLETION CODE @G36XRIB*/ 00038000 MVC LCBECBCC(1,RLCB),IOSCOD(@15) 0554 00039000 * LCBSIOCC=IOSCC; /* SIO COMPLETION CODE @G36XRIB*/ 00040000 MVC LCBSIOCC(1,RLCB),IOSCC(@15) 0555 00041000 * LCBCSW=IOSCSW; /* CSW @G36XRIB*/ 00042000 MVC LCBCSW(7,RLCB),IOSCSW(@15) 0556 00043000 * LCBSNS=IOSSNS; /* SENSE BYTES @G36XRIB*/ 00044000 MVC LCBSNS(2,RLCB),IOSSNS(@15) 0557 00045000 */* @G36XRIB*/ 00046000 * 0558 00047000 * IF LCBSIOC2=ON| /* SIO CONDITION CODE 1 OR 3... 00048000 * @OY20765*/ 00049000 * LCBCSWCA=0 /* ..OR CURRENT I/O OPERATION 0558 00050000 * INTERCEPTED BECAUSE ERROR 0558 00051000 * CONDITION DETECTED ON PREVIOUS 00052000 * I/O OPERATION AFTER CHANNEL 0558 00053000 * END @OY20765*/ 00054000 * THEN /* @OY20765*/ 00055000 TM LCBSIOC2(RLCB),B'00010000' 0558 00056000 BO @RT00558 0558 00057000 L @15,LCBCSWCA-1(,RLCB) 0558 00058000 LA @15,0(,@15) 0558 00059000 LTR @15,@15 0558 00060000 BNZ @RF00558 0558 00061000 @RT00558 DS 0H 0559 00062000 * DO; /* YES @G36XRIB*/ 00063000 * LCBCSWCA=LCBSTART+LENGTH(IEDQCCW);/* ..THEN SETUP DUMMY 0560 00064000 * INTERRUPT ADDRESS @G36XRIB*/ 00065000 LA @15,8 0560 00066000 L @11,LCBSTART-1(,RLCB) 0560 00067000 LA @11,0(,@11) 0560 00068000 ALR @15,@11 0560 00069000 STCM @15,7,LCBCSWCA(RLCB) 0560 00070000 * IOSCSWCA=LCBCSWCA; /* PUT DUMMY ADDR IN IOSB ALSO 0561 00071000 * @G36XRIB*/ 00072000 L @11,IOSBPTR-1(,RLCB) 0561 00073000 STCM @15,7,IOSCSWCA(@11) 0561 00074000 * END; /* @G36XRIB*/ 00075000 * ELSE 0563 00076000 * ; /* @YM06897*/ 00077000 @RF00558 DS 0H 0564 00078000 * RFY 0564 00079000 * (RPARM, 0564 00080000 * REG3, 0564 00081000 * REG4, 0564 00082000 * RCCW, 0564 00083000 * RPRF, 0564 00084000 * REG7, 0564 00085000 * RTRM) UNRSTD; 0564 00086000 * RFY 0565 00087000 * (REG0, 0565 00088000 * REG9, 0565 00089000 * RRETURN) UNRSTD; 0565 00090000 * 0566 00091000 * /*****************************************************************/ 00092000 * /* */ 00093000 * /* GET THE TERM ENTRY (TTE) FOR THE NCP (3705) REPRESENTED BY */ 00094000 * /* THIS LCB. CALL IEDQTNT WITH REG1 CONTAINING THE TTCIN, REG14 */ 00095000 * /* THE RETURN ADDR, AND REG15 THE ADDR OF IEDQTNT. IEDQTNT WILL */ 00096000 * /* RETURN WITH THE TERM ENTRY ADDR IN REG1. */ 00097000 * /* */ 00098000 * /*****************************************************************/ 00099000 * 0566 00100000 * RFY 0566 00101000 * (RPARM, 0566 00102000 * RTRM) RSTD; 0566 00103000 * RPARM=LCBTTCIN; /* GET TNT OFFSET OF NCP */ 00104000 LH RPARM,LCBTTCIN(,RLCB) 0567 00105000 N RPARM,@CF03140 0567 00106000 * CALL TNTCODE; /* CALL IEDQTNT FOR TERM ENTRY */ 00107000 L @15,IEDQNPTR(,RAVT) 0568 00108000 BALR @14,@15 0568 00109000 * RTRM=RPARM-LENGTH(IEDNTRM); /* SAVE TERM ENTRY ADDR @YM04622*/ 00110000 LR RTRM,RPARM 0569 00111000 SL RTRM,@CF00036 0569 00112000 * RFY 0570 00113000 * RPARM UNRSTD; 0570 00114000 * 0571 00115000 * /*****************************************************************/ 00116000 * /* */ 00117000 * /* IF CCW'S ARE REAL, THEN TRANSLATE THEM TO VIRTUAL. */ 00118000 * /* */ 00119000 * /*****************************************************************/ 00120000 * 0571 00121000 * RFY 0571 00122000 * (RPARM, 0571 00123000 * RCCW, 0571 00124000 * RINT, 0571 00125000 * RWORK) RSTD; /* @YM04622*/ 00126000 * IF LCBRLAD=ON THEN /* IF REAL CHAN PROGRAM EXISTS 0572 00127000 * THEN ... @YM04622*/ 00128000 TM LCBRLAD(RLCB),B'00010000' 0572 00129000 BNO @RF00572 0572 00130000 * DO; /* ... TRANSLATE TO VIRTUAL 0573 00131000 * @YM04622*/ 00132000 * RWORK=CVTPTRV; /* GET ADDR OF REAL TO VIRTUAL 0574 00133000 * TRANSLATE ROUTINE */ 00134000 L @04,CVTPTR 0574 00135000 L RWORK,CVTPTRV(,@04) 0574 00136000 * RINT=LCBCSWCA-LENGTH(IEDQCCW);/* INTERRUPT CCW ADDRESS 0575 00137000 * @YM04622*/ 00138000 L RINT,LCBCSWCA-1(,RLCB) 0575 00139000 LA RINT,0(,RINT) 0575 00140000 SL RINT,@CF00046 0575 00141000 * IF TRMIPLDM=ON| /* IF IPL OR DUMP IN PROGRESS ... 00142000 * @YM04622*/ 00143000 * LCBSTAT1=CLOSDOWN THEN /* ... OR CLOSE CHANNEL PROGRAM 00144000 * THEN @YM04622*/ 00145000 TM TRMIPLDM(RTRM),B'10000000' 0576 00146000 BO @RT00576 0576 00147000 CLI LCBSTAT1(RLCB),X'FF' 0576 00148000 BNE @RF00576 0576 00149000 @RT00576 DS 0H 0577 00150000 * RCCW=LCBSTART; /* BEGIN TRANSLATION WITH FIRST 00151000 * CCW @YM04622*/ 00152000 L RCCW,LCBSTART-1(,RLCB) 0577 00153000 LA RCCW,0(,RCCW) 0577 00154000 * ELSE /* @YM04622*/ 00155000 * DO; /* ELSE DETERMINE WHICH CCWS NEED 00156000 * TRANSLATION @YM04622*/ 00157000 B @RC00576 0578 00158000 @RF00576 DS 0H 0579 00159000 * RPARM=RLCB+DCBEIOBX; /* POINT TO END OF LCB @YM04622*/ 00160000 L @11,LCBDCBPT(,RLCB) 0579 00161000 LR RPARM,RLCB 0579 00162000 SLR @04,@04 0579 00163000 IC @04,DCBEIOBX+20(,@11) 0579 00164000 ALR RPARM,@04 0579 00165000 * IF RINT>=RLCB& /* IF INTERRUPT CCW IS IN THE LCB 00166000 * @YM04622*/ 00167000 * RINTCCWCC=ON|RPARM->CCWCD=ON/* @ZM48678*/ 00306000 * THEN /* ONE MORE CCW TO TRANSLATE 0617 00307000 * @ZM48678*/ 00308000 TM CCWCC(RPARM),B'11000000' 0617 00309000 BZ @RF00617 0617 00310000 * DO; /* @ZM48678*/ 00311000 * RPARM=CCWADDR;/* REAL DATA ADDRESS @ZM48678*/ 00312000 SLR RPARM,RPARM 0619 00313000 ICM RPARM,7,CCWADDR(RCCW) 0619 00314000 * CALL CONVERT; /* GET VIRTUAL ADDR IN R1 0620 00315000 * @ZM48678*/ 00316000 LR @15,RWORK 0620 00317000 BALR @14,@15 0620 00318000 * RFY 0621 00319000 * RBRANCH RSTD;/* @ZM48678*/ 00320000 * IF RBRANCH=ZERO THEN/* CONVERT GOOD @ZM48678*/ 00321000 LTR RBRANCH,RBRANCH 0622 00322000 BNZ @RF00622 0622 00323000 * CCWADDR=RPARM;/* STORE VIRTUAL ADDRESS 0623 00324000 * @ZM48678*/ 00325000 STCM RPARM,7,CCWADDR(RCCW) 0623 00326000 * ELSE /* TRANSLATE FAILED @ZM48678*/ 00327000 * CALL CONVERR;/* ABEND @ZM48678*/ 00328000 B @RC00622 0624 00329000 @RF00622 BAL @14,CONVERR 0624 00330000 * RFY 0625 00331000 * RBRANCH UNRSTD;/* @ZM48678*/ 00332000 @RC00622 DS 0H 0626 00333000 * END; /* @ZM48678*/ 00334000 * ELSE 0627 00335000 * ; /* ONLY 1 CCW IN CHAIN, ALL 0627 00336000 * TRANSLATION DONE @ZM48678*/ 00337000 @RF00617 DS 0H 0628 00338000 * LCBRLAD=OFF; /* TRANSLATION IS COMPLETE 0628 00339000 * @ZM48616*/ 00340000 NI LCBRLAD(RLCB),B'11101111' 0628 00341000 * END; /* @ZM48678*/ 00342000 * ELSE 0630 00343000 * ; /* MORE TO TRANSLATE IF NOT IPL 00344000 * OR CLOSEDOWN @ZM48678*/ 00345000 @RF00612 DS 0H 0631 00346000 * END; 0631 00347000 @RC00612 DS 0H 0631 00348000 @RT00610 DS 0H 0631 00349000 @DE00586 TM LCBRLAD(RLCB),B'00010000' 0631 00350000 BO @DL00586 0631 00351000 * END; /* @YM04622*/ 00352000 * RFY 0633 00353000 * (RPARM, 0633 00354000 * RCCW, 0633 00355000 * RINT, 0633 00356000 * RWORK) UNRSTD; /* @YM04622*/ 00357000 @RF00572 DS 0H 0634 00358000 * 0634 00359000 * /*****************************************************************/ 00360000 * /* */ 00361000 * /* CALL LINE TRACE (IF IT IS IN THE SYSTEM) */ 00362000 * /* */ 00363000 * /*****************************************************************/ 00364000 * 0634 00365000 * RFY 0634 00366000 * RPARM RSTD; /* @YM02923*/ 00367000 * IF LCBSOHR=OFF THEN /* IF MDR PROCESSING IS NOT IN 0635 00368000 * PROGRESS @YM03744*/ 00369000 TM LCBSOHR(RLCB),B'00100000' 0635 00370000 BNZ @RF00635 0635 00371000 * IF AVTIOT^=ZERO THEN /* IS LINE TRACE IN THE SYSTEM */ 00372000 L @09,AVTIOT(,RAVT) 0636 00373000 LTR @09,@09 0636 00374000 BZ @RF00636 0636 00375000 * DO; /* YES, THEN CALL IT */ 00376000 * IEDRQE=''B; /* ZERO DUMMY RQE @G36XRIB*/ 00377000 LA @03,DUMRQE 0638 00378000 XC IEDRQE(20,@03),IEDRQE(@03) 0638 00379000 * RQEUCB=DIOSUCBP; /* UCB ADDRESS @G36XRIB*/ 00380000 L @15,IOSBPTR-1(,RLCB) 0639 00381000 LH @00,DIOSUCBP(,@15) 0639 00382000 N @00,@CF03140 0639 00383000 STH @00,RQEUCB(,@03) 0639 00384000 * RQEIOB=RLCB+(ADDR(LCBFLAG1)-ADDR(IEDQLCB));/* IOB ADDR 0640 00385000 * @G36XRIB*/ 00386000 LA @00,32 0640 00387000 ALR @00,RLCB 0640 00388000 STCM @00,7,RQEIOB(@03) 0640 00389000 * RPARM=ADDR(IEDRQE); /* ADDRESS OF DUMMY RQE @G36XRIB*/ 00390000 LR RPARM,@03 0641 00391000 * CALL LNTRACE; /* GO DO LINE TRACE @G36XRIB*/ 00392000 LR @15,@09 0642 00393000 BALR @14,@15 0642 00394000 * END; 0643 00395000 * ELSE 0644 00396000 * ; /* @YM03744*/ 00397000 @RF00636 DS 0H 0645 00398000 * ELSE 0645 00399000 * LCBSOHR=OFF; /* RESET MDR RECORDING IN 0645 00400000 * PROGRESS @YM03744*/ 00401000 B @RC00635 0645 00402000 @RF00635 NI LCBSOHR(RLCB),B'11011111' 0645 00403000 * RFY 0646 00404000 * RPARM UNRSTD; /* @YM02923*/ 00405000 @RC00635 DS 0H 0647 00406000 * RFY 0647 00407000 * (RSTATE, 0647 00408000 * RCCW, 0647 00409000 * RWORK, 0647 00410000 * RPRF) RSTD; 0647 00411000 SPACE 1 00412000 * RSTATE=ZERO; /* INITIALIZE LOCAL STATE VALUE */ 00413000 SLR RSTATE,RSTATE 0648 00414000 SPACE 1 00415000 * IF LCBSTAT1=CLOSDOWN&LCBOBRCH=ZERO THEN/* ARE WE IN CLOSE 0649 00416000 * @YM07304*/ 00417000 CLI LCBSTAT1(RLCB),X'FF' 0649 00418000 BNE @RF00649 0649 00419000 L @11,LCBOBRCH(,RLCB) 0649 00420000 LTR @11,@11 0649 00421000 BNZ @RF00649 0649 00422000 * DO; 0650 00423000 * RFY 0651 00424000 * RECB RSTD; /* @YM07304*/ 00425000 * RECB=LCBECBPT; /* GET ADDRESS OF CLOSE ECB 0652 00426000 * @YM07304*/ 00427000 L RECB,LCBECBPT-1(,RLCB) 0652 00428000 LA RECB,0(,RECB) 0652 00429000 * CALL POSTECB; /* POST IT @YM07304*/ 00430000 BAL @14,POSTECB 0653 00431000 * RFY 0654 00432000 * RECB UNRSTD; /* @YM07304*/ 00433000 * END; 0655 00434000 * ELSE /* @YM07304*/ 00435000 * DO; /* @YM07304*/ 00436000 B @RC00649 0656 00437000 @RF00649 DS 0H 0657 00438000 * IF TRMIPLDM=OFF& /* IF IPL/DUMP NOT IN PROGRESS 0657 00439000 * ... @YM08552*/ 00440000 * LCBCSWCA-LENGTH(IEDQCCW)=ADDR(CPARNOOP)&/* ... AND WE 0657 00441000 * HAVE TAKEN AN INTERRUPT ON THE 00442000 * NOP CCW AFTER THE READ CHANNEL 00443000 * PROGRAM ... @YM08552*/ 00444000 * LCBUSAT=OFF& /* ... BUT HAVE NO ATTENTION 0657 00445000 * STATUS ... @YM08552*/ 00446000 * LCBUSUE=OFF THEN /* ...AND NO UNIT EXCEPTION 0657 00447000 * STATUS THEN... @YM08552*/ 00448000 TM TRMIPLDM(RTRM),B'10000000' 0657 00449000 BNZ @RF00657 0657 00450000 L @11,LCBCSWCA-1(,RLCB) 0657 00451000 LA @11,0(,@11) 0657 00452000 SL @11,@CF00046 0657 00453000 LA @07,CPARNOOP(,RLCB) 0657 00454000 CR @11,@07 0657 00455000 BNE @RF00657 0657 00456000 TM LCBUSAT(RLCB),B'10000001' 0657 00457000 BNZ @RF00657 0657 00458000 * DO; /* THE NCP IS OUT OF SYNCH AND 0658 00459000 * MUST BE IPL'ED @YM08552*/ 00460000 * LCBECBCC=LCBECB41; /* FORCE PERMANENT ERROR 0659 00461000 * INDICATION @YM08552*/ 00462000 MVI LCBECBCC(RLCB),X'41' 0659 00463000 * LCBNOTIN=ON; /* FORCE CLEANUP TO CHECK 0660 00464000 * DMPAUTO/IPLAUTO @YM08552*/ 00465000 OI LCBNOTIN(RLCB),B'00000010' 0660 00466000 * LCBNX142=ON; /* IEDQNX WILL DISPLAY IED142A 0661 00467000 * @YM08552*/ 00468000 OI LCBNX142(RLCB),B'01000000' 0661 00469000 * END; /* PROCEED TO BUILD A CHANNEL 0662 00470000 * INOP @YM08552*/ 00471000 * IF LCBECBCC=LCBECB41 THEN /* PERMANENT ERROR */ 00472000 * 0663 00473000 @RF00657 CLI LCBECBCC(RLCB),X'41' 0663 00474000 BNE @RF00663 0663 00475000 * /***********************************************************/ 00476000 * /* */ 00477000 * /* PERMANENT ERROR ON I/O */ 00478000 * /* */ 00479000 * /***********************************************************/ 00480000 * 0664 00481000 * IF TRMIPLDM=ON THEN /* IS IPL OR DUMP IN PROGRESS */ 00482000 * 0664 00483000 TM TRMIPLDM(RTRM),B'10000000' 0664 00484000 BNO @RF00664 0664 00485000 * /*********************************************************/ 00486000 * /* */ 00487000 * /* IPL OR DUMP IS IN PROGRESS */ 00488000 * /* */ 00489000 * /*********************************************************/ 00490000 * 0665 00491000 * DO; /* POST LCB TO FIRST LEVEL DATA 00492000 * HANDLER @YM02949*/ 00493000 * LCBQCBA=SAVTFLDH; /* QCB ADDRESS @YM02949*/ 00494000 L @11,AVTSAVTP(,RAVT) 0666 00495000 MVC LCBQCBA(3,RLCB),SAVTFLDH+1(@11) 0666 00496000 * LCBPRI=PRIAIPL; /* AND PRIORITY @YM02949*/ 00497000 MVI LCBPRI(RLCB),X'DE' 0667 00498000 * RPRF=RLCB; /* PARAMETER TO POST @YM02949*/ 00499000 LR RPRF,RLCB 0668 00500000 * CALL READYQ; /* PUT LCB ON TCX READY QUE 0669 00501000 * @YM02949*/ 00502000 BAL @14,READYQ 0669 00503000 * END; /* @YM02949*/ 00504000 * ELSE 0671 00505000 * 0671 00506000 * /*********************************************************/ 00507000 * /* */ 00508000 * /* IPL OR DUMP NOT IN PROGRESS */ 00509000 * /* */ 00510000 * /*********************************************************/ 00511000 * 0671 00512000 * DO; 0671 00513000 B @RC00664 0671 00514000 @RF00664 DS 0H 0672 00515000 * LCBTSTSW=ZERO; /* FREE LCB FOR I/O @YM08173*/ 00516000 MVI LCBTSTSW(RLCB),X'00' 0672 00517000 * TRMINOP=ON; /* SET NCP INOPERATIVE @YM08120*/ 00518000 OI TRMINOP(RTRM),B'10000000' 0673 00519000 * IF LCBSENDN=ON THEN /* IS 'SENDING' SET */ 00520000 TM LCBSENDN(RLCB),B'00000001' 0674 00521000 BNO @RF00674 0674 00522000 * DO; /* YES */ 00523000 * RPRF=CPAWRTBK; /* GET ADDR OF THE UNIT THAT 0676 00524000 * POINTS TO THE WRITE BREAK UNIT*/ 00525000 L RPRF,CPAWRTBK-1(,RLCB) 0676 00526000 LA RPRF,0(,RPRF) 0676 00527000 * RWORK=PRFTI0; /* GET ADDR OF PREFIX OF WRITE 0677 00528000 * BREAK UNIT */ 00529000 L @07,PRFTI0-1(,RPRF) 0677 00530000 LA @07,0(,@07) 0677 00531000 LR RWORK,@07 0677 00532000 * PRFTI0=PRFTI0+LENGTH(IEDQCCW);/* UPDATE THE ADDR TO 00533000 * POINT TO THE UNIT ITSELF */ 00534000 AL @07,@CF00046 0678 00535000 STCM @07,7,PRFTI0(RPRF) 0678 00536000 * RPRF=PRFTI0; /* POINT TO THE WRITE BREAK UNIT */ 00537000 LR RPRF,@07 0679 00538000 * RPRF->CCW=RWORK->CCW;/* MOVE WRITE BREAK CCW INTO 00539000 * THE UNIT */ 00540000 MVC CCW(8,RPRF),CCW(RWORK) 0680 00541000 * PRFTIC=PRFINTIC; /* MAKE TIC ADDR INVALID */ 00542000 MVC PRFTIC(4,RPRF),@CB02426 0681 00543000 * LCBFSBFR=CPAWRTBF;/* SET FIRST WRITE BUFFER 0682 00544000 * @YM03709*/ 00545000 MVC LCBFSBFR(3,RLCB),CPAWRTBF(RLCB) 0682 00546000 * END; 0683 00547000 * ELSE /* ELSE NOT SENDING @YM07760*/ 00548000 * LCBFSBFR=0; /* INDICATE NO WRITE BTU PRESENT 00549000 * @YM07760*/ 00550000 B @RC00674 0684 00551000 @RF00674 SLR @11,@11 0684 00552000 STCM @11,7,LCBFSBFR(RLCB) 0684 00553000 * INOPAREA=INOPAREA&&INOPAREA;/* CLEAR INOP AREA */ 00554000 @RC00674 LA @11,152 0685 00555000 ALR @11,RLCB 0685 00556000 XC INOPAREA(48,@11),INOPAREA(@11) 0685 00557000 * RPRF=ADDR(INOPAREA); /* OVERLAY INOP AREA WITH BUFFER 00558000 * STRUCTURE */ 00559000 LR RPRF,@11 0686 00560000 * PRFPIUO=ADDR(PRFSHDR)-ADDR(PRFSUNIT)-LENGTH(IEDTH)-LENGTH 00561000 * (IEDRH); /* SET OFFSET TO TH */ 00562000 LA @11,17 0687 00563000 STC @11,PRFPIUO(,RPRF) 0687 00564000 * RWORK=PRFPIUO+ADDR(PRFPIUO);/* POINT TO THE TH IN THE 00565000 * PIU */ 00566000 LA RWORK,PRFPIUO(,RPRF) 0688 00567000 ALR @11,RWORK 0688 00568000 LR RWORK,@11 0688 00569000 * TTHFTYPE=TTHFID1; /* FORMAT TYPE = FID1 */ 00570000 NI TTHFTYPE(RWORK),B'00011111' 0689 00571000 OI TTHFTYPE(RWORK),B'00010000' 0689 00572000 * TTHBBIU=ON; /* BEGIN SEGMENT */ 00573000 * TTHEBIU=ON; /* END SEGMENT */ 00574000 OI TTHBBIU(RWORK),B'00001100' 0691 00575000 * TTHDAF=SAVTSCPT; /* SET SSCP MH TNT INDEX */ 00576000 L @11,AVTSAVTP(,RAVT) 0692 00577000 MVC TTHDAF(2,RWORK),SAVTSCPT(@11) 0692 00578000 * TTHOAF=LCBTTCIN; /* 3705 TTE TNT INDEX */ 00579000 LH @07,LCBTTCIN(,RLCB) 0693 00580000 N @07,@CF03140 0693 00581000 STCM @07,3,TTHOAF(RWORK) 0693 00582000 * TTHDCF=DCF; /* SET DATA COUNT */ 00583000 MVC TTHDCF(2,RWORK),@CH03039 0694 00584000 * RWORK=RWORK+LENGTH(IEDTH);/* POINT TO THE RH IN THE PIU*/ 00585000 AL RWORK,@CF03122 0695 00586000 * TRHFI=ON; /* FORMAT INDICATOR */ 00587000 * TRHBC=ON; /* BEGIN CHAIN */ 00588000 * TRHEC=ON; /* END CHAIN */ 00589000 OI TRHFI(RWORK),B'00001011' 0698 00590000 * RWORK=RWORK+LENGTH(IEDRH);/* POINT TO THE RU IN THE PIU*/ 00591000 AL RWORK,@CF00075 0699 00592000 * INOPNS=CD1NETS; /* SET NETWORK SERVICES INDICATOR*/ 00593000 MVI INOPNS(RWORK),X'01' 0700 00594000 * INOPPC=CD1CONFS; /* SET PHYSICAL CONFIGURATION 0701 00595000 * INDICATOR */ 00596000 MVI INOPPC(RWORK),X'02' 0701 00597000 * INOPCMD=CD1INOP; /* SET INOPERATIVE COMMAND */ 00598000 MVI INOPCMD(RWORK),X'81' 0702 00599000 * RFY 0703 00600000 * RPARM RSTD; 0703 00601000 * RPARM=LCBTTCIN; /* GET NCP TNT OFFSET */ 00602000 LR RPARM,@07 0704 00603000 * CALL NAADDR; /* CALL TNT INDEX TO NETWORK 0705 00604000 * ADDRESS CONVERSION ROUTINE 0705 00605000 * WITH R1=TNT INDEX. R0, R1, AND 00606000 * R15 ARE NOT PRESERVED */ 00607000 L @15,SAVTTNTX(,@11) 0705 00608000 BALR @14,@15 0705 00609000 * RFY 0706 00610000 * RBRANCH RSTD; 0706 00611000 * INOPNA=RBRANCH; /* SET NETWORK ADDR IN RU */ 00612000 STCM RBRANCH,3,INOPNA(RWORK) 0707 00613000 * RFY 0708 00614000 * (RPARM, 0708 00615000 * RBRANCH) UNRSTD; 0708 00616000 * INOPDATA=LINKFAIL; /* DATA = LINK FAILURE */ 00617000 MVI INOPDATA(RWORK),X'02' 0709 00618000 * PRFQCBA=SAVTSSRQ; /* QUEUE TO SSCP REQUEST HANDLER */ 00619000 L @11,AVTSAVTP(,RAVT) 0710 00620000 MVC PRFQCBA(3,RPRF),SAVTSSRQ+1(@11) 0710 00621000 * PRFPRI=PRISCPIN; /* SET PRIORITY */ 00622000 MVI PRFPRI(RPRF),X'E5' 0711 00623000 * PRFTIC=PRFINTIC; /* SET INVALID TIC */ 00624000 MVC PRFTIC(4,RPRF),@CB02426 0712 00625000 * CALL READYQ; /* PUT INOP ON TCX READY QUEUE 0713 00626000 * @YM03692*/ 00627000 BAL @14,READYQ 0713 00628000 * END; 0714 00629000 * ELSE 0715 00630000 * 0715 00631000 * /***********************************************************/ 00632000 * /* */ 00633000 * /* NOT PERMANENT ERROR ON I/O */ 00634000 * /* */ 00635000 * /***********************************************************/ 00636000 * 0715 00637000 * DO; 0715 00638000 * 0715 00639000 B @RC00663 0715 00640000 @RF00663 DS 0H 0716 00641000 * /*********************************************************/ 00642000 * /* */ 00643000 * /* DETERMINE NEED FOR ERP */ 00644000 * /* */ 00645000 * /*********************************************************/ 00646000 * 0716 00647000 * IF LCBSTAT1^=DUMPFINL THEN/* IF NOT DUMP FINAL CHANNEL 0716 00648000 * PROGRAM THEN @YM08434*/ 00649000 CLI LCBSTAT1(RLCB),X'FE' 0716 00650000 BE @RF00716 0716 00651000 * DO; /* DETERMINE NEED FOR ERROR 0717 00652000 * RECOVERY @YN08434*/ 00653000 * IF(LCBSIOC1=ON|LCBSIOC2=ON)|/* IS CONDITION CODE 0718 00654000 * NON-ZERO OR... @YM02920 00655000 * @YM06897*/ 00656000 * LCBUSUC=ON| /* ... UNIT CHECK OR ... @YM02920*/ 00657000 * LCBCSPCI=ON| /* ... PROGRAM-CONTROLLED 0718 00658000 * INTERRUPTION OR ... */ 00659000 * LCBCSIL=ON| /* ... INCORRECT LENGTH OR ... */ 00660000 * LCBCSPGC=ON| /* ... PROGRAM CHECK OR ... */ 00661000 * LCBCSPTC=ON| /* ... PROTECTION CHECK OR ... */ 00662000 * LCBCSCDC=ON| /* ... CHANNEL DATA CHECK OR ... */ 00663000 * LCBCSCCC=ON| /* ... CHANNEL CONTROL CHECK OR 00664000 * ... */ 00665000 * LCBCSICC=ON| /* ... INTERFACE CONTROL CHECK OR 00666000 * ... */ 00667000 * LCBCSCHC=ON THEN/* ... CHAINING CHECK SET ? */ 00668000 TM LCBSIOC1(RLCB),B'00110000' 0718 00669000 BNZ @RT00718 0718 00670000 TM LCBUSUC(RLCB),B'00000010' 0718 00671000 BO @RT00718 0718 00672000 TM LCBCSPCI(RLCB),B'11111111' 0718 00673000 BZ @RF00718 0718 00674000 @RT00718 DS 0H 0719 00675000 * DO; /* YES, DETERMINE IF ERP REQUEST 00676000 * IS NEEDED */ 00677000 * RCCW=LCBCSWCA-LENGTH(IEDQCCW);/* INTERRUPT CCW 0720 00678000 * ADDRESS @OY20744*/ 00679000 L RCCW,LCBCSWCA-1(,RLCB) 0720 00680000 LA RCCW,0(,RCCW) 0720 00681000 SL RCCW,@CF00046 0720 00682000 * IF(LCBUSUC=ON& /* IF UNIT CHECK.. @OY20744*/ 00683000 * LCBABORT=ON)|/* ..WITH ABORT SENSE(NCP HAS 0721 00684000 * ENTERED ANS) @OY20744*/ 00685000 * (LCBCSIL=ON&/* ..OR INCORRECT LENGTH @OY20744*/ 00686000 * LCBUSUE=ON& /* ..AND UNIT EXCEPTION @OY20744*/ 00687000 * (CCWOPCDE=CCWWS0|/* ..AND WRITE START 0 0721 00688000 * @OY20744*/ 00689000 * CCWOPCDE=CCWWS1|/* ..OR WRITE START 1 0721 00690000 * @OY20744*/ 00691000 * CCWOPCDE=CCWWRITE|/* ..OR WRITE @OY20744*/ 00692000 * CCWOPCDE=CCWBRK))/* ..OR WRITE BREAK(NCP IS 00693000 * SIGNALLING SLOWDOWN DURING 0721 00694000 * CHANNEL DATA CHAINING 0721 00695000 * OPERATION) @OY20744*/ 00696000 * THEN 0721 00697000 TM LCBUSUC(RLCB),B'00000010' 0721 00698000 BNO @GL00012 0721 00699000 TM LCBABORT(RLCB),B'00000001' 0721 00700000 BO @RT00721 0721 00701000 @GL00012 TM LCBCSIL(RLCB),B'01000000' 0721 00702000 BNO @RF00721 0721 00703000 TM LCBUSUE(RLCB),B'00000001' 0721 00704000 BNO @RF00721 0721 00705000 CLI CCWOPCDE(RCCW),X'31' 0721 00706000 BE @RT00721 0721 00707000 CLI CCWOPCDE(RCCW),X'51' 0721 00708000 BE @RT00721 0721 00709000 CLI CCWOPCDE(RCCW),X'01' 0721 00710000 BE @RT00721 0721 00711000 CLI CCWOPCDE(RCCW),X'09' 0721 00712000 BNE @RF00721 0721 00713000 @RT00721 DS 0H 0722 00714000 * DO; /* ..THEN TREAT AS SLOWDOWN TO 0722 00715000 * PREVENT WRITES AND CAUSE WAIT 00716000 * FOR ATTENTION TO READ 'EXITING 00717000 * SLOWDOWN' OR 'ANS COMPLETE' 0722 00718000 * @OY20744*/ 00719000 * TRMSLOWN=ON;/* INDICATE SLOWDOWN STATE 0723 00720000 * @OY20744*/ 00721000 L @11,TRMSLOWN-3(,RTRM) 0723 00722000 @GL00019 LR @07,@11 0723 00723000 O @07,@CF03148 0723 00724000 CS @11,@07,TRMSLOWN-3(RTRM) 0723 00725000 BNE @GL00019 0723 00726000 * LCBRECVN=OFF;/* PREVENT READ BTU PROCESSING 00727000 * @YM06060*/ 00728000 NI LCBRECVN(RLCB),B'11111101' 0724 00729000 * IF CCWOPCDE=CCWWS0|/* CHECK FOR WRITE START 0 00730000 * ... */ 00731000 * CCWOPCDE=CCWWS1|/* ... OR WRITE START 1 00732000 * ... */ 00733000 * CCWOPCDE=CCWWRITE|/* ... OR WRITE DATA 0725 00734000 * ... */ 00735000 * CCWOPCDE=CCWBRK THEN/* ... OR WRITE BREAK*/ 00736000 CLI CCWOPCDE(RCCW),X'31' 0725 00737000 BE @RT00725 0725 00738000 CLI CCWOPCDE(RCCW),X'51' 0725 00739000 BE @RT00725 0725 00740000 CLI CCWOPCDE(RCCW),X'01' 0725 00741000 BE @RT00725 0725 00742000 CLI CCWOPCDE(RCCW),X'09' 0725 00743000 BNE @RF00725 0725 00744000 @RT00725 DS 0H 0726 00745000 * DO; /* TREAT INTERRUPT ON WRITE AS 0726 00746000 * UNIT EXCEPTION(SLOWDOWN) 0726 00747000 * @OY20744*/ 00748000 * LCBUSUC=OFF;/* RESET UNIT CHECK ... */ 00749000 * LCBUSUE=ON;/* ... AND SET UNIT EXCEPTION */ 00750000 OI LCBUSUE(RLCB),B'00000001' 0728 00751000 NI LCBUSUC(RLCB),B'11111101' 0728 00752000 * END; 0729 00753000 * ELSE /* INTERRUPT NOT ON A WRITE 0730 00754000 * @OY20744*/ 00755000 * IF LCBSENDN=ON THEN/* IF WRITE BTU EXISTS 00756000 * IGNORE READ BTU AND FORCE 0730 00757000 * INTERRUPT TO APPEAR AS IF ON 00758000 * NOP IN WRITE BREAK UNIT */ 00759000 B @RC00725 0730 00760000 @RF00725 TM LCBSENDN(RLCB),B'00000001' 0730 00761000 BNO @RF00730 0730 00762000 * DO; 0731 00763000 * RPRF=CPAWRTBK;/* POINT TO UNIT WHICH 0732 00764000 * TICS TO WRITE BREAK */ 00765000 L RPRF,CPAWRTBK-1(,RLCB) 0732 00766000 LA RPRF,0(,RPRF) 0732 00767000 * RPRF=PRFTI0;/* GET WRITE BREAK UNIT 0733 00768000 * ADDRESS */ 00769000 L @11,PRFTI0-1(,RPRF) 0733 00770000 LA @11,0(,@11) 0733 00771000 LR RPRF,@11 0733 00772000 * LCBCSWCA=RPRF+2*LENGTH(IEDQCCW);/* 0734 00773000 * POINT CSW PAST NOP */ 00774000 LA @11,16 0734 00775000 ALR @11,RPRF 0734 00776000 STCM @11,7,LCBCSWCA(RLCB) 0734 00777000 * LCBUSUC=OFF;/* HANDLE AS NORMAL FROM 0735 00778000 * HERE ON */ 00779000 NI LCBUSUC(RLCB),B'11111101' 0735 00780000 * END; 0736 00781000 * ELSE /* ELSE NOT SENDING, MUST TREAT 00782000 * AS IF READ ENDED NORMALLY BUT 00783000 * WITH NO DATA */ 00784000 * LCBCSWCA=LCBSTART+LENGTH(IEDQCCW);/* 0737 00785000 * TREAT AS INTERRUPT ON READ 0737 00786000 * START */ 00787000 B @RC00730 0737 00788000 @RF00730 LA @11,8 0737 00789000 L @07,LCBSTART-1(,RLCB) 0737 00790000 LA @07,0(,@07) 0737 00791000 ALR @11,@07 0737 00792000 STCM @11,7,LCBCSWCA(RLCB) 0737 00793000 * END; 0738 00794000 * ELSE /* ELSE NOT UNIT CHECK ABORT OR 00795000 * SLOWDOWN @OY20744*/ 00796000 * IF LCBSIOC2=ON&LCBSIOC1=OFF&/* IF CSW STORED ON 00797000 * NOP @XM05727*/ 00798000 * LCBSTART->CCWOPCDE=CCWNOP THEN/* @ZM07977*/ 00799000 B @RC00721 0739 00800000 @RF00721 TM LCBSIOC2(RLCB),B'00010000' 0739 00801000 BNO @RF00739 0739 00802000 TM LCBSIOC1(RLCB),B'00100000' 0739 00803000 BNZ @RF00739 0739 00804000 L @11,LCBSTART-1(,RLCB) 0739 00805000 CLI CCWOPCDE(@11),X'03' 0739 00806000 BNE @RF00739 0739 00807000 * IF LCBOBRCH^=ZERO THEN/* ANY MDR RECORDS 0740 00808000 * @ZM07977*/ 00809000 L @11,LCBOBRCH(,RLCB) 0740 00810000 LTR @11,@11 0740 00811000 BZ @RF00740 0740 00812000 * DO; /* @ZM07977*/ 00813000 * LCBSOHR=ON;/* INDICATE MDR PROCESSING 0742 00814000 * @ZM07977*/ 00815000 OI LCBSOHR(RLCB),B'00100000' 0742 00816000 * RSTATE=ERP;/* YES, REQUEST ERP @ZM07977*/ 00817000 LA RSTATE,4 0743 00818000 * END; /* @ZM07977*/ 00819000 * ELSE 0745 00820000 * ; /* @ZM07977*/ 00821000 @RF00740 DS 0H 0746 00822000 * ELSE /* IT IS NOT CSW STORED ON NOP 0746 00823000 * @XM05727*/ 00824000 * RSTATE=ERP; /* REQUEST EXIT TO ERROR RECOVERY*/ 00825000 B @RC00739 0746 00826000 @RF00739 LA RSTATE,4 0746 00827000 * END; 0747 00828000 * ELSE /* NO CSW ERROR BITS SET */ 00829000 * IF LCBOBRCH^=ZERO THEN/* ANY MDR RECORDS */ 00830000 B @RC00718 0748 00831000 @RF00718 L @11,LCBOBRCH(,RLCB) 0748 00832000 LTR @11,@11 0748 00833000 BZ @RF00748 0748 00834000 * DO; /* @YM03744*/ 00835000 * LCBSOHR=ON; /* INDICATE MDR PROCESSING 0750 00836000 * @YM03744*/ 00837000 OI LCBSOHR(RLCB),B'00100000' 0750 00838000 * RSTATE=ERP; /* YES, REQUEST ERP */ 00839000 LA RSTATE,4 0751 00840000 * END; /* @YM03744*/ 00841000 * END; /* @YM08434*/ 00842000 @RF00748 DS 0H 0753 00843000 @RC00718 DS 0H 0754 00844000 * IF RSTATE=ERP /* IS ERP REQUESTED */ 00845000 * 0754 00846000 * /*********************************************************/ 00847000 * /* */ 00848000 * /* ERP IS REQUESTED */ 00849000 * /* */ 00850000 * /*********************************************************/ 00851000 * 0754 00852000 * THEN 0754 00853000 @RF00716 C RSTATE,@CF00257 0754 00854000 BE @RT00754 0754 00855000 * ; /* YES, NO PROCESSING */ 00856000 * ELSE 0756 00857000 * 0756 00858000 * /*******************************************************/ 00859000 * /* */ 00860000 * /* NO ERP IS REQUESTED */ 00861000 * /* */ 00862000 * /*******************************************************/ 00863000 * 0756 00864000 * IF TRMIPLDM=ON THEN /* IS IPL OR DUMP IN PROGRESS */ 00865000 * 0756 00866000 TM TRMIPLDM(RTRM),B'10000000' 0756 00867000 BNO @RF00756 0756 00868000 * /*****************************************************/ 00869000 * /* */ 00870000 * /* IPL OR DUMP IS IN PROGRESS */ 00871000 * /* */ 00872000 * /*****************************************************/ 00873000 * 0757 00874000 * DO; /* YES */ 00875000 * LCBQCBA=SAVTFLDH; /* QCB ADDRESS FOR POST @YM02949*/ 00876000 L @11,AVTSAVTP(,RAVT) 0758 00877000 MVC LCBQCBA(3,RLCB),SAVTFLDH+1(@11) 0758 00878000 * LCBPRI=PRIAIPL; /* AND PRIORITY @YM02949*/ 00879000 MVI LCBPRI(RLCB),X'DE' 0759 00880000 * RPRF=RLCB; /* PARAMETER TO POST @YM02949*/ 00881000 LR RPRF,RLCB 0760 00882000 * CALL READYQ; /* PUT ELEMENT ON DISABLED READY 00883000 * QUEUE */ 00884000 BAL @14,READYQ 0761 00885000 * END; 0762 00886000 * ELSE 0763 00887000 * 0763 00888000 * /*****************************************************/ 00889000 * /* */ 00890000 * /* NO IPL OR DUMP IN PROGRESS */ 00891000 * /* */ 00892000 * /*****************************************************/ 00893000 * 0763 00894000 * DO; 0763 00895000 * 0763 00896000 B @RC00756 0763 00897000 @RF00756 DS 0H 0764 00898000 * /***************************************************/ 00899000 * /* */ 00900000 * /* SET SLOWDOWN IF UNIT EXCEPTION ON A WRITE */ 00901000 * /* */ 00902000 * /***************************************************/ 00903000 * 0764 00904000 * RCCW=LCBCSWCA-LENGTH(IEDQCCW);/* POINT TO 0764 00905000 * INTERRUPTED CCW */ 00906000 L RCCW,LCBCSWCA-1(,RLCB) 0764 00907000 LA RCCW,0(,RCCW) 0764 00908000 SL RCCW,@CF00046 0764 00909000 * IF LCBUSUE=ON THEN/* UNIT EXCEPTION SET */ 00910000 TM LCBUSUE(RLCB),B'00000001' 0765 00911000 BNO @RF00765 0765 00912000 * IF CCWOPCDE=CCWWS0|/* YES, IS THIS */ 00913000 * CCWOPCDE=CCWWS1|/* ... A */ 00914000 * CCWOPCDE=CCWWRITE|/* ... WRITE */ 00915000 * CCWOPCDE=CCWBRK THEN/* ... OPERATION */ 00916000 CLI CCWOPCDE(RCCW),X'31' 0766 00917000 BE @RT00766 0766 00918000 CLI CCWOPCDE(RCCW),X'51' 0766 00919000 BE @RT00766 0766 00920000 CLI CCWOPCDE(RCCW),X'01' 0766 00921000 BE @RT00766 0766 00922000 CLI CCWOPCDE(RCCW),X'09' 0766 00923000 BNE @RF00766 0766 00924000 @RT00766 DS 0H 0767 00925000 * DO; /* @YM06060*/ 00926000 * TRMSLOWN=ON;/* YES ,SET SLOWDOWN */ 00927000 L @11,TRMSLOWN-3(,RTRM) 0768 00928000 @GL00027 LR @07,@11 0768 00929000 O @07,@CF03148 0768 00930000 CS @11,@07,TRMSLOWN-3(RTRM) 0768 00931000 BNE @GL00027 0768 00932000 * LCBRECVN=OFF;/* PREVENT READ BTU PROCESSING 00933000 * @YM06060*/ 00934000 * 0769 00935000 NI LCBRECVN(RLCB),B'11111101' 0769 00936000 * /*********************************************/ 00937000 * /* */ 00938000 * /* FORCE ATTENTION - NCP MUST BE READ BEFORE */ 00939000 * /* IT WILL BE ABLE TO RECEIVE THE ACTPU */ 00940000 * /* REQUEST @XM05839*/ 00941000 * /* */ 00942000 * /*********************************************/ 00943000 * 0770 00944000 * RFY 0770 00945000 * (REG7, 0770 00946000 * REG11) RSTD;/* @XM05839*/ 00947000 * GEN REFS(LCBBFRAV,CSMASK2,CSMASK3) SETS(REG7, 00948000 * REG11,LCBBFRAV); 0771 00949000 L REG11,LCBBFRAV-3(,RLCB) WORD CONTAINING BITS @XM05839 00950000 CSLOOP5 EQU * @XM05839 00951000 LR REG7,REG11 PREPARE WORK REG @XM05839 00952000 O REG7,CSMASK2 TURN ON LCBATTN @XM05839 00953000 O REG7,CSMASK3 TURN ON LCBBFRAV @XM05839 00954000 CS REG11,REG7,LCBBFRAV-3(RLCB) TURN ON IN LCB @XM05839 00955000 BNE CSLOOP5 DID NOT WORK @XM05839 00956000 * RFY 0772 00957000 * (REG7, 0772 00958000 * REG11) UNRSTD;/* @XM05839*/ 00959000 * END; /* @YM06060*/ 00960000 * IF LCBSENDN=ON THEN/* IS 'SENDING' SET */ 00961000 * 0774 00962000 @RF00766 DS 0H 0774 00963000 @RF00765 TM LCBSENDN(RLCB),B'00000001' 0774 00964000 BNO @RF00774 0774 00965000 * /*************************************************/ 00966000 * /* */ 00967000 * /* SENDING - THEN REBUILD THE WRITE BREAK. RPRF */ 00968000 * /* IS INITIALIZED FOR LATER REFERENCE TO POINT TO*/ 00969000 * /* THE UNIT THAT CONTAINS THE WRITE BREAK CCW IN */ 00970000 * /* ITS PREFIX. */ 00971000 * /* */ 00972000 * /*************************************************/ 00973000 * 0775 00974000 * DO; /* YES */ 00975000 * IF CCWOPCDE=CCWWS0|/* DO NOT FLIP WRITE START 00976000 * @YM09094*/ 00977000 * CCWOPCDE=CCWWS1 THEN 0776 00978000 CLI CCWOPCDE(RCCW),X'31' 0776 00979000 BE @RT00776 0776 00980000 CLI CCWOPCDE(RCCW),X'51' 0776 00981000 BE @RT00776 0776 00982000 * ; /* CODE IF INTERRUPT ON WRITE 0777 00983000 * START @YM09094*/ 00984000 * ELSE /* @YM09094*/ 00985000 * CPAWRTS=CPAWRTS&&FLIP;/* CHANGE THE WRITE 0778 00986000 * START VALUE */ 00987000 XI CPAWRTS(RLCB),X'60' 0778 00988000 * RPRF=CPAWRTBK;/* GET ADDR OF THE UNIT THAT 0779 00989000 * POINTS TO THE WRITE BREAK UNIT*/ 00990000 @RT00776 L RPRF,CPAWRTBK-1(,RLCB) 0779 00991000 LA RPRF,0(,RPRF) 0779 00992000 * RWORK=PRFTI0; /* GET ADDR OF PREFIX OF WRITE 0780 00993000 * BREAK UNIT */ 00994000 L @07,PRFTI0-1(,RPRF) 0780 00995000 LA @07,0(,@07) 0780 00996000 LR RWORK,@07 0780 00997000 * PRFTI0=PRFTI0+LENGTH(IEDQCCW);/* UPDATE THE 0781 00998000 * ADDR TO POINT TO THE UNIT 0781 00999000 * ITSELF */ 01000000 AL @07,@CF00046 0781 01001000 STCM @07,7,PRFTI0(RPRF) 0781 01002000 * RPRF=PRFTI0; /* POINT TO THE WRITE BREAK UNIT */ 01003000 LR RPRF,@07 0782 01004000 * RPRF->CCW=RWORK->CCW;/* MOVE WRITE BREAK CCW 0783 01005000 * INTO THE UNIT */ 01006000 MVC CCW(8,RPRF),CCW(RWORK) 0783 01007000 * PRFTIC=PRFINTIC;/* MAKE TIC ADDR INVALID */ 01008000 MVC PRFTIC(4,RPRF),@CB02426 0784 01009000 * LCBFSBFR=CPAWRTBF;/* SET FIRST WRITE BUFFER 0785 01010000 * @YM03709*/ 01011000 MVC LCBFSBFR(3,RLCB),CPAWRTBF(RLCB) 0785 01012000 * END; 0786 01013000 * IF LCBRECVN=ON THEN/* IS 'RECEIVING' SET */ 01014000 * 0787 01015000 @RF00774 TM LCBRECVN(RLCB),B'00000010' 0787 01016000 BNO @RF00787 0787 01017000 * /*************************************************/ 01018000 * /* */ 01019000 * /* RECEIVING IS SET */ 01020000 * /* */ 01021000 * /*************************************************/ 01022000 * 0788 01023000 * DO; /* YES */ 01024000 * IF(LCBUSUC=ON&/* CHECK FOR UNIT CHECK 0789 01025000 * ...@ZM46688 */ 01026000 * LCBABORT=ON) THEN/* .. WITH SENSE OF ABORT 01027000 * @ZM46688*/ 01028000 TM LCBUSUC(RLCB),B'00000010' 0789 01029000 BNO @RF00789 0789 01030000 TM LCBABORT(RLCB),B'00000001' 0789 01031000 BNO @RF00789 0789 01032000 * DO; /* NCP IS IN ANS @ZM46688*/ 01033000 * RFY 0791 01034000 * (REG7, 0791 01035000 * REG11) RSTD;/* RESTRICT REGISTERS FOR CS 01036000 * LOOP @YM04622*/ 01037000 * GEN REFS(LCBBFRAV,CSMASK3) SETS(REG7,REG11, 01038000 * LCBBFRAV); 0792 01039000 * /* @YM04622*/ 01040000 L REG11,LCBBFRAV-3(,RLCB) WORD CONTAINS LCBBFRAV @YM04622 01041000 CSLOOP4 EQU * @YM04622 01042000 LR REG7,REG11 COPY WORD TO UPDATE @YM04622 01043000 O REG7,CSMASK3 SET LCBBFRAV @YM04622 01044000 CS REG11,REG7,LCBBFRAV-3(RLCB) CS LCBBFRAV @YM04622 01045000 BNE CSLOOP4 LOOP IF CS FAILED @YM04622 01046000 * RFY 0793 01047000 * (REG7, 0793 01048000 * REG11) UNRSTD;/* @YM04622*/ 01049000 * LCBTSTSW=ZERO;/* FREE LCB FOR I/O */ 01050000 MVI LCBTSTSW(RLCB),X'00' 0794 01051000 * END; 0795 01052000 * ELSE /* CHEK FOR NULL READ @ZM47776*/ 01053000 * IF CCWOPCDE=CCWRS0|CCWOPCDE=CCWRS1 THEN/* 0796 01054000 * NULL READ @ZM47776*/ 01055000 B @RC00789 0796 01056000 @RF00789 CLI CCWOPCDE(RCCW),X'32' 0796 01057000 BE @RT00796 0796 01058000 CLI CCWOPCDE(RCCW),X'52' 0796 01059000 BNE @RF00796 0796 01060000 @RT00796 DS 0H 0797 01061000 * DO; 0797 01062000 * RFY 0798 01063000 * (REG7, 0798 01064000 * REG11) RSTD;/* RESTRICT FOR COMP SWAP 01065000 * @ZM47776*/ 01066000 * GEN REFS(LCBBFRAV,CSMASK3,CSMASK4,CSMASK5) 01067000 * SETS(REG7,REG11,LCBBFRAV); 0799 01068000 * /* @ZM47776*/ 01069000 L REG11,LCBBFRAV-3(RLCB) WORD CONTAINS BITS @ZM47776 01070000 CSLOOP6 LR REG7,REG11 COPY WORD TO UPDATE @ZM47776 01071000 O REG7,CSMASK3 SET LCBBFRAV @ZM47776 01072000 O REG7,CSMASK5 SET LCBFREEN @ZM47776 01073000 N REG7,CSMASK4 TURN OFF LCBRECVN @ZM47776 01074000 CS REG11,REG7,LCBBFRAV-3(RLCB) CS LCBBFRAV @ZM47776 01075000 BNE CSLOOP6 TRY AGAIN @ZM47776 01076000 * RFY 0800 01077000 * (REG7, 0800 01078000 * REG11) UNRSTD;/* @ZM47776*/ 01079000 * LCBTSTSW=ZERO;/* FREE LCB FOR I/O 0801 01080000 * @ZM47776*/ 01081000 MVI LCBTSTSW(RLCB),X'00' 0801 01082000 * END; /* END NULL READ @ZM47776*/ 01083000 * ELSE /* NORMAL PROCESSING @ZM47776*/ 01084000 * IF LCBSENDN=ON&/* IS 'SENDING' SET AND ... */ 01085000 * RCCW=RPRF THEN/* ... WAS INTERRUPT ON 01086000 * NO-OP IN WRITE BREAK */ 01087000 * 0803 01088000 B @RC00796 0803 01089000 @RF00796 TM LCBSENDN(RLCB),B'00000001' 0803 01090000 BNO @RF00803 0803 01091000 CR RCCW,RPRF 0803 01092000 BNE @RF00803 0803 01093000 * /*****************************************/ 01094000 * /* */ 01095000 * /* INTERRUPT WAS ON THE NO-OP OF THE */ 01096000 * /* WRITE BREAK UNIT. IN THE 'REBUILD */ 01097000 * /* WRITE BREAK' CODE, RPRF WAS SET TO */ 01098000 * /* POINT TO THE UNIT THAT CONTAINS THE */ 01099000 * /* WRITE BREAK CCW. */ 01100000 * /* */ 01101000 * /*****************************************/ 01102000 * 0804 01103000 * DO; /* @YM04622*/ 01104000 * RFY 0805 01105000 * (REG7, 0805 01106000 * REG11) RSTD;/* RESTRICT REGISTERS FOR 01107000 * CS LOOP @YM04622*/ 01108000 * GEN REFS(LCBBFRAV,CSMASK3) SETS(REG7, 01109000 * REG11,LCBBFRAV); 0806 01110000 * /* @YM04622*/ 01111000 L REG11,LCBBFRAV-3(,RLCB) WORD CONTAINS LCBBFRAV @YM04622 01112000 CSLOOP3 EQU * @YM04622 01113000 LR REG7,REG11 COPY WORD TO UPDATE @YM04622 01114000 O REG7,CSMASK3 SET LCBBFRAV @YM04622 01115000 CS REG11,REG7,LCBBFRAV-3(RLCB) CS LCBBFRAV @YM04622 01116000 BNE CSLOOP3 LOOP IF CS FAILED @YM04622 01117000 * RFY 0807 01118000 * (REG7, 0807 01119000 * REG11) UNRSTD;/* @YM04622*/ 01120000 * END; /* @YM04622*/ 01121000 * ELSE 0809 01122000 * 0809 01123000 * /*****************************************/ 01124000 * /* */ 01125000 * /* INTERRUPT NOT ON WRITE BREAK NO-OP */ 01126000 * /* */ 01127000 * /*****************************************/ 01128000 * 0809 01129000 * DO; 0809 01130000 B @RC00803 0809 01131000 @RF00803 DS 0H 0810 01132000 * IF CCWCOUNT=LCBCSWRC&/* DOES ORIGINAL 01133000 * COUNT IN CCW EQUAL THE 0810 01134000 * RESIDUAL COUNT IN THE CSW ... */ 01135000 * CCWOPCDE=CCWREAD THEN/* ... FOR A 01136000 * READ CCW */ 01137000 * 0810 01138000 LH @11,LCBCSWRC(,RLCB) 0810 01139000 N @11,@CF03140 0810 01140000 ICM @07,12,CCWCOUNT(RCCW) 0810 01141000 SRA @07,16 0810 01142000 CR @11,@07 0810 01143000 BNE @RF00810 0810 01144000 CLI CCWOPCDE(RCCW),X'02' 0810 01145000 BNE @RF00810 0810 01146000 * /*************************************/ 01147000 * /* */ 01148000 * /* INTERRUPTED READ CCW CONTAINS NO */ 01149000 * /* DATA. UPDATE CSW SO THAT PREVIOUS */ 01150000 * /* READ APPEARS TO BE INTERRUPTED */ 01151000 * /* CCW. */ 01152000 * /* */ 01153000 * /*************************************/ 01154000 * 0811 01155000 * DO; /* YES */ 01156000 * RWORK=CPARDU;/* GET ADDRESS OF 1ST 01157000 * READ */ 01158000 L RWORK,CPARDU-1(,RLCB) 0812 01159000 LA RWORK,0(,RWORK) 0812 01160000 * DO UNTIL LCBCSWRC=ZERO;/* LOOP 0813 01161000 * THROUGH READS UNTIL CCW THAT 01162000 * PRECEEDS THE INTERRUPTED ONE 01163000 * IS FOUND */ 01164000 @DL00813 DS 0H 0814 01165000 * IF RCCW=RWORK->PRFTI0 THEN/* DOES 01166000 * THIS UNIT TIC TO THE 0814 01167000 * INTERRUPTED CCW */ 01168000 L @11,PRFTI0-1(,RWORK) 0814 01169000 LA @11,0(,@11) 0814 01170000 CR RCCW,@11 0814 01171000 BNE @RF00814 0814 01172000 * DO;/* YES */ 01173000 * LCBCSWCA=RWORK+LENGTH(IEDQCCW); 01174000 LA @11,8 0816 01175000 ALR @11,RWORK 0816 01176000 STCM @11,7,LCBCSWCA(RLCB) 0816 01177000 * /* UPDATE CSW TO POINT TO CCW 01178000 * AFTER LAST EXECUTED READ CCW */ 01179000 * RCCW=RWORK;/* SAVE NEW 0817 01180000 * INTERRUPTED CCW ADDRESS */ 01181000 LR RCCW,RWORK 0817 01182000 * LCBCSWRC=ZERO;/* CLEAR RESIDUAL 01183000 * COUNT */ 01184000 SLR @11,@11 0818 01185000 STH @11,LCBCSWRC(,RLCB) 0818 01186000 * END; 0819 01187000 * ELSE 0820 01188000 * RWORK=RWORK->PRFTI0;/* POINT TO 01189000 * NEXT UNIT */ 01190000 B @RC00814 0820 01191000 @RF00814 L @11,PRFTI0-1(,RWORK) 0820 01192000 LA @11,0(,@11) 0820 01193000 LR RWORK,@11 0820 01194000 * END; 0821 01195000 @RC00814 DS 0H 0821 01196000 @DE00813 LH @11,LCBCSWRC(,RLCB) 0821 01197000 N @11,@CF03140 0821 01198000 LTR @11,@11 0821 01199000 BNZ @DL00813 0821 01200000 * END; 0822 01201000 * CPARDS=CPARDS&&FLIP;/* CHANGE THE READ 01202000 * START VALUE */ 01203000 @RF00810 XI CPARDS(RLCB),X'60' 0823 01204000 * IF LCBSENDN=ON THEN/* IS 'SENDING' SET */ 01205000 * 0824 01206000 TM LCBSENDN(RLCB),B'00000001' 0824 01207000 BNO @RF00824 0824 01208000 * /*************************************/ 01209000 * /* */ 01210000 * /* 'SENDING' IS SET. IN THE 'REBUILD */ 01211000 * /* WRITE BREAK' CODE, RPRF WAS SET TO*/ 01212000 * /* POINT TO THE UNIT THAT CONTAINS */ 01213000 * /* THE WRITE BREAK CCW. */ 01214000 * /* */ 01215000 * /*************************************/ 01216000 * 0825 01217000 * PRFTI0=CPARDU;/* TIC THE WRITE BREAK 01218000 * UNIT TO THE 1ST READ UNIT */ 01219000 MVC PRFTI0(3,RPRF),CPARDU(RLCB) 0825 01220000 * ELSE 0826 01221000 * 0826 01222000 * /*************************************/ 01223000 * /* */ 01224000 * /* 'SENDING' IS NOT SET */ 01225000 * /* */ 01226000 * /*************************************/ 01227000 * 0826 01228000 * LCBFSBFR=CPARDU;/* POINT TO FIRST 0826 01229000 * READ UNIT */ 01230000 B @RC00824 0826 01231000 @RF00824 MVC LCBFSBFR(3,RLCB),CPARDU(RLCB) 0826 01232000 * IF CCWOPCDE=CCWREAD THEN/* WAS 0827 01233000 * INTERRUPTED CCW A READ */ 01234000 @RC00824 CLI CCWOPCDE(RCCW),X'02' 0827 01235000 BNE @RF00827 0827 01236000 * DO; /* YES */ 01237000 * LCBRDBFR=RCCW->PRFTI0;/* SAVE NEXT 01238000 * AVAILABLE READ UNIT */ 01239000 MVC LCBRDBFR(3,RLCB),PRFTI0(RCCW) 0829 01240000 * RCCW->PRFTIC=PRFINTIC;/* SET 0830 01241000 * INVALID TIC */ 01242000 MVC PRFTIC(4,RCCW),@CB02426 0830 01243000 * IF TRMINPG=ON THEN/* ARE WE IN 0831 01244000 * ACTIVATE/DEACT PROCESS 0831 01245000 * @ZM47844*/ 01246000 TM TRMINPG(RTRM),B'00100000' 0831 01247000 BNO @RF00831 0831 01248000 * TRMSLOWN=OFF;/* TURN OFF SLOWDOWN 01249000 * IF ON @ZM47844*/ 01250000 L @11,TRMSLOWN-3(,RTRM) 0832 01251000 @GL00033 LR @07,@11 0832 01252000 N @07,@CF03153 0832 01253000 CS @11,@07,TRMSLOWN-3(RTRM) 0832 01254000 BNE @GL00033 0832 01255000 * ELSE 0833 01256000 * ;/* LEAVE SLOWDOWN ALONE @ZM47844*/ 01257000 @RF00831 DS 0H 0834 01258000 * END; 0834 01259000 * ELSE /* @YM03710*/ 01260000 * DO; /* @YM03710*/ 01261000 B @RC00827 0835 01262000 @RF00827 DS 0H 0836 01263000 * RWORK=LCBRDBFR;/* GET ADDR OF 1ST 01264000 * READ UNIT @YM03710*/ 01265000 L RWORK,LCBRDBFR-1(,RLCB) 0836 01266000 LA RWORK,0(,RWORK) 0836 01267000 * DO UNTIL RWORK->PRFTI0=ADDR(CPARNOOP) 01268000 * ;/* SCAN READ CHAIN UNTIL 0837 01269000 * LAST UNIT IS FOUND */ 01270000 @DL00837 DS 0H 0838 01271000 * RWORK=RWORK->PRFTI0;/* GET ADDR 01272000 * OF NEXT UNIT */ 01273000 L @11,PRFTI0-1(,RWORK) 0838 01274000 LA @11,0(,@11) 0838 01275000 LR RWORK,@11 0838 01276000 * END; 0839 01277000 @DE00837 LA @11,CPARNOOP(,RLCB) 0839 01278000 L @07,PRFTI0-1(,RWORK) 0839 01279000 LA @07,0(,@07) 0839 01280000 CR @11,@07 0839 01281000 BNE @DL00837 0839 01282000 * RWORK->PRFTIC=PRFINTIC;/* END THE 01283000 * READ CHAIN WITH AN INVALID TIC*/ 01284000 MVC PRFTIC(4,RWORK),@CB02426 0840 01285000 * LCBRDBFR=ADDR(CPARNOOP);/* POINT 0841 01286000 * START OF READ CHANNEL PROGRAM 01287000 * TO THE NO-OP CCW */ 01288000 STCM @11,7,LCBRDBFR(RLCB) 0841 01289000 * END; 0842 01290000 * END; 0843 01291000 * END; /* @YM03694*/ 01292000 * ELSE 0845 01293000 * 0845 01294000 * /*************************************************/ 01295000 * /* */ 01296000 * /* RECEIVING WAS NOT SET */ 01297000 * /* */ 01298000 * /*************************************************/ 01299000 * 0845 01300000 * IF RCCW=ADDR(CPAWNOOP) THEN/* WAS STATUS MODIFIER 01301000 * RECEIVED */ 01302000 B @RC00787 0845 01303000 @RF00787 LA @11,CPAWNOOP(,RLCB) 0845 01304000 CR RCCW,@11 0845 01305000 BNE @RF00845 0845 01306000 * DO; /* @YM04622*/ 01307000 * RFY 0847 01308000 * (REG7, 0847 01309000 * REG11) RSTD;/* RESTRICT REGISTERS FOR CS 0847 01310000 * LOOP @YM04622*/ 01311000 * GEN REFS(LCBATTN,CSMASK2) SETS(REG7,REG11, 0848 01312000 * LCBATTN); 0848 01313000 * /* @YM04622*/ 01314000 L REG11,LCBATTN-3(,RLCB) WORD CONTAINS LCBATTN @YM04622 01315000 CSLOOP2 EQU * @YM04622 01316000 LR REG7,REG11 COPY WORD TO UPDATE @YM04622 01317000 O REG7,CSMASK2 SET LCBATTN @YM04622 01318000 CS REG11,REG7,LCBATTN-3(RLCB) CS LCBATTN @YM04622 01319000 BNE CSLOOP2 LOOP IF CS FAILED @YM04622 01320000 * RFY 0849 01321000 * (REG7, 0849 01322000 * REG11) UNRSTD;/* @YM04622*/ 01323000 * END; /* @YM04622*/ 01324000 * 0851 01325000 * /***************************************************/ 01326000 * /* */ 01327000 * /* POST BTU TO FLDH */ 01328000 * /* */ 01329000 * /***************************************************/ 01330000 * 0851 01331000 * IF LCBFSBFR^=ZERO THEN/* CHECK FOR BTU TO POST */ 01332000 @RF00845 DS 0H 0851 01333000 @RC00787 L @11,LCBFSBFR-1(,RLCB) 0851 01334000 LA @11,0(,@11) 0851 01335000 LTR @11,@11 0851 01336000 BZ @RF00851 0851 01337000 * DO; 0852 01338000 * RPRF=LCBFSBFR;/* GET ADDR OF BTU */ 01339000 LR RPRF,@11 0853 01340000 * RCCW=RPRF-LENGTH(IEDQCCW);/* POINT TO NEGATIVE 01341000 * PREFIX OF UNIT CONTAINING THE 01342000 * BTU */ 01343000 LR @11,RPRF 0854 01344000 SL @11,@CF00046 0854 01345000 LR RCCW,@11 0854 01346000 * IEDQCCW=RPRF->IEDQCCW;/* MOVE THE CCW OF THE 0855 01347000 * 1ST UNIT TO THE NEGATIVE 0855 01348000 * PREFIX */ 01349000 MVC IEDQCCW(8,RCCW),IEDQCCW(RPRF) 0855 01350000 * PRFQCBA=SAVTFLDH;/* QUEUE FOR FLDH */ 01351000 L @07,AVTSAVTP(,RAVT) 0856 01352000 MVC PRFQCBA(3,RPRF),SAVTFLDH+1(@07) 0856 01353000 * PRFPRI=PRIFLDH;/* SET PRIORITY */ 01354000 MVI PRFPRI(RPRF),X'E4' 0857 01355000 * PRF1WD2=RLCB; /* SAVE 3705 LCB ADDR @ZM48011*/ 01356000 ST RLCB,PRF1WD2(,@11) 0858 01357000 * CALL READYQ; /* PUT ELEMENT ON DISABLED READY 01358000 * QUEUE */ 01359000 BAL @14,READYQ 0859 01360000 * END; 0860 01361000 * END; /* END OF 'NOT A SENSE' */ 01362000 @RF00851 DS 0H 0862 01363000 * END; /* END OF 'NO IPL OR DUMP IN 0862 01364000 * PROGRESS' */ 01365000 @RC00756 DS 0H 0862 01366000 @RT00754 DS 0H 0863 01367000 * END; /* END OF 'NOT PERMANENT ERROR ON 01368000 * I/O' */ 01369000 @RC00663 DS 0H 0864 01370000 * RFY 0864 01371000 * (RCCW, 0864 01372000 * RPRF, 0864 01373000 * RWORK) UNRSTD; 0864 01374000 @RC00649 DS 0H 0865 01375000 * 0865 01376000 * /*****************************************************************/ 01377000 * /* */ 01378000 * /* POST THE MCP IF REQUESTED */ 01379000 * /* */ 01380000 * /*****************************************************************/ 01381000 * 0865 01382000 * IF RSTATE=MCPPOST THEN /* IS MCP POST REQUESTED */ 01383000 C RSTATE,@CF00046 0865 01384000 BNE @RF00865 0865 01385000 * DO; /* POST MCP'S ECB IF NEEDED */ 01386000 * RFY 0867 01387000 * RECB RSTD; 0867 01388000 * RECB=ADDR(AVTOSECB); /* GET ADDR OF MCP'S ECB */ 01389000 LA RECB,AVTOSECB(,RAVT) 0868 01390000 * IF ECBWAIT=ON THEN /* TCAM WAITING @OZ26735*/ 01391000 TM ECBWAIT(RECB),B'10000000' 0869 01392000 BNO @RF00869 0869 01393000 * CALL POSTECB; /* YES, POST THE ECB */ 01394000 BAL @14,POSTECB 0870 01395000 * ELSE 0871 01396000 * DO; /* @OZ27465*/ 01397000 B @RC00869 0871 01398000 @RF00869 DS 0H 0872 01399000 * RECB=AVTOSECB; /* LOAD ECB @OZ29080*/ 01400000 L RECB,AVTOSECB(,RAVT) 0872 01401000 * REG4='40000000'X; /* POST BIT FOR C&S @OZ27465*/ 01402000 L REG4,@CF03098 0873 01403000 * CS(RECB,REG4,AVTOSECB); /* POST ECB VIA C&S @OZ27465*/ 01404000 CS RECB,@04,AVTOSECB(RAVT) 0874 01405000 * BC(8,NOPOST); /* C&S GOOD,NO POST @OZ27465*/ 01406000 BC 8,NOPOST 0875 01407000 * RECB=ADDR(AVTOSECB); /* LOAD ADDRESS ECB @OZ29080*/ 01408000 LA RECB,AVTOSECB(,RAVT) 0876 01409000 * CALL POSTECB; /* POST ECB @OZ27465*/ 01410000 BAL @14,POSTECB 0877 01411000 *NOPOST: /* @OZ27465*/ 01412000 * END; /* @OZ27465*/ 01413000 NOPOST DS 0H 0879 01414000 * RFY 0879 01415000 * RECB UNRSTD; 0879 01416000 @RC00869 DS 0H 0880 01417000 * END; 0880 01418000 * 0881 01419000 * /*****************************************************************/ 01420000 * /* */ 01421000 * /* EXIT CODE */ 01422000 * /* */ 01423000 * /*****************************************************************/ 01424000 * 0881 01425000 * RFY 0881 01426000 * RRETURN RSTD; 0881 01427000 @RF00865 DS 0H 0882 01428000 * IOSTSLL=ON; /* DONT WANT LOCK FOR TERM 0882 01429000 * ROUTINE @ZM46596*/ 01430000 L @15,IOSBPTR-1(,RLCB) 0882 01431000 LA @15,0(,@15) 0882 01432000 OI IOSTSLL(@15),B'00000100' 0882 01433000 * IOSOPT2=OFF; /* CLEAR OPT2 BYTE @ZM46596*/ 01434000 MVI IOSOPT2(@15),B'00000000' 0883 01435000 * IF RSTATE=ERP THEN /* IS ERP REQUESTED */ 01436000 C RSTATE,@CF00257 0884 01437000 BNE @RF00884 0884 01438000 * IOSEX=ON; /* YES, SET EXCEPTION FLAG 0885 01439000 * @G36XRIB*/ 01440000 OI IOSEX(@15),B'00000100' 0885 01441000 * ELSE /* NO ERP REQUESTED */ 01442000 * IOSEX=OFF; /* CLEAR EXCEPTION FLAG IF ON 0886 01443000 * @ZM46596*/ 01444000 B @RC00884 0886 01445000 @RF00884 L @15,IOSBPTR-1(,RLCB) 0886 01446000 NI IOSEX(@15),B'11111011' 0886 01447000 SPACE 1 01448000 * LM(REG0,RBRANCH,SIOSAVE); /* REST REGS SAVED FOR IOS 0887 01449000 * @ZM47611*/ 01450000 @RC00884 LM REG0,RBRANCH,SIOSAVE 0887 01451000 * RFY 0888 01452000 * RRETURN UNRSTD; 0888 01453000 * 0889 01454000 * /*****************************************************************/ 01455000 * /* */ 01456000 * /* INTENTIONAL PROGRAM CHECK DUE TO ERROR RETURN FROM REAL TO */ 01457000 * /* VIRTUAL ADDRESS TRANSLATION ROUTINE. */ 01458000 * /* */ 01459000 * /*****************************************************************/ 01460000 * 0889 01461000 *CONVERR: 0889 01462000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0889 01463000 @EL00001 DS 0H 0889 01464000 @EF00001 DS 0H 0889 01465000 @ER00001 BR @14 0889 01466000 CONVERR DS 0H 0890 01467000 * GEN NOREFS NOSETS NOEXIT SEQFLOW; 0890 01468000 DC H'0' 01469000 * END CONVERR; 0891 01470000 @EL00002 DS 0H 0891 01471000 @EF00002 DS 0H 0891 01472000 @ER00002 BR @14 0891 01473000 * 0892 01474000 * /*****************************************************************/ 01475000 * /* */ 01476000 * /* USE BRANCH ENTRY POINT OF SYSTEM POST TO POST THE ECB */ 01477000 * /* ADDRESSED BY RECB. */ 01478000 * /* */ 01479000 * /*****************************************************************/ 01480000 * 0892 01481000 *POSTECB: 0892 01482000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0892 01483000 POSTECB DS 0H 0893 01484000 * RFY 0893 01485000 * (REG3, 0893 01486000 * RECB, 0893 01487000 * RTCB, 0893 01488000 * RRETURN, 0893 01489000 * REG4, 0893 01490000 * REG7, 0893 01491000 * RWORK) RSTD; /* @G36XRIB*/ 01492000 * REG4=RRETURN; /* SAVE RETURN ADDRESS */ 01493000 LR REG4,RRETURN 0894 01494000 * REG7=RAVT; /* SAVE AVT ADDR ACROSS CALL 0895 01495000 * @YM02922*/ 01496000 LR REG7,RAVT 0895 01497000 * REG3=RBASE; /* SAVE BASE REGISTER */ 01498000 LR REG3,RBASE 0896 01499000 * RFY 0897 01500000 * RRETURN UNRSTD; 0897 01501000 * 0897 01502000 * /*****************************************************************/ 01503000 * /* */ 01504000 * /* CALL BRANCH ENTRY POINT OF POST WITH FOLLOWING INPUT - */ 01505000 * /* REG11=ADDR OF ECB, REG10=COMPLETION CODE, R14=RETURN ADDR, AND*/ 01506000 * /* REG15=ADDR OF POST ROUTINE. @G36XRIB*/ 01507000 * /* */ 01508000 * /*****************************************************************/ 01509000 * 0898 01510000 * RWORK=0; /* 0 COMPLETION CODE IN REG 10 0898 01511000 * @G36XRIB*/ 01512000 SLR RWORK,RWORK 0898 01513000 * CALL POST; /* BRANCH TO SYSTEM POST */ 01514000 L @06,CVTPTR 0899 01515000 L @15,CVT0PT01(,@06) 0899 01516000 BALR @14,@15 0899 01517000 * RBASE=REG3; /* RESTORE BASE ADDRESS */ 01518000 LR RBASE,REG3 0900 01519000 * RFY 0901 01520000 * RRETURN RSTD; 0901 01521000 * RRETURN=REG4; /* RESTORE RETURN ADDRESS */ 01522000 LR RRETURN,REG4 0902 01523000 * RAVT=REG7; /* RESTORE AVT ADDRESS @YM02922*/ 01524000 LR RAVT,REG7 0903 01525000 * RFY 0904 01526000 * (REG3, 0904 01527000 * RECB, 0904 01528000 * RTCB, 0904 01529000 * RRETURN, 0904 01530000 * REG4, 0904 01531000 * REG7, 0904 01532000 * RWORK) UNRSTD; /* @G36XRIB*/ 01533000 * END POSTECB; 0905 01534000 @EL00003 DS 0H 0905 01535000 @EF00003 DS 0H 0905 01536000 @ER00003 BR @14 0905 01537000 * 0906 01538000 * /*****************************************************************/ 01539000 * /* */ 01540000 * /* SUBROUTINE TO PLACE ELEMENT ON ASYNCHRONOUS READY QUEUE. RPRF */ 01541000 * /* CONTAINS THE ADDRESS OF THE ELEMENT. RWORK AND RBRANCH ARE */ 01542000 * /* USED AS WORK REGISTERS. */ 01543000 * /* */ 01544000 * /*****************************************************************/ 01545000 * 0906 01546000 *READYQ: 0906 01547000 * PROC OPTIONS(NOSAVEAREA,NOSAVE); 0906 01548000 READYQ DS 0H 0907 01549000 * DCL 0907 01550000 * TRYAGAIN LABEL; /* LABEL NEEDED FOR CS ON 0907 01551000 * TCXREADY */ 01552000 * RFY 0908 01553000 * (RRETURN, 0908 01554000 * RPRF, 0908 01555000 * RWORK, 0908 01556000 * RBRANCH) RSTD; 0908 01557000 * RFY 0909 01558000 * IEDQTCXD BASED(RBRANCH); /* CHANGE BASE FOR TCX */ 01559000 * RBRANCH=CVTAQAVT; /* GET TCX ADDRESS */ 01560000 L @11,CVTPTR 0910 01561000 L RBRANCH,CVTAQAVT(,@11) 0910 01562000 * RWORK=TCXREADY; /* GET TOP ELEMENT ON 0911 01563000 * ASYNCHRONOUS READY QUEUE */ 01564000 L RWORK,TCXREADY(,RBRANCH) 0911 01565000 *TRYAGAIN: 0912 01566000 * PRFLINK=RWORK; /* LINK ELEMENT TO 1ST ON READY 01567000 * QUEUE */ 01568000 TRYAGAIN STCM RWORK,7,PRFLINK(RPRF) 0912 01569000 * CS(RWORK,RPRF,TCXREADY); /* PUT ELEMENT AS TOP ON READY 0913 01570000 * QUEUE */ 01571000 CS RWORK,@06,TCXREADY(RBRANCH) 0913 01572000 * BC(NE,TRYAGAIN); /* IF QUEUE WAS UPDATED 0914 01573000 * ASYNCHRONOUSLY, THEN TRY AGAIN*/ 01574000 BC 7,TRYAGAIN 0914 01575000 * RSTATE=MCPPOST; /* REQUEST MCP POST */ 01576000 LA RSTATE,8 0915 01577000 * RFY 0916 01578000 * IEDQTCXD BASED(TCXPTR); /* RESET BASE FOR TCX */ 01579000 * RFY 0917 01580000 * (RRETURN, 0917 01581000 * RPRF, 0917 01582000 * RWORK, 0917 01583000 * RBRANCH) UNRSTD; 0917 01584000 * END READYQ; 0918 01585000 @EL00004 DS 0H 0918 01586000 @EF00004 DS 0H 0918 01587000 @ER00004 BR @14 0918 01588000 * 0919 01589000 * /*****************************************************************/ 01590000 * /* */ 01591000 * /* SECONDARY ENTRY POINT - SIO APPENDAGE */ 01592000 * /* */ 01593000 * /*****************************************************************/ 01594000 * 0919 01595000 *SIOAPNDG: 0919 01596000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0919 01597000 SIOAPNDG DS 0H 0920 01598000 * GEN NOEXIT NOFLOWS SEQFLOW NOREFS NOSETS; 0920 01599000 USING SIOAPNDG,RBRANCH SIOAPNDG ADDRESSABILITY 01600000 * RFY 0921 01601000 * (REG0, 0921 01602000 * RPARM, 0921 01603000 * RLCB, 0921 01604000 * REG3, 0921 01605000 * REG4, 0921 01606000 * RCCW, 0921 01607000 * RPRF, 0921 01608000 * REG7, 0921 01609000 * RTRM) RSTD; 0921 01610000 * RFY 0922 01611000 * (REG9, 0922 01612000 * RWORK, 0922 01613000 * RVIRT, 0922 01614000 * RBASE, 0922 01615000 * RAVT, 0922 01616000 * RRETURN, 0922 01617000 * RBRANCH) RSTD; /* @YM04622*/ 01618000 * 0923 01619000 * /*****************************************************************/ 01620000 * /* */ 01621000 * /* IF THE CCW'S ARE VIRTUAL, THEN TRANSLATE THE CCW'S TO REAL */ 01622000 * /* ADDRESSES. REGISTERS ON ENTRY HERE CONTAIN: R1-ADDR OF IOSB, */ 01623000 * /* R14-RETURN ADDRESS, R15-SIO APPENDAGE ENTRY ADDRESS @G36XRIB*/ 01624000 * /* */ 01625000 * /*****************************************************************/ 01626000 * 0923 01627000 * STM(REG0,RBRANCH,SIOSAVE); /* SAVE CALLERS REGISTERS 0923 01628000 * @G36XRIB*/ 01629000 STM REG0,RBRANCH,SIOSAVE 0923 01630000 * RFY 0924 01631000 * (REG3, 0924 01632000 * REG4, 0924 01633000 * REG7, 0924 01634000 * REG9) UNRSTD; /* GIVE PLS SOME REGISTERS 0924 01635000 * @YM06506*/ 01636000 * RLCB=RPARM->IOSUSE; /* GET ADDRESS OF THE LCB 0925 01637000 * @G36XRIB*/ 01638000 L RLCB,IOSUSE(,RPARM) 0925 01639000 * GEN REFS(LCBATTN,CSMASK1) SETS(RPARM,RWORK,LCBATTN); 0926 01640000 * /* @YM07757*/ 01641000 L RWORK,LCBATTN-3(,RLCB) WORD CONTAINS LCBATTN @YM07757 01642000 CSLOOP1 EQU * @YM07757 01643000 LR RPARM,RWORK COPY WORD TO UPDATE @YM07757 01644000 N RPARM,CSMASK1 RESET LCBATTN @YM07757 01645000 CS RWORK,RPARM,LCBATTN-3(RLCB) CS LCBATTN @YM07757 01646000 BNE CSLOOP1 LOOP IF CS FAILED @YM07757 01647000 * RAVT=TCXAVT; /* GET TCAM AVT ADDRESS @YM06506*/ 01648000 L @07,CVTPTR 0927 01649000 L @07,TCXPTR(,@07) 0927 01650000 L RAVT,TCXAVT(,@07) 0927 01651000 * RPARM=LCBTTCIN; /* PARAMETER TO IEDQTNT @YM04622*/ 01652000 LH RPARM,LCBTTCIN(,RLCB) 0928 01653000 N RPARM,@CF03140 0928 01654000 * RWORK=RBRANCH; /* SAVE REGISTER 15 CONTENTS 0929 01655000 * @YM06506*/ 01656000 LR RWORK,RBRANCH 0929 01657000 * CALL TNTCODE; /* GET TTE ADDRESS @YM04622*/ 01658000 L @15,IEDQNPTR(,RAVT) 0930 01659000 BALR @14,@15 0930 01660000 * RBRANCH=RWORK; /* RESTORE REGISTER 15 CONTENTS 01661000 * @YM06506*/ 01662000 LR RBRANCH,RWORK 0931 01663000 * RTRM=RPARM-LENGTH(IEDNTRM); /* GET TTE PREFIX @YM04622*/ 01664000 LR RTRM,RPARM 0932 01665000 SL RTRM,@CF00036 0932 01666000 * IF LCBREAL=OFF& /* IF 'PERMANENT' CCWS IN THE LCB 01667000 * HAVE NOT BEEN TRANSLATED TO 0933 01668000 * REAL ... @YM04622*/ 01669000 * TRMIPLDM=OFF& /* ... AND IPL/DUMP IS NOT IN 0933 01670000 * PROGRESS ... @YM04622*/ 01671000 * LCBSTAT1^=CLOSDOWN THEN /* ... AND NOT CLOSE CHAN PROG 0933 01672000 * THEN @YM04622*/ 01673000 TM LCBREAL(RLCB),B'00000100' 0933 01674000 BNZ @RF00933 0933 01675000 TM TRMIPLDM(RTRM),B'10000000' 0933 01676000 BNZ @RF00933 0933 01677000 CLI LCBSTAT1(RLCB),X'FF' 0933 01678000 BE @RF00933 0933 01679000 * DO; /* ... TRANSLATE LCB CCWS 0934 01680000 * @YM04622*/ 01681000 * RCCW=ADDR(LCBCCW1); /* POINT TO WRITE START CCW 0935 01682000 * @YM04622*/ 01683000 LA RCCW,LCBCCW1(,RLCB) 0935 01684000 * GEN(LRA RWORK,0(,RCCW)); /* TRANSLATE TO REAL @YM06506*/ 01685000 LRA RWORK,0(,RCCW) 01686000 * CCWADDR=RWORK; /* SAVE REAL ADDRESS @YM06506*/ 01687000 STCM RWORK,7,CCWADDR(RCCW) 0937 01688000 * RCCW=ADDR(LCBCCW3); /* POINT TO READ START CCW 0938 01689000 * @YM04622*/ 01690000 LA RCCW,LCBCCW3(,RLCB) 0938 01691000 * GEN(LRA RWORK,0(,RCCW)); /* TRANSLATE TO REAL @YM06506*/ 01692000 LRA RWORK,0(,RCCW) 01693000 * CCWADDR=RWORK; /* SAVE REAL ADDRESS @YM06506*/ 01694000 STCM RWORK,7,CCWADDR(RCCW) 0940 01695000 * RCCW=ADDR(LCBCCW6); /* POINT TO NO-OP AFTER WRITES 0941 01696000 * @YM04622*/ 01697000 LA RCCW,LCBCCW6(,RLCB) 0941 01698000 * GEN(LRA RWORK,0(,RCCW)); /* TRANSLATE TO REAL @YM06506*/ 01699000 LRA RWORK,0(,RCCW) 01700000 * CCWADDR=RWORK; /* SAVE REAL ADDRESS @YM06506*/ 01701000 STCM RWORK,7,CCWADDR(RCCW) 0943 01702000 * RCCW=ADDR(LCBCCW7); /* POINT TO NO-OP AFTER READS 0944 01703000 * @YM04622*/ 01704000 LA RCCW,LCBCCW7(,RLCB) 0944 01705000 * GEN(LRA RWORK,0(,RCCW)); /* TRANSLATE TO REAL @YM06506*/ 01706000 LRA RWORK,0(,RCCW) 01707000 * CCWADDR=RWORK; /* SAVE REAL ADDRESS @YM06506*/ 01708000 STCM RWORK,7,CCWADDR(RCCW) 0946 01709000 * LCBREAL=ON; /* INDICATE LCB CCWS ARE NOW REAL 01710000 * @YM04622*/ 01711000 OI LCBREAL(RLCB),B'00000100' 0947 01712000 * END; /* @YM04622*/ 01713000 * IF LCBRLAD=OFF THEN /* IF CCWS HAVE NOT BEEN 0949 01714000 * TRANSLATED THEN ... @YM04622*/ 01715000 @RF00933 TM LCBRLAD(RLCB),B'00010000' 0949 01716000 BNZ @RF00949 0949 01717000 * DO; /* HANDLE CCW TRANSLATION 0950 01718000 * @YM04622*/ 01719000 * RCCW=LCBSTART; /* GET START CCW ADDRESS @YM04622*/ 01720000 L RCCW,LCBSTART-1(,RLCB) 0951 01721000 LA RCCW,0(,RCCW) 0951 01722000 * IF CCWOPCDE=CCWRRS THEN /* IF FIRST CCW IS WRITE START 0952 01723000 * RESET THEN... @YM04622*/ 01724000 CLI CCWOPCDE(RCCW),X'93' 0952 01725000 BNE @RF00952 0952 01726000 * DO; /* TRANSLATE WRITE START RESET 0953 01727000 * CCW @YM04622*/ 01728000 * GEN(LRA RWORK,0(,RCCW));/* TRANSLATE TO REAL @YM06506*/ 01729000 LRA RWORK,0(,RCCW) 01730000 * CCWADDR=RWORK; /* SAVE REAL ADDRESS @YM06506*/ 01731000 STCM RWORK,7,CCWADDR(RCCW) 0955 01732000 * END; /* @YM04622*/ 01733000 * IF TRMIPLDM=ON| /* IF IPL/DUMP IN PROGRESS ... 0957 01734000 * @YM04622*/ 01735000 * LCBSTAT1=CLOSDOWN THEN /* ... OR CLOSE CHANNEL PROGRAM 01736000 * THEN @YM04622*/ 01737000 @RF00952 TM TRMIPLDM(RTRM),B'10000000' 0957 01738000 BO @RT00957 0957 01739000 CLI LCBSTAT1(RLCB),X'FF' 0957 01740000 BNE @RF00957 0957 01741000 @RT00957 DS 0H 0958 01742000 * RCCW=LCBSTART; /* TRANSLATE ENTIRE CHANNEL 0958 01743000 * PROGRAM @YM04622*/ 01744000 L RCCW,LCBSTART-1(,RLCB) 0958 01745000 LA RCCW,0(,RCCW) 0958 01746000 * ELSE /* @YM04622*/ 01747000 * DO; /* ELSE DETERMINE WHICH CCWS NEED 01748000 * TRANSLATION @YM04622*/ 01749000 B @RC00957 0959 01750000 @RF00957 DS 0H 0960 01751000 * RCCW=ADDR(LCBCCW2); /* ASSUME SENDING @YM04622*/ 01752000 LA RCCW,LCBCCW2(,RLCB) 0960 01753000 * IF LCBSENDN=OFF THEN /* IF NOT SENDING ... @YM04622*/ 01754000 TM LCBSENDN(RLCB),B'00000001' 0961 01755000 BNZ @RF00961 0961 01756000 * RCCW=ADDR(LCBCCW4); /* ... ASSUME RECEIVING @YM04622*/ 01757000 LA RCCW,LCBCCW4(,RLCB) 0962 01758000 * END; /* @YM04622*/ 01759000 @RF00961 DS 0H 0964 01760000 * DO UNTIL LCBRLAD=ON; /* TRANSLATE ADDRESSES UNTIL ALL 01761000 * CCW'S ARE REAL @YM04622*/ 01762000 @RC00957 DS 0H 0964 01763000 @DL00964 DS 0H 0965 01764000 * RVIRT=CCWADDR; /* GET VIRTUAL ADDRESS FROM CCW */ 01765000 SLR RVIRT,RVIRT 0965 01766000 ICM RVIRT,7,CCWADDR(RCCW) 0965 01767000 * GEN(LRA RWORK,0(,RVIRT));/* TRANSLATE TO REAL @YM06506*/ 01768000 LRA RWORK,0(,RVIRT) 01769000 * CCWADDR=RWORK; /* SAVE REAL ADDRESS @YM06506*/ 01770000 STCM RWORK,7,CCWADDR(RCCW) 0967 01771000 * IF NOTTIC1=OFF& /* IS COMMAND ... */ 01772000 * NOTTIC2=OFF& /* ... A ... */ 01773000 * NOTTIC3=OFF THEN /* ... TIC */ 01774000 TM NOTTIC1(RCCW),B'00000111' 0968 01775000 BNZ @RF00968 0968 01776000 * DO; /* @YM03703*/ 01777000 * CCWOPCDE=CCWTICR; /* INDICATE CCW CONTAINS REAL 0970 01778000 * ADDRESSES @YM04622*/ 01779000 MVI CCWOPCDE(RCCW),X'88' 0970 01780000 * RWORK=RVIRT; /* YES, GET ADDR OF CCW THAT IS 01781000 * TIC'ED TO @YM06506*/ 01782000 LR RWORK,RVIRT 0971 01783000 * RCCW=RCCW-LENGTH(IEDQCCW);/* BACK UP TO PREVIOUS CCW 0972 01784000 * @YM04622*/ 01785000 SL RCCW,@CF00046 0972 01786000 * IF CCWOPCDE=CCWNOP THEN/* IF NO-OP CCW REACHED THEN 0973 01787000 * @YM04622*/ 01788000 CLI CCWOPCDE(RCCW),X'03' 0973 01789000 BNE @RF00973 0973 01790000 * IF LCBRECVN=ON THEN /* IF RECEIVING CHANNEL PROGRAM 01791000 * EXISTS @YM04622*/ 01792000 TM LCBRECVN(RLCB),B'00000010' 0974 01793000 BNO @RF00974 0974 01794000 * RCCW=ADDR(LCBCCW4);/* RESUME TRANSLATION ON READ 0975 01795000 * CCWS @YM04622*/ 01796000 LA RCCW,LCBCCW4(,RLCB) 0975 01797000 * ELSE /* @YM04622*/ 01798000 * LCBRLAD=ON; /* ELSE INDICATE TRANSLATION 0976 01799000 * COMPLETE @YM04622*/ 01800000 B @RC00974 0976 01801000 @RF00974 OI LCBRLAD(RLCB),B'00010000' 0976 01802000 * ELSE /* @YM04622*/ 01803000 * DO; /* @YM04622*/ 01804000 B @RC00973 0977 01805000 @RF00973 DS 0H 0978 01806000 * RCCW=RWORK; /* COPY VIRTUAL TIC TO ADDRESS 0978 01807000 * @YM06506*/ 01808000 LR RCCW,RWORK 0978 01809000 * IF CCWOPCDE=CCWNOP THEN/* IF NO-OP CCW REACHED THEN 01810000 * ... @YM04622*/ 01811000 CLI CCWOPCDE(RCCW),X'03' 0979 01812000 BNE @RF00979 0979 01813000 * LCBRLAD=ON; /* INDICATE TRANSLATION COMPLETE 01814000 * @YM04622*/ 01815000 OI LCBRLAD(RLCB),B'00010000' 0980 01816000 * ELSE /* @YM04622*/ 01817000 * DO; /* PREVENT TRANSLATION ON ANY 0981 01818000 * READ ALREADY TRANSLATED 0981 01819000 * @YM04622*/ 01820000 B @RC00979 0981 01821000 @RF00979 DS 0H 0982 01822000 * IF CCWOPCDE=CCWREAD&/* IF THIS IS A READ UNIT 01823000 * ... @YM04622*/ 01824000 * (RCCW+LENGTH(IEDQCCW))->CCWOPCDE=CCWTICR THEN 01825000 CLI CCWOPCDE(RCCW),X'02' 0982 01826000 BNE @RF00982 0982 01827000 CLI CCWOPCDE+8(RCCW),X'88' 0982 01828000 BNE @RF00982 0982 01829000 * /* ... AND THIS UNIT IS ALREADY 01830000 * IN REAL ADDRESS FORM @YM04622*/ 01831000 * LCBRLAD=ON; /* INDICATE TRANSLATION COMPLETE 01832000 * @YM04622*/ 01833000 OI LCBRLAD(RLCB),B'00010000' 0983 01834000 * END; /* @YM04622*/ 01835000 * END; /* @YM04622*/ 01836000 * END; /* @YM03703*/ 01837000 * ELSE /* COMMAND IS NOT A TIC */ 01838000 * DO; /* @YM04622*/ 01839000 B @RC00968 0987 01840000 @RF00968 DS 0H 0988 01841000 * IF CCWCD=ON| /* IF CHAINING THEN ... @YM04622*/ 01842000 * CCWCC=ON THEN /* @YM04622*/ 01843000 TM CCWCD(RCCW),B'11000000' 0988 01844000 BZ @RF00988 0988 01845000 * RCCW=RCCW+LENGTH(IEDQCCW);/* YES, NEXT CCW FOLLOWS 0989 01846000 * CURRENT */ 01847000 AL RCCW,@CF00046 0989 01848000 * ELSE /* @YM04622*/ 01849000 * IF CCWOPCDE=CCWNOP& /* IF THIS IS A NO-OP CCW ... 0990 01850000 * @YM04622*/ 01851000 * (RCCW-LENGTH(IEDQCCW))->CCWOPCDE=CCWBRK&/* ... 0990 01852000 * PRECEDED BY A WRITE BREAK CCW 01853000 * THEN @YM06506*/ 01854000 * TRMIPLDM=OFF THEN/* AND NOT IPL OR DUMP @ZM47611*/ 01855000 B @RC00988 0990 01856000 @RF00988 CLI CCWOPCDE(RCCW),X'03' 0990 01857000 BNE @RF00990 0990 01858000 LA @07,8 0990 01859000 LR @04,RCCW 0990 01860000 SLR @04,@07 0990 01861000 CLI CCWOPCDE(@04),X'09' 0990 01862000 BNE @RF00990 0990 01863000 TM TRMIPLDM(RTRM),B'10000000' 0990 01864000 BNZ @RF00990 0990 01865000 * RCCW=RCCW+LENGTH(IEDQCCW);/* TRANSLATE TIC AFTER 0991 01866000 * WRITE BREAK @YM04622*/ 01867000 ALR RCCW,@07 0991 01868000 * ELSE /* @YM04622*/ 01869000 * LCBRLAD=ON; /* ELSE INDICATE TRANSLATION 0992 01870000 * COMPLETE @YM04622*/ 01871000 B @RC00990 0992 01872000 @RF00990 OI LCBRLAD(RLCB),B'00010000' 0992 01873000 * END; /* @YM04622*/ 01874000 @RC00990 DS 0H 0993 01875000 @RC00988 DS 0H 0994 01876000 * END; /* @YM04622*/ 01877000 @RC00968 DS 0H 0994 01878000 @DE00964 TM LCBRLAD(RLCB),B'00010000' 0994 01879000 BNO @DL00964 0994 01880000 * END; 0995 01881000 * RFY 0996 01882000 * (REG3, 0996 01883000 * REG4, 0996 01884000 * REG7, 0996 01885000 * REG9) RSTD; /* TAKE BACK REGISTERS @YM06506*/ 01886000 @RF00949 DS 0H 0997 01887000 * LM(REG0,RBRANCH,SIOSAVE); /* RESTORE IOS REGISTERS @YM06506*/ 01888000 LM REG0,RBRANCH,SIOSAVE 0997 01889000 * RFY 0998 01890000 * (REG0, 0998 01891000 * RPARM, 0998 01892000 * RLCB, 0998 01893000 * REG3, 0998 01894000 * REG4, 0998 01895000 * RCCW, 0998 01896000 * RPRF, 0998 01897000 * REG7, 0998 01898000 * RTRM) UNRSTD; 0998 01899000 * RFY 0999 01900000 * (REG9, 0999 01901000 * RWORK, 0999 01902000 * RBASE, 0999 01903000 * RAVT, 0999 01904000 * RRETURN, 0999 01905000 * RBRANCH) UNRSTD; 0999 01906000 * 0999 01907000 * /*****************************************************************/ 01908000 * /* */ 01909000 * /* @YM03703*/ 01910000 * /* */ 01911000 * /*****************************************************************/ 01912000 * 1000 01913000 * END SIOAPNDG; 1000 01914000 @EL00005 DS 0H 1000 01915000 @EF00005 DS 0H 1000 01916000 @ER00005 BR @14 1000 01917000 * END IGG019TH 1001 01918000 * 1001 01919000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01920000 */*%INCLUDE SYSLIB (TAVTD ) */ 01921000 */*%INCLUDE SYSLIB (TCCWD ) */ 01922000 */*%INCLUDE SYSLIB (TCD1D ) */ 01923000 */*%INCLUDE SYSLIB (CVT ) */ 01924000 */*%INCLUDE SYSLIB (IHADCBDF) */ 01925000 */*%INCLUDE SYSLIB (IHADCB ) */ 01926000 */*%INCLUDE SYSLIB (IECDIOSB) */ 01927000 */*%INCLUDE SYSLIB (TLCBD ) */ 01928000 */*%INCLUDE SYSLIB (TPRFD ) */ 01929000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01930000 */*%INCLUDE SYSLIB (TTCXD ) */ 01931000 */*%INCLUDE SYSLIB (TTNTD ) */ 01932000 */*%INCLUDE SYSLIB (TRHD ) */ 01933000 */*%INCLUDE SYSLIB (TRQED ) */ 01934000 */*%INCLUDE SYSLIB (TTRMD ) */ 01935000 */*%INCLUDE SYSLIB (TTHD ) */ 01936000 * 1001 01937000 * ; 1001 01938000 @DATA DS 0H 01939000 @CH03039 DC H'9' 01940000 DS 0F 01941000 DS 0F 01942000 @CF00075 DC F'3' 01943000 @CF00257 DC F'4' 01944000 @CF00046 DC F'8' 01945000 @CF03122 DC F'10' 01946000 @CF00036 DC F'18' 01947000 @CF03098 DC XL4'40000000' 01948000 @CF03140 DC XL4'0000FFFF' 01949000 @CF03148 DC BL4'00000000000000000000000000010000' 01950000 @CF03153 DC BL4'11111111111111111111111111101111' 01951000 DS 0D 01952000 @CB02426 DC X'08000002' 01953000 DUMRQE DS CL20 01954000 SIOSAVE DS CL72 01955000 CSMASK1 DC X'FFFFFFFB' 01956000 CSMASK2 DC X'00000004' 01957000 CSMASK3 DC X'00000002' 01958000 CSMASK4 DC X'FFFFFDFF' 01959000 CSMASK5 DC X'00000400' 01960000 IGG019TH CSECT 01961000 END19TH DC H'0' LABEL FOR END OF MODULE 01962000 IGG019TH CSECT 01963000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01964000 @01 EQU 01 01965000 @02 EQU 02 01966000 @03 EQU 03 01967000 @04 EQU 04 01968000 @05 EQU 05 01969000 @06 EQU 06 01970000 @07 EQU 07 01971000 @08 EQU 08 01972000 @09 EQU 09 01973000 @10 EQU 10 01974000 @11 EQU 11 01975000 @12 EQU 12 01976000 @13 EQU 13 01977000 @14 EQU 14 01978000 @15 EQU 15 01979000 TEMPBASE EQU @15 01980000 IEDQAPTR EQU @13 01981000 DCBPTR EQU @02 01982000 IEDQLPTR EQU @02 01983000 LCBXPTR EQU @05 01984000 IEDQPPTR EQU @06 01985000 RTRM EQU @08 01986000 RECB EQU @11 01987000 RWORK EQU @10 01988000 RCCW EQU @05 01989000 RPRF EQU @06 01990000 RAVT EQU @13 01991000 RLCB EQU @02 01992000 REG0 EQU @00 01993000 RPARM EQU @01 01994000 REG3 EQU @03 01995000 REG4 EQU @04 01996000 REG7 EQU @07 01997000 RSTATE EQU @09 01998000 REG9 EQU @09 01999000 RINT EQU @09 02000000 RVIRT EQU @11 02001000 REG11 EQU @11 02002000 RTCB EQU @12 02003000 RBASE EQU @12 02004000 RRETURN EQU @14 02005000 RBRANCH EQU @15 02006000 IEDQTPTR EQU @08 02007000 CVTPTR EQU 16 02008000 IEDQAVTD EQU 0 02009000 AVTSAVEX EQU IEDQAVTD+288 02010000 AVTDPARM EQU IEDQAVTD+332 02011000 AVTREADD EQU IEDQAVTD+380 02012000 AVTBUFSW EQU IEDQAVTD+384 02013000 @NM00004 EQU IEDQAVTD+388 02014000 AVTCKFLG EQU @NM00004 02015000 AVTBASE EQU IEDQAVTD+412 02016000 AVTPKF EQU AVTBASE 02017000 AVTRNMPT EQU IEDQAVTD+424 02018000 AVTOSECB EQU IEDQAVTD+492 02019000 AVTECB1 EQU AVTOSECB 02020000 AVTHG02 EQU IEDQAVTD+528 02021000 AVTDISP EQU IEDQAVTD+552 02022000 AVTHD EQU IEDQAVTD+556 02023000 AVTSCOPT EQU AVTHD 02024000 AVTSAVTP EQU IEDQAVTD+612 02025000 AVTSAVTF EQU AVTSAVTP 02026000 AVTIOT EQU IEDQAVTD+640 02027000 AVTCKPEL EQU IEDQAVTD+652 02028000 AVTCKRMV EQU AVTCKPEL 02029000 AVTCKELF EQU IEDQAVTD+680 02030000 AVTCKBYT EQU IEDQAVTD+691 02031000 AVTHG01 EQU IEDQAVTD+692 02032000 AVTCKLNK EQU IEDQAVTD+696 02033000 AVTCRELE EQU IEDQAVTD+708 02034000 AVTCCELE EQU AVTCRELE 02035000 AVTCLRHI EQU IEDQAVTD+716 02036000 AVTADBUF EQU IEDQAVTD+720 02037000 AVTSYSER EQU IEDQAVTD+728 02038000 AVTBFRFG EQU IEDQAVTD+784 02039000 AVTCKPQB EQU IEDQAVTD+804 02040000 AVTCKPTB EQU AVTCKPQB 02041000 AVTCKPEC EQU AVTCKPQB+4 02042000 AVTCKPCC EQU AVTCKPEC 02043000 AVTOPCQB EQU IEDQAVTD+816 02044000 AVTOPCOB EQU AVTOPCQB 02045000 AVTOPCEC EQU AVTOPCQB+4 02046000 AVTOPCCC EQU AVTOPCEC 02047000 AVTOLTQB EQU IEDQAVTD+828 02048000 AVTCWFL1 EQU IEDQAVTD+924 02049000 AVTCWFL2 EQU IEDQAVTD+925 02050000 AVTSUBT EQU IEDQAVTD+948 02051000 AVTIOTR EQU IEDQAVTD+949 02052000 AVTBIT1 EQU IEDQAVTD+1050 02053000 AVTBIT2 EQU IEDQAVTD+1051 02054000 AVTBIT3 EQU IEDQAVTD+1052 02055000 AVTBIT4 EQU IEDQAVTD+1136 02056000 @NM00086 EQU IEDQAVTD+1232 02057000 IEDNSVTD EQU 0 02058000 SAVTDIAG EQU IEDNSVTD 02059000 SAVTDIAF EQU SAVTDIAG 02060000 SAVTFLDH EQU IEDNSVTD+52 02061000 SAVTLUSQ EQU IEDNSVTD+88 02062000 SAVTSSRQ EQU IEDNSVTD+172 02063000 SAVTTCPU EQU IEDNSVTD+238 02064000 SAVTSCPT EQU SAVTTCPU 02065000 SAVTTNTX EQU IEDNSVTD+252 02066000 SAVTZELM EQU IEDNSVTD+270 02067000 SAVTRDRV EQU IEDNSVTD+284 02068000 SAVTCKQB EQU IEDNSVTD+300 02069000 SAVTCKTB EQU SAVTCKQB 02070000 SAVTCKEC EQU SAVTCKQB+4 02071000 SAVTCKCC EQU SAVTCKEC 02072000 SAVTNETF EQU IEDNSVTD+324 02073000 SAVTCDRV EQU IEDNSVTD+332 02074000 IEDQCCW EQU 0 02075000 CCW EQU IEDQCCW 02076000 CCWOPCDE EQU CCW 02077000 CCWADDR EQU CCW+1 02078000 CCWFLAGS EQU CCW+4 02079000 CCWCD EQU CCWFLAGS 02080000 CCWCC EQU CCWFLAGS 02081000 CCWCOUNT EQU CCW+6 02082000 CVTMAP EQU 0 02083000 CVTDAR EQU CVTMAP+72 02084000 CVTFLGS1 EQU CVTDAR 02085000 CVTDCB EQU CVTMAP+116 02086000 CVTIOQET EQU CVTMAP+120 02087000 CVTIERLC EQU CVTMAP+144 02088000 CVT0PT01 EQU CVTMAP+152 02089000 CVTHEAD EQU CVTMAP+160 02090000 CVTSV76C EQU CVTHEAD 02091000 CVTOPTA EQU CVTMAP+182 02092000 CVTOPTB EQU CVTMAP+183 02093000 CVTGTF EQU CVTMAP+236 02094000 CVTGTFST EQU CVTGTF 02095000 CVTGTFS EQU CVTGTFST 02096000 CVTSTATE EQU CVTGTFST 02097000 CVTTMODE EQU CVTGTFST 02098000 CVTFORM EQU CVTGTFST 02099000 CVTAQAVT EQU CVTMAP+240 02100000 CVTTCMFG EQU CVTAQAVT 02101000 CVTVOLM2 EQU CVTMAP+244 02102000 CVTTATA EQU CVTVOLM2 02103000 CVTTSKS EQU CVTTATA 02104000 CVTVOLF2 EQU CVTTSKS 02105000 CVTTAT EQU CVTTATA+1 02106000 CVTATER EQU CVTMAP+248 02107000 CVTEXT1 EQU CVTMAP+252 02108000 CVTPURG EQU CVTMAP+260 02109000 CVTQMSG EQU CVTMAP+268 02110000 CVTDMSR EQU CVTMAP+272 02111000 CVTRSV37 EQU CVTDMSR 02112000 CVTDMSRF EQU CVTRSV37 02113000 CVTPTRV EQU CVTMAP+288 02114000 CVTERPV EQU CVTMAP+316 02115000 CVTINTLA EQU CVTMAP+320 02116000 CVTAPF EQU CVTMAP+324 02117000 CVTEXT2 EQU CVTMAP+328 02118000 CVTHJES EQU CVTMAP+332 02119000 CVTPGSIA EQU CVTMAP+348 02120000 CVTA1F1 EQU CVTMAP+356 02121000 CVTSYSK EQU CVTMAP+357 02122000 CVTVOLM1 EQU CVTMAP+380 02123000 CVTVOLF1 EQU CVTVOLM1 02124000 CVTATMCT EQU CVTMAP+388 02125000 CVTXTNT1 EQU 0 02126000 CVTXTNT2 EQU 0 02127000 CVTDSSV EQU CVTXTNT2 02128000 CVTFLGBT EQU CVTXTNT2+5 02129000 CVTQID EQU CVTXTNT2+24 02130000 CVTRV400 EQU CVTXTNT2+52 02131000 CVTRV409 EQU CVTXTNT2+53 02132000 CVTATCVT EQU CVTXTNT2+64 02133000 CVTRV429 EQU CVTXTNT2+84 02134000 CVTRV438 EQU CVTXTNT2+85 02135000 CVTRV457 EQU CVTXTNT2+112 02136000 CVTRV466 EQU CVTXTNT2+113 02137000 CVTFIX EQU 0 02138000 CVTRELNO EQU CVTFIX+252 02139000 IHADCB EQU 0 02140000 IHADCS1A EQU 0 02141000 DCBBCKUP EQU IHADCS1A+8 02142000 IHADCS2K EQU 0 02143000 DCBDUMPD EQU IHADCS2K 02144000 DCBTRSTA EQU IHADCS2K+5 02145000 DCBDSORG EQU IHADCS2K+6 02146000 DCBDSRG2 EQU DCBDSORG+1 02147000 DCBRNCKD EQU IHADCS2K+12 02148000 DCBEXLST EQU IHADCS2K+16 02149000 DCBEIOBX EQU DCBEXLST 02150000 IHADCS24 EQU 0 02151000 DCBOFLGS EQU IHADCS24+8 02152000 DCBOFLWR EQU DCBOFLGS 02153000 DCBIFLG EQU IHADCS24+9 02154000 DCBIBPCT EQU DCBIFLG 02155000 DCBMACR EQU IHADCS24+10 02156000 DCBMACR1 EQU DCBMACR 02157000 DCBMRFE EQU DCBMACR1 02158000 DCBMRGET EQU DCBMRFE 02159000 DCBMRAPG EQU DCBMACR1 02160000 DCBMRRD EQU DCBMRAPG 02161000 DCBMRCI EQU DCBMACR1 02162000 DCBMRMVG EQU DCBMRCI 02163000 DCBMRLCG EQU DCBMACR1 02164000 DCBMRABC EQU DCBMACR1 02165000 DCBMRPT1 EQU DCBMRABC 02166000 DCBMRSBG EQU DCBMRPT1 02167000 DCBMRCRL EQU DCBMACR1 02168000 DCBMRCHK EQU DCBMRCRL 02169000 DCBMRRDX EQU DCBMRCHK 02170000 DCBMRDMG EQU DCBMACR1 02171000 DCBMACR2 EQU DCBMACR+1 02172000 DCBMRPUT EQU DCBMACR2 02173000 DCBMRWRT EQU DCBMACR2 02174000 DCBMRMVP EQU DCBMACR2 02175000 DCBMR5WD EQU DCBMACR2 02176000 DCBMRLDM EQU DCBMR5WD 02177000 DCBMRLCP EQU DCBMRLDM 02178000 DCBMR4WD EQU DCBMACR2 02179000 DCBMRPT2 EQU DCBMR4WD 02180000 DCBMRTMD EQU DCBMRPT2 02181000 DCBMR3WD EQU DCBMACR2 02182000 DCBMRCTL EQU DCBMR3WD 02183000 DCBMRSTK EQU DCBMRCTL 02184000 DCBMR1WD EQU DCBMACR2 02185000 DCBMRSWA EQU DCBMR1WD 02186000 DCBMRDMD EQU DCBMRSWA 02187000 IHADCS25 EQU 0 02188000 DCBMACRF EQU IHADCS25+2 02189000 DCBMACF1 EQU DCBMACRF 02190000 DCBMFFE EQU DCBMACF1 02191000 DCBMFGET EQU DCBMFFE 02192000 DCBMFAPG EQU DCBMACF1 02193000 DCBMFRD EQU DCBMFAPG 02194000 DCBMFCI EQU DCBMACF1 02195000 DCBMFMVG EQU DCBMFCI 02196000 DCBMFLCG EQU DCBMACF1 02197000 DCBMFABC EQU DCBMACF1 02198000 DCBMFPT1 EQU DCBMFABC 02199000 DCBMFSBG EQU DCBMFPT1 02200000 DCBMFCRL EQU DCBMACF1 02201000 DCBMFCHK EQU DCBMFCRL 02202000 DCBMFDMG EQU DCBMACF1 02203000 DCBMACF2 EQU DCBMACRF+1 02204000 DCBMFPUT EQU DCBMACF2 02205000 DCBMFWRT EQU DCBMACF2 02206000 DCBMFMVP EQU DCBMACF2 02207000 DCBMF5WD EQU DCBMACF2 02208000 DCBMFLDM EQU DCBMF5WD 02209000 DCBMFLCP EQU DCBMFLDM 02210000 DCBMF4WD EQU DCBMACF2 02211000 DCBMFPT2 EQU DCBMF4WD 02212000 DCBMFTMD EQU DCBMFPT2 02213000 DCBMF3WD EQU DCBMACF2 02214000 DCBMFCTL EQU DCBMF3WD 02215000 DCBMFSTK EQU DCBMFCTL 02216000 DCBMF1WD EQU DCBMACF2 02217000 DCBMFSWA EQU DCBMF1WD 02218000 DCBMFDMD EQU DCBMFSWA 02219000 DCBDEBAD EQU IHADCS25+4 02220000 DCBIFLGS EQU DCBDEBAD 02221000 DCBIFPCT EQU DCBIFLGS 02222000 IHADCS27 EQU 0 02223000 DCBGET EQU IHADCS27 02224000 DCBPUT EQU DCBGET 02225000 DCBGETA EQU DCBPUT+1 02226000 IHADCS43 EQU 0 02227000 DCBSCTAB EQU IHADCS43 02228000 IOSB EQU 0 02229000 IOSFLA EQU IOSB 02230000 IOSACHN EQU IOSFLA 02231000 IOSEX EQU IOSFLA 02232000 IOSFLB EQU IOSB+1 02233000 IOSFLC EQU IOSB+2 02234000 IOSDVALT EQU IOSFLC 02235000 IOSPKEY EQU IOSB+12 02236000 IOSCOD EQU IOSB+13 02237000 IOSOPT EQU IOSB+14 02238000 IOSTSLL EQU IOSOPT 02239000 IOSOPT2 EQU IOSB+15 02240000 IOSUCB EQU IOSB+16 02241000 @NM00122 EQU IOSB+20 02242000 IOSCC EQU @NM00122 02243000 IOSCSW EQU @NM00122+1 02244000 IOSCSWCA EQU IOSCSW 02245000 IOSTATUS EQU IOSCSW+3 02246000 IOSUSE EQU IOSB+32 02247000 IOSSNS EQU IOSB+42 02248000 IOSIPIB EQU IOSB+44 02249000 IOSPATH EQU IOSB+86 02250000 IOSCHN EQU IOSPATH 02251000 IOSCKEY EQU IOSB+89 02252000 IOSEEKA EQU IOSB+100 02253000 IOSCCHH EQU IOSEEKA+3 02254000 IOSSKHH EQU IOSCCHH+2 02255000 IEDQLCB EQU 0 02256000 LCBRCB EQU IEDQLCB 02257000 LCBQCBA EQU LCBRCB+1 02258000 LCBPRI EQU LCBRCB+4 02259000 LCBTSOB EQU IEDQLCB+19 02260000 LCBCHAIN EQU IEDQLCB+20 02261000 LCBSCRNN EQU LCBCHAIN 02262000 LCBTETEN EQU LCBCHAIN 02263000 LCBINSRC EQU IEDQLCB+21 02264000 LCBLKMDE EQU LCBINSRC+2 02265000 LCBNTXT EQU IEDQLCB+24 02266000 LCBSTAT4 EQU LCBNTXT 02267000 LCBPHASE EQU LCBSTAT4 02268000 LCBREAL EQU LCBPHASE 02269000 LCBSCBDA EQU IEDQLCB+25 02270000 LCBMHA EQU IEDQLCB+29 02271000 LCBFSBFR EQU LCBMHA 02272000 LCBFLAG1 EQU IEDQLCB+32 02273000 LCBIOBSN EQU IEDQLCB+33 02274000 LCBFLAG2 EQU LCBIOBSN 02275000 LCBSNS EQU LCBIOBSN+1 02276000 LCBSENS0 EQU LCBSNS 02277000 LCBLOSDT EQU LCBSENS0 02278000 LCBNOTIN EQU LCBLOSDT 02279000 LCBTMOUT EQU LCBSENS0 02280000 LCBABORT EQU LCBTMOUT 02281000 LCBECBCC EQU LCBIOBSN+3 02282000 LCBECBPT EQU LCBIOBSN+4 02283000 LCBFLAG3 EQU LCBIOBSN+7 02284000 LCBSOHR EQU LCBFLAG3 02285000 LCBRLAD EQU LCBFLAG3 02286000 LCBCSW EQU LCBIOBSN+8 02287000 LCBCSWCA EQU LCBCSW 02288000 LCBCSWST EQU LCBCSW+3 02289000 LCBCSWUS EQU LCBCSWST 02290000 LCBUSAT EQU LCBCSWUS 02291000 LCBUSUC EQU LCBCSWUS 02292000 LCBUSUE EQU LCBCSWUS 02293000 LCBCSWCS EQU LCBCSWST+1 02294000 LCBCSPCI EQU LCBCSWCS 02295000 LCBCSIL EQU LCBCSWCS 02296000 LCBCSPGC EQU LCBCSWCS 02297000 LCBCSPTC EQU LCBCSWCS 02298000 LCBCSCDC EQU LCBCSWCS 02299000 LCBCSCCC EQU LCBCSWCS 02300000 LCBCSICC EQU LCBCSWCS 02301000 LCBCSCHC EQU LCBCSWCS 02302000 LCBCSWRC EQU LCBCSW+5 02303000 LCBSIOCC EQU LCBIOBSN+15 02304000 LCBSIOC1 EQU LCBSIOCC 02305000 LCBSIOC2 EQU LCBSIOCC 02306000 LCBSTART EQU LCBIOBSN+16 02307000 LCBDCBPT EQU IEDQLCB+52 02308000 LCBRCQCB EQU IEDQLCB+56 02309000 LCBRESTR EQU LCBRCQCB 02310000 @NM00137 EQU IEDQLCB+60 02311000 LCBINCAM EQU @NM00137 02312000 LCBERRCT EQU IEDQLCB+62 02313000 LCBLSPCI EQU IEDQLCB+65 02314000 LCBRCBFR EQU LCBLSPCI 02315000 LCBRDBFR EQU LCBRCBFR 02316000 LCBSTATE EQU IEDQLCB+70 02317000 LCBSTAT1 EQU LCBSTATE 02318000 LCBRECVN EQU LCBSTAT1 02319000 LCBSENDN EQU LCBSTAT1 02320000 LCBSTAT2 EQU LCBSTATE+1 02321000 LCBBEOTN EQU LCBSTAT2 02322000 LCBSYNC EQU LCBSTAT2 02323000 LCBATTN EQU LCBSYNC 02324000 LCBDIAL EQU LCBSTAT2 02325000 LCBBFRAV EQU LCBDIAL 02326000 LCBTSTSW EQU IEDQLCB+72 02327000 LCBERB EQU IEDQLCB+76 02328000 LCBERBST EQU IEDQLCB+84 02329000 LCBDLNKN EQU LCBERBST 02330000 LCBERBCT EQU IEDQLCB+88 02331000 LCBRBCT2 EQU LCBERBCT+1 02332000 LCBTTCIN EQU IEDQLCB+90 02333000 LCBMSGFM EQU IEDQLCB+92 02334000 LCBOBRCH EQU IEDQLCB+96 02335000 LCBERMSK EQU LCBOBRCH 02336000 LCBNXMOD EQU LCBERMSK 02337000 LCBSTAT7 EQU LCBNXMOD 02338000 LCBINVPT EQU LCBOBRCH+1 02339000 LCBBFRW EQU LCBINVPT 02340000 LCBTPCD EQU IEDQLCB+100 02341000 LCBSTAT5 EQU LCBTPCD 02342000 LCBSTAT6 EQU LCBTPCD+4 02343000 LCBRSPSV EQU LCBTPCD+8 02344000 LCBSAVSN EQU IEDQLCB+112 02345000 LCBERCCW EQU IEDQLCB+120 02346000 LCBCPA EQU IEDQLCB+144 02347000 LCBCCW1 EQU LCBCPA 02348000 LCBCCW2 EQU LCBCPA+8 02349000 LCBCCW3 EQU LCBCPA+16 02350000 LCBCCW4 EQU LCBCPA+24 02351000 LCBCCW5 EQU LCBCPA+32 02352000 LCBATTEL EQU LCBCCW5 02353000 LCBQEBPL EQU LCBATTEL 02354000 LCBIOSB EQU LCBQEBPL+1 02355000 LCBCCW6 EQU LCBCPA+40 02356000 LCBCCW7 EQU LCBCPA+48 02357000 IEDQLCBX EQU 0 02358000 LCBXCON EQU IEDQLCBX 02359000 LCBXFLAG EQU LCBXCON 02360000 LCBXDCT EQU LCBXCON+1 02361000 LCBXRADR EQU LCBXCON+4 02362000 IEDQPRF EQU 0 02363000 PRFRCB EQU IEDQPRF 02364000 PRFKEY EQU PRFRCB 02365000 PRFQCBA EQU PRFRCB+1 02366000 PRFPRI EQU PRFRCB+4 02367000 PRFLINK EQU PRFRCB+5 02368000 PRFTIC EQU IEDQPRF+8 02369000 PRFTICC EQU PRFTIC 02370000 PRFTI0 EQU PRFTIC+1 02371000 PRFVTCHK EQU PRFTI0+2 02372000 PRFNBUNT EQU IEDQPRF+12 02373000 PRFSUNIT EQU PRFNBUNT 02374000 PRFPLQCB EQU PRFSUNIT 02375000 PRFPIUO EQU PRFPLQCB 02376000 PRFSRCSZ EQU IEDQPRF+16 02377000 PRFSTAT1 EQU IEDQPRF+20 02378000 PRFEOFN EQU PRFSTAT1 02379000 PRFCORE EQU IEDQPRF+21 02380000 PRFXTRA EQU PRFCORE 02381000 PRFLU1TT EQU PRFXTRA+1 02382000 PRFSCAN EQU IEDQPRF+24 02383000 PRFTQBCK EQU IEDQPRF+26 02384000 PRFNTXT EQU PRFTQBCK 02385000 PRFEOBOF EQU PRFNTXT 02386000 PRFLU2TT EQU PRFNTXT+1 02387000 PRFCHDR EQU IEDQPRF+32 02388000 PRFHQBCK EQU IEDQPRF+35 02389000 IEDPF1 EQU 0 02390000 PRF1FLG1 EQU IEDPF1+3 02391000 PRF1WD2 EQU IEDPF1+4 02392000 PRF1SEQP EQU PRF1WD2 02393000 PRF1SQID EQU PRF1SEQP 02394000 PRF1TAG1 EQU PRF1SQID 02395000 PRF1RULN EQU PRF1SEQP+2 02396000 IEDPF2 EQU 0 02397000 PRF2FLG2 EQU IEDPF2 02398000 PRF2WD2 EQU IEDPF2+4 02399000 IEDQTCXD EQU 0 02400000 TCXAVT EQU IEDQTCXD 02401000 TCXATTEN EQU IEDQTCXD+4 02402000 TCXREADY EQU IEDQTCXD+24 02403000 TCXFLAG1 EQU IEDQTCXD+34 02404000 TCXBUFA EQU IEDQTCXD+80 02405000 TCXDSAVE EQU IEDQTCXD+104 02406000 TCXQE8 EQU IEDQTCXD+216 02407000 IEDQTNTD EQU 0 02408000 TNTSTART EQU IEDQTNTD+82 02409000 TNTCODE EQU 0 02410000 IEDTNTA EQU 0 02411000 IEDRH EQU 0 02412000 TRHBYTE0 EQU IEDRH 02413000 TRHFI EQU TRHBYTE0 02414000 TRHBC EQU TRHBYTE0 02415000 TRHEC EQU TRHBYTE0 02416000 TRHBYTE1 EQU IEDRH+1 02417000 TRHBYTE2 EQU IEDRH+2 02418000 IEDRQE EQU 0 02419000 RQEUCB EQU IEDRQE+2 02420000 RQEIOB EQU IEDRQE+5 02421000 RRQE EQU 0 02422000 IEDTRM EQU 0 02423000 IEDNTRM EQU IEDTRM 02424000 TRMINDEX EQU IEDNTRM 02425000 TRMCOHTG EQU IEDNTRM+2 02426000 TRMBYTE6 EQU TRMCOHTG 02427000 TRMCDF0 EQU TRMBYTE6 02428000 TRMBYTE5 EQU TRMCOHTG+1 02429000 TRMBYTE4 EQU IEDNTRM+4 02430000 TRMBYTE3 EQU IEDNTRM+5 02431000 TRMBYTE2 EQU IEDNTRM+6 02432000 TRMINPG EQU TRMBYTE2 02433000 TRMBYTE1 EQU IEDNTRM+7 02434000 TRMSCPRQ EQU TRMBYTE1 02435000 TRMBYTE0 EQU IEDNTRM+10 02436000 TRMNOWCD EQU TRMBYTE0 02437000 TRMSIBPT EQU IEDNTRM+11 02438000 TRMLTRAC EQU TRMSIBPT 02439000 TRMRLMCT EQU IEDNTRM+14 02440000 TRMLGBST EQU TRMRLMCT 02441000 IEDQTRM EQU IEDTRM+18 02442000 TRMSTATE EQU IEDQTRM 02443000 TRMLOG EQU TRMSTATE 02444000 TRMDESTQ EQU IEDQTRM+1 02445000 TRMRSTRT EQU TRMDESTQ+2 02446000 TRMINSEQ EQU IEDQTRM+4 02447000 TLISTCNT EQU TRMINSEQ 02448000 TRMSESCT EQU TLISTCNT 02449000 TRMOUTSQ EQU IEDQTRM+6 02450000 TLISTEN EQU TRMOUTSQ 02451000 TRMDSORG EQU TLISTEN 02452000 TRMPLIM EQU TLISTEN+1 02453000 TRMALTD EQU IEDQTRM+8 02454000 TRMPRILK EQU TRMALTD 02455000 TRMDEVFL EQU IEDQTRM+10 02456000 TRMADDC EQU TRMDEVFL 02457000 TRMNCPI EQU TRMDEVFL+1 02458000 TRMSTAT EQU IEDQTRM+12 02459000 TRMSIO EQU TRMSTAT 02460000 TRMOWNER EQU TRMSIO 02461000 IEDTH EQU 0 02462000 TTHBYTE0 EQU IEDTH 02463000 TTHFTYPE EQU TTHBYTE0 02464000 TTHBBIU EQU TTHBYTE0 02465000 TTHEBIU EQU TTHBYTE0 02466000 TTHDAF EQU IEDTH+2 02467000 TTHOAF EQU IEDTH+4 02468000 TTHSNF EQU IEDTH+6 02469000 TTHTAG EQU TTHSNF 02470000 TTHTAG1 EQU TTHTAG 02471000 TTHDCF EQU IEDTH+8 02472000 ECB EQU 0 02473000 ECBCC EQU ECB 02474000 ECBWAIT EQU ECBCC 02475000 INOPRU EQU 0 02476000 INOPNS EQU INOPRU 02477000 INOPPC EQU INOPRU+1 02478000 INOPCMD EQU INOPRU+2 02479000 INOPNA EQU INOPRU+3 02480000 INOPDATA EQU INOPRU+5 02481000 LNTRACE EQU 0 02482000 CONVERT EQU 0 02483000 NAADDR EQU 0 02484000 POST EQU 0 02485000 INOPAREA EQU 0 02486000 TNTDCODE EQU 46 02487000 TNTNAME EQU 0 02488000 CVTS01 EQU CVTPGSIA 02489000 CVTLPDIA EQU CVTS01+12 02490000 CVTDIRST EQU CVTLPDIA 02491000 CVTSLIDA EQU CVTS01+24 02492000 CVTCTLFG EQU CVTS01+50 02493000 CVTRV210 EQU CVTS01+424 02494000 CVTRV219 EQU CVTS01+425 02495000 CVTRV228 EQU CVTS01+426 02496000 CVTRV237 EQU CVTS01+427 02497000 CVTMFRTR EQU CVTS01+452 02498000 CVTRV262 EQU CVTS01+468 02499000 CVTRV271 EQU CVTS01+469 02500000 CVTRV280 EQU CVTS01+470 02501000 CVTRV289 EQU CVTS01+471 02502000 CVTGSDA EQU CVTS01+600 02503000 IOSBPTR EQU LCBIOSB 02504000 IOSATTSC EQU IOSIPIB 02505000 IOSWTOWA EQU IOSIPIB 02506000 IOSPCISC EQU IOSIPIB 02507000 LCBRSPIN EQU LCBIOBSN 02508000 LCBRHSV EQU LCBRSPIN+2 02509000 LCBLUSNS EQU LCBRSPIN+5 02510000 LCBSCPRS EQU LCBRSPIN+9 02511000 LCBCSWU1 EQU LCBSCPRS+2 02512000 LCBRSPFG EQU LCBRSPIN+15 02513000 LCBCOREQ EQU LCBTPCD 02514000 @NM00158 EQU LCBCPA+40 02515000 LCBQNX EQU LCBERCCW 02516000 LCBQNXMN EQU LCBQNX 02517000 LCBNX142 EQU LCBQNXMN 02518000 LCBCANCL EQU LCBSAVSN 02519000 LCBCANFG EQU LCBCANCL 02520000 @NM00181 EQU PRFSRCSZ 02521000 PRFSHDR EQU IEDQPRF+42 02522000 TCXPTR EQU CVTAQAVT 02523000 IEDQNPTR EQU AVTRNMPT 02524000 TRMDIALQ EQU TRMPLIM 02525000 @NM00206 EQU TRMSTATE 02526000 TRMCDFD0 EQU TRMBYTE5 02527000 TRMPRE1 EQU TRMBYTE4 02528000 TRMNCP1 EQU TRMBYTE4 02529000 TRMINOP EQU TRMNCP1 02530000 TRMLU1 EQU TRMBYTE4 02531000 TRMLINK1 EQU TRMBYTE4 02532000 TRMDCONS EQU TRMLINK1 02533000 TRMPRE EQU TRMBYTE3 02534000 TRMNCP EQU TRMBYTE3 02535000 TRMIPLDM EQU TRMNCP 02536000 TRMSLOWN EQU TRMNCP 02537000 TRMPU EQU TRMBYTE3 02538000 TRMLU EQU TRMBYTE3 02539000 TRMCDMGR EQU TRMBYTE3 02540000 TRMLINK EQU TRMBYTE3 02541000 TICCHK EQU CCWOPCDE 02542000 NOTTIC1 EQU TICCHK 02543000 NOTTIC2 EQU TICCHK 02544000 NOTTIC3 EQU TICCHK 02545000 CPA EQU LCBCPA 02546000 @NM00229 EQU CPA 02547000 CPAWRTS EQU @NM00229 02548000 @NM00232 EQU CPA+8 02549000 CPAWRTBF EQU @NM00232+1 02550000 CPAWRTBK EQU @NM00232+5 02551000 @NM00235 EQU CPA+16 02552000 CPARDS EQU @NM00235 02553000 @NM00238 EQU CPA+24 02554000 CPARDU EQU @NM00238+1 02555000 CPAWNOOP EQU CPA+40 02556000 CPARNOOP EQU CPA+48 02557000 REGSVE EQU AVTSAVEX 02558000 DIOSUCB EQU IOSUCB 02559000 DIOSUCBP EQU DIOSUCB+2 02560000 TNTFIRST EQU TNTSTART 02561000 TRMOPT EQU IEDQTRM+20 02562000 TRMPOOLP EQU TRMINSEQ 02563000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02564000 @NM00241 EQU DIOSUCB 02565000 REG1SVE EQU REGSVE+4 02566000 REG0SVE EQU REGSVE 02567000 @NM00240 EQU CPA+32 02568000 @NM00239 EQU @NM00238 02569000 @NM00237 EQU @NM00235+4 02570000 @NM00236 EQU @NM00235+1 02571000 @NM00234 EQU @NM00232+4 02572000 @NM00233 EQU @NM00232 02573000 CPAOPRE EQU @NM00229+5 02574000 @NM00231 EQU @NM00229+4 02575000 @NM00230 EQU @NM00229+1 02576000 @NM00228 EQU TICCHK 02577000 TRMLDISC EQU TRMLINK 02578000 @NM00223 EQU TRMLINK 02579000 TRMLALOC EQU TRMLINK 02580000 TRMLSTAT EQU TRMLINK 02581000 TRMLINT EQU TRMLINK 02582000 TRMEPMOD EQU TRMLINK 02583000 TRMCDLOG EQU TRMCDMGR 02584000 @NM00222 EQU TRMCDMGR 02585000 @NM00221 EQU TRMCDMGR 02586000 @NM00220 EQU TRMCDMGR 02587000 @NM00219 EQU TRMCDMGR 02588000 @NM00218 EQU TRMCDMGR 02589000 TRMBKDUP EQU TRMCDMGR 02590000 TRMLULOG EQU TRMLU 02591000 @NM00217 EQU TRMLU 02592000 @NM00216 EQU TRMLU 02593000 @NM00215 EQU TRMLU 02594000 TRMTDIFF EQU TRMLU 02595000 @NM00214 EQU TRMLU 02596000 @NM00213 EQU TRMLU 02597000 TRMAUTO EQU TRMLU 02598000 TRMPCONT EQU TRMPU 02599000 TRMPDOCQ EQU TRMPU 02600000 TRMPULOC EQU TRMPU 02601000 TRMPDNAS EQU TRMPU 02602000 TRMPALOC EQU TRMPU 02603000 TRMNCONT EQU TRMNCP 02604000 TRMQUCKN EQU TRMNCP 02605000 TRMSYGEN EQU TRMNCP 02606000 TRMNCPCL EQU TRMNCP 02607000 TRMINOUT EQU TRMPRE 02608000 TRMRDOUT EQU TRMPRE 02609000 TRMNLOUT EQU TRMPRE 02610000 TRMWROUT EQU TRMPRE 02611000 TRMASNXI EQU TRMPRE 02612000 TRMSTMM EQU TRMPRE 02613000 TRMCMODE EQU TRMPRE 02614000 TRMSTPND EQU TRMPRE 02615000 TRMNCPLK EQU TRMLINK1 02616000 @NM00212 EQU TRMLINK1 02617000 TRMDCONN EQU TRMDCONS 02618000 TRMDCOP EQU TRMDCONS 02619000 TRMPMARY EQU TRMLU1 02620000 @NM00211 EQU TRMLU1 02621000 @NM00210 EQU TRMLU1 02622000 TRMCDSRQ EQU TRMLU1 02623000 TRMLSCVP EQU TRMLU1 02624000 @NM00209 EQU TRMLU1 02625000 @NM00208 EQU TRMNCP1 02626000 TRMANS EQU TRMNCP1 02627000 TRMLINOP EQU TRMNCP1 02628000 TRMLYNCH EQU TRMPRE1 02629000 TRMSPOUT EQU TRMPRE1 02630000 TRMERLCK EQU TRMPRE1 02631000 TRMQNPL EQU TRMPRE1 02632000 TRMSPACT EQU TRMPRE1 02633000 TRMOCNI EQU TRMPRE1 02634000 TRMSESSN EQU TRMPRE1 02635000 TRMCONT EQU TRMPRE1 02636000 TRMINERR EQU TRMCDFD0 02637000 TRMLUTM EQU TRMCDFD0 02638000 TRMLUIT EQU TRMCDFD0 02639000 TRMLUREQ EQU TRMCDFD0 02640000 TRMCDPRE EQU TRMCDFD0 02641000 TRMWASCD EQU TRMCDFD0 02642000 TRMSRPFG EQU TRMCDFD0 02643000 TRMSESRQ EQU TRMCDFD0 02644000 @NM00207 EQU @NM00206 02645000 TRMENTRY EQU @NM00206 02646000 TRMSRPTR EQU TRMDIALQ 02647000 PRFSVFLG EQU @NM00181+3 02648000 PRFSVFFO EQU @NM00181 02649000 @NM00165 EQU LCBCANCL+3 02650000 LCBCANTH EQU LCBCANCL+1 02651000 @NM00164 EQU LCBCANFG 02652000 LCBCANCD EQU LCBCANFG 02653000 @NM00163 EQU LCBCANFG 02654000 LCBCANEB EQU LCBCANFG 02655000 LCBCANXT EQU LCBCANFG 02656000 LCBUNADD EQU LCBQNX+21 02657000 LCBUASZE EQU LCBQNX+20 02658000 LCBDSTEA EQU LCBQNX+16 02659000 @NM00162 EQU LCBQNX+8 02660000 LCBIOSBS EQU LCBQNX+5 02661000 @NM00161 EQU LCBQNX+4 02662000 LCBSTSAV EQU LCBQNX+1 02663000 @NM00160 EQU LCBQNXMN 02664000 LCBNX509 EQU LCBQNXMN 02665000 LCBNX162 EQU LCBQNXMN 02666000 LCBNX064 EQU LCBQNXMN 02667000 LCBSIBPT EQU @NM00158+8 02668000 LCBSUSPT EQU @NM00158+4 02669000 LCBNCPPT EQU @NM00158+1 02670000 @NM00159 EQU @NM00158 02671000 LCBWRSCH EQU LCBCOREQ+8 02672000 LCBCQLNK EQU LCBCOREQ+4 02673000 LCBCQELE EQU LCBCOREQ 02674000 LCBPAKCH EQU LCBRSPIN+16 02675000 @NM00157 EQU LCBRSPFG 02676000 LCBIMRSP EQU LCBRSPFG 02677000 LCBPRSPO EQU LCBRSPFG 02678000 LCBRSRH EQU LCBRSPFG 02679000 LCBEXPI EQU LCBRSPFG 02680000 @NM00156 EQU LCBRSPIN+12 02681000 LCBUSUE1 EQU LCBCSWU1 02682000 @NM00155 EQU LCBCSWU1 02683000 @NM00154 EQU LCBSCPRS+1 02684000 LCBDFCMD EQU LCBSCPRS 02685000 LCBUSER EQU LCBLUSNS+2 02686000 LCBSMIN EQU LCBLUSNS+1 02687000 LCBSMAJ EQU LCBLUSNS 02688000 LCBPACRS EQU LCBRHSV 02689000 @NM00153 EQU LCBRHSV 02690000 LCBSNS0 EQU LCBRSPIN+1 02691000 @NM00152 EQU LCBRSPIN 02692000 IOSPCIWA EQU IOSPCISC+44 02693000 IOSPCIRS EQU IOSPCISC+8 02694000 @NM00127 EQU IOSPCISC+4 02695000 @NM00126 EQU IOSPCISC 02696000 IOSWRNDR EQU IOSWTOWA+4 02697000 IOSWTOPT EQU IOSWTOWA+3 02698000 IOSWTOCP EQU IOSWTOWA+2 02699000 IOSWTOCH EQU IOSWTOWA 02700000 IOSATTWA EQU IOSATTSC+40 02701000 @NM00125 EQU IOSATTSC+24 02702000 IOSATTSN EQU IOSATTSC 02703000 CVTRV628 EQU CVTS01+728 02704000 CVTRV627 EQU CVTS01+724 02705000 CVTRV626 EQU CVTS01+720 02706000 CVTRV625 EQU CVTS01+716 02707000 CVTRV624 EQU CVTS01+712 02708000 CVTRV623 EQU CVTS01+708 02709000 CVTRV622 EQU CVTS01+704 02710000 CVTRV621 EQU CVTS01+700 02711000 CVTIHASU EQU CVTS01+696 02712000 CVTRV619 EQU CVTS01+692 02713000 CVTRV618 EQU CVTS01+688 02714000 CVTRV617 EQU CVTS01+684 02715000 CVTRV616 EQU CVTS01+680 02716000 CVTRV615 EQU CVTS01+676 02717000 CVTRV614 EQU CVTS01+672 02718000 CVTRV613 EQU CVTS01+668 02719000 CVTTCASP EQU CVTS01+664 02720000 CVT0PT03 EQU CVTS01+660 02721000 CVT0PT0E EQU CVTS01+656 02722000 CVTRV609 EQU CVTS01+652 02723000 CVTCGK EQU CVTS01+648 02724000 CVTRAC EQU CVTS01+644 02725000 CVTHSM EQU CVTS01+640 02726000 CVTRV605 EQU CVTS01+636 02727000 CVTRV604 EQU CVTS01+632 02728000 CVTEFF02 EQU CVTS01+628 02729000 CVTCBBR EQU CVTS01+624 02730000 CVTSSCR EQU CVTS01+620 02731000 CVTEVENT EQU CVTS01+616 02732000 CVTCRCA EQU CVTS01+612 02733000 CVTTPIO EQU CVTS01+608 02734000 CVTADV EQU CVTS01+604 02735000 CVTGSDAB EQU CVTGSDA 02736000 CVTQV3 EQU CVTS01+596 02737000 CVTQV2 EQU CVTS01+592 02738000 CVTQV1 EQU CVTS01+588 02739000 CVTRPT EQU CVTS01+584 02740000 CVTSSRB EQU CVTS01+580 02741000 CVTCSDRL EQU CVTS01+576 02742000 CVTEXP1 EQU CVTS01+572 02743000 CVTRMPMT EQU CVTS01+568 02744000 CVTRMPTT EQU CVTS01+564 02745000 CVTVPSA EQU CVTS01+560 02746000 CVTVSTOP EQU CVTS01+556 02747000 CVTGTFR8 EQU CVTS01+552 02748000 CVTQUIT EQU CVTS01+548 02749000 CVTVACR EQU CVTS01+544 02750000 CVTWTCB EQU CVTS01+540 02751000 CVTSTPRS EQU CVTS01+536 02752000 CVT0PT02 EQU CVTS01+532 02753000 CVTDARCM EQU CVTS01+528 02754000 CVTIRECM EQU CVTS01+524 02755000 CVTJRECM EQU CVTS01+520 02756000 CVTVEMS0 EQU CVTS01+516 02757000 CVTSPFRR EQU CVTS01+512 02758000 CVTRLSTG EQU CVTS01+508 02759000 CVT0TC0A EQU CVTS01+504 02760000 CVTGMBR EQU CVTS01+500 02761000 CVTLFRM EQU CVTS01+496 02762000 CVTRMBR EQU CVTS01+492 02763000 CVTVIOP EQU CVTS01+488 02764000 CVTRV307 EQU CVTS01+486 02765000 CVTRV306 EQU CVTS01+484 02766000 CVTRV305 EQU CVTS01+482 02767000 CVTRV304 EQU CVTS01+480 02768000 CVTRV303 EQU CVTS01+478 02769000 CVTRV302 EQU CVTS01+476 02770000 CVTTRCA EQU CVTS01+472 02771000 CVTRV297 EQU CVTRV289 02772000 CVTRV296 EQU CVTRV289 02773000 CVTRV295 EQU CVTRV289 02774000 CVTRV294 EQU CVTRV289 02775000 CVTRV293 EQU CVTRV289 02776000 CVTRV292 EQU CVTRV289 02777000 CVTRV291 EQU CVTRV289 02778000 CVTRV290 EQU CVTRV289 02779000 CVTRV288 EQU CVTRV280 02780000 CVTRV287 EQU CVTRV280 02781000 CVTRV286 EQU CVTRV280 02782000 CVTRV285 EQU CVTRV280 02783000 CVTRV284 EQU CVTRV280 02784000 CVTRV283 EQU CVTRV280 02785000 CVTRV282 EQU CVTRV280 02786000 CVTRV281 EQU CVTRV280 02787000 CVTRV279 EQU CVTRV271 02788000 CVTRV278 EQU CVTRV271 02789000 CVTRV277 EQU CVTRV271 02790000 CVTRV276 EQU CVTRV271 02791000 CVTRV275 EQU CVTRV271 02792000 CVTRV274 EQU CVTRV271 02793000 CVTRV273 EQU CVTRV271 02794000 CVTRV272 EQU CVTRV271 02795000 CVTRV270 EQU CVTRV262 02796000 CVTRV269 EQU CVTRV262 02797000 CVTRV268 EQU CVTRV262 02798000 CVTRV267 EQU CVTRV262 02799000 CVTRV266 EQU CVTRV262 02800000 CVTRV265 EQU CVTRV262 02801000 CVTRV264 EQU CVTRV262 02802000 CVTRV263 EQU CVTRV262 02803000 CVTVFP EQU CVTS01+464 02804000 CVTVSI EQU CVTS01+460 02805000 CVTVPSIB EQU CVTS01+456 02806000 CVTMFACT EQU CVTMFRTR 02807000 CVTMFCTL EQU CVTS01+448 02808000 CVTPVBP EQU CVTS01+444 02809000 CVTPWI EQU CVTS01+440 02810000 CVTRV254 EQU CVTS01+438 02811000 CVTRV253 EQU CVTS01+436 02812000 CVTRV252 EQU CVTS01+434 02813000 CVTRV251 EQU CVTS01+433 02814000 CVTRV250 EQU CVTS01+432 02815000 CVTRV249 EQU CVTS01+431 02816000 CVTRV248 EQU CVTS01+430 02817000 CVTRV247 EQU CVTS01+429 02818000 CVTRV246 EQU CVTS01+428 02819000 CVTRV245 EQU CVTRV237 02820000 CVTRV244 EQU CVTRV237 02821000 CVTRV243 EQU CVTRV237 02822000 CVTRV242 EQU CVTRV237 02823000 CVTRV241 EQU CVTRV237 02824000 CVTRV240 EQU CVTRV237 02825000 CVTRV239 EQU CVTRV237 02826000 CVTRV238 EQU CVTRV237 02827000 CVTRV236 EQU CVTRV228 02828000 CVTRV235 EQU CVTRV228 02829000 CVTRV234 EQU CVTRV228 02830000 CVTRV233 EQU CVTRV228 02831000 CVTRV232 EQU CVTRV228 02832000 CVTRV231 EQU CVTRV228 02833000 CVTRV230 EQU CVTRV228 02834000 CVTRV229 EQU CVTRV228 02835000 CVTRV227 EQU CVTRV219 02836000 CVTRV226 EQU CVTRV219 02837000 CVTRV225 EQU CVTRV219 02838000 CVTRV224 EQU CVTRV219 02839000 CVTRV223 EQU CVTRV219 02840000 CVTRV222 EQU CVTRV219 02841000 CVTRV221 EQU CVTRV219 02842000 CVTRV220 EQU CVTRV219 02843000 CVTRV218 EQU CVTRV210 02844000 CVTRV217 EQU CVTRV210 02845000 CVTRV216 EQU CVTRV210 02846000 CVTRV215 EQU CVTRV210 02847000 CVTRV214 EQU CVTRV210 02848000 CVTRV213 EQU CVTRV210 02849000 CVTRV212 EQU CVTRV210 02850000 CVTRV211 EQU CVTRV210 02851000 CVTLCCAT EQU CVTS01+420 02852000 CVTPCCAT EQU CVTS01+416 02853000 CVTIPCRP EQU CVTS01+412 02854000 CVTIPCRI EQU CVTS01+408 02855000 CVTIPCDS EQU CVTS01+404 02856000 CVTAIDVT EQU CVTS01+400 02857000 CVTSSAP EQU CVTS01+396 02858000 CVTEHCIR EQU CVTS01+392 02859000 CVTEHDEF EQU CVTS01+388 02860000 CVTDAIR EQU CVTS01+384 02861000 CVTPERFM EQU CVTS01+380 02862000 CVT044R2 EQU CVTS01+376 02863000 CVTFETCH EQU CVTS01+372 02864000 CVTRSTWD EQU CVTS01+368 02865000 CVTSPOST EQU CVTS01+364 02866000 CVTIOBP EQU CVTS01+360 02867000 CVTASMVT EQU CVTS01+356 02868000 CVTRECRQ EQU CVTS01+352 02869000 CVTWSAC EQU CVTS01+348 02870000 CVTRV149 EQU CVTS01+344 02871000 CVTWSAL EQU CVTS01+340 02872000 CVTSPSA EQU CVTS01+336 02873000 CVTGLMN EQU CVTS01+332 02874000 CVTVEAC0 EQU CVTS01+328 02875000 CVT062R1 EQU CVTS01+324 02876000 CVTRPOST EQU CVTS01+320 02877000 CVTDQIQE EQU CVTS01+316 02878000 CVTCSD EQU CVTS01+312 02879000 CVTLKRMA EQU CVTS01+308 02880000 CVTRSPIE EQU CVTS01+304 02881000 CVTRENQ EQU CVTS01+300 02882000 CVTLQCB EQU CVTS01+296 02883000 CVTFQCB EQU CVTS01+292 02884000 CVTQCS01 EQU CVTS01+288 02885000 CVTAPFT EQU CVTS01+284 02886000 CVTPARRL EQU CVTS01+280 02887000 CVTVWAIT EQU CVTS01+276 02888000 CVTGSPL EQU CVTS01+272 02889000 CVTLSMQ EQU CVTS01+268 02890000 CVTGSMQ EQU CVTS01+264 02891000 CVTEXPRO EQU CVTS01+260 02892000 CVTOPCTP EQU CVTS01+256 02893000 CVTSIC EQU CVTS01+252 02894000 CVTTPIOS EQU CVTS01+248 02895000 CVTRTMS EQU CVTS01+244 02896000 CVTSDBF EQU CVTS01+240 02897000 CVTSCBP EQU CVTS01+236 02898000 CVTSDMP EQU CVTS01+232 02899000 CVTSV60 EQU CVTS01+228 02900000 CVTRTMCT EQU CVTS01+224 02901000 CVTASCBL EQU CVTS01+220 02902000 CVTASCBH EQU CVTS01+216 02903000 CVTGDA EQU CVTS01+212 02904000 CVTASVT EQU CVTS01+208 02905000 CVTVVMDI EQU CVTS01+204 02906000 CVTAQTOP EQU CVTS01+200 02907000 CVTIOSCS EQU CVTS01+196 02908000 CVTSDRM EQU CVTS01+192 02909000 CVTOPTE EQU CVTS01+188 02910000 CVTSTXU EQU CVTS01+184 02911000 CVTQUIS EQU CVTS01+180 02912000 CVTPARS EQU CVTS01+176 02913000 CVTS1EE EQU CVTS01+172 02914000 CVTFRAS EQU CVTS01+168 02915000 CVTQSAS EQU CVTS01+164 02916000 CVTCRAS EQU CVTS01+160 02917000 CVTCRMN EQU CVTS01+156 02918000 CVTDELCP EQU CVTS01+152 02919000 CVTFRECL EQU CVTS01+148 02920000 CVTGETCL EQU CVTS01+144 02921000 CVTBLDCP EQU CVTS01+140 02922000 CVTAUTHL EQU CVTS01+136 02923000 CVTSCAN EQU CVTS01+132 02924000 CVTRV144 EQU CVTS01+130 02925000 CVTMAXMP EQU CVTS01+128 02926000 CVTSTCK EQU CVTS01+124 02927000 CVTRV139 EQU CVTS01+123 02928000 CVTDSSAC EQU CVTS01+122 02929000 CVTRV513 EQU CVTS01+121 02930000 CVTIOSPL EQU CVTS01+120 02931000 CVTPTGT EQU CVTS01+116 02932000 CVTCSPIE EQU CVTS01+112 02933000 CVTSMFEX EQU CVTS01+108 02934000 CVTOLT0A EQU CVTS01+104 02935000 CVTSRBRT EQU CVTS01+100 02936000 CVTPUTL EQU CVTS01+96 02937000 CVTASCRL EQU CVTS01+92 02938000 CVTASCRF EQU CVTS01+88 02939000 CVTRV326 EQU CVTS01+84 02940000 CVTRV325 EQU CVTS01+80 02941000 CVTRV324 EQU CVTS01+76 02942000 CVT0VL01 EQU CVTS01+72 02943000 CVTSHRVM EQU CVTS01+68 02944000 CVTRV332 EQU CVTS01+64 02945000 CVTTAS EQU CVTS01+60 02946000 CVTRSCN EQU CVTS01+56 02947000 CVTTRAC2 EQU CVTS01+54 02948000 CVTTRACE EQU CVTS01+52 02949000 CVTAPG EQU CVTS01+51 02950000 CVTSDTRC EQU CVTCTLFG 02951000 CVTGTRCE EQU CVTCTLFG 02952000 CVTNOMP EQU CVTCTLFG 02953000 CVTRSV79 EQU CVTCTLFG 02954000 CVTDSTAT EQU CVTCTLFG 02955000 CVTRSV78 EQU CVTCTLFG 02956000 CVTRV333 EQU CVTCTLFG 02957000 CVTRV323 EQU CVTCTLFG 02958000 CVTSPVLK EQU CVTS01+49 02959000 CVTRSV77 EQU CVTS01+48 02960000 CVTRV331 EQU CVTS01+44 02961000 CVTRV330 EQU CVTS01+40 02962000 CVTRV329 EQU CVTS01+36 02963000 CVTRV328 EQU CVTS01+32 02964000 CVTRV322 EQU CVTS01+28 02965000 CVTSLID EQU CVTSLIDA+1 02966000 CVTSYLK EQU CVTSLIDA 02967000 CVTRV321 EQU CVTS01+20 02968000 CVTRV320 EQU CVTS01+16 02969000 CVTLPDIR EQU CVTLPDIA+1 02970000 CVTRSV69 EQU CVTDIRST 02971000 CVTRSV68 EQU CVTDIRST 02972000 CVTRSV67 EQU CVTDIRST 02973000 CVTRSV66 EQU CVTDIRST 02974000 CVTRSV65 EQU CVTDIRST 02975000 CVTRSV64 EQU CVTDIRST 02976000 CVTRSV63 EQU CVTDIRST 02977000 CVTDICOM EQU CVTDIRST 02978000 CVTPVTP EQU CVTS01+8 02979000 CVTLPDSR EQU CVTS01+4 02980000 CVTGETL EQU CVTS01 02981000 @NM00227 EQU ECB+1 02982000 @NM00226 EQU ECBCC 02983000 ECBPOST EQU ECBCC 02984000 TTHTAG2 EQU TTHTAG+1 02985000 @NM00225 EQU TTHTAG1 02986000 TTHTAGS EQU TTHTAG1 02987000 TTHBYTE1 EQU IEDTH+1 02988000 TTHEFI EQU TTHBYTE0 02989000 @NM00224 EQU TTHBYTE0 02990000 TRMOPTBL EQU IEDQTRM+18 02991000 TRMOPNO EQU IEDQTRM+17 02992000 TRMCHCIN EQU IEDQTRM+16 02993000 TRMSENSE EQU TRMSTAT+3 02994000 TRMTEMPR EQU TRMSTAT+2 02995000 TRMNADDR EQU TRMOWNER 02996000 @NM00205 EQU TRMDEVFL+1 02997000 TRMTPIN EQU TRMDEVFL+1 02998000 @NM00204 EQU TRMNCPI 02999000 TRMRNTRM EQU TRMDEVFL+1 03000000 @NM00203 EQU TRMDEVFL+1 03001000 TRMLMD EQU TRMDEVFL+1 03002000 TRMCONC EQU TRMDEVFL+1 03003000 TRMTSOB EQU TRMDEVFL 03004000 TRMBFDY EQU TRMDEVFL 03005000 TRMTBLK EQU TRMDEVFL 03006000 TRMSBLK EQU TRMDEVFL 03007000 TRMBLKS EQU TRMDEVFL 03008000 TRMSCV EQU TRMADDC 03009000 TRMDDIG EQU TRMDEVFL 03010000 TRMBUFS EQU TRMDEVFL 03011000 TRMSTEAL EQU TRMPRILK 03012000 TRMLGB EQU TRMDSORG 03013000 TRMUTERM EQU TRMSESCT 03014000 TRMVERIF EQU TRMRSTRT 03015000 @NM00202 EQU TRMRSTRT 03016000 @NM00201 EQU TRMDESTQ 03017000 TRMSCNYN EQU TRMSTATE 03018000 TRMOPTFN EQU TRMSTATE 03019000 TRMHELDN EQU TRMSTATE 03020000 TRMACPTN EQU TRMSTATE 03021000 TRMPREF EQU TRMSTATE 03022000 TRMPROC EQU TRMLOG 03023000 TRMLIST EQU TRMLOG 03024000 TRMLINE EQU TRMSTATE 03025000 TRMSUBST EQU IEDNTRM+16 03026000 TRMTYPE EQU IEDNTRM+15 03027000 TRMPRIME EQU TRMLGBST 03028000 TRMOWNR EQU TRMLTRAC+1 03029000 TRMGPCNT EQU TRMLTRAC 03030000 TRMBUFRD EQU TRMBYTE0 03031000 TRMSNA EQU TRMBYTE0 03032000 TRMGP EQU TRMBYTE0 03033000 TRMDIAL EQU TRMBYTE0 03034000 TRMACDC EQU TRMNOWCD 03035000 TRMOUTPT EQU TRMBYTE0 03036000 TRMINPUT EQU TRMBYTE0 03037000 TRMUDEF EQU TRMBYTE0 03038000 TRMCOHRT EQU IEDNTRM+8 03039000 TRMSTOTE EQU TRMBYTE1 03040000 TRMCKPRN EQU TRMBYTE1 03041000 TRMTSATN EQU TRMBYTE1 03042000 TRMTRACE EQU TRMBYTE1 03043000 TRMSWBCK EQU TRMBYTE1 03044000 TRMAUTOC EQU TRMBYTE1 03045000 TRMINPTP EQU TRMBYTE1 03046000 TRMWTNEG EQU TRMSCPRQ 03047000 TRMWRBRK EQU TRMBYTE2 03048000 TRMNOSND EQU TRMBYTE2 03049000 TRMPREP EQU TRMBYTE2 03050000 TRMGPACT EQU TRMBYTE2 03051000 TRMANDL EQU TRMBYTE2 03052000 TRMCLOSN EQU TRMINPG 03053000 TRMREMB EQU TRMBYTE2 03054000 TRMRSACT EQU TRMBYTE2 03055000 @NM00200 EQU TRMCDF0 03056000 TRMPURGE EQU TRMCDF0 03057000 TRMCDST EQU TRMINDEX 03058000 RQEHDR EQU IEDRQE+16 03059000 RQETCBAD EQU IEDRQE+13 03060000 RQEKEY EQU IEDRQE+12 03061000 RQEDEB EQU IEDRQE+9 03062000 RQEPR EQU IEDRQE+8 03063000 RQETCB EQU IEDRQE+4 03064000 RQELNK EQU IEDRQE 03065000 @NM00199 EQU TRHBYTE2 03066000 @NM00198 EQU TRHBYTE2 03067000 @NM00197 EQU TRHBYTE2 03068000 TRHCSI EQU TRHBYTE2 03069000 @NM00196 EQU TRHBYTE2 03070000 TRHCDI EQU TRHBYTE2 03071000 TRHEB EQU TRHBYTE2 03072000 TRHBB EQU TRHBYTE2 03073000 TRHPI EQU TRHBYTE1 03074000 TRHQRI EQU TRHBYTE1 03075000 @NM00195 EQU TRHBYTE1 03076000 @NM00194 EQU TRHBYTE1 03077000 TRHER EQU TRHBYTE1 03078000 TRHDR2 EQU TRHBYTE1 03079000 @NM00193 EQU TRHBYTE1 03080000 TRHDR1 EQU TRHBYTE1 03081000 TRHSDI EQU TRHBYTE0 03082000 @NM00192 EQU TRHBYTE0 03083000 TRHRUCAT EQU TRHBYTE0 03084000 TRHTYPE EQU TRHBYTE0 03085000 TNTTRMAD EQU IEDTNTA 03086000 @NM00191 EQU IEDQTNTD+46 03087000 TNTLEN EQU IEDQTNTD+44 03088000 @NM00190 EQU IEDQTNTD+41 03089000 TNTENLEN EQU IEDQTNTD+40 03090000 @NM00189 EQU IEDQTNTD+38 03091000 @NM00188 EQU IEDQTNTD 03092000 TCXEND EQU IEDQTCXD+224 03093000 TCXNCPIO EQU IEDQTCXD+220 03094000 TCXACTE8 EQU TCXQE8 03095000 TCXABEPL EQU IEDQTCXD+212 03096000 TCXSRBS EQU IEDQTCXD+208 03097000 TCXSIOSB EQU IEDQTCXD+204 03098000 TCXESAVE EQU IEDQTCXD+132 03099000 TCXERPPM EQU IEDQTCXD+128 03100000 TCXERPSV EQU IEDQTCXD+116 03101000 TCXSATTN EQU IEDQTCXD+112 03102000 @NM00187 EQU TCXDSAVE+4 03103000 @NM00186 EQU TCXDSAVE 03104000 TCXPLCB EQU IEDQTCXD+100 03105000 TCXBITS EQU IEDQTCXD+98 03106000 TCXSCBSZ EQU IEDQTCXD+97 03107000 TCXBIT1 EQU IEDQTCXD+96 03108000 TCXCOMPT EQU IEDQTCXD+92 03109000 TCXAVAIL EQU IEDQTCXD+88 03110000 TCXBUFL EQU IEDQTCXD+84 03111000 TCXTOTE EQU TCXBUFA 03112000 TCXCKPM EQU IEDQTCXD+79 03113000 TCXNCKPR EQU IEDQTCXD+78 03114000 TCXSZAIB EQU IEDQTCXD+76 03115000 TCXAIBC EQU IEDQTCXD+72 03116000 TCXPEBC EQU IEDQTCXD+68 03117000 TCXPEWAC EQU IEDQTCXD+64 03118000 TCXQRQ EQU IEDQTCXD+60 03119000 TCXOCQ EQU IEDQTCXD+56 03120000 TCXPNTQ EQU IEDQTCXD+52 03121000 TCXPUTQ EQU IEDQTCXD+48 03122000 TCXGETQ EQU IEDQTCXD+44 03123000 TCXTSI EQU IEDQTCXD+40 03124000 TCXRPT EQU IEDQTCXD+36 03125000 TCXCC3TS EQU IEDQTCXD+35 03126000 TCXAPDMP EQU TCXFLAG1 03127000 TCXAPPL EQU TCXFLAG1 03128000 TCXRTM EQU TCXFLAG1 03129000 TCXMCPCD EQU TCXFLAG1 03130000 TCXAUTH EQU TCXFLAG1 03131000 TCXASID EQU IEDQTCXD+32 03132000 TCXASCB EQU IEDQTCXD+28 03133000 TCXPASWD EQU IEDQTCXD+16 03134000 TCXDISP EQU IEDQTCXD+12 03135000 TCXTCB EQU IEDQTCXD+8 03136000 TCXATTLN EQU TCXATTEN 03137000 PRF2SEQP EQU PRF2WD2 03138000 @NM00185 EQU IEDPF2+1 03139000 @NM00184 EQU PRF2FLG2 03140000 PRF2TERM EQU PRF2FLG2 03141000 PRF2SMI EQU PRF2FLG2 03142000 PRF2FORM EQU PRF2FLG2 03143000 PRF2TNTI EQU PRF2FLG2 03144000 PRF1RCDE EQU PRF1RULN 03145000 PRF1TAG2 EQU PRF1SQID+1 03146000 @NM00183 EQU PRF1TAG1 03147000 PRF1TAGS EQU PRF1TAG1 03148000 @NM00182 EQU PRF1FLG1 03149000 PRF1LOGD EQU PRF1FLG1 03150000 PRF1USS EQU PRF1FLG1 03151000 PRF1FORM EQU PRF1FLG1 03152000 PRF1EXPI EQU PRF1FLG1 03153000 PRF1FIDI EQU PRF1FLG1 03154000 PRF1RH EQU IEDPF1 03155000 PRFDEST EQU IEDQPRF+40 03156000 PRFISEQ EQU IEDQPRF+38 03157000 PRFSTXT EQU PRFHQBCK 03158000 PRFNHDR EQU PRFCHDR 03159000 PRFCRCD EQU IEDQPRF+29 03160000 PRFSVSEQ EQU PRFLU2TT 03161000 PRFSVPRI EQU PRFEOBOF 03162000 PRFISIZE EQU PRFSCAN+1 03163000 @NM00180 EQU PRFSCAN 03164000 PRFEOB EQU PRFLU1TT 03165000 PRFSTSO EQU PRFXTRA 03166000 PRFNHDRN EQU PRFSTAT1 03167000 PRFNLSTN EQU PRFSTAT1 03168000 PRFLOCK EQU PRFEOFN 03169000 PRFDUPLN EQU PRFSTAT1 03170000 PRFTSMSG EQU PRFSTAT1 03171000 PRFITCPN EQU PRFSTAT1 03172000 PRFERMGN EQU PRFSTAT1 03173000 PRFCNCLN EQU PRFSTAT1 03174000 PRFSIZE EQU PRFSRCSZ+2 03175000 PRFSRCE EQU PRFSRCSZ 03176000 PRFLCB EQU IEDQPRF+13 03177000 @NM00179 EQU PRFVTCHK 03178000 PRFITSET EQU PRFVTCHK 03179000 @NM00178 EQU PRFVTCHK 03180000 @NM00177 EQU PRFTI0 03181000 @NM00176 EQU PRFTICC 03182000 @NM00175 EQU PRFTICC 03183000 @NM00174 EQU PRFTICC 03184000 PRFTICON EQU PRFTICC 03185000 @NM00173 EQU PRFTICC 03186000 @NM00172 EQU PRFTICC 03187000 PRFBFMM EQU PRFTICC 03188000 PRFEOMSG EQU PRFTICC 03189000 PRFCOUNT EQU PRFLINK+1 03190000 @NM00171 EQU PRFLINK 03191000 PRFFLAGS EQU PRFPRI 03192000 PRFIOADR EQU PRFQCBA 03193000 PRFOPCDE EQU PRFKEY 03194000 LCBERADR EQU LCBXRADR+1 03195000 LCBPCIRC EQU LCBXRADR 03196000 LCBDCT3 EQU LCBXDCT+2 03197000 LCBDCT2 EQU LCBXDCT+1 03198000 LCBDCT1 EQU LCBXDCT 03199000 @NM00170 EQU LCBXFLAG 03200000 LCBERPND EQU LCBXFLAG 03201000 LCBSRCPF EQU LCBXFLAG 03202000 LCBGPCTV EQU LCBXFLAG 03203000 @NM00169 EQU LCBXFLAG 03204000 @NM00168 EQU LCBXFLAG 03205000 @NM00167 EQU LCBXFLAG 03206000 @NM00166 EQU LCBXFLAG 03207000 LCBCCW10 EQU LCBCPA+72 03208000 LCBCCW9 EQU LCBCPA+64 03209000 LCBCCW8 EQU LCBCPA+56 03210000 LCBCP EQU LCBQEBPL+4 03211000 LCBSIO EQU LCBQEBPL 03212000 @NM00151 EQU LCBERCCW+16 03213000 LCBATL05 EQU LCBERCCW+8 03214000 @NM00150 EQU LCBERCCW 03215000 LCBCSWSV EQU LCBSAVSN+1 03216000 LCBSNSV EQU LCBSAVSN 03217000 LCBBFSNS EQU LCBRSPSV 03218000 LCBWAITC EQU LCBTPCD+5 03219000 LCBINPAK EQU LCBSTAT6 03220000 LCBMHBID EQU LCBSTAT6 03221000 @NM00149 EQU LCBSTAT6 03222000 LCBHDRPD EQU LCBSTAT6 03223000 LCBCHN EQU LCBSTAT6 03224000 LCBBFRSV EQU LCBTPCD+1 03225000 @NM00148 EQU LCBSTAT5 03226000 LCBSUSFG EQU LCBSTAT5 03227000 LCBLUS EQU LCBSTAT5 03228000 LCBLUNIT EQU LCBSTAT5 03229000 LCBPERM EQU LCBSTAT5 03230000 LCBNXCMD EQU LCBBFRW 03231000 @NM00147 EQU LCBSTAT7 03232000 LCBCDFD0 EQU LCBSTAT7 03233000 LCBSCBA EQU IEDQLCB+93 03234000 LCBOLT EQU LCBMSGFM 03235000 LCBEOT EQU LCBMSGFM 03236000 LCBENQ EQU LCBMSGFM 03237000 LCBTTD EQU LCBMSGFM 03238000 LCBRSTRT EQU LCBMSGFM 03239000 LCBVSTRT EQU LCBMSGFM 03240000 LCBACKI EQU LCBMSGFM 03241000 LCBNAK EQU LCBMSGFM 03242000 @NM00146 EQU LCBRBCT2 03243000 LCBDCNT EQU LCBRBCT2 03244000 LCBRBCT1 EQU LCBERBCT 03245000 LCBERBCH EQU IEDQLCB+85 03246000 LCBCOMPL EQU LCBDLNKN 03247000 LCBPRCPG EQU LCBERBST 03248000 LCBERROR EQU LCBERBST 03249000 LCBLOGDV EQU LCBERBST 03250000 LCBINQ EQU LCBERBST 03251000 LCBRDERR EQU LCBERBST 03252000 LCBEOMSG EQU LCBERBST 03253000 LCBMSG EQU LCBERBST 03254000 LCBERBLK EQU IEDQLCB+81 03255000 LCBERBPY EQU IEDQLCB+80 03256000 LCBERBQB EQU LCBERB+1 03257000 LCBERBKY EQU LCBERB 03258000 LCBRECAD EQU IEDQLCB+73 03259000 @NM00145 EQU LCBTSTSW 03260000 @NM00144 EQU LCBTSTSW 03261000 @NM00143 EQU LCBTSTSW 03262000 @NM00142 EQU LCBTSTSW 03263000 @NM00141 EQU LCBTSTSW 03264000 @NM00140 EQU LCBTSTSW 03265000 @NM00139 EQU LCBTSTSW 03266000 LCBCONCT EQU LCBTSTSW 03267000 LCBRESP EQU LCBSTAT2 03268000 LCBNEGRP EQU LCBSTAT2 03269000 LCBSNDPR EQU LCBSTAT2 03270000 LCBCONNN EQU LCBBEOTN 03271000 LCBMSGNN EQU LCBSTAT2 03272000 LCBTRACE EQU LCBSTAT2 03273000 LCBFREEN EQU LCBSTAT1 03274000 LCBCONT EQU LCBSTAT1 03275000 LCBINITN EQU LCBSTAT1 03276000 LCBOCNI EQU LCBSTAT1 03277000 LCBOCWTN EQU LCBSTAT1 03278000 LCBRCLLN EQU LCBSTAT1 03279000 LCBRECOF EQU IEDQLCB+68 03280000 LCBUCBX EQU IEDQLCB+64 03281000 LCBTTBIN EQU LCBERRCT 03282000 LCBINTBF EQU LCBINCAM+1 03283000 @NM00138 EQU LCBINCAM 03284000 LCBGETMN EQU LCBINCAM 03285000 @NM00136 EQU LCBRESTR+1 03286000 LCBCMDSV EQU LCBRESTR 03287000 LCBPCILK EQU LCBDCBPT 03288000 LCBAP4OL EQU LCBSIOCC 03289000 LCBAP3OL EQU LCBSIOCC 03290000 LCBAP2OL EQU LCBSIOCC 03291000 LCBAP1OL EQU LCBSIOCC 03292000 @NM00135 EQU LCBSIOCC 03293000 LCBUSDE EQU LCBCSWUS 03294000 LCBUSCE EQU LCBCSWUS 03295000 LCBUSBSY EQU LCBCSWUS 03296000 LCBUSCUE EQU LCBCSWUS 03297000 LCBUSSM EQU LCBCSWUS 03298000 LCBOBR EQU LCBFLAG3 03299000 LCBOBRRD EQU LCBFLAG3 03300000 LCBIOMSG EQU LCBFLAG3 03301000 LCBSOHC EQU LCBFLAG3 03302000 @NM00134 EQU LCBFLAG3 03303000 LCBSENS1 EQU LCBSNS+1 03304000 LCBOVRUN EQU LCBSENS0 03305000 LCBDATCK EQU LCBSENS0 03306000 LCBEQUCK EQU LCBSENS0 03307000 LCBBUSCK EQU LCBSENS0 03308000 LCBINTRQ EQU LCBSENS0 03309000 LCBCMDRJ EQU LCBSENS0 03310000 @NM00133 EQU LCBFLAG1 03311000 LCBUNREL EQU LCBFLAG1 03312000 LCBEXCPN EQU LCBFLAG1 03313000 @NM00132 EQU LCBFLAG1 03314000 LCBERPIN EQU LCBFLAG1 03315000 @NM00131 EQU LCBFLAG1 03316000 LCBISZE EQU IEDQLCB+28 03317000 LCBLNENT EQU LCBSCBDA+1 03318000 @NM00130 EQU LCBSCBDA 03319000 LCBCPGMH EQU LCBSTAT4 03320000 @NM00129 EQU LCBSTAT4 03321000 LCBACTRQ EQU LCBSTAT4 03322000 LCBIPLRQ EQU LCBSTAT4 03323000 LCBDACRQ EQU LCBSTAT4 03324000 LCBDMPRQ EQU LCBSTAT4 03325000 @NM00128 EQU LCBLKMDE 03326000 LCBLOCKI EQU LCBLKMDE 03327000 LCBLOCKR EQU LCBLKMDE 03328000 LCBHMFLG EQU LCBLKMDE 03329000 LCBBDFLG EQU LCBLKMDE 03330000 LCBLKDST EQU LCBINSRC 03331000 LCBABRTN EQU LCBCHAIN 03332000 LCBCTLMD EQU LCBTETEN 03333000 LCBBFRSZ EQU LCBCHAIN 03334000 LCBUREQN EQU LCBCHAIN 03335000 LCBNORTY EQU LCBCHAIN 03336000 LCBERMSG EQU LCBCHAIN 03337000 LCBEXCP EQU LCBCHAIN 03338000 LCBINVRQ EQU LCBSCRNN 03339000 LCB2741N EQU LCBTSOB 03340000 LCBINHBN EQU LCBTSOB 03341000 LCBCIRCD EQU LCBTSOB 03342000 LCBPREP EQU LCBTSOB 03343000 LCBSOPL EQU LCBTSOB 03344000 LCBSATRD EQU LCBTSOB 03345000 LCBTSBUF EQU LCBTSOB 03346000 LCBWRBRK EQU LCBTSOB 03347000 LCBTDL EQU IEDQLCB+18 03348000 LCBEOLTD EQU IEDQLCB+16 03349000 LCBRSLNK EQU IEDQLCB+13 03350000 LCBRSPRI EQU IEDQLCB+12 03351000 LCBSTCBA EQU IEDQLCB+9 03352000 LCBRSKEY EQU IEDQLCB+8 03353000 LCBLINK EQU LCBRCB+5 03354000 LCBKEY EQU LCBRCB 03355000 IOSEND EQU IOSB+108 03356000 IOSSKR EQU IOSEEKA+7 03357000 IOSSKH2 EQU IOSSKHH+1 03358000 IOSSKH1 EQU IOSSKHH 03359000 IOSSKCC EQU IOSCCHH 03360000 IOSSKBB EQU IOSEEKA+1 03361000 IOSSKM EQU IOSEEKA 03362000 IOSEEK EQU IOSB+92 03363000 IOSMDM EQU IOSB+91 03364000 IOSMDB EQU IOSB+90 03365000 IOSCKEY7 EQU IOSCKEY 03366000 IOSCKEY6 EQU IOSCKEY 03367000 IOSCKEY5 EQU IOSCKEY 03368000 IOSCKEY4 EQU IOSCKEY 03369000 @NM00124 EQU IOSCKEY 03370000 IOSFMSK EQU IOSB+88 03371000 IOSCUDEV EQU IOSPATH+1 03372000 @NM00123 EQU IOSCHN 03373000 IOSPATH3 EQU IOSCHN 03374000 IOSPATH2 EQU IOSCHN 03375000 IOSEXP EQU IOSCHN 03376000 IOSGDP EQU IOSCHN 03377000 IOSAFF EQU IOSB+85 03378000 IOSRSS1B EQU IOSB+84 03379000 IOSDSID EQU IOSB+80 03380000 IOSVST EQU IOSB+76 03381000 IOSRST EQU IOSB+72 03382000 IOSDIE EQU IOSB+68 03383000 IOSABN EQU IOSB+64 03384000 IOSNRM EQU IOSB+60 03385000 IOSPCI EQU IOSB+56 03386000 IOSERP EQU IOSB+52 03387000 IOSPCHN EQU IOSB+48 03388000 IOSAPMSK EQU IOSB+40 03389000 IOSRES4A EQU IOSB+36 03390000 IOSSRB EQU IOSB+28 03391000 IOSCSWRC EQU IOSCSW+5 03392000 IOSTSB EQU IOSTATUS+1 03393000 IOSTSA EQU IOSTATUS 03394000 IOSOPT2X EQU IOSOPT2 03395000 IOSIGP EQU IOSOPT2 03396000 IOSHTP EQU IOSOPT2 03397000 IOSRELSE EQU IOSOPT 03398000 IOSAPR EQU IOSOPT 03399000 IOSNERP EQU IOSOPT 03400000 IOSPSLL EQU IOSOPT 03401000 IOSQISCE EQU IOSOPT 03402000 IOSDEP EQU IOSOPT 03403000 IOSBYP EQU IOSOPT 03404000 IOSPKY7 EQU IOSPKEY 03405000 IOSPGDPX EQU IOSPKEY 03406000 IOSIDR EQU IOSPKEY 03407000 IOSLCL EQU IOSPKEY 03408000 @NM00121 EQU IOSPKEY 03409000 IOSPGAD EQU IOSB+8 03410000 IOSASID EQU IOSB+6 03411000 IOSPRLVL EQU IOSB+5 03412000 IOSDVRID EQU IOSB+4 03413000 IOSPROC EQU IOSB+3 03414000 IOSFLC7 EQU IOSFLC 03415000 IOSCTCNR EQU IOSFLC 03416000 IOSRWAIT EQU IOSFLC 03417000 IOSTP EQU IOSFLC 03418000 IOSCC3WE EQU IOSFLC 03419000 IOSVERIF EQU IOSDVALT 03420000 IOSDVMNT EQU IOSFLC 03421000 IOSLOG EQU IOSFLB 03422000 IOSBDCST EQU IOSFLB 03423000 IOSMSG EQU IOSFLB 03424000 IOSFLB4 EQU IOSFLB 03425000 IOSFLB3 EQU IOSFLB 03426000 IOSNOTRS EQU IOSFLB 03427000 IOSSDR EQU IOSFLB 03428000 IOSDIESE EQU IOSFLB 03429000 IOSIOSB EQU IOSFLA 03430000 IOSDOM EQU IOSFLA 03431000 IOSSMDB EQU IOSFLA 03432000 IOSSMDA EQU IOSFLA 03433000 IOSERR EQU IOSFLA 03434000 IOSCCHN EQU IOSACHN 03435000 IOSDCHN EQU IOSACHN 03436000 DCBBUFSI EQU IHADCS43+6 03437000 DCBUNTCT EQU IHADCS43+5 03438000 DCBILCT EQU IHADCS43+4 03439000 DCBSCTAD EQU DCBSCTAB+1 03440000 @NM00120 EQU DCBSCTAB 03441000 DCBPUTA EQU DCBGETA 03442000 @NM00119 EQU DCBPUT 03443000 DCBDEBA EQU DCBDEBAD+1 03444000 @NM00118 EQU DCBIFLGS 03445000 DCBIFIOE EQU DCBIFLGS 03446000 DCBCH12 EQU DCBIFPCT 03447000 DCBCH9 EQU DCBIFPCT 03448000 DCBIFEC EQU DCBIFLGS 03449000 DCBMFSTI EQU DCBMFDMD 03450000 DCBMFAWR EQU DCBMFSTK 03451000 DCBMFUIP EQU DCBMFTMD 03452000 DCBMFIDW EQU DCBMFLCP 03453000 DCBMFWRK EQU DCBMFMVP 03454000 DCBMFRDQ EQU DCBMFWRT 03455000 DCBMFGTQ EQU DCBMFPUT 03456000 DCBMFSTL EQU DCBMACF2 03457000 DCBMFCK EQU DCBMFDMG 03458000 DCBMFRDX EQU DCBMFCHK 03459000 DCBMFDBF EQU DCBMFSBG 03460000 DCBMFRDI EQU DCBMFLCG 03461000 DCBMFRDK EQU DCBMFMVG 03462000 DCBMFWRQ EQU DCBMFRD 03463000 DCBMFPTQ EQU DCBMFGET 03464000 DCBMFECP EQU DCBMACF1 03465000 DCBTIOT EQU IHADCS25 03466000 DCBMRSTI EQU DCBMRDMD 03467000 DCBMRAWR EQU DCBMRSTK 03468000 DCBMRUIP EQU DCBMRTMD 03469000 DCBMRIDW EQU DCBMRLCP 03470000 DCBMRWRK EQU DCBMRMVP 03471000 DCBMRRDQ EQU DCBMRWRT 03472000 DCBMRGTQ EQU DCBMRPUT 03473000 DCBMRSTL EQU DCBMACR2 03474000 DCBMRCK EQU DCBMRDMG 03475000 DCBPGFXA EQU DCBMRRDX 03476000 DCBMRDBF EQU DCBMRSBG 03477000 DCBMRRDI EQU DCBMRLCG 03478000 DCBMRRDK EQU DCBMRMVG 03479000 DCBMRWRQ EQU DCBMRRD 03480000 DCBMRPTQ EQU DCBMRGET 03481000 DCBMRECP EQU DCBMACR1 03482000 @NM00117 EQU DCBIFLG 03483000 DCBIBIOE EQU DCBIFLG 03484000 DCBICH12 EQU DCBIBPCT 03485000 DCBICH9 EQU DCBIBPCT 03486000 DCBIBEC EQU DCBIFLG 03487000 DCBOFIOF EQU DCBOFLGS 03488000 DCBOFUEX EQU DCBOFLGS 03489000 DCBOFTM EQU DCBOFLGS 03490000 DCBOFPPC EQU DCBOFLGS 03491000 DCBOFOPN EQU DCBOFLGS 03492000 DCBOFEOV EQU DCBOFLGS 03493000 DCBOFLRB EQU DCBOFLGS 03494000 DCBOFIOD EQU DCBOFLWR 03495000 DCBDDNAM EQU IHADCS24 03496000 DCBEXLSA EQU DCBEXLST+1 03497000 DCBRNCKA EQU DCBRNCKD+1 03498000 @NM00116 EQU DCBRNCKD 03499000 DCBIOBAD EQU IHADCS2K+8 03500000 DCBDSGTR EQU DCBDSRG2 03501000 @NM00115 EQU DCBDSRG2 03502000 DCBDSRG1 EQU DCBDSORG 03503000 DCBCHNGL EQU DCBTRSTA 03504000 DCBNIDLE EQU DCBTRSTA 03505000 DCBBAKUP EQU DCBTRSTA 03506000 DCBIPLED EQU DCBTRSTA 03507000 DCBRSTRT EQU DCBTRSTA 03508000 DCBINITL EQU DCBTRSTA 03509000 DCBAUTOD EQU DCBTRSTA 03510000 DCBAUTOI EQU DCBTRSTA 03511000 @NM00114 EQU IHADCS2K+4 03512000 DCBDUMPA EQU DCBDUMPD+1 03513000 DCBUNITN EQU DCBDUMPD 03514000 DCBBCKUA EQU DCBBCKUP+1 03515000 @NM00113 EQU DCBBCKUP 03516000 DCBIPLTX EQU IHADCS1A 03517000 @NM00112 EQU IHADCB 03518000 CVTLEVL EQU CVTRELNO+2 03519000 CVTNUMB EQU CVTRELNO 03520000 CVTMDL EQU CVTFIX+250 03521000 @NM00111 EQU CVTFIX+248 03522000 @NM00110 EQU CVTFIX 03523000 CVTRV482 EQU CVTXTNT2+128 03524000 CVTRV481 EQU CVTXTNT2+124 03525000 CVTRV480 EQU CVTXTNT2+120 03526000 CVTRV479 EQU CVTXTNT2+118 03527000 CVTRV478 EQU CVTXTNT2+117 03528000 CVTRV477 EQU CVTXTNT2+116 03529000 CVTRV476 EQU CVTXTNT2+115 03530000 CVTRV475 EQU CVTXTNT2+114 03531000 CVTRV474 EQU CVTRV466 03532000 CVTRV473 EQU CVTRV466 03533000 CVTRV472 EQU CVTRV466 03534000 CVTRV471 EQU CVTRV466 03535000 CVTRV470 EQU CVTRV466 03536000 CVTRV469 EQU CVTRV466 03537000 CVTRV468 EQU CVTRV466 03538000 CVTRV467 EQU CVTRV466 03539000 CVTRV465 EQU CVTRV457 03540000 CVTRV464 EQU CVTRV457 03541000 CVTRV463 EQU CVTRV457 03542000 CVTRV462 EQU CVTRV457 03543000 CVTRV461 EQU CVTRV457 03544000 CVTRV460 EQU CVTRV457 03545000 CVTRV459 EQU CVTRV457 03546000 CVTRV458 EQU CVTRV457 03547000 CVTRV456 EQU CVTXTNT2+108 03548000 CVTRV455 EQU CVTXTNT2+104 03549000 CVTRV454 EQU CVTXTNT2+100 03550000 CVTRV453 EQU CVTXTNT2+96 03551000 CVTRV452 EQU CVTXTNT2+94 03552000 CVTRV451 EQU CVTXTNT2+92 03553000 CVTRV450 EQU CVTXTNT2+90 03554000 CVTRV449 EQU CVTXTNT2+88 03555000 CVTRV448 EQU CVTXTNT2+87 03556000 CVTRV447 EQU CVTXTNT2+86 03557000 CVTRV446 EQU CVTRV438 03558000 CVTRV445 EQU CVTRV438 03559000 CVTRV444 EQU CVTRV438 03560000 CVTRV443 EQU CVTRV438 03561000 CVTRV442 EQU CVTRV438 03562000 CVTRV441 EQU CVTRV438 03563000 CVTRV440 EQU CVTRV438 03564000 CVTRV439 EQU CVTRV438 03565000 CVTRV437 EQU CVTRV429 03566000 CVTRV436 EQU CVTRV429 03567000 CVTRV435 EQU CVTRV429 03568000 CVTRV434 EQU CVTRV429 03569000 CVTRV433 EQU CVTRV429 03570000 CVTRV432 EQU CVTRV429 03571000 CVTRV431 EQU CVTRV429 03572000 CVTRV430 EQU CVTRV429 03573000 CVTRV428 EQU CVTXTNT2+80 03574000 CVTRV427 EQU CVTXTNT2+76 03575000 CVTRV426 EQU CVTXTNT2+72 03576000 CVTRV425 EQU CVTXTNT2+68 03577000 CVTATACT EQU CVTATCVT 03578000 CVTRV423 EQU CVTXTNT2+62 03579000 CVTRV422 EQU CVTXTNT2+60 03580000 CVTRV421 EQU CVTXTNT2+58 03581000 CVTRV420 EQU CVTXTNT2+56 03582000 CVTRV419 EQU CVTXTNT2+55 03583000 CVTRV418 EQU CVTXTNT2+54 03584000 CVTRV417 EQU CVTRV409 03585000 CVTRV416 EQU CVTRV409 03586000 CVTRV415 EQU CVTRV409 03587000 CVTRV414 EQU CVTRV409 03588000 CVTRV413 EQU CVTRV409 03589000 CVTRV412 EQU CVTRV409 03590000 CVTRV411 EQU CVTRV409 03591000 CVTRV410 EQU CVTRV409 03592000 CVTRV408 EQU CVTRV400 03593000 CVTRV407 EQU CVTRV400 03594000 CVTRV406 EQU CVTRV400 03595000 CVTRV405 EQU CVTRV400 03596000 CVTRV404 EQU CVTRV400 03597000 CVTRV403 EQU CVTRV400 03598000 CVTRV402 EQU CVTRV400 03599000 CVTRV401 EQU CVTRV400 03600000 CVTICB EQU CVTXTNT2+48 03601000 CVTSKTA EQU CVTXTNT2+44 03602000 CVTCCVT EQU CVTXTNT2+40 03603000 CVTRSV98 EQU CVTXTNT2+36 03604000 CVTRSV97 EQU CVTXTNT2+34 03605000 CVTRSV96 EQU CVTXTNT2+32 03606000 CVTOLTEP EQU CVTXTNT2+28 03607000 CVTQIDA EQU CVTQID+1 03608000 CVTRSV95 EQU CVTQID 03609000 CVTRSV94 EQU CVTXTNT2+20 03610000 CVTRSV93 EQU CVTXTNT2+16 03611000 CVTRSV92 EQU CVTXTNT2+12 03612000 CVTDEBVR EQU CVTXTNT2+8 03613000 CVTRSV91 EQU CVTXTNT2+6 03614000 CVTRSV9H EQU CVTFLGBT 03615000 CVTRSV9G EQU CVTFLGBT 03616000 CVTRSV9F EQU CVTFLGBT 03617000 CVTRSV9E EQU CVTFLGBT 03618000 CVTRSV9D EQU CVTFLGBT 03619000 CVTRSV9C EQU CVTFLGBT 03620000 CVTVME EQU CVTFLGBT 03621000 CVTNPE EQU CVTFLGBT 03622000 CVTNUCLS EQU CVTXTNT2+4 03623000 CVTDSSVA EQU CVTDSSV+1 03624000 CVTRSV89 EQU CVTDSSV 03625000 CVTRSV88 EQU CVTXTNT1+8 03626000 CVTRSV87 EQU CVTXTNT1+4 03627000 CVTFACHN EQU CVTXTNT1 03628000 CVTRV488 EQU CVTMAP+412 03629000 CVTRV487 EQU CVTMAP+408 03630000 CVTRV486 EQU CVTMAP+404 03631000 CVTRV485 EQU CVTMAP+400 03632000 CVTACTAP EQU CVTMAP+396 03633000 CVTAUTH EQU CVTMAP+392 03634000 CVTATMCA EQU CVTATMCT+1 03635000 CVTATMST EQU CVTATMCT 03636000 CVTRSV61 EQU CVTMAP+384 03637000 CVTVOLT1 EQU CVTVOLM1+1 03638000 CVTVOLI1 EQU CVTVOLF1 03639000 CVTSTOA EQU CVTMAP+376 03640000 CVTRSV58 EQU CVTMAP+374 03641000 CVTRSV57 EQU CVTMAP+372 03642000 CVTDDCE EQU CVTMAP+368 03643000 CVTPNWFR EQU CVTMAP+364 03644000 CVTSMF EQU CVTMAP+360 03645000 CVTSULK EQU CVTMAP+358 03646000 CVTSLKO EQU CVTSYSK 03647000 CVTSLKP EQU CVTSYSK 03648000 CVTSLKQ EQU CVTSYSK 03649000 CVTSLKR EQU CVTSYSK 03650000 CVTRSV56 EQU CVTSYSK 03651000 CVTRSV55 EQU CVTSYSK 03652000 CVTRSV54 EQU CVTSYSK 03653000 CVTRSV53 EQU CVTSYSK 03654000 CVTRSV52 EQU CVTA1F1 03655000 CVTRSV51 EQU CVTA1F1 03656000 CVTRSV50 EQU CVTA1F1 03657000 CVTRSV49 EQU CVTA1F1 03658000 CVTRSV48 EQU CVTA1F1 03659000 CVTRSV47 EQU CVTA1F1 03660000 CVTSRSW EQU CVTA1F1 03661000 CVTPFSW EQU CVTA1F1 03662000 CVTPCVT EQU CVTMAP+352 03663000 CVTRSV46 EQU CVTMAP+344 03664000 CVTRSV45 EQU CVTMAP+340 03665000 CVTRSV44 EQU CVTMAP+338 03666000 CVTRSV43 EQU CVTMAP+336 03667000 CVTHJESA EQU CVTHJES+1 03668000 CVTRSV42 EQU CVTHJES 03669000 CVTEXT2A EQU CVTEXT2+1 03670000 CVTRSV41 EQU CVTEXT2 03671000 CVTAPFA EQU CVTAPF+1 03672000 CVTRSV40 EQU CVTAPF 03673000 CVTRV518 EQU CVTINTLA 03674000 CVTRV517 EQU CVTERPV 03675000 CVTEORM EQU CVTMAP+312 03676000 CVTMCHPR EQU CVTMAP+308 03677000 CVTTZ EQU CVTMAP+304 03678000 CVTJEPS EQU CVTMAP+300 03679000 CVTJESCT EQU CVTMAP+296 03680000 CVTMODE EQU CVTMAP+292 03681000 CVTREAL EQU CVTMAP+284 03682000 CVTRSV39 EQU CVTMAP+280 03683000 CVTRSV38 EQU CVTMAP+276 03684000 CVTDMSRA EQU CVTDMSR+1 03685000 CVTRV634 EQU CVTDMSRF 03686000 CVTRV633 EQU CVTDMSRF 03687000 CVTRV632 EQU CVTDMSRF 03688000 CVTRV631 EQU CVTDMSRF 03689000 CVTRV630 EQU CVTDMSRF 03690000 CVTRV629 EQU CVTDMSRF 03691000 CVTUDUMP EQU CVTDMSRF 03692000 CVTSDUMP EQU CVTDMSRF 03693000 CVTQMSGA EQU CVTQMSG+1 03694000 CVTRSV36 EQU CVTQMSG 03695000 CVTAMFF EQU CVTMAP+264 03696000 CVTPURGA EQU CVTPURG+1 03697000 CVTRSV35 EQU CVTPURG 03698000 CVTCBSP EQU CVTMAP+256 03699000 CVTATERA EQU CVTATER+1 03700000 CVTSYST EQU CVTATER 03701000 CVTVOLT2 EQU CVTTAT 03702000 CVTVOLI2 EQU CVTVOLF2 03703000 CVTAQAVB EQU CVTAQAVT+1 03704000 CVTRSV34 EQU CVTTCMFG 03705000 CVTRSV33 EQU CVTTCMFG 03706000 CVTRSV32 EQU CVTTCMFG 03707000 CVTRSV31 EQU CVTTCMFG 03708000 CVTRSV30 EQU CVTTCMFG 03709000 CVTRSV29 EQU CVTTCMFG 03710000 CVTRSV28 EQU CVTTCMFG 03711000 CVTTCRDY EQU CVTTCMFG 03712000 CVTGTFA EQU CVTGTF+1 03713000 CVTRSV27 EQU CVTGTFST 03714000 CVTRNIO EQU CVTGTFST 03715000 CVTUSR EQU CVTGTFST 03716000 CVTRV318 EQU CVTFORM 03717000 CVTRV317 EQU CVTTMODE 03718000 CVTRV316 EQU CVTSTATE 03719000 CVTRV315 EQU CVTGTFS 03720000 CVTGTFAV EQU CVTGTFS 03721000 CVT0SCR1 EQU CVTMAP+232 03722000 CVTRV515 EQU CVTMAP+228 03723000 CVTRMS EQU CVTMAP+224 03724000 CVTPATCH EQU CVTMAP+220 03725000 CVTTSCE EQU CVTMAP+216 03726000 CVTLNKSC EQU CVTMAP+214 03727000 CVTQABST EQU CVTMAP+212 03728000 CVTMDLDS EQU CVTMAP+208 03729000 CVTUSER EQU CVTMAP+204 03730000 CVTABEND EQU CVTMAP+200 03731000 CVTSMCA EQU CVTMAP+196 03732000 CVTRSV18 EQU CVTMAP+192 03733000 CVTQLPAQ EQU CVTMAP+188 03734000 CVTQCDSR EQU CVTMAP+184 03735000 CVTRSV17 EQU CVTOPTB 03736000 CVTRSV16 EQU CVTOPTB 03737000 CVTFP EQU CVTOPTB 03738000 CVTAPTHR EQU CVTOPTB 03739000 CVTNLOG EQU CVTOPTB 03740000 CVTTOD EQU CVTOPTB 03741000 CVTCTIMS EQU CVTOPTB 03742000 CVTPROT EQU CVTOPTB 03743000 CVTXPFP EQU CVTOPTA 03744000 CVTASCII EQU CVTOPTA 03745000 CVTRSV13 EQU CVTOPTA 03746000 CVTRSV12 EQU CVTOPTA 03747000 CVTNIP EQU CVTOPTA 03748000 CVTDDR EQU CVTOPTA 03749000 CVTAPR EQU CVTOPTA 03750000 CVTCCH EQU CVTOPTA 03751000 CVTSNCTR EQU CVTMAP+180 03752000 CVTQMWR EQU CVTMAP+176 03753000 CVTQOCR EQU CVTMAP+172 03754000 CVT1EF00 EQU CVTMAP+168 03755000 CVTMZ00 EQU CVTMAP+164 03756000 CVTSV76Q EQU CVTSV76C 03757000 CVTRSV11 EQU CVTMAP+156 03758000 CVTMSER EQU CVTMAP+148 03759000 CVTRV516 EQU CVTIERLC 03760000 CVTILCH EQU CVTMAP+140 03761000 CVT0DS EQU CVTMAP+136 03762000 CVTFBOSV EQU CVTMAP+132 03763000 CVTNUCB EQU CVTMAP+128 03764000 CVTIXAVL EQU CVTMAP+124 03765000 CVTSV76M EQU CVTIOQET 03766000 CVTDCBA EQU CVTMAP+117 03767000 CVTMVS2 EQU CVTDCB 03768000 CVT6DAT EQU CVTDCB 03769000 CVT4MPS EQU CVTDCB 03770000 CVTRSV09 EQU CVTDCB 03771000 CVT4MS1 EQU CVTDCB 03772000 CVT2SPS EQU CVTDCB 03773000 CVT1SSS EQU CVTDCB 03774000 CVTRSV08 EQU CVTDCB 03775000 CVTSTB EQU CVTMAP+112 03776000 CVTQTD00 EQU CVTMAP+108 03777000 CVTQTE00 EQU CVTMAP+104 03778000 CVTCUCB EQU CVTMAP+100 03779000 CVTSJQ EQU CVTMAP+96 03780000 CVTPBLDL EQU CVTMAP+92 03781000 CVTTPC EQU CVTMAP+88 03782000 CVTSVDCB EQU CVTMAP+84 03783000 CVTBRET EQU CVTMAP+82 03784000 CVTEXIT EQU CVTMAP+80 03785000 CVT0FN00 EQU CVTMAP+76 03786000 CVTDARA EQU CVTDAR+1 03787000 CVTRSV07 EQU CVTFLGS1 03788000 CVTRSV06 EQU CVTFLGS1 03789000 CVTRSV05 EQU CVTFLGS1 03790000 CVTRSV04 EQU CVTFLGS1 03791000 CVTRSV03 EQU CVTFLGS1 03792000 CVTRSV02 EQU CVTFLGS1 03793000 CVTRSV01 EQU CVTFLGS1 03794000 CVTDMPLK EQU CVTFLGS1 03795000 CVTXITP EQU CVTMAP+68 03796000 CVTZDTAB EQU CVTMAP+64 03797000 CVTMSLT EQU CVTMAP+60 03798000 CVTDATE EQU CVTMAP+56 03799000 CVTBTERM EQU CVTMAP+52 03800000 CVTSYSAD EQU CVTMAP+48 03801000 CVTXTLER EQU CVTMAP+44 03802000 CVTILK2 EQU CVTMAP+40 03803000 CVTILK1 EQU CVTMAP+36 03804000 CVTPRLTV EQU CVTMAP+32 03805000 CVTPCNVT EQU CVTMAP+28 03806000 CVT0VL00 EQU CVTMAP+24 03807000 CVTXAPG EQU CVTMAP+20 03808000 CVTBUF EQU CVTMAP+16 03809000 CVTJOB EQU CVTMAP+12 03810000 CVTLINK EQU CVTMAP+8 03811000 CVT0EF00 EQU CVTMAP+4 03812000 CVTTCBP EQU CVTMAP 03813000 CVT EQU CVTMAP 03814000 CCWRSV EQU CCW+5 03815000 @NM00109 EQU CCWFLAGS 03816000 CCWIDA EQU CCWFLAGS 03817000 CCWPCI EQU CCWFLAGS 03818000 CCWSKIP EQU CCWFLAGS 03819000 CCWSLI EQU CCWFLAGS 03820000 SAVTLLCB EQU IEDNSVTD+380 03821000 SAVTSCF0 EQU IEDNSVTD+376 03822000 SAVTLSNY EQU IEDNSVTD+372 03823000 SAVTLSZP EQU IEDNSVTD+368 03824000 SAVTOMSU EQU IEDNSVTD+364 03825000 SAVTGTSB EQU IEDNSVTD+360 03826000 SAVTHIBL EQU IEDNSVTD+356 03827000 SAVTHISY EQU IEDNSVTD+352 03828000 SAVTNAX2 EQU IEDNSVTD+348 03829000 SAVTCDRU EQU IEDNSVTD+344 03830000 SAVTPOLC EQU IEDNSVTD+342 03831000 SAVTPOLM EQU IEDNSVTD+340 03832000 SAVTPOLR EQU IEDNSVTD+336 03833000 SAVTCDRN EQU SAVTCDRV 03834000 SAVTPOLL EQU IEDNSVTD+328 03835000 SAVTPOLN EQU IEDNSVTD+326 03836000 @NM00108 EQU IEDNSVTD+325 03837000 @NM00107 EQU SAVTNETF 03838000 SAVTSDIS EQU SAVTNETF 03839000 SAVTROUT EQU SAVTNETF 03840000 SAVTNETW EQU SAVTNETF 03841000 SAVTDIAL EQU IEDNSVTD+320 03842000 SAVTRQUT EQU IEDNSVTD+316 03843000 SAVTBITN EQU IEDNSVTD+312 03844000 @NM00106 EQU SAVTCKQB+8 03845000 @NM00105 EQU SAVTCKEC+1 03846000 @NM00104 EQU SAVTCKCC 03847000 SAVTCKPO EQU SAVTCKCC 03848000 SAVTCKWA EQU SAVTCKCC 03849000 SAVTCKCH EQU SAVTCKTB+1 03850000 SAVTCKVT EQU SAVTCKTB 03851000 @NM00103 EQU IEDNSVTD+297 03852000 SAVTRDFG EQU SAVTRDRV+12 03853000 @NM00102 EQU SAVTRDRV+5 03854000 SAVTRDPY EQU SAVTRDRV+4 03855000 SAVTRDQB EQU SAVTRDRV+1 03856000 SAVTRDKY EQU SAVTRDRV 03857000 SAVTNID EQU IEDNSVTD+280 03858000 SAVTDVAS EQU IEDNSVTD+276 03859000 SAVTPLSZ EQU IEDNSVTD+274 03860000 @NM00101 EQU IEDNSVTD+273 03861000 SAVTSUBL EQU IEDNSVTD+272 03862000 @NM00100 EQU SAVTZELM+1 03863000 SAVTSUBM EQU SAVTZELM 03864000 SAVTMHDX EQU IEDNSVTD+268 03865000 SAVTNAT1 EQU IEDNSVTD+266 03866000 SAVTSH20 EQU IEDNSVTD+264 03867000 SAVTLCBS EQU IEDNSVTD+260 03868000 SAVTRNMP EQU IEDNSVTD+256 03869000 SAVTNAX EQU IEDNSVTD+248 03870000 SAVTSUBV EQU IEDNSVTD+247 03871000 SAVTSUBA EQU IEDNSVTD+246 03872000 SAVTSIBC EQU IEDNSVTD+244 03873000 SAVTBSM EQU IEDNSVTD+240 03874000 SAVTRQTG EQU IEDNSVTD+236 03875000 SAVTRQCH EQU IEDNSVTD+232 03876000 SAVTMAND EQU IEDNSVTD+228 03877000 SAVTSPLN EQU IEDNSVTD+224 03878000 SAVTNADL EQU IEDNSVTD+222 03879000 SAVTNATL EQU IEDNSVTD+220 03880000 SAVTMHTB EQU IEDNSVTD+216 03881000 SAVTSSMH EQU IEDNSVTD+212 03882000 SAVTQRS EQU IEDNSVTD+208 03883000 SAVTRQIN EQU IEDNSVTD+204 03884000 SAVTDFCO EQU IEDNSVTD+200 03885000 SAVTSAO EQU IEDNSVTD+196 03886000 SAVTSARI EQU IEDNSVTD+192 03887000 SAVTSAC EQU IEDNSVTD+188 03888000 SAVTSAI EQU IEDNSVTD+184 03889000 SAVTCSCI EQU IEDNSVTD+180 03890000 SAVTSSRP EQU IEDNSVTD+176 03891000 SAVTSCLU EQU IEDNSVTD+168 03892000 SAVTXTRQ EQU IEDNSVTD+164 03893000 SAVTMVBF EQU IEDNSVTD+160 03894000 @NM00099 EQU IEDNSVTD+148 03895000 SAVTIPCQ EQU IEDNSVTD+144 03896000 @NM00098 EQU IEDNSVTD+136 03897000 SAVTXFMI EQU IEDNSVTD+132 03898000 @NM00097 EQU IEDNSVTD+124 03899000 SAVTXFMO EQU IEDNSVTD+120 03900000 @NM00096 EQU IEDNSVTD+116 03901000 SAVTSSSR EQU IEDNSVTD+112 03902000 SAVTSCPQ EQU IEDNSVTD+108 03903000 SAVTSLCB EQU IEDNSVTD+104 03904000 SAVTLUSR EQU IEDNSVTD+100 03905000 @NM00095 EQU SAVTLUSQ+8 03906000 SAVTLUSP EQU SAVTLUSQ+4 03907000 SAVTLUSB EQU SAVTLUSQ 03908000 @NM00094 EQU IEDNSVTD+84 03909000 SAVTSAT EQU IEDNSVTD+80 03910000 SAVTNAT EQU IEDNSVTD+76 03911000 SAVTCLUP EQU IEDNSVTD+72 03912000 SAVTPIUT EQU IEDNSVTD+68 03913000 SAVTRNTA EQU IEDNSVTD+64 03914000 SAVTDNIR EQU IEDNSVTD+60 03915000 SAVTCNIR EQU IEDNSVTD+56 03916000 SAVTSRTN EQU IEDNSVTD+48 03917000 SAVTSREQ EQU IEDNSVTD+44 03918000 SAVTFAIL EQU IEDNSVTD+42 03919000 SAVTSUSE EQU IEDNSVTD+40 03920000 SAVTSIB EQU IEDNSVTD+36 03921000 SAVTPRTN EQU IEDNSVTD+32 03922000 @NM00093 EQU IEDNSVTD+28 03923000 SAVTWH20 EQU IEDNSVTD+26 03924000 SAVTPWT EQU IEDNSVTD+24 03925000 SAVTPRTQ EQU IEDNSVTD+20 03926000 SAVTPREQ EQU IEDNSVTD+16 03927000 SAVTPH20 EQU IEDNSVTD+14 03928000 SAVTPUSE EQU IEDNSVTD+12 03929000 SAVTPLCB EQU IEDNSVTD+8 03930000 SAVTPOOL EQU IEDNSVTD+4 03931000 SAVTPRMT EQU SAVTDIAF 03932000 SAVTVIRT EQU SAVTDIAF 03933000 AVTSITS EQU IEDQAVTD+1264 03934000 AVTMSUHI EQU IEDQAVTD+1260 03935000 AVTSITU EQU IEDQAVTD+1256 03936000 AVTSITP EQU IEDQAVTD+1252 03937000 AVTPADDR EQU IEDQAVTD+1248 03938000 @NM00092 EQU IEDQAVTD+1246 03939000 AVTCPBNO EQU IEDQAVTD+1244 03940000 AVTHRESS EQU IEDQAVTD+1243 03941000 @NM00091 EQU IEDQAVTD+1242 03942000 @NM00090 EQU IEDQAVTD+1241 03943000 @NM00089 EQU IEDQAVTD+1240 03944000 @NM00088 EQU IEDQAVTD+1237 03945000 @NM00087 EQU IEDQAVTD+1236 03946000 AVTHRESE EQU @NM00086 03947000 AVTRADDR EQU IEDQAVTD+1228 03948000 AVTNADDR EQU IEDQAVTD+1224 03949000 AVTHRESN EQU IEDQAVTD+1220 03950000 AVTVOLRN EQU IEDQAVTD+1216 03951000 AVTTOTNN EQU IEDQAVTD+1212 03952000 AVTTRCYN EQU IEDQAVTD+1208 03953000 AVTRCTRN EQU IEDQAVTD+1204 03954000 AVTNOVON EQU IEDQAVTD+1200 03955000 AVTADEBN EQU IEDQAVTD+1196 03956000 AVTVOLRR EQU IEDQAVTD+1192 03957000 AVTTOTNR EQU IEDQAVTD+1188 03958000 AVTTRCYR EQU IEDQAVTD+1184 03959000 AVTRCTRR EQU IEDQAVTD+1180 03960000 AVTNOVOR EQU IEDQAVTD+1176 03961000 AVTADEBR EQU IEDQAVTD+1172 03962000 AVTLODPT EQU IEDQAVTD+1168 03963000 AVTIOBN EQU IEDQAVTD+1164 03964000 AVTIOBR EQU IEDQAVTD+1160 03965000 AVTCPBPT EQU IEDQAVTD+1156 03966000 AVTFCPB EQU IEDQAVTD+1152 03967000 @NM00085 EQU IEDQAVTD+1148 03968000 AVTINCPQ EQU IEDQAVTD+1144 03969000 @NM00084 EQU IEDQAVTD+1140 03970000 @NM00083 EQU IEDQAVTD+1137 03971000 @NM00082 EQU AVTBIT4 03972000 @NM00081 EQU AVTBIT4 03973000 @NM00080 EQU AVTBIT4 03974000 @NM00079 EQU AVTBIT4 03975000 @NM00078 EQU AVTBIT4 03976000 @NM00077 EQU AVTBIT4 03977000 @NM00076 EQU AVTBIT4 03978000 AVTRUFTN EQU AVTBIT4 03979000 @NM00075 EQU IEDQAVTD+1132 03980000 AVTNOBFQ EQU IEDQAVTD+1128 03981000 @NM00074 EQU IEDQAVTD+1124 03982000 AVTDKENQ EQU IEDQAVTD+1120 03983000 @NM00073 EQU IEDQAVTD+1116 03984000 AVTDKAPQ EQU IEDQAVTD+1112 03985000 AVTCOPY EQU IEDQAVTD+1108 03986000 AVTIA EQU IEDQAVTD+1104 03987000 AVTFL EQU IEDQAVTD+1100 03988000 @NM00072 EQU IEDQAVTD+1096 03989000 AVTNCPBQ EQU IEDQAVTD+1092 03990000 AVTTOTNC EQU IEDQAVTD+1088 03991000 AVTCMAX EQU IEDQAVTD+1084 03992000 AVTCMIN EQU IEDQAVTD+1080 03993000 AVTHM02 EQU IEDQAVTD+1076 03994000 AVTOPCIN EQU IEDQAVTD+1074 03995000 AVTDCTLN EQU IEDQAVTD+1072 03996000 AVTOPMSK EQU IEDQAVTD+1068 03997000 AVTDDFT EQU IEDQAVTD+1064 03998000 AVTSTEAL EQU IEDQAVTD+1060 03999000 AVTOPTN EQU IEDQAVTD+1056 04000000 AVTDSKCT EQU IEDQAVTD+1054 04001000 AVTCKRST EQU IEDQAVTD+1053 04002000 AVTSTAN EQU AVTBIT3 04003000 AVTSTACN EQU AVTBIT3 04004000 AVTSTAIN EQU AVTBIT3 04005000 AVTSTAYN EQU AVTBIT3 04006000 AVTOLTBN EQU AVTBIT3 04007000 AVTTSAB EQU AVTBIT3 04008000 AVTRFULN EQU AVTBIT3 04009000 AVTRECVN EQU AVTBIT3 04010000 @NM00071 EQU AVTBIT2 04011000 @NM00070 EQU AVTBIT2 04012000 AVTOPEIN EQU AVTBIT2 04013000 AVTSTRTN EQU AVTBIT2 04014000 AVTTOPOL EQU AVTBIT2 04015000 AVTCOPYN EQU AVTBIT2 04016000 AVTREUSN EQU AVTBIT2 04017000 AVTEXTSC EQU AVTBIT2 04018000 AVTDISKN EQU AVTBIT1 04019000 AVTQUCKN EQU AVTBIT1 04020000 AVTCLOSN EQU AVTBIT1 04021000 AVTREADN EQU AVTBIT1 04022000 AVTDLAYN EQU AVTBIT1 04023000 AVTAQTAN EQU AVTBIT1 04024000 AVTTSON EQU AVTBIT1 04025000 AVTAPLKN EQU AVTBIT1 04026000 AVTDUMBR EQU IEDQAVTD+1048 04027000 AVTDLQX EQU IEDQAVTD+1046 04028000 AVTINTLV EQU IEDQAVTD+1044 04029000 AVTSMCNT EQU IEDQAVTD+1042 04030000 AVTAVFCT EQU IEDQAVTD+1040 04031000 AVTOPCON EQU IEDQAVTD+1038 04032000 AVTOPCNT EQU IEDQAVTD+1036 04033000 AVTLNCNT EQU IEDQAVTD+1034 04034000 AVTKEYLE EQU IEDQAVTD+1032 04035000 AVTHA16 EQU IEDQAVTD+1030 04036000 AVTHA7 EQU IEDQAVTD+1028 04037000 AVTHA4 EQU IEDQAVTD+1026 04038000 AVTHA3 EQU IEDQAVTD+1024 04039000 AVTHA2 EQU IEDQAVTD+1022 04040000 AVTGETMS EQU IEDQAVTD+1021 04041000 @NM00069 EQU IEDQAVTD+1020 04042000 AVTGETMD EQU IEDQAVTD+1016 04043000 AVTGETMN EQU IEDQAVTD+1012 04044000 AVTCWTOT EQU IEDQAVTD+1008 04045000 AVTCWINT EQU IEDQAVTD+956 04046000 AVTDTRAP EQU IEDQAVTD+952 04047000 @NM00068 EQU IEDQAVTD+950 04048000 @NM00067 EQU AVTIOTR 04049000 AVTIOTRH EQU AVTIOTR 04050000 AVTIOTRE EQU AVTIOTR 04051000 @NM00066 EQU AVTSUBT 04052000 AVTSUBPT EQU AVTSUBT 04053000 AVTSUBON EQU AVTSUBT 04054000 AVTAFE30 EQU IEDQAVTD+944 04055000 AVTAFE20 EQU IEDQAVTD+940 04056000 AVTAFE10 EQU IEDQAVTD+936 04057000 AVTCWEC2 EQU IEDQAVTD+932 04058000 AVTCWPM2 EQU IEDQAVTD+928 04059000 AVTCWTS2 EQU IEDQAVTD+927 04060000 AVTCWTS1 EQU IEDQAVTD+926 04061000 AVTCWCLD EQU AVTCWFL2 04062000 AVTCWRAP EQU AVTCWFL2 04063000 @NM00065 EQU AVTCWFL2 04064000 @NM00064 EQU AVTCWFL2 04065000 @NM00063 EQU AVTCWFL2 04066000 @NM00062 EQU AVTCWFL2 04067000 @NM00061 EQU AVTCWFL2 04068000 AVTCWACT EQU AVTCWFL2 04069000 @NM00060 EQU AVTCWFL1 04070000 @NM00059 EQU AVTCWFL1 04071000 @NM00058 EQU AVTCWFL1 04072000 @NM00057 EQU AVTCWFL1 04073000 @NM00056 EQU AVTCWFL1 04074000 @NM00055 EQU AVTCWFL1 04075000 @NM00054 EQU AVTCWFL1 04076000 AVTCOMWN EQU AVTCWFL1 04077000 AVTCWEC1 EQU IEDQAVTD+920 04078000 AVTCWPM1 EQU IEDQAVTD+916 04079000 AVTCAREA EQU IEDQAVTD+912 04080000 AVTFZERO EQU IEDQAVTD+908 04081000 AVTCADDR EQU IEDQAVTD+904 04082000 AVTCOREC EQU IEDQAVTD+900 04083000 @NM00053 EQU IEDQAVTD+892 04084000 AVTCPBCB EQU IEDQAVTD+888 04085000 @NM00052 EQU IEDQAVTD+880 04086000 AVTDSIOB EQU IEDQAVTD+876 04087000 @NM00051 EQU IEDQAVTD+868 04088000 AVTCPRMB EQU IEDQAVTD+864 04089000 @NM00050 EQU IEDQAVTD+856 04090000 AVTCLOSB EQU IEDQAVTD+852 04091000 @NM00049 EQU IEDQAVTD+844 04092000 AVTACTIB EQU IEDQAVTD+840 04093000 @NM00048 EQU IEDQAVTD+836 04094000 AVTOLTEB EQU IEDQAVTD+832 04095000 AVTOLTCH EQU AVTOLTQB+1 04096000 AVTOLTVT EQU AVTOLTQB 04097000 @NM00047 EQU AVTOPCQB+8 04098000 @NM00046 EQU AVTOPCEC+1 04099000 @NM00045 EQU AVTOPCCC 04100000 AVTOPCPO EQU AVTOPCCC 04101000 AVTOPCWA EQU AVTOPCCC 04102000 AVTOPCCH EQU AVTOPCOB+1 04103000 AVTOPCVT EQU AVTOPCOB 04104000 @NM00044 EQU AVTCKPQB+9 04105000 AVTCKPTS EQU AVTCKPQB+8 04106000 @NM00043 EQU AVTCKPEC+1 04107000 @NM00042 EQU AVTCKPCC 04108000 AVTCKPPO EQU AVTCKPCC 04109000 AVTCKPWA EQU AVTCKPCC 04110000 AVTCKPCH EQU AVTCKPTB+1 04111000 AVTCKPVT EQU AVTCKPTB 04112000 @NM00041 EQU IEDQAVTD+796 04113000 AVTBFRTB EQU IEDQAVTD+792 04114000 @NM00040 EQU IEDQAVTD+788 04115000 AVTSELCH EQU IEDQAVTD+785 04116000 AVTBFRTN EQU AVTBFRFG 04117000 AVTBFREB EQU IEDQAVTD+780 04118000 AVTTIMQ EQU IEDQAVTD+776 04119000 @NM00039 EQU IEDQAVTD+772 04120000 AVTIMQPS EQU IEDQAVTD+768 04121000 AVTINOUT EQU IEDQAVTD+766 04122000 AVTREFTM EQU IEDQAVTD+764 04123000 @NM00038 EQU IEDQAVTD+752 04124000 AVTDELYB EQU IEDQAVTD+748 04125000 AVTOCQPT EQU IEDQAVTD+744 04126000 AVTTSOPT EQU IEDQAVTD+740 04127000 AVTSUPPT EQU IEDQAVTD+736 04128000 AVTCBQCB EQU IEDQAVTD+732 04129000 AVTMSGS EQU IEDQAVTD+729 04130000 @NM00037 EQU AVTSYSER 04131000 @NM00036 EQU AVTSYSER 04132000 @NM00035 EQU AVTSYSER 04133000 @NM00034 EQU AVTSYSER 04134000 @NM00033 EQU AVTSYSER 04135000 @NM00032 EQU AVTSYSER 04136000 AVTCMAXN EQU AVTSYSER 04137000 AVTCMINN EQU AVTSYSER 04138000 AVT2260L EQU IEDQAVTD+724 04139000 AVTABEPL EQU AVTADBUF 04140000 AVTHFF EQU AVTCLRHI+2 04141000 @NM00031 EQU AVTCLRHI 04142000 AVTCCLNK EQU AVTCRELE+5 04143000 AVTCCPRI EQU AVTCRELE+4 04144000 AVTCCQCB EQU AVTCCELE+1 04145000 AVTCCKEY EQU AVTCCELE 04146000 AVTDELAD EQU IEDQAVTD+704 04147000 AVTDELEM EQU IEDQAVTD+700 04148000 AVTBSX EQU AVTCKLNK 04149000 AVTOPETR EQU AVTHG01 04150000 @NM00030 EQU AVTCKBYT 04151000 AVTCKONQ EQU AVTCKBYT 04152000 @NM00029 EQU AVTCKBYT 04153000 @NM00028 EQU AVTCKBYT 04154000 @NM00027 EQU AVTCKBYT 04155000 @NM00026 EQU AVTCKBYT 04156000 @NM00025 EQU AVTCKBYT 04157000 @NM00024 EQU AVTCKBYT 04158000 AVTOPERT EQU IEDQAVTD+690 04159000 AVTOPXCL EQU IEDQAVTD+688 04160000 AVTOPERL EQU IEDQAVTD+687 04161000 @NM00023 EQU IEDQAVTD+686 04162000 AVTCKTIM EQU IEDQAVTD+684 04163000 AVTCKELV EQU IEDQAVTD+682 04164000 AVTCPRCD EQU IEDQAVTD+681 04165000 AVTWARMN EQU AVTCKELF 04166000 AVTCRTLN EQU AVTCKELF 04167000 AVTCPIPN EQU AVTCKELF 04168000 AVTCCLCN EQU AVTCKELF 04169000 AVTCINCN EQU AVTCKELF 04170000 @NM00022 EQU AVTCKELF 04171000 AVTCMCPN EQU AVTCKELF 04172000 AVTNQBCK EQU AVTCKELF 04173000 AVTCKQAD EQU IEDQAVTD+677 04174000 AVTSCBSZ EQU IEDQAVTD+676 04175000 @NM00021 EQU IEDQAVTD+672 04176000 AVTCKELE EQU IEDQAVTD+668 04177000 @NM00020 EQU AVTCKPEL+8 04178000 AVTCKRLK EQU AVTCKPEL+5 04179000 AVTCKRPR EQU AVTCKPEL+4 04180000 AVTCKRMQ EQU AVTCKRMV+1 04181000 AVTCKRKY EQU AVTCKRMV 04182000 AVTHK EQU IEDQAVTD+648 04183000 AVTHI EQU IEDQAVTD+644 04184000 AVTNX EQU IEDQAVTD+636 04185000 AVTTONE EQU IEDQAVTD+632 04186000 AVTA3TL EQU IEDQAVTD+628 04187000 AVTDMECB EQU IEDQAVTD+624 04188000 AVTABEND EQU IEDQAVTD+618 04189000 AVTPLCBN EQU IEDQAVTD+616 04190000 @NM00019 EQU AVTSAVTP+1 04191000 @NM00018 EQU AVTSAVTF 04192000 AVTSNA EQU AVTSAVTF 04193000 AVTONSNA EQU AVTSAVTF 04194000 AVTVTMCP EQU AVTSAVTF 04195000 @NM00017 EQU IEDQAVTD+608 04196000 AVTCMBSS EQU IEDQAVTD+604 04197000 AVTRCV EQU IEDQAVTD+600 04198000 AVTSEND EQU IEDQAVTD+596 04199000 AVTCSCH EQU IEDQAVTD+592 04200000 AVTQ1 EQU IEDQAVTD+588 04201000 AVTE7 EQU IEDQAVTD+584 04202000 AVTHB EQU IEDQAVTD+580 04203000 AVTR1 EQU IEDQAVTD+576 04204000 AVTBZ EQU IEDQAVTD+572 04205000 AVTEZ EQU IEDQAVTD+568 04206000 AVTEC EQU IEDQAVTD+564 04207000 AVTEW EQU IEDQAVTD+560 04208000 AVTNDIAL EQU AVTSCOPT 04209000 AVTN2741 EQU AVTSCOPT 04210000 AVTCONCO EQU AVTSCOPT 04211000 AVTCONC EQU AVTSCOPT 04212000 AVTCMBUF EQU AVTSCOPT 04213000 AVTAPDMP EQU AVTSCOPT 04214000 @NM00016 EQU AVTSCOPT 04215000 AVTHA EQU AVTDISP 04216000 AVTEA EQU IEDQAVTD+548 04217000 AVTAX EQU IEDQAVTD+544 04218000 AVTA3 EQU IEDQAVTD+540 04219000 AVTGD EQU IEDQAVTD+536 04220000 AVTAL EQU IEDQAVTD+532 04221000 AVTOLTST EQU AVTHG02 04222000 AVTE8 EQU IEDQAVTD+524 04223000 AVTUI EQU IEDQAVTD+520 04224000 AVTCOMPT EQU IEDQAVTD+516 04225000 AVTCRSRF EQU IEDQAVTD+512 04226000 @NM00015 EQU IEDQAVTD+508 04227000 AVTKA02 EQU IEDQAVTD+504 04228000 AVTOPTPT EQU IEDQAVTD+500 04229000 AVTPCBPT EQU IEDQAVTD+496 04230000 @NM00014 EQU AVTECB1 04231000 AVTCOMP EQU AVTECB1 04232000 @NM00013 EQU AVTECB1 04233000 AVTOPECA EQU IEDQAVTD+488 04234000 AVTOLECA EQU IEDQAVTD+484 04235000 AVTCKECA EQU IEDQAVTD+480 04236000 AVTCWECA EQU IEDQAVTD+476 04237000 AVTCWTCB EQU IEDQAVTD+472 04238000 AVTOLTCB EQU IEDQAVTD+468 04239000 AVTOCTCB EQU IEDQAVTD+464 04240000 AVTCKTCB EQU IEDQAVTD+460 04241000 AVTAS EQU IEDQAVTD+456 04242000 AVTNOLBF EQU IEDQAVTD+454 04243000 AVTNCKPR EQU IEDQAVTD+453 04244000 AVTCIB EQU IEDQAVTD+452 04245000 AVTSPLPT EQU IEDQAVTD+448 04246000 AVTMVBFR EQU IEDQAVTD+444 04247000 AVTSBTA EQU IEDQAVTD+440 04248000 AVTRARTN EQU IEDQAVTD+436 04249000 AVTBSCAN EQU IEDQAVTD+432 04250000 AVTRDYA EQU IEDQAVTD+428 04251000 AVTDISTR EQU IEDQAVTD+420 04252000 AVTPARM3 EQU IEDQAVTD+416 04253000 @NM00012 EQU AVTPKF 04254000 @NM00011 EQU AVTPKF 04255000 @NM00010 EQU AVTPKF 04256000 AVTFTCHF EQU AVTPKF 04257000 @NM00009 EQU AVTPKF 04258000 @NM00008 EQU AVTPKF 04259000 @NM00007 EQU AVTPKF 04260000 @NM00006 EQU AVTPKF 04261000 AVTPARM EQU IEDQAVTD+408 04262000 AVTEXS2A EQU IEDQAVTD+402 04263000 AVTEXA2S EQU IEDQAVTD+396 04264000 AVTOCGET EQU IEDQAVTD+392 04265000 AVTCKAVT EQU @NM00004+1 04266000 @NM00005 EQU AVTCKFLG 04267000 AVTCKHLT EQU AVTCKFLG 04268000 AVTCKREQ EQU AVTCKFLG 04269000 AVTCKENV EQU AVTCKFLG 04270000 AVTCKNAC EQU AVTCKFLG 04271000 AVTCKTAC EQU AVTCKFLG 04272000 AVTBUENT EQU IEDQAVTD+386 04273000 @NM00003 EQU IEDQAVTD+385 04274000 AVTFULLT EQU AVTBUFSW 04275000 AVTUNCON EQU AVTBUFSW 04276000 @NM00002 EQU AVTBUFSW 04277000 AVTBUFTR EQU AVTREADD 04278000 AVTREADY EQU IEDQAVTD+376 04279000 AVTRACE EQU IEDQAVTD+372 04280000 AVTTCB EQU IEDQAVTD+368 04281000 AVTPASWD EQU IEDQAVTD+360 04282000 AVTCTLCH EQU IEDQAVTD+352 04283000 AVTDOUBL EQU IEDQAVTD+344 04284000 AVTDOUBX EQU IEDQAVTD+336 04285000 AVTCSTCS EQU IEDQAVTD+328 04286000 AVTDLQ EQU AVTSAVEX+32 04287000 @NM00001 EQU AVTSAVEX 04288000 AVTSAVE4 EQU IEDQAVTD+216 04289000 AVTSAVE3 EQU IEDQAVTD+144 04290000 AVTSAVE2 EQU IEDQAVTD+72 04291000 AVTSAVE1 EQU IEDQAVTD 04292000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 04293000 @RF00606 EQU @RC00596 04294000 @RC00604 EQU @RC00596 04295000 @RC00600 EQU @RC00596 04296000 @RT00613 EQU @RC00612 04297000 @RC00664 EQU @RC00663 04298000 @RC00739 EQU @RC00718 04299000 @RC00721 EQU @RC00718 04300000 @RC00803 EQU @RC00787 04301000 @RC00796 EQU @RC00787 04302000 @RC00789 EQU @RC00787 04303000 @RC00827 EQU @RC00787 04304000 @RC00973 EQU @RC00968 04305000 @RC00979 EQU @RC00968 04306000 @RF00982 EQU @RC00968 04307000 @PB00005 EQU @EL00001 04308000 @RC00730 EQU @RC00721 04309000 @RC00725 EQU @RC00721 04310000 @PB00004 EQU @PB00005 04311000 @RC00974 EQU @RC00973 04312000 @PB00003 EQU @PB00004 04313000 @PB00002 EQU @PB00003 04314000 @ENDDATA EQU * 04315000 END IGG019TH,(C'PLS1935',0701,78135) 04316000