TITLE 'IGCAT10D, PROCESS INIT-SELF EXTERNAL, PART2 *00001000 ' 00002000 IGCAT10D CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 * 0518 00005000 USING *,RBASE 00006000 LR RBASE,RF SET UP ADDRESSIBILITY 00007000 IGCAT10D IEDHJN START,HJN 00008000 */* */ 00009000 * 0519 00010000 * /* INITIALIZATION */ 00011000 * ROPCAVT=RPARM; /* OP CONTROL AVT ADDRESS */ 00012000 LR ROPCAVT,RPARM 0519 00013000 * RPRF=OPCCOPCE; /* ELEMENT ADDR FOR BUFFER */ 00014000 L @09,OPCCOPCE(,ROPCAVT) 0520 00015000 LR RPRF,@09 0520 00016000 * ROPCE=OPCCOPCE; /* OPCE ADDRESS @YM06472*/ 00017000 LR ROPCE,@09 0521 00018000 * RAVT=OPCAVTPT; /* TCAM AVT ADDRESS */ 00019000 L RAVT,OPCAVTPT(,ROPCAVT) 0522 00020000 * RWORK=OPCWORK; /* OP CONTROL WORK AREA */ 00021000 L RWORK,OPCWORK(,ROPCAVT) 0523 00022000 * RSAVE=ADDR(OPCSAVE); /* OP CONTROL SAVE AREA */ 00023000 LA RSAVE,OPCSAVE(,ROPCAVT) 0524 00024000 * WKSWITCH=0; /* INIT. SWITCHES @YM07277*/ 00025000 MVI WKSWITCH(RWORK),X'00' 0525 00026000 */* */ 00027000 * 0526 00028000 * IF PRFPRI=PRIHIFLG THEN /* ELEMENT AN OPCE @YM06472*/ 00029000 CLI PRFPRI(IEDQPPTR),X'E9' 0526 00030000 BNE @RF00526 0526 00031000 * CALL DISCARD; /* FREE THE ELEMENT @YM06472*/ 00032000 BAL @14,DISCARD 0527 00033000 */* */ 00034000 * 0528 00035000 * ELSE /* */ 00036000 * DO; 0528 00037000 B @RC00526 0528 00038000 @RF00526 DS 0H 0529 00039000 * RPARM=WKSLUTNT; /* SLU'S TNT OFFSET @YM08484*/ 00040000 SLR RPARM,RPARM 0529 00041000 ICM RPARM,3,WKSLUTNT(RWORK) 0529 00042000 * CALL IEDQTNT; /* GET TTE FOR SLU @YM08484*/ 00043000 L @15,AVTRNMPT(,RAVT) 0530 00044000 BALR @14,@15 0530 00045000 * RTRM=RPARM; /* SAVE SLU'S TTE @YM08484*/ 00046000 LR RTRM,RPARM 0531 00047000 * RTRM=RTRM-LENGTH(IEDNTRM); /* ADDR OF NEG PRF @YM08484*/ 00048000 SH RTRM,@CH01660 0532 00049000 * CALL INITPROC; /* PROCESS THE INIT-SELF */ 00050000 BAL @14,INITPROC 0533 00051000 * END; 0534 00052000 * 0534 00053000 */* */ 00054000 * 0535 00055000 * IF WKNSPSW=OFF THEN /* N. S. PROC BUILT @YM06472*/ 00056000 @RC00526 TM WKNSPSW(RWORK),B'10000000' 0535 00057000 BNZ @RF00535 0535 00058000 * DO; /* NO... @YM06472*/ 00059000 * OPCMODID=DSPOPCTL; /* RETURN TO IGC0010D */ 00060000 MVC OPCMODID(2,ROPCAVT),@CC01932 0537 00061000 * RZERO=0; /* CLEAR REG 0 */ 00062000 SLR RZERO,RZERO 0538 00063000 * END; /* @YM06472*/ 00064000 * ELSE 0540 00065000 * OPCMODID=RUDISP; /* PASS TO IGC0210D @YM06472*/ 00066000 B @RC00535 0540 00067000 @RF00535 MVC OPCMODID(2,ROPCAVT),@CC01945 0540 00068000 * RPARM=ROPCAVT; /* OP CONTROL AVT ADDRESS */ 00069000 @RC00535 LR RPARM,ROPCAVT 0541 00070000 * GEN REFS(ROPCAVT,OPCXCTL) EXIT NOSEQFLOW; 0542 00071000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00072000 *BLDRESP: 0543 00073000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0543 00074000 * 0543 00075000 BLDRESP DS 0H 0544 00076000 * /*****************************************************************/ 00077000 * /* */ 00078000 * /* THIS ROUTINE BUILDS A RESPONSE TO THE INITIATE SELF REQUEST IF*/ 00079000 * /* WKSENSE CONTAINS ZEROS A POSITIVE RESPONSE IS BUILT. */ 00080000 * /* OTHERWISE, A NEGATIVE RESPONSE IS BUILT IS BUILT. */ 00081000 * /* */ 00082000 * /*****************************************************************/ 00083000 * 0544 00084000 * WKSAVE2=RE; /* SAVE REG 14 */ 00085000 ST RE,WKSAVE2(,RWORK) 0544 00086000 */* */ 00087000 * 0545 00088000 * WKRESP=ON; /* INDICATE RSP BUILT */ 00089000 OI WKRESP(RWORK),B'01000000' 0545 00090000 * PRFPIUO=1; /* OFFSET TO PIU */ 00091000 LA @09,1 0546 00092000 STC @09,PRFPIUO(,IEDQPPTR) 0546 00093000 * WKINSPIU=ADDR(PRFPIUO)+PRFPIUO; /* ADDRESS OF PIU */ 00094000 LA @07,PRFPIUO(,IEDQPPTR) 0547 00095000 ALR @07,@09 0547 00096000 ST @07,WKINSPIU(,RWORK) 0547 00097000 * WKINSRH=ADDR(WKINSPIU->PIURH); /* ADDRESS OF RH */ 00098000 LA @09,PIURH(,@07) 0548 00099000 ST @09,WKINSRH(,RWORK) 0548 00100000 */* */ 00101000 * 0549 00102000 * /* SET UP TH AND RH */ 00103000 * WKINSPIU->TTHBYTE0=THCON; /* SET UP FIRST BYTE */ 00104000 MVI TTHBYTE0(@07),X'1C' 0549 00105000 * WKINSPIU->TTHBYTE1=0; /* SET UP SECOND BYTE */ 00106000 MVI TTHBYTE1(@07),X'00' 0550 00107000 * WKINSPIU->TTHSNF=PRF1SQID; /* SET UP ID */ 00108000 LR @11,IEDQPPTR 0551 00109000 SH @11,@CH00045 0551 00110000 MVC TTHSNF(2,@07),PRF1SQID(@11) 0551 00111000 * WKINSPIU->TTHDAF=WKSLUTNT; /* SET UP DESTINATION */ 00112000 MVC TTHDAF(2,@07),WKSLUTNT(RWORK) 0552 00113000 * WKINSPIU->TTHOAF=SAVTSCPT; /* SET UP ORIGIN */ 00114000 L @10,AVTSAVTP(,RAVT) 0553 00115000 MVC TTHOAF(2,@07),SAVTSCPT(@10) 0553 00116000 * WKINSPIU->PIURH=PRF1RH; /* SET UP RH */ 00117000 MVC PIURH(3,@07),PRF1RH(@11) 0554 00118000 * WKINSRH->TRHTYPE=ON; /* SET RESPONSE BIT ON */ 00119000 OI TRHTYPE(@09),B'10000000' 0555 00120000 * IF PRF1USS=ON THEN /* ORIGINALLY UNFORMATED? */ 00121000 TM PRF1USS(@11),B'00001000' 0556 00122000 BNO @RF00556 0556 00123000 * WKINSRH->TRHFI=OFF; /* MARK UNFORMATTED */ 00124000 NI TRHFI(@09),B'11110111' 0557 00125000 */* */ 00126000 * 0558 00127000 * IF WKSENSE=0 THEN /* GOOD RESP TO BE BUILT */ 00128000 @RF00556 ICM @09,15,WKSENSE(RWORK) 0558 00129000 BNZ @RF00558 0558 00130000 * DO; 0559 00131000 * WKINSPIU->COMMAND=CD1XINS; /* SET UP COMMAND CODE */ 00132000 L @09,WKINSPIU(,RWORK) 0560 00133000 MVC COMMAND(3,@09),@CB00829 0560 00134000 * WKINSPIU->TTHDCF=LENGTH(XINSCODE)+LENGTH(IEDRH);/* DATA COUNT*/ 00135000 MVC TTHDCF(2,@09),@CH00071 0561 00136000 * IF PRF1USS=ON THEN /* ORIGINALLY UNFORMATTED */ 00137000 LR @07,IEDQPPTR 0562 00138000 AL @07,@CF02032 0562 00139000 TM PRF1USS-3(@07),B'00001000' 0562 00140000 BNO @RF00562 0562 00141000 * WKINSPIU->TTHDCF=LENGTH(IEDRH);/* DON'T SEND COMMAND */ 00142000 MVC TTHDCF(2,@09),@CH00066 0563 00143000 * END; 0564 00144000 * ELSE /* NEGATIVE RESPONSE */ 00145000 * DO; 0565 00146000 B @RC00558 0565 00147000 @RF00558 DS 0H 0566 00148000 * WKINSRH->TRHER=ON; /* SET ERROR RESPONSE */ 00149000 L @09,WKINSRH(,RWORK) 0566 00150000 OI TRHER(@09),B'00010000' 0566 00151000 * WKINSRH->TRHSDI=ON; /* SET SENSE INCLUDED */ 00152000 OI TRHSDI(@09),B'00000100' 0567 00153000 * WKINSPIU->TTHDCF=LENGTH(IEDRH)+LENGTH(INSERRSP);/* DATA COUNT*/ 00154000 L @09,WKINSPIU(,RWORK) 0568 00155000 MVC TTHDCF(2,@09),@CH00655 0568 00156000 * WKINSPIU->INSSENSE=WKSENSE; /* SET UP SENSE */ 00157000 MVC INSSENSE(4,@09),WKSENSE(RWORK) 0569 00158000 * WKINSPIU->INSCMD=CD1XINS; /* SET UP COMMAND */ 00159000 MVC INSCMD(3,@09),@CB00829 0570 00160000 * IF PRF1USS=ON THEN /* ORIGINALLY UNFORMATTED */ 00161000 LR @07,IEDQPPTR 0571 00162000 AL @07,@CF02032 0571 00163000 TM PRF1USS-3(@07),B'00001000' 0571 00164000 BNO @RF00571 0571 00165000 * DO; /* @YM06472*/ 00166000 * WKINSPIU->TTHDCF=LENGTH(IEDRH)+LENGTH(IEDSNSD);/* DON'T 00167000 * SEND COMMAND */ 00168000 MVC TTHDCF(2,@09),@CH00573 0573 00169000 * CALL NSPBLD; /* BUILD N. S. PROC @YM06472*/ 00170000 BAL @14,NSPBLD 0574 00171000 * END; /* @YM06472*/ 00172000 * END; 0576 00173000 @RF00571 DS 0H 0577 00174000 * IEDPF2=IEDPF2&&IEDPF2; /* CLEAR PREFIX @YM05723*/ 00175000 @RC00558 LR @09,IEDQPPTR 0577 00176000 SH @09,@CH00045 0577 00177000 XC IEDPF2(8,@09),IEDPF2(@09) 0577 00178000 * PRF2TNTI=ON; /* INDICATE TNT OFFSETS ARE IN TH 00179000 * @YM05723*/ 00180000 OI PRF2TNTI(@09),B'10000000' 0578 00181000 * PRFPRI=PRIOUTBD; /* SET PRIORITY */ 00182000 MVI PRFPRI(IEDQPPTR),X'E4' 0579 00183000 * PRFQCBA=SAVTDFCO; /* SET QCB ADDRESS */ 00184000 L @09,AVTSAVTP(,RAVT) 0580 00185000 MVC PRFQCBA(3,IEDQPPTR),SAVTDFCO+1(@09) 0580 00186000 */* */ 00187000 * 0581 00188000 * RE=WKSAVE2; /* RESTORE REG 14 */ 00189000 L RE,WKSAVE2(,RWORK) 0581 00190000 * END BLDRESP; /* RETURN TO CALLLER */ 00191000 @EL00002 DS 0H 0582 00192000 @EF00002 DS 0H 0582 00193000 @ER00002 BR @14 0582 00194000 *CINITBLD: 0583 00195000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0583 00196000 * 0583 00197000 CINITBLD DS 0H 0584 00198000 * /*****************************************************************/ 00199000 * /* */ 00200000 * /* THIS ROUTINE BUILDS A CINIT REQUEST. THE DATA FOR THE CINIT */ 00201000 * /* COMMAND CONSISTS OF THREE PARTS. THE FIRST PART IS A FIXED */ 00202000 * /* PORTION. THE SECOND PART IS A VARIABLE LENGTH BIND IMAGE */ 00203000 * /* OBTAINED FROM THE BIND IMAGE TABLE. THE THIRD PART IS OF */ 00204000 * /* VARIABLE LENGTH OBTAINED FROM THE INIT-SELF REQUEST. THE DATA */ 00205000 * /* FROM THE INIT-SELF INCLUDES THE NETWORK NAME FIELD, THE */ 00206000 * /* REQUESTOR ID FIELD, THE PASSWORD FIELD, AND THE USER FIELD. */ 00207000 * /* IEDMVBFR IS USED TO MOVE THE VARIABLE LENGTH PORITONS TO THE */ 00208000 * /* CINIT BUFFER. */ 00209000 * /* */ 00210000 * /*****************************************************************/ 00211000 * 0584 00212000 * WKSAVE3=RE; /* SAVE REG 14 */ 00213000 ST RE,WKSAVE3(,RWORK) 0584 00214000 * CALL ALLOCBUF; /* REQUEST A BUFFER */ 00215000 L @15,OPCGETBF(,ROPCAVT) 0585 00216000 BALR @14,@15 0585 00217000 * WKCINBFR=RPARM; /* SAVE BUFFER ADDRESS */ 00218000 ST RPARM,WKCINBFR(,RWORK) 0586 00219000 * WKCINBFR->PRFPIUO=1; /* SET UP OFFSET TO TH */ 00220000 L @09,WKCINBFR(,RWORK) 0587 00221000 LA @07,1 0587 00222000 STC @07,PRFPIUO(,@09) 0587 00223000 */* */ 00224000 * 0588 00225000 * /* POINTER TO CINIT PIU */ 00226000 * WKCINPIU=ADDR(WKCINBFR->PRFPIUO)+WKCINBFR->PRFPIUO; 0588 00227000 LA @09,PRFPIUO(,@09) 0588 00228000 ALR @09,@07 0588 00229000 ST @09,WKCINPIU(,RWORK) 0588 00230000 * WKCINRU=ADDR(WKCINPIU->PIURU); /* POINTER TO CINIT RU */ 00231000 LA @11,PIURU(,@09) 0589 00232000 ST @11,WKCINRU(,RWORK) 0589 00233000 * WKCINPIU->TTHBYTE0=THCON; /* SET UP FIRST BYTE */ 00234000 MVI TTHBYTE0(@09),X'1C' 0590 00235000 * WKCINPIU->TTHBYTE1=0; /* SET UP SECOND BYTE */ 00236000 MVI TTHBYTE1(@09),X'00' 0591 00237000 * WKCINPIU->TTHTAG=WKSLUTNT; /* SET UP ID */ 00238000 SLR @11,@11 0592 00239000 ICM @11,3,WKSLUTNT(RWORK) 0592 00240000 STH @11,TTHTAG(,@09) 0592 00241000 * WKCINPIU->TTHDAF=WKPLUTNT; /* SET UP DESTINATION */ 00242000 MVC TTHDAF(2,@09),WKPLUTNT(RWORK) 0593 00243000 * WKCINPIU->TTHOAF=SAVTSCPT; /* SET UP ORIGIN */ 00244000 L @10,AVTSAVTP(,RAVT) 0594 00245000 MVC TTHOAF(2,@09),SAVTSCPT(@10) 0594 00246000 * WKCINPIU->PIURH=CINITRH; /* SET UP RH */ 00247000 MVC PIURH(3,@09),@CB01934 0595 00248000 */* */ 00249000 * 0596 00250000 * /* SET DATA COUNT FIELD IN TH OF 00251000 * CINIT BUFFER */ 00252000 * WKCINPIU->TTHDCF=WKCINTD-(WKCINBFR->PRFPIUO+LENGTH(IEDTH)); 0596 00253000 AH @07,@CH00655 0596 00254000 LCR @07,@07 0596 00255000 SLR @11,@11 0596 00256000 ICM @11,3,WKCINTD(RWORK) 0596 00257000 ALR @07,@11 0596 00258000 STH @07,TTHDCF(,@09) 0596 00259000 * RPARM=WKSLUTNT; /* TNT OFFSET OF SLU */ 00260000 SLR @09,@09 0597 00261000 ICM @09,3,WKSLUTNT(RWORK) 0597 00262000 LR RPARM,@09 0597 00263000 * CALL IEDIAP04; /* CONVERT TNT TO NET ADDR */ 00264000 L @15,SAVTTNTX(,@10) 0598 00265000 BALR @14,@15 0598 00266000 * XCINCODE=CD1XCIN; /* SET UP COMMAND CODE */ 00267000 L @09,WKCINRU(,RWORK) 0599 00268000 MVC XCINCODE(3,@09),@CB00835 0599 00269000 * XCINFMT=0; /* SET UP FORMAT */ 00270000 MVI XCINFMT(@09),X'00' 0600 00271000 * XCINORG=0; /* SET UP INITIATE ORIGIN */ 00272000 MVI XCINORG(@09),X'00' 0601 00273000 * XCINADDR=RF; /* SET UP SLU NETWORK ADDR */ 00274000 STH RF,XCINADDR(,@09) 0602 00275000 */* */ 00276000 * 0603 00277000 * PLMVFLG1=0; /* CLEAR FLAG @YM07701*/ 00278000 LA @07,72 0603 00279000 ALR @07,RWORK 0603 00280000 MVI PLMVFLG1(@07),X'00' 0603 00281000 * PLMVUNCA=0; /* CLEAR UNCHAINED-UNITS FIELD 0604 00282000 * @YM08572*/ 00283000 SLR @11,@11 0604 00284000 ST @11,PLMVUNCA(,@07) 0604 00285000 * PLMVTU=WKCINBFR; /* TARGET UNIT @YM07701*/ 00286000 MVC PLMVTU(4,@07),WKCINBFR(RWORK) 0605 00287000 * PLMVTD=ADDR(XCINBLEN); /* TARGET DATA @YM07701*/ 00288000 LA @09,XCINBLEN(,@09) 0606 00289000 ST @09,PLMVTD(,@07) 0606 00290000 * RFY 0607 00291000 * IEDBIN BASED(WKBIADDR); /* SEG BASE @YM07701*/ 00292000 * PLMVSU=ADDR(BINLEN); /* SOURCE UNIT=BIND IMAGE 0608 00293000 * @YM07701*/ 00294000 L @09,WKBIADDR(,RWORK) 0608 00295000 LA @11,BINLEN(,@09) 0608 00296000 ST @11,PLMVSU(,@07) 0608 00297000 * PLMVSD=ADDR(BINLEN); /* SOURCE DATA=BIND IMAGE 0609 00298000 * @YM07701*/ 00299000 ST @11,PLMVSD(,@07) 0609 00300000 * WKUSDSAV=ADDR(BINLEN)+LENGTH(BINLEN)+LENGTH(IEDBNDD)-LENGTH(BNDUDFL 00301000 * ); /* POINTER TO UDATL @YM08572*/ 00302000 SH @11,@CH02025 0610 00303000 ST @11,WKUSDSAV(,RWORK) 0610 00304000 * WKUSDSAV=WKUSDSAV->VARLNGTH+LENGTH(BINUDATL)+WKUSDSAV;/* POINTER 00305000 * TO BINLDATL @YM08572*/ 00306000 LA @10,1 0611 00307000 SLR @09,@09 0611 00308000 IC @09,VARLNGTH(,@11) 0611 00309000 ALR @09,@10 0611 00310000 ALR @09,@11 0611 00311000 ST @09,WKUSDSAV(,RWORK) 0611 00312000 * WKLGDTLN=WKUSDSAV->VARLNGTH; /* @YM08572 00313000 * GET DATA LNG FOR MOVE @YM08510*/ 00314000 SLR @11,@11 0612 00315000 IC @11,VARLNGTH(,@09) 0612 00316000 STC @11,WKLGDTLN(,RWORK) 0612 00317000 * PLMVLNTH=BINLEN+LENGTH(BINLEN)-(WKLGDTLN+LENGTH(BINLDATL));/* 0613 00318000 * @YM08572*/ 00319000 L @09,WKBIADDR(,RWORK) 0613 00320000 LA @11,2 0613 00321000 SLR @10,@10 0613 00322000 ICM @10,3,BINLEN(@09) 0613 00323000 ALR @11,@10 0613 00324000 LA @09,1 0613 00325000 SLR @10,@10 0613 00326000 IC @10,WKLGDTLN(,RWORK) 0613 00327000 ALR @10,@09 0613 00328000 SLR @11,@10 0613 00329000 STH @11,PLMVLNTH(,@07) 0613 00330000 * PLMVSCTG=ON; /* SET CONTIGUOUS @YM07701*/ 00331000 OI PLMVSCTG(@07),B'01000000' 0614 00332000 * RPARM=ADDR(WKMVBFR); /* PARM LIST ADDR @YM07701*/ 00333000 LA RPARM,WKMVBFR(,RWORK) 0615 00334000 * CALL IEDMVBFR; /* PARM LIST ADDR @YM07701*/ 00335000 L @09,AVTSAVTP(,RAVT) 0616 00336000 L @15,SAVTMVBF(,@09) 0616 00337000 BALR @14,@15 0616 00338000 * XCINBLEN=BINLEN-(WKLGDTLN+LENGTH(BINLDATL));/* CORRECT LENGTH 0617 00339000 * @YM08572*/ 00340000 L @09,WKCINRU(,RWORK) 0617 00341000 L @07,WKBIADDR(,RWORK) 0617 00342000 LA @11,1 0617 00343000 SLR @10,@10 0617 00344000 IC @10,WKLGDTLN(,RWORK) 0617 00345000 ALR @11,@10 0617 00346000 LCR @11,@11 0617 00347000 SLR @10,@10 0617 00348000 ICM @10,3,BINLEN(@07) 0617 00349000 ALR @11,@10 0617 00350000 STH @11,XCINBLEN(,@09) 0617 00351000 * PLMVFLG1=0; /* CLEAR FLAG FIELD @YM07701*/ 00352000 LA @09,72 0618 00353000 ALR @09,RWORK 0618 00354000 MVI PLMVFLG1(@09),X'00' 0618 00355000 * PLMVSU=WKSRCEU; /* SAVED SOURCE UNIT INITSELF 0619 00356000 * @YM07701*/ 00357000 MVC PLMVSU(4,@09),WKSRCEU(RWORK) 0619 00358000 * PLMVSD=WKSRCED; /* SAVED SOURCE DATA INITSELF 0620 00359000 * @YM07701*/ 00360000 MVC PLMVSD(4,@09),WKSRCED(RWORK) 0620 00361000 * CALL FNDISDAT; /* @YM07701*/ 00362000 BAL @14,FNDISDAT 0621 00363000 * PLMVSCTG=ON; /* CONTIGUOUS @YM07701*/ 00364000 LA @09,72 0622 00365000 ALR @09,RWORK 0622 00366000 OI PLMVSCTG(@09),B'01000000' 0622 00367000 * RPARM=ADDR(WKMVBFR); /* PARM LIST @YM07701*/ 00368000 LA RPARM,WKMVBFR(,RWORK) 0623 00369000 * PLMVSD=WKUSDSAV; /* RESTORE ADDR @YM08572*/ 00370000 L @07,WKUSDSAV(,RWORK) 0624 00371000 ST @07,PLMVSD(,@09) 0624 00372000 * PLMVSU=WKUSDSAV; /* RESTORE ADDR @YM08572*/ 00373000 ST @07,PLMVSU(,@09) 0625 00374000 * PLMVLNTH=LENGTH(BINLDATL)+WKLGDTLN;/* MOVE LOGON PREFIX @YM08572*/ 00375000 LA @07,1 0626 00376000 SLR @11,@11 0626 00377000 IC @11,WKLGDTLN(,RWORK) 0626 00378000 ALR @07,@11 0626 00379000 STH @07,PLMVLNTH(,@09) 0626 00380000 * CALL FINISMOV; /* FINISH MOVING USERFIELDS 0627 00381000 * @YM07701*/ 00382000 BAL @14,FINISMOV 0627 00383000 * IF PLMVUNCA>0 THEN /* ANY UNUSED UNITS @YM07701*/ 00384000 L @09,PLMVUNCA+72(,RWORK) 0628 00385000 LTR @09,@09 0628 00386000 BNP @RF00628 0628 00387000 * DO; /* @YM07701*/ 00388000 * RPARM=PLMVUNCA; /* SETUP PARMS @YM07701*/ 00389000 LR RPARM,@09 0630 00390000 * CALL FREEBUF; /* FREE PARMS @YM07701*/ 00391000 L @15,OPCFREBF(,ROPCAVT) 0631 00392000 BALR @14,@15 0631 00393000 * END; /* @YM07701*/ 00394000 * IF WKLGDTLN+WKISLEN>DLMFF THEN /* IF TRUNCATED @YM08572*/ 00395000 @RF00628 LA @09,255 0633 00396000 SLR @07,@07 0633 00397000 IC @07,WKLGDTLN(,RWORK) 0633 00398000 SLR @11,@11 0633 00399000 IC @11,WKISLEN(,RWORK) 0633 00400000 ALR @07,@11 0633 00401000 CR @07,@09 0633 00402000 BNH @RF00633 0633 00403000 * WKCINPIU->TTHDCF=(WKCINPIU->TTHDCF-(WKLGDTLN+WKISLEN-DLMFF));/* 00404000 * ADJUST DATA COUNT FIELD 0634 00405000 * @YM08572*/ 00406000 L @11,WKCINPIU(,RWORK) 0634 00407000 SLR @07,@09 0634 00408000 LCR @07,@07 0634 00409000 SLR @09,@09 0634 00410000 ICM @09,3,TTHDCF(@11) 0634 00411000 ALR @07,@09 0634 00412000 STH @07,TTHDCF(,@11) 0634 00413000 * RFY 0635 00414000 * IEDBIN BASED(RBIN); /* @YM07701*/ 00415000 @RF00633 DS 0H 0636 00416000 * RE=WKSAVE3; /* RESTORE 14 @YM07701*/ 00417000 L RE,WKSAVE3(,RWORK) 0636 00418000 * END CINITBLD; /* RETURN TO CALLER @YM07701*/ 00419000 @EL00003 DS 0H 0637 00420000 @EF00003 DS 0H 0637 00421000 @ER00003 BR @14 0637 00422000 *FNDISDAT: /* @YM07701*/ 00423000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @YM07701*/ 00424000 * 0638 00425000 FNDISDAT DS 0H 0639 00426000 * /*****************************************************************/ 00427000 * /* */ 00428000 * /* THIS SUBROUTINE MOVES 3 VARIABLE-LENGTH FIELDS (NETWORK NAME, */ 00429000 * /* REQUESTOR ID AND PASSWORD) FROM THE INITSELF CMD TO THE CINIT */ 00430000 * /* CMD AND LOCATES THE INITSELF USER DATA FIELD @YM08572*/ 00431000 * /* */ 00432000 * /*****************************************************************/ 00433000 * 0639 00434000 * WKSAVE4=RE; /* SAVE 14 @YM07701*/ 00435000 ST RE,WKSAVE4(,RWORK) 0639 00436000 * RPARM=ADDR(WKMVBFR); /* PARM LIST @YM07701*/ 00437000 LA RPARM,WKMVBFR(,RWORK) 0640 00438000 * PLMVLNTH=LENGTH(XINSNTYP); /* RESOURCE-TYPE LENGTH @YM08572*/ 00439000 MVC PLMVLNTH+72(2,RWORK),@CH00060 0641 00440000 * CALL IEDMVBFR; /* MOVE RESOURCE TYPE FIELD 0642 00441000 * @YM08572*/ 00442000 L @09,AVTSAVTP(,RAVT) 0642 00443000 L @15,SAVTMVBF(,@09) 0642 00444000 BALR @14,@15 0642 00445000 * RZERO=3; /* SET UP COUNTER @YM08572*/ 00446000 LA RZERO,3 0643 00447000 * DO UNTIL(RZERO=0); /* MOVE 3 VARIABLE-LENGTH FIELDS 00448000 * (NETWORK NAME, REQUESTOR ID 0644 00449000 * AND PASSWORD) @YM08572*/ 00450000 @DL00644 DS 0H 0645 00451000 * PLMVLNTH=PLMVSD->VARLNGTH+LENGTH(VARLNGTH);/* LENGTH @YM08572*/ 00452000 LA @09,72 0645 00453000 ALR @09,RWORK 0645 00454000 L @07,PLMVSD(,@09) 0645 00455000 LA @11,1 0645 00456000 SLR @10,@10 0645 00457000 IC @10,VARLNGTH(,@07) 0645 00458000 ALR @11,@10 0645 00459000 STH @11,PLMVLNTH(,@09) 0645 00460000 * CALL IEDMVBFR; /* @YM07701*/ 00461000 L @09,AVTSAVTP(,RAVT) 0646 00462000 L @15,SAVTMVBF(,@09) 0646 00463000 BALR @14,@15 0646 00464000 * RZERO=RZERO-1; /* DECREMENT COUNT @YM08572*/ 00465000 BCTR RZERO,0 0647 00466000 * END; /* @YM07701*/ 00467000 @DE00644 LTR RZERO,RZERO 0648 00468000 BNZ @DL00644 0648 00469000 * PLMVLNTH=LENGTH(XINSULEN); /* SETUP FOR NULL MOVE TO SKIP 0649 00470000 * I/S USER DATA LENGTH FIELD 0649 00471000 * @YM07701*/ 00472000 LA @09,72 0649 00473000 ALR @09,RWORK 0649 00474000 MVC PLMVLNTH(2,@09),@CH00060 0649 00475000 * WKVTUSAV=PLMVTU; /* SAVE TARGET POINTER @YM08572*/ 00476000 MVC WKVTUSAV(4,RWORK),PLMVTU(@09) 0650 00477000 * WKVTDSAV=PLMVTD; /* SAVE TARGET POINTER @YM08572*/ 00478000 MVC WKVTDSAV(4,RWORK),PLMVTD(@09) 0651 00479000 * PLMVTU=PLMVSU; /* NULL MOVE @YM07701*/ 00480000 MVC PLMVTU(4,@09),PLMVSU(@09) 0652 00481000 * PLMVTD=PLMVSD; /* NULL MOVE @YM07701*/ 00482000 L @07,PLMVSD(,@09) 0653 00483000 ST @07,PLMVTD(,@09) 0653 00484000 * WKISLEN=PLMVSD->VARLNGTH; /* SAVE I/S LENGTH @YM08572*/ 00485000 MVC WKISLEN(1,RWORK),VARLNGTH(@07) 0654 00486000 * CALL IEDMVBFR; /* @YM07701*/ 00487000 L @09,AVTSAVTP(,RAVT) 0655 00488000 L @15,SAVTMVBF(,@09) 0655 00489000 BALR @14,@15 0655 00490000 * WKSRCEU=PLMVSU; /* SAVE I/S POINTER @YM07701*/ 00491000 LA @09,72 0656 00492000 ALR @09,RWORK 0656 00493000 MVC WKSRCEU(4,RWORK),PLMVSU(@09) 0656 00494000 * WKSRCED=PLMVSD; /* SAVE I/S POINTER @YM07701*/ 00495000 MVC WKSRCED(4,RWORK),PLMVSD(@09) 0657 00496000 * PLMVTU=WKVTUSAV; /* RESTORE CINIT POINTER @YM08572*/ 00497000 MVC PLMVTU(4,@09),WKVTUSAV(RWORK) 0658 00498000 * PLMVTD=WKVTDSAV; /* RESTORE CINIT POINTER @YM08572*/ 00499000 MVC PLMVTD(4,@09),WKVTDSAV(RWORK) 0659 00500000 * RE=WKSAVE4; /* RESTORE 14 @YM07701*/ 00501000 L RE,WKSAVE4(,RWORK) 0660 00502000 * END FNDISDAT; /* @YM07701*/ 00503000 @EL00004 DS 0H 0661 00504000 @EF00004 DS 0H 0661 00505000 @ER00004 BR @14 0661 00506000 *FINISMOV: 0662 00507000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @YM07701*/ 00508000 * 0662 00509000 FINISMOV DS 0H 0663 00510000 * /*****************************************************************/ 00511000 * /* */ 00512000 * /* FINISMOV COMPLETES THE MOVING OF THE USER DATA FIELDS AND */ 00513000 * /* CORRECTS THE LENGTH FIELD @YM07701*/ 00514000 * /* */ 00515000 * /*****************************************************************/ 00516000 * 0663 00517000 * WKSAVE4=RE; /* SAVE RETURN REGISTER @YM07701*/ 00518000 ST RE,WKSAVE4(,RWORK) 0663 00519000 * IF WKISLEN=0 THEN /* IS THIS THE LAST MOVE BECAUSE 00520000 * NO USER DATA IN INIT-SELF? 0664 00521000 * @YM08572*/ 00522000 CLI WKISLEN(RWORK),0 0664 00523000 BNE @RF00664 0664 00524000 * CALL IEDMVBFR; /* YES, MOVE IN LOGON USER DATA 00525000 * @YM08572*/ 00526000 L @09,AVTSAVTP(,RAVT) 0665 00527000 L @15,SAVTMVBF(,@09) 0665 00528000 BALR @14,@15 0665 00529000 * ELSE /* @YM08572*/ 00530000 * DO; /* @YM08572*/ 00531000 B @RC00664 0666 00532000 @RF00664 DS 0H 0667 00533000 * IF WKLGDTLN=DLMFF THEN /* IS THIS THE LAST MOVE BECAUSE 00534000 * TARGET FIELD WILL BE FULL? 0667 00535000 * @YM08572*/ 00536000 CLI WKLGDTLN(RWORK),255 0667 00537000 BNE @RF00667 0667 00538000 * DO; /* YES @YM08572*/ 00539000 * PLMVUNCF=ON; /* REQUEST UNCHAINING OF ANY 0669 00540000 * EXTRA UNITS @YM08572*/ 00541000 OI PLMVUNCF+72(RWORK),B'10000000' 0669 00542000 * CALL IEDMVBFR; /* MOVE IN LOGON USER DATA 0670 00543000 * @YM08572*/ 00544000 L @09,AVTSAVTP(,RAVT) 0670 00545000 L @15,SAVTMVBF(,@09) 0670 00546000 BALR @14,@15 0670 00547000 * END; /* @YM07701*/ 00548000 * ELSE /* @YM07701*/ 00549000 * DO; /* @YM07701*/ 00550000 B @RC00667 0672 00551000 @RF00667 DS 0H 0673 00552000 * CALL IEDMVBFR; /* (LENGTH OK) @YM07701*/ 00553000 L @09,AVTSAVTP(,RAVT) 0673 00554000 L @15,SAVTMVBF(,@09) 0673 00555000 BALR @14,@15 0673 00556000 * IF WKLGDTLN+WKISLEN>DLMFF THEN/* TOTAL LENGTH > 255? 0674 00557000 * @YM08572*/ 00558000 LA @09,255 0674 00559000 SLR @07,@07 0674 00560000 IC @07,WKLGDTLN(,RWORK) 0674 00561000 SLR @11,@11 0674 00562000 IC @11,WKISLEN(,RWORK) 0674 00563000 ALR @11,@07 0674 00564000 CR @11,@09 0674 00565000 BNH @RF00674 0674 00566000 * DO; /* YES @YM08572*/ 00567000 * WKFLDSIZ=DLMFF; /* TRUNCATE TO 255 BYTES @YM08572*/ 00568000 MVI WKFLDSIZ(RWORK),X'FF' 0676 00569000 * PLMVLNTH=DLMFF-WKLGDTLN;/* SET DATA LENTH FOR MOVE 0677 00570000 * @YM08572*/ 00571000 LA @11,72 0677 00572000 ALR @11,RWORK 0677 00573000 SLR @09,@07 0677 00574000 STH @09,PLMVLNTH(,@11) 0677 00575000 * PLMVUNCF=ON; /* REQUEST UNCHAINING OF EXTRA 0678 00576000 * UNITS @YM08572*/ 00577000 OI PLMVUNCF(@11),B'10000000' 0678 00578000 * END; /* @YM07701*/ 00579000 * ELSE /* @YM07701*/ 00580000 * DO; /* @YM07701*/ 00581000 B @RC00674 0680 00582000 @RF00674 DS 0H 0681 00583000 * WKFLDSIZ=WKLGDTLN+WKISLEN;/* TOTAL SIZE OF USER-DATA 00584000 * FIELD @YM08572*/ 00585000 SLR @09,@09 0681 00586000 IC @09,WKISLEN(,RWORK) 0681 00587000 SLR @07,@07 0681 00588000 IC @07,WKLGDTLN(,RWORK) 0681 00589000 ALR @07,@09 0681 00590000 STC @07,WKFLDSIZ(,RWORK) 0681 00591000 * PLMVLNTH=WKISLEN; /* SET LENGTH FOR MOVE @YM08572*/ 00592000 STH @09,PLMVLNTH+72(,RWORK) 0682 00593000 * END; /* @YM07701*/ 00594000 * PLMVSCTG=OFF; /* TURN OFF SOURCE-CONTIGUOUS 0684 00595000 * FLAG @YM08572*/ 00596000 @RC00674 LA @09,72 0684 00597000 ALR @09,RWORK 0684 00598000 NI PLMVSCTG(@09),B'10111111' 0684 00599000 * PLMVSD=WKSRCED; /* SAVED ADDR OF INIT-SELF USER 00600000 * DATA @YM08572*/ 00601000 MVC PLMVSD(4,@09),WKSRCED(RWORK) 0685 00602000 * PLMVSU=WKSRCEU; /* SAVED ADDR OF UNIT @YM08572*/ 00603000 MVC PLMVSU(4,@09),WKSRCEU(RWORK) 0686 00604000 * CALL IEDMVBFR; /* MOVE INIT-SELF USER DATA 0687 00605000 * @YM07701*/ 00606000 L @09,AVTSAVTP(,RAVT) 0687 00607000 L @15,SAVTMVBF(,@09) 0687 00608000 BALR @14,@15 0687 00609000 * WKVTDSAV->VARLNGTH=WKFLDSIZ;/* PLUG IN CORRECT TOTAL 0688 00610000 * LENGTH FOR CINIT USER DATA 0688 00611000 * FIELD @YM08572*/ 00612000 L @09,WKVTDSAV(,RWORK) 0688 00613000 MVC VARLNGTH(1,@09),WKFLDSIZ(RWORK) 0688 00614000 * END; /* @YM07701*/ 00615000 * END; /* @YM07701*/ 00616000 @RC00667 DS 0H 0691 00617000 * RE=WKSAVE4; /* RESTORE RETURN REG @YM07701*/ 00618000 @RC00664 L RE,WKSAVE4(,RWORK) 0691 00619000 * END FINISMOV; /* @YM07701*/ 00620000 @EL00005 DS 0H 0692 00621000 @EF00005 DS 0H 0692 00622000 @ER00005 BR @14 0692 00623000 *CINTPROC: 0693 00624000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0693 00625000 * 0693 00626000 CINTPROC DS 0H 0694 00627000 * /*****************************************************************/ 00628000 * /* */ 00629000 * /* THIS ROUTINE PROCESSES A CINIT REQUEST. THE AMOUNT OF DATA IN */ 00630000 * /* THE CINIT REQUEST IS CALCULATED AND A NEW BUFFER IS REQUESTED.*/ 00631000 * /* THE CINITBLD ROUTINE IS THEN CALLED TO BUILD THE CINIT */ 00632000 * /* REQUEST. AFTER THE CINIT REQUEST IS BUILT THE INIT-SELF BUFFER*/ 00633000 * /* IS FREED AND THE CINIT BUFFER IS TPOSTED TO IEDLUS VIA SVC */ 00634000 * /* 102. */ 00635000 * /* */ 00636000 * /*****************************************************************/ 00637000 * 0694 00638000 * WKSAVE2=RE; /* SAVE REG 14 */ 00639000 ST RE,WKSAVE2(,RWORK) 0694 00640000 */* */ 00641000 * 0695 00642000 * TRMLUREQ=ON; /* INIT-SELF EXTERNAL INDICATOR */ 00643000 LA @11,TRMLUREQ(,RTRM) 0695 00644000 LR @10,@11 0695 00645000 LA @09,3 0695 00646000 NR @10,@09 0695 00647000 LCR @10,@10 0695 00648000 ALR @11,@10 0695 00649000 L @09,0(,@11) 0695 00650000 @GL00001 LR @07,@09 0695 00651000 O @07,@CB02036+3(@10) 0695 00652000 CS @09,@07,0(@11) 0695 00653000 BNE @GL00001 0695 00654000 */* */ 00655000 * 0696 00656000 * /* CALCULATE AMOUNT OF DATA IN 0696 00657000 * THE CINIT COMMAND */ 00658000 * WKCINTD=LENGTH(PRFPIUO)+LENGTH(IEDTH)+LENGTH(IEDRH)+LENGTH(XCINFIXD 00659000 * )+WKBIADDR->BINLEN+WKINITD-LENGTH(BINLDATL);/* @YM08510 00660000 * CALCULATE NO OF UNITS NEEDED 00661000 * FOR CINIT REQUEST @YM07701*/ 00662000 L @09,WKBIADDR(,RWORK) 0696 00663000 LA @07,23 0696 00664000 SLR @11,@11 0696 00665000 ICM @11,3,BINLEN(@09) 0696 00666000 ALR @07,@11 0696 00667000 SLR @09,@09 0696 00668000 ICM @09,3,WKINITD(RWORK) 0696 00669000 ALR @07,@09 0696 00670000 BCTR @07,0 0696 00671000 STH @07,WKCINTD(,RWORK) 0696 00672000 * RPARM=1; /* SET NO OF UNITS TO 1 */ 00673000 LA RPARM,1 0697 00674000 * DO WKSIZE=WKCINTD BY(-AVTKEYLE) WHILE WKSIZE>AVTKEYLE; 0698 00675000 STH @07,WKSIZE(,RWORK) 0698 00676000 B @DE00698 0698 00677000 @DL00698 DS 0H 0699 00678000 * RPARM=RPARM+1; /* ADD 1 TO NO OF UNITS */ 00679000 AH RPARM,@CH00060 0699 00680000 * END; 0700 00681000 LH @07,AVTKEYLE(,RAVT) 0700 00682000 LCR @07,@07 0700 00683000 SLR @09,@09 0700 00684000 ICM @09,3,WKSIZE(RWORK) 0700 00685000 ALR @09,@07 0700 00686000 LR @07,@09 0700 00687000 STH @07,WKSIZE(,RWORK) 0700 00688000 @DE00698 SLR @09,@09 0700 00689000 ICM @09,3,WKSIZE(RWORK) 0700 00690000 CH @09,AVTKEYLE(,RAVT) 0700 00691000 BH @DL00698 0700 00692000 * CALL CINITBLD; /* BUILD CINIT REQUEST */ 00693000 BAL @14,CINITBLD 0701 00694000 */* */ 00695000 * 0702 00696000 * /* SET UP ELEMENT TO TPOST */ 00697000 * WKCINBFR->PRFPRI=PRISSPIU; /* SET PRIORITY */ 00698000 L @09,WKCINBFR(,RWORK) 0702 00699000 MVI PRFPRI(@09),X'E5' 0702 00700000 * WKCINBFR->PRFQCBA=ADDR(SAVTLUSQ);/* LUS QCB ADDRESS */ 00701000 L @07,AVTSAVTP(,RAVT) 0703 00702000 LA @07,SAVTLUSQ(,@07) 0703 00703000 STCM @07,7,PRFQCBA(@09) 0703 00704000 * PRFLINK=WKCINBFR; /* LINK RESPONSE BUFFER WITH 0704 00705000 * CINIT BUFFER */ 00706000 STCM @09,7,PRFLINK(IEDQPPTR) 0704 00707000 */* */ 00708000 * 0705 00709000 * RE=WKSAVE2; /* RESTORE REG 14 */ 00710000 L RE,WKSAVE2(,RWORK) 0705 00711000 * END CINTPROC; /* RETURN */ 00712000 @EL00006 DS 0H 0706 00713000 @EF00006 DS 0H 0706 00714000 @ER00006 BR @14 0706 00715000 *DISCARD: 0707 00716000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0707 00717000 * 0707 00718000 DISCARD DS 0H 0708 00719000 * /*****************************************************************/ 00720000 * /* */ 00721000 * /* THIS ROUTINE FREES THE OPCE AND ATTACHED N.S PROC RESPONSE */ 00722000 * /* */ 00723000 * /*****************************************************************/ 00724000 * 0708 00725000 * WKSAVE1=RE; /* SAVE REG 14 @YM06472*/ 00726000 ST RE,WKSAVE1(,RWORK) 0708 00727000 */* @YM06472*/ 00728000 * 0709 00729000 * RPARM=ROPCE; /* ADDR OF BUFFER @YM06472*/ 00730000 LR RPARM,ROPCE 0709 00731000 * CALL FREEBUF; /* FREE INIT BUFFER @YM06472*/ 00732000 L @15,OPCFREBF(,ROPCAVT) 0710 00733000 BALR @14,@15 0710 00734000 */* @YM06472*/ 00735000 * 0711 00736000 * RE=WKSAVE1; /* RESTORE REG 14 @YM06472*/ 00737000 L RE,WKSAVE1(,RWORK) 0711 00738000 * END DISCARD; /* RETURN TO CALLER @YM06472*/ 00739000 @EL00007 DS 0H 0712 00740000 @EF00007 DS 0H 0712 00741000 @ER00007 BR @14 0712 00742000 *INITPROC: 0713 00743000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0713 00744000 * 0713 00745000 INITPROC DS 0H 0714 00746000 * /*****************************************************************/ 00747000 * /* */ 00748000 * /* THIS CODE PROCESSED THE INIT-SELF COMMAND. IT CHECKS FOR ERROR*/ 00749000 * /* CONDITIONS AND CALL THE APPROPRIATE SUBROUTINES TO PROCESS */ 00750000 * /* THIS REQUEST. */ 00751000 * /* */ 00752000 * /*****************************************************************/ 00753000 * 0714 00754000 * WKSAVE1=RE; /* SAVE REG 14 */ 00755000 ST RE,WKSAVE1(,RWORK) 0714 00756000 */* */ 00757000 * 0715 00758000 * /* COMPUTE AMOUNT OF VARIABLE 0715 00759000 * DATA IN INIT-SELF */ 00760000 * WKINITD=PRFSIZE-(PRFISIZE+AVTHDRSZ+LENGTH(XINSFIXD)); 0715 00761000 LA @09,42 0715 00762000 SLR @07,@07 0715 00763000 IC @07,PRFISIZE(,IEDQPPTR) 0715 00764000 ALR @09,@07 0715 00765000 LCR @09,@09 0715 00766000 AH @09,PRFSIZE(,IEDQPPTR) 0715 00767000 STH @09,WKINITD(,RWORK) 0715 00768000 * IF(TRHDR1=ON|TRHDR2=ON)& /* RESPONSE REQUIRED @YM06067*/ 00769000 * (TRHER=OFF|WKSENSE^=0) THEN /* FOR THIS REQUEST @YM06067*/ 00770000 LR @09,IEDQPPTR 0716 00771000 SH @09,@CH00045 0716 00772000 TM TRHDR1(@09),B'10100000' 0716 00773000 BZ @RF00716 0716 00774000 TM TRHER(@09),B'00010000' 0716 00775000 BZ @RT00716 0716 00776000 ICM @09,15,WKSENSE(RWORK) 0716 00777000 BZ @RF00716 0716 00778000 @RT00716 DS 0H 0717 00779000 * CALL BLDRESP; /* BUILD INIT-SELF RESPONSE */ 00780000 BAL @14,BLDRESP 0717 00781000 * IF WKSENSE=0 THEN /* CINIT TO BE BUILT */ 00782000 @RF00716 ICM @09,15,WKSENSE(RWORK) 0718 00783000 BNZ @RF00718 0718 00784000 * CALL CINTPROC; /* BUILD THE CINIT */ 00785000 BAL @14,CINTPROC 0719 00786000 */* */ 00787000 * 0720 00788000 * IF WKSENSE=0& /* CINIT AND */ 00789000 * WKRESP=ON THEN /* RESPONSE BUILT */ 00790000 @RF00718 ICM @09,15,WKSENSE(RWORK) 0720 00791000 BNZ @RF00720 0720 00792000 TM WKRESP(RWORK),B'01000000' 0720 00793000 BNO @RF00720 0720 00794000 * DO; /* SET UP SVC 102 PARM LIST */ 00795000 * OPCAQREQ=PSTCHAIN; /* CHAIN CONSTANT */ 00796000 MVI OPCAQREQ(ROPCAVT),X'B4' 0722 00797000 * OPCAQFST=RPRF; /* INIT-SELF RESPONSE */ 00798000 STCM RPRF,7,OPCAQFST(ROPCAVT) 0723 00799000 * OPCAQSEC=WKCINBFR; /* CINIT BUFFER */ 00800000 MVC OPCAQSEC(3,ROPCAVT),WKCINBFR+1(RWORK) 0724 00801000 * END; 0725 00802000 * ELSE /* NO CINIT TO BE BUILT */ 00803000 * DO; 0726 00804000 B @RC00720 0726 00805000 @RF00720 DS 0H 0727 00806000 * OPCAQREQ=TPOST; /* TPOST */ 00807000 MVI OPCAQREQ(ROPCAVT),X'0C' 0727 00808000 * OPCAQRQ2=ENDLIST; /* END OF LIST CONSTANT */ 00809000 MVI OPCAQRQ2(ROPCAVT),X'80' 0728 00810000 * IF WKRESP=ON THEN /* ONLY A RESPONSE BUILT */ 00811000 TM WKRESP(RWORK),B'01000000' 0729 00812000 BNO @RF00729 0729 00813000 * DO; 0730 00814000 * OPCAQFST=RPRF; /* ERROR RESPONSE BUFFER */ 00815000 STCM RPRF,7,OPCAQFST(ROPCAVT) 0731 00816000 * OPCAQSEC=RPRF; /* ERROR RESPONSE BUFFER */ 00817000 STCM RPRF,7,OPCAQSEC(ROPCAVT) 0732 00818000 * END; 0733 00819000 * ELSE /* ONLY A CINIT BUILT */ 00820000 * DO; 0734 00821000 B @RC00729 0734 00822000 @RF00729 DS 0H 0735 00823000 * OPCAQFST=WKCINBFR; /* CINIT BUFFER */ 00824000 L @09,WKCINBFR(,RWORK) 0735 00825000 STCM @09,7,OPCAQFST(ROPCAVT) 0735 00826000 * OPCAQSEC=WKCINBFR; /* CINIT BUFFER */ 00827000 STCM @09,7,OPCAQSEC(ROPCAVT) 0736 00828000 * END; 0737 00829000 * END; 0738 00830000 @RC00729 DS 0H 0739 00831000 * IF WKRESP=ON THEN /* A RESPONSE BUILT */ 00832000 @RC00720 TM WKRESP(RWORK),B'01000000' 0739 00833000 BNO @RF00739 0739 00834000 * DO; 0740 00835000 * WKFREBF=0; /* CLEAR SAVED UNITS ADDRESS */ 00836000 SLR @09,@09 0741 00837000 ST @09,WKFREBF(,RWORK) 0741 00838000 * IF PRFTI0>3 THEN /* EXCESS UNITS ON RSP */ 00839000 SLR @09,@09 0742 00840000 ICM @09,7,PRFTI0(IEDQPPTR) 0742 00841000 CH @09,@CH00066 0742 00842000 BNH @RF00742 0742 00843000 * DO; 0743 00844000 * WKFREBF=PRFTI0; /* SET UP TO FREE UNIT */ 00845000 ST @09,WKFREBF(,RWORK) 0744 00846000 * PRFTIC=PRFINTIC; /* SET INVALID TIC */ 00847000 MVC PRFTIC(4,IEDQPPTR),@CB01446 0745 00848000 * END; 0746 00849000 * END; 0747 00850000 * ELSE 0748 00851000 * WKFREBF=RPRF; /* INIT SELF BUFFER */ 00852000 B @RC00739 0748 00853000 @RF00739 ST RPRF,WKFREBF(,RWORK) 0748 00854000 * RPARM=ADDR(OPCAQCTL); /* PARAMETER LIST ADDRESS */ 00855000 @RC00739 LA RPARM,OPCAQCTL(,ROPCAVT) 0749 00856000 * SVC(102); /* TPOST */ 00857000 SVC 102 0750 00858000 */* */ 00859000 * 0751 00860000 * IF WKFREBF>0 THEN /* EXCESS UNITS ON RESPONSE OR 0751 00861000 * INIT-SELF NEED TO BE FREED */ 00862000 L @09,WKFREBF(,RWORK) 0751 00863000 LTR @09,@09 0751 00864000 BNP @RF00751 0751 00865000 * DO; 0752 00866000 * RPARM=WKFREBF; /* ADDRESS OF UNIT */ 00867000 LR RPARM,@09 0753 00868000 * CALL FREEBUF; /* FREE EXCESS UNITS */ 00869000 L @15,OPCFREBF(,ROPCAVT) 0754 00870000 BALR @14,@15 0754 00871000 * END; 0755 00872000 * RE=WKSAVE1; /* RESTORE REG 14 */ 00873000 @RF00751 L RE,WKSAVE1(,RWORK) 0756 00874000 * END INITPROC; 0757 00875000 @EL00008 DS 0H 0757 00876000 @EF00008 DS 0H 0757 00877000 @ER00008 BR @14 0757 00878000 *NSPBLD: 0758 00879000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0758 00880000 * 0758 00881000 NSPBLD DS 0H 0759 00882000 * /*****************************************************************/ 00883000 * /* */ 00884000 * /* THIS ROUTINE BUILDS A N. S. PROC ERROR TO AN UNFORMATTED */ 00885000 * /* SYSTEM SERVICE REQUEST. THE N.S.PROC ERROR WILL BE CONVERTED */ 00886000 * /* INTO A USS REPLY ON THE SSCP MH. */ 00887000 * /* */ 00888000 * /*****************************************************************/ 00889000 * 0759 00890000 * WKSAVE3=RE; /* SAVE REG 14 @YM06472*/ 00891000 ST RE,WKSAVE3(,RWORK) 0759 00892000 */* @YM06472*/ 00893000 * 0760 00894000 * WKNSPSW=ON; /* NSP SWITCH=ON @YM06472*/ 00895000 OI WKNSPSW(RWORK),B'10000000' 0760 00896000 * RPARM=2; /* GET 2 UNITS @YM06472*/ 00897000 LA RPARM,2 0761 00898000 * CALL ALLOCBUF; /* GET A BUFFER @YM06472*/ 00899000 L @15,OPCGETBF(,ROPCAVT) 0762 00900000 BALR @14,@15 0762 00901000 * OPCCOPCE=RPARM; /* CURRENT ELEMENT @YM06472*/ 00902000 ST RPARM,OPCCOPCE(,ROPCAVT) 0763 00903000 * ROPCE=RPARM; /* OPCE ADDRESS @YM06472*/ 00904000 LR ROPCE,RPARM 0764 00905000 * OCELMPRI=PRIHIFLG; /* SET PRIORITY @YM06818*/ 00906000 MVI OCELMPRI(ROPCE),X'E9' 0765 00907000 * OCACTREQ=ON; /* '02' INDICATOR @YM06472*/ 00908000 OI OCACTREQ(ROPCE),B'00001000' 0766 00909000 * OCWTG=THISMOD; /* RETURN TO 'AT' @YM06472*/ 00910000 MVC OCWTG(2,ROPCE),@CC01947 0767 00911000 */* @YM06472*/ 00912000 * 0768 00913000 * PRURHTH=NSPRHTH; /* SET UP RH TH @YM06472*/ 00914000 L @09,OCUNIT(,ROPCE) 0768 00915000 LR @07,@09 0768 00916000 SH @07,@CH00045 0768 00917000 MVC PRURHTH(4,@07),@CB01943 0768 00918000 * PRUTTCIN=WKSLUTNT; /* DESTINATION @YM06472*/ 00919000 MVC PRUTTCIN(2,@09),WKSLUTNT(RWORK) 0769 00920000 * PRUDATCT=XNSPLEN; /* DATA LENGTH @YM06472*/ 00921000 MVC PRUDATCT(2,@09),@CH01867 0770 00922000 * PRUTHUSS=ON; /* CONVERT INDICATOR @YM06472*/ 00923000 OI PRUTHUSS(@07),B'00000010' 0771 00924000 * XNSPCODE=CD1XNSP; /* SET COMMAND CODE @YM06472*/ 00925000 AH @09,@CH00239 0772 00926000 MVC XNSPCODE(3,@09),@CB00839 0772 00927000 * XNSPRSN='31'X; /* SET REASON @YM06472*/ 00928000 MVI XNSPRSN(@09),X'31' 0773 00929000 * XNSPPTYP=0; /* ZERO NAME FIELD @YM06472*/ 00930000 MVI XNSPPTYP(@09),X'00' 0774 00931000 * XNSPSTYP=0; /* ZERO NAME FIELD @YM06472*/ 00932000 MVI XNSPSTYP(@09),X'00' 0775 00933000 * XNSPSENS=0; /* ZERO SENSE FIELD @YM06472*/ 00934000 SLR @07,@07 0776 00935000 ST @07,XNSPSENS(,@09) 0776 00936000 * XNSPSKEY=0; /* ZERO SESSION KEY @YM06472*/ 00937000 MVI XNSPSKEY(@09),X'00' 0777 00938000 */* @YM06472*/ 00939000 * 0778 00940000 * RE=WKSAVE3; /* RESTORE REG 14 @YM06472*/ 00941000 L RE,WKSAVE3(,RWORK) 0778 00942000 * END NSPBLD; /* RETURN TO CALLER @YM06472*/ 00943000 @EL00009 DS 0H 0779 00944000 @EF00009 DS 0H 0779 00945000 @ER00009 BR @14 0779 00946000 * END IGCAT10D 0780 00947000 * 0780 00948000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00949000 */*%INCLUDE SYSLIB (TAVTD ) */ 00950000 */*%INCLUDE SYSLIB (TBINDD ) */ 00951000 */*%INCLUDE SYSLIB (TBNDD ) */ 00952000 */*%INCLUDE SYSLIB (TCD1D ) */ 00953000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00954000 */*%INCLUDE SYSLIB (TOPCED ) */ 00955000 */*%INCLUDE SYSLIB (TPIUD ) */ 00956000 */*%INCLUDE SYSLIB (TPLMVD ) */ 00957000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00958000 */*%INCLUDE SYSLIB (TPRFD ) */ 00959000 */*%INCLUDE SYSLIB (TPROCD ) */ 00960000 */*%INCLUDE SYSLIB (TPRUD ) */ 00961000 */*%INCLUDE SYSLIB (TREQD ) */ 00962000 */*%INCLUDE SYSLIB (TRHD ) */ 00963000 */*%INCLUDE SYSLIB (TSNSD ) */ 00964000 */*%INCLUDE SYSLIB (TTNTD ) */ 00965000 */*%INCLUDE SYSLIB (TTHD ) */ 00966000 */*%INCLUDE SYSLIB (TTRMD ) */ 00967000 */*%INCLUDE SYSLIB (TXCIND ) */ 00968000 */*%INCLUDE SYSLIB (TXNSPD ) */ 00969000 */*%INCLUDE SYSLIB (TXINSD ) */ 00970000 * 0780 00971000 * ; 0780 00972000 @DATA DS 0H 00973000 @CH00060 DC H'1' 00974000 @CH00066 DC H'3' 00975000 @CH00071 DC H'6' 00976000 @CH00573 DC H'7' 00977000 @CH00045 DC H'8' 00978000 @CH00655 DC H'10' 00979000 @CH01867 DC H'11' 00980000 @CH00239 DC H'12' 00981000 @CH01660 DC H'14' 00982000 @CH02025 DC H'-38' 00983000 DS 0F 00984000 DS 0F 00985000 @CF02032 DC F'-5' 00986000 DS 0D 00987000 @CC01932 DC C'00' 00988000 @CC01945 DC C'02' 00989000 @CC01947 DC C'AT' 00990000 @CB01446 DC X'08000002' 00991000 @CB01943 DC X'0B80001C' 00992000 @CB00829 DC X'010681' 00993000 @CB00835 DC X'010601' 00994000 @CB00839 DC X'010604' 00995000 @CB01934 DC X'0B0000' 00996000 @CB02036 DC B'000000000000000000000000000001000000000000000000000000C00997000 00' 00998000 PATCH DC 50X'00' 00999000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01000000 @01 EQU 01 01001000 @02 EQU 02 01002000 @03 EQU 03 01003000 @04 EQU 04 01004000 @05 EQU 05 01005000 @06 EQU 06 01006000 @07 EQU 07 01007000 @08 EQU 08 01008000 @09 EQU 09 01009000 @10 EQU 10 01010000 @11 EQU 11 01011000 @12 EQU 12 01012000 @13 EQU 13 01013000 @14 EQU 14 01014000 @15 EQU 15 01015000 IEDQAPTR EQU @04 01016000 ROPCAVT EQU @02 01017000 ROPCE EQU @03 01018000 IEDQPPTR EQU @06 01019000 RTRM EQU @08 01020000 RAVT EQU @04 01021000 RZERO EQU @00 01022000 RPARM EQU @01 01023000 RWORK EQU @05 01024000 RPRF EQU @06 01025000 IEDQTPTR EQU @08 01026000 RBASE EQU @12 01027000 RSAVE EQU @13 01028000 RE EQU @14 01029000 RF EQU @15 01030000 IEDQAVTD EQU 0 01031000 AVTSAVEX EQU IEDQAVTD+288 01032000 @NM00003 EQU IEDQAVTD+388 01033000 AVTCKFLG EQU @NM00003 01034000 AVTBASE EQU IEDQAVTD+412 01035000 AVTPKF EQU AVTBASE 01036000 AVTRNMPT EQU IEDQAVTD+424 01037000 AVTOSECB EQU IEDQAVTD+492 01038000 AVTECB1 EQU AVTOSECB 01039000 AVTHG02 EQU IEDQAVTD+528 01040000 AVTDISP EQU IEDQAVTD+552 01041000 AVTHD EQU IEDQAVTD+556 01042000 AVTSCOPT EQU AVTHD 01043000 AVTSAVTP EQU IEDQAVTD+612 01044000 AVTSAVTF EQU AVTSAVTP 01045000 AVTCKPEL EQU IEDQAVTD+652 01046000 AVTCKRMV EQU AVTCKPEL 01047000 AVTCKELF EQU IEDQAVTD+680 01048000 AVTCKBYT EQU IEDQAVTD+691 01049000 AVTHG01 EQU IEDQAVTD+692 01050000 AVTCKLNK EQU IEDQAVTD+696 01051000 AVTCRELE EQU IEDQAVTD+708 01052000 AVTCCELE EQU AVTCRELE 01053000 AVTCLRHI EQU IEDQAVTD+716 01054000 AVTADBUF EQU IEDQAVTD+720 01055000 AVTSYSER EQU IEDQAVTD+728 01056000 AVTCKPQB EQU IEDQAVTD+804 01057000 AVTCKPTB EQU AVTCKPQB 01058000 AVTCKPEC EQU AVTCKPQB+4 01059000 AVTCKPCC EQU AVTCKPEC 01060000 AVTOPCQB EQU IEDQAVTD+816 01061000 AVTOPCOB EQU AVTOPCQB 01062000 AVTOPCEC EQU AVTOPCQB+4 01063000 AVTOPCCC EQU AVTOPCEC 01064000 AVTOLTQB EQU IEDQAVTD+828 01065000 AVTCWFL1 EQU IEDQAVTD+924 01066000 AVTCWFL2 EQU IEDQAVTD+925 01067000 AVTSUBT EQU IEDQAVTD+948 01068000 AVTIOTR EQU IEDQAVTD+949 01069000 AVTKEYLE EQU IEDQAVTD+1032 01070000 AVTBIT1 EQU IEDQAVTD+1050 01071000 AVTBIT2 EQU IEDQAVTD+1051 01072000 AVTBIT3 EQU IEDQAVTD+1052 01073000 AVTBIT4 EQU IEDQAVTD+1136 01074000 @NM00085 EQU IEDQAVTD+1232 01075000 IEDNSVTD EQU 0 01076000 SAVTDIAG EQU IEDNSVTD 01077000 SAVTDIAF EQU SAVTDIAG 01078000 SAVTLUSQ EQU IEDNSVTD+88 01079000 SAVTMVBF EQU IEDNSVTD+160 01080000 SAVTDFCO EQU IEDNSVTD+200 01081000 SAVTTCPU EQU IEDNSVTD+238 01082000 SAVTSCPT EQU SAVTTCPU 01083000 SAVTTNTX EQU IEDNSVTD+252 01084000 SAVTZELM EQU IEDNSVTD+270 01085000 SAVTRDRV EQU IEDNSVTD+284 01086000 SAVTCKQB EQU IEDNSVTD+300 01087000 SAVTCKTB EQU SAVTCKQB 01088000 SAVTCKEC EQU SAVTCKQB+4 01089000 SAVTCKCC EQU SAVTCKEC 01090000 IEDBIN EQU 0 01091000 BINLEN EQU IEDBIN+8 01092000 RBIN EQU 0 01093000 BINBUD EQU 0 01094000 BINUDATL EQU BINBUD 01095000 BINBLD EQU 0 01096000 BINLDATL EQU BINBLD 01097000 IEDBNDD EQU 0 01098000 BNDPRIM EQU IEDBNDD+4 01099000 BNDSECD EQU IEDBNDD+5 01100000 BNDCOMM1 EQU IEDBNDD+6 01101000 BNDCOMM2 EQU IEDBNDD+7 01102000 BNDSMSRU EQU IEDBNDD+10 01103000 BNDPMSRU EQU IEDBNDD+11 01104000 BNDLUPFL EQU IEDBNDD+14 01105000 BNDPSCH EQU IEDBNDD+15 01106000 BNDUDFL EQU IEDBNDD+36 01107000 RBND EQU 0 01108000 IEDQOPCD EQU 0 01109000 OPCAVTPT EQU IEDQOPCD+8 01110000 OPCCOPCE EQU IEDQOPCD+12 01111000 OPCSAVE EQU IEDQOPCD+56 01112000 OPCWORK EQU IEDQOPCD+140 01113000 OPCAQCTL EQU IEDQOPCD+180 01114000 OPCXCTL EQU IEDQOPCD+204 01115000 OPCLDNME EQU IEDQOPCD+212 01116000 OPCMODID EQU OPCLDNME+3 01117000 OPCGETBF EQU IEDQOPCD+276 01118000 OPCFREBF EQU IEDQOPCD+280 01119000 OPCSPEC EQU IEDQOPCD+300 01120000 OPCPWCOB EQU IEDQOPCD+368 01121000 OPCPWQCB EQU OPCPWCOB 01122000 OPCPWECB EQU OPCPWCOB+4 01123000 IEDQOPCE EQU 0 01124000 OCELEM EQU IEDQOPCE+4 01125000 OCELMPRI EQU OCELEM 01126000 OCUNIT EQU IEDQOPCE+8 01127000 OCRUDEST EQU OCUNIT 01128000 OCCKPKEY EQU OCRUDEST 01129000 OCSCAN EQU OCCKPKEY 01130000 OCOPTCDE EQU IEDQOPCE+12 01131000 OCSWITCH EQU IEDQOPCE+13 01132000 OCFLAG EQU IEDQOPCE+14 01133000 @NM00138 EQU IEDQOPCE+16 01134000 OCDEST EQU @NM00138 01135000 OCREQVAL EQU OCDEST+1 01136000 OCLINENO EQU IEDQOPCE+22 01137000 OCTIOT EQU OCLINENO 01138000 OCTRUNIT EQU IEDQOPCE+24 01139000 OCRSID EQU OCTRUNIT 01140000 OCALSTAT EQU OCRSID 01141000 OCACTREQ EQU OCALSTAT 01142000 OCPARM EQU IEDQOPCE+28 01143000 OCWTG EQU IEDQOPCE+30 01144000 OCBACKUP EQU IEDQOPCE+32 01145000 OCMODNME EQU IEDQOPCE+40 01146000 OCIPLWA EQU OCMODNME 01147000 OCCKDATA EQU IEDQOPCE+48 01148000 OCRSTGTM EQU OCCKDATA 01149000 IEDQOPCN EQU 0 01150000 OCLDNME EQU IEDQOPCN 01151000 OCLINTTE EQU OCLDNME 01152000 OCREQFLG EQU OCLINTTE+2 01153000 OCPREFLG EQU OCLINTTE+3 01154000 IEDPIU EQU 0 01155000 PIUTH EQU IEDPIU 01156000 PIURH EQU IEDPIU+10 01157000 PIURU EQU IEDPIU+13 01158000 IEDPLMV EQU 0 01159000 PLMVTU EQU IEDPLMV 01160000 PLMVTD EQU IEDPLMV+4 01161000 PLMVSU EQU IEDPLMV+8 01162000 PLMVSD EQU IEDPLMV+12 01163000 PLMVLNTH EQU IEDPLMV+16 01164000 PLMVFLG1 EQU IEDPLMV+18 01165000 PLMVUNCF EQU PLMVFLG1 01166000 PLMVSCTG EQU PLMVFLG1 01167000 PLMVUNCA EQU IEDPLMV+20 01168000 IEDPLMVP EQU 0 01169000 IEDQPRF EQU 0 01170000 PRFRCB EQU IEDQPRF 01171000 PRFKEY EQU PRFRCB 01172000 PRFQCBA EQU PRFRCB+1 01173000 PRFPRI EQU PRFRCB+4 01174000 PRFLINK EQU PRFRCB+5 01175000 PRFTIC EQU IEDQPRF+8 01176000 PRFTICC EQU PRFTIC 01177000 PRFTI0 EQU PRFTIC+1 01178000 PRFNBUNT EQU IEDQPRF+12 01179000 PRFSUNIT EQU PRFNBUNT 01180000 PRFPLQCB EQU PRFSUNIT 01181000 PRFPIUO EQU PRFPLQCB 01182000 @NM00156 EQU IEDQPRF+16 01183000 PRFSVFFO EQU @NM00156 01184000 PRFSIZE EQU PRFSVFFO+2 01185000 PRFSTAT1 EQU IEDQPRF+20 01186000 PRFEOFN EQU PRFSTAT1 01187000 PRFCORE EQU IEDQPRF+21 01188000 PRFXTRA EQU PRFCORE 01189000 PRFSCAN EQU IEDQPRF+24 01190000 PRFISIZE EQU PRFSCAN+1 01191000 PRFTQBCK EQU IEDQPRF+26 01192000 PRFNTXT EQU PRFTQBCK 01193000 PRFEOBOF EQU PRFNTXT 01194000 PRFCHDR EQU IEDQPRF+32 01195000 PRFHQBCK EQU IEDQPRF+35 01196000 IEDPF1 EQU 0 01197000 PRF1RH EQU IEDPF1 01198000 PRF1FLG1 EQU IEDPF1+3 01199000 PRF1USS EQU PRF1FLG1 01200000 PRF1WD2 EQU IEDPF1+4 01201000 PRF1SEQP EQU PRF1WD2 01202000 PRF1SQID EQU PRF1SEQP 01203000 PRF1TAG1 EQU PRF1SQID 01204000 IEDPF2 EQU 0 01205000 PRF2FLG2 EQU IEDPF2 01206000 PRF2TNTI EQU PRF2FLG2 01207000 PRF2WD2 EQU IEDPF2+4 01208000 IEDPROC EQU 0 01209000 PROFLAG EQU IEDPROC+1 01210000 IEDPRUQD EQU 0 01211000 PRUTTCIN EQU IEDPRUQD 01212000 PRUDATCT EQU IEDPRUQD+2 01213000 PRUTIC EQU IEDPRUQD+8 01214000 PRUDATA EQU IEDPRUQD+12 01215000 IEDPRUQP EQU 0 01216000 IEDPRUND EQU 0 01217000 PRURHTH EQU IEDPRUND 01218000 PRURH EQU PRURHTH 01219000 PRURHFG0 EQU PRURH 01220000 PRURHFG1 EQU PRURH+1 01221000 PRURHFG2 EQU PRURH+2 01222000 PRUTH EQU PRURHTH+3 01223000 PRUFIDN EQU PRUTH 01224000 PRUTHUSS EQU PRUFIDN 01225000 IEDREQD EQU 0 01226000 REQROUTE EQU IEDREQD+12 01227000 REQRCDS EQU IEDREQD+14 01228000 REQDATA EQU IEDREQD+16 01229000 IEDRH EQU 0 01230000 TRHBYTE0 EQU IEDRH 01231000 TRHTYPE EQU TRHBYTE0 01232000 TRHFI EQU TRHBYTE0 01233000 TRHSDI EQU TRHBYTE0 01234000 TRHBYTE1 EQU IEDRH+1 01235000 TRHDR1 EQU TRHBYTE1 01236000 TRHDR2 EQU TRHBYTE1 01237000 TRHER EQU TRHBYTE1 01238000 TRHBYTE2 EQU IEDRH+2 01239000 IEDSNSD EQU 0 01240000 SNSSYSTM EQU IEDSNSD 01241000 SNSUSER EQU IEDSNSD+2 01242000 SNSPTR EQU 0 01243000 IEDQTNTD EQU 0 01244000 IEDQTCDE EQU IEDQTNTD 01245000 IEDQTDCE EQU IEDQTNTD+46 01246000 IEDQNPTR EQU 0 01247000 IEDTNTA EQU 0 01248000 IEDTH EQU 0 01249000 TTHBYTE0 EQU IEDTH 01250000 TTHBYTE1 EQU IEDTH+1 01251000 TTHDAF EQU IEDTH+2 01252000 TTHOAF EQU IEDTH+4 01253000 TTHSNF EQU IEDTH+6 01254000 TTHTAG EQU TTHSNF 01255000 TTHTAG1 EQU TTHTAG 01256000 TTHDCF EQU IEDTH+8 01257000 IEDTRM EQU 0 01258000 IEDNTRM EQU IEDTRM 01259000 TRMBYTE4 EQU IEDNTRM 01260000 TRMBYTE3 EQU IEDNTRM+1 01261000 TRMBYTE2 EQU IEDNTRM+2 01262000 TRMINPG EQU TRMBYTE2 01263000 TRMBYTE1 EQU IEDNTRM+3 01264000 TRMSCPRQ EQU TRMBYTE1 01265000 TRMBYTE0 EQU IEDNTRM+6 01266000 TRMSIBPT EQU IEDNTRM+7 01267000 IEDQTRM EQU IEDTRM+14 01268000 TRMSTATE EQU IEDQTRM 01269000 TRMLOG EQU TRMSTATE 01270000 TRMINSEQ EQU IEDQTRM+4 01271000 TLISTCNT EQU TRMINSEQ 01272000 TRMOUTSQ EQU IEDQTRM+6 01273000 TLISTEN EQU TRMOUTSQ 01274000 TRMDSORG EQU TLISTEN 01275000 TRMALTD EQU IEDQTRM+8 01276000 TRMDEVFL EQU IEDQTRM+10 01277000 TRMSTAT EQU IEDQTRM+12 01278000 IEDXCIND EQU 0 01279000 XCINFIXD EQU IEDXCIND 01280000 XCINCODE EQU XCINFIXD 01281000 XCINFMT EQU XCINFIXD+3 01282000 XCINORG EQU XCINFIXD+4 01283000 XCINADDR EQU XCINFIXD+5 01284000 XCINBLEN EQU XCINFIXD+7 01285000 XCINVAR EQU IEDXCIND+9 01286000 XCINNTNM EQU XCINVAR 01287000 XCINRQID EQU XCINVAR+2 01288000 XCINPWRD EQU XCINVAR+3 01289000 XCINUFLD EQU XCINVAR+4 01290000 XCINPTR EQU 0 01291000 IEDXNSPD EQU 0 01292000 XNSPCMD EQU IEDXNSPD 01293000 XNSPCODE EQU XNSPCMD 01294000 XNSPRSN EQU XNSPCMD+3 01295000 XNSPPLUN EQU XNSPCMD+4 01296000 XNSPPTYP EQU XNSPPLUN 01297000 XNSPSLUN EQU XNSPCMD+5 01298000 XNSPSTYP EQU XNSPSLUN 01299000 XNSPSENS EQU XNSPCMD+6 01300000 XNSPSKEY EQU XNSPCMD+10 01301000 XNSPPTR EQU 0 01302000 IEDXINSD EQU 0 01303000 XINSFIXD EQU IEDXINSD 01304000 XINSCODE EQU XINSFIXD 01305000 XINSFMTP EQU XINSFIXD+3 01306000 XINSVAR EQU IEDXINSD+12 01307000 XINSNTNM EQU XINSVAR 01308000 XINSNTYP EQU XINSNTNM 01309000 XINSRQID EQU XINSVAR+2 01310000 XINSPWRD EQU XINSVAR+3 01311000 XINSUFLD EQU XINSVAR+4 01312000 XINSULEN EQU XINSUFLD 01313000 XINSPTR EQU 0 01314000 ALLOCBUF EQU 0 01315000 FREEBUF EQU 0 01316000 IEDIAP04 EQU 0 01317000 IEDMVBFR EQU 0 01318000 IEDQTNT EQU 0 01319000 VARFIELD EQU 0 01320000 VARLNGTH EQU VARFIELD 01321000 WKAREA EQU 0 01322000 WKSRCEU EQU WKAREA 01323000 WKSRCED EQU WKAREA+4 01324000 WKBIADDR EQU WKAREA+8 01325000 WKSENSE EQU WKAREA+12 01326000 WKPLUTNT EQU WKAREA+16 01327000 WKSLUTNT EQU WKAREA+18 01328000 WKREMAIN EQU WKAREA+20 01329000 TNTCODE EQU 0 01330000 TNTDCODE EQU 0 01331000 TNTFIRST EQU 0 01332000 OPCAQWD EQU OPCAQCTL 01333000 OPCAQWD1 EQU OPCAQWD 01334000 OPCAQREQ EQU OPCAQWD1 01335000 OPCAQFST EQU OPCAQWD1+1 01336000 OPCAQWD2 EQU OPCAQWD+4 01337000 OPCAQRQ2 EQU OPCAQWD2 01338000 OPCAQSEC EQU OPCAQWD2+1 01339000 OPCAQWD3 EQU OPCAQWD+8 01340000 OCCKPKY1 EQU OCCKPKEY 01341000 OCCKPTYP EQU OCCKPKY1 01342000 OCICACTN EQU OCMODNME 01343000 OCICDADR EQU OCICACTN 01344000 OCICSW EQU OCICDADR+3 01345000 REQLDATA EQU REQDATA 01346000 REQSDATA EQU REQDATA 01347000 TRMPRE1 EQU TRMBYTE4 01348000 TRMNCP1 EQU TRMBYTE4 01349000 TRMPRE EQU TRMBYTE3 01350000 TRMNCP EQU TRMBYTE3 01351000 TRMPU EQU TRMBYTE3 01352000 TRMLU EQU TRMBYTE3 01353000 TRMLUREQ EQU TRMLU 01354000 TRMLINK EQU TRMBYTE3 01355000 COMMAND EQU PIURU 01356000 WKSPACE EQU WKREMAIN 01357000 WKSAVE1 EQU WKSPACE 01358000 WKSAVE2 EQU WKSPACE+4 01359000 WKSAVE3 EQU WKSPACE+8 01360000 WKSAVE4 EQU WKSPACE+12 01361000 WKCINBFR EQU WKSPACE+16 01362000 WKCINPIU EQU WKSPACE+20 01363000 WKCINRU EQU WKSPACE+24 01364000 WKINSPIU EQU WKSPACE+28 01365000 WKINSRH EQU WKSPACE+32 01366000 WKFREBF EQU WKSPACE+36 01367000 WKUSDSAV EQU WKSPACE+40 01368000 WKVTUSAV EQU WKSPACE+44 01369000 WKVTDSAV EQU WKSPACE+48 01370000 WKMVBFR EQU WKSPACE+52 01371000 WKINITD EQU WKSPACE+76 01372000 WKCINTD EQU WKSPACE+78 01373000 WKSIZE EQU WKSPACE+80 01374000 WKFLDSIZ EQU WKSPACE+82 01375000 WKLGDTLN EQU WKSPACE+83 01376000 WKISLEN EQU WKSPACE+84 01377000 WKSWITCH EQU WKSPACE+85 01378000 WKNSPSW EQU WKSWITCH 01379000 WKRESP EQU WKSWITCH 01380000 INSERRSP EQU PIURU 01381000 INSSENSE EQU INSERRSP 01382000 INSCMD EQU INSERRSP+4 01383000 OCCIB EQU OCREQVAL 01384000 PRFSHDR EQU IEDQPRF+42 01385000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01386000 @NM00188 EQU WKSWITCH 01387000 @NM00187 EQU TRMLINK 01388000 TRMLSTAT EQU TRMLINK 01389000 TRMLINT EQU TRMLINK 01390000 TRMEPMOD EQU TRMLINK 01391000 TRMLULOG EQU TRMLU 01392000 TRMINERR EQU TRMLU 01393000 TRMSESRQ EQU TRMLU 01394000 TRMTDIFF EQU TRMLU 01395000 TRMLUTM EQU TRMLU 01396000 TRMLUIT EQU TRMLU 01397000 TRMAUTO EQU TRMLU 01398000 TRMPCONT EQU TRMPU 01399000 @NM00186 EQU TRMPU 01400000 TRMNCONT EQU TRMNCP 01401000 TRMQUCKN EQU TRMNCP 01402000 TRMSLOWN EQU TRMNCP 01403000 TRMSYGEN EQU TRMNCP 01404000 TRMNCPCL EQU TRMNCP 01405000 TRMIPLDM EQU TRMNCP 01406000 TRMINOUT EQU TRMPRE 01407000 TRMRDOUT EQU TRMPRE 01408000 TRMNLOUT EQU TRMPRE 01409000 TRMWROUT EQU TRMPRE 01410000 TRMASNXI EQU TRMPRE 01411000 TRMSTMM EQU TRMPRE 01412000 TRMCMODE EQU TRMPRE 01413000 TRMSTPND EQU TRMPRE 01414000 @NM00185 EQU TRMNCP1 01415000 TRMINOP EQU TRMNCP1 01416000 TRMLYNCH EQU TRMPRE1 01417000 TRMSPOUT EQU TRMPRE1 01418000 TRMERLCK EQU TRMPRE1 01419000 TRMQNPL EQU TRMPRE1 01420000 TRMSPACT EQU TRMPRE1 01421000 TRMOCNI EQU TRMPRE1 01422000 TRMSESSN EQU TRMPRE1 01423000 TRMCONT EQU TRMPRE1 01424000 REQSTNT EQU REQSDATA+4 01425000 REQSTTE EQU REQSDATA 01426000 REQLTNT EQU REQLDATA 01427000 OCICINAC EQU OCICSW 01428000 @NM00144 EQU OCICSW 01429000 OCICATST EQU OCICDADR+1 01430000 OCICTYPE EQU OCICDADR 01431000 @NM00143 EQU OCCKPKY1 01432000 OCCKPENV EQU OCCKPKY1 01433000 OCCKPRST EQU OCCKPTYP 01434000 OCCKPNCP EQU OCCKPTYP 01435000 OCCKPINC EQU OCCKPTYP 01436000 OPCAQLST EQU OPCAQWD3+1 01437000 OPCAQRQ3 EQU OPCAQWD3 01438000 VARDATA EQU VARFIELD+1 01439000 XINSUSFD EQU XINSUFLD+1 01440000 XINSPSWD EQU XINSPWRD+1 01441000 XINSPLEN EQU XINSPWRD 01442000 XINSRID EQU XINSRQID+1 01443000 XINSRLEN EQU XINSRQID 01444000 XINSNAME EQU XINSNTNM+2 01445000 XINSNLEN EQU XINSNTNM+1 01446000 XINSMODE EQU XINSFIXD+4 01447000 XINSTYPE EQU XINSFMTP 01448000 XINSFMT EQU XINSFMTP 01449000 XINSREQ EQU XINSCODE+2 01450000 XINSSESS EQU XINSCODE+1 01451000 XINSNETS EQU XINSCODE 01452000 XNSPSNME EQU XNSPCMD+11 01453000 XNSPREQ EQU XNSPCODE+2 01454000 XNSPSESS EQU XNSPCODE+1 01455000 XNSPNETS EQU XNSPCODE 01456000 XCINUSFD EQU XCINUFLD+1 01457000 XCINULEN EQU XCINUFLD 01458000 XCINPSWD EQU XCINPWRD+1 01459000 XCINPLEN EQU XCINPWRD 01460000 XCINRID EQU XCINRQID+1 01461000 XCINRLEN EQU XCINRQID 01462000 XCINNAME EQU XCINNTNM+2 01463000 XCINNLEN EQU XCINNTNM+1 01464000 XCINNTYP EQU XCINNTNM 01465000 XCINBIMG EQU XCINVAR 01466000 XCINREQ EQU XCINCODE+2 01467000 XCINSESS EQU XCINCODE+1 01468000 XCINNETS EQU XCINCODE 01469000 TRMOPT EQU IEDTRM+34 01470000 TRMOPTBL EQU IEDQTRM+18 01471000 TRMOPNO EQU IEDQTRM+17 01472000 TRMCHCIN EQU IEDQTRM+16 01473000 TRMSENSE EQU TRMSTAT+3 01474000 TRMTEMPR EQU TRMSTAT+2 01475000 TRMSIO EQU TRMSTAT 01476000 @NM00184 EQU TRMDEVFL+1 01477000 TRMTPIN EQU TRMDEVFL+1 01478000 TRMNCPI EQU TRMDEVFL+1 01479000 TRMRNTRM EQU TRMDEVFL+1 01480000 @NM00183 EQU TRMDEVFL+1 01481000 TRMLMD EQU TRMDEVFL+1 01482000 TRMCONC EQU TRMDEVFL+1 01483000 TRMTSOB EQU TRMDEVFL 01484000 TRMBFDY EQU TRMDEVFL 01485000 TRMTBLK EQU TRMDEVFL 01486000 TRMSBLK EQU TRMDEVFL 01487000 TRMBLKS EQU TRMDEVFL 01488000 TRMADDC EQU TRMDEVFL 01489000 TRMDDIG EQU TRMDEVFL 01490000 TRMBUFS EQU TRMDEVFL 01491000 TRMPRILK EQU TRMALTD 01492000 TRMLGB EQU TRMDSORG 01493000 TRMUTERM EQU TLISTCNT 01494000 TRMDESTQ EQU IEDQTRM+1 01495000 TRMSCNYN EQU TRMSTATE 01496000 TRMOPTFN EQU TRMSTATE 01497000 TRMHELDN EQU TRMSTATE 01498000 TRMACPTN EQU TRMSTATE 01499000 TRMPREF EQU TRMSTATE 01500000 TRMPROC EQU TRMLOG 01501000 TRMLIST EQU TRMLOG 01502000 TRMLINE EQU TRMSTATE 01503000 TRMSUBST EQU IEDNTRM+12 01504000 TRMTYPE EQU IEDNTRM+11 01505000 TRMRLMCT EQU IEDNTRM+10 01506000 TRMCOHTG EQU TRMSIBPT+1 01507000 TRMGPCNT EQU TRMSIBPT 01508000 TRMBUFRD EQU TRMBYTE0 01509000 TRMSNA EQU TRMBYTE0 01510000 TRMGP EQU TRMBYTE0 01511000 TRMDIAL EQU TRMBYTE0 01512000 @NM00182 EQU TRMBYTE0 01513000 TRMOUTPT EQU TRMBYTE0 01514000 TRMINPUT EQU TRMBYTE0 01515000 TRMUDEF EQU TRMBYTE0 01516000 TRMCOHRT EQU IEDNTRM+4 01517000 TRMSTOTE EQU TRMBYTE1 01518000 TRMCKPRN EQU TRMBYTE1 01519000 TRMTSATN EQU TRMBYTE1 01520000 TRMTRACE EQU TRMBYTE1 01521000 TRMSWBCK EQU TRMBYTE1 01522000 TRMAUTOC EQU TRMBYTE1 01523000 TRMINPTP EQU TRMBYTE1 01524000 TRMWTNEG EQU TRMSCPRQ 01525000 TRMWRBRK EQU TRMBYTE2 01526000 TRMNOSND EQU TRMBYTE2 01527000 TRMPREP EQU TRMBYTE2 01528000 TRMGPACT EQU TRMBYTE2 01529000 TRMANDL EQU TRMBYTE2 01530000 TRMCLOSN EQU TRMINPG 01531000 TRMREMB EQU TRMBYTE2 01532000 TRMRSACT EQU TRMBYTE2 01533000 TTHTAG2 EQU TTHTAG+1 01534000 @NM00181 EQU TTHTAG1 01535000 TTHTAGS EQU TTHTAG1 01536000 TTHEFI EQU TTHBYTE0 01537000 @NM00180 EQU TTHBYTE0 01538000 TTHEBIU EQU TTHBYTE0 01539000 TTHBBIU EQU TTHBYTE0 01540000 TTHFTYPE EQU TTHBYTE0 01541000 TNTTRMAD EQU IEDTNTA 01542000 TNTLEN EQU IEDQTNTD+44 01543000 TNTMIDEN EQU IEDQTNTD+41 01544000 TNTENLEN EQU IEDQTNTD+40 01545000 TNTSRCHX EQU IEDQTNTD+38 01546000 SNSUSR2 EQU SNSUSER+1 01547000 SNSUSR1 EQU SNSUSER 01548000 SNSMIN EQU SNSSYSTM+1 01549000 SNSMAJ EQU SNSSYSTM 01550000 @NM00179 EQU TRHBYTE2 01551000 @NM00178 EQU TRHBYTE2 01552000 @NM00177 EQU TRHBYTE2 01553000 TRHCSI EQU TRHBYTE2 01554000 @NM00176 EQU TRHBYTE2 01555000 TRHCDI EQU TRHBYTE2 01556000 TRHEB EQU TRHBYTE2 01557000 TRHBB EQU TRHBYTE2 01558000 TRHPI EQU TRHBYTE1 01559000 @NM00175 EQU TRHBYTE1 01560000 @NM00174 EQU TRHBYTE1 01561000 @NM00173 EQU TRHBYTE1 01562000 @NM00172 EQU TRHBYTE1 01563000 TRHEC EQU TRHBYTE0 01564000 TRHBC EQU TRHBYTE0 01565000 @NM00171 EQU TRHBYTE0 01566000 TRHRUCAT EQU TRHBYTE0 01567000 REQRCD2 EQU REQRCDS+1 01568000 REQRCD1 EQU REQRCDS 01569000 REQSWTCH EQU REQROUTE+1 01570000 REQFLAG EQU REQROUTE 01571000 REQRQCBA EQU IEDREQD+9 01572000 REQRPRI EQU IEDREQD+8 01573000 REQLINK EQU IEDREQD+5 01574000 REQPRI EQU IEDREQD+4 01575000 REQQCBA EQU IEDREQD+1 01576000 REQTYPE EQU IEDREQD 01577000 @NM00170 EQU IEDPRUND+4 01578000 PRUTHEFI EQU PRUFIDN 01579000 PRUTHEIU EQU PRUFIDN 01580000 PRUTHBIU EQU PRUFIDN 01581000 PRUTHTYE EQU PRUFIDN 01582000 @NM00169 EQU PRURHFG2 01583000 PRURHCSI EQU PRURHFG2 01584000 @NM00168 EQU PRURHFG2 01585000 PRURHCDI EQU PRURHFG2 01586000 PRURHEB EQU PRURHFG2 01587000 PRURHBB EQU PRURHFG2 01588000 PRURHPI EQU PRURHFG1 01589000 @NM00167 EQU PRURHFG1 01590000 PRURHER EQU PRURHFG1 01591000 PRURHDR2 EQU PRURHFG1 01592000 @NM00166 EQU PRURHFG1 01593000 PRURHDR1 EQU PRURHFG1 01594000 PRURHEC EQU PRURHFG0 01595000 PRURHBC EQU PRURHFG0 01596000 PRURHSDI EQU PRURHFG0 01597000 PRURHFI EQU PRURHFG0 01598000 @NM00165 EQU PRURHFG0 01599000 PRURUCAT EQU PRURHFG0 01600000 PRURHTYP EQU PRURHFG0 01601000 PRUNUNIT EQU PRUTIC+1 01602000 @NM00164 EQU PRUTIC 01603000 @NM00163 EQU IEDPRUQD+4 01604000 @NM00162 EQU PROFLAG 01605000 PRODATE EQU PROFLAG 01606000 PROLU EQU PROFLAG 01607000 PROSECQ EQU PROFLAG 01608000 PROLEN EQU IEDPROC 01609000 PRF2SEQP EQU PRF2WD2 01610000 @NM00161 EQU IEDPF2+1 01611000 @NM00160 EQU PRF2FLG2 01612000 PRF2TERM EQU PRF2FLG2 01613000 PRF2SMI EQU PRF2FLG2 01614000 PRF2FORM EQU PRF2FLG2 01615000 PRF1RULN EQU PRF1SEQP+2 01616000 PRF1TAG2 EQU PRF1SQID+1 01617000 @NM00159 EQU PRF1TAG1 01618000 PRF1TAGS EQU PRF1TAG1 01619000 @NM00158 EQU PRF1FLG1 01620000 PRF1LOGD EQU PRF1FLG1 01621000 PRF1FORM EQU PRF1FLG1 01622000 PRF1EXPI EQU PRF1FLG1 01623000 PRF1FIDI EQU PRF1FLG1 01624000 PRFDEST EQU IEDQPRF+40 01625000 PRFISEQ EQU IEDQPRF+38 01626000 PRFSTXT EQU PRFHQBCK 01627000 PRFNHDR EQU PRFCHDR 01628000 PRFCRCD EQU IEDQPRF+29 01629000 PRFSVSEQ EQU PRFNTXT+1 01630000 PRFSVPRI EQU PRFEOBOF 01631000 @NM00157 EQU PRFSCAN 01632000 PRFEOB EQU PRFXTRA+1 01633000 PRFSTSO EQU PRFXTRA 01634000 PRFNHDRN EQU PRFSTAT1 01635000 PRFNLSTN EQU PRFSTAT1 01636000 PRFLOCK EQU PRFEOFN 01637000 PRFDUPLN EQU PRFSTAT1 01638000 PRFTSMSG EQU PRFSTAT1 01639000 PRFITCPN EQU PRFSTAT1 01640000 PRFERMGN EQU PRFSTAT1 01641000 PRFCNCLN EQU PRFSTAT1 01642000 PRFSVFLG EQU @NM00156+3 01643000 PRFSRCE EQU PRFSVFFO 01644000 PRFLCB EQU IEDQPRF+13 01645000 @NM00155 EQU PRFTICC 01646000 @NM00154 EQU PRFTICC 01647000 @NM00153 EQU PRFTICC 01648000 PRFTICON EQU PRFTICC 01649000 @NM00152 EQU PRFTICC 01650000 @NM00151 EQU PRFTICC 01651000 PRFBFMM EQU PRFTICC 01652000 PRFEOMSG EQU PRFTICC 01653000 PRFCOUNT EQU PRFLINK+1 01654000 @NM00150 EQU PRFLINK 01655000 PRFFLAGS EQU PRFPRI 01656000 PRFIOADR EQU PRFQCBA 01657000 PRFOPCDE EQU PRFKEY 01658000 PLMVFLG2 EQU IEDPLMV+19 01659000 @NM00149 EQU PLMVFLG1 01660000 PLMVTCTG EQU PLMVFLG1 01661000 @NM00148 EQU OCLDNME+4 01662000 @NM00147 EQU OCPREFLG 01663000 OCTOTEP EQU OCPREFLG 01664000 OCREPOST EQU OCPREFLG 01665000 OCRSPSNT EQU OCPREFLG 01666000 OCBFREQ EQU OCPREFLG 01667000 OCIDLE EQU OCREQFLG 01668000 OCFORCE EQU OCREQFLG 01669000 OCDCARD EQU OCREQFLG 01670000 OCPARTAL EQU OCREQFLG 01671000 OCADNCP EQU OCREQFLG 01672000 @NM00146 EQU OCREQFLG 01673000 @NM00145 EQU OCREQFLG 01674000 OCFLUSHZ EQU OCREQFLG 01675000 OCRESPCT EQU OCLINTTE 01676000 OCCKPTWA EQU OCCKDATA+4 01677000 @NM00142 EQU OCRSTGTM+2 01678000 OCCKDAT2 EQU OCRSTGTM+1 01679000 OCCKDAT1 EQU OCRSTGTM 01680000 OCPTRSAV EQU OCMODNME+4 01681000 OCPUADR EQU OCIPLWA+2 01682000 OCWTGSAV EQU OCIPLWA 01683000 OCDVRDCT EQU OCBACKUP+6 01684000 OCNCP EQU OCBACKUP+4 01685000 OCBUFGOT EQU OCBACKUP+2 01686000 OCBUFNED EQU OCBACKUP 01687000 OCRESNUM EQU OCPARM 01688000 OCSEQ EQU OCTRUNIT+2 01689000 @NM00141 EQU OCRSID+1 01690000 OCNONE EQU OCALSTAT 01691000 OCSOME EQU OCALSTAT 01692000 OCALLFLG EQU OCALSTAT 01693000 OCREDRVE EQU OCALSTAT 01694000 OCSEQIND EQU OCALSTAT 01695000 @NM00140 EQU OCALSTAT 01696000 OCRENTRD EQU OCALSTAT 01697000 OCWTGB EQU OCTIOT 01698000 OCTRMTBL EQU IEDQOPCE+20 01699000 @NM00139 EQU @NM00138+2 01700000 OCCONID EQU OCDEST 01701000 OCRLN EQU IEDQOPCE+15 01702000 OCRESP EQU OCFLAG 01703000 OCATTACH EQU OCFLAG 01704000 OCSSCP EQU OCFLAG 01705000 OCOUTPUT EQU OCFLAG 01706000 OCLINE EQU OCFLAG 01707000 OCMPP EQU OCFLAG 01708000 OCTOTE EQU OCFLAG 01709000 OCCONSOL EQU OCFLAG 01710000 @NM00137 EQU OCSWITCH 01711000 OCQUCKN EQU OCSWITCH 01712000 OCPRIFLG EQU OCOPTCDE 01713000 @NM00136 EQU OCRUDEST+1 01714000 @NM00135 EQU OCSCAN 01715000 OCNOTUCB EQU OCSCAN 01716000 OCNONAME EQU OCSCAN 01717000 OCALLRLN EQU OCSCAN 01718000 OCDDNAME EQU OCSCAN 01719000 OCDDNRLN EQU OCSCAN 01720000 OCADDR EQU OCSCAN 01721000 OCELMPTR EQU OCELEM+1 01722000 OCLINK EQU IEDQOPCE 01723000 OPCBOTTM EQU IEDQOPCD+1184 01724000 @NM00134 EQU IEDQOPCD+1100 01725000 @NM00133 EQU IEDQOPCD+948 01726000 @NM00132 EQU IEDQOPCD+940 01727000 @NM00131 EQU IEDQOPCD+380 01728000 @NM00130 EQU OPCPWCOB+9 01729000 @NM00129 EQU OPCPWCOB+8 01730000 @NM00128 EQU OPCPWECB+1 01731000 OPCPWCCC EQU OPCPWECB 01732000 OPCPWCHN EQU OPCPWQCB+1 01733000 OPCPWVTO EQU OPCPWQCB 01734000 OPCWAITV EQU IEDQOPCD+364 01735000 OPCTOTCK EQU IEDQOPCD+360 01736000 OPCAPXTL EQU IEDQOPCD+356 01737000 OPCDECR EQU IEDQOPCD+352 01738000 OPCBUFWT EQU IEDQOPCD+348 01739000 OPCWRKSP EQU IEDQOPCD+320 01740000 OPCADGOT EQU IEDQOPCD+318 01741000 OPCRQCNT EQU IEDQOPCD+316 01742000 OPPOLSTP EQU IEDQOPCD+312 01743000 OPCCKCIB EQU IEDQOPCD+308 01744000 OPCEND EQU IEDQOPCD+307 01745000 OPCSTCBS EQU IEDQOPCD+306 01746000 OPCHNEND EQU IEDQOPCD+302 01747000 OPCOQSW EQU IEDQOPCD+301 01748000 @NM00127 EQU OPCSPEC 01749000 @NM00126 EQU OPCSPEC 01750000 @NM00125 EQU OPCSPEC 01751000 @NM00124 EQU OPCSPEC 01752000 OPCFRMCA EQU OPCSPEC 01753000 OPCRSTRT EQU OPCSPEC 01754000 OPCPART EQU OPCSPEC 01755000 OPCALTD EQU OPCSPEC 01756000 OPCBFEND EQU IEDQOPCD+296 01757000 OPCBFIRS EQU IEDQOPCD+292 01758000 OPCAVBUF EQU IEDQOPCD+290 01759000 OPCIPLCT EQU IEDQOPCD+289 01760000 OPCCLNTS EQU IEDQOPCD+288 01761000 OPCHA8 EQU IEDQOPCD+286 01762000 OPCBFREQ EQU IEDQOPCD+284 01763000 OPCNEXT EQU IEDQOPCD+272 01764000 OPCFMDFC EQU IEDQOPCD+268 01765000 OPCSCNC EQU IEDQOPCD+264 01766000 OPCHORTG EQU IEDQOPCD+260 01767000 OPCHORT EQU IEDQOPCD+256 01768000 OPCCKPTL EQU IEDQOPCD+252 01769000 OPCCKPTF EQU IEDQOPCD+248 01770000 OPCWAITA EQU IEDQOPCD+244 01771000 OPCWAITR EQU IEDQOPCD+240 01772000 OPCWAITP EQU IEDQOPCD+236 01773000 OPCWAITO EQU IEDQOPCD+232 01774000 OPCWAITN EQU IEDQOPCD+228 01775000 OPCWAITL EQU IEDQOPCD+224 01776000 OPCWAITC EQU IEDQOPCD+220 01777000 @NM00123 EQU OPCLDNME+5 01778000 @NM00122 EQU OPCLDNME 01779000 OPCWAIT EQU IEDQOPCD+192 01780000 OPCCKERB EQU IEDQOPCD+164 01781000 OPCBFERB EQU IEDQOPCD+148 01782000 OPCFLAG2 EQU IEDQOPCD+147 01783000 OPCFLAG1 EQU IEDQOPCD+146 01784000 OPCWRKSZ EQU IEDQOPCD+144 01785000 OPCRSAVE EQU IEDQOPCD+132 01786000 OPCQCBAD EQU IEDQOPCD+128 01787000 OPCTRMWA EQU IEDQOPCD+52 01788000 OPCPSTWT EQU IEDQOPCD+48 01789000 OPCTNTEA EQU IEDQOPCD+44 01790000 OPCPGCK EQU IEDQOPCD+40 01791000 OPCLCB EQU IEDQOPCD+36 01792000 @NM00121 EQU IEDQOPCD+32 01793000 OPCIPLAD EQU IEDQOPCD+28 01794000 OPCTOFLK EQU IEDQOPCD+24 01795000 OPCOPTLK EQU IEDQOPCD+20 01796000 OPCDCBLK EQU IEDQOPCD+16 01797000 OPCDOUBL EQU IEDQOPCD 01798000 BNDUSD EQU IEDBNDD+37 01799000 BNDPLUN EQU IEDBNDD+28 01800000 BNDPLUNL EQU IEDBNDD+27 01801000 BNDCRYP EQU IEDBNDD+26 01802000 @NM00120 EQU IEDBNDD+25 01803000 BNDSCSZE EQU BNDPSCH+9 01804000 @NM00119 EQU BNDPSCH 01805000 BNDLUTYP EQU BNDLUPFL 01806000 BNDPSF EQU BNDLUPFL 01807000 @NM00118 EQU IEDBNDD+13 01808000 BNDPSPC EQU IEDBNDD+12 01809000 @NM00117 EQU BNDPMSRU 01810000 BNDNMAXP EQU BNDPMSRU 01811000 @NM00116 EQU BNDSMSRU 01812000 BNDNMAX EQU BNDSMSRU 01813000 BNDSRPC EQU IEDBNDD+9 01814000 BNDSSPC EQU IEDBNDD+8 01815000 BNDCRES EQU BNDCOMM2 01816000 @NM00115 EQU BNDCOMM2 01817000 @NM00114 EQU BNDCOMM2 01818000 @NM00113 EQU BNDCOMM2 01819000 BNDSPKR EQU BNDCOMM2 01820000 BNDRECOV EQU BNDCOMM2 01821000 BNDFMODE EQU BNDCOMM2 01822000 @NM00112 EQU BNDCOMM1 01823000 @NM00111 EQU BNDCOMM1 01824000 @NM00110 EQU BNDCOMM1 01825000 BNDALT EQU BNDCOMM1 01826000 BNDBTERM EQU BNDCOMM1 01827000 BNDBRACK EQU BNDCOMM1 01828000 BNDFMUSE EQU BNDCOMM1 01829000 @NM00109 EQU BNDCOMM1 01830000 BNDSEBI EQU BNDSECD 01831000 BNDSCMP EQU BNDSECD 01832000 @NM00108 EQU BNDSECD 01833000 @NM00107 EQU BNDSECD 01834000 BNDSEXC EQU BNDSECD 01835000 BNDSDEF EQU BNDSECD 01836000 BNDSRQM EQU BNDSECD 01837000 BNDSCHN EQU BNDSECD 01838000 BNDPEBI EQU BNDPRIM 01839000 BNDPCMP EQU BNDPRIM 01840000 @NM00106 EQU BNDPRIM 01841000 @NM00105 EQU BNDPRIM 01842000 BNDPEXC EQU BNDPRIM 01843000 BNDPDEF EQU BNDPRIM 01844000 BNDPRQM EQU BNDPRIM 01845000 BNDPCHN EQU BNDPRIM 01846000 BNDTSPRF EQU IEDBNDD+3 01847000 BNDFMPRF EQU IEDBNDD+2 01848000 BNDFORMT EQU IEDBNDD+1 01849000 BNDRUCDE EQU IEDBNDD 01850000 BINLDAT EQU BINBLD+1 01851000 BINUDAT EQU BINBUD+1 01852000 BINIMAGE EQU IEDBIN+10 01853000 BINNAME EQU IEDBIN 01854000 SAVTBITN EQU IEDNSVTD+312 01855000 @NM00104 EQU SAVTCKQB+8 01856000 @NM00103 EQU SAVTCKEC+1 01857000 @NM00102 EQU SAVTCKCC 01858000 SAVTCKPO EQU SAVTCKCC 01859000 SAVTCKWA EQU SAVTCKCC 01860000 SAVTCKCH EQU SAVTCKTB+1 01861000 SAVTCKVT EQU SAVTCKTB 01862000 @NM00101 EQU IEDNSVTD+297 01863000 SAVTRDFG EQU SAVTRDRV+12 01864000 @NM00100 EQU SAVTRDRV+5 01865000 SAVTRDPY EQU SAVTRDRV+4 01866000 SAVTRDQB EQU SAVTRDRV+1 01867000 SAVTRDKY EQU SAVTRDRV 01868000 SAVTNID EQU IEDNSVTD+280 01869000 SAVTDVAS EQU IEDNSVTD+276 01870000 SAVTPLSZ EQU IEDNSVTD+274 01871000 @NM00099 EQU IEDNSVTD+273 01872000 SAVTSUBL EQU IEDNSVTD+272 01873000 @NM00098 EQU SAVTZELM+1 01874000 SAVTSUBM EQU SAVTZELM 01875000 SAVTMHDX EQU IEDNSVTD+268 01876000 SAVTNAT1 EQU IEDNSVTD+266 01877000 SAVTSH20 EQU IEDNSVTD+264 01878000 SAVTLCBS EQU IEDNSVTD+260 01879000 SAVTRNMP EQU IEDNSVTD+256 01880000 SAVTNAX EQU IEDNSVTD+248 01881000 SAVTSUBV EQU IEDNSVTD+247 01882000 SAVTSUBA EQU IEDNSVTD+246 01883000 SAVTSIBC EQU IEDNSVTD+244 01884000 SAVTBSM EQU IEDNSVTD+240 01885000 SAVTRQTG EQU IEDNSVTD+236 01886000 SAVTRQCH EQU IEDNSVTD+232 01887000 SAVTMAND EQU IEDNSVTD+228 01888000 SAVTSPLN EQU IEDNSVTD+224 01889000 SAVTNADL EQU IEDNSVTD+222 01890000 SAVTNATL EQU IEDNSVTD+220 01891000 SAVTMHTB EQU IEDNSVTD+216 01892000 SAVTSSMH EQU IEDNSVTD+212 01893000 SAVTQRS EQU IEDNSVTD+208 01894000 SAVTRQIN EQU IEDNSVTD+204 01895000 SAVTSAO EQU IEDNSVTD+196 01896000 SAVTSARI EQU IEDNSVTD+192 01897000 SAVTSAC EQU IEDNSVTD+188 01898000 SAVTSAI EQU IEDNSVTD+184 01899000 SAVTCSCI EQU IEDNSVTD+180 01900000 SAVTSSRP EQU IEDNSVTD+176 01901000 SAVTSSRQ EQU IEDNSVTD+172 01902000 SAVTSCLU EQU IEDNSVTD+168 01903000 SAVTXTRQ EQU IEDNSVTD+164 01904000 @NM00097 EQU IEDNSVTD+148 01905000 SAVTIPCQ EQU IEDNSVTD+144 01906000 @NM00096 EQU IEDNSVTD+136 01907000 SAVTXFMI EQU IEDNSVTD+132 01908000 @NM00095 EQU IEDNSVTD+124 01909000 SAVTXFMO EQU IEDNSVTD+120 01910000 @NM00094 EQU IEDNSVTD+116 01911000 SAVTSSSR EQU IEDNSVTD+112 01912000 SAVTSCPQ EQU IEDNSVTD+108 01913000 SAVTSLCB EQU IEDNSVTD+104 01914000 SAVTLUSR EQU IEDNSVTD+100 01915000 @NM00093 EQU SAVTLUSQ+8 01916000 SAVTLUSP EQU SAVTLUSQ+4 01917000 SAVTLUSB EQU SAVTLUSQ 01918000 @NM00092 EQU IEDNSVTD+84 01919000 SAVTSAT EQU IEDNSVTD+80 01920000 SAVTNAT EQU IEDNSVTD+76 01921000 SAVTCLUP EQU IEDNSVTD+72 01922000 SAVTPIUT EQU IEDNSVTD+68 01923000 SAVTRNTA EQU IEDNSVTD+64 01924000 SAVTDNIR EQU IEDNSVTD+60 01925000 SAVTCNIR EQU IEDNSVTD+56 01926000 SAVTFLDH EQU IEDNSVTD+52 01927000 SAVTSRTN EQU IEDNSVTD+48 01928000 SAVTSREQ EQU IEDNSVTD+44 01929000 SAVTFAIL EQU IEDNSVTD+42 01930000 SAVTSUSE EQU IEDNSVTD+40 01931000 SAVTSIB EQU IEDNSVTD+36 01932000 SAVTPRTN EQU IEDNSVTD+32 01933000 @NM00091 EQU IEDNSVTD+28 01934000 SAVTWH20 EQU IEDNSVTD+26 01935000 SAVTPWT EQU IEDNSVTD+24 01936000 SAVTPRTQ EQU IEDNSVTD+20 01937000 SAVTPREQ EQU IEDNSVTD+16 01938000 SAVTPH20 EQU IEDNSVTD+14 01939000 SAVTPUSE EQU IEDNSVTD+12 01940000 SAVTPLCB EQU IEDNSVTD+8 01941000 SAVTPOOL EQU IEDNSVTD+4 01942000 SAVTPRMT EQU SAVTDIAF 01943000 SAVTVIRT EQU SAVTDIAF 01944000 AVTCPBNO EQU IEDQAVTD+1244 01945000 AVTHRESS EQU IEDQAVTD+1243 01946000 @NM00090 EQU IEDQAVTD+1242 01947000 @NM00089 EQU IEDQAVTD+1241 01948000 @NM00088 EQU IEDQAVTD+1240 01949000 @NM00087 EQU IEDQAVTD+1237 01950000 @NM00086 EQU IEDQAVTD+1236 01951000 AVTHRESE EQU @NM00085 01952000 AVTRADDR EQU IEDQAVTD+1228 01953000 AVTNADDR EQU IEDQAVTD+1224 01954000 AVTHRESN EQU IEDQAVTD+1220 01955000 AVTVOLRN EQU IEDQAVTD+1216 01956000 AVTTOTNN EQU IEDQAVTD+1212 01957000 AVTTRCYN EQU IEDQAVTD+1208 01958000 AVTRCTRN EQU IEDQAVTD+1204 01959000 AVTNOVON EQU IEDQAVTD+1200 01960000 AVTADEBN EQU IEDQAVTD+1196 01961000 AVTVOLRR EQU IEDQAVTD+1192 01962000 AVTTOTNR EQU IEDQAVTD+1188 01963000 AVTTRCYR EQU IEDQAVTD+1184 01964000 AVTRCTRR EQU IEDQAVTD+1180 01965000 AVTNOVOR EQU IEDQAVTD+1176 01966000 AVTADEBR EQU IEDQAVTD+1172 01967000 AVTLODPT EQU IEDQAVTD+1168 01968000 AVTIOBN EQU IEDQAVTD+1164 01969000 AVTIOBR EQU IEDQAVTD+1160 01970000 AVTCPBPT EQU IEDQAVTD+1156 01971000 AVTFCPB EQU IEDQAVTD+1152 01972000 @NM00084 EQU IEDQAVTD+1148 01973000 AVTINCPQ EQU IEDQAVTD+1144 01974000 @NM00083 EQU IEDQAVTD+1140 01975000 @NM00082 EQU IEDQAVTD+1137 01976000 @NM00081 EQU AVTBIT4 01977000 @NM00080 EQU AVTBIT4 01978000 @NM00079 EQU AVTBIT4 01979000 @NM00078 EQU AVTBIT4 01980000 @NM00077 EQU AVTBIT4 01981000 @NM00076 EQU AVTBIT4 01982000 @NM00075 EQU AVTBIT4 01983000 AVTRUFTN EQU AVTBIT4 01984000 @NM00074 EQU IEDQAVTD+1132 01985000 AVTNOBFQ EQU IEDQAVTD+1128 01986000 @NM00073 EQU IEDQAVTD+1124 01987000 AVTDKENQ EQU IEDQAVTD+1120 01988000 @NM00072 EQU IEDQAVTD+1116 01989000 AVTDKAPQ EQU IEDQAVTD+1112 01990000 AVTCOPY EQU IEDQAVTD+1108 01991000 AVTIA EQU IEDQAVTD+1104 01992000 AVTFL EQU IEDQAVTD+1100 01993000 @NM00071 EQU IEDQAVTD+1096 01994000 AVTNCPBQ EQU IEDQAVTD+1092 01995000 AVTTOTNC EQU IEDQAVTD+1088 01996000 AVTCMAX EQU IEDQAVTD+1084 01997000 AVTCMIN EQU IEDQAVTD+1080 01998000 AVTHM02 EQU IEDQAVTD+1076 01999000 AVTOPCIN EQU IEDQAVTD+1074 02000000 AVTDCTLN EQU IEDQAVTD+1072 02001000 AVTOPMSK EQU IEDQAVTD+1068 02002000 AVTDDFT EQU IEDQAVTD+1064 02003000 AVTSTEAL EQU IEDQAVTD+1060 02004000 AVTOPTN EQU IEDQAVTD+1056 02005000 AVTDSKCT EQU IEDQAVTD+1054 02006000 AVTCKRST EQU IEDQAVTD+1053 02007000 AVTSTAN EQU AVTBIT3 02008000 AVTSTACN EQU AVTBIT3 02009000 AVTSTAIN EQU AVTBIT3 02010000 AVTSTAYN EQU AVTBIT3 02011000 AVTOLTBN EQU AVTBIT3 02012000 AVTTSAB EQU AVTBIT3 02013000 AVTRFULN EQU AVTBIT3 02014000 AVTRECVN EQU AVTBIT3 02015000 @NM00070 EQU AVTBIT2 02016000 @NM00069 EQU AVTBIT2 02017000 AVTOPEIN EQU AVTBIT2 02018000 AVTSTRTN EQU AVTBIT2 02019000 AVTTOPOL EQU AVTBIT2 02020000 AVTCOPYN EQU AVTBIT2 02021000 AVTREUSN EQU AVTBIT2 02022000 AVTEXTSC EQU AVTBIT2 02023000 AVTDISKN EQU AVTBIT1 02024000 AVTQUCKN EQU AVTBIT1 02025000 AVTCLOSN EQU AVTBIT1 02026000 AVTREADN EQU AVTBIT1 02027000 AVTDLAYN EQU AVTBIT1 02028000 AVTAQTAN EQU AVTBIT1 02029000 AVTTSON EQU AVTBIT1 02030000 AVTAPLKN EQU AVTBIT1 02031000 AVTDUMBR EQU IEDQAVTD+1048 02032000 AVTDLQX EQU IEDQAVTD+1046 02033000 AVTINTLV EQU IEDQAVTD+1044 02034000 AVTSMCNT EQU IEDQAVTD+1042 02035000 AVTAVFCT EQU IEDQAVTD+1040 02036000 AVTOPCON EQU IEDQAVTD+1038 02037000 AVTOPCNT EQU IEDQAVTD+1036 02038000 AVTLNCNT EQU IEDQAVTD+1034 02039000 AVTHA16 EQU IEDQAVTD+1030 02040000 AVTHA7 EQU IEDQAVTD+1028 02041000 AVTHA4 EQU IEDQAVTD+1026 02042000 AVTHA3 EQU IEDQAVTD+1024 02043000 AVTHA2 EQU IEDQAVTD+1022 02044000 AVTGETMS EQU IEDQAVTD+1021 02045000 @NM00068 EQU IEDQAVTD+1020 02046000 AVTGETMD EQU IEDQAVTD+1016 02047000 AVTGETMN EQU IEDQAVTD+1012 02048000 AVTCWTOT EQU IEDQAVTD+1008 02049000 AVTCWINT EQU IEDQAVTD+956 02050000 AVTDTRAP EQU IEDQAVTD+952 02051000 @NM00067 EQU IEDQAVTD+950 02052000 @NM00066 EQU AVTIOTR 02053000 AVTIOTRH EQU AVTIOTR 02054000 AVTIOTRE EQU AVTIOTR 02055000 @NM00065 EQU AVTSUBT 02056000 AVTSUBPT EQU AVTSUBT 02057000 AVTSUBON EQU AVTSUBT 02058000 AVTAFE30 EQU IEDQAVTD+944 02059000 AVTAFE20 EQU IEDQAVTD+940 02060000 AVTAFE10 EQU IEDQAVTD+936 02061000 AVTCWEC2 EQU IEDQAVTD+932 02062000 AVTCWPM2 EQU IEDQAVTD+928 02063000 AVTCWTS2 EQU IEDQAVTD+927 02064000 AVTCWTS1 EQU IEDQAVTD+926 02065000 AVTCWCLD EQU AVTCWFL2 02066000 AVTCWRAP EQU AVTCWFL2 02067000 @NM00064 EQU AVTCWFL2 02068000 @NM00063 EQU AVTCWFL2 02069000 @NM00062 EQU AVTCWFL2 02070000 @NM00061 EQU AVTCWFL2 02071000 @NM00060 EQU AVTCWFL2 02072000 AVTCWACT EQU AVTCWFL2 02073000 @NM00059 EQU AVTCWFL1 02074000 @NM00058 EQU AVTCWFL1 02075000 @NM00057 EQU AVTCWFL1 02076000 @NM00056 EQU AVTCWFL1 02077000 @NM00055 EQU AVTCWFL1 02078000 @NM00054 EQU AVTCWFL1 02079000 @NM00053 EQU AVTCWFL1 02080000 AVTCOMWN EQU AVTCWFL1 02081000 AVTCWEC1 EQU IEDQAVTD+920 02082000 AVTCWPM1 EQU IEDQAVTD+916 02083000 AVTCAREA EQU IEDQAVTD+912 02084000 AVTFZERO EQU IEDQAVTD+908 02085000 AVTCADDR EQU IEDQAVTD+904 02086000 AVTCOREC EQU IEDQAVTD+900 02087000 @NM00052 EQU IEDQAVTD+892 02088000 AVTCPBCB EQU IEDQAVTD+888 02089000 @NM00051 EQU IEDQAVTD+880 02090000 AVTDSIOB EQU IEDQAVTD+876 02091000 @NM00050 EQU IEDQAVTD+868 02092000 AVTCPRMB EQU IEDQAVTD+864 02093000 @NM00049 EQU IEDQAVTD+856 02094000 AVTCLOSB EQU IEDQAVTD+852 02095000 @NM00048 EQU IEDQAVTD+844 02096000 AVTACTIB EQU IEDQAVTD+840 02097000 @NM00047 EQU IEDQAVTD+836 02098000 AVTOLTEB EQU IEDQAVTD+832 02099000 AVTOLTCH EQU AVTOLTQB+1 02100000 AVTOLTVT EQU AVTOLTQB 02101000 @NM00046 EQU AVTOPCQB+8 02102000 @NM00045 EQU AVTOPCEC+1 02103000 @NM00044 EQU AVTOPCCC 02104000 AVTOPCPO EQU AVTOPCCC 02105000 AVTOPCWA EQU AVTOPCCC 02106000 AVTOPCCH EQU AVTOPCOB+1 02107000 AVTOPCVT EQU AVTOPCOB 02108000 @NM00043 EQU AVTCKPQB+9 02109000 AVTCKPTS EQU AVTCKPQB+8 02110000 @NM00042 EQU AVTCKPEC+1 02111000 @NM00041 EQU AVTCKPCC 02112000 AVTCKPPO EQU AVTCKPCC 02113000 AVTCKPWA EQU AVTCKPCC 02114000 AVTCKPCH EQU AVTCKPTB+1 02115000 AVTCKPVT EQU AVTCKPTB 02116000 @NM00040 EQU IEDQAVTD+796 02117000 AVTBFRTB EQU IEDQAVTD+792 02118000 @NM00039 EQU IEDQAVTD+784 02119000 AVTBFREB EQU IEDQAVTD+780 02120000 AVTTIMQ EQU IEDQAVTD+776 02121000 @NM00038 EQU IEDQAVTD+772 02122000 AVTIMQPS EQU IEDQAVTD+768 02123000 AVTINOUT EQU IEDQAVTD+766 02124000 AVTREFTM EQU IEDQAVTD+764 02125000 @NM00037 EQU IEDQAVTD+752 02126000 AVTDELYB EQU IEDQAVTD+748 02127000 AVTOCQPT EQU IEDQAVTD+744 02128000 AVTTSOPT EQU IEDQAVTD+740 02129000 AVTSUPPT EQU IEDQAVTD+736 02130000 AVTCBQCB EQU IEDQAVTD+732 02131000 AVTMSGS EQU IEDQAVTD+729 02132000 @NM00036 EQU AVTSYSER 02133000 @NM00035 EQU AVTSYSER 02134000 @NM00034 EQU AVTSYSER 02135000 @NM00033 EQU AVTSYSER 02136000 @NM00032 EQU AVTSYSER 02137000 @NM00031 EQU AVTSYSER 02138000 AVTCMAXN EQU AVTSYSER 02139000 AVTCMINN EQU AVTSYSER 02140000 AVT2260L EQU IEDQAVTD+724 02141000 AVTABEPL EQU AVTADBUF 02142000 AVTHFF EQU AVTCLRHI+2 02143000 @NM00030 EQU AVTCLRHI 02144000 AVTCCLNK EQU AVTCRELE+5 02145000 AVTCCPRI EQU AVTCRELE+4 02146000 AVTCCQCB EQU AVTCCELE+1 02147000 AVTCCKEY EQU AVTCCELE 02148000 AVTDELAD EQU IEDQAVTD+704 02149000 AVTDELEM EQU IEDQAVTD+700 02150000 AVTBSX EQU AVTCKLNK 02151000 AVTOPETR EQU AVTHG01 02152000 @NM00029 EQU AVTCKBYT 02153000 AVTCKONQ EQU AVTCKBYT 02154000 @NM00028 EQU AVTCKBYT 02155000 @NM00027 EQU AVTCKBYT 02156000 @NM00026 EQU AVTCKBYT 02157000 @NM00025 EQU AVTCKBYT 02158000 @NM00024 EQU AVTCKBYT 02159000 @NM00023 EQU AVTCKBYT 02160000 AVTOPERT EQU IEDQAVTD+690 02161000 AVTOPXCL EQU IEDQAVTD+688 02162000 AVTOPERL EQU IEDQAVTD+687 02163000 @NM00022 EQU IEDQAVTD+686 02164000 AVTCKTIM EQU IEDQAVTD+684 02165000 AVTCKELV EQU IEDQAVTD+682 02166000 AVTCPRCD EQU IEDQAVTD+681 02167000 AVTWARMN EQU AVTCKELF 02168000 AVTCRTLN EQU AVTCKELF 02169000 AVTCPIPN EQU AVTCKELF 02170000 AVTCCLCN EQU AVTCKELF 02171000 AVTCINCN EQU AVTCKELF 02172000 @NM00021 EQU AVTCKELF 02173000 AVTCMCPN EQU AVTCKELF 02174000 AVTNQBCK EQU AVTCKELF 02175000 AVTCKQAD EQU IEDQAVTD+677 02176000 AVTSCBSZ EQU IEDQAVTD+676 02177000 @NM00020 EQU IEDQAVTD+672 02178000 AVTCKELE EQU IEDQAVTD+668 02179000 @NM00019 EQU AVTCKPEL+8 02180000 AVTCKRLK EQU AVTCKPEL+5 02181000 AVTCKRPR EQU AVTCKPEL+4 02182000 AVTCKRMQ EQU AVTCKRMV+1 02183000 AVTCKRKY EQU AVTCKRMV 02184000 AVTHK EQU IEDQAVTD+648 02185000 AVTHI EQU IEDQAVTD+644 02186000 AVTIOT EQU IEDQAVTD+640 02187000 AVTNX EQU IEDQAVTD+636 02188000 AVTTONE EQU IEDQAVTD+632 02189000 AVTA3TL EQU IEDQAVTD+628 02190000 AVTDMECB EQU IEDQAVTD+624 02191000 AVTABEND EQU IEDQAVTD+618 02192000 AVTPLCBN EQU IEDQAVTD+616 02193000 @NM00018 EQU AVTSAVTP+1 02194000 @NM00017 EQU AVTSAVTF 02195000 AVTSNA EQU AVTSAVTF 02196000 AVTONSNA EQU AVTSAVTF 02197000 AVTVTMCP EQU AVTSAVTF 02198000 @NM00016 EQU IEDQAVTD+608 02199000 AVTCMBSS EQU IEDQAVTD+604 02200000 AVTRCV EQU IEDQAVTD+600 02201000 AVTSEND EQU IEDQAVTD+596 02202000 AVTCSCH EQU IEDQAVTD+592 02203000 AVTQ1 EQU IEDQAVTD+588 02204000 AVTE7 EQU IEDQAVTD+584 02205000 AVTHB EQU IEDQAVTD+580 02206000 AVTR1 EQU IEDQAVTD+576 02207000 AVTBZ EQU IEDQAVTD+572 02208000 AVTEZ EQU IEDQAVTD+568 02209000 AVTEC EQU IEDQAVTD+564 02210000 AVTEW EQU IEDQAVTD+560 02211000 AVTNDIAL EQU AVTSCOPT 02212000 AVTN2741 EQU AVTSCOPT 02213000 AVTCONCO EQU AVTSCOPT 02214000 AVTCONC EQU AVTSCOPT 02215000 AVTCMBUF EQU AVTSCOPT 02216000 AVTAPDMP EQU AVTSCOPT 02217000 @NM00015 EQU AVTSCOPT 02218000 AVTHA EQU AVTDISP 02219000 AVTEA EQU IEDQAVTD+548 02220000 AVTAX EQU IEDQAVTD+544 02221000 AVTA3 EQU IEDQAVTD+540 02222000 AVTGD EQU IEDQAVTD+536 02223000 AVTAL EQU IEDQAVTD+532 02224000 AVTOLTST EQU AVTHG02 02225000 AVTE8 EQU IEDQAVTD+524 02226000 AVTUI EQU IEDQAVTD+520 02227000 AVTCOMPT EQU IEDQAVTD+516 02228000 AVTCRSRF EQU IEDQAVTD+512 02229000 @NM00014 EQU IEDQAVTD+508 02230000 AVTKA02 EQU IEDQAVTD+504 02231000 AVTOPTPT EQU IEDQAVTD+500 02232000 AVTPCBPT EQU IEDQAVTD+496 02233000 @NM00013 EQU AVTECB1 02234000 AVTCOMP EQU AVTECB1 02235000 @NM00012 EQU AVTECB1 02236000 AVTOPECA EQU IEDQAVTD+488 02237000 AVTOLECA EQU IEDQAVTD+484 02238000 AVTCKECA EQU IEDQAVTD+480 02239000 AVTCWECA EQU IEDQAVTD+476 02240000 AVTCWTCB EQU IEDQAVTD+472 02241000 AVTOLTCB EQU IEDQAVTD+468 02242000 AVTOCTCB EQU IEDQAVTD+464 02243000 AVTCKTCB EQU IEDQAVTD+460 02244000 AVTAS EQU IEDQAVTD+456 02245000 AVTNOLBF EQU IEDQAVTD+454 02246000 AVTNCKPR EQU IEDQAVTD+453 02247000 AVTCIB EQU IEDQAVTD+452 02248000 AVTSPLPT EQU IEDQAVTD+448 02249000 AVTMVBFR EQU IEDQAVTD+444 02250000 AVTSBTA EQU IEDQAVTD+440 02251000 AVTRARTN EQU IEDQAVTD+436 02252000 AVTBSCAN EQU IEDQAVTD+432 02253000 AVTRDYA EQU IEDQAVTD+428 02254000 AVTDISTR EQU IEDQAVTD+420 02255000 AVTPARM3 EQU IEDQAVTD+416 02256000 @NM00011 EQU AVTPKF 02257000 @NM00010 EQU AVTPKF 02258000 @NM00009 EQU AVTPKF 02259000 AVTFTCHF EQU AVTPKF 02260000 @NM00008 EQU AVTPKF 02261000 @NM00007 EQU AVTPKF 02262000 @NM00006 EQU AVTPKF 02263000 @NM00005 EQU AVTPKF 02264000 AVTPARM EQU IEDQAVTD+408 02265000 AVTEXS2A EQU IEDQAVTD+402 02266000 AVTEXA2S EQU IEDQAVTD+396 02267000 AVTOCGET EQU IEDQAVTD+392 02268000 AVTCKAVT EQU @NM00003+1 02269000 @NM00004 EQU AVTCKFLG 02270000 AVTCKHLT EQU AVTCKFLG 02271000 AVTCKREQ EQU AVTCKFLG 02272000 AVTCKENV EQU AVTCKFLG 02273000 AVTCKNAC EQU AVTCKFLG 02274000 AVTCKTAC EQU AVTCKFLG 02275000 @NM00002 EQU IEDQAVTD+384 02276000 AVTREADD EQU IEDQAVTD+380 02277000 AVTREADY EQU IEDQAVTD+376 02278000 AVTRACE EQU IEDQAVTD+372 02279000 AVTTCB EQU IEDQAVTD+368 02280000 AVTPASWD EQU IEDQAVTD+360 02281000 AVTCTLCH EQU IEDQAVTD+352 02282000 AVTDOUBL EQU IEDQAVTD+344 02283000 AVTDOUBX EQU IEDQAVTD+336 02284000 AVTDPARM EQU IEDQAVTD+332 02285000 AVTCSTCS EQU IEDQAVTD+328 02286000 AVTDLQ EQU AVTSAVEX+32 02287000 @NM00001 EQU AVTSAVEX 02288000 AVTSAVE4 EQU IEDQAVTD+216 02289000 AVTSAVE3 EQU IEDQAVTD+144 02290000 AVTSAVE2 EQU IEDQAVTD+72 02291000 AVTSAVE1 EQU IEDQAVTD 02292000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02293000 @RF00562 EQU @RC00558 02294000 @RF00742 EQU @RC00739 02295000 @ENDDATA EQU * 02296000 END IGCAT10D,(C'PLS0013',0701,77146) 02297000