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