TITLE 'IEDNID, DIAL ID VERIFICATION ROUTINE FOR 3705 *00001000 ' 00002000 IEDNID CSECT , 01S0001 00003000 @PROLOG ST @14,12(,@13) 01S0001 00004000 STM @00,@12,20(@13) 01S0001 00005000 * TO TERMINAL TABLE ENTRY 02S0138 00006000 * ADDRESS CONVERSION ROUTINE */ 00007000 * 02S0139 00008000 * /*****************************************************************/ 00009000 * /* */ 00010000 * /* PROLOGUE: THIS SEGMENT COMPLETES THE PROLOGUE CODE THAT WAS */ 00011000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. */ 00012000 * /* */ 00013000 * /*****************************************************************/ 00014000 * 02S0139 00015000 * RBASE=REG15; /* SET THE PASSED BASE REGISTER */ 00016000 LR RBASE,REG15 02S0139 00017000 * GEN REFS(RBASE) NOSETS; 02S0140 00018000 * /* 00019000 USING IEDNID,RBASE 00020000 * GEN NOREFS NOSETS; 02S0141 00021000 * /* 00022000 IEDNID IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00023000 * RFY 02S0142 00024000 * REG15 UNRSTD; 02S0142 00025000 * 02S0143 00026000 * /*****************************************************************/ 00027000 * /* */ 00028000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00029000 * /* PERFORM THE FUNCTION OF THE MODULE. */ 00030000 * /* */ 00031000 * /*****************************************************************/ 00032000 * 02S0143 00033000 * 03S0143 00034000 * /*****************************************************************/ 00035000 * /* */ 00036000 * /* PROCESS.INITIAL: THIS SEGMENT DOES THE INITIAL PROCESSING. */ 00037000 * /* */ 00038000 * /*****************************************************************/ 00039000 * 03S0143 00040000 * RPRF=RPARM; /* LOAD BUFFER ADDRESS */ 00041000 LR RPRF,RPARM 03S0143 00042000 * RPARM=TTHOAF; /* TNT INDEX OF SERVICE TERMINAL */ 00043000 LA @14,PRFPIUO(,RPRF) 02S0144 00044000 SLR @11,@11 02S0144 00045000 IC @11,PRFPIUO(,RPRF) 02S0144 00046000 ALR @14,@11 02S0144 00047000 SLR RPARM,RPARM 02S0144 00048000 ICM RPARM,3,TTHOAF(@14) 02S0144 00049000 * CALL IEDQTNT; 02S0145 00050000 L @15,AVTRNMPT(,RAVT) 02S0145 00051000 BALR @14,@15 02S0145 00052000 * RTRM=RPARM; /* TRM BASE */ 00053000 LR RTRM,RPARM 02S0146 00054000 * RQCB=TRMDESTQ; /* QCB BASE */ 00055000 L RQCB,TRMDESTQ-1(,RTRM) 02S0147 00056000 LA RQCB,0(,RQCB) 02S0147 00057000 * RLGB=QCBLGBAD; /* LGB BASE */ 00058000 L RLGB,QCBLGBAD-1(,RQCB) 02S0148 00059000 LA RLGB,0(,RLGB) 02S0148 00060000 * RRETCODE=0; /* ASSUME BAD RETURN CODE */ 00061000 SLR RRETCODE,RRETCODE 02S0149 00062000 * IF QCBRELLN<=LGBILCT THEN /* IF INVLIST EXISTS */ 00063000 CLC QCBRELLN(1,RQCB),LGBILCT(RLGB) 02S0150 00064000 BH @RF00150 02S0150 00065000 * DO; 02S0151 00066000 * RINVL=(ADDR(LGBIVLST)+(QCBRELLN-1)*4)->ADINV;/* INVLIST 02S0152 00067000 * ADDRESS */ 00068000 LA @14,LGBIVLST(,RLGB) 02S0152 00069000 SLR @11,@11 02S0152 00070000 IC @11,QCBRELLN(,RQCB) 02S0152 00071000 BCTR @11,0 02S0152 00072000 SLA @11,2 02S0152 00073000 ALR @14,@11 02S0152 00074000 L RINVL,ADINV(,@14) 02S0152 00075000 * IF RINVL^=0 THEN /* IF INVLIST SPECIFIED */ 00076000 LTR RINVL,RINVL 02S0153 00077000 BZ @RF00153 02S0153 00078000 * DO; 02S0154 00079000 * 03S0155 00080000 * /*********************************************************/ 00081000 * /* */ 00082000 * /* PROCESS.VERIFY: THIS SEGMENT SCANS THE INVLIST LOOKING*/ 00083000 * /* FOR A TTCIN MATCH. REGS ON INPUT= RTRM=@SERVICE TERM */ 00084000 * /* TRM, RQCB, RAVT, RINVL=@INVLIST */ 00085000 * /* */ 00086000 * /*********************************************************/ 00087000 * 03S0155 00088000 * RFY 03S0155 00089000 * (RLENS, 03S0155 00090000 * RLENI, 03S0155 00091000 * RID, 03S0155 00092000 * RENTRY, 03S0155 00093000 * RLENA) RSTD; 03S0155 00094000 * RLENS=INVENTLG-1; /* LENGTH OF ID SPECIFIED */ 00095000 SLR RLENS,RLENS 03S0156 00096000 IC RLENS,INVENTLG(,RINVL) 03S0156 00097000 BCTR RLENS,0 03S0156 00098000 * RLENI=TTHDCF-LENGTH(PIU0RH)-LENGTH(PIU0PAD)-LENGTH(IEDBDU); 00099000 LA @14,PRFPIUO(,RPRF) 03S0157 00100000 SLR @09,@09 03S0157 00101000 IC @09,PRFPIUO(,RPRF) 03S0157 00102000 ALR @09,@14 03S0157 00103000 SLR RLENI,RLENI 03S0157 00104000 ICM RLENI,3,TTHDCF(@09) 03S0157 00105000 SL RLENI,@CF00686 03S0157 00106000 * /* LENGTH OF ID INPUTTED */ 00107000 * IF RLENS<=RLENI THEN /* IF LENGTH IS VALID */ 00108000 CR RLENS,RLENI 03S0158 00109000 BH @RF00158 03S0158 00110000 * DO; 03S0159 00111000 * RID=ADDR(IEDTH)+LENGTH(IEDPIU0)+LENGTH(IEDBDU);/* 00112000 * ADDRESS OF INPUT ID */ 00113000 AL @09,@CF01204 03S0160 00114000 LR RID,@09 03S0160 00115000 * RLENA=ADDR(PRFPIUO)+AVTKEYLE-RID;/* LENGTH IN FIRST 00116000 * UNIT */ 00117000 AH @14,AVTKEYLE(,RAVT) 03S0161 00118000 SLR @14,RID 03S0161 00119000 LR RLENA,@14 03S0161 00120000 * IF RLENS<=RLENA THEN/* IF ID IS ALL IN ONE UNIT */ 00121000 CR RLENS,RLENA 03S0162 00122000 BH @RF00162 03S0162 00123000 * IDAREA(1:RLENS)=RID->IDENT;/* MOVE ENTIRE ID TO 00124000 * IDAREA */ 00125000 LR @14,RLENS 03S0163 00126000 BCTR @14,0 03S0163 00127000 EX @14,@SM01205 03S0163 00128000 * ELSE /* NOT ALL IN ONE UNIT */ 00129000 * DO; 03S0164 00130000 B @RC00162 03S0164 00131000 @RF00162 DS 0H 03S0165 00132000 * 04S0165 00133000 * /*************************************************/ 00134000 * /* */ 00135000 * /* PROCESS.VERIFY.SPANUNIT: THIS SEGMENT */ 00136000 * /* ASSEMBLES THE ID FROM TWO BUFFER UNITS */ 00137000 * /* */ 00138000 * /*************************************************/ 00139000 * 04S0165 00140000 * RLENI=RLENS-RLENA;/* LENGTH OF PART IN SECOND 00141000 * UNIT */ 00142000 LR @14,RLENS 04S0165 00143000 SLR @14,RLENA 04S0165 00144000 LR RLENI,@14 04S0165 00145000 * IDAREA(1:RLENA)=RID->IDENT;/* MOVE FIRST PART OF 00146000 * ID */ 00147000 LR @09,RLENA 04S0166 00148000 BCTR @09,0 04S0166 00149000 EX @09,@SM01205 04S0166 00150000 * RID=PRFTI0; /* ADDRESS OF NEXT UNIT */ 00151000 L RID,PRFTI0-1(,RPRF) 04S0167 00152000 LA RID,0(,RID) 04S0167 00153000 * RFY 04S0168 00154000 * IEDQPRF BASED(RID);/* BASE FOR NEXT BUFFER UNIT*/ 00155000 * RID=ADDR(PRFPIUO);/* ADDRESS OF ID IN NEXT UNIT */ 00156000 LA @09,PRFPIUO(,RID) 04S0169 00157000 LR RID,@09 04S0169 00158000 * RFY 04S0170 00159000 * IEDQPRF BASED(RPRF);/* RESTORE BUFFER BASE */ 00160000 * IDAREA(RLENA+1:RLENS)=RID->IDENT;/* MOVE SECOND 00161000 * PART OF ID */ 00162000 LA @09,IDAREA(RLENA) 04S0171 00163000 BCTR @14,0 04S0171 00164000 EX @14,@SM01207 04S0171 00165000 * END; 03S0172 00166000 * RENTRY=ADDR(INVENTRY);/* FIRST INVLIST ENTRY */ 00167000 @RC00162 LA RENTRY,INVENTRY(,RINVL) 03S0173 00168000 * DO UNTIL(RRETCODE^=0/* PROCESS UNITL MATCH ... */ 00169000 * |INVENT(1)=INVENDL);/* ... OR UNTIL END OF LIST*/ 00170000 @DL00174 DS 0H 03S0175 00171000 * IF INVENT(1:RLENS)=IDAREA(1:RLENS) THEN/* IF MATCH */ 00172000 LR @14,RLENS 03S0175 00173000 BCTR @14,0 03S0175 00174000 EX @14,@SC01209 03S0175 00175000 BNE @RF00175 03S0175 00176000 * DO; 03S0176 00177000 * RENTRY=RENTRY+RLENS;/* POINT TO INDEX BYTE */ 00178000 ALR RENTRY,RLENS 03S0177 00179000 * RENTRY=RINVL-2*INDEX;/* POINT TO TTCIN */ 00180000 SLR @14,@14 03S0178 00181000 IC @14,INDEX(,RENTRY) 03S0178 00182000 ALR @14,@14 03S0178 00183000 LCR @14,@14 03S0178 00184000 ALR @14,RINVL 03S0178 00185000 LR RENTRY,@14 03S0178 00186000 * RRETCODE=TNTINDX;/* SET TTCIN IN R15 */ 00187000 LH RRETCODE,TNTINDX(,RENTRY) 03S0179 00188000 * END; 03S0180 00189000 * RENTRY=RENTRY+RLENS+1;/* TO NEXT ENTRY */ 00190000 @RF00175 LR @14,RENTRY 03S0181 00191000 ALR @14,RLENS 03S0181 00192000 AL @14,@CF00060 03S0181 00193000 LR RENTRY,@14 03S0181 00194000 * END; 03S0182 00195000 @DE00174 LTR RRETCODE,RRETCODE 03S0182 00196000 BNZ @DC00174 03S0182 00197000 CLI INVENT(RENTRY),X'FE' 03S0182 00198000 BNE @DL00174 03S0182 00199000 @DC00174 DS 0H 03S0183 00200000 * END; 03S0183 00201000 * END; 02S0184 00202000 * END; 02S0185 00203000 * END IEDNID 01S0186 00204000 * 01S0186 00205000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00206000 */*%INCLUDE SYSLIB (TAVTD ) */ 00207000 */*%INCLUDE SYSLIB (TBDUD ) */ 00208000 */*%INCLUDE SYSLIB (TINVLD ) */ 00209000 */*%INCLUDE SYSLIB (TLGBD ) */ 00210000 */*%INCLUDE SYSLIB (TPIU0D ) */ 00211000 */*%INCLUDE SYSLIB (TPRFD ) */ 00212000 */*%INCLUDE SYSLIB (TQCBD ) */ 00213000 */*%INCLUDE SYSLIB (TRHD ) */ 00214000 */*%INCLUDE SYSLIB (TTRMD ) */ 00215000 */*%INCLUDE SYSLIB (TTHD ) */ 00216000 */*%INCLUDE SYSUT5 (RFY ) */ 00217000 */*%INCLUDE SYSUT5 (DCL ) */ 00218000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 00219000 */*%INCLUDE SYSUT5 (PROCESS ) */ 00220000 */*%INCLUDE SYSUT5 (INITIAL ) */ 00221000 */*%INCLUDE SYSUT5 (VERIFY ) */ 00222000 */*%INCLUDE SYSUT5 (SPANUNIT) */ 00223000 * 01S0186 00224000 * ; 01S0186 00225000 @EL00001 DS 0H 01S0186 00226000 @EF00001 DS 0H 01S0186 00227000 @ER00001 L @14,12(,@13) 01S0186 00228000 LM @00,@12,20(@13) 01S0186 00229000 BR @14 01S0186 00230000 @DATA DS 0H 00231000 @SM01205 MVC IDAREA(0),IDENT(RID) 00232000 @SM01207 MVC 0(0,@09),IDENT(RID) 00233000 @SC01209 CLC INVENT(0,RENTRY),IDAREA 00234000 DS 0F 00235000 DS 0F 00236000 @CF00060 DC F'1' 00237000 @CF00686 DC F'10' 00238000 @CF01204 DC F'20' 00239000 DS 0D 00240000 IDAREA DC CL23' ' 00241000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00242000 @01 EQU 01 00243000 @02 EQU 02 00244000 @03 EQU 03 00245000 @04 EQU 04 00246000 @05 EQU 05 00247000 @06 EQU 06 00248000 @07 EQU 07 00249000 @08 EQU 08 00250000 @09 EQU 09 00251000 @10 EQU 10 00252000 @11 EQU 11 00253000 @12 EQU 12 00254000 @13 EQU 13 00255000 @14 EQU 14 00256000 @15 EQU 15 00257000 RINVL EQU @02 00258000 RLGB EQU @10 00259000 RAVT EQU @13 00260000 RPRF EQU @06 00261000 RQCB EQU @07 00262000 RTRM EQU @08 00263000 REG00 EQU @00 00264000 RPARM EQU @01 00265000 RID EQU @03 00266000 RLENS EQU @04 00267000 RLENI EQU @05 00268000 RLENA EQU @07 00269000 RENTRY EQU @11 00270000 RBASE EQU @12 00271000 RRETCODE EQU @15 00272000 REG15 EQU @15 00273000 REG09 EQU @09 00274000 REG11 EQU @11 00275000 REG14 EQU @14 00276000 IEDQAVTD EQU 0 00277000 AVTSAVEX EQU IEDQAVTD+216 00278000 @NM00003 EQU IEDQAVTD+316 00279000 AVTCKFLG EQU @NM00003 00280000 AVTBASE EQU IEDQAVTD+340 00281000 AVTPKF EQU AVTBASE 00282000 AVTRNMPT EQU IEDQAVTD+352 00283000 AVTHG02 EQU IEDQAVTD+456 00284000 AVTDISP EQU IEDQAVTD+480 00285000 AVTHD EQU IEDQAVTD+484 00286000 AVTSCOPT EQU AVTHD 00287000 AVTSAVTP EQU IEDQAVTD+540 00288000 AVTSAVTF EQU AVTSAVTP 00289000 AVTCKPEL EQU IEDQAVTD+580 00290000 AVTCKRMV EQU AVTCKPEL 00291000 AVTCKELF EQU IEDQAVTD+608 00292000 AVTCKBYT EQU IEDQAVTD+619 00293000 AVTHG01 EQU IEDQAVTD+620 00294000 AVTCKLNK EQU IEDQAVTD+624 00295000 AVTCRELE EQU IEDQAVTD+636 00296000 AVTCCELE EQU AVTCRELE 00297000 AVTCLRHI EQU IEDQAVTD+644 00298000 AVTADBUF EQU IEDQAVTD+648 00299000 AVTSYSER EQU IEDQAVTD+656 00300000 AVTCKPQB EQU IEDQAVTD+732 00301000 AVTCKPTB EQU AVTCKPQB 00302000 AVTCKPEC EQU AVTCKPQB+4 00303000 AVTCKPCC EQU AVTCKPEC 00304000 AVTOPCQB EQU IEDQAVTD+744 00305000 AVTOPCOB EQU AVTOPCQB 00306000 AVTOPCEC EQU AVTOPCQB+4 00307000 AVTOPCCC EQU AVTOPCEC 00308000 AVTOLTQB EQU IEDQAVTD+756 00309000 AVTCWFL1 EQU IEDQAVTD+852 00310000 AVTCWFL2 EQU IEDQAVTD+853 00311000 AVTSUBT EQU IEDQAVTD+876 00312000 AVTIOTR EQU IEDQAVTD+877 00313000 AVTKEYLE EQU IEDQAVTD+960 00314000 AVTBIT1 EQU IEDQAVTD+978 00315000 AVTBIT2 EQU IEDQAVTD+979 00316000 AVTBIT3 EQU IEDQAVTD+980 00317000 AVTBIT4 EQU IEDQAVTD+1064 00318000 @NM00083 EQU IEDQAVTD+1160 00319000 IEDQAPTR EQU 0 00320000 IEDNSVTD EQU 0 00321000 SAVTDIAG EQU IEDNSVTD 00322000 SAVTDIAF EQU SAVTDIAG 00323000 SAVTLUSQ EQU IEDNSVTD+88 00324000 SAVTTCPU EQU IEDNSVTD+238 00325000 SAVTZELM EQU IEDNSVTD+270 00326000 SAVTRDRV EQU IEDNSVTD+284 00327000 SAVTCKQB EQU IEDNSVTD+300 00328000 SAVTCKTB EQU SAVTCKQB 00329000 SAVTCKEC EQU SAVTCKQB+4 00330000 SAVTCKCC EQU SAVTCKEC 00331000 IEDBDU EQU 0 00332000 BDUFNFLG EQU IEDBDU+2 00333000 BDUBDUFG EQU IEDBDU+3 00334000 BDURSP EQU IEDBDU+4 00335000 BDUSYRSP EQU BDURSP 00336000 BDUEXRSP EQU BDURSP+1 00337000 BDUEND EQU IEDBDU+6 00338000 IEDINVL EQU 0 00339000 INVCTL EQU IEDINVL 00340000 INVENTLG EQU INVCTL+2 00341000 INVSTATS EQU INVCTL+3 00342000 INVCPUID EQU IEDINVL+4 00343000 INVBFRTM EQU INVCPUID 00344000 INVENTRY EQU IEDINVL+8 00345000 IEDNLGB EQU 0 00346000 LGBBUFOU EQU IEDNLGB+20 00347000 LGBPCI EQU IEDNLGB+25 00348000 LGBBYTE EQU IEDNLGB+29 00349000 LGBOFLGS EQU IEDNLGB+48 00350000 LGBILCT EQU IEDNLGB+52 00351000 LGBRESER EQU IEDNLGB+56 00352000 LGBIVLST EQU IEDNLGB+60 00353000 IEDNLPTR EQU 0 00354000 IEDPIU0 EQU 0 00355000 PIU0RH EQU IEDPIU0+10 00356000 PIU0PAD EQU IEDPIU0+13 00357000 IEDQPRF EQU 0 00358000 PRFRCB EQU IEDQPRF 00359000 PRFKEY EQU PRFRCB 00360000 PRFQCBA EQU PRFRCB+1 00361000 PRFPRI EQU PRFRCB+4 00362000 PRFLINK EQU PRFRCB+5 00363000 PRFTIC EQU IEDQPRF+8 00364000 PRFTICC EQU PRFTIC 00365000 PRFTI0 EQU PRFTIC+1 00366000 PRFNBUNT EQU IEDQPRF+12 00367000 PRFSUNIT EQU PRFNBUNT 00368000 PRFPLQCB EQU PRFSUNIT 00369000 PRFPIUO EQU PRFPLQCB 00370000 @NM00129 EQU IEDQPRF+16 00371000 PRFSVFFO EQU @NM00129 00372000 PRFSTAT1 EQU IEDQPRF+20 00373000 PRFEOFN EQU PRFSTAT1 00374000 PRFCORE EQU IEDQPRF+21 00375000 PRFXTRA EQU PRFCORE 00376000 PRFSCAN EQU IEDQPRF+24 00377000 PRFTQBCK EQU IEDQPRF+26 00378000 PRFNTXT EQU PRFTQBCK 00379000 PRFEOBOF EQU PRFNTXT 00380000 PRFCHDR EQU IEDQPRF+32 00381000 PRFHQBCK EQU IEDQPRF+35 00382000 IEDQPPTR EQU 0 00383000 IEDPF1 EQU 0 00384000 PRF1FLG1 EQU IEDPF1+3 00385000 PRF1WD2 EQU IEDPF1+4 00386000 PRF1SEQP EQU PRF1WD2 00387000 PRF1SQID EQU PRF1SEQP 00388000 PRF1TAG1 EQU PRF1SQID 00389000 IEDPF2 EQU 0 00390000 PRF2FLG2 EQU IEDPF2 00391000 PRF2WD2 EQU IEDPF2+4 00392000 IEDQQCB EQU 0 00393000 QCBDSFLG EQU IEDQQCB 00394000 QCBDISK EQU QCBDSFLG 00395000 QCBEOLDT EQU IEDQQCB+16 00396000 QCBBYTE1 EQU QCBEOLDT+1 00397000 QCBLKRLN EQU IEDQQCB+18 00398000 QCBRETCT EQU QCBLKRLN 00399000 QCBSTAT EQU IEDQQCB+19 00400000 QCBINSRC EQU IEDQQCB+21 00401000 @NM00137 EQU QCBINSRC 00402000 QCBTSOF2 EQU @NM00137+1 00403000 QCBTSOF1 EQU @NM00137+2 00404000 QCBINTVL EQU IEDQQCB+24 00405000 QCBPREN EQU IEDQQCB+28 00406000 QCBLKRRN EQU QCBPREN+1 00407000 QCBRELLN EQU IEDQQCB+32 00408000 QCBDCBAD EQU IEDQQCB+33 00409000 QCBLGBAD EQU QCBDCBAD 00410000 QCBFLAG EQU IEDQQCB+36 00411000 IEDQQPTR EQU 0 00412000 IEDQPQCB EQU 0 00413000 QCBFHDLZ EQU IEDQPQCB+3 00414000 QCBPFEFO EQU QCBFHDLZ+1 00415000 QCBFHDTZ EQU IEDQPQCB+6 00416000 QCBINTLF EQU IEDQPQCB+12 00417000 IEDNQCB EQU 0 00418000 QCBSTAT1 EQU IEDNQCB+4 00419000 QCBPLCBA EQU IEDNQCB+5 00420000 IEDRH EQU 0 00421000 TRHBYTE0 EQU IEDRH 00422000 TRHBYTE1 EQU IEDRH+1 00423000 TRHBYTE2 EQU IEDRH+2 00424000 IEDQTRM EQU 0 00425000 TRMSTATE EQU IEDQTRM 00426000 TRMLOG EQU TRMSTATE 00427000 TRMDESTQ EQU IEDQTRM+1 00428000 TRMINSEQ EQU IEDQTRM+4 00429000 TLISTCNT EQU TRMINSEQ 00430000 TRMOUTSQ EQU IEDQTRM+6 00431000 TLISTEN EQU TRMOUTSQ 00432000 TRMDSORG EQU TLISTEN 00433000 TRMALTD EQU IEDQTRM+8 00434000 TRMDEVFL EQU IEDQTRM+10 00435000 TRMSTAT EQU IEDQTRM+12 00436000 IEDQTPTR EQU 0 00437000 IEDNTRM EQU 0 00438000 TRMBYTE4 EQU IEDNTRM 00439000 TRMBYTE3 EQU IEDNTRM+1 00440000 TRMBYTE2 EQU IEDNTRM+2 00441000 TRMINPG EQU TRMBYTE2 00442000 TRMBYTE1 EQU IEDNTRM+3 00443000 TRMSCPRQ EQU TRMBYTE1 00444000 TRMBYTE0 EQU IEDNTRM+6 00445000 TRMSIBPT EQU IEDNTRM+7 00446000 IEDTH EQU 0 00447000 TTHBYTE0 EQU IEDTH 00448000 TTHOAF EQU IEDTH+4 00449000 TTHSNF EQU IEDTH+6 00450000 TTHTAG EQU TTHSNF 00451000 TTHTAG1 EQU TTHTAG 00452000 TTHDCF EQU IEDTH+8 00453000 INDEX EQU 0 00454000 TNTINDX EQU 0 00455000 ADINV EQU 0 00456000 IDENT EQU 0 00457000 INVENT EQU 0 00458000 IEDQTNT EQU 0 00459000 IEDQLPTR EQU 0 00460000 IEDQNPTR EQU 0 00461000 TRMPRE1 EQU TRMBYTE4 00462000 TRMNCP1 EQU TRMBYTE4 00463000 TRMPRE EQU TRMBYTE3 00464000 TRMNCP EQU TRMBYTE3 00465000 TRMPU EQU TRMBYTE3 00466000 TRMLU EQU TRMBYTE3 00467000 TRMLINK EQU TRMBYTE3 00468000 BDUTEXT EQU BDUEND 00469000 PRFSHDR EQU IEDQPRF+42 00470000 TRMOPT EQU IEDQTRM+20 00471000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00472000 @NM00156 EQU TRMLINK 00473000 TRMLSTAT EQU TRMLINK 00474000 TRMLINT EQU TRMLINK 00475000 TRMEPMOD EQU TRMLINK 00476000 TRMLULOG EQU TRMLU 00477000 TRMINERR EQU TRMLU 00478000 TRMLUREQ EQU TRMLU 00479000 TRMSESRQ EQU TRMLU 00480000 TRMTDIFF EQU TRMLU 00481000 TRMLUTM EQU TRMLU 00482000 TRMLUIT EQU TRMLU 00483000 TRMAUTO EQU TRMLU 00484000 TRMPCONT EQU TRMPU 00485000 @NM00155 EQU TRMPU 00486000 TRMNCONT EQU TRMNCP 00487000 TRMQUCKN EQU TRMNCP 00488000 TRMSLOWN EQU TRMNCP 00489000 TRMSYGEN EQU TRMNCP 00490000 TRMNCPCL EQU TRMNCP 00491000 TRMIPLDM EQU TRMNCP 00492000 TRMINOUT EQU TRMPRE 00493000 TRMRDOUT EQU TRMPRE 00494000 TRMNLOUT EQU TRMPRE 00495000 TRMWROUT EQU TRMPRE 00496000 TRMASNXI EQU TRMPRE 00497000 TRMSTMM EQU TRMPRE 00498000 TRMCMODE EQU TRMPRE 00499000 TRMSTPND EQU TRMPRE 00500000 @NM00154 EQU TRMNCP1 00501000 TRMINOP EQU TRMNCP1 00502000 TRMLYNCH EQU TRMPRE1 00503000 TRMSPOUT EQU TRMPRE1 00504000 TRMERLCK EQU TRMPRE1 00505000 TRMQNPL EQU TRMPRE1 00506000 TRMSPACT EQU TRMPRE1 00507000 TRMOCNI EQU TRMPRE1 00508000 TRMSESSN EQU TRMPRE1 00509000 TRMCONT EQU TRMPRE1 00510000 TTHTAG2 EQU TTHTAG+1 00511000 @NM00158 EQU TTHTAG1 00512000 TTHTAGS EQU TTHTAG1 00513000 TTHDAF EQU IEDTH+2 00514000 TTHBYTE1 EQU IEDTH+1 00515000 TTHEFI EQU TTHBYTE0 00516000 @NM00157 EQU TTHBYTE0 00517000 TTHEBIU EQU TTHBYTE0 00518000 TTHBBIU EQU TTHBYTE0 00519000 TTHFTYPE EQU TTHBYTE0 00520000 TRMSUBST EQU IEDNTRM+12 00521000 TRMTYPE EQU IEDNTRM+11 00522000 TRMRLMCT EQU IEDNTRM+10 00523000 TRMCOHTG EQU TRMSIBPT+1 00524000 TRMGPCNT EQU TRMSIBPT 00525000 TRMBUFRD EQU TRMBYTE0 00526000 TRMSNA EQU TRMBYTE0 00527000 TRMGP EQU TRMBYTE0 00528000 TRMDIAL EQU TRMBYTE0 00529000 @NM00153 EQU TRMBYTE0 00530000 TRMOUTPT EQU TRMBYTE0 00531000 TRMINPUT EQU TRMBYTE0 00532000 TRMUDEF EQU TRMBYTE0 00533000 TRMCOHRT EQU IEDNTRM+4 00534000 TRMSTOTE EQU TRMBYTE1 00535000 TRMCKPRN EQU TRMBYTE1 00536000 TRMTSATN EQU TRMBYTE1 00537000 TRMTRACE EQU TRMBYTE1 00538000 TRMSWBCK EQU TRMBYTE1 00539000 TRMAUTOC EQU TRMBYTE1 00540000 TRMINPTP EQU TRMBYTE1 00541000 TRMWTNEG EQU TRMSCPRQ 00542000 TRMWRBRK EQU TRMBYTE2 00543000 TRMNOSND EQU TRMBYTE2 00544000 TRMPREP EQU TRMBYTE2 00545000 TRMGPACT EQU TRMBYTE2 00546000 TRMANDL EQU TRMBYTE2 00547000 TRMCLOSN EQU TRMINPG 00548000 TRMREMB EQU TRMBYTE2 00549000 TRMRSACT EQU TRMBYTE2 00550000 TRMOPTBL EQU IEDQTRM+18 00551000 TRMOPNO EQU IEDQTRM+17 00552000 TRMCHCIN EQU IEDQTRM+16 00553000 TRMSENSE EQU TRMSTAT+3 00554000 TRMTEMPR EQU TRMSTAT+2 00555000 TRMSIO EQU TRMSTAT 00556000 @NM00152 EQU TRMDEVFL+1 00557000 TRMTPIN EQU TRMDEVFL+1 00558000 TRMNCPI EQU TRMDEVFL+1 00559000 TRMRNTRM EQU TRMDEVFL+1 00560000 @NM00151 EQU TRMDEVFL+1 00561000 TRMLMD EQU TRMDEVFL+1 00562000 TRMCONC EQU TRMDEVFL+1 00563000 TRMTSOB EQU TRMDEVFL 00564000 TRMBFDY EQU TRMDEVFL 00565000 TRMTBLK EQU TRMDEVFL 00566000 TRMSBLK EQU TRMDEVFL 00567000 TRMBLKS EQU TRMDEVFL 00568000 TRMADDC EQU TRMDEVFL 00569000 TRMDDIG EQU TRMDEVFL 00570000 TRMBUFS EQU TRMDEVFL 00571000 TRMPRILK EQU TRMALTD 00572000 TRMLGB EQU TRMDSORG 00573000 TRMUTERM EQU TLISTCNT 00574000 TRMSCNYN EQU TRMSTATE 00575000 TRMOPTFN EQU TRMSTATE 00576000 TRMHELDN EQU TRMSTATE 00577000 TRMACPTN EQU TRMSTATE 00578000 TRMPREF EQU TRMSTATE 00579000 TRMPROC EQU TRMLOG 00580000 TRMLIST EQU TRMLOG 00581000 TRMLINE EQU TRMSTATE 00582000 @NM00150 EQU TRHBYTE2 00583000 @NM00149 EQU TRHBYTE2 00584000 @NM00148 EQU TRHBYTE2 00585000 TRHCSI EQU TRHBYTE2 00586000 @NM00147 EQU TRHBYTE2 00587000 TRHCDI EQU TRHBYTE2 00588000 TRHEB EQU TRHBYTE2 00589000 TRHBB EQU TRHBYTE2 00590000 TRHPI EQU TRHBYTE1 00591000 @NM00146 EQU TRHBYTE1 00592000 @NM00145 EQU TRHBYTE1 00593000 @NM00144 EQU TRHBYTE1 00594000 TRHER EQU TRHBYTE1 00595000 TRHDR2 EQU TRHBYTE1 00596000 @NM00143 EQU TRHBYTE1 00597000 TRHDR1 EQU TRHBYTE1 00598000 TRHEC EQU TRHBYTE0 00599000 TRHBC EQU TRHBYTE0 00600000 TRHSDI EQU TRHBYTE0 00601000 TRHFI EQU TRHBYTE0 00602000 @NM00142 EQU TRHBYTE0 00603000 TRHRUCAT EQU TRHBYTE0 00604000 TRHTYPE EQU TRHBYTE0 00605000 QCBTTCIN EQU QCBPLCBA+1 00606000 @NM00141 EQU QCBPLCBA 00607000 @NM00140 EQU QCBSTAT1 00608000 QCBFLUSH EQU QCBSTAT1 00609000 QCBNDXRQ EQU QCBSTAT1 00610000 QCBESIG EQU QCBSTAT1 00611000 QCBRCVRQ EQU QCBSTAT1 00612000 QCBSNDRQ EQU QCBSTAT1 00613000 QCBWAITC EQU QCBSTAT1 00614000 QCBPLCBN EQU QCBSTAT1 00615000 QCBCHAIN EQU IEDNQCB 00616000 QCBPQBCK EQU IEDQPQCB+25 00617000 QCBPRIPQ EQU IEDQPQCB+24 00618000 QCBCFHDR EQU IEDQPQCB+21 00619000 QCBLFEFO EQU IEDQPQCB+18 00620000 QCBFFEFO EQU IEDQPQCB+15 00621000 QCBPREVF EQU QCBINTLF 00622000 QCBINTFF EQU IEDQPQCB+9 00623000 QCBDATSQ EQU QCBFHDTZ+1 00624000 @NM00139 EQU QCBFHDTZ 00625000 @NM00138 EQU QCBPFEFO 00626000 QCBDATFL EQU QCBFHDLZ 00627000 QCBDNHDR EQU IEDQPQCB 00628000 QCBQBACK EQU IEDQQCB+37 00629000 QCBCKPT EQU QCBFLAG 00630000 QCBPROC EQU QCBFLAG 00631000 QCBSDFFO EQU QCBFLAG 00632000 QCBTERMQ EQU QCBFLAG 00633000 QCBRSRV EQU QCBFLAG 00634000 QCBREAD EQU QCBFLAG 00635000 QCBNOBRK EQU QCBFLAG 00636000 QCBTSSES EQU QCBFLAG 00637000 QCBTJID EQU QCBLKRRN+1 00638000 QCBCARCT EQU QCBLKRRN 00639000 QCBPRLVL EQU QCBPREN 00640000 QCBMSGCT EQU IEDQQCB+26 00641000 QCBEXTO EQU QCBINTVL 00642000 QCBDISC EQU QCBTSOF1 00643000 QCBDELAY EQU QCBTSOF1 00644000 QCBPARTO EQU QCBTSOF1 00645000 QCBSATRD EQU QCBTSOF1 00646000 QCBNOBUF EQU QCBTSOF1 00647000 QCBTPUT EQU QCBTSOF1 00648000 QCBTGET EQU QCBTSOF1 00649000 QCBWRBRK EQU QCBTSOF1 00650000 QCBSATLC EQU QCBTSOF2 00651000 QCBSATTI EQU QCBTSOF2 00652000 QCBSATCH EQU QCBTSOF2 00653000 QCBSIMRD EQU QCBTSOF2 00654000 QCBDSSMI EQU QCBTSOF2 00655000 QCBPOSTO EQU QCBTSOF2 00656000 QCBBUFQ EQU QCBTSOF2 00657000 QCBINHBN EQU QCBTSOF2 00658000 QCBSATCT EQU @NM00137 00659000 QCBSCBOF EQU IEDQQCB+20 00660000 QCBTIME EQU QCBSTAT 00661000 QCBCLOCK EQU QCBSTAT 00662000 QCBSCHDL EQU QCBSTAT 00663000 QCBSMODE EQU QCBSTAT 00664000 QCBSEND EQU QCBSTAT 00665000 QCBBUFRD EQU QCBSTAT 00666000 QCBTRMHO EQU QCBSTAT 00667000 QCBEOM EQU QCBSTAT 00668000 QCBHUCT EQU QCBRETCT 00669000 QCBIEND EQU QCBRETCT 00670000 QCBEND EQU QCBRETCT 00671000 QCBNL EQU QCBRETCT 00672000 QCBLOGCT EQU QCBRETCT 00673000 @NM00136 EQU QCBBYTE1 00674000 QCBRITRM EQU QCBBYTE1 00675000 @NM00135 EQU QCBEOLDT 00676000 QCBSLINK EQU IEDQQCB+13 00677000 QCBSTPRI EQU IEDQQCB+12 00678000 QCBSTCHN EQU IEDQQCB+9 00679000 QCBSTVTO EQU IEDQQCB+8 00680000 QCBLINK EQU IEDQQCB+5 00681000 QCBPRI EQU IEDQQCB+4 00682000 QCBELCHN EQU IEDQQCB+1 00683000 QCBHELD EQU QCBDSFLG 00684000 QCBFQCB EQU QCBDSFLG 00685000 QCBDRQQ EQU QCBDSFLG 00686000 QCBALTMH EQU QCBDSFLG 00687000 QCBREUS EQU QCBDISK 00688000 QCBNREUS EQU QCBDISK 00689000 QCBCORE EQU QCBDSFLG 00690000 QCBTSQ EQU QCBDSFLG 00691000 PRF2SEQP EQU PRF2WD2 00692000 @NM00134 EQU IEDPF2+1 00693000 @NM00133 EQU PRF2FLG2 00694000 PRF2SMI EQU PRF2FLG2 00695000 PRF2FORM EQU PRF2FLG2 00696000 PRF2TNTI EQU PRF2FLG2 00697000 PRF1RULN EQU PRF1SEQP+2 00698000 PRF1TAG2 EQU PRF1SQID+1 00699000 @NM00132 EQU PRF1TAG1 00700000 PRF1TAGS EQU PRF1TAG1 00701000 @NM00131 EQU PRF1FLG1 00702000 PRF1LOGD EQU PRF1FLG1 00703000 PRF1USS EQU PRF1FLG1 00704000 PRF1FORM EQU PRF1FLG1 00705000 PRF1EXPI EQU PRF1FLG1 00706000 PRF1FIDI EQU PRF1FLG1 00707000 PRF1RH EQU IEDPF1 00708000 PRFDEST EQU IEDQPRF+40 00709000 PRFISEQ EQU IEDQPRF+38 00710000 PRFSTXT EQU PRFHQBCK 00711000 PRFNHDR EQU PRFCHDR 00712000 PRFCRCD EQU IEDQPRF+29 00713000 PRFSVSEQ EQU PRFNTXT+1 00714000 PRFSVPRI EQU PRFEOBOF 00715000 PRFISIZE EQU PRFSCAN+1 00716000 @NM00130 EQU PRFSCAN 00717000 PRFEOB EQU PRFXTRA+1 00718000 PRFSTSO EQU PRFXTRA 00719000 PRFNHDRN EQU PRFSTAT1 00720000 PRFNLSTN EQU PRFSTAT1 00721000 PRFLOCK EQU PRFEOFN 00722000 PRFDUPLN EQU PRFSTAT1 00723000 PRFTSMSG EQU PRFSTAT1 00724000 PRFITCPN EQU PRFSTAT1 00725000 PRFERMGN EQU PRFSTAT1 00726000 PRFCNCLN EQU PRFSTAT1 00727000 PRFSVFLG EQU @NM00129+3 00728000 PRFSIZE EQU PRFSVFFO+2 00729000 PRFSRCE EQU PRFSVFFO 00730000 PRFLCB EQU IEDQPRF+13 00731000 @NM00128 EQU PRFTICC 00732000 @NM00127 EQU PRFTICC 00733000 @NM00126 EQU PRFTICC 00734000 PRFTICON EQU PRFTICC 00735000 @NM00125 EQU PRFTICC 00736000 @NM00124 EQU PRFTICC 00737000 PRFBFMM EQU PRFTICC 00738000 PRFEOMSG EQU PRFTICC 00739000 PRFCOUNT EQU PRFLINK+1 00740000 @NM00123 EQU PRFLINK 00741000 PRFFLAGS EQU PRFPRI 00742000 PRFIOADR EQU PRFQCBA 00743000 PRFOPCDE EQU PRFKEY 00744000 PIU0RU EQU IEDPIU0+14 00745000 PIU0TH EQU IEDPIU0 00746000 LGBRESV4 EQU LGBRESER+3 00747000 LGBRESV3 EQU LGBRESER+2 00748000 LGBRESV2 EQU LGBRESER+1 00749000 LGBRESV1 EQU LGBRESER 00750000 LGBBUFSI EQU IEDNLGB+54 00751000 @NM00122 EQU IEDNLGB+53 00752000 LGBSCTAD EQU IEDNLGB+49 00753000 @NM00121 EQU LGBOFLGS 00754000 LGBOPEN EQU LGBOFLGS 00755000 @NM00120 EQU LGBOFLGS 00756000 LGBNAME EQU IEDNLGB+40 00757000 @NM00119 EQU IEDNLGB+36 00758000 LGBTRANS EQU IEDNLGB+33 00759000 @NM00118 EQU IEDNLGB+32 00760000 @NM00117 EQU IEDNLGB+31 00761000 LGBOPACE EQU IEDNLGB+30 00762000 @NM00116 EQU LGBBYTE 00763000 LGBPACK EQU LGBBYTE 00764000 LGBBUFMA EQU IEDNLGB+28 00765000 LGBDSORG EQU IEDNLGB+26 00766000 @NM00115 EQU LGBPCI 00767000 @NM00114 EQU LGBPCI 00768000 LGBPCINO EQU LGBPCI 00769000 @NM00113 EQU LGBPCI 00770000 LGBPCIAO EQU LGBPCI 00771000 @NM00112 EQU LGBPCI 00772000 @NM00111 EQU LGBPCI 00773000 @NM00110 EQU LGBPCI 00774000 @NM00109 EQU IEDNLGB+24 00775000 LGBMHA EQU IEDNLGB+21 00776000 @NM00108 EQU LGBBUFOU 00777000 LGBPREF EQU LGBBUFOU 00778000 @NM00107 EQU LGBBUFOU 00779000 LGBSUBST EQU IEDNLGB+18 00780000 LGBTYPE EQU IEDNLGB+17 00781000 @NM00106 EQU IEDNLGB 00782000 INVTRMCT EQU INVBFRTM+3 00783000 @NM00105 EQU INVBFRTM+2 00784000 INVUCBST EQU INVBFRTM+1 00785000 INVACTCT EQU INVBFRTM 00786000 INVAUTPL EQU INVSTATS 00787000 @NM00104 EQU INVSTATS 00788000 INVCRR EQU INVSTATS 00789000 @NM00103 EQU INVSTATS 00790000 INVCONT EQU INVSTATS 00791000 INVOFSRT EQU INVSTATS 00792000 INVEOT EQU INVSTATS 00793000 INVACTNT EQU INVCTL+1 00794000 INVTOTNT EQU INVCTL 00795000 BDUXGRPH EQU BDUEXRSP 00796000 BDUXFINL EQU BDUEXRSP 00797000 BDUXINIT EQU BDUEXRSP 00798000 BDURESP EQU BDUSYRSP 00799000 BDUPHASE EQU BDUSYRSP 00800000 BDUERROR EQU BDUSYRSP 00801000 BDUXERLK EQU BDUBDUFG 00802000 BDUALTAK EQU BDUFNFLG 00803000 BDUNEGAK EQU BDUFNFLG 00804000 BDUPOSAK EQU BDUFNFLG 00805000 BDUTPTX EQU BDUFNFLG 00806000 BDUFRSTB EQU BDUFNFLG 00807000 BDULEADG EQU BDUFNFLG 00808000 BDUHEADR EQU BDUFNFLG 00809000 BDUSTHDR EQU BDUFNFLG 00810000 BDUMODIF EQU IEDBDU+1 00811000 BDUCMND EQU IEDBDU 00812000 SAVTBITN EQU IEDNSVTD+312 00813000 @NM00102 EQU SAVTCKQB+8 00814000 @NM00101 EQU SAVTCKEC+1 00815000 @NM00100 EQU SAVTCKCC 00816000 SAVTCKPO EQU SAVTCKCC 00817000 SAVTCKWA EQU SAVTCKCC 00818000 SAVTCKCH EQU SAVTCKTB+1 00819000 SAVTCKVT EQU SAVTCKTB 00820000 @NM00099 EQU IEDNSVTD+297 00821000 SAVTRDFG EQU SAVTRDRV+12 00822000 @NM00098 EQU SAVTRDRV+5 00823000 SAVTRDPY EQU SAVTRDRV+4 00824000 SAVTRDQB EQU SAVTRDRV+1 00825000 SAVTRDKY EQU SAVTRDRV 00826000 SAVTNID EQU IEDNSVTD+280 00827000 SAVTDVAS EQU IEDNSVTD+276 00828000 SAVTPLSZ EQU IEDNSVTD+274 00829000 @NM00097 EQU IEDNSVTD+273 00830000 SAVTSUBL EQU IEDNSVTD+272 00831000 @NM00096 EQU SAVTZELM+1 00832000 SAVTSUBM EQU SAVTZELM 00833000 SAVTMHDX EQU IEDNSVTD+268 00834000 SAVTNAT1 EQU IEDNSVTD+266 00835000 SAVTSH20 EQU IEDNSVTD+264 00836000 SAVTLCBS EQU IEDNSVTD+260 00837000 SAVTRNMP EQU IEDNSVTD+256 00838000 SAVTTNTX EQU IEDNSVTD+252 00839000 SAVTNAX EQU IEDNSVTD+248 00840000 SAVTSUBV EQU IEDNSVTD+247 00841000 SAVTSUBA EQU IEDNSVTD+246 00842000 SAVTSIBC EQU IEDNSVTD+244 00843000 SAVTBSM EQU IEDNSVTD+240 00844000 SAVTSCPT EQU SAVTTCPU 00845000 SAVTRQTG EQU IEDNSVTD+236 00846000 SAVTRQCH EQU IEDNSVTD+232 00847000 SAVTMAND EQU IEDNSVTD+228 00848000 SAVTSPLN EQU IEDNSVTD+224 00849000 SAVTNADL EQU IEDNSVTD+222 00850000 SAVTNATL EQU IEDNSVTD+220 00851000 SAVTMHTB EQU IEDNSVTD+216 00852000 SAVTSSMH EQU IEDNSVTD+212 00853000 SAVTQRS EQU IEDNSVTD+208 00854000 SAVTRQIN EQU IEDNSVTD+204 00855000 SAVTDFCO EQU IEDNSVTD+200 00856000 SAVTSAO EQU IEDNSVTD+196 00857000 SAVTSARI EQU IEDNSVTD+192 00858000 SAVTSAC EQU IEDNSVTD+188 00859000 SAVTSAI EQU IEDNSVTD+184 00860000 SAVTCSCI EQU IEDNSVTD+180 00861000 SAVTSSRP EQU IEDNSVTD+176 00862000 SAVTSSRQ EQU IEDNSVTD+172 00863000 SAVTSCLU EQU IEDNSVTD+168 00864000 SAVTXTRQ EQU IEDNSVTD+164 00865000 SAVTMVBF EQU IEDNSVTD+160 00866000 @NM00095 EQU IEDNSVTD+148 00867000 SAVTIPCQ EQU IEDNSVTD+144 00868000 @NM00094 EQU IEDNSVTD+136 00869000 SAVTXFMI EQU IEDNSVTD+132 00870000 @NM00093 EQU IEDNSVTD+124 00871000 SAVTXFMO EQU IEDNSVTD+120 00872000 @NM00092 EQU IEDNSVTD+116 00873000 SAVTSSSR EQU IEDNSVTD+112 00874000 SAVTSCPQ EQU IEDNSVTD+108 00875000 SAVTSLCB EQU IEDNSVTD+104 00876000 SAVTLUSR EQU IEDNSVTD+100 00877000 @NM00091 EQU SAVTLUSQ+8 00878000 SAVTLUSP EQU SAVTLUSQ+4 00879000 SAVTLUSB EQU SAVTLUSQ 00880000 @NM00090 EQU IEDNSVTD+84 00881000 SAVTSAT EQU IEDNSVTD+80 00882000 SAVTNAT EQU IEDNSVTD+76 00883000 SAVTCLUP EQU IEDNSVTD+72 00884000 SAVTPIUT EQU IEDNSVTD+68 00885000 SAVTRNTA EQU IEDNSVTD+64 00886000 SAVTDNIR EQU IEDNSVTD+60 00887000 SAVTCNIR EQU IEDNSVTD+56 00888000 SAVTFLDH EQU IEDNSVTD+52 00889000 SAVTSRTN EQU IEDNSVTD+48 00890000 SAVTSREQ EQU IEDNSVTD+44 00891000 SAVTFAIL EQU IEDNSVTD+42 00892000 SAVTSUSE EQU IEDNSVTD+40 00893000 SAVTSIB EQU IEDNSVTD+36 00894000 SAVTPRTN EQU IEDNSVTD+32 00895000 @NM00089 EQU IEDNSVTD+28 00896000 SAVTWH20 EQU IEDNSVTD+26 00897000 SAVTPWT EQU IEDNSVTD+24 00898000 SAVTPRTQ EQU IEDNSVTD+20 00899000 SAVTPREQ EQU IEDNSVTD+16 00900000 SAVTPH20 EQU IEDNSVTD+14 00901000 SAVTPUSE EQU IEDNSVTD+12 00902000 SAVTPLCB EQU IEDNSVTD+8 00903000 SAVTPOOL EQU IEDNSVTD+4 00904000 SAVTPRMT EQU SAVTDIAF 00905000 SAVTVIRT EQU SAVTDIAF 00906000 AVTCPBNO EQU IEDQAVTD+1172 00907000 AVTHRESS EQU IEDQAVTD+1171 00908000 @NM00088 EQU IEDQAVTD+1170 00909000 @NM00087 EQU IEDQAVTD+1169 00910000 @NM00086 EQU IEDQAVTD+1168 00911000 @NM00085 EQU IEDQAVTD+1165 00912000 @NM00084 EQU IEDQAVTD+1164 00913000 AVTHRESE EQU @NM00083 00914000 AVTRADDR EQU IEDQAVTD+1156 00915000 AVTNADDR EQU IEDQAVTD+1152 00916000 AVTHRESN EQU IEDQAVTD+1148 00917000 AVTVOLRN EQU IEDQAVTD+1144 00918000 AVTTOTNN EQU IEDQAVTD+1140 00919000 AVTTRCYN EQU IEDQAVTD+1136 00920000 AVTRCTRN EQU IEDQAVTD+1132 00921000 AVTNOVON EQU IEDQAVTD+1128 00922000 AVTADEBN EQU IEDQAVTD+1124 00923000 AVTVOLRR EQU IEDQAVTD+1120 00924000 AVTTOTNR EQU IEDQAVTD+1116 00925000 AVTTRCYR EQU IEDQAVTD+1112 00926000 AVTRCTRR EQU IEDQAVTD+1108 00927000 AVTNOVOR EQU IEDQAVTD+1104 00928000 AVTADEBR EQU IEDQAVTD+1100 00929000 AVTLODPT EQU IEDQAVTD+1096 00930000 AVTIOBN EQU IEDQAVTD+1092 00931000 AVTIOBR EQU IEDQAVTD+1088 00932000 AVTCPBPT EQU IEDQAVTD+1084 00933000 AVTFCPB EQU IEDQAVTD+1080 00934000 @NM00082 EQU IEDQAVTD+1076 00935000 AVTINCPQ EQU IEDQAVTD+1072 00936000 @NM00081 EQU IEDQAVTD+1068 00937000 @NM00080 EQU IEDQAVTD+1065 00938000 @NM00079 EQU AVTBIT4 00939000 @NM00078 EQU AVTBIT4 00940000 @NM00077 EQU AVTBIT4 00941000 @NM00076 EQU AVTBIT4 00942000 @NM00075 EQU AVTBIT4 00943000 @NM00074 EQU AVTBIT4 00944000 @NM00073 EQU AVTBIT4 00945000 AVTRUFTN EQU AVTBIT4 00946000 @NM00072 EQU IEDQAVTD+1060 00947000 AVTNOBFQ EQU IEDQAVTD+1056 00948000 @NM00071 EQU IEDQAVTD+1052 00949000 AVTDKENQ EQU IEDQAVTD+1048 00950000 @NM00070 EQU IEDQAVTD+1044 00951000 AVTDKAPQ EQU IEDQAVTD+1040 00952000 AVTCOPY EQU IEDQAVTD+1036 00953000 AVTIA EQU IEDQAVTD+1032 00954000 AVTFL EQU IEDQAVTD+1028 00955000 @NM00069 EQU IEDQAVTD+1024 00956000 AVTNCPBQ EQU IEDQAVTD+1020 00957000 AVTTOTNC EQU IEDQAVTD+1016 00958000 AVTCMAX EQU IEDQAVTD+1012 00959000 AVTCMIN EQU IEDQAVTD+1008 00960000 AVTHM02 EQU IEDQAVTD+1004 00961000 AVTOPCIN EQU IEDQAVTD+1002 00962000 AVTDCTLN EQU IEDQAVTD+1000 00963000 AVTOPMSK EQU IEDQAVTD+996 00964000 AVTDDFT EQU IEDQAVTD+992 00965000 AVTSTEAL EQU IEDQAVTD+988 00966000 AVTOPTN EQU IEDQAVTD+984 00967000 AVTDSKCT EQU IEDQAVTD+982 00968000 AVTCKRST EQU IEDQAVTD+981 00969000 AVTSTAN EQU AVTBIT3 00970000 AVTSTACN EQU AVTBIT3 00971000 AVTSTAIN EQU AVTBIT3 00972000 AVTSTAYN EQU AVTBIT3 00973000 AVTOLTBN EQU AVTBIT3 00974000 AVTTSAB EQU AVTBIT3 00975000 AVTRFULN EQU AVTBIT3 00976000 AVTRECVN EQU AVTBIT3 00977000 @NM00068 EQU AVTBIT2 00978000 @NM00067 EQU AVTBIT2 00979000 AVTOPEIN EQU AVTBIT2 00980000 AVTSTRTN EQU AVTBIT2 00981000 AVTTOPOL EQU AVTBIT2 00982000 AVTCOPYN EQU AVTBIT2 00983000 AVTREUSN EQU AVTBIT2 00984000 AVTEXTSC EQU AVTBIT2 00985000 AVTDISKN EQU AVTBIT1 00986000 AVTQUCKN EQU AVTBIT1 00987000 AVTCLOSN EQU AVTBIT1 00988000 AVTREADN EQU AVTBIT1 00989000 AVTDLAYN EQU AVTBIT1 00990000 AVTAQTAN EQU AVTBIT1 00991000 AVTTSON EQU AVTBIT1 00992000 AVTAPLKN EQU AVTBIT1 00993000 AVTDUMBR EQU IEDQAVTD+976 00994000 AVTDLQX EQU IEDQAVTD+974 00995000 AVTINTLV EQU IEDQAVTD+972 00996000 AVTSMCNT EQU IEDQAVTD+970 00997000 AVTAVFCT EQU IEDQAVTD+968 00998000 AVTOPCON EQU IEDQAVTD+966 00999000 AVTOPCNT EQU IEDQAVTD+964 01000000 AVTLNCNT EQU IEDQAVTD+962 01001000 AVTHA16 EQU IEDQAVTD+958 01002000 AVTHA7 EQU IEDQAVTD+956 01003000 AVTHA4 EQU IEDQAVTD+954 01004000 AVTHA3 EQU IEDQAVTD+952 01005000 AVTHA2 EQU IEDQAVTD+950 01006000 AVTGETMS EQU IEDQAVTD+949 01007000 @NM00066 EQU IEDQAVTD+948 01008000 AVTGETMD EQU IEDQAVTD+944 01009000 AVTGETMN EQU IEDQAVTD+940 01010000 AVTCWTOT EQU IEDQAVTD+936 01011000 AVTCWINT EQU IEDQAVTD+884 01012000 AVTDTRAP EQU IEDQAVTD+880 01013000 @NM00065 EQU IEDQAVTD+878 01014000 @NM00064 EQU AVTIOTR 01015000 AVTIOTRH EQU AVTIOTR 01016000 AVTIOTRE EQU AVTIOTR 01017000 @NM00063 EQU AVTSUBT 01018000 AVTSUBPT EQU AVTSUBT 01019000 AVTSUBON EQU AVTSUBT 01020000 AVTAFE30 EQU IEDQAVTD+872 01021000 AVTAFE20 EQU IEDQAVTD+868 01022000 AVTAFE10 EQU IEDQAVTD+864 01023000 AVTCWEC2 EQU IEDQAVTD+860 01024000 AVTCWPM2 EQU IEDQAVTD+856 01025000 AVTCWTS2 EQU IEDQAVTD+855 01026000 AVTCWTS1 EQU IEDQAVTD+854 01027000 AVTCWCLD EQU AVTCWFL2 01028000 AVTCWRAP EQU AVTCWFL2 01029000 @NM00062 EQU AVTCWFL2 01030000 @NM00061 EQU AVTCWFL2 01031000 @NM00060 EQU AVTCWFL2 01032000 @NM00059 EQU AVTCWFL2 01033000 @NM00058 EQU AVTCWFL2 01034000 AVTCWACT EQU AVTCWFL2 01035000 @NM00057 EQU AVTCWFL1 01036000 @NM00056 EQU AVTCWFL1 01037000 @NM00055 EQU AVTCWFL1 01038000 @NM00054 EQU AVTCWFL1 01039000 @NM00053 EQU AVTCWFL1 01040000 @NM00052 EQU AVTCWFL1 01041000 @NM00051 EQU AVTCWFL1 01042000 AVTCOMWN EQU AVTCWFL1 01043000 AVTCWEC1 EQU IEDQAVTD+848 01044000 AVTCWPM1 EQU IEDQAVTD+844 01045000 AVTCAREA EQU IEDQAVTD+840 01046000 AVTFZERO EQU IEDQAVTD+836 01047000 AVTCADDR EQU IEDQAVTD+832 01048000 AVTCOREC EQU IEDQAVTD+828 01049000 @NM00050 EQU IEDQAVTD+820 01050000 AVTCPBCB EQU IEDQAVTD+816 01051000 @NM00049 EQU IEDQAVTD+808 01052000 AVTDSIOB EQU IEDQAVTD+804 01053000 @NM00048 EQU IEDQAVTD+796 01054000 AVTCPRMB EQU IEDQAVTD+792 01055000 @NM00047 EQU IEDQAVTD+784 01056000 AVTCLOSB EQU IEDQAVTD+780 01057000 @NM00046 EQU IEDQAVTD+772 01058000 AVTACTIB EQU IEDQAVTD+768 01059000 @NM00045 EQU IEDQAVTD+764 01060000 AVTOLTEB EQU IEDQAVTD+760 01061000 AVTOLTCH EQU AVTOLTQB+1 01062000 AVTOLTVT EQU AVTOLTQB 01063000 @NM00044 EQU AVTOPCQB+8 01064000 @NM00043 EQU AVTOPCEC+1 01065000 @NM00042 EQU AVTOPCCC 01066000 AVTOPCPO EQU AVTOPCCC 01067000 AVTOPCWA EQU AVTOPCCC 01068000 AVTOPCCH EQU AVTOPCOB+1 01069000 AVTOPCVT EQU AVTOPCOB 01070000 @NM00041 EQU AVTCKPQB+9 01071000 AVTCKPTS EQU AVTCKPQB+8 01072000 @NM00040 EQU AVTCKPEC+1 01073000 @NM00039 EQU AVTCKPCC 01074000 AVTCKPPO EQU AVTCKPCC 01075000 AVTCKPWA EQU AVTCKPCC 01076000 AVTCKPCH EQU AVTCKPTB+1 01077000 AVTCKPVT EQU AVTCKPTB 01078000 @NM00038 EQU IEDQAVTD+724 01079000 AVTBFRTB EQU IEDQAVTD+720 01080000 @NM00037 EQU IEDQAVTD+712 01081000 AVTBFREB EQU IEDQAVTD+708 01082000 AVTTIMQ EQU IEDQAVTD+704 01083000 @NM00036 EQU IEDQAVTD+700 01084000 AVTIMQPS EQU IEDQAVTD+696 01085000 AVTINOUT EQU IEDQAVTD+694 01086000 AVTREFTM EQU IEDQAVTD+692 01087000 @NM00035 EQU IEDQAVTD+680 01088000 AVTDELYB EQU IEDQAVTD+676 01089000 AVTOCQPT EQU IEDQAVTD+672 01090000 AVTTSOPT EQU IEDQAVTD+668 01091000 AVTSUPPT EQU IEDQAVTD+664 01092000 AVTCBQCB EQU IEDQAVTD+660 01093000 AVTMSGS EQU IEDQAVTD+657 01094000 @NM00034 EQU AVTSYSER 01095000 @NM00033 EQU AVTSYSER 01096000 @NM00032 EQU AVTSYSER 01097000 @NM00031 EQU AVTSYSER 01098000 @NM00030 EQU AVTSYSER 01099000 @NM00029 EQU AVTSYSER 01100000 AVTCMAXN EQU AVTSYSER 01101000 AVTCMINN EQU AVTSYSER 01102000 AVT2260L EQU IEDQAVTD+652 01103000 AVTABEPL EQU AVTADBUF 01104000 AVTHFF EQU AVTCLRHI+2 01105000 @NM00028 EQU AVTCLRHI 01106000 AVTCCLNK EQU AVTCRELE+5 01107000 AVTCCPRI EQU AVTCRELE+4 01108000 AVTCCQCB EQU AVTCCELE+1 01109000 AVTCCKEY EQU AVTCCELE 01110000 AVTDELAD EQU IEDQAVTD+632 01111000 AVTDELEM EQU IEDQAVTD+628 01112000 AVTBSX EQU AVTCKLNK 01113000 AVTOPETR EQU AVTHG01 01114000 @NM00027 EQU AVTCKBYT 01115000 AVTCKONQ EQU AVTCKBYT 01116000 @NM00026 EQU AVTCKBYT 01117000 @NM00025 EQU AVTCKBYT 01118000 @NM00024 EQU AVTCKBYT 01119000 @NM00023 EQU AVTCKBYT 01120000 @NM00022 EQU AVTCKBYT 01121000 @NM00021 EQU AVTCKBYT 01122000 AVTOPERT EQU IEDQAVTD+618 01123000 AVTOPXCL EQU IEDQAVTD+616 01124000 AVTOPERL EQU IEDQAVTD+615 01125000 @NM00020 EQU IEDQAVTD+614 01126000 AVTCKTIM EQU IEDQAVTD+612 01127000 AVTCKELV EQU IEDQAVTD+610 01128000 AVTCPRCD EQU IEDQAVTD+609 01129000 AVTWARMN EQU AVTCKELF 01130000 AVTCRTLN EQU AVTCKELF 01131000 AVTCPIPN EQU AVTCKELF 01132000 AVTCCLCN EQU AVTCKELF 01133000 AVTCINCN EQU AVTCKELF 01134000 @NM00019 EQU AVTCKELF 01135000 AVTCMCPN EQU AVTCKELF 01136000 AVTCRDYN EQU AVTCKELF 01137000 AVTCKQAD EQU IEDQAVTD+605 01138000 AVTSCBSZ EQU IEDQAVTD+604 01139000 @NM00018 EQU IEDQAVTD+600 01140000 AVTCKELE EQU IEDQAVTD+596 01141000 @NM00017 EQU AVTCKPEL+8 01142000 AVTCKRLK EQU AVTCKPEL+5 01143000 AVTCKRPR EQU AVTCKPEL+4 01144000 AVTCKRMQ EQU AVTCKRMV+1 01145000 AVTCKRKY EQU AVTCKRMV 01146000 AVTHK EQU IEDQAVTD+576 01147000 AVTHI EQU IEDQAVTD+572 01148000 AVTIOT EQU IEDQAVTD+568 01149000 AVTNX EQU IEDQAVTD+564 01150000 AVTTONE EQU IEDQAVTD+560 01151000 AVTA3TL EQU IEDQAVTD+556 01152000 AVTDMECB EQU IEDQAVTD+552 01153000 AVTABEND EQU IEDQAVTD+546 01154000 AVTPLCBN EQU IEDQAVTD+544 01155000 @NM00016 EQU AVTSAVTP+1 01156000 @NM00015 EQU AVTSAVTF 01157000 AVTSNA EQU AVTSAVTF 01158000 AVTONSNA EQU AVTSAVTF 01159000 AVTVTMCP EQU AVTSAVTF 01160000 @NM00014 EQU IEDQAVTD+536 01161000 AVTCMBSS EQU IEDQAVTD+532 01162000 AVTRCV EQU IEDQAVTD+528 01163000 AVTSEND EQU IEDQAVTD+524 01164000 AVTCSCH EQU IEDQAVTD+520 01165000 AVTQ1 EQU IEDQAVTD+516 01166000 AVTE7 EQU IEDQAVTD+512 01167000 AVTHB EQU IEDQAVTD+508 01168000 AVTR1 EQU IEDQAVTD+504 01169000 AVTBZ EQU IEDQAVTD+500 01170000 AVTEZ EQU IEDQAVTD+496 01171000 AVTEC EQU IEDQAVTD+492 01172000 AVTEW EQU IEDQAVTD+488 01173000 AVTNDIAL EQU AVTSCOPT 01174000 AVTN2741 EQU AVTSCOPT 01175000 AVTCONCO EQU AVTSCOPT 01176000 AVTCONC EQU AVTSCOPT 01177000 AVTCMBUF EQU AVTSCOPT 01178000 AVTAPDMP EQU AVTSCOPT 01179000 @NM00013 EQU AVTSCOPT 01180000 AVTHA EQU AVTDISP 01181000 AVTEA EQU IEDQAVTD+476 01182000 AVTAX EQU IEDQAVTD+472 01183000 AVTA3 EQU IEDQAVTD+468 01184000 AVTGD EQU IEDQAVTD+464 01185000 AVTAL EQU IEDQAVTD+460 01186000 AVTOLTST EQU AVTHG02 01187000 AVTE8 EQU IEDQAVTD+452 01188000 AVTUI EQU IEDQAVTD+448 01189000 AVTCOMPT EQU IEDQAVTD+444 01190000 AVTCRSRF EQU IEDQAVTD+440 01191000 @NM00012 EQU IEDQAVTD+436 01192000 AVTKA02 EQU IEDQAVTD+432 01193000 AVTOPTPT EQU IEDQAVTD+428 01194000 AVTPCBPT EQU IEDQAVTD+424 01195000 AVTOSECB EQU IEDQAVTD+420 01196000 AVTOPECA EQU IEDQAVTD+416 01197000 AVTOLECA EQU IEDQAVTD+412 01198000 AVTCKECA EQU IEDQAVTD+408 01199000 AVTCWECA EQU IEDQAVTD+404 01200000 AVTCWTCB EQU IEDQAVTD+400 01201000 AVTOLTCB EQU IEDQAVTD+396 01202000 AVTOCTCB EQU IEDQAVTD+392 01203000 AVTCKTCB EQU IEDQAVTD+388 01204000 AVTAS EQU IEDQAVTD+384 01205000 AVTNOLBF EQU IEDQAVTD+382 01206000 AVTNCKPR EQU IEDQAVTD+381 01207000 AVTCIB EQU IEDQAVTD+380 01208000 AVTSPLPT EQU IEDQAVTD+376 01209000 AVTMVBFR EQU IEDQAVTD+372 01210000 AVTSBTA EQU IEDQAVTD+368 01211000 AVTRARTN EQU IEDQAVTD+364 01212000 AVTBSCAN EQU IEDQAVTD+360 01213000 AVTRDYA EQU IEDQAVTD+356 01214000 AVTDISTR EQU IEDQAVTD+348 01215000 AVTPARM3 EQU IEDQAVTD+344 01216000 @NM00011 EQU AVTPKF 01217000 @NM00010 EQU AVTPKF 01218000 @NM00009 EQU AVTPKF 01219000 AVTFTCHF EQU AVTPKF 01220000 @NM00008 EQU AVTPKF 01221000 @NM00007 EQU AVTPKF 01222000 @NM00006 EQU AVTPKF 01223000 @NM00005 EQU AVTPKF 01224000 AVTPARM EQU IEDQAVTD+336 01225000 AVTEXS2A EQU IEDQAVTD+330 01226000 AVTEXA2S EQU IEDQAVTD+324 01227000 AVTOCGET EQU IEDQAVTD+320 01228000 AVTCKAVT EQU @NM00003+1 01229000 @NM00004 EQU AVTCKFLG 01230000 AVTCKHLT EQU AVTCKFLG 01231000 AVTCKREQ EQU AVTCKFLG 01232000 AVTCKENV EQU AVTCKFLG 01233000 AVTCKNAC EQU AVTCKFLG 01234000 AVTCKTAC EQU AVTCKFLG 01235000 @NM00002 EQU IEDQAVTD+312 01236000 AVTREADD EQU IEDQAVTD+308 01237000 AVTREADY EQU IEDQAVTD+304 01238000 AVTRACE EQU IEDQAVTD+300 01239000 AVTTCB EQU IEDQAVTD+296 01240000 AVTPASWD EQU IEDQAVTD+288 01241000 AVTCTLCH EQU IEDQAVTD+280 01242000 AVTDOUBL EQU IEDQAVTD+272 01243000 AVTDOUBX EQU IEDQAVTD+264 01244000 AVTDPARM EQU IEDQAVTD+260 01245000 AVTCSTCS EQU IEDQAVTD+256 01246000 AVTDLQ EQU AVTSAVEX+32 01247000 @NM00001 EQU AVTSAVEX 01248000 AVTSAVE4 EQU IEDQAVTD+144 01249000 AVTSAVE3 EQU IEDQAVTD+72 01250000 AVTSAVE2 EQU IEDQAVTD 01251000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01252000 @RF00150 EQU @EL00001 01253000 @RF00153 EQU @EL00001 01254000 @RF00158 EQU @EL00001 01255000 @ENDDATA EQU * 01256000 END IEDNID,(C'PLS1547',0701,77306) 01257000