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