TITLE 'IGCAD10D, PROCESS RU ERRORS FOR SSCP *00001000 ' 00002000 IGCAD10D CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 * 0471 00005000 USING *,RBASE 00006000 LR RBASE,RF SET UP ADDRESSIBILITY 00007000 IGCAD10D IEDHJN START,HJN 00008000 */* */ 00009000 * 0472 00010000 * /* INITIALIZATION */ 00011000 * ROPCAVT=RPARM; /* OP CONTROL AVT ADDRESS */ 00012000 LR ROPCAVT,RPARM 0472 00013000 * RPRF=OPCCOPCE; /* CURRENT ELEMENT ADDRESS */ 00014000 L RPRF,OPCCOPCE(,ROPCAVT) 0473 00015000 * RAVT=OPCAVTPT; /* TCAM AVT ADDRESS */ 00016000 L RAVT,OPCAVTPT(,ROPCAVT) 0474 00017000 * RWORK=OPCWORK; /* OP CONTROL WORK AREA */ 00018000 L RWORK,OPCWORK(,ROPCAVT) 0475 00019000 * RSAVE=ADDR(OPCSAVE); /* OP CONTROL SAVE AREA */ 00020000 LA RSAVE,OPCSAVE(,ROPCAVT) 0476 00021000 */* */ 00022000 * 0477 00023000 * IF PRFPRI=PRISSBUF THEN /* ELEMENT A BUFFER */ 00024000 CLI PRFPRI(IEDQPPTR),X'E2' 0477 00025000 BNE @RF00477 0477 00026000 * DO; 0478 00027000 * WKSLUTNT=PRFSRCE; /* SLU'S TNT OFFSET */ 00028000 LH @09,PRFSRCE(,IEDQPPTR) 0479 00029000 STH @09,WKSLUTNT(,RWORK) 0479 00030000 * IF TRHSDI=ON THEN /* PROCESS EXCEPTION REQUEST */ 00031000 LR @09,IEDQPPTR 0480 00032000 AL @09,@CF01764 0480 00033000 TM TRHSDI(@09),B'00000100' 0480 00034000 BNO @RF00480 0480 00035000 * CALL EXCPRQ; 0481 00036000 BAL @14,EXCPRQ 0481 00037000 * ELSE /* PROCESS CONVERT ERROR OR */ 00038000 * DO; /* REQUEST THAT WASN'T UNDERSTOOD*/ 00039000 B @RC00480 0482 00040000 @RF00480 DS 0H 0483 00041000 * IF TRHFI=ON THEN /* FORMATTED ? */ 00042000 LR @09,IEDQPPTR 0483 00043000 AL @09,@CF01764 0483 00044000 TM TRHFI(@09),B'00001000' 0483 00045000 BNO @RF00483 0483 00046000 * CALL BADREQ; /* PROCESS FORMATTED REQUEST THAT 00047000 * WASN'T UNDERSTOOD */ 00048000 BAL @14,BADREQ 0484 00049000 * ELSE 0485 00050000 * CALL CNVTERR; /* PROCESS CONVERT ERROR */ 00051000 B @RC00483 0485 00052000 @RF00483 BAL @14,CNVTERR 0485 00053000 * END; 0486 00054000 * END; 0487 00055000 * ELSE /* THIS IS OPCE WITH ATTACHED 0488 00056000 * RESPONSE */ 00057000 * DO; 0488 00058000 B @RC00477 0488 00059000 @RF00477 DS 0H 0489 00060000 * RPARM=RPRF; /* SET UP TO FREE ELEMENT */ 00061000 LR RPARM,RPRF 0489 00062000 * CALL FREEBUF; /* FREE THE ELEMENT */ 00063000 L @15,OPCFREBF(,ROPCAVT) 0490 00064000 BALR @14,@15 0490 00065000 * RZERO=0; /* CLEAR REG 0 */ 00066000 SLR RZERO,RZERO 0491 00067000 * OPCMODID=DSPOPCTL; /* PASS CONTROL TO '00' */ 00068000 MVC OPCMODID(2,ROPCAVT),@CC01721 0492 00069000 * END; 0493 00070000 * 0493 00071000 */* */ 00072000 * 0494 00073000 * RPARM=ROPCAVT; /* OP CONTROL AVT ADDRESS */ 00074000 @RC00477 LR RPARM,ROPCAVT 0494 00075000 * GEN REFS(ROPCAVT,OPCXCTL) EXIT NOSEQFLOW; 0495 00076000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00077000 *BADREQ: 0496 00078000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0496 00079000 * 0496 00080000 BADREQ DS 0H 0497 00081000 * /*****************************************************************/ 00082000 * /* */ 00083000 * /* THIS ROUTINE PROCESSES REQUESTS THAT WERE NOT UNDERSTOOD BY */ 00084000 * /* THE SSCP ROUTER. IF A RESPONSE IS REQUIRED IT IS SENT. */ 00085000 * /* OTHERWISE, THE BUFFER IS FREED AND CONTROL IS PASSED TO */ 00086000 * /* IGC0010D. */ 00087000 * /* */ 00088000 * /*****************************************************************/ 00089000 * 0497 00090000 * WKSAVE1=RE; /* SAVE REG 14 */ 00091000 ST RE,WKSAVE1(,RWORK) 0497 00092000 */* */ 00093000 * 0498 00094000 * WKCMDPTR=AVTHDRSZ+PRFISIZE+ADDR(PRFSUNIT);/* PTR TO COMMAND */ 00095000 LA @09,30 0498 00096000 SLR @07,@07 0498 00097000 IC @07,PRFISIZE(,IEDQPPTR) 0498 00098000 ALR @09,@07 0498 00099000 LA @07,PRFSUNIT(,IEDQPPTR) 0498 00100000 ALR @09,@07 0498 00101000 ST @09,WKCMDPTR(,RWORK) 0498 00102000 * WKCOMAND=COMMAND; /* SAVE COMMAND */ 00103000 MVC WKCOMAND(3,RWORK),COMMAND(@09) 0499 00104000 * IF TRHDR1=ON| /* RESPONSE REQUIRED */ 00105000 * TRHDR2=ON THEN /* FOR THIS REQUEST */ 00106000 LR @09,IEDQPPTR 0500 00107000 AL @09,@CF01765 0500 00108000 TM TRHDR1-1(@09),B'10100000' 0500 00109000 BZ @RF00500 0500 00110000 * CALL BLDRESP; /* BUILD RESPONSE */ 00111000 BAL @14,BLDRESP 0501 00112000 * ELSE /* NO RESPONSE REQUIRED */ 00113000 * DO; 0502 00114000 B @RC00500 0502 00115000 @RF00500 DS 0H 0503 00116000 * RPARM=RPRF; /* SET UP TO FREE BUFFER */ 00117000 LR RPARM,RPRF 0503 00118000 * CALL FREEBUF; /* FREE THE BUFFER */ 00119000 L @15,OPCFREBF(,ROPCAVT) 0504 00120000 BALR @14,@15 0504 00121000 * END; 0505 00122000 * 0505 00123000 */* */ 00124000 * 0506 00125000 * RZERO=0; /* CLEAR REG ZERO */ 00126000 @RC00500 SLR RZERO,RZERO 0506 00127000 * OPCMODID=DSPOPCTL; /* PASS CONTROL TO '00' */ 00128000 MVC OPCMODID(2,ROPCAVT),@CC01721 0507 00129000 * RE=WKSAVE1; /* RESTORE REG 14 */ 00130000 L RE,WKSAVE1(,RWORK) 0508 00131000 */* */ 00132000 * 0509 00133000 * END BADREQ; /* RETURN TO CALLER */ 00134000 @EL00002 DS 0H 0509 00135000 @EF00002 DS 0H 0509 00136000 @ER00002 BR @14 0509 00137000 *BLDRESP: 0510 00138000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0510 00139000 * 0510 00140000 BLDRESP DS 0H 0511 00141000 * /*****************************************************************/ 00142000 * /* */ 00143000 * /* THIS ROUTINE BUILDS AN ERROR RESPONSE. THE ERROR RESPONSE IS */ 00144000 * /* BUILT IN PIU FORMAT AND TPOSTED VIA SVC 102 TO IEDDFOUT. */ 00145000 * /* */ 00146000 * /*****************************************************************/ 00147000 * 0511 00148000 * WKSAVE2=RE; /* SAVE REG 14 */ 00149000 ST RE,WKSAVE2(,RWORK) 0511 00150000 */* */ 00151000 * 0512 00152000 * PRFPIUO=1; /* OFFSET TO PIU */ 00153000 LA @09,1 0512 00154000 STC @09,PRFPIUO(,IEDQPPTR) 0512 00155000 * WKPIUPTR=ADDR(PRFPIUO)+PRFPIUO; /* ADDRESS OF PIU */ 00156000 LA @07,PRFPIUO(,IEDQPPTR) 0513 00157000 ALR @07,@09 0513 00158000 ST @07,WKPIUPTR(,RWORK) 0513 00159000 * WKPIURH=ADDR(PIURH); /* ADDRESS OF RH */ 00160000 LA @09,PIURH(,@07) 0514 00161000 ST @09,WKPIURH(,RWORK) 0514 00162000 */* */ 00163000 * 0515 00164000 * /* SET UP TH AND RH */ 00165000 * TTHBYTE0=THCON; /* SET UP FIRST BYTE */ 00166000 MVI TTHBYTE0(@07),X'1C' 0515 00167000 * IF PRF1EXPI=ON THEN /* ORIGINAL EXPEDITED */ 00168000 LR @09,IEDQPPTR 0516 00169000 AL @09,@CF01766 0516 00170000 TM PRF1EXPI-3(@09),B'01000000' 0516 00171000 BNO @RF00516 0516 00172000 * TTHEFI=ON; /* SET EXPEDITED IN RSP */ 00173000 OI TTHEFI(@07),B'00000001' 0517 00174000 * TTHBYTE1=0; /* SET UP SECOND BYTE */ 00175000 @RF00516 L @09,WKPIUPTR(,RWORK) 0518 00176000 MVI TTHBYTE1(@09),X'00' 0518 00177000 * TTHDAF=WKSLUTNT; /* SET UP DESTINATION */ 00178000 MVC TTHDAF(2,@09),WKSLUTNT(RWORK) 0519 00179000 * TTHOAF=SAVTSCPT; /* SET UP ORIGIN */ 00180000 L @07,AVTSAVTP(,RAVT) 0520 00181000 MVC TTHOAF(2,@09),SAVTSCPT(@07) 0520 00182000 * TTHSNF=PRF1SQID; /* SET UP SEQUENCE NO */ 00183000 LR @07,IEDQPPTR 0521 00184000 SL @07,@CF00045 0521 00185000 MVC TTHSNF(2,@09),PRF1SQID(@07) 0521 00186000 * TTHDCF=LENGTH(IEDRH)+LENGTH(IEDSNSD);/* INIT DATA COUNT @YM06851*/ 00187000 MVC TTHDCF(2,@09),@CH00569 0522 00188000 * PIURH=PRF1RH; /* SET UP RH */ 00189000 MVC PIURH(3,@09),PRF1RH(@07) 0523 00190000 * WKPIURH->TRHTYPE=ON; /* SET RESPONSE BIT ON */ 00191000 * WKPIURH->TRHSDI=ON; /* SET SENSE INCLUDED */ 00192000 L @11,WKPIURH(,RWORK) 0525 00193000 OI TRHTYPE(@11),B'10000100' 0525 00194000 * WKPIURH->TRHER=ON; /* SET ERROR RESPONSE */ 00195000 OI TRHER(@11),B'00010000' 0526 00196000 * PIURU(1:4)=RUERRSNS; /* SET UP SENSE */ 00197000 MVC PIURU(4,@09),RUERRSNS 0527 00198000 */* */ 00199000 * 0528 00200000 * IF TRHFI=ON THEN /* FORMATTED ? */ 00201000 TM TRHFI(@07),B'00001000' 0528 00202000 BNO @RF00528 0528 00203000 * DO; 0529 00204000 * IF TRHRUCAT=TRHFMD THEN /* FM DATA ? */ 00205000 TM TRHRUCAT(@07),B'01100000' 0530 00206000 BNZ @RF00530 0530 00207000 * DO; 0531 00208000 * IF WKCOMAND(1:1)=CD1NETS THEN/* NETWORK SERVICES */ 00209000 CLI WKCOMAND(RWORK),X'01' 0532 00210000 BNE @RF00532 0532 00211000 * DO; 0533 00212000 * PIURU(5:7)=WKCOMAND;/* SET UP COMMAND CODE */ 00213000 MVC PIURU+4(3,@09),WKCOMAND(RWORK) 0534 00214000 * TTHDCF=LENGTH(IEDRH)+LENGTH(IEDSNSD)+LENGTH(WKCOMAND); 00215000 MVC TTHDCF(2,@09),@CH01136 0535 00216000 * /* SET DATA COUNT FIELD */ 00217000 * END; 0536 00218000 * END; 0537 00219000 * ELSE 0538 00220000 * DO; 0538 00221000 B @RC00530 0538 00222000 @RF00530 DS 0H 0539 00223000 * PIURU(5:5)=WKCMD1; /* SET UP COMMAND CODE */ 00224000 L @09,WKPIUPTR(,RWORK) 0539 00225000 MVC PIURU+4(1,@09),WKCMD1(RWORK) 0539 00226000 * TTHDCF=LENGTH(IEDRH)+LENGTH(IEDSNSD)+LENGTH(WKCMD1);/* 0540 00227000 * SET DATA COUNT FIELD */ 00228000 MVC TTHDCF(2,@09),@CH00045 0540 00229000 * END; /* DON'T RETURN COMMAND */ 00230000 * END; 0542 00231000 @RC00530 DS 0H 0543 00232000 * IEDPF2=''B; /* CLEAR PREFIX */ 00233000 @RF00528 LR @09,IEDQPPTR 0543 00234000 SL @09,@CF00045 0543 00235000 XC IEDPF2(8,@09),IEDPF2(@09) 0543 00236000 * PRF2TNTI=ON; /* INDICATE PIU CONTAINS TNT 0544 00237000 * OFFSETS */ 00238000 OI PRF2TNTI(@09),B'10000000' 0544 00239000 * PRFPRI=PRIOUTBD; /* SET PRIORITY */ 00240000 MVI PRFPRI(IEDQPPTR),X'E4' 0545 00241000 * PRFQCBA=SAVTDFCO; /* SET QCB ADDRESS */ 00242000 L @09,AVTSAVTP(,RAVT) 0546 00243000 MVC PRFQCBA(3,IEDQPPTR),SAVTDFCO+1(@09) 0546 00244000 * IF PRFTI0>3 THEN /* EXCESS UNITS */ 00245000 L @09,PRFTI0-1(,IEDQPPTR) 0547 00246000 LA @09,0(,@09) 0547 00247000 C @09,@CF00066 0547 00248000 BNH @RF00547 0547 00249000 * DO; 0548 00250000 * RPARM=PRFTI0; /* NEXT UNIT ADDRESS */ 00251000 LR RPARM,@09 0549 00252000 * PRFTIC=PRFINTIC; /* SET INVALID TIC */ 00253000 MVC PRFTIC(4,IEDQPPTR),@CB01341 0550 00254000 * CALL FREEBUF; /* FREE THE EXCESS UNITS */ 00255000 L @15,OPCFREBF(,ROPCAVT) 0551 00256000 BALR @14,@15 0551 00257000 * END; 0552 00258000 * OPCAQREQ=TPOST; /* TPOST ERROR RESPONSE */ 00259000 @RF00547 MVI OPCAQREQ(ROPCAVT),X'0C' 0553 00260000 * OPCAQFST=RPRF; /* ERROR RESPONSE BUFFER */ 00261000 STCM RPRF,7,OPCAQFST(ROPCAVT) 0554 00262000 * OPCAQRQ2=ENDLIST; /* END OF LIST CONSTANT */ 00263000 MVI OPCAQRQ2(ROPCAVT),X'80' 0555 00264000 * OPCAQSEC=RPRF; /* ERROR RESPONSE BUFFER */ 00265000 STCM RPRF,7,OPCAQSEC(ROPCAVT) 0556 00266000 * RPARM=ADDR(OPCAQCTL); /* SET UP PARM LIST */ 00267000 LA RPARM,OPCAQCTL(,ROPCAVT) 0557 00268000 * SVC(102); /* TPOST RESPONSE */ 00269000 SVC 102 0558 00270000 */* */ 00271000 * 0559 00272000 * RE=WKSAVE2; /* RESTORE REG 14 */ 00273000 L RE,WKSAVE2(,RWORK) 0559 00274000 * END BLDRESP; /* RETURN TO CALLER */ 00275000 @EL00003 DS 0H 0560 00276000 @EF00003 DS 0H 0560 00277000 @ER00003 BR @14 0560 00278000 *CNVTERR: 0561 00279000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0561 00280000 * 0561 00281000 CNVTERR DS 0H 0562 00282000 * /*****************************************************************/ 00283000 * /* */ 00284000 * /* THIS ROUTINE PROCESSES USS TO FSS CONVERT ERRORS. A RESPONSE */ 00285000 * /* IS SENT IF REQUIRED. ALSO A N.S. PROC ERROR IS BUILT AND SENT */ 00286000 * /* TO THE SECONDARY LU. */ 00287000 * /* */ 00288000 * /*****************************************************************/ 00289000 * 0562 00290000 * WKSAVE1=RE; /* SAVE REG 14 */ 00291000 ST RE,WKSAVE1(,RWORK) 0562 00292000 */* */ 00293000 * 0563 00294000 * IF TRHDR1=ON| /* RESPONSE REQUIRED */ 00295000 * TRHDR2=ON THEN /* FOR THIS REQUEST */ 00296000 LR @09,IEDQPPTR 0563 00297000 AL @09,@CF01765 0563 00298000 TM TRHDR1-1(@09),B'10100000' 0563 00299000 BZ @RF00563 0563 00300000 * DO; 0564 00301000 * CALL BLDRESP; /* SEND A RESPONSE */ 00302000 BAL @14,BLDRESP 0565 00303000 * RPARM=2; /* GET 2 UNITS */ 00304000 LA RPARM,2 0566 00305000 * CALL ALLOCBUF; /* GET A BUFFER */ 00306000 L @15,OPCGETBF(,ROPCAVT) 0567 00307000 BALR @14,@15 0567 00308000 * OPCCOPCE=RPARM; /* NEW BUFFER IS CURRENT */ 00309000 ST RPARM,OPCCOPCE(,ROPCAVT) 0568 00310000 * ROPCE=RPARM; /* OPCE ADDRESS */ 00311000 LR ROPCE,RPARM 0569 00312000 * OCACTREQ=ON; /* INDICATOR FOR IGC0210D */ 00313000 OI OCACTREQ(ROPCE),B'00001000' 0570 00314000 * OCWTG=THISMOD; /* RETURN TO THIS MOD */ 00315000 MVC OCWTG(2,ROPCE),@CC01725 0571 00316000 * END; 0572 00317000 * 0572 00318000 */* */ 00319000 * 0573 00320000 * ELSE /* RESPONSE NOT REQUIRED */ 00321000 * DO; 0573 00322000 B @RC00563 0573 00323000 @RF00563 DS 0H 0574 00324000 * IF PRFTI0>3 THEN 0574 00325000 L @09,PRFTI0-1(,IEDQPPTR) 0574 00326000 LA @09,0(,@09) 0574 00327000 C @09,@CF00066 0574 00328000 BNH @RF00574 0574 00329000 * DO; /* ANY EXCESS UNITS? @YM09092*/ 00330000 * RPARM=PRFTI0; /* POINT TO EXCESS UNITS @YM09092*/ 00331000 LR RPARM,@09 0576 00332000 * PRFTIC=PRFINTIC; /* INDICATE END OF UNIT @YM09092*/ 00333000 MVC PRFTIC(4,IEDQPPTR),@CB01341 0577 00334000 * CALL FREEBUF; /* GO FREE EXCESS UNITS @YM09092*/ 00335000 L @15,OPCFREBF(,ROPCAVT) 0578 00336000 BALR @14,@15 0578 00337000 * END; /* NO MORE EXCESS UNITS @YM09092*/ 00338000 * RPARM=1; /* GET 1 UNIT */ 00339000 @RF00574 LA RPARM,1 0580 00340000 * CALL ALLOCBUF; /* GET A BUFFER */ 00341000 L @15,OPCGETBF(,ROPCAVT) 0581 00342000 BALR @14,@15 0581 00343000 * ROPCE=RPRF; /* OPCE ADDRESS */ 00344000 LR ROPCE,RPRF 0582 00345000 * IEDQOPCE=''B; /* CLEAR OPCE */ 00346000 XC IEDQOPCE(56,ROPCE),IEDQOPCE(ROPCE) 0583 00347000 * IEDQOPCN=''B; /* CLEAR NEGATIVE PREFIX */ 00348000 LR @09,ROPCE 0584 00349000 AL @09,@CF01764 0584 00350000 XC IEDQOPCN(8,@09),IEDQOPCN(@09) 0584 00351000 * OCUNIT=RPARM; /* ATTACH UNIT */ 00352000 ST RPARM,OCUNIT(,ROPCE) 0585 00353000 * OCACTREQ=ON; /* INDICATOR FOR IGC0210D */ 00354000 OI OCACTREQ(ROPCE),B'00001000' 0586 00355000 * OCWTG=THISMOD; /* RETURN TO THIS MODULE */ 00356000 MVC OCWTG(2,ROPCE),@CC01725 0587 00357000 * END; 0588 00358000 * 0588 00359000 */* */ 00360000 * 0589 00361000 * PRURHTH=NSPRHTH; /* SET UP RH TH */ 00362000 @RC00563 L @09,OCUNIT(,ROPCE) 0589 00363000 LR @07,@09 0589 00364000 SL @07,@CF00045 0589 00365000 MVC PRURHTH(4,@07),@CB01715 0589 00366000 * PRUTTCIN=WKSLUTNT; /* DESTINATION */ 00367000 LH @11,WKSLUTNT(,RWORK) 0590 00368000 N @11,@CF01771 0590 00369000 STH @11,PRUTTCIN(,@09) 0590 00370000 * PRUDATCT=XNSPLEN; /* DATA LENGTH */ 00371000 MVC PRUDATCT(2,@09),@CH01685 0591 00372000 * PRUTHUSS=ON; /* CONVERT INDICATOR */ 00373000 OI PRUTHUSS(@07),B'00000010' 0592 00374000 * XNSPCODE=CD1XNSP; /* SET COMMAND CODE */ 00375000 AL @09,@CF00235 0593 00376000 MVC XNSPCODE(3,@09),@CB00744 0593 00377000 * XNSPRSN=XNSPCVT; /* SET CONVERT ERROR REASON */ 00378000 MVI XNSPRSN(@09),X'21' 0594 00379000 * XNSPPTYP=0; /* ZERO NAME FIELD */ 00380000 MVI XNSPPTYP(@09),X'00' 0595 00381000 * XNSPSTYP=0; /* ZERO NAME FIELD */ 00382000 MVI XNSPSTYP(@09),X'00' 0596 00383000 * XNSPSENS=0; /* ZERO SENSE FIELD */ 00384000 SLR @07,@07 0597 00385000 STCM @07,15,XNSPSENS(@09) 0597 00386000 * XNSPSKEY=0; /* ZERO SESSION KEY */ 00387000 MVI XNSPSKEY(@09),X'00' 0598 00388000 */* */ 00389000 * 0599 00390000 * OPCMODID=RUDISP; /* PASS TO IGC0210D */ 00391000 MVC OPCMODID(2,ROPCAVT),@CC01723 0599 00392000 * RE=WKSAVE1; /* RESTORE REG 14 @YM06456*/ 00393000 L RE,WKSAVE1(,RWORK) 0600 00394000 * END CNVTERR; /* RETURN TO CALLER */ 00395000 @EL00004 DS 0H 0601 00396000 @EF00004 DS 0H 0601 00397000 @ER00004 BR @14 0601 00398000 *EXCPRQ: 0602 00399000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0602 00400000 * 0602 00401000 EXCPRQ DS 0H 0603 00402000 * /*****************************************************************/ 00403000 * /* */ 00404000 * /* THIS ROUTINE PROCESS EXCEPTION REQUESTS. FOR AN EXCEPTION */ 00405000 * /* REQUEST A RESPONSE IS SENT IF REQUIRED. OTHERWISE THE BUFFER */ 00406000 * /* IS FREED. */ 00407000 * /* */ 00408000 * /*****************************************************************/ 00409000 * 0603 00410000 * WKSAVE1=RE; /* SAVE REG 14 */ 00411000 ST RE,WKSAVE1(,RWORK) 0603 00412000 */* */ 00413000 * 0604 00414000 * IF TRHDR1=ON| /* RESPONSE REQUIRED ... */ 00415000 * TRHDR2=ON THEN /* FOR EXCEPTION REQUEST */ 00416000 LR @09,IEDQPPTR 0604 00417000 SL @09,@CF00045 0604 00418000 TM TRHDR1(@09),B'10100000' 0604 00419000 BZ @RF00604 0604 00420000 * DO; 0605 00421000 * PRFDEST=PRFSRCE; /* SET DESTINATION */ 00422000 LH @07,PRFSRCE(,IEDQPPTR) 0606 00423000 STH @07,PRFDEST(,IEDQPPTR) 0606 00424000 * PRFSRCE=SAVTSCPT; /* SET SOURCE */ 00425000 L @07,AVTSAVTP(,RAVT) 0607 00426000 LH @11,SAVTSCPT(,@07) 0607 00427000 N @11,@CF01771 0607 00428000 STH @11,PRFSRCE(,IEDQPPTR) 0607 00429000 * TRHTYPE=ON; /* SET RESPONSE BIT */ 00430000 OI TRHTYPE(@09),B'10000000' 0608 00431000 * TRHER=ON; /* SET EXCEPTION IN RH */ 00432000 OI TRHER(@09),B'00010000' 0609 00433000 */* */ 00434000 * 0610 00435000 * PRFLCB=0; /* CLEAR LCB FIELD */ 00436000 SLR @09,@09 0610 00437000 STCM @09,7,PRFLCB(IEDQPPTR) 0610 00438000 * PRFPRI=PRIOUTBD; /* SET PRIORITY */ 00439000 MVI PRFPRI(IEDQPPTR),X'E4' 0611 00440000 * PRFQCBA=SAVTXFMO; /* SET QCB ADDRESS */ 00441000 MVC PRFQCBA(3,IEDQPPTR),SAVTXFMO+1(@07) 0612 00442000 * OPCAQREQ=TPOST; /* TPOST ERROR RESPONSE */ 00443000 MVI OPCAQREQ(ROPCAVT),X'0C' 0613 00444000 * OPCAQFST=RPRF; /* ERROR RESPONSE BUFFER */ 00445000 STCM RPRF,7,OPCAQFST(ROPCAVT) 0614 00446000 * OPCAQRQ2=ENDLIST; /* END OF LIST CONSTANT */ 00447000 MVI OPCAQRQ2(ROPCAVT),X'80' 0615 00448000 * OPCAQSEC=RPRF; /* ERROR RESPONSE BUFFER */ 00449000 STCM RPRF,7,OPCAQSEC(ROPCAVT) 0616 00450000 * RPARM=ADDR(OPCAQCTL); /* SET UP PARM LIST */ 00451000 LA RPARM,OPCAQCTL(,ROPCAVT) 0617 00452000 * SVC(102); /* TPOST RESPONSE */ 00453000 SVC 102 0618 00454000 * END; 0619 00455000 * ELSE 0620 00456000 * DO; /* NO RESPONSE REQUIRED */ 00457000 B @RC00604 0620 00458000 @RF00604 DS 0H 0621 00459000 * RPARM=RPRF; /* SET UP TO FREE BUFFER */ 00460000 LR RPARM,RPRF 0621 00461000 * CALL FREEBUF; /* FREE THE BUFFER */ 00462000 L @15,OPCFREBF(,ROPCAVT) 0622 00463000 BALR @14,@15 0622 00464000 * END; 0623 00465000 * 0623 00466000 */* */ 00467000 * 0624 00468000 * RZERO=0; /* CLEAR REG ZERO */ 00469000 @RC00604 SLR RZERO,RZERO 0624 00470000 * OPCMODID=DSPOPCTL; /* RETURN TO IGC0010D */ 00471000 MVC OPCMODID(2,ROPCAVT),@CC01721 0625 00472000 * RE=WKSAVE1; /* RESTORE REG 14 */ 00473000 L RE,WKSAVE1(,RWORK) 0626 00474000 * END EXCPRQ; /* RETURN TO CALLER */ 00475000 @EL00005 DS 0H 0627 00476000 @EF00005 DS 0H 0627 00477000 @ER00005 BR @14 0627 00478000 * END IGCAD10D 0628 00479000 * 0628 00480000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00481000 */*%INCLUDE SYSLIB (TAVTD ) */ 00482000 */*%INCLUDE SYSLIB (TCD1D ) */ 00483000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00484000 */*%INCLUDE SYSLIB (TOPCED ) */ 00485000 */*%INCLUDE SYSLIB (TPIUD ) */ 00486000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00487000 */*%INCLUDE SYSLIB (TPRFD ) */ 00488000 */*%INCLUDE SYSLIB (TPRUD ) */ 00489000 */*%INCLUDE SYSLIB (TRHD ) */ 00490000 */*%INCLUDE SYSLIB (TSNSD ) */ 00491000 */*%INCLUDE SYSLIB (TTHD ) */ 00492000 */*%INCLUDE SYSLIB (TTRMD ) */ 00493000 */*%INCLUDE SYSLIB (TXNSPD ) */ 00494000 * 0628 00495000 * ; 0628 00496000 @DATA DS 0H 00497000 @CH00569 DC H'7' 00498000 @CH01136 DC H'10' 00499000 @CH01685 DC H'11' 00500000 DS 0F 00501000 DS 0F 00502000 @CF00066 DC F'3' 00503000 @CF00045 DC F'8' 00504000 @CH00045 EQU @CF00045+2 00505000 @CF00235 DC F'12' 00506000 @CF01764 DC F'-8' 00507000 @CF01765 DC F'-7' 00508000 @CF01766 DC F'-5' 00509000 @CF01771 DC XL4'0000FFFF' 00510000 DS 0D 00511000 @CC01721 DC C'00' 00512000 @CC01723 DC C'02' 00513000 @CC01725 DC C'AD' 00514000 @CB01341 DC X'08000002' 00515000 @CB01715 DC X'0B80001C' 00516000 @CB00744 DC X'010604' 00517000 RUERRSNS DS CL4 00518000 ORG RUERRSNS 00519000 @NM00169 DC X'10' 00520000 @NM00170 DC X'01' 00521000 @NM00171 DC AL2(0) 00522000 ORG RUERRSNS+4 00523000 PATCH DC 100X'00' 00524000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00525000 @01 EQU 01 00526000 @02 EQU 02 00527000 @03 EQU 03 00528000 @04 EQU 04 00529000 @05 EQU 05 00530000 @06 EQU 06 00531000 @07 EQU 07 00532000 @08 EQU 08 00533000 @09 EQU 09 00534000 @10 EQU 10 00535000 @11 EQU 11 00536000 @12 EQU 12 00537000 @13 EQU 13 00538000 @14 EQU 14 00539000 @15 EQU 15 00540000 IEDQAPTR EQU @04 00541000 ROPCAVT EQU @02 00542000 ROPCE EQU @03 00543000 IEDQPPTR EQU @06 00544000 RTRM EQU @08 00545000 RAVT EQU @04 00546000 RZERO EQU @00 00547000 RPARM EQU @01 00548000 RWORK EQU @05 00549000 RPRF EQU @06 00550000 IEDQTPTR EQU @08 00551000 RBASE EQU @12 00552000 RSAVE EQU @13 00553000 RE EQU @14 00554000 RF EQU @15 00555000 IEDQAVTD EQU 0 00556000 AVTSAVEX EQU IEDQAVTD+288 00557000 @NM00003 EQU IEDQAVTD+388 00558000 AVTCKFLG EQU @NM00003 00559000 AVTBASE EQU IEDQAVTD+412 00560000 AVTPKF EQU AVTBASE 00561000 AVTRNMPT EQU IEDQAVTD+424 00562000 AVTHG02 EQU IEDQAVTD+528 00563000 AVTDISP EQU IEDQAVTD+552 00564000 AVTHD EQU IEDQAVTD+556 00565000 AVTSCOPT EQU AVTHD 00566000 AVTSAVTP EQU IEDQAVTD+612 00567000 AVTSAVTF EQU AVTSAVTP 00568000 AVTCKPEL EQU IEDQAVTD+652 00569000 AVTCKRMV EQU AVTCKPEL 00570000 AVTCKELF EQU IEDQAVTD+680 00571000 AVTCKBYT EQU IEDQAVTD+691 00572000 AVTHG01 EQU IEDQAVTD+692 00573000 AVTCKLNK EQU IEDQAVTD+696 00574000 AVTCRELE EQU IEDQAVTD+708 00575000 AVTCCELE EQU AVTCRELE 00576000 AVTCLRHI EQU IEDQAVTD+716 00577000 AVTADBUF EQU IEDQAVTD+720 00578000 AVTSYSER EQU IEDQAVTD+728 00579000 AVTCKPQB EQU IEDQAVTD+804 00580000 AVTCKPTB EQU AVTCKPQB 00581000 AVTCKPEC EQU AVTCKPQB+4 00582000 AVTCKPCC EQU AVTCKPEC 00583000 AVTOPCQB EQU IEDQAVTD+816 00584000 AVTOPCOB EQU AVTOPCQB 00585000 AVTOPCEC EQU AVTOPCQB+4 00586000 AVTOPCCC EQU AVTOPCEC 00587000 AVTOLTQB EQU IEDQAVTD+828 00588000 AVTCWFL1 EQU IEDQAVTD+924 00589000 AVTCWFL2 EQU IEDQAVTD+925 00590000 AVTSUBT EQU IEDQAVTD+948 00591000 AVTIOTR EQU IEDQAVTD+949 00592000 AVTBIT1 EQU IEDQAVTD+1050 00593000 AVTBIT2 EQU IEDQAVTD+1051 00594000 AVTBIT3 EQU IEDQAVTD+1052 00595000 AVTBIT4 EQU IEDQAVTD+1136 00596000 @NM00083 EQU IEDQAVTD+1232 00597000 IEDNSVTD EQU 0 00598000 SAVTDIAG EQU IEDNSVTD 00599000 SAVTDIAF EQU SAVTDIAG 00600000 SAVTLUSQ EQU IEDNSVTD+88 00601000 SAVTXFMO EQU IEDNSVTD+120 00602000 SAVTDFCO EQU IEDNSVTD+200 00603000 SAVTTCPU EQU IEDNSVTD+238 00604000 SAVTSCPT EQU SAVTTCPU 00605000 SAVTZELM EQU IEDNSVTD+270 00606000 SAVTRDRV EQU IEDNSVTD+284 00607000 SAVTCKQB EQU IEDNSVTD+300 00608000 SAVTCKTB EQU SAVTCKQB 00609000 SAVTCKEC EQU SAVTCKQB+4 00610000 SAVTCKCC EQU SAVTCKEC 00611000 IEDQOPCD EQU 0 00612000 OPCAVTPT EQU IEDQOPCD+8 00613000 OPCCOPCE EQU IEDQOPCD+12 00614000 OPCPSTWT EQU IEDQOPCD+48 00615000 OPCSAVE EQU IEDQOPCD+56 00616000 OPCWORK EQU IEDQOPCD+140 00617000 OPCAQCTL EQU IEDQOPCD+180 00618000 OPCXCTL EQU IEDQOPCD+204 00619000 OPCLDNME EQU IEDQOPCD+212 00620000 OPCMODID EQU OPCLDNME+3 00621000 OPCGETBF EQU IEDQOPCD+276 00622000 OPCFREBF EQU IEDQOPCD+280 00623000 OPCSPEC EQU IEDQOPCD+300 00624000 OPCPWCOB EQU IEDQOPCD+368 00625000 OPCPWQCB EQU OPCPWCOB 00626000 OPCPWECB EQU OPCPWCOB+4 00627000 IEDQOPCE EQU 0 00628000 OCELEM EQU IEDQOPCE+4 00629000 OCUNIT EQU IEDQOPCE+8 00630000 OCRUDEST EQU OCUNIT 00631000 OCCKPKEY EQU OCRUDEST 00632000 OCSCAN EQU OCCKPKEY 00633000 OCOPTCDE EQU IEDQOPCE+12 00634000 OCSWITCH EQU IEDQOPCE+13 00635000 OCFLAG EQU IEDQOPCE+14 00636000 @NM00120 EQU IEDQOPCE+16 00637000 OCDEST EQU @NM00120 00638000 OCREQVAL EQU OCDEST+1 00639000 OCLINENO EQU IEDQOPCE+22 00640000 OCTIOT EQU OCLINENO 00641000 OCTRUNIT EQU IEDQOPCE+24 00642000 OCRSID EQU OCTRUNIT 00643000 OCALSTAT EQU OCRSID 00644000 OCACTREQ EQU OCALSTAT 00645000 OCPARM EQU IEDQOPCE+28 00646000 OCWTG EQU IEDQOPCE+30 00647000 OCBACKUP EQU IEDQOPCE+32 00648000 OCMODNME EQU IEDQOPCE+40 00649000 OCIPLWA EQU OCMODNME 00650000 OCCKDATA EQU IEDQOPCE+48 00651000 OCRSTGTM EQU OCCKDATA 00652000 IEDQOPCN EQU 0 00653000 OCLDNME EQU IEDQOPCN 00654000 OCLINTTE EQU OCLDNME 00655000 OCREQFLG EQU OCLINTTE+2 00656000 OCPREFLG EQU OCLINTTE+3 00657000 IEDPIU EQU 0 00658000 PIUTH EQU IEDPIU 00659000 PIURH EQU IEDPIU+10 00660000 PIURU EQU IEDPIU+13 00661000 IEDQPRF EQU 0 00662000 PRFRCB EQU IEDQPRF 00663000 PRFKEY EQU PRFRCB 00664000 PRFQCBA EQU PRFRCB+1 00665000 PRFPRI EQU PRFRCB+4 00666000 PRFLINK EQU PRFRCB+5 00667000 PRFTIC EQU IEDQPRF+8 00668000 PRFTICC EQU PRFTIC 00669000 PRFTI0 EQU PRFTIC+1 00670000 PRFNBUNT EQU IEDQPRF+12 00671000 PRFSUNIT EQU PRFNBUNT 00672000 PRFPLQCB EQU PRFSUNIT 00673000 PRFPIUO EQU PRFPLQCB 00674000 PRFLCB EQU IEDQPRF+13 00675000 @NM00137 EQU IEDQPRF+16 00676000 PRFSVFFO EQU @NM00137 00677000 PRFSRCE EQU PRFSVFFO 00678000 PRFSTAT1 EQU IEDQPRF+20 00679000 PRFEOFN EQU PRFSTAT1 00680000 PRFCORE EQU IEDQPRF+21 00681000 PRFXTRA EQU PRFCORE 00682000 PRFSCAN EQU IEDQPRF+24 00683000 PRFISIZE EQU PRFSCAN+1 00684000 PRFTQBCK EQU IEDQPRF+26 00685000 PRFNTXT EQU PRFTQBCK 00686000 PRFEOBOF EQU PRFNTXT 00687000 PRFCHDR EQU IEDQPRF+32 00688000 PRFHQBCK EQU IEDQPRF+35 00689000 PRFDEST EQU IEDQPRF+40 00690000 IEDPF1 EQU 0 00691000 PRF1RH EQU IEDPF1 00692000 PRF1FLG1 EQU IEDPF1+3 00693000 PRF1EXPI EQU PRF1FLG1 00694000 PRF1WD2 EQU IEDPF1+4 00695000 PRF1SEQP EQU PRF1WD2 00696000 PRF1SQID EQU PRF1SEQP 00697000 PRF1TAG1 EQU PRF1SQID 00698000 IEDPF2 EQU 0 00699000 PRF2FLG2 EQU IEDPF2 00700000 PRF2TNTI EQU PRF2FLG2 00701000 PRF2WD2 EQU IEDPF2+4 00702000 IEDPRUQD EQU 0 00703000 PRUTTCIN EQU IEDPRUQD 00704000 PRUDATCT EQU IEDPRUQD+2 00705000 PRUTIC EQU IEDPRUQD+8 00706000 PRUDATA EQU IEDPRUQD+12 00707000 IEDPRUQP EQU 0 00708000 IEDPRUND EQU 0 00709000 PRURHTH EQU IEDPRUND 00710000 PRURH EQU PRURHTH 00711000 PRURHFG0 EQU PRURH 00712000 PRURHFG1 EQU PRURH+1 00713000 PRURHFG2 EQU PRURH+2 00714000 PRUTH EQU PRURHTH+3 00715000 PRUFIDN EQU PRUTH 00716000 PRUTHUSS EQU PRUFIDN 00717000 IEDRH EQU 0 00718000 TRHBYTE0 EQU IEDRH 00719000 TRHTYPE EQU TRHBYTE0 00720000 TRHRUCAT EQU TRHBYTE0 00721000 TRHFI EQU TRHBYTE0 00722000 TRHSDI EQU TRHBYTE0 00723000 TRHBYTE1 EQU IEDRH+1 00724000 TRHDR1 EQU TRHBYTE1 00725000 TRHDR2 EQU TRHBYTE1 00726000 TRHER EQU TRHBYTE1 00727000 TRHBYTE2 EQU IEDRH+2 00728000 IEDSNSD EQU 0 00729000 SNSSYSTM EQU IEDSNSD 00730000 SNSUSER EQU IEDSNSD+2 00731000 SNSPTR EQU 0 00732000 IEDTH EQU 0 00733000 TTHBYTE0 EQU IEDTH 00734000 TTHEFI EQU TTHBYTE0 00735000 TTHBYTE1 EQU IEDTH+1 00736000 TTHDAF EQU IEDTH+2 00737000 TTHOAF EQU IEDTH+4 00738000 TTHSNF EQU IEDTH+6 00739000 TTHTAG EQU TTHSNF 00740000 TTHTAG1 EQU TTHTAG 00741000 TTHDCF EQU IEDTH+8 00742000 IEDTRM EQU 0 00743000 IEDNTRM EQU IEDTRM 00744000 TRMBYTE4 EQU IEDNTRM 00745000 TRMBYTE3 EQU IEDNTRM+1 00746000 TRMBYTE2 EQU IEDNTRM+2 00747000 TRMINPG EQU TRMBYTE2 00748000 TRMBYTE1 EQU IEDNTRM+3 00749000 TRMSCPRQ EQU TRMBYTE1 00750000 TRMBYTE0 EQU IEDNTRM+6 00751000 TRMSIBPT EQU IEDNTRM+7 00752000 IEDQTRM EQU IEDTRM+14 00753000 TRMSTATE EQU IEDQTRM 00754000 TRMLOG EQU TRMSTATE 00755000 TRMINSEQ EQU IEDQTRM+4 00756000 TLISTCNT EQU TRMINSEQ 00757000 TRMOUTSQ EQU IEDQTRM+6 00758000 TLISTEN EQU TRMOUTSQ 00759000 TRMDSORG EQU TLISTEN 00760000 TRMALTD EQU IEDQTRM+8 00761000 TRMDEVFL EQU IEDQTRM+10 00762000 TRMSTAT EQU IEDQTRM+12 00763000 IEDXNSPD EQU 0 00764000 XNSPCMD EQU IEDXNSPD 00765000 XNSPCODE EQU XNSPCMD 00766000 XNSPRSN EQU XNSPCMD+3 00767000 XNSPPLUN EQU XNSPCMD+4 00768000 XNSPPTYP EQU XNSPPLUN 00769000 XNSPSLUN EQU XNSPCMD+5 00770000 XNSPSTYP EQU XNSPSLUN 00771000 XNSPSENS EQU XNSPCMD+6 00772000 XNSPSKEY EQU XNSPCMD+10 00773000 XNSPPTR EQU 0 00774000 ALLOCBUF EQU 0 00775000 FREEBUF EQU 0 00776000 COMMAND EQU 0 00777000 WKAREA EQU 0 00778000 WKSAVE1 EQU WKAREA 00779000 WKSAVE2 EQU WKAREA+4 00780000 WKCMDPTR EQU WKAREA+8 00781000 WKPIUPTR EQU WKAREA+12 00782000 WKPIURH EQU WKAREA+16 00783000 WKSLUTNT EQU WKAREA+20 00784000 WKCOMAND EQU WKAREA+22 00785000 WKCMD1 EQU WKCOMAND 00786000 IEDQNPTR EQU 0 00787000 IEDQTNT EQU 0 00788000 POSTWAIT EQU 0 00789000 OPCAQWD EQU OPCAQCTL 00790000 OPCAQWD1 EQU OPCAQWD 00791000 OPCAQREQ EQU OPCAQWD1 00792000 OPCAQFST EQU OPCAQWD1+1 00793000 OPCAQWD2 EQU OPCAQWD+4 00794000 OPCAQRQ2 EQU OPCAQWD2 00795000 OPCAQSEC EQU OPCAQWD2+1 00796000 OPCAQWD3 EQU OPCAQWD+8 00797000 OCCKPKY1 EQU OCCKPKEY 00798000 OCCKPTYP EQU OCCKPKY1 00799000 OCICACTN EQU OCMODNME 00800000 OCICDADR EQU OCICACTN 00801000 OCICSW EQU OCICDADR+3 00802000 TRMPRE1 EQU TRMBYTE4 00803000 TRMNCP1 EQU TRMBYTE4 00804000 TRMPRE EQU TRMBYTE3 00805000 TRMNCP EQU TRMBYTE3 00806000 TRMPU EQU TRMBYTE3 00807000 TRMLU EQU TRMBYTE3 00808000 TRMLINK EQU TRMBYTE3 00809000 OCCIB EQU OCREQVAL 00810000 PRFSHDR EQU IEDQPRF+42 00811000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00812000 @NM00167 EQU TRMLINK 00813000 TRMLSTAT EQU TRMLINK 00814000 TRMLINT EQU TRMLINK 00815000 TRMEPMOD EQU TRMLINK 00816000 TRMLULOG EQU TRMLU 00817000 TRMINERR EQU TRMLU 00818000 TRMLUREQ EQU TRMLU 00819000 TRMSESRQ EQU TRMLU 00820000 TRMTDIFF EQU TRMLU 00821000 TRMLUTM EQU TRMLU 00822000 TRMLUIT EQU TRMLU 00823000 TRMAUTO EQU TRMLU 00824000 TRMPCONT EQU TRMPU 00825000 @NM00166 EQU TRMPU 00826000 TRMNCONT EQU TRMNCP 00827000 TRMQUCKN EQU TRMNCP 00828000 TRMSLOWN EQU TRMNCP 00829000 TRMSYGEN EQU TRMNCP 00830000 TRMNCPCL EQU TRMNCP 00831000 TRMIPLDM EQU TRMNCP 00832000 TRMINOUT EQU TRMPRE 00833000 TRMRDOUT EQU TRMPRE 00834000 TRMNLOUT EQU TRMPRE 00835000 TRMWROUT EQU TRMPRE 00836000 TRMASNXI EQU TRMPRE 00837000 TRMSTMM EQU TRMPRE 00838000 TRMCMODE EQU TRMPRE 00839000 TRMSTPND EQU TRMPRE 00840000 @NM00165 EQU TRMNCP1 00841000 TRMINOP EQU TRMNCP1 00842000 TRMLYNCH EQU TRMPRE1 00843000 TRMSPOUT EQU TRMPRE1 00844000 TRMERLCK EQU TRMPRE1 00845000 TRMQNPL EQU TRMPRE1 00846000 TRMSPACT EQU TRMPRE1 00847000 TRMOCNI EQU TRMPRE1 00848000 TRMSESSN EQU TRMPRE1 00849000 TRMCONT EQU TRMPRE1 00850000 OCICINAC EQU OCICSW 00851000 @NM00126 EQU OCICSW 00852000 OCICATST EQU OCICDADR+1 00853000 OCICTYPE EQU OCICDADR 00854000 @NM00125 EQU OCCKPKY1 00855000 OCCKPENV EQU OCCKPKY1 00856000 OCCKPRST EQU OCCKPTYP 00857000 OCCKPNCP EQU OCCKPTYP 00858000 OCCKPINC EQU OCCKPTYP 00859000 OPCAQLST EQU OPCAQWD3+1 00860000 OPCAQRQ3 EQU OPCAQWD3 00861000 @NM00168 EQU WKCOMAND+1 00862000 XNSPSNME EQU XNSPCMD+11 00863000 XNSPREQ EQU XNSPCODE+2 00864000 XNSPSESS EQU XNSPCODE+1 00865000 XNSPNETS EQU XNSPCODE 00866000 TRMOPT EQU IEDTRM+34 00867000 TRMOPTBL EQU IEDQTRM+18 00868000 TRMOPNO EQU IEDQTRM+17 00869000 TRMCHCIN EQU IEDQTRM+16 00870000 TRMSENSE EQU TRMSTAT+3 00871000 TRMTEMPR EQU TRMSTAT+2 00872000 TRMSIO EQU TRMSTAT 00873000 @NM00164 EQU TRMDEVFL+1 00874000 TRMTPIN EQU TRMDEVFL+1 00875000 TRMNCPI EQU TRMDEVFL+1 00876000 TRMRNTRM EQU TRMDEVFL+1 00877000 @NM00163 EQU TRMDEVFL+1 00878000 TRMLMD EQU TRMDEVFL+1 00879000 TRMCONC EQU TRMDEVFL+1 00880000 TRMTSOB EQU TRMDEVFL 00881000 TRMBFDY EQU TRMDEVFL 00882000 TRMTBLK EQU TRMDEVFL 00883000 TRMSBLK EQU TRMDEVFL 00884000 TRMBLKS EQU TRMDEVFL 00885000 TRMADDC EQU TRMDEVFL 00886000 TRMDDIG EQU TRMDEVFL 00887000 TRMBUFS EQU TRMDEVFL 00888000 TRMPRILK EQU TRMALTD 00889000 TRMLGB EQU TRMDSORG 00890000 TRMUTERM EQU TLISTCNT 00891000 TRMDESTQ EQU IEDQTRM+1 00892000 TRMSCNYN EQU TRMSTATE 00893000 TRMOPTFN EQU TRMSTATE 00894000 TRMHELDN EQU TRMSTATE 00895000 TRMACPTN EQU TRMSTATE 00896000 TRMPREF EQU TRMSTATE 00897000 TRMPROC EQU TRMLOG 00898000 TRMLIST EQU TRMLOG 00899000 TRMLINE EQU TRMSTATE 00900000 TRMSUBST EQU IEDNTRM+12 00901000 TRMTYPE EQU IEDNTRM+11 00902000 TRMRLMCT EQU IEDNTRM+10 00903000 TRMCOHTG EQU TRMSIBPT+1 00904000 TRMGPCNT EQU TRMSIBPT 00905000 TRMBUFRD EQU TRMBYTE0 00906000 TRMSNA EQU TRMBYTE0 00907000 TRMGP EQU TRMBYTE0 00908000 TRMDIAL EQU TRMBYTE0 00909000 @NM00162 EQU TRMBYTE0 00910000 TRMOUTPT EQU TRMBYTE0 00911000 TRMINPUT EQU TRMBYTE0 00912000 TRMUDEF EQU TRMBYTE0 00913000 TRMCOHRT EQU IEDNTRM+4 00914000 TRMSTOTE EQU TRMBYTE1 00915000 TRMCKPRN EQU TRMBYTE1 00916000 TRMTSATN EQU TRMBYTE1 00917000 TRMTRACE EQU TRMBYTE1 00918000 TRMSWBCK EQU TRMBYTE1 00919000 TRMAUTOC EQU TRMBYTE1 00920000 TRMINPTP EQU TRMBYTE1 00921000 TRMWTNEG EQU TRMSCPRQ 00922000 TRMWRBRK EQU TRMBYTE2 00923000 TRMNOSND EQU TRMBYTE2 00924000 TRMPREP EQU TRMBYTE2 00925000 TRMGPACT EQU TRMBYTE2 00926000 TRMANDL EQU TRMBYTE2 00927000 TRMCLOSN EQU TRMINPG 00928000 TRMREMB EQU TRMBYTE2 00929000 TRMRSACT EQU TRMBYTE2 00930000 TTHTAG2 EQU TTHTAG+1 00931000 @NM00161 EQU TTHTAG1 00932000 TTHTAGS EQU TTHTAG1 00933000 @NM00160 EQU TTHBYTE0 00934000 TTHEBIU EQU TTHBYTE0 00935000 TTHBBIU EQU TTHBYTE0 00936000 TTHFTYPE EQU TTHBYTE0 00937000 SNSUSR2 EQU SNSUSER+1 00938000 SNSUSR1 EQU SNSUSER 00939000 SNSMIN EQU SNSSYSTM+1 00940000 SNSMAJ EQU SNSSYSTM 00941000 @NM00159 EQU TRHBYTE2 00942000 @NM00158 EQU TRHBYTE2 00943000 @NM00157 EQU TRHBYTE2 00944000 TRHCSI EQU TRHBYTE2 00945000 @NM00156 EQU TRHBYTE2 00946000 TRHCDI EQU TRHBYTE2 00947000 TRHEB EQU TRHBYTE2 00948000 TRHBB EQU TRHBYTE2 00949000 TRHPI EQU TRHBYTE1 00950000 @NM00155 EQU TRHBYTE1 00951000 @NM00154 EQU TRHBYTE1 00952000 @NM00153 EQU TRHBYTE1 00953000 @NM00152 EQU TRHBYTE1 00954000 TRHEC EQU TRHBYTE0 00955000 TRHBC EQU TRHBYTE0 00956000 @NM00151 EQU TRHBYTE0 00957000 @NM00150 EQU IEDPRUND+4 00958000 PRUTHEFI EQU PRUFIDN 00959000 PRUTHEIU EQU PRUFIDN 00960000 PRUTHBIU EQU PRUFIDN 00961000 PRUTHTYE EQU PRUFIDN 00962000 @NM00149 EQU PRURHFG2 00963000 PRURHCSI EQU PRURHFG2 00964000 @NM00148 EQU PRURHFG2 00965000 PRURHCDI EQU PRURHFG2 00966000 PRURHEB EQU PRURHFG2 00967000 PRURHBB EQU PRURHFG2 00968000 PRURHPI EQU PRURHFG1 00969000 @NM00147 EQU PRURHFG1 00970000 PRURHER EQU PRURHFG1 00971000 PRURHDR2 EQU PRURHFG1 00972000 @NM00146 EQU PRURHFG1 00973000 PRURHDR1 EQU PRURHFG1 00974000 PRURHEC EQU PRURHFG0 00975000 PRURHBC EQU PRURHFG0 00976000 PRURHSDI EQU PRURHFG0 00977000 PRURHFI EQU PRURHFG0 00978000 @NM00145 EQU PRURHFG0 00979000 PRURUCAT EQU PRURHFG0 00980000 PRURHTYP EQU PRURHFG0 00981000 PRUNUNIT EQU PRUTIC+1 00982000 @NM00144 EQU PRUTIC 00983000 @NM00143 EQU IEDPRUQD+4 00984000 PRF2SEQP EQU PRF2WD2 00985000 @NM00142 EQU IEDPF2+1 00986000 @NM00141 EQU PRF2FLG2 00987000 PRF2SMI EQU PRF2FLG2 00988000 PRF2FORM EQU PRF2FLG2 00989000 PRF1RULN EQU PRF1SEQP+2 00990000 PRF1TAG2 EQU PRF1SQID+1 00991000 @NM00140 EQU PRF1TAG1 00992000 PRF1TAGS EQU PRF1TAG1 00993000 @NM00139 EQU PRF1FLG1 00994000 PRF1LOGD EQU PRF1FLG1 00995000 PRF1USS EQU PRF1FLG1 00996000 PRF1FORM EQU PRF1FLG1 00997000 PRF1FIDI EQU PRF1FLG1 00998000 PRFISEQ EQU IEDQPRF+38 00999000 PRFSTXT EQU PRFHQBCK 01000000 PRFNHDR EQU PRFCHDR 01001000 PRFCRCD EQU IEDQPRF+29 01002000 PRFSVSEQ EQU PRFNTXT+1 01003000 PRFSVPRI EQU PRFEOBOF 01004000 @NM00138 EQU PRFSCAN 01005000 PRFEOB EQU PRFXTRA+1 01006000 PRFSTSO EQU PRFXTRA 01007000 PRFNHDRN EQU PRFSTAT1 01008000 PRFNLSTN EQU PRFSTAT1 01009000 PRFLOCK EQU PRFEOFN 01010000 PRFDUPLN EQU PRFSTAT1 01011000 PRFTSMSG EQU PRFSTAT1 01012000 PRFITCPN EQU PRFSTAT1 01013000 PRFERMGN EQU PRFSTAT1 01014000 PRFCNCLN EQU PRFSTAT1 01015000 PRFSVFLG EQU @NM00137+3 01016000 PRFSIZE EQU PRFSVFFO+2 01017000 @NM00136 EQU PRFTICC 01018000 @NM00135 EQU PRFTICC 01019000 @NM00134 EQU PRFTICC 01020000 PRFTICON EQU PRFTICC 01021000 @NM00133 EQU PRFTICC 01022000 @NM00132 EQU PRFTICC 01023000 PRFBFMM EQU PRFTICC 01024000 PRFEOMSG EQU PRFTICC 01025000 PRFCOUNT EQU PRFLINK+1 01026000 @NM00131 EQU PRFLINK 01027000 PRFFLAGS EQU PRFPRI 01028000 PRFIOADR EQU PRFQCBA 01029000 PRFOPCDE EQU PRFKEY 01030000 @NM00130 EQU OCLDNME+4 01031000 @NM00129 EQU OCPREFLG 01032000 OCTOTEP EQU OCPREFLG 01033000 OCREPOST EQU OCPREFLG 01034000 OCRSPSNT EQU OCPREFLG 01035000 OCBFREQ EQU OCPREFLG 01036000 OCIDLE EQU OCREQFLG 01037000 OCFORCE EQU OCREQFLG 01038000 OCDCARD EQU OCREQFLG 01039000 OCPARTAL EQU OCREQFLG 01040000 OCADNCP EQU OCREQFLG 01041000 @NM00128 EQU OCREQFLG 01042000 @NM00127 EQU OCREQFLG 01043000 OCFLUSHZ EQU OCREQFLG 01044000 OCRESPCT EQU OCLINTTE 01045000 OCCKPTWA EQU OCCKDATA+4 01046000 @NM00124 EQU OCRSTGTM+2 01047000 OCCKDAT2 EQU OCRSTGTM+1 01048000 OCCKDAT1 EQU OCRSTGTM 01049000 OCPTRSAV EQU OCMODNME+4 01050000 OCPUADR EQU OCIPLWA+2 01051000 OCWTGSAV EQU OCIPLWA 01052000 OCDVRDCT EQU OCBACKUP+6 01053000 OCNCP EQU OCBACKUP+4 01054000 OCBUFGOT EQU OCBACKUP+2 01055000 OCBUFNED EQU OCBACKUP 01056000 OCRESNUM EQU OCPARM 01057000 OCSEQ EQU OCTRUNIT+2 01058000 @NM00123 EQU OCRSID+1 01059000 OCNONE EQU OCALSTAT 01060000 OCSOME EQU OCALSTAT 01061000 OCALLFLG EQU OCALSTAT 01062000 OCREDRVE EQU OCALSTAT 01063000 OCSEQIND EQU OCALSTAT 01064000 @NM00122 EQU OCALSTAT 01065000 OCRENTRD EQU OCALSTAT 01066000 OCWTGB EQU OCTIOT 01067000 OCTRMTBL EQU IEDQOPCE+20 01068000 @NM00121 EQU @NM00120+2 01069000 OCCONID EQU OCDEST 01070000 OCRLN EQU IEDQOPCE+15 01071000 OCRESP EQU OCFLAG 01072000 OCATTACH EQU OCFLAG 01073000 OCSSCP EQU OCFLAG 01074000 OCOUTPUT EQU OCFLAG 01075000 OCLINE EQU OCFLAG 01076000 OCMPP EQU OCFLAG 01077000 OCTOTE EQU OCFLAG 01078000 OCCONSOL EQU OCFLAG 01079000 @NM00119 EQU OCSWITCH 01080000 OCQUCKN EQU OCSWITCH 01081000 OCPRIFLG EQU OCOPTCDE 01082000 @NM00118 EQU OCRUDEST+1 01083000 @NM00117 EQU OCSCAN 01084000 OCNOTUCB EQU OCSCAN 01085000 OCNONAME EQU OCSCAN 01086000 OCALLRLN EQU OCSCAN 01087000 OCDDNAME EQU OCSCAN 01088000 OCDDNRLN EQU OCSCAN 01089000 OCADDR EQU OCSCAN 01090000 OCELMPTR EQU OCELEM+1 01091000 OCELMPRI EQU OCELEM 01092000 OCLINK EQU IEDQOPCE 01093000 OPCBOTTM EQU IEDQOPCD+1184 01094000 @NM00116 EQU IEDQOPCD+1100 01095000 @NM00115 EQU IEDQOPCD+948 01096000 @NM00114 EQU IEDQOPCD+940 01097000 @NM00113 EQU IEDQOPCD+380 01098000 @NM00112 EQU OPCPWCOB+9 01099000 @NM00111 EQU OPCPWCOB+8 01100000 @NM00110 EQU OPCPWECB+1 01101000 OPCPWCCC EQU OPCPWECB 01102000 OPCPWCHN EQU OPCPWQCB+1 01103000 OPCPWVTO EQU OPCPWQCB 01104000 OPCWAITV EQU IEDQOPCD+364 01105000 OPCTOTCK EQU IEDQOPCD+360 01106000 OPCAPXTL EQU IEDQOPCD+356 01107000 OPCDECR EQU IEDQOPCD+352 01108000 OPCBUFWT EQU IEDQOPCD+348 01109000 OPCWRKSP EQU IEDQOPCD+320 01110000 OPCADGOT EQU IEDQOPCD+318 01111000 OPCRQCNT EQU IEDQOPCD+316 01112000 OPPOLSTP EQU IEDQOPCD+312 01113000 OPCCKCIB EQU IEDQOPCD+308 01114000 OPCEND EQU IEDQOPCD+307 01115000 OPCSTCBS EQU IEDQOPCD+306 01116000 OPCHNEND EQU IEDQOPCD+302 01117000 OPCOQSW EQU IEDQOPCD+301 01118000 @NM00109 EQU OPCSPEC 01119000 @NM00108 EQU OPCSPEC 01120000 @NM00107 EQU OPCSPEC 01121000 @NM00106 EQU OPCSPEC 01122000 OPCFRMCA EQU OPCSPEC 01123000 OPCRSTRT EQU OPCSPEC 01124000 OPCPART EQU OPCSPEC 01125000 OPCALTD EQU OPCSPEC 01126000 OPCBFEND EQU IEDQOPCD+296 01127000 OPCBFIRS EQU IEDQOPCD+292 01128000 OPCAVBUF EQU IEDQOPCD+290 01129000 OPCIPLCT EQU IEDQOPCD+289 01130000 OPCCLNTS EQU IEDQOPCD+288 01131000 OPCHA8 EQU IEDQOPCD+286 01132000 OPCBFREQ EQU IEDQOPCD+284 01133000 OPCNEXT EQU IEDQOPCD+272 01134000 OPCFMDFC EQU IEDQOPCD+268 01135000 OPCSCNC EQU IEDQOPCD+264 01136000 OPCHORTG EQU IEDQOPCD+260 01137000 OPCHORT EQU IEDQOPCD+256 01138000 OPCCKPTL EQU IEDQOPCD+252 01139000 OPCCKPTF EQU IEDQOPCD+248 01140000 OPCWAITA EQU IEDQOPCD+244 01141000 OPCWAITR EQU IEDQOPCD+240 01142000 OPCWAITP EQU IEDQOPCD+236 01143000 OPCWAITO EQU IEDQOPCD+232 01144000 OPCWAITN EQU IEDQOPCD+228 01145000 OPCWAITL EQU IEDQOPCD+224 01146000 OPCWAITC EQU IEDQOPCD+220 01147000 @NM00105 EQU OPCLDNME+5 01148000 @NM00104 EQU OPCLDNME 01149000 OPCWAIT EQU IEDQOPCD+192 01150000 OPCCKERB EQU IEDQOPCD+164 01151000 OPCBFERB EQU IEDQOPCD+148 01152000 OPCFLAG2 EQU IEDQOPCD+147 01153000 OPCFLAG1 EQU IEDQOPCD+146 01154000 OPCWRKSZ EQU IEDQOPCD+144 01155000 OPCRSAVE EQU IEDQOPCD+132 01156000 OPCQCBAD EQU IEDQOPCD+128 01157000 OPCTRMWA EQU IEDQOPCD+52 01158000 OPCTNTEA EQU IEDQOPCD+44 01159000 OPCPGCK EQU IEDQOPCD+40 01160000 OPCLCB EQU IEDQOPCD+36 01161000 @NM00103 EQU IEDQOPCD+32 01162000 OPCIPLAD EQU IEDQOPCD+28 01163000 OPCTOFLK EQU IEDQOPCD+24 01164000 OPCOPTLK EQU IEDQOPCD+20 01165000 OPCDCBLK EQU IEDQOPCD+16 01166000 OPCDOUBL EQU IEDQOPCD 01167000 SAVTBITN EQU IEDNSVTD+312 01168000 @NM00102 EQU SAVTCKQB+8 01169000 @NM00101 EQU SAVTCKEC+1 01170000 @NM00100 EQU SAVTCKCC 01171000 SAVTCKPO EQU SAVTCKCC 01172000 SAVTCKWA EQU SAVTCKCC 01173000 SAVTCKCH EQU SAVTCKTB+1 01174000 SAVTCKVT EQU SAVTCKTB 01175000 @NM00099 EQU IEDNSVTD+297 01176000 SAVTRDFG EQU SAVTRDRV+12 01177000 @NM00098 EQU SAVTRDRV+5 01178000 SAVTRDPY EQU SAVTRDRV+4 01179000 SAVTRDQB EQU SAVTRDRV+1 01180000 SAVTRDKY EQU SAVTRDRV 01181000 SAVTNID EQU IEDNSVTD+280 01182000 SAVTDVAS EQU IEDNSVTD+276 01183000 SAVTPLSZ EQU IEDNSVTD+274 01184000 @NM00097 EQU IEDNSVTD+273 01185000 SAVTSUBL EQU IEDNSVTD+272 01186000 @NM00096 EQU SAVTZELM+1 01187000 SAVTSUBM EQU SAVTZELM 01188000 SAVTMHDX EQU IEDNSVTD+268 01189000 SAVTNAT1 EQU IEDNSVTD+266 01190000 SAVTSH20 EQU IEDNSVTD+264 01191000 SAVTLCBS EQU IEDNSVTD+260 01192000 SAVTRNMP EQU IEDNSVTD+256 01193000 SAVTTNTX EQU IEDNSVTD+252 01194000 SAVTNAX EQU IEDNSVTD+248 01195000 SAVTSUBV EQU IEDNSVTD+247 01196000 SAVTSUBA EQU IEDNSVTD+246 01197000 SAVTSIBC EQU IEDNSVTD+244 01198000 SAVTBSM EQU IEDNSVTD+240 01199000 SAVTRQTG EQU IEDNSVTD+236 01200000 SAVTRQCH EQU IEDNSVTD+232 01201000 SAVTMAND EQU IEDNSVTD+228 01202000 SAVTSPLN EQU IEDNSVTD+224 01203000 SAVTNADL EQU IEDNSVTD+222 01204000 SAVTNATL EQU IEDNSVTD+220 01205000 SAVTMHTB EQU IEDNSVTD+216 01206000 SAVTSSMH EQU IEDNSVTD+212 01207000 SAVTQRS EQU IEDNSVTD+208 01208000 SAVTRQIN EQU IEDNSVTD+204 01209000 SAVTSAO EQU IEDNSVTD+196 01210000 SAVTSARI EQU IEDNSVTD+192 01211000 SAVTSAC EQU IEDNSVTD+188 01212000 SAVTSAI EQU IEDNSVTD+184 01213000 SAVTCSCI EQU IEDNSVTD+180 01214000 SAVTSSRP EQU IEDNSVTD+176 01215000 SAVTSSRQ EQU IEDNSVTD+172 01216000 SAVTSCLU EQU IEDNSVTD+168 01217000 SAVTXTRQ EQU IEDNSVTD+164 01218000 SAVTMVBF EQU IEDNSVTD+160 01219000 @NM00095 EQU IEDNSVTD+148 01220000 SAVTIPCQ EQU IEDNSVTD+144 01221000 @NM00094 EQU IEDNSVTD+136 01222000 SAVTXFMI EQU IEDNSVTD+132 01223000 @NM00093 EQU IEDNSVTD+124 01224000 @NM00092 EQU IEDNSVTD+116 01225000 SAVTSSSR EQU IEDNSVTD+112 01226000 SAVTSCPQ EQU IEDNSVTD+108 01227000 SAVTSLCB EQU IEDNSVTD+104 01228000 SAVTLUSR EQU IEDNSVTD+100 01229000 @NM00091 EQU SAVTLUSQ+8 01230000 SAVTLUSP EQU SAVTLUSQ+4 01231000 SAVTLUSB EQU SAVTLUSQ 01232000 @NM00090 EQU IEDNSVTD+84 01233000 SAVTSAT EQU IEDNSVTD+80 01234000 SAVTNAT EQU IEDNSVTD+76 01235000 SAVTCLUP EQU IEDNSVTD+72 01236000 SAVTPIUT EQU IEDNSVTD+68 01237000 SAVTRNTA EQU IEDNSVTD+64 01238000 SAVTDNIR EQU IEDNSVTD+60 01239000 SAVTCNIR EQU IEDNSVTD+56 01240000 SAVTFLDH EQU IEDNSVTD+52 01241000 SAVTSRTN EQU IEDNSVTD+48 01242000 SAVTSREQ EQU IEDNSVTD+44 01243000 SAVTFAIL EQU IEDNSVTD+42 01244000 SAVTSUSE EQU IEDNSVTD+40 01245000 SAVTSIB EQU IEDNSVTD+36 01246000 SAVTPRTN EQU IEDNSVTD+32 01247000 @NM00089 EQU IEDNSVTD+28 01248000 SAVTWH20 EQU IEDNSVTD+26 01249000 SAVTPWT EQU IEDNSVTD+24 01250000 SAVTPRTQ EQU IEDNSVTD+20 01251000 SAVTPREQ EQU IEDNSVTD+16 01252000 SAVTPH20 EQU IEDNSVTD+14 01253000 SAVTPUSE EQU IEDNSVTD+12 01254000 SAVTPLCB EQU IEDNSVTD+8 01255000 SAVTPOOL EQU IEDNSVTD+4 01256000 SAVTPRMT EQU SAVTDIAF 01257000 SAVTVIRT EQU SAVTDIAF 01258000 AVTCPBNO EQU IEDQAVTD+1244 01259000 AVTHRESS EQU IEDQAVTD+1243 01260000 @NM00088 EQU IEDQAVTD+1242 01261000 @NM00087 EQU IEDQAVTD+1241 01262000 @NM00086 EQU IEDQAVTD+1240 01263000 @NM00085 EQU IEDQAVTD+1237 01264000 @NM00084 EQU IEDQAVTD+1236 01265000 AVTHRESE EQU @NM00083 01266000 AVTRADDR EQU IEDQAVTD+1228 01267000 AVTNADDR EQU IEDQAVTD+1224 01268000 AVTHRESN EQU IEDQAVTD+1220 01269000 AVTVOLRN EQU IEDQAVTD+1216 01270000 AVTTOTNN EQU IEDQAVTD+1212 01271000 AVTTRCYN EQU IEDQAVTD+1208 01272000 AVTRCTRN EQU IEDQAVTD+1204 01273000 AVTNOVON EQU IEDQAVTD+1200 01274000 AVTADEBN EQU IEDQAVTD+1196 01275000 AVTVOLRR EQU IEDQAVTD+1192 01276000 AVTTOTNR EQU IEDQAVTD+1188 01277000 AVTTRCYR EQU IEDQAVTD+1184 01278000 AVTRCTRR EQU IEDQAVTD+1180 01279000 AVTNOVOR EQU IEDQAVTD+1176 01280000 AVTADEBR EQU IEDQAVTD+1172 01281000 AVTLODPT EQU IEDQAVTD+1168 01282000 AVTIOBN EQU IEDQAVTD+1164 01283000 AVTIOBR EQU IEDQAVTD+1160 01284000 AVTCPBPT EQU IEDQAVTD+1156 01285000 AVTFCPB EQU IEDQAVTD+1152 01286000 @NM00082 EQU IEDQAVTD+1148 01287000 AVTINCPQ EQU IEDQAVTD+1144 01288000 @NM00081 EQU IEDQAVTD+1140 01289000 @NM00080 EQU IEDQAVTD+1137 01290000 @NM00079 EQU AVTBIT4 01291000 @NM00078 EQU AVTBIT4 01292000 @NM00077 EQU AVTBIT4 01293000 @NM00076 EQU AVTBIT4 01294000 @NM00075 EQU AVTBIT4 01295000 @NM00074 EQU AVTBIT4 01296000 @NM00073 EQU AVTBIT4 01297000 AVTRUFTN EQU AVTBIT4 01298000 @NM00072 EQU IEDQAVTD+1132 01299000 AVTNOBFQ EQU IEDQAVTD+1128 01300000 @NM00071 EQU IEDQAVTD+1124 01301000 AVTDKENQ EQU IEDQAVTD+1120 01302000 @NM00070 EQU IEDQAVTD+1116 01303000 AVTDKAPQ EQU IEDQAVTD+1112 01304000 AVTCOPY EQU IEDQAVTD+1108 01305000 AVTIA EQU IEDQAVTD+1104 01306000 AVTFL EQU IEDQAVTD+1100 01307000 @NM00069 EQU IEDQAVTD+1096 01308000 AVTNCPBQ EQU IEDQAVTD+1092 01309000 AVTTOTNC EQU IEDQAVTD+1088 01310000 AVTCMAX EQU IEDQAVTD+1084 01311000 AVTCMIN EQU IEDQAVTD+1080 01312000 AVTHM02 EQU IEDQAVTD+1076 01313000 AVTOPCIN EQU IEDQAVTD+1074 01314000 AVTDCTLN EQU IEDQAVTD+1072 01315000 AVTOPMSK EQU IEDQAVTD+1068 01316000 AVTDDFT EQU IEDQAVTD+1064 01317000 AVTSTEAL EQU IEDQAVTD+1060 01318000 AVTOPTN EQU IEDQAVTD+1056 01319000 AVTDSKCT EQU IEDQAVTD+1054 01320000 AVTCKRST EQU IEDQAVTD+1053 01321000 AVTSTAN EQU AVTBIT3 01322000 AVTSTACN EQU AVTBIT3 01323000 AVTSTAIN EQU AVTBIT3 01324000 AVTSTAYN EQU AVTBIT3 01325000 AVTOLTBN EQU AVTBIT3 01326000 AVTTSAB EQU AVTBIT3 01327000 AVTRFULN EQU AVTBIT3 01328000 AVTRECVN EQU AVTBIT3 01329000 @NM00068 EQU AVTBIT2 01330000 @NM00067 EQU AVTBIT2 01331000 AVTOPEIN EQU AVTBIT2 01332000 AVTSTRTN EQU AVTBIT2 01333000 AVTTOPOL EQU AVTBIT2 01334000 AVTCOPYN EQU AVTBIT2 01335000 AVTREUSN EQU AVTBIT2 01336000 AVTEXTSC EQU AVTBIT2 01337000 AVTDISKN EQU AVTBIT1 01338000 AVTQUCKN EQU AVTBIT1 01339000 AVTCLOSN EQU AVTBIT1 01340000 AVTREADN EQU AVTBIT1 01341000 AVTDLAYN EQU AVTBIT1 01342000 AVTAQTAN EQU AVTBIT1 01343000 AVTTSON EQU AVTBIT1 01344000 AVTAPLKN EQU AVTBIT1 01345000 AVTDUMBR EQU IEDQAVTD+1048 01346000 AVTDLQX EQU IEDQAVTD+1046 01347000 AVTINTLV EQU IEDQAVTD+1044 01348000 AVTSMCNT EQU IEDQAVTD+1042 01349000 AVTAVFCT EQU IEDQAVTD+1040 01350000 AVTOPCON EQU IEDQAVTD+1038 01351000 AVTOPCNT EQU IEDQAVTD+1036 01352000 AVTLNCNT EQU IEDQAVTD+1034 01353000 AVTKEYLE EQU IEDQAVTD+1032 01354000 AVTHA16 EQU IEDQAVTD+1030 01355000 AVTHA7 EQU IEDQAVTD+1028 01356000 AVTHA4 EQU IEDQAVTD+1026 01357000 AVTHA3 EQU IEDQAVTD+1024 01358000 AVTHA2 EQU IEDQAVTD+1022 01359000 AVTGETMS EQU IEDQAVTD+1021 01360000 @NM00066 EQU IEDQAVTD+1020 01361000 AVTGETMD EQU IEDQAVTD+1016 01362000 AVTGETMN EQU IEDQAVTD+1012 01363000 AVTCWTOT EQU IEDQAVTD+1008 01364000 AVTCWINT EQU IEDQAVTD+956 01365000 AVTDTRAP EQU IEDQAVTD+952 01366000 @NM00065 EQU IEDQAVTD+950 01367000 @NM00064 EQU AVTIOTR 01368000 AVTIOTRH EQU AVTIOTR 01369000 AVTIOTRE EQU AVTIOTR 01370000 @NM00063 EQU AVTSUBT 01371000 AVTSUBPT EQU AVTSUBT 01372000 AVTSUBON EQU AVTSUBT 01373000 AVTAFE30 EQU IEDQAVTD+944 01374000 AVTAFE20 EQU IEDQAVTD+940 01375000 AVTAFE10 EQU IEDQAVTD+936 01376000 AVTCWEC2 EQU IEDQAVTD+932 01377000 AVTCWPM2 EQU IEDQAVTD+928 01378000 AVTCWTS2 EQU IEDQAVTD+927 01379000 AVTCWTS1 EQU IEDQAVTD+926 01380000 AVTCWCLD EQU AVTCWFL2 01381000 AVTCWRAP EQU AVTCWFL2 01382000 @NM00062 EQU AVTCWFL2 01383000 @NM00061 EQU AVTCWFL2 01384000 @NM00060 EQU AVTCWFL2 01385000 @NM00059 EQU AVTCWFL2 01386000 @NM00058 EQU AVTCWFL2 01387000 AVTCWACT EQU AVTCWFL2 01388000 @NM00057 EQU AVTCWFL1 01389000 @NM00056 EQU AVTCWFL1 01390000 @NM00055 EQU AVTCWFL1 01391000 @NM00054 EQU AVTCWFL1 01392000 @NM00053 EQU AVTCWFL1 01393000 @NM00052 EQU AVTCWFL1 01394000 @NM00051 EQU AVTCWFL1 01395000 AVTCOMWN EQU AVTCWFL1 01396000 AVTCWEC1 EQU IEDQAVTD+920 01397000 AVTCWPM1 EQU IEDQAVTD+916 01398000 AVTCAREA EQU IEDQAVTD+912 01399000 AVTFZERO EQU IEDQAVTD+908 01400000 AVTCADDR EQU IEDQAVTD+904 01401000 AVTCOREC EQU IEDQAVTD+900 01402000 @NM00050 EQU IEDQAVTD+892 01403000 AVTCPBCB EQU IEDQAVTD+888 01404000 @NM00049 EQU IEDQAVTD+880 01405000 AVTDSIOB EQU IEDQAVTD+876 01406000 @NM00048 EQU IEDQAVTD+868 01407000 AVTCPRMB EQU IEDQAVTD+864 01408000 @NM00047 EQU IEDQAVTD+856 01409000 AVTCLOSB EQU IEDQAVTD+852 01410000 @NM00046 EQU IEDQAVTD+844 01411000 AVTACTIB EQU IEDQAVTD+840 01412000 @NM00045 EQU IEDQAVTD+836 01413000 AVTOLTEB EQU IEDQAVTD+832 01414000 AVTOLTCH EQU AVTOLTQB+1 01415000 AVTOLTVT EQU AVTOLTQB 01416000 @NM00044 EQU AVTOPCQB+8 01417000 @NM00043 EQU AVTOPCEC+1 01418000 @NM00042 EQU AVTOPCCC 01419000 AVTOPCPO EQU AVTOPCCC 01420000 AVTOPCWA EQU AVTOPCCC 01421000 AVTOPCCH EQU AVTOPCOB+1 01422000 AVTOPCVT EQU AVTOPCOB 01423000 @NM00041 EQU AVTCKPQB+9 01424000 AVTCKPTS EQU AVTCKPQB+8 01425000 @NM00040 EQU AVTCKPEC+1 01426000 @NM00039 EQU AVTCKPCC 01427000 AVTCKPPO EQU AVTCKPCC 01428000 AVTCKPWA EQU AVTCKPCC 01429000 AVTCKPCH EQU AVTCKPTB+1 01430000 AVTCKPVT EQU AVTCKPTB 01431000 @NM00038 EQU IEDQAVTD+796 01432000 AVTBFRTB EQU IEDQAVTD+792 01433000 @NM00037 EQU IEDQAVTD+784 01434000 AVTBFREB EQU IEDQAVTD+780 01435000 AVTTIMQ EQU IEDQAVTD+776 01436000 @NM00036 EQU IEDQAVTD+772 01437000 AVTIMQPS EQU IEDQAVTD+768 01438000 AVTINOUT EQU IEDQAVTD+766 01439000 AVTREFTM EQU IEDQAVTD+764 01440000 @NM00035 EQU IEDQAVTD+752 01441000 AVTDELYB EQU IEDQAVTD+748 01442000 AVTOCQPT EQU IEDQAVTD+744 01443000 AVTTSOPT EQU IEDQAVTD+740 01444000 AVTSUPPT EQU IEDQAVTD+736 01445000 AVTCBQCB EQU IEDQAVTD+732 01446000 AVTMSGS EQU IEDQAVTD+729 01447000 @NM00034 EQU AVTSYSER 01448000 @NM00033 EQU AVTSYSER 01449000 @NM00032 EQU AVTSYSER 01450000 @NM00031 EQU AVTSYSER 01451000 @NM00030 EQU AVTSYSER 01452000 @NM00029 EQU AVTSYSER 01453000 AVTCMAXN EQU AVTSYSER 01454000 AVTCMINN EQU AVTSYSER 01455000 AVT2260L EQU IEDQAVTD+724 01456000 AVTABEPL EQU AVTADBUF 01457000 AVTHFF EQU AVTCLRHI+2 01458000 @NM00028 EQU AVTCLRHI 01459000 AVTCCLNK EQU AVTCRELE+5 01460000 AVTCCPRI EQU AVTCRELE+4 01461000 AVTCCQCB EQU AVTCCELE+1 01462000 AVTCCKEY EQU AVTCCELE 01463000 AVTDELAD EQU IEDQAVTD+704 01464000 AVTDELEM EQU IEDQAVTD+700 01465000 AVTBSX EQU AVTCKLNK 01466000 AVTOPETR EQU AVTHG01 01467000 @NM00027 EQU AVTCKBYT 01468000 AVTCKONQ EQU AVTCKBYT 01469000 @NM00026 EQU AVTCKBYT 01470000 @NM00025 EQU AVTCKBYT 01471000 @NM00024 EQU AVTCKBYT 01472000 @NM00023 EQU AVTCKBYT 01473000 @NM00022 EQU AVTCKBYT 01474000 @NM00021 EQU AVTCKBYT 01475000 AVTOPERT EQU IEDQAVTD+690 01476000 AVTOPXCL EQU IEDQAVTD+688 01477000 AVTOPERL EQU IEDQAVTD+687 01478000 @NM00020 EQU IEDQAVTD+686 01479000 AVTCKTIM EQU IEDQAVTD+684 01480000 AVTCKELV EQU IEDQAVTD+682 01481000 AVTCPRCD EQU IEDQAVTD+681 01482000 AVTWARMN EQU AVTCKELF 01483000 AVTCRTLN EQU AVTCKELF 01484000 AVTCPIPN EQU AVTCKELF 01485000 AVTCCLCN EQU AVTCKELF 01486000 AVTCINCN EQU AVTCKELF 01487000 @NM00019 EQU AVTCKELF 01488000 AVTCMCPN EQU AVTCKELF 01489000 AVTCRDYN EQU AVTCKELF 01490000 AVTCKQAD EQU IEDQAVTD+677 01491000 AVTSCBSZ EQU IEDQAVTD+676 01492000 @NM00018 EQU IEDQAVTD+672 01493000 AVTCKELE EQU IEDQAVTD+668 01494000 @NM00017 EQU AVTCKPEL+8 01495000 AVTCKRLK EQU AVTCKPEL+5 01496000 AVTCKRPR EQU AVTCKPEL+4 01497000 AVTCKRMQ EQU AVTCKRMV+1 01498000 AVTCKRKY EQU AVTCKRMV 01499000 AVTHK EQU IEDQAVTD+648 01500000 AVTHI EQU IEDQAVTD+644 01501000 AVTIOT EQU IEDQAVTD+640 01502000 AVTNX EQU IEDQAVTD+636 01503000 AVTTONE EQU IEDQAVTD+632 01504000 AVTA3TL EQU IEDQAVTD+628 01505000 AVTDMECB EQU IEDQAVTD+624 01506000 AVTABEND EQU IEDQAVTD+618 01507000 AVTPLCBN EQU IEDQAVTD+616 01508000 @NM00016 EQU AVTSAVTP+1 01509000 @NM00015 EQU AVTSAVTF 01510000 AVTSNA EQU AVTSAVTF 01511000 AVTONSNA EQU AVTSAVTF 01512000 AVTVTMCP EQU AVTSAVTF 01513000 @NM00014 EQU IEDQAVTD+608 01514000 AVTCMBSS EQU IEDQAVTD+604 01515000 AVTRCV EQU IEDQAVTD+600 01516000 AVTSEND EQU IEDQAVTD+596 01517000 AVTCSCH EQU IEDQAVTD+592 01518000 AVTQ1 EQU IEDQAVTD+588 01519000 AVTE7 EQU IEDQAVTD+584 01520000 AVTHB EQU IEDQAVTD+580 01521000 AVTR1 EQU IEDQAVTD+576 01522000 AVTBZ EQU IEDQAVTD+572 01523000 AVTEZ EQU IEDQAVTD+568 01524000 AVTEC EQU IEDQAVTD+564 01525000 AVTEW EQU IEDQAVTD+560 01526000 AVTNDIAL EQU AVTSCOPT 01527000 AVTN2741 EQU AVTSCOPT 01528000 AVTCONCO EQU AVTSCOPT 01529000 AVTCONC EQU AVTSCOPT 01530000 AVTCMBUF EQU AVTSCOPT 01531000 AVTAPDMP EQU AVTSCOPT 01532000 @NM00013 EQU AVTSCOPT 01533000 AVTHA EQU AVTDISP 01534000 AVTEA EQU IEDQAVTD+548 01535000 AVTAX EQU IEDQAVTD+544 01536000 AVTA3 EQU IEDQAVTD+540 01537000 AVTGD EQU IEDQAVTD+536 01538000 AVTAL EQU IEDQAVTD+532 01539000 AVTOLTST EQU AVTHG02 01540000 AVTE8 EQU IEDQAVTD+524 01541000 AVTUI EQU IEDQAVTD+520 01542000 AVTCOMPT EQU IEDQAVTD+516 01543000 AVTCRSRF EQU IEDQAVTD+512 01544000 @NM00012 EQU IEDQAVTD+508 01545000 AVTKA02 EQU IEDQAVTD+504 01546000 AVTOPTPT EQU IEDQAVTD+500 01547000 AVTPCBPT EQU IEDQAVTD+496 01548000 AVTOSECB EQU IEDQAVTD+492 01549000 AVTOPECA EQU IEDQAVTD+488 01550000 AVTOLECA EQU IEDQAVTD+484 01551000 AVTCKECA EQU IEDQAVTD+480 01552000 AVTCWECA EQU IEDQAVTD+476 01553000 AVTCWTCB EQU IEDQAVTD+472 01554000 AVTOLTCB EQU IEDQAVTD+468 01555000 AVTOCTCB EQU IEDQAVTD+464 01556000 AVTCKTCB EQU IEDQAVTD+460 01557000 AVTAS EQU IEDQAVTD+456 01558000 AVTNOLBF EQU IEDQAVTD+454 01559000 AVTNCKPR EQU IEDQAVTD+453 01560000 AVTCIB EQU IEDQAVTD+452 01561000 AVTSPLPT EQU IEDQAVTD+448 01562000 AVTMVBFR EQU IEDQAVTD+444 01563000 AVTSBTA EQU IEDQAVTD+440 01564000 AVTRARTN EQU IEDQAVTD+436 01565000 AVTBSCAN EQU IEDQAVTD+432 01566000 AVTRDYA EQU IEDQAVTD+428 01567000 AVTDISTR EQU IEDQAVTD+420 01568000 AVTPARM3 EQU IEDQAVTD+416 01569000 @NM00011 EQU AVTPKF 01570000 @NM00010 EQU AVTPKF 01571000 @NM00009 EQU AVTPKF 01572000 AVTFTCHF EQU AVTPKF 01573000 @NM00008 EQU AVTPKF 01574000 @NM00007 EQU AVTPKF 01575000 @NM00006 EQU AVTPKF 01576000 @NM00005 EQU AVTPKF 01577000 AVTPARM EQU IEDQAVTD+408 01578000 AVTEXS2A EQU IEDQAVTD+402 01579000 AVTEXA2S EQU IEDQAVTD+396 01580000 AVTOCGET EQU IEDQAVTD+392 01581000 AVTCKAVT EQU @NM00003+1 01582000 @NM00004 EQU AVTCKFLG 01583000 AVTCKHLT EQU AVTCKFLG 01584000 AVTCKREQ EQU AVTCKFLG 01585000 AVTCKENV EQU AVTCKFLG 01586000 AVTCKNAC EQU AVTCKFLG 01587000 AVTCKTAC EQU AVTCKFLG 01588000 @NM00002 EQU IEDQAVTD+384 01589000 AVTREADD EQU IEDQAVTD+380 01590000 AVTREADY EQU IEDQAVTD+376 01591000 AVTRACE EQU IEDQAVTD+372 01592000 AVTTCB EQU IEDQAVTD+368 01593000 AVTPASWD EQU IEDQAVTD+360 01594000 AVTCTLCH EQU IEDQAVTD+352 01595000 AVTDOUBL EQU IEDQAVTD+344 01596000 AVTDOUBX EQU IEDQAVTD+336 01597000 AVTDPARM EQU IEDQAVTD+332 01598000 AVTCSTCS EQU IEDQAVTD+328 01599000 AVTDLQ EQU AVTSAVEX+32 01600000 @NM00001 EQU AVTSAVEX 01601000 AVTSAVE4 EQU IEDQAVTD+216 01602000 AVTSAVE3 EQU IEDQAVTD+144 01603000 AVTSAVE2 EQU IEDQAVTD+72 01604000 AVTSAVE1 EQU IEDQAVTD 01605000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01606000 @RC00480 EQU @RC00477 01607000 @RC00483 EQU @RC00477 01608000 @RF00532 EQU @RC00530 01609000 @ENDDATA EQU * 01610000 END IGCAD10D,(C'PLS1108',0701,77042) 01611000