TITLE 'IGCFQ10D - COPY/REPLACE DEVICE SESSION INFO.' 00001000 IGCFQ10D CSECT , 01S0001 00002000 @PROLOG BALR @12,0 01S0001 00003000 @PSTART DS 0H 01S0001 00004000 USING @PSTART,@12 01S0001 00005000 * /* 00006000 IGCFQ10D IEDHJN AFTERHJN,HJN 00007000 * 01S0624 00008000 * /*****************************************************************/ 00009000 * /* */ 00010000 * /* INITIALIZATION */ 00011000 * /* */ 00012000 * /*****************************************************************/ 00013000 * 01S0624 00014000 * ROPCAVT=RPARM; /* SET POINTER TO OP. CTL. AVT */ 00015000 LR ROPCAVT,RPARM 01S0624 00016000 * ROPCE=OPCCOPCE; /* SET POINTER TO CURRENT OPCE */ 00017000 L ROPCE,OPCCOPCE(,ROPCAVT) 01S0625 00018000 * RAVT=OPCAVTPT; /* SET POINTER TO TCAM AVT */ 00019000 L RAVT,OPCAVTPT(,ROPCAVT) 01S0626 00020000 * RSAVE=ADDR(OPCSAVE); /* SET POINTER TO SAVE AREA */ 00021000 LA RSAVE,OPCSAVE(,ROPCAVT) 01S0627 00022000 * RWRKAREA=OPCWORK; /* OP. CTL. WORKAREA BASE - USED 00023000 * FOR TEMPORARY STORAGE */ 00024000 * 01S0628 00025000 L RWRKAREA,OPCWORK(,ROPCAVT) 01S0628 00026000 * /*****************************************************************/ 00027000 * /* */ 00028000 * /* BASE COMPILER GENERATED DSECT (CREATED BY REENTRANT OPTION) */ 00029000 * /* FOR TEMPORARY STORAGE ON WORK AREA BASE. */ 00030000 * /* */ 00031000 * /*****************************************************************/ 00032000 * 01S0629 00033000 * GEN REFS(RWRKAREA); 01S0629 00034000 * /* 00035000 USING @DATD,RWRKAREA */ 00036000 * FLAGS=''B; /* INIT FLAGS FIELD */ 00037000 * 01S0630 00038000 MVI FLAGS,X'00' 01S0630 00039000 * /*****************************************************************/ 00040000 * /* */ 00041000 * /* CALCULATE 50% OF TCAM'S LINE UNITS */ 00042000 * /* */ 00043000 * /*****************************************************************/ 00044000 * 01S0631 00045000 * HALFUNIT=AVTNOLBF; /* # OF TCAM'S LINE UNITS */ 00046000 LH @14,AVTNOLBF(,RAVT) 01S0631 00047000 STH @14,HALFUNIT 01S0631 00048000 * SRL(HALFUNIT,1); /* DIVIDE BY TWO FOR 50% */ 00049000 * 01S0632 00050000 SRL @14,1 01S0632 00051000 STH @14,HALFUNIT 01S0632 00052000 * /*****************************************************************/ 00053000 * /* */ 00054000 * /* OBTAIN ADDR. OF NEG. PREFIX OF ORIG. OPCE */ 00055000 * /* */ 00056000 * /*****************************************************************/ 00057000 * 01S0633 00058000 * ORGNOPCE=OCPTRSAV-LENGTH(IEDQOPCN);/* OBTAIN THE ADDR. OF THE 00059000 * START OF THE NEG. PREFIX IN 00060000 * THE ORIG. OPCE */ 00061000 L ORGNOPCE,OCPTRSAV(,ROPCE) 01S0633 00062000 SH ORGNOPCE,@CH00045 01S0633 00063000 * 01S0634 00064000 * /*****************************************************************/ 00065000 * /* */ 00066000 * /* MAIN PROCDURE */ 00067000 * /* */ 00068000 * /*****************************************************************/ 00069000 * 01S0634 00070000 * IF OCREDRVE=ON THEN /* IF THIS IS A REDRIVE OPCE */ 00071000 * 01S0634 00072000 TM OCREDRVE(ROPCE),B'00010000' 01S0634 00073000 BNO @RF00634 01S0634 00074000 * /***************************************************************/ 00075000 * /* */ 00076000 * /* THIS IS A REDRIVE OPCE WITH ATTACHED UNITS. */ 00077000 * /* */ 00078000 * /***************************************************************/ 00079000 * 01S0635 00080000 * CALL REDRIVE; 01S0635 00081000 BAL @14,REDRIVE 01S0635 00082000 * ELSE 01S0636 00083000 * DO; 01S0636 00084000 * 01S0636 00085000 B @RC00634 01S0636 00086000 @RF00634 DS 0H 01S0637 00087000 * /*************************************************************/ 00088000 * /* */ 00089000 * /* THIS IS A RESPONSE OPCE OR A REQUEST FROM IGCFL10D. */ 00090000 * /* */ 00091000 * /*************************************************************/ 00092000 * 01S0637 00093000 * ORGNOPCE->OCRESPCT=ORGNOPCE->OCRESPCT-1;/* DECREMENT RSP. CT.*/ 00094000 SLR @14,@14 01S0637 00095000 ICM @14,3,OCRESPCT(ORGNOPCE) 01S0637 00096000 BCTR @14,0 01S0637 00097000 STH @14,OCRESPCT(,ORGNOPCE) 01S0637 00098000 * 02S0638 00099000 * /*************************************************************/ 00100000 * /* */ 00101000 * /* ---------- THIS SEGMENT PROCESSES RESPONSES -------- */ 00102000 * /* */ 00103000 * /*************************************************************/ 00104000 * 02S0638 00105000 * IF OCSWITCH=OCRPLDSI THEN /* IF REPLACE RESPONSE */ 00106000 CLI OCSWITCH(ROPCE),X'E4' 02S0638 00107000 BNE @RF00638 02S0638 00108000 * FREUTFLG=ON; /* SET FLAG TO FREE UNITS */ 00109000 OI FREUTFLG,B'10000000' 02S0639 00110000 * ELSE 02S0640 00111000 * IF OCSWITCH=OCOPYDSI THEN /* IF COPY RESPONSE */ 00112000 B @RC00638 02S0640 00113000 @RF00638 CLI OCSWITCH(ROPCE),X'E3' 02S0640 00114000 BNE @RF00640 02S0640 00115000 * DO; 02S0641 00116000 * 02S0641 00117000 * /*******************************************************/ 00118000 * /* */ 00119000 * /* DETERMINE IF REPLACE SHOULD BE DONE. */ 00120000 * /* */ 00121000 * /*******************************************************/ 00122000 * 02S0642 00123000 * 03S0642 00124000 * /*******************************************************/ 00125000 * /* */ 00126000 * /* --- THIS SEGMENT PROCESSES "COPY DEVICE SESSION */ 00127000 * /* INFO." RESPONSES */ 00128000 * /* */ 00129000 * /*******************************************************/ 00130000 * 03S0642 00131000 * RFY 03S0642 00132000 * IEDDSI1 BASED(ADDR(PRUDATA)+LENGTH(IEDBDU)); 03S0642 00133000 * RFY 03S0643 00134000 * IEDQTRM BASED(RPARM); 03S0643 00135000 * IF BDUSYRSP=GOODRSP THEN/* IF GOOD RESPONSE ON COPY */ 00136000 L @14,OCUNIT(,ROPCE) 03S0644 00137000 CLI BDUSYRSP+12(@14),X'60' 03S0644 00138000 BNE @RF00644 03S0644 00139000 * DO; 03S0645 00140000 * RPARM=OCTRMTBL; /* OBTAIN TTE ..... */ 00141000 SLR RPARM,RPARM 03S0646 00142000 ICM RPARM,3,OCTRMTBL(ROPCE) 03S0646 00143000 * CALL IEDQTNT; /* .... ADDR. */ 00144000 L @15,AVTRNMPT(,RAVT) 03S0647 00145000 BALR @14,@15 03S0647 00146000 * RZERO=TRMDDIGA; /* OBTAIN ADDR. ..... */ 00147000 LH RZERO,@CH02076 03S0648 00148000 * CALL IEDQTL; /* .... OF DEVICE DEPENDENT FIELD*/ 00149000 L @15,AVTDDFT(,RAVT) 03S0649 00150000 BALR @14,@15 03S0649 00151000 * DEVDPADR=RTNCODE; /* ADDR. OF DIAL DIGITS FIELD */ 00152000 LR DEVDPADR,RTNCODE 03S0650 00153000 * 04S0651 00154000 * /***************************************************/ 00155000 * /* */ 00156000 * /* ------ PLACE RU DIAL DATA IN CONTIGUOUS STORAGE */ 00157000 * /* IN OP. CTL. WORK AREA. SAVE POINTERS TO THE UNIT*/ 00158000 * /* ADDR. AND STARTING ADDR. OF DIAL DATA IN RU FOR */ 00159000 * /* MOVE BACK.------- */ 00160000 * /* */ 00161000 * /***************************************************/ 00162000 * 04S0651 00163000 * RFY 04S0651 00164000 * IEDDSI1 BASED(PLMVSD);/* BASE ON PARM LIST SOURCE 00165000 * DATA */ 00166000 * RFY 04S0652 00167000 * IEDDSI2 BASED(PLMVSD);/* ADDR. */ 00168000 * RFY 04S0653 00169000 * IEDDSI3 BASED(PLMVSD); 04S0653 00170000 * RFY 04S0654 00171000 * IEDDSI4 BASED(PLMVSD); 04S0654 00172000 * 04S0654 00173000 * /***************************************************/ 00174000 * /* */ 00175000 * /* INIT. PARM. LIST FOR IEDMVBFR. THIS ROUTINE IS */ 00176000 * /* USED TO FIND ADDR. OF DIAL DATA BY MOVING BYTES */ 00177000 * /* INTO THEMSELVES THUS MOVING POINTER. */ 00178000 * /* */ 00179000 * /***************************************************/ 00180000 * 04S0655 00181000 * IEDPLMV=''B; /* CLEAR PARM. LIST AREA */ 00182000 LA @14,PARMLSP 04S0655 00183000 XC IEDPLMV(24,@14),IEDPLMV(@14) 04S0655 00184000 * PLMVSU=OCUNIT; /* SOURCE UNIT ADDR. */ 00185000 L @05,OCUNIT(,ROPCE) 04S0656 00186000 ST @05,PLMVSU(,@14) 04S0656 00187000 * PLMVTU=OCUNIT; /* TARGET UNIT ADDR. */ 00188000 ST @05,PLMVTU(,@14) 04S0657 00189000 * PLMVSD=ADDR(PRUDATA)+LENGTH(IEDBDU);/* SOURCE DATA 00190000 * ADDR. */ 00191000 LA @05,PRUDATA(,@05) 04S0658 00192000 AH @05,@CH00080 04S0658 00193000 ST @05,PLMVSD(,@14) 04S0658 00194000 * PLMVTD=ADDR(PRUDATA)+LENGTH(IEDBDU);/* TARGET DATA 00195000 * ADDR. */ 00196000 ST @05,PLMVTD(,@14) 04S0659 00197000 * PLMVLNTH=DSIPOLNM+LENGTH(IEDDSI1);/* NUMBER OF 00198000 * POLLING CHARACTERS */ 00199000 * 04S0660 00200000 LA @07,4 04S0660 00201000 SLR @06,@06 04S0660 00202000 IC @06,DSIPOLNM(,@05) 04S0660 00203000 ALR @07,@06 04S0660 00204000 STH @07,PLMVLNTH(,@14) 04S0660 00205000 * /***************************************************/ 00206000 * /* */ 00207000 * /* LOCATE START OF ADDR. CHARS. FIELD */ 00208000 * /* */ 00209000 * /***************************************************/ 00210000 * 04S0661 00211000 * RPARM=ADDR(PARMLSP);/* ADDR. OF PARM LIST @YM05982*/ 00212000 LR RPARM,@14 04S0661 00213000 * CALL IEDMVBFR; 04S0662 00214000 L @05,AVTSAVTP(,RAVT) 04S0662 00215000 L @15,SAVTMVBF(,@05) 04S0662 00216000 BALR @14,@15 04S0662 00217000 * PLMVLNTH=DSIADRNM+LENGTH(IEDDSI2);/* NUMBER OF 00218000 * ADDRESSING CHARACTERS */ 00219000 * 04S0663 00220000 LA @14,PARMLSP 04S0663 00221000 L @05,PLMVSD(,@14) 04S0663 00222000 LA @07,1 04S0663 00223000 SLR @06,@06 04S0663 00224000 IC @06,DSIADRNM(,@05) 04S0663 00225000 ALR @07,@06 04S0663 00226000 STH @07,PLMVLNTH(,@14) 04S0663 00227000 * /***************************************************/ 00228000 * /* */ 00229000 * /* LOCATE INPUT IDENTIFIER FIELD. */ 00230000 * /* */ 00231000 * /***************************************************/ 00232000 * 04S0664 00233000 * CALL IEDMVBFR; 04S0664 00234000 * 04S0664 00235000 L @05,AVTSAVTP(,RAVT) 04S0664 00236000 L @15,SAVTMVBF(,@05) 04S0664 00237000 BALR @14,@15 04S0664 00238000 * /***************************************************/ 00239000 * /* */ 00240000 * /* IF INPUT ID IS 0 REMAINING FIELDS IN IEDDSI3 ARE*/ 00241000 * /* NOT PRESENT */ 00242000 * /* */ 00243000 * /***************************************************/ 00244000 * 04S0665 00245000 * IF DSINPTID='00'X THEN/* IF 0 */ 00246000 LA @14,PARMLSP 04S0665 00247000 L @14,PLMVSD(,@14) 04S0665 00248000 CLI DSINPTID(@14),X'00' 04S0665 00249000 BNE @RF00665 04S0665 00250000 * FREUTFLG=ON; /* THEN SET FLAG @YM07670*/ 00251000 OI FREUTFLG,B'10000000' 04S0666 00252000 * ELSE 04S0667 00253000 * DO; /* @YM07430*/ 00254000 B @RC00665 04S0667 00255000 @RF00665 DS 0H 04S0668 00256000 * PLMVLNTH=LENGTH(IEDDSI3);/* MOVE LENGTH OF 00257000 * IEDDSI3 */ 00258000 * 04S0668 00259000 LA @14,PARMLSP 04S0668 00260000 MVC PLMVLNTH(2,@14),@CH00256 04S0668 00261000 * /***********************************************/ 00262000 * /* */ 00263000 * /* LOCATE BEGINNING OF DIAL DATA FIELDS */ 00264000 * /* */ 00265000 * /***********************************************/ 00266000 * 04S0669 00267000 * CALL IEDMVBFR; 04S0669 00268000 * 04S0669 00269000 L @05,AVTSAVTP(,RAVT) 04S0669 00270000 L @15,SAVTMVBF(,@05) 04S0669 00271000 BALR @14,@15 04S0669 00272000 * /***********************************************/ 00273000 * /* */ 00274000 * /* SAVE POINTERS FOR UNIT AND START OF DIAL */ 00275000 * /* DATA */ 00276000 * /* */ 00277000 * /***********************************************/ 00278000 * 04S0670 00279000 * UNITSAVE=PLMVTU; 04S0670 00280000 LA @14,PARMLSP 04S0670 00281000 MVC UNITSAVE(4),PLMVTU(@14) 04S0670 00282000 * DATASAVE=PLMVTD; 04S0671 00283000 * 04S0671 00284000 MVC DATASAVE(4),PLMVTD(@14) 04S0671 00285000 * /***********************************************/ 00286000 * /* */ 00287000 * /* MOVE DIAL DATA INTO CONTIGUOUS STORAGE IN */ 00288000 * /* WORK AREA. */ 00289000 * /* */ 00290000 * /***********************************************/ 00291000 * 04S0672 00292000 * PLMVTU=ADDR(DIALDATA);/* ADDR. IN WRK AREA */ 00293000 LA @05,DIALSP 04S0672 00294000 ST @05,PLMVTU(,@14) 04S0672 00295000 * PLMVTD=ADDR(DIALDATA);/* ADDR. IN WRK AREA */ 00296000 ST @05,PLMVTD(,@14) 04S0673 00297000 * PLMVTCTG=ON; /* FLAG FOR CONTIGUOUS TARGET */ 00298000 OI PLMVTCTG(@14),B'00100000' 04S0674 00299000 * PLMVLNTH=DSIDLCNT+LENCTFLD;/* LENGTH OF DIAL 00300000 * DATA */ 00301000 L @05,PLMVSD(,@14) 04S0675 00302000 LA @07,1 04S0675 00303000 SLR @06,@06 04S0675 00304000 IC @06,DSIDLCNT(,@05) 04S0675 00305000 ALR @07,@06 04S0675 00306000 STH @07,PLMVLNTH(,@14) 04S0675 00307000 * CALL IEDMVBFR; 04S0676 00308000 L @05,AVTSAVTP(,RAVT) 04S0676 00309000 L @15,SAVTMVBF(,@05) 04S0676 00310000 BALR @14,@15 04S0676 00311000 * RFY 04S0677 00312000 * IEDDSI1 BASED(ADDR(PRUDATA)+LENGTH(IEDBDU)); 00313000 * /* RESET BASE FOR START OF DATA 00314000 * RECORD */ 00315000 * END; /* @YM07430*/ 00316000 * /* ... WORK AREA FOR EASY 03S0679 00317000 * HANDLING ADDR. OF DIAL FIELD 00318000 * IN RU PLACED IN RUDIALAD */ 00319000 * IF FREUTFLG=OFF THEN/* @YM07670*/ 00320000 @RC00665 TM FREUTFLG,B'10000000' 03S0679 00321000 BNZ @RF00679 03S0679 00322000 * DO; /* @YM07430*/ 00323000 * IF TTEDIALN>MAXIMUM THEN/* IF TTE DIAL DATA > 00324000 * MAX. ALLOWED */ 00325000 LA @14,DIALSP 03S0681 00326000 CLC TTEDIALN(1,DEVDPADR),MAXIMUM(@14) 03S0681 00327000 BNH @RF00681 03S0681 00328000 * FREUTFLG=ON;/* SET TO FREE OPCE AND RU */ 00329000 OI FREUTFLG,B'10000000' 03S0682 00330000 * ELSE 03S0683 00331000 * 03S0683 00332000 * /*********************************************/ 00333000 * /* */ 00334000 * /* REPLACE CAN BE DONE IF DIAL DIGITS DO NOT */ 00335000 * /* MATCH. */ 00336000 * /* */ 00337000 * /*********************************************/ 00338000 * 03S0683 00339000 * IF TTEDIALN=ACTUAL THEN/* IF NUMBER OF TTE 00340000 * DIAL DIGITS IS SAME AS NO. OF 00341000 * RU DIGITS */ 00342000 B @RC00681 03S0683 00343000 @RF00681 LA @14,DIALSP 03S0683 00344000 CLC TTEDIALN(1,DEVDPADR),ACTUAL(@14) 03S0683 00345000 BNE @RF00683 03S0683 00346000 * DO; /* CONVERT NCP'S DIGITS TO BINARY 00347000 * AND COMPARE WITH TCAM'S 03S0684 00348000 * @YM06517*/ 00349000 * DIGITS(1:1)=DIGITS(1:1)&CLEARHI;/* 03S0685 00350000 * CONVERT FIRST BYTE @YM06517*/ 00351000 NI DIGITS(@14),X'0F' 03S0685 00352000 * IF ACTUAL>1 THEN/* IF MORE THAN 1 DIGIT 00353000 * @YM06875*/ 00354000 CLI ACTUAL(@14),1 03S0686 00355000 BNH @RF00686 03S0686 00356000 * MVZ(DIGITS(2:ACTUAL),DIGITS(1:ACTUAL-1)); 00357000 LA @05,DIALSP 03S0687 00358000 SLR @07,@07 03S0687 00359000 IC @07,ACTUAL(,@05) 03S0687 00360000 BCTR @07,0 03S0687 00361000 BCTR @07,0 03S0687 00362000 EX @07,@SB02300 03S0687 00363000 * /* CONVERT REST OF DIGITS 03S0688 00364000 * @YM06517*/ 00365000 * ELSE 03S0688 00366000 * ; /* @YM06875*/ 00367000 @RF00686 DS 0H 03S0689 00368000 * IF TTEDIALD(1:TTEDIALN)=DIGITS(1:TTEDIALN) 00369000 * THEN /* IF MATCH */ 00370000 LA @14,DIALSP 03S0689 00371000 SLR @05,@05 03S0689 00372000 IC @05,TTEDIALN(,DEVDPADR) 03S0689 00373000 BCTR @05,0 03S0689 00374000 EX @05,@SC02302 03S0689 00375000 BNE @RF00689 03S0689 00376000 * FREUTFLG=ON;/* REPLACE DOES NOT NEED TO 00377000 * BE DONE - FREE OPCE AND RU */ 00378000 OI FREUTFLG,B'10000000' 03S0690 00379000 * ELSE 03S0691 00380000 * BLRPLFLG=ON;/* SET FLAG TO BUILD 03S0691 00381000 * REPLACE */ 00382000 B @RC00689 03S0691 00383000 @RF00689 OI BLRPLFLG,B'01000000' 03S0691 00384000 * END; /* @YM06517*/ 00385000 * ELSE 03S0693 00386000 * DO; 03S0693 00387000 B @RC00683 03S0693 00388000 @RF00683 DS 0H 03S0694 00389000 * RFY 03S0694 00390000 * RTNCODE UNRSTD; 03S0694 00391000 * RFY 03S0695 00392000 * IEDPRUQD BASED(UNITSAVE); 03S0695 00393000 * RFY 03S0696 00394000 * TICFLD BASED(ADDR(PRUTIC)); 03S0696 00395000 * 03S0696 00396000 * /*****************************************/ 00397000 * /* */ 00398000 * /* IF THE NUMBER OF DIAL DIGITS IN THE */ 00399000 * /* TTE IS TOO LARGE FOR CURRENT RU, GET */ 00400000 * /* ANOTHER UNIT. */ 00401000 * /* */ 00402000 * /*****************************************/ 00403000 * 03S0697 00404000 * IF TIC^=VALTIC THEN/* IF START OF DIAL 00405000 * DATA IS IN THE LAST UNIT */ 00406000 L @05,UNITSAVE 03S0697 00407000 TM TIC+8(@05),B'00000011' 03S0697 00408000 BZ @RF00697 03S0697 00409000 * IF(DATASAVE-UNITSAVE)+(COUNT+1)+(TTEDIALN 00410000 * -ACTUAL)>(AVTKEYLE+12) THEN/* IS 00411000 * ANOTHER UNIT NEEDED */ 00412000 LCR @05,@05 03S0698 00413000 AL @05,DATASAVE 03S0698 00414000 LA @15,1 03S0698 00415000 LA @14,DIALSP 03S0698 00416000 SLR @07,@07 03S0698 00417000 IC @07,COUNT(,@14) 03S0698 00418000 ALR @07,@15 03S0698 00419000 ALR @05,@07 03S0698 00420000 SLR @07,@07 03S0698 00421000 IC @07,TTEDIALN(,DEVDPADR) 03S0698 00422000 SLR @06,@06 03S0698 00423000 IC @06,ACTUAL(,@14) 03S0698 00424000 SLR @07,@06 03S0698 00425000 ALR @05,@07 03S0698 00426000 LA @14,12 03S0698 00427000 AH @14,AVTKEYLE(,RAVT) 03S0698 00428000 CR @05,@14 03S0698 00429000 BNH @RF00698 03S0698 00430000 * DO; 03S0699 00431000 * RPARM=1;/* GET ANOTHER .... */ 00432000 LR RPARM,@15 03S0700 00433000 * CALL ALLOCBUF;/* .... UNIT */ 00434000 L @15,OPCGETBF(,ROPCAVT) 03S0701 00435000 BALR @14,@15 03S0701 00436000 * PRUNUNIT=RPARM;/* SET TIC FIELD OF 00437000 * LAST UNIT TO POINT TO NEW UNIT*/ 00438000 L @05,UNITSAVE 03S0702 00439000 STCM RPARM,7,PRUNUNIT(@05) 03S0702 00440000 * END; 03S0703 00441000 * ELSE 03S0704 00442000 * ; 03S0704 00443000 @RF00698 DS 0H 03S0705 00444000 * ELSE 03S0705 00445000 * ; 03S0705 00446000 @RF00697 DS 0H 03S0706 00447000 * RFY 03S0706 00448000 * TICFLD BASED; 03S0706 00449000 * RFY 03S0707 00450000 * IEDPRUQD BASED(OCUNIT); 03S0707 00451000 * 03S0707 00452000 * /*****************************************/ 00453000 * /* */ 00454000 * /* RESET COUNT FIELDS FOR PACKED RU AND */ 00455000 * /* GO BUILD REPLACE DSI */ 00456000 * /* */ 00457000 * /*****************************************/ 00458000 * 03S0708 00459000 * PRUDATCT=PRUDATCT+(TTEDIALN-ACTUAL);/* 00460000 * DATA COUNT IN PACKED RU */ 00461000 L @05,OCUNIT(,ROPCE) 03S0708 00462000 LA @15,DIALSP 03S0708 00463000 SLR @14,@14 03S0708 00464000 IC @14,TTEDIALN(,DEVDPADR) 03S0708 00465000 SLR @07,@07 03S0708 00466000 IC @07,ACTUAL(,@15) 03S0708 00467000 SLR @14,@07 03S0708 00468000 LH @07,PRUDATCT(,@05) 03S0708 00469000 ALR @07,@14 03S0708 00470000 STH @07,PRUDATCT(,@05) 03S0708 00471000 * DSITOTNM=DSITOTNM+(TTEDIALN-ACTUAL);/* 00472000 * COUNT IN DATA RECORD */ 00473000 LA @05,PRUDATA(,@05) 03S0709 00474000 AH @05,@CH00080 03S0709 00475000 SLR @07,@07 03S0709 00476000 IC @07,DSITOTNM(,@05) 03S0709 00477000 ALR @07,@14 03S0709 00478000 STC @07,DSITOTNM(,@05) 03S0709 00479000 * COUNT=COUNT+(TTEDIALN-ACTUAL);/* DIAL 00480000 * DATA COUNT FIELD IN WRK AREA */ 00481000 SLR @05,@05 03S0710 00482000 IC @05,COUNT(,@15) 03S0710 00483000 ALR @14,@05 03S0710 00484000 STC @14,COUNT(,@15) 03S0710 00485000 * BLRPLFLG=ON;/* SET FLAG TO BUILD REPLACE */ 00486000 OI BLRPLFLG,B'01000000' 03S0711 00487000 * RFY 03S0712 00488000 * RTNCODE RSTD; 03S0712 00489000 * END; 03S0713 00490000 * END; /* @YM07430*/ 00491000 * ELSE 03S0715 00492000 * ; /* @YM07430*/ 00493000 @RF00679 DS 0H 03S0716 00494000 * END; 03S0716 00495000 * ELSE 03S0717 00496000 * FREUTFLG=ON; /* FREE OPCE AND RU */ 00497000 B @RC00644 03S0717 00498000 @RF00644 OI FREUTFLG,B'10000000' 03S0717 00499000 * IF BLRPLFLG=ON THEN /* IF FLAG INDICATING REPLACE TO 00500000 * BE BUILT */ 00501000 @RC00644 TM BLRPLFLG,B'01000000' 03S0718 00502000 BNO @RF00718 03S0718 00503000 * DO; 03S0719 00504000 * 04S0720 00505000 * /***************************************************/ 00506000 * /* */ 00507000 * /* --- THIS SEGMENT BUILDS REPLACE DEV. SESSION */ 00508000 * /* INFO. OPCE- PACKED RU PAIRS ---- */ 00509000 * /* */ 00510000 * /***************************************************/ 00511000 * 04S0720 00512000 * TRMTBLSV=OCTRMTBL;/* SAVE OCTRMTBL */ 00513000 SLR TRMTBLSV,TRMTBLSV 04S0720 00514000 ICM TRMTBLSV,3,OCTRMTBL(ROPCE) 04S0720 00515000 * PTRSAVSV=OCPTRSAV;/* SAVE */ 00516000 L @14,OCPTRSAV(,ROPCE) 04S0721 00517000 ST @14,PTRSAVSV 04S0721 00518000 * UNITSV=OCUNIT; /* SAVE */ 00519000 L @07,OCUNIT(,ROPCE) 04S0722 00520000 ST @07,UNITSV 04S0722 00521000 * IEDQOPCN=''B; /* CLEAR NEG. PREFIX */ 00522000 LA @05,8 04S0723 00523000 LR @14,ROPCE 04S0723 00524000 SLR @14,@05 04S0723 00525000 XC IEDQOPCN(8,@14),IEDQOPCN(@14) 04S0723 00526000 * IEDQOPCE=''B; /* CLEAR OPCE */ 00527000 XC IEDQOPCE(64,ROPCE),IEDQOPCE(ROPCE) 04S0724 00528000 * OCTRMTBL=TRMTBLSV;/* RESOURCE TTCIN */ 00529000 STH TRMTBLSV,OCTRMTBL(,ROPCE) 04S0725 00530000 * OCPTRSAV=PTRSAVSV;/* POINTER TO ORIG OPCE */ 00531000 L @14,PTRSAVSV 04S0726 00532000 ST @14,OCPTRSAV(,ROPCE) 04S0726 00533000 * OCUNIT=UNITSV; /* POINTER TO ATTACHED PACKED RU */ 00534000 ST @07,OCUNIT(,ROPCE) 04S0727 00535000 * OCSWITCH=OCRPLDSI;/* REPLACE CMND. */ 00536000 MVI OCSWITCH(ROPCE),X'E4' 04S0728 00537000 * OCELMPRI=PRIMEDFG; 04S0729 00538000 MVI OCELMPRI(ROPCE),X'DF' 04S0729 00539000 * OCPRIFLG=OPR02; 04S0730 00540000 MVI OCPRIFLG(ROPCE),X'08' 04S0730 00541000 * OCWTG=THISMOD; /* SET TO RETURN TO THIS MODULE */ 00542000 MVC OCWTG(2,ROPCE),THISMOD 04S0731 00543000 * OCACTREQ=ON; /* SET FOR ACTIVATE REQUEST */ 00544000 OI OCACTREQ(ROPCE),B'00001000' 04S0732 00545000 * PRUTTCIN=OCTRMTBL;/* COPY DEVICE TTCIN @YM06512*/ 00546000 SLR @14,@14 04S0733 00547000 ICM @14,3,OCTRMTBL(ROPCE) 04S0733 00548000 STH @14,PRUTTCIN(,@07) 04S0733 00549000 * PRURHTH(1:3)=TRHFID0;/* SET FID0 RH FLAGS */ 00550000 LCR @05,@05 04S0734 00551000 ALR @05,@07 04S0734 00552000 MVC PRURHTH(3,@05),@CB01815 04S0734 00553000 * PRURHTH(4:4)=TTH0BYT0;/* SET FID0 TH FLAGS */ 00554000 MVI PRURHTH+3(@05),X'0C' 04S0735 00555000 * BDUMODIF=CD0CRDSI;/* BDU MODIFIER FOR "REPLACE" */ 00556000 AH @07,@CH00245 04S0736 00557000 MVI BDUMODIF(@07),X'22' 04S0736 00558000 * BDUFNFLG=''B; /* CLEAR FUNCTION FLAGS */ 00559000 MVI BDUFNFLG(@07),X'00' 04S0737 00560000 * BDUHEADR=ON; /* SET HEADER FLAG @YM06147*/ 00561000 OI BDUHEADR(@07),B'01000000' 04S0738 00562000 * BDUBDUFG=''B; /* CLEAR BDU FLAGS */ 00563000 MVI BDUBDUFG(@07),X'00' 04S0739 00564000 * BDUSYRSP=''B; /* CLEAR SYSTEM RESPONSE */ 00565000 MVI BDUSYRSP(@07),X'00' 04S0740 00566000 * BDUEXRSP=''B; /* CLEAR EXTENDED RESPONSE */ 00567000 MVI BDUEXRSP(@07),X'00' 04S0741 00568000 * TTEDIALR(1:TTEDIALN+1)=TTEDIAL(1:TTEDIALN+1);/* 00569000 * MOVE DIAL DIGITS AND LENGTH 00570000 * INTO WORK AREA */ 00571000 LA @14,DIALSP 04S0742 00572000 SLR @05,@05 04S0742 00573000 IC @05,TTEDIALN(,DEVDPADR) 04S0742 00574000 EX @05,@SM02306 04S0742 00575000 * DIGITS(1:1)=DIGITS(1:1)|SETHI;/* CONVERT DIGIT TO 00576000 * EBCDIC @YM06517*/ 00577000 OI DIGITS(@14),X'F0' 04S0743 00578000 * IF ACTUAL>1 THEN /* IF MORE THAN 1 DIGIT @YM06875*/ 00579000 CLI ACTUAL(@14),1 04S0744 00580000 BNH @RF00744 04S0744 00581000 * MVZ(DIGITS(2:ACTUAL),DIGITS(1:ACTUAL-1));/* 04S0745 00582000 * CONVERT REST TO EBCDIC @YM6517*/ 00583000 LA @09,DIALSP 04S0745 00584000 SLR @05,@05 04S0745 00585000 IC @05,ACTUAL(,@09) 04S0745 00586000 BCTR @05,0 04S0745 00587000 BCTR @05,0 04S0745 00588000 EX @05,@SB02300 04S0745 00589000 * ELSE 04S0746 00590000 * ; /* @YM06875*/ 00591000 @RF00744 DS 0H 04S0747 00592000 * IEDPLMV=''B; /* CLEAR IEDMVBFR PARM. LIST */ 00593000 LA @14,PARMLSP 04S0747 00594000 XC IEDPLMV(24,@14),IEDPLMV(@14) 04S0747 00595000 * PLMVTU=UNITSAVE; /* UNIT WHERE RU DIAL DATA STARTS*/ 00596000 MVC PLMVTU(4,@14),UNITSAVE 04S0748 00597000 * PLMVTD=DATASAVE; /* ADDR. OF DIAL DATA IN RU */ 00598000 MVC PLMVTD(4,@14),DATASAVE 04S0749 00599000 * PLMVSU=ADDR(DIALDATA);/* ADDR. OF DIAL DATA IN WRK 00600000 * AREA */ 00601000 LA @09,DIALSP 04S0750 00602000 ST @09,PLMVSU(,@14) 04S0750 00603000 * PLMVSD=ADDR(DIALDATA);/* DUPLICATE */ 00604000 ST @09,PLMVSD(,@14) 04S0751 00605000 * PLMVLNTH=COUNT+1; /* NO. BYTES TO MOVE */ 00606000 LA @05,1 04S0752 00607000 SLR @07,@07 04S0752 00608000 IC @07,COUNT(,@09) 04S0752 00609000 ALR @05,@07 04S0752 00610000 STH @05,PLMVLNTH(,@14) 04S0752 00611000 * PLMVSCTG=ON; /* 'SOURCE CONTIGUOUS' FLAG */ 00612000 OI PLMVSCTG(@14),B'01000000' 04S0753 00613000 * RPARM=ADDR(PARMLSP);/* ADDR OF PARM LIST @YM05982*/ 00614000 LR RPARM,@14 04S0754 00615000 * CALL IEDMVBFR; /* MOVE NEW DIAL DATA INTO RU */ 00616000 L @09,AVTSAVTP(,RAVT) 04S0755 00617000 L @15,SAVTMVBF(,@09) 04S0755 00618000 BALR @14,@15 04S0755 00619000 * ORGNOPCE->OCRESPCT=ORGNOPCE->OCRESPCT+1;/* UPDATE 00620000 * RESPONSE COUNT */ 00621000 LA @14,1 04S0756 00622000 SLR @09,@09 04S0756 00623000 ICM @09,3,OCRESPCT(ORGNOPCE) 04S0756 00624000 ALR @14,@09 04S0756 00625000 STH @14,OCRESPCT(,ORGNOPCE) 04S0756 00626000 * OPCMODID=RUDSPMOD;/* SET TO XCTL TO RU DISPATCHER */ 00627000 MVC OPCMODID(2,ROPCAVT),RUDSPMOD 04S0757 00628000 * END; 03S0758 00629000 * RFY 03S0759 00630000 * IEDDSI1 BASED; 03S0759 00631000 @RF00718 DS 0H 03S0760 00632000 * END; 02S0760 00633000 * ELSE 02S0761 00634000 * ; /* A REQUEST FROM IGCFL10D, NO 00635000 * RESPONSE PROCESSING NEEDED, NO 00636000 * ATTACHED UNIT TO FREE. */ 00637000 @RF00640 DS 0H 02S0762 00638000 * IF FREUTFLG=ON THEN /* IF UNITS ARE TO BE FREED */ 00639000 @RC00638 TM FREUTFLG,B'10000000' 02S0762 00640000 BNO @RF00762 02S0762 00641000 * IF ORGNOPCE->OCRESPCT=0 THEN/* IF END OF STEP */ 00642000 ICM @14,3,OCRESPCT(ORGNOPCE) 02S0763 00643000 BNZ @RF00763 02S0763 00644000 * DO; 02S0764 00645000 * 02S0764 00646000 * /*******************************************************/ 00647000 * /* */ 00648000 * /* FREE ONLY ATTACHED RU KEEPING THE OPCE TO INITIATE */ 00649000 * /* NEXT STEP IN PROCESSING. */ 00650000 * /* */ 00651000 * /*******************************************************/ 00652000 * 02S0765 00653000 * RZERO=1; /* DECREMENT OPCADGOT BY 1 .... */ 00654000 LA RZERO,1 02S0765 00655000 * CALL DECRCT; /* .... AND PRIME R/D ELEMENT */ 00656000 L @15,OPCDECR(,ROPCAVT) 02S0766 00657000 BALR @14,@15 02S0766 00658000 * RPARM=OCUNIT; /* GO FREE .... */ 00659000 L RPARM,OCUNIT(,ROPCE) 02S0767 00660000 * CALL FREEBUFF; /* .... ATTACHED RU */ 00661000 L @15,OPCFREBF(,ROPCAVT) 02S0768 00662000 BALR @14,@15 02S0768 00663000 * OCUNIT=PRUINTIC; /* SET INVALID TIC IN OPCE */ 00664000 MVC OCUNIT(4,ROPCE),@CF01781 02S0769 00665000 * END; 02S0770 00666000 * ELSE 02S0771 00667000 * DO; 02S0771 00668000 * 02S0771 00669000 B @RC00763 02S0771 00670000 @RF00763 DS 0H 02S0772 00671000 * /*******************************************************/ 00672000 * /* */ 00673000 * /* FREE BOTH OPCE AND RU SINCE NO "REPLACE" MUST BE */ 00674000 * /* DONE. */ 00675000 * /* */ 00676000 * /*******************************************************/ 00677000 * 02S0772 00678000 * RZERO=2; /* DECREMENT OPCADGOT BY 2 .... */ 00679000 LA RZERO,2 02S0772 00680000 * CALL DECRCT; /* .... AND PRIME R/D ELEMENT */ 00681000 L @15,OPCDECR(,ROPCAVT) 02S0773 00682000 BALR @14,@15 02S0773 00683000 * RPARM=ROPCE; /* FREE OPCE AND .... */ 00684000 LR RPARM,ROPCE 02S0774 00685000 * CALL FREEBUFF; /* .... ATTACHED RU */ 00686000 L @15,OPCFREBF(,ROPCAVT) 02S0775 00687000 BALR @14,@15 02S0775 00688000 * OPCMODID=CNTLMOD; /* SET TO XCTL TO CONTROL MOD. */ 00689000 MVC OPCMODID(2,ROPCAVT),CNTLMOD 02S0776 00690000 * END; 02S0777 00691000 * ELSE 02S0778 00692000 * ; 02S0778 00693000 @RF00762 DS 0H 02S0779 00694000 * DO WHILE(ORGNOPCE->OCRESPCT=0);/* IF THE RESPONSE COUNT IS 0 00695000 * INDICATING THAT NEXT STEP 00696000 * SHOULD BE DONE */ 00697000 * 01S0779 00698000 @RC00762 B @DE00779 01S0779 00699000 @DL00779 DS 0H 01S0780 00700000 * /***********************************************************/ 00701000 * /* */ 00702000 * /* DETERMINE WHAT TO DO NEXT */ 00703000 * /* */ 00704000 * /***********************************************************/ 00705000 * 01S0780 00706000 * 02S0780 00707000 * /***********************************************************/ 00708000 * /* */ 00709000 * /* --------- THIS SEGMENT CHECKS THE NEXT STEP TO BE DONE */ 00710000 * /* ----- */ 00711000 * /* */ 00712000 * /***********************************************************/ 00713000 * 02S0780 00714000 * IF OCSWITCH=OCOPYDSI|OCSWITCH=OCRPLDSI THEN/* IF CURRENT 00715000 * OPCE IS FOR COPY/REPLACE 02S0780 00716000 * DEVICE SESSION INFORMATION */ 00717000 CLI OCSWITCH(ROPCE),X'E3' 02S0780 00718000 BE @RT00780 02S0780 00719000 CLI OCSWITCH(ROPCE),X'E4' 02S0780 00720000 BNE @RF00780 02S0780 00721000 @RT00780 DS 0H 02S0781 00722000 * DO; 02S0781 00723000 * 02S0781 00724000 * /*******************************************************/ 00725000 * /* */ 00726000 * /* DIAL DIGIT PROCESSING COMPLETE FOR ALL AUTOCALL */ 00727000 * /* RESOURCES UNDER THE NCP, SET TO XCTL TO IGCFJ10D TO */ 00728000 * /* START ACTLINK PROCESSING. */ 00729000 * /* */ 00730000 * /*******************************************************/ 00731000 * 02S0782 00732000 * OCSWITCH=OCACTLK; /* SET COMMAND AS ACTLINK */ 00733000 MVI OCSWITCH(ROPCE),X'50' 02S0782 00734000 * OPCMODID=RPNCPMOD; /* SET TO XCTL */ 00735000 MVC OPCMODID(2,ROPCAVT),RPNCPMOD 02S0783 00736000 * ORGNOPCE->OCRESPCT=1; /* SET RESPONSE COUNT */ 00737000 MVC OCRESPCT(2,ORGNOPCE),@CH00061 02S0784 00738000 * OCREDRVE=OFF; /* RESET REDRIVE FLAG */ 00739000 NI OCREDRVE(ROPCE),B'11101111' 02S0785 00740000 * END; 02S0786 00741000 * ELSE 02S0787 00742000 * DO; 02S0787 00743000 * 02S0787 00744000 B @RC00780 02S0787 00745000 @RF00780 DS 0H 02S0788 00746000 * /*******************************************************/ 00747000 * /* */ 00748000 * /* CHECK IF ANY DIAL BSC-SS TERMS WITH AUTODIAL */ 00749000 * /* SPECIFIED. REFORMAT CURRENT OPCE INTO REDRIVE OPCE */ 00750000 * /* FOR COPY DSI */ 00751000 * /* */ 00752000 * /*******************************************************/ 00753000 * 02S0788 00754000 * 03S0788 00755000 * /*******************************************************/ 00756000 * /* */ 00757000 * /* ------ THIS SEGMENT REFORMATS AN OPCE INTO A REDRIVE*/ 00758000 * /* OPCE--- */ 00759000 * /* */ 00760000 * /*******************************************************/ 00761000 * 03S0788 00762000 * RFY 03S0788 00763000 * IEDSATD BASED(ENTRYPTR);/* SAT BASE FOR LOOP */ 00764000 * RFY 03S0789 00765000 * IEDRVTD BASED(SATRNRVT);/* BASE FOR RVT */ 00766000 * OCREDRVE=ON; /* SET FLAG */ 00767000 OI OCREDRVE(ROPCE),B'00010000' 03S0790 00768000 * OCBUFNED=''B; /* INIT. BUFFER UNITS NEEDED */ 00769000 SLR @14,@14 03S0791 00770000 STH @14,OCBUFNED(,ROPCE) 03S0791 00771000 * OCBUFGOT=''B; /* INIT. BUFFER UNITS GOT */ 00772000 STH @14,OCBUFGOT(,ROPCE) 03S0792 00773000 * OCSWITCH=OCOPYDSI; /* COPY DEV. SESSION INFO. CODE */ 00774000 * 03S0793 00775000 MVI OCSWITCH(ROPCE),X'E3' 03S0793 00776000 * /*******************************************************/ 00777000 * /* */ 00778000 * /* LOOP THROUGH SAT UNTIL CORRECT RVT FOUND */ 00779000 * /* */ 00780000 * /*******************************************************/ 00781000 * 03S0794 00782000 * ENTRYPTR=SAVTSAT; /* ADDR. OF SAT - FIRST ENTRY */ 00783000 L @14,AVTSAVTP(,RAVT) 03S0794 00784000 MVC ENTRYPTR(4),SAVTSAT(@14) 03S0794 00785000 * DO UNTIL(FDRVTFLG=ON); 03S0795 00786000 @DL00795 DS 0H 03S0796 00787000 * IF SATRNRVT^=0 THEN /* IF THIS SUBAREA ACTIVE 03S0796 00788000 * @YM05702*/ 00789000 L @14,ENTRYPTR 03S0796 00790000 L @14,SATRNRVT(,@14) 03S0796 00791000 LTR @14,@14 03S0796 00792000 BZ @RF00796 03S0796 00793000 * IF RVTINDEX=OCPTRSAV->OCTRMTBL THEN/* IF THIS IS 00794000 * CORRECT RVT */ 00795000 L @09,OCPTRSAV(,ROPCE) 03S0797 00796000 CLC RVTINDEX(2,@14),OCTRMTBL(@09) 03S0797 00797000 BNE @RF00797 03S0797 00798000 * FDRVTFLG=ON; /* SET FLAG TO GET OUT OF LOOP */ 00799000 OI FDRVTFLG,B'00100000' 03S0798 00800000 * ELSE 03S0799 00801000 * ENTRYPTR=ENTRYPTR+LENGTH(IEDSATD);/* UPDATE PTR. 00802000 * TO NEXT SAT ENTRY */ 00803000 B @RC00797 03S0799 00804000 @RF00797 LA @14,8 03S0799 00805000 AL @14,ENTRYPTR 03S0799 00806000 ST @14,ENTRYPTR 03S0799 00807000 * ELSE /* @YM05702*/ 00808000 * ENTRYPTR=ENTRYPTR+LENGTH(IEDSATD);/* UPDATE PTR. TO 00809000 * NEXT SAT ENTRY @YM06014*/ 00810000 B @RC00796 03S0800 00811000 @RF00796 LA @14,8 03S0800 00812000 AL @14,ENTRYPTR 03S0800 00813000 ST @14,ENTRYPTR 03S0800 00814000 * END; 03S0801 00815000 @RC00796 DS 0H 03S0801 00816000 @DE00795 TM FDRVTFLG,B'00100000' 03S0801 00817000 BNO @DL00795 03S0801 00818000 * ENTRYCT=RVTNUM-1; /* NO. OF RVT ENTRIES - NCP ENTRY*/ 00819000 L @14,ENTRYPTR 03S0802 00820000 L @14,SATRNRVT(,@14) 03S0802 00821000 SLR @09,@09 03S0802 00822000 ICM @09,3,RVTNUM(@14) 03S0802 00823000 BCTR @09,0 03S0802 00824000 STH @09,ENTRYCT 03S0802 00825000 * ENTRYRVT=SATRNRVT+LENGTH(RVTINDEX);/* SET PTR. IN R/D 00826000 * OPCE TO SECOND ENTRY IN THE 00827000 * RVT */ 00828000 AH @14,@CH00066 03S0803 00829000 ST @14,ENTRYRVT(,ROPCE) 03S0803 00830000 * RFY 03S0804 00831000 * IEDSATD BASED; 03S0804 00832000 * RFY 03S0805 00833000 * IEDRVTD BASED(ENTRYRVT); 03S0805 00834000 * ENTRYPTR=ENTRYRVT; /* POINT TO SECOND ENTRY */ 00835000 ST @14,ENTRYPTR 02S0806 00836000 * DO WHILE(ENTRYCT^=0); /* SET TO LOOP THROUGH RVT */ 00837000 B @DE00807 02S0807 00838000 @DL00807 DS 0H 02S0808 00839000 * RFY 02S0808 00840000 * IEDRVTD BASED(ENTRYPTR);/* BASE FOR DURATION OF 00841000 * LOOP */ 00842000 * RFY 02S0809 00843000 * IEDQTRM BASED(RPARM);/* BASE FOR DURATION OF LOOP */ 00844000 * IF RVTINDEX^=0 THEN /* IF VALID INDEX */ 00845000 L @14,ENTRYPTR 02S0810 00846000 SLR @09,@09 02S0810 00847000 ICM @09,3,RVTINDEX(@14) 02S0810 00848000 LTR @09,@09 02S0810 00849000 BZ @RF00810 02S0810 00850000 * DO; 02S0811 00851000 * RPARM=RVTINDEX; /* OBTAIN TTE .... */ 00852000 LR RPARM,@09 02S0812 00853000 * CALL IEDQTNT; /* .... ADDR. OF RESOURCE */ 00854000 L @15,AVTRNMPT(,RAVT) 02S0813 00855000 BALR @14,@15 02S0813 00856000 * IF TRMTYPE=TRMPSNA THEN/* IF PRE-SNA 3705 02S0814 00857000 * TERMINAL */ 00858000 * 02S0814 00859000 LR @14,RPARM 02S0814 00860000 SH @14,@CH00077 02S0814 00861000 CLI TRMTYPE(@14),X'4F' 02S0814 00862000 BNE @RF00814 02S0814 00863000 * /***********************************************/ 00864000 * /* */ 00865000 * /* GO SEE IF AUTOCALL WITH VALID DIAL DIGITS */ 00866000 * /* SPECIFIED */ 00867000 * /* */ 00868000 * /***********************************************/ 00869000 * 02S0815 00870000 * 03S0815 00871000 * /***********************************************/ 00872000 * /* */ 00873000 * /* ---- THIS SEGMENT CHECKS IF COPY DSI CMND IS*/ 00874000 * /* NEEDED FOR THIS TERM. ----- */ 00875000 * /* */ 00876000 * /***********************************************/ 00877000 * 03S0815 00878000 * IF TRMAUTOC=ON&TRMDDIG=ON THEN/* IF AUTOCALL 00879000 * WITH DIAL DIGITS */ 00880000 TM TRMAUTOC(@14),B'00100000' 03S0815 00881000 BNO @RF00815 03S0815 00882000 TM TRMDDIG(RPARM),B'01000000' 03S0815 00883000 BNO @RF00815 03S0815 00884000 * DO; 03S0816 00885000 * RZERO=TRMDDIGA;/* CODE FOR IEDQTL */ 00886000 LH RZERO,@CH02076 03S0817 00887000 * CALL IEDQTL;/* GET ADDR. OF DIAL DIGITS 00888000 * FIELD */ 00889000 L @15,AVTDDFT(,RAVT) 03S0818 00890000 BALR @14,@15 03S0818 00891000 * DEVDPADR=RTNCODE;/* SAVE ADDR. */ 00892000 LR DEVDPADR,RTNCODE 03S0819 00893000 * IF TTEDIALN=LENCTFLD&TTEDIALD(1:1)='0F'X THEN 00894000 CLI TTEDIALN(DEVDPADR),1 03S0820 00895000 BNE @RF00820 03S0820 00896000 CLI TTEDIALD(DEVDPADR),X'0F' 03S0820 00897000 BE @RT00820 03S0820 00898000 * ; /* IF INVALID DIAL DATA THEN DO 00899000 * NOTHING */ 00900000 * ELSE 03S0822 00901000 * DO; 03S0822 00902000 @RF00820 DS 0H 03S0823 00903000 * ORGNOPCE->OCRESPCT=ORGNOPCE->OCRESPCT+1; 00904000 LA @14,1 03S0823 00905000 SLR @09,@09 03S0823 00906000 ICM @09,3,OCRESPCT(ORGNOPCE) 03S0823 00907000 ALR @14,@09 03S0823 00908000 STH @14,OCRESPCT(,ORGNOPCE) 03S0823 00909000 * /* INCREMENT RESP. COUNT */ 00910000 * OCBUFNED=OCBUFNED+2;/* UPDATE UNITS 00911000 * NEEDED BY 2 */ 00912000 LA @14,2 03S0824 00913000 SLR @09,@09 03S0824 00914000 ICM @09,3,OCBUFNED(ROPCE) 03S0824 00915000 ALR @14,@09 03S0824 00916000 STH @14,OCBUFNED(,ROPCE) 03S0824 00917000 * END; 03S0825 00918000 * END; 03S0826 00919000 * ELSE 03S0827 00920000 * ; 03S0827 00921000 @RF00815 DS 0H 03S0828 00922000 * ELSE 02S0828 00923000 * ; 02S0828 00924000 @RF00814 DS 0H 02S0829 00925000 * END; 02S0829 00926000 * ELSE 02S0830 00927000 * ; 02S0830 00928000 @RF00810 DS 0H 02S0831 00929000 * ENTRYCT=ENTRYCT-1; /* DECREMENT LOOP CTR. */ 00930000 @RC00810 LH @14,ENTRYCT 02S0831 00931000 BCTR @14,0 02S0831 00932000 STH @14,ENTRYCT 02S0831 00933000 * ENTRYPTR=ENTRYPTR+LENGTH(RVTINDEX);/* OBTAIN NEXT RVT 00934000 * ENTRY */ 00935000 LA @14,2 02S0832 00936000 AL @14,ENTRYPTR 02S0832 00937000 ST @14,ENTRYPTR 02S0832 00938000 * RFY 02S0833 00939000 * IEDQTRM BASED(RTRM);/* RESTORE BASE */ 00940000 * RFY 02S0834 00941000 * IEDRVTD BASED(ENTRYRVT);/* RESET BASE */ 00942000 * END; 02S0835 00943000 @DE00807 ICM @14,3,ENTRYCT 02S0835 00944000 BNZ @DL00807 02S0835 00945000 * END; 02S0836 00946000 * END; 01S0837 00947000 @RC00780 DS 0H 01S0837 00948000 @DE00779 ICM @14,3,OCRESPCT(ORGNOPCE) 01S0837 00949000 BZ @DL00779 01S0837 00950000 * IF OCREDRVE=ON THEN /* IF CHKSTEP CREATED REDRIVE 00951000 * OPCE */ 00952000 TM OCREDRVE(ROPCE),B'00010000' 01S0838 00953000 BNO @RF00838 01S0838 00954000 * DO; 01S0839 00955000 * 01S0839 00956000 * /*********************************************************/ 00957000 * /* */ 00958000 * /* A REDRIVE OPCE HAS BEEN CREATED FOR COPY DEVICE */ 00959000 * /* SESSION INFORMATION COMMANDS. OBTAIN AS MANY UNITS AS */ 00960000 * /* ALLOWABLE UP TO THE NUMBER OF UNITS NEEDED TO SEND OUT*/ 00961000 * /* ALL COMMANDS AND THEN ENTER REDRIVE PROCESSING WHICH */ 00962000 * /* BUILDS COPY DEVICE SESSION INFORMATION OPCE- PACKED RU*/ 00963000 * /* PAIRS FOR EACH RESOURCE. */ 00964000 * /* */ 00965000 * /*********************************************************/ 00966000 * 01S0840 00967000 * 02S0840 00968000 * /*********************************************************/ 00969000 * /* */ 00970000 * /* OBTAIN AS MANY BUFFER UNITS AS THE OPCE NEEDS UP TO */ 00971000 * /* 50% OF TCAM'S UNITS. CHAIN THEM OFF OCUNIT FIELD OF */ 00972000 * /* THE OPCE. */ 00973000 * /* */ 00974000 * /*********************************************************/ 00975000 * 02S0840 00976000 * UNITPTR=ROPCE; /* SET TO POINT TO R/D OPCE */ 00977000 LR UNITPTR,ROPCE 02S0840 00978000 * IF OPCADGOT+OCBUFNED>HALFUNIT THEN/* IF TOTAL OF UNITS 00979000 * A/D HAS AND UNITS NEEDED 02S0841 00980000 * EXCEEDS THE 50% LEVEL */ 00981000 LH @14,HALFUNIT 02S0841 00982000 SLR @11,@11 02S0841 00983000 ICM @11,3,OPCADGOT(ROPCAVT) 02S0841 00984000 SLR @09,@09 02S0841 00985000 ICM @09,3,OCBUFNED(ROPCE) 02S0841 00986000 ALR @09,@11 02S0841 00987000 CR @09,@14 02S0841 00988000 BNH @RF00841 02S0841 00989000 * UNITSGET=HALFUNIT-OPCADGOT;/* GET UNITS UP TO 50% LEVEL*/ 00990000 SLR @14,@11 02S0842 00991000 STH @14,UNITSGET 02S0842 00992000 * ELSE 02S0843 00993000 * UNITSGET=OCBUFNED; /* GET AS MANY UNITS AS NEEDED */ 00994000 B @RC00841 02S0843 00995000 @RF00841 MVC UNITSGET(2),OCBUFNED(ROPCE) 02S0843 00996000 * DO WHILE(UNITSGET^=0); /* GO TO ALLOCBUF AS MANY TIMES 00997000 * AS NECESSAY TO OBTAIN UNITS */ 00998000 @RC00841 B @DE00844 02S0844 00999000 @DL00844 DS 0H 02S0845 01000000 * IF UNITSGET>MAXUNTGT THEN/* IF FK IS TO GET MORE THAN 01001000 * THE # OF UNITS ALLOCBUF CAN 01002000 * GIVE PER CALL */ 01003000 LA @14,255 02S0845 01004000 CH @14,UNITSGET 02S0845 01005000 BNL @RF00845 02S0845 01006000 * RPARM=MAXUNTGT; /* GET THE MAXIMUM */ 01007000 LR RPARM,@14 02S0846 01008000 * ELSE 02S0847 01009000 * RPARM=UNITSGET; /* GET # TO GET */ 01010000 B @RC00845 02S0847 01011000 @RF00845 LH RPARM,UNITSGET 02S0847 01012000 * CALL ALLOCBUF; /* GET BUFFER UNITS */ 01013000 * 02S0848 01014000 @RC00845 L @15,OPCGETBF(,ROPCAVT) 02S0848 01015000 BALR @14,@15 02S0848 01016000 * /*******************************************************/ 01017000 * /* */ 01018000 * /* LINK UNITS JUST GOTTEN OFF OF OCLINK AT END OF */ 01019000 * /* CURRENT CHAIN OF BUFFERS */ 01020000 * /* */ 01021000 * /*******************************************************/ 01022000 * 02S0849 01023000 * RFY 02S0849 01024000 * IEDQOPCE BASED(UNITPTR); 02S0849 01025000 * RFY 02S0850 01026000 * TICFLD BASED(ADDR(OCUNIT)); 02S0850 01027000 * DO WHILE(TIC=VALTIC); /* LOOP TO FIND END OF CURRENT 01028000 * CHAIN */ 01029000 B @DE00851 02S0851 01030000 @DL00851 DS 0H 02S0852 01031000 * UNITPTR=OCUNIT; /* POINT TO NEXT UNIT */ 01032000 L UNITPTR,OCUNIT(,UNITPTR) 02S0852 01033000 * END; 02S0853 01034000 @DE00851 TM TIC+8(UNITPTR),B'00000011' 02S0853 01035000 BZ @DL00851 02S0853 01036000 * OCUNIT=RPARM; /* POINT TO UNITS JUST GOTTEN */ 01037000 ST RPARM,OCUNIT(,UNITPTR) 02S0854 01038000 * RFY 02S0855 01039000 * TICFLD BASED; 02S0855 01040000 * RFY 02S0856 01041000 * IEDQOPCE BASED(ROPCE); 02S0856 01042000 * UNITSGET=UNITSGET-RZERO;/* UPDATE # OF UNITS TO GET */ 01043000 LH @14,UNITSGET 02S0857 01044000 SLR @14,RZERO 02S0857 01045000 STH @14,UNITSGET 02S0857 01046000 * OCBUFNED=OCBUFNED-RZERO;/* UPDATE # OF UNITS OPCE NEEDS*/ 01047000 SLR @14,@14 02S0858 01048000 ICM @14,3,OCBUFNED(ROPCE) 02S0858 01049000 SLR @14,RZERO 02S0858 01050000 STH @14,OCBUFNED(,ROPCE) 02S0858 01051000 * OCBUFGOT=OCBUFGOT+RZERO;/* UPDATE # OF UNITS OPCE HAS */ 01052000 SLR @14,@14 02S0859 01053000 ICM @14,3,OCBUFGOT(ROPCE) 02S0859 01054000 ALR @14,RZERO 02S0859 01055000 STH @14,OCBUFGOT(,ROPCE) 02S0859 01056000 * OPCADGOT=OPCADGOT+RZERO;/* UPDATE OPCADGOT */ 01057000 SLR @14,@14 02S0860 01058000 ICM @14,3,OPCADGOT(ROPCAVT) 02S0860 01059000 ALR @14,RZERO 02S0860 01060000 STH @14,OPCADGOT(,ROPCAVT) 02S0860 01061000 * END; 02S0861 01062000 @DE00844 ICM @14,3,UNITSGET 02S0861 01063000 BNZ @DL00844 02S0861 01064000 * CALL REDRIVE; 01S0862 01065000 BAL @14,REDRIVE 01S0862 01066000 * END; 01S0863 01067000 * ELSE 01S0864 01068000 * ; /* EITHER OPCE IS A ACTLINK 01S0864 01069000 * REQUEST OPCE OR IS A REPLACE 01070000 * DSI COMMAND OPCE. IN EITHER 01071000 * CASE, EXIT. */ 01072000 @RF00838 DS 0H 01S0865 01073000 * END; 01S0865 01074000 * 01S0865 01075000 * /*****************************************************************/ 01076000 * /* */ 01077000 * /* EXIT CODE */ 01078000 * /* */ 01079000 * /*****************************************************************/ 01080000 * 01S0866 01081000 * IF OPCMODID=CNTLMOD THEN /* IF XCTL IS TO IGC0010D */ 01082000 @RC00634 CLC OPCMODID(2,ROPCAVT),CNTLMOD 01S0866 01083000 BNE @RF00866 01S0866 01084000 * RZERO=''B; /* CLEAR */ 01085000 SLR RZERO,RZERO 01S0867 01086000 * RPARM=ROPCAVT; 01S0868 01087000 @RF00866 LR RPARM,ROPCAVT 01S0868 01088000 * DO; /* IEDXCTL */ 01089000 * GEN EXIT REFS(ROPCAVT,OPCTRACE,OPCXCTL) NOSEQFLOW; 01S0870 01090000 * /* 01091000 LA 15,OPCXCTL(,ROPCAVT) POINT TO OPCXCTL LIST 01092000 EX 0,OPCTRACE(,ROPCAVT) INVOKE XCTL TRACE 01093000 XCTL SF=(E,(15)) XCTL TO NEXT MODULE 01094000 * END; /* END OF IEDXCTL */ 01095000 */* @OZ35627 */ 01096000 * 01S0872 01097000 * /*****************************************************************/ 01098000 * /* */ 01099000 * /* END OF MAIN PROCEDURE */ 01100000 * /* */ 01101000 * /*****************************************************************/ 01102000 * 01S0872 01103000 * 01S0872 01104000 */********************************************************************/ 01105000 */* REDRIVE SUBROUTINE */ 01106000 */********************************************************************/ 01107000 */* */ 01108000 */* THIS ROUTINE PERFORMS THE REDRIVE PROCESSING: */ 01109000 */* 1. THE RVT IS SCANNED STARTING WITH THE ENTRY ADDR. (ENTRYRVT) */ 01110000 */* CONTAINED IN OCMODNME OF THE REDRIVE OPCE. ON THE FIRST PASS, */ 01111000 */* THIS IS SET UP WITH THE 2ND ENTRY IN THE RVT. */ 01112000 */* 2. USING RVTINDEX, THE TTE IS OBTAINED AND THE TERMINAL IS */ 01113000 */* VERIFIED AS A BSC-SS DIAL TERM. WITH AUTOCALL SPECIFIED. */ 01114000 */* 3. IF SO, A COPY DEVICE SESSION INFORMATION OPCE IS BUILT IN */ 01115000 */* THE UNIT POINTED TO BY OCUNIT OF THE REDRIVE OPCE. THE NEXT */ 01116000 */* UNIT HAS A PACKED RU BUILT IN IT. OCUNIT OF THE REDRIVE OPCE */ 01117000 */* IS SET TO THE UNIT FOLLOWING THE SECOND UNIT. */ 01118000 */* 4. THE OPCE=RU PAIR JUST BUILT IS PUT INTO THE CHAIN FOR THE */ 01119000 */* POST TO AVTOPCOB. */ 01120000 */* 5. IF THERE ARE 2 OR MORE UNITS LEFT, THE RVT SCAN IS CONTINED */ 01121000 */* AND STEPS 2-4 REPEATED. */ 01122000 */* */ 01123000 */********************************************************************/ 01124000 * 01S0872 01125000 *REDRIVE: 01S0872 01126000 * PROC OPTIONS(RETREG,SAVE(14)); 01S0872 01127000 REDRIVE ST @14,@SA00002 01S0872 01128000 * IF OCBUFGOT>=2 THEN /* IF TWO OR MORE UNITS ATTACHED */ 01129000 CLC OCBUFGOT(2,ROPCE),@CH00066 01S0873 01130000 BL @RF00873 01S0873 01131000 * DO; 01S0874 01132000 * 01S0874 01133000 * /*************************************************************/ 01134000 * /* */ 01135000 * /* THERE ARE ENOUGH UNITS */ 01136000 * /* */ 01137000 * /*************************************************************/ 01138000 * 01S0875 01139000 * OPCAQWD1=OCUNIT; /* SET FIRST WORD OF AQCTL PARM. 01140000 * LIST TO POINT TO FIRST UNIT */ 01141000 MVC OPCAQWD1(4,ROPCAVT),OCUNIT(ROPCE) 01S0875 01142000 * DO WHILE(OCBUFGOT>=2); /* LOOP WHILE ENOUGH UNITS REMAIN*/ 01143000 B @DE00876 01S0876 01144000 @DL00876 DS 0H 01S0877 01145000 * RFY 01S0877 01146000 * IEDQOPCE BASED(UNITPTR);/* REDEFINE BASE FOR LOOP */ 01147000 * UNITPTR=ROPCE->OCUNIT; /* POINT TO FIRST UNIT */ 01148000 L UNITPTR,OCUNIT(,ROPCE) 01S0878 01149000 * ROPCE->OCUNIT=OCUNIT->OCUNIT;/* SET OCUNIT OF REDRIVE TO 01150000 * POINT TO UNIT FOLLOWING UNIT 01151000 * FOLLOWING UNIT POINTED TO BY 01152000 * UNITPTR */ 01153000 L @14,OCUNIT(,UNITPTR) 01S0879 01154000 L @11,OCUNIT(,@14) 01S0879 01155000 ST @11,OCUNIT(,ROPCE) 01S0879 01156000 * OCELEM=ROPCE->OCUNIT; /* MOVE LINK FOR POST TO AVTOPCOB*/ 01157000 ST @11,OCELEM(,UNITPTR) 01S0880 01158000 * PRUTIC=PRUINTIC; /* SET TIC FIELD OF RU INVALID */ 01159000 * 01S0881 01160000 MVC PRUTIC(4,@14),@CB01781 01S0881 01161000 * /***********************************************************/ 01162000 * /* */ 01163000 * /* SET COMMON FIELDS IN OPCE */ 01164000 * /* */ 01165000 * /***********************************************************/ 01166000 * 01S0882 01167000 * OCPTRSAV=ROPCE->OCPTRSAV; /* SET ADDR. OF ORIG. OPCE */ 01168000 MVC OCPTRSAV(4,UNITPTR),OCPTRSAV(ROPCE) 01S0882 01169000 * OCSWITCH=OCOPYDSI; /* SET COMMAND CODE */ 01170000 MVI OCSWITCH(UNITPTR),X'E3' 01S0883 01171000 * OCLINK=ADDR(AVTOPCOB); /* SET QCB ADDR. */ 01172000 LA @14,AVTOPCOB(,RAVT) 01S0884 01173000 ST @14,OCLINK(,UNITPTR) 01S0884 01174000 * OCELMPRI=PRIMEDFG; /* SET UP POST PRIORITY */ 01175000 MVI OCELMPRI(UNITPTR),X'DF' 01S0885 01176000 * OCPRIFLG=OPR02; /* SET TO ROUTE TO RU DISPATCHER */ 01177000 MVI OCPRIFLG(UNITPTR),X'08' 01S0886 01178000 * OCWTG=THISMOD; /* SET TO RETURN TO THIS MOD. */ 01179000 MVC OCWTG(2,UNITPTR),THISMOD 01S0887 01180000 * OCACTREQ=ON; /* ACTIVATE REQUEST */ 01181000 OI OCACTREQ(UNITPTR),B'00001000' 01S0888 01182000 * OPCAQWD2=UNITPTR; /* 'END OF CHAIN' ADDR. IN AQCTL 01183000 * PARM. LIST */ 01184000 * 01S0889 01185000 ST UNITPTR,OPCAQWD2(,ROPCAVT) 01S0889 01186000 * /***********************************************************/ 01187000 * /* */ 01188000 * /* SCAN RVT UNTIL THE TTE OF A DIAL TERM. WITH AUTOCALL AND*/ 01189000 * /* VALID DIAL DIGITS IS FOUND. FINISH BUILDING OPCE AND */ 01190000 * /* PACKED RU. */ 01191000 * /* */ 01192000 * /***********************************************************/ 01193000 * 01S0890 01194000 * 02S0890 01195000 * /***********************************************************/ 01196000 * /* */ 01197000 * /* ------- THIS SEGMENT BUILDS "COPY DEVICE SESSION */ 01198000 * /* INFORMATION" OPCE- PACKED RU PAIRS. ----- */ 01199000 * /* */ 01200000 * /***********************************************************/ 01201000 * 02S0890 01202000 * RFY 02S0890 01203000 * IEDQTRM BASED(RPARM); /* SET TTE BASE */ 01204000 * RFY 02S0891 01205000 * IEDQOPCE BASED(ROPCE); /* SET BASE AS REDRIVE OPCE */ 01206000 * DO UNTIL(BUILTFLG=ON); /* DO UNTIL CMND. BUILT */ 01207000 * 02S0892 01208000 @DL00892 DS 0H 02S0893 01209000 * /*********************************************************/ 01210000 * /* */ 01211000 * /* OBTAIN NEXT RVT ENTRY ADDR. FROM REDRIVE OPCE AND SET */ 01212000 * /* OCTRMTBL OF OPCE BEING BUILT TO TTCIN CONTAINED IN RVT*/ 01213000 * /* ENTRY. */ 01214000 * /* */ 01215000 * /*********************************************************/ 01216000 * 02S0893 01217000 * UNITPTR->OCTRMTBL=RVTINDEX;/* SET TTCIN FOR OPCE BEING 01218000 * BUILT */ 01219000 L @14,ENTRYRVT(,ROPCE) 02S0893 01220000 SLR @11,@11 02S0893 01221000 ICM @11,3,RVTINDEX(@14) 02S0893 01222000 STH @11,OCTRMTBL(,UNITPTR) 02S0893 01223000 * ENTRYRVT=ENTRYRVT+LENGTH(RVTINDEX);/* UPDATE RVT ENTRY 01224000 * PTR. IN R/D OPCE TO POINT TO 01225000 * NEXT ENTRY */ 01226000 AH @14,@CH00066 02S0894 01227000 ST @14,ENTRYRVT(,ROPCE) 02S0894 01228000 * RPARM=UNITPTR->OCTRMTBL;/* OBTAIN ADDR. OF .... */ 01229000 LR RPARM,@11 02S0895 01230000 * CALL IEDQTNT; /* .... TTE */ 01231000 L @15,AVTRNMPT(,RAVT) 02S0896 01232000 BALR @14,@15 02S0896 01233000 * IF TRMTYPE=TRMPSNA&TRMAUTOC=ON&TRMDDIG=ON THEN/* IF 02S0897 01234000 * PRE-SNA TERM. WITH AUTOCALL 01235000 * AND DIAL DIGITS */ 01236000 LR @14,RPARM 02S0897 01237000 SH @14,@CH00077 02S0897 01238000 CLI TRMTYPE(@14),X'4F' 02S0897 01239000 BNE @RF00897 02S0897 01240000 TM TRMAUTOC(@14),B'00100000' 02S0897 01241000 BNO @RF00897 02S0897 01242000 TM TRMDDIG(RPARM),B'01000000' 02S0897 01243000 BNO @RF00897 02S0897 01244000 * DO; 02S0898 01245000 * 02S0898 01246000 * /*****************************************************/ 01247000 * /* */ 01248000 * /* BUILD COPY DEVICE SESSION INFO. CMND. IF THIS */ 01249000 * /* TERMINAL HAS VALID DIAL DIGITS. */ 01250000 * /* */ 01251000 * /*****************************************************/ 01252000 * 02S0899 01253000 * RZERO=TRMDDIGA; /* OBTAIN ADDR. OF .... */ 01254000 LH RZERO,@CH02076 02S0899 01255000 * CALL IEDQTL; /* .... DEVICE DEPENDENT FIELD */ 01256000 L @15,AVTDDFT(,RAVT) 02S0900 01257000 BALR @14,@15 02S0900 01258000 * DEVDPADR=RTNCODE; /* COPY ADDR. OF FIELD */ 01259000 LR DEVDPADR,RTNCODE 02S0901 01260000 * IF TTEDIALN=1&TTEDIALD(1:1)='0F'X THEN/* IF INVALID */ 01261000 CLI TTEDIALN(DEVDPADR),1 02S0902 01262000 BNE @RF00902 02S0902 01263000 CLI TTEDIALD(DEVDPADR),X'0F' 02S0902 01264000 BNE @RF00902 02S0902 01265000 * BUILTFLG=OFF; /* CMND. NOT BUILT FOR THIS TERM. 01266000 * - CHECK NEXT RVT ENTRY */ 01267000 NI BUILTFLG,B'11101111' 02S0903 01268000 * ELSE 02S0904 01269000 * DO; 02S0904 01270000 * 02S0904 01271000 B @RC00902 02S0904 01272000 @RF00902 DS 0H 02S0905 01273000 * /*************************************************/ 01274000 * /* */ 01275000 * /* BUILD PACKED RU */ 01276000 * /* */ 01277000 * /*************************************************/ 01278000 * 02S0905 01279000 * RFY 02S0905 01280000 * IEDQOPCE BASED(UNITPTR);/* RESET BASE AS OPCE 01281000 * BEING BUILT */ 01282000 * PRUTTCIN=OCTRMTBL;/* SET RESOURCE TTCIN */ 01283000 L @14,OCUNIT(,UNITPTR) 02S0906 01284000 MVC PRUTTCIN(2,@14),OCTRMTBL(UNITPTR) 02S0906 01285000 * PRUDATCT=LENGTH(IEDBDU);/* DATA LENGTH IS BDU 01286000 * LENGTH */ 01287000 MVC PRUDATCT(2,@14),@CH00080 02S0907 01288000 * BDUCMND=CD0CTRL;/* CONTROL BDU */ 01289000 LA @11,12 02S0908 01290000 ALR @11,@14 02S0908 01291000 MVI BDUCMND(@11),X'08' 02S0908 01292000 * BDUMODIF=CD0CCDSI;/* COPY DSI MODIFIER */ 01293000 MVI BDUMODIF(@11),X'21' 02S0909 01294000 * BDUHEADR=ON; /* TURN ON HEADER FLAG @YM06147*/ 01295000 OI BDUHEADR(@11),B'01000000' 02S0910 01296000 * PRURHTH(1:3)=TRHFID0;/* SET FID0 RH FLAGS */ 01297000 SH @14,@CH00045 02S0911 01298000 MVC PRURHTH(3,@14),@CB01815 02S0911 01299000 * PRURHTH(4:4)=TTH0BYT0;/* SET FID0 TH FLAGS */ 01300000 MVI PRURHTH+3(@14),X'0C' 02S0912 01301000 * BUILTFLG=ON; /* RU BUILT, RETURN TO REDRIVE */ 01302000 OI BUILTFLG,B'00010000' 02S0913 01303000 * END; 02S0914 01304000 * END; 02S0915 01305000 * ELSE 02S0916 01306000 * BUILTFLG=OFF; /* CMND. NOT BUILT FOR THIS TERM. 01307000 * - CHECK NEXT RVT ENTRY */ 01308000 B @RC00897 02S0916 01309000 @RF00897 NI BUILTFLG,B'11101111' 02S0916 01310000 * END; 02S0917 01311000 @RC00897 DS 0H 02S0917 01312000 @DE00892 TM BUILTFLG,B'00010000' 02S0917 01313000 BNO @DL00892 02S0917 01314000 * RFY 02S0918 01315000 * IEDQTRM BASED(RTRM); /* RESET BASE FOR TTE */ 01316000 * ROPCE->OCBUFGOT=ROPCE->OCBUFGOT-2;/* DECREMENT # UNITS GOT */ 01317000 SLR @14,@14 01S0919 01318000 ICM @14,3,OCBUFGOT(ROPCE) 01S0919 01319000 BCTR @14,0 01S0919 01320000 BCTR @14,0 01S0919 01321000 STH @14,OCBUFGOT(,ROPCE) 01S0919 01322000 * RFY 01S0920 01323000 * IEDQOPCE BASED(ROPCE); /* RESET BASE AS REDRIVE OPCE */ 01324000 * END; 01S0921 01325000 * 01S0921 01326000 @DE00876 CLC OCBUFGOT(2,ROPCE),@CH00066 01S0921 01327000 BNL @DL00876 01S0921 01328000 * /*************************************************************/ 01329000 * /* */ 01330000 * /* POST OPCE'S TO AVTOPCOB */ 01331000 * /* */ 01332000 * /*************************************************************/ 01333000 * 01S0922 01334000 * OPCAQREQ=CHAINFLG; /* FINISH BUILDING PARM. LIST BY 01335000 * SETTING FLAG FOR CHAIN POST */ 01336000 MVI OPCAQREQ(ROPCAVT),X'B4' 01S0922 01337000 * RPARM=ADDR(OPCAQCTL); /* SET REG 1 TO POINT TO PARM. 01338000 * LIST */ 01339000 LA RPARM,OPCAQCTL(,ROPCAVT) 01S0923 01340000 * SVC(102); /* POST IT */ 01341000 SVC 102 01S0924 01342000 * END; /* END OF REDRIVE PROCESSING */ 01343000 * ELSE 01S0926 01344000 * ; /* NOT ENOUGH UNITS, DON'T DO 01345000 * REDRIVE */ 01346000 * 01S0926 01347000 @RF00873 DS 0H 01S0927 01348000 * /*****************************************************************/ 01349000 * /* */ 01350000 * /* IF STILL MORE OPCE - RU'S TO BUILD, PLACE REDRIVE ELEMENT BACK*/ 01351000 * /* ON WAIT CHAIN */ 01352000 * /* */ 01353000 * /*****************************************************************/ 01354000 * 01S0927 01355000 * IF OCBUFNED=0 THEN /* IF PROCESSING DONE */ 01356000 ICM @14,3,OCBUFNED(ROPCE) 01S0927 01357000 BNZ @RF00927 01S0927 01358000 * DO; 01S0928 01359000 * RPARM=ROPCE; /* FREE REDRIVE .... */ 01360000 LR RPARM,ROPCE 01S0929 01361000 * CALL FREEBUFF; /* .... OPCE */ 01362000 L @15,OPCFREBF(,ROPCAVT) 01S0930 01363000 BALR @14,@15 01S0930 01364000 * RZERO=1; /* DECREMENT OPCADGOT AND .... */ 01365000 LA RZERO,1 01S0931 01366000 * CALL DECRCT; /* .... INITIATE REDRIVE 01S0932 01367000 * PROCESSING FOR ANOTHER REDRIVE 01368000 * OPCE */ 01369000 L @15,OPCDECR(,ROPCAVT) 01S0932 01370000 BALR @14,@15 01S0932 01371000 * END; 01S0933 01372000 * ELSE /* PROCESSING NOT FINISHED */ 01373000 * DO; 01S0934 01374000 B @RC00927 01S0934 01375000 @RF00927 DS 0H 01S0935 01376000 * OCWTG=THISMOD; /* SET TO RETURN */ 01377000 MVC OCWTG(2,ROPCE),THISMOD 01S0935 01378000 * OCLINK=OPCBUFWT; /* PLACE REDRIVE OPCE .... */ 01379000 MVC OCLINK(4,ROPCE),OPCBUFWT(ROPCAVT) 01S0936 01380000 * OPCBUFWT=ROPCE; /* .... BACK ON WAIT CHAIN */ 01381000 ST ROPCE,OPCBUFWT(,ROPCAVT) 01S0937 01382000 * END; 01S0938 01383000 * 01S0938 01384000 * /*****************************************************************/ 01385000 * /* */ 01386000 * /* SET TO XCTL TO THE CONTROL MOD. - IGC0010D */ 01387000 * /* */ 01388000 * /*****************************************************************/ 01389000 * 01S0939 01390000 * OPCMODID=CNTLMOD; 01S0939 01391000 @RC00927 MVC OPCMODID(2,ROPCAVT),CNTLMOD 01S0939 01392000 * END REDRIVE; 01S0940 01393000 @EL00002 DS 0H 01S0940 01394000 @EF00002 DS 0H 01S0940 01395000 @ER00002 L @14,@SA00002 01S0940 01396000 BR @14 01S0940 01397000 * END IGCFQ10D 01S0941 01398000 * 01S0941 01399000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01400000 */*%INCLUDE SYSLIB (TAVTD ) */ 01401000 */*%INCLUDE SYSLIB (TBDUD ) */ 01402000 */*%INCLUDE SYSLIB (TCD0D ) */ 01403000 */*%INCLUDE SYSLIB (TDSID ) */ 01404000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01405000 */*%INCLUDE SYSLIB (TOPCED ) */ 01406000 */*%INCLUDE SYSLIB (TOPRED ) */ 01407000 */*%INCLUDE SYSLIB (TPLMVD ) */ 01408000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01409000 */*%INCLUDE SYSLIB (TPRUD ) */ 01410000 */*%INCLUDE SYSLIB (TRHD ) */ 01411000 */*%INCLUDE SYSLIB (TRVTD ) */ 01412000 */*%INCLUDE SYSLIB (TSATD ) */ 01413000 */*%INCLUDE SYSLIB (TTHD ) */ 01414000 */*%INCLUDE SYSLIB (TTRMD ) */ 01415000 */*%INCLUDE SYSUT5 (RSPPROC ) */ 01416000 */*%INCLUDE SYSUT5 (CPYDSIR ) */ 01417000 */*%INCLUDE SYSUT5 (GETDIAL ) */ 01418000 */*%INCLUDE SYSUT5 (BLDREPL ) */ 01419000 */*%INCLUDE SYSUT5 (CHKSTEP ) */ 01420000 */*%INCLUDE SYSUT5 (REFORMAT) */ 01421000 */*%INCLUDE SYSUT5 (CPYDSICK) */ 01422000 */*%INCLUDE SYSUT5 (GETBUFUT) */ 01423000 */*%INCLUDE SYSUT5 (BLDOPCE ) */ 01424000 * 01S0941 01425000 * ; 01S0941 01426000 @DATA DS 0H 01427000 @CH00061 DC H'1' 01428000 @CH00066 DC H'2' 01429000 @CH00256 DC H'4' 01430000 @CH00080 DC H'6' 01431000 @CH00045 DC H'8' 01432000 @CH00245 DC H'12' 01433000 @CH00077 DC H'24' 01434000 @CH02076 DC XL2'4000' 01435000 @SB02300 MVZ DIGITS+1(0,@14),DIGITS(@14) 01436000 @SC02302 CLC TTEDIALD(0,DEVDPADR),DIGITS(@14) 01437000 @SM02306 MVC TTEDIALR(0,@14),TTEDIAL(DEVDPADR) 01438000 @DATD DSECT 01439000 DS 0F 01440000 @SA00002 DS 1F 01441000 IGCFQ10D CSECT 01442000 DS 0F 01443000 @CF01781 DC XL4'08000002' 01444000 @DATD DSECT 01445000 DS 0D 01446000 ENTRYPTR DS A 01447000 DATASAVE DS A 01448000 UNITSAVE DS A 01449000 PTRSAVSV DS A 01450000 UNITSV DS A 01451000 UNITSGET DS H 01452000 HALFUNIT DS H 01453000 DIALSP DS CL35 01454000 DS CL1 01455000 PARMLSP DS CL24 01456000 FLAGS DS BL1 01457000 ORG FLAGS 01458000 FREUTFLG DS BL1 01459000 BLRPLFLG EQU FLAGS+0 01460000 FDRVTFLG EQU FLAGS+0 01461000 BUILTFLG EQU FLAGS+0 01462000 ORG FLAGS+1 01463000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01464000 @ENDDATD EQU * 01465000 IGCFQ10D CSECT 01466000 DS 0F 01467000 @SIZDATD DC AL1(0) 01468000 DC AL3(@ENDDATD-@DATD) 01469000 DS 0D 01470000 @CB01781 DC X'08000002' 01471000 @CB01815 DC X'0B8000' 01472000 CNTLMOD DC CL2'00' 01473000 RPNCPMOD DC CL2'FJ' 01474000 RUDSPMOD DC CL2'02' 01475000 THISMOD DC CL2'FQ' 01476000 DS CL1 01477000 ADPATCH DC XL100'0' 01478000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01479000 @01 EQU 01 01480000 @02 EQU 02 01481000 @03 EQU 03 01482000 @04 EQU 04 01483000 @05 EQU 05 01484000 @06 EQU 06 01485000 @07 EQU 07 01486000 @08 EQU 08 01487000 @09 EQU 09 01488000 @10 EQU 10 01489000 @11 EQU 11 01490000 @12 EQU 12 01491000 @13 EQU 13 01492000 @14 EQU 14 01493000 @15 EQU 15 01494000 TRMTBLSV EQU @06 01495000 UNITPTR EQU @06 01496000 ORGNOPCE EQU @11 01497000 DEVDPADR EQU @09 01498000 IEDQAPTR EQU @04 01499000 ROPCAVT EQU @02 01500000 ROPCE EQU @03 01501000 IEDPLMVP EQU @10 01502000 IEDQTPTR EQU @08 01503000 RZERO EQU @00 01504000 RPARM EQU @01 01505000 RAVT EQU @04 01506000 RTRM EQU @08 01507000 RWRKAREA EQU @10 01508000 RSAVE EQU @13 01509000 RRET EQU @14 01510000 RBRNCH EQU @15 01511000 RTNCODE EQU @15 01512000 RCL14SAV EQU @11 01513000 IEDQAVTD EQU 0 01514000 AVTSAVEX EQU IEDQAVTD+288 01515000 AVTREADD EQU IEDQAVTD+380 01516000 AVTBUFSW EQU IEDQAVTD+384 01517000 @NM00004 EQU IEDQAVTD+388 01518000 AVTCKFLG EQU @NM00004 01519000 AVTBASE EQU IEDQAVTD+412 01520000 AVTPKF EQU AVTBASE 01521000 AVTRNMPT EQU IEDQAVTD+424 01522000 AVTNOLBF EQU IEDQAVTD+454 01523000 AVTHG02 EQU IEDQAVTD+528 01524000 AVTDISP EQU IEDQAVTD+552 01525000 AVTHD EQU IEDQAVTD+556 01526000 AVTSCOPT EQU AVTHD 01527000 AVTSAVTP EQU IEDQAVTD+612 01528000 AVTSAVTF EQU AVTSAVTP 01529000 AVTCKPEL EQU IEDQAVTD+652 01530000 AVTCKRMV EQU AVTCKPEL 01531000 AVTCKELF EQU IEDQAVTD+680 01532000 AVTCKBYT EQU IEDQAVTD+691 01533000 AVTHG01 EQU IEDQAVTD+692 01534000 AVTCKLNK EQU IEDQAVTD+696 01535000 AVTCRELE EQU IEDQAVTD+708 01536000 AVTCCELE EQU AVTCRELE 01537000 AVTCLRHI EQU IEDQAVTD+716 01538000 AVTADBUF EQU IEDQAVTD+720 01539000 AVTSYSER EQU IEDQAVTD+728 01540000 AVTBFRFG EQU IEDQAVTD+784 01541000 AVTCKPQB EQU IEDQAVTD+804 01542000 AVTCKPTB EQU AVTCKPQB 01543000 AVTCKPEC EQU AVTCKPQB+4 01544000 AVTCKPCC EQU AVTCKPEC 01545000 AVTOPCQB EQU IEDQAVTD+816 01546000 AVTOPCOB EQU AVTOPCQB 01547000 AVTOPCEC EQU AVTOPCQB+4 01548000 AVTOPCCC EQU AVTOPCEC 01549000 AVTOLTQB EQU IEDQAVTD+828 01550000 AVTCWFL1 EQU IEDQAVTD+924 01551000 AVTCWFL2 EQU IEDQAVTD+925 01552000 AVTSUBT EQU IEDQAVTD+948 01553000 AVTIOTR EQU IEDQAVTD+949 01554000 AVTKEYLE EQU IEDQAVTD+1032 01555000 AVTBIT1 EQU IEDQAVTD+1050 01556000 AVTBIT2 EQU IEDQAVTD+1051 01557000 AVTBIT3 EQU IEDQAVTD+1052 01558000 AVTDDFT EQU IEDQAVTD+1064 01559000 AVTBIT4 EQU IEDQAVTD+1136 01560000 @NM00083 EQU IEDQAVTD+1232 01561000 IEDNSVTD EQU 0 01562000 SAVTDIAG EQU IEDNSVTD 01563000 SAVTDIAF EQU SAVTDIAG 01564000 SAVTSAT EQU IEDNSVTD+80 01565000 SAVTLUSQ EQU IEDNSVTD+88 01566000 SAVTMVBF EQU IEDNSVTD+160 01567000 SAVTSCLU EQU IEDNSVTD+168 01568000 SAVTTCPU EQU IEDNSVTD+238 01569000 SAVTZELM EQU IEDNSVTD+270 01570000 SAVTRDRV EQU IEDNSVTD+284 01571000 SAVTCKQB EQU IEDNSVTD+300 01572000 SAVTCKTB EQU SAVTCKQB 01573000 SAVTCKEC EQU SAVTCKQB+4 01574000 SAVTCKCC EQU SAVTCKEC 01575000 SAVTNETF EQU IEDNSVTD+324 01576000 SAVTCDRV EQU IEDNSVTD+332 01577000 IEDBDU EQU 0 01578000 BDUCMND EQU IEDBDU 01579000 BDUMODIF EQU IEDBDU+1 01580000 BDUFNFLG EQU IEDBDU+2 01581000 BDUHEADR EQU BDUFNFLG 01582000 BDUBDUFG EQU IEDBDU+3 01583000 BDURSP EQU IEDBDU+4 01584000 BDUSYRSP EQU BDURSP 01585000 BDUEXRSP EQU BDURSP+1 01586000 BDUEND EQU IEDBDU+6 01587000 IEDDSI1 EQU 0 01588000 DSITOTNM EQU IEDDSI1 01589000 DSIPOLL EQU IEDDSI1+3 01590000 DSIPOLNM EQU DSIPOLL 01591000 IEDDSI2 EQU 0 01592000 DSIADRNM EQU IEDDSI2 01593000 IEDDSI3 EQU 0 01594000 DSINPTID EQU IEDDSI3 01595000 IEDDSI4 EQU 0 01596000 DSIDIAL EQU IEDDSI4 01597000 DSIDLCNT EQU DSIDIAL 01598000 IEDQOPCD EQU 0 01599000 OPCAVTPT EQU IEDQOPCD+8 01600000 OPCCOPCE EQU IEDQOPCD+12 01601000 OPCTRACE EQU IEDQOPCD+32 01602000 OPCPGCK EQU IEDQOPCD+40 01603000 OPCSAVE EQU IEDQOPCD+56 01604000 OPCWORK EQU IEDQOPCD+140 01605000 OPCAQCTL EQU IEDQOPCD+180 01606000 OPCXCTL EQU IEDQOPCD+204 01607000 OPCLDNME EQU IEDQOPCD+212 01608000 OPCMODID EQU OPCLDNME+3 01609000 OPCGETBF EQU IEDQOPCD+276 01610000 OPCFREBF EQU IEDQOPCD+280 01611000 OPCSPEC EQU IEDQOPCD+300 01612000 OPCADGOT EQU IEDQOPCD+318 01613000 OPCBUFWT EQU IEDQOPCD+348 01614000 OPCDECR EQU IEDQOPCD+352 01615000 OPCPWCOB EQU IEDQOPCD+368 01616000 OPCPWQCB EQU OPCPWCOB 01617000 OPCPWECB EQU OPCPWCOB+4 01618000 OPCSESS EQU IEDQOPCD+384 01619000 OPCSFLAG EQU OPCSESS 01620000 OPCSENSE EQU OPCSESS+8 01621000 OPCSNSSY EQU OPCSENSE 01622000 OPCSNSUS EQU OPCSENSE+2 01623000 OPCPCID EQU IEDQOPCD+456 01624000 OPCUNIQP EQU OPCPCID+2 01625000 OPCSESSF EQU IEDQOPCD+464 01626000 IEDQOPCE EQU 0 01627000 OCLINK EQU IEDQOPCE 01628000 OCELEM EQU IEDQOPCE+4 01629000 OCELMPRI EQU OCELEM 01630000 OCUNIT EQU IEDQOPCE+8 01631000 OCRUDEST EQU OCUNIT 01632000 OCCKPKEY EQU OCRUDEST 01633000 OCSCAN EQU OCCKPKEY 01634000 @NM00130 EQU OCRUDEST+1 01635000 OCUNITBF EQU @NM00130+2 01636000 OCOPTCDE EQU IEDQOPCE+12 01637000 OCPRIFLG EQU OCOPTCDE 01638000 OCSWITCH EQU IEDQOPCE+13 01639000 OCFLAG EQU IEDQOPCE+14 01640000 OCRLN EQU IEDQOPCE+15 01641000 OCCIB EQU IEDQOPCE+16 01642000 OCMSTSAV EQU OCCIB 01643000 OCDEST EQU OCMSTSAV 01644000 OCTRMTBL EQU IEDQOPCE+20 01645000 OCLINENO EQU IEDQOPCE+22 01646000 OCTIOT EQU OCLINENO 01647000 OCWTGB EQU OCTIOT 01648000 OCTRUNIT EQU IEDQOPCE+24 01649000 OCRSID EQU OCTRUNIT 01650000 OCALSTAT EQU OCRSID 01651000 OCFNAALL EQU OCALSTAT 01652000 OCREDRVE EQU OCALSTAT 01653000 OCACTREQ EQU OCALSTAT 01654000 OCFLAG1 EQU OCRSID+1 01655000 OCPARM EQU IEDQOPCE+28 01656000 OCWTG EQU IEDQOPCE+30 01657000 OCBACKUP EQU IEDQOPCE+32 01658000 OCBUFNED EQU OCBACKUP 01659000 OCCOUNT1 EQU OCBUFNED 01660000 OCBUFGOT EQU OCBACKUP+2 01661000 OCCOUNT2 EQU OCBUFGOT 01662000 OCMODNME EQU IEDQOPCE+40 01663000 OCIPLWA EQU OCMODNME 01664000 OCPTRSAV EQU OCMODNME+4 01665000 OCCKDATA EQU IEDQOPCE+48 01666000 OCRSTGTM EQU OCCKDATA 01667000 OC379RRT EQU OCRSTGTM 01668000 OCNCP EQU OCRSTGTM+2 01669000 OCOID EQU IEDQOPCE+56 01670000 IEDQOPCN EQU 0 01671000 OCLDNME EQU IEDQOPCN 01672000 OCLINTTE EQU OCLDNME 01673000 OCRESPCT EQU OCLINTTE 01674000 OCREQFLG EQU OCLINTTE+2 01675000 OCPREFLG EQU OCLINTTE+3 01676000 IEDOPRED EQU 0 01677000 OPRESAVE EQU IEDOPRED+8 01678000 OPRETIC EQU OPRESAVE 01679000 OPRVTCHK EQU OPRETIC+3 01680000 OPREFLG3 EQU IEDOPRED+14 01681000 IEDPLMV EQU 0 01682000 PLMVTU EQU IEDPLMV 01683000 PLMVTD EQU IEDPLMV+4 01684000 PLMVSU EQU IEDPLMV+8 01685000 PLMVSD EQU IEDPLMV+12 01686000 PLMVLNTH EQU IEDPLMV+16 01687000 PLMVFLGS EQU IEDPLMV+18 01688000 PLMVFLG1 EQU PLMVFLGS 01689000 PLMVSCTG EQU PLMVFLG1 01690000 PLMVTCTG EQU PLMVFLG1 01691000 IEDPRUQD EQU 0 01692000 PRUTTCIN EQU IEDPRUQD 01693000 PRUDATCT EQU IEDPRUQD+2 01694000 PRUTIC EQU IEDPRUQD+8 01695000 PRUNUNIT EQU PRUTIC+1 01696000 PRUVTCHK EQU PRUNUNIT+2 01697000 PRUDATA EQU IEDPRUQD+12 01698000 IEDPRUND EQU 0 01699000 PRURHTH EQU IEDPRUND 01700000 PRURH EQU PRURHTH 01701000 PRURHFG0 EQU PRURH 01702000 PRURHFG1 EQU PRURH+1 01703000 PRURHFG2 EQU PRURH+2 01704000 PRUTH EQU PRURHTH+3 01705000 PRUFIDN EQU PRUTH 01706000 IEDRH EQU 0 01707000 TRHBYTE0 EQU IEDRH 01708000 TRHBYTE1 EQU IEDRH+1 01709000 TRHBYTE2 EQU IEDRH+2 01710000 IEDRVTD EQU 0 01711000 RVTPREF EQU IEDRVTD 01712000 RVTLUPDI EQU RVTPREF+4 01713000 RVTNUM EQU RVTPREF+10 01714000 RVTINDEX EQU IEDRVTD+12 01715000 IEDSATD EQU 0 01716000 SATRNRVT EQU IEDSATD+4 01717000 IEDTH EQU 0 01718000 TTHBYTE0 EQU IEDTH 01719000 TTHSNF EQU IEDTH+6 01720000 TTHTAG EQU TTHSNF 01721000 TTHTAG1 EQU TTHTAG 01722000 IEDQTRM EQU 0 01723000 TRMSTATE EQU IEDQTRM 01724000 TRMLOG EQU TRMSTATE 01725000 TRMDESTQ EQU IEDQTRM+1 01726000 TRMRSTRT EQU TRMDESTQ+2 01727000 TRMINSEQ EQU IEDQTRM+4 01728000 TLISTCNT EQU TRMINSEQ 01729000 TRMSESCT EQU TLISTCNT 01730000 TRMOUTSQ EQU IEDQTRM+6 01731000 TLISTEN EQU TRMOUTSQ 01732000 TRMDSORG EQU TLISTEN 01733000 TRMPLIM EQU TLISTEN+1 01734000 TRMALTD EQU IEDQTRM+8 01735000 TRMPRILK EQU TRMALTD 01736000 TRMDEVFL EQU IEDQTRM+10 01737000 TRMDDIG EQU TRMDEVFL 01738000 TRMADDC EQU TRMDEVFL 01739000 TRMNCPI EQU TRMDEVFL+1 01740000 TRMSTAT EQU IEDQTRM+12 01741000 TRMAPB EQU TRMSTAT 01742000 TRMSIO EQU TRMAPB 01743000 TRMOWNER EQU TRMSIO 01744000 TRMSENSE EQU TRMAPB+3 01745000 IEDNTRM EQU 0 01746000 TRMDIALQ EQU IEDNTRM+1 01747000 TRMBYTE7 EQU TRMDIALQ+2 01748000 TRMATNDX EQU IEDNTRM+4 01749000 TRMINDEX EQU IEDNTRM+6 01750000 TRMCOHTG EQU IEDNTRM+8 01751000 TRMBYTE6 EQU TRMCOHTG 01752000 TRMCDF0 EQU TRMBYTE6 01753000 TRMBYTE5 EQU TRMCOHTG+1 01754000 TRMBYTE4 EQU IEDNTRM+10 01755000 TRMBYTE3 EQU IEDNTRM+11 01756000 TRMBYTE2 EQU IEDNTRM+12 01757000 TRMINPG EQU TRMBYTE2 01758000 TRMBYTE1 EQU IEDNTRM+13 01759000 TRMSCPRQ EQU TRMBYTE1 01760000 TRMAUTOC EQU TRMBYTE1 01761000 TRMBYTE0 EQU IEDNTRM+16 01762000 TRMNOWCD EQU TRMBYTE0 01763000 TRMSIBPT EQU IEDNTRM+17 01764000 TRMLTRAC EQU TRMSIBPT 01765000 TRMLBUFR EQU TRMLTRAC 01766000 TRMRLMCT EQU IEDNTRM+20 01767000 TRMLGBST EQU TRMRLMCT 01768000 TRMTYPE EQU IEDNTRM+21 01769000 TTEDIAL EQU 0 01770000 TTEDIALN EQU TTEDIAL 01771000 TTEDIALD EQU TTEDIAL+1 01772000 DIALDATA EQU 0 01773000 COUNT EQU DIALDATA 01774000 MAXIMUM EQU DIALDATA+1 01775000 TTEDIALR EQU DIALDATA+2 01776000 ACTUAL EQU TTEDIALR 01777000 DIGITS EQU TTEDIALR+1 01778000 TICFLD EQU 0 01779000 TIC EQU TICFLD+3 01780000 ALLOCBUF EQU 0 01781000 FREEBUFF EQU 0 01782000 IEDQTNT EQU 0 01783000 IEDQTL EQU 0 01784000 DECRCT EQU 0 01785000 IEDMVBFR EQU 0 01786000 PROGRTNE EQU 0 01787000 RDSI1 EQU PLMVSD 01788000 RDSI2 EQU PLMVSD 01789000 RDSI3 EQU PLMVSD 01790000 RDSI4 EQU PLMVSD 01791000 OPCAQWD EQU OPCAQCTL 01792000 OPCAQWD1 EQU OPCAQWD 01793000 OPCAQREQ EQU OPCAQWD1 01794000 OPCAQWD2 EQU OPCAQWD+4 01795000 OPCAQWD3 EQU OPCAQWD+8 01796000 @NM00137 EQU OCCKDATA 01797000 @NM00139 EQU OCCIB 01798000 @NM00140 EQU @NM00139+1 01799000 OCCKPKY1 EQU OCCKPKEY 01800000 OCCKPTYP EQU OCCKPKY1 01801000 OCICACTN EQU OCMODNME 01802000 OCICDADR EQU OCICACTN 01803000 OCICSW EQU OCICDADR+3 01804000 @NM00145 EQU OCBACKUP 01805000 @NM00146 EQU OCCKDATA 01806000 OCMSGFLG EQU OCPREFLG 01807000 OCBKUP1 EQU OCMODNME 01808000 @NM00150 EQU OCMODNME 01809000 OCBKUP2 EQU OCCKDATA 01810000 OCBKUP3 EQU OCLDNME 01811000 OCRESPTR EQU OCBKUP3+4 01812000 OCDIALLN EQU OCRESPTR 01813000 OCIPLDMP EQU OCLDNME+4 01814000 IEDPRUQP EQU OCUNIT 01815000 ENTRYRVT EQU OCMODNME 01816000 IEDQRVTP EQU ENTRYRVT 01817000 IEDQSATP EQU ENTRYPTR 01818000 @NM00188 EQU TRMSTATE 01819000 TRMLUFD0 EQU TRMBYTE7 01820000 TRMSNAST EQU TRMBYTE6 01821000 TRMCDFD0 EQU TRMBYTE5 01822000 TRMPRE1 EQU TRMBYTE4 01823000 TRMNCP1 EQU TRMBYTE4 01824000 TRMLU1 EQU TRMBYTE4 01825000 TRMLINK1 EQU TRMBYTE4 01826000 TRMDCONS EQU TRMLINK1 01827000 TRMPRE EQU TRMBYTE3 01828000 TRMNCP EQU TRMBYTE3 01829000 TRMIPLDM EQU TRMNCP 01830000 TRMPU EQU TRMBYTE3 01831000 TRMLU EQU TRMBYTE3 01832000 TRMCDMGR EQU TRMBYTE3 01833000 TRMLINK EQU TRMBYTE3 01834000 ENTRYCT EQU UNITSGET 01835000 BDUTEXT EQU BDUEND 01836000 OCLINRRT EQU OCTRUNIT 01837000 OCPCID EQU OCBACKUP 01838000 OCRSNCDE EQU OCALSTAT 01839000 OCSENSE EQU OCBACKUP 01840000 TRMOPT EQU IEDQTRM+20 01841000 TRMPOOLP EQU TRMINSEQ 01842000 TRMSRPTR EQU TRMPLIM 01843000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01844000 TRMLDISC EQU TRMLINK 01845000 @NM00207 EQU TRMLINK 01846000 TRMLALOC EQU TRMLINK 01847000 TRMLSTAT EQU TRMLINK 01848000 TRMLINT EQU TRMLINK 01849000 TRMEPMOD EQU TRMLINK 01850000 TRMCDLOG EQU TRMCDMGR 01851000 @NM00206 EQU TRMCDMGR 01852000 @NM00205 EQU TRMCDMGR 01853000 @NM00204 EQU TRMCDMGR 01854000 @NM00203 EQU TRMCDMGR 01855000 @NM00202 EQU TRMCDMGR 01856000 TRMBKDUP EQU TRMCDMGR 01857000 TRMLULOG EQU TRMLU 01858000 @NM00201 EQU TRMLU 01859000 @NM00200 EQU TRMLU 01860000 @NM00199 EQU TRMLU 01861000 TRMTDIFF EQU TRMLU 01862000 @NM00198 EQU TRMLU 01863000 @NM00197 EQU TRMLU 01864000 @NM00196 EQU TRMLU 01865000 TRMPCONT EQU TRMPU 01866000 TRMPDOCQ EQU TRMPU 01867000 TRMPULOC EQU TRMPU 01868000 TRMPDNAS EQU TRMPU 01869000 TRMPALOC EQU TRMPU 01870000 TRMNCONT EQU TRMNCP 01871000 TRMQUCKN EQU TRMNCP 01872000 TRMSLOWN EQU TRMNCP 01873000 TRMSYGEN EQU TRMNCP 01874000 TRMNCPCL EQU TRMNCP 01875000 TRMCONN EQU TRMIPLDM 01876000 TRMINOUT EQU TRMPRE 01877000 TRMRDOUT EQU TRMPRE 01878000 TRMNLOUT EQU TRMPRE 01879000 TRMWROUT EQU TRMPRE 01880000 TRMASNXI EQU TRMPRE 01881000 TRMSTMM EQU TRMPRE 01882000 TRMCMODE EQU TRMPRE 01883000 TRMSTPND EQU TRMPRE 01884000 TRMNCPLK EQU TRMLINK1 01885000 @NM00195 EQU TRMLINK1 01886000 TRMDCONN EQU TRMDCONS 01887000 TRMDCOP EQU TRMDCONS 01888000 TRMPMARY EQU TRMLU1 01889000 TRMLUNAS EQU TRMLU1 01890000 @NM00194 EQU TRMLU1 01891000 TRMLSCVP EQU TRMLU1 01892000 @NM00193 EQU TRMLU1 01893000 TRMCPOPT EQU TRMLU1 01894000 TRMCPREQ EQU TRMLU1 01895000 @NM00192 EQU TRMNCP1 01896000 TRMANS EQU TRMNCP1 01897000 TRMLINOP EQU TRMNCP1 01898000 TRMINOP EQU TRMNCP1 01899000 TRMLYNCH EQU TRMPRE1 01900000 TRMSPOUT EQU TRMPRE1 01901000 TRMERLCK EQU TRMPRE1 01902000 TRMQNPL EQU TRMPRE1 01903000 TRMSPACT EQU TRMPRE1 01904000 TRMOCNI EQU TRMPRE1 01905000 TRMSESSN EQU TRMPRE1 01906000 TRMCONT EQU TRMPRE1 01907000 TRMINERR EQU TRMCDFD0 01908000 TRMLUTM EQU TRMCDFD0 01909000 TRMLUIT EQU TRMCDFD0 01910000 TRMLUREQ EQU TRMCDFD0 01911000 TRMCDPRE EQU TRMCDFD0 01912000 TRMWASCD EQU TRMCDFD0 01913000 TRMSRPFG EQU TRMCDFD0 01914000 TRMSESRQ EQU TRMCDFD0 01915000 @NM00191 EQU TRMSNAST 01916000 TRMDRSRC EQU TRMSNAST 01917000 @NM00190 EQU TRMLUFD0 01918000 TRMNOINP EQU TRMLUFD0 01919000 TRMASSOC EQU TRMLUFD0 01920000 TRMAUTO EQU TRMLUFD0 01921000 @NM00189 EQU @NM00188 01922000 TRMENTRY EQU @NM00188 01923000 @NM00153 EQU OCIPLDMP 01924000 OCACTRQ EQU OCIPLDMP 01925000 OCDACRQ EQU OCIPLDMP 01926000 OCIPLRQ EQU OCIPLDMP 01927000 OCDMPRQ EQU OCIPLDMP 01928000 @NM00152 EQU OCRESPTR+2 01929000 OCOHNATA EQU OCDIALLN 01930000 OCRRTPTR EQU OCBKUP3 01931000 @NM00151 EQU OCBKUP2+4 01932000 OCNHITTC EQU OCBKUP2+2 01933000 OCLINTTC EQU OCBKUP2 01934000 OCCSIB EQU @NM00150 01935000 @NM00149 EQU OCBKUP1+6 01936000 OCTARTTC EQU OCBKUP1+4 01937000 OCSRTTC EQU OCBKUP1+2 01938000 OCRSTTC EQU OCBKUP1 01939000 @NM00148 EQU OCMSGFLG 01940000 OCRRT EQU OCMSGFLG 01941000 OCNAME EQU OCMSGFLG 01942000 OCLU1TTE EQU @NM00146+5 01943000 OCSFLAG EQU @NM00146+4 01944000 OCLU2TTI EQU @NM00146+2 01945000 OCLU1TTI EQU @NM00146 01946000 OCDISTLN EQU @NM00145+6 01947000 OCDISTAD EQU @NM00145+2 01948000 OCDISTNA EQU @NM00145 01949000 OCICINAC EQU OCICSW 01950000 @NM00144 EQU OCICSW 01951000 OCICATST EQU OCICDADR+1 01952000 OCICTYPE EQU OCICDADR 01953000 @NM00143 EQU OCCKPKY1 01954000 OCCKPENV EQU OCCKPKY1 01955000 OCCKPRST EQU OCCKPTYP 01956000 OCCKPNCP EQU OCCKPTYP 01957000 OCCKPINC EQU OCCKPTYP 01958000 @NM00142 EQU @NM00139+2 01959000 @NM00141 EQU @NM00140 01960000 OCTSTAT EQU @NM00140 01961000 OCREASON EQU @NM00139 01962000 @NM00138 EQU @NM00137+4 01963000 OCOIDEP EQU @NM00137 01964000 OPCAQLST EQU OPCAQWD3+1 01965000 OPCAQRQ3 EQU OPCAQWD3 01966000 OPCAQSEC EQU OPCAQWD2+1 01967000 OPCAQRQ2 EQU OPCAQWD2 01968000 OPCAQFST EQU OPCAQWD1+1 01969000 @NM00208 EQU TICFLD 01970000 TRMSUBST EQU IEDNTRM+22 01971000 TRMPRIME EQU TRMLGBST 01972000 TRMOWNR EQU TRMLBUFR+1 01973000 TRMGPCNT EQU TRMLBUFR 01974000 TRMBUFRD EQU TRMBYTE0 01975000 TRMSNA EQU TRMBYTE0 01976000 TRMGP EQU TRMBYTE0 01977000 TRMDIAL EQU TRMBYTE0 01978000 TRMACDC EQU TRMNOWCD 01979000 TRMOUTPT EQU TRMBYTE0 01980000 TRMINPUT EQU TRMBYTE0 01981000 TRMUDEF EQU TRMBYTE0 01982000 TRMCOHRT EQU IEDNTRM+14 01983000 TRMSTOTE EQU TRMBYTE1 01984000 TRMCKPRN EQU TRMBYTE1 01985000 TRMTSATN EQU TRMBYTE1 01986000 TRMTRACE EQU TRMBYTE1 01987000 TRMSWBCK EQU TRMBYTE1 01988000 TRMINPTP EQU TRMBYTE1 01989000 TRMWTNEG EQU TRMSCPRQ 01990000 TRMWRBRK EQU TRMBYTE2 01991000 TRMNOSND EQU TRMBYTE2 01992000 TRMPREP EQU TRMBYTE2 01993000 TRMGPACT EQU TRMBYTE2 01994000 TRMANDL EQU TRMBYTE2 01995000 TRMCLOSN EQU TRMINPG 01996000 TRMREMB EQU TRMBYTE2 01997000 TRMRSACT EQU TRMBYTE2 01998000 TRMCINOP EQU TRMCDF0 01999000 TRMRSTPD EQU TRMCDF0 02000000 TRMCLNXI EQU TRMCDF0 02001000 TRMDVAS0 EQU TRMCDF0 02002000 TRMPURGE EQU TRMCDF0 02003000 TRMCDST EQU TRMINDEX 02004000 TRMASNDX EQU TRMATNDX 02005000 TRMBYTE8 EQU TRMDIALQ+1 02006000 @NM00187 EQU TRMDIALQ 02007000 @NM00186 EQU IEDNTRM 02008000 TRMOPTBL EQU IEDQTRM+18 02009000 TRMOPNO EQU IEDQTRM+17 02010000 TRMCHCIN EQU IEDQTRM+16 02011000 TRMLOCAD EQU TRMSENSE 02012000 TRMTEMPR EQU TRMAPB+2 02013000 TRMNADDR EQU TRMOWNER 02014000 @NM00185 EQU TRMDEVFL+1 02015000 TRMTPIN EQU TRMDEVFL+1 02016000 @NM00184 EQU TRMNCPI 02017000 TRMRNTRM EQU TRMDEVFL+1 02018000 @NM00183 EQU TRMDEVFL+1 02019000 TRMLMD EQU TRMDEVFL+1 02020000 TRMCONC EQU TRMDEVFL+1 02021000 TRMTSOB EQU TRMDEVFL 02022000 TRMBFDY EQU TRMDEVFL 02023000 TRMTBLK EQU TRMDEVFL 02024000 TRMSBLK EQU TRMDEVFL 02025000 TRMBLKS EQU TRMDEVFL 02026000 TRMSCV EQU TRMADDC 02027000 TRMBUFS EQU TRMDEVFL 02028000 TRMSTEAL EQU TRMPRILK 02029000 TRMLGB EQU TRMDSORG 02030000 TRMUTERM EQU TRMSESCT 02031000 TRMVERIF EQU TRMRSTRT 02032000 @NM00182 EQU TRMRSTRT 02033000 @NM00181 EQU TRMDESTQ 02034000 TRMSCNYN EQU TRMSTATE 02035000 TRMOPTFN EQU TRMSTATE 02036000 TRMHELDN EQU TRMSTATE 02037000 TRMACPTN EQU TRMSTATE 02038000 TRMPREF EQU TRMSTATE 02039000 TRMPROC EQU TRMLOG 02040000 TRMLIST EQU TRMLOG 02041000 TRMLINE EQU TRMSTATE 02042000 TTHDCF EQU IEDTH+8 02043000 TTHTAG2 EQU TTHTAG+1 02044000 @NM00180 EQU TTHTAG1 02045000 TTHTAGS EQU TTHTAG1 02046000 TTHOAF EQU IEDTH+4 02047000 TTHDAF EQU IEDTH+2 02048000 TTHBYTE1 EQU IEDTH+1 02049000 TTHEFI EQU TTHBYTE0 02050000 @NM00179 EQU TTHBYTE0 02051000 TTHEBIU EQU TTHBYTE0 02052000 TTHBBIU EQU TTHBYTE0 02053000 TTHFTYPE EQU TTHBYTE0 02054000 SATRNLCB EQU IEDSATD 02055000 @NM00178 EQU RVTPREF+9 02056000 @NM00177 EQU RVTPREF+8 02057000 RVTLCNA EQU RVTLUPDI 02058000 RVTGMSIZ EQU RVTPREF 02059000 @NM00176 EQU TRHBYTE2 02060000 TRHPDI EQU TRHBYTE2 02061000 TRHEDI EQU TRHBYTE2 02062000 TRHCSI EQU TRHBYTE2 02063000 @NM00175 EQU TRHBYTE2 02064000 TRHCDI EQU TRHBYTE2 02065000 TRHEB EQU TRHBYTE2 02066000 TRHBB EQU TRHBYTE2 02067000 TRHPI EQU TRHBYTE1 02068000 TRHQRI EQU TRHBYTE1 02069000 @NM00174 EQU TRHBYTE1 02070000 @NM00173 EQU TRHBYTE1 02071000 TRHER EQU TRHBYTE1 02072000 TRHDR2 EQU TRHBYTE1 02073000 @NM00172 EQU TRHBYTE1 02074000 TRHDR1 EQU TRHBYTE1 02075000 TRHEC EQU TRHBYTE0 02076000 TRHBC EQU TRHBYTE0 02077000 TRHSDI EQU TRHBYTE0 02078000 TRHFI EQU TRHBYTE0 02079000 @NM00171 EQU TRHBYTE0 02080000 TRHRUCAT EQU TRHBYTE0 02081000 TRHTYPE EQU TRHBYTE0 02082000 @NM00170 EQU IEDPRUND+6 02083000 PRUTAG EQU IEDPRUND+4 02084000 PRUTHEFI EQU PRUFIDN 02085000 PRUTHUSS EQU PRUFIDN 02086000 PRUTHEIU EQU PRUFIDN 02087000 PRUTHBIU EQU PRUFIDN 02088000 PRUTHTYE EQU PRUFIDN 02089000 @NM00169 EQU PRURHFG2 02090000 PRURHCSI EQU PRURHFG2 02091000 @NM00168 EQU PRURHFG2 02092000 PRURHCDI EQU PRURHFG2 02093000 PRURHEB EQU PRURHFG2 02094000 PRURHBB EQU PRURHFG2 02095000 PRURHPI EQU PRURHFG1 02096000 @NM00167 EQU PRURHFG1 02097000 PRURHER EQU PRURHFG1 02098000 PRURHDR2 EQU PRURHFG1 02099000 @NM00166 EQU PRURHFG1 02100000 PRURHDR1 EQU PRURHFG1 02101000 PRURHEC EQU PRURHFG0 02102000 PRURHBC EQU PRURHFG0 02103000 PRURHSDI EQU PRURHFG0 02104000 PRURHFI EQU PRURHFG0 02105000 @NM00165 EQU PRURHFG0 02106000 PRURUCAT EQU PRURHFG0 02107000 PRURHTYP EQU PRURHFG0 02108000 @NM00164 EQU PRUVTCHK 02109000 PRUITSET EQU PRUVTCHK 02110000 @NM00163 EQU PRUVTCHK 02111000 @NM00162 EQU PRUNUNIT 02112000 @NM00161 EQU PRUTIC 02113000 @NM00160 EQU IEDPRUQD+4 02114000 PLMVUNCA EQU IEDPLMV+20 02115000 PLMVFLG2 EQU PLMVFLGS+1 02116000 @NM00159 EQU PLMVFLG1 02117000 PLMVTRIB EQU PLMVFLG1 02118000 PLMVSRIB EQU PLMVFLG1 02119000 PLMVTSKP EQU PLMVFLG1 02120000 PLMVSSKP EQU PLMVFLG1 02121000 PLMVUNCF EQU PLMVFLG1 02122000 @NM00158 EQU OPREFLG3 02123000 OPREATCH EQU OPREFLG3 02124000 @NM00157 EQU OPREFLG3 02125000 OPREFLG2 EQU IEDOPRED+13 02126000 OPREFLG1 EQU IEDOPRED+12 02127000 @NM00156 EQU OPRVTCHK 02128000 OPRITSET EQU OPRVTCHK 02129000 @NM00155 EQU OPRVTCHK 02130000 @NM00154 EQU OPRETIC 02131000 OPRELINK EQU IEDOPRED+5 02132000 OPREPRI EQU IEDOPRED+4 02133000 OPREQCB EQU IEDOPRED+1 02134000 OPREKEY EQU IEDOPRED 02135000 @NM00147 EQU OCLDNME+6 02136000 OC1SQID EQU OCLDNME+4 02137000 OCWAITPC EQU OCPREFLG 02138000 OCSRCCLN EQU OCPREFLG 02139000 OCREMCON EQU OCPREFLG 02140000 OCCLNUP EQU OCPREFLG 02141000 OCTOTEP EQU OCPREFLG 02142000 OCREPOST EQU OCPREFLG 02143000 OCRSPSNT EQU OCPREFLG 02144000 OCBFREQ EQU OCPREFLG 02145000 OCIDLE EQU OCREQFLG 02146000 OCFORCE EQU OCREQFLG 02147000 OCDCARD EQU OCREQFLG 02148000 OCPARTAL EQU OCREQFLG 02149000 OCADNCP EQU OCREQFLG 02150000 OCRMPORQ EQU OCREQFLG 02151000 OCCDLACT EQU OCREQFLG 02152000 OCFLUSHZ EQU OCREQFLG 02153000 @NM00136 EQU IEDQOPCE+60 02154000 OCURC EQU OCOID 02155000 OCCKPTWA EQU OCCKDATA+4 02156000 OCSRCTTC EQU OCNCP 02157000 OCCKDAT2 EQU OC379RRT+1 02158000 OCCKDAT1 EQU OC379RRT 02159000 OCECHOPT EQU OCPTRSAV 02160000 OCPUADR EQU OCIPLWA+2 02161000 OCWTGSAV EQU OCIPLWA 02162000 OCDVRDCT EQU OCBACKUP+6 02163000 @NM00135 EQU OCBACKUP+4 02164000 OCBUFRET EQU OCCOUNT2 02165000 OCBUFUSD EQU OCCOUNT1 02166000 OCRESNUM EQU OCPARM 02167000 OCSEQ EQU OCTRUNIT+2 02168000 OCTYPTRM EQU OCFLAG1 02169000 OCNONE EQU OCALSTAT 02170000 OCSOME EQU OCALSTAT 02171000 OCALLFLG EQU OCALSTAT 02172000 OCSEQIND EQU OCALSTAT 02173000 OCDACTIP EQU OCFNAALL 02174000 OCRENTRD EQU OCALSTAT 02175000 OCDIALX EQU OCWTGB 02176000 OCATNDX EQU OCMSTSAV+2 02177000 OCREQVAL EQU OCDEST+1 02178000 OCCONID EQU OCDEST 02179000 OCLOCAD EQU OCRLN 02180000 OCRESP EQU OCFLAG 02181000 OCATTACH EQU OCFLAG 02182000 OCSSCP EQU OCFLAG 02183000 OCOUTPUT EQU OCFLAG 02184000 OCLINE EQU OCFLAG 02185000 OCMPP EQU OCFLAG 02186000 OCTOTE EQU OCFLAG 02187000 OCCONSOL EQU OCFLAG 02188000 @NM00134 EQU OCSWITCH 02189000 OCQUCKN EQU OCSWITCH 02190000 @NM00133 EQU OCUNITBF 02191000 OCINVTIC EQU OCUNITBF 02192000 @NM00132 EQU OCUNITBF 02193000 @NM00131 EQU @NM00130 02194000 @NM00129 EQU OCSCAN 02195000 OCNOTUCB EQU OCSCAN 02196000 OCNONAME EQU OCSCAN 02197000 OCALLRLN EQU OCSCAN 02198000 OCDDNAME EQU OCSCAN 02199000 OCDDNRLN EQU OCSCAN 02200000 OCADDR EQU OCSCAN 02201000 OCELMPTR EQU OCELEM+1 02202000 OPCBOTTM EQU IEDQOPCD+3644 02203000 @NM00128 EQU IEDQOPCD+1948 02204000 @NM00127 EQU IEDQOPCD+1860 02205000 @NM00126 EQU IEDQOPCD+1772 02206000 @NM00125 EQU IEDQOPCD+1696 02207000 @NM00124 EQU IEDQOPCD+1620 02208000 OPCDSRWT EQU IEDQOPCD+1616 02209000 @NM00123 EQU IEDQOPCD+1532 02210000 @NM00122 EQU IEDQOPCD+1336 02211000 @NM00121 EQU IEDQOPCD+1328 02212000 @NM00120 EQU IEDQOPCD+528 02213000 OPCRSTRS EQU IEDQOPCD+524 02214000 OPCSAVES EQU IEDQOPCD+520 02215000 OPCRSPBD EQU IEDQOPCD+516 02216000 OPCNFY03 EQU IEDQOPCD+512 02217000 OPCNFY01 EQU IEDQOPCD+508 02218000 OPCURC EQU IEDQOPCD+504 02219000 OPCCINBD EQU IEDQOPCD+500 02220000 OPCCRKEY EQU IEDQOPCD+496 02221000 OPCDRSET EQU IEDQOPCD+492 02222000 OPCDRCLN EQU IEDQOPCD+488 02223000 OPCDRDEL EQU IEDQOPCD+484 02224000 OPCDRLOD EQU IEDQOPCD+480 02225000 OPCDRLOC EQU IEDQOPCD+476 02226000 OPCDRCVT EQU IEDQOPCD+472 02227000 OPCDRFST EQU IEDQOPCD+468 02228000 OPCLSABC EQU IEDQOPCD+466 02229000 @NM00119 EQU IEDQOPCD+465 02230000 @NM00118 EQU OPCSESSF 02231000 OPCUNIQV EQU OPCUNIQP+2 02232000 OPCUNIQU EQU OPCUNIQP 02233000 OPCOSSCP EQU OPCPCID 02234000 @NM00117 EQU IEDQOPCD+452 02235000 @NM00116 EQU IEDQOPCD+448 02236000 OPCSDUPU EQU IEDQOPCD+444 02237000 OPCSDULU EQU IEDQOPCD+440 02238000 OPCSDRVT EQU IEDQOPCD+436 02239000 OPCSDRET EQU IEDQOPCD+432 02240000 OPCSDHSY EQU IEDQOPCD+428 02241000 OPCSDENQ EQU IEDQOPCD+424 02242000 OPCSDDIA EQU IEDQOPCD+420 02243000 OPCSDAPU EQU IEDQOPCD+416 02244000 OPCSDALU EQU IEDQOPCD+412 02245000 OPCCSKEY EQU IEDQOPCD+408 02246000 OPCSSKEY EQU IEDQOPCD+404 02247000 OPCPRTTE EQU IEDQOPCD+400 02248000 OPCLU2TT EQU OPCSESS+14 02249000 OPCLU1TT EQU OPCSESS+12 02250000 OPCSNSU2 EQU OPCSNSUS+1 02251000 OPCSNSU1 EQU OPCSNSUS 02252000 OPCSNSMN EQU OPCSNSSY+1 02253000 OPCSNSMJ EQU OPCSNSSY 02254000 OPCCSIB EQU OPCSESS+4 02255000 OPCCTTE EQU OPCSESS+1 02256000 @NM00115 EQU OPCSFLAG 02257000 OPCISQUD EQU OPCSFLAG 02258000 OPCERRST EQU OPCSFLAG 02259000 OPCISRSP EQU OPCSFLAG 02260000 OPCISQUE EQU OPCSFLAG 02261000 OPCRAPMH EQU OPCSFLAG 02262000 OPCRAPI EQU OPCSFLAG 02263000 OPCGTSIB EQU IEDQOPCD+380 02264000 @NM00114 EQU OPCPWCOB+9 02265000 @NM00113 EQU OPCPWCOB+8 02266000 @NM00112 EQU OPCPWECB+1 02267000 OPCPWCCC EQU OPCPWECB 02268000 OPCPWCHN EQU OPCPWQCB+1 02269000 OPCPWVTO EQU OPCPWQCB 02270000 OPCWAITV EQU IEDQOPCD+364 02271000 OPCTOTCK EQU IEDQOPCD+360 02272000 OPCAPXTL EQU IEDQOPCD+356 02273000 OPCWRKSP EQU IEDQOPCD+320 02274000 OPCRQCNT EQU IEDQOPCD+316 02275000 OPPOLSTP EQU IEDQOPCD+312 02276000 OPCCKCIB EQU IEDQOPCD+308 02277000 OPCEND EQU IEDQOPCD+307 02278000 OPCSTCBS EQU IEDQOPCD+306 02279000 OPCHNEND EQU IEDQOPCD+302 02280000 OPCOQSW EQU IEDQOPCD+301 02281000 @NM00111 EQU OPCSPEC 02282000 @NM00110 EQU OPCSPEC 02283000 @NM00109 EQU OPCSPEC 02284000 @NM00108 EQU OPCSPEC 02285000 OPCFRMCA EQU OPCSPEC 02286000 OPCRSTRT EQU OPCSPEC 02287000 OPCPART EQU OPCSPEC 02288000 OPCALTD EQU OPCSPEC 02289000 OPCBFEND EQU IEDQOPCD+296 02290000 OPCBFIRS EQU IEDQOPCD+292 02291000 OPCAVBUF EQU IEDQOPCD+290 02292000 OPCIPLCT EQU IEDQOPCD+289 02293000 OPCCLNTS EQU IEDQOPCD+288 02294000 OPCHA8 EQU IEDQOPCD+286 02295000 OPCBFREQ EQU IEDQOPCD+284 02296000 OPCNEXT EQU IEDQOPCD+272 02297000 OPCFMDFC EQU IEDQOPCD+268 02298000 OPCSCNC EQU IEDQOPCD+264 02299000 OPCHORTG EQU IEDQOPCD+260 02300000 OPCHORT EQU IEDQOPCD+256 02301000 OPCCKPTL EQU IEDQOPCD+252 02302000 OPCCKPTF EQU IEDQOPCD+248 02303000 OPCWAITA EQU IEDQOPCD+244 02304000 OPCWAITR EQU IEDQOPCD+240 02305000 OPCWAITP EQU IEDQOPCD+236 02306000 OPCWAITO EQU IEDQOPCD+232 02307000 OPCWAITN EQU IEDQOPCD+228 02308000 OPCWAITL EQU IEDQOPCD+224 02309000 OPCWAITC EQU IEDQOPCD+220 02310000 @NM00107 EQU OPCLDNME+5 02311000 @NM00106 EQU OPCLDNME 02312000 OPCWAIT EQU IEDQOPCD+192 02313000 OPCCKERB EQU IEDQOPCD+164 02314000 OPCBFERB EQU IEDQOPCD+148 02315000 OPCFLAG2 EQU IEDQOPCD+147 02316000 OPCFLAG1 EQU IEDQOPCD+146 02317000 OPCWRKSZ EQU IEDQOPCD+144 02318000 OPCRSAVE EQU IEDQOPCD+132 02319000 OPCQCBAD EQU IEDQOPCD+128 02320000 OPCTRMWA EQU IEDQOPCD+52 02321000 OPCPSTWT EQU IEDQOPCD+48 02322000 OPCTNTEA EQU IEDQOPCD+44 02323000 OPCLCB EQU IEDQOPCD+36 02324000 OPCIPLAD EQU IEDQOPCD+28 02325000 OPCTOFLK EQU IEDQOPCD+24 02326000 OPCOPTLK EQU IEDQOPCD+20 02327000 OPCDCBLK EQU IEDQOPCD+16 02328000 OPCDOUBL EQU IEDQOPCD 02329000 DSIDLDIG EQU DSIDIAL+3 02330000 DSISLACT EQU DSIDIAL+2 02331000 DSIDLMAX EQU DSIDIAL+1 02332000 DSIMODID EQU IEDDSI3+3 02333000 DSISEQNO EQU IEDDSI3+1 02334000 DSIADDR EQU IEDDSI2+1 02335000 DSIPOLCH EQU DSIPOLL+1 02336000 DSINETAD EQU IEDDSI1+1 02337000 BDUXGRPH EQU BDUEXRSP 02338000 BDUXFINL EQU BDUEXRSP 02339000 BDUXINIT EQU BDUEXRSP 02340000 BDURESP EQU BDUSYRSP 02341000 BDUPHASE EQU BDUSYRSP 02342000 BDUERROR EQU BDUSYRSP 02343000 BDUXERLK EQU BDUBDUFG 02344000 BDUALTAK EQU BDUFNFLG 02345000 BDUNEGAK EQU BDUFNFLG 02346000 BDUPOSAK EQU BDUFNFLG 02347000 BDUTPTX EQU BDUFNFLG 02348000 BDUFRSTB EQU BDUFNFLG 02349000 BDULEADG EQU BDUFNFLG 02350000 BDUSTHDR EQU BDUFNFLG 02351000 SAVTSMAX EQU IEDNSVTD+500 02352000 SAVTSINO EQU IEDNSVTD+498 02353000 SAVTAMAX EQU IEDNSVTD+496 02354000 SAVTAENO EQU IEDNSVTD+494 02355000 SAVTAINO EQU IEDNSVTD+492 02356000 SAVTNMAX EQU IEDNSVTD+490 02357000 SAVTNENO EQU IEDNSVTD+488 02358000 SAVTNINO EQU IEDNSVTD+486 02359000 SAVTRSZE EQU IEDNSVTD+484 02360000 SAVTRMAX EQU IEDNSVTD+482 02361000 SAVTRENO EQU IEDNSVTD+480 02362000 SAVTRINO EQU IEDNSVTD+478 02363000 SAVTRMIN EQU IEDNSVTD+476 02364000 SAVTPMID EQU IEDNSVTD+474 02365000 SAVTRRTC EQU IEDNSVTD+472 02366000 SAVTLUSG EQU IEDNSVTD+468 02367000 SAVTACNQ EQU IEDNSVTD+464 02368000 SAVTCM20 EQU IEDNSVTD+460 02369000 SAVTCFDC EQU IEDNSVTD+456 02370000 SAVTCMOT EQU IEDNSVTD+452 02371000 SAVTCMIN EQU IEDNSVTD+448 02372000 SAVTCPCH EQU IEDNSVTD+444 02373000 SAVTCRGT EQU IEDNSVTD+440 02374000 SAVTNALC EQU IEDNSVTD+436 02375000 SAVTATCT EQU IEDNSVTD+434 02376000 SAVTCRIU EQU IEDNSVTD+432 02377000 SAVTCRHI EQU IEDNSVTD+430 02378000 SAVTCRIB EQU IEDNSVTD+428 02379000 SAVTLCQ EQU IEDNSVTD+424 02380000 SAVTDRSR EQU IEDNSVTD+420 02381000 SAVTATPT EQU IEDNSVTD+416 02382000 SAVTCSMI EQU IEDNSVTD+412 02383000 SAVTNXCR EQU IEDNSVTD+408 02384000 SAVTCRPT EQU IEDNSVTD+404 02385000 SAVTCIPH EQU IEDNSVTD+400 02386000 SAVTBTCO EQU IEDNSVTD+396 02387000 SAVTBTCI EQU IEDNSVTD+392 02388000 SAVTBPCO EQU IEDNSVTD+388 02389000 SAVTBPCI EQU IEDNSVTD+384 02390000 SAVTLLCB EQU IEDNSVTD+380 02391000 SAVTSCF0 EQU IEDNSVTD+376 02392000 SAVTLSNY EQU IEDNSVTD+372 02393000 SAVTLSZP EQU IEDNSVTD+368 02394000 SAVTOMSU EQU IEDNSVTD+364 02395000 SAVTGTSB EQU IEDNSVTD+360 02396000 SAVTHIBL EQU IEDNSVTD+356 02397000 SAVTHISY EQU IEDNSVTD+352 02398000 SAVTNAX2 EQU IEDNSVTD+348 02399000 SAVTCDRU EQU IEDNSVTD+344 02400000 SAVTPOLC EQU IEDNSVTD+342 02401000 SAVTPOLM EQU IEDNSVTD+340 02402000 SAVTPOLR EQU IEDNSVTD+336 02403000 SAVTCDRN EQU SAVTCDRV 02404000 SAVTPOLL EQU IEDNSVTD+328 02405000 SAVTPOLN EQU IEDNSVTD+326 02406000 @NM00105 EQU IEDNSVTD+325 02407000 @NM00104 EQU SAVTNETF 02408000 SAVTSDIS EQU SAVTNETF 02409000 SAVTROUT EQU SAVTNETF 02410000 SAVTNETW EQU SAVTNETF 02411000 SAVTDIAL EQU IEDNSVTD+320 02412000 SAVTRQUT EQU IEDNSVTD+316 02413000 SAVTBITN EQU IEDNSVTD+312 02414000 @NM00103 EQU SAVTCKQB+8 02415000 @NM00102 EQU SAVTCKEC+1 02416000 @NM00101 EQU SAVTCKCC 02417000 SAVTCKPO EQU SAVTCKCC 02418000 SAVTCKWA EQU SAVTCKCC 02419000 SAVTCKCH EQU SAVTCKTB+1 02420000 SAVTCKVT EQU SAVTCKTB 02421000 @NM00100 EQU IEDNSVTD+297 02422000 SAVTRDFG EQU SAVTRDRV+12 02423000 @NM00099 EQU SAVTRDRV+5 02424000 SAVTRDPY EQU SAVTRDRV+4 02425000 SAVTRDQB EQU SAVTRDRV+1 02426000 SAVTRDKY EQU SAVTRDRV 02427000 SAVTNID EQU IEDNSVTD+280 02428000 SAVTDVAS EQU IEDNSVTD+276 02429000 SAVTPLSZ EQU IEDNSVTD+274 02430000 @NM00098 EQU IEDNSVTD+273 02431000 SAVTSUBL EQU IEDNSVTD+272 02432000 @NM00097 EQU SAVTZELM+1 02433000 SAVTSUBM EQU SAVTZELM 02434000 SAVTMHDX EQU IEDNSVTD+268 02435000 SAVTNAT1 EQU IEDNSVTD+266 02436000 SAVTSH20 EQU IEDNSVTD+264 02437000 SAVTLCBS EQU IEDNSVTD+260 02438000 SAVTRNMP EQU IEDNSVTD+256 02439000 SAVTTNTX EQU IEDNSVTD+252 02440000 SAVTNAX EQU IEDNSVTD+248 02441000 SAVTSUBV EQU IEDNSVTD+247 02442000 SAVTSUBA EQU IEDNSVTD+246 02443000 SAVTSIBC EQU IEDNSVTD+244 02444000 SAVTBSM EQU IEDNSVTD+240 02445000 SAVTSCPT EQU SAVTTCPU 02446000 SAVTRQTG EQU IEDNSVTD+236 02447000 SAVTRQCH EQU IEDNSVTD+232 02448000 SAVTMAND EQU IEDNSVTD+228 02449000 SAVTSPLN EQU IEDNSVTD+224 02450000 SAVTNADL EQU IEDNSVTD+222 02451000 SAVTNATL EQU IEDNSVTD+220 02452000 SAVTMHTB EQU IEDNSVTD+216 02453000 SAVTSSMH EQU IEDNSVTD+212 02454000 SAVTQRS EQU IEDNSVTD+208 02455000 SAVTRQIN EQU IEDNSVTD+204 02456000 SAVTDFCO EQU IEDNSVTD+200 02457000 SAVTSAO EQU IEDNSVTD+196 02458000 SAVTSARI EQU IEDNSVTD+192 02459000 SAVTSAC EQU IEDNSVTD+188 02460000 SAVTSAI EQU IEDNSVTD+184 02461000 SAVTCSCI EQU IEDNSVTD+180 02462000 SAVTSSRP EQU IEDNSVTD+176 02463000 SAVTSSRQ EQU IEDNSVTD+172 02464000 SAVTEP EQU SAVTSCLU 02465000 SAVTXTRQ EQU IEDNSVTD+164 02466000 @NM00096 EQU IEDNSVTD+148 02467000 SAVTIPCQ EQU IEDNSVTD+144 02468000 @NM00095 EQU IEDNSVTD+136 02469000 SAVTXFMI EQU IEDNSVTD+132 02470000 @NM00094 EQU IEDNSVTD+124 02471000 SAVTXFMO EQU IEDNSVTD+120 02472000 @NM00093 EQU IEDNSVTD+116 02473000 SAVTSSSR EQU IEDNSVTD+112 02474000 SAVTSCPQ EQU IEDNSVTD+108 02475000 SAVTSLCB EQU IEDNSVTD+104 02476000 SAVTLUSR EQU IEDNSVTD+100 02477000 @NM00092 EQU SAVTLUSQ+8 02478000 SAVTLUSP EQU SAVTLUSQ+4 02479000 SAVTLUSB EQU SAVTLUSQ 02480000 @NM00091 EQU IEDNSVTD+84 02481000 SAVTNAT EQU IEDNSVTD+76 02482000 SAVTCLUP EQU IEDNSVTD+72 02483000 SAVTPIUT EQU IEDNSVTD+68 02484000 SAVTRNTA EQU IEDNSVTD+64 02485000 SAVTDNIR EQU IEDNSVTD+60 02486000 SAVTCNIR EQU IEDNSVTD+56 02487000 SAVTFLDH EQU IEDNSVTD+52 02488000 SAVTSRTN EQU IEDNSVTD+48 02489000 SAVTSREQ EQU IEDNSVTD+44 02490000 SAVTFAIL EQU IEDNSVTD+42 02491000 SAVTSUSE EQU IEDNSVTD+40 02492000 SAVTSIB EQU IEDNSVTD+36 02493000 SAVTPRTN EQU IEDNSVTD+32 02494000 @NM00090 EQU IEDNSVTD+28 02495000 SAVTWH20 EQU IEDNSVTD+26 02496000 SAVTPWT EQU IEDNSVTD+24 02497000 SAVTPRTQ EQU IEDNSVTD+20 02498000 SAVTPREQ EQU IEDNSVTD+16 02499000 SAVTPH20 EQU IEDNSVTD+14 02500000 SAVTPUSE EQU IEDNSVTD+12 02501000 SAVTPLCB EQU IEDNSVTD+8 02502000 SAVTPOOL EQU IEDNSVTD+4 02503000 SAVTPRMT EQU SAVTDIAF 02504000 SAVTVIRT EQU SAVTDIAF 02505000 AVTTVT EQU IEDQAVTD+1268 02506000 AVTSITS EQU IEDQAVTD+1264 02507000 AVTMSUHI EQU IEDQAVTD+1260 02508000 AVTSITU EQU IEDQAVTD+1256 02509000 AVTSITP EQU IEDQAVTD+1252 02510000 AVTPADDR EQU IEDQAVTD+1248 02511000 @NM00089 EQU IEDQAVTD+1246 02512000 AVTCPBNO EQU IEDQAVTD+1244 02513000 AVTHRESS EQU IEDQAVTD+1243 02514000 @NM00088 EQU IEDQAVTD+1242 02515000 @NM00087 EQU IEDQAVTD+1241 02516000 @NM00086 EQU IEDQAVTD+1240 02517000 @NM00085 EQU IEDQAVTD+1237 02518000 @NM00084 EQU IEDQAVTD+1236 02519000 AVTHRESE EQU @NM00083 02520000 AVTRADDR EQU IEDQAVTD+1228 02521000 AVTNADDR EQU IEDQAVTD+1224 02522000 AVTHRESN EQU IEDQAVTD+1220 02523000 AVTVOLRN EQU IEDQAVTD+1216 02524000 AVTTOTNN EQU IEDQAVTD+1212 02525000 AVTTRCYN EQU IEDQAVTD+1208 02526000 AVTRCTRN EQU IEDQAVTD+1204 02527000 AVTNOVON EQU IEDQAVTD+1200 02528000 AVTADEBN EQU IEDQAVTD+1196 02529000 AVTVOLRR EQU IEDQAVTD+1192 02530000 AVTTOTNR EQU IEDQAVTD+1188 02531000 AVTTRCYR EQU IEDQAVTD+1184 02532000 AVTRCTRR EQU IEDQAVTD+1180 02533000 AVTNOVOR EQU IEDQAVTD+1176 02534000 AVTADEBR EQU IEDQAVTD+1172 02535000 AVTLODPT EQU IEDQAVTD+1168 02536000 AVTIOBN EQU IEDQAVTD+1164 02537000 AVTIOBR EQU IEDQAVTD+1160 02538000 AVTCPBPT EQU IEDQAVTD+1156 02539000 AVTFCPB EQU IEDQAVTD+1152 02540000 @NM00082 EQU IEDQAVTD+1148 02541000 AVTINCPQ EQU IEDQAVTD+1144 02542000 @NM00081 EQU IEDQAVTD+1140 02543000 @NM00080 EQU IEDQAVTD+1137 02544000 @NM00079 EQU AVTBIT4 02545000 @NM00078 EQU AVTBIT4 02546000 @NM00077 EQU AVTBIT4 02547000 @NM00076 EQU AVTBIT4 02548000 @NM00075 EQU AVTBIT4 02549000 @NM00074 EQU AVTBIT4 02550000 @NM00073 EQU AVTBIT4 02551000 AVTRUFTN EQU AVTBIT4 02552000 @NM00072 EQU IEDQAVTD+1132 02553000 AVTNOBFQ EQU IEDQAVTD+1128 02554000 @NM00071 EQU IEDQAVTD+1124 02555000 AVTDKENQ EQU IEDQAVTD+1120 02556000 @NM00070 EQU IEDQAVTD+1116 02557000 AVTDKAPQ EQU IEDQAVTD+1112 02558000 AVTCOPY EQU IEDQAVTD+1108 02559000 AVTIA EQU IEDQAVTD+1104 02560000 AVTFL EQU IEDQAVTD+1100 02561000 @NM00069 EQU IEDQAVTD+1096 02562000 AVTNCPBQ EQU IEDQAVTD+1092 02563000 AVTTOTNC EQU IEDQAVTD+1088 02564000 AVTCMAX EQU IEDQAVTD+1084 02565000 AVTCMIN EQU IEDQAVTD+1080 02566000 AVTHM02 EQU IEDQAVTD+1076 02567000 AVTOPCIN EQU IEDQAVTD+1074 02568000 AVTDCTLN EQU IEDQAVTD+1072 02569000 AVTOPMSK EQU IEDQAVTD+1068 02570000 AVTSTEAL EQU IEDQAVTD+1060 02571000 AVTOPTN EQU IEDQAVTD+1056 02572000 AVTDSKCT EQU IEDQAVTD+1054 02573000 AVTCKRST EQU IEDQAVTD+1053 02574000 AVTSTAN EQU AVTBIT3 02575000 AVTSTACN EQU AVTBIT3 02576000 AVTSTAIN EQU AVTBIT3 02577000 AVTSTAYN EQU AVTBIT3 02578000 AVTOLTBN EQU AVTBIT3 02579000 AVTTSAB EQU AVTBIT3 02580000 AVTRFULN EQU AVTBIT3 02581000 AVTRECVN EQU AVTBIT3 02582000 @NM00068 EQU AVTBIT2 02583000 @NM00067 EQU AVTBIT2 02584000 AVTOPEIN EQU AVTBIT2 02585000 AVTSTRTN EQU AVTBIT2 02586000 AVTTOPOL EQU AVTBIT2 02587000 AVTCOPYN EQU AVTBIT2 02588000 AVTREUSN EQU AVTBIT2 02589000 AVTEXTSC EQU AVTBIT2 02590000 AVTDISKN EQU AVTBIT1 02591000 AVTQUCKN EQU AVTBIT1 02592000 AVTCLOSN EQU AVTBIT1 02593000 AVTREADN EQU AVTBIT1 02594000 AVTDLAYN EQU AVTBIT1 02595000 AVTAQTAN EQU AVTBIT1 02596000 AVTTSON EQU AVTBIT1 02597000 AVTAPLKN EQU AVTBIT1 02598000 AVTDUMBR EQU IEDQAVTD+1048 02599000 AVTDLQX EQU IEDQAVTD+1046 02600000 AVTINTLV EQU IEDQAVTD+1044 02601000 AVTSMCNT EQU IEDQAVTD+1042 02602000 AVTAVFCT EQU IEDQAVTD+1040 02603000 AVTOPCON EQU IEDQAVTD+1038 02604000 AVTOPCNT EQU IEDQAVTD+1036 02605000 AVTLNCNT EQU IEDQAVTD+1034 02606000 AVTHA16 EQU IEDQAVTD+1030 02607000 AVTHA7 EQU IEDQAVTD+1028 02608000 AVTHA4 EQU IEDQAVTD+1026 02609000 AVTHA3 EQU IEDQAVTD+1024 02610000 AVTHA2 EQU IEDQAVTD+1022 02611000 AVTGETMS EQU IEDQAVTD+1021 02612000 @NM00066 EQU IEDQAVTD+1020 02613000 AVTGETMD EQU IEDQAVTD+1016 02614000 AVTGETMN EQU IEDQAVTD+1012 02615000 AVTCWTOT EQU IEDQAVTD+1008 02616000 AVTCWINT EQU IEDQAVTD+956 02617000 AVTDTRAP EQU IEDQAVTD+952 02618000 @NM00065 EQU IEDQAVTD+950 02619000 @NM00064 EQU AVTIOTR 02620000 AVTIOTRH EQU AVTIOTR 02621000 AVTIOTRE EQU AVTIOTR 02622000 @NM00063 EQU AVTSUBT 02623000 AVTSUBPT EQU AVTSUBT 02624000 AVTSUBON EQU AVTSUBT 02625000 AVTAFE30 EQU IEDQAVTD+944 02626000 AVTAFE20 EQU IEDQAVTD+940 02627000 AVTAFE10 EQU IEDQAVTD+936 02628000 AVTCWEC2 EQU IEDQAVTD+932 02629000 AVTCWPM2 EQU IEDQAVTD+928 02630000 AVTCWTS2 EQU IEDQAVTD+927 02631000 AVTCWTS1 EQU IEDQAVTD+926 02632000 AVTCWCLD EQU AVTCWFL2 02633000 AVTCWRAP EQU AVTCWFL2 02634000 @NM00062 EQU AVTCWFL2 02635000 @NM00061 EQU AVTCWFL2 02636000 @NM00060 EQU AVTCWFL2 02637000 @NM00059 EQU AVTCWFL2 02638000 @NM00058 EQU AVTCWFL2 02639000 AVTCWACT EQU AVTCWFL2 02640000 @NM00057 EQU AVTCWFL1 02641000 @NM00056 EQU AVTCWFL1 02642000 @NM00055 EQU AVTCWFL1 02643000 @NM00054 EQU AVTCWFL1 02644000 @NM00053 EQU AVTCWFL1 02645000 @NM00052 EQU AVTCWFL1 02646000 @NM00051 EQU AVTCWFL1 02647000 AVTCOMWN EQU AVTCWFL1 02648000 AVTCWEC1 EQU IEDQAVTD+920 02649000 AVTCWPM1 EQU IEDQAVTD+916 02650000 AVTCAREA EQU IEDQAVTD+912 02651000 AVTFZERO EQU IEDQAVTD+908 02652000 AVTCADDR EQU IEDQAVTD+904 02653000 AVTCOREC EQU IEDQAVTD+900 02654000 @NM00050 EQU IEDQAVTD+892 02655000 AVTCPBCB EQU IEDQAVTD+888 02656000 @NM00049 EQU IEDQAVTD+880 02657000 AVTDSIOB EQU IEDQAVTD+876 02658000 @NM00048 EQU IEDQAVTD+868 02659000 AVTCPRMB EQU IEDQAVTD+864 02660000 @NM00047 EQU IEDQAVTD+856 02661000 AVTCLOSB EQU IEDQAVTD+852 02662000 @NM00046 EQU IEDQAVTD+844 02663000 AVTACTIB EQU IEDQAVTD+840 02664000 @NM00045 EQU IEDQAVTD+836 02665000 AVTOLTEB EQU IEDQAVTD+832 02666000 AVTOLTCH EQU AVTOLTQB+1 02667000 AVTOLTVT EQU AVTOLTQB 02668000 @NM00044 EQU AVTOPCQB+8 02669000 @NM00043 EQU AVTOPCEC+1 02670000 @NM00042 EQU AVTOPCCC 02671000 AVTOPCPO EQU AVTOPCCC 02672000 AVTOPCWA EQU AVTOPCCC 02673000 AVTOPCCH EQU AVTOPCOB+1 02674000 AVTOPCVT EQU AVTOPCOB 02675000 @NM00041 EQU AVTCKPQB+9 02676000 AVTCKPTS EQU AVTCKPQB+8 02677000 @NM00040 EQU AVTCKPEC+1 02678000 @NM00039 EQU AVTCKPCC 02679000 AVTCKPPO EQU AVTCKPCC 02680000 AVTCKPWA EQU AVTCKPCC 02681000 AVTCKPCH EQU AVTCKPTB+1 02682000 AVTCKPVT EQU AVTCKPTB 02683000 @NM00038 EQU IEDQAVTD+796 02684000 AVTBFRTB EQU IEDQAVTD+792 02685000 @NM00037 EQU IEDQAVTD+788 02686000 AVTSELCH EQU IEDQAVTD+785 02687000 AVTBFRTN EQU AVTBFRFG 02688000 AVTBFREB EQU IEDQAVTD+780 02689000 AVTTIMQ EQU IEDQAVTD+776 02690000 @NM00036 EQU IEDQAVTD+772 02691000 AVTIMQPS EQU IEDQAVTD+768 02692000 AVTINOUT EQU IEDQAVTD+766 02693000 AVTREFTM EQU IEDQAVTD+764 02694000 @NM00035 EQU IEDQAVTD+752 02695000 AVTDELYB EQU IEDQAVTD+748 02696000 AVTOCQPT EQU IEDQAVTD+744 02697000 AVTTSOPT EQU IEDQAVTD+740 02698000 AVTSUPPT EQU IEDQAVTD+736 02699000 AVTCBQCB EQU IEDQAVTD+732 02700000 AVTMSGS EQU IEDQAVTD+729 02701000 @NM00034 EQU AVTSYSER 02702000 @NM00033 EQU AVTSYSER 02703000 @NM00032 EQU AVTSYSER 02704000 @NM00031 EQU AVTSYSER 02705000 @NM00030 EQU AVTSYSER 02706000 @NM00029 EQU AVTSYSER 02707000 AVTCMAXN EQU AVTSYSER 02708000 AVTCMINN EQU AVTSYSER 02709000 AVT2260L EQU IEDQAVTD+724 02710000 AVTABEPL EQU AVTADBUF 02711000 AVTHFF EQU AVTCLRHI+2 02712000 @NM00028 EQU AVTCLRHI 02713000 AVTCCLNK EQU AVTCRELE+5 02714000 AVTCCPRI EQU AVTCRELE+4 02715000 AVTCCQCB EQU AVTCCELE+1 02716000 AVTCCKEY EQU AVTCCELE 02717000 AVTDELAD EQU IEDQAVTD+704 02718000 AVTDELEM EQU IEDQAVTD+700 02719000 AVTBSX EQU AVTCKLNK 02720000 AVTOPETR EQU AVTHG01 02721000 @NM00027 EQU AVTCKBYT 02722000 AVTCKONQ EQU AVTCKBYT 02723000 @NM00026 EQU AVTCKBYT 02724000 @NM00025 EQU AVTCKBYT 02725000 @NM00024 EQU AVTCKBYT 02726000 @NM00023 EQU AVTCKBYT 02727000 @NM00022 EQU AVTCKBYT 02728000 @NM00021 EQU AVTCKBYT 02729000 AVTOPERT EQU IEDQAVTD+690 02730000 AVTOPXCL EQU IEDQAVTD+688 02731000 AVTOPERL EQU IEDQAVTD+687 02732000 @NM00020 EQU IEDQAVTD+686 02733000 AVTCKTIM EQU IEDQAVTD+684 02734000 AVTCKELV EQU IEDQAVTD+682 02735000 AVTCPRCD EQU IEDQAVTD+681 02736000 AVTWARMN EQU AVTCKELF 02737000 AVTCRTLN EQU AVTCKELF 02738000 AVTCPIPN EQU AVTCKELF 02739000 AVTCCLCN EQU AVTCKELF 02740000 AVTCINCN EQU AVTCKELF 02741000 @NM00019 EQU AVTCKELF 02742000 AVTCMCPN EQU AVTCKELF 02743000 AVTNQBCK EQU AVTCKELF 02744000 AVTCKQAD EQU IEDQAVTD+677 02745000 AVTSCBSZ EQU IEDQAVTD+676 02746000 @NM00018 EQU IEDQAVTD+672 02747000 AVTCKELE EQU IEDQAVTD+668 02748000 @NM00017 EQU AVTCKPEL+8 02749000 AVTCKRLK EQU AVTCKPEL+5 02750000 AVTCKRPR EQU AVTCKPEL+4 02751000 AVTCKRMQ EQU AVTCKRMV+1 02752000 AVTCKRKY EQU AVTCKRMV 02753000 AVTHK EQU IEDQAVTD+648 02754000 AVTHI EQU IEDQAVTD+644 02755000 AVTIOT EQU IEDQAVTD+640 02756000 AVTNX EQU IEDQAVTD+636 02757000 AVTTONE EQU IEDQAVTD+632 02758000 AVTA3TL EQU IEDQAVTD+628 02759000 AVTDMECB EQU IEDQAVTD+624 02760000 AVTABEND EQU IEDQAVTD+618 02761000 AVTPLCBN EQU IEDQAVTD+616 02762000 @NM00016 EQU AVTSAVTP+1 02763000 @NM00015 EQU AVTSAVTF 02764000 AVTRAPI EQU AVTSAVTF 02765000 AVTLCLST EQU AVTSAVTF 02766000 AVT370X EQU AVTSAVTF 02767000 AVTSNA EQU AVTSAVTF 02768000 AVTONSNA EQU AVTSAVTF 02769000 AVTVTMCP EQU AVTSAVTF 02770000 AVTTRNOS EQU IEDQAVTD+608 02771000 AVTCMBSS EQU IEDQAVTD+604 02772000 AVTRCV EQU IEDQAVTD+600 02773000 AVTSEND EQU IEDQAVTD+596 02774000 AVTCSCH EQU IEDQAVTD+592 02775000 AVTQ1 EQU IEDQAVTD+588 02776000 AVTE7 EQU IEDQAVTD+584 02777000 AVTHB EQU IEDQAVTD+580 02778000 AVTR1 EQU IEDQAVTD+576 02779000 AVTBZ EQU IEDQAVTD+572 02780000 AVTEZ EQU IEDQAVTD+568 02781000 AVTEC EQU IEDQAVTD+564 02782000 AVTEW EQU IEDQAVTD+560 02783000 AVTNDIAL EQU AVTSCOPT 02784000 AVTN2741 EQU AVTSCOPT 02785000 AVTCONCO EQU AVTSCOPT 02786000 AVTCONC EQU AVTSCOPT 02787000 AVTCMBUF EQU AVTSCOPT 02788000 AVTAPDMP EQU AVTSCOPT 02789000 @NM00014 EQU AVTSCOPT 02790000 AVTHA EQU AVTDISP 02791000 AVTEA EQU IEDQAVTD+548 02792000 AVTAX EQU IEDQAVTD+544 02793000 AVTA3 EQU IEDQAVTD+540 02794000 AVTGD EQU IEDQAVTD+536 02795000 AVTAL EQU IEDQAVTD+532 02796000 AVTOLTST EQU AVTHG02 02797000 AVTE8 EQU IEDQAVTD+524 02798000 AVTUI EQU IEDQAVTD+520 02799000 AVTCOMPT EQU IEDQAVTD+516 02800000 AVTCRSRF EQU IEDQAVTD+512 02801000 @NM00013 EQU IEDQAVTD+508 02802000 AVTKA02 EQU IEDQAVTD+504 02803000 AVTOPTPT EQU IEDQAVTD+500 02804000 AVTPCBPT EQU IEDQAVTD+496 02805000 AVTECBAD EQU IEDQAVTD+492 02806000 AVTOPECA EQU IEDQAVTD+488 02807000 AVTOLECA EQU IEDQAVTD+484 02808000 AVTCKECA EQU IEDQAVTD+480 02809000 AVTCWECA EQU IEDQAVTD+476 02810000 AVTCWTCB EQU IEDQAVTD+472 02811000 AVTOLTCB EQU IEDQAVTD+468 02812000 AVTOCTCB EQU IEDQAVTD+464 02813000 AVTCKTCB EQU IEDQAVTD+460 02814000 AVTAS EQU IEDQAVTD+456 02815000 AVTNCKPR EQU IEDQAVTD+453 02816000 AVTCIB EQU IEDQAVTD+452 02817000 AVTSPLPT EQU IEDQAVTD+448 02818000 AVTMVBFR EQU IEDQAVTD+444 02819000 AVTSBTA EQU IEDQAVTD+440 02820000 AVTRARTN EQU IEDQAVTD+436 02821000 AVTBSCAN EQU IEDQAVTD+432 02822000 AVTRDYA EQU IEDQAVTD+428 02823000 AVTDISTR EQU IEDQAVTD+420 02824000 AVTPARM3 EQU IEDQAVTD+416 02825000 @NM00012 EQU AVTPKF 02826000 @NM00011 EQU AVTPKF 02827000 @NM00010 EQU AVTPKF 02828000 AVTFTCHF EQU AVTPKF 02829000 @NM00009 EQU AVTPKF 02830000 @NM00008 EQU AVTPKF 02831000 @NM00007 EQU AVTPKF 02832000 @NM00006 EQU AVTPKF 02833000 AVTPARM EQU IEDQAVTD+408 02834000 AVTEXS2A EQU IEDQAVTD+402 02835000 AVTEXA2S EQU IEDQAVTD+396 02836000 AVTOCGET EQU IEDQAVTD+392 02837000 AVTCKAVT EQU @NM00004+1 02838000 @NM00005 EQU AVTCKFLG 02839000 AVTCKHLT EQU AVTCKFLG 02840000 AVTCKREQ EQU AVTCKFLG 02841000 AVTCKENV EQU AVTCKFLG 02842000 AVTCKNAC EQU AVTCKFLG 02843000 AVTCKTAC EQU AVTCKFLG 02844000 AVTBUENT EQU IEDQAVTD+386 02845000 @NM00003 EQU IEDQAVTD+385 02846000 AVTFULLT EQU AVTBUFSW 02847000 AVTUNCON EQU AVTBUFSW 02848000 AVTTRAPI EQU AVTBUFSW 02849000 @NM00002 EQU AVTBUFSW 02850000 AVTBUFTR EQU AVTREADD 02851000 AVTREADY EQU IEDQAVTD+376 02852000 AVTRACE EQU IEDQAVTD+372 02853000 AVTTCB EQU IEDQAVTD+368 02854000 AVTPASWD EQU IEDQAVTD+360 02855000 AVTCTLCH EQU IEDQAVTD+352 02856000 AVTDOUBL EQU IEDQAVTD+344 02857000 AVTDOUBX EQU IEDQAVTD+336 02858000 AVTDPARM EQU IEDQAVTD+332 02859000 AVTCSTCS EQU IEDQAVTD+328 02860000 AVTDLQ EQU AVTSAVEX+32 02861000 @NM00001 EQU AVTSAVEX 02862000 AVTSAVE4 EQU IEDQAVTD+216 02863000 AVTSAVE3 EQU IEDQAVTD+144 02864000 AVTSAVE2 EQU IEDQAVTD+72 02865000 AVTSAVE1 EQU IEDQAVTD 02866000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02867000 @RC00679 EQU @RC00644 02868000 @RC00763 EQU @RC00762 02869000 @RC00797 EQU @RC00796 02870000 @RC00814 EQU @RC00810 02871000 @RC00902 EQU @RC00897 02872000 @RC00683 EQU @RC00679 02873000 @RC00681 EQU @RC00679 02874000 @RC00815 EQU @RC00814 02875000 @RC00689 EQU @RC00683 02876000 @RT00820 EQU @RC00815 02877000 @ENDDATA EQU * 02878000 END IGCFQ10D 02879000