TITLE 'IEDNCU, 3705 RESIDENT CLEANUP FIRST LOAD *00001000 ' 00002000 IEDNCU CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 * /* 00005000 * TCAM RESIDENT CLEANUP QCB - 3 WORDS 00006000 * 00007000 DC A(0) ELEMENT CHAIN 00008000 DC A(0) LINK 00009000 DC AL1(06) STCB VTO 00010000 DC AL3(*-1) STCB POINTER 00011000 * RBASE=RQCB; /* SET THE CODE BASE REGISTER 00012000 * WITH THE ENTRY POINT ADDRESS 00013000 * OF THE MODULE @YM06876*/ 00014000 LR RBASE,RQCB 02S0580 00015000 * GEN REFS(RBASE) NOSETS; 02S0581 00016000 * /* 00017000 USING IEDNCU,RBASE INFORM THE ASSEMBLER OF THE 00018000 * BASE REGISTER TO BE USED FOR 00019000 * ADDRESSING CODE 00020000 * GEN NOREFS NOSETS; 02S0582 00021000 * /* 00022000 IEDNCU IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00023000 * RFY 02S0583 00024000 * RQCB UNRSTD; /* RELEASE THE REGISTER 02S0583 00025000 * RESTRICTED AT ENTRY TO THE 00026000 * MODULE THAT WAS USED TO 02S0583 00027000 * CONTAIN THE ENTRY POINT 02S0583 00028000 * ADDRESS OF THE MODULE */ 00029000 * 02S0584 00030000 * /*****************************************************************/ 00031000 * /* */ 00032000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00033000 * /* PERFORM THE FUNCTION OF THE MODULE. ON INPUT R1 = ADDRESS OF */ 00034000 * /* ELEMENT PASSED, R11 = ADDRESS OF DISPATCH BASE, R13 = ADDRESS */ 00035000 * /* OF AVTSAVE2. */ 00036000 * /* */ 00037000 * /*****************************************************************/ 00038000 * 02S0584 00039000 * IF RPARM->PRFPRI=PRIOUTQ THEN /* IS INPUT ELEMENT A STRING OF 00040000 * PIUS FROM DLC */ 00041000 CLI PRFPRI(RPARM),X'E0' 02S0584 00042000 BNE @RF00584 02S0584 00043000 * DO; 02S0585 00044000 * RFY 02S0586 00045000 * RCHAIN RSTD; 02S0586 00046000 * RCUR=ADDR(LOCALCUR); /* USE LOCAL CUR */ 00047000 LA RCUR,LOCALCUR 02S0587 00048000 * LOCALCUR=''B; /* INITIALIZE LOCAL CUR @YM07816*/ 00049000 XC LOCALCUR(44),LOCALCUR 02S0588 00050000 * CURKEY=LOCALKEY; /* MARK AS LOCAL CUR */ 00051000 MVI CURKEY(RCUR),X'C0' 02S0589 00052000 * CURNEWBF=PRFINTIC; /* INITIALIZE BFR QUEUE TO 02S0590 00053000 * INVALID TIC @YM07816*/ 00054000 L @10,@CF02298 02S0590 00055000 ST @10,CURNEWBF(,RCUR) 02S0590 00056000 * CURPIUPC=PRFINTIC; /* INITIALIZE PIU QUEUE TO 02S0591 00057000 * INVALID TIC @YM07816*/ 00058000 ST @10,CURPIUPC(,RCUR) 02S0591 00059000 * RCHAIN=RPARM; /* CHAIN TO PROCESS */ 00060000 LR RCHAIN,RPARM 02S0592 00061000 * RPARM->PRFLINK=AVTDELAD; /* SIGNAL ONLY PIU AS LAST 02S0593 00062000 * @YM07412*/ 00063000 MVC PRFLINK(3,RPARM),AVTDELAD+1(RAVT) 02S0593 00064000 * CALL PIUCHAIN; 02S0594 00065000 BAL @14,PIUCHAIN 02S0594 00066000 * RFY 02S0595 00067000 * RCHAIN UNRSTD; 02S0595 00068000 * END; 02S0596 00069000 * ELSE 02S0597 00070000 * DO; 02S0597 00071000 * 02S0597 00072000 B @RC00584 02S0597 00073000 @RF00584 DS 0H 02S0598 00074000 * /*************************************************************/ 00075000 * /* */ 00076000 * /* ASSUME CLEANUP OR LCB CLEANUP REQUEST ELEMENT INPUT */ 00077000 * /* */ 00078000 * /*************************************************************/ 00079000 * 02S0598 00080000 * RFY 02S0598 00081000 * RTRM RSTD; 02S0598 00082000 * RCUR=RPARM; /* CUR BASE */ 00083000 LR RCUR,RPARM 02S0599 00084000 * CURNEWBF=PRFINTIC; /* INITIALIZE BFR QUEUE TO 02S0600 00085000 * INVALID TIC @YM07288*/ 00086000 L @10,@CF02298 02S0600 00087000 ST @10,CURNEWBF(,RCUR) 02S0600 00088000 * CURPIUPC=PRFINTIC; /* INITIALIZE PIU QUEUE TO 02S0601 00089000 * INVALID TIC @YM07288*/ 00090000 ST @10,CURPIUPC(,RCUR) 02S0601 00091000 * RTRM=CURTRM-LENGTH(IEDNTRM);/* INITIALIZE TTE BASE */ 00092000 L RTRM,CURTRM(,RCUR) 02S0602 00093000 SL RTRM,@CF02759 02S0602 00094000 * IF CURPRI=PRICUREQ THEN /* IF CLEANUP REQUEST ELEMENT */ 00095000 CLI CURPRI(RCUR),X'C4' 02S0603 00096000 BNE @RF00603 02S0603 00097000 * IF CURSWCH=CURFDACT THEN /* IF FORCE DEACTIVATE REQUEST */ 00098000 CLI CURSWCH(RCUR),X'37' 02S0604 00099000 BNE @RF00604 02S0604 00100000 * DO; 02S0605 00101000 * 03S0606 00102000 * /*******************************************************/ 00103000 * /* */ 00104000 * /* PROCESS.FORCDACT: THIS SEGMENT PROCESSES FORCE */ 00105000 * /* DEACTIVATE CLEANUP ELEMENTS USING STATUS ANALYSIS */ 00106000 * /* SUBROUTINE LOCATED IN IEDNCU2 */ 00107000 * /* */ 00108000 * /*******************************************************/ 00109000 * 03S0606 00110000 * RFY 03S0606 00111000 * REG15 RSTD; 03S0606 00112000 * RPARM=RTRM; /* TRM ADDRESS OF DEVICE TO 03S0607 00113000 * ANALYZE @YM07132*/ 00114000 LR RPARM,RTRM 03S0607 00115000 * CURFAILT=CURTTCIN; /* TTCIN OF FAILING RESOURCE */ 00116000 LH @14,CURTTCIN(,RCUR) 03S0608 00117000 STH @14,CURFAILT(,RCUR) 03S0608 00118000 * CALL STATANAL; 03S0609 00119000 L @15,IEDNCU2 03S0609 00120000 BALR @14,@15 03S0609 00121000 * IF REG15=0 THEN /* IF NO BUFFERS FOR STATUS 03S0610 00122000 * ANALYSIS */ 00123000 LTR REG15,REG15 03S0610 00124000 BNZ @RF00610 03S0610 00125000 * CUREPOST=ON; /* REQUEST REPOST */ 00126000 OI CUREPOST(RCUR),B'10000000' 03S0611 00127000 * RFY 03S0612 00128000 * REG15 UNRSTD; 03S0612 00129000 @RF00610 DS 0H 03S0613 00130000 * END; 02S0613 00131000 * ELSE 02S0614 00132000 * DO; 02S0614 00133000 B @RC00604 02S0614 00134000 @RF00604 DS 0H 02S0615 00135000 * 03S0615 00136000 * /*******************************************************/ 00137000 * /* */ 00138000 * /* PROCESS.CUREQELM: THIS SEGMENT DOES QUEUE CLEANUP */ 00139000 * /* AND TRM,LCB, AND SIB ANALYSIS */ 00140000 * /* */ 00141000 * /*******************************************************/ 00142000 * 03S0615 00143000 * RFY 03S0615 00144000 * RLCB RSTD; 03S0615 00145000 * IF TRMTYPE=TRMLNCP /* IF NCP AND ... */ 00146000 * &CURSWCH=CURCINOP /* ... INOP AND ... */ 00147000 * &CURFIRST=OFF THEN/* ... FIRST ENTRY */ 00148000 CLI TRMTYPE(RTRM),X'0F' 03S0616 00149000 BNE @RF00616 03S0616 00150000 CLI CURSWCH(RCUR),X'38' 03S0616 00151000 BNE @RF00616 03S0616 00152000 TM CURFIRST(RCUR),B'00100000' 03S0616 00153000 BNZ @RF00616 03S0616 00154000 * DO; 03S0617 00155000 * RLCB=DCBIOBAD+DCBEIOBX-LCBPRFSZ;/* 3705 LCB ADDRESS*/ 00156000 SLR @10,@10 03S0618 00157000 ICM @10,7,TRMDESTQ(RTRM) 03S0618 00158000 LA @09,20 03S0618 00159000 L @10,QCBDCBAD-1(,@10) 03S0618 00160000 LA @10,0(,@10) 03S0618 00161000 ALR @09,@10 03S0618 00162000 SLR RLCB,RLCB 03S0618 00163000 IC RLCB,DCBEIOBX(,@09) 03S0618 00164000 AL RLCB,DCBIOBAD(,@09) 03S0618 00165000 SL RLCB,@CF00626 03S0618 00166000 * CURFIRST=ON; /* SET NOT FIRST ENTRY */ 00167000 OI CURFIRST(RCUR),B'00100000' 03S0619 00168000 * IF TRMRSACT=OFF /* IF NOT ACTIVE AND ... */ 00169000 * &TRMINPG=OFF THEN 03S0620 00170000 TM TRMRSACT(RTRM),B'10100000' 03S0620 00171000 BZ @RT00620 03S0620 00172000 * ; /* ... ACTIVE NOT PENDING - DO 00173000 * NOTHING */ 00174000 * ELSE 03S0622 00175000 * DO; 03S0622 00176000 @RF00620 DS 0H 03S0623 00177000 * IF LCBCQELE^=AVTDELAD THEN/* IF CORE QUEUE 00178000 * CONTAINS PIUS @YM07412*/ 00179000 L @10,LCBCQELE(,RLCB) 03S0623 00180000 L @09,AVTDELAD(,RAVT) 03S0623 00181000 CR @10,@09 03S0623 00182000 BE @RF00623 03S0623 00183000 * DO; 03S0624 00184000 * RFY 03S0625 00185000 * RCHAIN RSTD; 03S0625 00186000 * RCHAIN=LCBCQELE;/* PIU CHAIN TO RESPOND */ 00187000 LR RCHAIN,@10 03S0626 00188000 * LCBCQELE=AVTDELAD;/* CLEAR PIU CHAIN 03S0627 00189000 * @YM09017*/ 00190000 ST @09,LCBCQELE(,RLCB) 03S0627 00191000 * CALL PIUCHAIN; 03S0628 00192000 BAL @14,PIUCHAIN 03S0628 00193000 * RFY 03S0629 00194000 * RCHAIN UNRSTD; 03S0629 00195000 * END; 03S0630 00196000 * IF CURPIUPC^=PRFINTIC THEN/* IF ANY BTU FOR 00197000 * PATH CONTROL INBOUND @YM07312*/ 00198000 @RF00623 CLC CURPIUPC(4,RCUR),@CF02298 03S0631 00199000 BE @RF00631 03S0631 00200000 * CUREPOST=ON;/* REQUEST RETURN POST */ 00201000 OI CUREPOST(RCUR),B'10000000' 03S0632 00202000 * END; 03S0633 00203000 @RF00631 DS 0H 03S0634 00204000 * END; 03S0634 00205000 @RT00620 DS 0H 03S0635 00206000 * IF CUREPOST=ON THEN 03S0635 00207000 @RF00616 TM CUREPOST(RCUR),B'10000000' 03S0635 00208000 BO @RT00635 03S0635 00209000 * ; /* EXIT IF REPOST REQUESTED */ 00210000 * ELSE 03S0637 00211000 * DO; 03S0637 00212000 * 04S0638 00213000 * /***************************************************/ 00214000 * /* */ 00215000 * /* PROCESS.CUREQELM.HIERACH: THIS SEGMENT ANALYZES */ 00216000 * /* STATUS OF ALL DEVICES IN EFFECTED HIERARCHY */ 00217000 * /* */ 00218000 * /***************************************************/ 00219000 * 04S0638 00220000 * RFY 04S0638 00221000 * REG15 RSTD; 04S0638 00222000 * IF TRMSUBST=0 THEN/* IF LOWEST DEVICE IN HIERACHY */ 00223000 LH @14,TRMSUBST(,RTRM) 04S0639 00224000 N @14,@CF03088 04S0639 00225000 LTR @14,@14 04S0639 00226000 BNZ @RF00639 04S0639 00227000 * DO; 04S0640 00228000 * RPARM=RTRM; /* TRM ADDRESS OF DEVICE TO CHECK 00229000 * @YM07312*/ 00230000 LR RPARM,RTRM 04S0641 00231000 * CURFAILT=CURTTCIN; 04S0642 00232000 LH @14,CURTTCIN(,RCUR) 04S0642 00233000 STH @14,CURFAILT(,RCUR) 04S0642 00234000 * CALL STATANAL; 04S0643 00235000 L @15,IEDNCU2 04S0643 00236000 BALR @14,@15 04S0643 00237000 * IF REG15=0 THEN/* IF NO BUFFERS AVAILABLE FOR 00238000 * STATUS ANALYSIS */ 00239000 LTR REG15,REG15 04S0644 00240000 BNZ @RF00644 04S0644 00241000 * CUREPOST=ON;/* REQUEST REPOST */ 00242000 OI CUREPOST(RCUR),B'10000000' 04S0645 00243000 * END; 04S0646 00244000 * ELSE /* NOT LOWEST */ 00245000 * DO; 04S0647 00246000 B @RC00639 04S0647 00247000 @RF00639 DS 0H 04S0648 00248000 * 05S0648 00249000 * /***********************************************/ 00250000 * /* */ 00251000 * /* PROCESS.CUREQELM.HIERACH.CHECK.COHST: THIS */ 00252000 * /* SEGMENT CHECKS ALL DEVICES IN THE HIERARCHY */ 00253000 * /* FOR PENDING ACTIVITY */ 00254000 * /* */ 00255000 * /***********************************************/ 00256000 * 05S0648 00257000 * RFY 05S0648 00258000 * (REG00, 05S0648 00259000 * RRVT, 05S0648 00260000 * RSAT, 05S0648 00261000 * RNUM, 05S0648 00262000 * REG15) RSTD;/* @YM09022*/ 00263000 * CALL SUBST0; 05S0649 00264000 BAL @14,SUBST0 05S0649 00265000 * DO WHILE(CURNXTRC^=CURTTCIN/* CONTINUE UNTIL 00266000 * NEXT HIGHER RESOURCE = THE 00267000 * FAILING DEVICE ... */ 00268000 * &CUREPOST=OFF/* ... AND REPOST IS NOT 00269000 * REQUESTED... @YM07310*/ 00270000 * &CURNCURE=OFF);/* ... AND POST TO OP CTL 00271000 * NOT REQUESTED @YM07310*/ 00272000 B @DE00650 05S0650 00273000 @DL00650 DS 0H 05S0651 00274000 * RPARM=RTRM+LENGTH(IEDNTRM);/* TRM BASE FOR 00275000 * ROUTINE */ 00276000 LA RPARM,14 05S0651 00277000 ALR RPARM,RTRM 05S0651 00278000 * CURSAVE=RCUR;/* SAVE CUR POINTER ACROSS CALL */ 00279000 ST RCUR,CURSAVE 05S0652 00280000 * RCUR=AVTOCGET;/* OPCAVT ADDRESS FOR CALL */ 00281000 L @14,AVTOCGET(,RAVT) 05S0653 00282000 LR RCUR,@14 05S0653 00283000 * CALL COHORTLK; 05S0654 00284000 L @15,OPCHORT(,@14) 05S0654 00285000 BALR @14,@15 05S0654 00286000 * RCUR=CURSAVE;/* RESTORE CUR POINTER */ 00287000 L RCUR,CURSAVE 05S0655 00288000 * CURNXTRC=REG00;/* SAVE TTCIN OF NEXT HIGHER 00289000 * RESOURCE */ 00290000 STH REG00,CURNXTRC(,RCUR) 05S0656 00291000 * RPARM=RTRM; /* TRM BASE TO CHECK @YM07312*/ 00292000 LR RPARM,RTRM 05S0657 00293000 * CALL STATANAL; 05S0658 00294000 L @15,IEDNCU2 05S0658 00295000 BALR @14,@15 05S0658 00296000 * IF REG15=0 THEN/* IF NO BUFFERS AVAILABLE FOR 00297000 * STATUS ANALYSIS */ 00298000 LTR REG15,REG15 05S0659 00299000 BNZ @RF00659 05S0659 00300000 * CUREPOST=ON;/* REQUEST REPOST */ 00301000 OI CUREPOST(RCUR),B'10000000' 05S0660 00302000 * ELSE /* ELSE SPECIAL DIAL LINE 05S0661 00303000 * PROCESSING @YM08536*/ 00304000 * IF TRMTYPE=TRMNSDLC&/* IS THIS A PRE-SNA 00305000 * LINE ENTRY @YM08536*/ 00306000 * TRMDIAL=ON&/* FOR A DIAL LINE @YM08536*/ 00307000 * CURDIAL=OFF THEN/* AND THE RVT HAS NOT 00308000 * BEEN SCANNED @YM08536*/ 00309000 B @RC00659 05S0661 00310000 @RF00659 CLI TRMTYPE(RTRM),X'20' 05S0661 00311000 BNE @RF00661 05S0661 00312000 TM TRMDIAL(RTRM),B'00001000' 05S0661 00313000 BNO @RF00661 05S0661 00314000 TM CURDIAL(RCUR),B'00001000' 05S0661 00315000 BNZ @RF00661 05S0661 00316000 * DO; /* THEN PROCESS RVT FOR DIAL 00317000 * TERMINAL ENTRIES NOT CURRENTLY 00318000 * IN THE HIERARCHY @YM08536*/ 00319000 * RPARM=CURFAILT;/* GET LINE TTE INDEX 00320000 * @YM08536*/ 00321000 LH @14,CURFAILT(,RCUR) 05S0663 00322000 LR RPARM,@14 05S0663 00323000 * SAVFAILT=CURFAILT;/* SAVE CURRENT TNT 00324000 * INDEX @YM08536*/ 00325000 STH @14,SAVFAILT 05S0664 00326000 * SAVTRM=RTRM;/* SAVE CURRENT TERMINAL 00327000 * ENTRY @YM08536*/ 00328000 ST RTRM,SAVTRM 05S0665 00329000 * CALL IEDIAP04;/* CONVERT TO NETWORK 00330000 * ADDRESS @YM08536*/ 00331000 L @10,AVTSAVTP(,RAVT) 05S0666 00332000 L @15,SAVTTNTX(,@10) 05S0666 00333000 BALR @14,@15 05S0666 00334000 * RPARM=(8*LENGTH(SAVTZELM))-SAVTSUBL;/* 00335000 * GET NUMBER OF BITS IN THE 00336000 * ELEMENT PORTION OF THE NETWORK 00337000 * ADDRESS @YM08536*/ 00338000 L @14,AVTSAVTP(,RAVT) 05S0667 00339000 LA RPARM,16 05S0667 00340000 SLR @10,@10 05S0667 00341000 IC @10,SAVTSUBL(,@14) 05S0667 00342000 SLR RPARM,@10 05S0667 00343000 * SRL(REG15,RPARM);/* ISOLATE SUBAREA AS 00344000 * AN INDEX @YM08536*/ 00345000 SRL REG15,0(RPARM) 05S0668 00346000 * RSAT=SAVTSAT+((REG15-1)*LENGTH(IEDSATD)); 00347000 LR RSAT,REG15 05S0669 00348000 BCTR RSAT,0 05S0669 00349000 SLA RSAT,3 05S0669 00350000 AL RSAT,SAVTSAT(,@14) 05S0669 00351000 * /* SAT ENTRY @YM08536*/ 00352000 * RRVT=SATRNRVT;/* GET RVT ADDRESS 05S0670 00353000 * @YM08536*/ 00354000 L RRVT,SATRNRVT(,RSAT) 05S0670 00355000 * RNUM=RVTNUM-1;/* NUMBER OF RVT ENTRIES 00356000 * @YM09047*/ 00357000 LH RNUM,RVTNUM(,RRVT) 05S0671 00358000 BCTR RNUM,0 05S0671 00359000 * RRVT=RRVT+LENGTH(RVTINDEX);/* BUMP PAST 00360000 * NCP TTE INDEX @YM08536*/ 00361000 AL RRVT,@CF00064 05S0672 00362000 * DO UNTIL TRMSNA=ON|/* LOOP THROUGH RVT 00363000 * UNTIL REACH SNA ENTRY @YM08536*/ 00364000 * CUREPOST=ON|/* OR A REPOST IS 00365000 * REQUESTED @YM08536*/ 00366000 * RNUM=0;/* OR UNTIL ALL ENTRIES 00367000 * HAVE BEEN PROCESSED @YM08536*/ 00368000 @DL00673 DS 0H 05S0674 00369000 * IF RVTINDEX^=0 THEN/* IF NON-ZERO TNT 00370000 * INDEX, CONTINUE @YM08536*/ 00371000 LH @14,RVTINDEX(,RRVT) 05S0674 00372000 LTR @14,@14 05S0674 00373000 BZ @RF00674 05S0674 00374000 * DO;/* @YM08536*/ 00375000 * RPARM=RVTINDEX;/* GET FIRST/NEXT 00376000 * INDEX FROM RVT @YM08536*/ 00377000 LR RPARM,@14 05S0676 00378000 * CALL IEDQTNT;/* CONVERT TO TTE 00379000 * ADDRESS @YM08536*/ 00380000 L @15,AVTRNMPT(,RAVT) 05S0677 00381000 BALR @14,@15 05S0677 00382000 * RTRM=RPARM-LENGTH(IEDNTRM);/* 00383000 * NEGATIVE TTE PREFIX @YM08536*/ 00384000 LR RTRM,RPARM 05S0678 00385000 SL RTRM,@CF02759 05S0678 00386000 * IF(TRMTYPE=TRMCTERM|/* IF CTERM 00387000 * TERMINAL @YM08536*/ 00388000 * (TRMTYPE=TRMPSNA&/* OR PRESNA 00389000 * TERMINAL @YM08536*/ 00390000 * TRMDIAL=ON)) THEN/* THAT IS 00391000 * ALSO DIAL @YM08536*/ 00392000 CLI TRMTYPE(RTRM),X'48' 05S0679 00393000 BE @RT00679 05S0679 00394000 CLI TRMTYPE(RTRM),X'4F' 05S0679 00395000 BNE @RF00679 05S0679 00396000 TM TRMDIAL(RTRM),B'00001000' 05S0679 00397000 BNO @RF00679 05S0679 00398000 @RT00679 DS 0H 05S0680 00399000 * DO;/* DETERMINE IF NOT IN THE 00400000 * HIERARCHY @YM08536*/ 00401000 * REG15=TRMCOHRT;/* GET COHORT IN 00402000 * HIERARCHY @YM08536*/ 00403000 LH @10,TRMCOHRT(,RTRM) 05S0681 00404000 N @10,@CF03088 05S0681 00405000 LR REG15,@10 05S0681 00406000 * IF TRMCOHRT^=0 THEN/* IF NOT 00407000 * ZERO THEN MUST LOOK AT LINE 00408000 * SUBSTRUCT TO DECIDE IF IN 00409000 * HIERARCHY @YM08536*/ 00410000 LTR @10,@10 05S0682 00411000 BZ @RF00682 05S0682 00412000 * DO;/* @YM08536*/ 00413000 * RPARM=REG15;/* COHORT INDEX 00414000 * IS PARM TO IEDQTNT @YM08536*/ 00415000 LR RPARM,REG15 05S0684 00416000 * CALL IEDQTNT;/* GET LINE TTE 00417000 * ADDRESS @YM08536*/ 00418000 L @15,AVTRNMPT(,RAVT) 05S0685 00419000 BALR @14,@15 05S0685 00420000 * RPARM=RPARM-LENGTH(IEDNTRM); 00421000 SL RPARM,@CF02759 05S0686 00422000 * /* NEGATIVE PREFIX @YM08536*/ 00423000 * IF RPARM->TRMSUBST^=RVTINDEX 00424000 * THEN/* IF LINE SUBSTRUCT 00425000 * POINTS TO ANOTHER INDEX THEN 00426000 * THIS TTE IS NOT CURRENTLY IN 00427000 * THE HIERARCHY @YM08536*/ 00428000 LH @14,TRMSUBST(,RPARM) 05S0687 00429000 N @14,@CF03088 05S0687 00430000 CH @14,RVTINDEX(,RRVT) 05S0687 00431000 BE @RF00687 05S0687 00432000 * REG15=0;/* INDICATE NOT IN 00433000 * HIERARCHY @YM08536*/ 00434000 SLR REG15,REG15 05S0688 00435000 * END;/* @YM08536*/ 00436000 @RF00687 DS 0H 05S0690 00437000 * IF REG15=0 THEN/* IF NOT IN THE 00438000 * HIERARCHY @YM08536*/ 00439000 @RF00682 LTR REG15,REG15 05S0690 00440000 BNZ @RF00690 05S0690 00441000 * DO;/* THEN MUST DO AN ANALYSIS 00442000 * @YM08536*/ 00443000 * RPARM=RTRM;/* PARM TO IEDNCU2 00444000 * @YM08536*/ 00445000 LR RPARM,RTRM 05S0692 00446000 * CURFAILT=RVTINDEX;/* CURRENT 00447000 * TTE INDEX @YM08536*/ 00448000 LH @14,RVTINDEX(,RRVT) 05S0693 00449000 STH @14,CURFAILT(,RCUR) 05S0693 00450000 * CALL STATANAL;/* GO PERFORM 00451000 * ANALYSIS @YM08536*/ 00452000 L @15,IEDNCU2 05S0694 00453000 BALR @14,@15 05S0694 00454000 * END;/* @YM08536*/ 00455000 * END;/* @YM08536*/ 00456000 @RF00690 DS 0H 05S0697 00457000 * END;/* @YM08536*/ 00458000 @RF00679 DS 0H 05S0698 00459000 * RRVT=RRVT+LENGTH(RVTINDEX);/* GET 00460000 * NEXT RVT ENTRY @YM08536*/ 00461000 @RF00674 AL RRVT,@CF00064 05S0698 00462000 * RNUM=RNUM-1;/* DECREMENT COUNT OF 00463000 * ENTRIES @YM08536*/ 00464000 BCTR RNUM,0 05S0699 00465000 * END; /* @YM08536*/ 00466000 @DE00673 TM TRMSNA(RTRM),B'00000010' 05S0700 00467000 BO @DC00673 05S0700 00468000 TM CUREPOST(RCUR),B'10000000' 05S0700 00469000 BO @DC00673 05S0700 00470000 LTR RNUM,RNUM 05S0700 00471000 BNZ @DL00673 05S0700 00472000 @DC00673 DS 0H 05S0701 00473000 * CURFAILT=SAVFAILT;/* RESTORE CURRENT 00474000 * INDEX @YM08536*/ 00475000 LH @14,SAVFAILT 05S0701 00476000 STH @14,CURFAILT(,RCUR) 05S0701 00477000 * RTRM=SAVTRM;/* RESTORE CURRENT INDEX 00478000 * @YM08536*/ 00479000 L RTRM,SAVTRM 05S0702 00480000 * IF CUREPOST=OFF THEN/* IF SEARCH ENDED 00481000 * NORMALLY THEN @YM08536*/ 00482000 TM CUREPOST(RCUR),B'10000000' 05S0703 00483000 BNZ @RF00703 05S0703 00484000 * CURDIAL=ON;/* INDICATE RVT HAS BEEN 00485000 * SCANNED @YM08536*/ 00486000 OI CURDIAL(RCUR),B'00001000' 05S0704 00487000 * END; /* @YM08536*/ 00488000 @RF00703 DS 0H 05S0706 00489000 * RPARM=TRMCOHRT;/* TTCIN OF COHORT */ 00490000 @RF00661 DS 0H 05S0706 00491000 @RC00659 LH RPARM,TRMCOHRT(,RTRM) 05S0706 00492000 N RPARM,@CF03088 05S0706 00493000 * CURFAILT=RPARM;/* SAME */ 00494000 STH RPARM,CURFAILT(,RCUR) 05S0707 00495000 * CALL IEDQTNT;/* GET COHORT TTE ADDRESS 05S0708 00496000 * @YM07132*/ 00497000 L @15,AVTRNMPT(,RAVT) 05S0708 00498000 BALR @14,@15 05S0708 00499000 * RTRM=RPARM-LENGTH(IEDNTRM);/* GET COHORT 00500000 * NEGATIVE TTE ADDRESS @YM07132*/ 00501000 LR RTRM,RPARM 05S0709 00502000 SL RTRM,@CF02759 05S0709 00503000 * IF TRMSUBST=0 THEN/* IF NO SUBRESOURCES TO 00504000 * ANALYZE THEN @YM08416*/ 00505000 LH @14,TRMSUBST(,RTRM) 05S0710 00506000 N @14,@CF03088 05S0710 00507000 LTR @14,@14 05S0710 00508000 BNZ @RF00710 05S0710 00509000 * CURNXTRC=CURFAILT;/* OMIT SUBSTRUCT SEARCH 00510000 * @YM08416*/ 00511000 LH @14,CURFAILT(,RCUR) 05S0711 00512000 STH @14,CURNXTRC(,RCUR) 05S0711 00513000 * IF CURFAILT=CURNXTRC/* IF BACK TO NEXT HIGHER 00514000 * RESOURCE ... */ 00515000 * |CUREPOST=ON/* ... OR REPOST REQUESTED 00516000 * ... @YM07310*/ 00517000 * |CURNCURE=ON THEN 05S0712 00518000 @RF00710 CLC CURFAILT(2,RCUR),CURNXTRC(RCUR) 05S0712 00519000 BE @RT00712 05S0712 00520000 TM CUREPOST(RCUR),B'10010000' 05S0712 00521000 BNZ @RT00712 05S0712 00522000 * ; /* ... OR POST TO OP CTL 05S0713 00523000 * REQUESTED @YM08087*/ 00524000 * ELSE 05S0714 00525000 * CALL SUBST0; 05S0714 00526000 BAL @14,SUBST0 05S0714 00527000 * END; 05S0715 00528000 @RT00712 DS 0H 05S0715 00529000 @DE00650 CLC CURNXTRC(2,RCUR),CURTTCIN(RCUR) 05S0715 00530000 BE @DC00650 05S0715 00531000 TM CUREPOST(RCUR),B'10010000' 05S0715 00532000 BZ @DL00650 05S0715 00533000 @DC00650 DS 0H 05S0716 00534000 * IF CUREPOST=OFF/* IF RETURN POST NOT REQUESTED 00535000 * ... @YM07310*/ 00536000 * &CURNCURE=OFF THEN/* ... AND POST TO OPCTL 00537000 * NOT REQUESTED @YM07310*/ 00538000 TM CUREPOST(RCUR),B'10010000' 05S0716 00539000 BNZ @RF00716 05S0716 00540000 * DO; 05S0717 00541000 * RPARM=RTRM;/* IEDNCU2 PARAMETER @YM07312*/ 00542000 LR RPARM,RTRM 05S0718 00543000 * CALL STATANAL;/* R1=TRM ADDRESS OF DEVICE 00544000 * TO ANALYZE */ 00545000 L @15,IEDNCU2 05S0719 00546000 BALR @14,@15 05S0719 00547000 * IF REG15=0 THEN/* IF NO BUFFERS AVAILABLE 00548000 * FOR STATUS ANALYSIS */ 00549000 LTR REG15,REG15 05S0720 00550000 BNZ @RF00720 05S0720 00551000 * CUREPOST=ON;/* REQUEST REPOST */ 00552000 OI CUREPOST(RCUR),B'10000000' 05S0721 00553000 * END; 05S0722 00554000 @RF00720 DS 0H 05S0723 00555000 * RFY 05S0723 00556000 * (REG00, 05S0723 00557000 * RRVT, 05S0723 00558000 * RSAT, 05S0723 00559000 * RNUM) UNRSTD;/* @YM09022*/ 00560000 @RF00716 DS 0H 05S0724 00561000 * END; 04S0724 00562000 * END; 03S0725 00563000 @RC00639 DS 0H 03S0726 00564000 * RFY 03S0726 00565000 * RLCB UNRSTD; 03S0726 00566000 @RT00635 DS 0H 03S0727 00567000 * END; 02S0727 00568000 * ELSE /* NOT CLEANUP REQUEST ELEMENT - 00569000 * MUST BE LCB CLEANUP REQUEST */ 00570000 * DO; 02S0728 00571000 B @RC00603 02S0728 00572000 @RF00603 DS 0H 02S0729 00573000 * 03S0729 00574000 * /*********************************************************/ 00575000 * /* */ 00576000 * /* PROCESS.LCBCLNUP: THIS SEGMENT DOES LCB AND TTE */ 00577000 * /* CLEANUP AT THE COMPLETION OF DEACTIVATE- CLEANUP */ 00578000 * /* @YM08120*/ 00579000 * /* */ 00580000 * /*********************************************************/ 00581000 * 03S0729 00582000 * RFY 03S0729 00583000 * RLCB RSTD; 03S0729 00584000 * 03S0729 00585000 * /*********************************************************/ 00586000 * /* */ 00587000 * /* RESTORE THE TTE @YM08120*/ 00588000 * /* */ 00589000 * /*********************************************************/ 00590000 * 03S0730 00591000 * TRMINOP=OFF; /* RESET INOP INDICATOR @YM08120*/ 00592000 * 03S0730 00593000 NI TRMINOP(RTRM),B'01111111' 03S0730 00594000 * /*********************************************************/ 00595000 * /* */ 00596000 * /* RESTORE THE LCB @YM08120*/ 00597000 * /* */ 00598000 * /*********************************************************/ 00599000 * 03S0731 00600000 * RLCB=DCBIOBAD+DCBEIOBX-LCBPRFSZ;/* 3705 LCB ADDRESS */ 00601000 SLR @14,@14 03S0731 00602000 ICM @14,7,TRMDESTQ(RTRM) 03S0731 00603000 LA @10,20 03S0731 00604000 L @14,QCBDCBAD-1(,@14) 03S0731 00605000 LA @14,0(,@14) 03S0731 00606000 ALR @10,@14 03S0731 00607000 SLR RLCB,RLCB 03S0731 00608000 IC RLCB,DCBEIOBX(,@10) 03S0731 00609000 AL RLCB,DCBIOBAD(,@10) 03S0731 00610000 SL RLCB,@CF00626 03S0731 00611000 * IF LCBRDBFR^=ADDR(LCBCCW7) THEN/* IF ANY BUFFERS ON READ 00612000 * BUFFER CHAIN @YM08428*/ 00613000 LA @14,LCBCCW7(,RLCB) 03S0732 00614000 L @10,LCBRDBFR-1(,RLCB) 03S0732 00615000 LA @10,0(,@10) 03S0732 00616000 CR @14,@10 03S0732 00617000 BE @RF00732 03S0732 00618000 * DO; 03S0733 00619000 * 04S0734 00620000 * /*****************************************************/ 00621000 * /* */ 00622000 * /* PROCESS.LCBCLNUP.FREBFS: THIS SEGMENT FREES */ 00623000 * /* BUFFERS ON LCBRDBFR QUEUE. REAL ADDRESSES ARE */ 00624000 * /* CONVERTED TO VIRTUAL. */ 00625000 * /* */ 00626000 * /*****************************************************/ 00627000 * 04S0734 00628000 * RFY 04S0734 00629000 * (REG00, 04S0734 00630000 * RPRF, 04S0734 00631000 * REG15) RSTD; 04S0734 00632000 * GEN NOREFS NOSETS; 04S0735 00633000 * /* 00634000 MODESET KEY=ZERO,MODE=SUP GO TO SUPERVISOR MODE 00635000 * RPRF=LCBRDBFR; /* ADDRESS OF FIRST BUFFER */ 00636000 L RPRF,LCBRDBFR-1(,RLCB) 04S0736 00637000 LA RPRF,0(,RPRF) 04S0736 00638000 * PRFSAVE=RPRF; /* INITIAL FOR ONE UNIT ONLY 00639000 * CHAIN */ 00640000 ST RPRF,PRFSAVE 04S0737 00641000 * NOP2OPCD=CCWNOP; /* RESTORE END OF READ BUFFER 00642000 * CHAIN @YM07704*/ 00643000 MVI NOP2OPCD(RLCB),X'03' 04S0738 00644000 * DO WHILE RPRF->CCWOPCDE^=CCWNOP;/* LOOK AT ALL 04S0739 00645000 * BUFFERS IN CHAIN */ 00646000 B @DE00739 04S0739 00647000 @DL00739 DS 0H 04S0740 00648000 * IF PRFTICC=CCWTICR THEN/* IF REAL */ 00649000 CLI PRFTICC(RPRF),X'88' 04S0740 00650000 BNE @RF00740 04S0740 00651000 * DO; /* CONVERT TO VIRTUAL */ 00652000 * RPARM=PRFTI0; /* ADDRESS TO CONVERT @YM06899*/ 00653000 L RPARM,PRFTI0-1(,RPRF) 04S0742 00654000 LA RPARM,0(,RPARM) 04S0742 00655000 * CALL IEAPTRV; 04S0743 00656000 L @10,CVTPTR 04S0743 00657000 L @15,CVTPTRV(,@10) 04S0743 00658000 BALR @14,@15 04S0743 00659000 * IF REG15^=0 THEN/* IF BAD RETURN CODE */ 00660000 LTR REG15,REG15 04S0744 00661000 BZ @RF00744 04S0744 00662000 * DO; 04S0745 00663000 * GEN NOREFS NOSETS; 04S0746 00664000 * /* 00665000 DC AL2(0) FORCE ABEND 00666000 * END; 04S0747 00667000 * PRFTIC=RPARM; /* INSERT CONVERTED ADDRESS */ 00668000 @RF00744 ST RPARM,PRFTIC(,RPRF) 04S0748 00669000 * END; 04S0749 00670000 * PRFSAVE=RPRF; /* SAVE BUFFER ADDRESS FOR 04S0750 00671000 * INVALID TIC IF LAST */ 00672000 @RF00740 ST RPRF,PRFSAVE 04S0750 00673000 * RPRF=PRFTIC; /* NEXT BUFFER ADDRESS */ 00674000 L RPRF,PRFTIC(,RPRF) 04S0751 00675000 * END; 04S0752 00676000 @DE00739 CLI CCWOPCDE(RPRF),X'03' 04S0752 00677000 BNE @DL00739 04S0752 00678000 * GEN NOREFS NOSETS; 04S0753 00679000 * /* 00680000 MODESET KEY=NZERO,MODE=PROB SET PROBLEM STATE 00681000 * RPARM=LCBRDBFR; /* SAVE BEGINNING OF CHAIN */ 00682000 L RPARM,LCBRDBFR-1(,RLCB) 04S0754 00683000 LA RPARM,0(,RPARM) 04S0754 00684000 * LCBRDBFR=RPRF; /* INITIALIZE LCB TO ADDRESS OF 00685000 * NOP */ 00686000 STCM RPRF,7,LCBRDBFR(RLCB) 04S0755 00687000 * LCBREAL=OFF; /* RESET FIRST TIME SWITCH */ 00688000 NI LCBREAL(RLCB),B'11111011' 04S0756 00689000 * PRFSAVE->PRFTIC=PRFINTIC;/* SET INVALID TIC IN LAST 00690000 * UNIT */ 00691000 L @14,PRFSAVE 04S0757 00692000 MVC PRFTIC(4,@14),@CB02298 04S0757 00693000 * RPARM->PRFQCBA=ADDR(AVTBFRTB);/* QCB */ 00694000 LA @14,AVTBFRTB(,RAVT) 04S0758 00695000 STCM @14,7,PRFQCBA(RPARM) 04S0758 00696000 * RPARM->PRFPRI=PRIBFRTB;/* PRIORITY */ 00697000 MVI PRFPRI(RPARM),X'E0' 04S0759 00698000 * RPARM->PRFNBUNT='00'X;/* SIGNAL NUMBER NOT KNOWN */ 00699000 MVI PRFNBUNT(RPARM),X'00' 04S0760 00700000 * CALL DSPPOSTR; 04S0761 00701000 LA @15,DSPPOSTR(,RDISP) 04S0761 00702000 BALR @14,@15 04S0761 00703000 * RFY 04S0762 00704000 * (REG00, 04S0762 00705000 * RPRF, 04S0762 00706000 * REG15) UNRSTD; 04S0762 00707000 * END; 03S0763 00708000 * LCBQNXMN=0; /* ZERO MESSAGE FIELD */ 00709000 @RF00732 MVI LCBQNXMN(RLCB),X'00' 03S0764 00710000 * LCBFSBFR=0; /* ZERO READ BUFFER CHAIN */ 00711000 SLR @10,@10 03S0765 00712000 STCM @10,7,LCBFSBFR(RLCB) 03S0765 00713000 * LCBTSTSW=0; /* ZERO TEST AND SET SWITCH */ 00714000 MVI LCBTSTSW(RLCB),X'00' 03S0766 00715000 * LCBPHASE='00'B; /* SET PHASE 00 */ 00716000 NI LCBPHASE(RLCB),B'11111001' 03S0767 00717000 * LCBCPGMH=OFF; 03S0768 00718000 NI LCBCPGMH(RLCB),B'11111110' 03S0768 00719000 * LCBINCAM=0; 03S0769 00720000 STH @10,LCBINCAM(,RLCB) 03S0769 00721000 * LCBERRCT=0; /* ZERO ERROR COUNT */ 00722000 STH @10,LCBERRCT(,RLCB) 03S0770 00723000 * LCBSTAT1=0; /* ZERO FLAG */ 00724000 MVI LCBSTAT1(RLCB),X'00' 03S0771 00725000 * LCBATTN=OFF; /* RESET ATTENTION */ 00726000 * LCBBFRAV=OFF; /* NO BUFFERS AVAILABLE */ 00727000 NI LCBATTN(RLCB),B'11111001' 03S0773 00728000 * LCBOBRCH=0; /* @OY16429*/ 00729000 * 03S0774 00730000 ST @10,LCBOBRCH(,RLCB) 03S0774 00731000 * /*********************************************************/ 00732000 * /* */ 00733000 * /* RESTORE LCBCPA */ 00734000 * /* */ 00735000 * /*********************************************************/ 00736000 * 03S0775 00737000 * LCBCPA(1:LENGTH(INITCCW1))=INITCCW1;/* SET UP LCBCPA FOR 00738000 * INITIAL CHANNEL PROGRAMS 03S0775 00739000 * @ZM46820*/ 00740000 MVC LCBCPA(32,RLCB),INITCCW1 03S0775 00741000 * LCBCCW6(1:LENGTH(INITCCW2))=INITCCW2;/* REST OF CCWS 00742000 * @ZM46820*/ 00743000 MVC LCBCCW6(16,RLCB),INITCCW2 03S0776 00744000 * LCBIOSB=LCBIOSBS; /* RESTORE SAVED IOSB PTR 03S0777 00745000 * @ZM46833*/ 00746000 MVC LCBIOSB(3,RLCB),LCBIOSBS(RLCB) 03S0777 00747000 * WRTADDR=ADDR(WRTADDR)-1;/* DUMMY DATA ADDRESS @YM03703*/ 00748000 LA @10,WRTADDR(,RLCB) 03S0778 00749000 BCTR @10,0 03S0778 00750000 STCM @10,7,WRTADDR(RLCB) 03S0778 00751000 * RDADDR=ADDR(RDADDR)-1; /* DUMMY DATA ADDRESS @YM03703*/ 00752000 LA @10,RDADDR(,RLCB) 03S0779 00753000 BCTR @10,0 03S0779 00754000 STCM @10,7,RDADDR(RLCB) 03S0779 00755000 * NOP1ADDR=ADDR(NOP1ADDR)-1;/* DUMMY DATA ADDRESS @YM03703*/ 00756000 LA @10,NOP1ADDR(,RLCB) 03S0780 00757000 BCTR @10,0 03S0780 00758000 STCM @10,7,NOP1ADDR(RLCB) 03S0780 00759000 * NOP2ADDR=ADDR(NOP2ADDR)-1;/* DUMMY DATA ADDRESS @YM03703*/ 00760000 LA @10,NOP2ADDR(,RLCB) 03S0781 00761000 BCTR @10,0 03S0781 00762000 STCM @10,7,NOP2ADDR(RLCB) 03S0781 00763000 * LCBRDBFR=ADDR(LCBCCW7); /* POINT START OF READ CHAN PROG 00764000 * TO NO-OP */ 00765000 LA @10,LCBCCW7(,RLCB) 03S0782 00766000 STCM @10,7,LCBRDBFR(RLCB) 03S0782 00767000 * CURQCB=ADDR(AVTOPCOB); /* QCB */ 00768000 LA @10,AVTOPCOB(,RAVT) 03S0783 00769000 STCM @10,7,CURQCB(RCUR) 03S0783 00770000 * CURPRI=PRILOFLG; /* PRIORITY */ 00771000 MVI CURPRI(RCUR),X'D0' 03S0784 00772000 * CURFLG1=CURFG; /* ROUTING FLAG */ 00773000 MVI CURFLG1(RCUR),X'0E' 03S0785 00774000 * CURSWCH=''B; /* IDENTIFY TO IGCFG10D */ 00775000 MVI CURSWCH(RCUR),X'00' 03S0786 00776000 * RPARM=RCUR; /* ADDRESS OF CUR */ 00777000 LR RPARM,RCUR 03S0787 00778000 * CALL DSPPOST; /* POST CUR TO IGCFG10D AND EXIT */ 00779000 LA @15,DSPPOST(,RDISP) 03S0788 00780000 BALR @14,@15 03S0788 00781000 * RFY 03S0789 00782000 * RLCB UNRSTD; 03S0789 00783000 * END; 02S0790 00784000 * END; 02S0791 00785000 @RC00603 DS 0H 02S0792 00786000 * 02S0792 00787000 * /*****************************************************************/ 00788000 * /* */ 00789000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 00790000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. THE CALL TO DSPDISP*/ 00791000 * /* IS USED TO EXIT TO THE DISPATCHER */ 00792000 * /* */ 00793000 * /*****************************************************************/ 00794000 * 02S0792 00795000 * 03S0792 00796000 * /*****************************************************************/ 00797000 * /* */ 00798000 * /* EPILOGUE.EXIT: THIS SEGMENT DOES EXIT PROCESSING */ 00799000 * /* */ 00800000 * /*****************************************************************/ 00801000 * 03S0792 00802000 * RFY 03S0792 00803000 * (RQCB, 03S0792 00804000 * REG03, 03S0792 00805000 * REG09, 03S0792 00806000 * RPIU) RSTD; /* @YM07310*/ 00807000 @RC00584 DS 0H 03S0793 00808000 * RPIU=CURPIUPC; /* SAVE POST CHAIN */ 00809000 L RPIU,CURPIUPC(,RCUR) 03S0793 00810000 * IF CURNCURE=ON THEN /* IF POST REQUEST TO OP CTL ... 00811000 * @YM07310*/ 00812000 TM CURNCURE(RCUR),B'00010000' 03S0794 00813000 BNO @RF00794 03S0794 00814000 * CUREPOST=OFF; /* ... THEN RESET REPOST REQUEST 00815000 * TO IEDNCU @YM07310*/ 00816000 NI CUREPOST(RCUR),B'01111111' 03S0795 00817000 * IF CUREPOST=ON /* IF REPOST REQUESTED OR ... */ 00818000 * |CURKEY=LOCALKEY THEN /* ... LOCAL CUR */ 00819000 @RF00794 TM CUREPOST(RCUR),B'10000000' 03S0796 00820000 BO @RT00796 03S0796 00821000 CLI CURKEY(RCUR),X'C0' 03S0796 00822000 BNE @RF00796 03S0796 00823000 @RT00796 DS 0H 03S0797 00824000 * DO; 03S0797 00825000 * REG09=CURNEWBF; /* SAVE FREE BUFFER CHAIN */ 00826000 L REG09,CURNEWBF(,RCUR) 03S0798 00827000 * IF CUREPOST=ON THEN /* IF REPOST REQUESTED */ 00828000 TM CUREPOST(RCUR),B'10000000' 03S0799 00829000 BNO @RF00799 03S0799 00830000 * DO; 03S0800 00831000 * 04S0801 00832000 * /*********************************************************/ 00833000 * /* */ 00834000 * /* PROCESS.RTNPOST: THIS SEGMENT SCHEDULES REDRIVE OF */ 00835000 * /* IEDNCU IF RETURN POST HAS BEEN REQUESTED */ 00836000 * /* */ 00837000 * /*********************************************************/ 00838000 * 04S0801 00839000 * CUREPOST=OFF; /* RESET REPOST REQUEST FOR NEXT 00840000 * TIME */ 00841000 NI CUREPOST(RCUR),B'01111111' 04S0801 00842000 * CURQCB=SAVTCLUP; /* QCB */ 00843000 L @10,AVTSAVTP(,RAVT) 04S0802 00844000 MVC CURQCB(3,RCUR),SAVTCLUP+1(@10) 04S0802 00845000 * CURPRI=PRICUREQ; /* PRIORITY */ 00846000 MVI CURPRI(RCUR),X'C4' 04S0803 00847000 * RPARM=RCUR; /* ADDRESS OF CUR */ 00848000 LR RPARM,RCUR 04S0804 00849000 * CALL DSPPOSTR; 04S0805 00850000 LA @15,DSPPOSTR(,RDISP) 04S0805 00851000 BALR @14,@15 04S0805 00852000 * END; 03S0806 00853000 * END; 03S0807 00854000 * ELSE /* THERE ARE BUFS TO FREE - FREE 00855000 * THEM */ 00856000 * IF CURNCURE=ON THEN /* IF POST REQUEST TO OP CTL ... 00857000 * @YM07310*/ 00858000 B @RC00796 03S0808 00859000 @RF00796 TM CURNCURE(RCUR),B'00010000' 03S0808 00860000 BNO @RF00808 03S0808 00861000 * DO; /* POST CUR TO IGCC110D @YM07310*/ 00862000 * REG09=CURNEWBF; /* SET FREE BUFFER CHAIN @YM07310*/ 00863000 L REG09,CURNEWBF(,RCUR) 03S0810 00864000 * CURQCB=ADDR(AVTOPCOB); /* QCB IS OPERATOR CONTROL 03S0811 00865000 * @YM07310*/ 00866000 LA @10,AVTOPCOB(,RAVT) 03S0811 00867000 STCM @10,7,CURQCB(RCUR) 03S0811 00868000 * CURPRI=PRILOFLG; /* SPECIAL ROUTING @YM07310*/ 00869000 MVI CURPRI(RCUR),X'D0' 03S0812 00870000 * CURFLG1=CURC0; /* ROUTE TO IGCC110D @YM07310*/ 00871000 MVI CURFLG1(RCUR),X'0D' 03S0813 00872000 * RPARM=RCUR; /* ELEMENT TO POST @YM07310*/ 00873000 LR RPARM,RCUR 03S0814 00874000 * CALL DSPPOSTR; /* PUT ON READY QUEUE @YM07310*/ 00875000 LA @15,DSPPOSTR(,RDISP) 03S0815 00876000 BALR @14,@15 03S0815 00877000 * END; /* @YM07310*/ 00878000 * ELSE 03S0817 00879000 * DO; /* @YM07310*/ 00880000 B @RC00808 03S0817 00881000 @RF00808 DS 0H 03S0818 00882000 * CURLINK=CURNEWBF; /* SAVE FREE ... */ 00883000 L @10,CURNEWBF(,RCUR) 03S0818 00884000 ST @10,CURLINK(,RCUR) 03S0818 00885000 * REG09=RCUR; /* ... BUFFER CHAIN */ 00886000 LR REG09,RCUR 03S0819 00887000 * END; /* @YM07310*/ 00888000 * IF REG09=0 /* IF NO UNITS ... */ 00889000 * |REG09=PRFINTIC THEN 03S0821 00890000 @RC00808 DS 0H 03S0821 00891000 @RC00796 LTR REG09,REG09 03S0821 00892000 BZ @RT00821 03S0821 00893000 C REG09,@CF02298 03S0821 00894000 BE @RT00821 03S0821 00895000 * ; /* ... TO FREE - SKIP */ 00896000 * ELSE 03S0823 00897000 * DO; 03S0823 00898000 * RPARM=REG09; /* ADDRESS OF FIRST UNIT IN FREE 00899000 * CHAIN */ 00900000 LR RPARM,REG09 03S0824 00901000 * RPARM->PRFQCBA=ADDR(AVTBFRTB);/* QCB */ 00902000 LA @10,AVTBFRTB(,RAVT) 03S0825 00903000 STCM @10,7,PRFQCBA(RPARM) 03S0825 00904000 * RPARM->PRFPRI=PRIBFRTB; /* PRIORITY */ 00905000 MVI PRFPRI(RPARM),X'E0' 03S0826 00906000 * RPARM->PRFNBUNT='00'X; /* SET NUMBER OF BUFFERS UNKNOWN */ 00907000 MVI PRFNBUNT(RPARM),X'00' 03S0827 00908000 * CALL DSPPOSTR; 03S0828 00909000 LA @15,DSPPOSTR(,RDISP) 03S0828 00910000 BALR @14,@15 03S0828 00911000 * END; 03S0829 00912000 * IF RPIU=0 /* IF NO BTUS FOR ... */ 00913000 * |RPIU=PRFINTIC THEN /* ... PATH CONTROL */ 00914000 @RT00821 LTR RPIU,RPIU 03S0830 00915000 BZ @RT00830 03S0830 00916000 C RPIU,@CF02298 03S0830 00917000 BNE @RF00830 03S0830 00918000 @RT00830 DS 0H 03S0831 00919000 * CALL DSPDISP; /* EXIT */ 00920000 LA @15,DSPDISP(,RDISP) 03S0831 00921000 BALR @14,@15 03S0831 00922000 * ELSE /* POST PIUS TO PATH CONTROL 00923000 * INBOUND */ 00924000 * DO; 03S0832 00925000 B @RC00830 03S0832 00926000 @RF00830 DS 0H 03S0833 00927000 * RPARM=RPIU; /* ADDRESS OF PIUS */ 00928000 LR RPARM,RPIU 03S0833 00929000 * RPARM->PRFQCBA=SAVTIPCQ; /* QCB */ 00930000 L @10,AVTSAVTP(,RAVT) 03S0834 00931000 L @10,SAVTIPCQ(,@10) 03S0834 00932000 STCM @10,7,PRFQCBA(RPARM) 03S0834 00933000 * RPARM->PRFPRI=PRIFLDH; /* PRIORITY */ 00934000 MVI PRFPRI(RPARM),X'E4' 03S0835 00935000 * RQCB=SAVTIPCQ; /* QCB */ 00936000 LR RQCB,@10 03S0836 00937000 * REG03=SQCB; 03S0837 00938000 L REG03,SQCB+8(,RQCB) 03S0837 00939000 * CALL DSPBYPAS; 03S0838 00940000 LA @15,DSPBYPAS(,RDISP) 03S0838 00941000 BALR @14,@15 03S0838 00942000 * END; 03S0839 00943000 * RFY 03S0840 00944000 * (RQCB, 03S0840 00945000 * REG03, 03S0840 00946000 * REG09, 03S0840 00947000 * RPIU) UNRSTD; /* @YM07310*/ 00948000 * 02S0841 00949000 * /*****************************************************************/ 00950000 * /* */ 00951000 * /* GENRSP: THIS SEGMENT CONTAINS THE INTERNAL PROCEDURE WHICH */ 00952000 * /* GENERATES APPROPRIATE RESPONSES. ON INPUT, R1=ADDRESS OF UNIT */ 00953000 * /* INTO WHICH THE RESPONSE IS TO BE BUILT. ON EXIT, THE RESPONSE */ 00954000 * /* GENERATED IS ENQUEUED ON CURPIUPC AND EXTRA UNITS ARE CHAINED */ 00955000 * /* ON CURNEWBF */ 00956000 * /* */ 00957000 * /*****************************************************************/ 00958000 * 02S0841 00959000 *GENRSP: 02S0841 00960000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0841 00961000 @EL00001 DS 0H 02S0841 00962000 @EF00001 DS 0H 02S0841 00963000 @ER00001 BR @14 02S0841 00964000 GENRSP DS 0H 02S0842 00965000 * RFY 02S0842 00966000 * (REG00, 02S0842 00967000 * REG05, 02S0842 00968000 * RPRF, 02S0842 00969000 * RTRM, 02S0842 00970000 * RTH, 02S0842 00971000 * RRETURN) RSTD; /* @YM07700*/ 00972000 * RFY 02S0843 00973000 * IEDQPRF BASED(RPARM); 02S0843 00974000 * RTH=PRFPIUO+ADDR(PRFPIUO); /* POINT TO TH @YM07700*/ 00975000 LA RTH,PRFPIUO(,RPARM) 02S0844 00976000 SLR @15,@15 02S0844 00977000 IC @15,PRFPIUO(,RPARM) 02S0844 00978000 ALR RTH,@15 02S0844 00979000 * IF TRHTYPE=OFF THEN /* IF A REQUEST */ 00980000 TM TRHTYPE+10(RTH),B'10000000' 02S0845 00981000 BNZ @RF00845 02S0845 00982000 * DO; 02S0846 00983000 * IF TTHFTYPE=TTHFID0 THEN /* IF FID0 */ 00984000 TM TTHFTYPE(RTH),B'11110000' 02S0847 00985000 BNZ @RF00847 02S0847 00986000 * DO; 02S0848 00987000 * 03S0849 00988000 * /*********************************************************/ 00989000 * /* */ 00990000 * /* GENRSP.FID0REQ: THIS SEGMENT INITIALIZES BUILT */ 00991000 * /* RESPONSES AS FID0 NEGATIVE RESPONSE */ 00992000 * /* */ 00993000 * /*********************************************************/ 00994000 * 03S0849 00995000 * IF BDUCMND=CD0DISC| /* IF DISCONNECT ... @YM07983*/ 00996000 * (BDUCMND=CD0CTRL& /* ... OR IF CONTROL WITH ... 00997000 * @YM07983*/ 00998000 * (BDUMODIF=CD0CREL| /* ... OR RESET ERROR LOCK ... 00999000 * @YM07983*/ 01000000 * BDUMODIF=CD0CRI| /* ... OR RESET IMMEDIATE ... 01001000 * @YM07983*/ 01002000 * BDUMODIF=CD0CRC| /* ... OR RESET CONDITIONAL ... 01003000 * @YM07983*/ 01004000 * BDUMODIF=CD0CREOC)) THEN/* OR RESET AT END OF COMMAND 01005000 * ... @YM07983*/ 01006000 LA @15,14 03S0849 01007000 ALR @15,RTH 03S0849 01008000 CLI BDUCMND(@15),X'07' 03S0849 01009000 BE @RT00849 03S0849 01010000 CLI BDUCMND(@15),X'08' 03S0849 01011000 BNE @RF00849 03S0849 01012000 CLI BDUMODIF(@15),X'41' 03S0849 01013000 BE @RT00849 03S0849 01014000 CLI BDUMODIF(@15),X'44' 03S0849 01015000 BE @RT00849 03S0849 01016000 CLI BDUMODIF(@15),X'50' 03S0849 01017000 BE @RT00849 03S0849 01018000 CLI BDUMODIF(@15),X'60' 03S0849 01019000 BNE @RF00849 03S0849 01020000 @RT00849 DS 0H 03S0850 01021000 * BDUPHASE=RSP60; /* TREAT AS IF SUCCESSFUL 03S0850 01022000 * @YM08105*/ 01023000 OI BDUPHASE+14(RTH),B'01100000' 03S0850 01024000 * ELSE /* ELSE BUILD UNIVERSAL ERROR 01025000 * RESPONSE @YM08004*/ 01026000 * DO; /* @YM07983*/ 01027000 B @RC00849 03S0851 01028000 @RF00849 DS 0H 03S0852 01029000 * TTHDCF=(LENGTH(IEDRH)+1+LENGTH(IEDBDU));/* SET DATA 01030000 * COUNT */ 01031000 MVC TTHDCF(2,RTH),@CH03078 03S0852 01032000 * BDUSYRSP=RSPCRSET; /* SET COMMAND RESET @OZ27810*/ 01033000 LA @15,14 03S0853 01034000 ALR @15,RTH 03S0853 01035000 MVI BDUSYRSP(@15),X'9E' 03S0853 01036000 * BDUEXRSP=0; /* ... ERROR STATUS @OZ27810*/ 01037000 MVI BDUEXRSP(@15),X'00' 03S0854 01038000 * END; /* @YM07983*/ 01039000 * END; 02S0856 01040000 * ELSE /* FID1 */ 01041000 * DO; 02S0857 01042000 B @RC00847 02S0857 01043000 @RF00847 DS 0H 02S0858 01044000 * 03S0858 01045000 * /*********************************************************/ 01046000 * /* */ 01047000 * /* GENRSP.FID1REQ: THIS SEGMENT INITIALIZES BUILT */ 01048000 * /* RESPONSE AS FID1 PATH ERROR */ 01049000 * /* */ 01050000 * /*********************************************************/ 01051000 * 03S0858 01052000 * TTHDCF=LENGTH(IEDRH)+LENGTH(IEDSNSD)+LENGTH(RU);/* SET 01053000 * DATA COUNT @YM07704*/ 01054000 LA @15,10 03S0858 01055000 STCM @15,3,TTHDCF(RTH) 03S0858 01056000 * TRHFI=ON; /* SET FORMATTED */ 01057000 * TRHSDI=ON; /* SET SENSE DATA INCLUDED */ 01058000 * TRHBC=ON; /* SET BEGIN CHAIN */ 01059000 * TRHEC=ON; /* SET END CHAIN */ 01060000 ALR @15,RTH 03S0862 01061000 OI TRHFI(@15),B'00001111' 03S0862 01062000 * TRHDR1=ON; /* SET DEFINITE RESPONSE ONE */ 01063000 OI TRHDR1(@15),B'10000000' 03S0863 01064000 * REG05=ADDR(IEDRH)+LENGTH(IEDRH);/* POINT TO RU DATA AREA 01065000 * @YM07743*/ 01066000 LA @15,13 03S0864 01067000 ALR @15,RTH 03S0864 01068000 LR REG05,@15 03S0864 01069000 * RU=REG05->RU; /* COPY RU DATA INFORMATION 03S0865 01070000 * @YM07743*/ 01071000 MVC RU+17(3,RTH),RU(REG05) 03S0865 01072000 * SNSMAJ=SNSPATH; /* SET PATH ERROR */ 01073000 MVI SNSMAJ(@15),X'80' 03S0866 01074000 * IF PRF2TERM=ON THEN /* PIU FROM IEDPCOUT? @YM08991*/ 01075000 LR @09,RPARM 03S0867 01076000 AL @09,@CF03095 03S0867 01077000 TM PRF2TERM(@09),B'00010000' 03S0867 01078000 BNO @RF00867 03S0867 01079000 * SNSMIN=SNSLUINP; /* YES, SET LU INOPERATV @YM08991*/ 01080000 MVI SNSMIN(@15),X'03' 03S0868 01081000 * ELSE /* NO, PIU FROM IGG019TE @YM08991*/ 01082000 * SNSMIN=SNSLNKF; /* SET LINK FAILURE */ 01083000 B @RC00867 03S0869 01084000 @RF00867 MVI SNSMIN+13(RTH),X'02' 03S0869 01085000 * SNSUSER=0; /* USER DATA = ZERO */ 01086000 @RC00867 SLR @15,@15 03S0870 01087000 STCM @15,3,SNSUSER+13(RTH) 03S0870 01088000 * END; 02S0871 01089000 * REG00=TTHOAF; /* SAVE ORIGIN FOR SWAP */ 01090000 @RC00847 SLR REG00,REG00 02S0872 01091000 ICM REG00,3,TTHOAF(RTH) 02S0872 01092000 * TTHOAF=TTHDAF; /* MAKE ORIGIN THE DESTINATION */ 01093000 MVC TTHOAF(2,RTH),TTHDAF(RTH) 02S0873 01094000 * TTHDAF=REG00; /* MAKE DESTINATION THE ORIGIN */ 01095000 STCM REG00,3,TTHDAF(RTH) 02S0874 01096000 * TRHTYPE=ON; /* SET RESPONSE */ 01097000 OI TRHTYPE+10(RTH),B'10000000' 02S0875 01098000 * IF PRFPIUOPRFTIC^=PRFINTIC;/* GO TO END OF CHAIN */ 01143000 B @DE00893 02S0893 01144000 @DL00893 DS 0H 02S0894 01145000 * REG05=REG05->PRFTIC; 02S0894 01146000 L REG05,PRFTIC(,REG05) 02S0894 01147000 * END; 02S0895 01148000 @DE00893 CLC PRFTIC(4,REG05),@CB02298 02S0895 01149000 BNE @DL00893 02S0895 01150000 * REG05->PRFTIC=CURNEWBF; /* ADD TO EXTRA BUFFER CHAIN */ 01151000 L @15,CURNEWBF(,RCUR) 02S0896 01152000 ST @15,PRFTIC(,REG05) 02S0896 01153000 * CURNEWBF=REG00; /* SAME */ 01154000 ST REG00,CURNEWBF(,RCUR) 02S0897 01155000 * END; 02S0898 01156000 * RFY 02S0899 01157000 * IEDQPRF BASED(RPRF); 02S0899 01158000 * END GENRSP; 02S0900 01159000 @EL00002 DS 0H 02S0900 01160000 @EF00002 DS 0H 02S0900 01161000 @ER00002 BR @14 02S0900 01162000 * RFY 02S0901 01163000 * (REG00, 02S0901 01164000 * REG05, 02S0901 01165000 * RPRF, 02S0901 01166000 * RTRM, 02S0901 01167000 * RTH, 02S0901 01168000 * RRETURN) UNRSTD; /* @YM07700*/ 01169000 * 02S0902 01170000 * /*****************************************************************/ 01171000 * /* */ 01172000 * /* SUBST0: THIS SEGMENT CONTAINS THE INTERNAL PROCEDURE WHICH */ 01173000 * /* ANALYZES STATUS OF ALL LOWEST IN HIERACHY (SUBSTRUCTURE */ 01174000 * /* POINTER = 0) TRMS OF THE FAILING DEVICE */ 01175000 * /* */ 01176000 * /*****************************************************************/ 01177000 * 02S0902 01178000 *SUBST0: 02S0902 01179000 * PROC OPTIONS(RETREG,SAVE(14)); 02S0902 01180000 SUBST0 ST @14,@SA00003 02S0902 01181000 * RFY 02S0903 01182000 * (REG00, 02S0903 01183000 * RTRM, 02S0903 01184000 * REG15) RSTD; /* @YM08536*/ 01185000 * DO UNTIL(CURFAILT=CURNXTRC /* BACK TO NEXT HIGHER RESOURCE 01186000 * ... */ 01187000 * |CUREPOST=ON /* ... OR RETURN POST REQUESTED 01188000 * ... @YM07310*/ 01189000 * |CURNCURE=ON); /* ... OR POST TO OP CTL 02S0904 01190000 * REQUESTED @YM07310*/ 01191000 @DL00904 DS 0H 02S0905 01192000 * RPARM=RTRM; /* TRANSFER BASE */ 01193000 LR RPARM,RTRM 02S0905 01194000 * RFY 02S0906 01195000 * IEDTRM BASED(RPARM); 02S0906 01196000 * DO UNTIL TRMSUBST=0; /* FOLLOW SUBSTRUCTURE POINTERS 01197000 * TO BOTTOM OF HIERARCHY */ 01198000 @DL00907 DS 0H 02S0908 01199000 * RPARM=TRMSUBST; /* TNT INDEX */ 01200000 LH @14,TRMSUBST(,RPARM) 02S0908 01201000 N @14,@CF03088 02S0908 01202000 LR RPARM,@14 02S0908 01203000 * CURFAILT=RPARM; /* SAME */ 01204000 STH RPARM,CURFAILT(,RCUR) 02S0909 01205000 * CALL IEDQTNT; /* GET TRM ADDRESS */ 01206000 L @15,AVTRNMPT(,RAVT) 02S0910 01207000 BALR @14,@15 02S0910 01208000 * RPARM=RPARM-LENGTH(IEDNTRM);/* POINT TO NEG PREFIX */ 01209000 SL RPARM,@CF02759 02S0911 01210000 * END; 02S0912 01211000 @DE00907 LH @14,TRMSUBST(,RPARM) 02S0912 01212000 N @14,@CF03088 02S0912 01213000 LTR @14,@14 02S0912 01214000 BNZ @DL00907 02S0912 01215000 * RTRM=RPARM; /* POINT TO SUBSTRUCT TRM */ 01216000 LR RTRM,RPARM 02S0913 01217000 * RPARM=RPARM+LENGTH(IEDNTRM); /* BACK TO TRM PROPER FOR ROUTINE*/ 01218000 AL RPARM,@CF02759 02S0914 01219000 * RFY 02S0915 01220000 * IEDTRM BASED(RTRM); 02S0915 01221000 * CURSAVE=RCUR; /* SAVE CUR POINTER ACROSS CALL */ 01222000 ST RCUR,CURSAVE 02S0916 01223000 * RCUR=AVTOCGET; /* ADDRESS OF OPCAVT FOR CALL */ 01224000 L @14,AVTOCGET(,RAVT) 02S0917 01225000 LR RCUR,@14 02S0917 01226000 * CALL COHORTLK; /* WHEN RETURN R1=@ TRM OF NEXT 01227000 * HIGHER RESOURCE AND R0 =TTCIN 01228000 * OF NEXT HIGHER RESOURCE */ 01229000 L @15,OPCHORT(,@14) 02S0918 01230000 BALR @14,@15 02S0918 01231000 * RCUR=CURSAVE; /* RESTORE CUR POINTER */ 01232000 L RCUR,CURSAVE 02S0919 01233000 * CURNXTRC=REG00; /* SAVE TTCIN OF NEXT HIGHER 01234000 * RESOURCE */ 01235000 STH REG00,CURNXTRC(,RCUR) 02S0920 01236000 * DO UNTIL(TRMSUBST^=0 /* PROCESS ALL BOTTOM LEVEL 02S0921 01237000 * RESOURCES ... */ 01238000 * |CUREPOST=ON /* ... AND REPOST NOT REQUESTED 01239000 * ... @YM07310*/ 01240000 * |CURNCURE=ON); /* AND POST TO OP CTL NOT 02S0921 01241000 * REQUESTED @YM07310*/ 01242000 @DL00921 DS 0H 02S0922 01243000 * RPARM=RTRM; /* PASS TRM TO CHECK @YM07312*/ 01244000 LR RPARM,RTRM 02S0922 01245000 * CALL STATANAL; 02S0923 01246000 L @15,IEDNCU2 02S0923 01247000 BALR @14,@15 02S0923 01248000 * IF REG15=0 THEN /* IF NO BUFFERS AVAILABLE FOR 01249000 * STATUS ANALYSIS */ 01250000 LTR REG15,REG15 02S0924 01251000 BNZ @RF00924 02S0924 01252000 * CUREPOST=ON; /* REQUEST REPOST */ 01253000 OI CUREPOST(RCUR),B'10000000' 02S0925 01254000 * RPARM=TRMCOHRT; /* TNT INDEX OF COHORT */ 01255000 @RF00924 LH RPARM,TRMCOHRT(,RTRM) 02S0926 01256000 N RPARM,@CF03088 02S0926 01257000 * CURFAILT=RPARM; /* SAME */ 01258000 STH RPARM,CURFAILT(,RCUR) 02S0927 01259000 * CALL IEDQTNT; 02S0928 01260000 L @15,AVTRNMPT(,RAVT) 02S0928 01261000 BALR @14,@15 02S0928 01262000 * RTRM=RPARM-LENGTH(IEDNTRM); /* UPDATE TRM ADDRESS TO COHORT */ 01263000 LR RTRM,RPARM 02S0929 01264000 SL RTRM,@CF02759 02S0929 01265000 * END; 02S0930 01266000 @DE00921 LH @14,TRMSUBST(,RTRM) 02S0930 01267000 N @14,@CF03088 02S0930 01268000 LTR @14,@14 02S0930 01269000 BNZ @DC00921 02S0930 01270000 TM CUREPOST(RCUR),B'10010000' 02S0930 01271000 BZ @DL00921 02S0930 01272000 @DC00921 DS 0H 02S0931 01273000 * END; 02S0931 01274000 @DE00904 CLC CURFAILT(2,RCUR),CURNXTRC(RCUR) 02S0931 01275000 BE @DC00904 02S0931 01276000 TM CUREPOST(RCUR),B'10010000' 02S0931 01277000 BZ @DL00904 02S0931 01278000 @DC00904 DS 0H 02S0932 01279000 * RFY 02S0932 01280000 * (REG00, 02S0932 01281000 * RTRM, 02S0932 01282000 * REG15) UNRSTD; 02S0932 01283000 * END SUBST0; 02S0933 01284000 @EL00003 DS 0H 02S0933 01285000 @EF00003 DS 0H 02S0933 01286000 @ER00003 L @14,@SA00003 02S0933 01287000 BR @14 02S0933 01288000 * 02S0934 01289000 * /*****************************************************************/ 01290000 * /* */ 01291000 * /* PIUCHAIN: THIS SEGMENT CONTAINS THE INTERNAL PROCEDURE THAT */ 01292000 * /* PROCESSES PIU CHAINS BY BUILDING A RESPONSE IN THE FIRST UNIT */ 01293000 * /* OF EACH PIU AND SAVING SUBSEQUENT UNUSED UNITS FOR IEDNCU USE.*/ 01294000 * /* ON INPUT, RCHAIN = ADDRESS OF FIRST UNIT IN THE PIU CHAIN */ 01295000 * /* */ 01296000 * /*****************************************************************/ 01297000 * 02S0934 01298000 *PIUCHAIN: 02S0934 01299000 * PROC OPTIONS(RETREG,SAVE(14)); 02S0934 01300000 PIUCHAIN ST @14,@SA00004 02S0934 01301000 * RFY 02S0935 01302000 * RCHAIN RSTD; 02S0935 01303000 * RFY 02S0936 01304000 * IEDQPRF BASED(RPARM); 02S0936 01305000 * DO UNTIL RCHAIN=AVTDELAD; /* PROCESS ALL PIUS @YM07412*/ 01306000 @DL00937 DS 0H 02S0938 01307000 * RPARM=RCHAIN; /* DELINK TOP PIU */ 01308000 LR RPARM,RCHAIN 02S0938 01309000 * RCHAIN=PRFLINK; /* NEXT IS NOW TOP */ 01310000 L RCHAIN,PRFLINK-1(,RPARM) 02S0939 01311000 LA RCHAIN,0(,RCHAIN) 02S0939 01312000 * CALL GENRSP; 02S0940 01313000 BAL @14,GENRSP 02S0940 01314000 * END; 02S0941 01315000 @DE00937 C RCHAIN,AVTDELAD(,RAVT) 02S0941 01316000 BNE @DL00937 02S0941 01317000 * RFY 02S0942 01318000 * IEDQPRF BASED(RPRF); 02S0942 01319000 * RFY 02S0943 01320000 * RCHAIN UNRSTD; 02S0943 01321000 * END PIUCHAIN; 02S0944 01322000 @EL00004 DS 0H 02S0944 01323000 @EF00004 DS 0H 02S0944 01324000 @ER00004 L @14,@SA00004 02S0944 01325000 BR @14 02S0944 01326000 * END IEDNCU 01S0945 01327000 * 01S0945 01328000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01329000 */*%INCLUDE SYSLIB (TAVTD ) */ 01330000 */*%INCLUDE SYSLIB (TBDUD ) */ 01331000 */*%INCLUDE SYSLIB (TCCWD ) */ 01332000 */*%INCLUDE SYSLIB (TCD0D ) */ 01333000 */*%INCLUDE SYSLIB (TCURD ) */ 01334000 */*%INCLUDE SYSLIB (CVT ) */ 01335000 */*%INCLUDE SYSLIB (IHADCBDF) */ 01336000 */*%INCLUDE SYSLIB (IHADCB ) */ 01337000 */*%INCLUDE SYSLIB (TDISPD ) */ 01338000 */*%INCLUDE SYSLIB (TLCBD ) */ 01339000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01340000 */*%INCLUDE SYSLIB (TPRFD ) */ 01341000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01342000 */*%INCLUDE SYSLIB (TQCBD ) */ 01343000 */*%INCLUDE SYSLIB (TRSPD ) */ 01344000 */*%INCLUDE SYSLIB (TRVTD ) */ 01345000 */*%INCLUDE SYSLIB (TSATD ) */ 01346000 */*%INCLUDE SYSLIB (TSNSD ) */ 01347000 */*%INCLUDE SYSLIB (TRHD ) */ 01348000 */*%INCLUDE SYSLIB (TTRMD ) */ 01349000 */*%INCLUDE SYSLIB (TTHD ) */ 01350000 */*%INCLUDE SYSUT5 (RFY ) */ 01351000 */*%INCLUDE SYSUT5 (DCL ) */ 01352000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 01353000 */*%INCLUDE SYSUT5 (PROCESS ) */ 01354000 */*%INCLUDE SYSUT5 (FORCDACT) */ 01355000 */*%INCLUDE SYSUT5 (CUREQELM) */ 01356000 */*%INCLUDE SYSUT5 (HIERACH ) */ 01357000 */*%INCLUDE SYSUT5 (COHST ) */ 01358000 */*%INCLUDE SYSUT5 (LCBCLNUP) */ 01359000 */*%INCLUDE SYSUT5 (FREBFS ) */ 01360000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 01361000 */*%INCLUDE SYSUT5 (EXIT ) */ 01362000 */*%INCLUDE SYSUT5 (RTNPOST ) */ 01363000 */*%INCLUDE SYSUT5 (GENRSP ) */ 01364000 */*%INCLUDE SYSUT5 (FID0REQ ) */ 01365000 */*%INCLUDE SYSUT5 (FID1REQ ) */ 01366000 */*%INCLUDE SYSUT5 (SUBST0 ) */ 01367000 */*%INCLUDE SYSUT5 (PIUCHAIN) */ 01368000 * 01S0945 01369000 * ; 01S0945 01370000 @DATA DS 0H 01371000 @CH03078 DC H'10' 01372000 DS 0F 01373000 @SA00004 DS 1F 01374000 @SA00003 DS 1F 01375000 DS 0F 01376000 @CF00064 DC F'2' 01377000 @CF02759 DC F'14' 01378000 @CF03095 DC F'-8' 01379000 @CF02298 DC XL4'08000002' 01380000 @CF03088 DC XL4'0000FFFF' 01381000 @CF00626 DC XL4'20' 01382000 DS 0D 01383000 PRFSAVE DC A(0) 01384000 CURSAVE DC A(0) 01385000 SAVTRM DC A(0) 01386000 SAVFAILT DC H'0' 01387000 @CB02298 DC X'08000002' 01388000 DS CL2 01389000 LOCALCUR DS CL44 01390000 PIUSAVE DS CL20 01391000 INITCCW1 DS CL32 01392000 ORG INITCCW1 01393000 WRTSTART DS CL8 01394000 ORG WRTSTART 01395000 @NM00214 DC X'31' 01396000 @NM00215 DC AL3(0) 01397000 @NM00216 DC X'60' 01398000 @NM00217 DC AL1(0) 01399000 @NM00218 DC AL2(1) 01400000 ORG INITCCW1+8 01401000 TIC1 DS CL8 01402000 ORG TIC1 01403000 @NM00219 DC X'08' 01404000 @NM00220 DC XL7'0' 01405000 ORG INITCCW1+16 01406000 RDSTART DS CL8 01407000 ORG RDSTART 01408000 @NM00221 DC X'32' 01409000 @NM00222 DC AL3(0) 01410000 @NM00223 DC X'60' 01411000 @NM00224 DC AL1(0) 01412000 @NM00225 DC AL2(1) 01413000 ORG INITCCW1+24 01414000 TIC2 DS CL8 01415000 ORG TIC2 01416000 @NM00226 DC X'08' 01417000 @NM00227 DC XL7'0' 01418000 ORG INITCCW1+32 01419000 INITCCW2 DS CL16 01420000 ORG INITCCW2 01421000 NOP1 DS CL8 01422000 ORG NOP1 01423000 @NM00228 DC X'03' 01424000 @NM00229 DC AL3(0) 01425000 @NM00230 DC AL2(0) 01426000 @NM00231 DC AL2(1) 01427000 ORG INITCCW2+8 01428000 NOP2 DS CL8 01429000 ORG NOP2 01430000 @NM00232 DC X'03' 01431000 @NM00233 DC AL3(0) 01432000 @NM00234 DC AL2(0) 01433000 @NM00235 DC AL2(1) 01434000 ORG INITCCW2+16 01435000 IEDNCU CSECT 01436000 * /* 01437000 IEDNCU2 DC V(IEDNCU2) 01438000 IEDNCU CSECT 01439000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01440000 @01 EQU 01 01441000 @02 EQU 02 01442000 @03 EQU 03 01443000 @04 EQU 04 01444000 @05 EQU 05 01445000 @06 EQU 06 01446000 @07 EQU 07 01447000 @08 EQU 08 01448000 @09 EQU 09 01449000 @10 EQU 10 01450000 @11 EQU 11 01451000 @12 EQU 12 01452000 @13 EQU 13 01453000 @14 EQU 14 01454000 @15 EQU 15 01455000 RCUR EQU @02 01456000 RDISP EQU @11 01457000 LCBXPTR EQU @05 01458000 RTRM EQU @08 01459000 RAVT EQU @13 01460000 RLCB EQU @04 01461000 RPRF EQU @06 01462000 RTH EQU @10 01463000 RRVT EQU @03 01464000 RSAT EQU @03 01465000 REG00 EQU @00 01466000 RPARM EQU @01 01467000 RCHAIN EQU @03 01468000 REG03 EQU @03 01469000 RPIU EQU @05 01470000 REG05 EQU @05 01471000 RNUM EQU @05 01472000 RQCB EQU @07 01473000 REG09 EQU @09 01474000 RBASE EQU @12 01475000 RRETURN EQU @14 01476000 REG15 EQU @15 01477000 RBRANCH EQU @15 01478000 REG10 EQU @10 01479000 RSIZE EQU @05 01480000 CVTPTR EQU 16 01481000 IEDQAVTD EQU 0 01482000 AVTSAVEX EQU IEDQAVTD+216 01483000 AVTREADD EQU IEDQAVTD+308 01484000 AVTBUFSW EQU IEDQAVTD+312 01485000 @NM00004 EQU IEDQAVTD+316 01486000 AVTCKFLG EQU @NM00004 01487000 AVTOCGET EQU IEDQAVTD+320 01488000 AVTBASE EQU IEDQAVTD+340 01489000 AVTPKF EQU AVTBASE 01490000 AVTRNMPT EQU IEDQAVTD+352 01491000 AVTOSECB EQU IEDQAVTD+420 01492000 AVTECB1 EQU AVTOSECB 01493000 AVTHG02 EQU IEDQAVTD+456 01494000 AVTDISP EQU IEDQAVTD+480 01495000 AVTHD EQU IEDQAVTD+484 01496000 AVTSCOPT EQU AVTHD 01497000 AVTSAVTP EQU IEDQAVTD+540 01498000 AVTSAVTF EQU AVTSAVTP 01499000 AVTCKPEL EQU IEDQAVTD+580 01500000 AVTCKRMV EQU AVTCKPEL 01501000 AVTCKELF EQU IEDQAVTD+608 01502000 AVTCKBYT EQU IEDQAVTD+619 01503000 AVTHG01 EQU IEDQAVTD+620 01504000 AVTCKLNK EQU IEDQAVTD+624 01505000 AVTDELAD EQU IEDQAVTD+632 01506000 AVTCRELE EQU IEDQAVTD+636 01507000 AVTCCELE EQU AVTCRELE 01508000 AVTCLRHI EQU IEDQAVTD+644 01509000 AVTADBUF EQU IEDQAVTD+648 01510000 AVTSYSER EQU IEDQAVTD+656 01511000 AVTBFRFG EQU IEDQAVTD+712 01512000 AVTBFRTB EQU IEDQAVTD+720 01513000 AVTCKPQB EQU IEDQAVTD+732 01514000 AVTCKPTB EQU AVTCKPQB 01515000 AVTCKPEC EQU AVTCKPQB+4 01516000 AVTCKPCC EQU AVTCKPEC 01517000 AVTOPCQB EQU IEDQAVTD+744 01518000 AVTOPCOB EQU AVTOPCQB 01519000 AVTOPCEC EQU AVTOPCQB+4 01520000 AVTOPCCC EQU AVTOPCEC 01521000 AVTOLTQB EQU IEDQAVTD+756 01522000 AVTCWFL1 EQU IEDQAVTD+852 01523000 AVTCWFL2 EQU IEDQAVTD+853 01524000 AVTSUBT EQU IEDQAVTD+876 01525000 AVTIOTR EQU IEDQAVTD+877 01526000 AVTBIT1 EQU IEDQAVTD+978 01527000 AVTBIT2 EQU IEDQAVTD+979 01528000 AVTBIT3 EQU IEDQAVTD+980 01529000 AVTBIT4 EQU IEDQAVTD+1064 01530000 @NM00086 EQU IEDQAVTD+1160 01531000 IEDQAPTR EQU 0 01532000 IEDNSVTD EQU 0 01533000 SAVTDIAG EQU IEDNSVTD 01534000 SAVTDIAF EQU SAVTDIAG 01535000 SAVTCLUP EQU IEDNSVTD+72 01536000 SAVTSAT EQU IEDNSVTD+80 01537000 SAVTLUSQ EQU IEDNSVTD+88 01538000 SAVTIPCQ EQU IEDNSVTD+144 01539000 SAVTTCPU EQU IEDNSVTD+238 01540000 SAVTTNTX EQU IEDNSVTD+252 01541000 SAVTZELM EQU IEDNSVTD+270 01542000 SAVTSUBL EQU IEDNSVTD+272 01543000 SAVTRDRV EQU IEDNSVTD+284 01544000 SAVTCKQB EQU IEDNSVTD+300 01545000 SAVTCKTB EQU SAVTCKQB 01546000 SAVTCKEC EQU SAVTCKQB+4 01547000 SAVTCKCC EQU SAVTCKEC 01548000 IEDBDU EQU 0 01549000 BDUCMND EQU IEDBDU 01550000 BDUMODIF EQU IEDBDU+1 01551000 BDUFNFLG EQU IEDBDU+2 01552000 BDUBDUFG EQU IEDBDU+3 01553000 BDURSP EQU IEDBDU+4 01554000 BDUSYRSP EQU BDURSP 01555000 BDUPHASE EQU BDUSYRSP 01556000 BDUEXRSP EQU BDURSP+1 01557000 BDUEND EQU IEDBDU+6 01558000 IEDQCCW EQU 0 01559000 CCW EQU IEDQCCW 01560000 CCWOPCDE EQU CCW 01561000 CCWFLAGS EQU CCW+4 01562000 IEDCUREQ EQU 0 01563000 CURKEY EQU IEDCUREQ 01564000 CURQCB EQU IEDCUREQ+1 01565000 CURPRI EQU IEDCUREQ+4 01566000 CURLINK EQU IEDCUREQ+8 01567000 CURTOTIN EQU IEDCUREQ+12 01568000 CURFLG1 EQU CURTOTIN 01569000 CURSWCH EQU CURTOTIN+1 01570000 CURFLG2 EQU IEDCUREQ+14 01571000 CURFLG3 EQU IEDCUREQ+15 01572000 CUREPOST EQU CURFLG3 01573000 CURFIRST EQU CURFLG3 01574000 CURNCURE EQU CURFLG3 01575000 CURDIAL EQU CURFLG3 01576000 CURFAILT EQU IEDCUREQ+18 01577000 CURTTCIN EQU IEDCUREQ+20 01578000 CURNXTRC EQU IEDCUREQ+22 01579000 CURNEWBF EQU IEDCUREQ+24 01580000 CURPIUPC EQU IEDCUREQ+32 01581000 CURTRM EQU IEDCUREQ+40 01582000 CVTMAP EQU 0 01583000 CVTDAR EQU CVTMAP+72 01584000 CVTFLGS1 EQU CVTDAR 01585000 CVTDCB EQU CVTMAP+116 01586000 CVTIERLC EQU CVTMAP+144 01587000 CVTOPTA EQU CVTMAP+182 01588000 CVTOPTB EQU CVTMAP+183 01589000 CVTGTF EQU CVTMAP+236 01590000 CVTGTFST EQU CVTGTF 01591000 CVTGTFS EQU CVTGTFST 01592000 CVTSTATE EQU CVTGTFST 01593000 CVTTMODE EQU CVTGTFST 01594000 CVTFORM EQU CVTGTFST 01595000 CVTAQAVT EQU CVTMAP+240 01596000 CVTTCMFG EQU CVTAQAVT 01597000 CVTVOLM2 EQU CVTMAP+244 01598000 CVTTATA EQU CVTVOLM2 01599000 CVTTSKS EQU CVTTATA 01600000 CVTVOLF2 EQU CVTTSKS 01601000 CVTTAT EQU CVTTATA+1 01602000 CVTATER EQU CVTMAP+248 01603000 CVTEXT1 EQU CVTMAP+252 01604000 CVTPURG EQU CVTMAP+260 01605000 CVTQMSG EQU CVTMAP+268 01606000 CVTDMSR EQU CVTMAP+272 01607000 CVTRSV37 EQU CVTDMSR 01608000 CVTDMSRF EQU CVTRSV37 01609000 CVTPTRV EQU CVTMAP+288 01610000 CVTERPV EQU CVTMAP+316 01611000 CVTINTLA EQU CVTMAP+320 01612000 CVTAPF EQU CVTMAP+324 01613000 CVTEXT2 EQU CVTMAP+328 01614000 CVTHJES EQU CVTMAP+332 01615000 CVTPGSIA EQU CVTMAP+348 01616000 CVTA1F1 EQU CVTMAP+356 01617000 CVTSYSK EQU CVTMAP+357 01618000 CVTVOLM1 EQU CVTMAP+380 01619000 CVTVOLF1 EQU CVTVOLM1 01620000 CVTATMCT EQU CVTMAP+388 01621000 CVTXTNT1 EQU 0 01622000 CVTXTNT2 EQU 0 01623000 CVTDSSV EQU CVTXTNT2 01624000 CVTFLGBT EQU CVTXTNT2+5 01625000 CVTQID EQU CVTXTNT2+24 01626000 CVTSHS EQU CVTXTNT2+40 01627000 CVTRV400 EQU CVTXTNT2+52 01628000 CVTRV409 EQU CVTXTNT2+53 01629000 CVTATCVT EQU CVTXTNT2+64 01630000 CVTRV429 EQU CVTXTNT2+84 01631000 CVTRV438 EQU CVTXTNT2+85 01632000 CVTRV457 EQU CVTXTNT2+112 01633000 CVTRV466 EQU CVTXTNT2+113 01634000 CVTFIX EQU 0 01635000 CVTRELNO EQU CVTFIX+252 01636000 IHADCB EQU 0 01637000 DCBPTR EQU 0 01638000 IHADCS1A EQU 0 01639000 DCBBCKUP EQU IHADCS1A+8 01640000 IHADCS2K EQU 0 01641000 DCBDUMPD EQU IHADCS2K 01642000 DCBTRSTA EQU IHADCS2K+5 01643000 DCBDSORG EQU IHADCS2K+6 01644000 DCBDSRG2 EQU DCBDSORG+1 01645000 DCBIOBAD EQU IHADCS2K+8 01646000 DCBRNCKD EQU IHADCS2K+12 01647000 DCBEXLST EQU IHADCS2K+16 01648000 DCBEIOBX EQU DCBEXLST 01649000 IHADCS24 EQU 0 01650000 DCBOFLGS EQU IHADCS24+8 01651000 DCBOFLWR EQU DCBOFLGS 01652000 DCBIFLG EQU IHADCS24+9 01653000 DCBIBPCT EQU DCBIFLG 01654000 DCBMACR EQU IHADCS24+10 01655000 DCBMACR1 EQU DCBMACR 01656000 DCBMRFE EQU DCBMACR1 01657000 DCBMRGET EQU DCBMRFE 01658000 DCBMRAPG EQU DCBMACR1 01659000 DCBMRRD EQU DCBMRAPG 01660000 DCBMRCI EQU DCBMACR1 01661000 DCBMRMVG EQU DCBMRCI 01662000 DCBMRLCG EQU DCBMACR1 01663000 DCBMRABC EQU DCBMACR1 01664000 DCBMRPT1 EQU DCBMRABC 01665000 DCBMRSBG EQU DCBMRPT1 01666000 DCBMRCRL EQU DCBMACR1 01667000 DCBMRCHK EQU DCBMRCRL 01668000 DCBMRRDX EQU DCBMRCHK 01669000 DCBMRDMG EQU DCBMACR1 01670000 DCBMACR2 EQU DCBMACR+1 01671000 DCBMRPUT EQU DCBMACR2 01672000 DCBMRWRT EQU DCBMACR2 01673000 DCBMRMVP EQU DCBMACR2 01674000 DCBMR5WD EQU DCBMACR2 01675000 DCBMRLDM EQU DCBMR5WD 01676000 DCBMRLCP EQU DCBMRLDM 01677000 DCBMR4WD EQU DCBMACR2 01678000 DCBMRPT2 EQU DCBMR4WD 01679000 DCBMRTMD EQU DCBMRPT2 01680000 DCBMR3WD EQU DCBMACR2 01681000 DCBMRCTL EQU DCBMR3WD 01682000 DCBMRSTK EQU DCBMRCTL 01683000 DCBMR1WD EQU DCBMACR2 01684000 DCBMRSWA EQU DCBMR1WD 01685000 DCBMRDMD EQU DCBMRSWA 01686000 IHADCS25 EQU 0 01687000 DCBMACRF EQU IHADCS25+2 01688000 DCBMACF1 EQU DCBMACRF 01689000 DCBMFFE EQU DCBMACF1 01690000 DCBMFGET EQU DCBMFFE 01691000 DCBMFAPG EQU DCBMACF1 01692000 DCBMFRD EQU DCBMFAPG 01693000 DCBMFCI EQU DCBMACF1 01694000 DCBMFMVG EQU DCBMFCI 01695000 DCBMFLCG EQU DCBMACF1 01696000 DCBMFABC EQU DCBMACF1 01697000 DCBMFPT1 EQU DCBMFABC 01698000 DCBMFSBG EQU DCBMFPT1 01699000 DCBMFCRL EQU DCBMACF1 01700000 DCBMFCHK EQU DCBMFCRL 01701000 DCBMFDMG EQU DCBMACF1 01702000 DCBMACF2 EQU DCBMACRF+1 01703000 DCBMFPUT EQU DCBMACF2 01704000 DCBMFWRT EQU DCBMACF2 01705000 DCBMFMVP EQU DCBMACF2 01706000 DCBMF5WD EQU DCBMACF2 01707000 DCBMFLDM EQU DCBMF5WD 01708000 DCBMFLCP EQU DCBMFLDM 01709000 DCBMF4WD EQU DCBMACF2 01710000 DCBMFPT2 EQU DCBMF4WD 01711000 DCBMFTMD EQU DCBMFPT2 01712000 DCBMF3WD EQU DCBMACF2 01713000 DCBMFCTL EQU DCBMF3WD 01714000 DCBMFSTK EQU DCBMFCTL 01715000 DCBMF1WD EQU DCBMACF2 01716000 DCBMFSWA EQU DCBMF1WD 01717000 DCBMFDMD EQU DCBMFSWA 01718000 DCBDEBAD EQU IHADCS25+4 01719000 DCBIFLGS EQU DCBDEBAD 01720000 DCBIFPCT EQU DCBIFLGS 01721000 IHADCS27 EQU 0 01722000 DCBGET EQU IHADCS27 01723000 DCBPUT EQU DCBGET 01724000 DCBGETA EQU DCBPUT+1 01725000 IHADCS43 EQU 0 01726000 DCBSCTAB EQU IHADCS43 01727000 IEDQDISP EQU 0 01728000 DSPDISP EQU 4 01729000 DSPBYPAS EQU 20 01730000 DSPPOST EQU 24 01731000 DSPPOSTR EQU 28 01732000 IEDQLCB EQU 0 01733000 LCBRCB EQU IEDQLCB 01734000 LCBTSOB EQU IEDQLCB+19 01735000 LCBCHAIN EQU IEDQLCB+20 01736000 LCBSCRNN EQU LCBCHAIN 01737000 LCBTETEN EQU LCBCHAIN 01738000 LCBINSRC EQU IEDQLCB+21 01739000 LCBLKMDE EQU LCBINSRC+2 01740000 LCBNTXT EQU IEDQLCB+24 01741000 LCBSTAT4 EQU LCBNTXT 01742000 LCBPHASE EQU LCBSTAT4 01743000 LCBREAL EQU LCBPHASE 01744000 LCBCPGMH EQU LCBSTAT4 01745000 LCBSCBDA EQU IEDQLCB+25 01746000 LCBMHA EQU IEDQLCB+29 01747000 LCBFSBFR EQU LCBMHA 01748000 LCBFLAG1 EQU IEDQLCB+32 01749000 LCBIOBSN EQU IEDQLCB+33 01750000 LCBSNS EQU LCBIOBSN+1 01751000 LCBSENS0 EQU LCBSNS 01752000 LCBLOSDT EQU LCBSENS0 01753000 LCBTMOUT EQU LCBSENS0 01754000 LCBFLAG3 EQU LCBIOBSN+7 01755000 LCBCSW EQU LCBIOBSN+8 01756000 LCBCSWST EQU LCBCSW+3 01757000 LCBCSWUS EQU LCBCSWST 01758000 LCBCSWCS EQU LCBCSWST+1 01759000 LCBSIOCC EQU LCBIOBSN+15 01760000 LCBDCBPT EQU IEDQLCB+52 01761000 LCBRCQCB EQU IEDQLCB+56 01762000 LCBRESTR EQU LCBRCQCB 01763000 LCBTHSQ EQU IEDQLCB+60 01764000 LCBINCAM EQU LCBTHSQ 01765000 LCBERRCT EQU IEDQLCB+62 01766000 LCBLSPCI EQU IEDQLCB+65 01767000 LCBRCBFR EQU LCBLSPCI 01768000 LCBRDBFR EQU LCBRCBFR 01769000 LCBSTATE EQU IEDQLCB+70 01770000 LCBSTAT1 EQU LCBSTATE 01771000 LCBSTAT2 EQU LCBSTATE+1 01772000 LCBBEOTN EQU LCBSTAT2 01773000 LCBSYNC EQU LCBSTAT2 01774000 LCBATTN EQU LCBSYNC 01775000 LCBDIAL EQU LCBSTAT2 01776000 LCBBFRAV EQU LCBDIAL 01777000 LCBTSTSW EQU IEDQLCB+72 01778000 LCBERB EQU IEDQLCB+76 01779000 LCBERBST EQU IEDQLCB+84 01780000 LCBDLNKN EQU LCBERBST 01781000 LCBERBCT EQU IEDQLCB+88 01782000 LCBRBCT2 EQU LCBERBCT+1 01783000 LCBMSGFM EQU IEDQLCB+92 01784000 LCBOBRCH EQU IEDQLCB+96 01785000 LCBINVPT EQU LCBOBRCH+1 01786000 LCBBFRW EQU LCBINVPT 01787000 LCBTPCD EQU IEDQLCB+100 01788000 LCBSTAT5 EQU LCBTPCD 01789000 LCBSTAT6 EQU LCBTPCD+4 01790000 LCBRSPSV EQU LCBTPCD+8 01791000 LCBSAVSN EQU IEDQLCB+112 01792000 LCBERCCW EQU IEDQLCB+120 01793000 LCBCPA EQU IEDQLCB+144 01794000 LCBCCW1 EQU LCBCPA 01795000 LCBCCW3 EQU LCBCPA+16 01796000 LCBCCW5 EQU LCBCPA+32 01797000 LCBATTEL EQU LCBCCW5 01798000 LCBQEBPL EQU LCBATTEL 01799000 LCBIOSB EQU LCBQEBPL+1 01800000 LCBCCW6 EQU LCBCPA+40 01801000 LCBCCW7 EQU LCBCPA+48 01802000 IEDQLPTR EQU 0 01803000 IEDQLCBX EQU 0 01804000 LCBXCON EQU IEDQLCBX 01805000 LCBXFLAG EQU LCBXCON 01806000 LCBXDCT EQU LCBXCON+1 01807000 LCBXRADR EQU LCBXCON+4 01808000 IEDQOPCD EQU 0 01809000 OPCAQCTL EQU IEDQOPCD+180 01810000 OPCLDNME EQU IEDQOPCD+212 01811000 OPCHORT EQU IEDQOPCD+256 01812000 OPCSPEC EQU IEDQOPCD+300 01813000 OPCPWCOB EQU IEDQOPCD+368 01814000 OPCPWQCB EQU OPCPWCOB 01815000 OPCPWECB EQU OPCPWCOB+4 01816000 ROPCAVT EQU 0 01817000 IEDQPRF EQU 0 01818000 PRFRCB EQU IEDQPRF 01819000 PRFKEY EQU PRFRCB 01820000 PRFQCBA EQU PRFRCB+1 01821000 PRFPRI EQU PRFRCB+4 01822000 PRFLINK EQU PRFRCB+5 01823000 PRFTIC EQU IEDQPRF+8 01824000 PRFTICC EQU PRFTIC 01825000 PRFTI0 EQU PRFTIC+1 01826000 PRFNBUNT EQU IEDQPRF+12 01827000 PRFSUNIT EQU PRFNBUNT 01828000 PRFPLQCB EQU PRFSUNIT 01829000 PRFPIUO EQU PRFPLQCB 01830000 @NM00182 EQU IEDQPRF+16 01831000 PRFSVFFO EQU @NM00182 01832000 PRFSTAT1 EQU IEDQPRF+20 01833000 PRFEOFN EQU PRFSTAT1 01834000 PRFCORE EQU IEDQPRF+21 01835000 PRFXTRA EQU PRFCORE 01836000 PRFSCAN EQU IEDQPRF+24 01837000 PRFTQBCK EQU IEDQPRF+26 01838000 PRFNTXT EQU PRFTQBCK 01839000 PRFEOBOF EQU PRFNTXT 01840000 PRFCHDR EQU IEDQPRF+32 01841000 PRFHQBCK EQU IEDQPRF+35 01842000 IEDQPPTR EQU 0 01843000 IEDPF1 EQU 0 01844000 PRF1FLG1 EQU IEDPF1+3 01845000 PRF1WD2 EQU IEDPF1+4 01846000 PRF1SEQP EQU PRF1WD2 01847000 PRF1SQID EQU PRF1SEQP 01848000 PRF1TAG1 EQU PRF1SQID 01849000 IEDPF2 EQU 0 01850000 PRF2FLG2 EQU IEDPF2 01851000 PRF2TERM EQU PRF2FLG2 01852000 PRF2WD2 EQU IEDPF2+4 01853000 IEDQQCB EQU 0 01854000 QCBDSFLG EQU IEDQQCB 01855000 QCBDISK EQU QCBDSFLG 01856000 QCBELCHN EQU IEDQQCB+1 01857000 QCBEOLDT EQU IEDQQCB+16 01858000 QCBBYTE1 EQU QCBEOLDT+1 01859000 QCBLKRLN EQU IEDQQCB+18 01860000 QCBRETCT EQU QCBLKRLN 01861000 QCBSTAT EQU IEDQQCB+19 01862000 QCBINSRC EQU IEDQQCB+21 01863000 @NM00192 EQU QCBINSRC 01864000 QCBTSOF2 EQU @NM00192+1 01865000 QCBTSOF1 EQU @NM00192+2 01866000 QCBINTVL EQU IEDQQCB+24 01867000 QCBPREN EQU IEDQQCB+28 01868000 QCBLKRRN EQU QCBPREN+1 01869000 QCBDCBAD EQU IEDQQCB+33 01870000 QCBFLAG EQU IEDQQCB+36 01871000 IEDQQPTR EQU 0 01872000 IEDQPQCB EQU 0 01873000 QCBFHDLZ EQU IEDQPQCB+3 01874000 QCBPFEFO EQU QCBFHDLZ+1 01875000 QCBFHDTZ EQU IEDQPQCB+6 01876000 QCBINTLF EQU IEDQPQCB+12 01877000 IEDNQCB EQU 0 01878000 QCBSTAT1 EQU IEDNQCB+4 01879000 QCBPLCBA EQU IEDNQCB+5 01880000 IEDRVTD EQU 0 01881000 RVTNUM EQU IEDRVTD 01882000 RVTINDEX EQU IEDRVTD+2 01883000 IEDQRVTP EQU 0 01884000 IEDSATD EQU 0 01885000 SATRNRVT EQU IEDSATD+4 01886000 IEDQSATP EQU 0 01887000 IEDSNSD EQU 0 01888000 SNSSYSTM EQU IEDSNSD 01889000 SNSMAJ EQU SNSSYSTM 01890000 SNSMIN EQU SNSSYSTM+1 01891000 SNSUSER EQU IEDSNSD+2 01892000 SNSPTR EQU 0 01893000 IEDRH EQU 0 01894000 TRHBYTE0 EQU IEDRH 01895000 TRHTYPE EQU TRHBYTE0 01896000 TRHFI EQU TRHBYTE0 01897000 TRHSDI EQU TRHBYTE0 01898000 TRHBC EQU TRHBYTE0 01899000 TRHEC EQU TRHBYTE0 01900000 TRHBYTE1 EQU IEDRH+1 01901000 TRHDR1 EQU TRHBYTE1 01902000 TRHBYTE2 EQU IEDRH+2 01903000 IEDTRM EQU 0 01904000 IEDNTRM EQU IEDTRM 01905000 TRMBYTE4 EQU IEDNTRM 01906000 TRMBYTE3 EQU IEDNTRM+1 01907000 TRMBYTE2 EQU IEDNTRM+2 01908000 TRMRSACT EQU TRMBYTE2 01909000 TRMINPG EQU TRMBYTE2 01910000 TRMBYTE1 EQU IEDNTRM+3 01911000 TRMSCPRQ EQU TRMBYTE1 01912000 TRMCOHRT EQU IEDNTRM+4 01913000 TRMBYTE0 EQU IEDNTRM+6 01914000 TRMDIAL EQU TRMBYTE0 01915000 TRMSNA EQU TRMBYTE0 01916000 TRMSIBPT EQU IEDNTRM+7 01917000 TRMTYPE EQU IEDNTRM+11 01918000 TRMSUBST EQU IEDNTRM+12 01919000 IEDQTRM EQU IEDTRM+14 01920000 TRMSTATE EQU IEDQTRM 01921000 TRMLOG EQU TRMSTATE 01922000 TRMDESTQ EQU IEDQTRM+1 01923000 TRMINSEQ EQU IEDQTRM+4 01924000 TLISTCNT EQU TRMINSEQ 01925000 TRMOUTSQ EQU IEDQTRM+6 01926000 TLISTEN EQU TRMOUTSQ 01927000 TRMDSORG EQU TLISTEN 01928000 TRMALTD EQU IEDQTRM+8 01929000 TRMDEVFL EQU IEDQTRM+10 01930000 TRMSTAT EQU IEDQTRM+12 01931000 IEDTH EQU 0 01932000 TTHBYTE0 EQU IEDTH 01933000 TTHFTYPE EQU TTHBYTE0 01934000 TTHDAF EQU IEDTH+2 01935000 TTHOAF EQU IEDTH+4 01936000 TTHSNF EQU IEDTH+6 01937000 TTHTAG EQU TTHSNF 01938000 TTHTAG1 EQU TTHTAG 01939000 TTHDCF EQU IEDTH+8 01940000 SQCB EQU 0 01941000 IEDQTNT EQU 0 01942000 COHORTLK EQU 0 01943000 IEAPTRV EQU 0 01944000 STATANAL EQU 0 01945000 IEDIAP04 EQU 0 01946000 RU EQU 0 01947000 PIU EQU 0 01948000 DSPCHAIN EQU 12 01949000 DSPLIFO EQU 56 01950000 DSPLIFOR EQU 60 01951000 DSPLIST EQU 8 01952000 DSPPRIO EQU 48 01953000 DSPPRIOR EQU 52 01954000 DSPTRACE EQU 64 01955000 DSPTSTQ EQU 32 01956000 DSPTSTQR EQU 36 01957000 DSPUNAV EQU 40 01958000 DSPUNAVR EQU 44 01959000 DSPWAIT EQU 16 01960000 IEDQDPTR EQU 0 01961000 IEDQTPTR EQU 0 01962000 QCBLDCB EQU 0 01963000 CVTS01 EQU CVTPGSIA 01964000 CVTLPDIA EQU CVTS01+12 01965000 CVTDIRST EQU CVTLPDIA 01966000 CVTSLIDA EQU CVTS01+24 01967000 CVTCTLFG EQU CVTS01+50 01968000 CVTRV210 EQU CVTS01+424 01969000 CVTRV219 EQU CVTS01+425 01970000 CVTRV228 EQU CVTS01+426 01971000 CVTRV237 EQU CVTS01+427 01972000 CVTMFRTR EQU CVTS01+452 01973000 CVTRV262 EQU CVTS01+468 01974000 CVTRV271 EQU CVTS01+469 01975000 CVTRV280 EQU CVTS01+470 01976000 CVTRV289 EQU CVTS01+471 01977000 CVTGSDA EQU CVTS01+600 01978000 LCBRSPIN EQU LCBIOBSN 01979000 LCBLUSNS EQU LCBRSPIN+5 01980000 LCBSCPRS EQU LCBRSPIN+9 01981000 LCBCSWU1 EQU LCBSCPRS+2 01982000 LCBRSPFG EQU LCBRSPIN+15 01983000 LCBCOREQ EQU LCBTPCD 01984000 LCBCQELE EQU LCBCOREQ 01985000 @NM00148 EQU LCBCPA+40 01986000 LCBQNX EQU LCBERCCW 01987000 LCBQNXMN EQU LCBQNX 01988000 LCBIOSBS EQU LCBQNX+5 01989000 LCBCANCL EQU LCBSAVSN 01990000 LCBCANFG EQU LCBCANCL 01991000 OPCAQWD EQU OPCAQCTL 01992000 OPCAQWD1 EQU OPCAQWD 01993000 OPCAQWD2 EQU OPCAQWD+4 01994000 OPCAQWD3 EQU OPCAQWD+8 01995000 TRMPRE1 EQU TRMBYTE4 01996000 TRMNCP1 EQU TRMBYTE4 01997000 TRMINOP EQU TRMNCP1 01998000 TRMPRE EQU TRMBYTE3 01999000 TRMNCP EQU TRMBYTE3 02000000 TRMPU EQU TRMBYTE3 02001000 TRMLU EQU TRMBYTE3 02002000 TRMLINK EQU TRMBYTE3 02003000 @NM00236 EQU LCBCCW1 02004000 WRTADDR EQU @NM00236+1 02005000 @NM00238 EQU LCBCCW3 02006000 RDADDR EQU @NM00238+1 02007000 @NM00240 EQU LCBCCW6 02008000 NOP1ADDR EQU @NM00240+1 02009000 @NM00242 EQU LCBCCW7 02010000 NOP2OPCD EQU @NM00242 02011000 NOP2ADDR EQU @NM00242+1 02012000 BDUTEXT EQU BDUEND 02013000 PRFSHDR EQU IEDQPRF+42 02014000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02015000 @NM00241 EQU @NM00240 02016000 @NM00239 EQU @NM00238 02017000 @NM00237 EQU @NM00236 02018000 @NM00211 EQU TRMLINK 02019000 TRMLSTAT EQU TRMLINK 02020000 TRMLINT EQU TRMLINK 02021000 TRMEPMOD EQU TRMLINK 02022000 TRMLULOG EQU TRMLU 02023000 TRMINERR EQU TRMLU 02024000 TRMLUREQ EQU TRMLU 02025000 TRMSESRQ EQU TRMLU 02026000 TRMTDIFF EQU TRMLU 02027000 TRMLUTM EQU TRMLU 02028000 TRMLUIT EQU TRMLU 02029000 TRMAUTO EQU TRMLU 02030000 TRMPCONT EQU TRMPU 02031000 @NM00210 EQU TRMPU 02032000 TRMNCONT EQU TRMNCP 02033000 TRMQUCKN EQU TRMNCP 02034000 TRMSLOWN EQU TRMNCP 02035000 TRMSYGEN EQU TRMNCP 02036000 TRMNCPCL EQU TRMNCP 02037000 TRMIPLDM EQU TRMNCP 02038000 TRMINOUT EQU TRMPRE 02039000 TRMRDOUT EQU TRMPRE 02040000 TRMNLOUT EQU TRMPRE 02041000 TRMWROUT EQU TRMPRE 02042000 TRMASNXI EQU TRMPRE 02043000 TRMSTMM EQU TRMPRE 02044000 TRMCMODE EQU TRMPRE 02045000 TRMSTPND EQU TRMPRE 02046000 @NM00209 EQU TRMNCP1 02047000 TRMLYNCH EQU TRMPRE1 02048000 TRMSPOUT EQU TRMPRE1 02049000 TRMERLCK EQU TRMPRE1 02050000 TRMQNPL EQU TRMPRE1 02051000 TRMSPACT EQU TRMPRE1 02052000 TRMOCNI EQU TRMPRE1 02053000 TRMSESSN EQU TRMPRE1 02054000 TRMCONT EQU TRMPRE1 02055000 OPCAQLST EQU OPCAQWD3+1 02056000 OPCAQRQ3 EQU OPCAQWD3 02057000 OPCAQSEC EQU OPCAQWD2+1 02058000 OPCAQRQ2 EQU OPCAQWD2 02059000 OPCAQFST EQU OPCAQWD1+1 02060000 OPCAQREQ EQU OPCAQWD1 02061000 @NM00156 EQU LCBCANCL+3 02062000 LCBCANTH EQU LCBCANCL+1 02063000 @NM00155 EQU LCBCANFG 02064000 LCBCANCD EQU LCBCANFG 02065000 @NM00154 EQU LCBCANFG 02066000 LCBCANEB EQU LCBCANFG 02067000 LCBCANXT EQU LCBCANFG 02068000 LCBUNADD EQU LCBQNX+21 02069000 LCBUASZE EQU LCBQNX+20 02070000 LCBDSTEA EQU LCBQNX+16 02071000 @NM00153 EQU LCBQNX+8 02072000 @NM00152 EQU LCBQNX+4 02073000 LCBSTSAV EQU LCBQNX+1 02074000 @NM00151 EQU LCBQNXMN 02075000 LCBNX509 EQU LCBQNXMN 02076000 LCBNX162 EQU LCBQNXMN 02077000 LCBNX142 EQU LCBQNXMN 02078000 LCBNX064 EQU LCBQNXMN 02079000 @NM00150 EQU @NM00148+4 02080000 LCBNCPPT EQU @NM00148+1 02081000 @NM00149 EQU @NM00148 02082000 LCBWRSCH EQU LCBCOREQ+8 02083000 LCBCQLNK EQU LCBCOREQ+4 02084000 LCBPAKCH EQU LCBRSPIN+16 02085000 @NM00147 EQU LCBRSPFG 02086000 LCBRSRH EQU LCBRSPFG 02087000 LCBEXPI EQU LCBRSPFG 02088000 @NM00146 EQU LCBRSPIN+12 02089000 LCBUSUE1 EQU LCBCSWU1 02090000 @NM00145 EQU LCBCSWU1 02091000 @NM00144 EQU LCBSCPRS+1 02092000 LCBDFCMD EQU LCBSCPRS 02093000 LCBUSER EQU LCBLUSNS+2 02094000 LCBSMIN EQU LCBLUSNS+1 02095000 LCBSMAJ EQU LCBLUSNS 02096000 LCBRHSV EQU LCBRSPIN+2 02097000 LCBSNS0 EQU LCBRSPIN+1 02098000 @NM00143 EQU LCBRSPIN 02099000 CVTRV628 EQU CVTS01+728 02100000 CVTRV627 EQU CVTS01+724 02101000 CVTRV626 EQU CVTS01+720 02102000 CVTRV625 EQU CVTS01+716 02103000 CVTRV624 EQU CVTS01+712 02104000 CVTRV623 EQU CVTS01+708 02105000 CVTRV622 EQU CVTS01+704 02106000 CVTRV621 EQU CVTS01+700 02107000 CVTRV620 EQU CVTS01+696 02108000 CVTRV619 EQU CVTS01+692 02109000 CVTRV618 EQU CVTS01+688 02110000 CVTRV617 EQU CVTS01+684 02111000 CVTRV616 EQU CVTS01+680 02112000 CVTRV615 EQU CVTS01+676 02113000 CVTRV614 EQU CVTS01+672 02114000 CVTRV613 EQU CVTS01+668 02115000 CVTTCASP EQU CVTS01+664 02116000 CVT0PT03 EQU CVTS01+660 02117000 CVT0PT0E EQU CVTS01+656 02118000 CVTIRM EQU CVTS01+652 02119000 CVTCGK EQU CVTS01+648 02120000 CVTRV607 EQU CVTS01+644 02121000 CVTRV606 EQU CVTS01+640 02122000 CVTRV605 EQU CVTS01+636 02123000 CVTRV604 EQU CVTS01+632 02124000 CVTEFF02 EQU CVTS01+628 02125000 CVTCBBR EQU CVTS01+624 02126000 CVTSSCR EQU CVTS01+620 02127000 CVTEVENT EQU CVTS01+616 02128000 CVTCRCA EQU CVTS01+612 02129000 CVTTPIO EQU CVTS01+608 02130000 CVTADV EQU CVTS01+604 02131000 CVTGSDAB EQU CVTGSDA 02132000 CVTQV3 EQU CVTS01+596 02133000 CVTQV2 EQU CVTS01+592 02134000 CVTQV1 EQU CVTS01+588 02135000 CVTRPT EQU CVTS01+584 02136000 CVTSSRB EQU CVTS01+580 02137000 CVTCSDRL EQU CVTS01+576 02138000 CVTEXP1 EQU CVTS01+572 02139000 CVTRMPMT EQU CVTS01+568 02140000 CVTRMPTT EQU CVTS01+564 02141000 CVTVPSA EQU CVTS01+560 02142000 CVTVSTOP EQU CVTS01+556 02143000 CVTGTFR8 EQU CVTS01+552 02144000 CVTQUIT EQU CVTS01+548 02145000 CVTVACR EQU CVTS01+544 02146000 CVTWTCB EQU CVTS01+540 02147000 CVTSTPRS EQU CVTS01+536 02148000 CVT0PT02 EQU CVTS01+532 02149000 CVTDARCM EQU CVTS01+528 02150000 CVTIRECM EQU CVTS01+524 02151000 CVTJRECM EQU CVTS01+520 02152000 CVTVEMS0 EQU CVTS01+516 02153000 CVTSPFRR EQU CVTS01+512 02154000 CVTRLSTG EQU CVTS01+508 02155000 CVT0TC0A EQU CVTS01+504 02156000 CVTGMBR EQU CVTS01+500 02157000 CVTLFRM EQU CVTS01+496 02158000 CVTRMBR EQU CVTS01+492 02159000 CVTVIOP EQU CVTS01+488 02160000 CVTRV307 EQU CVTS01+486 02161000 CVTRV306 EQU CVTS01+484 02162000 CVTRV305 EQU CVTS01+482 02163000 CVTRV304 EQU CVTS01+480 02164000 CVTRV303 EQU CVTS01+478 02165000 CVTRV302 EQU CVTS01+476 02166000 CVTTRCA EQU CVTS01+472 02167000 CVTRV297 EQU CVTRV289 02168000 CVTRV296 EQU CVTRV289 02169000 CVTRV295 EQU CVTRV289 02170000 CVTRV294 EQU CVTRV289 02171000 CVTRV293 EQU CVTRV289 02172000 CVTRV292 EQU CVTRV289 02173000 CVTRV291 EQU CVTRV289 02174000 CVTRV290 EQU CVTRV289 02175000 CVTRV288 EQU CVTRV280 02176000 CVTRV287 EQU CVTRV280 02177000 CVTRV286 EQU CVTRV280 02178000 CVTRV285 EQU CVTRV280 02179000 CVTRV284 EQU CVTRV280 02180000 CVTRV283 EQU CVTRV280 02181000 CVTRV282 EQU CVTRV280 02182000 CVTRV281 EQU CVTRV280 02183000 CVTRV279 EQU CVTRV271 02184000 CVTRV278 EQU CVTRV271 02185000 CVTRV277 EQU CVTRV271 02186000 CVTRV276 EQU CVTRV271 02187000 CVTRV275 EQU CVTRV271 02188000 CVTRV274 EQU CVTRV271 02189000 CVTRV273 EQU CVTRV271 02190000 CVTRV272 EQU CVTRV271 02191000 CVTRV270 EQU CVTRV262 02192000 CVTRV269 EQU CVTRV262 02193000 CVTRV268 EQU CVTRV262 02194000 CVTRV267 EQU CVTRV262 02195000 CVTRV266 EQU CVTRV262 02196000 CVTRV265 EQU CVTRV262 02197000 CVTRV264 EQU CVTRV262 02198000 CVTRV263 EQU CVTRV262 02199000 CVTVFP EQU CVTS01+464 02200000 CVTVSI EQU CVTS01+460 02201000 CVTVPSIB EQU CVTS01+456 02202000 CVTMFACT EQU CVTMFRTR 02203000 CVTMFCTL EQU CVTS01+448 02204000 CVTPVBP EQU CVTS01+444 02205000 CVTPWI EQU CVTS01+440 02206000 CVTRV254 EQU CVTS01+438 02207000 CVTRV253 EQU CVTS01+436 02208000 CVTRV252 EQU CVTS01+434 02209000 CVTRV251 EQU CVTS01+433 02210000 CVTRV250 EQU CVTS01+432 02211000 CVTRV249 EQU CVTS01+431 02212000 CVTRV248 EQU CVTS01+430 02213000 CVTRV247 EQU CVTS01+429 02214000 CVTRV246 EQU CVTS01+428 02215000 CVTRV245 EQU CVTRV237 02216000 CVTRV244 EQU CVTRV237 02217000 CVTRV243 EQU CVTRV237 02218000 CVTRV242 EQU CVTRV237 02219000 CVTRV241 EQU CVTRV237 02220000 CVTRV240 EQU CVTRV237 02221000 CVTRV239 EQU CVTRV237 02222000 CVTRV238 EQU CVTRV237 02223000 CVTRV236 EQU CVTRV228 02224000 CVTRV235 EQU CVTRV228 02225000 CVTRV234 EQU CVTRV228 02226000 CVTRV233 EQU CVTRV228 02227000 CVTRV232 EQU CVTRV228 02228000 CVTRV231 EQU CVTRV228 02229000 CVTRV230 EQU CVTRV228 02230000 CVTRV229 EQU CVTRV228 02231000 CVTRV227 EQU CVTRV219 02232000 CVTRV226 EQU CVTRV219 02233000 CVTRV225 EQU CVTRV219 02234000 CVTRV224 EQU CVTRV219 02235000 CVTRV223 EQU CVTRV219 02236000 CVTRV222 EQU CVTRV219 02237000 CVTRV221 EQU CVTRV219 02238000 CVTRV220 EQU CVTRV219 02239000 CVTRV218 EQU CVTRV210 02240000 CVTRV217 EQU CVTRV210 02241000 CVTRV216 EQU CVTRV210 02242000 CVTRV215 EQU CVTRV210 02243000 CVTRV214 EQU CVTRV210 02244000 CVTRV213 EQU CVTRV210 02245000 CVTRV212 EQU CVTRV210 02246000 CVTRV211 EQU CVTRV210 02247000 CVTLCCAT EQU CVTS01+420 02248000 CVTPCCAT EQU CVTS01+416 02249000 CVTIPCRP EQU CVTS01+412 02250000 CVTIPCRI EQU CVTS01+408 02251000 CVTIPCDS EQU CVTS01+404 02252000 CVTAIDVT EQU CVTS01+400 02253000 CVTSSAP EQU CVTS01+396 02254000 CVTEHCIR EQU CVTS01+392 02255000 CVTEHDEF EQU CVTS01+388 02256000 CVTDAIR EQU CVTS01+384 02257000 CVTPERFM EQU CVTS01+380 02258000 CVT044R2 EQU CVTS01+376 02259000 CVTFETCH EQU CVTS01+372 02260000 CVTRSTWD EQU CVTS01+368 02261000 CVTSPOST EQU CVTS01+364 02262000 CVTIOBP EQU CVTS01+360 02263000 CVTASMVT EQU CVTS01+356 02264000 CVTRECRQ EQU CVTS01+352 02265000 CVTWSAC EQU CVTS01+348 02266000 CVTRV149 EQU CVTS01+344 02267000 CVTWSAL EQU CVTS01+340 02268000 CVTSPSA EQU CVTS01+336 02269000 CVTGLMN EQU CVTS01+332 02270000 CVTVEAC0 EQU CVTS01+328 02271000 CVT062R1 EQU CVTS01+324 02272000 CVTRPOST EQU CVTS01+320 02273000 CVTDQIQE EQU CVTS01+316 02274000 CVTCSD EQU CVTS01+312 02275000 CVTLKRMA EQU CVTS01+308 02276000 CVTRSPIE EQU CVTS01+304 02277000 CVTRENQ EQU CVTS01+300 02278000 CVTLQCB EQU CVTS01+296 02279000 CVTFQCB EQU CVTS01+292 02280000 CVTQCS01 EQU CVTS01+288 02281000 CVTAPFT EQU CVTS01+284 02282000 CVTPARRL EQU CVTS01+280 02283000 CVTVWAIT EQU CVTS01+276 02284000 CVTGSPL EQU CVTS01+272 02285000 CVTLSMQ EQU CVTS01+268 02286000 CVTGSMQ EQU CVTS01+264 02287000 CVTEXPRO EQU CVTS01+260 02288000 CVTOPCTP EQU CVTS01+256 02289000 CVTSIC EQU CVTS01+252 02290000 CVTTPIOS EQU CVTS01+248 02291000 CVTRTMS EQU CVTS01+244 02292000 CVTSDBF EQU CVTS01+240 02293000 CVTSCBP EQU CVTS01+236 02294000 CVTSDMP EQU CVTS01+232 02295000 CVTSV60 EQU CVTS01+228 02296000 CVTRTMCT EQU CVTS01+224 02297000 CVTASCBL EQU CVTS01+220 02298000 CVTASCBH EQU CVTS01+216 02299000 CVTGDA EQU CVTS01+212 02300000 CVTASVT EQU CVTS01+208 02301000 CVTVVMDI EQU CVTS01+204 02302000 CVTAQTOP EQU CVTS01+200 02303000 CVTIOSCS EQU CVTS01+196 02304000 CVTSDRM EQU CVTS01+192 02305000 CVTOPTE EQU CVTS01+188 02306000 CVTSTXU EQU CVTS01+184 02307000 CVTQUIS EQU CVTS01+180 02308000 CVTPARS EQU CVTS01+176 02309000 CVTS1EE EQU CVTS01+172 02310000 CVTFRAS EQU CVTS01+168 02311000 CVTQSAS EQU CVTS01+164 02312000 CVTCRAS EQU CVTS01+160 02313000 CVTCRMN EQU CVTS01+156 02314000 CVTDELCP EQU CVTS01+152 02315000 CVTFRECL EQU CVTS01+148 02316000 CVTGETCL EQU CVTS01+144 02317000 CVTBLDCP EQU CVTS01+140 02318000 CVTAUTHL EQU CVTS01+136 02319000 CVTSCAN EQU CVTS01+132 02320000 CVTRV144 EQU CVTS01+130 02321000 CVTMAXMP EQU CVTS01+128 02322000 CVTSTCK EQU CVTS01+124 02323000 CVTRV139 EQU CVTS01+123 02324000 CVTDSSAC EQU CVTS01+122 02325000 CVTRV513 EQU CVTS01+121 02326000 CVTIOSPL EQU CVTS01+120 02327000 CVTPTGT EQU CVTS01+116 02328000 CVTCSPIE EQU CVTS01+112 02329000 CVTSMFEX EQU CVTS01+108 02330000 CVTOLT0A EQU CVTS01+104 02331000 CVTSRBRT EQU CVTS01+100 02332000 CVTPUTL EQU CVTS01+96 02333000 CVTASCRL EQU CVTS01+92 02334000 CVTASCRF EQU CVTS01+88 02335000 CVTRV326 EQU CVTS01+84 02336000 CVTRV325 EQU CVTS01+80 02337000 CVTRV324 EQU CVTS01+76 02338000 CVT0VL01 EQU CVTS01+72 02339000 CVTSHRVM EQU CVTS01+68 02340000 CVTRV332 EQU CVTS01+64 02341000 CVTTAS EQU CVTS01+60 02342000 CVTRSCN EQU CVTS01+56 02343000 CVTTRAC2 EQU CVTS01+54 02344000 CVTTRACE EQU CVTS01+52 02345000 CVTAPG EQU CVTS01+51 02346000 CVTSDTRC EQU CVTCTLFG 02347000 CVTGTRCE EQU CVTCTLFG 02348000 CVTNOMP EQU CVTCTLFG 02349000 CVTRSV79 EQU CVTCTLFG 02350000 CVTDSTAT EQU CVTCTLFG 02351000 CVTRSV78 EQU CVTCTLFG 02352000 CVTRV333 EQU CVTCTLFG 02353000 CVTRV323 EQU CVTCTLFG 02354000 CVTSPVLK EQU CVTS01+49 02355000 CVTRSV77 EQU CVTS01+48 02356000 CVTRV331 EQU CVTS01+44 02357000 CVTRV330 EQU CVTS01+40 02358000 CVTRV329 EQU CVTS01+36 02359000 CVTRV328 EQU CVTS01+32 02360000 CVTRV322 EQU CVTS01+28 02361000 CVTSLID EQU CVTSLIDA+1 02362000 CVTSYLK EQU CVTSLIDA 02363000 CVTRV321 EQU CVTS01+20 02364000 CVTRV320 EQU CVTS01+16 02365000 CVTLPDIR EQU CVTLPDIA+1 02366000 CVTRSV69 EQU CVTDIRST 02367000 CVTRSV68 EQU CVTDIRST 02368000 CVTRSV67 EQU CVTDIRST 02369000 CVTRSV66 EQU CVTDIRST 02370000 CVTRSV65 EQU CVTDIRST 02371000 CVTRSV64 EQU CVTDIRST 02372000 CVTRSV63 EQU CVTDIRST 02373000 CVTDICOM EQU CVTDIRST 02374000 CVTPVTP EQU CVTS01+8 02375000 CVTLPDSR EQU CVTS01+4 02376000 CVTGETL EQU CVTS01 02377000 NETADDR EQU RU+1 02378000 HEXCODE EQU RU 02379000 TTHTAG2 EQU TTHTAG+1 02380000 @NM00213 EQU TTHTAG1 02381000 TTHTAGS EQU TTHTAG1 02382000 TTHBYTE1 EQU IEDTH+1 02383000 TTHEFI EQU TTHBYTE0 02384000 @NM00212 EQU TTHBYTE0 02385000 TTHEBIU EQU TTHBYTE0 02386000 TTHBBIU EQU TTHBYTE0 02387000 TRMOPT EQU IEDTRM+34 02388000 TRMOPTBL EQU IEDQTRM+18 02389000 TRMOPNO EQU IEDQTRM+17 02390000 TRMCHCIN EQU IEDQTRM+16 02391000 TRMSENSE EQU TRMSTAT+3 02392000 TRMTEMPR EQU TRMSTAT+2 02393000 TRMSIO EQU TRMSTAT 02394000 @NM00208 EQU TRMDEVFL+1 02395000 TRMTPIN EQU TRMDEVFL+1 02396000 TRMNCPI EQU TRMDEVFL+1 02397000 TRMRNTRM EQU TRMDEVFL+1 02398000 @NM00207 EQU TRMDEVFL+1 02399000 TRMLMD EQU TRMDEVFL+1 02400000 TRMCONC EQU TRMDEVFL+1 02401000 TRMTSOB EQU TRMDEVFL 02402000 TRMBFDY EQU TRMDEVFL 02403000 TRMTBLK EQU TRMDEVFL 02404000 TRMSBLK EQU TRMDEVFL 02405000 TRMBLKS EQU TRMDEVFL 02406000 TRMADDC EQU TRMDEVFL 02407000 TRMDDIG EQU TRMDEVFL 02408000 TRMBUFS EQU TRMDEVFL 02409000 TRMPRILK EQU TRMALTD 02410000 TRMLGB EQU TRMDSORG 02411000 TRMUTERM EQU TLISTCNT 02412000 TRMSCNYN EQU TRMSTATE 02413000 TRMOPTFN EQU TRMSTATE 02414000 TRMHELDN EQU TRMSTATE 02415000 TRMACPTN EQU TRMSTATE 02416000 TRMPREF EQU TRMSTATE 02417000 TRMPROC EQU TRMLOG 02418000 TRMLIST EQU TRMLOG 02419000 TRMLINE EQU TRMSTATE 02420000 TRMRLMCT EQU IEDNTRM+10 02421000 TRMCOHTG EQU TRMSIBPT+1 02422000 TRMGPCNT EQU TRMSIBPT 02423000 TRMBUFRD EQU TRMBYTE0 02424000 TRMGP EQU TRMBYTE0 02425000 @NM00206 EQU TRMBYTE0 02426000 TRMOUTPT EQU TRMBYTE0 02427000 TRMINPUT EQU TRMBYTE0 02428000 TRMUDEF EQU TRMBYTE0 02429000 TRMSTOTE EQU TRMBYTE1 02430000 TRMCKPRN EQU TRMBYTE1 02431000 TRMTSATN EQU TRMBYTE1 02432000 TRMTRACE EQU TRMBYTE1 02433000 TRMSWBCK EQU TRMBYTE1 02434000 TRMAUTOC EQU TRMBYTE1 02435000 TRMINPTP EQU TRMBYTE1 02436000 TRMWTNEG EQU TRMSCPRQ 02437000 TRMWRBRK EQU TRMBYTE2 02438000 TRMNOSND EQU TRMBYTE2 02439000 TRMPREP EQU TRMBYTE2 02440000 TRMGPACT EQU TRMBYTE2 02441000 TRMANDL EQU TRMBYTE2 02442000 TRMCLOSN EQU TRMINPG 02443000 TRMREMB EQU TRMBYTE2 02444000 @NM00205 EQU TRHBYTE2 02445000 @NM00204 EQU TRHBYTE2 02446000 @NM00203 EQU TRHBYTE2 02447000 TRHCSI EQU TRHBYTE2 02448000 @NM00202 EQU TRHBYTE2 02449000 TRHCDI EQU TRHBYTE2 02450000 TRHEB EQU TRHBYTE2 02451000 TRHBB EQU TRHBYTE2 02452000 TRHPI EQU TRHBYTE1 02453000 @NM00201 EQU TRHBYTE1 02454000 @NM00200 EQU TRHBYTE1 02455000 @NM00199 EQU TRHBYTE1 02456000 TRHER EQU TRHBYTE1 02457000 TRHDR2 EQU TRHBYTE1 02458000 @NM00198 EQU TRHBYTE1 02459000 @NM00197 EQU TRHBYTE0 02460000 TRHRUCAT EQU TRHBYTE0 02461000 SNSUSR2 EQU SNSUSER+1 02462000 SNSUSR1 EQU SNSUSER 02463000 SATRNLCB EQU IEDSATD 02464000 QCBTTCIN EQU QCBPLCBA+1 02465000 @NM00196 EQU QCBPLCBA 02466000 @NM00195 EQU QCBSTAT1 02467000 QCBFLUSH EQU QCBSTAT1 02468000 QCBNDXRQ EQU QCBSTAT1 02469000 QCBESIG EQU QCBSTAT1 02470000 QCBRCVRQ EQU QCBSTAT1 02471000 QCBSNDRQ EQU QCBSTAT1 02472000 QCBWAITC EQU QCBSTAT1 02473000 QCBPLCBN EQU QCBSTAT1 02474000 QCBCHAIN EQU IEDNQCB 02475000 QCBPQBCK EQU IEDQPQCB+25 02476000 QCBPRIPQ EQU IEDQPQCB+24 02477000 QCBCFHDR EQU IEDQPQCB+21 02478000 QCBLFEFO EQU IEDQPQCB+18 02479000 QCBFFEFO EQU IEDQPQCB+15 02480000 QCBPREVF EQU QCBINTLF 02481000 QCBINTFF EQU IEDQPQCB+9 02482000 QCBDATSQ EQU QCBFHDTZ+1 02483000 @NM00194 EQU QCBFHDTZ 02484000 @NM00193 EQU QCBPFEFO 02485000 QCBDATFL EQU QCBFHDLZ 02486000 QCBDNHDR EQU IEDQPQCB 02487000 QCBQBACK EQU IEDQQCB+37 02488000 QCBCKPT EQU QCBFLAG 02489000 QCBPROC EQU QCBFLAG 02490000 QCBSDFFO EQU QCBFLAG 02491000 QCBTERMQ EQU QCBFLAG 02492000 QCBRSRV EQU QCBFLAG 02493000 QCBREAD EQU QCBFLAG 02494000 QCBNOBRK EQU QCBFLAG 02495000 QCBTSSES EQU QCBFLAG 02496000 QCBLGBAD EQU QCBDCBAD 02497000 QCBRELLN EQU IEDQQCB+32 02498000 QCBTJID EQU QCBLKRRN+1 02499000 QCBCARCT EQU QCBLKRRN 02500000 QCBPRLVL EQU QCBPREN 02501000 QCBMSGCT EQU IEDQQCB+26 02502000 QCBEXTO EQU QCBINTVL 02503000 QCBDISC EQU QCBTSOF1 02504000 QCBDELAY EQU QCBTSOF1 02505000 QCBPARTO EQU QCBTSOF1 02506000 QCBSATRD EQU QCBTSOF1 02507000 QCBNOBUF EQU QCBTSOF1 02508000 QCBTPUT EQU QCBTSOF1 02509000 QCBTGET EQU QCBTSOF1 02510000 QCBWRBRK EQU QCBTSOF1 02511000 QCBSATLC EQU QCBTSOF2 02512000 QCBSATTI EQU QCBTSOF2 02513000 QCBSATCH EQU QCBTSOF2 02514000 QCBSIMRD EQU QCBTSOF2 02515000 QCBDSSMI EQU QCBTSOF2 02516000 QCBPOSTO EQU QCBTSOF2 02517000 QCBBUFQ EQU QCBTSOF2 02518000 QCBINHBN EQU QCBTSOF2 02519000 QCBSATCT EQU @NM00192 02520000 QCBSCBOF EQU IEDQQCB+20 02521000 QCBTIME EQU QCBSTAT 02522000 QCBCLOCK EQU QCBSTAT 02523000 QCBSCHDL EQU QCBSTAT 02524000 QCBSMODE EQU QCBSTAT 02525000 QCBSEND EQU QCBSTAT 02526000 QCBBUFRD EQU QCBSTAT 02527000 QCBTRMHO EQU QCBSTAT 02528000 QCBEOM EQU QCBSTAT 02529000 QCBHUCT EQU QCBRETCT 02530000 QCBIEND EQU QCBRETCT 02531000 QCBEND EQU QCBRETCT 02532000 QCBNL EQU QCBRETCT 02533000 QCBLOGCT EQU QCBRETCT 02534000 @NM00191 EQU QCBBYTE1 02535000 QCBRITRM EQU QCBBYTE1 02536000 @NM00190 EQU QCBEOLDT 02537000 QCBSLINK EQU IEDQQCB+13 02538000 QCBSTPRI EQU IEDQQCB+12 02539000 QCBSTCHN EQU IEDQQCB+9 02540000 QCBSTVTO EQU IEDQQCB+8 02541000 QCBLINK EQU IEDQQCB+5 02542000 QCBPRI EQU IEDQQCB+4 02543000 QCBCNTEN EQU QCBELCHN+2 02544000 @NM00189 EQU QCBELCHN+2 02545000 @NM00188 EQU QCBELCHN 02546000 QCBHELD EQU QCBDSFLG 02547000 QCBFQCB EQU QCBDSFLG 02548000 QCBDRQQ EQU QCBDSFLG 02549000 QCBALTMH EQU QCBDSFLG 02550000 QCBREUS EQU QCBDISK 02551000 QCBNREUS EQU QCBDISK 02552000 QCBCORE EQU QCBDSFLG 02553000 QCBTSQ EQU QCBDSFLG 02554000 PRF2SEQP EQU PRF2WD2 02555000 @NM00187 EQU IEDPF2+1 02556000 @NM00186 EQU PRF2FLG2 02557000 PRF2SMI EQU PRF2FLG2 02558000 PRF2FORM EQU PRF2FLG2 02559000 PRF2TNTI EQU PRF2FLG2 02560000 PRF1RULN EQU PRF1SEQP+2 02561000 PRF1TAG2 EQU PRF1SQID+1 02562000 @NM00185 EQU PRF1TAG1 02563000 PRF1TAGS EQU PRF1TAG1 02564000 @NM00184 EQU PRF1FLG1 02565000 PRF1LOGD EQU PRF1FLG1 02566000 PRF1USS EQU PRF1FLG1 02567000 PRF1FORM EQU PRF1FLG1 02568000 PRF1EXPI EQU PRF1FLG1 02569000 PRF1FIDI EQU PRF1FLG1 02570000 PRF1RH EQU IEDPF1 02571000 PRFDEST EQU IEDQPRF+40 02572000 PRFISEQ EQU IEDQPRF+38 02573000 PRFSTXT EQU PRFHQBCK 02574000 PRFNHDR EQU PRFCHDR 02575000 PRFCRCD EQU IEDQPRF+29 02576000 PRFSVSEQ EQU PRFNTXT+1 02577000 PRFSVPRI EQU PRFEOBOF 02578000 PRFISIZE EQU PRFSCAN+1 02579000 @NM00183 EQU PRFSCAN 02580000 PRFEOB EQU PRFXTRA+1 02581000 PRFSTSO EQU PRFXTRA 02582000 PRFNHDRN EQU PRFSTAT1 02583000 PRFNLSTN EQU PRFSTAT1 02584000 PRFLOCK EQU PRFEOFN 02585000 PRFDUPLN EQU PRFSTAT1 02586000 PRFTSMSG EQU PRFSTAT1 02587000 PRFITCPN EQU PRFSTAT1 02588000 PRFERMGN EQU PRFSTAT1 02589000 PRFCNCLN EQU PRFSTAT1 02590000 PRFSVFLG EQU @NM00182+3 02591000 PRFSIZE EQU PRFSVFFO+2 02592000 PRFSRCE EQU PRFSVFFO 02593000 PRFLCB EQU IEDQPRF+13 02594000 @NM00181 EQU PRFTICC 02595000 @NM00180 EQU PRFTICC 02596000 @NM00179 EQU PRFTICC 02597000 PRFTICON EQU PRFTICC 02598000 @NM00178 EQU PRFTICC 02599000 @NM00177 EQU PRFTICC 02600000 PRFBFMM EQU PRFTICC 02601000 PRFEOMSG EQU PRFTICC 02602000 PRFCOUNT EQU PRFLINK+1 02603000 @NM00176 EQU PRFLINK 02604000 PRFFLAGS EQU PRFPRI 02605000 PRFIOADR EQU PRFQCBA 02606000 PRFOPCDE EQU PRFKEY 02607000 OPCBOTTM EQU IEDQOPCD+1188 02608000 OPCDSRWT EQU IEDQOPCD+1184 02609000 @NM00175 EQU IEDQOPCD+1100 02610000 @NM00174 EQU IEDQOPCD+948 02611000 @NM00173 EQU IEDQOPCD+940 02612000 @NM00172 EQU IEDQOPCD+380 02613000 @NM00171 EQU OPCPWCOB+9 02614000 @NM00170 EQU OPCPWCOB+8 02615000 @NM00169 EQU OPCPWECB+1 02616000 OPCPWCCC EQU OPCPWECB 02617000 OPCPWCHN EQU OPCPWQCB+1 02618000 OPCPWVTO EQU OPCPWQCB 02619000 OPCWAITV EQU IEDQOPCD+364 02620000 OPCTOTCK EQU IEDQOPCD+360 02621000 OPCAPXTL EQU IEDQOPCD+356 02622000 OPCDECR EQU IEDQOPCD+352 02623000 OPCBUFWT EQU IEDQOPCD+348 02624000 OPCWRKSP EQU IEDQOPCD+320 02625000 OPCADGOT EQU IEDQOPCD+318 02626000 OPCRQCNT EQU IEDQOPCD+316 02627000 OPPOLSTP EQU IEDQOPCD+312 02628000 OPCCKCIB EQU IEDQOPCD+308 02629000 OPCEND EQU IEDQOPCD+307 02630000 OPCSTCBS EQU IEDQOPCD+306 02631000 OPCHNEND EQU IEDQOPCD+302 02632000 OPCOQSW EQU IEDQOPCD+301 02633000 @NM00168 EQU OPCSPEC 02634000 @NM00167 EQU OPCSPEC 02635000 @NM00166 EQU OPCSPEC 02636000 @NM00165 EQU OPCSPEC 02637000 OPCFRMCA EQU OPCSPEC 02638000 OPCRSTRT EQU OPCSPEC 02639000 OPCPART EQU OPCSPEC 02640000 OPCALTD EQU OPCSPEC 02641000 OPCBFEND EQU IEDQOPCD+296 02642000 OPCBFIRS EQU IEDQOPCD+292 02643000 OPCAVBUF EQU IEDQOPCD+290 02644000 OPCIPLCT EQU IEDQOPCD+289 02645000 OPCCLNTS EQU IEDQOPCD+288 02646000 OPCHA8 EQU IEDQOPCD+286 02647000 OPCBFREQ EQU IEDQOPCD+284 02648000 OPCFREBF EQU IEDQOPCD+280 02649000 OPCGETBF EQU IEDQOPCD+276 02650000 OPCNEXT EQU IEDQOPCD+272 02651000 OPCFMDFC EQU IEDQOPCD+268 02652000 OPCSCNC EQU IEDQOPCD+264 02653000 OPCHORTG EQU IEDQOPCD+260 02654000 OPCCKPTL EQU IEDQOPCD+252 02655000 OPCCKPTF EQU IEDQOPCD+248 02656000 OPCWAITA EQU IEDQOPCD+244 02657000 OPCWAITR EQU IEDQOPCD+240 02658000 OPCWAITP EQU IEDQOPCD+236 02659000 OPCWAITO EQU IEDQOPCD+232 02660000 OPCWAITN EQU IEDQOPCD+228 02661000 OPCWAITL EQU IEDQOPCD+224 02662000 OPCWAITC EQU IEDQOPCD+220 02663000 @NM00164 EQU OPCLDNME+5 02664000 OPCMODID EQU OPCLDNME+3 02665000 @NM00163 EQU OPCLDNME 02666000 OPCXCTL EQU IEDQOPCD+204 02667000 OPCWAIT EQU IEDQOPCD+192 02668000 OPCCKERB EQU IEDQOPCD+164 02669000 OPCBFERB EQU IEDQOPCD+148 02670000 OPCFLAG2 EQU IEDQOPCD+147 02671000 OPCFLAG1 EQU IEDQOPCD+146 02672000 OPCWRKSZ EQU IEDQOPCD+144 02673000 OPCWORK EQU IEDQOPCD+140 02674000 OPCRSAVE EQU IEDQOPCD+132 02675000 OPCQCBAD EQU IEDQOPCD+128 02676000 OPCSAVE EQU IEDQOPCD+56 02677000 OPCTRMWA EQU IEDQOPCD+52 02678000 OPCPSTWT EQU IEDQOPCD+48 02679000 OPCTNTEA EQU IEDQOPCD+44 02680000 OPCPGCK EQU IEDQOPCD+40 02681000 OPCLCB EQU IEDQOPCD+36 02682000 @NM00162 EQU IEDQOPCD+32 02683000 OPCIPLAD EQU IEDQOPCD+28 02684000 OPCTOFLK EQU IEDQOPCD+24 02685000 OPCOPTLK EQU IEDQOPCD+20 02686000 OPCDCBLK EQU IEDQOPCD+16 02687000 OPCCOPCE EQU IEDQOPCD+12 02688000 OPCAVTPT EQU IEDQOPCD+8 02689000 OPCDOUBL EQU IEDQOPCD 02690000 LCBERADR EQU LCBXRADR+1 02691000 LCBPCIRC EQU LCBXRADR 02692000 LCBDCT3 EQU LCBXDCT+2 02693000 LCBDCT2 EQU LCBXDCT+1 02694000 LCBDCT1 EQU LCBXDCT 02695000 @NM00161 EQU LCBXFLAG 02696000 LCBERPND EQU LCBXFLAG 02697000 LCBSRCPF EQU LCBXFLAG 02698000 LCBGPCTV EQU LCBXFLAG 02699000 @NM00160 EQU LCBXFLAG 02700000 @NM00159 EQU LCBXFLAG 02701000 @NM00158 EQU LCBXFLAG 02702000 @NM00157 EQU LCBXFLAG 02703000 LCBCCW10 EQU LCBCPA+72 02704000 LCBCCW9 EQU LCBCPA+64 02705000 LCBCCW8 EQU LCBCPA+56 02706000 LCBCP EQU LCBQEBPL+4 02707000 LCBSIO EQU LCBQEBPL 02708000 LCBCCW4 EQU LCBCPA+24 02709000 LCBCCW2 EQU LCBCPA+8 02710000 @NM00142 EQU LCBERCCW+16 02711000 LCBATL05 EQU LCBERCCW+8 02712000 @NM00141 EQU LCBERCCW 02713000 LCBCSWSV EQU LCBSAVSN+1 02714000 LCBSNSV EQU LCBSAVSN 02715000 LCBBFSNS EQU LCBRSPSV 02716000 LCBWAITC EQU LCBTPCD+5 02717000 LCBINPAK EQU LCBSTAT6 02718000 LCBMHBID EQU LCBSTAT6 02719000 LCBRTRRO EQU LCBSTAT6 02720000 LCBHDRPD EQU LCBSTAT6 02721000 LCBCHN EQU LCBSTAT6 02722000 LCBBFRSV EQU LCBTPCD+1 02723000 @NM00140 EQU LCBSTAT5 02724000 LCBLUS EQU LCBSTAT5 02725000 LCBLUNIT EQU LCBSTAT5 02726000 LCBPERM EQU LCBSTAT5 02727000 LCBNXCMD EQU LCBBFRW 02728000 LCBERMSK EQU LCBOBRCH 02729000 LCBSCBA EQU IEDQLCB+93 02730000 LCBOLT EQU LCBMSGFM 02731000 LCBEOT EQU LCBMSGFM 02732000 LCBENQ EQU LCBMSGFM 02733000 LCBTTD EQU LCBMSGFM 02734000 LCBRSTRT EQU LCBMSGFM 02735000 LCBVSTRT EQU LCBMSGFM 02736000 LCBACKI EQU LCBMSGFM 02737000 LCBNAK EQU LCBMSGFM 02738000 LCBTTCIN EQU IEDQLCB+90 02739000 @NM00139 EQU LCBRBCT2 02740000 LCBDCNT EQU LCBRBCT2 02741000 LCBRBCT1 EQU LCBERBCT 02742000 LCBERBCH EQU IEDQLCB+85 02743000 LCBCOMPL EQU LCBDLNKN 02744000 LCBPRCPG EQU LCBERBST 02745000 LCBERROR EQU LCBERBST 02746000 @NM00138 EQU LCBERBST 02747000 LCBINQ EQU LCBERBST 02748000 LCBRDERR EQU LCBERBST 02749000 LCBEOMSG EQU LCBERBST 02750000 LCBMSG EQU LCBERBST 02751000 LCBERBLK EQU IEDQLCB+81 02752000 LCBERBPY EQU IEDQLCB+80 02753000 LCBERBQB EQU LCBERB+1 02754000 LCBERBKY EQU LCBERB 02755000 LCBRECAD EQU IEDQLCB+73 02756000 @NM00137 EQU LCBTSTSW 02757000 @NM00136 EQU LCBTSTSW 02758000 @NM00135 EQU LCBTSTSW 02759000 @NM00134 EQU LCBTSTSW 02760000 @NM00133 EQU LCBTSTSW 02761000 @NM00132 EQU LCBTSTSW 02762000 @NM00131 EQU LCBTSTSW 02763000 LCBCONCT EQU LCBTSTSW 02764000 LCBRESP EQU LCBSTAT2 02765000 LCBNEGRP EQU LCBSTAT2 02766000 LCBSNDPR EQU LCBSTAT2 02767000 LCBCONNN EQU LCBBEOTN 02768000 LCBMSGNN EQU LCBSTAT2 02769000 LCBTRACE EQU LCBSTAT2 02770000 LCBSENDN EQU LCBSTAT1 02771000 LCBRECVN EQU LCBSTAT1 02772000 LCBFREEN EQU LCBSTAT1 02773000 LCBCONT EQU LCBSTAT1 02774000 LCBINITN EQU LCBSTAT1 02775000 LCBOCNI EQU LCBSTAT1 02776000 LCBOCWTN EQU LCBSTAT1 02777000 LCBRCLLN EQU LCBSTAT1 02778000 LCBRECOF EQU IEDQLCB+68 02779000 LCBUCBX EQU IEDQLCB+64 02780000 LCBTTBIN EQU LCBERRCT 02781000 @NM00130 EQU LCBINCAM 02782000 LCBGETMN EQU LCBINCAM 02783000 @NM00129 EQU LCBRESTR+1 02784000 LCBCMDSV EQU LCBRESTR 02785000 LCBPCILK EQU LCBDCBPT 02786000 LCBSTART EQU LCBIOBSN+16 02787000 LCBAP4OL EQU LCBSIOCC 02788000 LCBAP3OL EQU LCBSIOCC 02789000 LCBAP2OL EQU LCBSIOCC 02790000 LCBAP1OL EQU LCBSIOCC 02791000 LCBSIOC2 EQU LCBSIOCC 02792000 LCBSIOC1 EQU LCBSIOCC 02793000 @NM00128 EQU LCBSIOCC 02794000 LCBCSWRC EQU LCBCSW+5 02795000 LCBCSCHC EQU LCBCSWCS 02796000 LCBCSICC EQU LCBCSWCS 02797000 LCBCSCCC EQU LCBCSWCS 02798000 LCBCSCDC EQU LCBCSWCS 02799000 LCBCSPTC EQU LCBCSWCS 02800000 LCBCSPGC EQU LCBCSWCS 02801000 LCBCSIL EQU LCBCSWCS 02802000 LCBCSPCI EQU LCBCSWCS 02803000 LCBUSUE EQU LCBCSWUS 02804000 LCBUSUC EQU LCBCSWUS 02805000 LCBUSDE EQU LCBCSWUS 02806000 LCBUSCE EQU LCBCSWUS 02807000 LCBUSBSY EQU LCBCSWUS 02808000 LCBUSCUE EQU LCBCSWUS 02809000 LCBUSSM EQU LCBCSWUS 02810000 LCBUSAT EQU LCBCSWUS 02811000 LCBCSWCA EQU LCBCSW 02812000 LCBOBR EQU LCBFLAG3 02813000 LCBOBRRD EQU LCBFLAG3 02814000 LCBIOMSG EQU LCBFLAG3 02815000 LCBSOHC EQU LCBFLAG3 02816000 LCBRLAD EQU LCBFLAG3 02817000 LCBSOHR EQU LCBFLAG3 02818000 @NM00127 EQU LCBFLAG3 02819000 LCBECBPT EQU LCBIOBSN+4 02820000 LCBECBCC EQU LCBIOBSN+3 02821000 LCBSENS1 EQU LCBSNS+1 02822000 LCBABORT EQU LCBTMOUT 02823000 LCBNOTIN EQU LCBLOSDT 02824000 LCBOVRUN EQU LCBSENS0 02825000 LCBDATCK EQU LCBSENS0 02826000 LCBEQUCK EQU LCBSENS0 02827000 LCBBUSCK EQU LCBSENS0 02828000 LCBINTRQ EQU LCBSENS0 02829000 LCBCMDRJ EQU LCBSENS0 02830000 LCBFLAG2 EQU LCBIOBSN 02831000 @NM00126 EQU LCBFLAG1 02832000 LCBUNREL EQU LCBFLAG1 02833000 LCBEXCPN EQU LCBFLAG1 02834000 @NM00125 EQU LCBFLAG1 02835000 LCBERPIN EQU LCBFLAG1 02836000 @NM00124 EQU LCBFLAG1 02837000 LCBISZE EQU IEDQLCB+28 02838000 LCBLNENT EQU LCBSCBDA+1 02839000 @NM00123 EQU LCBSCBDA 02840000 @NM00122 EQU LCBSTAT4 02841000 LCBACTRQ EQU LCBSTAT4 02842000 LCBIPLRQ EQU LCBSTAT4 02843000 LCBDACRQ EQU LCBSTAT4 02844000 LCBDMPRQ EQU LCBSTAT4 02845000 @NM00121 EQU LCBLKMDE 02846000 LCBLOCKI EQU LCBLKMDE 02847000 LCBLOCKR EQU LCBLKMDE 02848000 LCBHMFLG EQU LCBLKMDE 02849000 LCBBDFLG EQU LCBLKMDE 02850000 @NM00120 EQU LCBINSRC 02851000 LCBABRTN EQU LCBCHAIN 02852000 LCBCTLMD EQU LCBTETEN 02853000 LCBBFRSZ EQU LCBCHAIN 02854000 LCBUREQN EQU LCBCHAIN 02855000 LCBNORTY EQU LCBCHAIN 02856000 LCBERMSG EQU LCBCHAIN 02857000 LCBEXCP EQU LCBCHAIN 02858000 LCBINVRQ EQU LCBSCRNN 02859000 LCB2741N EQU LCBTSOB 02860000 LCBINHBN EQU LCBTSOB 02861000 LCBCIRCD EQU LCBTSOB 02862000 LCBPREP EQU LCBTSOB 02863000 LCBSOPL EQU LCBTSOB 02864000 LCBSATRD EQU LCBTSOB 02865000 LCBTSBUF EQU LCBTSOB 02866000 LCBWRBRK EQU LCBTSOB 02867000 LCBTDL EQU IEDQLCB+18 02868000 LCBEOLTD EQU IEDQLCB+16 02869000 LCBRSLNK EQU IEDQLCB+13 02870000 LCBRSPRI EQU IEDQLCB+12 02871000 LCBSTCBA EQU IEDQLCB+9 02872000 LCBRSKEY EQU IEDQLCB+8 02873000 LCBLINK EQU LCBRCB+5 02874000 LCBPRI EQU LCBRCB+4 02875000 LCBQCBA EQU LCBRCB+1 02876000 LCBKEY EQU LCBRCB 02877000 DCBBUFSI EQU IHADCS43+6 02878000 DCBUNTCT EQU IHADCS43+5 02879000 DCBILCT EQU IHADCS43+4 02880000 DCBSCTAD EQU DCBSCTAB+1 02881000 @NM00119 EQU DCBSCTAB 02882000 DCBPUTA EQU DCBGETA 02883000 @NM00118 EQU DCBPUT 02884000 DCBDEBA EQU DCBDEBAD+1 02885000 @NM00117 EQU DCBIFLGS 02886000 DCBIFIOE EQU DCBIFLGS 02887000 DCBCH12 EQU DCBIFPCT 02888000 DCBCH9 EQU DCBIFPCT 02889000 DCBIFEC EQU DCBIFLGS 02890000 DCBMFSTI EQU DCBMFDMD 02891000 DCBMFAWR EQU DCBMFSTK 02892000 DCBMFUIP EQU DCBMFTMD 02893000 DCBMFIDW EQU DCBMFLCP 02894000 DCBMFWRK EQU DCBMFMVP 02895000 DCBMFRDQ EQU DCBMFWRT 02896000 DCBMFGTQ EQU DCBMFPUT 02897000 DCBMFSTL EQU DCBMACF2 02898000 DCBMFCK EQU DCBMFDMG 02899000 DCBMFRDX EQU DCBMFCHK 02900000 DCBMFDBF EQU DCBMFSBG 02901000 DCBMFRDI EQU DCBMFLCG 02902000 DCBMFRDK EQU DCBMFMVG 02903000 DCBMFWRQ EQU DCBMFRD 02904000 DCBMFPTQ EQU DCBMFGET 02905000 DCBMFECP EQU DCBMACF1 02906000 DCBTIOT EQU IHADCS25 02907000 DCBMRSTI EQU DCBMRDMD 02908000 DCBMRAWR EQU DCBMRSTK 02909000 DCBMRUIP EQU DCBMRTMD 02910000 DCBMRIDW EQU DCBMRLCP 02911000 DCBMRWRK EQU DCBMRMVP 02912000 DCBMRRDQ EQU DCBMRWRT 02913000 DCBMRGTQ EQU DCBMRPUT 02914000 DCBMRSTL EQU DCBMACR2 02915000 DCBMRCK EQU DCBMRDMG 02916000 DCBPGFXA EQU DCBMRRDX 02917000 DCBMRDBF EQU DCBMRSBG 02918000 DCBMRRDI EQU DCBMRLCG 02919000 DCBMRRDK EQU DCBMRMVG 02920000 DCBMRWRQ EQU DCBMRRD 02921000 DCBMRPTQ EQU DCBMRGET 02922000 DCBMRECP EQU DCBMACR1 02923000 @NM00116 EQU DCBIFLG 02924000 DCBIBIOE EQU DCBIFLG 02925000 DCBICH12 EQU DCBIBPCT 02926000 DCBICH9 EQU DCBIBPCT 02927000 DCBIBEC EQU DCBIFLG 02928000 DCBOFIOF EQU DCBOFLGS 02929000 DCBOFUEX EQU DCBOFLGS 02930000 DCBOFTM EQU DCBOFLGS 02931000 DCBOFPPC EQU DCBOFLGS 02932000 DCBOFOPN EQU DCBOFLGS 02933000 DCBOFEOV EQU DCBOFLGS 02934000 DCBOFLRB EQU DCBOFLGS 02935000 DCBOFIOD EQU DCBOFLWR 02936000 DCBDDNAM EQU IHADCS24 02937000 DCBEXLSA EQU DCBEXLST+1 02938000 DCBRNCKA EQU DCBRNCKD+1 02939000 @NM00115 EQU DCBRNCKD 02940000 DCBDSGTR EQU DCBDSRG2 02941000 @NM00114 EQU DCBDSRG2 02942000 DCBDSRG1 EQU DCBDSORG 02943000 DCBCHNGL EQU DCBTRSTA 02944000 DCBNIDLE EQU DCBTRSTA 02945000 DCBBAKUP EQU DCBTRSTA 02946000 DCBIPLED EQU DCBTRSTA 02947000 DCBRSTRT EQU DCBTRSTA 02948000 DCBINITL EQU DCBTRSTA 02949000 DCBAUTOD EQU DCBTRSTA 02950000 DCBAUTOI EQU DCBTRSTA 02951000 @NM00113 EQU IHADCS2K+4 02952000 DCBDUMPA EQU DCBDUMPD+1 02953000 DCBUNITN EQU DCBDUMPD 02954000 DCBBCKUA EQU DCBBCKUP+1 02955000 @NM00112 EQU DCBBCKUP 02956000 DCBIPLTX EQU IHADCS1A 02957000 @NM00111 EQU IHADCB 02958000 CVTLEVL EQU CVTRELNO+2 02959000 CVTNUMB EQU CVTRELNO 02960000 CVTMDL EQU CVTFIX+250 02961000 @NM00110 EQU CVTFIX+248 02962000 @NM00109 EQU CVTFIX 02963000 CVTRV482 EQU CVTXTNT2+128 02964000 CVTRV481 EQU CVTXTNT2+124 02965000 CVTRV480 EQU CVTXTNT2+120 02966000 CVTRV479 EQU CVTXTNT2+118 02967000 CVTRV478 EQU CVTXTNT2+117 02968000 CVTRV477 EQU CVTXTNT2+116 02969000 CVTRV476 EQU CVTXTNT2+115 02970000 CVTRV475 EQU CVTXTNT2+114 02971000 CVTRV474 EQU CVTRV466 02972000 CVTRV473 EQU CVTRV466 02973000 CVTRV472 EQU CVTRV466 02974000 CVTRV471 EQU CVTRV466 02975000 CVTRV470 EQU CVTRV466 02976000 CVTRV469 EQU CVTRV466 02977000 CVTRV468 EQU CVTRV466 02978000 CVTRV467 EQU CVTRV466 02979000 CVTRV465 EQU CVTRV457 02980000 CVTRV464 EQU CVTRV457 02981000 CVTRV463 EQU CVTRV457 02982000 CVTRV462 EQU CVTRV457 02983000 CVTRV461 EQU CVTRV457 02984000 CVTRV460 EQU CVTRV457 02985000 CVTRV459 EQU CVTRV457 02986000 CVTRV458 EQU CVTRV457 02987000 CVTRV456 EQU CVTXTNT2+108 02988000 CVTRV455 EQU CVTXTNT2+104 02989000 CVTRV454 EQU CVTXTNT2+100 02990000 CVTRV453 EQU CVTXTNT2+96 02991000 CVTRV452 EQU CVTXTNT2+94 02992000 CVTRV451 EQU CVTXTNT2+92 02993000 CVTRV450 EQU CVTXTNT2+90 02994000 CVTRV449 EQU CVTXTNT2+88 02995000 CVTRV448 EQU CVTXTNT2+87 02996000 CVTRV447 EQU CVTXTNT2+86 02997000 CVTRV446 EQU CVTRV438 02998000 CVTRV445 EQU CVTRV438 02999000 CVTRV444 EQU CVTRV438 03000000 CVTRV443 EQU CVTRV438 03001000 CVTRV442 EQU CVTRV438 03002000 CVTRV441 EQU CVTRV438 03003000 CVTRV440 EQU CVTRV438 03004000 CVTRV439 EQU CVTRV438 03005000 CVTRV437 EQU CVTRV429 03006000 CVTRV436 EQU CVTRV429 03007000 CVTRV435 EQU CVTRV429 03008000 CVTRV434 EQU CVTRV429 03009000 CVTRV433 EQU CVTRV429 03010000 CVTRV432 EQU CVTRV429 03011000 CVTRV431 EQU CVTRV429 03012000 CVTRV430 EQU CVTRV429 03013000 CVTRV428 EQU CVTXTNT2+80 03014000 CVTRV427 EQU CVTXTNT2+76 03015000 CVTRV426 EQU CVTXTNT2+72 03016000 CVTRV425 EQU CVTXTNT2+68 03017000 CVTATACT EQU CVTATCVT 03018000 CVTRV423 EQU CVTXTNT2+62 03019000 CVTRV422 EQU CVTXTNT2+60 03020000 CVTRV421 EQU CVTXTNT2+58 03021000 CVTRV420 EQU CVTXTNT2+56 03022000 CVTRV419 EQU CVTXTNT2+55 03023000 CVTRV418 EQU CVTXTNT2+54 03024000 CVTRV417 EQU CVTRV409 03025000 CVTRV416 EQU CVTRV409 03026000 CVTRV415 EQU CVTRV409 03027000 CVTRV414 EQU CVTRV409 03028000 CVTRV413 EQU CVTRV409 03029000 CVTRV412 EQU CVTRV409 03030000 CVTRV411 EQU CVTRV409 03031000 CVTRV410 EQU CVTRV409 03032000 CVTRV408 EQU CVTRV400 03033000 CVTRV407 EQU CVTRV400 03034000 CVTRV406 EQU CVTRV400 03035000 CVTRV405 EQU CVTRV400 03036000 CVTRV404 EQU CVTRV400 03037000 CVTRV403 EQU CVTRV400 03038000 CVTRV402 EQU CVTRV400 03039000 CVTRV401 EQU CVTRV400 03040000 CVTICB EQU CVTXTNT2+48 03041000 CVTSKTA EQU CVTXTNT2+44 03042000 CVTSHSB EQU CVTSHS 03043000 CVTRSV98 EQU CVTXTNT2+36 03044000 CVTRSV97 EQU CVTXTNT2+34 03045000 CVTRSV96 EQU CVTXTNT2+32 03046000 CVTOLTEP EQU CVTXTNT2+28 03047000 CVTQIDA EQU CVTQID+1 03048000 CVTRSV95 EQU CVTQID 03049000 CVTRSV94 EQU CVTXTNT2+20 03050000 CVTRSV93 EQU CVTXTNT2+16 03051000 CVTRSV92 EQU CVTXTNT2+12 03052000 CVTDEBVR EQU CVTXTNT2+8 03053000 CVTRSV91 EQU CVTXTNT2+6 03054000 CVTRSV9H EQU CVTFLGBT 03055000 CVTRSV9G EQU CVTFLGBT 03056000 CVTRSV9F EQU CVTFLGBT 03057000 CVTRSV9E EQU CVTFLGBT 03058000 CVTRSV9D EQU CVTFLGBT 03059000 CVTRSV9C EQU CVTFLGBT 03060000 CVTVME EQU CVTFLGBT 03061000 CVTNPE EQU CVTFLGBT 03062000 CVTNUCLS EQU CVTXTNT2+4 03063000 CVTDSSVA EQU CVTDSSV+1 03064000 CVTRSV89 EQU CVTDSSV 03065000 CVTRSV88 EQU CVTXTNT1+8 03066000 CVTRSV87 EQU CVTXTNT1+4 03067000 CVTFACHN EQU CVTXTNT1 03068000 CVTRV488 EQU CVTMAP+412 03069000 CVTRV487 EQU CVTMAP+408 03070000 CVTRV486 EQU CVTMAP+404 03071000 CVTRV485 EQU CVTMAP+400 03072000 CVTACTAP EQU CVTMAP+396 03073000 CVTAUTH EQU CVTMAP+392 03074000 CVTATMCA EQU CVTATMCT+1 03075000 CVTATMST EQU CVTATMCT 03076000 CVTRSV61 EQU CVTMAP+384 03077000 CVTVOLT1 EQU CVTVOLM1+1 03078000 CVTVOLI1 EQU CVTVOLF1 03079000 CVTSTOA EQU CVTMAP+376 03080000 CVTRSV58 EQU CVTMAP+374 03081000 CVTRSV57 EQU CVTMAP+372 03082000 CVTDDCE EQU CVTMAP+368 03083000 CVTPNWFR EQU CVTMAP+364 03084000 CVTSMF EQU CVTMAP+360 03085000 CVTSULK EQU CVTMAP+358 03086000 CVTSLKO EQU CVTSYSK 03087000 CVTSLKP EQU CVTSYSK 03088000 CVTSLKQ EQU CVTSYSK 03089000 CVTSLKR EQU CVTSYSK 03090000 CVTRSV56 EQU CVTSYSK 03091000 CVTRSV55 EQU CVTSYSK 03092000 CVTRSV54 EQU CVTSYSK 03093000 CVTRSV53 EQU CVTSYSK 03094000 CVTRSV52 EQU CVTA1F1 03095000 CVTRSV51 EQU CVTA1F1 03096000 CVTRSV50 EQU CVTA1F1 03097000 CVTRSV49 EQU CVTA1F1 03098000 CVTRSV48 EQU CVTA1F1 03099000 CVTRSV47 EQU CVTA1F1 03100000 CVTSRSW EQU CVTA1F1 03101000 CVTPFSW EQU CVTA1F1 03102000 CVTPCVT EQU CVTMAP+352 03103000 CVTRSV46 EQU CVTMAP+344 03104000 CVTRSV45 EQU CVTMAP+340 03105000 CVTRSV44 EQU CVTMAP+338 03106000 CVTRSV43 EQU CVTMAP+336 03107000 CVTHJESA EQU CVTHJES+1 03108000 CVTRSV42 EQU CVTHJES 03109000 CVTEXT2A EQU CVTEXT2+1 03110000 CVTRSV41 EQU CVTEXT2 03111000 CVTAPFA EQU CVTAPF+1 03112000 CVTRSV40 EQU CVTAPF 03113000 CVTRV518 EQU CVTINTLA 03114000 CVTRV517 EQU CVTERPV 03115000 CVTEORM EQU CVTMAP+312 03116000 CVTMCHPR EQU CVTMAP+308 03117000 CVTTZ EQU CVTMAP+304 03118000 CVTJEPS EQU CVTMAP+300 03119000 CVTJESCT EQU CVTMAP+296 03120000 CVTMODE EQU CVTMAP+292 03121000 CVTREAL EQU CVTMAP+284 03122000 CVTRSV39 EQU CVTMAP+280 03123000 CVTRSV38 EQU CVTMAP+276 03124000 CVTDMSRA EQU CVTDMSR+1 03125000 CVTRV634 EQU CVTDMSRF 03126000 CVTRV633 EQU CVTDMSRF 03127000 CVTRV632 EQU CVTDMSRF 03128000 CVTRV631 EQU CVTDMSRF 03129000 CVTRV630 EQU CVTDMSRF 03130000 CVTRV629 EQU CVTDMSRF 03131000 CVTUDUMP EQU CVTDMSRF 03132000 CVTSDUMP EQU CVTDMSRF 03133000 CVTQMSGA EQU CVTQMSG+1 03134000 CVTRSV36 EQU CVTQMSG 03135000 CVTAMFF EQU CVTMAP+264 03136000 CVTPURGA EQU CVTPURG+1 03137000 CVTRSV35 EQU CVTPURG 03138000 CVTCBSP EQU CVTMAP+256 03139000 CVTATERA EQU CVTATER+1 03140000 CVTSYST EQU CVTATER 03141000 CVTVOLT2 EQU CVTTAT 03142000 CVTVOLI2 EQU CVTVOLF2 03143000 CVTAQAVB EQU CVTAQAVT+1 03144000 CVTRSV34 EQU CVTTCMFG 03145000 CVTRSV33 EQU CVTTCMFG 03146000 CVTRSV32 EQU CVTTCMFG 03147000 CVTRSV31 EQU CVTTCMFG 03148000 CVTRSV30 EQU CVTTCMFG 03149000 CVTRSV29 EQU CVTTCMFG 03150000 CVTRSV28 EQU CVTTCMFG 03151000 CVTTCRDY EQU CVTTCMFG 03152000 CVTGTFA EQU CVTGTF+1 03153000 CVTRSV27 EQU CVTGTFST 03154000 CVTRNIO EQU CVTGTFST 03155000 CVTUSR EQU CVTGTFST 03156000 CVTRV318 EQU CVTFORM 03157000 CVTRV317 EQU CVTTMODE 03158000 CVTRV316 EQU CVTSTATE 03159000 CVTRV315 EQU CVTGTFS 03160000 CVTGTFAV EQU CVTGTFS 03161000 CVT0SCR1 EQU CVTMAP+232 03162000 CVTRV515 EQU CVTMAP+228 03163000 CVTRMS EQU CVTMAP+224 03164000 CVTPATCH EQU CVTMAP+220 03165000 CVTTSCE EQU CVTMAP+216 03166000 CVTLNKSC EQU CVTMAP+214 03167000 CVTQABST EQU CVTMAP+212 03168000 CVTMDLDS EQU CVTMAP+208 03169000 CVTUSER EQU CVTMAP+204 03170000 CVTABEND EQU CVTMAP+200 03171000 CVTSMCA EQU CVTMAP+196 03172000 CVTRSV18 EQU CVTMAP+192 03173000 CVTQLPAQ EQU CVTMAP+188 03174000 CVTQCDSR EQU CVTMAP+184 03175000 CVTRSV17 EQU CVTOPTB 03176000 CVTRSV16 EQU CVTOPTB 03177000 CVTFP EQU CVTOPTB 03178000 CVTAPTHR EQU CVTOPTB 03179000 CVTNLOG EQU CVTOPTB 03180000 CVTTOD EQU CVTOPTB 03181000 CVTCTIMS EQU CVTOPTB 03182000 CVTPROT EQU CVTOPTB 03183000 CVTXPFP EQU CVTOPTA 03184000 CVTASCII EQU CVTOPTA 03185000 CVTRSV13 EQU CVTOPTA 03186000 CVTRSV12 EQU CVTOPTA 03187000 CVTNIP EQU CVTOPTA 03188000 CVTDDR EQU CVTOPTA 03189000 CVTAPR EQU CVTOPTA 03190000 CVTCCH EQU CVTOPTA 03191000 CVTSNCTR EQU CVTMAP+180 03192000 CVTQMWR EQU CVTMAP+176 03193000 CVTQOCR EQU CVTMAP+172 03194000 CVT1EF00 EQU CVTMAP+168 03195000 CVTMZ00 EQU CVTMAP+164 03196000 CVTHEAD EQU CVTMAP+160 03197000 CVTRSV11 EQU CVTMAP+156 03198000 CVT0PT01 EQU CVTMAP+152 03199000 CVTMSER EQU CVTMAP+148 03200000 CVTRV516 EQU CVTIERLC 03201000 CVTILCH EQU CVTMAP+140 03202000 CVT0DS EQU CVTMAP+136 03203000 CVTFBOSV EQU CVTMAP+132 03204000 CVTNUCB EQU CVTMAP+128 03205000 CVTIXAVL EQU CVTMAP+124 03206000 CVTIOQET EQU CVTMAP+120 03207000 CVTDCBA EQU CVTMAP+117 03208000 CVTMVS2 EQU CVTDCB 03209000 CVT6DAT EQU CVTDCB 03210000 CVT4MPS EQU CVTDCB 03211000 CVTRSV09 EQU CVTDCB 03212000 CVT4MS1 EQU CVTDCB 03213000 CVT2SPS EQU CVTDCB 03214000 CVT1SSS EQU CVTDCB 03215000 CVTRSV08 EQU CVTDCB 03216000 CVTSTB EQU CVTMAP+112 03217000 CVTQTD00 EQU CVTMAP+108 03218000 CVTQTE00 EQU CVTMAP+104 03219000 CVTCUCB EQU CVTMAP+100 03220000 CVTSJQ EQU CVTMAP+96 03221000 CVTPBLDL EQU CVTMAP+92 03222000 CVTTPC EQU CVTMAP+88 03223000 CVTSVDCB EQU CVTMAP+84 03224000 CVTBRET EQU CVTMAP+82 03225000 CVTEXIT EQU CVTMAP+80 03226000 CVT0FN00 EQU CVTMAP+76 03227000 CVTDARA EQU CVTDAR+1 03228000 CVTRSV07 EQU CVTFLGS1 03229000 CVTRSV06 EQU CVTFLGS1 03230000 CVTRSV05 EQU CVTFLGS1 03231000 CVTRSV04 EQU CVTFLGS1 03232000 CVTRSV03 EQU CVTFLGS1 03233000 CVTRSV02 EQU CVTFLGS1 03234000 CVTRSV01 EQU CVTFLGS1 03235000 CVTDMPLK EQU CVTFLGS1 03236000 CVTXITP EQU CVTMAP+68 03237000 CVTZDTAB EQU CVTMAP+64 03238000 CVTMSLT EQU CVTMAP+60 03239000 CVTDATE EQU CVTMAP+56 03240000 CVTBTERM EQU CVTMAP+52 03241000 CVTSYSAD EQU CVTMAP+48 03242000 CVTXTLER EQU CVTMAP+44 03243000 CVTILK2 EQU CVTMAP+40 03244000 CVTILK1 EQU CVTMAP+36 03245000 CVTPRLTV EQU CVTMAP+32 03246000 CVTPCNVT EQU CVTMAP+28 03247000 CVT0VL00 EQU CVTMAP+24 03248000 CVTXAPG EQU CVTMAP+20 03249000 CVTBUF EQU CVTMAP+16 03250000 CVTJOB EQU CVTMAP+12 03251000 CVTLINK EQU CVTMAP+8 03252000 CVT0EF00 EQU CVTMAP+4 03253000 CVTTCBP EQU CVTMAP 03254000 CVT EQU CVTMAP 03255000 CUROPCE EQU IEDCUREQ+36 03256000 CURTOTBF EQU IEDCUREQ+28 03257000 CURPIUCT EQU IEDCUREQ+16 03258000 @NM00108 EQU CURFLG3 03259000 CURTOTEP EQU CURFLG3 03260000 CURTERM EQU CURFLG2 03261000 CURATTCH EQU CURFLG2 03262000 @NM00107 EQU CURFLG2 03263000 CURENDCH EQU CURFLG2 03264000 CURF1ID EQU CURFLG2 03265000 CURF1SEQ EQU CURFLG2 03266000 CURF0FIN EQU CURFLG2 03267000 CURELEM EQU IEDCUREQ+5 03268000 CCWCOUNT EQU CCW+6 03269000 CCWRSV EQU CCW+5 03270000 @NM00106 EQU CCWFLAGS 03271000 CCWIDA EQU CCWFLAGS 03272000 CCWPCI EQU CCWFLAGS 03273000 CCWSKIP EQU CCWFLAGS 03274000 CCWSLI EQU CCWFLAGS 03275000 CCWCC EQU CCWFLAGS 03276000 CCWCD EQU CCWFLAGS 03277000 CCWADDR EQU CCW+1 03278000 BDUXGRPH EQU BDUEXRSP 03279000 BDUXFINL EQU BDUEXRSP 03280000 BDUXINIT EQU BDUEXRSP 03281000 BDURESP EQU BDUSYRSP 03282000 BDUERROR EQU BDUSYRSP 03283000 BDUXERLK EQU BDUBDUFG 03284000 BDUALTAK EQU BDUFNFLG 03285000 BDUNEGAK EQU BDUFNFLG 03286000 BDUPOSAK EQU BDUFNFLG 03287000 BDUTPTX EQU BDUFNFLG 03288000 BDUFRSTB EQU BDUFNFLG 03289000 BDULEADG EQU BDUFNFLG 03290000 BDUHEADR EQU BDUFNFLG 03291000 BDUSTHDR EQU BDUFNFLG 03292000 SAVTLLCB EQU IEDNSVTD+316 03293000 SAVTBITN EQU IEDNSVTD+312 03294000 @NM00105 EQU SAVTCKQB+8 03295000 @NM00104 EQU SAVTCKEC+1 03296000 @NM00103 EQU SAVTCKCC 03297000 SAVTCKPO EQU SAVTCKCC 03298000 SAVTCKWA EQU SAVTCKCC 03299000 SAVTCKCH EQU SAVTCKTB+1 03300000 SAVTCKVT EQU SAVTCKTB 03301000 @NM00102 EQU IEDNSVTD+297 03302000 SAVTRDFG EQU SAVTRDRV+12 03303000 @NM00101 EQU SAVTRDRV+5 03304000 SAVTRDPY EQU SAVTRDRV+4 03305000 SAVTRDQB EQU SAVTRDRV+1 03306000 SAVTRDKY EQU SAVTRDRV 03307000 SAVTNID EQU IEDNSVTD+280 03308000 SAVTDVAS EQU IEDNSVTD+276 03309000 SAVTPLSZ EQU IEDNSVTD+274 03310000 @NM00100 EQU IEDNSVTD+273 03311000 @NM00099 EQU SAVTZELM+1 03312000 SAVTSUBM EQU SAVTZELM 03313000 SAVTMHDX EQU IEDNSVTD+268 03314000 SAVTNAT1 EQU IEDNSVTD+266 03315000 SAVTSH20 EQU IEDNSVTD+264 03316000 SAVTLCBS EQU IEDNSVTD+260 03317000 SAVTRNMP EQU IEDNSVTD+256 03318000 SAVTNAX EQU IEDNSVTD+248 03319000 SAVTSUBV EQU IEDNSVTD+247 03320000 SAVTSUBA EQU IEDNSVTD+246 03321000 SAVTSIBC EQU IEDNSVTD+244 03322000 SAVTBSM EQU IEDNSVTD+240 03323000 SAVTSCPT EQU SAVTTCPU 03324000 SAVTRQTG EQU IEDNSVTD+236 03325000 SAVTRQCH EQU IEDNSVTD+232 03326000 SAVTMAND EQU IEDNSVTD+228 03327000 SAVTSPLN EQU IEDNSVTD+224 03328000 SAVTNADL EQU IEDNSVTD+222 03329000 SAVTNATL EQU IEDNSVTD+220 03330000 SAVTMHTB EQU IEDNSVTD+216 03331000 SAVTSSMH EQU IEDNSVTD+212 03332000 SAVTQRS EQU IEDNSVTD+208 03333000 SAVTRQIN EQU IEDNSVTD+204 03334000 SAVTDFCO EQU IEDNSVTD+200 03335000 SAVTSAO EQU IEDNSVTD+196 03336000 SAVTSARI EQU IEDNSVTD+192 03337000 SAVTSAC EQU IEDNSVTD+188 03338000 SAVTSAI EQU IEDNSVTD+184 03339000 SAVTCSCI EQU IEDNSVTD+180 03340000 SAVTSSRP EQU IEDNSVTD+176 03341000 SAVTSSRQ EQU IEDNSVTD+172 03342000 SAVTSCLU EQU IEDNSVTD+168 03343000 SAVTXTRQ EQU IEDNSVTD+164 03344000 SAVTMVBF EQU IEDNSVTD+160 03345000 @NM00098 EQU IEDNSVTD+148 03346000 @NM00097 EQU IEDNSVTD+136 03347000 SAVTXFMI EQU IEDNSVTD+132 03348000 @NM00096 EQU IEDNSVTD+124 03349000 SAVTXFMO EQU IEDNSVTD+120 03350000 @NM00095 EQU IEDNSVTD+116 03351000 SAVTSSSR EQU IEDNSVTD+112 03352000 SAVTSCPQ EQU IEDNSVTD+108 03353000 SAVTSLCB EQU IEDNSVTD+104 03354000 SAVTLUSR EQU IEDNSVTD+100 03355000 @NM00094 EQU SAVTLUSQ+8 03356000 SAVTLUSP EQU SAVTLUSQ+4 03357000 SAVTLUSB EQU SAVTLUSQ 03358000 @NM00093 EQU IEDNSVTD+84 03359000 SAVTNAT EQU IEDNSVTD+76 03360000 SAVTPIUT EQU IEDNSVTD+68 03361000 SAVTRNTA EQU IEDNSVTD+64 03362000 SAVTDNIR EQU IEDNSVTD+60 03363000 SAVTCNIR EQU IEDNSVTD+56 03364000 SAVTFLDH EQU IEDNSVTD+52 03365000 SAVTSRTN EQU IEDNSVTD+48 03366000 SAVTSREQ EQU IEDNSVTD+44 03367000 SAVTFAIL EQU IEDNSVTD+42 03368000 SAVTSUSE EQU IEDNSVTD+40 03369000 SAVTSIB EQU IEDNSVTD+36 03370000 SAVTPRTN EQU IEDNSVTD+32 03371000 @NM00092 EQU IEDNSVTD+28 03372000 SAVTWH20 EQU IEDNSVTD+26 03373000 SAVTPWT EQU IEDNSVTD+24 03374000 SAVTPRTQ EQU IEDNSVTD+20 03375000 SAVTPREQ EQU IEDNSVTD+16 03376000 SAVTPH20 EQU IEDNSVTD+14 03377000 SAVTPUSE EQU IEDNSVTD+12 03378000 SAVTPLCB EQU IEDNSVTD+8 03379000 SAVTPOOL EQU IEDNSVTD+4 03380000 SAVTPRMT EQU SAVTDIAF 03381000 SAVTVIRT EQU SAVTDIAF 03382000 AVTCPBNO EQU IEDQAVTD+1172 03383000 AVTHRESS EQU IEDQAVTD+1171 03384000 @NM00091 EQU IEDQAVTD+1170 03385000 @NM00090 EQU IEDQAVTD+1169 03386000 @NM00089 EQU IEDQAVTD+1168 03387000 @NM00088 EQU IEDQAVTD+1165 03388000 @NM00087 EQU IEDQAVTD+1164 03389000 AVTHRESE EQU @NM00086 03390000 AVTRADDR EQU IEDQAVTD+1156 03391000 AVTNADDR EQU IEDQAVTD+1152 03392000 AVTHRESN EQU IEDQAVTD+1148 03393000 AVTVOLRN EQU IEDQAVTD+1144 03394000 AVTTOTNN EQU IEDQAVTD+1140 03395000 AVTTRCYN EQU IEDQAVTD+1136 03396000 AVTRCTRN EQU IEDQAVTD+1132 03397000 AVTNOVON EQU IEDQAVTD+1128 03398000 AVTADEBN EQU IEDQAVTD+1124 03399000 AVTVOLRR EQU IEDQAVTD+1120 03400000 AVTTOTNR EQU IEDQAVTD+1116 03401000 AVTTRCYR EQU IEDQAVTD+1112 03402000 AVTRCTRR EQU IEDQAVTD+1108 03403000 AVTNOVOR EQU IEDQAVTD+1104 03404000 AVTADEBR EQU IEDQAVTD+1100 03405000 AVTLODPT EQU IEDQAVTD+1096 03406000 AVTIOBN EQU IEDQAVTD+1092 03407000 AVTIOBR EQU IEDQAVTD+1088 03408000 AVTCPBPT EQU IEDQAVTD+1084 03409000 AVTFCPB EQU IEDQAVTD+1080 03410000 @NM00085 EQU IEDQAVTD+1076 03411000 AVTINCPQ EQU IEDQAVTD+1072 03412000 @NM00084 EQU IEDQAVTD+1068 03413000 @NM00083 EQU IEDQAVTD+1065 03414000 @NM00082 EQU AVTBIT4 03415000 @NM00081 EQU AVTBIT4 03416000 @NM00080 EQU AVTBIT4 03417000 @NM00079 EQU AVTBIT4 03418000 @NM00078 EQU AVTBIT4 03419000 @NM00077 EQU AVTBIT4 03420000 @NM00076 EQU AVTBIT4 03421000 AVTRUFTN EQU AVTBIT4 03422000 @NM00075 EQU IEDQAVTD+1060 03423000 AVTNOBFQ EQU IEDQAVTD+1056 03424000 @NM00074 EQU IEDQAVTD+1052 03425000 AVTDKENQ EQU IEDQAVTD+1048 03426000 @NM00073 EQU IEDQAVTD+1044 03427000 AVTDKAPQ EQU IEDQAVTD+1040 03428000 AVTCOPY EQU IEDQAVTD+1036 03429000 AVTIA EQU IEDQAVTD+1032 03430000 AVTFL EQU IEDQAVTD+1028 03431000 @NM00072 EQU IEDQAVTD+1024 03432000 AVTNCPBQ EQU IEDQAVTD+1020 03433000 AVTTOTNC EQU IEDQAVTD+1016 03434000 AVTCMAX EQU IEDQAVTD+1012 03435000 AVTCMIN EQU IEDQAVTD+1008 03436000 AVTHM02 EQU IEDQAVTD+1004 03437000 AVTOPCIN EQU IEDQAVTD+1002 03438000 AVTDCTLN EQU IEDQAVTD+1000 03439000 AVTOPMSK EQU IEDQAVTD+996 03440000 AVTDDFT EQU IEDQAVTD+992 03441000 AVTSTEAL EQU IEDQAVTD+988 03442000 AVTOPTN EQU IEDQAVTD+984 03443000 AVTDSKCT EQU IEDQAVTD+982 03444000 AVTCKRST EQU IEDQAVTD+981 03445000 AVTSTAN EQU AVTBIT3 03446000 AVTSTACN EQU AVTBIT3 03447000 AVTSTAIN EQU AVTBIT3 03448000 AVTSTAYN EQU AVTBIT3 03449000 AVTOLTBN EQU AVTBIT3 03450000 AVTTSAB EQU AVTBIT3 03451000 AVTRFULN EQU AVTBIT3 03452000 AVTRECVN EQU AVTBIT3 03453000 @NM00071 EQU AVTBIT2 03454000 @NM00070 EQU AVTBIT2 03455000 AVTOPEIN EQU AVTBIT2 03456000 AVTSTRTN EQU AVTBIT2 03457000 AVTTOPOL EQU AVTBIT2 03458000 AVTCOPYN EQU AVTBIT2 03459000 AVTREUSN EQU AVTBIT2 03460000 AVTEXTSC EQU AVTBIT2 03461000 AVTDISKN EQU AVTBIT1 03462000 AVTQUCKN EQU AVTBIT1 03463000 AVTCLOSN EQU AVTBIT1 03464000 AVTREADN EQU AVTBIT1 03465000 AVTDLAYN EQU AVTBIT1 03466000 AVTAQTAN EQU AVTBIT1 03467000 AVTTSON EQU AVTBIT1 03468000 AVTAPLKN EQU AVTBIT1 03469000 AVTDUMBR EQU IEDQAVTD+976 03470000 AVTDLQX EQU IEDQAVTD+974 03471000 AVTINTLV EQU IEDQAVTD+972 03472000 AVTSMCNT EQU IEDQAVTD+970 03473000 AVTAVFCT EQU IEDQAVTD+968 03474000 AVTOPCON EQU IEDQAVTD+966 03475000 AVTOPCNT EQU IEDQAVTD+964 03476000 AVTLNCNT EQU IEDQAVTD+962 03477000 AVTKEYLE EQU IEDQAVTD+960 03478000 AVTHA16 EQU IEDQAVTD+958 03479000 AVTHA7 EQU IEDQAVTD+956 03480000 AVTHA4 EQU IEDQAVTD+954 03481000 AVTHA3 EQU IEDQAVTD+952 03482000 AVTHA2 EQU IEDQAVTD+950 03483000 AVTGETMS EQU IEDQAVTD+949 03484000 @NM00069 EQU IEDQAVTD+948 03485000 AVTGETMD EQU IEDQAVTD+944 03486000 AVTGETMN EQU IEDQAVTD+940 03487000 AVTCWTOT EQU IEDQAVTD+936 03488000 AVTCWINT EQU IEDQAVTD+884 03489000 AVTDTRAP EQU IEDQAVTD+880 03490000 @NM00068 EQU IEDQAVTD+878 03491000 @NM00067 EQU AVTIOTR 03492000 AVTIOTRH EQU AVTIOTR 03493000 AVTIOTRE EQU AVTIOTR 03494000 @NM00066 EQU AVTSUBT 03495000 AVTSUBPT EQU AVTSUBT 03496000 AVTSUBON EQU AVTSUBT 03497000 AVTAFE30 EQU IEDQAVTD+872 03498000 AVTAFE20 EQU IEDQAVTD+868 03499000 AVTAFE10 EQU IEDQAVTD+864 03500000 AVTCWEC2 EQU IEDQAVTD+860 03501000 AVTCWPM2 EQU IEDQAVTD+856 03502000 AVTCWTS2 EQU IEDQAVTD+855 03503000 AVTCWTS1 EQU IEDQAVTD+854 03504000 AVTCWCLD EQU AVTCWFL2 03505000 AVTCWRAP EQU AVTCWFL2 03506000 @NM00065 EQU AVTCWFL2 03507000 @NM00064 EQU AVTCWFL2 03508000 @NM00063 EQU AVTCWFL2 03509000 @NM00062 EQU AVTCWFL2 03510000 @NM00061 EQU AVTCWFL2 03511000 AVTCWACT EQU AVTCWFL2 03512000 @NM00060 EQU AVTCWFL1 03513000 @NM00059 EQU AVTCWFL1 03514000 @NM00058 EQU AVTCWFL1 03515000 @NM00057 EQU AVTCWFL1 03516000 @NM00056 EQU AVTCWFL1 03517000 @NM00055 EQU AVTCWFL1 03518000 @NM00054 EQU AVTCWFL1 03519000 AVTCOMWN EQU AVTCWFL1 03520000 AVTCWEC1 EQU IEDQAVTD+848 03521000 AVTCWPM1 EQU IEDQAVTD+844 03522000 AVTCAREA EQU IEDQAVTD+840 03523000 AVTFZERO EQU IEDQAVTD+836 03524000 AVTCADDR EQU IEDQAVTD+832 03525000 AVTCOREC EQU IEDQAVTD+828 03526000 @NM00053 EQU IEDQAVTD+820 03527000 AVTCPBCB EQU IEDQAVTD+816 03528000 @NM00052 EQU IEDQAVTD+808 03529000 AVTDSIOB EQU IEDQAVTD+804 03530000 @NM00051 EQU IEDQAVTD+796 03531000 AVTCPRMB EQU IEDQAVTD+792 03532000 @NM00050 EQU IEDQAVTD+784 03533000 AVTCLOSB EQU IEDQAVTD+780 03534000 @NM00049 EQU IEDQAVTD+772 03535000 AVTACTIB EQU IEDQAVTD+768 03536000 @NM00048 EQU IEDQAVTD+764 03537000 AVTOLTEB EQU IEDQAVTD+760 03538000 AVTOLTCH EQU AVTOLTQB+1 03539000 AVTOLTVT EQU AVTOLTQB 03540000 @NM00047 EQU AVTOPCQB+8 03541000 @NM00046 EQU AVTOPCEC+1 03542000 @NM00045 EQU AVTOPCCC 03543000 AVTOPCPO EQU AVTOPCCC 03544000 AVTOPCWA EQU AVTOPCCC 03545000 AVTOPCCH EQU AVTOPCOB+1 03546000 AVTOPCVT EQU AVTOPCOB 03547000 @NM00044 EQU AVTCKPQB+9 03548000 AVTCKPTS EQU AVTCKPQB+8 03549000 @NM00043 EQU AVTCKPEC+1 03550000 @NM00042 EQU AVTCKPCC 03551000 AVTCKPPO EQU AVTCKPCC 03552000 AVTCKPWA EQU AVTCKPCC 03553000 AVTCKPCH EQU AVTCKPTB+1 03554000 AVTCKPVT EQU AVTCKPTB 03555000 @NM00041 EQU IEDQAVTD+724 03556000 @NM00040 EQU IEDQAVTD+716 03557000 AVTSELCH EQU IEDQAVTD+713 03558000 AVTBFRTN EQU AVTBFRFG 03559000 AVTBFREB EQU IEDQAVTD+708 03560000 AVTTIMQ EQU IEDQAVTD+704 03561000 @NM00039 EQU IEDQAVTD+700 03562000 AVTIMQPS EQU IEDQAVTD+696 03563000 AVTINOUT EQU IEDQAVTD+694 03564000 AVTREFTM EQU IEDQAVTD+692 03565000 @NM00038 EQU IEDQAVTD+680 03566000 AVTDELYB EQU IEDQAVTD+676 03567000 AVTOCQPT EQU IEDQAVTD+672 03568000 AVTTSOPT EQU IEDQAVTD+668 03569000 AVTSUPPT EQU IEDQAVTD+664 03570000 AVTCBQCB EQU IEDQAVTD+660 03571000 AVTMSGS EQU IEDQAVTD+657 03572000 @NM00037 EQU AVTSYSER 03573000 @NM00036 EQU AVTSYSER 03574000 @NM00035 EQU AVTSYSER 03575000 @NM00034 EQU AVTSYSER 03576000 @NM00033 EQU AVTSYSER 03577000 @NM00032 EQU AVTSYSER 03578000 AVTCMAXN EQU AVTSYSER 03579000 AVTCMINN EQU AVTSYSER 03580000 AVT2260L EQU IEDQAVTD+652 03581000 AVTABEPL EQU AVTADBUF 03582000 AVTHFF EQU AVTCLRHI+2 03583000 @NM00031 EQU AVTCLRHI 03584000 AVTCCLNK EQU AVTCRELE+5 03585000 AVTCCPRI EQU AVTCRELE+4 03586000 AVTCCQCB EQU AVTCCELE+1 03587000 AVTCCKEY EQU AVTCCELE 03588000 AVTDELEM EQU IEDQAVTD+628 03589000 AVTBSX EQU AVTCKLNK 03590000 AVTOPETR EQU AVTHG01 03591000 @NM00030 EQU AVTCKBYT 03592000 AVTCKONQ EQU AVTCKBYT 03593000 @NM00029 EQU AVTCKBYT 03594000 @NM00028 EQU AVTCKBYT 03595000 @NM00027 EQU AVTCKBYT 03596000 @NM00026 EQU AVTCKBYT 03597000 @NM00025 EQU AVTCKBYT 03598000 @NM00024 EQU AVTCKBYT 03599000 AVTOPERT EQU IEDQAVTD+618 03600000 AVTOPXCL EQU IEDQAVTD+616 03601000 AVTOPERL EQU IEDQAVTD+615 03602000 @NM00023 EQU IEDQAVTD+614 03603000 AVTCKTIM EQU IEDQAVTD+612 03604000 AVTCKELV EQU IEDQAVTD+610 03605000 AVTCPRCD EQU IEDQAVTD+609 03606000 AVTWARMN EQU AVTCKELF 03607000 AVTCRTLN EQU AVTCKELF 03608000 AVTCPIPN EQU AVTCKELF 03609000 AVTCCLCN EQU AVTCKELF 03610000 AVTCINCN EQU AVTCKELF 03611000 @NM00022 EQU AVTCKELF 03612000 AVTCMCPN EQU AVTCKELF 03613000 AVTNQBCK EQU AVTCKELF 03614000 AVTCKQAD EQU IEDQAVTD+605 03615000 AVTSCBSZ EQU IEDQAVTD+604 03616000 @NM00021 EQU IEDQAVTD+600 03617000 AVTCKELE EQU IEDQAVTD+596 03618000 @NM00020 EQU AVTCKPEL+8 03619000 AVTCKRLK EQU AVTCKPEL+5 03620000 AVTCKRPR EQU AVTCKPEL+4 03621000 AVTCKRMQ EQU AVTCKRMV+1 03622000 AVTCKRKY EQU AVTCKRMV 03623000 AVTHK EQU IEDQAVTD+576 03624000 AVTHI EQU IEDQAVTD+572 03625000 AVTIOT EQU IEDQAVTD+568 03626000 AVTNX EQU IEDQAVTD+564 03627000 AVTTONE EQU IEDQAVTD+560 03628000 AVTA3TL EQU IEDQAVTD+556 03629000 AVTDMECB EQU IEDQAVTD+552 03630000 AVTABEND EQU IEDQAVTD+546 03631000 AVTPLCBN EQU IEDQAVTD+544 03632000 @NM00019 EQU AVTSAVTP+1 03633000 @NM00018 EQU AVTSAVTF 03634000 AVTSNA EQU AVTSAVTF 03635000 AVTONSNA EQU AVTSAVTF 03636000 AVTVTMCP EQU AVTSAVTF 03637000 @NM00017 EQU IEDQAVTD+536 03638000 AVTCMBSS EQU IEDQAVTD+532 03639000 AVTRCV EQU IEDQAVTD+528 03640000 AVTSEND EQU IEDQAVTD+524 03641000 AVTCSCH EQU IEDQAVTD+520 03642000 AVTQ1 EQU IEDQAVTD+516 03643000 AVTE7 EQU IEDQAVTD+512 03644000 AVTHB EQU IEDQAVTD+508 03645000 AVTR1 EQU IEDQAVTD+504 03646000 AVTBZ EQU IEDQAVTD+500 03647000 AVTEZ EQU IEDQAVTD+496 03648000 AVTEC EQU IEDQAVTD+492 03649000 AVTEW EQU IEDQAVTD+488 03650000 AVTNDIAL EQU AVTSCOPT 03651000 AVTN2741 EQU AVTSCOPT 03652000 AVTCONCO EQU AVTSCOPT 03653000 AVTCONC EQU AVTSCOPT 03654000 AVTCMBUF EQU AVTSCOPT 03655000 AVTAPDMP EQU AVTSCOPT 03656000 @NM00016 EQU AVTSCOPT 03657000 AVTHA EQU AVTDISP 03658000 AVTEA EQU IEDQAVTD+476 03659000 AVTAX EQU IEDQAVTD+472 03660000 AVTA3 EQU IEDQAVTD+468 03661000 AVTGD EQU IEDQAVTD+464 03662000 AVTAL EQU IEDQAVTD+460 03663000 AVTOLTST EQU AVTHG02 03664000 AVTE8 EQU IEDQAVTD+452 03665000 AVTUI EQU IEDQAVTD+448 03666000 AVTCOMPT EQU IEDQAVTD+444 03667000 AVTCRSRF EQU IEDQAVTD+440 03668000 @NM00015 EQU IEDQAVTD+436 03669000 AVTKA02 EQU IEDQAVTD+432 03670000 AVTOPTPT EQU IEDQAVTD+428 03671000 AVTPCBPT EQU IEDQAVTD+424 03672000 @NM00014 EQU AVTECB1 03673000 AVTCOMP EQU AVTECB1 03674000 @NM00013 EQU AVTECB1 03675000 AVTOPECA EQU IEDQAVTD+416 03676000 AVTOLECA EQU IEDQAVTD+412 03677000 AVTCKECA EQU IEDQAVTD+408 03678000 AVTCWECA EQU IEDQAVTD+404 03679000 AVTCWTCB EQU IEDQAVTD+400 03680000 AVTOLTCB EQU IEDQAVTD+396 03681000 AVTOCTCB EQU IEDQAVTD+392 03682000 AVTCKTCB EQU IEDQAVTD+388 03683000 AVTAS EQU IEDQAVTD+384 03684000 AVTNOLBF EQU IEDQAVTD+382 03685000 AVTNCKPR EQU IEDQAVTD+381 03686000 AVTCIB EQU IEDQAVTD+380 03687000 AVTSPLPT EQU IEDQAVTD+376 03688000 AVTMVBFR EQU IEDQAVTD+372 03689000 AVTSBTA EQU IEDQAVTD+368 03690000 AVTRARTN EQU IEDQAVTD+364 03691000 AVTBSCAN EQU IEDQAVTD+360 03692000 AVTRDYA EQU IEDQAVTD+356 03693000 AVTDISTR EQU IEDQAVTD+348 03694000 AVTPARM3 EQU IEDQAVTD+344 03695000 @NM00012 EQU AVTPKF 03696000 @NM00011 EQU AVTPKF 03697000 @NM00010 EQU AVTPKF 03698000 AVTFTCHF EQU AVTPKF 03699000 @NM00009 EQU AVTPKF 03700000 @NM00008 EQU AVTPKF 03701000 @NM00007 EQU AVTPKF 03702000 @NM00006 EQU AVTPKF 03703000 AVTPARM EQU IEDQAVTD+336 03704000 AVTEXS2A EQU IEDQAVTD+330 03705000 AVTEXA2S EQU IEDQAVTD+324 03706000 AVTCKAVT EQU @NM00004+1 03707000 @NM00005 EQU AVTCKFLG 03708000 AVTCKHLT EQU AVTCKFLG 03709000 AVTCKREQ EQU AVTCKFLG 03710000 AVTCKENV EQU AVTCKFLG 03711000 AVTCKNAC EQU AVTCKFLG 03712000 AVTCKTAC EQU AVTCKFLG 03713000 AVTBUENT EQU IEDQAVTD+314 03714000 @NM00003 EQU IEDQAVTD+313 03715000 AVTFULLT EQU AVTBUFSW 03716000 AVTUNCON EQU AVTBUFSW 03717000 @NM00002 EQU AVTBUFSW 03718000 AVTBUFTR EQU AVTREADD 03719000 AVTREADY EQU IEDQAVTD+304 03720000 AVTRACE EQU IEDQAVTD+300 03721000 AVTTCB EQU IEDQAVTD+296 03722000 AVTPASWD EQU IEDQAVTD+288 03723000 AVTCTLCH EQU IEDQAVTD+280 03724000 AVTDOUBL EQU IEDQAVTD+272 03725000 AVTDOUBX EQU IEDQAVTD+264 03726000 AVTDPARM EQU IEDQAVTD+260 03727000 AVTCSTCS EQU IEDQAVTD+256 03728000 AVTDLQ EQU AVTSAVEX+32 03729000 @NM00001 EQU AVTSAVEX 03730000 AVTSAVE4 EQU IEDQAVTD+144 03731000 AVTSAVE3 EQU IEDQAVTD+72 03732000 AVTSAVE2 EQU IEDQAVTD 03733000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03734000 @RF00644 EQU @RC00639 03735000 @RC00604 EQU @RC00603 03736000 @RF00799 EQU @RC00796 03737000 @RC00849 EQU @RC00847 03738000 @RF00890 EQU @EL00002 03739000 @PB00004 EQU @EL00001 03740000 @PB00003 EQU @PB00004 03741000 @PB00002 EQU @PB00003 03742000 @RC00830 EQU @PB00002 03743000 @ENDDATA EQU * 03744000 END IEDNCU,(C'PLS1638',0701,78044) 03745000