TITLE 'IEDIAB - PLCB,SIB,SAT,RVT,NAT INITIATION ROUTINE *00001000 ' 00002000 IEDIAB CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 * /* 00005000 USING IEDIAB,RBASE 00006000 STM 14,12,AVTSAVE3+12(13) SAVE REGS 00007000 LR RBASE,R15 SET BASE 00008000 IEDIAB IEDHJN AFTERHJN,HJN 00009000 * 0160 00010000 * /*****************************************************************/ 00011000 * /* */ 00012000 * /* LEFT ADJUST HOST SUBAREA, DEVELOP BIT MASK TO AND OFF ELEMENT */ 00013000 * /* PORTION OF NETWORK ADDRESS, DEVELOP SHIFT COUNT TO SHIFT OFF */ 00014000 * /* SUBAREA PORTION NETWORK ADDRESS. */ 00015000 * /* */ 00016000 * /*****************************************************************/ 00017000 * 0160 00018000 * R2TO8TH='80'X /* COMPARAND TO DETERMINE 0160 00019000 * HI-ORDER BIT OF MAX SUBAREA. */ 00020000 * ; 0160 00021000 LA R2TO8TH,128 0160 00022000 * RNUMBITS=8; /* # BITS REQUIRED FOR MAX 0161 00023000 * SUBAREA. START AT 8 AND WORK 00024000 * DOWN. */ 00025000 LA RNUMBITS,8 0161 00026000 * RMASK='FF'X; /* MASK TO AND OFF ELEMENT. START 00027000 * AT X'FF00' */ 00028000 LA RMASK,255 0162 00029000 * RHOST=SAVTSUBV; /* WILL CONTAIN HOST SUBAREA LEFT 00030000 * ADJUSTED. */ 00031000 L @09,AVTSAVTP(,IEDQAPTR) 0163 00032000 SLR @15,@15 0163 00033000 IC @15,SAVTSUBV(,@09) 0163 00034000 LR RHOST,@15 0163 00035000 * SUBVSAVE=SAVTSUBV; /* SAVE RIGHT ADJUSTED HOST 0164 00036000 * SUBAREA FOR LATER */ 00037000 STC @15,SUBVSAVE 0164 00038000 * DO WHILE(RNUMBITS>=2) /* DO WHILE # BITS >= 2(MINIMUM 00039000 * ALLOWED) */ 00040000 * ; 0165 00041000 B @DE00165 0165 00042000 @DL00165 DS 0H 0166 00043000 * IF SAVTSUBA= CURRENT 0166 00044000 * HI-BIT */ 00045000 * THEN 0166 00046000 L @09,AVTSAVTP(,IEDQAPTR) 0166 00047000 SLR @15,@15 0166 00048000 IC @15,SAVTSUBA(,@09) 0166 00049000 CLR R2TO8TH,@15 0166 00050000 BNH @RF00166 0166 00051000 * DO; /* THEN */ 00052000 * R2TO8TH=R2TO8TH/2; /* SHIFT HI-BIT RIGHT ONE PLACE. */ 00053000 SRL R2TO8TH,1 0168 00054000 * RNUMBITS=RNUMBITS-1; /* # SUBAREA BITS - 1. */ 00055000 BCTR RNUMBITS,0 0169 00056000 * RMASK=RMASK*2; /* SHIFT MASK TO LEFT 1. */ 00057000 ALR RMASK,RMASK 0170 00058000 * RHOST=RHOST*2; /* SHIFT HOST SUBAREA LEFT ONE 0171 00059000 * BIT */ 00060000 ALR RHOST,RHOST 0171 00061000 * END; 0172 00062000 * ELSE 0173 00063000 * DO; /* ELSE */ 00064000 B @RC00166 0173 00065000 @RF00166 DS 0H 0174 00066000 * SAVTSUBL=RNUMBITS; /* SAVE SUBAREA SHIFT COUNT */ 00067000 L @09,AVTSAVTP(,IEDQAPTR) 0174 00068000 STC RNUMBITS,SAVTSUBL(,@09) 0174 00069000 * SAVTSUBM=RMASK; /* SAVE ELEMENT AND MASK. */ 00070000 STC RMASK,SAVTSUBM(,@09) 0175 00071000 * SAVTSUBV=RHOST; /* HOST SUBAREA LEFT ADJUSTED */ 00072000 STC RHOST,SAVTSUBV(,@09) 0176 00073000 * RNUMBITS=1; /* BREAK DO LOOP */ 00074000 LA RNUMBITS,1 0177 00075000 * END; 0178 00076000 * END; 0179 00077000 * 0179 00078000 @RC00166 DS 0H 0179 00079000 @DE00165 CL RNUMBITS,@CF00067 0179 00080000 BNL @DL00165 0179 00081000 * /*****************************************************************/ 00082000 * /* */ 00083000 * /* SET INDEX OF FIRST MH TABLE ENTRY INTO SAVT */ 00084000 * /* */ 00085000 * /*****************************************************************/ 00086000 * 0180 00087000 * RTNT=AVTRNMPT; /* TNT BASE */ 00088000 L RTNT,AVTRNMPT(,IEDQAPTR) 0180 00089000 * RFY 0181 00090000 * TCXPTR RSTD; 0181 00091000 * RFY 0182 00092000 * IEDQTCXD BASED(TCXPTR); 0182 00093000 * TCXPTR=CVTAQAVT; /* TCX BASE */ 00094000 L @09,CVTPTR 0183 00095000 L TCXPTR,CVTAQAVT(,@09) 0183 00096000 * SAVTMHDX=TNTLEN+TCXTOTE+1; /* TOTAL # TNT + # TOTE + 1 */ 00097000 * 0184 00098000 L @11,AVTSAVTP(,IEDQAPTR) 0184 00099000 L @09,IEDQNPTR(,IEDQAPTR) 0184 00100000 LH @09,TNTLEN(,@09) 0184 00101000 N @09,@CF02253 0184 00102000 SLR @15,@15 0184 00103000 IC @15,TCXTOTE(,TCXPTR) 0184 00104000 ALR @09,@15 0184 00105000 AL @09,@CF00063 0184 00106000 STH @09,SAVTMHDX(,@11) 0184 00107000 * /*****************************************************************/ 00108000 * /* */ 00109000 * /* SCAN TNT TO OBTAIN: 1ST NAT ENTRY INDEX(1ST TNT SNA/3705 */ 00110000 * /* DIRECT ENTRY), SSCP TNT INDEX, LAST SNA/3705 DIRECT TNT INDEX,*/ 00111000 * /* # INBOARD RVT ENTRIES FROM TNT. */ 00112000 * /* */ 00113000 * /*****************************************************************/ 00114000 * 0185 00115000 * CALL SCANTNT; 0185 00116000 BAL @14,SCANTNT 0185 00117000 * TCXPTR=CVTAQAVT; /* RELOAD THE TCX BASE @OY20269*/ 00118000 * 0186 00119000 L @09,CVTPTR 0186 00120000 L TCXPTR,CVTAQAVT(,@09) 0186 00121000 * /*****************************************************************/ 00122000 * /* */ 00123000 * /* # TNT ENTRIES IN NAT = # TNT ENTRIES + # TOTE TNT ENTRIES - */ 00124000 * /* TNT INDEX 1ST NAT ENTRY + 1. */ 00125000 * /* */ 00126000 * /*****************************************************************/ 00127000 * 0187 00128000 * NNAT=TNTLEN+TCXTOTE-SAVTNAT1+1 /* # TNT NAT ENTRIES. */ 00129000 * ; 0187 00130000 * 0187 00131000 L @11,IEDQNPTR(,IEDQAPTR) 0187 00132000 SLR @09,@09 0187 00133000 IC @09,TCXTOTE(,TCXPTR) 0187 00134000 LH @11,TNTLEN(,@11) 0187 00135000 N @11,@CF02253 0187 00136000 ALR @11,@09 0187 00137000 L @15,AVTSAVTP(,IEDQAPTR) 0187 00138000 LR @14,@11 0187 00139000 SH @14,SAVTNAT1(,@15) 0187 00140000 LA @14,1(,@14) 0187 00141000 STH @14,NNAT 0187 00142000 * /*****************************************************************/ 00143000 * /* */ 00144000 * /* TNT INDEX LAST NAT ENTRY FROM TNT = # TNT ENTRIES + # TOTE TNT*/ 00145000 * /* ENTRIES. */ 00146000 * /* */ 00147000 * /*****************************************************************/ 00148000 * 0188 00149000 * LASTTNT=TNTLEN+TCXTOTE; /* TNT INDEX LAST IN NAT */ 00150000 * 0188 00151000 STH @11,LASTTNT 0188 00152000 * /*****************************************************************/ 00153000 * /* */ 00154000 * /* #RVT ENTRIES FROM TNT = ACCUMULATION FROM SCAN + # TOTE TNT */ 00155000 * /* ENTRIES */ 00156000 * /* */ 00157000 * /*****************************************************************/ 00158000 * 0189 00159000 * NRVT=NRVT+TCXTOTE; /* ACCUMULATION+TOTE=#RVT 0189 00160000 * @YM07388*/ 00161000 LH @11,NRVT 0189 00162000 N @11,@CF02253 0189 00163000 ALR @09,@11 0189 00164000 STH @09,NRVT 0189 00165000 * RFY 0190 00166000 * TCXPTR UNRSTD; 0190 00167000 * 0190 00168000 * /*****************************************************************/ 00169000 * /* */ 00170000 * /* SET UP MH TABLE ENTRY COUNT. */ 00171000 * /* */ 00172000 * /*****************************************************************/ 00173000 * 0191 00174000 * RNMH=0; /* INITIATE CTR TO 0 */ 00175000 SLR RNMH,RNMH 0191 00176000 * RMH=SAVTMHTB; /* 1ST MH ENTRY ADDRESS */ 00177000 * 0192 00178000 L RMH,SAVTMHTB(,@15) 0192 00179000 * /*****************************************************************/ 00180000 * /* */ 00181000 * /* IF THERE IS AN MH TABLE THEN */ 00182000 * /* */ 00183000 * /*****************************************************************/ 00184000 * 0193 00185000 * IF RMH^=0 /* IS THERE AN MH TABLE? */ 00186000 * THEN 0193 00187000 LTR RMH,RMH 0193 00188000 BZ @RF00193 0193 00189000 * DO; /* YES */ 00190000 * 0194 00191000 * /*************************************************************/ 00192000 * /* */ 00193000 * /* COUNT # MH TABLE ENTRIES AND ADD TO # RVT ENTRIES. */ 00194000 * /* */ 00195000 * /*************************************************************/ 00196000 * 0195 00197000 * CALL MHCOUNT; 0195 00198000 BAL @14,MHCOUNT 0195 00199000 * END; 0196 00200000 * 0196 00201000 * /*****************************************************************/ 00202000 * /* */ 00203000 * /* IF # MH TABLE ENTRIES = 0 THEN */ 00204000 * /* */ 00205000 * /*****************************************************************/ 00206000 * 0197 00207000 * IF RNMH=0 /* # MH = 0 ? */ 00208000 * THEN 0197 00209000 @RF00193 LTR RNMH,RNMH 0197 00210000 BNZ @RF00197 0197 00211000 * DO; /* YES */ 00212000 * 0198 00213000 * /*************************************************************/ 00214000 * /* */ 00215000 * /* INDEX LAST NAT ENTRY = INDEX LAST TNT NAT ENTRY. */ 00216000 * /* */ 00217000 * /*************************************************************/ 00218000 * 0199 00219000 * SAVTNATL=LASTTNT; 0199 00220000 L @09,AVTSAVTP(,IEDQAPTR) 0199 00221000 LH @15,LASTTNT 0199 00222000 N @15,@CF02253 0199 00223000 STH @15,SAVTNATL(,@09) 0199 00224000 * END; 0200 00225000 * 0200 00226000 * /*****************************************************************/ 00227000 * /* */ 00228000 * /* ELSE INDEX LAST NAT ENTRY = 1ST MH INDEX + # MH ENTRIES - 1 . */ 00229000 * /* */ 00230000 * /*****************************************************************/ 00231000 * 0201 00232000 * ELSE 0201 00233000 * SAVTNATL=SAVTMHDX+RNMH-1; 0201 00234000 * 0201 00235000 B @RC00197 0201 00236000 @RF00197 L @09,AVTSAVTP(,IEDQAPTR) 0201 00237000 LH @15,SAVTMHDX(,@09) 0201 00238000 N @15,@CF02253 0201 00239000 ALR @15,RNMH 0201 00240000 BCTR @15,0 0201 00241000 STH @15,SAVTNATL(,@09) 0201 00242000 * /*****************************************************************/ 00243000 * /* */ 00244000 * /* DEVELOP TOTAL NAT ENTRIES. */ 00245000 * /* */ 00246000 * /*****************************************************************/ 00247000 * 0202 00248000 * NNAT=NNAT+RNMH; /* #TNT NAT ENTRIES + # MH NAT. */ 00249000 * 0202 00250000 @RC00197 LH @09,NNAT 0202 00251000 N @09,@CF02253 0202 00252000 ALR @09,RNMH 0202 00253000 STH @09,NNAT 0202 00254000 * /*****************************************************************/ 00255000 * /* */ 00256000 * /* CALCULATE NAT SIZE. */ 00257000 * /* */ 00258000 * /*****************************************************************/ 00259000 * 0203 00260000 * NATSIZE=NNAT*(LENGTH(NATODAF)/8);/* # NAT ENTRIES TIMES ENTRY 0203 00261000 * @YM08010*/ 00262000 * 0203 00263000 ALR @09,@09 0203 00264000 ST @09,NATSIZE 0203 00265000 * /*****************************************************************/ 00266000 * /* */ 00267000 * /* CALCULATE SATSIZE. */ 00268000 * /* */ 00269000 * /*****************************************************************/ 00270000 * 0204 00271000 * SATSIZE=(SAVTSUBA)*LENGTH(IEDSATD); 0204 00272000 * 0204 00273000 L @15,AVTSAVTP(,IEDQAPTR) 0204 00274000 SLR @14,@14 0204 00275000 IC @14,SAVTSUBA(,@15) 0204 00276000 SLA @14,3 0204 00277000 ST @14,SATSIZE 0204 00278000 * /*****************************************************************/ 00279000 * /* */ 00280000 * /* CALCULATE RVT LENGTH. */ 00281000 * /* */ 00282000 * /*****************************************************************/ 00283000 * 0205 00284000 * RFY 0205 00285000 * IEDRVTD BASED(ADDRRVT); 0205 00286000 * RVTSIZE=NRVT*LENGTH(RVTINDEX)+ADDR(RVTINDEX)-ADDR(IEDRVTD);/* 0206 00287000 * #ENTRIES*ENT LEN + COUNT FIELD 00288000 * LENGTH @YM07388*/ 00289000 * 0206 00290000 L @11,ADDRRVT 0206 00291000 LH @10,NRVT 0206 00292000 N @10,@CF02253 0206 00293000 ALR @10,@10 0206 00294000 LA @01,RVTINDEX(,@11) 0206 00295000 ALR @10,@01 0206 00296000 SLR @10,@11 0206 00297000 ST @10,RVTSIZE 0206 00298000 * /*****************************************************************/ 00299000 * /* */ 00300000 * /* CALCULATE PLCB POOL SIZE. */ 00301000 * /* */ 00302000 * /*****************************************************************/ 00303000 * 0207 00304000 * PLCBSIZE=AVTPLCBN*(LENGTH(IEDQLCB)/* LENGTH OF PLCB @YM08062*/ 00305000 * -LENGTH(LCBCPA)+48+AVTSCBSZ);/* @YM07425*/ 00306000 LA @11,192 0207 00307000 SLR @01,@01 0207 00308000 IC @01,AVTSCBSZ(,IEDQAPTR) 0207 00309000 ALR @11,@01 0207 00310000 MH @11,AVTPLCBN(,IEDQAPTR) 0207 00311000 ST @11,PLCBSIZE 0207 00312000 */* PLCB LEN + SCB LEN TIMES # ENTRIES */ 00313000 * 0208 00314000 * /*****************************************************************/ 00315000 * /* */ 00316000 * /* CALCULATE SIB POOL SIZE. */ 00317000 * /* */ 00318000 * /*****************************************************************/ 00319000 * 0208 00320000 * SIBSIZE=SAVTSIBC*((LENGTH(IEDSIBD)+FOUR)&CLR3);/* ENTRIES X ENTRY 00321000 * LENGTH @YM04606*/ 00322000 * 0208 00323000 LH @01,SAVTSIBC(,@15) 0208 00324000 MH @01,@CH02246 0208 00325000 ST @01,SIBSIZE 0208 00326000 * /*****************************************************************/ 00327000 * /* */ 00328000 * /* TOTAL GETMAIN SIZE = PLCB POOL + SIB POOL + NAT + SAT + RVT */ 00329000 * /* ROUNDED UP TO NEXT DBL WORD @YM02919*/ 00330000 * /* */ 00331000 * /*****************************************************************/ 00332000 * 0209 00333000 * AVTGETMN=((PLCBSIZE+SIBSIZE+NATSIZE+SATSIZE+RVTSIZE)+EIGHT)& 0209 00334000 * CLRLOBTS; 0209 00335000 * 0209 00336000 LA @00,8 0209 00337000 ALR @11,@01 0209 00338000 ALR @11,@09 0209 00339000 ALR @11,@14 0209 00340000 ALR @11,@10 0209 00341000 ALR @11,@00 0209 00342000 N @11,@CF02198 0209 00343000 ST @11,AVTGETMN(,IEDQAPTR) 0209 00344000 * /*****************************************************************/ 00345000 * /* */ 00346000 * /* PUT GETMAIN SIZE DIVIDED BY EIGHT INTO SEC AVT @YM02919*/ 00347000 * /* */ 00348000 * /*****************************************************************/ 00349000 * 0210 00350000 * SAVTPLSZ=AVTGETMN/EIGHT; 0210 00351000 * 0210 00352000 SLR @10,@10 0210 00353000 DR @10,@00 0210 00354000 STH @11,SAVTPLSZ(,@15) 0210 00355000 * /*****************************************************************/ 00356000 * /* */ 00357000 * /* GETMAIN TABLES AND POOLS. */ 00358000 * /* */ 00359000 * /*****************************************************************/ 00360000 * 0211 00361000 * CALL GETMAIN; 0211 00362000 * 0211 00363000 BAL @14,GETMAIN 0211 00364000 * /*****************************************************************/ 00365000 * /* */ 00366000 * /* STORAGE OBTAINED NOW CLEAR IT FOR SUBSEQUENT USE @YM04618*/ 00367000 * /* */ 00368000 * /*****************************************************************/ 00369000 * 0212 00370000 * RCURR=SAVTPOOL; /* POINT AT RECEIVING FIELD 0212 00371000 * @YM04665*/ 00372000 L @09,AVTSAVTP(,IEDQAPTR) 0212 00373000 L RCURR,SAVTPOOL(,@09) 0212 00374000 * RNEXT=(SAVTPLSZ*8); /* LENGTH OF RCVING FIELD 0213 00375000 * @YM04665*/ 00376000 LH RNEXT,SAVTPLSZ(,@09) 0213 00377000 SLA RNEXT,3 0213 00378000 * R14=RCURR; /* POINT AT SENDING FIELD 0214 00379000 * @YM04665*/ 00380000 LR R14,RCURR 0214 00381000 * R15=0; /* SET 0 PAD AND LENGTH @YM04665*/ 00382000 SLR R15,R15 0215 00383000 * MVCL(RCURR,R14); /* CLEAR GETMAINED AREA @YM04618*/ 00384000 * 0216 00385000 MVCL RCURR,R14 0216 00386000 * /*****************************************************************/ 00387000 * /* */ 00388000 * /* PLACE PLCB POOL ADDRESS INTO SAVT. */ 00389000 * /* */ 00390000 * /*****************************************************************/ 00391000 * 0217 00392000 * SAVTPLCB=SAVTPOOL; 0217 00393000 L @09,AVTSAVTP(,IEDQAPTR) 0217 00394000 L @15,SAVTPOOL(,@09) 0217 00395000 ST @15,SAVTPLCB(,@09) 0217 00396000 * SAVTLLCB=SAVTPLCB+PLCBSIZE-(LENGTH(IEDQLCB)-LENGTH(LCBCPA)+48+ 0218 00397000 * AVTSCBSZ); /* SET ADDRESS LAST PLCB @OY19488*/ 00398000 * 0218 00399000 AL @15,PLCBSIZE 0218 00400000 LA @14,192 0218 00401000 SLR @11,@11 0218 00402000 IC @11,AVTSCBSZ(,IEDQAPTR) 0218 00403000 ALR @14,@11 0218 00404000 LCR @14,@14 0218 00405000 ALR @14,@15 0218 00406000 ST @14,SAVTLLCB(,@09) 0218 00407000 * /*****************************************************************/ 00408000 * /* */ 00409000 * /* PLACE SIB POOL ADDRESS INTO SAVT. */ 00410000 * /* */ 00411000 * /*****************************************************************/ 00412000 * 0219 00413000 * SAVTSIB=SAVTPLCB+PLCBSIZE; /* PLCB POOL + LEN = SIB POOL ADR*/ 00414000 * 0219 00415000 ST @15,SAVTSIB(,@09) 0219 00416000 * /*****************************************************************/ 00417000 * /* */ 00418000 * /* PLACE SAT ADDRESS INTO SAVT. */ 00419000 * /* */ 00420000 * /*****************************************************************/ 00421000 * 0220 00422000 * SAVTSAT=SAVTSIB+SIBSIZE; /* SAT ADDR = SIB + SIB LEN */ 00423000 * 0220 00424000 AL @15,SIBSIZE 0220 00425000 ST @15,SAVTSAT(,@09) 0220 00426000 * /*****************************************************************/ 00427000 * /* */ 00428000 * /* CALCULATE RVT ADDRESS. */ 00429000 * /* */ 00430000 * /*****************************************************************/ 00431000 * 0221 00432000 * ADDRRVT=SAVTSAT+SATSIZE; /* RVT ADDR = SAT + SAT LEN */ 00433000 * 0221 00434000 LR @14,@15 0221 00435000 AL @14,SATSIZE 0221 00436000 ST @14,ADDRRVT 0221 00437000 * /*****************************************************************/ 00438000 * /* */ 00439000 * /* PLACE NAT ADDRESS INTO SAVT. */ 00440000 * /* */ 00441000 * /*****************************************************************/ 00442000 * 0222 00443000 * SAVTNAT=ADDRRVT+RVTSIZE-((SAVTNAT1-1)*LENGTH(IEDNATD))/* NAT ADDR 00444000 * = RVT ADDR + RVT LEN ADDR IS 00445000 * ADJUSTED BY THE DISPLACEMENT 00446000 * OF THE FIST INDEX TIMES AN 0222 00447000 * ENTRY SIZE. THERE- FORE, TNT 00448000 * INDEX-1 TIMES ENTRY MAY BE 0222 00449000 * ADDED DIRECTLY TO NAT ADDRESS.*/ 00450000 * ; 0222 00451000 * 0222 00452000 LR @11,@14 0222 00453000 AL @11,RVTSIZE 0222 00454000 LH @10,SAVTNAT1(,@09) 0222 00455000 LR @01,@10 0222 00456000 BCTR @01,0 0222 00457000 LR @00,@01 0222 00458000 ALR @00,@00 0222 00459000 SLR @11,@00 0222 00460000 ST @11,SAVTNAT(,@09) 0222 00461000 * /*****************************************************************/ 00462000 * /* */ 00463000 * /* INITIATE HOST ENTRY WITH THE RVT ADDRESS AND AN LCB ADDRESS OF*/ 00464000 * /* ZERO. */ 00465000 * /* */ 00466000 * /*****************************************************************/ 00467000 * 0223 00468000 * RFY 0223 00469000 * IEDSATD BASED(RSAT); 0223 00470000 * RFY 0224 00471000 * RSAT RSTD; 0224 00472000 * RSAT=(SAVTSAT+((SUBVSAVE-1)*LENGTH(IEDSATD)));/* HOST SAT ENTRY 00473000 * ADDRESS */ 00474000 SLR RSAT,RSAT 0225 00475000 IC RSAT,SUBVSAVE 0225 00476000 BCTR RSAT,0 0225 00477000 SLA RSAT,3 0225 00478000 ALR @15,RSAT 0225 00479000 LR RSAT,@15 0225 00480000 * RSAT->SATRNRVT=ADDRRVT; /* RVT */ 00481000 ST @14,SATRNRVT(,RSAT) 0226 00482000 * RFY 0227 00483000 * RSAT UNRSTD; 0227 00484000 * 0227 00485000 * /*****************************************************************/ 00486000 * /* */ 00487000 * /* PLACE SSCP TNT INDEX INTO 1ST 2 RVT SLOTS. ADD # ELEMENTS TO */ 00488000 * /* RVT. */ 00489000 * /* */ 00490000 * /*****************************************************************/ 00491000 * 0228 00492000 * RRVT=(ADDRRVT); /* RVT ADDRESS */ 00493000 LR RRVT,@14 0228 00494000 * RRVT->RVTINDEX=SAVTSCPT; /* SET SSCP INDEX INTO PU RVT 0229 00495000 * ENTRY */ 00496000 LH @09,SAVTSCPT(,@09) 0229 00497000 N @09,@CF02253 0229 00498000 STH @09,RVTINDEX(,RRVT) 0229 00499000 * RRVT=RRVT+LENGTH(RVTINDEX); /* 2ND ENTRY ADDRESS(SSCP) */ 00500000 LA @15,2 0230 00501000 ALR RRVT,@15 0230 00502000 * RRVT->RVTINDEX=SAVTSCPT; /* SET SSCP INDEX INTO SSCP'S 0231 00503000 * SLOT */ 00504000 STH @09,RVTINDEX(,RRVT) 0231 00505000 * ADDRRVT->RVTNUM=NRVT; /* SET # ELEMENTS IN RVT @YM07388*/ 00506000 * 0232 00507000 LH @09,NRVT 0232 00508000 N @09,@CF02253 0232 00509000 STH @09,RVTNUM(,@14) 0232 00510000 * /*****************************************************************/ 00511000 * /* */ 00512000 * /* SET UP TO INITIATE RVT AND NAT. RVT PTR, RVT ELEMENT ADDRESS, */ 00513000 * /* TNT PTR, NAT PTR ARE SET ONE ENTRY BACK OF FIRST ENTRY TO BE */ 00514000 * /* PROCESSED. */ 00515000 * /* */ 00516000 * /*****************************************************************/ 00517000 * 0233 00518000 * RRVT=RRVT+LENGTH(RVTINDEX); /* 1ST RVT ENTRY AFTER SSCP/PU */ 00519000 ALR RRVT,@15 0233 00520000 * NRVT=2; /* START ELE ADDRESS AT 2 0234 00521000 * @YM07388*/ 00522000 STH @15,NRVT 0234 00523000 * RTNT=ADDR(TNTFIRST)+((SAVTNAT1-1)*(TNTENLEN+3)-3);/* ADDRESS-3 OF 00524000 * 1ST TNT ENTRY HAVING AN 0235 00525000 * ASSOCIATED NAT ENTRY */ 00526000 L @09,IEDQNPTR(,IEDQAPTR) 0235 00527000 LA RTNT,82 0235 00528000 ALR RTNT,@09 0235 00529000 LA @14,3 0235 00530000 SLR @00,@00 0235 00531000 IC @00,TNTENLEN(,@09) 0235 00532000 ALR @00,@14 0235 00533000 ST @11,@TF00001 0235 00534000 LR @11,@00 0235 00535000 ST @10,@TF00002 0235 00536000 MR @10,@01 0235 00537000 SLR @11,@14 0235 00538000 ALR RTNT,@11 0235 00539000 * RTTCIN=SAVTNAT1-1; /* INDEX 1ST TNT NAT ENTRY-1 */ 00540000 LR RTTCIN,@01 0236 00541000 * RNAT=SAVTNAT+((SAVTNAT1-2)*(LENGTH(NATODAF)/8));/* 1ST NAT ENTRY 00542000 * -ENTRY LENGTH @YM06941*/ 00543000 LCR @15,@15 0237 00544000 AL @15,@TF00002 0237 00545000 ALR @15,@15 0237 00546000 AL @15,@TF00001 0237 00547000 LR RNAT,@15 0237 00548000 * RESPECIFY 0238 00549000 * IEDRVTD BASED(RRVT); /* RVT BASE */ 00550000 * RESPECIFY 0239 00551000 * IEDNATD BASED(RNAT); /* NAT BASE */ 00552000 * RESPECIFY 0240 00553000 * IEDTNTA BASED(RTNT) /* TNT ENTRY BASE= TTE ADDRESS 0240 00554000 * PORTION OF TNT ENTRY. */ 00555000 * ; 0240 00556000 * 0240 00557000 * /*****************************************************************/ 00558000 * /* */ 00559000 * /* DO UNTIL END OF TNT REACHED OR LAST TNT SNA ENTRY REACHED */ 00560000 * /* */ 00561000 * /*****************************************************************/ 00562000 * 0241 00563000 * DO WHILE(RTTCINPROLU=TRUE /* IF THIS IS A TPROCESS LU */ 00648000 * THEN 0265 00649000 TM PROLU(R15),B'01000000' 0265 00650000 BNO @RF00265 0265 00651000 * DO; /* THEN */ 00652000 * RFY 0267 00653000 * R15 UNRSTD; 0267 00654000 * 0267 00655000 * /*****************************************************/ 00656000 * /* */ 00657000 * /* SET CURRENT TTCIN INTO CURRENT RVT ENTRY */ 00658000 * /* */ 00659000 * /*****************************************************/ 00660000 * 0268 00661000 * RVTINDEX=RTTCIN; 0268 00662000 * 0268 00663000 STH RTTCIN,RVTINDEX(,RRVT) 0268 00664000 * /*****************************************************/ 00665000 * /* */ 00666000 * /* DEVELOP NETWORK ADDRESS FOR CURRENT RVT AND PLACE */ 00667000 * /* INTO NAT */ 00668000 * /* */ 00669000 * /*****************************************************/ 00670000 * 0269 00671000 * NATODAF=SAVTSUBV*256+NRVT;/* SUBAREA+ELEMENT=ADDRESS 00672000 * @YM07388*/ 00673000 * 0269 00674000 LH @15,NRVT 0269 00675000 N @15,@CF02253 0269 00676000 L @01,AVTSAVTP(,IEDQAPTR) 0269 00677000 SLR @00,@00 0269 00678000 IC @00,SAVTSUBV(,@01) 0269 00679000 SLA @00,8 0269 00680000 ALR @00,@15 0269 00681000 STH @00,NATODAF(,RNAT) 0269 00682000 * /*****************************************************/ 00683000 * /* */ 00684000 * /* STEP TO NEXT RVT ENTRY */ 00685000 * /* */ 00686000 * /*****************************************************/ 00687000 * 0270 00688000 * NRVT=NRVT+1; /* ELEMENT ADDRESS + 1 @YM07388*/ 00689000 LA @15,1(,@15) 0270 00690000 STH @15,NRVT 0270 00691000 * RRVT=RRVT+LENGTH(RVTINDEX);/* RVT ENTRY ADDRESS FOR 00692000 * ELEMENT */ 00693000 AL RRVT,@CF00067 0271 00694000 * END; 0272 00695000 * RFY 0273 00696000 * IEDQTPTR UNRSTD; 0273 00697000 @RF00265 DS 0H 0274 00698000 * END; 0274 00699000 * END; 0275 00700000 * 0275 00701000 @RF00248 DS 0H 0275 00702000 @RF00247 DS 0H 0275 00703000 @DE00241 LH @09,LASTTNT 0275 00704000 N @09,@CF02253 0275 00705000 CR RTTCIN,@09 0275 00706000 BNL @DC00241 0275 00707000 L @09,IEDQNPTR(,IEDQAPTR) 0275 00708000 LH @09,TNTLEN(,@09) 0275 00709000 N @09,@CF02253 0275 00710000 CR RTTCIN,@09 0275 00711000 BL @DL00241 0275 00712000 @DC00241 DS 0H 0276 00713000 * /*****************************************************************/ 00714000 * /* */ 00715000 * /* IF THERE IS AN MH TABLE THEN */ 00716000 * /* */ 00717000 * /*****************************************************************/ 00718000 * 0276 00719000 * IF SAVTMHTB^=0 /* MH TABLE ADDRESS = 0 ? */ 00720000 * THEN 0276 00721000 L @09,AVTSAVTP(,IEDQAPTR) 0276 00722000 L @15,SAVTMHTB(,@09) 0276 00723000 LTR @15,@15 0276 00724000 BZ @RF00276 0276 00725000 * DO; 0277 00726000 * 0277 00727000 * /*************************************************************/ 00728000 * /* */ 00729000 * /* SET UP MH TABLE PASS */ 00730000 * /* */ 00731000 * /*************************************************************/ 00732000 * 0278 00733000 * RMH=SAVTMHTB; /* MH TABLE ADDRESS */ 00734000 LR RMH,@15 0278 00735000 * RESPECIFY 0279 00736000 * IEDMHTD BASED(RMH); /* MH ENTRY BASE */ 00737000 * RNMH=SAVTMHDX; /* INDEX FIRST MH ENTRY */ 00738000 LH RNMH,SAVTMHDX(,@09) 0280 00739000 N RNMH,@CF02253 0280 00740000 * RNAT=((RNMH-1)*LENGTH(IEDNATD))+SAVTNAT;/* ADDRESS 1ST MH NAT 00741000 * ENTRY */ 00742000 * 0281 00743000 LR RNAT,RNMH 0281 00744000 BCTR RNAT,0 0281 00745000 ALR RNAT,RNAT 0281 00746000 AL RNAT,SAVTNAT(,@09) 0281 00747000 * /*************************************************************/ 00748000 * /* */ 00749000 * /* LOOP WHILE MH TABLE END NOT REACHED. */ 00750000 * /* */ 00751000 * /*************************************************************/ 00752000 * 0282 00753000 * DO WHILE(MHTABEND^=MHFLGE); /* DO UNTIL END OF MH TABLE */ 00754000 * 0282 00755000 B @DE00282 0282 00756000 @DL00282 DS 0H 0283 00757000 * /***********************************************************/ 00758000 * /* */ 00759000 * /* PLACE MH INDEX INTO CURRENT RVT. */ 00760000 * /* */ 00761000 * /***********************************************************/ 00762000 * 0283 00763000 * RVTINDEX=RNMH; /* PLACE MH INDEX INTO RVT ELE 0283 00764000 * ENTRY */ 00765000 * 0283 00766000 STH RNMH,RVTINDEX(,RRVT) 0283 00767000 * /***********************************************************/ 00768000 * /* */ 00769000 * /* PLACE NETWORK ADDRESS INTO CURRENT NAT ENTRY. */ 00770000 * /* */ 00771000 * /***********************************************************/ 00772000 * 0284 00773000 * NATODAF=SAVTSUBV*256+NRVT;/* CONCATENATE ELE TO SA ADDR AND 00774000 * PLACE INTO NAT ENTRY @YM07388*/ 00775000 * 0284 00776000 LH @09,NRVT 0284 00777000 N @09,@CF02253 0284 00778000 L @01,AVTSAVTP(,IEDQAPTR) 0284 00779000 SLR @00,@00 0284 00780000 IC @00,SAVTSUBV(,@01) 0284 00781000 SLA @00,8 0284 00782000 ALR @00,@09 0284 00783000 STH @00,NATODAF(,RNAT) 0284 00784000 * /***********************************************************/ 00785000 * /* */ 00786000 * /* ADVANCE IN NAT AND RVT. */ 00787000 * /* */ 00788000 * /***********************************************************/ 00789000 * 0285 00790000 * RNMH=RNMH+1; /* ELEMENT ADDRESS + 1 */ 00791000 LA @15,1 0285 00792000 ALR RNMH,@15 0285 00793000 * RMH=RMH+LENGTH(IEDMHTD); /* NEXT MH ENTRY ADDRESS */ 00794000 AL RMH,@CF00247 0286 00795000 * RNAT=RNAT+LENGTH(IEDNATD);/* NEXT NAT ENTRY */ 00796000 LA @14,2 0287 00797000 ALR RNAT,@14 0287 00798000 * RRVT=RRVT+LENGTH(RVTINDEX);/* NEXT RVT ENTRY */ 00799000 ALR RRVT,@14 0288 00800000 * NRVT=NRVT+1; /* NEXT ELEMENT ADDRESS @YM07388*/ 00801000 ALR @09,@15 0289 00802000 STH @09,NRVT 0289 00803000 * END; 0290 00804000 @DE00282 CLI MHTABEND(RMH),X'FF' 0290 00805000 BNE @DL00282 0290 00806000 * END; 0291 00807000 * 0291 00808000 * /*****************************************************************/ 00809000 * /* */ 00810000 * /* SET SSCP'S NETWORK ADDRESS INTO NAT. */ 00811000 * /* */ 00812000 * /*****************************************************************/ 00813000 * 0292 00814000 * RNAT=(SAVTSCPT-1)*LENGTH(IEDNATD)+SAVTNAT;/* SSCP NAT ENTRY 0292 00815000 * ADDRESS */ 00816000 @RF00276 L @15,AVTSAVTP(,IEDQAPTR) 0292 00817000 LH RNAT,SAVTSCPT(,@15) 0292 00818000 N RNAT,@CF02253 0292 00819000 BCTR RNAT,0 0292 00820000 ALR RNAT,RNAT 0292 00821000 AL RNAT,SAVTNAT(,@15) 0292 00822000 * RNAT->NATODAF=SAVTSUBV*256; /* SSCP NETWORK ADDRESS = HOST 0293 00823000 * SUBAREA ADDRESS WITH 0 ELEMENT 00824000 * ADDRESS. */ 00825000 * 0293 00826000 SLR @09,@09 0293 00827000 IC @09,SAVTSUBV(,@15) 0293 00828000 SLA @09,8 0293 00829000 STH @09,NATODAF(,RNAT) 0293 00830000 * /*****************************************************************/ 00831000 * /* */ 00832000 * /* SET UP TO LINK PLCB'S TOGETHER. */ 00833000 * /* */ 00834000 * /*****************************************************************/ 00835000 * 0294 00836000 * RCURR=SAVTPLCB; /* CURRENT ELEMENT ADDR. INIT TO 00837000 * 1ST ELE IN POOL */ 00838000 L RCURR,SAVTPLCB(,@15) 0294 00839000 * RCTR=AVTPLCBN; /* # PLCB'S */ 00840000 LH RCTR,AVTPLCBN(,IEDQAPTR) 0295 00841000 * RLEN=LENGTH(IEDQLCB) /* LENGTH OF PLCB @YM08062*/ 00842000 * -LENGTH(LCBCPA)+48+AVTSCBSZ;/* LENGTH OF ELEMENT = PLCB 0296 00843000 * LENGTH + SCB LENGTH. @YM07425*/ 00844000 * 0296 00845000 LA RLEN,192 0296 00846000 SLR @09,@09 0296 00847000 IC @09,AVTSCBSZ(,IEDQAPTR) 0296 00848000 ALR RLEN,@09 0296 00849000 * /*****************************************************************/ 00850000 * /* */ 00851000 * /* LINK PLCB'S TOGETHER . */ 00852000 * /* */ 00853000 * /*****************************************************************/ 00854000 * 0297 00855000 * CALL LINKOR; 0297 00856000 * 0297 00857000 BAL @14,LINKOR 0297 00858000 * /*****************************************************************/ 00859000 * /* */ 00860000 * /* SET UP TO LINK SIB'S TOGETHER. */ 00861000 * /* */ 00862000 * /*****************************************************************/ 00863000 * 0298 00864000 * RCURR=SAVTSIB; /* SIB POOL 1ST ELE ADDR */ 00865000 L @09,AVTSAVTP(,IEDQAPTR) 0298 00866000 L RCURR,SAVTSIB(,@09) 0298 00867000 * RCTR=SAVTSIBC; /* # SIBS */ 00868000 LH RCTR,SAVTSIBC(,@09) 0299 00869000 * RLEN=((LENGTH(IEDSIBD))+4)&CLR3;/* SIB LENGTH @YM04606*/ 00870000 * 0300 00871000 LA RLEN,28 0300 00872000 * /*****************************************************************/ 00873000 * /* */ 00874000 * /* LINK SIBS TOGETHER. */ 00875000 * /* */ 00876000 * /*****************************************************************/ 00877000 * 0301 00878000 * CALL LINKOR; 0301 00879000 * 0301 00880000 BAL @14,LINKOR 0301 00881000 * /*****************************************************************/ 00882000 * /* */ 00883000 * /* INITIATE PLCB FIELDS */ 00884000 * /* */ 00885000 * /*****************************************************************/ 00886000 * 0302 00887000 * RFY 0302 00888000 * IEDQLCB BASED(IEDQLPTR); 0302 00889000 * IEDQLPTR=SAVTPLCB; /* FIRST PLCB ADDRESS. */ 00890000 L @09,AVTSAVTP(,IEDQAPTR) 0303 00891000 L @09,SAVTPLCB(,@09) 0303 00892000 ST @09,IEDQLPTR 0303 00893000 * DO WHILE(IEDQLPTR^=0); /* LOOP THRU PLCB POOL. */ 00894000 B @DE00304 0304 00895000 @DL00304 DS 0H 0305 00896000 * LCBRSKEY=DSPRCV; /* INITIATE RECV SCHEDULER KEY. */ 00897000 L @09,IEDQLPTR 0305 00898000 MVI LCBRSKEY(@09),X'24' 0305 00899000 * LCBSCBA=LENGTH(IEDQLCB) /* LENGTH OF PLCB @YM08062*/ 00900000 * -LENGTH(LCBCPA)+48+IEDQLPTR;/* SET SCB ADDR IN PLCB. */ 00901000 LA @15,192 0306 00902000 ALR @15,@09 0306 00903000 STCM @15,7,LCBSCBA(@09) 0306 00904000 * LCBRSPRI=SENDPRI; /* RECV SCHED STCB PRIORITY. */ 00905000 MVI LCBRSPRI(@09),X'20' 0307 00906000 * RFY 0308 00907000 * QEVENT BASED(R11); /* RECEIVE SCHEDULER BASE. */ 00908000 * RFY 0309 00909000 * R11 RSTD; 0309 00910000 * R11=AVTRCV; /* RECEIVE SCHEDULER ADDRESS. */ 00911000 L R11,AVTRCV(,IEDQAPTR) 0310 00912000 * R11=R11+QEVENT; /* QEVENT STCB ADDRESS. */ 00913000 LH @10,QEVENT(,R11) 0311 00914000 N @10,@CF02253 0311 00915000 ALR R11,@10 0311 00916000 * LCBRSLNK=R11; /* LINK RECV STCB TO QEVENT. */ 00917000 STCM R11,7,LCBRSLNK(@09) 0312 00918000 * LCBSTCBA=ADDR(LCBRSKEY); /* RECV SCHED STCB ADDR TO STCB 00919000 * CHAIN */ 00920000 LA @10,LCBRSKEY(,@09) 0313 00921000 STCM @10,7,LCBSTCBA(@09) 0313 00922000 * IEDQLPTR=LCBLINK; /* NEXT PLCB ADDRESS. */ 00923000 L @10,LCBLINK-1(,@09) 0314 00924000 LA @10,0(,@10) 0314 00925000 ST @10,IEDQLPTR 0314 00926000 * RFY 0315 00927000 * R11 UNRSTD; 0315 00928000 * END; /* END PLCB INITIATION. */ 00929000 * 0316 00930000 @DE00304 L @09,IEDQLPTR 0316 00931000 LTR @09,@09 0316 00932000 BNZ @DL00304 0316 00933000 * /*****************************************************************/ 00934000 * /* */ 00935000 * /* ALLOCATE AND INITIATE A PLCB FOR THE SSCP. */ 00936000 * /* */ 00937000 * /*****************************************************************/ 00938000 * 0317 00939000 * IEDQLPTR=SAVTPLCB; /* FIRST PLCB IN POOL. */ 00940000 L @09,AVTSAVTP(,IEDQAPTR) 0317 00941000 L @15,SAVTPLCB(,@09) 0317 00942000 ST @15,IEDQLPTR 0317 00943000 * LCBFREEN=TRUE; /* MARK PLCB FREE. */ 00944000 OI LCBFREEN(@15),B'00000100' 0318 00945000 * LCBDLNKN=TRUE; /* MARK ERB POSTABLE. @YM03688*/ 00946000 OI LCBDLNKN(@15),B'00000001' 0319 00947000 * LCBLUNIT=TRUE; /* MARK SSCP AS LU TO ENABLE MH 00948000 * FUNCTIONS @YM04601*/ 00949000 * LCBPERM=TRUE; /* MARK PLCB AS PERMANENTLY 0321 00950000 * ALLOCATED @YM03688*/ 00951000 OI LCBLUNIT(@15),B'11000000' 0321 00952000 * RFY 0322 00953000 * IEDQSCB BASED(IEDQLPTR+LENGTH(IEDQLCB)/* LENGTH OF PLCB 0322 00954000 * @YM08062*/ 00955000 * -LENGTH(LCBCPA)+48); /* SCB BASE @YM03688*/ 00956000 * SCBDESTQ=ADDR(AVTBFRTB); /* SET DESTINATION AS BFR RETURN 00957000 * @YM03688*/ 00958000 LA @14,192 0323 00959000 ALR @14,@15 0323 00960000 LA @11,AVTBFRTB(,IEDQAPTR) 0323 00961000 STCM @11,7,SCBDESTQ(@14) 0323 00962000 * SCBMACR=ADDR(AVTINOUT); /* DUMMY INEND ADDRESS. @YM03688*/ 00963000 LA @11,AVTINOUT(,IEDQAPTR) 0324 00964000 STCM @11,7,SCBMACR(@14) 0324 00965000 * SAVTPLCB=LCBLINK; /* REMOVE PLCB FROM POOL. */ 00966000 L @14,LCBLINK-1(,@15) 0325 00967000 LA @14,0(,@14) 0325 00968000 ST @14,SAVTPLCB(,@09) 0325 00969000 * SAVTSLCB=IEDQLPTR; /* SET SSCP'S PLCB ADDRESS INTO 00970000 * ITS QCB */ 00971000 * 0326 00972000 ST @15,SAVTSLCB(,@09) 0326 00973000 * /*****************************************************************/ 00974000 * /* */ 00975000 * /* ADJUST SEND SCHEDULER ADDRESS IN AVT TO BYPASS LCBSCAN */ 00976000 * /* DISPLACE MENT FIELD AT FRONT OF MODULE. ALSO ADJUST RECEIVE */ 00977000 * /* SCHEDULER ADDRESS TO BYPASS QEVENT DISPLACEMENT FIELD AT FRONT*/ 00978000 * /* OF MODULE. @YM03686*/ 00979000 * /* */ 00980000 * /*****************************************************************/ 00981000 * 0327 00982000 * AVTSEND=AVTSEND+2; /* SEND SCHEDULER ADDRESS PLUS 2.*/ 00983000 LA @09,2 0327 00984000 L @15,AVTSEND(,IEDQAPTR) 0327 00985000 ALR @15,@09 0327 00986000 ST @15,AVTSEND(,IEDQAPTR) 0327 00987000 * AVTRCV=AVTRCV+2; /* RECEIVE SCHEDULER ADDRESS PLUS 00988000 * 2. @YM03686*/ 00989000 * 0328 00990000 AL @09,AVTRCV(,IEDQAPTR) 0328 00991000 ST @09,AVTRCV(,IEDQAPTR) 0328 00992000 * /*****************************************************************/ 00993000 * /* */ 00994000 * /* RETURN TO IEDQND. */ 00995000 * /* */ 00996000 * /*****************************************************************/ 00997000 * 0329 00998000 * GEN( LM 14,12,AVTSAVE3+12(13) ) REFS(AVTSAVE3); 0329 00999000 LM 14,12,AVTSAVE3+12(13) ) REFS(AVTSAVE3 01000000 * RETURN; 0330 01001000 @EL00001 DS 0H 0330 01002000 @EF00001 DS 0H 0330 01003000 @ER00001 BR @14 0330 01004000 *SCANTNT: 0331 01005000 * PROCEDURE OPTIONS(RETREG,SAVE(R14)); 0331 01006000 SCANTNT ST @14,@SA00002 0331 01007000 * RFY 0332 01008000 * R14 RSTD; 0332 01009000 * 0332 01010000 * /*****************************************************************/ 01011000 * /* */ 01012000 * /* SET UP TNT SCAN. */ 01013000 * /* */ 01014000 * /*****************************************************************/ 01015000 * 0333 01016000 * NRVT=0; /* # RVT ELE ACCUMULATOR = 0 0333 01017000 * INITIALLY @YM07388*/ 01018000 SLR @15,@15 0333 01019000 STH @15,NRVT 0333 01020000 * RTTCIN=0; /* CURRENT TNT INDEX - 0 0334 01021000 * INITIALLY */ 01022000 SLR RTTCIN,RTTCIN 0334 01023000 * RTNT=ADDR(TNTFIRST)-LENGTH(TNTTRMAD);/* 1ST TNT ENTRY - 3. THERE- 01024000 * FORE STEP THRU TABLE WILL BE 01025000 * TO ADDRESS PORTION OF TNT 0335 01026000 * ENTRY */ 01027000 L RTNT,IEDQNPTR(,IEDQAPTR) 0335 01028000 SL RTNT,@CF02249 0335 01029000 * RESPECIFY 0336 01030000 * IEDTNTA BASED(RTNT); 0336 01031000 * 0336 01032000 * /*****************************************************************/ 01033000 * /* */ 01034000 * /* PASS EACH TNT ENTRY UNTIL TNT EXCEEDED. */ 01035000 * /* */ 01036000 * /*****************************************************************/ 01037000 * 0337 01038000 * DO WHILE(RTTCINPROLU=TRUE THEN/* 3705 RES OR TPROC 01120000 * LU */ 01121000 TM TRMPREF(RTRM),B'00010000' 0361 01122000 BO @RT00361 0361 01123000 TM PROLU(R15),B'01000000' 0361 01124000 BNO @RF00361 0361 01125000 @RT00361 DS 0H 0362 01126000 * DO; 0362 01127000 * RFY 0363 01128000 * R15 UNRSTD; 0363 01129000 * 0363 01130000 * /*****************************************************/ 01131000 * /* */ 01132000 * /* IF FIRST TNT NAT INDEX NOT SET THEN SET IT. */ 01133000 * /* */ 01134000 * /*****************************************************/ 01135000 * 0364 01136000 * IF SAVTNAT1=0 /* 1ST SET ? */ 01137000 * THEN 0364 01138000 L @15,AVTSAVTP(,IEDQAPTR) 0364 01139000 LH @11,SAVTNAT1(,@15) 0364 01140000 LTR @11,@11 0364 01141000 BNZ @RF00364 0364 01142000 * SAVTNAT1=RTTCIN; /* IF NOT THEN MAKE IT = CURRENT 01143000 * TNT INDEX */ 01144000 STH RTTCIN,SAVTNAT1(,@15) 0365 01145000 * ELSE 0366 01146000 * ; 0366 01147000 * 0366 01148000 @RF00364 DS 0H 0367 01149000 * /*****************************************************/ 01150000 * /* */ 01151000 * /* IF THIS IS NOT A TPROCESS LU ENTRY. */ 01152000 * /* */ 01153000 * /*****************************************************/ 01154000 * 0367 01155000 * IF TRMPROC^=TRUE THEN 0367 01156000 * 0367 01157000 TM TRMPROC(RTRM),B'00100000' 0367 01158000 BO @RF00367 0367 01159000 * /***************************************************/ 01160000 * /* */ 01161000 * /* THEN IF IT IS THE SSCP'S ENTRY, */ 01162000 * /* */ 01163000 * /***************************************************/ 01164000 * 0368 01165000 * IF TRMTYPE=TRMSSCP THEN 0368 01166000 LR @15,RTRM 0368 01167000 AL @15,@CF02256 0368 01168000 CLI TRMTYPE-11(@15),X'FF' 0368 01169000 BNE @RF00368 0368 01170000 * DO; 0369 01171000 * 0369 01172000 * /***********************************************/ 01173000 * /* */ 01174000 * /* SAVE SSCP'S TNT INDEX IN SAVT. */ 01175000 * /* */ 01176000 * /***********************************************/ 01177000 * 0370 01178000 * SAVTSCPT=RTTCIN;/* SSCP INDEX = CURRENT TNT */ 01179000 * 0370 01180000 L @15,AVTSAVTP(,IEDQAPTR) 0370 01181000 STH RTTCIN,SAVTSCPT(,@15) 0370 01182000 * /***********************************************/ 01183000 * /* */ 01184000 * /* INCREMENT THE # RVT ENTRIES BY 2, 1 FOR */ 01185000 * /* SSCP, 1 FOR PU. */ 01186000 * /* */ 01187000 * /***********************************************/ 01188000 * 0371 01189000 * NRVT=NRVT+2; /* #RVT ENTRIES+2 @YM07388*/ 01190000 LH @15,NRVT 0371 01191000 LA @15,2(,@15) 0371 01192000 STH @15,NRVT 0371 01193000 * END; 0372 01194000 * ELSE 0373 01195000 * ; 0373 01196000 @RF00368 DS 0H 0374 01197000 * ELSE 0374 01198000 * 0374 01199000 * /***************************************************/ 01200000 * /* */ 01201000 * /* ELSE INCREMENT # RVT ENTRIES IF IT IS TPROCESS */ 01202000 * /* LU. */ 01203000 * /* */ 01204000 * /***************************************************/ 01205000 * 0374 01206000 * NRVT=NRVT+1; /* # RVT ENTRIES + 1 @YM07388*/ 01207000 * 0374 01208000 B @RC00367 0374 01209000 @RF00367 LH @15,NRVT 0374 01210000 LA @15,1(,@15) 0374 01211000 STH @15,NRVT 0374 01212000 * /*****************************************************/ 01213000 * /* */ 01214000 * /* SET LAST SNA/3705 INDEX SAVE TO CURRENT INDEX. */ 01215000 * /* */ 01216000 * /*****************************************************/ 01217000 * 0375 01218000 * LASTTNT=RTTCIN; 0375 01219000 @RC00367 STH RTTCIN,LASTTNT 0375 01220000 * END; 0376 01221000 * ELSE 0377 01222000 * ; 0377 01223000 @RF00361 DS 0H 0378 01224000 * END; 0378 01225000 * ELSE 0379 01226000 * ; 0379 01227000 @RF00344 DS 0H 0380 01228000 * RFY 0380 01229000 * RTRM UNRSTD; 0380 01230000 @RF00343 DS 0H 0381 01231000 * END /* END TNT, RETURN */ 01232000 * ; 0381 01233000 @DE00337 L @15,IEDQNPTR(,IEDQAPTR) 0381 01234000 LH @15,TNTLEN(,@15) 0381 01235000 N @15,@CF02253 0381 01236000 CR RTTCIN,@15 0381 01237000 BL @DL00337 0381 01238000 * RFY 0382 01239000 * R14 UNRSTD; 0382 01240000 * END; 0383 01241000 @EL00002 DS 0H 0383 01242000 @EF00002 DS 0H 0383 01243000 @ER00002 L @14,@SA00002 0383 01244000 BR @14 0383 01245000 *MHCOUNT: 0384 01246000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA); 0384 01247000 MHCOUNT DS 0H 0385 01248000 * RESPECIFY 0385 01249000 * IEDMHTD BASED(RMH); /* MH TABLE ENTRY BASE */ 01250000 * RFY 0386 01251000 * R14 RSTD; /* RETURN REG */ 01252000 * 0386 01253000 * /*****************************************************************/ 01254000 * /* */ 01255000 * /* ADVANCE IN MH TABLE UNTIL AN X'FF' IS ENCOUNTERED. */ 01256000 * /* */ 01257000 * /*****************************************************************/ 01258000 * 0387 01259000 * DO WHILE(MHTABEND^=MHFLGE); 0387 01260000 * 0387 01261000 B @DE00387 0387 01262000 @DL00387 DS 0H 0388 01263000 * /***************************************************************/ 01264000 * /* */ 01265000 * /* INCREMENT # TABLE ENTRIES. */ 01266000 * /* */ 01267000 * /***************************************************************/ 01268000 * 0388 01269000 * RNMH=RNMH+1; 0388 01270000 * 0388 01271000 LA @15,1 0388 01272000 ALR RNMH,@15 0388 01273000 * /***************************************************************/ 01274000 * /* */ 01275000 * /* INCREMENT # RVT ENTRIES. */ 01276000 * /* */ 01277000 * /***************************************************************/ 01278000 * 0389 01279000 * NRVT=NRVT+1; /* # RVT ENTRIES + 1 @YM07388*/ 01280000 * 0389 01281000 LH @09,NRVT 0389 01282000 N @09,@CF02253 0389 01283000 ALR @15,@09 0389 01284000 STH @15,NRVT 0389 01285000 * /***************************************************************/ 01286000 * /* */ 01287000 * /* ADVANCE IN MH TABLE. */ 01288000 * /* */ 01289000 * /***************************************************************/ 01290000 * 0390 01291000 * RMH=RMH+LENGTH(IEDMHTD); /* NEXT MH ENTRY ADDRESS. */ 01292000 AL RMH,@CF00247 0390 01293000 * END; /* END MH DO WHILE */ 01294000 @DE00387 CLI MHTABEND(RMH),X'FF' 0391 01295000 BNE @DL00387 0391 01296000 * RFY 0392 01297000 * R14 UNRSTD; 0392 01298000 * END; /* END PROCEDURE */ 01299000 @EL00003 DS 0H 0393 01300000 @EF00003 DS 0H 0393 01301000 @ER00003 BR @14 0393 01302000 *LINKOR: 0394 01303000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA); 0394 01304000 LINKOR DS 0H 0395 01305000 * RFY 0395 01306000 * R14 RSTD; 0395 01307000 * DO WHILE(RCTR^=0); /* LINK ELEMENTS UNTIL COUNT 0396 01308000 * EXHAUSTED. */ 01309000 * 0396 01310000 B @DE00396 0396 01311000 @DL00396 DS 0H 0397 01312000 * /***************************************************************/ 01313000 * /* */ 01314000 * /* GET NEXT ELEMENT ADDRESS. */ 01315000 * /* */ 01316000 * /***************************************************************/ 01317000 * 0397 01318000 * RNEXT=RCURR+RLEN; /* NEXT ELEMENT */ 01319000 * 0397 01320000 LR RNEXT,RCURR 0397 01321000 ALR RNEXT,RLEN 0397 01322000 * /***************************************************************/ 01323000 * /* */ 01324000 * /* LINK CURRENT ELEMENT TO NEXT. */ 01325000 * /* */ 01326000 * /***************************************************************/ 01327000 * 0398 01328000 * LINK=RNEXT; 0398 01329000 * 0398 01330000 ST RNEXT,LINK(,RCURR) 0398 01331000 * /***************************************************************/ 01332000 * /* */ 01333000 * /* ADVANCE CURRENT ELEMENT TO NEXT. */ 01334000 * /* */ 01335000 * /***************************************************************/ 01336000 * 0399 01337000 * RCURR=RNEXT; /* CURRENT = NEXT */ 01338000 LR RCURR,RNEXT 0399 01339000 * RCTR=RCTR-1; /* # ELEMENTS - 1 */ 01340000 BCTR RCTR,0 0400 01341000 * END; /* END OF POOL DO WHILE */ 01342000 @DE00396 SLR @15,@15 0401 01343000 CR RCTR,@15 0401 01344000 BNE @DL00396 0401 01345000 * RCURR=RCURR-RLEN; /* BACK UP TO LAST POOL ELEMENT */ 01346000 SLR RCURR,RLEN 0402 01347000 * LINK=0; /* SET LINK FIELD IN LAST ELEMENT 01348000 * TO ZERO */ 01349000 ST @15,LINK(,RCURR) 0403 01350000 * RFY 0404 01351000 * R14 UNRSTD; 0404 01352000 * END; /* END LINKOR PROCEDURE */ 01353000 @EL00004 DS 0H 0405 01354000 @EF00004 DS 0H 0405 01355000 @ER00004 BR @14 0405 01356000 *GETMAIN: 0406 01357000 * PROCEDURE OPTIONS(NOSAVE,NOSAVEAREA); 0406 01358000 GETMAIN DS 0H 0407 01359000 * RFY 0407 01360000 * R14 RSTD; 0407 01361000 * 0407 01362000 * /*****************************************************************/ 01363000 * /* */ 01364000 * /* GETMAIN FOR NAT, SAT, RVT(INBOARD), PLCB POOL, SIB POOL. */ 01365000 * /* */ 01366000 * /*****************************************************************/ 01367000 * 0408 01368000 * AVTGETMS=0; /* SUBPOOL FOR GETMAIN = 0. */ 01369000 MVI AVTGETMS(IEDQAPTR),X'00' 0408 01370000 * AVTGETMD=ADDR(SAVTPOOL); /* GETMAIN ADDRESS WILL BE STORED 01371000 * IN SAVT POOL. */ 01372000 L @15,AVTSAVTP(,IEDQAPTR) 0409 01373000 LA @15,SAVTPOOL(,@15) 0409 01374000 ST @15,AVTGETMD(,IEDQAPTR) 0409 01375000 * RESPECIFY 0410 01376000 * R1 RESTRICTED; 0410 01377000 * RESPECIFY 0411 01378000 * R15 RESTRICTED; 0411 01379000 * R1=ADDR(AVTGETMN); /* GETMAIN PARM LIST ADDR */ 01380000 LA R1,AVTGETMN(,IEDQAPTR) 0412 01381000 * GEN( GETMAIN ,MF=(E,(1)) ); /* OBTAIN CORE. */ 01382000 GETMAIN ,MF=(E,(1)) 01383000 * RESPECIFY 0414 01384000 * R1 UNRESTRICTED; 0414 01385000 * 0414 01386000 * /*****************************************************************/ 01387000 * /* */ 01388000 * /* IF MEMORY NOT AVAILABLE THEN */ 01389000 * /* */ 01390000 * /*****************************************************************/ 01391000 * 0415 01392000 * IF R15^=0 THEN /* IF RETURN CODE INDICATES NO 0415 01393000 * CORE THEN */ 01394000 * 0415 01395000 LTR R15,R15 0415 01396000 BZ @RF00415 0415 01397000 * /***************************************************************/ 01398000 * /* */ 01399000 * /* SEND DIAGNOSTIC MESSAGE TO CONSOLE OPERATOR : IEDOO8I TCAM */ 01400000 * /* OPEN ERROR - 040 ... */ 01401000 * /* */ 01402000 * /***************************************************************/ 01403000 * 0416 01404000 * DO; 0416 01405000 * RESPECIFY 0417 01406000 * R1 RESTRICTED; 0417 01407000 * RESPECIFY 0418 01408000 * R15 UNRESTRICTED; 0418 01409000 * GEN; 0419 01410000 * 0419 01411000 * /* 01412000 WTO 'IED008I TCAM OPEN ERROR 040 - N PLCBCORE', C01413000 ROUTCDE=(2,11),DESC=1 @YM06644 01414000 * /*************************************************************/ 01415000 * /* */ 01416000 * /* ABEND 040. */ 01417000 * /* */ 01418000 * /*************************************************************/ 01419000 * 0420 01420000 * RESPECIFY 0420 01421000 * R0 RESTRICTED; 0420 01422000 * R0=AVTTCB; /* TCB ADDR (MCP) */ 01423000 L R0,AVTTCB(,IEDQAPTR) 0421 01424000 * R1='80040000'X; /* 040 ABEND CODE */ 01425000 L R1,@CF02242 0422 01426000 * GEN( ABEND (1),DUMP ) ; /* ABEND */ 01427000 ABEND (1),DUMP 01428000 * END; /* END OF THEN- NO MEMORY */ 01429000 * RFY 0425 01430000 * R14 UNRSTD; 0425 01431000 * RFY 0426 01432000 * R1 UNRSTD; 0426 01433000 * RFY 0427 01434000 * R0 UNRSTD; 0427 01435000 * END; /* END GETMAIN PROCEDURE */ 01436000 @EL00005 DS 0H 0428 01437000 @EF00005 DS 0H 0428 01438000 @ER00005 BR @14 0428 01439000 * END IEDIAB /* END OF COMPILATION */ 01440000 * 0429 01441000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01442000 */*%INCLUDE SYSLIB (TAVTD ) */ 01443000 */*%INCLUDE SYSLIB (CVT ) */ 01444000 */*%INCLUDE SYSLIB (TDISPD ) */ 01445000 */*%INCLUDE SYSLIB (TLCBD ) */ 01446000 */*%INCLUDE SYSLIB (TMHTABD ) */ 01447000 */*%INCLUDE SYSLIB (TNATD ) */ 01448000 */*%INCLUDE SYSLIB (TPROCD ) */ 01449000 */*%INCLUDE SYSLIB (TRVTD ) */ 01450000 */*%INCLUDE SYSLIB (TSATD ) */ 01451000 */*%INCLUDE SYSLIB (TSCBD ) */ 01452000 */*%INCLUDE SYSLIB (TSIBD ) */ 01453000 */*%INCLUDE SYSLIB (TTCXD ) */ 01454000 */*%INCLUDE SYSLIB (TTNTD ) */ 01455000 */*%INCLUDE SYSLIB (TTRMD ) */ 01456000 * 0429 01457000 * ; 0429 01458000 @DATA DS 0H 01459000 @CH02246 DC H'28' 01460000 DS 0F 01461000 @SA00002 DS 1F 01462000 @TF00001 DS F 01463000 @TF00002 DS F 01464000 DS 0F 01465000 @CF00063 DC F'1' 01466000 @CF00067 DC F'2' 01467000 @CF00076 DC F'3' 01468000 @CF00247 DC F'12' 01469000 @CF02249 DC F'-79' 01470000 @CF02256 DC F'-3' 01471000 @CF02198 DC XL4'FFFFFFF8' 01472000 @CF02242 DC XL4'80040000' 01473000 @CF02253 DC XL4'0000FFFF' 01474000 DS 0D 01475000 K11 DS A 01476000 NATSIZE DC A(0) 01477000 SATSIZE DC A(0) 01478000 RVTSIZE DC A(0) 01479000 PLCBSIZE DC A(0) 01480000 SIBSIZE DC A(0) 01481000 ADDRRVT DC A(0) 01482000 LASTTNT DC AL2(0) 01483000 NNAT DC AL2(0) 01484000 NRVT DS H 01485000 SUBVSAVE DS AL1 01486000 TPMASK DC X'0004' 01487000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01488000 @01 EQU 01 01489000 @02 EQU 02 01490000 @03 EQU 03 01491000 @04 EQU 04 01492000 @05 EQU 05 01493000 @06 EQU 06 01494000 @07 EQU 07 01495000 @08 EQU 08 01496000 @09 EQU 09 01497000 @10 EQU 10 01498000 @11 EQU 11 01499000 @12 EQU 12 01500000 @13 EQU 13 01501000 @14 EQU 14 01502000 @15 EQU 15 01503000 RBASE EQU @12 01504000 R15 EQU @15 01505000 IEDQAPTR EQU @13 01506000 LCBXPTR EQU @05 01507000 IEDQMHTP EQU @04 01508000 IEDQRVTP EQU @07 01509000 IEDQSATP EQU @10 01510000 TCXPTR EQU @10 01511000 IEDQTPTR EQU @09 01512000 R0 EQU @00 01513000 R1 EQU @01 01514000 RNMH EQU @03 01515000 RMH EQU @04 01516000 RTTCIN EQU @05 01517000 RTNT EQU @06 01518000 RSAT EQU @04 01519000 R11 EQU @11 01520000 RTRM EQU @09 01521000 RRVT EQU @07 01522000 RNAT EQU @08 01523000 IEDNATP EQU @08 01524000 R2TO8TH EQU @02 01525000 RNUMBITS EQU @03 01526000 RMASK EQU @04 01527000 RHOST EQU @05 01528000 RCURR EQU @02 01529000 RNEXT EQU @03 01530000 RCTR EQU @04 01531000 RLEN EQU @05 01532000 R14 EQU @14 01533000 CVTPTR EQU 16 01534000 IEDQAVTD EQU 0 01535000 AVTSAVE3 EQU IEDQAVTD+144 01536000 AVTSAVE4 EQU IEDQAVTD+216 01537000 AVTSAVEX EQU IEDQAVTD+288 01538000 AVTTCB EQU IEDQAVTD+368 01539000 AVTREADD EQU IEDQAVTD+380 01540000 AVTBUFSW EQU IEDQAVTD+384 01541000 @NM00004 EQU IEDQAVTD+388 01542000 AVTCKFLG EQU @NM00004 01543000 AVTBASE EQU IEDQAVTD+412 01544000 AVTPKF EQU AVTBASE 01545000 AVTRNMPT EQU IEDQAVTD+424 01546000 AVTOSECB EQU IEDQAVTD+492 01547000 AVTECB1 EQU AVTOSECB 01548000 AVTHG02 EQU IEDQAVTD+528 01549000 AVTDISP EQU IEDQAVTD+552 01550000 AVTHD EQU IEDQAVTD+556 01551000 AVTSCOPT EQU AVTHD 01552000 AVTSEND EQU IEDQAVTD+596 01553000 AVTRCV EQU IEDQAVTD+600 01554000 AVTSAVTP EQU IEDQAVTD+612 01555000 AVTSAVTF EQU AVTSAVTP 01556000 AVTPLCBN EQU IEDQAVTD+616 01557000 AVTCKPEL EQU IEDQAVTD+652 01558000 AVTCKRMV EQU AVTCKPEL 01559000 AVTSCBSZ EQU IEDQAVTD+676 01560000 AVTCKELF EQU IEDQAVTD+680 01561000 AVTCKBYT EQU IEDQAVTD+691 01562000 AVTHG01 EQU IEDQAVTD+692 01563000 AVTCKLNK EQU IEDQAVTD+696 01564000 AVTCRELE EQU IEDQAVTD+708 01565000 AVTCCELE EQU AVTCRELE 01566000 AVTCLRHI EQU IEDQAVTD+716 01567000 AVTADBUF EQU IEDQAVTD+720 01568000 AVTSYSER EQU IEDQAVTD+728 01569000 AVTINOUT EQU IEDQAVTD+766 01570000 AVTBFRFG EQU IEDQAVTD+784 01571000 AVTBFRTB EQU IEDQAVTD+792 01572000 AVTCKPQB EQU IEDQAVTD+804 01573000 AVTCKPTB EQU AVTCKPQB 01574000 AVTCKPEC EQU AVTCKPQB+4 01575000 AVTCKPCC EQU AVTCKPEC 01576000 AVTOPCQB EQU IEDQAVTD+816 01577000 AVTOPCOB EQU AVTOPCQB 01578000 AVTOPCEC EQU AVTOPCQB+4 01579000 AVTOPCCC EQU AVTOPCEC 01580000 AVTOLTQB EQU IEDQAVTD+828 01581000 AVTCWFL1 EQU IEDQAVTD+924 01582000 AVTCWFL2 EQU IEDQAVTD+925 01583000 AVTSUBT EQU IEDQAVTD+948 01584000 AVTIOTR EQU IEDQAVTD+949 01585000 AVTGETMN EQU IEDQAVTD+1012 01586000 AVTGETMD EQU IEDQAVTD+1016 01587000 AVTGETMS EQU IEDQAVTD+1021 01588000 AVTBIT1 EQU IEDQAVTD+1050 01589000 AVTBIT2 EQU IEDQAVTD+1051 01590000 AVTBIT3 EQU IEDQAVTD+1052 01591000 AVTDDFT EQU IEDQAVTD+1064 01592000 AVTBIT4 EQU IEDQAVTD+1136 01593000 @NM00086 EQU IEDQAVTD+1232 01594000 IEDNSVTD EQU 0 01595000 SAVTDIAG EQU IEDNSVTD 01596000 SAVTDIAF EQU SAVTDIAG 01597000 SAVTPOOL EQU IEDNSVTD+4 01598000 SAVTPLCB EQU IEDNSVTD+8 01599000 SAVTSIB EQU IEDNSVTD+36 01600000 SAVTNAT EQU IEDNSVTD+76 01601000 SAVTSAT EQU IEDNSVTD+80 01602000 SAVTLUSQ EQU IEDNSVTD+88 01603000 SAVTSLCB EQU IEDNSVTD+104 01604000 SAVTMHTB EQU IEDNSVTD+216 01605000 SAVTNATL EQU IEDNSVTD+220 01606000 SAVTTCPU EQU IEDNSVTD+238 01607000 SAVTSCPT EQU SAVTTCPU 01608000 SAVTSIBC EQU IEDNSVTD+244 01609000 SAVTSUBA EQU IEDNSVTD+246 01610000 SAVTSUBV EQU IEDNSVTD+247 01611000 SAVTNAT1 EQU IEDNSVTD+266 01612000 SAVTMHDX EQU IEDNSVTD+268 01613000 SAVTZELM EQU IEDNSVTD+270 01614000 SAVTSUBM EQU SAVTZELM 01615000 SAVTSUBL EQU IEDNSVTD+272 01616000 SAVTPLSZ EQU IEDNSVTD+274 01617000 SAVTRDRV EQU IEDNSVTD+284 01618000 SAVTCKQB EQU IEDNSVTD+300 01619000 SAVTCKTB EQU SAVTCKQB 01620000 SAVTCKEC EQU SAVTCKQB+4 01621000 SAVTCKCC EQU SAVTCKEC 01622000 SAVTLLCB EQU IEDNSVTD+316 01623000 CVTMAP EQU 0 01624000 CVTDAR EQU CVTMAP+72 01625000 CVTFLGS1 EQU CVTDAR 01626000 CVTDCB EQU CVTMAP+116 01627000 CVTIERLC EQU CVTMAP+144 01628000 CVTOPTA EQU CVTMAP+182 01629000 CVTOPTB EQU CVTMAP+183 01630000 CVTGTF EQU CVTMAP+236 01631000 CVTGTFST EQU CVTGTF 01632000 CVTGTFS EQU CVTGTFST 01633000 CVTSTATE EQU CVTGTFST 01634000 CVTTMODE EQU CVTGTFST 01635000 CVTFORM EQU CVTGTFST 01636000 CVTAQAVT EQU CVTMAP+240 01637000 CVTTCMFG EQU CVTAQAVT 01638000 CVTVOLM2 EQU CVTMAP+244 01639000 CVTTATA EQU CVTVOLM2 01640000 CVTTSKS EQU CVTTATA 01641000 CVTVOLF2 EQU CVTTSKS 01642000 CVTTAT EQU CVTTATA+1 01643000 CVTATER EQU CVTMAP+248 01644000 CVTEXT1 EQU CVTMAP+252 01645000 CVTPURG EQU CVTMAP+260 01646000 CVTQMSG EQU CVTMAP+268 01647000 CVTDMSR EQU CVTMAP+272 01648000 CVTRSV37 EQU CVTDMSR 01649000 CVTDMSRF EQU CVTRSV37 01650000 CVTERPV EQU CVTMAP+316 01651000 CVTINTLA EQU CVTMAP+320 01652000 CVTAPF EQU CVTMAP+324 01653000 CVTEXT2 EQU CVTMAP+328 01654000 CVTHJES EQU CVTMAP+332 01655000 CVTPGSIA EQU CVTMAP+348 01656000 CVTA1F1 EQU CVTMAP+356 01657000 CVTSYSK EQU CVTMAP+357 01658000 CVTVOLM1 EQU CVTMAP+380 01659000 CVTVOLF1 EQU CVTVOLM1 01660000 CVTATMCT EQU CVTMAP+388 01661000 CVTXTNT1 EQU 0 01662000 CVTXTNT2 EQU 0 01663000 CVTDSSV EQU CVTXTNT2 01664000 CVTFLGBT EQU CVTXTNT2+5 01665000 CVTQID EQU CVTXTNT2+24 01666000 CVTSHS EQU CVTXTNT2+40 01667000 CVTRV400 EQU CVTXTNT2+52 01668000 CVTRV409 EQU CVTXTNT2+53 01669000 CVTATCVT EQU CVTXTNT2+64 01670000 CVTRV429 EQU CVTXTNT2+84 01671000 CVTRV438 EQU CVTXTNT2+85 01672000 CVTRV457 EQU CVTXTNT2+112 01673000 CVTRV466 EQU CVTXTNT2+113 01674000 CVTFIX EQU 0 01675000 CVTRELNO EQU CVTFIX+252 01676000 IEDQDISP EQU 0 01677000 IEDQLCB EQU 0 01678000 LCBRCB EQU IEDQLCB 01679000 LCBLINK EQU LCBRCB+5 01680000 LCBRSKEY EQU IEDQLCB+8 01681000 LCBSTCBA EQU IEDQLCB+9 01682000 LCBRSPRI EQU IEDQLCB+12 01683000 LCBRSLNK EQU IEDQLCB+13 01684000 LCBTSOB EQU IEDQLCB+19 01685000 LCBCHAIN EQU IEDQLCB+20 01686000 LCBSCRNN EQU LCBCHAIN 01687000 LCBTETEN EQU LCBCHAIN 01688000 LCBINSRC EQU IEDQLCB+21 01689000 LCBLKMDE EQU LCBINSRC+2 01690000 LCBNTXT EQU IEDQLCB+24 01691000 LCBSTAT4 EQU LCBNTXT 01692000 LCBPHASE EQU LCBSTAT4 01693000 LCBSCBDA EQU IEDQLCB+25 01694000 LCBMHA EQU IEDQLCB+29 01695000 LCBFLAG1 EQU IEDQLCB+32 01696000 LCBIOBSN EQU IEDQLCB+33 01697000 LCBSNS EQU LCBIOBSN+1 01698000 LCBSENS0 EQU LCBSNS 01699000 LCBLOSDT EQU LCBSENS0 01700000 LCBTMOUT EQU LCBSENS0 01701000 LCBFLAG3 EQU LCBIOBSN+7 01702000 LCBCSW EQU LCBIOBSN+8 01703000 LCBCSWST EQU LCBCSW+3 01704000 LCBCSWUS EQU LCBCSWST 01705000 LCBCSWCS EQU LCBCSWST+1 01706000 LCBSIOCC EQU LCBIOBSN+15 01707000 LCBDCBPT EQU IEDQLCB+52 01708000 LCBRCQCB EQU IEDQLCB+56 01709000 LCBRESTR EQU LCBRCQCB 01710000 LCBTHSQ EQU IEDQLCB+60 01711000 LCBINCAM EQU LCBTHSQ 01712000 LCBERRCT EQU IEDQLCB+62 01713000 LCBLSPCI EQU IEDQLCB+65 01714000 LCBRCBFR EQU LCBLSPCI 01715000 LCBSTATE EQU IEDQLCB+70 01716000 LCBSTAT1 EQU LCBSTATE 01717000 LCBFREEN EQU LCBSTAT1 01718000 LCBSTAT2 EQU LCBSTATE+1 01719000 LCBBEOTN EQU LCBSTAT2 01720000 LCBSYNC EQU LCBSTAT2 01721000 LCBDIAL EQU LCBSTAT2 01722000 LCBTSTSW EQU IEDQLCB+72 01723000 LCBERB EQU IEDQLCB+76 01724000 LCBERBST EQU IEDQLCB+84 01725000 LCBDLNKN EQU LCBERBST 01726000 LCBERBCT EQU IEDQLCB+88 01727000 LCBRBCT2 EQU LCBERBCT+1 01728000 LCBMSGFM EQU IEDQLCB+92 01729000 LCBSCBA EQU IEDQLCB+93 01730000 LCBOBRCH EQU IEDQLCB+96 01731000 LCBINVPT EQU LCBOBRCH+1 01732000 LCBBFRW EQU LCBINVPT 01733000 LCBTPCD EQU IEDQLCB+100 01734000 LCBSTAT5 EQU LCBTPCD 01735000 LCBPERM EQU LCBSTAT5 01736000 LCBLUNIT EQU LCBSTAT5 01737000 LCBSTAT6 EQU LCBTPCD+4 01738000 LCBRSPSV EQU LCBTPCD+8 01739000 LCBSAVSN EQU IEDQLCB+112 01740000 LCBERCCW EQU IEDQLCB+120 01741000 LCBCPA EQU IEDQLCB+144 01742000 LCBCCW5 EQU LCBCPA+32 01743000 LCBATTEL EQU LCBCCW5 01744000 LCBQEBPL EQU LCBATTEL 01745000 IEDQLCBX EQU 0 01746000 LCBXCON EQU IEDQLCBX 01747000 LCBXFLAG EQU LCBXCON 01748000 LCBXDCT EQU LCBXCON+1 01749000 LCBXRADR EQU LCBXCON+4 01750000 IEDMHTD EQU 0 01751000 MHNAME EQU IEDMHTD 01752000 MHTABEND EQU MHNAME 01753000 IEDNATD EQU 0 01754000 NATODAF EQU IEDNATD 01755000 IEDPROC EQU 0 01756000 PROFLAG EQU IEDPROC+1 01757000 PROLU EQU PROFLAG 01758000 IEDRVTD EQU 0 01759000 RVTNUM EQU IEDRVTD 01760000 RVTINDEX EQU IEDRVTD+2 01761000 IEDSATD EQU 0 01762000 SATRNRVT EQU IEDSATD+4 01763000 IEDQSCB EQU 0 01764000 SCBSTATE EQU IEDQSCB 01765000 SCBSEQIN EQU SCBSTATE 01766000 SCBDESTQ EQU IEDQSCB+1 01767000 SCBRCVCT EQU IEDQSCB+4 01768000 SCBMBHEN EQU IEDQSCB+5 01769000 SCBMACR EQU SCBMBHEN 01770000 SCBBKFCT EQU IEDQSCB+9 01771000 SCBEOBSZ EQU SCBBKFCT+1 01772000 SCBSALEV EQU IEDQSCB+12 01773000 SCBQTYPE EQU SCBSALEV 01774000 SCBERRST EQU IEDQSCB+16 01775000 SCBERR1 EQU SCBERRST 01776000 SCBHDRRN EQU SCBERR1 01777000 SCBORIGN EQU SCBERR1 01778000 SCBNOTRM EQU SCBERR1 01779000 SCBSEQHN EQU SCBERR1 01780000 SCBSEQLN EQU SCBERR1 01781000 SCBCUTFN EQU SCBERR1 01782000 SCBERR2 EQU SCBERRST+1 01783000 SCBABRTN EQU SCBERR2 01784000 SCBERR3 EQU SCBERRST+2 01785000 SCBLOSTN EQU SCBERR3 01786000 SCBTMIDN EQU SCBERR3 01787000 SCBFORMN EQU SCBERR3 01788000 SCBATTN EQU SCBERR3 01789000 SCBXCEPN EQU SCBERR3 01790000 SCBERR4 EQU SCBERRST+3 01791000 SCBTXTTN EQU SCBERR4 01792000 SCBCTLUN EQU SCBERR4 01793000 SCBCHANN EQU SCBERR4 01794000 SCBDLPTR EQU IEDQSCB+22 01795000 SCBEOBAC EQU SCBDLPTR 01796000 SCBCTBAC EQU SCBEOBAC 01797000 SCBBSCFM EQU IEDQSCB+24 01798000 SCBDATEN EQU SCBBSCFM 01799000 SCBITBSZ EQU IEDQSCB+40 01800000 SCBCTBSV EQU SCBITBSZ 01801000 SCBDNSEG EQU IEDQSCB+41 01802000 SCBCLSEG EQU IEDQSCB+45 01803000 SCBITBAC EQU IEDQSCB+48 01804000 SCBCTBFL EQU SCBITBAC 01805000 SCBBLKCT EQU SCBCTBFL 01806000 SCBDCSEG EQU IEDQSCB+49 01807000 SCBSTAT1 EQU IEDQSCB+60 01808000 SCBCORE EQU IEDQSCB+61 01809000 SCBSCAN EQU IEDQSCB+64 01810000 SCBNTXT EQU IEDQSCB+66 01811000 SCBCHDR EQU IEDQSCB+72 01812000 SCBCCSEG EQU IEDQSCB+75 01813000 SCBEND EQU IEDQSCB+84 01814000 IEDSIBD EQU 0 01815000 SIBSESSN EQU IEDSIBD+10 01816000 SIBPACIN EQU IEDSIBD+11 01817000 SIBSEQN EQU IEDSIBD+12 01818000 SIBSTAT1 EQU IEDSIBD+16 01819000 SIBSTAT2 EQU IEDSIBD+17 01820000 SIBBIND EQU IEDSIBD+20 01821000 SIBBIND1 EQU SIBBIND 01822000 SIBBIND2 EQU SIBBIND+1 01823000 SIBBIND3 EQU SIBBIND+2 01824000 SIBSTAT0 EQU IEDSIBD+23 01825000 IEDQTCXD EQU 0 01826000 TCXATTEN EQU IEDQTCXD+4 01827000 TCXFLAG1 EQU IEDQTCXD+34 01828000 TCXBUFA EQU IEDQTCXD+80 01829000 TCXTOTE EQU TCXBUFA 01830000 TCXDSAVE EQU IEDQTCXD+104 01831000 TCXQE8 EQU IEDQTCXD+216 01832000 IEDQTNTD EQU 0 01833000 IEDQTCDE EQU IEDQTNTD 01834000 TNTENLEN EQU IEDQTNTD+40 01835000 TNTLEN EQU IEDQTNTD+44 01836000 IEDQTDCE EQU IEDQTNTD+46 01837000 TNTFIRST EQU 0 01838000 IEDTNTA EQU 0 01839000 TNTTRMAD EQU IEDTNTA 01840000 IEDQTRM EQU 0 01841000 TRMSTATE EQU IEDQTRM 01842000 TRMLOG EQU TRMSTATE 01843000 TRMPROC EQU TRMLOG 01844000 TRMPREF EQU TRMSTATE 01845000 TRMINSEQ EQU IEDQTRM+4 01846000 TLISTCNT EQU TRMINSEQ 01847000 TRMOUTSQ EQU IEDQTRM+6 01848000 TLISTEN EQU TRMOUTSQ 01849000 TRMDSORG EQU TLISTEN 01850000 TRMALTD EQU IEDQTRM+8 01851000 TRMDEVFL EQU IEDQTRM+10 01852000 TRMTPIN EQU TRMDEVFL+1 01853000 TRMSTAT EQU IEDQTRM+12 01854000 IEDNTRM EQU 0 01855000 TRMBYTE4 EQU IEDNTRM 01856000 TRMBYTE3 EQU IEDNTRM+1 01857000 TRMBYTE2 EQU IEDNTRM+2 01858000 TRMINPG EQU TRMBYTE2 01859000 TRMBYTE1 EQU IEDNTRM+3 01860000 TRMSCPRQ EQU TRMBYTE1 01861000 TRMBYTE0 EQU IEDNTRM+6 01862000 TRMSIBPT EQU IEDNTRM+7 01863000 TRMTYPE EQU IEDNTRM+11 01864000 QEVENT EQU 0 01865000 IEDQTL EQU 0 01866000 ELEMENT EQU 0 01867000 LINK EQU ELEMENT+4 01868000 DSPBYPAS EQU 20 01869000 DSPCHAIN EQU 12 01870000 DSPDISP EQU 4 01871000 DSPLIFO EQU 56 01872000 DSPLIFOR EQU 60 01873000 DSPLIST EQU 8 01874000 DSPPOST EQU 24 01875000 DSPPOSTR EQU 28 01876000 DSPPRIO EQU 48 01877000 DSPPRIOR EQU 52 01878000 DSPTRACE EQU 64 01879000 DSPTSTQ EQU 32 01880000 DSPTSTQR EQU 36 01881000 DSPUNAV EQU 40 01882000 DSPUNAVR EQU 44 01883000 DSPWAIT EQU 16 01884000 TNTCODE EQU 0 01885000 TNTDCODE EQU 0 01886000 CVTS01 EQU CVTPGSIA 01887000 CVTLPDIA EQU CVTS01+12 01888000 CVTDIRST EQU CVTLPDIA 01889000 CVTSLIDA EQU CVTS01+24 01890000 CVTCTLFG EQU CVTS01+50 01891000 CVTRV210 EQU CVTS01+424 01892000 CVTRV219 EQU CVTS01+425 01893000 CVTRV228 EQU CVTS01+426 01894000 CVTRV237 EQU CVTS01+427 01895000 CVTMFRTR EQU CVTS01+452 01896000 CVTRV262 EQU CVTS01+468 01897000 CVTRV271 EQU CVTS01+469 01898000 CVTRV280 EQU CVTS01+470 01899000 CVTRV289 EQU CVTS01+471 01900000 CVTGSDA EQU CVTS01+600 01901000 RDISP EQU K11 01902000 IEDQLPTR EQU K11 01903000 LCBRSPIN EQU LCBIOBSN 01904000 LCBLUSNS EQU LCBRSPIN+5 01905000 LCBSCPRS EQU LCBRSPIN+9 01906000 LCBCSWU1 EQU LCBSCPRS+2 01907000 LCBRSPFG EQU LCBRSPIN+15 01908000 LCBCOREQ EQU LCBTPCD 01909000 @NM00136 EQU LCBCPA+40 01910000 LCBQNX EQU LCBERCCW 01911000 LCBQNXMN EQU LCBQNX 01912000 LCBCANCL EQU LCBSAVSN 01913000 LCBCANFG EQU LCBCANCL 01914000 IEDQNATP EQU K11 01915000 IEDQSPTR EQU K11 01916000 IEDQNPTR EQU AVTRNMPT 01917000 TRMPRE1 EQU TRMBYTE4 01918000 TRMNCP1 EQU TRMBYTE4 01919000 TRMPRE EQU TRMBYTE3 01920000 TRMNCP EQU TRMBYTE3 01921000 TRMPU EQU TRMBYTE3 01922000 TRMLU EQU TRMBYTE3 01923000 TRMLINK EQU TRMBYTE3 01924000 IEDQSIBP EQU K11 01925000 SCBRGSAV EQU SCBEND 01926000 TRMOPT EQU IEDQTRM+20 01927000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01928000 @NM00164 EQU TRMLINK 01929000 TRMLSTAT EQU TRMLINK 01930000 TRMLINT EQU TRMLINK 01931000 TRMEPMOD EQU TRMLINK 01932000 TRMLULOG EQU TRMLU 01933000 TRMINERR EQU TRMLU 01934000 TRMLUREQ EQU TRMLU 01935000 TRMSESRQ EQU TRMLU 01936000 TRMTDIFF EQU TRMLU 01937000 TRMLUTM EQU TRMLU 01938000 TRMLUIT EQU TRMLU 01939000 TRMAUTO EQU TRMLU 01940000 TRMPCONT EQU TRMPU 01941000 @NM00163 EQU TRMPU 01942000 TRMNCONT EQU TRMNCP 01943000 TRMQUCKN EQU TRMNCP 01944000 TRMSLOWN EQU TRMNCP 01945000 TRMSYGEN EQU TRMNCP 01946000 TRMNCPCL EQU TRMNCP 01947000 TRMIPLDM EQU TRMNCP 01948000 TRMINOUT EQU TRMPRE 01949000 TRMRDOUT EQU TRMPRE 01950000 TRMNLOUT EQU TRMPRE 01951000 TRMWROUT EQU TRMPRE 01952000 TRMASNXI EQU TRMPRE 01953000 TRMSTMM EQU TRMPRE 01954000 TRMCMODE EQU TRMPRE 01955000 TRMSTPND EQU TRMPRE 01956000 @NM00162 EQU TRMNCP1 01957000 TRMINOP EQU TRMNCP1 01958000 TRMLYNCH EQU TRMPRE1 01959000 TRMSPOUT EQU TRMPRE1 01960000 TRMERLCK EQU TRMPRE1 01961000 TRMQNPL EQU TRMPRE1 01962000 TRMSPACT EQU TRMPRE1 01963000 TRMOCNI EQU TRMPRE1 01964000 TRMSESSN EQU TRMPRE1 01965000 TRMCONT EQU TRMPRE1 01966000 @NM00144 EQU LCBCANCL+3 01967000 LCBCANTH EQU LCBCANCL+1 01968000 @NM00143 EQU LCBCANFG 01969000 LCBCANCD EQU LCBCANFG 01970000 @NM00142 EQU LCBCANFG 01971000 LCBCANEB EQU LCBCANFG 01972000 LCBCANXT EQU LCBCANFG 01973000 LCBUNADD EQU LCBQNX+21 01974000 LCBUASZE EQU LCBQNX+20 01975000 LCBDSTEA EQU LCBQNX+16 01976000 @NM00141 EQU LCBQNX+8 01977000 LCBIOSBS EQU LCBQNX+5 01978000 @NM00140 EQU LCBQNX+4 01979000 LCBSTSAV EQU LCBQNX+1 01980000 @NM00139 EQU LCBQNXMN 01981000 LCBNX509 EQU LCBQNXMN 01982000 LCBNX162 EQU LCBQNXMN 01983000 LCBNX142 EQU LCBQNXMN 01984000 LCBNX064 EQU LCBQNXMN 01985000 @NM00138 EQU @NM00136+4 01986000 LCBNCPPT EQU @NM00136+1 01987000 @NM00137 EQU @NM00136 01988000 LCBWRSCH EQU LCBCOREQ+8 01989000 LCBCQLNK EQU LCBCOREQ+4 01990000 LCBCQELE EQU LCBCOREQ 01991000 LCBPAKCH EQU LCBRSPIN+16 01992000 @NM00135 EQU LCBRSPFG 01993000 LCBRSRH EQU LCBRSPFG 01994000 LCBEXPI EQU LCBRSPFG 01995000 @NM00134 EQU LCBRSPIN+12 01996000 LCBUSUE1 EQU LCBCSWU1 01997000 @NM00133 EQU LCBCSWU1 01998000 @NM00132 EQU LCBSCPRS+1 01999000 LCBDFCMD EQU LCBSCPRS 02000000 LCBUSER EQU LCBLUSNS+2 02001000 LCBSMIN EQU LCBLUSNS+1 02002000 LCBSMAJ EQU LCBLUSNS 02003000 LCBRHSV EQU LCBRSPIN+2 02004000 LCBSNS0 EQU LCBRSPIN+1 02005000 @NM00131 EQU LCBRSPIN 02006000 CVTRV628 EQU CVTS01+728 02007000 CVTRV627 EQU CVTS01+724 02008000 CVTRV626 EQU CVTS01+720 02009000 CVTRV625 EQU CVTS01+716 02010000 CVTRV624 EQU CVTS01+712 02011000 CVTRV623 EQU CVTS01+708 02012000 CVTRV622 EQU CVTS01+704 02013000 CVTRV621 EQU CVTS01+700 02014000 CVTRV620 EQU CVTS01+696 02015000 CVTRV619 EQU CVTS01+692 02016000 CVTRV618 EQU CVTS01+688 02017000 CVTRV617 EQU CVTS01+684 02018000 CVTRV616 EQU CVTS01+680 02019000 CVTRV615 EQU CVTS01+676 02020000 CVTRV614 EQU CVTS01+672 02021000 CVTRV613 EQU CVTS01+668 02022000 CVTTCASP EQU CVTS01+664 02023000 CVT0PT03 EQU CVTS01+660 02024000 CVT0PT0E EQU CVTS01+656 02025000 CVTIRM EQU CVTS01+652 02026000 CVTCGK EQU CVTS01+648 02027000 CVTRV607 EQU CVTS01+644 02028000 CVTRV606 EQU CVTS01+640 02029000 CVTRV605 EQU CVTS01+636 02030000 CVTRV604 EQU CVTS01+632 02031000 CVTEFF02 EQU CVTS01+628 02032000 CVTCBBR EQU CVTS01+624 02033000 CVTSSCR EQU CVTS01+620 02034000 CVTEVENT EQU CVTS01+616 02035000 CVTCRCA EQU CVTS01+612 02036000 CVTTPIO EQU CVTS01+608 02037000 CVTADV EQU CVTS01+604 02038000 CVTGSDAB EQU CVTGSDA 02039000 CVTQV3 EQU CVTS01+596 02040000 CVTQV2 EQU CVTS01+592 02041000 CVTQV1 EQU CVTS01+588 02042000 CVTRPT EQU CVTS01+584 02043000 CVTSSRB EQU CVTS01+580 02044000 CVTCSDRL EQU CVTS01+576 02045000 CVTEXP1 EQU CVTS01+572 02046000 CVTRMPMT EQU CVTS01+568 02047000 CVTRMPTT EQU CVTS01+564 02048000 CVTVPSA EQU CVTS01+560 02049000 CVTVSTOP EQU CVTS01+556 02050000 CVTGTFR8 EQU CVTS01+552 02051000 CVTQUIT EQU CVTS01+548 02052000 CVTVACR EQU CVTS01+544 02053000 CVTWTCB EQU CVTS01+540 02054000 CVTSTPRS EQU CVTS01+536 02055000 CVT0PT02 EQU CVTS01+532 02056000 CVTDARCM EQU CVTS01+528 02057000 CVTIRECM EQU CVTS01+524 02058000 CVTJRECM EQU CVTS01+520 02059000 CVTVEMS0 EQU CVTS01+516 02060000 CVTSPFRR EQU CVTS01+512 02061000 CVTRLSTG EQU CVTS01+508 02062000 CVT0TC0A EQU CVTS01+504 02063000 CVTGMBR EQU CVTS01+500 02064000 CVTLFRM EQU CVTS01+496 02065000 CVTRMBR EQU CVTS01+492 02066000 CVTVIOP EQU CVTS01+488 02067000 CVTRV307 EQU CVTS01+486 02068000 CVTRV306 EQU CVTS01+484 02069000 CVTRV305 EQU CVTS01+482 02070000 CVTRV304 EQU CVTS01+480 02071000 CVTRV303 EQU CVTS01+478 02072000 CVTRV302 EQU CVTS01+476 02073000 CVTTRCA EQU CVTS01+472 02074000 CVTRV297 EQU CVTRV289 02075000 CVTRV296 EQU CVTRV289 02076000 CVTRV295 EQU CVTRV289 02077000 CVTRV294 EQU CVTRV289 02078000 CVTRV293 EQU CVTRV289 02079000 CVTRV292 EQU CVTRV289 02080000 CVTRV291 EQU CVTRV289 02081000 CVTRV290 EQU CVTRV289 02082000 CVTRV288 EQU CVTRV280 02083000 CVTRV287 EQU CVTRV280 02084000 CVTRV286 EQU CVTRV280 02085000 CVTRV285 EQU CVTRV280 02086000 CVTRV284 EQU CVTRV280 02087000 CVTRV283 EQU CVTRV280 02088000 CVTRV282 EQU CVTRV280 02089000 CVTRV281 EQU CVTRV280 02090000 CVTRV279 EQU CVTRV271 02091000 CVTRV278 EQU CVTRV271 02092000 CVTRV277 EQU CVTRV271 02093000 CVTRV276 EQU CVTRV271 02094000 CVTRV275 EQU CVTRV271 02095000 CVTRV274 EQU CVTRV271 02096000 CVTRV273 EQU CVTRV271 02097000 CVTRV272 EQU CVTRV271 02098000 CVTRV270 EQU CVTRV262 02099000 CVTRV269 EQU CVTRV262 02100000 CVTRV268 EQU CVTRV262 02101000 CVTRV267 EQU CVTRV262 02102000 CVTRV266 EQU CVTRV262 02103000 CVTRV265 EQU CVTRV262 02104000 CVTRV264 EQU CVTRV262 02105000 CVTRV263 EQU CVTRV262 02106000 CVTVFP EQU CVTS01+464 02107000 CVTVSI EQU CVTS01+460 02108000 CVTVPSIB EQU CVTS01+456 02109000 CVTMFACT EQU CVTMFRTR 02110000 CVTMFCTL EQU CVTS01+448 02111000 CVTPVBP EQU CVTS01+444 02112000 CVTPWI EQU CVTS01+440 02113000 CVTRV254 EQU CVTS01+438 02114000 CVTRV253 EQU CVTS01+436 02115000 CVTRV252 EQU CVTS01+434 02116000 CVTRV251 EQU CVTS01+433 02117000 CVTRV250 EQU CVTS01+432 02118000 CVTRV249 EQU CVTS01+431 02119000 CVTRV248 EQU CVTS01+430 02120000 CVTRV247 EQU CVTS01+429 02121000 CVTRV246 EQU CVTS01+428 02122000 CVTRV245 EQU CVTRV237 02123000 CVTRV244 EQU CVTRV237 02124000 CVTRV243 EQU CVTRV237 02125000 CVTRV242 EQU CVTRV237 02126000 CVTRV241 EQU CVTRV237 02127000 CVTRV240 EQU CVTRV237 02128000 CVTRV239 EQU CVTRV237 02129000 CVTRV238 EQU CVTRV237 02130000 CVTRV236 EQU CVTRV228 02131000 CVTRV235 EQU CVTRV228 02132000 CVTRV234 EQU CVTRV228 02133000 CVTRV233 EQU CVTRV228 02134000 CVTRV232 EQU CVTRV228 02135000 CVTRV231 EQU CVTRV228 02136000 CVTRV230 EQU CVTRV228 02137000 CVTRV229 EQU CVTRV228 02138000 CVTRV227 EQU CVTRV219 02139000 CVTRV226 EQU CVTRV219 02140000 CVTRV225 EQU CVTRV219 02141000 CVTRV224 EQU CVTRV219 02142000 CVTRV223 EQU CVTRV219 02143000 CVTRV222 EQU CVTRV219 02144000 CVTRV221 EQU CVTRV219 02145000 CVTRV220 EQU CVTRV219 02146000 CVTRV218 EQU CVTRV210 02147000 CVTRV217 EQU CVTRV210 02148000 CVTRV216 EQU CVTRV210 02149000 CVTRV215 EQU CVTRV210 02150000 CVTRV214 EQU CVTRV210 02151000 CVTRV213 EQU CVTRV210 02152000 CVTRV212 EQU CVTRV210 02153000 CVTRV211 EQU CVTRV210 02154000 CVTLCCAT EQU CVTS01+420 02155000 CVTPCCAT EQU CVTS01+416 02156000 CVTIPCRP EQU CVTS01+412 02157000 CVTIPCRI EQU CVTS01+408 02158000 CVTIPCDS EQU CVTS01+404 02159000 CVTAIDVT EQU CVTS01+400 02160000 CVTSSAP EQU CVTS01+396 02161000 CVTEHCIR EQU CVTS01+392 02162000 CVTEHDEF EQU CVTS01+388 02163000 CVTDAIR EQU CVTS01+384 02164000 CVTPERFM EQU CVTS01+380 02165000 CVT044R2 EQU CVTS01+376 02166000 CVTFETCH EQU CVTS01+372 02167000 CVTRSTWD EQU CVTS01+368 02168000 CVTSPOST EQU CVTS01+364 02169000 CVTIOBP EQU CVTS01+360 02170000 CVTASMVT EQU CVTS01+356 02171000 CVTRECRQ EQU CVTS01+352 02172000 CVTWSAC EQU CVTS01+348 02173000 CVTRV149 EQU CVTS01+344 02174000 CVTWSAL EQU CVTS01+340 02175000 CVTSPSA EQU CVTS01+336 02176000 CVTGLMN EQU CVTS01+332 02177000 CVTVEAC0 EQU CVTS01+328 02178000 CVT062R1 EQU CVTS01+324 02179000 CVTRPOST EQU CVTS01+320 02180000 CVTDQIQE EQU CVTS01+316 02181000 CVTCSD EQU CVTS01+312 02182000 CVTLKRMA EQU CVTS01+308 02183000 CVTRSPIE EQU CVTS01+304 02184000 CVTRENQ EQU CVTS01+300 02185000 CVTLQCB EQU CVTS01+296 02186000 CVTFQCB EQU CVTS01+292 02187000 CVTQCS01 EQU CVTS01+288 02188000 CVTAPFT EQU CVTS01+284 02189000 CVTPARRL EQU CVTS01+280 02190000 CVTVWAIT EQU CVTS01+276 02191000 CVTGSPL EQU CVTS01+272 02192000 CVTLSMQ EQU CVTS01+268 02193000 CVTGSMQ EQU CVTS01+264 02194000 CVTEXPRO EQU CVTS01+260 02195000 CVTOPCTP EQU CVTS01+256 02196000 CVTSIC EQU CVTS01+252 02197000 CVTTPIOS EQU CVTS01+248 02198000 CVTRTMS EQU CVTS01+244 02199000 CVTSDBF EQU CVTS01+240 02200000 CVTSCBP EQU CVTS01+236 02201000 CVTSDMP EQU CVTS01+232 02202000 CVTSV60 EQU CVTS01+228 02203000 CVTRTMCT EQU CVTS01+224 02204000 CVTASCBL EQU CVTS01+220 02205000 CVTASCBH EQU CVTS01+216 02206000 CVTGDA EQU CVTS01+212 02207000 CVTASVT EQU CVTS01+208 02208000 CVTVVMDI EQU CVTS01+204 02209000 CVTAQTOP EQU CVTS01+200 02210000 CVTIOSCS EQU CVTS01+196 02211000 CVTSDRM EQU CVTS01+192 02212000 CVTOPTE EQU CVTS01+188 02213000 CVTSTXU EQU CVTS01+184 02214000 CVTQUIS EQU CVTS01+180 02215000 CVTPARS EQU CVTS01+176 02216000 CVTS1EE EQU CVTS01+172 02217000 CVTFRAS EQU CVTS01+168 02218000 CVTQSAS EQU CVTS01+164 02219000 CVTCRAS EQU CVTS01+160 02220000 CVTCRMN EQU CVTS01+156 02221000 CVTDELCP EQU CVTS01+152 02222000 CVTFRECL EQU CVTS01+148 02223000 CVTGETCL EQU CVTS01+144 02224000 CVTBLDCP EQU CVTS01+140 02225000 CVTAUTHL EQU CVTS01+136 02226000 CVTSCAN EQU CVTS01+132 02227000 CVTRV144 EQU CVTS01+130 02228000 CVTMAXMP EQU CVTS01+128 02229000 CVTSTCK EQU CVTS01+124 02230000 CVTRV139 EQU CVTS01+123 02231000 CVTDSSAC EQU CVTS01+122 02232000 CVTRV513 EQU CVTS01+121 02233000 CVTIOSPL EQU CVTS01+120 02234000 CVTPTGT EQU CVTS01+116 02235000 CVTCSPIE EQU CVTS01+112 02236000 CVTSMFEX EQU CVTS01+108 02237000 CVTOLT0A EQU CVTS01+104 02238000 CVTSRBRT EQU CVTS01+100 02239000 CVTPUTL EQU CVTS01+96 02240000 CVTASCRL EQU CVTS01+92 02241000 CVTASCRF EQU CVTS01+88 02242000 CVTRV326 EQU CVTS01+84 02243000 CVTRV325 EQU CVTS01+80 02244000 CVTRV324 EQU CVTS01+76 02245000 CVT0VL01 EQU CVTS01+72 02246000 CVTSHRVM EQU CVTS01+68 02247000 CVTRV332 EQU CVTS01+64 02248000 CVTTAS EQU CVTS01+60 02249000 CVTRSCN EQU CVTS01+56 02250000 CVTTRAC2 EQU CVTS01+54 02251000 CVTTRACE EQU CVTS01+52 02252000 CVTAPG EQU CVTS01+51 02253000 CVTSDTRC EQU CVTCTLFG 02254000 CVTGTRCE EQU CVTCTLFG 02255000 CVTNOMP EQU CVTCTLFG 02256000 CVTRSV79 EQU CVTCTLFG 02257000 CVTDSTAT EQU CVTCTLFG 02258000 CVTRSV78 EQU CVTCTLFG 02259000 CVTRV333 EQU CVTCTLFG 02260000 CVTRV323 EQU CVTCTLFG 02261000 CVTSPVLK EQU CVTS01+49 02262000 CVTRSV77 EQU CVTS01+48 02263000 CVTRV331 EQU CVTS01+44 02264000 CVTRV330 EQU CVTS01+40 02265000 CVTRV329 EQU CVTS01+36 02266000 CVTRV328 EQU CVTS01+32 02267000 CVTRV322 EQU CVTS01+28 02268000 CVTSLID EQU CVTSLIDA+1 02269000 CVTSYLK EQU CVTSLIDA 02270000 CVTRV321 EQU CVTS01+20 02271000 CVTRV320 EQU CVTS01+16 02272000 CVTLPDIR EQU CVTLPDIA+1 02273000 CVTRSV69 EQU CVTDIRST 02274000 CVTRSV68 EQU CVTDIRST 02275000 CVTRSV67 EQU CVTDIRST 02276000 CVTRSV66 EQU CVTDIRST 02277000 CVTRSV65 EQU CVTDIRST 02278000 CVTRSV64 EQU CVTDIRST 02279000 CVTRSV63 EQU CVTDIRST 02280000 CVTDICOM EQU CVTDIRST 02281000 CVTPVTP EQU CVTS01+8 02282000 CVTLPDSR EQU CVTS01+4 02283000 CVTGETL EQU CVTS01 02284000 STUFF EQU ELEMENT 02285000 TRMSUBST EQU IEDNTRM+12 02286000 TRMRLMCT EQU IEDNTRM+10 02287000 TRMCOHTG EQU TRMSIBPT+1 02288000 TRMGPCNT EQU TRMSIBPT 02289000 TRMBUFRD EQU TRMBYTE0 02290000 TRMSNA EQU TRMBYTE0 02291000 TRMGP EQU TRMBYTE0 02292000 TRMDIAL EQU TRMBYTE0 02293000 @NM00161 EQU TRMBYTE0 02294000 TRMOUTPT EQU TRMBYTE0 02295000 TRMINPUT EQU TRMBYTE0 02296000 TRMUDEF EQU TRMBYTE0 02297000 TRMCOHRT EQU IEDNTRM+4 02298000 TRMSTOTE EQU TRMBYTE1 02299000 TRMCKPRN EQU TRMBYTE1 02300000 TRMTSATN EQU TRMBYTE1 02301000 TRMTRACE EQU TRMBYTE1 02302000 TRMSWBCK EQU TRMBYTE1 02303000 TRMAUTOC EQU TRMBYTE1 02304000 TRMINPTP EQU TRMBYTE1 02305000 TRMWTNEG EQU TRMSCPRQ 02306000 TRMWRBRK EQU TRMBYTE2 02307000 TRMNOSND EQU TRMBYTE2 02308000 TRMPREP EQU TRMBYTE2 02309000 TRMGPACT EQU TRMBYTE2 02310000 TRMANDL EQU TRMBYTE2 02311000 TRMCLOSN EQU TRMINPG 02312000 TRMREMB EQU TRMBYTE2 02313000 TRMRSACT EQU TRMBYTE2 02314000 TRMOPTBL EQU IEDQTRM+18 02315000 TRMOPNO EQU IEDQTRM+17 02316000 TRMCHCIN EQU IEDQTRM+16 02317000 TRMSENSE EQU TRMSTAT+3 02318000 TRMTEMPR EQU TRMSTAT+2 02319000 TRMSIO EQU TRMSTAT 02320000 @NM00160 EQU TRMDEVFL+1 02321000 TRMNCPI EQU TRMDEVFL+1 02322000 TRMRNTRM EQU TRMDEVFL+1 02323000 @NM00159 EQU TRMDEVFL+1 02324000 TRMLMD EQU TRMDEVFL+1 02325000 TRMCONC EQU TRMDEVFL+1 02326000 TRMTSOB EQU TRMDEVFL 02327000 TRMBFDY EQU TRMDEVFL 02328000 TRMTBLK EQU TRMDEVFL 02329000 TRMSBLK EQU TRMDEVFL 02330000 TRMBLKS EQU TRMDEVFL 02331000 TRMADDC EQU TRMDEVFL 02332000 TRMDDIG EQU TRMDEVFL 02333000 TRMBUFS EQU TRMDEVFL 02334000 TRMPRILK EQU TRMALTD 02335000 TRMLGB EQU TRMDSORG 02336000 TRMUTERM EQU TLISTCNT 02337000 TRMDESTQ EQU IEDQTRM+1 02338000 TRMSCNYN EQU TRMSTATE 02339000 TRMOPTFN EQU TRMSTATE 02340000 TRMHELDN EQU TRMSTATE 02341000 TRMACPTN EQU TRMSTATE 02342000 TRMLIST EQU TRMLOG 02343000 TRMLINE EQU TRMSTATE 02344000 TNTMIDEN EQU IEDQTNTD+41 02345000 TNTSRCHX EQU IEDQTNTD+38 02346000 TCXEND EQU IEDQTCXD+224 02347000 TCXNCPIO EQU IEDQTCXD+220 02348000 TCXACTE8 EQU TCXQE8 02349000 TCXABEPL EQU IEDQTCXD+212 02350000 TCXSRBS EQU IEDQTCXD+208 02351000 TCXSIOSB EQU IEDQTCXD+204 02352000 TCXESAVE EQU IEDQTCXD+132 02353000 TCXERPPM EQU IEDQTCXD+128 02354000 TCXERPSV EQU IEDQTCXD+116 02355000 TCXSATTN EQU IEDQTCXD+112 02356000 @NM00158 EQU TCXDSAVE+4 02357000 @NM00157 EQU TCXDSAVE 02358000 TCXPLCB EQU IEDQTCXD+100 02359000 TCXBITS EQU IEDQTCXD+98 02360000 TCXSCBSZ EQU IEDQTCXD+97 02361000 TCXBIT1 EQU IEDQTCXD+96 02362000 TCXCOMPT EQU IEDQTCXD+92 02363000 TCXAVAIL EQU IEDQTCXD+88 02364000 TCXBUFL EQU IEDQTCXD+84 02365000 TCXCKPM EQU IEDQTCXD+79 02366000 TCXNCKPR EQU IEDQTCXD+78 02367000 TCXSZAIB EQU IEDQTCXD+76 02368000 TCXAIBC EQU IEDQTCXD+72 02369000 TCXPEBC EQU IEDQTCXD+68 02370000 TCXPEWAC EQU IEDQTCXD+64 02371000 TCXQRQ EQU IEDQTCXD+60 02372000 TCXOCQ EQU IEDQTCXD+56 02373000 TCXPNTQ EQU IEDQTCXD+52 02374000 TCXPUTQ EQU IEDQTCXD+48 02375000 TCXGETQ EQU IEDQTCXD+44 02376000 TCXTSI EQU IEDQTCXD+40 02377000 TCXRPT EQU IEDQTCXD+36 02378000 TCXCC3TS EQU IEDQTCXD+35 02379000 TCXAPDMP EQU TCXFLAG1 02380000 TCXAPPL EQU TCXFLAG1 02381000 TCXRTM EQU TCXFLAG1 02382000 TCXMCPCD EQU TCXFLAG1 02383000 TCXAUTH EQU TCXFLAG1 02384000 TCXASID EQU IEDQTCXD+32 02385000 TCXASCB EQU IEDQTCXD+28 02386000 TCXREADY EQU IEDQTCXD+24 02387000 TCXPASWD EQU IEDQTCXD+16 02388000 TCXDISP EQU IEDQTCXD+12 02389000 TCXTCB EQU IEDQTCXD+8 02390000 TCXATTLN EQU TCXATTEN 02391000 TCXAVT EQU IEDQTCXD 02392000 SIBLUTYP EQU SIBSTAT0 02393000 SIBCD EQU SIBSTAT0 02394000 @NM00156 EQU SIBBIND3 02395000 SIBCRES EQU SIBBIND3 02396000 SIBSPKR EQU SIBBIND3 02397000 SIBRECOV EQU SIBBIND3 02398000 SIBFMODE EQU SIBBIND3 02399000 SIBALT EQU SIBBIND2 02400000 SIBBTERM EQU SIBBIND2 02401000 SIBBRACK EQU SIBBIND2 02402000 SIBFMUSE EQU SIBBIND2 02403000 SIBSEBI EQU SIBBIND2 02404000 SIBSCMP EQU SIBBIND2 02405000 SIBSEXC EQU SIBBIND2 02406000 SIBSDEF EQU SIBBIND2 02407000 SIBSRQM EQU SIBBIND1 02408000 SIBSCHNG EQU SIBBIND1 02409000 SIBPEBI EQU SIBBIND1 02410000 SIBPCMP EQU SIBBIND1 02411000 SIBPEXC EQU SIBBIND1 02412000 SIBPDEF EQU SIBBIND1 02413000 SIBPRQM EQU SIBBIND1 02414000 SIBPCHN EQU SIBBIND1 02415000 SIBFMPRO EQU IEDSIBD+19 02416000 SIBTSPRO EQU IEDSIBD+18 02417000 @NM00155 EQU SIBSTAT2 02418000 SIBDACLU EQU SIBSTAT2 02419000 SIBRDSCN EQU SIBSTAT2 02420000 SIBTERM EQU SIBSTAT2 02421000 SIBUSS EQU SIBSTAT2 02422000 SIBBSTAT EQU SIBSTAT1 02423000 SIBRTRP EQU SIBSTAT1 02424000 SIBFTERM EQU SIBSTAT1 02425000 SIBRQEND EQU SIBSTAT1 02426000 SIBRQSHT EQU SIBSTAT1 02427000 SIBSEQO EQU SIBSEQN+2 02428000 SIBSEQI EQU SIBSEQN 02429000 SIBNCNT EQU SIBPACIN 02430000 SIBMCNT EQU SIBPACIN 02431000 SIBDSTAT EQU SIBSESSN 02432000 SIBSSTAT EQU SIBSESSN 02433000 SIBINBIU EQU SIBSESSN 02434000 SIBSHUTC EQU SIBSESSN 02435000 SIBLGOFF EQU SIBSESSN 02436000 SIBINDEX EQU IEDSIBD+8 02437000 SIBCHAIN EQU IEDSIBD+4 02438000 SIBRUSEG EQU IEDSIBD 02439000 SCBTRANS EQU IEDQSCB+81 02440000 SCBUNTCT EQU IEDQSCB+80 02441000 SCBEOB EQU IEDQSCB+78 02442000 SCBNXCPB EQU SCBCCSEG 02443000 SCBNHDR EQU SCBCHDR 02444000 SCBCRCD EQU IEDQSCB+69 02445000 SCBTQBCK EQU SCBNTXT 02446000 SCBOSEQ EQU SCBSCAN 02447000 SCBXTRA EQU SCBCORE 02448000 SCBNOPST EQU SCBSTAT1 02449000 SCBNIDLE EQU SCBSTAT1 02450000 SCBCEND EQU SCBSTAT1 02451000 SCBCBGN EQU SCBSTAT1 02452000 SCBSIZE EQU IEDQSCB+58 02453000 SCBSRCE EQU IEDQSCB+56 02454000 SCBDEOB EQU IEDQSCB+52 02455000 SCBFEFO EQU SCBDCSEG 02456000 SCBCTBND EQU SCBBLKCT 02457000 SCBSCHDR EQU SCBCLSEG 02458000 SCBHBFNO EQU IEDQSCB+44 02459000 SCBSCSEG EQU SCBDNSEG 02460000 SCBBCTR EQU SCBCTBSV 02461000 SCBCCHDR EQU IEDQSCB+37 02462000 SCBDESTL EQU IEDQSCB+36 02463000 SCBDCHDR EQU IEDQSCB+33 02464000 SCBCPBNO EQU IEDQSCB+32 02465000 SCBMBSSA EQU IEDQSCB+25 02466000 SCBMLMTN EQU SCBBSCFM 02467000 SCBNOEOT EQU SCBBSCFM 02468000 @NM00154 EQU SCBBSCFM 02469000 SCBNPDTR EQU SCBDATEN 02470000 SCBCNTEN EQU SCBBSCFM 02471000 SCBRCVTX EQU SCBBSCFM 02472000 SCBNONTR EQU SCBBSCFM 02473000 SCBTRNSP EQU SCBBSCFM 02474000 SCBENDCR EQU SCBCTBAC+1 02475000 SCBCRLEN EQU SCBCTBAC 02476000 SCBMRFSD EQU IEDQSCB+20 02477000 SCBUNDFN EQU SCBERR4 02478000 SCBSTERN EQU SCBCHANN 02479000 SCBCPMEN EQU SCBCTLUN 02480000 @NM00153 EQU SCBERR4 02481000 SCBTRMLN EQU SCBERR4 02482000 SCBCONNN EQU SCBERR4 02483000 SCBAPERR EQU SCBTXTTN 02484000 SCBSLCTN EQU SCBERR4 02485000 SCBPERRN EQU SCBXCEPN 02486000 SCBTHRSN EQU SCBATTN 02487000 SCBFIERN EQU SCBFORMN 02488000 SCBUSERN EQU SCBERR3 02489000 SCBSATTN EQU SCBERR3 02490000 SCBTMINN EQU SCBERR3 02491000 SCBXPD EQU SCBTMIDN 02492000 SCBXPI EQU SCBLOSTN 02493000 SCBSOHE EQU SCBERR2 02494000 SCBFRWDN EQU SCBERR2 02495000 SCBRRJN EQU SCBABRTN 02496000 SCBOLTR EQU SCBERR2 02497000 SCBALN EQU SCBERR2 02498000 SCBCODER EQU SCBERR2 02499000 SCBCRMAX EQU SCBERR2 02500000 SCBCRMIN EQU SCBERR2 02501000 SCBRVISL EQU SCBCUTFN 02502000 SCBNOBFN EQU SCBERR1 02503000 @NM00152 EQU SCBERR1 02504000 SCBNOVAC EQU SCBSEQLN 02505000 SCBNOTSO EQU SCBSEQHN 02506000 SCBRVITX EQU SCBNOTRM 02507000 SCBHANG EQU SCBORIGN 02508000 SCBNOLOG EQU SCBHDRRN 02509000 SCBMRFPL EQU IEDQSCB+13 02510000 SCBBFMM EQU SCBQTYPE 02511000 SCBBBFTM EQU SCBQTYPE 02512000 SCBNOFF EQU SCBQTYPE 02513000 SCBCONC EQU SCBQTYPE 02514000 SCBNREUS EQU SCBQTYPE 02515000 SCBREUS EQU SCBQTYPE 02516000 SCBCOREQ EQU SCBQTYPE 02517000 SCBNORCL EQU SCBQTYPE 02518000 SCBCTBSZ EQU SCBEOBSZ 02519000 @NM00151 EQU SCBBKFCT 02520000 SCBPRI EQU IEDQSCB+8 02521000 SCBSNDCT EQU SCBRCVCT 02522000 SCBCODE EQU SCBSTATE 02523000 SCBPRER EQU SCBSTATE 02524000 SCBCKPT EQU SCBSTATE 02525000 SCBMSGLN EQU SCBSTATE 02526000 SCBERSDS EQU SCBSTATE 02527000 SCBLCK1N EQU SCBSTATE 02528000 SCBMGFMN EQU SCBSEQIN 02529000 SCBTRANP EQU SCBSTATE 02530000 SATRNLCB EQU IEDSATD 02531000 @NM00150 EQU PROFLAG 02532000 PRODATE EQU PROFLAG 02533000 PROSECQ EQU PROFLAG 02534000 PROLEN EQU IEDPROC 02535000 MHENTRY EQU IEDMHTD+8 02536000 LCBERADR EQU LCBXRADR+1 02537000 LCBPCIRC EQU LCBXRADR 02538000 LCBDCT3 EQU LCBXDCT+2 02539000 LCBDCT2 EQU LCBXDCT+1 02540000 LCBDCT1 EQU LCBXDCT 02541000 @NM00149 EQU LCBXFLAG 02542000 LCBERPND EQU LCBXFLAG 02543000 LCBSRCPF EQU LCBXFLAG 02544000 LCBGPCTV EQU LCBXFLAG 02545000 @NM00148 EQU LCBXFLAG 02546000 @NM00147 EQU LCBXFLAG 02547000 @NM00146 EQU LCBXFLAG 02548000 @NM00145 EQU LCBXFLAG 02549000 LCBCCW10 EQU LCBCPA+72 02550000 LCBCCW9 EQU LCBCPA+64 02551000 LCBCCW8 EQU LCBCPA+56 02552000 LCBCCW7 EQU LCBCPA+48 02553000 LCBCCW6 EQU LCBCPA+40 02554000 LCBCP EQU LCBQEBPL+4 02555000 LCBIOSB EQU LCBQEBPL+1 02556000 LCBSIO EQU LCBQEBPL 02557000 LCBCCW4 EQU LCBCPA+24 02558000 LCBCCW3 EQU LCBCPA+16 02559000 LCBCCW2 EQU LCBCPA+8 02560000 LCBCCW1 EQU LCBCPA 02561000 @NM00130 EQU LCBERCCW+16 02562000 LCBATL05 EQU LCBERCCW+8 02563000 @NM00129 EQU LCBERCCW 02564000 LCBCSWSV EQU LCBSAVSN+1 02565000 LCBSNSV EQU LCBSAVSN 02566000 LCBBFSNS EQU LCBRSPSV 02567000 LCBWAITC EQU LCBTPCD+5 02568000 LCBINPAK EQU LCBSTAT6 02569000 LCBMHBID EQU LCBSTAT6 02570000 LCBRTRRO EQU LCBSTAT6 02571000 LCBHDRPD EQU LCBSTAT6 02572000 LCBCHN EQU LCBSTAT6 02573000 LCBBFRSV EQU LCBTPCD+1 02574000 @NM00128 EQU LCBSTAT5 02575000 LCBLUS EQU LCBSTAT5 02576000 LCBNXCMD EQU LCBBFRW 02577000 LCBERMSK EQU LCBOBRCH 02578000 LCBOLT EQU LCBMSGFM 02579000 LCBEOT EQU LCBMSGFM 02580000 LCBENQ EQU LCBMSGFM 02581000 LCBTTD EQU LCBMSGFM 02582000 LCBRSTRT EQU LCBMSGFM 02583000 LCBVSTRT EQU LCBMSGFM 02584000 LCBACKI EQU LCBMSGFM 02585000 LCBNAK EQU LCBMSGFM 02586000 LCBTTCIN EQU IEDQLCB+90 02587000 @NM00127 EQU LCBRBCT2 02588000 LCBDCNT EQU LCBRBCT2 02589000 LCBRBCT1 EQU LCBERBCT 02590000 LCBERBCH EQU IEDQLCB+85 02591000 LCBCOMPL EQU LCBDLNKN 02592000 LCBPRCPG EQU LCBERBST 02593000 LCBERROR EQU LCBERBST 02594000 @NM00126 EQU LCBERBST 02595000 LCBINQ EQU LCBERBST 02596000 LCBRDERR EQU LCBERBST 02597000 LCBEOMSG EQU LCBERBST 02598000 LCBMSG EQU LCBERBST 02599000 LCBERBLK EQU IEDQLCB+81 02600000 LCBERBPY EQU IEDQLCB+80 02601000 LCBERBQB EQU LCBERB+1 02602000 LCBERBKY EQU LCBERB 02603000 LCBRECAD EQU IEDQLCB+73 02604000 @NM00125 EQU LCBTSTSW 02605000 @NM00124 EQU LCBTSTSW 02606000 @NM00123 EQU LCBTSTSW 02607000 @NM00122 EQU LCBTSTSW 02608000 @NM00121 EQU LCBTSTSW 02609000 @NM00120 EQU LCBTSTSW 02610000 @NM00119 EQU LCBTSTSW 02611000 LCBCONCT EQU LCBTSTSW 02612000 LCBRESP EQU LCBSTAT2 02613000 LCBBFRAV EQU LCBDIAL 02614000 LCBATTN EQU LCBSYNC 02615000 LCBNEGRP EQU LCBSTAT2 02616000 LCBSNDPR EQU LCBSTAT2 02617000 LCBCONNN EQU LCBBEOTN 02618000 LCBMSGNN EQU LCBSTAT2 02619000 LCBTRACE EQU LCBSTAT2 02620000 LCBSENDN EQU LCBSTAT1 02621000 LCBRECVN EQU LCBSTAT1 02622000 LCBCONT EQU LCBSTAT1 02623000 LCBINITN EQU LCBSTAT1 02624000 LCBOCNI EQU LCBSTAT1 02625000 LCBOCWTN EQU LCBSTAT1 02626000 LCBRCLLN EQU LCBSTAT1 02627000 LCBRECOF EQU IEDQLCB+68 02628000 LCBRDBFR EQU LCBRCBFR 02629000 LCBUCBX EQU IEDQLCB+64 02630000 LCBTTBIN EQU LCBERRCT 02631000 @NM00118 EQU LCBINCAM 02632000 LCBGETMN EQU LCBINCAM 02633000 @NM00117 EQU LCBRESTR+1 02634000 LCBCMDSV EQU LCBRESTR 02635000 LCBPCILK EQU LCBDCBPT 02636000 LCBSTART EQU LCBIOBSN+16 02637000 LCBAP4OL EQU LCBSIOCC 02638000 LCBAP3OL EQU LCBSIOCC 02639000 LCBAP2OL EQU LCBSIOCC 02640000 LCBAP1OL EQU LCBSIOCC 02641000 LCBSIOC2 EQU LCBSIOCC 02642000 LCBSIOC1 EQU LCBSIOCC 02643000 @NM00116 EQU LCBSIOCC 02644000 LCBCSWRC EQU LCBCSW+5 02645000 LCBCSCHC EQU LCBCSWCS 02646000 LCBCSICC EQU LCBCSWCS 02647000 LCBCSCCC EQU LCBCSWCS 02648000 LCBCSCDC EQU LCBCSWCS 02649000 LCBCSPTC EQU LCBCSWCS 02650000 LCBCSPGC EQU LCBCSWCS 02651000 LCBCSIL EQU LCBCSWCS 02652000 LCBCSPCI EQU LCBCSWCS 02653000 LCBUSUE EQU LCBCSWUS 02654000 LCBUSUC EQU LCBCSWUS 02655000 LCBUSDE EQU LCBCSWUS 02656000 LCBUSCE EQU LCBCSWUS 02657000 LCBUSBSY EQU LCBCSWUS 02658000 LCBUSCUE EQU LCBCSWUS 02659000 LCBUSSM EQU LCBCSWUS 02660000 LCBUSAT EQU LCBCSWUS 02661000 LCBCSWCA EQU LCBCSW 02662000 LCBOBR EQU LCBFLAG3 02663000 LCBOBRRD EQU LCBFLAG3 02664000 LCBIOMSG EQU LCBFLAG3 02665000 LCBSOHC EQU LCBFLAG3 02666000 LCBRLAD EQU LCBFLAG3 02667000 LCBSOHR EQU LCBFLAG3 02668000 @NM00115 EQU LCBFLAG3 02669000 LCBECBPT EQU LCBIOBSN+4 02670000 LCBECBCC EQU LCBIOBSN+3 02671000 LCBSENS1 EQU LCBSNS+1 02672000 LCBABORT EQU LCBTMOUT 02673000 LCBNOTIN EQU LCBLOSDT 02674000 LCBOVRUN EQU LCBSENS0 02675000 LCBDATCK EQU LCBSENS0 02676000 LCBEQUCK EQU LCBSENS0 02677000 LCBBUSCK EQU LCBSENS0 02678000 LCBINTRQ EQU LCBSENS0 02679000 LCBCMDRJ EQU LCBSENS0 02680000 LCBFLAG2 EQU LCBIOBSN 02681000 @NM00114 EQU LCBFLAG1 02682000 LCBUNREL EQU LCBFLAG1 02683000 LCBEXCPN EQU LCBFLAG1 02684000 @NM00113 EQU LCBFLAG1 02685000 LCBERPIN EQU LCBFLAG1 02686000 @NM00112 EQU LCBFLAG1 02687000 LCBFSBFR EQU LCBMHA 02688000 LCBISZE EQU IEDQLCB+28 02689000 LCBLNENT EQU LCBSCBDA+1 02690000 @NM00111 EQU LCBSCBDA 02691000 LCBCPGMH EQU LCBSTAT4 02692000 LCBREAL EQU LCBPHASE 02693000 @NM00110 EQU LCBSTAT4 02694000 LCBACTRQ EQU LCBSTAT4 02695000 LCBIPLRQ EQU LCBSTAT4 02696000 LCBDACRQ EQU LCBSTAT4 02697000 LCBDMPRQ EQU LCBSTAT4 02698000 @NM00109 EQU LCBLKMDE 02699000 LCBLOCKI EQU LCBLKMDE 02700000 LCBLOCKR EQU LCBLKMDE 02701000 LCBHMFLG EQU LCBLKMDE 02702000 LCBBDFLG EQU LCBLKMDE 02703000 @NM00108 EQU LCBINSRC 02704000 LCBABRTN EQU LCBCHAIN 02705000 LCBCTLMD EQU LCBTETEN 02706000 LCBBFRSZ EQU LCBCHAIN 02707000 LCBUREQN EQU LCBCHAIN 02708000 LCBNORTY EQU LCBCHAIN 02709000 LCBERMSG EQU LCBCHAIN 02710000 LCBEXCP EQU LCBCHAIN 02711000 LCBINVRQ EQU LCBSCRNN 02712000 LCB2741N EQU LCBTSOB 02713000 LCBINHBN EQU LCBTSOB 02714000 LCBCIRCD EQU LCBTSOB 02715000 LCBPREP EQU LCBTSOB 02716000 LCBSOPL EQU LCBTSOB 02717000 LCBSATRD EQU LCBTSOB 02718000 LCBTSBUF EQU LCBTSOB 02719000 LCBWRBRK EQU LCBTSOB 02720000 LCBTDL EQU IEDQLCB+18 02721000 LCBEOLTD EQU IEDQLCB+16 02722000 LCBPRI EQU LCBRCB+4 02723000 LCBQCBA EQU LCBRCB+1 02724000 LCBKEY EQU LCBRCB 02725000 CVTLEVL EQU CVTRELNO+2 02726000 CVTNUMB EQU CVTRELNO 02727000 CVTMDL EQU CVTFIX+250 02728000 @NM00107 EQU CVTFIX+248 02729000 @NM00106 EQU CVTFIX 02730000 CVTRV482 EQU CVTXTNT2+128 02731000 CVTRV481 EQU CVTXTNT2+124 02732000 CVTRV480 EQU CVTXTNT2+120 02733000 CVTRV479 EQU CVTXTNT2+118 02734000 CVTRV478 EQU CVTXTNT2+117 02735000 CVTRV477 EQU CVTXTNT2+116 02736000 CVTRV476 EQU CVTXTNT2+115 02737000 CVTRV475 EQU CVTXTNT2+114 02738000 CVTRV474 EQU CVTRV466 02739000 CVTRV473 EQU CVTRV466 02740000 CVTRV472 EQU CVTRV466 02741000 CVTRV471 EQU CVTRV466 02742000 CVTRV470 EQU CVTRV466 02743000 CVTRV469 EQU CVTRV466 02744000 CVTRV468 EQU CVTRV466 02745000 CVTRV467 EQU CVTRV466 02746000 CVTRV465 EQU CVTRV457 02747000 CVTRV464 EQU CVTRV457 02748000 CVTRV463 EQU CVTRV457 02749000 CVTRV462 EQU CVTRV457 02750000 CVTRV461 EQU CVTRV457 02751000 CVTRV460 EQU CVTRV457 02752000 CVTRV459 EQU CVTRV457 02753000 CVTRV458 EQU CVTRV457 02754000 CVTRV456 EQU CVTXTNT2+108 02755000 CVTRV455 EQU CVTXTNT2+104 02756000 CVTRV454 EQU CVTXTNT2+100 02757000 CVTRV453 EQU CVTXTNT2+96 02758000 CVTRV452 EQU CVTXTNT2+94 02759000 CVTRV451 EQU CVTXTNT2+92 02760000 CVTRV450 EQU CVTXTNT2+90 02761000 CVTRV449 EQU CVTXTNT2+88 02762000 CVTRV448 EQU CVTXTNT2+87 02763000 CVTRV447 EQU CVTXTNT2+86 02764000 CVTRV446 EQU CVTRV438 02765000 CVTRV445 EQU CVTRV438 02766000 CVTRV444 EQU CVTRV438 02767000 CVTRV443 EQU CVTRV438 02768000 CVTRV442 EQU CVTRV438 02769000 CVTRV441 EQU CVTRV438 02770000 CVTRV440 EQU CVTRV438 02771000 CVTRV439 EQU CVTRV438 02772000 CVTRV437 EQU CVTRV429 02773000 CVTRV436 EQU CVTRV429 02774000 CVTRV435 EQU CVTRV429 02775000 CVTRV434 EQU CVTRV429 02776000 CVTRV433 EQU CVTRV429 02777000 CVTRV432 EQU CVTRV429 02778000 CVTRV431 EQU CVTRV429 02779000 CVTRV430 EQU CVTRV429 02780000 CVTRV428 EQU CVTXTNT2+80 02781000 CVTRV427 EQU CVTXTNT2+76 02782000 CVTRV426 EQU CVTXTNT2+72 02783000 CVTRV425 EQU CVTXTNT2+68 02784000 CVTATACT EQU CVTATCVT 02785000 CVTRV423 EQU CVTXTNT2+62 02786000 CVTRV422 EQU CVTXTNT2+60 02787000 CVTRV421 EQU CVTXTNT2+58 02788000 CVTRV420 EQU CVTXTNT2+56 02789000 CVTRV419 EQU CVTXTNT2+55 02790000 CVTRV418 EQU CVTXTNT2+54 02791000 CVTRV417 EQU CVTRV409 02792000 CVTRV416 EQU CVTRV409 02793000 CVTRV415 EQU CVTRV409 02794000 CVTRV414 EQU CVTRV409 02795000 CVTRV413 EQU CVTRV409 02796000 CVTRV412 EQU CVTRV409 02797000 CVTRV411 EQU CVTRV409 02798000 CVTRV410 EQU CVTRV409 02799000 CVTRV408 EQU CVTRV400 02800000 CVTRV407 EQU CVTRV400 02801000 CVTRV406 EQU CVTRV400 02802000 CVTRV405 EQU CVTRV400 02803000 CVTRV404 EQU CVTRV400 02804000 CVTRV403 EQU CVTRV400 02805000 CVTRV402 EQU CVTRV400 02806000 CVTRV401 EQU CVTRV400 02807000 CVTICB EQU CVTXTNT2+48 02808000 CVTSKTA EQU CVTXTNT2+44 02809000 CVTSHSB EQU CVTSHS 02810000 CVTRSV98 EQU CVTXTNT2+36 02811000 CVTRSV97 EQU CVTXTNT2+34 02812000 CVTRSV96 EQU CVTXTNT2+32 02813000 CVTOLTEP EQU CVTXTNT2+28 02814000 CVTQIDA EQU CVTQID+1 02815000 CVTRSV95 EQU CVTQID 02816000 CVTRSV94 EQU CVTXTNT2+20 02817000 CVTRSV93 EQU CVTXTNT2+16 02818000 CVTRSV92 EQU CVTXTNT2+12 02819000 CVTDEBVR EQU CVTXTNT2+8 02820000 CVTRSV91 EQU CVTXTNT2+6 02821000 CVTRSV9H EQU CVTFLGBT 02822000 CVTRSV9G EQU CVTFLGBT 02823000 CVTRSV9F EQU CVTFLGBT 02824000 CVTRSV9E EQU CVTFLGBT 02825000 CVTRSV9D EQU CVTFLGBT 02826000 CVTRSV9C EQU CVTFLGBT 02827000 CVTVME EQU CVTFLGBT 02828000 CVTNPE EQU CVTFLGBT 02829000 CVTNUCLS EQU CVTXTNT2+4 02830000 CVTDSSVA EQU CVTDSSV+1 02831000 CVTRSV89 EQU CVTDSSV 02832000 CVTRSV88 EQU CVTXTNT1+8 02833000 CVTRSV87 EQU CVTXTNT1+4 02834000 CVTFACHN EQU CVTXTNT1 02835000 CVTRV488 EQU CVTMAP+412 02836000 CVTRV487 EQU CVTMAP+408 02837000 CVTRV486 EQU CVTMAP+404 02838000 CVTRV485 EQU CVTMAP+400 02839000 CVTACTAP EQU CVTMAP+396 02840000 CVTAUTH EQU CVTMAP+392 02841000 CVTATMCA EQU CVTATMCT+1 02842000 CVTATMST EQU CVTATMCT 02843000 CVTRSV61 EQU CVTMAP+384 02844000 CVTVOLT1 EQU CVTVOLM1+1 02845000 CVTVOLI1 EQU CVTVOLF1 02846000 CVTSTOA EQU CVTMAP+376 02847000 CVTRSV58 EQU CVTMAP+374 02848000 CVTRSV57 EQU CVTMAP+372 02849000 CVTDDCE EQU CVTMAP+368 02850000 CVTPNWFR EQU CVTMAP+364 02851000 CVTSMF EQU CVTMAP+360 02852000 CVTSULK EQU CVTMAP+358 02853000 CVTSLKO EQU CVTSYSK 02854000 CVTSLKP EQU CVTSYSK 02855000 CVTSLKQ EQU CVTSYSK 02856000 CVTSLKR EQU CVTSYSK 02857000 CVTRSV56 EQU CVTSYSK 02858000 CVTRSV55 EQU CVTSYSK 02859000 CVTRSV54 EQU CVTSYSK 02860000 CVTRSV53 EQU CVTSYSK 02861000 CVTRSV52 EQU CVTA1F1 02862000 CVTRSV51 EQU CVTA1F1 02863000 CVTRSV50 EQU CVTA1F1 02864000 CVTRSV49 EQU CVTA1F1 02865000 CVTRSV48 EQU CVTA1F1 02866000 CVTRSV47 EQU CVTA1F1 02867000 CVTSRSW EQU CVTA1F1 02868000 CVTPFSW EQU CVTA1F1 02869000 CVTPCVT EQU CVTMAP+352 02870000 CVTRSV46 EQU CVTMAP+344 02871000 CVTRSV45 EQU CVTMAP+340 02872000 CVTRSV44 EQU CVTMAP+338 02873000 CVTRSV43 EQU CVTMAP+336 02874000 CVTHJESA EQU CVTHJES+1 02875000 CVTRSV42 EQU CVTHJES 02876000 CVTEXT2A EQU CVTEXT2+1 02877000 CVTRSV41 EQU CVTEXT2 02878000 CVTAPFA EQU CVTAPF+1 02879000 CVTRSV40 EQU CVTAPF 02880000 CVTRV518 EQU CVTINTLA 02881000 CVTRV517 EQU CVTERPV 02882000 CVTEORM EQU CVTMAP+312 02883000 CVTMCHPR EQU CVTMAP+308 02884000 CVTTZ EQU CVTMAP+304 02885000 CVTJEPS EQU CVTMAP+300 02886000 CVTJESCT EQU CVTMAP+296 02887000 CVTMODE EQU CVTMAP+292 02888000 CVTPTRV EQU CVTMAP+288 02889000 CVTREAL EQU CVTMAP+284 02890000 CVTRSV39 EQU CVTMAP+280 02891000 CVTRSV38 EQU CVTMAP+276 02892000 CVTDMSRA EQU CVTDMSR+1 02893000 CVTRV634 EQU CVTDMSRF 02894000 CVTRV633 EQU CVTDMSRF 02895000 CVTRV632 EQU CVTDMSRF 02896000 CVTRV631 EQU CVTDMSRF 02897000 CVTRV630 EQU CVTDMSRF 02898000 CVTRV629 EQU CVTDMSRF 02899000 CVTUDUMP EQU CVTDMSRF 02900000 CVTSDUMP EQU CVTDMSRF 02901000 CVTQMSGA EQU CVTQMSG+1 02902000 CVTRSV36 EQU CVTQMSG 02903000 CVTAMFF EQU CVTMAP+264 02904000 CVTPURGA EQU CVTPURG+1 02905000 CVTRSV35 EQU CVTPURG 02906000 CVTCBSP EQU CVTMAP+256 02907000 CVTATERA EQU CVTATER+1 02908000 CVTSYST EQU CVTATER 02909000 CVTVOLT2 EQU CVTTAT 02910000 CVTVOLI2 EQU CVTVOLF2 02911000 CVTAQAVB EQU CVTAQAVT+1 02912000 CVTRSV34 EQU CVTTCMFG 02913000 CVTRSV33 EQU CVTTCMFG 02914000 CVTRSV32 EQU CVTTCMFG 02915000 CVTRSV31 EQU CVTTCMFG 02916000 CVTRSV30 EQU CVTTCMFG 02917000 CVTRSV29 EQU CVTTCMFG 02918000 CVTRSV28 EQU CVTTCMFG 02919000 CVTTCRDY EQU CVTTCMFG 02920000 CVTGTFA EQU CVTGTF+1 02921000 CVTRSV27 EQU CVTGTFST 02922000 CVTRNIO EQU CVTGTFST 02923000 CVTUSR EQU CVTGTFST 02924000 CVTRV318 EQU CVTFORM 02925000 CVTRV317 EQU CVTTMODE 02926000 CVTRV316 EQU CVTSTATE 02927000 CVTRV315 EQU CVTGTFS 02928000 CVTGTFAV EQU CVTGTFS 02929000 CVT0SCR1 EQU CVTMAP+232 02930000 CVTRV515 EQU CVTMAP+228 02931000 CVTRMS EQU CVTMAP+224 02932000 CVTPATCH EQU CVTMAP+220 02933000 CVTTSCE EQU CVTMAP+216 02934000 CVTLNKSC EQU CVTMAP+214 02935000 CVTQABST EQU CVTMAP+212 02936000 CVTMDLDS EQU CVTMAP+208 02937000 CVTUSER EQU CVTMAP+204 02938000 CVTABEND EQU CVTMAP+200 02939000 CVTSMCA EQU CVTMAP+196 02940000 CVTRSV18 EQU CVTMAP+192 02941000 CVTQLPAQ EQU CVTMAP+188 02942000 CVTQCDSR EQU CVTMAP+184 02943000 CVTRSV17 EQU CVTOPTB 02944000 CVTRSV16 EQU CVTOPTB 02945000 CVTFP EQU CVTOPTB 02946000 CVTAPTHR EQU CVTOPTB 02947000 CVTNLOG EQU CVTOPTB 02948000 CVTTOD EQU CVTOPTB 02949000 CVTCTIMS EQU CVTOPTB 02950000 CVTPROT EQU CVTOPTB 02951000 CVTXPFP EQU CVTOPTA 02952000 CVTASCII EQU CVTOPTA 02953000 CVTRSV13 EQU CVTOPTA 02954000 CVTRSV12 EQU CVTOPTA 02955000 CVTNIP EQU CVTOPTA 02956000 CVTDDR EQU CVTOPTA 02957000 CVTAPR EQU CVTOPTA 02958000 CVTCCH EQU CVTOPTA 02959000 CVTSNCTR EQU CVTMAP+180 02960000 CVTQMWR EQU CVTMAP+176 02961000 CVTQOCR EQU CVTMAP+172 02962000 CVT1EF00 EQU CVTMAP+168 02963000 CVTMZ00 EQU CVTMAP+164 02964000 CVTHEAD EQU CVTMAP+160 02965000 CVTRSV11 EQU CVTMAP+156 02966000 CVT0PT01 EQU CVTMAP+152 02967000 CVTMSER EQU CVTMAP+148 02968000 CVTRV516 EQU CVTIERLC 02969000 CVTILCH EQU CVTMAP+140 02970000 CVT0DS EQU CVTMAP+136 02971000 CVTFBOSV EQU CVTMAP+132 02972000 CVTNUCB EQU CVTMAP+128 02973000 CVTIXAVL EQU CVTMAP+124 02974000 CVTIOQET EQU CVTMAP+120 02975000 CVTDCBA EQU CVTMAP+117 02976000 CVTMVS2 EQU CVTDCB 02977000 CVT6DAT EQU CVTDCB 02978000 CVT4MPS EQU CVTDCB 02979000 CVTRSV09 EQU CVTDCB 02980000 CVT4MS1 EQU CVTDCB 02981000 CVT2SPS EQU CVTDCB 02982000 CVT1SSS EQU CVTDCB 02983000 CVTRSV08 EQU CVTDCB 02984000 CVTSTB EQU CVTMAP+112 02985000 CVTQTD00 EQU CVTMAP+108 02986000 CVTQTE00 EQU CVTMAP+104 02987000 CVTCUCB EQU CVTMAP+100 02988000 CVTSJQ EQU CVTMAP+96 02989000 CVTPBLDL EQU CVTMAP+92 02990000 CVTTPC EQU CVTMAP+88 02991000 CVTSVDCB EQU CVTMAP+84 02992000 CVTBRET EQU CVTMAP+82 02993000 CVTEXIT EQU CVTMAP+80 02994000 CVT0FN00 EQU CVTMAP+76 02995000 CVTDARA EQU CVTDAR+1 02996000 CVTRSV07 EQU CVTFLGS1 02997000 CVTRSV06 EQU CVTFLGS1 02998000 CVTRSV05 EQU CVTFLGS1 02999000 CVTRSV04 EQU CVTFLGS1 03000000 CVTRSV03 EQU CVTFLGS1 03001000 CVTRSV02 EQU CVTFLGS1 03002000 CVTRSV01 EQU CVTFLGS1 03003000 CVTDMPLK EQU CVTFLGS1 03004000 CVTXITP EQU CVTMAP+68 03005000 CVTZDTAB EQU CVTMAP+64 03006000 CVTMSLT EQU CVTMAP+60 03007000 CVTDATE EQU CVTMAP+56 03008000 CVTBTERM EQU CVTMAP+52 03009000 CVTSYSAD EQU CVTMAP+48 03010000 CVTXTLER EQU CVTMAP+44 03011000 CVTILK2 EQU CVTMAP+40 03012000 CVTILK1 EQU CVTMAP+36 03013000 CVTPRLTV EQU CVTMAP+32 03014000 CVTPCNVT EQU CVTMAP+28 03015000 CVT0VL00 EQU CVTMAP+24 03016000 CVTXAPG EQU CVTMAP+20 03017000 CVTBUF EQU CVTMAP+16 03018000 CVTJOB EQU CVTMAP+12 03019000 CVTLINK EQU CVTMAP+8 03020000 CVT0EF00 EQU CVTMAP+4 03021000 CVTTCBP EQU CVTMAP 03022000 CVT EQU CVTMAP 03023000 SAVTBITN EQU IEDNSVTD+312 03024000 @NM00105 EQU SAVTCKQB+8 03025000 @NM00104 EQU SAVTCKEC+1 03026000 @NM00103 EQU SAVTCKCC 03027000 SAVTCKPO EQU SAVTCKCC 03028000 SAVTCKWA EQU SAVTCKCC 03029000 SAVTCKCH EQU SAVTCKTB+1 03030000 SAVTCKVT EQU SAVTCKTB 03031000 @NM00102 EQU IEDNSVTD+297 03032000 SAVTRDFG EQU SAVTRDRV+12 03033000 @NM00101 EQU SAVTRDRV+5 03034000 SAVTRDPY EQU SAVTRDRV+4 03035000 SAVTRDQB EQU SAVTRDRV+1 03036000 SAVTRDKY EQU SAVTRDRV 03037000 SAVTNID EQU IEDNSVTD+280 03038000 SAVTDVAS EQU IEDNSVTD+276 03039000 @NM00100 EQU IEDNSVTD+273 03040000 @NM00099 EQU SAVTZELM+1 03041000 SAVTSH20 EQU IEDNSVTD+264 03042000 SAVTLCBS EQU IEDNSVTD+260 03043000 SAVTRNMP EQU IEDNSVTD+256 03044000 SAVTTNTX EQU IEDNSVTD+252 03045000 SAVTNAX EQU IEDNSVTD+248 03046000 SAVTBSM EQU IEDNSVTD+240 03047000 SAVTRQTG EQU IEDNSVTD+236 03048000 SAVTRQCH EQU IEDNSVTD+232 03049000 SAVTMAND EQU IEDNSVTD+228 03050000 SAVTSPLN EQU IEDNSVTD+224 03051000 SAVTNADL EQU IEDNSVTD+222 03052000 SAVTSSMH EQU IEDNSVTD+212 03053000 SAVTQRS EQU IEDNSVTD+208 03054000 SAVTRQIN EQU IEDNSVTD+204 03055000 SAVTDFCO EQU IEDNSVTD+200 03056000 SAVTSAO EQU IEDNSVTD+196 03057000 SAVTSARI EQU IEDNSVTD+192 03058000 SAVTSAC EQU IEDNSVTD+188 03059000 SAVTSAI EQU IEDNSVTD+184 03060000 SAVTCSCI EQU IEDNSVTD+180 03061000 SAVTSSRP EQU IEDNSVTD+176 03062000 SAVTSSRQ EQU IEDNSVTD+172 03063000 SAVTSCLU EQU IEDNSVTD+168 03064000 SAVTXTRQ EQU IEDNSVTD+164 03065000 SAVTMVBF EQU IEDNSVTD+160 03066000 @NM00098 EQU IEDNSVTD+148 03067000 SAVTIPCQ EQU IEDNSVTD+144 03068000 @NM00097 EQU IEDNSVTD+136 03069000 SAVTXFMI EQU IEDNSVTD+132 03070000 @NM00096 EQU IEDNSVTD+124 03071000 SAVTXFMO EQU IEDNSVTD+120 03072000 @NM00095 EQU IEDNSVTD+116 03073000 SAVTSSSR EQU IEDNSVTD+112 03074000 SAVTSCPQ EQU IEDNSVTD+108 03075000 SAVTLUSR EQU IEDNSVTD+100 03076000 @NM00094 EQU SAVTLUSQ+8 03077000 SAVTLUSP EQU SAVTLUSQ+4 03078000 SAVTLUSB EQU SAVTLUSQ 03079000 @NM00093 EQU IEDNSVTD+84 03080000 SAVTCLUP EQU IEDNSVTD+72 03081000 SAVTPIUT EQU IEDNSVTD+68 03082000 SAVTRNTA EQU IEDNSVTD+64 03083000 SAVTDNIR EQU IEDNSVTD+60 03084000 SAVTCNIR EQU IEDNSVTD+56 03085000 SAVTFLDH EQU IEDNSVTD+52 03086000 SAVTSRTN EQU IEDNSVTD+48 03087000 SAVTSREQ EQU IEDNSVTD+44 03088000 SAVTFAIL EQU IEDNSVTD+42 03089000 SAVTSUSE EQU IEDNSVTD+40 03090000 SAVTPRTN EQU IEDNSVTD+32 03091000 @NM00092 EQU IEDNSVTD+28 03092000 SAVTWH20 EQU IEDNSVTD+26 03093000 SAVTPWT EQU IEDNSVTD+24 03094000 SAVTPRTQ EQU IEDNSVTD+20 03095000 SAVTPREQ EQU IEDNSVTD+16 03096000 SAVTPH20 EQU IEDNSVTD+14 03097000 SAVTPUSE EQU IEDNSVTD+12 03098000 SAVTPRMT EQU SAVTDIAF 03099000 SAVTVIRT EQU SAVTDIAF 03100000 AVTCPBNO EQU IEDQAVTD+1244 03101000 AVTHRESS EQU IEDQAVTD+1243 03102000 @NM00091 EQU IEDQAVTD+1242 03103000 @NM00090 EQU IEDQAVTD+1241 03104000 @NM00089 EQU IEDQAVTD+1240 03105000 @NM00088 EQU IEDQAVTD+1237 03106000 @NM00087 EQU IEDQAVTD+1236 03107000 AVTHRESE EQU @NM00086 03108000 AVTRADDR EQU IEDQAVTD+1228 03109000 AVTNADDR EQU IEDQAVTD+1224 03110000 AVTHRESN EQU IEDQAVTD+1220 03111000 AVTVOLRN EQU IEDQAVTD+1216 03112000 AVTTOTNN EQU IEDQAVTD+1212 03113000 AVTTRCYN EQU IEDQAVTD+1208 03114000 AVTRCTRN EQU IEDQAVTD+1204 03115000 AVTNOVON EQU IEDQAVTD+1200 03116000 AVTADEBN EQU IEDQAVTD+1196 03117000 AVTVOLRR EQU IEDQAVTD+1192 03118000 AVTTOTNR EQU IEDQAVTD+1188 03119000 AVTTRCYR EQU IEDQAVTD+1184 03120000 AVTRCTRR EQU IEDQAVTD+1180 03121000 AVTNOVOR EQU IEDQAVTD+1176 03122000 AVTADEBR EQU IEDQAVTD+1172 03123000 AVTLODPT EQU IEDQAVTD+1168 03124000 AVTIOBN EQU IEDQAVTD+1164 03125000 AVTIOBR EQU IEDQAVTD+1160 03126000 AVTCPBPT EQU IEDQAVTD+1156 03127000 AVTFCPB EQU IEDQAVTD+1152 03128000 @NM00085 EQU IEDQAVTD+1148 03129000 AVTINCPQ EQU IEDQAVTD+1144 03130000 @NM00084 EQU IEDQAVTD+1140 03131000 @NM00083 EQU IEDQAVTD+1137 03132000 @NM00082 EQU AVTBIT4 03133000 @NM00081 EQU AVTBIT4 03134000 @NM00080 EQU AVTBIT4 03135000 @NM00079 EQU AVTBIT4 03136000 @NM00078 EQU AVTBIT4 03137000 @NM00077 EQU AVTBIT4 03138000 @NM00076 EQU AVTBIT4 03139000 AVTRUFTN EQU AVTBIT4 03140000 @NM00075 EQU IEDQAVTD+1132 03141000 AVTNOBFQ EQU IEDQAVTD+1128 03142000 @NM00074 EQU IEDQAVTD+1124 03143000 AVTDKENQ EQU IEDQAVTD+1120 03144000 @NM00073 EQU IEDQAVTD+1116 03145000 AVTDKAPQ EQU IEDQAVTD+1112 03146000 AVTCOPY EQU IEDQAVTD+1108 03147000 AVTIA EQU IEDQAVTD+1104 03148000 AVTFL EQU IEDQAVTD+1100 03149000 @NM00072 EQU IEDQAVTD+1096 03150000 AVTNCPBQ EQU IEDQAVTD+1092 03151000 AVTTOTNC EQU IEDQAVTD+1088 03152000 AVTCMAX EQU IEDQAVTD+1084 03153000 AVTCMIN EQU IEDQAVTD+1080 03154000 AVTHM02 EQU IEDQAVTD+1076 03155000 AVTOPCIN EQU IEDQAVTD+1074 03156000 AVTDCTLN EQU IEDQAVTD+1072 03157000 AVTOPMSK EQU IEDQAVTD+1068 03158000 AVTSTEAL EQU IEDQAVTD+1060 03159000 AVTOPTN EQU IEDQAVTD+1056 03160000 AVTDSKCT EQU IEDQAVTD+1054 03161000 AVTCKRST EQU IEDQAVTD+1053 03162000 AVTSTAN EQU AVTBIT3 03163000 AVTSTACN EQU AVTBIT3 03164000 AVTSTAIN EQU AVTBIT3 03165000 AVTSTAYN EQU AVTBIT3 03166000 AVTOLTBN EQU AVTBIT3 03167000 AVTTSAB EQU AVTBIT3 03168000 AVTRFULN EQU AVTBIT3 03169000 AVTRECVN EQU AVTBIT3 03170000 @NM00071 EQU AVTBIT2 03171000 @NM00070 EQU AVTBIT2 03172000 AVTOPEIN EQU AVTBIT2 03173000 AVTSTRTN EQU AVTBIT2 03174000 AVTTOPOL EQU AVTBIT2 03175000 AVTCOPYN EQU AVTBIT2 03176000 AVTREUSN EQU AVTBIT2 03177000 AVTEXTSC EQU AVTBIT2 03178000 AVTDISKN EQU AVTBIT1 03179000 AVTQUCKN EQU AVTBIT1 03180000 AVTCLOSN EQU AVTBIT1 03181000 AVTREADN EQU AVTBIT1 03182000 AVTDLAYN EQU AVTBIT1 03183000 AVTAQTAN EQU AVTBIT1 03184000 AVTTSON EQU AVTBIT1 03185000 AVTAPLKN EQU AVTBIT1 03186000 AVTDUMBR EQU IEDQAVTD+1048 03187000 AVTDLQX EQU IEDQAVTD+1046 03188000 AVTINTLV EQU IEDQAVTD+1044 03189000 AVTSMCNT EQU IEDQAVTD+1042 03190000 AVTAVFCT EQU IEDQAVTD+1040 03191000 AVTOPCON EQU IEDQAVTD+1038 03192000 AVTOPCNT EQU IEDQAVTD+1036 03193000 AVTLNCNT EQU IEDQAVTD+1034 03194000 AVTKEYLE EQU IEDQAVTD+1032 03195000 AVTHA16 EQU IEDQAVTD+1030 03196000 AVTHA7 EQU IEDQAVTD+1028 03197000 AVTHA4 EQU IEDQAVTD+1026 03198000 AVTHA3 EQU IEDQAVTD+1024 03199000 AVTHA2 EQU IEDQAVTD+1022 03200000 @NM00069 EQU IEDQAVTD+1020 03201000 AVTCWTOT EQU IEDQAVTD+1008 03202000 AVTCWINT EQU IEDQAVTD+956 03203000 AVTDTRAP EQU IEDQAVTD+952 03204000 @NM00068 EQU IEDQAVTD+950 03205000 @NM00067 EQU AVTIOTR 03206000 AVTIOTRH EQU AVTIOTR 03207000 AVTIOTRE EQU AVTIOTR 03208000 @NM00066 EQU AVTSUBT 03209000 AVTSUBPT EQU AVTSUBT 03210000 AVTSUBON EQU AVTSUBT 03211000 AVTAFE30 EQU IEDQAVTD+944 03212000 AVTAFE20 EQU IEDQAVTD+940 03213000 AVTAFE10 EQU IEDQAVTD+936 03214000 AVTCWEC2 EQU IEDQAVTD+932 03215000 AVTCWPM2 EQU IEDQAVTD+928 03216000 AVTCWTS2 EQU IEDQAVTD+927 03217000 AVTCWTS1 EQU IEDQAVTD+926 03218000 AVTCWCLD EQU AVTCWFL2 03219000 AVTCWRAP EQU AVTCWFL2 03220000 @NM00065 EQU AVTCWFL2 03221000 @NM00064 EQU AVTCWFL2 03222000 @NM00063 EQU AVTCWFL2 03223000 @NM00062 EQU AVTCWFL2 03224000 @NM00061 EQU AVTCWFL2 03225000 AVTCWACT EQU AVTCWFL2 03226000 @NM00060 EQU AVTCWFL1 03227000 @NM00059 EQU AVTCWFL1 03228000 @NM00058 EQU AVTCWFL1 03229000 @NM00057 EQU AVTCWFL1 03230000 @NM00056 EQU AVTCWFL1 03231000 @NM00055 EQU AVTCWFL1 03232000 @NM00054 EQU AVTCWFL1 03233000 AVTCOMWN EQU AVTCWFL1 03234000 AVTCWEC1 EQU IEDQAVTD+920 03235000 AVTCWPM1 EQU IEDQAVTD+916 03236000 AVTCAREA EQU IEDQAVTD+912 03237000 AVTFZERO EQU IEDQAVTD+908 03238000 AVTCADDR EQU IEDQAVTD+904 03239000 AVTCOREC EQU IEDQAVTD+900 03240000 @NM00053 EQU IEDQAVTD+892 03241000 AVTCPBCB EQU IEDQAVTD+888 03242000 @NM00052 EQU IEDQAVTD+880 03243000 AVTDSIOB EQU IEDQAVTD+876 03244000 @NM00051 EQU IEDQAVTD+868 03245000 AVTCPRMB EQU IEDQAVTD+864 03246000 @NM00050 EQU IEDQAVTD+856 03247000 AVTCLOSB EQU IEDQAVTD+852 03248000 @NM00049 EQU IEDQAVTD+844 03249000 AVTACTIB EQU IEDQAVTD+840 03250000 @NM00048 EQU IEDQAVTD+836 03251000 AVTOLTEB EQU IEDQAVTD+832 03252000 AVTOLTCH EQU AVTOLTQB+1 03253000 AVTOLTVT EQU AVTOLTQB 03254000 @NM00047 EQU AVTOPCQB+8 03255000 @NM00046 EQU AVTOPCEC+1 03256000 @NM00045 EQU AVTOPCCC 03257000 AVTOPCPO EQU AVTOPCCC 03258000 AVTOPCWA EQU AVTOPCCC 03259000 AVTOPCCH EQU AVTOPCOB+1 03260000 AVTOPCVT EQU AVTOPCOB 03261000 @NM00044 EQU AVTCKPQB+9 03262000 AVTCKPTS EQU AVTCKPQB+8 03263000 @NM00043 EQU AVTCKPEC+1 03264000 @NM00042 EQU AVTCKPCC 03265000 AVTCKPPO EQU AVTCKPCC 03266000 AVTCKPWA EQU AVTCKPCC 03267000 AVTCKPCH EQU AVTCKPTB+1 03268000 AVTCKPVT EQU AVTCKPTB 03269000 @NM00041 EQU IEDQAVTD+796 03270000 @NM00040 EQU IEDQAVTD+788 03271000 AVTSELCH EQU IEDQAVTD+785 03272000 AVTBFRTN EQU AVTBFRFG 03273000 AVTBFREB EQU IEDQAVTD+780 03274000 AVTTIMQ EQU IEDQAVTD+776 03275000 @NM00039 EQU IEDQAVTD+772 03276000 AVTIMQPS EQU IEDQAVTD+768 03277000 AVTREFTM EQU IEDQAVTD+764 03278000 @NM00038 EQU IEDQAVTD+752 03279000 AVTDELYB EQU IEDQAVTD+748 03280000 AVTOCQPT EQU IEDQAVTD+744 03281000 AVTTSOPT EQU IEDQAVTD+740 03282000 AVTSUPPT EQU IEDQAVTD+736 03283000 AVTCBQCB EQU IEDQAVTD+732 03284000 AVTMSGS EQU IEDQAVTD+729 03285000 @NM00037 EQU AVTSYSER 03286000 @NM00036 EQU AVTSYSER 03287000 @NM00035 EQU AVTSYSER 03288000 @NM00034 EQU AVTSYSER 03289000 @NM00033 EQU AVTSYSER 03290000 @NM00032 EQU AVTSYSER 03291000 AVTCMAXN EQU AVTSYSER 03292000 AVTCMINN EQU AVTSYSER 03293000 AVT2260L EQU IEDQAVTD+724 03294000 AVTABEPL EQU AVTADBUF 03295000 AVTHFF EQU AVTCLRHI+2 03296000 @NM00031 EQU AVTCLRHI 03297000 AVTCCLNK EQU AVTCRELE+5 03298000 AVTCCPRI EQU AVTCRELE+4 03299000 AVTCCQCB EQU AVTCCELE+1 03300000 AVTCCKEY EQU AVTCCELE 03301000 AVTDELAD EQU IEDQAVTD+704 03302000 AVTDELEM EQU IEDQAVTD+700 03303000 AVTBSX EQU AVTCKLNK 03304000 AVTOPETR EQU AVTHG01 03305000 @NM00030 EQU AVTCKBYT 03306000 AVTCKONQ EQU AVTCKBYT 03307000 @NM00029 EQU AVTCKBYT 03308000 @NM00028 EQU AVTCKBYT 03309000 @NM00027 EQU AVTCKBYT 03310000 @NM00026 EQU AVTCKBYT 03311000 @NM00025 EQU AVTCKBYT 03312000 @NM00024 EQU AVTCKBYT 03313000 AVTOPERT EQU IEDQAVTD+690 03314000 AVTOPXCL EQU IEDQAVTD+688 03315000 AVTOPERL EQU IEDQAVTD+687 03316000 @NM00023 EQU IEDQAVTD+686 03317000 AVTCKTIM EQU IEDQAVTD+684 03318000 AVTCKELV EQU IEDQAVTD+682 03319000 AVTCPRCD EQU IEDQAVTD+681 03320000 AVTWARMN EQU AVTCKELF 03321000 AVTCRTLN EQU AVTCKELF 03322000 AVTCPIPN EQU AVTCKELF 03323000 AVTCCLCN EQU AVTCKELF 03324000 AVTCINCN EQU AVTCKELF 03325000 @NM00022 EQU AVTCKELF 03326000 AVTCMCPN EQU AVTCKELF 03327000 AVTNQBCK EQU AVTCKELF 03328000 AVTCKQAD EQU IEDQAVTD+677 03329000 @NM00021 EQU IEDQAVTD+672 03330000 AVTCKELE EQU IEDQAVTD+668 03331000 @NM00020 EQU AVTCKPEL+8 03332000 AVTCKRLK EQU AVTCKPEL+5 03333000 AVTCKRPR EQU AVTCKPEL+4 03334000 AVTCKRMQ EQU AVTCKRMV+1 03335000 AVTCKRKY EQU AVTCKRMV 03336000 AVTHK EQU IEDQAVTD+648 03337000 AVTHI EQU IEDQAVTD+644 03338000 AVTIOT EQU IEDQAVTD+640 03339000 AVTNX EQU IEDQAVTD+636 03340000 AVTTONE EQU IEDQAVTD+632 03341000 AVTA3TL EQU IEDQAVTD+628 03342000 AVTDMECB EQU IEDQAVTD+624 03343000 AVTABEND EQU IEDQAVTD+618 03344000 @NM00019 EQU AVTSAVTP+1 03345000 @NM00018 EQU AVTSAVTF 03346000 AVTSNA EQU AVTSAVTF 03347000 AVTONSNA EQU AVTSAVTF 03348000 AVTVTMCP EQU AVTSAVTF 03349000 @NM00017 EQU IEDQAVTD+608 03350000 AVTCMBSS EQU IEDQAVTD+604 03351000 AVTCSCH EQU IEDQAVTD+592 03352000 AVTQ1 EQU IEDQAVTD+588 03353000 AVTE7 EQU IEDQAVTD+584 03354000 AVTHB EQU IEDQAVTD+580 03355000 AVTR1 EQU IEDQAVTD+576 03356000 AVTBZ EQU IEDQAVTD+572 03357000 AVTEZ EQU IEDQAVTD+568 03358000 AVTEC EQU IEDQAVTD+564 03359000 AVTEW EQU IEDQAVTD+560 03360000 AVTNDIAL EQU AVTSCOPT 03361000 AVTN2741 EQU AVTSCOPT 03362000 AVTCONCO EQU AVTSCOPT 03363000 AVTCONC EQU AVTSCOPT 03364000 AVTCMBUF EQU AVTSCOPT 03365000 AVTAPDMP EQU AVTSCOPT 03366000 @NM00016 EQU AVTSCOPT 03367000 AVTHA EQU AVTDISP 03368000 AVTEA EQU IEDQAVTD+548 03369000 AVTAX EQU IEDQAVTD+544 03370000 AVTA3 EQU IEDQAVTD+540 03371000 AVTGD EQU IEDQAVTD+536 03372000 AVTAL EQU IEDQAVTD+532 03373000 AVTOLTST EQU AVTHG02 03374000 AVTE8 EQU IEDQAVTD+524 03375000 AVTUI EQU IEDQAVTD+520 03376000 AVTCOMPT EQU IEDQAVTD+516 03377000 AVTCRSRF EQU IEDQAVTD+512 03378000 @NM00015 EQU IEDQAVTD+508 03379000 AVTKA02 EQU IEDQAVTD+504 03380000 AVTOPTPT EQU IEDQAVTD+500 03381000 AVTPCBPT EQU IEDQAVTD+496 03382000 @NM00014 EQU AVTECB1 03383000 AVTCOMP EQU AVTECB1 03384000 @NM00013 EQU AVTECB1 03385000 AVTOPECA EQU IEDQAVTD+488 03386000 AVTOLECA EQU IEDQAVTD+484 03387000 AVTCKECA EQU IEDQAVTD+480 03388000 AVTCWECA EQU IEDQAVTD+476 03389000 AVTCWTCB EQU IEDQAVTD+472 03390000 AVTOLTCB EQU IEDQAVTD+468 03391000 AVTOCTCB EQU IEDQAVTD+464 03392000 AVTCKTCB EQU IEDQAVTD+460 03393000 AVTAS EQU IEDQAVTD+456 03394000 AVTNOLBF EQU IEDQAVTD+454 03395000 AVTNCKPR EQU IEDQAVTD+453 03396000 AVTCIB EQU IEDQAVTD+452 03397000 AVTSPLPT EQU IEDQAVTD+448 03398000 AVTMVBFR EQU IEDQAVTD+444 03399000 AVTSBTA EQU IEDQAVTD+440 03400000 AVTRARTN EQU IEDQAVTD+436 03401000 AVTBSCAN EQU IEDQAVTD+432 03402000 AVTRDYA EQU IEDQAVTD+428 03403000 AVTDISTR EQU IEDQAVTD+420 03404000 AVTPARM3 EQU IEDQAVTD+416 03405000 @NM00012 EQU AVTPKF 03406000 @NM00011 EQU AVTPKF 03407000 @NM00010 EQU AVTPKF 03408000 AVTFTCHF EQU AVTPKF 03409000 @NM00009 EQU AVTPKF 03410000 @NM00008 EQU AVTPKF 03411000 @NM00007 EQU AVTPKF 03412000 @NM00006 EQU AVTPKF 03413000 AVTPARM EQU IEDQAVTD+408 03414000 AVTEXS2A EQU IEDQAVTD+402 03415000 AVTEXA2S EQU IEDQAVTD+396 03416000 AVTOCGET EQU IEDQAVTD+392 03417000 AVTCKAVT EQU @NM00004+1 03418000 @NM00005 EQU AVTCKFLG 03419000 AVTCKHLT EQU AVTCKFLG 03420000 AVTCKREQ EQU AVTCKFLG 03421000 AVTCKENV EQU AVTCKFLG 03422000 AVTCKNAC EQU AVTCKFLG 03423000 AVTCKTAC EQU AVTCKFLG 03424000 AVTBUENT EQU IEDQAVTD+386 03425000 @NM00003 EQU IEDQAVTD+385 03426000 AVTFULLT EQU AVTBUFSW 03427000 AVTUNCON EQU AVTBUFSW 03428000 @NM00002 EQU AVTBUFSW 03429000 AVTBUFTR EQU AVTREADD 03430000 AVTREADY EQU IEDQAVTD+376 03431000 AVTRACE EQU IEDQAVTD+372 03432000 AVTPASWD EQU IEDQAVTD+360 03433000 AVTCTLCH EQU IEDQAVTD+352 03434000 AVTDOUBL EQU IEDQAVTD+344 03435000 AVTDOUBX EQU IEDQAVTD+336 03436000 AVTDPARM EQU IEDQAVTD+332 03437000 AVTCSTCS EQU IEDQAVTD+328 03438000 AVTDLQ EQU AVTSAVEX+32 03439000 @NM00001 EQU AVTSAVEX 03440000 AVTSAVE2 EQU IEDQAVTD+72 03441000 AVTSAVE1 EQU IEDQAVTD 03442000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03443000 @RF00415 EQU @EL00005 03444000 @ENDDATA EQU * 03445000 END IEDIAB,(C'PLS1811',0701,78047) 03446000