TITLE 'IGCFL10D - ACTIVATE NCP SYNCH. PROCESSOR *00001000 ' 00002000 IGCFL10D CSECT , 01S0001 00003000 @PROLOG BALR @12,0 01S0001 00004000 @PSTART DS 0H 01S0001 00005000 USING @PSTART,@12 01S0001 00006000 * /* 00007000 IGCFL10D IEDHJN AFTERHJN,HJN 00008000 * 01S0487 00009000 * /*****************************************************************/ 00010000 * /* */ 00011000 * /* INITIALIZATION */ 00012000 * /* */ 00013000 * /*****************************************************************/ 00014000 * 01S0487 00015000 * ROPCAVT=RPARM; /* SET POINTER TO OP. CTL. AVT */ 00016000 LR ROPCAVT,RPARM 01S0487 00017000 * ROPCE=OPCCOPCE; /* SET POINTER TO CURRENT OPCE */ 00018000 L ROPCE,OPCCOPCE(,ROPCAVT) 01S0488 00019000 * RAVT=OPCAVTPT; /* SET POINTER TO TCAM AVT */ 00020000 L RAVT,OPCAVTPT(,ROPCAVT) 01S0489 00021000 * RSAVE=ADDR(OPCSAVE); /* SET POINTER TO SAVE AREA */ 00022000 LA RSAVE,OPCSAVE(,ROPCAVT) 01S0490 00023000 * RWRKAREA=OPCWORK; /* OP. CTL. WORKAREA BASE - USED 00024000 * FOR TEMPORARY STORAGE */ 00025000 * 01S0491 00026000 L RWRKAREA,OPCWORK(,ROPCAVT) 01S0491 00027000 * /*****************************************************************/ 00028000 * /* */ 00029000 * /* BASE COMPILER GENERATED DSECT (CREATED BY REENTRANT OPTION) */ 00030000 * /* FOR TEMPORARY STORAGE ON WORK AREA BASE. */ 00031000 * /* */ 00032000 * /*****************************************************************/ 00033000 * 01S0492 00034000 * GEN REFS(RWRKAREA); 01S0492 00035000 * /* 00036000 USING @DATD,RWRKAREA */ 00037000 * FLAGS=''B; /* INIT FLAGS FIELD */ 00038000 MVI FLAGS,X'00' 01S0493 00039000 * OPCMODID=CNTLMOD; /* XCTL IS TO CONTROL MOD. UNLESS 00040000 * PROCESSING DETERMINES THAT 00041000 * ANOTHER SHOULD BE USED */ 00042000 * 01S0494 00043000 MVC OPCMODID(2,ROPCAVT),CNTLMOD 01S0494 00044000 * /*****************************************************************/ 00045000 * /* */ 00046000 * /* CALCULATE 50% OF TCAM'S LINE UNITS */ 00047000 * /* */ 00048000 * /*****************************************************************/ 00049000 * 01S0495 00050000 * HALFUNIT=AVTNOLBF; /* # OF TCAM'S LINE UNITS */ 00051000 LH HALFUNIT,AVTNOLBF(,RAVT) 01S0495 00052000 * SRL(HALFUNIT,1); /* DIVIDE BY TWO FOR 50% */ 00053000 * 01S0496 00054000 SRL HALFUNIT,1 01S0496 00055000 * /*****************************************************************/ 00056000 * /* */ 00057000 * /* OBTAIN ADDR. OF NEG. PREFIX OF ORIG. OPCE */ 00058000 * /* */ 00059000 * /*****************************************************************/ 00060000 * 01S0497 00061000 * ORGNOPCE=OCPTRSAV-LENGTH(IEDQOPCN);/* OBTAIN THE ADDR. OF THE 00062000 * START OF THE NEG. PREFIX IN 00063000 * THE ORIG. OPCE */ 00064000 L ORGNOPCE,OCPTRSAV(,ROPCE) 01S0497 00065000 SL ORGNOPCE,@CF00045 01S0497 00066000 * 01S0498 00067000 * /*****************************************************************/ 00068000 * /* */ 00069000 * /* MAIN PROCDURE */ 00070000 * /* */ 00071000 * /*****************************************************************/ 00072000 * 01S0498 00073000 * IF OCREDRVE=ON THEN /* IF THIS IS A REDRIVE OPCE */ 00074000 * 01S0498 00075000 TM OCREDRVE(ROPCE),B'00010000' 01S0498 00076000 BNO @RF00498 01S0498 00077000 * /***************************************************************/ 00078000 * /* */ 00079000 * /* THIS IS A REDRIVE OPCE WITH ATTACHED UNITS. */ 00080000 * /* */ 00081000 * /***************************************************************/ 00082000 * 01S0499 00083000 * CALL REDRIVE; 01S0499 00084000 BAL @14,REDRIVE 01S0499 00085000 * ELSE 01S0500 00086000 * DO; 01S0500 00087000 * 01S0500 00088000 B @RC00498 01S0500 00089000 @RF00498 DS 0H 01S0501 00090000 * /*************************************************************/ 00091000 * /* */ 00092000 * /* THIS IS A RESPONSE OPCE OR A REQUEST FROM IGCFL10D. */ 00093000 * /* */ 00094000 * /*************************************************************/ 00095000 * 01S0501 00096000 * ORGNOPCE->OCRESPCT=ORGNOPCE->OCRESPCT-1;/* DECREMENT RSP. CT.*/ 00097000 LH @14,OCRESPCT(,ORGNOPCE) 01S0501 00098000 N @14,@CF01733 01S0501 00099000 BCTR @14,0 01S0501 00100000 STH @14,OCRESPCT(,ORGNOPCE) 01S0501 00101000 * 02S0502 00102000 * /*************************************************************/ 00103000 * /* */ 00104000 * /* ----- THIS SEGMENT PROCESSES RESPONSE OPCE'S ----- */ 00105000 * /* */ 00106000 * /*************************************************************/ 00107000 * 02S0502 00108000 * RPARM=OCTRMTBL; /* OBTAIN RESOURCE'S .... */ 00109000 LH RPARM,OCTRMTBL(,ROPCE) 02S0502 00110000 N RPARM,@CF01733 02S0502 00111000 * CALL IEDQTNT; /* .... TTE ADDR. */ 00112000 L @15,AVTRNMPT(,RAVT) 02S0503 00113000 BALR @14,@15 02S0503 00114000 * RTRM=RPARM; /* COPY TTE ADDR. */ 00115000 LR RTRM,RPARM 02S0504 00116000 * IF OCSWITCH=OCDACTLK THEN /* IF DACTLINK RESPONSE */ 00117000 CLI OCSWITCH(ROPCE),X'60' 02S0505 00118000 BNE @RF00505 02S0505 00119000 * DO; 02S0506 00120000 * 03S0507 00121000 * /*********************************************************/ 00122000 * /* */ 00123000 * /* ----- THIS SEGMENT PROCESSED DACTLINK RESPONSE OPCE'S.*/ 00124000 * /* IF THE RESPONSE WAS FOR A BSC-SS LINE, THE OPCE IS */ 00125000 * /* REFORMATTED INTO A SWITCH TO EP OR NCP DEPENDING ON */ 00126000 * /* THE LINE TTE. ----- */ 00127000 * /* */ 00128000 * /*********************************************************/ 00129000 * 03S0507 00130000 * IF TRMTYPE=TRMSDLC THEN 03S0507 00131000 LR @14,RTRM 03S0507 00132000 AL @14,@CF01150 03S0507 00133000 CLI TRMTYPE-11(@14),X'21' 03S0507 00134000 BE @RT00507 03S0507 00135000 * ; /* DO NOTHING */ 00136000 * ELSE 03S0509 00137000 * DO; /* BUILD 'SWITCH' COMMAND */ 00138000 * ORGNOPCE->OCRESPCT=ORGNOPCE->OCRESPCT+1;/* INCREMENT 00139000 * RESP. COUNT */ 00140000 LA @14,1 03S0510 00141000 LH @06,OCRESPCT(,ORGNOPCE) 03S0510 00142000 N @06,@CF01733 03S0510 00143000 ALR @14,@06 03S0510 00144000 STH @14,OCRESPCT(,ORGNOPCE) 03S0510 00145000 * TRMTBLSV=OCTRMTBL; /* SAVE .... */ 00146000 LH @14,OCTRMTBL(,ROPCE) 03S0511 00147000 N @14,@CF01733 03S0511 00148000 STH @14,TRMTBLSV 03S0511 00149000 * UNITSV=OCUNIT; /* ....KEY .... */ 00150000 L @14,OCUNIT(,ROPCE) 03S0512 00151000 ST @14,UNITSV 03S0512 00152000 * PTRSAVSV=OCPTRSAV; /* .... FIELDS */ 00153000 L PTRSAVSV,OCPTRSAV(,ROPCE) 03S0513 00154000 * IEDQOPCN=''B; /* CLEAR PREFIX */ 00155000 LR @06,ROPCE 03S0514 00156000 AL @06,@CF01734 03S0514 00157000 XC IEDQOPCN(8,@06),IEDQOPCN(@06) 03S0514 00158000 * IEDQOPCE=''B; /* CLEAR OPCE */ 00159000 XC IEDQOPCE(56,ROPCE),IEDQOPCE(ROPCE) 03S0515 00160000 * OCTRMTBL=TRMTBLSV; /* RESTORE .... */ 00161000 LH @06,TRMTBLSV 03S0516 00162000 N @06,@CF01733 03S0516 00163000 STH @06,OCTRMTBL(,ROPCE) 03S0516 00164000 * OCUNIT=UNITSV; /* .... KEY .... */ 00165000 ST @14,OCUNIT(,ROPCE) 03S0517 00166000 * OCPTRSAV=PTRSAVSV; /* .... FIELDS */ 00167000 ST PTRSAVSV,OCPTRSAV(,ROPCE) 03S0518 00168000 * OCWTG=THISMOD; /* SET TO RETURN TO THIS MOD. */ 00169000 MVC OCWTG(2,ROPCE),THISMOD 03S0519 00170000 * OCELMPRI=PRIHIFLG; /* SET PRIORITY */ 00171000 MVI OCELMPRI(ROPCE),X'E9' 03S0520 00172000 * OCPRIFLG=OPRA0; /* SET FLAG */ 00173000 MVI OCPRIFLG(ROPCE),X'01' 03S0521 00174000 * OCACTREQ=ON; /* SET A/D REQUEST FLAG */ 00175000 OI OCACTREQ(ROPCE),B'00001000' 03S0522 00176000 * IF TRMEPMOD=ON THEN /* IF TERM. GEN'D AS EP */ 00177000 LR @14,RTRM 03S0523 00178000 AL @14,@CF01736 03S0523 00179000 TM TRMEPMOD-1(@14),B'10000000' 03S0523 00180000 BNO @RF00523 03S0523 00181000 * OCSWITCH=OCSWEP; /* SET TO SWITCH TO EP */ 00182000 MVI OCSWITCH(ROPCE),X'C0' 03S0524 00183000 * ELSE 03S0525 00184000 * OCSWITCH=OCSWNCP; /* SET TO SWITCH TO NCP */ 00185000 B @RC00523 03S0525 00186000 @RF00523 MVI OCSWITCH(ROPCE),X'D0' 03S0525 00187000 * OPCMODID=SSCPMOD; /* SET TO XCTL TO SSCP */ 00188000 @RC00523 MVC OPCMODID(2,ROPCAVT),SSCPMOD 03S0526 00189000 * FRERUFLG=ON; /* SET FLAG TO FREE ONLY RU */ 00190000 OI FRERUFLG,B'01000000' 03S0527 00191000 * END; 03S0528 00192000 * FREUTFLG=ON; /* SET FLAG TO FREE UNITS */ 00193000 @RT00507 OI FREUTFLG,B'10000000' 03S0529 00194000 * END; 02S0530 00195000 * ELSE 02S0531 00196000 * IF OCSWITCH=OCSWEP|OCSWITCH=OCSWNCP THEN/* IF SWITCH 02S0531 00197000 * RESPONSE */ 00198000 B @RC00505 02S0531 00199000 @RF00505 CLI OCSWITCH(ROPCE),X'C0' 02S0531 00200000 BE @RT00531 02S0531 00201000 CLI OCSWITCH(ROPCE),X'D0' 02S0531 00202000 BNE @RF00531 02S0531 00203000 @RT00531 DS 0H 02S0532 00204000 * DO; 02S0532 00205000 * 03S0533 00206000 * /*******************************************************/ 00207000 * /* */ 00208000 * /* ----- THIS SEGMENT PROCESSES 'SWITCH' RESPONSES. IF */ 00209000 * /* THE NCP COULD NOT ACCOMPLISH THE REQUEST, TRMEPMOD */ 00210000 * /* IS RESET. ----- */ 00211000 * /* */ 00212000 * /*******************************************************/ 00213000 * 03S0533 00214000 * IF OCPARM=OCRCBNEG THEN/* IF BAD RESPONSE WITH SENSE */ 00215000 CLC OCPARM(2,ROPCE),@CH01146 03S0533 00216000 BNE @RF00533 03S0533 00217000 * IF OCSWITCH=OCSWEP THEN/* SWITCH TO EP RESPONSE */ 00218000 CLI OCSWITCH(ROPCE),X'C0' 03S0534 00219000 BNE @RF00534 03S0534 00220000 * IF SNSMAJ=SNSRQREJ&SNSMIN=SNSPRCNS THEN/* IF LINE 00221000 * NOT SWITCHABLE */ 00222000 LA @14,12 03S0535 00223000 AL @14,OCUNIT(,ROPCE) 03S0535 00224000 CLI SNSMAJ(@14),X'08' 03S0535 00225000 BNE @RF00535 03S0535 00226000 CLI SNSMIN(@14),X'0C' 03S0535 00227000 BNE @RF00535 03S0535 00228000 * TRMEPMOD=OFF; /* SET AS NCP DEVICE */ 00229000 LR @14,RTRM 03S0536 00230000 AL @14,@CF01736 03S0536 00231000 NI TRMEPMOD-1(@14),B'01111111' 03S0536 00232000 * ELSE 03S0537 00233000 * ; 03S0537 00234000 @RF00535 DS 0H 03S0538 00235000 * ELSE 03S0538 00236000 * IF SNSMAJ=SNSRQREJ&SNSMIN=SNSMODIN THEN/* IF I/0 IN 00237000 * PROGRESS */ 00238000 B @RC00534 03S0538 00239000 @RF00534 LA @14,12 03S0538 00240000 AL @14,OCUNIT(,ROPCE) 03S0538 00241000 CLI SNSMAJ(@14),X'08' 03S0538 00242000 BNE @RF00538 03S0538 00243000 CLI SNSMIN(@14),X'09' 03S0538 00244000 BNE @RF00538 03S0538 00245000 * TRMEPMOD=ON; /* SET AS EP DEVICE */ 00246000 LR @14,RTRM 03S0539 00247000 AL @14,@CF01736 03S0539 00248000 OI TRMEPMOD-1(@14),B'10000000' 03S0539 00249000 * ELSE 03S0540 00250000 * ; 03S0540 00251000 @RF00538 DS 0H 03S0541 00252000 * ELSE 03S0541 00253000 * ; 03S0541 00254000 @RF00533 DS 0H 03S0542 00255000 * FREUTFLG=ON; /* SET TO FREE UNITS */ 00256000 @RC00533 OI FREUTFLG,B'10000000' 03S0542 00257000 * END; 02S0543 00258000 * ELSE 02S0544 00259000 * IF OCSWITCH=OCOPYDSM THEN/* COPY DESTINATION MODE 02S0544 00260000 * RESPONSE */ 00261000 B @RC00531 02S0544 00262000 @RF00531 CLI OCSWITCH(ROPCE),X'E1' 02S0544 00263000 BNE @RF00544 02S0544 00264000 * DO; 02S0545 00265000 * 03S0546 00266000 * /*****************************************************/ 00267000 * /* */ 00268000 * /* ----- THIS SEGMENT PERFORMS 'COPY DESTINATION */ 00269000 * /* MODE' PROCESSING. THE MODE BYTES CONTAINED IN THE */ 00270000 * /* 1ST TWO BYTES FOLLOWING THE BDU ARE PLACE IN THE */ 00271000 * /* DEVICE DEPENDENT FIELD EXCEPT FOR THREE BITS. THE */ 00272000 * /* MODCINTO AND MODCINTE ARE MAINTAINED AS SPECIFIED */ 00273000 * /* IN THE DEVICE DEPENDENT FIELD AND THE MODCMNTR IS */ 00274000 * /* SET TO 0. IF THE END RESULT IS NOT THE SAME AS THE*/ 00275000 * /* BYTES IN THE RU, A REPLACE (SET) DESTINATION MODE */ 00276000 * /* IS PERFORMED. ----- */ 00277000 * /* */ 00278000 * /*****************************************************/ 00279000 * 03S0546 00280000 * IF BDUSYRSP=GOODRSP THEN/* IF A GOOD RSP. TO COPY */ 00281000 L @14,OCUNIT(,ROPCE) 03S0546 00282000 CLI BDUSYRSP+12(@14),X'60' 03S0546 00283000 BNE @RF00546 03S0546 00284000 * DO; 03S0547 00285000 * RZERO=TRMRNTMK; /* SET MASK FOR MODE BYTES TO 00286000 * .... @YM05695*/ 00287000 LA RZERO,16 03S0548 00288000 * RPARM=RTRM; /* .... OBTAIN ADDR. OF .... */ 00289000 LR RPARM,RTRM 03S0549 00290000 * CALL IEDQTL; /* .... MODE BYTES IN DEV. DEP. 00291000 * FIELDS */ 00292000 L @15,AVTDDFT(,RAVT) 03S0550 00293000 BALR @14,@15 03S0550 00294000 * DEVDPADR=RTNCODE;/* SET BASE FOR MODE FIELD 03S0551 00295000 * @YM05740*/ 00296000 ST RTNCODE,DEVDPADR 03S0551 00297000 * RESULT1=MODCUR&MASK1;/* BITS THAT MUST BE ON ARE 00298000 * 1 IN RESULT1 */ 00299000 L @14,DEVDPADR 03S0552 00300000 MVC RESULT1(2),MODCUR(@14) 03S0552 00301000 NC RESULT1(2),@CB01580 03S0552 00302000 * RESULT2=PRUDATA(7:8)&MASK2;/* RECORDS SETTINGS OF 00303000 * 3 CRITICAL BITS IN RU @YM05695*/ 00304000 L @11,OCUNIT(,ROPCE) 03S0553 00305000 MVC RESULT2(2),PRUDATA+6(@11) 03S0553 00306000 NC RESULT2(2),@CB01644 03S0553 00307000 * IF RESULT1=RESULT2 THEN/* IF 3 BITS IN RU ALREADY 00308000 * SET OK */ 00309000 CLC RESULT1(2),RESULT2 03S0554 00310000 BNE @RF00554 03S0554 00311000 * DO; /* THEN REPLACE NOT NEEDED */ 00312000 * MODCUR=PRUDATA(7:8);/* SET UP CURRENT MODE 00313000 * BYTES FIELD @YM05695*/ 00314000 MVC MODCUR(2,@14),PRUDATA+6(@11) 03S0556 00315000 * MODNEW=MODCUR;/* COPY TO NEW MODE BYTES FIELD*/ 00316000 MVC MODNEW(2,@14),MODCUR(@14) 03S0557 00317000 * FREUTFLG=ON;/* SET FLAG TO FREE UNITS */ 00318000 OI FREUTFLG,B'10000000' 03S0558 00319000 * END; 03S0559 00320000 * ELSE /* REPLACE MUST BE DONE */ 00321000 * DO; 03S0560 00322000 B @RC00554 03S0560 00323000 @RF00554 DS 0H 03S0561 00324000 * MODCUR=PRUDATA(7:8)&MASK3;/* MOVE RU MODE 00325000 * BYTES INTO DEV. DEP. FIELD 00326000 * EXCEPT THAT THE 3 CRITICAL 00327000 * BITS ARE ZEROED @YM05695*/ 00328000 L @14,DEVDPADR 03S0561 00329000 L @06,OCUNIT(,ROPCE) 03S0561 00330000 MVC MODCUR(2,@14),PRUDATA+6(@06) 03S0561 00331000 NC MODCUR(2,@14),@CB01646 03S0561 00332000 * MODCUR=MODCUR|RESULT1;/* SET CRITICAL BITS AS 00333000 * THEY ARE SUPPOSED TO BE */ 00334000 OC MODCUR(2,@14),RESULT1 03S0562 00335000 * MODNEW=MODCUR;/* COPY INTO NEW MODE BYTES 00336000 * FIELD */ 00337000 MVC MODNEW(2,@14),MODCUR(@14) 03S0563 00338000 * PRUDATA(7:8)=MODCUR;/* SET DATA IN RU 03S0564 00339000 * @YM05695*/ 00340000 MVC PRUDATA+6(2,@06),MODCUR(@14) 03S0564 00341000 * 04S0565 00342000 * /*********************************************/ 00343000 * /* */ 00344000 * /* --- THIS SEGMENT BUILDS REPLACE DEV. */ 00345000 * /* SESSION INFO. OPCE- PACKED RU PAIRS ---- */ 00346000 * /* */ 00347000 * /*********************************************/ 00348000 * 04S0565 00349000 * TRMTBLSV=OCTRMTBL;/* SAVE OCTRMTBL */ 00350000 LH @14,OCTRMTBL(,ROPCE) 04S0565 00351000 N @14,@CF01733 04S0565 00352000 STH @14,TRMTBLSV 04S0565 00353000 * PTRSAVSV=OCPTRSAV;/* SAVE */ 00354000 L PTRSAVSV,OCPTRSAV(,ROPCE) 04S0566 00355000 * UNITSV=OCUNIT;/* SAVE */ 00356000 ST @06,UNITSV 04S0567 00357000 * IEDQOPCN=''B;/* CLEAR NEG. PREFIX */ 00358000 LA @14,8 04S0568 00359000 LR @05,ROPCE 04S0568 00360000 SLR @05,@14 04S0568 00361000 XC IEDQOPCN(8,@05),IEDQOPCN(@05) 04S0568 00362000 * IEDQOPCE=''B;/* CLEAR OPCE */ 00363000 XC IEDQOPCE(56,ROPCE),IEDQOPCE(ROPCE) 04S0569 00364000 * OCTRMTBL=TRMTBLSV;/* RESOURCE TTCIN */ 00365000 LH @05,TRMTBLSV 04S0570 00366000 N @05,@CF01733 04S0570 00367000 STH @05,OCTRMTBL(,ROPCE) 04S0570 00368000 * OCPTRSAV=PTRSAVSV;/* POINTER TO ORIG OPCE */ 00369000 ST PTRSAVSV,OCPTRSAV(,ROPCE) 04S0571 00370000 * OCUNIT=UNITSV;/* POINTER TO ATTACHED PACKED 00371000 * RU */ 00372000 ST @06,OCUNIT(,ROPCE) 04S0572 00373000 * OCSWITCH=OCRPLDSM;/* REPLACE CMND. */ 00374000 MVI OCSWITCH(ROPCE),X'E2' 04S0573 00375000 * OCELMPRI=PRIMEDFG; 04S0574 00376000 MVI OCELMPRI(ROPCE),X'DF' 04S0574 00377000 * OCPRIFLG=OPR02; 04S0575 00378000 MVI OCPRIFLG(ROPCE),X'08' 04S0575 00379000 * OCWTG=THISMOD;/* SET TO RETURN TO THIS MODULE*/ 00380000 MVC OCWTG(2,ROPCE),THISMOD 04S0576 00381000 * OCACTREQ=ON;/* SET FOR ACTIVATE REQUEST */ 00382000 OI OCACTREQ(ROPCE),B'00001000' 04S0577 00383000 * PRUTTCIN=OCTRMTBL;/* COPY TTCIN @YM06512*/ 00384000 LH @11,OCTRMTBL(,ROPCE) 04S0578 00385000 N @11,@CF01733 04S0578 00386000 STH @11,PRUTTCIN(,@06) 04S0578 00387000 * PRURHTH(1:3)=TRHFID0;/* SET FID0 RH FLAGS */ 00388000 LCR @14,@14 04S0579 00389000 ALR @14,@06 04S0579 00390000 MVC PRURHTH(3,@14),@CB01384 04S0579 00391000 * PRURHTH(4:4)=TTH0BYT0;/* SET FID0 TH FLAGS */ 00392000 MVI PRURHTH+3(@14),X'0C' 04S0580 00393000 * BDUMODIF=CD0CSDM;/* BDU MODIFIER FOR 04S0581 00394000 * "REPLACE" */ 00395000 AL @06,@CF00239 04S0581 00396000 MVI BDUMODIF(@06),X'9A' 04S0581 00397000 * BDUFNFLG=''B;/* CLEAR FUNCTION FLAGS */ 00398000 MVI BDUFNFLG(@06),X'00' 04S0582 00399000 * BDUHEADR=ON;/* SET HEADER FLAG @YM06147*/ 00400000 OI BDUHEADR(@06),B'01000000' 04S0583 00401000 * BDUBDUFG=''B;/* CLEAR BDU FLAGS */ 00402000 MVI BDUBDUFG(@06),X'00' 04S0584 00403000 * BDUSYRSP=''B;/* CLEAR SYSTEM RESPONSE */ 00404000 MVI BDUSYRSP(@06),X'00' 04S0585 00405000 * BDUEXRSP=''B;/* CLEAR EXTENDED RESPONSE */ 00406000 MVI BDUEXRSP(@06),X'00' 04S0586 00407000 * ORGNOPCE->OCRESPCT=ORGNOPCE->OCRESPCT+1;/* 00408000 * UPDATE RESPONSE COUNT */ 00409000 LA @14,1 04S0587 00410000 LH @11,OCRESPCT(,ORGNOPCE) 04S0587 00411000 N @11,@CF01733 04S0587 00412000 ALR @14,@11 04S0587 00413000 STH @14,OCRESPCT(,ORGNOPCE) 04S0587 00414000 * OPCMODID=RUDSPMOD;/* SET TO XCTL TO RU 04S0588 00415000 * DISPATCHER */ 00416000 MVC OPCMODID(2,ROPCAVT),RUDSPMOD 04S0588 00417000 * END; 03S0589 00418000 * END; 03S0590 00419000 * ELSE 03S0591 00420000 * FREUTFLG=ON; /* SET FLAG TO FREE UNITS 03S0591 00421000 * @YM06046*/ 00422000 B @RC00546 03S0591 00423000 @RF00546 OI FREUTFLG,B'10000000' 03S0591 00424000 * END; 02S0592 00425000 * ELSE /* MUST BE REPLACE DEST. MODE 00426000 * RESP. */ 00427000 * FREUTFLG=ON; /* SET 'FREE UNIT' FLAG */ 00428000 B @RC00544 02S0593 00429000 @RF00544 OI FREUTFLG,B'10000000' 02S0593 00430000 * IF FREUTFLG=ON THEN /* IF RESPONSE PROCESSING HAS 00431000 * INDICATED THAT UNITS SHOULD BE 00432000 * FREED */ 00433000 @RC00544 DS 0H 02S0594 00434000 @RC00531 DS 0H 02S0594 00435000 @RC00505 TM FREUTFLG,B'10000000' 02S0594 00436000 BNO @RF00594 02S0594 00437000 * 03S0595 00438000 * /***********************************************************/ 00439000 * /* */ 00440000 * /* ----- THIS SEGMENT FREES UNITS ----- */ 00441000 * /* */ 00442000 * /***********************************************************/ 00443000 * 03S0595 00444000 * IF ORGNOPCE->OCRESPCT=0|FRERUFLG=ON THEN/* IF RESPONSE 00445000 * COUNT IS 0 OR ONLY AN ATTACHED 00446000 * RU IS TO BE FREED */ 00447000 LH @14,OCRESPCT(,ORGNOPCE) 03S0595 00448000 N @14,@CF01733 03S0595 00449000 LTR @14,@14 03S0595 00450000 BZ @RT00595 03S0595 00451000 TM FRERUFLG,B'01000000' 03S0595 00452000 BNO @RF00595 03S0595 00453000 @RT00595 DS 0H 03S0596 00454000 * DO; /* FREE ONLY ATTACHED RU */ 00455000 * IF OCSWITCH=OCOPYDSM|OCSWITCH=OCRPLDSM THEN/* IF COPY 00456000 * OR REPLACE OPCE */ 00457000 CLI OCSWITCH(ROPCE),X'E1' 03S0597 00458000 BE @RT00597 03S0597 00459000 CLI OCSWITCH(ROPCE),X'E2' 03S0597 00460000 BNE @RF00597 03S0597 00461000 @RT00597 DS 0H 03S0598 00462000 * DO; 03S0598 00463000 * RZERO=1; /* DECREMENT OPCADGOT BY 1 AND 00464000 * .... */ 00465000 LA RZERO,1 03S0599 00466000 * CALL DECRCT; /* .... INITIATE REDRIVE */ 00467000 L @15,OPCDECR(,ROPCAVT) 03S0600 00468000 BALR @14,@15 03S0600 00469000 * END; 03S0601 00470000 * ELSE 03S0602 00471000 * ; 03S0602 00472000 @RF00597 DS 0H 03S0603 00473000 * RPARM=OCUNIT; /* FREE ATTACHED .... */ 00474000 L RPARM,OCUNIT(,ROPCE) 03S0603 00475000 * CALL FREEBUFF; /* .... RU */ 00476000 L @15,OPCFREBF(,ROPCAVT) 03S0604 00477000 BALR @14,@15 03S0604 00478000 * OCUNIT=PRUINTIC; /* SET INVALID TIC */ 00479000 MVC OCUNIT(4,ROPCE),@CF01351 03S0605 00480000 * END; 03S0606 00481000 * ELSE 03S0607 00482000 * DO; /* FREE BOTH OPCE AND RU */ 00483000 B @RC00595 03S0607 00484000 @RF00595 DS 0H 03S0608 00485000 * IF OCSWITCH=OCOPYDSM|OCSWITCH=OCRPLDSM THEN/* IF COPY 00486000 * OR REPLACE */ 00487000 CLI OCSWITCH(ROPCE),X'E1' 03S0608 00488000 BE @RT00608 03S0608 00489000 CLI OCSWITCH(ROPCE),X'E2' 03S0608 00490000 BNE @RF00608 03S0608 00491000 @RT00608 DS 0H 03S0609 00492000 * RZERO=2; /* SET TO DECREMENT OPCADGOT BY 2*/ 00493000 LA RZERO,2 03S0609 00494000 * ELSE 03S0610 00495000 * RZERO=1; /* SET TO DECREMENT OPCADGOT BY 1*/ 00496000 B @RC00608 03S0610 00497000 @RF00608 LA RZERO,1 03S0610 00498000 * CALL DECRCT; /* DECREMENT OPCADGOT AND PRIME 00499000 * REDRIVE */ 00500000 @RC00608 L @15,OPCDECR(,ROPCAVT) 03S0611 00501000 BALR @14,@15 03S0611 00502000 * RPARM=ROPCE; /* FREE OPCE AND .... */ 00503000 LR RPARM,ROPCE 03S0612 00504000 * CALL FREEBUFF; /* .... ATTACHED RU */ 00505000 L @15,OPCFREBF(,ROPCAVT) 03S0613 00506000 BALR @14,@15 03S0613 00507000 * FREDOPCE=ON; /* INDICATE OPCE FREED @XM05715*/ 00508000 OI FREDOPCE,B'00000100' 03S0614 00509000 * END; 03S0615 00510000 * DO WHILE(ORGNOPCE->OCRESPCT=0);/* IF THE RESPONSE COUNT IS 0 00511000 * INDICATING THAT NEXT STEP 00512000 * SHOULD BE DONE */ 00513000 * 01S0616 00514000 @RC00595 DS 0H 01S0616 00515000 @RF00594 B @DE00616 01S0616 00516000 @DL00616 DS 0H 01S0617 00517000 * /***********************************************************/ 00518000 * /* */ 00519000 * /* DETERMINE WHAT TO DO NEXT */ 00520000 * /* */ 00521000 * /***********************************************************/ 00522000 * 01S0617 00523000 * 02S0617 00524000 * /***********************************************************/ 00525000 * /* */ 00526000 * /* --------- THIS SEGMENT CHECKS THE NEXT STEP TO BE DONE */ 00527000 * /* ----- */ 00528000 * /* */ 00529000 * /***********************************************************/ 00530000 * 02S0617 00531000 * IF OCSWITCH=OCOPYDSM|OCSWITCH=OCRPLDSM THEN/* IF CURRENT 00532000 * OPCE IS FOR COPY/REPLACE 02S0617 00533000 * DESTINATION MODE */ 00534000 CLI OCSWITCH(ROPCE),X'E1' 02S0617 00535000 BE @RT00617 02S0617 00536000 CLI OCSWITCH(ROPCE),X'E2' 02S0617 00537000 BNE @RF00617 02S0617 00538000 @RT00617 DS 0H 02S0618 00539000 * DO; 02S0618 00540000 * IF SNAFLG=ON THEN /* IF ONLY SNA LINES */ 00541000 TM SNAFLG,B'00100000' 02S0619 00542000 BNO @RF00619 02S0619 00543000 * DO; /* NO DESTINATION MODE MUST BE 00544000 * DONE */ 00545000 * OCSWITCH=OCACTLK; /* SET COMMAND AS ACTLINK */ 00546000 MVI OCSWITCH(ROPCE),X'50' 02S0621 00547000 * OPCMODID=RPNCPMOD;/* SET TO XCTL TO IGCFJ10D */ 00548000 MVC OPCMODID(2,ROPCAVT),RPNCPMOD 02S0622 00549000 * END; 02S0623 00550000 * ELSE /* LAST RESPONSE TO COPY/REPLACE */ 00551000 * OPCMODID=CPDSIMOD; /* SET TO XCTL TO IGCFQ10D */ 00552000 B @RC00619 02S0624 00553000 @RF00619 MVC OPCMODID(2,ROPCAVT),CPDSIMOD 02S0624 00554000 * ORGNOPCE->OCRESPCT=1; /* SET RESPONSE COUNT */ 00555000 @RC00619 MVC OCRESPCT(2,ORGNOPCE),@CH00060 02S0625 00556000 * OCREDRVE=OFF; /* RESET REDRIVE FLAG */ 00557000 NI OCREDRVE(ROPCE),B'11101111' 02S0626 00558000 * END; 02S0627 00559000 * ELSE 02S0628 00560000 * DO; 02S0628 00561000 * 02S0628 00562000 B @RC00617 02S0628 00563000 @RF00617 DS 0H 02S0629 00564000 * /*******************************************************/ 00565000 * /* */ 00566000 * /* REFORMAT RESPONSE OPCE INTO A COPY DEST. MODE R/D */ 00567000 * /* OPCE AND DETERMINE IF ANY BSC-SS LINES ARE PRESENT. */ 00568000 * /* IF NOT, RESPONSE COUNT WIL REMAIN 0 AND SNAFLG WILL */ 00569000 * /* BE TURNED ON. */ 00570000 * /* */ 00571000 * /*******************************************************/ 00572000 * 02S0629 00573000 * 03S0629 00574000 * /*******************************************************/ 00575000 * /* */ 00576000 * /* ------ THIS SEGMENT REFORMATS AN OPCE INTO A REDRIVE*/ 00577000 * /* OPCE--- */ 00578000 * /* */ 00579000 * /*******************************************************/ 00580000 * 03S0629 00581000 * RFY 03S0629 00582000 * IEDSATD BASED(ENTRYPTR);/* SAT BASE FOR LOOP */ 00583000 * RFY 03S0630 00584000 * IEDRVTD BASED(SATRNRVT);/* BASE FOR RVT */ 00585000 * OCREDRVE=ON; /* SET FLAG */ 00586000 OI OCREDRVE(ROPCE),B'00010000' 03S0631 00587000 * OCBUFNED=''B; /* INIT. BUFFER UNITS NEEDED */ 00588000 SLR @14,@14 03S0632 00589000 STH @14,OCBUFNED(,ROPCE) 03S0632 00590000 * OCBUFGOT=''B; /* INIT. BUFFER UNITS GOT */ 00591000 STH @14,OCBUFGOT(,ROPCE) 03S0633 00592000 * OCSWITCH=OCOPYDSM; /* COPY DEV. SESSION INFO. CODE */ 00593000 * 03S0634 00594000 MVI OCSWITCH(ROPCE),X'E1' 03S0634 00595000 * /*******************************************************/ 00596000 * /* */ 00597000 * /* LOOP THROUGH SAT UNTIL CORRECT RVT FOUND */ 00598000 * /* */ 00599000 * /*******************************************************/ 00600000 * 03S0635 00601000 * ENTRYPTR=SAVTSAT; /* ADDR. OF SAT - FIRST ENTRY */ 00602000 L @14,AVTSAVTP(,RAVT) 03S0635 00603000 L @14,SAVTSAT(,@14) 03S0635 00604000 ST @14,ENTRYPTR 03S0635 00605000 * DO UNTIL(FDRVTFLG=ON); 03S0636 00606000 @DL00636 DS 0H 03S0637 00607000 * IF SATRNRVT^=0 THEN /* IF THIS SUBAREA ACTIVE 03S0637 00608000 * @YM05702*/ 00609000 L @14,ENTRYPTR 03S0637 00610000 L @14,SATRNRVT(,@14) 03S0637 00611000 LTR @14,@14 03S0637 00612000 BZ @RF00637 03S0637 00613000 * IF RVTINDEX=OCPTRSAV->OCTRMTBL THEN/* IF THIS IS 00614000 * CORRECT RVT */ 00615000 L @11,OCPTRSAV(,ROPCE) 03S0638 00616000 LH @11,OCTRMTBL(,@11) 03S0638 00617000 N @11,@CF01733 03S0638 00618000 CH @11,RVTINDEX(,@14) 03S0638 00619000 BNE @RF00638 03S0638 00620000 * FDRVTFLG=ON; /* SET FLAG TO GET OUT OF LOOP */ 00621000 OI FDRVTFLG,B'00010000' 03S0639 00622000 * ELSE 03S0640 00623000 * ENTRYPTR=ENTRYPTR+LENGTH(IEDSATD);/* UPDATE PTR. 00624000 * TO NEXT SAT ENTRY */ 00625000 B @RC00638 03S0640 00626000 @RF00638 LA @14,8 03S0640 00627000 AL @14,ENTRYPTR 03S0640 00628000 ST @14,ENTRYPTR 03S0640 00629000 * ELSE /* @YM05702*/ 00630000 * ENTRYPTR=ENTRYPTR+LENGTH(IEDSATD);/* UPDATE PTR. TO 00631000 * NEXT SAT ENTRY @YM06014*/ 00632000 B @RC00637 03S0641 00633000 @RF00637 LA @14,8 03S0641 00634000 AL @14,ENTRYPTR 03S0641 00635000 ST @14,ENTRYPTR 03S0641 00636000 * END; 03S0642 00637000 @RC00637 DS 0H 03S0642 00638000 @DE00636 TM FDRVTFLG,B'00010000' 03S0642 00639000 BNO @DL00636 03S0642 00640000 * ENTRYCT=RVTNUM-1; /* NO. OF RVT ENTRIES - NCP ENTRY*/ 00641000 L @14,ENTRYPTR 03S0643 00642000 L @14,SATRNRVT(,@14) 03S0643 00643000 LH @11,RVTNUM(,@14) 03S0643 00644000 BCTR @11,0 03S0643 00645000 STH @11,ENTRYCT 03S0643 00646000 * ENTRYRVT=SATRNRVT+LENGTH(RVTINDEX);/* SET PTR. IN R/D 00647000 * OPCE TO SECOND ENTRY IN THE 00648000 * RVT */ 00649000 AL @14,@CF00131 03S0644 00650000 ST @14,ENTRYRVT(,ROPCE) 03S0644 00651000 * RFY 03S0645 00652000 * IEDSATD BASED; 03S0645 00653000 * RFY 03S0646 00654000 * IEDRVTD BASED(ENTRYRVT); 03S0646 00655000 * 03S0647 00656000 * /*******************************************************/ 00657000 * /* */ 00658000 * /* ----- THIS SEGMENT DETERMINES THE NUMBER OF COPY */ 00659000 * /* DEST. MODE OPCE - PACKED RU PAIRS MUST BE BUILT. IF */ 00660000 * /* THERE ARE NONE, SNAFLG WILL BE SET ON EXIT. ----- */ 00661000 * /* */ 00662000 * /*******************************************************/ 00663000 * 03S0647 00664000 * SNAFLG=ON; /* INIT. FOR ALL SNA. CHANGE IF 00665000 * BSC-SS TERM. FOUND */ 00666000 OI SNAFLG,B'00100000' 03S0647 00667000 * ENTRYPTR=ENTRYRVT; /* INIT PTR. TO SECOND RVT ENTRY 00668000 * @ */ 00669000 ST @14,ENTRYPTR 03S0648 00670000 * DO WHILE(ENTRYCT^=0); /* SET TO LOOP THROUGH RVT */ 00671000 B @DE00649 03S0649 00672000 @DL00649 DS 0H 03S0650 00673000 * RFY 03S0650 00674000 * IEDRVTD BASED(ENTRYPTR);/* BASE FOR DURATION OF 00675000 * LOOP */ 00676000 * RFY 03S0651 00677000 * IEDQTRM BASED(RPARM);/* BASE FOR DURATION OF LOOP */ 00678000 * IF RVTINDEX^=0 THEN /* IF VALID INDEX */ 00679000 L @14,ENTRYPTR 03S0652 00680000 LH @14,RVTINDEX(,@14) 03S0652 00681000 LTR @14,@14 03S0652 00682000 BZ @RF00652 03S0652 00683000 * DO; 03S0653 00684000 * RPARM=RVTINDEX; /* OBTAIN TTE .... */ 00685000 LR RPARM,@14 03S0654 00686000 * CALL IEDQTNT; /* .... ADDR. OF RESOURCE */ 00687000 L @15,AVTRNMPT(,RAVT) 03S0655 00688000 BALR @14,@15 03S0655 00689000 * IF TRMTYPE=TRMPSNA THEN/* IF 3705 PRESNA TERM. */ 00690000 LR @14,RPARM 03S0656 00691000 AL @14,@CF01150 03S0656 00692000 CLI TRMTYPE-11(@14),X'4F' 03S0656 00693000 BNE @RF00656 03S0656 00694000 * DO; 03S0657 00695000 * ORGNOPCE->OCRESPCT=ORGNOPCE->OCRESPCT+1;/* 00696000 * INCREMENT RESP. COUNT */ 00697000 LA @14,1 03S0658 00698000 LH @11,OCRESPCT(,ORGNOPCE) 03S0658 00699000 N @11,@CF01733 03S0658 00700000 ALR @14,@11 03S0658 00701000 STH @14,OCRESPCT(,ORGNOPCE) 03S0658 00702000 * SNAFLG=OFF; /* NOT SNA ONLY */ 00703000 NI SNAFLG,B'11011111' 03S0659 00704000 * OCBUFNED=OCBUFNED+2;/* UPDATE # UNITS NEEDED 00705000 * IN R/D */ 00706000 LA @14,2 03S0660 00707000 LH @11,OCBUFNED(,ROPCE) 03S0660 00708000 N @11,@CF01733 03S0660 00709000 ALR @14,@11 03S0660 00710000 STH @14,OCBUFNED(,ROPCE) 03S0660 00711000 * END; 03S0661 00712000 * ELSE 03S0662 00713000 * ; 03S0662 00714000 @RF00656 DS 0H 03S0663 00715000 * END; 03S0663 00716000 * ELSE 03S0664 00717000 * ; 03S0664 00718000 @RF00652 DS 0H 03S0665 00719000 * ENTRYCT=ENTRYCT-1; /* DECREMENT LOOP CTR. */ 00720000 LH @14,ENTRYCT 03S0665 00721000 BCTR @14,0 03S0665 00722000 STH @14,ENTRYCT 03S0665 00723000 * ENTRYPTR=ENTRYPTR+LENGTH(RVTINDEX);/* OBTAIN NEXT RVT 00724000 * ENTRY */ 00725000 LA @14,2 03S0666 00726000 AL @14,ENTRYPTR 03S0666 00727000 ST @14,ENTRYPTR 03S0666 00728000 * RFY 03S0667 00729000 * IEDQTRM BASED(RTRM);/* RESTORE BASE */ 00730000 * RFY 03S0668 00731000 * IEDRVTD BASED(ENTRYRVT);/* RESET BASE */ 00732000 * END; 03S0669 00733000 @DE00649 LH @14,ENTRYCT 03S0669 00734000 LTR @14,@14 03S0669 00735000 BNZ @DL00649 03S0669 00736000 * END; 02S0670 00737000 * END; 01S0671 00738000 @RC00617 DS 0H 01S0671 00739000 @DE00616 LH @14,OCRESPCT(,ORGNOPCE) 01S0671 00740000 N @14,@CF01733 01S0671 00741000 LTR @14,@14 01S0671 00742000 BZ @DL00616 01S0671 00743000 * IF FREDOPCE=OFF THEN /* IF OPCE NOT FREED THEN 01S0672 00744000 * @XM05715*/ 00745000 TM FREDOPCE,B'00000100' 01S0672 00746000 BNZ @RF00672 01S0672 00747000 * DO; /* @XM05715*/ 00748000 * IF OCREDRVE=ON THEN /* IF CHKSTEP CREATED REDRIVE 00749000 * OPCE */ 00750000 TM OCREDRVE(ROPCE),B'00010000' 01S0674 00751000 BNO @RF00674 01S0674 00752000 * DO; 01S0675 00753000 * 01S0675 00754000 * /*****************************************************/ 00755000 * /* */ 00756000 * /* A REDRIVE OPCE HAS BEEN CREATED FOR COPY */ 00757000 * /* DESTINATION MODE COMMANDS. OBTAIN AS MANY UNITS AS*/ 00758000 * /* ALLOWABLE UP TO THE NUMBER OF UNITS NEEDED TO SEND*/ 00759000 * /* OUT ALL COMMANDS AND THEN ENTER REDRIVE PROCESSING*/ 00760000 * /* WHICH BUILDS COPY DESTINATION MODE OPCE- PACKED RU*/ 00761000 * /* PAIRS FOR EACH RESOURCE. */ 00762000 * /* */ 00763000 * /*****************************************************/ 00764000 * 01S0676 00765000 * 02S0676 00766000 * /*****************************************************/ 00767000 * /* */ 00768000 * /* OBTAIN AS MANY BUFFER UNITS AS THE OPCE NEEDS UP */ 00769000 * /* TO 50% OF TCAM'S UNITS. CHAIN THEM OFF OCUNIT */ 00770000 * /* FIELD OF THE OPCE. */ 00771000 * /* */ 00772000 * /*****************************************************/ 00773000 * 02S0676 00774000 * UNITPTR=ROPCE; /* SET TO POINT TO R/D OPCE */ 00775000 LR UNITPTR,ROPCE 02S0676 00776000 * IF OPCADGOT+OCBUFNED>HALFUNIT THEN/* IF TOTAL OF 00777000 * UNITS A/D HAS AND UNITS NEEDED 00778000 * EXCEEDS THE 50% LEVEL */ 00779000 LH @14,OPCADGOT(,ROPCAVT) 02S0677 00780000 N @14,@CF01733 02S0677 00781000 LH @11,OCBUFNED(,ROPCE) 02S0677 00782000 N @11,@CF01733 02S0677 00783000 ALR @11,@14 02S0677 00784000 CR @11,HALFUNIT 02S0677 00785000 BNH @RF00677 02S0677 00786000 * UNITSGET=HALFUNIT-OPCADGOT;/* GET UNITS UP TO 50% 00787000 * LEVEL */ 00788000 LCR @14,@14 02S0678 00789000 ALR @14,HALFUNIT 02S0678 00790000 STH @14,UNITSGET 02S0678 00791000 * ELSE 02S0679 00792000 * UNITSGET=OCBUFNED;/* GET AS MANY UNITS AS NEEDED */ 00793000 B @RC00677 02S0679 00794000 @RF00677 LH @14,OCBUFNED(,ROPCE) 02S0679 00795000 N @14,@CF01733 02S0679 00796000 STH @14,UNITSGET 02S0679 00797000 * DO WHILE(UNITSGET^=0);/* GO TO ALLOCBUF AS MANY TIMES 00798000 * AS NECESSAY TO OBTAIN UNITS */ 00799000 @RC00677 B @DE00680 02S0680 00800000 @DL00680 DS 0H 02S0681 00801000 * IF UNITSGET>MAXUNTGT THEN/* IF FK IS TO GET MORE 00802000 * THAN THE # OF UNITS ALLOCBUF 00803000 * CAN GIVE PER CALL */ 00804000 LA @14,255 02S0681 00805000 CH @14,UNITSGET 02S0681 00806000 BNL @RF00681 02S0681 00807000 * RPARM=MAXUNTGT; /* GET THE MAXIMUM */ 00808000 LR RPARM,@14 02S0682 00809000 * ELSE 02S0683 00810000 * RPARM=UNITSGET; /* GET # TO GET */ 00811000 B @RC00681 02S0683 00812000 @RF00681 LH RPARM,UNITSGET 02S0683 00813000 * CALL ALLOCBUF; /* GET BUFFER UNITS */ 00814000 * 02S0684 00815000 @RC00681 L @15,OPCGETBF(,ROPCAVT) 02S0684 00816000 BALR @14,@15 02S0684 00817000 * /***************************************************/ 00818000 * /* */ 00819000 * /* LINK UNITS JUST GOTTEN OFF OF OCLINK AT END OF */ 00820000 * /* CURRENT CHAIN OF BUFFERS */ 00821000 * /* */ 00822000 * /***************************************************/ 00823000 * 02S0685 00824000 * RFY 02S0685 00825000 * IEDQOPCE BASED(UNITPTR); 02S0685 00826000 * DO WHILE(TIC=VALTIC);/* LOOP TO FIND END OF CURRENT 00827000 * CHAIN */ 00828000 B @DE00686 02S0686 00829000 @DL00686 DS 0H 02S0687 00830000 * UNITPTR=OCUNIT; /* POINT TO NEXT UNIT */ 00831000 L UNITPTR,OCUNIT(,UNITPTR) 02S0687 00832000 * END; 02S0688 00833000 @DE00686 TM TIC(UNITPTR),B'00000011' 02S0688 00834000 BZ @DL00686 02S0688 00835000 * OCUNIT=RPARM; /* POINT TO UNITS JUST GOTTEN */ 00836000 ST RPARM,OCUNIT(,UNITPTR) 02S0689 00837000 * RFY 02S0690 00838000 * IEDQOPCE BASED(ROPCE); 02S0690 00839000 * UNITSGET=UNITSGET-RZERO;/* UPDATE # OF UNITS TO GET*/ 00840000 LH @14,UNITSGET 02S0691 00841000 SLR @14,RZERO 02S0691 00842000 STH @14,UNITSGET 02S0691 00843000 * OCBUFNED=OCBUFNED-RZERO;/* UPDATE # OF UNITS OPCE 00844000 * NEEDS */ 00845000 LH @14,OCBUFNED(,ROPCE) 02S0692 00846000 N @14,@CF01733 02S0692 00847000 SLR @14,RZERO 02S0692 00848000 STH @14,OCBUFNED(,ROPCE) 02S0692 00849000 * OCBUFGOT=OCBUFGOT+RZERO;/* UPDATE # OF UNITS OPCE 00850000 * HAS */ 00851000 LH @14,OCBUFGOT(,ROPCE) 02S0693 00852000 N @14,@CF01733 02S0693 00853000 ALR @14,RZERO 02S0693 00854000 STH @14,OCBUFGOT(,ROPCE) 02S0693 00855000 * OPCADGOT=OPCADGOT+RZERO;/* UPDATE OPCADGOT */ 00856000 LH @14,OPCADGOT(,ROPCAVT) 02S0694 00857000 N @14,@CF01733 02S0694 00858000 ALR @14,RZERO 02S0694 00859000 STH @14,OPCADGOT(,ROPCAVT) 02S0694 00860000 * END; 02S0695 00861000 @DE00680 LH @14,UNITSGET 02S0695 00862000 LTR @14,@14 02S0695 00863000 BNZ @DL00680 02S0695 00864000 * CALL REDRIVE; 01S0696 00865000 BAL @14,REDRIVE 01S0696 00866000 * END; 01S0697 00867000 * ELSE 01S0698 00868000 * ; /* EITHER OPCE IS A ACTLINK 01S0698 00869000 * REQUEST OPCE FOR IGCFJ10D OR 00870000 * IS A REQUEST FOR IGCFQ10D */ 00871000 @RF00674 DS 0H 01S0699 00872000 * END; /* @XM05715*/ 00873000 * END; 01S0700 00874000 * 01S0700 00875000 @RF00672 DS 0H 01S0701 00876000 * /*****************************************************************/ 00877000 * /* */ 00878000 * /* EXIT CODE */ 00879000 * /* */ 00880000 * /*****************************************************************/ 00881000 * 01S0701 00882000 * IF OPCMODID=CNTLMOD THEN /* IF XCTL IS TO IGC0010D */ 00883000 @RC00498 CLC OPCMODID(2,ROPCAVT),CNTLMOD 01S0701 00884000 BNE @RF00701 01S0701 00885000 * RZERO=''B; /* CLEAR */ 00886000 SLR RZERO,RZERO 01S0702 00887000 * RPARM=ROPCAVT; 01S0703 00888000 @RF00701 LR RPARM,ROPCAVT 01S0703 00889000 * GEN REFS(ROPCAVT,OPCXCTL) EXIT; 01S0704 00890000 * 01S0704 00891000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00892000 * /*****************************************************************/ 00893000 * /* */ 00894000 * /* END OF MAIN PROCEDURE */ 00895000 * /* */ 00896000 * /*****************************************************************/ 00897000 * 01S0705 00898000 * 01S0705 00899000 */********************************************************************/ 00900000 */* REDRIVE SUBROUTINE */ 00901000 */********************************************************************/ 00902000 */* */ 00903000 */* THIS ROUTINE PERFORMS THE REDRIVE PROCESSING: */ 00904000 */* 1. THE RVT IS SCANNED STARTING WITH THE ENTRY ADDR. (ENTRYRVT) */ 00905000 */* CONTAINED IN OCMODNME OF THE REDRIVE OPCE. ON THE FIRST PASS, */ 00906000 */* THIS IS SET UP WITH THE 2ND ENTRY IN THE RVT. */ 00907000 */* 2. USING RVTINDEX, THE TTE IS OBTAINED AND THE TERMINAL IS */ 00908000 */* VERIFIED AS A BSC-SS TERM. */ 00909000 */* 3. IF SO, A COPY DESTINATION MODE OPCE IS BUILT IN */ 00910000 */* THE UNIT POINTED TO BY OCUNIT OF THE REDRIVE OPCE. THE NEXT */ 00911000 */* UNIT IS USED TO BUILD THE PACKED RU. OCUNIT OF THE REDRIVE */ 00912000 */* OPCE IS SET TO THE ADDR. OF THE UNIT FOLLOWING THE SECOND */ 00913000 */* UNIT. */ 00914000 */* 4. THE OPCE-RU PAIR JUST BUILT IS PUT INTO THE CHAIN FOR THE */ 00915000 */* POST TO AVTOPCOB. */ 00916000 */* 5. IF THERE ARE 2 OR MORE UNITS LEFT, THE RVT SCAN IS CONTINED */ 00917000 */* AND STEPS 2-4 REPEATED. IF NOT, AND THERE ARE STILL MORE */ 00918000 */* COMMANDS TO BUILD, THE REDRIVE IS PLACE ON THE BUFFER WAIT */ 00919000 */* CHAIN. IF ALL COMMANDS HAVE BEEN BUILT, THE REDRIVE OPCE */ 00920000 */* IS FREED. */ 00921000 */* */ 00922000 */********************************************************************/ 00923000 * 01S0705 00924000 *REDRIVE: 01S0705 00925000 * PROC OPTIONS(RETREG,SAVE(14)); 01S0705 00926000 REDRIVE ST @14,@SA00002 01S0705 00927000 * IF OCBUFGOT>=2 THEN /* IF TWO OR MORE UNITS ATTACHED */ 00928000 CLC OCBUFGOT(2,ROPCE),@CH00131 01S0706 00929000 BL @RF00706 01S0706 00930000 * DO; 01S0707 00931000 * 01S0707 00932000 * /*************************************************************/ 00933000 * /* */ 00934000 * /* THERE ARE ENOUGH UNITS */ 00935000 * /* */ 00936000 * /*************************************************************/ 00937000 * 01S0708 00938000 * OPCAQWD1=OCUNIT; /* SET FIRST WORD OF AQCTL PARM. 00939000 * LIST TO POINT TO FIRST UNIT */ 00940000 L @14,OCUNIT(,ROPCE) 01S0708 00941000 ST @14,OPCAQWD1(,ROPCAVT) 01S0708 00942000 * DO UNTIL(OCBUFGOT<2); /* LOOP WHILE ENOUGH UNITS REMAIN*/ 00943000 @DL00709 DS 0H 01S0710 00944000 * RFY 01S0710 00945000 * IEDQOPCE BASED(UNITPTR);/* REDEFINE BASE FOR LOOP */ 00946000 * UNITPTR=ROPCE->OCUNIT; /* POINT TO FIRST UNIT */ 00947000 L UNITPTR,OCUNIT(,ROPCE) 01S0711 00948000 * ROPCE->OCUNIT=OCUNIT->OCUNIT;/* DELINK FIRST AND SECOND 00949000 * UNIT */ 00950000 L @14,OCUNIT(,UNITPTR) 01S0712 00951000 L @11,OCUNIT(,@14) 01S0712 00952000 ST @11,OCUNIT(,ROPCE) 01S0712 00953000 * OCELEM=ROPCE->OCUNIT; /* MOVE LINK FOR POST TO AVTOPCOB*/ 00954000 ST @11,OCELEM(,UNITPTR) 01S0713 00955000 * PRUTIC=PRUINTIC; /* SET TIC FIELD OF RU INVALID */ 00956000 * 01S0714 00957000 MVC PRUTIC(4,@14),@CB01351 01S0714 00958000 * /***********************************************************/ 00959000 * /* */ 00960000 * /* SET COMMON FIELDS IN OPCE */ 00961000 * /* */ 00962000 * /***********************************************************/ 00963000 * 01S0715 00964000 * OCPTRSAV=ROPCE->OCPTRSAV; /* SET ADDR. OF ORIG. OPCE */ 00965000 L @14,OCPTRSAV(,ROPCE) 01S0715 00966000 ST @14,OCPTRSAV(,UNITPTR) 01S0715 00967000 * OCSWITCH=OCOPYDSM; /* SET COMMAND CODE */ 00968000 MVI OCSWITCH(UNITPTR),X'E1' 01S0716 00969000 * OCLINK=ADDR(AVTOPCOB); /* SET QCB ADDR. */ 00970000 LA @14,AVTOPCOB(,RAVT) 01S0717 00971000 ST @14,OCLINK(,UNITPTR) 01S0717 00972000 * OCELMPRI=PRIMEDFG; /* SET UP POST PRIORITY */ 00973000 MVI OCELMPRI(UNITPTR),X'DF' 01S0718 00974000 * OCPRIFLG=OPR02; /* SET TO ROUTE TO RU DISPATCHER */ 00975000 MVI OCPRIFLG(UNITPTR),X'08' 01S0719 00976000 * OCWTG=THISMOD; /* SET TO RETURN TO THIS MOD. */ 00977000 MVC OCWTG(2,UNITPTR),THISMOD 01S0720 00978000 * OCACTREQ=ON; /* ACTIVATE REQUEST */ 00979000 OI OCACTREQ(UNITPTR),B'00001000' 01S0721 00980000 * OPCAQWD2=UNITPTR; /* 'END OF CHAIN' ADDR. IN AQCTL 00981000 * PARM. LIST */ 00982000 * 01S0722 00983000 ST UNITPTR,OPCAQWD2(,ROPCAVT) 01S0722 00984000 * /***********************************************************/ 00985000 * /* */ 00986000 * /* SCAN RVT UNTIL THE TTE OF A BSC-SS TERM IS FOUND. FINISH*/ 00987000 * /* BUILDING OPCE AND BUILD PACKED RU. */ 00988000 * /* */ 00989000 * /***********************************************************/ 00990000 * 01S0723 00991000 * 02S0723 00992000 * /***********************************************************/ 00993000 * /* */ 00994000 * /* ------- THIS SEGMENT BUILDS "COPY DESTINATION MODE" */ 00995000 * /* OPCE- PACKED RU PAIRS. ----- */ 00996000 * /* */ 00997000 * /***********************************************************/ 00998000 * 02S0723 00999000 * RFY 02S0723 01000000 * IEDQTRM BASED(RPARM); /* SET TTE BASE */ 01001000 * RFY 02S0724 01002000 * IEDQOPCE BASED(ROPCE); /* SET BASE AS REDRIVE OPCE */ 01003000 * DO UNTIL(BUILTFLG=ON); /* LOOP THRU RVT UNTIL PRE-SNA 01004000 * TERM. FOUND */ 01005000 * 02S0725 01006000 @DL00725 DS 0H 02S0726 01007000 * /*********************************************************/ 01008000 * /* */ 01009000 * /* OBTAIN NEXT RVT ENTRY ADDR. FROM REDRIVE OPCE AND SET */ 01010000 * /* OCTRMTBL OF OPCE BEING BUILT TO TTCIN CONTAINED IN RVT*/ 01011000 * /* ENTRY. */ 01012000 * /* */ 01013000 * /*********************************************************/ 01014000 * 02S0726 01015000 * UNITPTR->OCTRMTBL=RVTINDEX;/* SET TTCIN FOR OPCE BEING 01016000 * BUILT */ 01017000 L @14,ENTRYRVT(,ROPCE) 02S0726 01018000 LH @11,RVTINDEX(,@14) 02S0726 01019000 STH @11,OCTRMTBL(,UNITPTR) 02S0726 01020000 * ENTRYRVT=ENTRYRVT+LENGTH(RVTINDEX);/* UPDATE RVT ENTRY 01021000 * PTR. IN R/D OPCE TO POINT TO 01022000 * NEXT ENTRY */ 01023000 AL @14,@CF00131 02S0727 01024000 ST @14,ENTRYRVT(,ROPCE) 02S0727 01025000 * RPARM=UNITPTR->OCTRMTBL;/* OBTAIN ADDR. OF .... */ 01026000 LR RPARM,@11 02S0728 01027000 * CALL IEDQTNT; /* .... TTE */ 01028000 L @15,AVTRNMPT(,RAVT) 02S0729 01029000 BALR @14,@15 02S0729 01030000 * IF TRMTYPE=TRMPSNA THEN /* IF PRE-SNA TERM. */ 01031000 LR @14,RPARM 02S0730 01032000 AL @14,@CF01150 02S0730 01033000 CLI TRMTYPE-11(@14),X'4F' 02S0730 01034000 BNE @RF00730 02S0730 01035000 * DO; 02S0731 01036000 * RFY 02S0732 01037000 * IEDQOPCE BASED(UNITPTR);/* RESET BASE AS OPCE BEING 01038000 * BUILT */ 01039000 * 02S0732 01040000 * /*****************************************************/ 01041000 * /* */ 01042000 * /* BUILD PACKED RU */ 01043000 * /* */ 01044000 * /*****************************************************/ 01045000 * 02S0733 01046000 * 03S0733 01047000 * /*****************************************************/ 01048000 * /* */ 01049000 * /* ----- THIS SEGMENT BUILDS THE COPY DEST. MODE */ 01050000 * /* PACKED RU---- */ 01051000 * /* */ 01052000 * /*****************************************************/ 01053000 * 03S0733 01054000 * PRUTTCIN=OCTRMTBL; /* SET RESOURCE TTCIN */ 01055000 L @14,OCUNIT(,UNITPTR) 03S0733 01056000 LH @11,OCTRMTBL(,UNITPTR) 03S0733 01057000 N @11,@CF01733 03S0733 01058000 STH @11,PRUTTCIN(,@14) 03S0733 01059000 * PRUDATCT=LENGTH(IEDBDU);/* DATA LENGTH IS BDU LENGTH */ 01060000 MVC PRUDATCT(2,@14),@CH00071 03S0734 01061000 * BDUCMND=CD0CTRL; /* CONTROL BDU */ 01062000 LA @11,12 03S0735 01063000 ALR @11,@14 03S0735 01064000 MVI BDUCMND(@11),X'08' 03S0735 01065000 * BDUMODIF=CD0CCDM; /* COPY DEST. CODE MODIFIER */ 01066000 MVI BDUMODIF(@11),X'18' 03S0736 01067000 * BDUHEADR=ON; /* TURN ON HEADER FLAG @YM06147*/ 01068000 OI BDUHEADR(@11),B'01000000' 03S0737 01069000 * PRURHTH(1:3)=TRHFID0;/* SET FID0 RH FLAGS */ 01070000 SL @14,@CF00045 03S0738 01071000 MVC PRURHTH(3,@14),@CB01384 03S0738 01072000 * PRURHTH(4:4)=TTH0BYT0;/* SET FID0 TH FLAGS */ 01073000 MVI PRURHTH+3(@14),X'0C' 03S0739 01074000 * BUILTFLG=ON; /* RU BUILT, RETURN TO REDRIVE */ 01075000 OI BUILTFLG,B'00001000' 02S0740 01076000 * END; 02S0741 01077000 * ELSE 02S0742 01078000 * BUILTFLG=OFF; /* CMND. NOT BUILT FOR THIS TERM. 01079000 * - CHECK NEXT RVT ENTRY */ 01080000 B @RC00730 02S0742 01081000 @RF00730 NI BUILTFLG,B'11110111' 02S0742 01082000 * END; 02S0743 01083000 @RC00730 DS 0H 02S0743 01084000 @DE00725 TM BUILTFLG,B'00001000' 02S0743 01085000 BNO @DL00725 02S0743 01086000 * RFY 02S0744 01087000 * IEDQTRM BASED(RTRM); /* RESET BASE FOR TTE */ 01088000 * ROPCE->OCBUFGOT=ROPCE->OCBUFGOT-2;/* DECREMENT # UNITS GOT */ 01089000 LH @14,OCBUFGOT(,ROPCE) 01S0745 01090000 N @14,@CF01733 01S0745 01091000 BCTR @14,0 01S0745 01092000 BCTR @14,0 01S0745 01093000 STH @14,OCBUFGOT(,ROPCE) 01S0745 01094000 * RFY 01S0746 01095000 * IEDQOPCE BASED(ROPCE); /* RESET BASE AS REDRIVE OPCE */ 01096000 * END; 01S0747 01097000 * 01S0747 01098000 @DE00709 CLC OCBUFGOT(2,ROPCE),@CH00131 01S0747 01099000 BNL @DL00709 01S0747 01100000 * /*************************************************************/ 01101000 * /* */ 01102000 * /* POST OPCE'S TO AVTOPCOB */ 01103000 * /* */ 01104000 * /*************************************************************/ 01105000 * 01S0748 01106000 * OPCAQREQ=CHAINFLG; /* FINISH BUILDING PARM. LIST BY 01107000 * SETTING FLAG FOR CHAIN POST */ 01108000 MVI OPCAQREQ(ROPCAVT),X'B4' 01S0748 01109000 * RPARM=ADDR(OPCAQCTL); /* SET REG 1 TO POINT TO PARM. 01110000 * LIST */ 01111000 LA RPARM,OPCAQCTL(,ROPCAVT) 01S0749 01112000 * SVC(102); /* POST IT */ 01113000 SVC 102 01S0750 01114000 * END; /* END OF REDRIVE PROCESSING */ 01115000 * ELSE 01S0752 01116000 * ; /* NOT ENOUGH UNITS, DON'T DO 01117000 * REDRIVE */ 01118000 * 01S0752 01119000 @RF00706 DS 0H 01S0753 01120000 * /*****************************************************************/ 01121000 * /* */ 01122000 * /* IF STILL MORE OPCE - RU'S TO BUILD, PLACE REDRIVE ELEMENT BACK*/ 01123000 * /* ON WAIT CHAIN */ 01124000 * /* */ 01125000 * /*****************************************************************/ 01126000 * 01S0753 01127000 * IF OCBUFNED=0 THEN /* IF PROCESSING DONE */ 01128000 LH @14,OCBUFNED(,ROPCE) 01S0753 01129000 N @14,@CF01733 01S0753 01130000 LTR @14,@14 01S0753 01131000 BNZ @RF00753 01S0753 01132000 * DO; 01S0754 01133000 * RPARM=ROPCE; /* FREE REDRIVE .... */ 01134000 LR RPARM,ROPCE 01S0755 01135000 * CALL FREEBUFF; /* .... OPCE */ 01136000 L @15,OPCFREBF(,ROPCAVT) 01S0756 01137000 BALR @14,@15 01S0756 01138000 * RZERO=1; /* DECREMENT OPCADGOT AND .... */ 01139000 LA RZERO,1 01S0757 01140000 * CALL DECRCT; /* .... INITIATE REDRIVE 01S0758 01141000 * PROCESSING FOR ANOTHER REDRIVE 01142000 * OPCE */ 01143000 L @15,OPCDECR(,ROPCAVT) 01S0758 01144000 BALR @14,@15 01S0758 01145000 * END; 01S0759 01146000 * ELSE /* PROCESSING NOT FINISHED */ 01147000 * DO; 01S0760 01148000 B @RC00753 01S0760 01149000 @RF00753 DS 0H 01S0761 01150000 * OCWTG=THISMOD; /* SET TO RETURN */ 01151000 MVC OCWTG(2,ROPCE),THISMOD 01S0761 01152000 * OCLINK=OPCBUFWT; /* PLACE REDRIVE OPCE .... */ 01153000 L @14,OPCBUFWT(,ROPCAVT) 01S0762 01154000 ST @14,OCLINK(,ROPCE) 01S0762 01155000 * OPCBUFWT=ROPCE; /* .... ON FRONT OF WAIT CHAIN */ 01156000 ST ROPCE,OPCBUFWT(,ROPCAVT) 01S0763 01157000 * END; 01S0764 01158000 * END REDRIVE; 01S0765 01159000 @EL00002 DS 0H 01S0765 01160000 @EF00002 DS 0H 01S0765 01161000 @ER00002 L @14,@SA00002 01S0765 01162000 BR @14 01S0765 01163000 * END IGCFL10D 01S0766 01164000 * 01S0766 01165000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01166000 */*%INCLUDE SYSLIB (TAVTD ) */ 01167000 */*%INCLUDE SYSLIB (TBDUD ) */ 01168000 */*%INCLUDE SYSLIB (TCD0D ) */ 01169000 */*%INCLUDE SYSLIB (TMODD ) */ 01170000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01171000 */*%INCLUDE SYSLIB (TOPCED ) */ 01172000 */*%INCLUDE SYSLIB (TOPRED ) */ 01173000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01174000 */*%INCLUDE SYSLIB (TPRUD ) */ 01175000 */*%INCLUDE SYSLIB (TRHD ) */ 01176000 */*%INCLUDE SYSLIB (TRVTD ) */ 01177000 */*%INCLUDE SYSLIB (TSATD ) */ 01178000 */*%INCLUDE SYSLIB (TSNSD ) */ 01179000 */*%INCLUDE SYSLIB (TTHD ) */ 01180000 */*%INCLUDE SYSLIB (TTRMD ) */ 01181000 */*%INCLUDE SYSUT5 (RSPPROC ) */ 01182000 */*%INCLUDE SYSUT5 (DACTLRSP) */ 01183000 */*%INCLUDE SYSUT5 (SWITCH ) */ 01184000 */*%INCLUDE SYSUT5 (CPYDESTR) */ 01185000 */*%INCLUDE SYSUT5 (BLDREPL ) */ 01186000 */*%INCLUDE SYSUT5 (FREEUNIT) */ 01187000 */*%INCLUDE SYSUT5 (CHKSTEP ) */ 01188000 */*%INCLUDE SYSUT5 (REFORMAT) */ 01189000 */*%INCLUDE SYSUT5 (GETNUM ) */ 01190000 */*%INCLUDE SYSUT5 (GETBUFUT) */ 01191000 */*%INCLUDE SYSUT5 (BLDCOPY ) */ 01192000 */*%INCLUDE SYSUT5 (COPYRU ) */ 01193000 * 01S0766 01194000 * ; 01S0766 01195000 @DATA DS 0H 01196000 @CH00060 DC H'1' 01197000 @CH00071 DC H'6' 01198000 @CH01146 DC H'-1' 01199000 @DATD DSECT 01200000 DS 0F 01201000 @SA00002 DS 1F 01202000 IGCFL10D CSECT 01203000 DS 0F 01204000 @CF00131 DC F'2' 01205000 @CH00131 EQU @CF00131+2 01206000 @CF00045 DC F'8' 01207000 @CF00239 DC F'12' 01208000 @CF01736 DC F'-13' 01209000 @CF01734 DC F'-8' 01210000 @CF01150 DC F'-3' 01211000 @CF01351 DC XL4'08000002' 01212000 @CF01733 DC XL4'0000FFFF' 01213000 @DATD DSECT 01214000 DS 0D 01215000 ENTRYPTR DS A 01216000 DEVDPADR DS A 01217000 UNITSV DS A 01218000 UNITSGET DS H 01219000 TRMTBLSV DS H 01220000 RESULT1 DS BL2 01221000 RESULT2 DS BL2 01222000 FLAGS DS BL1 01223000 ORG FLAGS 01224000 FREUTFLG DS BL1 01225000 FRERUFLG EQU FLAGS+0 01226000 SNAFLG EQU FLAGS+0 01227000 FDRVTFLG EQU FLAGS+0 01228000 BUILTFLG EQU FLAGS+0 01229000 FREDOPCE EQU FLAGS+0 01230000 ORG FLAGS+1 01231000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01232000 @ENDDATD EQU * 01233000 IGCFL10D CSECT 01234000 DS 0F 01235000 @SIZDATD DC AL1(0) 01236000 DC AL3(@ENDDATD-@DATD) 01237000 DS 0D 01238000 @CB01351 DC X'08000002' 01239000 @CB01384 DC X'0B8000' 01240000 @CB01580 DC X'0010' 01241000 @CB01644 DC X'0012' 01242000 @CB01646 DC X'FFED' 01243000 CNTLMOD DC CL2'00' 01244000 CPDSIMOD DC CL2'FQ' 01245000 RPNCPMOD DC CL2'FJ' 01246000 RUDSPMOD DC CL2'02' 01247000 SSCPMOD DC CL2'A0' 01248000 THISMOD DC CL2'FL' 01249000 DS CL1 01250000 ADPATCH DC XL100'0' 01251000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01252000 @01 EQU 01 01253000 @02 EQU 02 01254000 @03 EQU 03 01255000 @04 EQU 04 01256000 @05 EQU 05 01257000 @06 EQU 06 01258000 @07 EQU 07 01259000 @08 EQU 08 01260000 @09 EQU 09 01261000 @10 EQU 10 01262000 @11 EQU 11 01263000 @12 EQU 12 01264000 @13 EQU 13 01265000 @14 EQU 14 01266000 @15 EQU 15 01267000 HALFUNIT EQU @09 01268000 PTRSAVSV EQU @11 01269000 UNITPTR EQU @07 01270000 ORGNOPCE EQU @07 01271000 IEDQAPTR EQU @04 01272000 ROPCAVT EQU @02 01273000 ROPCE EQU @03 01274000 IEDQTPTR EQU @08 01275000 RZERO EQU @00 01276000 RPARM EQU @01 01277000 RAVT EQU @04 01278000 RTRM EQU @08 01279000 RWRKAREA EQU @10 01280000 RSAVE EQU @13 01281000 RRET EQU @14 01282000 RBRNCH EQU @15 01283000 RTNCODE EQU @15 01284000 IEDPLMVP EQU @10 01285000 RCL14SAV EQU @11 01286000 IEDQAVTD EQU 0 01287000 AVTSAVEX EQU IEDQAVTD+288 01288000 @NM00003 EQU IEDQAVTD+388 01289000 AVTCKFLG EQU @NM00003 01290000 AVTBASE EQU IEDQAVTD+412 01291000 AVTPKF EQU AVTBASE 01292000 AVTRNMPT EQU IEDQAVTD+424 01293000 AVTNOLBF EQU IEDQAVTD+454 01294000 AVTOSECB EQU IEDQAVTD+492 01295000 AVTECB1 EQU AVTOSECB 01296000 AVTHG02 EQU IEDQAVTD+528 01297000 AVTDISP EQU IEDQAVTD+552 01298000 AVTHD EQU IEDQAVTD+556 01299000 AVTSCOPT EQU AVTHD 01300000 AVTSAVTP EQU IEDQAVTD+612 01301000 AVTSAVTF EQU AVTSAVTP 01302000 AVTCKPEL EQU IEDQAVTD+652 01303000 AVTCKRMV EQU AVTCKPEL 01304000 AVTCKELF EQU IEDQAVTD+680 01305000 AVTCKBYT EQU IEDQAVTD+691 01306000 AVTHG01 EQU IEDQAVTD+692 01307000 AVTCKLNK EQU IEDQAVTD+696 01308000 AVTCRELE EQU IEDQAVTD+708 01309000 AVTCCELE EQU AVTCRELE 01310000 AVTCLRHI EQU IEDQAVTD+716 01311000 AVTADBUF EQU IEDQAVTD+720 01312000 AVTSYSER EQU IEDQAVTD+728 01313000 AVTCKPQB EQU IEDQAVTD+804 01314000 AVTCKPTB EQU AVTCKPQB 01315000 AVTCKPEC EQU AVTCKPQB+4 01316000 AVTCKPCC EQU AVTCKPEC 01317000 AVTOPCQB EQU IEDQAVTD+816 01318000 AVTOPCOB EQU AVTOPCQB 01319000 AVTOPCEC EQU AVTOPCQB+4 01320000 AVTOPCCC EQU AVTOPCEC 01321000 AVTOLTQB EQU IEDQAVTD+828 01322000 AVTCWFL1 EQU IEDQAVTD+924 01323000 AVTCWFL2 EQU IEDQAVTD+925 01324000 AVTSUBT EQU IEDQAVTD+948 01325000 AVTIOTR EQU IEDQAVTD+949 01326000 AVTBIT1 EQU IEDQAVTD+1050 01327000 AVTBIT2 EQU IEDQAVTD+1051 01328000 AVTBIT3 EQU IEDQAVTD+1052 01329000 AVTDDFT EQU IEDQAVTD+1064 01330000 AVTBIT4 EQU IEDQAVTD+1136 01331000 @NM00085 EQU IEDQAVTD+1232 01332000 IEDNSVTD EQU 0 01333000 SAVTDIAG EQU IEDNSVTD 01334000 SAVTDIAF EQU SAVTDIAG 01335000 SAVTSAT EQU IEDNSVTD+80 01336000 SAVTLUSQ EQU IEDNSVTD+88 01337000 SAVTTCPU EQU IEDNSVTD+238 01338000 SAVTZELM EQU IEDNSVTD+270 01339000 SAVTRDRV EQU IEDNSVTD+284 01340000 SAVTCKQB EQU IEDNSVTD+300 01341000 SAVTCKTB EQU SAVTCKQB 01342000 SAVTCKEC EQU SAVTCKQB+4 01343000 SAVTCKCC EQU SAVTCKEC 01344000 IEDBDU EQU 0 01345000 BDUCMND EQU IEDBDU 01346000 BDUMODIF EQU IEDBDU+1 01347000 BDUFNFLG EQU IEDBDU+2 01348000 BDUHEADR EQU BDUFNFLG 01349000 BDUBDUFG EQU IEDBDU+3 01350000 BDURSP EQU IEDBDU+4 01351000 BDUSYRSP EQU BDURSP 01352000 BDUEXRSP EQU BDURSP+1 01353000 BDUEND EQU IEDBDU+6 01354000 IEDQMOD EQU 0 01355000 MODCUR EQU IEDQMOD+1 01356000 MODCUR1 EQU MODCUR 01357000 MODCUR2 EQU MODCUR+1 01358000 MODCEIBJ EQU MODCUR2 01359000 MODNEW EQU IEDQMOD+3 01360000 MODNEW1 EQU MODNEW 01361000 MODNEW2 EQU MODNEW+1 01362000 MODNEIBJ EQU MODNEW2 01363000 IEDQOPCD EQU 0 01364000 OPCAVTPT EQU IEDQOPCD+8 01365000 OPCCOPCE EQU IEDQOPCD+12 01366000 OPCPGCK EQU IEDQOPCD+40 01367000 OPCSAVE EQU IEDQOPCD+56 01368000 OPCWORK EQU IEDQOPCD+140 01369000 OPCAQCTL EQU IEDQOPCD+180 01370000 OPCXCTL EQU IEDQOPCD+204 01371000 OPCLDNME EQU IEDQOPCD+212 01372000 OPCMODID EQU OPCLDNME+3 01373000 OPCGETBF EQU IEDQOPCD+276 01374000 OPCFREBF EQU IEDQOPCD+280 01375000 OPCSPEC EQU IEDQOPCD+300 01376000 OPCADGOT EQU IEDQOPCD+318 01377000 OPCBUFWT EQU IEDQOPCD+348 01378000 OPCDECR EQU IEDQOPCD+352 01379000 OPCPWCOB EQU IEDQOPCD+368 01380000 OPCPWQCB EQU OPCPWCOB 01381000 OPCPWECB EQU OPCPWCOB+4 01382000 IEDQOPCE EQU 0 01383000 OCLINK EQU IEDQOPCE 01384000 OCELEM EQU IEDQOPCE+4 01385000 OCELMPRI EQU OCELEM 01386000 OCUNIT EQU IEDQOPCE+8 01387000 OCRUDEST EQU OCUNIT 01388000 OCCKPKEY EQU OCRUDEST 01389000 OCSCAN EQU OCCKPKEY 01390000 OCOPTCDE EQU IEDQOPCE+12 01391000 OCPRIFLG EQU OCOPTCDE 01392000 OCSWITCH EQU IEDQOPCE+13 01393000 OCFLAG EQU IEDQOPCE+14 01394000 @NM00128 EQU IEDQOPCE+16 01395000 OCDEST EQU @NM00128 01396000 OCREQVAL EQU OCDEST+1 01397000 OCTRMTBL EQU IEDQOPCE+20 01398000 OCLINENO EQU IEDQOPCE+22 01399000 OCTIOT EQU OCLINENO 01400000 OCTRUNIT EQU IEDQOPCE+24 01401000 OCRSID EQU OCTRUNIT 01402000 OCALSTAT EQU OCRSID 01403000 OCREDRVE EQU OCALSTAT 01404000 OCACTREQ EQU OCALSTAT 01405000 OCPARM EQU IEDQOPCE+28 01406000 OCWTG EQU IEDQOPCE+30 01407000 OCBACKUP EQU IEDQOPCE+32 01408000 OCBUFNED EQU OCBACKUP 01409000 OCBUFGOT EQU OCBACKUP+2 01410000 OCMODNME EQU IEDQOPCE+40 01411000 OCIPLWA EQU OCMODNME 01412000 OCPTRSAV EQU OCMODNME+4 01413000 OCCKDATA EQU IEDQOPCE+48 01414000 OCRSTGTM EQU OCCKDATA 01415000 IEDQOPCN EQU 0 01416000 OCLDNME EQU IEDQOPCN 01417000 OCLINTTE EQU OCLDNME 01418000 OCRESPCT EQU OCLINTTE 01419000 OCREQFLG EQU OCLINTTE+2 01420000 OCPREFLG EQU OCLINTTE+3 01421000 IEDOPRED EQU 0 01422000 OPRESAVE EQU IEDOPRED+8 01423000 OPREFLG3 EQU IEDOPRED+14 01424000 IEDPRUQD EQU 0 01425000 PRUTTCIN EQU IEDPRUQD 01426000 PRUDATCT EQU IEDPRUQD+2 01427000 PRUTIC EQU IEDPRUQD+8 01428000 PRUDATA EQU IEDPRUQD+12 01429000 IEDPRUND EQU 0 01430000 PRURHTH EQU IEDPRUND 01431000 PRURH EQU PRURHTH 01432000 PRURHFG0 EQU PRURH 01433000 PRURHFG1 EQU PRURH+1 01434000 PRURHFG2 EQU PRURH+2 01435000 PRUTH EQU PRURHTH+3 01436000 PRUFIDN EQU PRUTH 01437000 IEDRH EQU 0 01438000 TRHBYTE0 EQU IEDRH 01439000 TRHBYTE1 EQU IEDRH+1 01440000 TRHBYTE2 EQU IEDRH+2 01441000 IEDRVTD EQU 0 01442000 RVTNUM EQU IEDRVTD 01443000 RVTINDEX EQU IEDRVTD+2 01444000 IEDSATD EQU 0 01445000 SATRNRVT EQU IEDSATD+4 01446000 IEDSNSD EQU 0 01447000 SNSSYSTM EQU IEDSNSD 01448000 SNSMAJ EQU SNSSYSTM 01449000 SNSMIN EQU SNSSYSTM+1 01450000 SNSUSER EQU IEDSNSD+2 01451000 IEDTH EQU 0 01452000 TTHBYTE0 EQU IEDTH 01453000 TTHSNF EQU IEDTH+6 01454000 TTHTAG EQU TTHSNF 01455000 TTHTAG1 EQU TTHTAG 01456000 IEDQTRM EQU 0 01457000 TRMSTATE EQU IEDQTRM 01458000 TRMLOG EQU TRMSTATE 01459000 TRMINSEQ EQU IEDQTRM+4 01460000 TLISTCNT EQU TRMINSEQ 01461000 TRMOUTSQ EQU IEDQTRM+6 01462000 TLISTEN EQU TRMOUTSQ 01463000 TRMDSORG EQU TLISTEN 01464000 TRMALTD EQU IEDQTRM+8 01465000 TRMDEVFL EQU IEDQTRM+10 01466000 TRMSTAT EQU IEDQTRM+12 01467000 IEDNTRM EQU 0 01468000 TRMBYTE4 EQU IEDNTRM 01469000 TRMBYTE3 EQU IEDNTRM+1 01470000 TRMBYTE2 EQU IEDNTRM+2 01471000 TRMINPG EQU TRMBYTE2 01472000 TRMBYTE1 EQU IEDNTRM+3 01473000 TRMSCPRQ EQU TRMBYTE1 01474000 TRMBYTE0 EQU IEDNTRM+6 01475000 TRMSIBPT EQU IEDNTRM+7 01476000 TRMTYPE EQU IEDNTRM+11 01477000 ALLOCBUF EQU 0 01478000 FREEBUFF EQU 0 01479000 IEDQTNT EQU 0 01480000 IEDQTL EQU 0 01481000 DECRCT EQU 0 01482000 PROGRTNE EQU 0 01483000 RMOD EQU DEVDPADR 01484000 OPCAQWD EQU OPCAQCTL 01485000 OPCAQWD1 EQU OPCAQWD 01486000 OPCAQREQ EQU OPCAQWD1 01487000 OPCAQWD2 EQU OPCAQWD+4 01488000 OPCAQWD3 EQU OPCAQWD+8 01489000 OCCKPKY1 EQU OCCKPKEY 01490000 OCCKPTYP EQU OCCKPKY1 01491000 OCICACTN EQU OCMODNME 01492000 OCICDADR EQU OCICACTN 01493000 OCICSW EQU OCICDADR+3 01494000 IEDPRUQP EQU OCUNIT 01495000 ENTRYRVT EQU OCMODNME 01496000 IEDQRVTP EQU ENTRYRVT 01497000 IEDQSATP EQU ENTRYPTR 01498000 SNSPTR EQU DEVDPADR 01499000 TRMPRE1 EQU TRMBYTE4 01500000 TRMNCP1 EQU TRMBYTE4 01501000 TRMPRE EQU TRMBYTE3 01502000 TRMNCP EQU TRMBYTE3 01503000 TRMPU EQU TRMBYTE3 01504000 TRMLU EQU TRMBYTE3 01505000 TRMLINK EQU TRMBYTE3 01506000 TRMEPMOD EQU TRMLINK 01507000 TICFLD EQU OCUNIT 01508000 TIC EQU TICFLD+3 01509000 ENTRYCT EQU UNITSGET 01510000 BDUTEXT EQU BDUEND 01511000 OCCIB EQU OCREQVAL 01512000 TRMOPT EQU IEDQTRM+20 01513000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01514000 @NM00166 EQU TICFLD 01515000 @NM00165 EQU TRMLINK 01516000 TRMLSTAT EQU TRMLINK 01517000 TRMLINT EQU TRMLINK 01518000 TRMLULOG EQU TRMLU 01519000 TRMINERR EQU TRMLU 01520000 TRMLUREQ EQU TRMLU 01521000 TRMSESRQ EQU TRMLU 01522000 TRMTDIFF EQU TRMLU 01523000 TRMLUTM EQU TRMLU 01524000 TRMLUIT EQU TRMLU 01525000 TRMAUTO EQU TRMLU 01526000 TRMPCONT EQU TRMPU 01527000 @NM00164 EQU TRMPU 01528000 TRMNCONT EQU TRMNCP 01529000 TRMQUCKN EQU TRMNCP 01530000 TRMSLOWN EQU TRMNCP 01531000 TRMSYGEN EQU TRMNCP 01532000 TRMNCPCL EQU TRMNCP 01533000 TRMIPLDM EQU TRMNCP 01534000 TRMINOUT EQU TRMPRE 01535000 TRMRDOUT EQU TRMPRE 01536000 TRMNLOUT EQU TRMPRE 01537000 TRMWROUT EQU TRMPRE 01538000 TRMASNXI EQU TRMPRE 01539000 TRMSTMM EQU TRMPRE 01540000 TRMCMODE EQU TRMPRE 01541000 TRMSTPND EQU TRMPRE 01542000 @NM00163 EQU TRMNCP1 01543000 TRMINOP EQU TRMNCP1 01544000 TRMLYNCH EQU TRMPRE1 01545000 TRMSPOUT EQU TRMPRE1 01546000 TRMERLCK EQU TRMPRE1 01547000 TRMQNPL EQU TRMPRE1 01548000 TRMSPACT EQU TRMPRE1 01549000 TRMOCNI EQU TRMPRE1 01550000 TRMSESSN EQU TRMPRE1 01551000 TRMCONT EQU TRMPRE1 01552000 OCICINAC EQU OCICSW 01553000 @NM00134 EQU OCICSW 01554000 OCICATST EQU OCICDADR+1 01555000 OCICTYPE EQU OCICDADR 01556000 @NM00133 EQU OCCKPKY1 01557000 OCCKPENV EQU OCCKPKY1 01558000 OCCKPRST EQU OCCKPTYP 01559000 OCCKPNCP EQU OCCKPTYP 01560000 OCCKPINC EQU OCCKPTYP 01561000 OPCAQLST EQU OPCAQWD3+1 01562000 OPCAQRQ3 EQU OPCAQWD3 01563000 OPCAQSEC EQU OPCAQWD2+1 01564000 OPCAQRQ2 EQU OPCAQWD2 01565000 OPCAQFST EQU OPCAQWD1+1 01566000 TRMSUBST EQU IEDNTRM+12 01567000 TRMRLMCT EQU IEDNTRM+10 01568000 TRMCOHTG EQU TRMSIBPT+1 01569000 TRMGPCNT EQU TRMSIBPT 01570000 TRMBUFRD EQU TRMBYTE0 01571000 TRMSNA EQU TRMBYTE0 01572000 TRMGP EQU TRMBYTE0 01573000 TRMDIAL EQU TRMBYTE0 01574000 @NM00162 EQU TRMBYTE0 01575000 TRMOUTPT EQU TRMBYTE0 01576000 TRMINPUT EQU TRMBYTE0 01577000 TRMUDEF EQU TRMBYTE0 01578000 TRMCOHRT EQU IEDNTRM+4 01579000 TRMSTOTE EQU TRMBYTE1 01580000 TRMCKPRN EQU TRMBYTE1 01581000 TRMTSATN EQU TRMBYTE1 01582000 TRMTRACE EQU TRMBYTE1 01583000 TRMSWBCK EQU TRMBYTE1 01584000 TRMAUTOC EQU TRMBYTE1 01585000 TRMINPTP EQU TRMBYTE1 01586000 TRMWTNEG EQU TRMSCPRQ 01587000 TRMWRBRK EQU TRMBYTE2 01588000 TRMNOSND EQU TRMBYTE2 01589000 TRMPREP EQU TRMBYTE2 01590000 TRMGPACT EQU TRMBYTE2 01591000 TRMANDL EQU TRMBYTE2 01592000 TRMCLOSN EQU TRMINPG 01593000 TRMREMB EQU TRMBYTE2 01594000 TRMRSACT EQU TRMBYTE2 01595000 TRMOPTBL EQU IEDQTRM+18 01596000 TRMOPNO EQU IEDQTRM+17 01597000 TRMCHCIN EQU IEDQTRM+16 01598000 TRMSENSE EQU TRMSTAT+3 01599000 TRMTEMPR EQU TRMSTAT+2 01600000 TRMSIO EQU TRMSTAT 01601000 @NM00161 EQU TRMDEVFL+1 01602000 TRMTPIN EQU TRMDEVFL+1 01603000 TRMNCPI EQU TRMDEVFL+1 01604000 TRMRNTRM EQU TRMDEVFL+1 01605000 @NM00160 EQU TRMDEVFL+1 01606000 TRMLMD EQU TRMDEVFL+1 01607000 TRMCONC EQU TRMDEVFL+1 01608000 TRMTSOB EQU TRMDEVFL 01609000 TRMBFDY EQU TRMDEVFL 01610000 TRMTBLK EQU TRMDEVFL 01611000 TRMSBLK EQU TRMDEVFL 01612000 TRMBLKS EQU TRMDEVFL 01613000 TRMADDC EQU TRMDEVFL 01614000 TRMDDIG EQU TRMDEVFL 01615000 TRMBUFS EQU TRMDEVFL 01616000 TRMPRILK EQU TRMALTD 01617000 TRMLGB EQU TRMDSORG 01618000 TRMUTERM EQU TLISTCNT 01619000 TRMDESTQ EQU IEDQTRM+1 01620000 TRMSCNYN EQU TRMSTATE 01621000 TRMOPTFN EQU TRMSTATE 01622000 TRMHELDN EQU TRMSTATE 01623000 TRMACPTN EQU TRMSTATE 01624000 TRMPREF EQU TRMSTATE 01625000 TRMPROC EQU TRMLOG 01626000 TRMLIST EQU TRMLOG 01627000 TRMLINE EQU TRMSTATE 01628000 TTHDCF EQU IEDTH+8 01629000 TTHTAG2 EQU TTHTAG+1 01630000 @NM00159 EQU TTHTAG1 01631000 TTHTAGS EQU TTHTAG1 01632000 TTHOAF EQU IEDTH+4 01633000 TTHDAF EQU IEDTH+2 01634000 TTHBYTE1 EQU IEDTH+1 01635000 TTHEFI EQU TTHBYTE0 01636000 @NM00158 EQU TTHBYTE0 01637000 TTHEBIU EQU TTHBYTE0 01638000 TTHBBIU EQU TTHBYTE0 01639000 TTHFTYPE EQU TTHBYTE0 01640000 SNSUSR2 EQU SNSUSER+1 01641000 SNSUSR1 EQU SNSUSER 01642000 SATRNLCB EQU IEDSATD 01643000 @NM00157 EQU TRHBYTE2 01644000 @NM00156 EQU TRHBYTE2 01645000 @NM00155 EQU TRHBYTE2 01646000 TRHCSI EQU TRHBYTE2 01647000 @NM00154 EQU TRHBYTE2 01648000 TRHCDI EQU TRHBYTE2 01649000 TRHEB EQU TRHBYTE2 01650000 TRHBB EQU TRHBYTE2 01651000 TRHPI EQU TRHBYTE1 01652000 @NM00153 EQU TRHBYTE1 01653000 @NM00152 EQU TRHBYTE1 01654000 @NM00151 EQU TRHBYTE1 01655000 TRHER EQU TRHBYTE1 01656000 TRHDR2 EQU TRHBYTE1 01657000 @NM00150 EQU TRHBYTE1 01658000 TRHDR1 EQU TRHBYTE1 01659000 TRHEC EQU TRHBYTE0 01660000 TRHBC EQU TRHBYTE0 01661000 TRHSDI EQU TRHBYTE0 01662000 TRHFI EQU TRHBYTE0 01663000 @NM00149 EQU TRHBYTE0 01664000 TRHRUCAT EQU TRHBYTE0 01665000 TRHTYPE EQU TRHBYTE0 01666000 @NM00148 EQU IEDPRUND+4 01667000 PRUTHEFI EQU PRUFIDN 01668000 PRUTHUSS EQU PRUFIDN 01669000 PRUTHEIU EQU PRUFIDN 01670000 PRUTHBIU EQU PRUFIDN 01671000 PRUTHTYE EQU PRUFIDN 01672000 @NM00147 EQU PRURHFG2 01673000 PRURHCSI EQU PRURHFG2 01674000 @NM00146 EQU PRURHFG2 01675000 PRURHCDI EQU PRURHFG2 01676000 PRURHEB EQU PRURHFG2 01677000 PRURHBB EQU PRURHFG2 01678000 PRURHPI EQU PRURHFG1 01679000 @NM00145 EQU PRURHFG1 01680000 PRURHER EQU PRURHFG1 01681000 PRURHDR2 EQU PRURHFG1 01682000 @NM00144 EQU PRURHFG1 01683000 PRURHDR1 EQU PRURHFG1 01684000 PRURHEC EQU PRURHFG0 01685000 PRURHBC EQU PRURHFG0 01686000 PRURHSDI EQU PRURHFG0 01687000 PRURHFI EQU PRURHFG0 01688000 @NM00143 EQU PRURHFG0 01689000 PRURUCAT EQU PRURHFG0 01690000 PRURHTYP EQU PRURHFG0 01691000 PRUNUNIT EQU PRUTIC+1 01692000 @NM00142 EQU PRUTIC 01693000 @NM00141 EQU IEDPRUQD+4 01694000 @NM00140 EQU OPREFLG3 01695000 OPREATCH EQU OPREFLG3 01696000 @NM00139 EQU OPREFLG3 01697000 OPREFLG2 EQU IEDOPRED+13 01698000 OPREFLG1 EQU IEDOPRED+12 01699000 OPRETIC EQU OPRESAVE 01700000 OPRELINK EQU IEDOPRED+5 01701000 OPREPRI EQU IEDOPRED+4 01702000 OPREQCB EQU IEDOPRED+1 01703000 OPREKEY EQU IEDOPRED 01704000 @NM00138 EQU OCLDNME+4 01705000 @NM00137 EQU OCPREFLG 01706000 OCTOTEP EQU OCPREFLG 01707000 OCREPOST EQU OCPREFLG 01708000 OCRSPSNT EQU OCPREFLG 01709000 OCBFREQ EQU OCPREFLG 01710000 OCIDLE EQU OCREQFLG 01711000 OCFORCE EQU OCREQFLG 01712000 OCDCARD EQU OCREQFLG 01713000 OCPARTAL EQU OCREQFLG 01714000 OCADNCP EQU OCREQFLG 01715000 @NM00136 EQU OCREQFLG 01716000 @NM00135 EQU OCREQFLG 01717000 OCFLUSHZ EQU OCREQFLG 01718000 OCCKPTWA EQU OCCKDATA+4 01719000 @NM00132 EQU OCRSTGTM+2 01720000 OCCKDAT2 EQU OCRSTGTM+1 01721000 OCCKDAT1 EQU OCRSTGTM 01722000 OCPUADR EQU OCIPLWA+2 01723000 OCWTGSAV EQU OCIPLWA 01724000 OCDVRDCT EQU OCBACKUP+6 01725000 OCNCP EQU OCBACKUP+4 01726000 OCRESNUM EQU OCPARM 01727000 OCSEQ EQU OCTRUNIT+2 01728000 @NM00131 EQU OCRSID+1 01729000 OCNONE EQU OCALSTAT 01730000 OCSOME EQU OCALSTAT 01731000 OCALLFLG EQU OCALSTAT 01732000 OCSEQIND EQU OCALSTAT 01733000 @NM00130 EQU OCALSTAT 01734000 OCRENTRD EQU OCALSTAT 01735000 OCWTGB EQU OCTIOT 01736000 @NM00129 EQU @NM00128+2 01737000 OCCONID EQU OCDEST 01738000 OCRLN EQU IEDQOPCE+15 01739000 OCRESP EQU OCFLAG 01740000 OCATTACH EQU OCFLAG 01741000 OCSSCP EQU OCFLAG 01742000 OCOUTPUT EQU OCFLAG 01743000 OCLINE EQU OCFLAG 01744000 OCMPP EQU OCFLAG 01745000 OCTOTE EQU OCFLAG 01746000 OCCONSOL EQU OCFLAG 01747000 @NM00127 EQU OCSWITCH 01748000 OCQUCKN EQU OCSWITCH 01749000 @NM00126 EQU OCRUDEST+1 01750000 @NM00125 EQU OCSCAN 01751000 OCNOTUCB EQU OCSCAN 01752000 OCNONAME EQU OCSCAN 01753000 OCALLRLN EQU OCSCAN 01754000 OCDDNAME EQU OCSCAN 01755000 OCDDNRLN EQU OCSCAN 01756000 OCADDR EQU OCSCAN 01757000 OCELMPTR EQU OCELEM+1 01758000 OPCBOTTM EQU IEDQOPCD+1184 01759000 @NM00124 EQU IEDQOPCD+1100 01760000 @NM00123 EQU IEDQOPCD+948 01761000 @NM00122 EQU IEDQOPCD+940 01762000 @NM00121 EQU IEDQOPCD+380 01763000 @NM00120 EQU OPCPWCOB+9 01764000 @NM00119 EQU OPCPWCOB+8 01765000 @NM00118 EQU OPCPWECB+1 01766000 OPCPWCCC EQU OPCPWECB 01767000 OPCPWCHN EQU OPCPWQCB+1 01768000 OPCPWVTO EQU OPCPWQCB 01769000 OPCWAITV EQU IEDQOPCD+364 01770000 OPCTOTCK EQU IEDQOPCD+360 01771000 OPCAPXTL EQU IEDQOPCD+356 01772000 OPCWRKSP EQU IEDQOPCD+320 01773000 OPCRQCNT EQU IEDQOPCD+316 01774000 OPPOLSTP EQU IEDQOPCD+312 01775000 OPCCKCIB EQU IEDQOPCD+308 01776000 OPCEND EQU IEDQOPCD+307 01777000 OPCSTCBS EQU IEDQOPCD+306 01778000 OPCHNEND EQU IEDQOPCD+302 01779000 OPCOQSW EQU IEDQOPCD+301 01780000 @NM00117 EQU OPCSPEC 01781000 @NM00116 EQU OPCSPEC 01782000 @NM00115 EQU OPCSPEC 01783000 @NM00114 EQU OPCSPEC 01784000 OPCFRMCA EQU OPCSPEC 01785000 OPCRSTRT EQU OPCSPEC 01786000 OPCPART EQU OPCSPEC 01787000 OPCALTD EQU OPCSPEC 01788000 OPCBFEND EQU IEDQOPCD+296 01789000 OPCBFIRS EQU IEDQOPCD+292 01790000 OPCAVBUF EQU IEDQOPCD+290 01791000 OPCIPLCT EQU IEDQOPCD+289 01792000 OPCCLNTS EQU IEDQOPCD+288 01793000 OPCHA8 EQU IEDQOPCD+286 01794000 OPCBFREQ EQU IEDQOPCD+284 01795000 OPCNEXT EQU IEDQOPCD+272 01796000 OPCFMDFC EQU IEDQOPCD+268 01797000 OPCSCNC EQU IEDQOPCD+264 01798000 OPCHORTG EQU IEDQOPCD+260 01799000 OPCHORT EQU IEDQOPCD+256 01800000 OPCCKPTL EQU IEDQOPCD+252 01801000 OPCCKPTF EQU IEDQOPCD+248 01802000 OPCWAITA EQU IEDQOPCD+244 01803000 OPCWAITR EQU IEDQOPCD+240 01804000 OPCWAITP EQU IEDQOPCD+236 01805000 OPCWAITO EQU IEDQOPCD+232 01806000 OPCWAITN EQU IEDQOPCD+228 01807000 OPCWAITL EQU IEDQOPCD+224 01808000 OPCWAITC EQU IEDQOPCD+220 01809000 @NM00113 EQU OPCLDNME+5 01810000 @NM00112 EQU OPCLDNME 01811000 OPCWAIT EQU IEDQOPCD+192 01812000 OPCCKERB EQU IEDQOPCD+164 01813000 OPCBFERB EQU IEDQOPCD+148 01814000 OPCFLAG2 EQU IEDQOPCD+147 01815000 OPCFLAG1 EQU IEDQOPCD+146 01816000 OPCWRKSZ EQU IEDQOPCD+144 01817000 OPCRSAVE EQU IEDQOPCD+132 01818000 OPCQCBAD EQU IEDQOPCD+128 01819000 OPCTRMWA EQU IEDQOPCD+52 01820000 OPCPSTWT EQU IEDQOPCD+48 01821000 OPCTNTEA EQU IEDQOPCD+44 01822000 OPCLCB EQU IEDQOPCD+36 01823000 @NM00111 EQU IEDQOPCD+32 01824000 OPCIPLAD EQU IEDQOPCD+28 01825000 OPCTOFLK EQU IEDQOPCD+24 01826000 OPCOPTLK EQU IEDQOPCD+20 01827000 OPCDCBLK EQU IEDQOPCD+16 01828000 OPCDOUBL EQU IEDQOPCD 01829000 MODNMNTP EQU MODNEW2 01830000 MODNMNTR EQU MODNEW2 01831000 MODNINTE EQU MODNEW2 01832000 MODNSUBB EQU MODNEW2 01833000 MODNINTO EQU MODNEIBJ 01834000 MODNRLGR EQU MODNEW2 01835000 MODNRERP EQU MODNEW2 01836000 @NM00110 EQU MODNEW2 01837000 MODNCTXT EQU MODNEW1 01838000 MODNEMLC EQU MODNEW1 01839000 MODNITFL EQU MODNEW1 01840000 @NM00109 EQU MODNEW1 01841000 MODNEIBD EQU MODNEW1 01842000 MODNRLGW EQU MODNEW1 01843000 MODNWERP EQU MODNEW1 01844000 @NM00108 EQU MODNEW1 01845000 MODCMNTP EQU MODCUR2 01846000 MODCMNTR EQU MODCUR2 01847000 MODCINTE EQU MODCUR2 01848000 MODCSUBB EQU MODCUR2 01849000 MODCINTO EQU MODCEIBJ 01850000 MODCRLGR EQU MODCUR2 01851000 MODCRERP EQU MODCUR2 01852000 @NM00107 EQU MODCUR2 01853000 MODCCTXT EQU MODCUR1 01854000 MODCEMLC EQU MODCUR1 01855000 MODCITFL EQU MODCUR1 01856000 @NM00106 EQU MODCUR1 01857000 MODCEIBD EQU MODCUR1 01858000 MODCRLGW EQU MODCUR1 01859000 MODCWERP EQU MODCUR1 01860000 @NM00105 EQU MODCUR1 01861000 MODLNG EQU IEDQMOD 01862000 BDUXGRPH EQU BDUEXRSP 01863000 BDUXFINL EQU BDUEXRSP 01864000 BDUXINIT EQU BDUEXRSP 01865000 BDURESP EQU BDUSYRSP 01866000 BDUPHASE EQU BDUSYRSP 01867000 BDUERROR EQU BDUSYRSP 01868000 BDUXERLK EQU BDUBDUFG 01869000 BDUALTAK EQU BDUFNFLG 01870000 BDUNEGAK EQU BDUFNFLG 01871000 BDUPOSAK EQU BDUFNFLG 01872000 BDUTPTX EQU BDUFNFLG 01873000 BDUFRSTB EQU BDUFNFLG 01874000 BDULEADG EQU BDUFNFLG 01875000 BDUSTHDR EQU BDUFNFLG 01876000 SAVTBITN EQU IEDNSVTD+312 01877000 @NM00104 EQU SAVTCKQB+8 01878000 @NM00103 EQU SAVTCKEC+1 01879000 @NM00102 EQU SAVTCKCC 01880000 SAVTCKPO EQU SAVTCKCC 01881000 SAVTCKWA EQU SAVTCKCC 01882000 SAVTCKCH EQU SAVTCKTB+1 01883000 SAVTCKVT EQU SAVTCKTB 01884000 @NM00101 EQU IEDNSVTD+297 01885000 SAVTRDFG EQU SAVTRDRV+12 01886000 @NM00100 EQU SAVTRDRV+5 01887000 SAVTRDPY EQU SAVTRDRV+4 01888000 SAVTRDQB EQU SAVTRDRV+1 01889000 SAVTRDKY EQU SAVTRDRV 01890000 SAVTNID EQU IEDNSVTD+280 01891000 SAVTDVAS EQU IEDNSVTD+276 01892000 SAVTPLSZ EQU IEDNSVTD+274 01893000 @NM00099 EQU IEDNSVTD+273 01894000 SAVTSUBL EQU IEDNSVTD+272 01895000 @NM00098 EQU SAVTZELM+1 01896000 SAVTSUBM EQU SAVTZELM 01897000 SAVTMHDX EQU IEDNSVTD+268 01898000 SAVTNAT1 EQU IEDNSVTD+266 01899000 SAVTSH20 EQU IEDNSVTD+264 01900000 SAVTLCBS EQU IEDNSVTD+260 01901000 SAVTRNMP EQU IEDNSVTD+256 01902000 SAVTTNTX EQU IEDNSVTD+252 01903000 SAVTNAX EQU IEDNSVTD+248 01904000 SAVTSUBV EQU IEDNSVTD+247 01905000 SAVTSUBA EQU IEDNSVTD+246 01906000 SAVTSIBC EQU IEDNSVTD+244 01907000 SAVTBSM EQU IEDNSVTD+240 01908000 SAVTSCPT EQU SAVTTCPU 01909000 SAVTRQTG EQU IEDNSVTD+236 01910000 SAVTRQCH EQU IEDNSVTD+232 01911000 SAVTMAND EQU IEDNSVTD+228 01912000 SAVTSPLN EQU IEDNSVTD+224 01913000 SAVTNADL EQU IEDNSVTD+222 01914000 SAVTNATL EQU IEDNSVTD+220 01915000 SAVTMHTB EQU IEDNSVTD+216 01916000 SAVTSSMH EQU IEDNSVTD+212 01917000 SAVTQRS EQU IEDNSVTD+208 01918000 SAVTRQIN EQU IEDNSVTD+204 01919000 SAVTDFCO EQU IEDNSVTD+200 01920000 SAVTSAO EQU IEDNSVTD+196 01921000 SAVTSARI EQU IEDNSVTD+192 01922000 SAVTSAC EQU IEDNSVTD+188 01923000 SAVTSAI EQU IEDNSVTD+184 01924000 SAVTCSCI EQU IEDNSVTD+180 01925000 SAVTSSRP EQU IEDNSVTD+176 01926000 SAVTSSRQ EQU IEDNSVTD+172 01927000 SAVTSCLU EQU IEDNSVTD+168 01928000 SAVTXTRQ EQU IEDNSVTD+164 01929000 SAVTMVBF EQU IEDNSVTD+160 01930000 @NM00097 EQU IEDNSVTD+148 01931000 SAVTIPCQ EQU IEDNSVTD+144 01932000 @NM00096 EQU IEDNSVTD+136 01933000 SAVTXFMI EQU IEDNSVTD+132 01934000 @NM00095 EQU IEDNSVTD+124 01935000 SAVTXFMO EQU IEDNSVTD+120 01936000 @NM00094 EQU IEDNSVTD+116 01937000 SAVTSSSR EQU IEDNSVTD+112 01938000 SAVTSCPQ EQU IEDNSVTD+108 01939000 SAVTSLCB EQU IEDNSVTD+104 01940000 SAVTLUSR EQU IEDNSVTD+100 01941000 @NM00093 EQU SAVTLUSQ+8 01942000 SAVTLUSP EQU SAVTLUSQ+4 01943000 SAVTLUSB EQU SAVTLUSQ 01944000 @NM00092 EQU IEDNSVTD+84 01945000 SAVTNAT EQU IEDNSVTD+76 01946000 SAVTCLUP EQU IEDNSVTD+72 01947000 SAVTPIUT EQU IEDNSVTD+68 01948000 SAVTRNTA EQU IEDNSVTD+64 01949000 SAVTDNIR EQU IEDNSVTD+60 01950000 SAVTCNIR EQU IEDNSVTD+56 01951000 SAVTFLDH EQU IEDNSVTD+52 01952000 SAVTSRTN EQU IEDNSVTD+48 01953000 SAVTSREQ EQU IEDNSVTD+44 01954000 SAVTFAIL EQU IEDNSVTD+42 01955000 SAVTSUSE EQU IEDNSVTD+40 01956000 SAVTSIB EQU IEDNSVTD+36 01957000 SAVTPRTN EQU IEDNSVTD+32 01958000 @NM00091 EQU IEDNSVTD+28 01959000 SAVTWH20 EQU IEDNSVTD+26 01960000 SAVTPWT EQU IEDNSVTD+24 01961000 SAVTPRTQ EQU IEDNSVTD+20 01962000 SAVTPREQ EQU IEDNSVTD+16 01963000 SAVTPH20 EQU IEDNSVTD+14 01964000 SAVTPUSE EQU IEDNSVTD+12 01965000 SAVTPLCB EQU IEDNSVTD+8 01966000 SAVTPOOL EQU IEDNSVTD+4 01967000 SAVTPRMT EQU SAVTDIAF 01968000 SAVTVIRT EQU SAVTDIAF 01969000 AVTCPBNO EQU IEDQAVTD+1244 01970000 AVTHRESS EQU IEDQAVTD+1243 01971000 @NM00090 EQU IEDQAVTD+1242 01972000 @NM00089 EQU IEDQAVTD+1241 01973000 @NM00088 EQU IEDQAVTD+1240 01974000 @NM00087 EQU IEDQAVTD+1237 01975000 @NM00086 EQU IEDQAVTD+1236 01976000 AVTHRESE EQU @NM00085 01977000 AVTRADDR EQU IEDQAVTD+1228 01978000 AVTNADDR EQU IEDQAVTD+1224 01979000 AVTHRESN EQU IEDQAVTD+1220 01980000 AVTVOLRN EQU IEDQAVTD+1216 01981000 AVTTOTNN EQU IEDQAVTD+1212 01982000 AVTTRCYN EQU IEDQAVTD+1208 01983000 AVTRCTRN EQU IEDQAVTD+1204 01984000 AVTNOVON EQU IEDQAVTD+1200 01985000 AVTADEBN EQU IEDQAVTD+1196 01986000 AVTVOLRR EQU IEDQAVTD+1192 01987000 AVTTOTNR EQU IEDQAVTD+1188 01988000 AVTTRCYR EQU IEDQAVTD+1184 01989000 AVTRCTRR EQU IEDQAVTD+1180 01990000 AVTNOVOR EQU IEDQAVTD+1176 01991000 AVTADEBR EQU IEDQAVTD+1172 01992000 AVTLODPT EQU IEDQAVTD+1168 01993000 AVTIOBN EQU IEDQAVTD+1164 01994000 AVTIOBR EQU IEDQAVTD+1160 01995000 AVTCPBPT EQU IEDQAVTD+1156 01996000 AVTFCPB EQU IEDQAVTD+1152 01997000 @NM00084 EQU IEDQAVTD+1148 01998000 AVTINCPQ EQU IEDQAVTD+1144 01999000 @NM00083 EQU IEDQAVTD+1140 02000000 @NM00082 EQU IEDQAVTD+1137 02001000 @NM00081 EQU AVTBIT4 02002000 @NM00080 EQU AVTBIT4 02003000 @NM00079 EQU AVTBIT4 02004000 @NM00078 EQU AVTBIT4 02005000 @NM00077 EQU AVTBIT4 02006000 @NM00076 EQU AVTBIT4 02007000 @NM00075 EQU AVTBIT4 02008000 AVTRUFTN EQU AVTBIT4 02009000 @NM00074 EQU IEDQAVTD+1132 02010000 AVTNOBFQ EQU IEDQAVTD+1128 02011000 @NM00073 EQU IEDQAVTD+1124 02012000 AVTDKENQ EQU IEDQAVTD+1120 02013000 @NM00072 EQU IEDQAVTD+1116 02014000 AVTDKAPQ EQU IEDQAVTD+1112 02015000 AVTCOPY EQU IEDQAVTD+1108 02016000 AVTIA EQU IEDQAVTD+1104 02017000 AVTFL EQU IEDQAVTD+1100 02018000 @NM00071 EQU IEDQAVTD+1096 02019000 AVTNCPBQ EQU IEDQAVTD+1092 02020000 AVTTOTNC EQU IEDQAVTD+1088 02021000 AVTCMAX EQU IEDQAVTD+1084 02022000 AVTCMIN EQU IEDQAVTD+1080 02023000 AVTHM02 EQU IEDQAVTD+1076 02024000 AVTOPCIN EQU IEDQAVTD+1074 02025000 AVTDCTLN EQU IEDQAVTD+1072 02026000 AVTOPMSK EQU IEDQAVTD+1068 02027000 AVTSTEAL EQU IEDQAVTD+1060 02028000 AVTOPTN EQU IEDQAVTD+1056 02029000 AVTDSKCT EQU IEDQAVTD+1054 02030000 AVTCKRST EQU IEDQAVTD+1053 02031000 AVTSTAN EQU AVTBIT3 02032000 AVTSTACN EQU AVTBIT3 02033000 AVTSTAIN EQU AVTBIT3 02034000 AVTSTAYN EQU AVTBIT3 02035000 AVTOLTBN EQU AVTBIT3 02036000 AVTTSAB EQU AVTBIT3 02037000 AVTRFULN EQU AVTBIT3 02038000 AVTRECVN EQU AVTBIT3 02039000 @NM00070 EQU AVTBIT2 02040000 @NM00069 EQU AVTBIT2 02041000 AVTOPEIN EQU AVTBIT2 02042000 AVTSTRTN EQU AVTBIT2 02043000 AVTTOPOL EQU AVTBIT2 02044000 AVTCOPYN EQU AVTBIT2 02045000 AVTREUSN EQU AVTBIT2 02046000 AVTEXTSC EQU AVTBIT2 02047000 AVTDISKN EQU AVTBIT1 02048000 AVTQUCKN EQU AVTBIT1 02049000 AVTCLOSN EQU AVTBIT1 02050000 AVTREADN EQU AVTBIT1 02051000 AVTDLAYN EQU AVTBIT1 02052000 AVTAQTAN EQU AVTBIT1 02053000 AVTTSON EQU AVTBIT1 02054000 AVTAPLKN EQU AVTBIT1 02055000 AVTDUMBR EQU IEDQAVTD+1048 02056000 AVTDLQX EQU IEDQAVTD+1046 02057000 AVTINTLV EQU IEDQAVTD+1044 02058000 AVTSMCNT EQU IEDQAVTD+1042 02059000 AVTAVFCT EQU IEDQAVTD+1040 02060000 AVTOPCON EQU IEDQAVTD+1038 02061000 AVTOPCNT EQU IEDQAVTD+1036 02062000 AVTLNCNT EQU IEDQAVTD+1034 02063000 AVTKEYLE EQU IEDQAVTD+1032 02064000 AVTHA16 EQU IEDQAVTD+1030 02065000 AVTHA7 EQU IEDQAVTD+1028 02066000 AVTHA4 EQU IEDQAVTD+1026 02067000 AVTHA3 EQU IEDQAVTD+1024 02068000 AVTHA2 EQU IEDQAVTD+1022 02069000 AVTGETMS EQU IEDQAVTD+1021 02070000 @NM00068 EQU IEDQAVTD+1020 02071000 AVTGETMD EQU IEDQAVTD+1016 02072000 AVTGETMN EQU IEDQAVTD+1012 02073000 AVTCWTOT EQU IEDQAVTD+1008 02074000 AVTCWINT EQU IEDQAVTD+956 02075000 AVTDTRAP EQU IEDQAVTD+952 02076000 @NM00067 EQU IEDQAVTD+950 02077000 @NM00066 EQU AVTIOTR 02078000 AVTIOTRH EQU AVTIOTR 02079000 AVTIOTRE EQU AVTIOTR 02080000 @NM00065 EQU AVTSUBT 02081000 AVTSUBPT EQU AVTSUBT 02082000 AVTSUBON EQU AVTSUBT 02083000 AVTAFE30 EQU IEDQAVTD+944 02084000 AVTAFE20 EQU IEDQAVTD+940 02085000 AVTAFE10 EQU IEDQAVTD+936 02086000 AVTCWEC2 EQU IEDQAVTD+932 02087000 AVTCWPM2 EQU IEDQAVTD+928 02088000 AVTCWTS2 EQU IEDQAVTD+927 02089000 AVTCWTS1 EQU IEDQAVTD+926 02090000 AVTCWCLD EQU AVTCWFL2 02091000 AVTCWRAP EQU AVTCWFL2 02092000 @NM00064 EQU AVTCWFL2 02093000 @NM00063 EQU AVTCWFL2 02094000 @NM00062 EQU AVTCWFL2 02095000 @NM00061 EQU AVTCWFL2 02096000 @NM00060 EQU AVTCWFL2 02097000 AVTCWACT EQU AVTCWFL2 02098000 @NM00059 EQU AVTCWFL1 02099000 @NM00058 EQU AVTCWFL1 02100000 @NM00057 EQU AVTCWFL1 02101000 @NM00056 EQU AVTCWFL1 02102000 @NM00055 EQU AVTCWFL1 02103000 @NM00054 EQU AVTCWFL1 02104000 @NM00053 EQU AVTCWFL1 02105000 AVTCOMWN EQU AVTCWFL1 02106000 AVTCWEC1 EQU IEDQAVTD+920 02107000 AVTCWPM1 EQU IEDQAVTD+916 02108000 AVTCAREA EQU IEDQAVTD+912 02109000 AVTFZERO EQU IEDQAVTD+908 02110000 AVTCADDR EQU IEDQAVTD+904 02111000 AVTCOREC EQU IEDQAVTD+900 02112000 @NM00052 EQU IEDQAVTD+892 02113000 AVTCPBCB EQU IEDQAVTD+888 02114000 @NM00051 EQU IEDQAVTD+880 02115000 AVTDSIOB EQU IEDQAVTD+876 02116000 @NM00050 EQU IEDQAVTD+868 02117000 AVTCPRMB EQU IEDQAVTD+864 02118000 @NM00049 EQU IEDQAVTD+856 02119000 AVTCLOSB EQU IEDQAVTD+852 02120000 @NM00048 EQU IEDQAVTD+844 02121000 AVTACTIB EQU IEDQAVTD+840 02122000 @NM00047 EQU IEDQAVTD+836 02123000 AVTOLTEB EQU IEDQAVTD+832 02124000 AVTOLTCH EQU AVTOLTQB+1 02125000 AVTOLTVT EQU AVTOLTQB 02126000 @NM00046 EQU AVTOPCQB+8 02127000 @NM00045 EQU AVTOPCEC+1 02128000 @NM00044 EQU AVTOPCCC 02129000 AVTOPCPO EQU AVTOPCCC 02130000 AVTOPCWA EQU AVTOPCCC 02131000 AVTOPCCH EQU AVTOPCOB+1 02132000 AVTOPCVT EQU AVTOPCOB 02133000 @NM00043 EQU AVTCKPQB+9 02134000 AVTCKPTS EQU AVTCKPQB+8 02135000 @NM00042 EQU AVTCKPEC+1 02136000 @NM00041 EQU AVTCKPCC 02137000 AVTCKPPO EQU AVTCKPCC 02138000 AVTCKPWA EQU AVTCKPCC 02139000 AVTCKPCH EQU AVTCKPTB+1 02140000 AVTCKPVT EQU AVTCKPTB 02141000 @NM00040 EQU IEDQAVTD+796 02142000 AVTBFRTB EQU IEDQAVTD+792 02143000 @NM00039 EQU IEDQAVTD+784 02144000 AVTBFREB EQU IEDQAVTD+780 02145000 AVTTIMQ EQU IEDQAVTD+776 02146000 @NM00038 EQU IEDQAVTD+772 02147000 AVTIMQPS EQU IEDQAVTD+768 02148000 AVTINOUT EQU IEDQAVTD+766 02149000 AVTREFTM EQU IEDQAVTD+764 02150000 @NM00037 EQU IEDQAVTD+752 02151000 AVTDELYB EQU IEDQAVTD+748 02152000 AVTOCQPT EQU IEDQAVTD+744 02153000 AVTTSOPT EQU IEDQAVTD+740 02154000 AVTSUPPT EQU IEDQAVTD+736 02155000 AVTCBQCB EQU IEDQAVTD+732 02156000 AVTMSGS EQU IEDQAVTD+729 02157000 @NM00036 EQU AVTSYSER 02158000 @NM00035 EQU AVTSYSER 02159000 @NM00034 EQU AVTSYSER 02160000 @NM00033 EQU AVTSYSER 02161000 @NM00032 EQU AVTSYSER 02162000 @NM00031 EQU AVTSYSER 02163000 AVTCMAXN EQU AVTSYSER 02164000 AVTCMINN EQU AVTSYSER 02165000 AVT2260L EQU IEDQAVTD+724 02166000 AVTABEPL EQU AVTADBUF 02167000 AVTHFF EQU AVTCLRHI+2 02168000 @NM00030 EQU AVTCLRHI 02169000 AVTCCLNK EQU AVTCRELE+5 02170000 AVTCCPRI EQU AVTCRELE+4 02171000 AVTCCQCB EQU AVTCCELE+1 02172000 AVTCCKEY EQU AVTCCELE 02173000 AVTDELAD EQU IEDQAVTD+704 02174000 AVTDELEM EQU IEDQAVTD+700 02175000 AVTBSX EQU AVTCKLNK 02176000 AVTOPETR EQU AVTHG01 02177000 @NM00029 EQU AVTCKBYT 02178000 AVTCKONQ EQU AVTCKBYT 02179000 @NM00028 EQU AVTCKBYT 02180000 @NM00027 EQU AVTCKBYT 02181000 @NM00026 EQU AVTCKBYT 02182000 @NM00025 EQU AVTCKBYT 02183000 @NM00024 EQU AVTCKBYT 02184000 @NM00023 EQU AVTCKBYT 02185000 AVTOPERT EQU IEDQAVTD+690 02186000 AVTOPXCL EQU IEDQAVTD+688 02187000 AVTOPERL EQU IEDQAVTD+687 02188000 @NM00022 EQU IEDQAVTD+686 02189000 AVTCKTIM EQU IEDQAVTD+684 02190000 AVTCKELV EQU IEDQAVTD+682 02191000 AVTCPRCD EQU IEDQAVTD+681 02192000 AVTWARMN EQU AVTCKELF 02193000 AVTCRTLN EQU AVTCKELF 02194000 AVTCPIPN EQU AVTCKELF 02195000 AVTCCLCN EQU AVTCKELF 02196000 AVTCINCN EQU AVTCKELF 02197000 @NM00021 EQU AVTCKELF 02198000 AVTCMCPN EQU AVTCKELF 02199000 AVTNQBCK EQU AVTCKELF 02200000 AVTCKQAD EQU IEDQAVTD+677 02201000 AVTSCBSZ EQU IEDQAVTD+676 02202000 @NM00020 EQU IEDQAVTD+672 02203000 AVTCKELE EQU IEDQAVTD+668 02204000 @NM00019 EQU AVTCKPEL+8 02205000 AVTCKRLK EQU AVTCKPEL+5 02206000 AVTCKRPR EQU AVTCKPEL+4 02207000 AVTCKRMQ EQU AVTCKRMV+1 02208000 AVTCKRKY EQU AVTCKRMV 02209000 AVTHK EQU IEDQAVTD+648 02210000 AVTHI EQU IEDQAVTD+644 02211000 AVTIOT EQU IEDQAVTD+640 02212000 AVTNX EQU IEDQAVTD+636 02213000 AVTTONE EQU IEDQAVTD+632 02214000 AVTA3TL EQU IEDQAVTD+628 02215000 AVTDMECB EQU IEDQAVTD+624 02216000 AVTABEND EQU IEDQAVTD+618 02217000 AVTPLCBN EQU IEDQAVTD+616 02218000 @NM00018 EQU AVTSAVTP+1 02219000 @NM00017 EQU AVTSAVTF 02220000 AVTSNA EQU AVTSAVTF 02221000 AVTONSNA EQU AVTSAVTF 02222000 AVTVTMCP EQU AVTSAVTF 02223000 @NM00016 EQU IEDQAVTD+608 02224000 AVTCMBSS EQU IEDQAVTD+604 02225000 AVTRCV EQU IEDQAVTD+600 02226000 AVTSEND EQU IEDQAVTD+596 02227000 AVTCSCH EQU IEDQAVTD+592 02228000 AVTQ1 EQU IEDQAVTD+588 02229000 AVTE7 EQU IEDQAVTD+584 02230000 AVTHB EQU IEDQAVTD+580 02231000 AVTR1 EQU IEDQAVTD+576 02232000 AVTBZ EQU IEDQAVTD+572 02233000 AVTEZ EQU IEDQAVTD+568 02234000 AVTEC EQU IEDQAVTD+564 02235000 AVTEW EQU IEDQAVTD+560 02236000 AVTNDIAL EQU AVTSCOPT 02237000 AVTN2741 EQU AVTSCOPT 02238000 AVTCONCO EQU AVTSCOPT 02239000 AVTCONC EQU AVTSCOPT 02240000 AVTCMBUF EQU AVTSCOPT 02241000 AVTAPDMP EQU AVTSCOPT 02242000 @NM00015 EQU AVTSCOPT 02243000 AVTHA EQU AVTDISP 02244000 AVTEA EQU IEDQAVTD+548 02245000 AVTAX EQU IEDQAVTD+544 02246000 AVTA3 EQU IEDQAVTD+540 02247000 AVTGD EQU IEDQAVTD+536 02248000 AVTAL EQU IEDQAVTD+532 02249000 AVTOLTST EQU AVTHG02 02250000 AVTE8 EQU IEDQAVTD+524 02251000 AVTUI EQU IEDQAVTD+520 02252000 AVTCOMPT EQU IEDQAVTD+516 02253000 AVTCRSRF EQU IEDQAVTD+512 02254000 @NM00014 EQU IEDQAVTD+508 02255000 AVTKA02 EQU IEDQAVTD+504 02256000 AVTOPTPT EQU IEDQAVTD+500 02257000 AVTPCBPT EQU IEDQAVTD+496 02258000 @NM00013 EQU AVTECB1 02259000 AVTCOMP EQU AVTECB1 02260000 @NM00012 EQU AVTECB1 02261000 AVTOPECA EQU IEDQAVTD+488 02262000 AVTOLECA EQU IEDQAVTD+484 02263000 AVTCKECA EQU IEDQAVTD+480 02264000 AVTCWECA EQU IEDQAVTD+476 02265000 AVTCWTCB EQU IEDQAVTD+472 02266000 AVTOLTCB EQU IEDQAVTD+468 02267000 AVTOCTCB EQU IEDQAVTD+464 02268000 AVTCKTCB EQU IEDQAVTD+460 02269000 AVTAS EQU IEDQAVTD+456 02270000 AVTNCKPR EQU IEDQAVTD+453 02271000 AVTCIB EQU IEDQAVTD+452 02272000 AVTSPLPT EQU IEDQAVTD+448 02273000 AVTMVBFR EQU IEDQAVTD+444 02274000 AVTSBTA EQU IEDQAVTD+440 02275000 AVTRARTN EQU IEDQAVTD+436 02276000 AVTBSCAN EQU IEDQAVTD+432 02277000 AVTRDYA EQU IEDQAVTD+428 02278000 AVTDISTR EQU IEDQAVTD+420 02279000 AVTPARM3 EQU IEDQAVTD+416 02280000 @NM00011 EQU AVTPKF 02281000 @NM00010 EQU AVTPKF 02282000 @NM00009 EQU AVTPKF 02283000 AVTFTCHF EQU AVTPKF 02284000 @NM00008 EQU AVTPKF 02285000 @NM00007 EQU AVTPKF 02286000 @NM00006 EQU AVTPKF 02287000 @NM00005 EQU AVTPKF 02288000 AVTPARM EQU IEDQAVTD+408 02289000 AVTEXS2A EQU IEDQAVTD+402 02290000 AVTEXA2S EQU IEDQAVTD+396 02291000 AVTOCGET EQU IEDQAVTD+392 02292000 AVTCKAVT EQU @NM00003+1 02293000 @NM00004 EQU AVTCKFLG 02294000 AVTCKHLT EQU AVTCKFLG 02295000 AVTCKREQ EQU AVTCKFLG 02296000 AVTCKENV EQU AVTCKFLG 02297000 AVTCKNAC EQU AVTCKFLG 02298000 AVTCKTAC EQU AVTCKFLG 02299000 @NM00002 EQU IEDQAVTD+384 02300000 AVTREADD EQU IEDQAVTD+380 02301000 AVTREADY EQU IEDQAVTD+376 02302000 AVTRACE EQU IEDQAVTD+372 02303000 AVTTCB EQU IEDQAVTD+368 02304000 AVTPASWD EQU IEDQAVTD+360 02305000 AVTCTLCH EQU IEDQAVTD+352 02306000 AVTDOUBL EQU IEDQAVTD+344 02307000 AVTDOUBX EQU IEDQAVTD+336 02308000 AVTDPARM EQU IEDQAVTD+332 02309000 AVTCSTCS EQU IEDQAVTD+328 02310000 AVTDLQ EQU AVTSAVEX+32 02311000 @NM00001 EQU AVTSAVEX 02312000 AVTSAVE4 EQU IEDQAVTD+216 02313000 AVTSAVE3 EQU IEDQAVTD+144 02314000 AVTSAVE2 EQU IEDQAVTD+72 02315000 AVTSAVE1 EQU IEDQAVTD 02316000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02317000 @RC00534 EQU @RC00533 02318000 @RC00546 EQU @RC00544 02319000 @RC00638 EQU @RC00637 02320000 @RC00753 EQU @EL00002 02321000 @RC00554 EQU @RC00546 02322000 @ENDDATA EQU * 02323000 END IGCFL10D,(C'PLS0452',0701,77118) 02324000