TITLE 'IGC0210D, RU DISPATCHER *00001000 ' 00002000 IGC0210D CSECT , 0001 00003000 @PROLOG BALR @12,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@12 0001 00006000 * 0422 00007000 * /*****************************************************************/ 00008000 * /* */ 00009000 * /* FOLLOWING IS THE INIT REGISTER SETUP */ 00010000 * /* */ 00011000 * /*****************************************************************/ 00012000 * 0422 00013000 * ROPCAVT=RPARM; /* GET ADDR OF OPC AVT */ 00014000 LR ROPCAVT,RPARM 0422 00015000 * RAVT=OPCAVTPT; /* GET TCAM AVT ADR */ 00016000 L RAVT,OPCAVTPT(,ROPCAVT) 0423 00017000 * ROPCE=OPCEPTR; /* GET ADDRESS OF CURRENT ELEMENT 00018000 * @YM06638*/ 00019000 L ROPCE,OPCEPTR-1(,ROPCAVT) 0424 00020000 LA ROPCE,0(,ROPCE) 0424 00021000 * GLOBALSW=0; /* INIT GLOBAL SWITCH */ 00022000 MVI GLOBALSW(ROPCAVT),X'00' 0425 00023000 * GEN NOREFS NOSETS NOEXIT SEQFLOW; 0426 00024000 * /* */ 00025000 IGC0210D IEDHJN SKIPID,HJN @Y17XART 00026000 * 0427 00027000 * /*****************************************************************/ 00028000 * /* */ 00029000 * /* IF THIS ENTITY HAS A PRIORITY OF X'EA' THEN THIS IS A @OX21052*/ 00030000 * /* RESPONSE UNIT. OTHERWISE THIS IS A REQUEST. */ 00031000 * /* */ 00032000 * /*****************************************************************/ 00033000 * 0427 00034000 * IF OPREPRI^=PRIRESPB THEN 0427 00035000 CLI OPREPRI(ROPCE),X'EA' 0427 00036000 BE @RF00427 0427 00037000 * DO; /* PROCESS REQUEST */ 00038000 * 0428 00039000 * /*************************************************************/ 00040000 * /* */ 00041000 * /* IF PACKED RU NOT ATTACHED TO OPCE THEN THIS IS AN */ 00042000 * /* INTERMEDIATE RESPONSE AND SHOULD BE PUT ON THE WAITCHAIN */ 00043000 * /* TO WAIT FOR THE REAL RESPONSE */ 00044000 * /* */ 00045000 * /*************************************************************/ 00046000 * 0429 00047000 * IF UNITADDR<=INVALMSK THEN /* IF RU NOT ATTACHED TO OPCE 0429 00048000 * @YM02902*/ 00049000 CLC UNITADDR(3,ROPCE),@CB02405 0429 00050000 BH @RF00429 0429 00051000 * CALL OLDFID0; /* CHAIN TO FID0 CHAIN */ 00052000 BAL @14,OLDFID0 0430 00053000 * ELSE 0431 00054000 * DO; /* PROCESS NEW REQ */ 00055000 * 0431 00056000 B @RC00429 0431 00057000 @RF00429 DS 0H 0432 00058000 * /*********************************************************/ 00059000 * /* */ 00060000 * /* PROCESS NEW REQUEST */ 00061000 * /* */ 00062000 * /*********************************************************/ 00063000 * 0432 00064000 * RESPECIFY 0432 00065000 * RPRU RSTD; /* */ 00066000 * RPRU=OCUNIT; /* ADDR OF PACKED RU */ 00067000 * 0433 00068000 L RPRU,OCUNIT(,ROPCE) 0433 00069000 * /*********************************************************/ 00070000 * /* */ 00071000 * /* IF NO FID1 SESSION CONTROL DATA, THEN VERIFY THE NCP */ 00072000 * /* ISACTIVE */ 00073000 * /* */ 00074000 * /*********************************************************/ 00075000 * 0434 00076000 * IF PRUTHTYE=PRUTHFD0|PRURUCAT^=PRURHSC THEN 0434 00077000 LR @07,IEDPRUQP 0434 00078000 SL @07,@CF00046 0434 00079000 TM PRUTHTYE(@07),B'11110000' 0434 00080000 BZ @RT00434 0434 00081000 TM PRURUCAT(@07),B'01100000' 0434 00082000 BO @RF00434 0434 00083000 @RT00434 DS 0H 0435 00084000 * DO; /* PROCESS FID0 OR FD1 NOT SC RU */ 00085000 * RPARM=PRUTTCIN; /* PASS TNT INDEX */ 00086000 LH RPARM,PRUTTCIN(,IEDPRUQP) 0436 00087000 N RPARM,@CF02435 0436 00088000 * LOCALSW=0; /* LOOP CONTROL */ 00089000 L @07,OPCWORK(,ROPCAVT) 0437 00090000 SLR @05,@05 0437 00091000 ST @05,LOCALSW(,@07) 0437 00092000 * RESPECIFY 0438 00093000 * RTERM RSTD; 0438 00094000 * DO UNTIL(LOCALSW^=0);/* DO UNTIL EXIT REQUEST */ 00095000 @DL00439 DS 0H 0440 00096000 * CALL IEDQTNT; /* CALL RTN TO GET TTE */ 00097000 L @15,AVTRNMPT(,RAVT) 0440 00098000 BALR @14,@15 0440 00099000 * RTERM=RPARM; /* SET TTE BASE ADR */ 00100000 LR RTERM,RPARM 0441 00101000 * IF TRMDIAL=ON&OCACTREQ=ON/* IF DIAL MAY NOT HAVE 0442 00102000 * COHORT@YM06029 */ 00103000 * THEN 0442 00104000 LR @11,RTERM 0442 00105000 AL @11,@CF02436 0442 00106000 TM TRMDIAL-6(@11),B'00001000' 0442 00107000 BNO @RF00442 0442 00108000 TM OCACTREQ(ROPCE),B'00001000' 0442 00109000 BNO @RF00442 0442 00110000 * LOCALSW=3; /* SO SET TO SKIP CHECK @YM06029*/ 00111000 L @11,OPCWORK(,ROPCAVT) 0443 00112000 MVC LOCALSW(4,@11),@CF00075 0443 00113000 * ELSE 0444 00114000 * IF TRMTYPE=TRMLNCP THEN 0444 00115000 B @RC00442 0444 00116000 @RF00442 LR @11,RTERM 0444 00117000 AL @11,@CF01588 0444 00118000 CLI TRMTYPE-11(@11),X'0F' 0444 00119000 BNE @RF00444 0444 00120000 * LOCALSW=2; /* EXIT LOOP ON NCP FD */ 00121000 L @11,OPCWORK(,ROPCAVT) 0445 00122000 MVC LOCALSW(4,@11),@CF00066 0445 00123000 * ELSE 0446 00124000 * IF TRMCOHRT=0 THEN 0446 00125000 B @RC00444 0446 00126000 @RF00444 LR @11,RTERM 0446 00127000 AL @11,@CF02437 0446 00128000 LH @11,TRMCOHRT-4(,@11) 0446 00129000 N @11,@CF02435 0446 00130000 LTR @11,@11 0446 00131000 BNZ @RF00446 0446 00132000 * LOCALSW=1; /* NCP NOT ACTIVE */ 00133000 L @11,OPCWORK(,ROPCAVT) 0447 00134000 MVC LOCALSW(4,@11),@CF00062 0447 00135000 * ELSE 0448 00136000 * RPARM=TRMCOHRT;/* LOOK AT NEXT TTE */ 00137000 B @RC00446 0448 00138000 @RF00446 LR @11,RTERM 0448 00139000 AL @11,@CF02437 0448 00140000 LH RPARM,TRMCOHRT-4(,@11) 0448 00141000 N RPARM,@CF02435 0448 00142000 * END; /* */ 00143000 @RC00446 DS 0H 0449 00144000 @RC00444 DS 0H 0449 00145000 @RC00442 DS 0H 0449 00146000 @DE00439 SLR @11,@11 0449 00147000 L @07,OPCWORK(,ROPCAVT) 0449 00148000 L @05,LOCALSW(,@07) 0449 00149000 CR @05,@11 0449 00150000 BE @DL00439 0449 00151000 * IF LOCALSW=1 THEN 0450 00152000 C @05,@CF00062 0450 00153000 BNE @RF00450 0450 00154000 * DO; /* NCP NOT ACT MSG */ 00155000 * RZERO=NCPERMSG; /* SET MSG NUMB */ 00156000 LA RZERO,400 0452 00157000 * LOCALSW=0; /* SET SWITCH INDICATOR */ 00158000 ST @11,LOCALSW(,@07) 0453 00159000 * END; 0454 00160000 * ELSE 0455 00161000 * IF LOCALSW=2 THEN 0455 00162000 B @RC00450 0455 00163000 @RF00450 L @11,OPCWORK(,ROPCAVT) 0455 00164000 CLC LOCALSW(4,@11),@CF00066 0455 00165000 BNE @RF00455 0455 00166000 * DO; /* @YM06029*/ 00167000 * LOCALSW=0; /* RESET */ 00168000 SLR @07,@07 0457 00169000 ST @07,LOCALSW(,@11) 0457 00170000 * IF TRMRSACT=OFF THEN/* NCP NOT ACTIVE? */ 00171000 LR @11,RTERM 0458 00172000 AL @11,@CF02438 0458 00173000 TM TRMRSACT-2(@11),B'10000000' 0458 00174000 BNZ @RF00458 0458 00175000 * RZERO=NCPERMSG;/* NOT ACTIVE MSG */ 00176000 LA RZERO,400 0459 00177000 * ELSE 0460 00178000 * DO; /* */ 00179000 B @RC00458 0460 00180000 @RF00458 DS 0H 0461 00181000 * IF OCACTREQ=ON THEN 0461 00182000 TM OCACTREQ(ROPCE),B'00001000' 0461 00183000 BNO @RF00461 0461 00184000 * LOCALSW=1;/* IF REQUESTED TO BYPASS IN 0462 00185000 * PROGRESS TEST,EXIT LOOP */ 00186000 L @11,OPCWORK(,ROPCAVT) 0462 00187000 MVC LOCALSW(4,@11),@CF00062 0462 00188000 * ELSE 0463 00189000 * IF TRMINPG=OFF THEN 0463 00190000 B @RC00461 0463 00191000 @RF00461 LR @11,RTERM 0463 00192000 AL @11,@CF02438 0463 00193000 TM TRMINPG-2(@11),B'00100000' 0463 00194000 BNZ @RF00463 0463 00195000 * LOCALSW=1;/* IF IPL-DUMP OR ACT-DEACT 00196000 * INP */ 00197000 L @11,OPCWORK(,ROPCAVT) 0464 00198000 MVC LOCALSW(4,@11),@CF00062 0464 00199000 * ELSE 0465 00200000 * DO; /* YES */ 00201000 B @RC00463 0465 00202000 @RF00463 DS 0H 0466 00203000 * RFY 0466 00204000 * IHADCB BASED(RPARM);/* BASE FOR DCB 00205000 * @XM05704*/ 00206000 * RPARM=RPARM->TRMDESTQ->QCBDCBAD;/* 0467 00207000 * GET THE DEB */ 00208000 L @11,TRMDESTQ-1(,RPARM) 0467 00209000 L @11,QCBDCBAD-1(,@11) 0467 00210000 LA @11,0(,@11) 0467 00211000 LR RPARM,@11 0467 00212000 * RPARM=DCBDEBAD;/* @XM05704*/ 00213000 L @11,DCBDEBAD+40(,RPARM) 0468 00214000 LR RPARM,@11 0468 00215000 * RFY 0469 00216000 * IEDQDEB BASED(RPARM); 0469 00217000 * RFY 0470 00218000 * IHADCB BASED;/* @XM05704*/ 00219000 * RPARM=RPARM-(ADDR(DEBNMSUB)-ADDR( 0471 00220000 * IEDQDEB)); 0471 00221000 SL RPARM,@CF00776 0471 00222000 * OCBACKUP=''B;/* CLEAR TO INSERT THE 00223000 * UCB ADDRESS */ 00224000 XC OCBACKUP(8,ROPCE),OCBACKUP(ROPCE) 0472 00225000 * OCBACKUP(1:3)=DEBUCBAD->UCBNAME;/* 0473 00226000 * UCB ADDRESS */ 00227000 L @11,DEBUCBAD-1(,RPARM) 0473 00228000 MVC OCBACKUP(3,ROPCE),UCBNAME(@11) 0473 00229000 * RZERO=NCPERMG2;/* INPROG ERR MSG */ 00230000 LA RZERO,210 0474 00231000 * END; 0475 00232000 * END; /* */ 00233000 * END; /* */ 00234000 * ELSE 0478 00235000 * ; /* IF LOCALSW=3 THEN DO NOTHING 00236000 * @YM06029*/ 00237000 @RF00455 DS 0H 0479 00238000 * RESPECIFY 0479 00239000 * RTERM UNRSTD; 0479 00240000 * 0479 00241000 @RC00455 DS 0H 0479 00242000 @RC00450 DS 0H 0480 00243000 * /*****************************************************/ 00244000 * /* */ 00245000 * /* PROCESSING CAN NOT CONTINUE */ 00246000 * /* */ 00247000 * /*****************************************************/ 00248000 * 0480 00249000 * IF LOCALSW=0 THEN 0480 00250000 SLR @07,@07 0480 00251000 L @05,OPCWORK(,ROPCAVT) 0480 00252000 C @07,LOCALSW(,@05) 0480 00253000 BNE @RF00480 0480 00254000 * DO; /* ERR CONDITION FOUND */ 00255000 * EXITFLAG=ON; /* PREPARE TO EXIT */ 00256000 OI EXITFLAG(ROPCAVT),B'10000000' 0482 00257000 * OPCMODID=IGC03; /* NEXT MODULE */ 00258000 MVC OPCMODID(2,ROPCAVT),@CC02380 0483 00259000 * OCWTG=0; /* IND NO RETURN TO REQUESTOR 0484 00260000 * @YM02916*/ 00261000 STH @07,OCWTG(,ROPCE) 0484 00262000 * END; /* */ 00263000 * END; /* */ 00264000 * 0486 00265000 @RF00480 DS 0H 0487 00266000 * /*********************************************************/ 00267000 * /* */ 00268000 * /* THIS RTN UNPACKS THE RU INTO PROPER TCAM BUFFERS */ 00269000 * /* */ 00270000 * /*********************************************************/ 00271000 * 0487 00272000 * IF EXITFLAG=OFF THEN /* NO ERROR CONDITION */ 00273000 @RF00434 TM EXITFLAG(ROPCAVT),B'10000000' 0487 00274000 BNZ @RF00487 0487 00275000 * DO; /* */ 00276000 * RESPECIFY 0489 00277000 * RWORK13 RSTD; 0489 00278000 * OPCWRKSP(1)=1; /* ATLEAST 1 BUFFER EXISTS */ 00279000 MVC OPCWRKSP(4,ROPCAVT),@CF00062 0490 00280000 * DO RWORK13=(PRUDATCT+AVTHDRSZ+IDLES) BY-AVTKEYLE WHILE 00281000 * RWORK13>AVTKEYLE;/* CALC NUMBER OF BUFFERS */ 00282000 LA RWORK13,30 0491 00283000 AH RWORK13,PRUDATCT(,IEDPRUQP) 0491 00284000 B @DE00491 0491 00285000 @DL00491 DS 0H 0492 00286000 * OPCWRKSP(1)=OPCWRKSP(1)+1;/* BUMP BUFFER COUNT EACH 00287000 * LOOP */ 00288000 LA @07,1 0492 00289000 AL @07,OPCWRKSP(,ROPCAVT) 0492 00290000 ST @07,OPCWRKSP(,ROPCAVT) 0492 00291000 * END; 0493 00292000 LH @07,AVTKEYLE(,RAVT) 0493 00293000 LCR @07,@07 0493 00294000 ALR RWORK13,@07 0493 00295000 @DE00491 CH RWORK13,AVTKEYLE(,RAVT) 0493 00296000 BH @DL00491 0493 00297000 * RPARM=OPCWRKSP(1); /* CALC NO BUFF NEEDED */ 00298000 L RPARM,OPCWRKSP(,ROPCAVT) 0494 00299000 * RWORK13=ADDR(OPCSAVE);/* PASS SAVE AREA ADDR */ 00300000 LA RWORK13,OPCSAVE(,ROPCAVT) 0495 00301000 * CALL ALLOCBUF; /* CALL QCA ALLOCBUF RT */ 00302000 L @15,OPCGETBF(,ROPCAVT) 0496 00303000 BALR @14,@15 0496 00304000 * RESPECIFY 0497 00305000 * IEDQPPTR RSTD; 0497 00306000 * 0497 00307000 * /*****************************************************/ 00308000 * /* */ 00309000 * /* MOVE RU INTO TCAM BUFFER FORMAT */ 00310000 * /* */ 00311000 * /*****************************************************/ 00312000 * 0498 00313000 * IEDQPPTR=RPARM; /* GET BUFFER ADDR */ 00314000 LR IEDQPPTR,RPARM 0498 00315000 * IEDPF1=''B; /* CLEAR NEG PREFIX */ 00316000 LR @05,IEDQPPTR 0499 00317000 AL @05,@CF02436 0499 00318000 XC IEDPF1(8,@05),IEDPF1(@05) 0499 00319000 * PLMVTU=IEDQPPTR; /* TARGET UNIT */ 00320000 LA @05,OPCWRKSP+4(,ROPCAVT) 0500 00321000 ST IEDQPPTR,PLMVTU(,@05) 0500 00322000 * PLMVFLG1=0; /* CLEAR FLAG BYTE */ 00323000 MVI PLMVFLG1(@05),X'00' 0501 00324000 * PLMVTD=ADDR(PRFSUNIT)+AVTHDRSZ+IDLES;/* TARGET DATA */ 00325000 LA @15,PRFSUNIT(,IEDQPPTR) 0502 00326000 AL @15,@CF02432 0502 00327000 ST @15,PLMVTD(,@05) 0502 00328000 * PLMVSU=RPRU; /* SOURCE UNIT */ 00329000 ST RPRU,PLMVSU(,@05) 0503 00330000 * PLMVSD=ADDR(PRUDATA);/* SOURCE DATA */ 00331000 LA @15,PRUDATA(,IEDPRUQP) 0504 00332000 ST @15,PLMVSD(,@05) 0504 00333000 * PLMVLNTH=PRUDATCT; /* TOTAL DATA TO MOVE */ 00334000 LH @15,PRUDATCT(,IEDPRUQP) 0505 00335000 STH @15,PLMVLNTH(,@05) 0505 00336000 * RPARM=ADDR(IEDPLMV);/* PARM LIST ADDR */ 00337000 LR RPARM,@05 0506 00338000 * CALL IEDMVBFR; /* UNPACK RU */ 00339000 L @05,AVTSAVTP(,RAVT) 0507 00340000 L @15,SAVTMVBF(,@05) 0507 00341000 BALR @14,@15 0507 00342000 * RESPECIFY 0508 00343000 * RWORK13 UNRSTD; 0508 00344000 * 0508 00345000 * /*****************************************************/ 00346000 * /* */ 00347000 * /* SET UP BUFFER HEADER */ 00348000 * /* */ 00349000 * /*****************************************************/ 00350000 * 0509 00351000 * PRFDEST=PRUTTCIN; /* SET DEST */ 00352000 LH @05,PRUTTCIN(,IEDPRUQP) 0509 00353000 N @05,@CF02435 0509 00354000 STH @05,PRFDEST(,IEDQPPTR) 0509 00355000 * PRFSIZE=PRUDATCT+AVTHDRSZ+IDLES;/* SET TOTAL HDR SIZE*/ 00356000 LA @15,30 0510 00357000 AH @15,PRUDATCT(,IEDPRUQP) 0510 00358000 STH @15,PRFSIZE(,IEDQPPTR) 0510 00359000 * PRFNBUNT=OPCWRKSP(1);/* SET TOTAL NO UNITS */ 00360000 L @15,OPCWRKSP(,ROPCAVT) 0511 00361000 STC @15,PRFNBUNT(,IEDQPPTR) 0511 00362000 * PRFLINK=0; /* NO MORE BUFFERS */ 00363000 SLR @15,@15 0512 00364000 STCM @15,7,PRFLINK(IEDQPPTR) 0512 00365000 * PRFLCB=0; /* SET TO ZERO */ 00366000 STCM @15,7,PRFLCB(IEDQPPTR) 0513 00367000 * PRFNHDRN=OFF; /* SET HEADER BUF IND */ 00368000 * PRFNLSTN=OFF; /* INDICATE LAST BUFFR */ 00369000 NI PRFNHDRN(IEDQPPTR),B'11111100' 0515 00370000 * PRFISIZE=IDLES; /* NO OF IDLES OUTB=0 */ 00371000 MVI PRFISIZE(IEDQPPTR),X'00' 0516 00372000 * OCRUDEST=PRFDEST; /* SAVE DESTINATION */ 00373000 ST @05,OCRUDEST(,ROPCE) 0517 00374000 * IF PRUTHTYE=PRUTHFD1 THEN 0518 00375000 LA @05,8 0518 00376000 LR @15,IEDPRUQP 0518 00377000 SLR @15,@05 0518 00378000 TM PRUTHTYE(@15),B'00010000' 0518 00379000 BNO @RF00518 0518 00380000 TM PRUTHTYE(@15),B'11100000' 0518 00381000 BNZ @RF00518 0518 00382000 * DO; /* FID1 REQUEST */ 00383000 * PRF1RH=ADDR(IEDPRUND)->PRF1RH;/* MOVE RH FROM PRU 00384000 * TO BUF */ 00385000 LCR @05,@05 0520 00386000 ALR @05,IEDQPPTR 0520 00387000 MVC PRF1RH(3,@05),PRF1RH(@15) 0520 00388000 * PRF1FIDI=ON; /* SET INDICATOR */ 00389000 OI PRF1FIDI(@05),B'10000000' 0521 00390000 * PRFSRCE=SAVTSCPT;/* SSCP = SOURCE */ 00391000 L @14,AVTSAVTP(,RAVT) 0522 00392000 LH @14,SAVTSCPT(,@14) 0522 00393000 N @14,@CF02435 0522 00394000 STH @14,PRFSRCE(,IEDQPPTR) 0522 00395000 * IF PRUTHEFI=ON THEN 0523 00396000 TM PRUTHEFI(@15),B'00000001' 0523 00397000 BNO @RF00523 0523 00398000 * PRF1EXPI=ON; /* SET EXP FLOW IND */ 00399000 OI PRF1EXPI(@05),B'01000000' 0524 00400000 * IF PRUTHUSS=ON THEN 0525 00401000 @RF00523 LA @05,8 0525 00402000 LR @15,IEDPRUQP 0525 00403000 SLR @15,@05 0525 00404000 TM PRUTHUSS(@15),B'00000010' 0525 00405000 BNO @RF00525 0525 00406000 * PRF1USS=ON; /* SET USS INDICATOR */ 00407000 LCR @05,@05 0526 00408000 ALR @05,IEDQPPTR 0526 00409000 OI PRF1USS(@05),B'00001000' 0526 00410000 * LOCALSW=0; /* CLEAR LOCALSW */ 00411000 @RF00525 L @05,OPCWORK(,ROPCAVT) 0527 00412000 SLR @15,@15 0527 00413000 ST @15,LOCALSW(,@05) 0527 00414000 * IF PRF1EXPI=ON THEN 0528 00415000 LR @15,IEDQPPTR 0528 00416000 AL @15,@CF02442 0528 00417000 TM PRF1EXPI-3(@15),B'01000000' 0528 00418000 BNO @RF00528 0528 00419000 * LOCALSW=1; /* EXP FLOW FOUND */ 00420000 MVC LOCALSW(4,@05),@CF00062 0529 00421000 * ELSE 0530 00422000 * DO; /* */ 00423000 B @RC00528 0530 00424000 @RF00528 DS 0H 0531 00425000 * RPARM=PRFDEST;/* PASS DEST AS PARM */ 00426000 LH RPARM,PRFDEST(,IEDQPPTR) 0531 00427000 * CALL IEDQTNT;/* GET TTE ADDR */ 00428000 L @15,AVTRNMPT(,RAVT) 0532 00429000 BALR @14,@15 0532 00430000 * CALL SIBSRCH;/* LOOK FOR TS PROFILE 1 */ 00431000 BAL @14,SIBSRCH 0533 00432000 * END; 0534 00433000 * 0534 00434000 * /*************************************************/ 00435000 * /* */ 00436000 * /* USE FID1 ID TAGGED CHAIN */ 00437000 * /* */ 00438000 * /*************************************************/ 00439000 * 0535 00440000 * IF LOCALSW=1 THEN 0535 00441000 @RC00528 LA @05,1 0535 00442000 L @15,OPCWORK(,ROPCAVT) 0535 00443000 C @05,LOCALSW(,@15) 0535 00444000 BNE @RF00535 0535 00445000 * DO; /* */ 00446000 * OPCRQCNT=OPCRQCNT+1;/* BUMP SEQ NO COUNT */ 00447000 AH @05,OPCRQCNT(,ROPCAVT) 0537 00448000 STH @05,OPCRQCNT(,ROPCAVT) 0537 00449000 * OCSEQ=OPCRQCNT;/* STORE IN OPCE */ 00450000 STH @05,OCSEQ(,ROPCE) 0538 00451000 * PRF1SQID=OPCRQCNT;/* SET IN BUFFER */ 00452000 LR @15,IEDQPPTR 0539 00453000 SL @15,@CF00046 0539 00454000 STH @05,PRF1SQID(,@15) 0539 00455000 * PRF1FORM=PRF1IDI;/* ID INDICATOR */ 00456000 NI PRF1FORM(@15),B'11101111' 0540 00457000 OI PRF1FORM(@15),B'00100000' 0540 00458000 * OCLINK=OPCSCNC;/* WAIT CHAIN ADDR */ 00459000 L @05,OPCSCNC(,ROPCAVT) 0541 00460000 ST @05,OCLINK(,ROPCE) 0541 00461000 * OPCSCNC=ROPCE;/* CHAIN OPCE IN */ 00462000 ST ROPCE,OPCSCNC(,ROPCAVT) 0542 00463000 * END; /* */ 00464000 * 0543 00465000 * /*************************************************/ 00466000 * /* */ 00467000 * /* USE FID1 CHAIN WHERE DEBLOCK ASSIGNS SEQUENCE */ 00468000 * /* NUMBERS */ 00469000 * /* */ 00470000 * /*************************************************/ 00471000 * 0544 00472000 * ELSE 0544 00473000 * DO; /* */ 00474000 B @RC00535 0544 00475000 @RF00535 DS 0H 0545 00476000 * PRF1SEQP=ADDR(OCTRUNIT);/* DEBLOCK WILL ST 0545 00477000 * SEQ */ 00478000 LR @05,IEDQPPTR 0545 00479000 SL @05,@CF00046 0545 00480000 LA @15,OCTRUNIT(,ROPCE) 0545 00481000 ST @15,PRF1SEQP(,@05) 0545 00482000 * PRF1FORM=PRF1PTRI;/* SET PTR INDICATOR 0546 00483000 * @YM07397*/ 00484000 NI PRF1FORM(@05),B'11011111' 0546 00485000 OI PRF1FORM(@05),B'00010000' 0546 00486000 * OCLINK=OPCFMDFC;/* WAIT CHAIN ADDR */ 00487000 L @05,OPCFMDFC(,ROPCAVT) 0547 00488000 ST @05,OCLINK(,ROPCE) 0547 00489000 * OPCFMDFC=ROPCE;/* CHAIN OPCE IN */ 00490000 ST ROPCE,OPCFMDFC(,ROPCAVT) 0548 00491000 * END; /* */ 00492000 * PRFQCBA=ADDR(SAVTSCPQ);/* SET QCB PTR */ 00493000 @RC00535 L @05,AVTSAVTP(,RAVT) 0550 00494000 LA @05,SAVTSCPQ(,@05) 0550 00495000 STCM @05,7,PRFQCBA(IEDQPPTR) 0550 00496000 * END; /* */ 00497000 * ELSE 0552 00498000 * DO; /* */ 00499000 * 0552 00500000 B @RC00518 0552 00501000 @RF00518 DS 0H 0553 00502000 * /*************************************************/ 00503000 * /* */ 00504000 * /* FID0 SEQUENCE NUMBERS */ 00505000 * /* */ 00506000 * /*************************************************/ 00507000 * 0553 00508000 * SAVTRQTG=SAVTRQTG+1;/* BUMP SEQ COUNT */ 00509000 L @05,AVTSAVTP(,RAVT) 0553 00510000 LA @15,1 0553 00511000 LH @14,SAVTRQTG(,@05) 0553 00512000 N @14,@CF02435 0553 00513000 ALR @15,@14 0553 00514000 STH @15,SAVTRQTG(,@05) 0553 00515000 * PRF1SQID=SAVTRQTG;/* SET IN BUFFER */ 00516000 LR @05,IEDQPPTR 0554 00517000 SL @05,@CF00046 0554 00518000 STH @15,PRF1SQID(,@05) 0554 00519000 * PRF1TAGS=TTHOPCTL;/* SET OPCTL FLAG */ 00520000 NI PRF1TAGS(@05),B'00011111' 0555 00521000 OI PRF1TAGS(@05),B'00010000' 0555 00522000 * OCSEQ=PRF1SQID; /* SET SEQ NUMB IN OPCE */ 00523000 LH @15,PRF1SQID(,@05) 0556 00524000 N @15,@CF02435 0556 00525000 STH @15,OCSEQ(,ROPCE) 0556 00526000 * PRF1FORM=PRF1IDI;/* SET ID INDICATOR */ 00527000 NI PRF1FORM(@05),B'11101111' 0557 00528000 OI PRF1FORM(@05),B'00100000' 0557 00529000 * CALL OLDFID0; /* PUT OPCE ON WAIT CH */ 00530000 BAL @14,OLDFID0 0558 00531000 * PRFQCBA=SAVTXFMO;/* SET QCB */ 00532000 L @05,AVTSAVTP(,RAVT) 0559 00533000 MVC PRFQCBA(3,IEDQPPTR),SAVTXFMO+1(@05) 0559 00534000 * END; /* */ 00535000 * RPARM=RPRU; /* ADDR OF PRU BUFFER */ 00536000 @RC00518 LR RPARM,RPRU 0561 00537000 * RESPECIFY 0562 00538000 * RPRU UNRSTD; 0562 00539000 * RESPECIFY 0563 00540000 * RWORK13 RSTD; 0563 00541000 * RWORK13=ADDR(OPCSAVE); 0564 00542000 LA RWORK13,OPCSAVE(,ROPCAVT) 0564 00543000 * CALL FREEBUFF; /* FREE PRU */ 00544000 L @15,OPCFREBF(,ROPCAVT) 0565 00545000 BALR @14,@15 0565 00546000 * RESPECIFY 0566 00547000 * RWORK13 UNRSTD; 0566 00548000 * 0566 00549000 * /*****************************************************/ 00550000 * /* */ 00551000 * /* SET UP SVC 102 PARM LIST */ 00552000 * /* */ 00553000 * /*****************************************************/ 00554000 * 0567 00555000 * PRFPRI=PRIDESTQ; /* PRIORITY OF DEST Q */ 00556000 MVI PRFPRI(IEDQPPTR),X'E4' 0567 00557000 * OPCAQWD1=IEDQPPTR; /* SET UP PARM LIST */ 00558000 ST IEDQPPTR,OPCAQWD1(,ROPCAVT) 0568 00559000 * OPCAQWD2=IEDQPPTR; /* FOR SVC 102 */ 00560000 ST IEDQPPTR,OPCAQWD2(,ROPCAVT) 0569 00561000 * RESPECIFY 0570 00562000 * IEDQPPTR UNRSTD; 0570 00563000 * OPCAQREQ=TPOST; /* TYPE OF REQUEST */ 00564000 MVI OPCAQREQ(ROPCAVT),X'0C' 0571 00565000 * OPCAQRQ2=ENDLIST; /* MARK END OF LIST */ 00566000 MVI OPCAQRQ2(ROPCAVT),X'80' 0572 00567000 * RPARM=ADDR(OPCAQCTL);/* PASS PARM LIST */ 00568000 LA RPARM,OPCAQCTL(,ROPCAVT) 0573 00569000 * SVC(102); /* ISSUE SVC 102 */ 00570000 SVC 102 0574 00571000 * END; /* */ 00572000 * END; /* */ 00573000 * 0576 00574000 @RF00487 DS 0H 0577 00575000 * /*************************************************************/ 00576000 * /* */ 00577000 * /* EXIT PROCESSING */ 00578000 * /* */ 00579000 * /*************************************************************/ 00580000 * 0577 00581000 * IF EXITFLAG=OFF THEN 0577 00582000 @RC00429 TM EXITFLAG(ROPCAVT),B'10000000' 0577 00583000 BNZ @RF00577 0577 00584000 * OPCMODID=XCTL00; /* SET EXIT MODULE */ 00585000 MVC OPCMODID(2,ROPCAVT),@CC02382 0578 00586000 * END; /* */ 00587000 * 0580 00588000 * /*****************************************************************/ 00589000 * /* */ 00590000 * /* THIS CODE PROCESSES A RESPONSE UNIT */ 00591000 * /* */ 00592000 * /*****************************************************************/ 00593000 * 0580 00594000 * ELSE 0580 00595000 * DO; /* BEGIN OF RESPONSE P */ 00596000 B @RC00427 0580 00597000 @RF00427 DS 0H 0581 00598000 * RESPECIFY 0581 00599000 * (RWORK9, 0581 00600000 * IEDQPPTR) RSTD; /* */ 00601000 * IEDQPPTR=ROPCE; /* SET UP BUFFER ADDR */ 00602000 LR IEDQPPTR,ROPCE 0582 00603000 * LOCALSW=0; /* CLEAR LOCALSW */ 00604000 * 0583 00605000 L @08,OPCWORK(,ROPCAVT) 0583 00606000 SLR @06,@06 0583 00607000 ST @06,LOCALSW(,@08) 0583 00608000 * /*************************************************************/ 00609000 * /* */ 00610000 * /* PROCESS FID0 RESPONSE */ 00611000 * /* */ 00612000 * /*************************************************************/ 00613000 * 0584 00614000 * IF PRF1FIDI=OFF THEN 0584 00615000 LR @08,IEDQPPTR 0584 00616000 AL @08,@CF02442 0584 00617000 TM PRF1FIDI-3(@08),B'10000000' 0584 00618000 BNZ @RF00584 0584 00619000 * DO; /* PROCESS FID0 RESP */ 00620000 * RWORK9=ADDR(OPCWAITN); /* SET DUMMY PREVIOUS OPCE */ 00621000 LA RWORK9,OPCWAITN(,ROPCAVT) 0586 00622000 * CALL WAITCHAN; /* FIND ASSOCIATED OPC */ 00623000 BAL @14,WAITCHAN 0587 00624000 * RESPECIFY 0588 00625000 * RWORK9 UNRSTD; 0588 00626000 * END; /* */ 00627000 * 0589 00628000 * /*************************************************************/ 00629000 * /* */ 00630000 * /* PROCESS FID1 RESPONSE */ 00631000 * /* */ 00632000 * /*************************************************************/ 00633000 * 0590 00634000 * ELSE 0590 00635000 * DO; /* PROCESS FID1 */ 00636000 B @RC00584 0590 00637000 @RF00584 DS 0H 0591 00638000 * TS(OPCCLNTS); /* QUEUES AVAILABLE @YM07310*/ 00639000 TS OPCCLNTS(ROPCAVT) 0591 00640000 * BC(ZER,QSEARCH); /* YES,BEGIN SEARCH @YM07310*/ 00641000 BC 8,QSEARCH 0592 00642000 * OPCAQWD1=ROPRE; /* SET UP TO RETURN @YM07310*/ 00643000 ST ROPRE,OPCAQWD1(,ROPCAVT) 0593 00644000 * OPCAQWD2=ROPRE; /* POST THIS REQUEST @YM07310*/ 00645000 ST ROPRE,OPCAQWD2(,ROPCAVT) 0594 00646000 * OPCAQREQ=TPOST; /* @YM07310*/ 00647000 MVI OPCAQREQ(ROPCAVT),X'0C' 0595 00648000 * OPCAQRQ2=ENDLIST; /* @YM07310*/ 00649000 MVI OPCAQRQ2(ROPCAVT),X'80' 0596 00650000 * RPARM=ADDR(OPCAQCTL); /* @YM07310*/ 00651000 LA RPARM,OPCAQCTL(,ROPCAVT) 0597 00652000 * GEN(AQCTL); /* QUEUE ON AVTOPCOB @YM07310*/ 00653000 AQCTL 00654000 * EXITFLAG=ON; /* REQUEST EXIT @YM07310*/ 00655000 OI EXITFLAG(ROPCAVT),B'10000000' 0599 00656000 * OPCMODID=XCTL00; /* PREPARE TO EXIT @YM07310*/ 00657000 MVC OPCMODID(2,ROPCAVT),@CC02382 0600 00658000 *QSEARCH: /* @YM07310*/ 00659000 * IF EXITFLAG=OFF THEN /* EXIT NOT REQUESTED @YM07310*/ 00660000 QSEARCH TM EXITFLAG(ROPCAVT),B'10000000' 0601 00661000 BNZ @RF00601 0601 00662000 * DO; /* BEGIN QUEUE SEARCH @YM07310*/ 00663000 * IF PRF1EXPI=ON THEN 0603 00664000 LR @06,IEDQPPTR 0603 00665000 AL @06,@CF02442 0603 00666000 TM PRF1EXPI-3(@06),B'01000000' 0603 00667000 BNO @RF00603 0603 00668000 * LOCALSW=1; /* EXP FLOW */ 00669000 L @06,OPCWORK(,ROPCAVT) 0604 00670000 MVC LOCALSW(4,@06),@CF00062 0604 00671000 * ELSE 0605 00672000 * DO; /* */ 00673000 B @RC00603 0605 00674000 @RF00603 DS 0H 0606 00675000 * RPARM=PRFSRCE; /* GET SRCE TTCIN */ 00676000 LH RPARM,PRFSRCE(,IEDQPPTR) 0606 00677000 * CALL IEDQTNT; /* CONVERT TO TTE */ 00678000 L @15,AVTRNMPT(,RAVT) 0607 00679000 BALR @14,@15 0607 00680000 * CALL SIBSRCH; /* LOOK FOR TS PROFILE 1 */ 00681000 BAL @14,SIBSRCH 0608 00682000 * END; /* */ 00683000 * 0609 00684000 * /*****************************************************/ 00685000 * /* */ 00686000 * /* PROCESS FID1 IDTAGGED RESPONSE */ 00687000 * /* */ 00688000 * /*****************************************************/ 00689000 * 0610 00690000 * RESPECIFY 0610 00691000 * RWORK9 RSTD; 0610 00692000 @RC00603 DS 0H 0611 00693000 * IF LOCALSW=1 THEN 0611 00694000 L @08,OPCWORK(,ROPCAVT) 0611 00695000 CLC LOCALSW(4,@08),@CF00062 0611 00696000 BNE @RF00611 0611 00697000 * DO; /* IF FLAG SET DO */ 00698000 * RWORK9=ADDR(OPCSCNC);/* SET DUMMY OPCE */ 00699000 LA RWORK9,OPCSCNC(,ROPCAVT) 0613 00700000 * CALL WAITCHAN; /* SEARCH FOR OPCE */ 00701000 BAL @14,WAITCHAN 0614 00702000 * END; /* */ 00703000 * ELSE 0616 00704000 * DO; /* */ 00705000 * 0616 00706000 B @RC00611 0616 00707000 @RF00611 DS 0H 0617 00708000 * /*************************************************/ 00709000 * /* */ 00710000 * /* PROCESS FID1 DEBLOCK SEQ NUMBER RESPONSE */ 00711000 * /* */ 00712000 * /*************************************************/ 00713000 * 0617 00714000 * RWORK9=ADDR(OPCFMDFC);/* SET DUMMY OPCE */ 00715000 LA RWORK9,OPCFMDFC(,ROPCAVT) 0617 00716000 * CALL WAITCHAN; /* SEARCH FOR OPCE */ 00717000 BAL @14,WAITCHAN 0618 00718000 * END; /* */ 00719000 * OPCCLNTS=0; /* SET QUEUE AVAILABLE @YM07310*/ 00720000 @RC00611 MVI OPCCLNTS(ROPCAVT),X'00' 0620 00721000 * END; /* @YM07310*/ 00722000 * RESPECIFY 0622 00723000 * RWORK9 UNRSTD; 0622 00724000 @RF00601 DS 0H 0623 00725000 * END; /* */ 00726000 * 0623 00727000 * /*************************************************************/ 00728000 * /* */ 00729000 * /* IF NO ERROR CONDITION FOUND SET UP PACKED RU HEADER */ 00730000 * /* */ 00731000 * /*************************************************************/ 00732000 * 0624 00733000 * IF EXITFLAG=OFF THEN 0624 00734000 @RC00584 TM EXITFLAG(ROPCAVT),B'10000000' 0624 00735000 BNZ @RF00624 0624 00736000 * DO; /* NO ERROR COND FND */ 00737000 * RESPECIFY 0626 00738000 * RPRU RSTD; 0626 00739000 * RPRU=IEDQPPTR; /* PACKED RU &BUFFER SAME */ 00740000 LR RPRU,IEDQPPTR 0627 00741000 * PRUTTCIN=PRFSRCE; /* SET DEST @YM07778*/ 00742000 LH @05,PRFSRCE(,IEDQPPTR) 0628 00743000 STH @05,PRUTTCIN(,IEDPRUQP) 0628 00744000 * PRUDATCT=PRFSIZE-AVTHDRSZ-PRFISIZE;/* SIZE OF DATA */ 00745000 LH @05,PRFSIZE(,IEDQPPTR) 0629 00746000 SL @05,@CF00452 0629 00747000 SLR @15,@15 0629 00748000 IC @15,PRFISIZE(,IEDQPPTR) 0629 00749000 SLR @05,@15 0629 00750000 STH @05,PRUDATCT(,IEDPRUQP) 0629 00751000 * IF PRF1EXPI=ON THEN 0630 00752000 LR @05,IEDQPPTR 0630 00753000 AL @05,@CF02442 0630 00754000 TM PRF1EXPI-3(@05),B'01000000' 0630 00755000 BNO @RF00630 0630 00756000 * LOCALSW=1; /* IF EXP FLOW,SAVE INFO */ 00757000 L @05,OPCWORK(,ROPCAVT) 0631 00758000 MVC LOCALSW(4,@05),@CF00062 0631 00759000 * ELSE 0632 00760000 * LOCALSW=0; /* NOT EXP FLOW */ 00761000 B @RC00630 0632 00762000 @RF00630 L @05,OPCWORK(,ROPCAVT) 0632 00763000 SLR @15,@15 0632 00764000 ST @15,LOCALSW(,@05) 0632 00765000 * IF PRF1FIDI=ON THEN 0633 00766000 @RC00630 LA @05,8 0633 00767000 LR @15,IEDQPPTR 0633 00768000 SLR @15,@05 0633 00769000 TM PRF1FIDI(@15),B'10000000' 0633 00770000 BNO @RF00633 0633 00771000 * PRUTHTYE=PRUTHFD1; /* SET FID1 INDICAT */ 00772000 LCR @05,@05 0634 00773000 ALR @05,IEDPRUQP 0634 00774000 NI PRUTHTYE(@05),B'00011111' 0634 00775000 OI PRUTHTYE(@05),B'00010000' 0634 00776000 * IF LOCALSW=1 THEN 0635 00777000 @RF00633 L @05,OPCWORK(,ROPCAVT) 0635 00778000 CLC LOCALSW(4,@05),@CF00062 0635 00779000 BNE @RF00635 0635 00780000 * PRUTHEFI=ON; /* SET EXP FLOW */ 00781000 LR @05,IEDPRUQP 0636 00782000 AL @05,@CF02442 0636 00783000 OI PRUTHEFI-3(@05),B'00000001' 0636 00784000 * PRUTHBIU=OFF; /* INIT UNUSED BITS */ 00785000 @RF00635 DS 0H 0638 00786000 * PRUTHEIU=OFF; /* INIT UNUSED BITS */ 00787000 * 0638 00788000 LR @05,IEDPRUQP 0638 00789000 AL @05,@CF02442 0638 00790000 NI PRUTHBIU-3(@05),B'11110011' 0638 00791000 * /*********************************************************/ 00792000 * /* */ 00793000 * /* MOVE DATA FROM TCAM BUFFER FORMAT TO PACKED RU FORMAT */ 00794000 * /* */ 00795000 * /*********************************************************/ 00796000 * 0639 00797000 * PLMVLNTH=PRUDATCT; /* TOTAL DATA LEN */ 00798000 LA @05,OPCWRKSP+4(,ROPCAVT) 0639 00799000 LH @15,PRUDATCT(,IEDPRUQP) 0639 00800000 STH @15,PLMVLNTH(,@05) 0639 00801000 * PLMVSU=IEDQPPTR; /* SOURCE BUFFER */ 00802000 ST IEDQPPTR,PLMVSU(,@05) 0640 00803000 * PLMVSD=ADDR(PRFSHDR)+PRFISIZE;/* BEGIN OF SRCE DATA */ 00804000 LA @15,PRFSHDR(,IEDQPPTR) 0641 00805000 SLR @14,@14 0641 00806000 IC @14,PRFISIZE(,IEDQPPTR) 0641 00807000 ALR @15,@14 0641 00808000 ST @15,PLMVSD(,@05) 0641 00809000 * PLMVTU=IEDQPPTR; /* BEGIN OF TARG BUFFR */ 00810000 ST IEDQPPTR,PLMVTU(,@05) 0642 00811000 * PLMVTD=ADDR(PRUDATA); /* BEGIN OF TARG DATA */ 00812000 LA @15,PRUDATA(,IEDPRUQP) 0643 00813000 ST @15,PLMVTD(,@05) 0643 00814000 * RESPECIFY 0644 00815000 * (RPRU, 0644 00816000 * IEDQPPTR) UNRSTD; 0644 00817000 * PLMVFLG1=0; /* CLEAR FLAG BYTE */ 00818000 MVI PLMVFLG1(@05),X'00' 0645 00819000 * PLMVUNCF=ON; /* SET UNCHAIN FLAG */ 00820000 OI PLMVUNCF(@05),B'10000000' 0646 00821000 * RESPECIFY 0647 00822000 * RWORK13 RSTD; 0647 00823000 * RPARM=ADDR(IEDPLMV); /* PARM LIST */ 00824000 LR RPARM,@05 0648 00825000 * RWORK13=ADDR(OPCSAVE); /* OPCTL SAVE AREA */ 00826000 LA RWORK13,OPCSAVE(,ROPCAVT) 0649 00827000 * CALL IEDMVBFR; /* PACK RU */ 00828000 L @05,AVTSAVTP(,RAVT) 0650 00829000 L @15,SAVTMVBF(,@05) 0650 00830000 BALR @14,@15 0650 00831000 * RESPECIFY 0651 00832000 * RWORK13 UNRSTD; 0651 00833000 * 0651 00834000 * /*********************************************************/ 00835000 * /* */ 00836000 * /* FREE ANY LEFT OVER BUFFERS */ 00837000 * /* */ 00838000 * /*********************************************************/ 00839000 * 0652 00840000 * IF PLMVUNCA^=0 THEN 0652 00841000 LA @05,OPCWRKSP+4(,ROPCAVT) 0652 00842000 L @05,PLMVUNCA(,@05) 0652 00843000 LTR @05,@05 0652 00844000 BZ @RF00652 0652 00845000 * DO; /* IF EXTRA BUFFER */ 00846000 * RPARM=PLMVUNCA; /* ADDR OF BUF TO FRE */ 00847000 LR RPARM,@05 0654 00848000 * RESPECIFY 0655 00849000 * RWORK13 RSTD; 0655 00850000 * RWORK13=ADDR(OPCSAVE);/* SAVE AREA */ 00851000 LA RWORK13,OPCSAVE(,ROPCAVT) 0656 00852000 * CALL FREEBUFF; /* FREE BUFFER */ 00853000 L @15,OPCFREBF(,ROPCAVT) 0657 00854000 BALR @14,@15 0657 00855000 * RESPECIFY 0658 00856000 * RWORK13 UNRSTD; 0658 00857000 * END; /* */ 00858000 * 0659 00859000 * /*********************************************************/ 00860000 * /* */ 00861000 * /* SET UP TO EXIT */ 00862000 * /* */ 00863000 * /*********************************************************/ 00864000 * 0660 00865000 * OPCMODID=OCWTG; /* SET TO EXIT */ 00866000 @RF00652 MVC OPCMODID(2,ROPCAVT),OCWTG(ROPCE) 0660 00867000 * OCWTG=0; /* RESET OCWTG */ 00868000 SLR @05,@05 0661 00869000 STH @05,OCWTG(,ROPCE) 0661 00870000 * OCRESP=ON; /* INDICATE RESPONSE */ 00871000 OI OCRESP(ROPCE),B'00000001' 0662 00872000 * END; /* */ 00873000 * END; /* */ 00874000 @RF00624 DS 0H 0665 00875000 * OPCFLAG1=0; /* CLEAR FLAG BEFORE EXIT */ 00876000 @RC00427 MVI OPCFLAG1(ROPCAVT),X'00' 0665 00877000 * RPARM=ROPCAVT; /* PARM */ 00878000 LR RPARM,ROPCAVT 0666 00879000 * IF OPCMODID=XCTL00 THEN /* CLEAR REG 0 PRIOR @YM03724*/ 00880000 CLC OPCMODID(2,ROPCAVT),@CC02382 0667 00881000 BNE @RF00667 0667 00882000 * RZERO=0; /* TO TRANSFER OF CONTROL */ 00883000 SLR RZERO,RZERO 0668 00884000 * ELSE 0669 00885000 * ; /* TO MODULE IGC0010D. */ 00886000 @RF00667 DS 0H 0670 00887000 * GEN EXIT REFS(OPCXCTL); 0670 00888000 * /* */ 00889000 XCTL SF=(E,OPCXCTL(ROPCAVT)) @Y17XART 00890000 * RESPECIFY 0671 00891000 * (IEDQPPTR, 0671 00892000 * RPRU, 0671 00893000 * RWORK9) UNRSTD; /* */ 00894000 *OLDFID0: 0672 00895000 * PROC OPTIONS(DONTSAVE,NOSAVEAREA);/* FID0 CHAIN */ 00896000 @EL00001 DS 0H 0672 00897000 @EF00001 DS 0H 0672 00898000 @ER00001 BR @14 0672 00899000 OLDFID0 DS 0H 0673 00900000 * OCLINK=OPCWAITN; /* PUT OPCE ON FID0 WAIT CHAIN */ 00901000 L @05,OPCWAITN(,ROPCAVT) 0673 00902000 ST @05,OCLINK(,ROPCE) 0673 00903000 * OPCWAITN=ROPCE; /* */ 00904000 ST ROPCE,OPCWAITN(,ROPCAVT) 0674 00905000 * RETURN; /* RETURN TO INVOKER */ 00906000 @EL00002 DS 0H 0675 00907000 @EF00002 DS 0H 0675 00908000 @ER00002 BR @14 0675 00909000 * END; /* */ 00910000 * 0677 00911000 * /*****************************************************************/ 00912000 * /* */ 00913000 * /* WAIT CHAIN SEARCH SUBROUTINE. REGISTER 9 MUST CONTAIN ADDR OF */ 00914000 * /* WAIT CHAIN. THIS IS USED IN CASE THE ELEMENT WE ARE LOOKING */ 00915000 * /* FOR IS THE FIRST ON THE CHAIN AND UNLINKING MUST BE */ 00916000 * /* PERFORMED.REGISTER 3 MUST CONTAIN THE ADDR OF THE FIRST OPCE */ 00917000 * /* TO SEARCH. THE SEARCH ARGUMENT IS ALWAYS OCSEQ= PRF1SQID */ 00918000 * /* (ADDRESSIBILITY PROVIDED BY CALLER). IF THE CORRECT OPCE IS */ 00919000 * /* FOUND IT IS UNCHAINED FROM THE WAIT CHAIN AND THE BUFFER */ 00920000 * /* POINTED TO BY IEDQPPTR IS LINKED TO IT. REGISTER 3 WILL */ 00921000 * /* CONTAIN THE OPCE ADDRESS. IF THE OPCE IS NOT FOUND THE BUFFER */ 00922000 * /* IS FREED, OPCMODID IS SET TO EXIT TO IGC0010D, EXITFLAG IS */ 00923000 * /* TURNED ON. */ 00924000 * /* */ 00925000 * /*****************************************************************/ 00926000 * 0677 00927000 *WAITCHAN: 0677 00928000 * PROC OPTIONS(DONTSAVE,NOSAVEAREA); 0677 00929000 WAITCHAN DS 0H 0678 00930000 * RESPECIFY 0678 00931000 * (RWORK9, 0678 00932000 * IEDQPPTR, 0678 00933000 * RRETSAVE) RSTD; 0678 00934000 * RESPECIFY 0679 00935000 * RRET RSTD; 0679 00936000 * RRETSAVE=RRET; /* SAVE RETURN REGISTER */ 00937000 LR RRETSAVE,RRET 0680 00938000 * RESPECIFY 0681 00939000 * RRET UNRSTD; 0681 00940000 * ROPCE=RWORK9->OCLINK; /* GET 1ST OPCE */ 00941000 L ROPCE,OCLINK(,RWORK9) 0682 00942000 * IF RWORK9=ADDR(OPCFMDFC) THEN 0683 00943000 LA @08,OPCFMDFC(,ROPCAVT) 0683 00944000 CR RWORK9,@08 0683 00945000 BNE @RF00683 0683 00946000 * DO WHILE(ROPCE>0&^(OCSEQ=PRF1SQID&OCRUDEST=PRFSRCE));/* IF 0684 00947000 * SPECIAL CHAIN SRCH,SRCH UNTIL 00948000 * OCSEQ AND OCRUDEST FOUND OR NO 00949000 * MORE OPCES */ 00950000 B @DE00684 0684 00951000 @DL00684 DS 0H 0685 00952000 * RWORK9=ROPCE; /* SAVE AS PREVIOUS OPCE */ 00953000 LR RWORK9,ROPCE 0685 00954000 * ROPCE=OCLINK; /* GET NEXT OPCE */ 00955000 L ROPCE,OCLINK(,ROPCE) 0686 00956000 * END; 0687 00957000 @DE00684 LTR ROPCE,ROPCE 0687 00958000 BNP @DC00684 0687 00959000 LR @08,IEDQPPTR 0687 00960000 AL @08,@CF01590 0687 00961000 CLC OCSEQ(2,ROPCE),PRF1SQID-4(@08) 0687 00962000 BNE @DL00684 0687 00963000 L @08,OCRUDEST(,ROPCE) 0687 00964000 CH @08,PRFSRCE(,IEDQPPTR) 0687 00965000 BNE @DL00684 0687 00966000 @DC00684 DS 0H 0688 00967000 * ELSE 0688 00968000 * DO WHILE(ROPCE>0&^(OCSEQ=PRF1SQID));/* SEARCH FOR OCSEQ ONLY */ 00969000 B @RC00683 0688 00970000 @RF00683 B @DE00688 0688 00971000 @DL00688 DS 0H 0689 00972000 * RWORK9=ROPCE; /* SAVE AS PREVIOUS OPCE */ 00973000 LR RWORK9,ROPCE 0689 00974000 * ROPCE=OCLINK; /* GET NEXT OPCE */ 00975000 L ROPCE,OCLINK(,ROPCE) 0690 00976000 * END; 0691 00977000 @DE00688 LTR ROPCE,ROPCE 0691 00978000 BNP @DC00688 0691 00979000 LR @08,IEDQPPTR 0691 00980000 AL @08,@CF01590 0691 00981000 CLC OCSEQ(2,ROPCE),PRF1SQID-4(@08) 0691 00982000 BNE @DL00688 0691 00983000 @DC00688 DS 0H 0692 00984000 * IF ROPCE=0 THEN 0692 00985000 @RC00683 LTR ROPCE,ROPCE 0692 00986000 BNZ @RF00692 0692 00987000 * DO; /* NO OPCE FOUND */ 00988000 * RPARM=IEDQPPTR; /* FREE BUFFER */ 00989000 LR RPARM,IEDQPPTR 0694 00990000 * RESPECIFY 0695 00991000 * RWORK13 RSTD; 0695 00992000 * RWORK13=ADDR(OPCSAVE); 0696 00993000 LA RWORK13,OPCSAVE(,ROPCAVT) 0696 00994000 * CALL FREEBUFF; /* */ 00995000 L @15,OPCFREBF(,ROPCAVT) 0697 00996000 BALR @14,@15 0697 00997000 * RESPECIFY 0698 00998000 * RWORK13 UNRSTD; 0698 00999000 * EXITFLAG=ON; /* SET EXIT FLAG ON */ 01000000 OI EXITFLAG(ROPCAVT),B'10000000' 0699 01001000 * OPCMODID=XCTL00; /* PREPARE TO EXIT */ 01002000 MVC OPCMODID(2,ROPCAVT),@CC02382 0700 01003000 * END; /* */ 01004000 * ELSE 0702 01005000 * DO; /* */ 01006000 B @RC00692 0702 01007000 @RF00692 DS 0H 0703 01008000 * RWORK9->OCLINK=OCLINK; /* UNCHAIN THIS OPCE */ 01009000 L @08,OCLINK(,ROPCE) 0703 01010000 ST @08,OCLINK(,RWORK9) 0703 01011000 * OCUNIT=IEDQPPTR; /* ATTACH BUFFER TO IT */ 01012000 ST IEDQPPTR,OCUNIT(,ROPCE) 0704 01013000 * OPCCOPCE=ROPCE; /* SET THIS OPCE AS THE CURRENT 01014000 * ELEMENT @YM03714*/ 01015000 ST ROPCE,OPCCOPCE(,ROPCAVT) 0705 01016000 * END; /* */ 01017000 * RESPECIFY 0707 01018000 * RRET RSTD; 0707 01019000 @RC00692 DS 0H 0708 01020000 * RRET=RRETSAVE; /* RELOAD RETURN ADDR */ 01021000 LR RRET,RRETSAVE 0708 01022000 * RESPECIFY 0709 01023000 * (RWORK9, 0709 01024000 * IEDQPPTR, 0709 01025000 * RRETSAVE) UNRSTD; /* */ 01026000 * RETURN; 0710 01027000 @EL00003 DS 0H 0710 01028000 @EF00003 DS 0H 0710 01029000 @ER00003 BR @14 0710 01030000 * RESPECIFY 0711 01031000 * RRET UNRSTD; 0711 01032000 * END; /* */ 01033000 * 0713 01034000 * /*****************************************************************/ 01035000 * /* */ 01036000 * /* THIS SUBROUTINE EXPECTS RPARM TO CONTAIN THE TTE PTR. IT WILL */ 01037000 * /* GET THE FIRST SIB IF ANY OFF OF THE TTE AND SEARCH TO THE END */ 01038000 * /* OF THE SIB CHAIN. AT THE END OF THE CHAIN IT WILL CHECK TO SEE*/ 01039000 * /* IF THE SIB BELONGS TO SSCP AND THE TS PROFILE 1 INDICATOR IS */ 01040000 * /* ON. IF SO LOCALSW WILL BE SET TO ONE (1). IF NO SIB EXISTS, */ 01041000 * /* LOCALSW WILL ALSO BE SET TO ONE. OTHERWISE LOCALSW WILL BE SET*/ 01042000 * /* TO ZERO. */ 01043000 * /* */ 01044000 * /*****************************************************************/ 01045000 * 0713 01046000 *SIBSRCH: 0713 01047000 * PROC OPTIONS(DONTSAVE,NOSAVEAREA); 0713 01048000 SIBSRCH DS 0H 0714 01049000 * RESPECIFY 0714 01050000 * (RTERM, 0714 01051000 * RSIB) RSTD; 0714 01052000 * RTERM=RPARM; /* SET UP TTE BASE */ 01053000 LR RTERM,RPARM 0715 01054000 * RSIB=TRMSIBPT; /* SET UP SIB BASE ADDR */ 01055000 LR @05,RTERM 0716 01056000 AL @05,@CF02449 0716 01057000 SLR RSIB,RSIB 0716 01058000 ICM RSIB,7,TRMSIBPT-7(@05) 0716 01059000 * RESPECIFY 0717 01060000 * RTERM UNRSTD; 0717 01061000 * DO WHILE(RSIB>0&SIBINDEX^=SAVTSCPT);/* SEARCH TO END OF CHAIN OF 01062000 * SSCP SIB FOUND */ 01063000 B @DE00718 0718 01064000 @DL00718 DS 0H 0719 01065000 * RSIB=SIBCHAIN; /* LOOK AT NEXT SIB */ 01066000 L RSIB,SIBCHAIN(,RSIB) 0719 01067000 * END; 0720 01068000 @DE00718 LTR RSIB,RSIB 0720 01069000 BNP @DC00718 0720 01070000 L @10,AVTSAVTP(,RAVT) 0720 01071000 CLC SIBINDEX(2,RSIB),SAVTSCPT(@10) 0720 01072000 BNE @DL00718 0720 01073000 @DC00718 DS 0H 0721 01074000 * IF RSIB=0|SIBTSPRO=1 THEN 0721 01075000 LTR RSIB,RSIB 0721 01076000 BZ @RT00721 0721 01077000 CLI SIBTSPRO(RSIB),1 0721 01078000 BNE @RF00721 0721 01079000 @RT00721 DS 0H 0722 01080000 * LOCALSW=1; /* IF SSCP SIB AND TS PROFILE ONE 01081000 * ON THEN LOCALSW = 1 */ 01082000 L @10,OPCWORK(,ROPCAVT) 0722 01083000 MVC LOCALSW(4,@10),@CF00062 0722 01084000 * END; 0723 01085000 @EL00004 DS 0H 0723 01086000 @EF00004 DS 0H 0723 01087000 @ER00004 BR @14 0723 01088000 * END /* */ 01089000 * 0724 01090000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01091000 */*%INCLUDE SYSLIB (TAVTD ) */ 01092000 */*%INCLUDE SYSLIB (IHADCBDF) */ 01093000 */*%INCLUDE SYSLIB (IHADCB ) */ 01094000 */*%INCLUDE SYSLIB (TDEBD ) */ 01095000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 01096000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01097000 */*%INCLUDE SYSLIB (TOPCED ) */ 01098000 */*%INCLUDE SYSLIB (TOPRED ) */ 01099000 */*%INCLUDE SYSLIB (TPLMVD ) */ 01100000 */*%INCLUDE SYSLIB (TPRFD ) */ 01101000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01102000 */*%INCLUDE SYSLIB (TPRUD ) */ 01103000 */*%INCLUDE SYSLIB (TQCBD ) */ 01104000 */*%INCLUDE SYSLIB (TRHD ) */ 01105000 */*%INCLUDE SYSLIB (TSIBD ) */ 01106000 */*%INCLUDE SYSLIB (TTRMD ) */ 01107000 */*%INCLUDE SYSLIB (TTHD ) */ 01108000 * 0724 01109000 * ; 0724 01110000 @DATA DS 0H 01111000 DS 0F 01112000 DS 0F 01113000 @CF00062 DC F'1' 01114000 @CF00066 DC F'2' 01115000 @CF00075 DC F'3' 01116000 @CF00046 DC F'8' 01117000 @CF02432 DC F'30' 01118000 @CF00776 DC F'36' 01119000 @CF02438 DC F'-12' 01120000 @CF02437 DC F'-10' 01121000 @CF02436 DC F'-8' 01122000 @CF02449 DC F'-7' 01123000 @CF02442 DC F'-5' 01124000 @CF01590 DC F'-4' 01125000 @CF01588 DC F'-3' 01126000 @CF02435 DC XL4'0000FFFF' 01127000 @CF00452 DC XL4'1E' 01128000 DS 0D 01129000 @CC02380 DC C'03' 01130000 @CC02382 DC C'00' 01131000 @CB02405 DC X'000003' 01132000 ZAPAREA DC 50X'FF' 01133000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01134000 @01 EQU 01 01135000 @02 EQU 02 01136000 @03 EQU 03 01137000 @04 EQU 04 01138000 @05 EQU 05 01139000 @06 EQU 06 01140000 @07 EQU 07 01141000 @08 EQU 08 01142000 @09 EQU 09 01143000 @10 EQU 10 01144000 @11 EQU 11 01145000 @12 EQU 12 01146000 @13 EQU 13 01147000 @14 EQU 14 01148000 @15 EQU 15 01149000 IEDQAPTR EQU @04 01150000 ROPCAVT EQU @02 01151000 ROPCE EQU @03 01152000 IEDQPPTR EQU @07 01153000 IEDPRUQP EQU @06 01154000 IEDQTPTR EQU @10 01155000 RAVT EQU @04 01156000 RTERM EQU @10 01157000 RSIB EQU @11 01158000 RZERO EQU @00 01159000 RPARM EQU @01 01160000 IEDOPREP EQU @03 01161000 ROPRE EQU @03 01162000 RRETSAVE EQU @05 01163000 RPRU EQU @06 01164000 RWORK9 EQU @09 01165000 RWORK13 EQU @13 01166000 RRET EQU @14 01167000 IEDQSIBP EQU @11 01168000 RBRNCH EQU @15 01169000 RWORK10 EQU @10 01170000 RWORK11 EQU @11 01171000 IEDQAVTD EQU 0 01172000 AVTSAVEX EQU IEDQAVTD+288 01173000 AVTREADD EQU IEDQAVTD+380 01174000 AVTBUFSW EQU IEDQAVTD+384 01175000 @NM00004 EQU IEDQAVTD+388 01176000 AVTCKFLG EQU @NM00004 01177000 AVTBASE EQU IEDQAVTD+412 01178000 AVTPKF EQU AVTBASE 01179000 AVTRNMPT EQU IEDQAVTD+424 01180000 AVTOSECB EQU IEDQAVTD+492 01181000 AVTECB1 EQU AVTOSECB 01182000 AVTHG02 EQU IEDQAVTD+528 01183000 AVTDISP EQU IEDQAVTD+552 01184000 AVTHD EQU IEDQAVTD+556 01185000 AVTSCOPT EQU AVTHD 01186000 AVTSAVTP EQU IEDQAVTD+612 01187000 AVTSAVTF EQU AVTSAVTP 01188000 AVTCKPEL EQU IEDQAVTD+652 01189000 AVTCKRMV EQU AVTCKPEL 01190000 AVTCKELF EQU IEDQAVTD+680 01191000 AVTCKBYT EQU IEDQAVTD+691 01192000 AVTHG01 EQU IEDQAVTD+692 01193000 AVTCKLNK EQU IEDQAVTD+696 01194000 AVTCRELE EQU IEDQAVTD+708 01195000 AVTCCELE EQU AVTCRELE 01196000 AVTCLRHI EQU IEDQAVTD+716 01197000 AVTADBUF EQU IEDQAVTD+720 01198000 AVTSYSER EQU IEDQAVTD+728 01199000 AVTBFRFG EQU IEDQAVTD+784 01200000 AVTCKPQB EQU IEDQAVTD+804 01201000 AVTCKPTB EQU AVTCKPQB 01202000 AVTCKPEC EQU AVTCKPQB+4 01203000 AVTCKPCC EQU AVTCKPEC 01204000 AVTOPCQB EQU IEDQAVTD+816 01205000 AVTOPCOB EQU AVTOPCQB 01206000 AVTOPCEC EQU AVTOPCQB+4 01207000 AVTOPCCC EQU AVTOPCEC 01208000 AVTOLTQB EQU IEDQAVTD+828 01209000 AVTCWFL1 EQU IEDQAVTD+924 01210000 AVTCWFL2 EQU IEDQAVTD+925 01211000 AVTSUBT EQU IEDQAVTD+948 01212000 AVTIOTR EQU IEDQAVTD+949 01213000 AVTKEYLE EQU IEDQAVTD+1032 01214000 AVTBIT1 EQU IEDQAVTD+1050 01215000 AVTBIT2 EQU IEDQAVTD+1051 01216000 AVTBIT3 EQU IEDQAVTD+1052 01217000 AVTBIT4 EQU IEDQAVTD+1136 01218000 @NM00086 EQU IEDQAVTD+1232 01219000 IEDNSVTD EQU 0 01220000 SAVTDIAG EQU IEDNSVTD 01221000 SAVTDIAF EQU SAVTDIAG 01222000 SAVTLUSQ EQU IEDNSVTD+88 01223000 SAVTSCPQ EQU IEDNSVTD+108 01224000 SAVTXFMO EQU IEDNSVTD+120 01225000 SAVTMVBF EQU IEDNSVTD+160 01226000 SAVTRQTG EQU IEDNSVTD+236 01227000 SAVTTCPU EQU IEDNSVTD+238 01228000 SAVTSCPT EQU SAVTTCPU 01229000 SAVTZELM EQU IEDNSVTD+270 01230000 SAVTRDRV EQU IEDNSVTD+284 01231000 SAVTCKQB EQU IEDNSVTD+300 01232000 SAVTCKTB EQU SAVTCKQB 01233000 SAVTCKEC EQU SAVTCKQB+4 01234000 SAVTCKCC EQU SAVTCKEC 01235000 IHADCB EQU 0 01236000 IHADCS1A EQU 0 01237000 DCBBCKUP EQU IHADCS1A+8 01238000 IHADCS2K EQU 0 01239000 DCBDUMPD EQU IHADCS2K 01240000 DCBTRSTA EQU IHADCS2K+5 01241000 DCBDSORG EQU IHADCS2K+6 01242000 DCBDSRG2 EQU DCBDSORG+1 01243000 DCBRNCKD EQU IHADCS2K+12 01244000 DCBEXLST EQU IHADCS2K+16 01245000 IHADCS24 EQU 0 01246000 DCBOFLGS EQU IHADCS24+8 01247000 DCBOFLWR EQU DCBOFLGS 01248000 DCBIFLG EQU IHADCS24+9 01249000 DCBIBPCT EQU DCBIFLG 01250000 DCBMACR EQU IHADCS24+10 01251000 DCBMACR1 EQU DCBMACR 01252000 DCBMRFE EQU DCBMACR1 01253000 DCBMRGET EQU DCBMRFE 01254000 DCBMRAPG EQU DCBMACR1 01255000 DCBMRRD EQU DCBMRAPG 01256000 DCBMRCI EQU DCBMACR1 01257000 DCBMRMVG EQU DCBMRCI 01258000 DCBMRLCG EQU DCBMACR1 01259000 DCBMRABC EQU DCBMACR1 01260000 DCBMRPT1 EQU DCBMRABC 01261000 DCBMRSBG EQU DCBMRPT1 01262000 DCBMRCRL EQU DCBMACR1 01263000 DCBMRCHK EQU DCBMRCRL 01264000 DCBMRRDX EQU DCBMRCHK 01265000 DCBMRDMG EQU DCBMACR1 01266000 DCBMACR2 EQU DCBMACR+1 01267000 DCBMRPUT EQU DCBMACR2 01268000 DCBMRWRT EQU DCBMACR2 01269000 DCBMRMVP EQU DCBMACR2 01270000 DCBMR5WD EQU DCBMACR2 01271000 DCBMRLDM EQU DCBMR5WD 01272000 DCBMRLCP EQU DCBMRLDM 01273000 DCBMR4WD EQU DCBMACR2 01274000 DCBMRPT2 EQU DCBMR4WD 01275000 DCBMRTMD EQU DCBMRPT2 01276000 DCBMR3WD EQU DCBMACR2 01277000 DCBMRCTL EQU DCBMR3WD 01278000 DCBMRSTK EQU DCBMRCTL 01279000 DCBMR1WD EQU DCBMACR2 01280000 DCBMRSWA EQU DCBMR1WD 01281000 DCBMRDMD EQU DCBMRSWA 01282000 IHADCS25 EQU 0 01283000 DCBMACRF EQU IHADCS25+2 01284000 DCBMACF1 EQU DCBMACRF 01285000 DCBMFFE EQU DCBMACF1 01286000 DCBMFGET EQU DCBMFFE 01287000 DCBMFAPG EQU DCBMACF1 01288000 DCBMFRD EQU DCBMFAPG 01289000 DCBMFCI EQU DCBMACF1 01290000 DCBMFMVG EQU DCBMFCI 01291000 DCBMFLCG EQU DCBMACF1 01292000 DCBMFABC EQU DCBMACF1 01293000 DCBMFPT1 EQU DCBMFABC 01294000 DCBMFSBG EQU DCBMFPT1 01295000 DCBMFCRL EQU DCBMACF1 01296000 DCBMFCHK EQU DCBMFCRL 01297000 DCBMFDMG EQU DCBMACF1 01298000 DCBMACF2 EQU DCBMACRF+1 01299000 DCBMFPUT EQU DCBMACF2 01300000 DCBMFWRT EQU DCBMACF2 01301000 DCBMFMVP EQU DCBMACF2 01302000 DCBMF5WD EQU DCBMACF2 01303000 DCBMFLDM EQU DCBMF5WD 01304000 DCBMFLCP EQU DCBMFLDM 01305000 DCBMF4WD EQU DCBMACF2 01306000 DCBMFPT2 EQU DCBMF4WD 01307000 DCBMFTMD EQU DCBMFPT2 01308000 DCBMF3WD EQU DCBMACF2 01309000 DCBMFCTL EQU DCBMF3WD 01310000 DCBMFSTK EQU DCBMFCTL 01311000 DCBMF1WD EQU DCBMACF2 01312000 DCBMFSWA EQU DCBMF1WD 01313000 DCBMFDMD EQU DCBMFSWA 01314000 DCBDEBAD EQU IHADCS25+4 01315000 DCBIFLGS EQU DCBDEBAD 01316000 DCBIFPCT EQU DCBIFLGS 01317000 IHADCS27 EQU 0 01318000 DCBGET EQU IHADCS27 01319000 DCBPUT EQU DCBGET 01320000 DCBGETA EQU DCBPUT+1 01321000 IHADCS43 EQU 0 01322000 DCBSCTAB EQU IHADCS43 01323000 IEDQDEB EQU 0 01324000 DEBPRF EQU IEDQDEB 01325000 DEBAPVT EQU DEBPRF 01326000 DEBNMSUB EQU IEDQDEB+36 01327000 DEBNMEXT EQU IEDQDEB+52 01328000 DEBUCBS EQU IEDQDEB+68 01329000 IEDQDPTR EQU 0 01330000 UCB EQU 0 01331000 UCBOB EQU 0 01332000 UCBJBNR EQU UCBOB 01333000 UCBFL5 EQU UCBOB+1 01334000 UCBAF EQU UCBFL5 01335000 UCBSTAT EQU UCBOB+3 01336000 UCBCHAN EQU UCBOB+4 01337000 UCBSFLS EQU UCBOB+6 01338000 UCBFLA EQU UCBSFLS 01339000 UCBFL1 EQU UCBFLA 01340000 UCBBSY EQU UCBFL1 01341000 UCBNRY EQU UCBFL1 01342000 UCBPST EQU UCBFL1 01343000 UCBCUB EQU UCBFL1 01344000 UCBFLB EQU UCBSFLS+1 01345000 UCBCHM EQU UCBOB+8 01346000 UCBCHM1 EQU UCBCHM 01347000 UCBPTH0 EQU UCBCHM1 01348000 UCBPTH1 EQU UCBCHM1 01349000 UCBWGT EQU UCBOB+12 01350000 UCBNAME EQU UCBOB+13 01351000 UCBTYP EQU UCBOB+16 01352000 UCBTBYT1 EQU UCBTYP 01353000 UCB1FEA5 EQU UCBTBYT1 01354000 UCB1FEA6 EQU UCBTBYT1 01355000 UCBTBYT2 EQU UCBTYP+1 01356000 UCB2OPT2 EQU UCBTBYT2 01357000 UCBDUDN1 EQU UCB2OPT2 01358000 UCB2OPT3 EQU UCBTBYT2 01359000 UCBDUDN2 EQU UCB2OPT3 01360000 UCB2OPT4 EQU UCBTBYT2 01361000 UCBRWTAU EQU UCB2OPT4 01362000 UCB2OPT6 EQU UCBTBYT2 01363000 UCB2OPT7 EQU UCBTBYT2 01364000 UCBTBYT3 EQU UCBTYP+2 01365000 UCBDVCLS EQU UCBTBYT3 01366000 UCBTBYT4 EQU UCBTYP+3 01367000 UCBEXTPT EQU UCBOB+20 01368000 UCBFLC EQU UCBEXTPT 01369000 UCBDEV EQU UCBOB+24 01370000 UCBCMEXT EQU 0 01371000 UCBATI EQU UCBCMEXT+3 01372000 @NM00119 EQU UCBATI 01373000 UCBFLP1 EQU UCBCMEXT+5 01374000 UCBMT EQU 0 01375000 UCBOCR EQU 0 01376000 UCB3540X EQU 0 01377000 UCBDKBYT EQU UCB3540X+6 01378000 UCB3800X EQU 0 01379000 UCBOPTNS EQU UCB3800X 01380000 UCBACTIV EQU UCB3800X+3 01381000 UCBMDRBF EQU UCB3800X+36 01382000 UCBUCS EQU 0 01383000 UCBUCSOP EQU UCBUCS+4 01384000 UCBFCBOP EQU UCBUCS+5 01385000 IEDQOPCD EQU 0 01386000 OPCAVTPT EQU IEDQOPCD+8 01387000 OPCCOPCE EQU IEDQOPCD+12 01388000 OPCSAVE EQU IEDQOPCD+56 01389000 OPCWORK EQU IEDQOPCD+140 01390000 OPCFLAG1 EQU IEDQOPCD+146 01391000 OPCAQCTL EQU IEDQOPCD+180 01392000 OPCXCTL EQU IEDQOPCD+204 01393000 OPCLDNME EQU IEDQOPCD+212 01394000 OPCMODID EQU OPCLDNME+3 01395000 OPCWAITN EQU IEDQOPCD+228 01396000 OPCSCNC EQU IEDQOPCD+264 01397000 OPCFMDFC EQU IEDQOPCD+268 01398000 OPCGETBF EQU IEDQOPCD+276 01399000 OPCFREBF EQU IEDQOPCD+280 01400000 OPCCLNTS EQU IEDQOPCD+288 01401000 OPCSPEC EQU IEDQOPCD+300 01402000 OPCRQCNT EQU IEDQOPCD+316 01403000 OPCWRKSP EQU IEDQOPCD+320 01404000 OPCPWCOB EQU IEDQOPCD+368 01405000 OPCPWQCB EQU OPCPWCOB 01406000 OPCPWECB EQU OPCPWCOB+4 01407000 IEDQOPCE EQU 0 01408000 OCLINK EQU IEDQOPCE 01409000 OCELEM EQU IEDQOPCE+4 01410000 OCUNIT EQU IEDQOPCE+8 01411000 OCRUDEST EQU OCUNIT 01412000 OCCKPKEY EQU OCRUDEST 01413000 OCSCAN EQU OCCKPKEY 01414000 OCOPTCDE EQU IEDQOPCE+12 01415000 OCSWITCH EQU IEDQOPCE+13 01416000 OCFLAG EQU IEDQOPCE+14 01417000 OCRESP EQU OCFLAG 01418000 @NM00137 EQU IEDQOPCE+16 01419000 OCDEST EQU @NM00137 01420000 OCREQVAL EQU OCDEST+1 01421000 OCLINENO EQU IEDQOPCE+22 01422000 OCTIOT EQU OCLINENO 01423000 OCTRUNIT EQU IEDQOPCE+24 01424000 OCRSID EQU OCTRUNIT 01425000 OCALSTAT EQU OCRSID 01426000 OCACTREQ EQU OCALSTAT 01427000 OCSEQ EQU OCTRUNIT+2 01428000 OCPARM EQU IEDQOPCE+28 01429000 OCWTG EQU IEDQOPCE+30 01430000 OCBACKUP EQU IEDQOPCE+32 01431000 OCMODNME EQU IEDQOPCE+40 01432000 OCIPLWA EQU OCMODNME 01433000 OCCKDATA EQU IEDQOPCE+48 01434000 OCRSTGTM EQU OCCKDATA 01435000 IEDQOPCN EQU 0 01436000 OCLDNME EQU IEDQOPCN 01437000 OCLINTTE EQU OCLDNME 01438000 OCREQFLG EQU OCLINTTE+2 01439000 OCPREFLG EQU OCLINTTE+3 01440000 IEDOPRED EQU 0 01441000 OPREPRI EQU IEDOPRED+4 01442000 OPRESAVE EQU IEDOPRED+8 01443000 OPREFLG3 EQU IEDOPRED+14 01444000 IEDPLMV EQU 0 01445000 PLMVTU EQU IEDPLMV 01446000 PLMVTD EQU IEDPLMV+4 01447000 PLMVSU EQU IEDPLMV+8 01448000 PLMVSD EQU IEDPLMV+12 01449000 PLMVLNTH EQU IEDPLMV+16 01450000 PLMVFLG1 EQU IEDPLMV+18 01451000 PLMVUNCF EQU PLMVFLG1 01452000 PLMVUNCA EQU IEDPLMV+20 01453000 IEDPLMVP EQU 0 01454000 IEDQPRF EQU 0 01455000 PRFRCB EQU IEDQPRF 01456000 PRFKEY EQU PRFRCB 01457000 PRFQCBA EQU PRFRCB+1 01458000 PRFPRI EQU PRFRCB+4 01459000 PRFLINK EQU PRFRCB+5 01460000 PRFTIC EQU IEDQPRF+8 01461000 PRFTICC EQU PRFTIC 01462000 PRFNBUNT EQU IEDQPRF+12 01463000 PRFSUNIT EQU PRFNBUNT 01464000 PRFPLQCB EQU PRFSUNIT 01465000 PRFLCB EQU IEDQPRF+13 01466000 @NM00156 EQU IEDQPRF+16 01467000 PRFSVFFO EQU @NM00156 01468000 PRFSRCE EQU PRFSVFFO 01469000 PRFSIZE EQU PRFSVFFO+2 01470000 PRFSTAT1 EQU IEDQPRF+20 01471000 PRFEOFN EQU PRFSTAT1 01472000 PRFNLSTN EQU PRFSTAT1 01473000 PRFNHDRN EQU PRFSTAT1 01474000 PRFCORE EQU IEDQPRF+21 01475000 PRFXTRA EQU PRFCORE 01476000 PRFSCAN EQU IEDQPRF+24 01477000 PRFISIZE EQU PRFSCAN+1 01478000 PRFTQBCK EQU IEDQPRF+26 01479000 PRFNTXT EQU PRFTQBCK 01480000 PRFEOBOF EQU PRFNTXT 01481000 PRFCHDR EQU IEDQPRF+32 01482000 PRFHQBCK EQU IEDQPRF+35 01483000 PRFDEST EQU IEDQPRF+40 01484000 IEDPF1 EQU 0 01485000 PRF1RH EQU IEDPF1 01486000 PRF1FLG1 EQU IEDPF1+3 01487000 PRF1FIDI EQU PRF1FLG1 01488000 PRF1EXPI EQU PRF1FLG1 01489000 PRF1FORM EQU PRF1FLG1 01490000 PRF1USS EQU PRF1FLG1 01491000 PRF1WD2 EQU IEDPF1+4 01492000 PRF1SEQP EQU PRF1WD2 01493000 PRF1SQID EQU PRF1SEQP 01494000 PRF1TAG1 EQU PRF1SQID 01495000 PRF1TAGS EQU PRF1TAG1 01496000 IEDPF2 EQU 0 01497000 PRF2FLG2 EQU IEDPF2 01498000 PRF2WD2 EQU IEDPF2+4 01499000 IEDPRUQD EQU 0 01500000 PRUTTCIN EQU IEDPRUQD 01501000 PRUDATCT EQU IEDPRUQD+2 01502000 PRUTIC EQU IEDPRUQD+8 01503000 PRUDATA EQU IEDPRUQD+12 01504000 IEDPRUND EQU 0 01505000 PRURHTH EQU IEDPRUND 01506000 PRURH EQU PRURHTH 01507000 PRURHFG0 EQU PRURH 01508000 PRURUCAT EQU PRURHFG0 01509000 PRURHFG1 EQU PRURH+1 01510000 PRURHFG2 EQU PRURH+2 01511000 PRUTH EQU PRURHTH+3 01512000 PRUFIDN EQU PRUTH 01513000 PRUTHTYE EQU PRUFIDN 01514000 PRUTHBIU EQU PRUFIDN 01515000 PRUTHEIU EQU PRUFIDN 01516000 PRUTHUSS EQU PRUFIDN 01517000 PRUTHEFI EQU PRUFIDN 01518000 IEDQQCB EQU 0 01519000 QCBDSFLG EQU IEDQQCB 01520000 QCBDISK EQU QCBDSFLG 01521000 QCBELCHN EQU IEDQQCB+1 01522000 QCBEOLDT EQU IEDQQCB+16 01523000 QCBBYTE1 EQU QCBEOLDT+1 01524000 QCBLKRLN EQU IEDQQCB+18 01525000 QCBRETCT EQU QCBLKRLN 01526000 QCBSTAT EQU IEDQQCB+19 01527000 QCBINSRC EQU IEDQQCB+21 01528000 @NM00174 EQU QCBINSRC 01529000 QCBTSOF2 EQU @NM00174+1 01530000 QCBTSOF1 EQU @NM00174+2 01531000 QCBINTVL EQU IEDQQCB+24 01532000 QCBPREN EQU IEDQQCB+28 01533000 QCBLKRRN EQU QCBPREN+1 01534000 QCBDCBAD EQU IEDQQCB+33 01535000 QCBFLAG EQU IEDQQCB+36 01536000 IEDQQPTR EQU 0 01537000 IEDQPQCB EQU 0 01538000 QCBFHDLZ EQU IEDQPQCB+3 01539000 QCBPFEFO EQU QCBFHDLZ+1 01540000 QCBFHDTZ EQU IEDQPQCB+6 01541000 QCBINTLF EQU IEDQPQCB+12 01542000 IEDNQCB EQU 0 01543000 QCBSTAT1 EQU IEDNQCB+4 01544000 QCBPLCBA EQU IEDNQCB+5 01545000 IEDRH EQU 0 01546000 TRHBYTE0 EQU IEDRH 01547000 TRHBYTE1 EQU IEDRH+1 01548000 TRHBYTE2 EQU IEDRH+2 01549000 IEDSIBD EQU 0 01550000 SIBCHAIN EQU IEDSIBD+4 01551000 SIBINDEX EQU IEDSIBD+8 01552000 SIBSESSN EQU IEDSIBD+10 01553000 SIBPACIN EQU IEDSIBD+11 01554000 SIBSEQN EQU IEDSIBD+12 01555000 SIBSTAT1 EQU IEDSIBD+16 01556000 SIBSTAT2 EQU IEDSIBD+17 01557000 SIBTSPRO EQU IEDSIBD+18 01558000 SIBBIND EQU IEDSIBD+20 01559000 SIBBIND1 EQU SIBBIND 01560000 SIBBIND2 EQU SIBBIND+1 01561000 SIBBIND3 EQU SIBBIND+2 01562000 SIBSTAT0 EQU IEDSIBD+23 01563000 IEDQTRM EQU 0 01564000 TRMSTATE EQU IEDQTRM 01565000 TRMLOG EQU TRMSTATE 01566000 TRMDESTQ EQU IEDQTRM+1 01567000 TRMINSEQ EQU IEDQTRM+4 01568000 TLISTCNT EQU TRMINSEQ 01569000 TRMOUTSQ EQU IEDQTRM+6 01570000 TLISTEN EQU TRMOUTSQ 01571000 TRMDSORG EQU TLISTEN 01572000 TRMALTD EQU IEDQTRM+8 01573000 TRMDEVFL EQU IEDQTRM+10 01574000 TRMSTAT EQU IEDQTRM+12 01575000 IEDNTRM EQU 0 01576000 TRMBYTE4 EQU IEDNTRM 01577000 TRMBYTE3 EQU IEDNTRM+1 01578000 TRMBYTE2 EQU IEDNTRM+2 01579000 TRMRSACT EQU TRMBYTE2 01580000 TRMINPG EQU TRMBYTE2 01581000 TRMBYTE1 EQU IEDNTRM+3 01582000 TRMSCPRQ EQU TRMBYTE1 01583000 TRMCOHRT EQU IEDNTRM+4 01584000 TRMBYTE0 EQU IEDNTRM+6 01585000 TRMDIAL EQU TRMBYTE0 01586000 TRMSIBPT EQU IEDNTRM+7 01587000 TRMTYPE EQU IEDNTRM+11 01588000 IEDTH EQU 0 01589000 TTHBYTE0 EQU IEDTH 01590000 TTHSNF EQU IEDTH+6 01591000 TTHTAG EQU TTHSNF 01592000 TTHTAG1 EQU TTHTAG 01593000 IEDQTNT EQU 0 01594000 ALLOCBUF EQU 0 01595000 FREEBUFF EQU 0 01596000 IEDMVBFR EQU 0 01597000 LOCALSW EQU 0 01598000 DEBSUBR EQU 0 01599000 QCBLDCB EQU 0 01600000 UCBBGN EQU 0 01601000 UCBDCPTR EQU 0 01602000 DCBPTR EQU QCBDCBAD 01603000 DEBUCB EQU DEBUCBS 01604000 DEBDVMOD EQU DEBUCB 01605000 DEBUCBAD EQU DEBUCB+1 01606000 UCBPTR EQU DEBUCBAD 01607000 UCBOBS01 EQU UCBDEV 01608000 UCBSTAB EQU UCBOBS01+10 01609000 UCBBSVL EQU UCBSTAB 01610000 UCBPRSRS EQU UCBSTAB 01611000 UCBDMCT EQU UCBOBS01+11 01612000 UCBFL4 EQU UCBOBS01+13 01613000 UCBOBS02 EQU UCBDEV 01614000 UCBTFL1 EQU UCBOBS02+19 01615000 UCBXTN EQU UCBOBS02+20 01616000 UCBVOPT EQU UCBXTN 01617000 UCBOBS03 EQU UCBDEV 01618000 UCBXTADR EQU UCBOBS03 01619000 UCBOBS04 EQU UCBDEV 01620000 UCBBTA EQU UCBOBS04+12 01621000 UCBOBS06 EQU UCBDEV 01622000 UCBAOF EQU UCBOBS06 01623000 UCBAOF1 EQU UCBAOF 01624000 UCBAOF2 EQU UCBAOF+1 01625000 @NM00118 EQU UCBOBS06+3 01626000 UCBIRB EQU UCBOBS06+4 01627000 UCBGRAF EQU UCBIRB 01628000 UCBLDNCA EQU UCBOBS06+8 01629000 UCBRDYQ EQU UCBLDNCA 01630000 UCBIRLN EQU UCBRDYQ 01631000 UCBLDNCB EQU UCBRDYQ+1 01632000 UCBCTLNK EQU UCBOBS06+12 01633000 UCBOBS07 EQU UCBDEV 01634000 UCBOBS08 EQU UCBDEV 01635000 UCBCTCAD EQU UCBOBS08 01636000 UCBCTCF1 EQU UCBOBS08+4 01637000 UCBOBS09 EQU UCBDEV 01638000 OPCAQWD EQU OPCAQCTL 01639000 OPCAQWD1 EQU OPCAQWD 01640000 OPCAQREQ EQU OPCAQWD1 01641000 OPCAQWD2 EQU OPCAQWD+4 01642000 OPCAQRQ2 EQU OPCAQWD2 01643000 OPCAQWD3 EQU OPCAQWD+8 01644000 OCCKPKY1 EQU OCCKPKEY 01645000 OCCKPTYP EQU OCCKPKY1 01646000 OCICACTN EQU OCMODNME 01647000 OCICDADR EQU OCICACTN 01648000 OCICSW EQU OCICDADR+3 01649000 PRFSHDR EQU IEDQPRF+42 01650000 TRMPRE1 EQU TRMBYTE4 01651000 TRMNCP1 EQU TRMBYTE4 01652000 TRMPRE EQU TRMBYTE3 01653000 TRMNCP EQU TRMBYTE3 01654000 TRMPU EQU TRMBYTE3 01655000 TRMLU EQU TRMBYTE3 01656000 TRMLINK EQU TRMBYTE3 01657000 GLOBALSW EQU OPCFLAG1 01658000 EXITFLAG EQU GLOBALSW 01659000 OPCEPTR EQU OPCCOPCE+1 01660000 TIC EQU OCUNIT 01661000 UNITADDR EQU TIC+1 01662000 OCCIB EQU OCREQVAL 01663000 TRMOPT EQU IEDQTRM+20 01664000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01665000 OPCODE EQU TIC 01666000 @NM00195 EQU TRMLINK 01667000 TRMLSTAT EQU TRMLINK 01668000 TRMLINT EQU TRMLINK 01669000 TRMEPMOD EQU TRMLINK 01670000 TRMLULOG EQU TRMLU 01671000 TRMINERR EQU TRMLU 01672000 TRMLUREQ EQU TRMLU 01673000 TRMSESRQ EQU TRMLU 01674000 TRMTDIFF EQU TRMLU 01675000 TRMLUTM EQU TRMLU 01676000 TRMLUIT EQU TRMLU 01677000 TRMAUTO EQU TRMLU 01678000 TRMPCONT EQU TRMPU 01679000 @NM00194 EQU TRMPU 01680000 TRMNCONT EQU TRMNCP 01681000 TRMQUCKN EQU TRMNCP 01682000 TRMSLOWN EQU TRMNCP 01683000 TRMSYGEN EQU TRMNCP 01684000 TRMNCPCL EQU TRMNCP 01685000 TRMIPLDM EQU TRMNCP 01686000 TRMINOUT EQU TRMPRE 01687000 TRMRDOUT EQU TRMPRE 01688000 TRMNLOUT EQU TRMPRE 01689000 TRMWROUT EQU TRMPRE 01690000 TRMASNXI EQU TRMPRE 01691000 TRMSTMM EQU TRMPRE 01692000 TRMCMODE EQU TRMPRE 01693000 TRMSTPND EQU TRMPRE 01694000 @NM00193 EQU TRMNCP1 01695000 TRMINOP EQU TRMNCP1 01696000 TRMLYNCH EQU TRMPRE1 01697000 TRMSPOUT EQU TRMPRE1 01698000 TRMERLCK EQU TRMPRE1 01699000 TRMQNPL EQU TRMPRE1 01700000 TRMSPACT EQU TRMPRE1 01701000 TRMOCNI EQU TRMPRE1 01702000 TRMSESSN EQU TRMPRE1 01703000 TRMCONT EQU TRMPRE1 01704000 OCICINAC EQU OCICSW 01705000 @NM00142 EQU OCICSW 01706000 OCICATST EQU OCICDADR+1 01707000 OCICTYPE EQU OCICDADR 01708000 @NM00141 EQU OCCKPKY1 01709000 OCCKPENV EQU OCCKPKY1 01710000 OCCKPRST EQU OCCKPTYP 01711000 OCCKPNCP EQU OCCKPTYP 01712000 OCCKPINC EQU OCCKPTYP 01713000 OPCAQLST EQU OPCAQWD3+1 01714000 OPCAQRQ3 EQU OPCAQWD3 01715000 OPCAQSEC EQU OPCAQWD2+1 01716000 OPCAQFST EQU OPCAQWD1+1 01717000 UCBRV066 EQU UCBOBS09+4 01718000 UCBIOSBA EQU UCBOBS09 01719000 UCBRV042 EQU UCBOBS08+5 01720000 UCBRV082 EQU UCBCTCF1 01721000 UCBRV081 EQU UCBCTCF1 01722000 UCBRV080 EQU UCBCTCF1 01723000 UCBRV079 EQU UCBCTCF1 01724000 UCBRV078 EQU UCBCTCF1 01725000 UCBRV077 EQU UCBCTCF1 01726000 UCBRV076 EQU UCBCTCF1 01727000 UCBCTC80 EQU UCBCTCF1 01728000 UCBCTCAL EQU UCBCTCAD 01729000 UCBICNCB EQU UCBOBS07+4 01730000 UCBRV040 EQU UCBOBS07 01731000 UCBCTLNA EQU UCBCTLNK+1 01732000 UCBRLN EQU UCBCTLNK 01733000 UCBRDYQA EQU UCBLDNCB 01734000 UCBINRLN EQU UCBIRLN 01735000 UCBIRBA EQU UCBIRB+1 01736000 UCBRV039 EQU UCBGRAF 01737000 UCBDWNR EQU UCBGRAF 01738000 UCBRPND EQU UCBGRAF 01739000 UCBUPM EQU UCBGRAF 01740000 UCBBTAM EQU UCBGRAF 01741000 UCBDRNO EQU UCBGRAF 01742000 UCBDRO EQU UCBGRAF 01743000 UCBOIP EQU UCBGRAF 01744000 UCBATRCD EQU @NM00118 01745000 UCBSKPFG EQU @NM00118 01746000 UCBRIPND EQU @NM00118 01747000 UCBRTIAC EQU @NM00118 01748000 UCBRSV79 EQU @NM00118 01749000 UCBRSV78 EQU @NM00118 01750000 UCBRSV77 EQU @NM00118 01751000 UCBOLTEP EQU @NM00118 01752000 UCBATNCT EQU UCBOBS06+2 01753000 UCBRSV76 EQU UCBAOF2 01754000 UCBRSV75 EQU UCBAOF2 01755000 UCBRSV74 EQU UCBAOF2 01756000 UCBRSV73 EQU UCBAOF2 01757000 UCBRSV72 EQU UCBAOF2 01758000 UCBRSV71 EQU UCBAOF2 01759000 UCBRSV70 EQU UCBAOF2 01760000 UCBRSV69 EQU UCBAOF2 01761000 UCBRSV68 EQU UCBAOF1 01762000 UCBRSV67 EQU UCBAOF1 01763000 UCBRSV66 EQU UCBAOF1 01764000 UCBRSV65 EQU UCBAOF1 01765000 UCBRSV64 EQU UCBAOF1 01766000 UCBOFNL EQU UCBAOF1 01767000 UCBOFSP EQU UCBAOF1 01768000 UCBOFMCR EQU UCBAOF1 01769000 UCBBTB EQU UCBBTA+1 01770000 UCBDI EQU UCBBTA 01771000 UCBSNS EQU UCBOBS04+8 01772000 UCBTEB EQU UCBOBS04+4 01773000 UCBGCB EQU UCBOBS04+3 01774000 UCBOPEN EQU UCBOBS04+2 01775000 UCBSTART EQU UCBOBS04 01776000 UCBXTNB EQU UCBXTN+1 01777000 UCBRSV22 EQU UCBVOPT 01778000 UCBRSV21 EQU UCBVOPT 01779000 UCBRSV20 EQU UCBVOPT 01780000 UCBESVE EQU UCBVOPT 01781000 UCBERPC EQU UCBVOPT 01782000 UCBESVC EQU UCBVOPT 01783000 UCBEVA EQU UCBVOPT 01784000 UCBESV EQU UCBVOPT 01785000 UCBRV009 EQU UCBTFL1 01786000 UCBRV008 EQU UCBTFL1 01787000 UCBRV007 EQU UCBTFL1 01788000 UCBRV006 EQU UCBTFL1 01789000 UCBRV005 EQU UCBTFL1 01790000 UCBRV038 EQU UCBTFL1 01791000 UCBNSLTP EQU UCBTFL1 01792000 UCBNLTP EQU UCBTFL1 01793000 UCBRES1B EQU UCBOBS02+18 01794000 UCBFSER EQU UCBOBS02+12 01795000 @NM00117 EQU UCBOBS02+4 01796000 UCBFSEQ EQU UCBOBS02+2 01797000 UCBFSCT EQU UCBOBS02 01798000 UCBNEXP EQU UCBOBS01+20 01799000 UCBBASE EQU UCBOBS01+16 01800000 UCBRES1A EQU UCBOBS01+15 01801000 UCBUSER EQU UCBOBS01+14 01802000 UCBFL47 EQU UCBFL4 01803000 UCBFL46 EQU UCBFL4 01804000 UCBFL45 EQU UCBFL4 01805000 UCBRV065 EQU UCBFL4 01806000 UCBDSS EQU UCBFL4 01807000 UCBRV028 EQU UCBFL4 01808000 UCBWDAV EQU UCBFL4 01809000 UCBDAVV EQU UCBFL4 01810000 UCBSQC EQU UCBOBS01+12 01811000 UCBDATP EQU UCBOBS01+12 01812000 UCBDMC EQU UCBDMCT 01813000 UCBMOUNT EQU UCBDMCT 01814000 UCBBNUL EQU UCBSTAB 01815000 UCBSHAR EQU UCBSTAB 01816000 UCBBSTR EQU UCBSTAB 01817000 UCBBPUB EQU UCBSTAB 01818000 UCBBPRV EQU UCBSTAB 01819000 UCBBALB EQU UCBPRSRS 01820000 UCBPGFL EQU UCBSTAB 01821000 UCBDVSHR EQU UCBBSVL 01822000 UCBVOLI EQU UCBOBS01+4 01823000 UCBVTOC EQU UCBOBS01 01824000 TTHDCF EQU IEDTH+8 01825000 TTHTAG2 EQU TTHTAG+1 01826000 @NM00197 EQU TTHTAG1 01827000 TTHTAGS EQU TTHTAG1 01828000 TTHOAF EQU IEDTH+4 01829000 TTHDAF EQU IEDTH+2 01830000 TTHBYTE1 EQU IEDTH+1 01831000 TTHEFI EQU TTHBYTE0 01832000 @NM00196 EQU TTHBYTE0 01833000 TTHEBIU EQU TTHBYTE0 01834000 TTHBBIU EQU TTHBYTE0 01835000 TTHFTYPE EQU TTHBYTE0 01836000 TRMSUBST EQU IEDNTRM+12 01837000 TRMRLMCT EQU IEDNTRM+10 01838000 TRMCOHTG EQU TRMSIBPT+1 01839000 TRMGPCNT EQU TRMSIBPT 01840000 TRMBUFRD EQU TRMBYTE0 01841000 TRMSNA EQU TRMBYTE0 01842000 TRMGP EQU TRMBYTE0 01843000 @NM00192 EQU TRMBYTE0 01844000 TRMOUTPT EQU TRMBYTE0 01845000 TRMINPUT EQU TRMBYTE0 01846000 TRMUDEF EQU TRMBYTE0 01847000 TRMSTOTE EQU TRMBYTE1 01848000 TRMCKPRN EQU TRMBYTE1 01849000 TRMTSATN EQU TRMBYTE1 01850000 TRMTRACE EQU TRMBYTE1 01851000 TRMSWBCK EQU TRMBYTE1 01852000 TRMAUTOC EQU TRMBYTE1 01853000 TRMINPTP EQU TRMBYTE1 01854000 TRMWTNEG EQU TRMSCPRQ 01855000 TRMWRBRK EQU TRMBYTE2 01856000 TRMNOSND EQU TRMBYTE2 01857000 TRMPREP EQU TRMBYTE2 01858000 TRMGPACT EQU TRMBYTE2 01859000 TRMANDL EQU TRMBYTE2 01860000 TRMCLOSN EQU TRMINPG 01861000 TRMREMB EQU TRMBYTE2 01862000 TRMOPTBL EQU IEDQTRM+18 01863000 TRMOPNO EQU IEDQTRM+17 01864000 TRMCHCIN EQU IEDQTRM+16 01865000 TRMSENSE EQU TRMSTAT+3 01866000 TRMTEMPR EQU TRMSTAT+2 01867000 TRMSIO EQU TRMSTAT 01868000 @NM00191 EQU TRMDEVFL+1 01869000 TRMTPIN EQU TRMDEVFL+1 01870000 TRMNCPI EQU TRMDEVFL+1 01871000 TRMRNTRM EQU TRMDEVFL+1 01872000 @NM00190 EQU TRMDEVFL+1 01873000 TRMLMD EQU TRMDEVFL+1 01874000 TRMCONC EQU TRMDEVFL+1 01875000 TRMTSOB EQU TRMDEVFL 01876000 TRMBFDY EQU TRMDEVFL 01877000 TRMTBLK EQU TRMDEVFL 01878000 TRMSBLK EQU TRMDEVFL 01879000 TRMBLKS EQU TRMDEVFL 01880000 TRMADDC EQU TRMDEVFL 01881000 TRMDDIG EQU TRMDEVFL 01882000 TRMBUFS EQU TRMDEVFL 01883000 TRMPRILK EQU TRMALTD 01884000 TRMLGB EQU TRMDSORG 01885000 TRMUTERM EQU TLISTCNT 01886000 TRMSCNYN EQU TRMSTATE 01887000 TRMOPTFN EQU TRMSTATE 01888000 TRMHELDN EQU TRMSTATE 01889000 TRMACPTN EQU TRMSTATE 01890000 TRMPREF EQU TRMSTATE 01891000 TRMPROC EQU TRMLOG 01892000 TRMLIST EQU TRMLOG 01893000 TRMLINE EQU TRMSTATE 01894000 SIBLUTYP EQU SIBSTAT0 01895000 SIBCD EQU SIBSTAT0 01896000 @NM00189 EQU SIBBIND3 01897000 SIBCRES EQU SIBBIND3 01898000 SIBSPKR EQU SIBBIND3 01899000 SIBRECOV EQU SIBBIND3 01900000 SIBFMODE EQU SIBBIND3 01901000 SIBALT EQU SIBBIND2 01902000 SIBBTERM EQU SIBBIND2 01903000 SIBBRACK EQU SIBBIND2 01904000 SIBFMUSE EQU SIBBIND2 01905000 SIBSEBI EQU SIBBIND2 01906000 SIBSCMP EQU SIBBIND2 01907000 SIBSEXC EQU SIBBIND2 01908000 SIBSDEF EQU SIBBIND2 01909000 SIBSRQM EQU SIBBIND1 01910000 SIBSCHNG EQU SIBBIND1 01911000 SIBPEBI EQU SIBBIND1 01912000 SIBPCMP EQU SIBBIND1 01913000 SIBPEXC EQU SIBBIND1 01914000 SIBPDEF EQU SIBBIND1 01915000 SIBPRQM EQU SIBBIND1 01916000 SIBPCHN EQU SIBBIND1 01917000 SIBFMPRO EQU IEDSIBD+19 01918000 @NM00188 EQU SIBSTAT2 01919000 SIBDACLU EQU SIBSTAT2 01920000 SIBRDSCN EQU SIBSTAT2 01921000 SIBTERM EQU SIBSTAT2 01922000 SIBUSS EQU SIBSTAT2 01923000 SIBBSTAT EQU SIBSTAT1 01924000 SIBRTRP EQU SIBSTAT1 01925000 SIBFTERM EQU SIBSTAT1 01926000 SIBRQEND EQU SIBSTAT1 01927000 SIBRQSHT EQU SIBSTAT1 01928000 SIBSEQO EQU SIBSEQN+2 01929000 SIBSEQI EQU SIBSEQN 01930000 SIBNCNT EQU SIBPACIN 01931000 SIBMCNT EQU SIBPACIN 01932000 SIBDSTAT EQU SIBSESSN 01933000 SIBSSTAT EQU SIBSESSN 01934000 SIBINBIU EQU SIBSESSN 01935000 SIBSHUTC EQU SIBSESSN 01936000 SIBLGOFF EQU SIBSESSN 01937000 SIBRUSEG EQU IEDSIBD 01938000 @NM00187 EQU TRHBYTE2 01939000 @NM00186 EQU TRHBYTE2 01940000 @NM00185 EQU TRHBYTE2 01941000 TRHCSI EQU TRHBYTE2 01942000 @NM00184 EQU TRHBYTE2 01943000 TRHCDI EQU TRHBYTE2 01944000 TRHEB EQU TRHBYTE2 01945000 TRHBB EQU TRHBYTE2 01946000 TRHPI EQU TRHBYTE1 01947000 @NM00183 EQU TRHBYTE1 01948000 @NM00182 EQU TRHBYTE1 01949000 @NM00181 EQU TRHBYTE1 01950000 TRHER EQU TRHBYTE1 01951000 TRHDR2 EQU TRHBYTE1 01952000 @NM00180 EQU TRHBYTE1 01953000 TRHDR1 EQU TRHBYTE1 01954000 TRHEC EQU TRHBYTE0 01955000 TRHBC EQU TRHBYTE0 01956000 TRHSDI EQU TRHBYTE0 01957000 TRHFI EQU TRHBYTE0 01958000 @NM00179 EQU TRHBYTE0 01959000 TRHRUCAT EQU TRHBYTE0 01960000 TRHTYPE EQU TRHBYTE0 01961000 QCBTTCIN EQU QCBPLCBA+1 01962000 @NM00178 EQU QCBPLCBA 01963000 @NM00177 EQU QCBSTAT1 01964000 QCBFLUSH EQU QCBSTAT1 01965000 QCBNDXRQ EQU QCBSTAT1 01966000 QCBESIG EQU QCBSTAT1 01967000 QCBRCVRQ EQU QCBSTAT1 01968000 QCBSNDRQ EQU QCBSTAT1 01969000 QCBWAITC EQU QCBSTAT1 01970000 QCBPLCBN EQU QCBSTAT1 01971000 QCBCHAIN EQU IEDNQCB 01972000 QCBPQBCK EQU IEDQPQCB+25 01973000 QCBPRIPQ EQU IEDQPQCB+24 01974000 QCBCFHDR EQU IEDQPQCB+21 01975000 QCBLFEFO EQU IEDQPQCB+18 01976000 QCBFFEFO EQU IEDQPQCB+15 01977000 QCBPREVF EQU QCBINTLF 01978000 QCBINTFF EQU IEDQPQCB+9 01979000 QCBDATSQ EQU QCBFHDTZ+1 01980000 @NM00176 EQU QCBFHDTZ 01981000 @NM00175 EQU QCBPFEFO 01982000 QCBDATFL EQU QCBFHDLZ 01983000 QCBDNHDR EQU IEDQPQCB 01984000 QCBQBACK EQU IEDQQCB+37 01985000 QCBCKPT EQU QCBFLAG 01986000 QCBPROC EQU QCBFLAG 01987000 QCBSDFFO EQU QCBFLAG 01988000 QCBTERMQ EQU QCBFLAG 01989000 QCBRSRV EQU QCBFLAG 01990000 QCBREAD EQU QCBFLAG 01991000 QCBNOBRK EQU QCBFLAG 01992000 QCBTSSES EQU QCBFLAG 01993000 QCBLGBAD EQU QCBDCBAD 01994000 QCBRELLN EQU IEDQQCB+32 01995000 QCBTJID EQU QCBLKRRN+1 01996000 QCBCARCT EQU QCBLKRRN 01997000 QCBPRLVL EQU QCBPREN 01998000 QCBMSGCT EQU IEDQQCB+26 01999000 QCBEXTO EQU QCBINTVL 02000000 QCBDISC EQU QCBTSOF1 02001000 QCBDELAY EQU QCBTSOF1 02002000 QCBPARTO EQU QCBTSOF1 02003000 QCBSATRD EQU QCBTSOF1 02004000 QCBNOBUF EQU QCBTSOF1 02005000 QCBTPUT EQU QCBTSOF1 02006000 QCBTGET EQU QCBTSOF1 02007000 QCBWRBRK EQU QCBTSOF1 02008000 QCBSATLC EQU QCBTSOF2 02009000 QCBSATTI EQU QCBTSOF2 02010000 QCBSATCH EQU QCBTSOF2 02011000 QCBSIMRD EQU QCBTSOF2 02012000 QCBDSSMI EQU QCBTSOF2 02013000 QCBPOSTO EQU QCBTSOF2 02014000 QCBBUFQ EQU QCBTSOF2 02015000 QCBINHBN EQU QCBTSOF2 02016000 QCBSATCT EQU @NM00174 02017000 QCBSCBOF EQU IEDQQCB+20 02018000 QCBTIME EQU QCBSTAT 02019000 QCBCLOCK EQU QCBSTAT 02020000 QCBSCHDL EQU QCBSTAT 02021000 QCBSMODE EQU QCBSTAT 02022000 QCBSEND EQU QCBSTAT 02023000 QCBBUFRD EQU QCBSTAT 02024000 QCBTRMHO EQU QCBSTAT 02025000 QCBEOM EQU QCBSTAT 02026000 QCBHUCT EQU QCBRETCT 02027000 QCBIEND EQU QCBRETCT 02028000 QCBEND EQU QCBRETCT 02029000 QCBNL EQU QCBRETCT 02030000 QCBLOGCT EQU QCBRETCT 02031000 @NM00173 EQU QCBBYTE1 02032000 QCBRITRM EQU QCBBYTE1 02033000 @NM00172 EQU QCBEOLDT 02034000 QCBSLINK EQU IEDQQCB+13 02035000 QCBSTPRI EQU IEDQQCB+12 02036000 QCBSTCHN EQU IEDQQCB+9 02037000 QCBSTVTO EQU IEDQQCB+8 02038000 QCBLINK EQU IEDQQCB+5 02039000 QCBPRI EQU IEDQQCB+4 02040000 QCBCNTEN EQU QCBELCHN+2 02041000 @NM00171 EQU QCBELCHN+2 02042000 @NM00170 EQU QCBELCHN 02043000 QCBHELD EQU QCBDSFLG 02044000 QCBFQCB EQU QCBDSFLG 02045000 QCBDRQQ EQU QCBDSFLG 02046000 QCBALTMH EQU QCBDSFLG 02047000 QCBREUS EQU QCBDISK 02048000 QCBNREUS EQU QCBDISK 02049000 QCBCORE EQU QCBDSFLG 02050000 QCBTSQ EQU QCBDSFLG 02051000 @NM00169 EQU IEDPRUND+4 02052000 @NM00168 EQU PRURHFG2 02053000 PRURHCSI EQU PRURHFG2 02054000 @NM00167 EQU PRURHFG2 02055000 PRURHCDI EQU PRURHFG2 02056000 PRURHEB EQU PRURHFG2 02057000 PRURHBB EQU PRURHFG2 02058000 PRURHPI EQU PRURHFG1 02059000 @NM00166 EQU PRURHFG1 02060000 PRURHER EQU PRURHFG1 02061000 PRURHDR2 EQU PRURHFG1 02062000 @NM00165 EQU PRURHFG1 02063000 PRURHDR1 EQU PRURHFG1 02064000 PRURHEC EQU PRURHFG0 02065000 PRURHBC EQU PRURHFG0 02066000 PRURHSDI EQU PRURHFG0 02067000 PRURHFI EQU PRURHFG0 02068000 @NM00164 EQU PRURHFG0 02069000 PRURHTYP EQU PRURHFG0 02070000 PRUNUNIT EQU PRUTIC+1 02071000 @NM00163 EQU PRUTIC 02072000 @NM00162 EQU IEDPRUQD+4 02073000 PRF2SEQP EQU PRF2WD2 02074000 @NM00161 EQU IEDPF2+1 02075000 @NM00160 EQU PRF2FLG2 02076000 PRF2TERM EQU PRF2FLG2 02077000 PRF2SMI EQU PRF2FLG2 02078000 PRF2FORM EQU PRF2FLG2 02079000 PRF2TNTI EQU PRF2FLG2 02080000 PRF1RULN EQU PRF1SEQP+2 02081000 PRF1TAG2 EQU PRF1SQID+1 02082000 @NM00159 EQU PRF1TAG1 02083000 @NM00158 EQU PRF1FLG1 02084000 PRF1LOGD EQU PRF1FLG1 02085000 PRFISEQ EQU IEDQPRF+38 02086000 PRFSTXT EQU PRFHQBCK 02087000 PRFNHDR EQU PRFCHDR 02088000 PRFCRCD EQU IEDQPRF+29 02089000 PRFSVSEQ EQU PRFNTXT+1 02090000 PRFSVPRI EQU PRFEOBOF 02091000 @NM00157 EQU PRFSCAN 02092000 PRFEOB EQU PRFXTRA+1 02093000 PRFSTSO EQU PRFXTRA 02094000 PRFLOCK EQU PRFEOFN 02095000 PRFDUPLN EQU PRFSTAT1 02096000 PRFTSMSG EQU PRFSTAT1 02097000 PRFITCPN EQU PRFSTAT1 02098000 PRFERMGN EQU PRFSTAT1 02099000 PRFCNCLN EQU PRFSTAT1 02100000 PRFSVFLG EQU @NM00156+3 02101000 PRFPIUO EQU PRFPLQCB 02102000 PRFTI0 EQU PRFTIC+1 02103000 @NM00155 EQU PRFTICC 02104000 @NM00154 EQU PRFTICC 02105000 @NM00153 EQU PRFTICC 02106000 PRFTICON EQU PRFTICC 02107000 @NM00152 EQU PRFTICC 02108000 @NM00151 EQU PRFTICC 02109000 PRFBFMM EQU PRFTICC 02110000 PRFEOMSG EQU PRFTICC 02111000 PRFCOUNT EQU PRFLINK+1 02112000 @NM00150 EQU PRFLINK 02113000 PRFFLAGS EQU PRFPRI 02114000 PRFIOADR EQU PRFQCBA 02115000 PRFOPCDE EQU PRFKEY 02116000 PLMVFLG2 EQU IEDPLMV+19 02117000 @NM00149 EQU PLMVFLG1 02118000 PLMVTCTG EQU PLMVFLG1 02119000 PLMVSCTG EQU PLMVFLG1 02120000 @NM00148 EQU OPREFLG3 02121000 OPREATCH EQU OPREFLG3 02122000 @NM00147 EQU OPREFLG3 02123000 OPREFLG2 EQU IEDOPRED+13 02124000 OPREFLG1 EQU IEDOPRED+12 02125000 OPRETIC EQU OPRESAVE 02126000 OPRELINK EQU IEDOPRED+5 02127000 OPREQCB EQU IEDOPRED+1 02128000 OPREKEY EQU IEDOPRED 02129000 @NM00146 EQU OCLDNME+4 02130000 @NM00145 EQU OCPREFLG 02131000 OCTOTEP EQU OCPREFLG 02132000 OCREPOST EQU OCPREFLG 02133000 OCRSPSNT EQU OCPREFLG 02134000 OCBFREQ EQU OCPREFLG 02135000 OCIDLE EQU OCREQFLG 02136000 OCFORCE EQU OCREQFLG 02137000 OCDCARD EQU OCREQFLG 02138000 OCPARTAL EQU OCREQFLG 02139000 OCADNCP EQU OCREQFLG 02140000 @NM00144 EQU OCREQFLG 02141000 @NM00143 EQU OCREQFLG 02142000 OCFLUSHZ EQU OCREQFLG 02143000 OCRESPCT EQU OCLINTTE 02144000 OCCKPTWA EQU OCCKDATA+4 02145000 @NM00140 EQU OCRSTGTM+2 02146000 OCCKDAT2 EQU OCRSTGTM+1 02147000 OCCKDAT1 EQU OCRSTGTM 02148000 OCPTRSAV EQU OCMODNME+4 02149000 OCPUADR EQU OCIPLWA+2 02150000 OCWTGSAV EQU OCIPLWA 02151000 OCDVRDCT EQU OCBACKUP+6 02152000 OCNCP EQU OCBACKUP+4 02153000 OCBUFGOT EQU OCBACKUP+2 02154000 OCBUFNED EQU OCBACKUP 02155000 OCRESNUM EQU OCPARM 02156000 @NM00139 EQU OCRSID+1 02157000 OCNONE EQU OCALSTAT 02158000 OCSOME EQU OCALSTAT 02159000 OCALLFLG EQU OCALSTAT 02160000 OCREDRVE EQU OCALSTAT 02161000 OCSEQIND EQU OCALSTAT 02162000 OCDACTIP EQU OCALSTAT 02163000 OCRENTRD EQU OCALSTAT 02164000 OCWTGB EQU OCTIOT 02165000 OCTRMTBL EQU IEDQOPCE+20 02166000 @NM00138 EQU @NM00137+2 02167000 OCCONID EQU OCDEST 02168000 OCRLN EQU IEDQOPCE+15 02169000 OCATTACH EQU OCFLAG 02170000 OCSSCP EQU OCFLAG 02171000 OCOUTPUT EQU OCFLAG 02172000 OCLINE EQU OCFLAG 02173000 OCMPP EQU OCFLAG 02174000 OCTOTE EQU OCFLAG 02175000 OCCONSOL EQU OCFLAG 02176000 @NM00136 EQU OCSWITCH 02177000 OCQUCKN EQU OCSWITCH 02178000 OCPRIFLG EQU OCOPTCDE 02179000 @NM00135 EQU OCRUDEST+1 02180000 @NM00134 EQU OCSCAN 02181000 OCNOTUCB EQU OCSCAN 02182000 OCNONAME EQU OCSCAN 02183000 OCALLRLN EQU OCSCAN 02184000 OCDDNAME EQU OCSCAN 02185000 OCDDNRLN EQU OCSCAN 02186000 OCADDR EQU OCSCAN 02187000 OCELMPTR EQU OCELEM+1 02188000 OCELMPRI EQU OCELEM 02189000 OPCBOTTM EQU IEDQOPCD+1188 02190000 OPCDSRWT EQU IEDQOPCD+1184 02191000 @NM00133 EQU IEDQOPCD+1100 02192000 @NM00132 EQU IEDQOPCD+948 02193000 @NM00131 EQU IEDQOPCD+940 02194000 @NM00130 EQU IEDQOPCD+380 02195000 @NM00129 EQU OPCPWCOB+9 02196000 @NM00128 EQU OPCPWCOB+8 02197000 @NM00127 EQU OPCPWECB+1 02198000 OPCPWCCC EQU OPCPWECB 02199000 OPCPWCHN EQU OPCPWQCB+1 02200000 OPCPWVTO EQU OPCPWQCB 02201000 OPCWAITV EQU IEDQOPCD+364 02202000 OPCTOTCK EQU IEDQOPCD+360 02203000 OPCAPXTL EQU IEDQOPCD+356 02204000 OPCDECR EQU IEDQOPCD+352 02205000 OPCBUFWT EQU IEDQOPCD+348 02206000 OPCADGOT EQU IEDQOPCD+318 02207000 OPPOLSTP EQU IEDQOPCD+312 02208000 OPCCKCIB EQU IEDQOPCD+308 02209000 OPCEND EQU IEDQOPCD+307 02210000 OPCSTCBS EQU IEDQOPCD+306 02211000 OPCHNEND EQU IEDQOPCD+302 02212000 OPCOQSW EQU IEDQOPCD+301 02213000 @NM00126 EQU OPCSPEC 02214000 @NM00125 EQU OPCSPEC 02215000 @NM00124 EQU OPCSPEC 02216000 @NM00123 EQU OPCSPEC 02217000 OPCFRMCA EQU OPCSPEC 02218000 OPCRSTRT EQU OPCSPEC 02219000 OPCPART EQU OPCSPEC 02220000 OPCALTD EQU OPCSPEC 02221000 OPCBFEND EQU IEDQOPCD+296 02222000 OPCBFIRS EQU IEDQOPCD+292 02223000 OPCAVBUF EQU IEDQOPCD+290 02224000 OPCIPLCT EQU IEDQOPCD+289 02225000 OPCHA8 EQU IEDQOPCD+286 02226000 OPCBFREQ EQU IEDQOPCD+284 02227000 OPCNEXT EQU IEDQOPCD+272 02228000 OPCHORTG EQU IEDQOPCD+260 02229000 OPCHORT EQU IEDQOPCD+256 02230000 OPCCKPTL EQU IEDQOPCD+252 02231000 OPCCKPTF EQU IEDQOPCD+248 02232000 OPCWAITA EQU IEDQOPCD+244 02233000 OPCWAITR EQU IEDQOPCD+240 02234000 OPCWAITP EQU IEDQOPCD+236 02235000 OPCWAITO EQU IEDQOPCD+232 02236000 OPCWAITL EQU IEDQOPCD+224 02237000 OPCWAITC EQU IEDQOPCD+220 02238000 @NM00122 EQU OPCLDNME+5 02239000 @NM00121 EQU OPCLDNME 02240000 OPCWAIT EQU IEDQOPCD+192 02241000 OPCCKERB EQU IEDQOPCD+164 02242000 OPCBFERB EQU IEDQOPCD+148 02243000 OPCFLAG2 EQU IEDQOPCD+147 02244000 OPCWRKSZ EQU IEDQOPCD+144 02245000 OPCRSAVE EQU IEDQOPCD+132 02246000 OPCQCBAD EQU IEDQOPCD+128 02247000 OPCTRMWA EQU IEDQOPCD+52 02248000 OPCPSTWT EQU IEDQOPCD+48 02249000 OPCTNTEA EQU IEDQOPCD+44 02250000 OPCPGCK EQU IEDQOPCD+40 02251000 OPCLCB EQU IEDQOPCD+36 02252000 @NM00120 EQU IEDQOPCD+32 02253000 OPCIPLAD EQU IEDQOPCD+28 02254000 OPCTOFLK EQU IEDQOPCD+24 02255000 OPCOPTLK EQU IEDQOPCD+20 02256000 OPCDCBLK EQU IEDQOPCD+16 02257000 OPCDOUBL EQU IEDQOPCD 02258000 UCBERADR EQU UCBUCS+12 02259000 UCBFCBID EQU UCBUCS+8 02260000 UCBERCNT EQU UCBUCS+7 02261000 UCBRSV51 EQU UCBUCS+6 02262000 UCBRSV50 EQU UCBFCBOP 02263000 UCBRSV49 EQU UCBFCBOP 02264000 UCBRSV48 EQU UCBFCBOP 02265000 UCBRSV47 EQU UCBFCBOP 02266000 UCBRSV46 EQU UCBFCBOP 02267000 UCBRSV45 EQU UCBFCBOP 02268000 UCBRSV44 EQU UCBFCBOP 02269000 UCBFCBO1 EQU UCBFCBOP 02270000 UCBUCSPE EQU UCBUCSOP 02271000 UCBRSV43 EQU UCBUCSOP 02272000 UCBRSV42 EQU UCBUCSOP 02273000 UCBRSV41 EQU UCBUCSOP 02274000 UCBRSV40 EQU UCBUCSOP 02275000 UCBRSV39 EQU UCBUCSOP 02276000 UCBUCSO2 EQU UCBUCSOP 02277000 UCBUCSO1 EQU UCBUCSOP 02278000 UCBUCSID EQU UCBUCS 02279000 UCBMDRBA EQU UCBMDRBF+1 02280000 UCBRV075 EQU UCBMDRBF 02281000 UCBRV074 EQU UCB3800X+32 02282000 UCBIMAGE EQU UCB3800X+28 02283000 UCBFCBNM EQU UCB3800X+24 02284000 UCBCHAR4 EQU UCB3800X+20 02285000 UCBCHAR3 EQU UCB3800X+16 02286000 UCBCHAR2 EQU UCB3800X+12 02287000 UCBCHAR1 EQU UCB3800X+8 02288000 UCBCGMID EQU UCB3800X+4 02289000 UCBBRSTA EQU UCBACTIV 02290000 UCBRV063 EQU UCBACTIV 02291000 UCBRV062 EQU UCBACTIV 02292000 UCBRV061 EQU UCBACTIV 02293000 UCBRV060 EQU UCBACTIV 02294000 UCBRV059 EQU UCBACTIV 02295000 UCBRV058 EQU UCBACTIV 02296000 UCBRV057 EQU UCBACTIV 02297000 UCBRV050 EQU UCB3800X+2 02298000 UCBCGMNO EQU UCB3800X+1 02299000 UCBRV083 EQU UCBOPTNS 02300000 UCBBRSTR EQU UCBOPTNS 02301000 UCBRV056 EQU UCBOPTNS 02302000 UCBRV055 EQU UCBOPTNS 02303000 UCBRV054 EQU UCBOPTNS 02304000 UCBRV053 EQU UCBOPTNS 02305000 UCBRV052 EQU UCBOPTNS 02306000 UCBRV051 EQU UCBOPTNS 02307000 UCBRV073 EQU UCB3540X+7 02308000 UCBRV072 EQU UCBDKBYT 02309000 UCBRV071 EQU UCBDKBYT 02310000 UCBRV070 EQU UCBDKBYT 02311000 UCBRV069 EQU UCBDKBYT 02312000 UCBRV068 EQU UCBDKBYT 02313000 UCBRV067 EQU UCBDKBYT 02314000 UCBVLVER EQU UCBDKBYT 02315000 UCBDKAMX EQU UCBDKBYT 02316000 UCBVLSER EQU UCB3540X 02317000 UCBRDATA EQU UCBOCR+4 02318000 UCBFRID EQU UCBOCR 02319000 UCBCLN EQU UCBMT+14 02320000 UCBERG EQU UCBMT+12 02321000 UCBMS EQU UCBMT+11 02322000 UCBNB EQU UCBMT+10 02323000 UCBPW EQU UCBMT+9 02324000 UCBPR EQU UCBMT+8 02325000 UCBSIO EQU UCBMT+6 02326000 UCBTW EQU UCBMT+5 02327000 UCBTR EQU UCBMT+4 02328000 UCBTWT EQU UCBMT+3 02329000 UCBTRT EQU UCBMT+2 02330000 UCBCTD EQU UCBMT 02331000 UCBWTOID EQU UCBCMEXT+17 02332000 UCBRV043 EQU UCBCMEXT+16 02333000 UCBASID EQU UCBCMEXT+14 02334000 UCBMFCNT EQU UCBCMEXT+12 02335000 UCBPMSK EQU UCBCMEXT+10 02336000 UCBCCWOF EQU UCBCMEXT+8 02337000 UCBRV041 EQU UCBCMEXT+6 02338000 UCBRV036 EQU UCBFLP1 02339000 UCBRV035 EQU UCBFLP1 02340000 UCBERLOG EQU UCBFLP1 02341000 UCBRV033 EQU UCBFLP1 02342000 UCBRV032 EQU UCBFLP1 02343000 UCBRV031 EQU UCBFLP1 02344000 UCBSHRUP EQU UCBFLP1 02345000 UCBNSRCH EQU UCBFLP1 02346000 UCBSNSCT EQU UCBCMEXT+4 02347000 UCBHPDV EQU @NM00119 02348000 UCBHALI EQU @NM00119 02349000 UCBRSV09 EQU @NM00119 02350000 UCBRSV08 EQU @NM00119 02351000 UCBRSV07 EQU @NM00119 02352000 UCBRSV06 EQU @NM00119 02353000 UCBRSV05 EQU @NM00119 02354000 UCBRSV04 EQU @NM00119 02355000 UCBDTI EQU UCBCMEXT+2 02356000 UCBSTI EQU UCBCMEXT+1 02357000 UCBETI EQU UCBCMEXT 02358000 UCBEXTP EQU UCBEXTPT+1 02359000 UCBDDRSW EQU UCBFLC 02360000 UCBTICBT EQU UCBFLC 02361000 UCBIVRR EQU UCBFLC 02362000 UCBIVRS EQU UCBFLC 02363000 UCBITF EQU UCBFLC 02364000 UCBUDE EQU UCBFLC 02365000 UCBWAA EQU UCBFLC 02366000 UCBATTP EQU UCBFLC 02367000 UCBUNTYP EQU UCBTBYT4 02368000 UCBRSV11 EQU UCBDVCLS 02369000 UCBRSV10 EQU UCBDVCLS 02370000 UCB3CHAR EQU UCBDVCLS 02371000 UCB3UREC EQU UCBDVCLS 02372000 UCB3DISP EQU UCBDVCLS 02373000 UCB3DACC EQU UCBDVCLS 02374000 UCB3COMM EQU UCBDVCLS 02375000 UCB3TAPE EQU UCBDVCLS 02376000 UCBDVPWR EQU UCB2OPT7 02377000 UCBVLPWR EQU UCB2OPT6 02378000 UCB2OPT5 EQU UCBTBYT2 02379000 UCBRVDEV EQU UCBRWTAU 02380000 UCBRPS EQU UCBDUDN2 02381000 UCBRR EQU UCBDUDN1 02382000 UCB2OPT1 EQU UCBTBYT2 02383000 UCB2OPT0 EQU UCBTBYT2 02384000 UCB1FEA7 EQU UCBTBYT1 02385000 UCBD6250 EQU UCB1FEA6 02386000 UCBD1600 EQU UCB1FEA5 02387000 UCB1FEA4 EQU UCBTBYT1 02388000 UCB1FEA3 EQU UCBTBYT1 02389000 UCB1FEA2 EQU UCBTBYT1 02390000 UCB1FEA1 EQU UCBTBYT1 02391000 UCB1FEA0 EQU UCBTBYT1 02392000 UCBRV029 EQU UCBWGT 02393000 UCBVHRSN EQU UCBWGT 02394000 UCBVORSN EQU UCBWGT 02395000 UCBMTPXP EQU UCBWGT 02396000 UCBREW EQU UCBWGT 02397000 UCBPUB EQU UCBWGT 02398000 UCBOUT EQU UCBWGT 02399000 UCBIN EQU UCBWGT 02400000 UCBCPU EQU UCBOB+11 02401000 UCBLCI EQU UCBOB+10 02402000 UCBCNT EQU UCBOB+9 02403000 UCBRV017 EQU UCBCHM1 02404000 UCBRV016 EQU UCBCHM1 02405000 UCBRV015 EQU UCBCHM1 02406000 UCBRV014 EQU UCBCHM1 02407000 UCBSPB EQU UCBPTH1 02408000 UCBPPB EQU UCBPTH1 02409000 UCBSPA EQU UCBPTH0 02410000 UCBPPA EQU UCBPTH0 02411000 UCBSIGP EQU UCBFLB 02412000 UCBVALPH EQU UCBFLB 02413000 UCBCRHSN EQU UCBFLB 02414000 UCBCRHRV EQU UCBFLB 02415000 UCBRESVH EQU UCBFLB 02416000 UCBSPST EQU UCBFLB 02417000 UCBASNS EQU UCBFLB 02418000 UCBIORST EQU UCBFLB 02419000 UCBQISCE EQU UCBFL1 02420000 UCBACTV EQU UCBFL1 02421000 UCBSAP EQU UCBFL1 02422000 UCBNOTRC EQU UCBCUB 02423000 UCBPSNS EQU UCBFL1 02424000 UCBUSING EQU UCBPST 02425000 UCBNOTRD EQU UCBNRY 02426000 UCBBUSYD EQU UCBBSY 02427000 UCBUA EQU UCBCHAN+1 02428000 UCBCHA EQU UCBCHAN 02429000 UCBDADI EQU UCBSTAT 02430000 UCBSYSR EQU UCBSTAT 02431000 UCBPRES EQU UCBSTAT 02432000 UCBALOC EQU UCBSTAT 02433000 UCBUNLD EQU UCBSTAT 02434000 UCBRESV EQU UCBSTAT 02435000 UCBCHGS EQU UCBSTAT 02436000 UCBONLI EQU UCBSTAT 02437000 UCBID EQU UCBOB+2 02438000 UCBALTPH EQU UCBFL5 02439000 UCBALTCU EQU UCBFL5 02440000 UCBNALOC EQU UCBFL5 02441000 UCBENVRD EQU UCBFL5 02442000 UCBVSDR EQU UCBFL5 02443000 UCBSASK EQU UCBFL5 02444000 UCBAMV EQU UCBAF 02445000 UCBDCC EQU UCBFL5 02446000 UCBMONT EQU UCBJBNR 02447000 UCBRV011 EQU UCBJBNR 02448000 UCBRSV02 EQU UCBJBNR 02449000 UCBOLDSM EQU UCBJBNR 02450000 UCBRV003 EQU UCBJBNR 02451000 UCBDUC EQU UCBJBNR 02452000 UCBJES3 EQU UCBJBNR 02453000 UCBVRDEV EQU UCBJBNR 02454000 UCBCMSEG EQU UCBOB 02455000 UCBPFXND EQU UCB+512 02456000 UCBIOQ EQU UCB+508 02457000 UCBLOCK EQU UCB+504 02458000 UCBPXST EQU UCB+504 02459000 @NM00116 EQU UCB 02460000 DEBAPPAD EQU IEDQDEB+65 02461000 DEBEXSCL EQU IEDQDEB+64 02462000 DEBDCBAD EQU IEDQDEB+61 02463000 DEBPROTG EQU IEDQDEB+60 02464000 DEBECBAD EQU IEDQDEB+57 02465000 DEBPRIOR EQU IEDQDEB+56 02466000 DEBUSRPG EQU IEDQDEB+53 02467000 DEBSYSPG EQU IEDQDEB+49 02468000 DEBOPATB EQU IEDQDEB+48 02469000 DEBIRBAD EQU IEDQDEB+45 02470000 DEBOFLGS EQU IEDQDEB+44 02471000 DEBDEBAD EQU IEDQDEB+41 02472000 DEBAMLNG EQU IEDQDEB+40 02473000 DEBTCBAD EQU IEDQDEB+37 02474000 @NM00115 EQU DEBPRF+33 02475000 DEBLNGTH EQU DEBPRF+32 02476000 DEBDCBMK EQU DEBPRF+28 02477000 DEBDSCBA EQU DEBPRF+21 02478000 DEBWKARA EQU DEBPRF+20 02479000 DEBXCEA EQU DEBAPVT+16 02480000 DEBCEA EQU DEBAPVT+12 02481000 DEBPCIA EQU DEBAPVT+8 02482000 DEBSIOA EQU DEBAPVT+4 02483000 DEBEOEA EQU DEBAPVT 02484000 DCBBUFSI EQU IHADCS43+6 02485000 DCBUNTCT EQU IHADCS43+5 02486000 DCBILCT EQU IHADCS43+4 02487000 DCBSCTAD EQU DCBSCTAB+1 02488000 @NM00114 EQU DCBSCTAB 02489000 DCBPUTA EQU DCBGETA 02490000 @NM00113 EQU DCBPUT 02491000 DCBDEBA EQU DCBDEBAD+1 02492000 @NM00112 EQU DCBIFLGS 02493000 DCBIFIOE EQU DCBIFLGS 02494000 DCBCH12 EQU DCBIFPCT 02495000 DCBCH9 EQU DCBIFPCT 02496000 DCBIFEC EQU DCBIFLGS 02497000 DCBMFSTI EQU DCBMFDMD 02498000 DCBMFAWR EQU DCBMFSTK 02499000 DCBMFUIP EQU DCBMFTMD 02500000 DCBMFIDW EQU DCBMFLCP 02501000 DCBMFWRK EQU DCBMFMVP 02502000 DCBMFRDQ EQU DCBMFWRT 02503000 DCBMFGTQ EQU DCBMFPUT 02504000 DCBMFSTL EQU DCBMACF2 02505000 DCBMFCK EQU DCBMFDMG 02506000 DCBMFRDX EQU DCBMFCHK 02507000 DCBMFDBF EQU DCBMFSBG 02508000 DCBMFRDI EQU DCBMFLCG 02509000 DCBMFRDK EQU DCBMFMVG 02510000 DCBMFWRQ EQU DCBMFRD 02511000 DCBMFPTQ EQU DCBMFGET 02512000 DCBMFECP EQU DCBMACF1 02513000 DCBTIOT EQU IHADCS25 02514000 DCBMRSTI EQU DCBMRDMD 02515000 DCBMRAWR EQU DCBMRSTK 02516000 DCBMRUIP EQU DCBMRTMD 02517000 DCBMRIDW EQU DCBMRLCP 02518000 DCBMRWRK EQU DCBMRMVP 02519000 DCBMRRDQ EQU DCBMRWRT 02520000 DCBMRGTQ EQU DCBMRPUT 02521000 DCBMRSTL EQU DCBMACR2 02522000 DCBMRCK EQU DCBMRDMG 02523000 DCBPGFXA EQU DCBMRRDX 02524000 DCBMRDBF EQU DCBMRSBG 02525000 DCBMRRDI EQU DCBMRLCG 02526000 DCBMRRDK EQU DCBMRMVG 02527000 DCBMRWRQ EQU DCBMRRD 02528000 DCBMRPTQ EQU DCBMRGET 02529000 DCBMRECP EQU DCBMACR1 02530000 @NM00111 EQU DCBIFLG 02531000 DCBIBIOE EQU DCBIFLG 02532000 DCBICH12 EQU DCBIBPCT 02533000 DCBICH9 EQU DCBIBPCT 02534000 DCBIBEC EQU DCBIFLG 02535000 DCBOFIOF EQU DCBOFLGS 02536000 DCBOFUEX EQU DCBOFLGS 02537000 DCBOFTM EQU DCBOFLGS 02538000 DCBOFPPC EQU DCBOFLGS 02539000 DCBOFOPN EQU DCBOFLGS 02540000 DCBOFEOV EQU DCBOFLGS 02541000 DCBOFLRB EQU DCBOFLGS 02542000 DCBOFIOD EQU DCBOFLWR 02543000 DCBDDNAM EQU IHADCS24 02544000 DCBEXLSA EQU DCBEXLST+1 02545000 DCBEIOBX EQU DCBEXLST 02546000 DCBRNCKA EQU DCBRNCKD+1 02547000 @NM00110 EQU DCBRNCKD 02548000 DCBIOBAD EQU IHADCS2K+8 02549000 DCBDSGTR EQU DCBDSRG2 02550000 @NM00109 EQU DCBDSRG2 02551000 DCBDSRG1 EQU DCBDSORG 02552000 DCBCHNGL EQU DCBTRSTA 02553000 DCBNIDLE EQU DCBTRSTA 02554000 DCBBAKUP EQU DCBTRSTA 02555000 DCBIPLED EQU DCBTRSTA 02556000 DCBRSTRT EQU DCBTRSTA 02557000 DCBINITL EQU DCBTRSTA 02558000 DCBAUTOD EQU DCBTRSTA 02559000 DCBAUTOI EQU DCBTRSTA 02560000 @NM00108 EQU IHADCS2K+4 02561000 DCBDUMPA EQU DCBDUMPD+1 02562000 DCBUNITN EQU DCBDUMPD 02563000 DCBBCKUA EQU DCBBCKUP+1 02564000 @NM00107 EQU DCBBCKUP 02565000 DCBIPLTX EQU IHADCS1A 02566000 @NM00106 EQU IHADCB 02567000 SAVTLLCB EQU IEDNSVTD+316 02568000 SAVTBITN EQU IEDNSVTD+312 02569000 @NM00105 EQU SAVTCKQB+8 02570000 @NM00104 EQU SAVTCKEC+1 02571000 @NM00103 EQU SAVTCKCC 02572000 SAVTCKPO EQU SAVTCKCC 02573000 SAVTCKWA EQU SAVTCKCC 02574000 SAVTCKCH EQU SAVTCKTB+1 02575000 SAVTCKVT EQU SAVTCKTB 02576000 @NM00102 EQU IEDNSVTD+297 02577000 SAVTRDFG EQU SAVTRDRV+12 02578000 @NM00101 EQU SAVTRDRV+5 02579000 SAVTRDPY EQU SAVTRDRV+4 02580000 SAVTRDQB EQU SAVTRDRV+1 02581000 SAVTRDKY EQU SAVTRDRV 02582000 SAVTNID EQU IEDNSVTD+280 02583000 SAVTDVAS EQU IEDNSVTD+276 02584000 SAVTPLSZ EQU IEDNSVTD+274 02585000 @NM00100 EQU IEDNSVTD+273 02586000 SAVTSUBL EQU IEDNSVTD+272 02587000 @NM00099 EQU SAVTZELM+1 02588000 SAVTSUBM EQU SAVTZELM 02589000 SAVTMHDX EQU IEDNSVTD+268 02590000 SAVTNAT1 EQU IEDNSVTD+266 02591000 SAVTSH20 EQU IEDNSVTD+264 02592000 SAVTLCBS EQU IEDNSVTD+260 02593000 SAVTRNMP EQU IEDNSVTD+256 02594000 SAVTTNTX EQU IEDNSVTD+252 02595000 SAVTNAX EQU IEDNSVTD+248 02596000 SAVTSUBV EQU IEDNSVTD+247 02597000 SAVTSUBA EQU IEDNSVTD+246 02598000 SAVTSIBC EQU IEDNSVTD+244 02599000 SAVTBSM EQU IEDNSVTD+240 02600000 SAVTRQCH EQU IEDNSVTD+232 02601000 SAVTMAND EQU IEDNSVTD+228 02602000 SAVTSPLN EQU IEDNSVTD+224 02603000 SAVTNADL EQU IEDNSVTD+222 02604000 SAVTNATL EQU IEDNSVTD+220 02605000 SAVTMHTB EQU IEDNSVTD+216 02606000 SAVTSSMH EQU IEDNSVTD+212 02607000 SAVTQRS EQU IEDNSVTD+208 02608000 SAVTRQIN EQU IEDNSVTD+204 02609000 SAVTDFCO EQU IEDNSVTD+200 02610000 SAVTSAO EQU IEDNSVTD+196 02611000 SAVTSARI EQU IEDNSVTD+192 02612000 SAVTSAC EQU IEDNSVTD+188 02613000 SAVTSAI EQU IEDNSVTD+184 02614000 SAVTCSCI EQU IEDNSVTD+180 02615000 SAVTSSRP EQU IEDNSVTD+176 02616000 SAVTSSRQ EQU IEDNSVTD+172 02617000 SAVTSCLU EQU IEDNSVTD+168 02618000 SAVTXTRQ EQU IEDNSVTD+164 02619000 @NM00098 EQU IEDNSVTD+148 02620000 SAVTIPCQ EQU IEDNSVTD+144 02621000 @NM00097 EQU IEDNSVTD+136 02622000 SAVTXFMI EQU IEDNSVTD+132 02623000 @NM00096 EQU IEDNSVTD+124 02624000 @NM00095 EQU IEDNSVTD+116 02625000 SAVTSSSR EQU IEDNSVTD+112 02626000 SAVTSLCB EQU IEDNSVTD+104 02627000 SAVTLUSR EQU IEDNSVTD+100 02628000 @NM00094 EQU SAVTLUSQ+8 02629000 SAVTLUSP EQU SAVTLUSQ+4 02630000 SAVTLUSB EQU SAVTLUSQ 02631000 @NM00093 EQU IEDNSVTD+84 02632000 SAVTSAT EQU IEDNSVTD+80 02633000 SAVTNAT EQU IEDNSVTD+76 02634000 SAVTCLUP EQU IEDNSVTD+72 02635000 SAVTPIUT EQU IEDNSVTD+68 02636000 SAVTRNTA EQU IEDNSVTD+64 02637000 SAVTDNIR EQU IEDNSVTD+60 02638000 SAVTCNIR EQU IEDNSVTD+56 02639000 SAVTFLDH EQU IEDNSVTD+52 02640000 SAVTSRTN EQU IEDNSVTD+48 02641000 SAVTSREQ EQU IEDNSVTD+44 02642000 SAVTFAIL EQU IEDNSVTD+42 02643000 SAVTSUSE EQU IEDNSVTD+40 02644000 SAVTSIB EQU IEDNSVTD+36 02645000 SAVTPRTN EQU IEDNSVTD+32 02646000 @NM00092 EQU IEDNSVTD+28 02647000 SAVTWH20 EQU IEDNSVTD+26 02648000 SAVTPWT EQU IEDNSVTD+24 02649000 SAVTPRTQ EQU IEDNSVTD+20 02650000 SAVTPREQ EQU IEDNSVTD+16 02651000 SAVTPH20 EQU IEDNSVTD+14 02652000 SAVTPUSE EQU IEDNSVTD+12 02653000 SAVTPLCB EQU IEDNSVTD+8 02654000 SAVTPOOL EQU IEDNSVTD+4 02655000 SAVTPRMT EQU SAVTDIAF 02656000 SAVTVIRT EQU SAVTDIAF 02657000 AVTCPBNO EQU IEDQAVTD+1244 02658000 AVTHRESS EQU IEDQAVTD+1243 02659000 @NM00091 EQU IEDQAVTD+1242 02660000 @NM00090 EQU IEDQAVTD+1241 02661000 @NM00089 EQU IEDQAVTD+1240 02662000 @NM00088 EQU IEDQAVTD+1237 02663000 @NM00087 EQU IEDQAVTD+1236 02664000 AVTHRESE EQU @NM00086 02665000 AVTRADDR EQU IEDQAVTD+1228 02666000 AVTNADDR EQU IEDQAVTD+1224 02667000 AVTHRESN EQU IEDQAVTD+1220 02668000 AVTVOLRN EQU IEDQAVTD+1216 02669000 AVTTOTNN EQU IEDQAVTD+1212 02670000 AVTTRCYN EQU IEDQAVTD+1208 02671000 AVTRCTRN EQU IEDQAVTD+1204 02672000 AVTNOVON EQU IEDQAVTD+1200 02673000 AVTADEBN EQU IEDQAVTD+1196 02674000 AVTVOLRR EQU IEDQAVTD+1192 02675000 AVTTOTNR EQU IEDQAVTD+1188 02676000 AVTTRCYR EQU IEDQAVTD+1184 02677000 AVTRCTRR EQU IEDQAVTD+1180 02678000 AVTNOVOR EQU IEDQAVTD+1176 02679000 AVTADEBR EQU IEDQAVTD+1172 02680000 AVTLODPT EQU IEDQAVTD+1168 02681000 AVTIOBN EQU IEDQAVTD+1164 02682000 AVTIOBR EQU IEDQAVTD+1160 02683000 AVTCPBPT EQU IEDQAVTD+1156 02684000 AVTFCPB EQU IEDQAVTD+1152 02685000 @NM00085 EQU IEDQAVTD+1148 02686000 AVTINCPQ EQU IEDQAVTD+1144 02687000 @NM00084 EQU IEDQAVTD+1140 02688000 @NM00083 EQU IEDQAVTD+1137 02689000 @NM00082 EQU AVTBIT4 02690000 @NM00081 EQU AVTBIT4 02691000 @NM00080 EQU AVTBIT4 02692000 @NM00079 EQU AVTBIT4 02693000 @NM00078 EQU AVTBIT4 02694000 @NM00077 EQU AVTBIT4 02695000 @NM00076 EQU AVTBIT4 02696000 AVTRUFTN EQU AVTBIT4 02697000 @NM00075 EQU IEDQAVTD+1132 02698000 AVTNOBFQ EQU IEDQAVTD+1128 02699000 @NM00074 EQU IEDQAVTD+1124 02700000 AVTDKENQ EQU IEDQAVTD+1120 02701000 @NM00073 EQU IEDQAVTD+1116 02702000 AVTDKAPQ EQU IEDQAVTD+1112 02703000 AVTCOPY EQU IEDQAVTD+1108 02704000 AVTIA EQU IEDQAVTD+1104 02705000 AVTFL EQU IEDQAVTD+1100 02706000 @NM00072 EQU IEDQAVTD+1096 02707000 AVTNCPBQ EQU IEDQAVTD+1092 02708000 AVTTOTNC EQU IEDQAVTD+1088 02709000 AVTCMAX EQU IEDQAVTD+1084 02710000 AVTCMIN EQU IEDQAVTD+1080 02711000 AVTHM02 EQU IEDQAVTD+1076 02712000 AVTOPCIN EQU IEDQAVTD+1074 02713000 AVTDCTLN EQU IEDQAVTD+1072 02714000 AVTOPMSK EQU IEDQAVTD+1068 02715000 AVTDDFT EQU IEDQAVTD+1064 02716000 AVTSTEAL EQU IEDQAVTD+1060 02717000 AVTOPTN EQU IEDQAVTD+1056 02718000 AVTDSKCT EQU IEDQAVTD+1054 02719000 AVTCKRST EQU IEDQAVTD+1053 02720000 AVTSTAN EQU AVTBIT3 02721000 AVTSTACN EQU AVTBIT3 02722000 AVTSTAIN EQU AVTBIT3 02723000 AVTSTAYN EQU AVTBIT3 02724000 AVTOLTBN EQU AVTBIT3 02725000 AVTTSAB EQU AVTBIT3 02726000 AVTRFULN EQU AVTBIT3 02727000 AVTRECVN EQU AVTBIT3 02728000 @NM00071 EQU AVTBIT2 02729000 @NM00070 EQU AVTBIT2 02730000 AVTOPEIN EQU AVTBIT2 02731000 AVTSTRTN EQU AVTBIT2 02732000 AVTTOPOL EQU AVTBIT2 02733000 AVTCOPYN EQU AVTBIT2 02734000 AVTREUSN EQU AVTBIT2 02735000 AVTEXTSC EQU AVTBIT2 02736000 AVTDISKN EQU AVTBIT1 02737000 AVTQUCKN EQU AVTBIT1 02738000 AVTCLOSN EQU AVTBIT1 02739000 AVTREADN EQU AVTBIT1 02740000 AVTDLAYN EQU AVTBIT1 02741000 AVTAQTAN EQU AVTBIT1 02742000 AVTTSON EQU AVTBIT1 02743000 AVTAPLKN EQU AVTBIT1 02744000 AVTDUMBR EQU IEDQAVTD+1048 02745000 AVTDLQX EQU IEDQAVTD+1046 02746000 AVTINTLV EQU IEDQAVTD+1044 02747000 AVTSMCNT EQU IEDQAVTD+1042 02748000 AVTAVFCT EQU IEDQAVTD+1040 02749000 AVTOPCON EQU IEDQAVTD+1038 02750000 AVTOPCNT EQU IEDQAVTD+1036 02751000 AVTLNCNT EQU IEDQAVTD+1034 02752000 AVTHA16 EQU IEDQAVTD+1030 02753000 AVTHA7 EQU IEDQAVTD+1028 02754000 AVTHA4 EQU IEDQAVTD+1026 02755000 AVTHA3 EQU IEDQAVTD+1024 02756000 AVTHA2 EQU IEDQAVTD+1022 02757000 AVTGETMS EQU IEDQAVTD+1021 02758000 @NM00069 EQU IEDQAVTD+1020 02759000 AVTGETMD EQU IEDQAVTD+1016 02760000 AVTGETMN EQU IEDQAVTD+1012 02761000 AVTCWTOT EQU IEDQAVTD+1008 02762000 AVTCWINT EQU IEDQAVTD+956 02763000 AVTDTRAP EQU IEDQAVTD+952 02764000 @NM00068 EQU IEDQAVTD+950 02765000 @NM00067 EQU AVTIOTR 02766000 AVTIOTRH EQU AVTIOTR 02767000 AVTIOTRE EQU AVTIOTR 02768000 @NM00066 EQU AVTSUBT 02769000 AVTSUBPT EQU AVTSUBT 02770000 AVTSUBON EQU AVTSUBT 02771000 AVTAFE30 EQU IEDQAVTD+944 02772000 AVTAFE20 EQU IEDQAVTD+940 02773000 AVTAFE10 EQU IEDQAVTD+936 02774000 AVTCWEC2 EQU IEDQAVTD+932 02775000 AVTCWPM2 EQU IEDQAVTD+928 02776000 AVTCWTS2 EQU IEDQAVTD+927 02777000 AVTCWTS1 EQU IEDQAVTD+926 02778000 AVTCWCLD EQU AVTCWFL2 02779000 AVTCWRAP EQU AVTCWFL2 02780000 @NM00065 EQU AVTCWFL2 02781000 @NM00064 EQU AVTCWFL2 02782000 @NM00063 EQU AVTCWFL2 02783000 @NM00062 EQU AVTCWFL2 02784000 @NM00061 EQU AVTCWFL2 02785000 AVTCWACT EQU AVTCWFL2 02786000 @NM00060 EQU AVTCWFL1 02787000 @NM00059 EQU AVTCWFL1 02788000 @NM00058 EQU AVTCWFL1 02789000 @NM00057 EQU AVTCWFL1 02790000 @NM00056 EQU AVTCWFL1 02791000 @NM00055 EQU AVTCWFL1 02792000 @NM00054 EQU AVTCWFL1 02793000 AVTCOMWN EQU AVTCWFL1 02794000 AVTCWEC1 EQU IEDQAVTD+920 02795000 AVTCWPM1 EQU IEDQAVTD+916 02796000 AVTCAREA EQU IEDQAVTD+912 02797000 AVTFZERO EQU IEDQAVTD+908 02798000 AVTCADDR EQU IEDQAVTD+904 02799000 AVTCOREC EQU IEDQAVTD+900 02800000 @NM00053 EQU IEDQAVTD+892 02801000 AVTCPBCB EQU IEDQAVTD+888 02802000 @NM00052 EQU IEDQAVTD+880 02803000 AVTDSIOB EQU IEDQAVTD+876 02804000 @NM00051 EQU IEDQAVTD+868 02805000 AVTCPRMB EQU IEDQAVTD+864 02806000 @NM00050 EQU IEDQAVTD+856 02807000 AVTCLOSB EQU IEDQAVTD+852 02808000 @NM00049 EQU IEDQAVTD+844 02809000 AVTACTIB EQU IEDQAVTD+840 02810000 @NM00048 EQU IEDQAVTD+836 02811000 AVTOLTEB EQU IEDQAVTD+832 02812000 AVTOLTCH EQU AVTOLTQB+1 02813000 AVTOLTVT EQU AVTOLTQB 02814000 @NM00047 EQU AVTOPCQB+8 02815000 @NM00046 EQU AVTOPCEC+1 02816000 @NM00045 EQU AVTOPCCC 02817000 AVTOPCPO EQU AVTOPCCC 02818000 AVTOPCWA EQU AVTOPCCC 02819000 AVTOPCCH EQU AVTOPCOB+1 02820000 AVTOPCVT EQU AVTOPCOB 02821000 @NM00044 EQU AVTCKPQB+9 02822000 AVTCKPTS EQU AVTCKPQB+8 02823000 @NM00043 EQU AVTCKPEC+1 02824000 @NM00042 EQU AVTCKPCC 02825000 AVTCKPPO EQU AVTCKPCC 02826000 AVTCKPWA EQU AVTCKPCC 02827000 AVTCKPCH EQU AVTCKPTB+1 02828000 AVTCKPVT EQU AVTCKPTB 02829000 @NM00041 EQU IEDQAVTD+796 02830000 AVTBFRTB EQU IEDQAVTD+792 02831000 @NM00040 EQU IEDQAVTD+788 02832000 AVTSELCH EQU IEDQAVTD+785 02833000 AVTBFRTN EQU AVTBFRFG 02834000 AVTBFREB EQU IEDQAVTD+780 02835000 AVTTIMQ EQU IEDQAVTD+776 02836000 @NM00039 EQU IEDQAVTD+772 02837000 AVTIMQPS EQU IEDQAVTD+768 02838000 AVTINOUT EQU IEDQAVTD+766 02839000 AVTREFTM EQU IEDQAVTD+764 02840000 @NM00038 EQU IEDQAVTD+752 02841000 AVTDELYB EQU IEDQAVTD+748 02842000 AVTOCQPT EQU IEDQAVTD+744 02843000 AVTTSOPT EQU IEDQAVTD+740 02844000 AVTSUPPT EQU IEDQAVTD+736 02845000 AVTCBQCB EQU IEDQAVTD+732 02846000 AVTMSGS EQU IEDQAVTD+729 02847000 @NM00037 EQU AVTSYSER 02848000 @NM00036 EQU AVTSYSER 02849000 @NM00035 EQU AVTSYSER 02850000 @NM00034 EQU AVTSYSER 02851000 @NM00033 EQU AVTSYSER 02852000 @NM00032 EQU AVTSYSER 02853000 AVTCMAXN EQU AVTSYSER 02854000 AVTCMINN EQU AVTSYSER 02855000 AVT2260L EQU IEDQAVTD+724 02856000 AVTABEPL EQU AVTADBUF 02857000 AVTHFF EQU AVTCLRHI+2 02858000 @NM00031 EQU AVTCLRHI 02859000 AVTCCLNK EQU AVTCRELE+5 02860000 AVTCCPRI EQU AVTCRELE+4 02861000 AVTCCQCB EQU AVTCCELE+1 02862000 AVTCCKEY EQU AVTCCELE 02863000 AVTDELAD EQU IEDQAVTD+704 02864000 AVTDELEM EQU IEDQAVTD+700 02865000 AVTBSX EQU AVTCKLNK 02866000 AVTOPETR EQU AVTHG01 02867000 @NM00030 EQU AVTCKBYT 02868000 AVTCKONQ EQU AVTCKBYT 02869000 @NM00029 EQU AVTCKBYT 02870000 @NM00028 EQU AVTCKBYT 02871000 @NM00027 EQU AVTCKBYT 02872000 @NM00026 EQU AVTCKBYT 02873000 @NM00025 EQU AVTCKBYT 02874000 @NM00024 EQU AVTCKBYT 02875000 AVTOPERT EQU IEDQAVTD+690 02876000 AVTOPXCL EQU IEDQAVTD+688 02877000 AVTOPERL EQU IEDQAVTD+687 02878000 @NM00023 EQU IEDQAVTD+686 02879000 AVTCKTIM EQU IEDQAVTD+684 02880000 AVTCKELV EQU IEDQAVTD+682 02881000 AVTCPRCD EQU IEDQAVTD+681 02882000 AVTWARMN EQU AVTCKELF 02883000 AVTCRTLN EQU AVTCKELF 02884000 AVTCPIPN EQU AVTCKELF 02885000 AVTCCLCN EQU AVTCKELF 02886000 AVTCINCN EQU AVTCKELF 02887000 @NM00022 EQU AVTCKELF 02888000 AVTCMCPN EQU AVTCKELF 02889000 AVTNQBCK EQU AVTCKELF 02890000 AVTCKQAD EQU IEDQAVTD+677 02891000 AVTSCBSZ EQU IEDQAVTD+676 02892000 @NM00021 EQU IEDQAVTD+672 02893000 AVTCKELE EQU IEDQAVTD+668 02894000 @NM00020 EQU AVTCKPEL+8 02895000 AVTCKRLK EQU AVTCKPEL+5 02896000 AVTCKRPR EQU AVTCKPEL+4 02897000 AVTCKRMQ EQU AVTCKRMV+1 02898000 AVTCKRKY EQU AVTCKRMV 02899000 AVTHK EQU IEDQAVTD+648 02900000 AVTHI EQU IEDQAVTD+644 02901000 AVTIOT EQU IEDQAVTD+640 02902000 AVTNX EQU IEDQAVTD+636 02903000 AVTTONE EQU IEDQAVTD+632 02904000 AVTA3TL EQU IEDQAVTD+628 02905000 AVTDMECB EQU IEDQAVTD+624 02906000 AVTABEND EQU IEDQAVTD+618 02907000 AVTPLCBN EQU IEDQAVTD+616 02908000 @NM00019 EQU AVTSAVTP+1 02909000 @NM00018 EQU AVTSAVTF 02910000 AVTSNA EQU AVTSAVTF 02911000 AVTONSNA EQU AVTSAVTF 02912000 AVTVTMCP EQU AVTSAVTF 02913000 @NM00017 EQU IEDQAVTD+608 02914000 AVTCMBSS EQU IEDQAVTD+604 02915000 AVTRCV EQU IEDQAVTD+600 02916000 AVTSEND EQU IEDQAVTD+596 02917000 AVTCSCH EQU IEDQAVTD+592 02918000 AVTQ1 EQU IEDQAVTD+588 02919000 AVTE7 EQU IEDQAVTD+584 02920000 AVTHB EQU IEDQAVTD+580 02921000 AVTR1 EQU IEDQAVTD+576 02922000 AVTBZ EQU IEDQAVTD+572 02923000 AVTEZ EQU IEDQAVTD+568 02924000 AVTEC EQU IEDQAVTD+564 02925000 AVTEW EQU IEDQAVTD+560 02926000 AVTNDIAL EQU AVTSCOPT 02927000 AVTN2741 EQU AVTSCOPT 02928000 AVTCONCO EQU AVTSCOPT 02929000 AVTCONC EQU AVTSCOPT 02930000 AVTCMBUF EQU AVTSCOPT 02931000 AVTAPDMP EQU AVTSCOPT 02932000 @NM00016 EQU AVTSCOPT 02933000 AVTHA EQU AVTDISP 02934000 AVTEA EQU IEDQAVTD+548 02935000 AVTAX EQU IEDQAVTD+544 02936000 AVTA3 EQU IEDQAVTD+540 02937000 AVTGD EQU IEDQAVTD+536 02938000 AVTAL EQU IEDQAVTD+532 02939000 AVTOLTST EQU AVTHG02 02940000 AVTE8 EQU IEDQAVTD+524 02941000 AVTUI EQU IEDQAVTD+520 02942000 AVTCOMPT EQU IEDQAVTD+516 02943000 AVTCRSRF EQU IEDQAVTD+512 02944000 @NM00015 EQU IEDQAVTD+508 02945000 AVTKA02 EQU IEDQAVTD+504 02946000 AVTOPTPT EQU IEDQAVTD+500 02947000 AVTPCBPT EQU IEDQAVTD+496 02948000 @NM00014 EQU AVTECB1 02949000 AVTCOMP EQU AVTECB1 02950000 @NM00013 EQU AVTECB1 02951000 AVTOPECA EQU IEDQAVTD+488 02952000 AVTOLECA EQU IEDQAVTD+484 02953000 AVTCKECA EQU IEDQAVTD+480 02954000 AVTCWECA EQU IEDQAVTD+476 02955000 AVTCWTCB EQU IEDQAVTD+472 02956000 AVTOLTCB EQU IEDQAVTD+468 02957000 AVTOCTCB EQU IEDQAVTD+464 02958000 AVTCKTCB EQU IEDQAVTD+460 02959000 AVTAS EQU IEDQAVTD+456 02960000 AVTNOLBF EQU IEDQAVTD+454 02961000 AVTNCKPR EQU IEDQAVTD+453 02962000 AVTCIB EQU IEDQAVTD+452 02963000 AVTSPLPT EQU IEDQAVTD+448 02964000 AVTMVBFR EQU IEDQAVTD+444 02965000 AVTSBTA EQU IEDQAVTD+440 02966000 AVTRARTN EQU IEDQAVTD+436 02967000 AVTBSCAN EQU IEDQAVTD+432 02968000 AVTRDYA EQU IEDQAVTD+428 02969000 AVTDISTR EQU IEDQAVTD+420 02970000 AVTPARM3 EQU IEDQAVTD+416 02971000 @NM00012 EQU AVTPKF 02972000 @NM00011 EQU AVTPKF 02973000 @NM00010 EQU AVTPKF 02974000 AVTFTCHF EQU AVTPKF 02975000 @NM00009 EQU AVTPKF 02976000 @NM00008 EQU AVTPKF 02977000 @NM00007 EQU AVTPKF 02978000 @NM00006 EQU AVTPKF 02979000 AVTPARM EQU IEDQAVTD+408 02980000 AVTEXS2A EQU IEDQAVTD+402 02981000 AVTEXA2S EQU IEDQAVTD+396 02982000 AVTOCGET EQU IEDQAVTD+392 02983000 AVTCKAVT EQU @NM00004+1 02984000 @NM00005 EQU AVTCKFLG 02985000 AVTCKHLT EQU AVTCKFLG 02986000 AVTCKREQ EQU AVTCKFLG 02987000 AVTCKENV EQU AVTCKFLG 02988000 AVTCKNAC EQU AVTCKFLG 02989000 AVTCKTAC EQU AVTCKFLG 02990000 AVTBUENT EQU IEDQAVTD+386 02991000 @NM00003 EQU IEDQAVTD+385 02992000 AVTFULLT EQU AVTBUFSW 02993000 AVTUNCON EQU AVTBUFSW 02994000 @NM00002 EQU AVTBUFSW 02995000 AVTBUFTR EQU AVTREADD 02996000 AVTREADY EQU IEDQAVTD+376 02997000 AVTRACE EQU IEDQAVTD+372 02998000 AVTTCB EQU IEDQAVTD+368 02999000 AVTPASWD EQU IEDQAVTD+360 03000000 AVTCTLCH EQU IEDQAVTD+352 03001000 AVTDOUBL EQU IEDQAVTD+344 03002000 AVTDOUBX EQU IEDQAVTD+336 03003000 AVTDPARM EQU IEDQAVTD+332 03004000 AVTCSTCS EQU IEDQAVTD+328 03005000 AVTDLQ EQU AVTSAVEX+32 03006000 @NM00001 EQU AVTSAVEX 03007000 AVTSAVE4 EQU IEDQAVTD+216 03008000 AVTSAVE3 EQU IEDQAVTD+144 03009000 AVTSAVE2 EQU IEDQAVTD+72 03010000 AVTSAVE1 EQU IEDQAVTD 03011000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03012000 @RC00458 EQU @RC00455 03013000 @RC00463 EQU @RC00455 03014000 @RC00461 EQU @RC00455 03015000 @RF00577 EQU @RC00427 03016000 @RF00721 EQU @EL00004 03017000 @PB00004 EQU @EL00001 03018000 @PB00003 EQU @PB00004 03019000 @PB00002 EQU @PB00003 03020000 @ENDDATA EQU * 03021000 END IGC0210D,(C'PLS2338',0701,78089) 03022000