TITLE 'IGCA210D, PROCESS INIT-SELF EXTERNAL, PART1 *00001000 ' 00002000 IGCA210D CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 * 0441 00005000 USING *,RBASE 00006000 LR RBASE,RF SET UP ADDRESSIBILITY 00007000 IGCA210D IEDHJN START,HJN 00008000 */* */ 00009000 * 0442 00010000 * /* INITIALIZATION */ 00011000 * ROPCAVT=RPARM; /* OP CONTROL AVT ADDRESS */ 00012000 LR ROPCAVT,RPARM 0442 00013000 * RPRF=OPCCOPCE; /* ELEMENT ADDR FOR BUFFER */ 00014000 L RPRF,OPCCOPCE(,ROPCAVT) 0443 00015000 * RAVT=OPCAVTPT; /* TCAM AVT ADDRESS */ 00016000 L RAVT,OPCAVTPT(,ROPCAVT) 0444 00017000 * RWORK=OPCWORK; /* OP CONTROL WORK AREA */ 00018000 L RWORK,OPCWORK(,ROPCAVT) 0445 00019000 * RSAVE=ADDR(OPCSAVE); /* OP CONTROL SAVE AREA */ 00020000 LA RSAVE,OPCSAVE(,ROPCAVT) 0446 00021000 * WKSWITCH=0; /* INIT. SWITCHES @YM07277*/ 00022000 MVI WKSWITCH(RWORK),X'00' 0447 00023000 */* */ 00024000 * 0448 00025000 * WKINSRU=AVTHDRSZ+ADDR(PRFSUNIT)+PRFISIZE;/* RU DATA ADDRESS */ 00026000 LA @09,PRFSUNIT(,IEDQPPTR) 0448 00027000 AH @09,@CH00439 0448 00028000 SLR @07,@07 0448 00029000 IC @07,PRFISIZE(,IEDQPPTR) 0448 00030000 ALR @09,@07 0448 00031000 ST @09,WKINSRU(,RWORK) 0448 00032000 * WKSLUTNT=PRFSRCE; /* TNT OFFSET OF SLU */ 00033000 LH @09,PRFSRCE(,IEDQPPTR) 0449 00034000 STH @09,WKSLUTNT(,RWORK) 0449 00035000 * RPARM=PRFSRCE; /* TNT OFFSET OF SLU */ 00036000 LR RPARM,@09 0450 00037000 * CALL IEDQTNT; /* GET TTE FOR SECONDARY LU */ 00038000 L @15,AVTRNMPT(,RAVT) 0451 00039000 BALR @14,@15 0451 00040000 * RTRM=RPARM; /* SAVE SLU'S TTE */ 00041000 LR RTRM,RPARM 0452 00042000 * RTRM=RTRM-LENGTH(IEDNTRM); /* ADDRESS OF NEG PREFIX */ 00043000 SH RTRM,@CH01455 0453 00044000 * CALL INITSELF; /* PROCESS THE INIT-SELF */ 00045000 BAL @14,INITSELF 0454 00046000 */* */ 00047000 * 0455 00048000 * RPARM=ROPCAVT; /* OP CONTROL AVT ADDRESS */ 00049000 LR RPARM,ROPCAVT 0455 00050000 * GEN REFS(ROPCAVT,OPCXCTL) EXIT NOSEQFLOW; 0456 00051000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00052000 *DISCARD: 0457 00053000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0457 00054000 * 0457 00055000 DISCARD DS 0H 0458 00056000 * /*****************************************************************/ 00057000 * /* */ 00058000 * /* THIS ROUTINE FREES THE OPCE AND ATTACHED N.S PROC RESPONSE */ 00059000 * /* */ 00060000 * /*****************************************************************/ 00061000 * 0458 00062000 * WKSAVE2=RE; /* SAVE REG 14 @YM06472*/ 00063000 ST RE,WKSAVE2(,RWORK) 0458 00064000 */* @YM06472*/ 00065000 * 0459 00066000 * RPARM=RPRF; /* ADDR OF BUFFER @YM06472*/ 00067000 LR RPARM,RPRF 0459 00068000 * CALL FREEBUF; /* FREE INIT BUFFER @YM06472*/ 00069000 L @15,OPCFREBF(,ROPCAVT) 0460 00070000 BALR @14,@15 0460 00071000 */* @YM06472*/ 00072000 * 0461 00073000 * RE=WKSAVE2; /* RESTORE REG 14 @YM06472*/ 00074000 L RE,WKSAVE2(,RWORK) 0461 00075000 * END DISCARD; /* RETURN TO CALLER @YM06472*/ 00076000 @EL00002 DS 0H 0462 00077000 @EF00002 DS 0H 0462 00078000 @ER00002 BR @14 0462 00079000 *FINDMODE: 0463 00080000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0463 00081000 * 0463 00082000 FINDMODE DS 0H 0464 00083000 * /*****************************************************************/ 00084000 * /* */ 00085000 * /* THIS ROUTINE GETS THE LOGMODE NAME OUT OF THE INIT-SELF */ 00086000 * /* COMMAND AND THEN SEARCHES THE BIND IMAGE TABLE TO DETERMINE IF*/ 00087000 * /* BIND PARAMETERS WHERE SPECIFIED WITH THAT LOGMODE NAME. */ 00088000 * /* */ 00089000 * /*****************************************************************/ 00090000 * 0464 00091000 * WKSAVE2=RE; /* SAVE REG 14 */ 00092000 ST RE,WKSAVE2(,RWORK) 0464 00093000 */* */ 00094000 * 0465 00095000 * PLMVFLG1=0; /* CLEAR FLAG FIELD IN MOVE 0465 00096000 * BUFFER PARM LIST */ 00097000 LA @09,68 0465 00098000 ALR @09,RWORK 0465 00099000 MVI PLMVFLG1(@09),X'00' 0465 00100000 * PLMVTU=ADDR(WKLOGMOD); /* TARG UNIT=WORK AREA */ 00101000 LA @07,WKLOGMOD(,RWORK) 0466 00102000 ST @07,PLMVTU(,@09) 0466 00103000 * PLMVTD=ADDR(WKLOGMOD); /* TARG DATA=WORK AREA */ 00104000 ST @07,PLMVTD(,@09) 0467 00105000 * PLMVSU=RPRF; /* SOURCE UNIT = INIT-SELF */ 00106000 ST RPRF,PLMVSU(,@09) 0468 00107000 * PLMVSD=ADDR(XINSMODE); /* SOURCE DATA = LOG MODE */ 00108000 L @07,WKINSRU(,RWORK) 0469 00109000 LA @07,XINSMODE(,@07) 0469 00110000 ST @07,PLMVSD(,@09) 0469 00111000 * PLMVLNTH=LENGTH(XINSMODE); /* SET LENGTH FOR MOVE */ 00112000 MVC PLMVLNTH(2,@09),@CH00045 0470 00113000 * PLMVTCTG=ON; /* INDICATE TARG CONTIGUOUS */ 00114000 OI PLMVTCTG(@09),B'00100000' 0471 00115000 * RPARM=ADDR(WKMVBFR); /* ADDRESS OF PARAMETER LIST */ 00116000 LA RPARM,WKMVBFR(,RWORK) 0472 00117000 * CALL IEDMVBFR; /* MOVE MODE NAME FROM INIT- SELF 00118000 * TO WORKAREA */ 00119000 L @09,AVTSAVTP(,RAVT) 0473 00120000 L @15,SAVTMVBF(,@09) 0473 00121000 BALR @14,@15 0473 00122000 */* */ 00123000 * 0474 00124000 * WKSRCEU=PLMVSU; /* SAVE SOURCE UNIT */ 00125000 LA @09,68 0474 00126000 ALR @09,RWORK 0474 00127000 MVC WKSRCEU(4,RWORK),PLMVSU(@09) 0474 00128000 * WKSRCED=PLMVSD; /* SAVE SOURCE DATA */ 00129000 MVC WKSRCED(4,RWORK),PLMVSD(@09) 0475 00130000 * WKBIADDR=0; /* INITIALIZE BIND IMAGE ADR */ 00131000 SLR @09,@09 0476 00132000 ST @09,WKBIADDR(,RWORK) 0476 00133000 */* */ 00134000 * 0477 00135000 * WKBNDTBL=SAVTBITN; /* POINTER TO BIND IMAGE TBL */ 00136000 L @09,AVTSAVTP(,RAVT) 0477 00137000 MVC WKBNDTBL(4,RWORK),SAVTBITN(@09) 0477 00138000 * DO WHILE WKBIADDR=0&WKBNDTBL->ENDDATA^=ENDTBL;/* MATCH NOT FOUND 00139000 * AND NOT END OF TABLE */ 00140000 B @DE00478 0478 00141000 @DL00478 DS 0H 0479 00142000 */* */ 00143000 * 0479 00144000 * IF WKLOGMOD=WKBNDTBL->BINNAME THEN/* NAMES MATCH */ 00145000 L @09,WKBNDTBL(,RWORK) 0479 00146000 CLC WKLOGMOD(8,RWORK),BINNAME(@09) 0479 00147000 BNE @RF00479 0479 00148000 * WKBIADDR=WKBNDTBL; /* SET BIND IMAGE ADDR */ 00149000 ST @09,WKBIADDR(,RWORK) 0480 00150000 * ELSE /* BUMP TO NEXT ENTRY */ 00151000 * WKBNDTBL=WKBNDTBL+LENGTH(IEDBIN)+WKBNDTBL->BINLEN; 0481 00152000 * 0481 00153000 B @RC00479 0481 00154000 @RF00479 L @09,WKBNDTBL(,RWORK) 0481 00155000 LA @07,10 0481 00156000 ALR @07,@09 0481 00157000 SLR @03,@03 0481 00158000 ICM @03,3,BINLEN(@09) 0481 00159000 ALR @07,@03 0481 00160000 ST @07,WKBNDTBL(,RWORK) 0481 00161000 */* */ 00162000 * 0482 00163000 * END; 0482 00164000 * 0482 00165000 @RC00479 DS 0H 0482 00166000 @DE00478 ICM @09,15,WKBIADDR(RWORK) 0482 00167000 BNZ @DC00478 0482 00168000 L @09,WKBNDTBL(,RWORK) 0482 00169000 CLI ENDDATA(@09),255 0482 00170000 BNE @DL00478 0482 00171000 @DC00478 DS 0H 0483 00172000 */* */ 00173000 * 0483 00174000 * RE=WKSAVE2; /* RESTORE REG 14 */ 00175000 L RE,WKSAVE2(,RWORK) 0483 00176000 * END FINDMODE; 0484 00177000 @EL00003 DS 0H 0484 00178000 @EF00003 DS 0H 0484 00179000 @ER00003 BR @14 0484 00180000 *INITSELF: 0485 00181000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0485 00182000 * 0485 00183000 INITSELF DS 0H 0486 00184000 * /*****************************************************************/ 00185000 * /* */ 00186000 * /* THIS CODE PROCESSED THE INIT-SELF COMMAND. IT CHECKS FOR ERROR*/ 00187000 * /* CONDITIONS AND CALL THE APPROPRIATE SUBROUTINES TO PROCESS */ 00188000 * /* THIS REQUEST. */ 00189000 * /* */ 00190000 * /*****************************************************************/ 00191000 * 0486 00192000 * WKSAVE1=RE; /* SAVE REG 14 */ 00193000 ST RE,WKSAVE1(,RWORK) 0486 00194000 */* */ 00195000 * 0487 00196000 * IF TRMSIBPT>0& /* ANY SIBS ON CHAIN ... */ 00197000 * TRMSIBPT->SIBINDEX^=SAVTSCPT THEN/* AND LU-LU SIB ... */ 00198000 SLR @09,@09 0487 00199000 ICM @09,7,TRMSIBPT(RTRM) 0487 00200000 LTR @09,@09 0487 00201000 BNP @RF00487 0487 00202000 L @07,AVTSAVTP(,RAVT) 0487 00203000 CLC SIBINDEX(2,@09),SAVTSCPT(@07) 0487 00204000 BE @RF00487 0487 00205000 * WKSENSE=SLIMSNS; /* SET UP SENSE */ 00206000 MVC WKSENSE(4,RWORK),SLIMSNS 0488 00207000 * ELSE 0489 00208000 * IF TRMSIBPT=0| /* NO SIBS EXISTS ... */ 00209000 * TRMINERR=ON| /* OR IN ERROR PROCESSING */ 00210000 * TRMSIBPT->SIBSSTAT^=SIBSACTV|/* OR LU-SSCP SESS INACTIVE */ 00211000 * TRMSIBPT->SIBDACLU=ON| /* OR DEACTLU IN PROGRESS */ 00212000 * TRMSIBPT->SIBTERM=ON| /* OR REQ DISCONTACT RCVD */ 00213000 * TRMLULOG=OFF| /* OF TERMINAL INACTIVE */ 00214000 * TRMSTOTE=ON THEN /* TOTE IN CONTROL */ 00215000 B @RC00487 0489 00216000 @RF00487 SLR @09,@09 0489 00217000 ICM @09,7,TRMSIBPT(RTRM) 0489 00218000 LTR @09,@09 0489 00219000 BZ @RT00489 0489 00220000 TM TRMINERR(RTRM),B'00000010' 0489 00221000 BO @RT00489 0489 00222000 TM SIBSSTAT(@09),B'00011100' 0489 00223000 BNO @RT00489 0489 00224000 TM SIBDACLU(@09),B'01010000' 0489 00225000 BNZ @RT00489 0489 00226000 TM TRMLULOG(RTRM),B'00000001' 0489 00227000 BZ @RT00489 0489 00228000 TM TRMSTOTE(RTRM),B'00000001' 0489 00229000 BNO @RF00489 0489 00230000 @RT00489 DS 0H 0490 00231000 * WKSENSE=NMODESNS; /* SET UP SENSE FIELD */ 00232000 MVC WKSENSE(4,RWORK),NMODESNS 0490 00233000 * ELSE /* NO ERROR CONDITIONS EXISTS */ 00234000 * DO; 0491 00235000 B @RC00489 0491 00236000 @RF00489 DS 0H 0492 00237000 * WKSENSE=RUERRSNS; /* ASSUME RU ERROR @YM07277*/ 00238000 MVC WKSENSE(4,RWORK),RUERRSNS 0492 00239000 * CALL FINDMODE; /* VERIFY MODE NAME */ 00240000 BAL @14,FINDMODE 0493 00241000 * IF WKBIADDR>0 THEN /* SUCCESSFUL */ 00242000 ICM @09,15,WKBIADDR(RWORK) 0494 00243000 BNP @RF00494 0494 00244000 * DO; 0495 00245000 * CALL TYPEVFY; /* VARIFY TYPE @YM07277*/ 00246000 BAL @14,TYPEVFY 0496 00247000 * IF WKTYPESW=ON THEN /* IF TYPE OK THEN @YM07277*/ 00248000 TM WKTYPESW(RWORK),B'00100000' 0497 00249000 BNO @RF00497 0497 00250000 * DO; /* CALCULATE AMOUNT OF DATA 0498 00251000 * REMAINING IN THE INITSELF 0498 00252000 * @YM07277*/ 00253000 * WKINITD=PRFSIZE-(PRFISIZE+AVTHDRSZ+LENGTH(XINSFIXD)+ 00254000 * LENGTH(XINSNTYP)); 0499 00255000 LA @09,43 0499 00256000 SLR @07,@07 0499 00257000 IC @07,PRFISIZE(,IEDQPPTR) 0499 00258000 ALR @09,@07 0499 00259000 LCR @09,@09 0499 00260000 AH @09,PRFSIZE(,IEDQPPTR) 0499 00261000 STH @09,WKINITD(,RWORK) 0499 00262000 * CALL NAMEVFY; /* VERIFY LU NETWORK NAME */ 00263000 BAL @14,NAMEVFY 0500 00264000 * IF WKNAMESW=ON THEN/* SUCESSFUL */ 00265000 TM WKNAMESW(RWORK),B'10000000' 0501 00266000 BNO @RF00501 0501 00267000 * DO; 0502 00268000 * CALL VARYVFY; /* VARIFY LENGTH OF VARIABLE DATA 00269000 * @YM07277*/ 00270000 BAL @14,VARYVFY 0503 00271000 * IF WKINITD>0 THEN/* IF LENGTH OF VARIABLE DATA 00272000 * OK THEN @YM07277*/ 00273000 CLC WKINITD(2,RWORK),@CH00589 0504 00274000 BNH @RF00504 0504 00275000 * DO; /* @YM07277*/ 00276000 * CALL SIBRTN;/* GET LU-LU SIB */ 00277000 BAL @14,SIBRTN 0506 00278000 * IF REQRCD1=0 THEN/* GOT SIB SUCESSFULLY */ 00279000 CLI REQRCD1+92(RWORK),0 0507 00280000 BNE @RF00507 0507 00281000 * DO; 0508 00282000 * WKSENSE=0;/* SET SENSE FIELD */ 00283000 SLR @09,@09 0509 00284000 ST @09,WKSENSE(,RWORK) 0509 00285000 * IF PRF1USS=ON THEN/* CONVERT INDICATOR 00286000 * ON */ 00287000 LR @09,IEDQPPTR 0510 00288000 AL @09,@CF01780 0510 00289000 TM PRF1USS-3(@09),B'00001000' 0510 00290000 BNO @RF00510 0510 00291000 * TRMSIBPT->SIBUSS=ON;/* SAVE INDICATOR 00292000 * IN SIB */ 00293000 ICM @09,7,TRMSIBPT(RTRM) 0511 00294000 OI SIBUSS(@09),B'10000000' 0511 00295000 * END; 0512 00296000 * ELSE /* CAN'T GET A SIB */ 00297000 * WKSENSE=NRSCESNS;/* SET UP SENSE FIELD */ 00298000 B @RC00507 0513 00299000 @RF00507 MVC WKSENSE(4,RWORK),NRSCESNS 0513 00300000 * END; /* @YM07277*/ 00301000 @RC00507 DS 0H 0515 00302000 * END; 0515 00303000 @RF00504 DS 0H 0516 00304000 * END; /* @YM07277*/ 00305000 @RF00501 DS 0H 0517 00306000 * END; 0517 00307000 @RF00497 DS 0H 0518 00308000 * END; 0518 00309000 * 0518 00310000 @RF00494 DS 0H 0519 00311000 */* */ 00312000 * 0519 00313000 * IF WKSENSE=0| /* NO ERRORS FOUND */ 00314000 * (TRHDR1=ON|TRHDR2=ON)& /* RESPONSE REQUIRED @YM06067*/ 00315000 * (TRHER=OFF|WKSENSE^=0) THEN /* FOR THIS REQUEST @YM06067*/ 00316000 @RC00489 DS 0H 0519 00317000 @RC00487 SLR @09,@09 0519 00318000 L @07,WKSENSE(,RWORK) 0519 00319000 CLR @07,@09 0519 00320000 BE @RT00519 0519 00321000 LR @03,IEDQPPTR 0519 00322000 SH @03,@CH00045 0519 00323000 TM TRHDR1(@03),B'10100000' 0519 00324000 BZ @RF00519 0519 00325000 TM TRHER(@03),B'00010000' 0519 00326000 BZ @RT00519 0519 00327000 CLR @07,@09 0519 00328000 BE @RF00519 0519 00329000 @RT00519 DS 0H 0520 00330000 * OPCMODID=PART2INT; /* CONTINUE WITH IGCAT10D */ 00331000 MVC OPCMODID(2,ROPCAVT),@CC01680 0520 00332000 * ELSE 0521 00333000 * DO; 0521 00334000 B @RC00519 0521 00335000 @RF00519 DS 0H 0522 00336000 * CALL DISCARD; /* FREE BUFFER */ 00337000 BAL @14,DISCARD 0522 00338000 * RZERO=0; /* CLEAR REG ZERO */ 00339000 SLR RZERO,RZERO 0523 00340000 * OPCMODID=DSPOPCTL; /* RETURN TO '00' */ 00341000 MVC OPCMODID(2,ROPCAVT),@CC01678 0524 00342000 * END; 0525 00343000 * RE=WKSAVE1; /* RESTORE REG 14 */ 00344000 @RC00519 L RE,WKSAVE1(,RWORK) 0526 00345000 * END INITSELF; 0527 00346000 @EL00004 DS 0H 0527 00347000 @EF00004 DS 0H 0527 00348000 @ER00004 BR @14 0527 00349000 *NAMESRCH: 0528 00350000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0528 00351000 * 0528 00352000 NAMESRCH DS 0H 0529 00353000 * /*****************************************************************/ 00354000 * /* */ 00355000 * /* THIS ROUTINE TRIES TO FIND A TNT OFFSET FOR A GIVEN TERMINAL */ 00356000 * /* NAME. FIRST THE MH TABLE IS SCANED TO DETERMINE IF THE NAME IS*/ 00357000 * /* THERE. IF THE NAME IS NOT IN THE MH TABLE THEN IEDQA1 IS */ 00358000 * /* CALLED TO SCAN THE TERMINAL TABLE. IF THE NAME IS FOUND IT IS */ 00359000 * /* SAVED IN A LOCAL FIELD AND A SWITCH SET TO INDICATE THIS. */ 00360000 * /* */ 00361000 * /*****************************************************************/ 00362000 * 0529 00363000 * WKSAVE3=RE; /* SAVE REG 14 */ 00364000 ST RE,WKSAVE3(,RWORK) 0529 00365000 * WKPLUTNT=SAVTMHDX; /* MH TABLE FIRST TNT OFFSET */ 00366000 L @09,AVTSAVTP(,RAVT) 0530 00367000 MVC WKPLUTNT(2,RWORK),SAVTMHDX(@09) 0530 00368000 * WKMHTBL=SAVTMHTB; /* MH TABLE FIRST ENTRY ADDR */ 00369000 MVC WKMHTBL(4,RWORK),SAVTMHTB(@09) 0531 00370000 */* */ 00371000 * 0532 00372000 * /* MATCH NOT FOUND AND NOT END OF 00373000 * TABLE */ 00374000 * DO WHILE WKNAMESW=OFF&WKMHTBL->ENDDATA^=MHFLGE; 0532 00375000 B @DE00532 0532 00376000 @DL00532 DS 0H 0533 00377000 * IF WKMHTBL->MHNAME=WKLUNAME THEN/* NAMES MATCH */ 00378000 L @09,WKMHTBL(,RWORK) 0533 00379000 CLC MHNAME(8,@09),WKLUNAME(RWORK) 0533 00380000 BNE @RF00533 0533 00381000 * WKNAMESW=ON; /* SET FOUND SWITCH ON */ 00382000 OI WKNAMESW(RWORK),B'10000000' 0534 00383000 * ELSE /* NAMES DON'T MATCH */ 00384000 * DO; 0535 00385000 B @RC00533 0535 00386000 @RF00533 DS 0H 0536 00387000 * WKPLUTNT=WKPLUTNT+1; /* ADD 1 TO TNT COUNTER */ 00388000 LA @09,1 0536 00389000 SLR @07,@07 0536 00390000 ICM @07,3,WKPLUTNT(RWORK) 0536 00391000 ALR @09,@07 0536 00392000 STH @09,WKPLUTNT(,RWORK) 0536 00393000 * WKMHTBL=WKMHTBL+LENGTH(IEDMHTD);/* BUMP TO NEXT ENTRY */ 00394000 LA @09,12 0537 00395000 AL @09,WKMHTBL(,RWORK) 0537 00396000 ST @09,WKMHTBL(,RWORK) 0537 00397000 * END; 0538 00398000 * END; 0539 00399000 @RC00533 DS 0H 0539 00400000 @DE00532 TM WKNAMESW(RWORK),B'10000000' 0539 00401000 BNZ @DC00532 0539 00402000 L @09,WKMHTBL(,RWORK) 0539 00403000 CLI ENDDATA(@09),255 0539 00404000 BNE @DL00532 0539 00405000 @DC00532 DS 0H 0540 00406000 * IF WKNAMESW=OFF THEN /* MATCH NOT FOUND */ 00407000 TM WKNAMESW(RWORK),B'10000000' 0540 00408000 BNZ @RF00540 0540 00409000 * DO; 0541 00410000 * RZERO=TNTENLEN; /* GET TNT ENTRY LENGTH */ 00411000 L @09,AVTRNMPT(,RAVT) 0542 00412000 SLR RZERO,RZERO 0542 00413000 IC RZERO,TNTENLEN(,@09) 0542 00414000 * RPARM=ADDR(WKLUNAME); /* ADDRESS OF THE NAME */ 00415000 LA RPARM,WKLUNAME(,RWORK) 0543 00416000 * RF=A1VCON; /* VCON FOR IEDQA1 */ 00417000 ICM @09,7,AVTMSGS(RAVT) 0544 00418000 L RF,A1VCON(,@09) 0544 00419000 * GEN(BAL RE,4(RF)); /* FIND TNT FOR THIS NAME */ 00420000 BAL RE,4(RF) 00421000 * IF RF>0 THEN /* SUCESSFUL ... YES */ 00422000 LTR RF,RF 0546 00423000 BNP @RF00546 0546 00424000 * DO; 0547 00425000 * WKPLUTNT=RF; /* SAVE THE TNT OFFSET */ 00426000 STH RF,WKPLUTNT(,RWORK) 0548 00427000 * WKTNTIND=ON; /* SET TNT INDICATOR */ 00428000 * WKNAMESW=ON; /* TURN ON NAME SWITC */ 00429000 OI WKTNTIND(RWORK),B'11000000' 0550 00430000 * END; 0551 00431000 * END; 0552 00432000 * 0552 00433000 @RF00546 DS 0H 0553 00434000 */* */ 00435000 * 0553 00436000 * RE=WKSAVE3; /* RESTORE REG 14 */ 00437000 @RF00540 L RE,WKSAVE3(,RWORK) 0553 00438000 * END NAMESRCH; /* RETURN TO CALLER */ 00439000 @EL00005 DS 0H 0554 00440000 @EF00005 DS 0H 0554 00441000 @ER00005 BR @14 0554 00442000 *NAMEVFY: 0555 00443000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0555 00444000 * 0555 00445000 NAMEVFY DS 0H 0556 00446000 * /*****************************************************************/ 00447000 * /* */ 00448000 * /* THIS ROUTINE VERIFIES THAT THE LU NETWORK NAME IS EITHER IN */ 00449000 * /* THE TERMINAL NAME TABLE OR IN THE MH TABLE. IF THE NAME IS IN */ 00450000 * /* THE TNT TABLE THEN A CHECK IS MADE TO DETERMINE IF IT IS A */ 00451000 * /* VALID (TPROCESS ENTRY). IF THE ENTRY IS NOT FOUND OR IT IS AN */ 00452000 * /* INVALID ENTRY A ERROR INDICATION IS GIVEN. */ 00453000 * /* */ 00454000 * /*****************************************************************/ 00455000 * 0556 00456000 * WKSAVE2=RE; /* SAVE REG 14 */ 00457000 ST RE,WKSAVE2(,RWORK) 0556 00458000 */* */ 00459000 * 0557 00460000 * /* IF LENGTH OF LU NAME IS NOT 0 00461000 * AND THE LENGTH PLUS THE NAME 00462000 * IS LESS THAN OR EQUAL TO THE 00463000 * MAX ALLOWED AND THE LENGTH 0557 00464000 * PLUS THE NAME IS LESS THAN THE 00465000 * AMOUNT OF DATA REMAINING THEN 00466000 * @YM07727*/ 00467000 * IF VARYLNTH^=0& /* */ 00468000 * LENGTH(VARYLNTH)+VARYLNTH<=LENGTH(WKLULEN)+LENGTH(WKLUNAME)& 00469000 * /* */ 00470000 * LENGTH(VARYLNTH)+VARYLNTHPROLU=OFF THEN /* LU=YES NOT SPECIFIED ON 0575 00534000 * TPROCESS QUEUE */ 00535000 LTR RF,RF 0575 00536000 BZ @RT00575 0575 00537000 TM PROLU(RF),B'01000000' 0575 00538000 BNZ @RF00575 0575 00539000 @RT00575 DS 0H 0576 00540000 * WKNAMESW=OFF; /* GIVE ERROR INDICATION */ 00541000 NI WKNAMESW(RWORK),B'01111111' 0576 00542000 * END; 0577 00543000 @RF00575 DS 0H 0578 00544000 * END; /* @YM07277*/ 00545000 @RF00569 DS 0H 0579 00546000 * RE=WKSAVE2; /* RESTORE REG 14 */ 00547000 @RF00557 L RE,WKSAVE2(,RWORK) 0579 00548000 * END NAMEVFY; /* RETURN TO CALLER */ 00549000 @EL00006 DS 0H 0580 00550000 @EF00006 DS 0H 0580 00551000 @ER00006 BR @14 0580 00552000 *SIBRTN: 0581 00553000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0581 00554000 * 0581 00555000 SIBRTN DS 0H 0582 00556000 * /*****************************************************************/ 00557000 * /* */ 00558000 * /* THIS ROUTINE SETS UP THE PARAMETER LIST TO GET A SIB. THE */ 00559000 * /* ADDRESS OF THE PARAMETER LIST IS PLACED IN REG 1 THEN THE */ 00560000 * /* POSTWAIT ROUTINE IS CALLED TO REQUEST THE SIB. */ 00561000 * /* */ 00562000 * /*****************************************************************/ 00563000 * 0582 00564000 * WKSAVE2=RE; /* SAVE REG 14 */ 00565000 ST RE,WKSAVE2(,RWORK) 0582 00566000 */* */ 00567000 * 0583 00568000 * REQTYPE=REQSGET; /* INDICATOR TO GET SIB */ 00569000 LA @09,92 0583 00570000 ALR @09,RWORK 0583 00571000 MVI REQTYPE(@09),X'03' 0583 00572000 * REQQCBA=SAVTXTRQ; /* POSTWAIT QCB */ 00573000 L @07,AVTSAVTP(,RAVT) 0584 00574000 MVC REQQCBA(3,@09),SAVTXTRQ+1(@07) 0584 00575000 * REQPRI=PRISIBRQ; /* GET SIB PRIORITY */ 00576000 MVI REQPRI(@09),X'E5' 0585 00577000 * REQRQCBA=ADDR(OPCPWQCB); /* OP COB QCB @YM08403*/ 00578000 LA @07,OPCPWQCB(,ROPCAVT) 0586 00579000 STCM @07,7,REQRQCBA(@09) 0586 00580000 * REQRPRI=PRISIBRQ; /* RETURN PRIORITY */ 00581000 MVI REQRPRI(@09),X'E5' 0587 00582000 * REQSTTE=RTRM+LENGTH(IEDNTRM); /* TTE FOR THE SLU */ 00583000 LA @07,14 0588 00584000 ALR @07,RTRM 0588 00585000 ST @07,REQSTTE(,@09) 0588 00586000 * REQSTNT=WKPLUTNT; /* INDEX OF PRIMARY LU */ 00587000 MVC REQSTNT(2,@09),WKPLUTNT(RWORK) 0589 00588000 */* */ 00589000 * 0590 00590000 * RPARM=ADDR(WKREQELE); /* ADDRESS OF REQUEST ELE */ 00591000 LA RPARM,WKREQELE(,RWORK) 0590 00592000 * CALL POSTWAIT; /* GET A SIB */ 00593000 L @15,OPCPSTWT(,ROPCAVT) 0591 00594000 BALR @14,@15 0591 00595000 */* */ 00596000 * 0592 00597000 * RE=WKSAVE2; /* RESTORE REG14 */ 00598000 L RE,WKSAVE2(,RWORK) 0592 00599000 * END SIBRTN; /* RETURN TO CALLER */ 00600000 @EL00007 DS 0H 0593 00601000 @EF00007 DS 0H 0593 00602000 @ER00007 BR @14 0593 00603000 *TYPEVFY: 0594 00604000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0594 00605000 * 0594 00606000 TYPEVFY DS 0H 0595 00607000 * /*****************************************************************/ 00608000 * /* */ 00609000 * /* THIS ROUTINE VARIFIES THE RESOURCE TYPE FIELD IN THE INIT-SELF*/ 00610000 * /* AND IF VALID, BUMPS THE DATA POINTER IN THE INIT SELF PIU PAST*/ 00611000 * /* THE RESOURCE TYPE FIELD @YM07277*/ 00612000 * /* */ 00613000 * /*****************************************************************/ 00614000 * 0595 00615000 * WKSAVE2=RE; /* SAVE RETURN REGISTER @YM07277*/ 00616000 ST RE,WKSAVE2(,RWORK) 0595 00617000 * IF RESRCTYP^=0 THEN /* IF NON ZERO RESOURCE TYPE THEN 00618000 * @YM07277*/ 00619000 LA @09,68 0596 00620000 ALR @09,RWORK 0596 00621000 L @07,PLMVSD(,@09) 0596 00622000 CLI RESRCTYP(@07),0 0596 00623000 BE @RF00596 0596 00624000 * DO; /* @YM07277*/ 00625000 * WKTYPESW=ON; /* INDICATE TYPE OK @YM07277*/ 00626000 OI WKTYPESW(RWORK),B'00100000' 0598 00627000 * PLMVFLG1=0; /* INITIALIZE FLG1 @YM07277*/ 00628000 MVI PLMVFLG1(@09),X'00' 0599 00629000 * PLMVTU=PLMVSU; /* SET TARGET UNIT @YM07277*/ 00630000 MVC PLMVTU(4,@09),PLMVSU(@09) 0600 00631000 * PLMVTD=PLMVSD; /* SET TARGET DATA @YM07277*/ 00632000 ST @07,PLMVTD(,@09) 0601 00633000 * PLMVLNTH=LENGTH(XINSNTYP); /* SET DATA LENGTH @YM07277*/ 00634000 MVC PLMVLNTH(2,@09),@CH00060 0602 00635000 * RPARM=ADDR(WKMVBFR); /* SET PARM LIST ADDR @YM07277*/ 00636000 LA RPARM,WKMVBFR(,RWORK) 0603 00637000 * CALL IEDMVBFR; /* MOVE TYPE FIELD @YM07277*/ 00638000 L @09,AVTSAVTP(,RAVT) 0604 00639000 L @15,SAVTMVBF(,@09) 0604 00640000 BALR @14,@15 0604 00641000 * END; /* @YM07277*/ 00642000 * RE=WKSAVE2; /* RESTORE RETURN ADDR @YM07277*/ 00643000 @RF00596 L RE,WKSAVE2(,RWORK) 0606 00644000 * END TYPEVFY; /* RETURN TO CALLER @YM07277*/ 00645000 @EL00008 DS 0H 0607 00646000 @EF00008 DS 0H 0607 00647000 @ER00008 BR @14 0607 00648000 *VARYVFY: 0608 00649000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0608 00650000 * 0608 00651000 VARYVFY DS 0H 0609 00652000 * /*****************************************************************/ 00653000 * /* */ 00654000 * /* THIS ROUTINE VARIFIES THAT THE LENGTHS SPECIFIED IN THE */ 00655000 * /* VARIABLE DATA FIELDS IN THE INIT-SELF PIU DO NOT SPECIFY A */ 00656000 * /* LENGTH GREATER THAN THE AMOUNT OF DATA IN THE INIT-SELF PIU. */ 00657000 * /* @YM07277*/ 00658000 * /* */ 00659000 * /*****************************************************************/ 00660000 * 0609 00661000 * WKSAVE2=RE; /* SAVE RETURN ADDRESS @YM07277*/ 00662000 ST RE,WKSAVE2(,RWORK) 0609 00663000 * RZERO=2; /* SET LOOP CONTROL @YM07277*/ 00664000 LA RZERO,2 0610 00665000 * PLMVFLG1=0; /* INITIALIZE FLG1 @YM07277*/ 00666000 LA @09,68 0611 00667000 ALR @09,RWORK 0611 00668000 MVI PLMVFLG1(@09),X'00' 0611 00669000 * PLMVTU=PLMVSU; /* SET TARGET UNIT @YM07277*/ 00670000 MVC PLMVTU(4,@09),PLMVSU(@09) 0612 00671000 * PLMVTD=PLMVSD; /* SET TARGET DATA @YM07277*/ 00672000 MVC PLMVTD(4,@09),PLMVSD(@09) 0613 00673000 * RPARM=ADDR(WKMVBFR); /* SET PARM LIST ADDR @YM07277*/ 00674000 LA RPARM,WKMVBFR(,RWORK) 0614 00675000 * DO UNTIL(RZERO=0); /* BUMP PAST REQUESTOR ID AND 0615 00676000 * PASSWORD @YM07277 00677000 * IF VARIABLE FIELD IS CONTAINED 00678000 * IN THE PIU @YM07277*/ 00679000 @DL00615 DS 0H 0616 00680000 * IF LENGTH(VARYLNTH)+VARYLNTH0 THEN /* IF ANY DATA IS REMAINING IN 0628 00727000 * THE PIU THEN @YM07277*/ 00728000 SLR @07,@07 0628 00729000 ICM @07,3,WKINITD(RWORK) 0628 00730000 LTR @07,@07 0628 00731000 BNP @RF00628 0628 00732000 * IF LENGTH(VARYLNTH)+VARYLNTH^=WKINITD THEN/* IF THE LENGTH OF 00733000 * THE LOGON DATA IS NOT EQUAL TO 00734000 * THE AMOUNT OF DATA REMAINING 00735000 * IN THE PIU THEN @YM07277*/ 00736000 L @03,PLMVSD+68(,RWORK) 0629 00737000 LA @11,1 0629 00738000 SLR @10,@10 0629 00739000 IC @10,VARYLNTH(,@03) 0629 00740000 ALR @11,@10 0629 00741000 CR @11,@07 0629 00742000 BE @RF00629 0629 00743000 * WKINITD=0; /* INDICATE ERROR FOUND @YM07277*/ 00744000 STH @09,WKINITD(,RWORK) 0630 00745000 * RE=WKSAVE2; /* RESTORE RETURN ADDR @YM07277*/ 00746000 @RF00629 DS 0H 0631 00747000 @RF00628 L RE,WKSAVE2(,RWORK) 0631 00748000 * END VARYVFY; /* RETURN TO CALLER @YM07277*/ 00749000 @EL00009 DS 0H 0632 00750000 @EF00009 DS 0H 0632 00751000 @ER00009 BR @14 0632 00752000 * END IGCA210D 0633 00753000 * 0633 00754000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00755000 */*%INCLUDE SYSLIB (TAVTD ) */ 00756000 */*%INCLUDE SYSLIB (TBINDD ) */ 00757000 */*%INCLUDE SYSLIB (TCD1D ) */ 00758000 */*%INCLUDE SYSLIB (TMHTABD ) */ 00759000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00760000 */*%INCLUDE SYSLIB (TPIUD ) */ 00761000 */*%INCLUDE SYSLIB (TPLMVD ) */ 00762000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00763000 */*%INCLUDE SYSLIB (TPRFD ) */ 00764000 */*%INCLUDE SYSLIB (TPROCD ) */ 00765000 */*%INCLUDE SYSLIB (TPRUD ) */ 00766000 */*%INCLUDE SYSLIB (TREQD ) */ 00767000 */*%INCLUDE SYSLIB (TRHD ) */ 00768000 */*%INCLUDE SYSLIB (TSIBD ) */ 00769000 */*%INCLUDE SYSLIB (TSNSD ) */ 00770000 */*%INCLUDE SYSLIB (TTNTD ) */ 00771000 */*%INCLUDE SYSLIB (TTHD ) */ 00772000 */*%INCLUDE SYSLIB (TTRMD ) */ 00773000 */*%INCLUDE SYSLIB (TXINSD ) */ 00774000 * 0633 00775000 * ; 0633 00776000 @DATA DS 0H 00777000 @CH00589 DC H'0' 00778000 @CH00060 DC H'1' 00779000 @CH00045 DC H'8' 00780000 @CH01774 DC H'9' 00781000 @CH01455 DC H'14' 00782000 @CH00439 DC XL2'1E' 00783000 DS 0F 00784000 DS 0F 00785000 @CF01780 DC F'-5' 00786000 DS 0D 00787000 @CC01678 DC C'00' 00788000 @CC01680 DC C'AT' 00789000 RUERRSNS DS CL4 00790000 ORG RUERRSNS 00791000 @NM00159 DC X'10' 00792000 @NM00160 DC X'01' 00793000 @NM00161 DC AL2(0) 00794000 ORG RUERRSNS+4 00795000 NMODESNS DS CL4 00796000 ORG NMODESNS 00797000 @NM00162 DC X'08' 00798000 @NM00163 DC X'09' 00799000 @NM00164 DC AL2(0) 00800000 ORG NMODESNS+4 00801000 NRSCESNS DS CL4 00802000 ORG NRSCESNS 00803000 @NM00165 DC X'08' 00804000 @NM00166 DC X'12' 00805000 @NM00167 DC AL2(0) 00806000 ORG NRSCESNS+4 00807000 SLIMSNS DS CL4 00808000 ORG SLIMSNS 00809000 @NM00168 DC X'08' 00810000 @NM00169 DC X'05' 00811000 @NM00170 DC AL2(0) 00812000 ORG SLIMSNS+4 00813000 PATCH DC 50X'00' 00814000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00815000 @01 EQU 01 00816000 @02 EQU 02 00817000 @03 EQU 03 00818000 @04 EQU 04 00819000 @05 EQU 05 00820000 @06 EQU 06 00821000 @07 EQU 07 00822000 @08 EQU 08 00823000 @09 EQU 09 00824000 @10 EQU 10 00825000 @11 EQU 11 00826000 @12 EQU 12 00827000 @13 EQU 13 00828000 @14 EQU 14 00829000 @15 EQU 15 00830000 IEDQAPTR EQU @04 00831000 ROPCAVT EQU @02 00832000 IEDQPPTR EQU @06 00833000 RTRM EQU @08 00834000 RAVT EQU @04 00835000 RZERO EQU @00 00836000 RPARM EQU @01 00837000 RWORK EQU @05 00838000 RPRF EQU @06 00839000 IEDQTPTR EQU @08 00840000 RBASE EQU @12 00841000 RSAVE EQU @13 00842000 RE EQU @14 00843000 RF EQU @15 00844000 IEDQAVTD EQU 0 00845000 AVTSAVEX EQU IEDQAVTD+288 00846000 @NM00003 EQU IEDQAVTD+388 00847000 AVTCKFLG EQU @NM00003 00848000 AVTBASE EQU IEDQAVTD+412 00849000 AVTPKF EQU AVTBASE 00850000 AVTRNMPT EQU IEDQAVTD+424 00851000 AVTHG02 EQU IEDQAVTD+528 00852000 AVTDISP EQU IEDQAVTD+552 00853000 AVTHD EQU IEDQAVTD+556 00854000 AVTSCOPT EQU AVTHD 00855000 AVTSAVTP EQU IEDQAVTD+612 00856000 AVTSAVTF EQU AVTSAVTP 00857000 AVTCKPEL EQU IEDQAVTD+652 00858000 AVTCKRMV EQU AVTCKPEL 00859000 AVTCKELF EQU IEDQAVTD+680 00860000 AVTCKBYT EQU IEDQAVTD+691 00861000 AVTHG01 EQU IEDQAVTD+692 00862000 AVTCKLNK EQU IEDQAVTD+696 00863000 AVTCRELE EQU IEDQAVTD+708 00864000 AVTCCELE EQU AVTCRELE 00865000 AVTCLRHI EQU IEDQAVTD+716 00866000 AVTADBUF EQU IEDQAVTD+720 00867000 AVTSYSER EQU IEDQAVTD+728 00868000 AVTMSGS EQU IEDQAVTD+729 00869000 AVTCKPQB EQU IEDQAVTD+804 00870000 AVTCKPTB EQU AVTCKPQB 00871000 AVTCKPEC EQU AVTCKPQB+4 00872000 AVTCKPCC EQU AVTCKPEC 00873000 AVTOPCQB EQU IEDQAVTD+816 00874000 AVTOPCOB EQU AVTOPCQB 00875000 AVTOPCEC EQU AVTOPCQB+4 00876000 AVTOPCCC EQU AVTOPCEC 00877000 AVTOLTQB EQU IEDQAVTD+828 00878000 AVTCWFL1 EQU IEDQAVTD+924 00879000 AVTCWFL2 EQU IEDQAVTD+925 00880000 AVTSUBT EQU IEDQAVTD+948 00881000 AVTIOTR EQU IEDQAVTD+949 00882000 AVTBIT1 EQU IEDQAVTD+1050 00883000 AVTBIT2 EQU IEDQAVTD+1051 00884000 AVTBIT3 EQU IEDQAVTD+1052 00885000 AVTDDFT EQU IEDQAVTD+1064 00886000 AVTBIT4 EQU IEDQAVTD+1136 00887000 @NM00083 EQU IEDQAVTD+1232 00888000 IEDNSVTD EQU 0 00889000 SAVTDIAG EQU IEDNSVTD 00890000 SAVTDIAF EQU SAVTDIAG 00891000 SAVTLUSQ EQU IEDNSVTD+88 00892000 SAVTMVBF EQU IEDNSVTD+160 00893000 SAVTXTRQ EQU IEDNSVTD+164 00894000 SAVTMHTB EQU IEDNSVTD+216 00895000 SAVTTCPU EQU IEDNSVTD+238 00896000 SAVTSCPT EQU SAVTTCPU 00897000 SAVTMHDX EQU IEDNSVTD+268 00898000 SAVTZELM EQU IEDNSVTD+270 00899000 SAVTRDRV EQU IEDNSVTD+284 00900000 SAVTCKQB EQU IEDNSVTD+300 00901000 SAVTCKTB EQU SAVTCKQB 00902000 SAVTCKEC EQU SAVTCKQB+4 00903000 SAVTCKCC EQU SAVTCKEC 00904000 SAVTBITN EQU IEDNSVTD+312 00905000 IEDBIN EQU 0 00906000 BINNAME EQU IEDBIN 00907000 BINLEN EQU IEDBIN+8 00908000 RBIN EQU 0 00909000 IEDMHTD EQU 0 00910000 MHNAME EQU IEDMHTD 00911000 IEDQMHTP EQU 0 00912000 IEDQOPCD EQU 0 00913000 OPCAVTPT EQU IEDQOPCD+8 00914000 OPCCOPCE EQU IEDQOPCD+12 00915000 OPCPSTWT EQU IEDQOPCD+48 00916000 OPCSAVE EQU IEDQOPCD+56 00917000 OPCWORK EQU IEDQOPCD+140 00918000 OPCAQCTL EQU IEDQOPCD+180 00919000 OPCXCTL EQU IEDQOPCD+204 00920000 OPCLDNME EQU IEDQOPCD+212 00921000 OPCMODID EQU OPCLDNME+3 00922000 OPCFREBF EQU IEDQOPCD+280 00923000 OPCSPEC EQU IEDQOPCD+300 00924000 OPCPWCOB EQU IEDQOPCD+368 00925000 OPCPWQCB EQU OPCPWCOB 00926000 OPCPWECB EQU OPCPWCOB+4 00927000 IEDPIU EQU 0 00928000 PIUTH EQU IEDPIU 00929000 PIURU EQU IEDPIU+13 00930000 IEDPLMV EQU 0 00931000 PLMVTU EQU IEDPLMV 00932000 PLMVTD EQU IEDPLMV+4 00933000 PLMVSU EQU IEDPLMV+8 00934000 PLMVSD EQU IEDPLMV+12 00935000 PLMVLNTH EQU IEDPLMV+16 00936000 PLMVFLG1 EQU IEDPLMV+18 00937000 PLMVTCTG EQU PLMVFLG1 00938000 IEDPLMVP EQU 0 00939000 IEDQPRF EQU 0 00940000 PRFRCB EQU IEDQPRF 00941000 PRFKEY EQU PRFRCB 00942000 PRFQCBA EQU PRFRCB+1 00943000 PRFPRI EQU PRFRCB+4 00944000 PRFLINK EQU PRFRCB+5 00945000 PRFTIC EQU IEDQPRF+8 00946000 PRFTICC EQU PRFTIC 00947000 PRFNBUNT EQU IEDQPRF+12 00948000 PRFSUNIT EQU PRFNBUNT 00949000 PRFPLQCB EQU PRFSUNIT 00950000 @NM00123 EQU IEDQPRF+16 00951000 PRFSVFFO EQU @NM00123 00952000 PRFSRCE EQU PRFSVFFO 00953000 PRFSIZE EQU PRFSVFFO+2 00954000 PRFSTAT1 EQU IEDQPRF+20 00955000 PRFEOFN EQU PRFSTAT1 00956000 PRFCORE EQU IEDQPRF+21 00957000 PRFXTRA EQU PRFCORE 00958000 PRFSCAN EQU IEDQPRF+24 00959000 PRFISIZE EQU PRFSCAN+1 00960000 PRFTQBCK EQU IEDQPRF+26 00961000 PRFNTXT EQU PRFTQBCK 00962000 PRFEOBOF EQU PRFNTXT 00963000 PRFCHDR EQU IEDQPRF+32 00964000 PRFHQBCK EQU IEDQPRF+35 00965000 IEDPF1 EQU 0 00966000 PRF1RH EQU IEDPF1 00967000 PRF1FLG1 EQU IEDPF1+3 00968000 PRF1USS EQU PRF1FLG1 00969000 PRF1WD2 EQU IEDPF1+4 00970000 PRF1SEQP EQU PRF1WD2 00971000 PRF1SQID EQU PRF1SEQP 00972000 PRF1TAG1 EQU PRF1SQID 00973000 IEDPF2 EQU 0 00974000 PRF2FLG2 EQU IEDPF2 00975000 PRF2WD2 EQU IEDPF2+4 00976000 IEDPROC EQU 0 00977000 PROFLAG EQU IEDPROC+1 00978000 PROLU EQU PROFLAG 00979000 IEDPRUQD EQU 0 00980000 PRUTIC EQU IEDPRUQD+8 00981000 IEDPRUQP EQU 0 00982000 IEDPRUND EQU 0 00983000 PRURHTH EQU IEDPRUND 00984000 PRURH EQU PRURHTH 00985000 PRURHFG0 EQU PRURH 00986000 PRURHFG1 EQU PRURH+1 00987000 PRURHFG2 EQU PRURH+2 00988000 PRUTH EQU PRURHTH+3 00989000 PRUFIDN EQU PRUTH 00990000 IEDREQD EQU 0 00991000 REQTYPE EQU IEDREQD 00992000 REQQCBA EQU IEDREQD+1 00993000 REQPRI EQU IEDREQD+4 00994000 REQRPRI EQU IEDREQD+8 00995000 REQRQCBA EQU IEDREQD+9 00996000 REQROUTE EQU IEDREQD+12 00997000 REQRCDS EQU IEDREQD+14 00998000 REQRCD1 EQU REQRCDS 00999000 REQDATA EQU IEDREQD+16 01000000 IEDRH EQU 0 01001000 TRHBYTE0 EQU IEDRH 01002000 TRHBYTE1 EQU IEDRH+1 01003000 TRHDR1 EQU TRHBYTE1 01004000 TRHDR2 EQU TRHBYTE1 01005000 TRHER EQU TRHBYTE1 01006000 TRHBYTE2 EQU IEDRH+2 01007000 IEDSIBD EQU 0 01008000 SIBINDEX EQU IEDSIBD+8 01009000 SIBSESSN EQU IEDSIBD+10 01010000 SIBSSTAT EQU SIBSESSN 01011000 SIBPACIN EQU IEDSIBD+11 01012000 SIBSEQN EQU IEDSIBD+12 01013000 SIBSTAT1 EQU IEDSIBD+16 01014000 SIBSTAT2 EQU IEDSIBD+17 01015000 SIBUSS EQU SIBSTAT2 01016000 SIBTERM EQU SIBSTAT2 01017000 SIBDACLU EQU SIBSTAT2 01018000 SIBBIND EQU IEDSIBD+20 01019000 SIBBIND1 EQU SIBBIND 01020000 SIBBIND2 EQU SIBBIND+1 01021000 SIBBIND3 EQU SIBBIND+2 01022000 SIBSTAT0 EQU IEDSIBD+23 01023000 IEDSNSD EQU 0 01024000 SNSSYSTM EQU IEDSNSD 01025000 SNSUSER EQU IEDSNSD+2 01026000 SNSPTR EQU 0 01027000 IEDQTNTD EQU 0 01028000 IEDQTCDE EQU IEDQTNTD 01029000 TNTENLEN EQU IEDQTNTD+40 01030000 IEDQTDCE EQU IEDQTNTD+46 01031000 IEDQNPTR EQU 0 01032000 IEDTNTA EQU 0 01033000 IEDTH EQU 0 01034000 TTHBYTE0 EQU IEDTH 01035000 TTHSNF EQU IEDTH+6 01036000 TTHTAG EQU TTHSNF 01037000 TTHTAG1 EQU TTHTAG 01038000 IEDTRM EQU 0 01039000 IEDNTRM EQU IEDTRM 01040000 TRMBYTE4 EQU IEDNTRM 01041000 TRMBYTE3 EQU IEDNTRM+1 01042000 TRMBYTE2 EQU IEDNTRM+2 01043000 TRMINPG EQU TRMBYTE2 01044000 TRMBYTE1 EQU IEDNTRM+3 01045000 TRMSCPRQ EQU TRMBYTE1 01046000 TRMSTOTE EQU TRMBYTE1 01047000 TRMBYTE0 EQU IEDNTRM+6 01048000 TRMSIBPT EQU IEDNTRM+7 01049000 IEDQTRM EQU IEDTRM+14 01050000 TRMSTATE EQU IEDQTRM 01051000 TRMLOG EQU TRMSTATE 01052000 TRMINSEQ EQU IEDQTRM+4 01053000 TLISTCNT EQU TRMINSEQ 01054000 TRMOUTSQ EQU IEDQTRM+6 01055000 TLISTEN EQU TRMOUTSQ 01056000 TRMDSORG EQU TLISTEN 01057000 TRMALTD EQU IEDQTRM+8 01058000 TRMDEVFL EQU IEDQTRM+10 01059000 TRMSTAT EQU IEDQTRM+12 01060000 IEDXINSD EQU 0 01061000 XINSFIXD EQU IEDXINSD 01062000 XINSCODE EQU XINSFIXD 01063000 XINSFMTP EQU XINSFIXD+3 01064000 XINSMODE EQU XINSFIXD+4 01065000 XINSVAR EQU IEDXINSD+12 01066000 XINSNTNM EQU XINSVAR 01067000 XINSNTYP EQU XINSNTNM 01068000 XINSRQID EQU XINSVAR+2 01069000 XINSPWRD EQU XINSVAR+3 01070000 XINSUFLD EQU XINSVAR+4 01071000 XINSPTR EQU 0 01072000 FREEBUF EQU 0 01073000 IEDMVBFR EQU 0 01074000 IEDQTNT EQU 0 01075000 IEDQTL EQU 0 01076000 POSTWAIT EQU 0 01077000 ENDDATA EQU 0 01078000 RESRCTYP EQU 0 01079000 VARYLNTH EQU 0 01080000 WKAREA EQU 0 01081000 WKSRCEU EQU WKAREA 01082000 WKSRCED EQU WKAREA+4 01083000 WKBIADDR EQU WKAREA+8 01084000 WKSENSE EQU WKAREA+12 01085000 WKPLUTNT EQU WKAREA+16 01086000 WKSLUTNT EQU WKAREA+18 01087000 WKREMAIN EQU WKAREA+20 01088000 VCONTBL EQU 0 01089000 A1VCON EQU VCONTBL+8 01090000 IEDQQPTR EQU 0 01091000 SIBPTR EQU 0 01092000 TNTCODE EQU 0 01093000 TNTDCODE EQU 0 01094000 TNTFIRST EQU 0 01095000 OPCAQWD EQU OPCAQCTL 01096000 OPCAQWD1 EQU OPCAQWD 01097000 OPCAQWD2 EQU OPCAQWD+4 01098000 OPCAQWD3 EQU OPCAQWD+8 01099000 REQLDATA EQU REQDATA 01100000 REQSDATA EQU REQDATA 01101000 REQSTTE EQU REQSDATA 01102000 REQSTNT EQU REQSDATA+4 01103000 TRMPRE1 EQU TRMBYTE4 01104000 TRMNCP1 EQU TRMBYTE4 01105000 TRMPRE EQU TRMBYTE3 01106000 TRMNCP EQU TRMBYTE3 01107000 TRMPU EQU TRMBYTE3 01108000 TRMLU EQU TRMBYTE3 01109000 TRMINERR EQU TRMLU 01110000 TRMLULOG EQU TRMLU 01111000 TRMLINK EQU TRMBYTE3 01112000 WKSPACE EQU WKREMAIN 01113000 WKSAVE1 EQU WKSPACE 01114000 WKSAVE2 EQU WKSPACE+4 01115000 WKSAVE3 EQU WKSPACE+8 01116000 WKINSRU EQU WKSPACE+12 01117000 WKBNDTBL EQU WKSPACE+16 01118000 WKMHTBL EQU WKSPACE+20 01119000 WKINITD EQU WKSPACE+24 01120000 WKLOGMOD EQU WKSPACE+30 01121000 WKLUFLD EQU WKSPACE+38 01122000 WKLULEN EQU WKLUFLD+1 01123000 WKLUNAME EQU WKLUFLD+2 01124000 WKMVBFR EQU WKSPACE+48 01125000 WKREQELE EQU WKSPACE+72 01126000 WKSWITCH EQU WKSPACE+98 01127000 WKNAMESW EQU WKSWITCH 01128000 WKTNTIND EQU WKSWITCH 01129000 WKTYPESW EQU WKSWITCH 01130000 INSERRSP EQU PIURU 01131000 INSSENSE EQU INSERRSP 01132000 PRFSHDR EQU IEDQPRF+42 01133000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01134000 INSCMD EQU INSERRSP+4 01135000 @NM00158 EQU WKSWITCH 01136000 WKLUTYP EQU WKLUFLD 01137000 WKSIZE EQU WKSPACE+28 01138000 WKCINTD EQU WKSPACE+26 01139000 @NM00157 EQU TRMLINK 01140000 TRMLSTAT EQU TRMLINK 01141000 TRMLINT EQU TRMLINK 01142000 TRMEPMOD EQU TRMLINK 01143000 TRMLUREQ EQU TRMLU 01144000 TRMSESRQ EQU TRMLU 01145000 TRMTDIFF EQU TRMLU 01146000 TRMLUTM EQU TRMLU 01147000 TRMLUIT EQU TRMLU 01148000 TRMAUTO EQU TRMLU 01149000 TRMPCONT EQU TRMPU 01150000 @NM00156 EQU TRMPU 01151000 TRMNCONT EQU TRMNCP 01152000 TRMQUCKN EQU TRMNCP 01153000 TRMSLOWN EQU TRMNCP 01154000 TRMSYGEN EQU TRMNCP 01155000 TRMNCPCL EQU TRMNCP 01156000 TRMIPLDM EQU TRMNCP 01157000 TRMINOUT EQU TRMPRE 01158000 TRMRDOUT EQU TRMPRE 01159000 TRMNLOUT EQU TRMPRE 01160000 TRMWROUT EQU TRMPRE 01161000 TRMASNXI EQU TRMPRE 01162000 TRMSTMM EQU TRMPRE 01163000 TRMCMODE EQU TRMPRE 01164000 TRMSTPND EQU TRMPRE 01165000 @NM00155 EQU TRMNCP1 01166000 TRMINOP EQU TRMNCP1 01167000 TRMLYNCH EQU TRMPRE1 01168000 TRMSPOUT EQU TRMPRE1 01169000 TRMERLCK EQU TRMPRE1 01170000 TRMQNPL EQU TRMPRE1 01171000 TRMSPACT EQU TRMPRE1 01172000 TRMOCNI EQU TRMPRE1 01173000 TRMSESSN EQU TRMPRE1 01174000 TRMCONT EQU TRMPRE1 01175000 REQLTNT EQU REQLDATA 01176000 OPCAQLST EQU OPCAQWD3+1 01177000 OPCAQRQ3 EQU OPCAQWD3 01178000 OPCAQSEC EQU OPCAQWD2+1 01179000 OPCAQRQ2 EQU OPCAQWD2 01180000 OPCAQFST EQU OPCAQWD1+1 01181000 OPCAQREQ EQU OPCAQWD1 01182000 @NM00171 EQU VCONTBL 01183000 XINSUSFD EQU XINSUFLD+1 01184000 XINSULEN EQU XINSUFLD 01185000 XINSPSWD EQU XINSPWRD+1 01186000 XINSPLEN EQU XINSPWRD 01187000 XINSRID EQU XINSRQID+1 01188000 XINSRLEN EQU XINSRQID 01189000 XINSNAME EQU XINSNTNM+2 01190000 XINSNLEN EQU XINSNTNM+1 01191000 XINSTYPE EQU XINSFMTP 01192000 XINSFMT EQU XINSFMTP 01193000 XINSREQ EQU XINSCODE+2 01194000 XINSSESS EQU XINSCODE+1 01195000 XINSNETS EQU XINSCODE 01196000 TRMOPT EQU IEDTRM+34 01197000 TRMOPTBL EQU IEDQTRM+18 01198000 TRMOPNO EQU IEDQTRM+17 01199000 TRMCHCIN EQU IEDQTRM+16 01200000 TRMSENSE EQU TRMSTAT+3 01201000 TRMTEMPR EQU TRMSTAT+2 01202000 TRMSIO EQU TRMSTAT 01203000 @NM00154 EQU TRMDEVFL+1 01204000 TRMTPIN EQU TRMDEVFL+1 01205000 TRMNCPI EQU TRMDEVFL+1 01206000 TRMRNTRM EQU TRMDEVFL+1 01207000 @NM00153 EQU TRMDEVFL+1 01208000 TRMLMD EQU TRMDEVFL+1 01209000 TRMCONC EQU TRMDEVFL+1 01210000 TRMTSOB EQU TRMDEVFL 01211000 TRMBFDY EQU TRMDEVFL 01212000 TRMTBLK EQU TRMDEVFL 01213000 TRMSBLK EQU TRMDEVFL 01214000 TRMBLKS EQU TRMDEVFL 01215000 TRMADDC EQU TRMDEVFL 01216000 TRMDDIG EQU TRMDEVFL 01217000 TRMBUFS EQU TRMDEVFL 01218000 TRMPRILK EQU TRMALTD 01219000 TRMLGB EQU TRMDSORG 01220000 TRMUTERM EQU TLISTCNT 01221000 TRMDESTQ EQU IEDQTRM+1 01222000 TRMSCNYN EQU TRMSTATE 01223000 TRMOPTFN EQU TRMSTATE 01224000 TRMHELDN EQU TRMSTATE 01225000 TRMACPTN EQU TRMSTATE 01226000 TRMPREF EQU TRMSTATE 01227000 TRMPROC EQU TRMLOG 01228000 TRMLIST EQU TRMLOG 01229000 TRMLINE EQU TRMSTATE 01230000 TRMSUBST EQU IEDNTRM+12 01231000 TRMTYPE EQU IEDNTRM+11 01232000 TRMRLMCT EQU IEDNTRM+10 01233000 TRMCOHTG EQU TRMSIBPT+1 01234000 TRMGPCNT EQU TRMSIBPT 01235000 TRMBUFRD EQU TRMBYTE0 01236000 TRMSNA EQU TRMBYTE0 01237000 TRMGP EQU TRMBYTE0 01238000 TRMDIAL EQU TRMBYTE0 01239000 @NM00152 EQU TRMBYTE0 01240000 TRMOUTPT EQU TRMBYTE0 01241000 TRMINPUT EQU TRMBYTE0 01242000 TRMUDEF EQU TRMBYTE0 01243000 TRMCOHRT EQU IEDNTRM+4 01244000 TRMCKPRN EQU TRMBYTE1 01245000 TRMTSATN EQU TRMBYTE1 01246000 TRMTRACE EQU TRMBYTE1 01247000 TRMSWBCK EQU TRMBYTE1 01248000 TRMAUTOC EQU TRMBYTE1 01249000 TRMINPTP EQU TRMBYTE1 01250000 TRMWTNEG EQU TRMSCPRQ 01251000 TRMWRBRK EQU TRMBYTE2 01252000 TRMNOSND EQU TRMBYTE2 01253000 TRMPREP EQU TRMBYTE2 01254000 TRMGPACT EQU TRMBYTE2 01255000 TRMANDL EQU TRMBYTE2 01256000 TRMCLOSN EQU TRMINPG 01257000 TRMREMB EQU TRMBYTE2 01258000 TRMRSACT EQU TRMBYTE2 01259000 TTHDCF EQU IEDTH+8 01260000 TTHTAG2 EQU TTHTAG+1 01261000 @NM00151 EQU TTHTAG1 01262000 TTHTAGS EQU TTHTAG1 01263000 TTHOAF EQU IEDTH+4 01264000 TTHDAF EQU IEDTH+2 01265000 TTHBYTE1 EQU IEDTH+1 01266000 TTHEFI EQU TTHBYTE0 01267000 @NM00150 EQU TTHBYTE0 01268000 TTHEBIU EQU TTHBYTE0 01269000 TTHBBIU EQU TTHBYTE0 01270000 TTHFTYPE EQU TTHBYTE0 01271000 TNTTRMAD EQU IEDTNTA 01272000 TNTLEN EQU IEDQTNTD+44 01273000 TNTMIDEN EQU IEDQTNTD+41 01274000 TNTSRCHX EQU IEDQTNTD+38 01275000 SNSUSR2 EQU SNSUSER+1 01276000 SNSUSR1 EQU SNSUSER 01277000 SNSMIN EQU SNSSYSTM+1 01278000 SNSMAJ EQU SNSSYSTM 01279000 SIBLUTYP EQU SIBSTAT0 01280000 SIBCD EQU SIBSTAT0 01281000 @NM00149 EQU SIBBIND3 01282000 SIBCRES EQU SIBBIND3 01283000 SIBSPKR EQU SIBBIND3 01284000 SIBRECOV EQU SIBBIND3 01285000 SIBFMODE EQU SIBBIND3 01286000 SIBALT EQU SIBBIND2 01287000 SIBBTERM EQU SIBBIND2 01288000 SIBBRACK EQU SIBBIND2 01289000 SIBFMUSE EQU SIBBIND2 01290000 SIBSEBI EQU SIBBIND2 01291000 SIBSCMP EQU SIBBIND2 01292000 SIBSEXC EQU SIBBIND2 01293000 SIBSDEF EQU SIBBIND2 01294000 SIBSRQM EQU SIBBIND1 01295000 SIBSCHNG EQU SIBBIND1 01296000 SIBPEBI EQU SIBBIND1 01297000 SIBPCMP EQU SIBBIND1 01298000 SIBPEXC EQU SIBBIND1 01299000 SIBPDEF EQU SIBBIND1 01300000 SIBPRQM EQU SIBBIND1 01301000 SIBPCHN EQU SIBBIND1 01302000 SIBFMPRO EQU IEDSIBD+19 01303000 SIBTSPRO EQU IEDSIBD+18 01304000 @NM00148 EQU SIBSTAT2 01305000 SIBRDSCN EQU SIBSTAT2 01306000 SIBBSTAT EQU SIBSTAT1 01307000 SIBRTRP EQU SIBSTAT1 01308000 @NM00147 EQU SIBSTAT1 01309000 SIBRQEND EQU SIBSTAT1 01310000 SIBRQSHT EQU SIBSTAT1 01311000 SIBSEQO EQU SIBSEQN+2 01312000 SIBSEQI EQU SIBSEQN 01313000 SIBNCNT EQU SIBPACIN 01314000 SIBMCNT EQU SIBPACIN 01315000 SIBDSTAT EQU SIBSESSN 01316000 SIBINBIU EQU SIBSESSN 01317000 SIBSHUTC EQU SIBSESSN 01318000 SIBLGOFF EQU SIBSESSN 01319000 SIBCHAIN EQU IEDSIBD+4 01320000 SIBRUSEG EQU IEDSIBD 01321000 @NM00146 EQU TRHBYTE2 01322000 @NM00145 EQU TRHBYTE2 01323000 @NM00144 EQU TRHBYTE2 01324000 TRHCSI EQU TRHBYTE2 01325000 @NM00143 EQU TRHBYTE2 01326000 TRHCDI EQU TRHBYTE2 01327000 TRHEB EQU TRHBYTE2 01328000 TRHBB EQU TRHBYTE2 01329000 TRHPI EQU TRHBYTE1 01330000 @NM00142 EQU TRHBYTE1 01331000 @NM00141 EQU TRHBYTE1 01332000 @NM00140 EQU TRHBYTE1 01333000 @NM00139 EQU TRHBYTE1 01334000 TRHEC EQU TRHBYTE0 01335000 TRHBC EQU TRHBYTE0 01336000 TRHSDI EQU TRHBYTE0 01337000 TRHFI EQU TRHBYTE0 01338000 @NM00138 EQU TRHBYTE0 01339000 TRHRUCAT EQU TRHBYTE0 01340000 TRHTYPE EQU TRHBYTE0 01341000 REQRCD2 EQU REQRCDS+1 01342000 REQSWTCH EQU REQROUTE+1 01343000 REQFLAG EQU REQROUTE 01344000 REQLINK EQU IEDREQD+5 01345000 @NM00137 EQU IEDPRUND+4 01346000 PRUTHEFI EQU PRUFIDN 01347000 PRUTHUSS EQU PRUFIDN 01348000 PRUTHEIU EQU PRUFIDN 01349000 PRUTHBIU EQU PRUFIDN 01350000 PRUTHTYE EQU PRUFIDN 01351000 @NM00136 EQU PRURHFG2 01352000 PRURHCSI EQU PRURHFG2 01353000 @NM00135 EQU PRURHFG2 01354000 PRURHCDI EQU PRURHFG2 01355000 PRURHEB EQU PRURHFG2 01356000 PRURHBB EQU PRURHFG2 01357000 PRURHPI EQU PRURHFG1 01358000 @NM00134 EQU PRURHFG1 01359000 PRURHER EQU PRURHFG1 01360000 PRURHDR2 EQU PRURHFG1 01361000 @NM00133 EQU PRURHFG1 01362000 PRURHDR1 EQU PRURHFG1 01363000 PRURHEC EQU PRURHFG0 01364000 PRURHBC EQU PRURHFG0 01365000 PRURHSDI EQU PRURHFG0 01366000 PRURHFI EQU PRURHFG0 01367000 @NM00132 EQU PRURHFG0 01368000 PRURUCAT EQU PRURHFG0 01369000 PRURHTYP EQU PRURHFG0 01370000 PRUDATA EQU IEDPRUQD+12 01371000 PRUNUNIT EQU PRUTIC+1 01372000 @NM00131 EQU PRUTIC 01373000 @NM00130 EQU IEDPRUQD+4 01374000 PRUDATCT EQU IEDPRUQD+2 01375000 PRUTTCIN EQU IEDPRUQD 01376000 @NM00129 EQU PROFLAG 01377000 PRODATE EQU PROFLAG 01378000 PROSECQ EQU PROFLAG 01379000 PROLEN EQU IEDPROC 01380000 PRF2SEQP EQU PRF2WD2 01381000 @NM00128 EQU IEDPF2+1 01382000 @NM00127 EQU PRF2FLG2 01383000 PRF2SMI EQU PRF2FLG2 01384000 PRF2FORM EQU PRF2FLG2 01385000 PRF2TNTI EQU PRF2FLG2 01386000 PRF1RULN EQU PRF1SEQP+2 01387000 PRF1TAG2 EQU PRF1SQID+1 01388000 @NM00126 EQU PRF1TAG1 01389000 PRF1TAGS EQU PRF1TAG1 01390000 @NM00125 EQU PRF1FLG1 01391000 PRF1LOGD EQU PRF1FLG1 01392000 PRF1FORM EQU PRF1FLG1 01393000 PRF1EXPI EQU PRF1FLG1 01394000 PRF1FIDI EQU PRF1FLG1 01395000 PRFDEST EQU IEDQPRF+40 01396000 PRFISEQ EQU IEDQPRF+38 01397000 PRFSTXT EQU PRFHQBCK 01398000 PRFNHDR EQU PRFCHDR 01399000 PRFCRCD EQU IEDQPRF+29 01400000 PRFSVSEQ EQU PRFNTXT+1 01401000 PRFSVPRI EQU PRFEOBOF 01402000 @NM00124 EQU PRFSCAN 01403000 PRFEOB EQU PRFXTRA+1 01404000 PRFSTSO EQU PRFXTRA 01405000 PRFNHDRN EQU PRFSTAT1 01406000 PRFNLSTN EQU PRFSTAT1 01407000 PRFLOCK EQU PRFEOFN 01408000 PRFDUPLN EQU PRFSTAT1 01409000 PRFTSMSG EQU PRFSTAT1 01410000 PRFITCPN EQU PRFSTAT1 01411000 PRFERMGN EQU PRFSTAT1 01412000 PRFCNCLN EQU PRFSTAT1 01413000 PRFSVFLG EQU @NM00123+3 01414000 PRFLCB EQU IEDQPRF+13 01415000 PRFPIUO EQU PRFPLQCB 01416000 PRFTI0 EQU PRFTIC+1 01417000 @NM00122 EQU PRFTICC 01418000 @NM00121 EQU PRFTICC 01419000 @NM00120 EQU PRFTICC 01420000 PRFTICON EQU PRFTICC 01421000 @NM00119 EQU PRFTICC 01422000 @NM00118 EQU PRFTICC 01423000 PRFBFMM EQU PRFTICC 01424000 PRFEOMSG EQU PRFTICC 01425000 PRFCOUNT EQU PRFLINK+1 01426000 @NM00117 EQU PRFLINK 01427000 PRFFLAGS EQU PRFPRI 01428000 PRFIOADR EQU PRFQCBA 01429000 PRFOPCDE EQU PRFKEY 01430000 PLMVUNCA EQU IEDPLMV+20 01431000 PLMVFLG2 EQU IEDPLMV+19 01432000 @NM00116 EQU PLMVFLG1 01433000 PLMVSCTG EQU PLMVFLG1 01434000 PLMVUNCF EQU PLMVFLG1 01435000 PIURH EQU IEDPIU+10 01436000 OPCBOTTM EQU IEDQOPCD+1184 01437000 @NM00115 EQU IEDQOPCD+1100 01438000 @NM00114 EQU IEDQOPCD+948 01439000 @NM00113 EQU IEDQOPCD+940 01440000 @NM00112 EQU IEDQOPCD+380 01441000 @NM00111 EQU OPCPWCOB+8 01442000 @NM00110 EQU OPCPWECB+1 01443000 OPCPWCCC EQU OPCPWECB 01444000 OPCPWCHN EQU OPCPWQCB+1 01445000 OPCPWVTO EQU OPCPWQCB 01446000 OPCWAITV EQU IEDQOPCD+364 01447000 OPCTOTCK EQU IEDQOPCD+360 01448000 OPCAPXTL EQU IEDQOPCD+356 01449000 OPCDECR EQU IEDQOPCD+352 01450000 OPCBUFWT EQU IEDQOPCD+348 01451000 OPCWRKSP EQU IEDQOPCD+320 01452000 OPCADGOT EQU IEDQOPCD+318 01453000 OPCRQCNT EQU IEDQOPCD+316 01454000 OPPOLSTP EQU IEDQOPCD+312 01455000 OPCCKCIB EQU IEDQOPCD+308 01456000 OPCEND EQU IEDQOPCD+307 01457000 OPCSTCBS EQU IEDQOPCD+306 01458000 OPCHNEND EQU IEDQOPCD+302 01459000 OPCOQSW EQU IEDQOPCD+301 01460000 @NM00109 EQU OPCSPEC 01461000 @NM00108 EQU OPCSPEC 01462000 @NM00107 EQU OPCSPEC 01463000 @NM00106 EQU OPCSPEC 01464000 OPCFRMCA EQU OPCSPEC 01465000 OPCRSTRT EQU OPCSPEC 01466000 OPCPART EQU OPCSPEC 01467000 OPCALTD EQU OPCSPEC 01468000 OPCBFEND EQU IEDQOPCD+296 01469000 OPCBFIRS EQU IEDQOPCD+292 01470000 OPCAVBUF EQU IEDQOPCD+290 01471000 OPCIPLCT EQU IEDQOPCD+289 01472000 OPCCLNTS EQU IEDQOPCD+288 01473000 OPCHA8 EQU IEDQOPCD+286 01474000 OPCBFREQ EQU IEDQOPCD+284 01475000 OPCGETBF EQU IEDQOPCD+276 01476000 OPCNEXT EQU IEDQOPCD+272 01477000 OPCFMDFC EQU IEDQOPCD+268 01478000 OPCSCNC EQU IEDQOPCD+264 01479000 OPCHORTG EQU IEDQOPCD+260 01480000 OPCHORT EQU IEDQOPCD+256 01481000 OPCCKPTL EQU IEDQOPCD+252 01482000 OPCCKPTF EQU IEDQOPCD+248 01483000 OPCWAITA EQU IEDQOPCD+244 01484000 OPCWAITR EQU IEDQOPCD+240 01485000 OPCWAITP EQU IEDQOPCD+236 01486000 OPCWAITO EQU IEDQOPCD+232 01487000 OPCWAITN EQU IEDQOPCD+228 01488000 OPCWAITL EQU IEDQOPCD+224 01489000 OPCWAITC EQU IEDQOPCD+220 01490000 @NM00105 EQU OPCLDNME+5 01491000 @NM00104 EQU OPCLDNME 01492000 OPCWAIT EQU IEDQOPCD+192 01493000 OPCCKERB EQU IEDQOPCD+164 01494000 OPCBFERB EQU IEDQOPCD+148 01495000 OPCFLAG2 EQU IEDQOPCD+147 01496000 OPCFLAG1 EQU IEDQOPCD+146 01497000 OPCWRKSZ EQU IEDQOPCD+144 01498000 OPCRSAVE EQU IEDQOPCD+132 01499000 OPCQCBAD EQU IEDQOPCD+128 01500000 OPCTRMWA EQU IEDQOPCD+52 01501000 OPCTNTEA EQU IEDQOPCD+44 01502000 OPCPGCK EQU IEDQOPCD+40 01503000 OPCLCB EQU IEDQOPCD+36 01504000 @NM00103 EQU IEDQOPCD+32 01505000 OPCIPLAD EQU IEDQOPCD+28 01506000 OPCTOFLK EQU IEDQOPCD+24 01507000 OPCOPTLK EQU IEDQOPCD+20 01508000 OPCDCBLK EQU IEDQOPCD+16 01509000 OPCDOUBL EQU IEDQOPCD 01510000 MHENTRY EQU IEDMHTD+8 01511000 MHTABEND EQU MHNAME 01512000 BINIMAGE EQU IEDBIN+10 01513000 @NM00102 EQU SAVTCKQB+8 01514000 @NM00101 EQU SAVTCKEC+1 01515000 @NM00100 EQU SAVTCKCC 01516000 SAVTCKPO EQU SAVTCKCC 01517000 SAVTCKWA EQU SAVTCKCC 01518000 SAVTCKCH EQU SAVTCKTB+1 01519000 SAVTCKVT EQU SAVTCKTB 01520000 @NM00099 EQU IEDNSVTD+297 01521000 SAVTRDFG EQU SAVTRDRV+12 01522000 @NM00098 EQU SAVTRDRV+5 01523000 SAVTRDPY EQU SAVTRDRV+4 01524000 SAVTRDQB EQU SAVTRDRV+1 01525000 SAVTRDKY EQU SAVTRDRV 01526000 SAVTNID EQU IEDNSVTD+280 01527000 SAVTDVAS EQU IEDNSVTD+276 01528000 SAVTPLSZ EQU IEDNSVTD+274 01529000 @NM00097 EQU IEDNSVTD+273 01530000 SAVTSUBL EQU IEDNSVTD+272 01531000 @NM00096 EQU SAVTZELM+1 01532000 SAVTSUBM EQU SAVTZELM 01533000 SAVTNAT1 EQU IEDNSVTD+266 01534000 SAVTSH20 EQU IEDNSVTD+264 01535000 SAVTLCBS EQU IEDNSVTD+260 01536000 SAVTRNMP EQU IEDNSVTD+256 01537000 SAVTTNTX EQU IEDNSVTD+252 01538000 SAVTNAX EQU IEDNSVTD+248 01539000 SAVTSUBV EQU IEDNSVTD+247 01540000 SAVTSUBA EQU IEDNSVTD+246 01541000 SAVTSIBC EQU IEDNSVTD+244 01542000 SAVTBSM EQU IEDNSVTD+240 01543000 SAVTRQTG EQU IEDNSVTD+236 01544000 SAVTRQCH EQU IEDNSVTD+232 01545000 SAVTMAND EQU IEDNSVTD+228 01546000 SAVTSPLN EQU IEDNSVTD+224 01547000 SAVTNADL EQU IEDNSVTD+222 01548000 SAVTNATL EQU IEDNSVTD+220 01549000 SAVTSSMH EQU IEDNSVTD+212 01550000 SAVTQRS EQU IEDNSVTD+208 01551000 SAVTRQIN EQU IEDNSVTD+204 01552000 SAVTDFCO EQU IEDNSVTD+200 01553000 SAVTSAO EQU IEDNSVTD+196 01554000 SAVTSARI EQU IEDNSVTD+192 01555000 SAVTSAC EQU IEDNSVTD+188 01556000 SAVTSAI EQU IEDNSVTD+184 01557000 SAVTCSCI EQU IEDNSVTD+180 01558000 SAVTSSRP EQU IEDNSVTD+176 01559000 SAVTSSRQ EQU IEDNSVTD+172 01560000 SAVTSCLU EQU IEDNSVTD+168 01561000 @NM00095 EQU IEDNSVTD+148 01562000 SAVTIPCQ EQU IEDNSVTD+144 01563000 @NM00094 EQU IEDNSVTD+136 01564000 SAVTXFMI EQU IEDNSVTD+132 01565000 @NM00093 EQU IEDNSVTD+124 01566000 SAVTXFMO EQU IEDNSVTD+120 01567000 @NM00092 EQU IEDNSVTD+116 01568000 SAVTSSSR EQU IEDNSVTD+112 01569000 SAVTSCPQ EQU IEDNSVTD+108 01570000 SAVTSLCB EQU IEDNSVTD+104 01571000 SAVTLUSR EQU IEDNSVTD+100 01572000 @NM00091 EQU SAVTLUSQ+8 01573000 SAVTLUSP EQU SAVTLUSQ+4 01574000 SAVTLUSB EQU SAVTLUSQ 01575000 @NM00090 EQU IEDNSVTD+84 01576000 SAVTSAT EQU IEDNSVTD+80 01577000 SAVTNAT EQU IEDNSVTD+76 01578000 SAVTCLUP EQU IEDNSVTD+72 01579000 SAVTPIUT EQU IEDNSVTD+68 01580000 SAVTRNTA EQU IEDNSVTD+64 01581000 SAVTDNIR EQU IEDNSVTD+60 01582000 SAVTCNIR EQU IEDNSVTD+56 01583000 SAVTFLDH EQU IEDNSVTD+52 01584000 SAVTSRTN EQU IEDNSVTD+48 01585000 SAVTSREQ EQU IEDNSVTD+44 01586000 SAVTFAIL EQU IEDNSVTD+42 01587000 SAVTSUSE EQU IEDNSVTD+40 01588000 SAVTSIB EQU IEDNSVTD+36 01589000 SAVTPRTN EQU IEDNSVTD+32 01590000 @NM00089 EQU IEDNSVTD+28 01591000 SAVTWH20 EQU IEDNSVTD+26 01592000 SAVTPWT EQU IEDNSVTD+24 01593000 SAVTPRTQ EQU IEDNSVTD+20 01594000 SAVTPREQ EQU IEDNSVTD+16 01595000 SAVTPH20 EQU IEDNSVTD+14 01596000 SAVTPUSE EQU IEDNSVTD+12 01597000 SAVTPLCB EQU IEDNSVTD+8 01598000 SAVTPOOL EQU IEDNSVTD+4 01599000 SAVTPRMT EQU SAVTDIAF 01600000 SAVTVIRT EQU SAVTDIAF 01601000 AVTCPBNO EQU IEDQAVTD+1244 01602000 AVTHRESS EQU IEDQAVTD+1243 01603000 @NM00088 EQU IEDQAVTD+1242 01604000 @NM00087 EQU IEDQAVTD+1241 01605000 @NM00086 EQU IEDQAVTD+1240 01606000 @NM00085 EQU IEDQAVTD+1237 01607000 @NM00084 EQU IEDQAVTD+1236 01608000 AVTHRESE EQU @NM00083 01609000 AVTRADDR EQU IEDQAVTD+1228 01610000 AVTNADDR EQU IEDQAVTD+1224 01611000 AVTHRESN EQU IEDQAVTD+1220 01612000 AVTVOLRN EQU IEDQAVTD+1216 01613000 AVTTOTNN EQU IEDQAVTD+1212 01614000 AVTTRCYN EQU IEDQAVTD+1208 01615000 AVTRCTRN EQU IEDQAVTD+1204 01616000 AVTNOVON EQU IEDQAVTD+1200 01617000 AVTADEBN EQU IEDQAVTD+1196 01618000 AVTVOLRR EQU IEDQAVTD+1192 01619000 AVTTOTNR EQU IEDQAVTD+1188 01620000 AVTTRCYR EQU IEDQAVTD+1184 01621000 AVTRCTRR EQU IEDQAVTD+1180 01622000 AVTNOVOR EQU IEDQAVTD+1176 01623000 AVTADEBR EQU IEDQAVTD+1172 01624000 AVTLODPT EQU IEDQAVTD+1168 01625000 AVTIOBN EQU IEDQAVTD+1164 01626000 AVTIOBR EQU IEDQAVTD+1160 01627000 AVTCPBPT EQU IEDQAVTD+1156 01628000 AVTFCPB EQU IEDQAVTD+1152 01629000 @NM00082 EQU IEDQAVTD+1148 01630000 AVTINCPQ EQU IEDQAVTD+1144 01631000 @NM00081 EQU IEDQAVTD+1140 01632000 @NM00080 EQU IEDQAVTD+1137 01633000 @NM00079 EQU AVTBIT4 01634000 @NM00078 EQU AVTBIT4 01635000 @NM00077 EQU AVTBIT4 01636000 @NM00076 EQU AVTBIT4 01637000 @NM00075 EQU AVTBIT4 01638000 @NM00074 EQU AVTBIT4 01639000 @NM00073 EQU AVTBIT4 01640000 AVTRUFTN EQU AVTBIT4 01641000 @NM00072 EQU IEDQAVTD+1132 01642000 AVTNOBFQ EQU IEDQAVTD+1128 01643000 @NM00071 EQU IEDQAVTD+1124 01644000 AVTDKENQ EQU IEDQAVTD+1120 01645000 @NM00070 EQU IEDQAVTD+1116 01646000 AVTDKAPQ EQU IEDQAVTD+1112 01647000 AVTCOPY EQU IEDQAVTD+1108 01648000 AVTIA EQU IEDQAVTD+1104 01649000 AVTFL EQU IEDQAVTD+1100 01650000 @NM00069 EQU IEDQAVTD+1096 01651000 AVTNCPBQ EQU IEDQAVTD+1092 01652000 AVTTOTNC EQU IEDQAVTD+1088 01653000 AVTCMAX EQU IEDQAVTD+1084 01654000 AVTCMIN EQU IEDQAVTD+1080 01655000 AVTHM02 EQU IEDQAVTD+1076 01656000 AVTOPCIN EQU IEDQAVTD+1074 01657000 AVTDCTLN EQU IEDQAVTD+1072 01658000 AVTOPMSK EQU IEDQAVTD+1068 01659000 AVTSTEAL EQU IEDQAVTD+1060 01660000 AVTOPTN EQU IEDQAVTD+1056 01661000 AVTDSKCT EQU IEDQAVTD+1054 01662000 AVTCKRST EQU IEDQAVTD+1053 01663000 AVTSTAN EQU AVTBIT3 01664000 AVTSTACN EQU AVTBIT3 01665000 AVTSTAIN EQU AVTBIT3 01666000 AVTSTAYN EQU AVTBIT3 01667000 AVTOLTBN EQU AVTBIT3 01668000 AVTTSAB EQU AVTBIT3 01669000 AVTRFULN EQU AVTBIT3 01670000 AVTRECVN EQU AVTBIT3 01671000 @NM00068 EQU AVTBIT2 01672000 @NM00067 EQU AVTBIT2 01673000 AVTOPEIN EQU AVTBIT2 01674000 AVTSTRTN EQU AVTBIT2 01675000 AVTTOPOL EQU AVTBIT2 01676000 AVTCOPYN EQU AVTBIT2 01677000 AVTREUSN EQU AVTBIT2 01678000 AVTEXTSC EQU AVTBIT2 01679000 AVTDISKN EQU AVTBIT1 01680000 AVTQUCKN EQU AVTBIT1 01681000 AVTCLOSN EQU AVTBIT1 01682000 AVTREADN EQU AVTBIT1 01683000 AVTDLAYN EQU AVTBIT1 01684000 AVTAQTAN EQU AVTBIT1 01685000 AVTTSON EQU AVTBIT1 01686000 AVTAPLKN EQU AVTBIT1 01687000 AVTDUMBR EQU IEDQAVTD+1048 01688000 AVTDLQX EQU IEDQAVTD+1046 01689000 AVTINTLV EQU IEDQAVTD+1044 01690000 AVTSMCNT EQU IEDQAVTD+1042 01691000 AVTAVFCT EQU IEDQAVTD+1040 01692000 AVTOPCON EQU IEDQAVTD+1038 01693000 AVTOPCNT EQU IEDQAVTD+1036 01694000 AVTLNCNT EQU IEDQAVTD+1034 01695000 AVTKEYLE EQU IEDQAVTD+1032 01696000 AVTHA16 EQU IEDQAVTD+1030 01697000 AVTHA7 EQU IEDQAVTD+1028 01698000 AVTHA4 EQU IEDQAVTD+1026 01699000 AVTHA3 EQU IEDQAVTD+1024 01700000 AVTHA2 EQU IEDQAVTD+1022 01701000 AVTGETMS EQU IEDQAVTD+1021 01702000 @NM00066 EQU IEDQAVTD+1020 01703000 AVTGETMD EQU IEDQAVTD+1016 01704000 AVTGETMN EQU IEDQAVTD+1012 01705000 AVTCWTOT EQU IEDQAVTD+1008 01706000 AVTCWINT EQU IEDQAVTD+956 01707000 AVTDTRAP EQU IEDQAVTD+952 01708000 @NM00065 EQU IEDQAVTD+950 01709000 @NM00064 EQU AVTIOTR 01710000 AVTIOTRH EQU AVTIOTR 01711000 AVTIOTRE EQU AVTIOTR 01712000 @NM00063 EQU AVTSUBT 01713000 AVTSUBPT EQU AVTSUBT 01714000 AVTSUBON EQU AVTSUBT 01715000 AVTAFE30 EQU IEDQAVTD+944 01716000 AVTAFE20 EQU IEDQAVTD+940 01717000 AVTAFE10 EQU IEDQAVTD+936 01718000 AVTCWEC2 EQU IEDQAVTD+932 01719000 AVTCWPM2 EQU IEDQAVTD+928 01720000 AVTCWTS2 EQU IEDQAVTD+927 01721000 AVTCWTS1 EQU IEDQAVTD+926 01722000 AVTCWCLD EQU AVTCWFL2 01723000 AVTCWRAP EQU AVTCWFL2 01724000 @NM00062 EQU AVTCWFL2 01725000 @NM00061 EQU AVTCWFL2 01726000 @NM00060 EQU AVTCWFL2 01727000 @NM00059 EQU AVTCWFL2 01728000 @NM00058 EQU AVTCWFL2 01729000 AVTCWACT EQU AVTCWFL2 01730000 @NM00057 EQU AVTCWFL1 01731000 @NM00056 EQU AVTCWFL1 01732000 @NM00055 EQU AVTCWFL1 01733000 @NM00054 EQU AVTCWFL1 01734000 @NM00053 EQU AVTCWFL1 01735000 @NM00052 EQU AVTCWFL1 01736000 @NM00051 EQU AVTCWFL1 01737000 AVTCOMWN EQU AVTCWFL1 01738000 AVTCWEC1 EQU IEDQAVTD+920 01739000 AVTCWPM1 EQU IEDQAVTD+916 01740000 AVTCAREA EQU IEDQAVTD+912 01741000 AVTFZERO EQU IEDQAVTD+908 01742000 AVTCADDR EQU IEDQAVTD+904 01743000 AVTCOREC EQU IEDQAVTD+900 01744000 @NM00050 EQU IEDQAVTD+892 01745000 AVTCPBCB EQU IEDQAVTD+888 01746000 @NM00049 EQU IEDQAVTD+880 01747000 AVTDSIOB EQU IEDQAVTD+876 01748000 @NM00048 EQU IEDQAVTD+868 01749000 AVTCPRMB EQU IEDQAVTD+864 01750000 @NM00047 EQU IEDQAVTD+856 01751000 AVTCLOSB EQU IEDQAVTD+852 01752000 @NM00046 EQU IEDQAVTD+844 01753000 AVTACTIB EQU IEDQAVTD+840 01754000 @NM00045 EQU IEDQAVTD+836 01755000 AVTOLTEB EQU IEDQAVTD+832 01756000 AVTOLTCH EQU AVTOLTQB+1 01757000 AVTOLTVT EQU AVTOLTQB 01758000 @NM00044 EQU AVTOPCQB+8 01759000 @NM00043 EQU AVTOPCEC+1 01760000 @NM00042 EQU AVTOPCCC 01761000 AVTOPCPO EQU AVTOPCCC 01762000 AVTOPCWA EQU AVTOPCCC 01763000 AVTOPCCH EQU AVTOPCOB+1 01764000 AVTOPCVT EQU AVTOPCOB 01765000 @NM00041 EQU AVTCKPQB+9 01766000 AVTCKPTS EQU AVTCKPQB+8 01767000 @NM00040 EQU AVTCKPEC+1 01768000 @NM00039 EQU AVTCKPCC 01769000 AVTCKPPO EQU AVTCKPCC 01770000 AVTCKPWA EQU AVTCKPCC 01771000 AVTCKPCH EQU AVTCKPTB+1 01772000 AVTCKPVT EQU AVTCKPTB 01773000 @NM00038 EQU IEDQAVTD+796 01774000 AVTBFRTB EQU IEDQAVTD+792 01775000 @NM00037 EQU IEDQAVTD+784 01776000 AVTBFREB EQU IEDQAVTD+780 01777000 AVTTIMQ EQU IEDQAVTD+776 01778000 @NM00036 EQU IEDQAVTD+772 01779000 AVTIMQPS EQU IEDQAVTD+768 01780000 AVTINOUT EQU IEDQAVTD+766 01781000 AVTREFTM EQU IEDQAVTD+764 01782000 @NM00035 EQU IEDQAVTD+752 01783000 AVTDELYB EQU IEDQAVTD+748 01784000 AVTOCQPT EQU IEDQAVTD+744 01785000 AVTTSOPT EQU IEDQAVTD+740 01786000 AVTSUPPT EQU IEDQAVTD+736 01787000 AVTCBQCB EQU IEDQAVTD+732 01788000 @NM00034 EQU AVTSYSER 01789000 @NM00033 EQU AVTSYSER 01790000 @NM00032 EQU AVTSYSER 01791000 @NM00031 EQU AVTSYSER 01792000 @NM00030 EQU AVTSYSER 01793000 @NM00029 EQU AVTSYSER 01794000 AVTCMAXN EQU AVTSYSER 01795000 AVTCMINN EQU AVTSYSER 01796000 AVT2260L EQU IEDQAVTD+724 01797000 AVTABEPL EQU AVTADBUF 01798000 AVTHFF EQU AVTCLRHI+2 01799000 @NM00028 EQU AVTCLRHI 01800000 AVTCCLNK EQU AVTCRELE+5 01801000 AVTCCPRI EQU AVTCRELE+4 01802000 AVTCCQCB EQU AVTCCELE+1 01803000 AVTCCKEY EQU AVTCCELE 01804000 AVTDELAD EQU IEDQAVTD+704 01805000 AVTDELEM EQU IEDQAVTD+700 01806000 AVTBSX EQU AVTCKLNK 01807000 AVTOPETR EQU AVTHG01 01808000 @NM00027 EQU AVTCKBYT 01809000 AVTCKONQ EQU AVTCKBYT 01810000 @NM00026 EQU AVTCKBYT 01811000 @NM00025 EQU AVTCKBYT 01812000 @NM00024 EQU AVTCKBYT 01813000 @NM00023 EQU AVTCKBYT 01814000 @NM00022 EQU AVTCKBYT 01815000 @NM00021 EQU AVTCKBYT 01816000 AVTOPERT EQU IEDQAVTD+690 01817000 AVTOPXCL EQU IEDQAVTD+688 01818000 AVTOPERL EQU IEDQAVTD+687 01819000 @NM00020 EQU IEDQAVTD+686 01820000 AVTCKTIM EQU IEDQAVTD+684 01821000 AVTCKELV EQU IEDQAVTD+682 01822000 AVTCPRCD EQU IEDQAVTD+681 01823000 AVTWARMN EQU AVTCKELF 01824000 AVTCRTLN EQU AVTCKELF 01825000 AVTCPIPN EQU AVTCKELF 01826000 AVTCCLCN EQU AVTCKELF 01827000 AVTCINCN EQU AVTCKELF 01828000 @NM00019 EQU AVTCKELF 01829000 AVTCMCPN EQU AVTCKELF 01830000 AVTCRDYN EQU AVTCKELF 01831000 AVTCKQAD EQU IEDQAVTD+677 01832000 AVTSCBSZ EQU IEDQAVTD+676 01833000 @NM00018 EQU IEDQAVTD+672 01834000 AVTCKELE EQU IEDQAVTD+668 01835000 @NM00017 EQU AVTCKPEL+8 01836000 AVTCKRLK EQU AVTCKPEL+5 01837000 AVTCKRPR EQU AVTCKPEL+4 01838000 AVTCKRMQ EQU AVTCKRMV+1 01839000 AVTCKRKY EQU AVTCKRMV 01840000 AVTHK EQU IEDQAVTD+648 01841000 AVTHI EQU IEDQAVTD+644 01842000 AVTIOT EQU IEDQAVTD+640 01843000 AVTNX EQU IEDQAVTD+636 01844000 AVTTONE EQU IEDQAVTD+632 01845000 AVTA3TL EQU IEDQAVTD+628 01846000 AVTDMECB EQU IEDQAVTD+624 01847000 AVTABEND EQU IEDQAVTD+618 01848000 AVTPLCBN EQU IEDQAVTD+616 01849000 @NM00016 EQU AVTSAVTP+1 01850000 @NM00015 EQU AVTSAVTF 01851000 AVTSNA EQU AVTSAVTF 01852000 AVTONSNA EQU AVTSAVTF 01853000 AVTVTMCP EQU AVTSAVTF 01854000 @NM00014 EQU IEDQAVTD+608 01855000 AVTCMBSS EQU IEDQAVTD+604 01856000 AVTRCV EQU IEDQAVTD+600 01857000 AVTSEND EQU IEDQAVTD+596 01858000 AVTCSCH EQU IEDQAVTD+592 01859000 AVTQ1 EQU IEDQAVTD+588 01860000 AVTE7 EQU IEDQAVTD+584 01861000 AVTHB EQU IEDQAVTD+580 01862000 AVTR1 EQU IEDQAVTD+576 01863000 AVTBZ EQU IEDQAVTD+572 01864000 AVTEZ EQU IEDQAVTD+568 01865000 AVTEC EQU IEDQAVTD+564 01866000 AVTEW EQU IEDQAVTD+560 01867000 AVTNDIAL EQU AVTSCOPT 01868000 AVTN2741 EQU AVTSCOPT 01869000 AVTCONCO EQU AVTSCOPT 01870000 AVTCONC EQU AVTSCOPT 01871000 AVTCMBUF EQU AVTSCOPT 01872000 AVTAPDMP EQU AVTSCOPT 01873000 @NM00013 EQU AVTSCOPT 01874000 AVTHA EQU AVTDISP 01875000 AVTEA EQU IEDQAVTD+548 01876000 AVTAX EQU IEDQAVTD+544 01877000 AVTA3 EQU IEDQAVTD+540 01878000 AVTGD EQU IEDQAVTD+536 01879000 AVTAL EQU IEDQAVTD+532 01880000 AVTOLTST EQU AVTHG02 01881000 AVTE8 EQU IEDQAVTD+524 01882000 AVTUI EQU IEDQAVTD+520 01883000 AVTCOMPT EQU IEDQAVTD+516 01884000 AVTCRSRF EQU IEDQAVTD+512 01885000 @NM00012 EQU IEDQAVTD+508 01886000 AVTKA02 EQU IEDQAVTD+504 01887000 AVTOPTPT EQU IEDQAVTD+500 01888000 AVTPCBPT EQU IEDQAVTD+496 01889000 AVTOSECB EQU IEDQAVTD+492 01890000 AVTOPECA EQU IEDQAVTD+488 01891000 AVTOLECA EQU IEDQAVTD+484 01892000 AVTCKECA EQU IEDQAVTD+480 01893000 AVTCWECA EQU IEDQAVTD+476 01894000 AVTCWTCB EQU IEDQAVTD+472 01895000 AVTOLTCB EQU IEDQAVTD+468 01896000 AVTOCTCB EQU IEDQAVTD+464 01897000 AVTCKTCB EQU IEDQAVTD+460 01898000 AVTAS EQU IEDQAVTD+456 01899000 AVTNOLBF EQU IEDQAVTD+454 01900000 AVTNCKPR EQU IEDQAVTD+453 01901000 AVTCIB EQU IEDQAVTD+452 01902000 AVTSPLPT EQU IEDQAVTD+448 01903000 AVTMVBFR EQU IEDQAVTD+444 01904000 AVTSBTA EQU IEDQAVTD+440 01905000 AVTRARTN EQU IEDQAVTD+436 01906000 AVTBSCAN EQU IEDQAVTD+432 01907000 AVTRDYA EQU IEDQAVTD+428 01908000 AVTDISTR EQU IEDQAVTD+420 01909000 AVTPARM3 EQU IEDQAVTD+416 01910000 @NM00011 EQU AVTPKF 01911000 @NM00010 EQU AVTPKF 01912000 @NM00009 EQU AVTPKF 01913000 AVTFTCHF EQU AVTPKF 01914000 @NM00008 EQU AVTPKF 01915000 @NM00007 EQU AVTPKF 01916000 @NM00006 EQU AVTPKF 01917000 @NM00005 EQU AVTPKF 01918000 AVTPARM EQU IEDQAVTD+408 01919000 AVTEXS2A EQU IEDQAVTD+402 01920000 AVTEXA2S EQU IEDQAVTD+396 01921000 AVTOCGET EQU IEDQAVTD+392 01922000 AVTCKAVT EQU @NM00003+1 01923000 @NM00004 EQU AVTCKFLG 01924000 AVTCKHLT EQU AVTCKFLG 01925000 AVTCKREQ EQU AVTCKFLG 01926000 AVTCKENV EQU AVTCKFLG 01927000 AVTCKNAC EQU AVTCKFLG 01928000 AVTCKTAC EQU AVTCKFLG 01929000 @NM00002 EQU IEDQAVTD+384 01930000 AVTREADD EQU IEDQAVTD+380 01931000 AVTREADY EQU IEDQAVTD+376 01932000 AVTRACE EQU IEDQAVTD+372 01933000 AVTTCB EQU IEDQAVTD+368 01934000 AVTPASWD EQU IEDQAVTD+360 01935000 AVTCTLCH EQU IEDQAVTD+352 01936000 AVTDOUBL EQU IEDQAVTD+344 01937000 AVTDOUBX EQU IEDQAVTD+336 01938000 AVTDPARM EQU IEDQAVTD+332 01939000 AVTCSTCS EQU IEDQAVTD+328 01940000 AVTDLQ EQU AVTSAVEX+32 01941000 @NM00001 EQU AVTSAVEX 01942000 AVTSAVE4 EQU IEDQAVTD+216 01943000 AVTSAVE3 EQU IEDQAVTD+144 01944000 AVTSAVE2 EQU IEDQAVTD+72 01945000 AVTSAVE1 EQU IEDQAVTD 01946000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01947000 @RF00510 EQU @RC00507 01948000 @ENDDATA EQU * 01949000 END IGCA210D,(C'PLS0005',0701,77013) 01950000