TITLE 'IGCFP10D, DEACTIVATE CASCADE PROCESSOR *00001000 ' 00002000 IGCFP10D CSECT , 01S0001 00003000 @PROLOG BALR @12,0 01S0001 00004000 @PSTART DS 0H 01S0001 00005000 USING @PSTART,@12 01S0001 00006000 * /* 00007000 IGCFP10D IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00008000 * ROPCAVT=RPARM; /* SET THE BASE POINTER FOR THE 00009000 * OPERATOR CONTROL ADDRESS 02S0379 00010000 * VECTOR TABLE */ 00011000 LR ROPCAVT,RPARM 02S0379 00012000 * RDATA=OPCWORK; /* SET THE BASE REGISTER TO BE 00013000 * USED FOR ADDRESSING AUTOMATIC 00014000 * DATA WITH THE POINTER TO THE 00015000 * OPERATOR CONTROL RESIDENT WORK 00016000 * AREA */ 00017000 L RDATA,OPCWORK(,ROPCAVT) 02S0380 00018000 * GEN REFS(REG10) NOSETS; 02S0381 00019000 * /* 00020000 USING @DATD,RDATA INFORM THE ASSEMBLER OF THE 00021000 * BASE REGISTER TO BE USED FOR 00022000 * ADDRESSING AUTOMATIC DATA 00023000 * RSAVE=ADDR(OPCSAVE); /* SET THE SAVE AREA POINTER 00024000 * REGISTER WITH THE POINTER TO 00025000 * THE OPERATOR CONTROL SAVE AREA*/ 00026000 LA RSAVE,OPCSAVE(,ROPCAVT) 02S0382 00027000 * 02S0383 00028000 * /*****************************************************************/ 00029000 * /* */ 00030000 * /* PROCESS: THIS SEGMENT PERFORMS THE PROCESSING TO DETERMINE THE*/ 00031000 * /* NUMBER OF BUFFER UNITS NEEDED TO INITIATE THE DEACT CMND, SETS*/ 00032000 * /* UP FOR REDRIVE IF NECESSARY, GETS THE NUMBER OF UNITS (UP TO */ 00033000 * /* 50% OF LINE UNITS) NEEDED AND BUILDS THE NECESSARY OPCES FOR */ 00034000 * /* DEACT REQUESTS, STOPLINE, OR SESSION TERMINATION REQUESTS TO */ 00035000 * /* LUS */ 00036000 * /* */ 00037000 * /*****************************************************************/ 00038000 * 02S0383 00039000 * 03S0383 00040000 * /*****************************************************************/ 00041000 * /* */ 00042000 * /* PROCESS.INITIAL: THIS SEGMENT DOES THE INITIAL PROCESSING. */ 00043000 * /* */ 00044000 * /*****************************************************************/ 00045000 * 03S0383 00046000 * DO; 03S0383 00047000 * RAVT=OPCAVTPT; /* SET THE BASE POINTER FOR THE 00048000 * TCAM ADDRESS VECTOR TABLE */ 00049000 L RAVT,OPCAVTPT(,ROPCAVT) 03S0384 00050000 * ROPCE=OPCCOPCE; /* SET THE BASE POINTER FOR THE 00051000 * OPERATOR CONTROL ELEMENT */ 00052000 L ROPCE,OPCCOPCE(,ROPCAVT) 03S0385 00053000 * WORKSP=''B; /* INITIALIZE FLAGS AND SWITCHES 00054000 * TO 0 */ 00055000 XC WORKSP(18,RDATA),WORKSP(RDATA) 03S0386 00056000 * END; 03S0387 00057000 * RPARM=OCTRMTBL; /* SET TO FIND TTE ADDR */ 00058000 LH RPARM,OCTRMTBL(,ROPCE) 02S0388 00059000 N RPARM,@CF01637 02S0388 00060000 * CALL IEDQTNT; /* GET TTE ADDR */ 00061000 L @15,AVTRNMPT(,RAVT) 02S0389 00062000 BALR @14,@15 02S0389 00063000 * RTRM=RPARM; /* SET TTE BASE */ 00064000 LR RTRM,RPARM 02S0390 00065000 * IF OCREDRVE=OFF THEN /* IF THIS NOT A REDRIVE OPCE */ 00066000 TM OCREDRVE(ROPCE),B'00010000' 02S0391 00067000 BNZ @RF00391 02S0391 00068000 * DO; /* THEN */ 00069000 * IF TRMTYPE=TRMLNCP THEN /* IF CMND IS FOR NCP */ 00070000 LR @11,RTRM 02S0393 00071000 AL @11,@CF00889 02S0393 00072000 CLI TRMTYPE-11(@11),X'0F' 02S0393 00073000 BNE @RF00393 02S0393 00074000 * OCADNCP=ON; /* SET ON FLAG FOR CKPT TO 02S0394 00075000 * INDICATE NCP */ 00076000 LR @11,ROPCE 02S0394 00077000 AL @11,@CF01638 02S0394 00078000 OI OCADNCP-2(@11),B'00010000' 02S0394 00079000 * ELSE 02S0395 00080000 * ; 02S0395 00081000 @RF00393 DS 0H 02S0396 00082000 * TRMREMB=OFF; /* TURN OFF REMEMBER BIT IN 02S0396 00083000 * ORIGINAL RESOURCE */ 00084000 LR @06,RTRM 02S0396 00085000 AL @06,@CF01644 02S0396 00086000 LA @05,TRMREMB-2(,@06) 02S0396 00087000 LR @07,@05 02S0396 00088000 LA @11,3 02S0396 00089000 NR @07,@11 02S0396 00090000 LCR @07,@07 02S0396 00091000 ALR @05,@07 02S0396 00092000 L @11,0(,@05) 02S0396 00093000 @GL00001 LR @09,@11 02S0396 00094000 N @09,@CB01640+3(@07) 02S0396 00095000 CS @11,@09,0(@05) 02S0396 00096000 BNE @GL00001 02S0396 00097000 * OPCADGOT=OPCADGOT+1; /* INCREMENT NO BUFS ACT/DEACT 00098000 * HAS */ 00099000 LA @11,1 02S0397 00100000 LH @09,OPCADGOT(,ROPCAVT) 02S0397 00101000 N @09,@CF01637 02S0397 00102000 ALR @09,@11 02S0397 00103000 STH @09,OPCADGOT(,ROPCAVT) 02S0397 00104000 * RPARM=1; /* SET TO GET ONE BUFFER */ 00105000 LR RPARM,@11 02S0398 00106000 * CALL ALLOCBUF; /* GET ONE UNIT */ 00107000 L @15,OPCGETBF(,ROPCAVT) 02S0399 00108000 BALR @14,@15 02S0399 00109000 * RPARM->OCPTRSAV=ROPCE; /* PUT IN PTR TO ORIG OPCE */ 00110000 ST ROPCE,OCPTRSAV(,RPARM) 02S0400 00111000 * RPARM->OCTRMTBL=OCTRMTBL; /* SET UP TTCIN */ 00112000 LH @11,OCTRMTBL(,ROPCE) 02S0401 00113000 N @11,@CF01637 02S0401 00114000 STH @11,OCTRMTBL(,RPARM) 02S0401 00115000 * RPARM->REDRVFLD=''B; /* CLEAR THE STRUCTURE FIELD. 00116000 * THIS INITS THE NXTTCIN,LVLTTCI 00117000 * N,LVLSW,REDRVSW,ACTFLAG, AND 00118000 * ORIGTTE FIELDS */ 00119000 XC REDRVFLD(8,RPARM),REDRVFLD(RPARM) 02S0402 00120000 * RPARM->ORIGTTE=RTRM; /* SAVE ORIG TTE ADDR */ 00121000 STCM RTRM,7,ORIGTTE(RPARM) 02S0403 00122000 * IF OCIDLE=OFF THEN /* IF NOT DEACT IDLE */ 00123000 LR @11,ROPCE 02S0404 00124000 AL @11,@CF01638 02S0404 00125000 TM OCIDLE-2(@11),B'00000001' 02S0404 00126000 BNZ @RF00404 02S0404 00127000 * RPARM->ACTFLAG=ONE; /* SET ACT FLAG=1 */ 00128000 NI ACTFLAG(RPARM),B'11110001' 02S0405 00129000 OI ACTFLAG(RPARM),B'00000001' 02S0405 00130000 * ELSE 02S0406 00131000 * RPARM->ACTFLAG=ZERO; /* ELSE SET FLAG TO 0 */ 00132000 B @RC00404 02S0406 00133000 @RF00404 NI ACTFLAG(RPARM),B'11110000' 02S0406 00134000 * ROPCE=RPARM; /* SET BASE FOR REDRIVE OPCE */ 00135000 @RC00404 LR ROPCE,RPARM 02S0407 00136000 * OPCCOPCE=ROPCE; /* SET REDRIVE AS CURRENT OPCE */ 00137000 ST ROPCE,OPCCOPCE(,ROPCAVT) 02S0408 00138000 * OCBUFNED=0; /* INIT NO OF UNITS NEED */ 00139000 SLR @11,@11 02S0409 00140000 STH @11,OCBUFNED(,ROPCE) 02S0409 00141000 * OCBUFGOT=0; /* INIT NO OF UNITS HAVE */ 00142000 STH @11,OCBUFGOT(,ROPCE) 02S0410 00143000 * CALL HIERRUN; /* FIND NO OF BUF UNITS NEEDED */ 00144000 BAL @14,HIERRUN 02S0411 00145000 * 03S0412 00146000 * /*************************************************************/ 00147000 * /* */ 00148000 * /* PROCESS.GETBUFS: THIS SEGMENT DETERMINES IF ANY UNITS MAY */ 00149000 * /* BE OBTAINED, AND IF SO, HOW MANY, AND THEN GETS THEM AND */ 00150000 * /* ATTACHES THEM TO THE REDRIVE OPCE */ 00151000 * /* */ 00152000 * /*************************************************************/ 00153000 * 03S0412 00154000 * RFY 03S0412 00155000 * REG14 UNRSTD; /* RELEASE REG FOR COMPILER USE */ 00156000 * RFY 03S0413 00157000 * REG15 UNRSTD; /* RELEASE REG FOR COMPILER USE */ 00158000 * IF OPCADGOT<(AVTNOLBF/2) THEN/* IF ACT/DEACT HAS LT 50% */ 00159000 LH @11,OPCADGOT(,ROPCAVT) 03S0414 00160000 N @11,@CF01637 03S0414 00161000 LA @09,2 03S0414 00162000 LH @05,AVTNOLBF(,RAVT) 03S0414 00163000 LR @06,@05 03S0414 00164000 SRDA @06,32 03S0414 00165000 DR @06,@09 03S0414 00166000 CR @11,@07 03S0414 00167000 BNL @RF00414 03S0414 00168000 * DO; /* THEN */ 00169000 * IF(OCBUFNED+OPCADGOT)>(AVTNOLBF/2) THEN/* IF NO NEED PLUS*/ 00170000 LH @15,OCBUFNED(,ROPCE) 03S0416 00171000 N @15,@CF01637 03S0416 00172000 LR @14,@15 03S0416 00173000 ALR @14,@11 03S0416 00174000 LR @06,@05 03S0416 00175000 SRDA @06,32 03S0416 00176000 DR @06,@09 03S0416 00177000 CR @14,@07 03S0416 00178000 BNH @RF00416 03S0416 00179000 * DO; /* NO A/D ALREADY HAS IS GT 50% 00180000 * THEN */ 00181000 * GETNO=((AVTNOLBF/2)-OPCADGOT);/* SET TO GET UP TO 50%*/ 00182000 LR @06,@05 03S0418 00183000 SRDA @06,32 03S0418 00184000 DR @06,@09 03S0418 00185000 SLR @07,@11 03S0418 00186000 STH @07,GETNO(,RDATA) 03S0418 00187000 * OCBUFNED=OCBUFNED-GETNO;/* SET NO STILL NEED 03S0419 00188000 * =REMAINDER */ 00189000 SLR @15,@07 03S0419 00190000 STH @15,OCBUFNED(,ROPCE) 03S0419 00191000 * END; 03S0420 00192000 * ELSE /* ELSE GET ALL NEEDED */ 00193000 * DO; 03S0421 00194000 B @RC00416 03S0421 00195000 @RF00416 DS 0H 03S0422 00196000 * GETNO=OCBUFNED; /* SET TO GET ALL */ 00197000 LH @11,OCBUFNED(,ROPCE) 03S0422 00198000 N @11,@CF01637 03S0422 00199000 STH @11,GETNO(,RDATA) 03S0422 00200000 * OCBUFNED=0; /* SET NO STILL NEED=0 */ 00201000 SLR @11,@11 03S0423 00202000 STH @11,OCBUFNED(,ROPCE) 03S0423 00203000 * END; 03S0424 00204000 * OCBUFGOT=GETNO; /* SET NO HAVE =NO TO GET */ 00205000 @RC00416 LH @11,GETNO(,RDATA) 03S0425 00206000 STH @11,OCBUFGOT(,ROPCE) 03S0425 00207000 * OPCADGOT=OPCADGOT+GETNO;/* INCREMENT OPCADGOT */ 00208000 LH @09,OPCADGOT(,ROPCAVT) 03S0426 00209000 N @09,@CF01637 03S0426 00210000 ALR @11,@09 03S0426 00211000 STH @11,OPCADGOT(,ROPCAVT) 03S0426 00212000 * END; 03S0427 00213000 * ELSE /* ELSE MUST PUT REDRIVE OPCE ON 00214000 * WAIT CHAIN AND WAIT FOR */ 00215000 * DO; /* AVAILABLE UNITS ON REDRIVE */ 00216000 B @RC00414 03S0428 00217000 @RF00414 DS 0H 03S0429 00218000 * OCWTG=THISMOD; /* SET RETURN TO THIS MODULE */ 00219000 MVC OCWTG(2,ROPCE),@CC01581 03S0429 00220000 * OCLINK=OPCBUFWT; /* GET CHAIN ANCHOR AND PUT IN 00221000 * LINK FIELD */ 00222000 L @11,OPCBUFWT(,ROPCAVT) 03S0430 00223000 ST @11,OCLINK(,ROPCE) 03S0430 00224000 * OPCBUFWT=ROPCE; /* CHAIN IN THIS REDRIVE OPCE */ 00225000 ST ROPCE,OPCBUFWT(,ROPCAVT) 03S0431 00226000 * OUTFLAG=ON; /* SET TO GET OUT */ 00227000 OI OUTFLAG(RDATA),B'10000000' 03S0432 00228000 * GETNO=0; /* SET NO TO GET =0 */ 00229000 SLR @11,@11 03S0433 00230000 STH @11,GETNO(,RDATA) 03S0433 00231000 * END; 03S0434 00232000 * RFY 03S0435 00233000 * REG14 RSTD; /* RESTRICT REG */ 00234000 @RC00414 DS 0H 03S0436 00235000 * RFY 03S0436 00236000 * REG15 RSTD; /* RESTRICT REG */ 00237000 * DO WHILE GETNO>0; /* LOOP TO GET UNITS */ 00238000 B @DE00437 03S0437 00239000 @DL00437 DS 0H 03S0438 00240000 * IF GETNO>255 THEN /* MUST LOOP IF NEED MORE THAN 00241000 * 255 */ 00242000 LA @11,255 03S0438 00243000 LH @09,GETNO(,RDATA) 03S0438 00244000 CR @09,@11 03S0438 00245000 BNH @RF00438 03S0438 00246000 * DO; /* THEN */ 00247000 * GETNO=GETNO-255; /* SUB 255 FROM NO TO GET */ 00248000 SLR @09,@11 03S0440 00249000 STH @09,GETNO(,RDATA) 03S0440 00250000 * RPARM=255; /* SET FOR REQUEST */ 00251000 LR RPARM,@11 03S0441 00252000 * END; 03S0442 00253000 * ELSE /* ELSE NEED ONLY ONE PASS TO GET 00254000 * ALL NEEDED */ 00255000 * DO; 03S0443 00256000 B @RC00438 03S0443 00257000 @RF00438 DS 0H 03S0444 00258000 * RPARM=GETNO; /* SET REQUEST VALUE */ 00259000 LH RPARM,GETNO(,RDATA) 03S0444 00260000 * GETNO=0; /* AND RESET GETNO TO 0 */ 00261000 SLR @11,@11 03S0445 00262000 STH @11,GETNO(,RDATA) 03S0445 00263000 * END; 03S0446 00264000 * CALL ALLOCBUF; /* GET BUFF UNITS */ 00265000 @RC00438 L @15,OPCGETBF(,ROPCAVT) 03S0447 00266000 BALR @14,@15 03S0447 00267000 * RFY 03S0448 00268000 * REG09 RSTD; /* RESTRICT WORK REG */ 00269000 * REG09=ROPCE; /* SET REG TO POINT TO REDRIVE 00270000 * OPCE */ 00271000 LR REG09,ROPCE 03S0449 00272000 * DO WHILE REG09->TIC=VALTIC;/* LOOP TILL END OF 03S0450 00273000 * CHAIN@YM05679 */ 00274000 B @DE00450 03S0450 00275000 @DL00450 DS 0H 03S0451 00276000 * REG09=REG09->OCUNIT; /* UPDATE PTR TO NEXT UNIT */ 00277000 L REG09,OCUNIT(,REG09) 03S0451 00278000 * END; /* AT END OF LOOP REG09 PTS TO 00279000 * LAST UNIT OR REDRIVE OPCE */ 00280000 @DE00450 TM TIC(REG09),B'00000011' 03S0452 00281000 BZ @DL00450 03S0452 00282000 * REG09->OCUNIT=RPARM; /* ATTACH GOTTEN UNITS */ 00283000 ST RPARM,OCUNIT(,REG09) 03S0453 00284000 * RFY 03S0454 00285000 * REG09 UNRSTD; /* RELEASE REG */ 00286000 * END; 03S0455 00287000 @DE00437 LH @11,GETNO(,RDATA) 03S0455 00288000 LTR @11,@11 03S0455 00289000 BP @DL00437 03S0455 00290000 * END; 02S0456 00291000 * ELSE 02S0457 00292000 * OCREDRVE=OFF; /* TURN REDRIVE OFF @OY20194*/ 00293000 B @RC00391 02S0457 00294000 @RF00391 NI OCREDRVE(ROPCE),B'11101111' 02S0457 00295000 * IF OUTFLAG=OFF THEN /* BUILD OPCES UNLESS OUTFLAG IS 00296000 * SET */ 00297000 @RC00391 TM OUTFLAG(RDATA),B'10000000' 02S0458 00298000 BNZ @RF00458 02S0458 00299000 * DO; 02S0459 00300000 * 03S0460 00301000 * /*************************************************************/ 00302000 * /* */ 00303000 * /* PROCESS.BLDER: THIS SEGMENT USES HIERRUN AND GOES THRU THE*/ 00304000 * /* HIERARCHY AND BUILDS DEACT OPCES AND SESSION TERMINATION */ 00305000 * /* REQUESTS FOR THE LOWEST LEVEL ACTIVE RESOURCES. IF RUN OUT*/ 00306000 * /* OF UNITS PRIOR TO COMPLETION THEN THE REDRIVE OPCE IS */ 00307000 * /* PLACED ON THE WAIT CHAIN AND COMPLETION IS DELAYED UNTIL A*/ 00308000 * /* REDRIVE IS PERFORMED */ 00309000 * /* */ 00310000 * /*************************************************************/ 00311000 * 03S0460 00312000 * OPCAQWD=''B; /* CLEAR THE SVC LIST */ 00313000 XC OPCAQWD(12,ROPCAVT),OPCAQWD(ROPCAVT) 03S0460 00314000 * OPCAQREQ=LISTREQ; /* SET REQUEST CODE FOR LIST POST*/ 00315000 MVI OPCAQREQ(ROPCAVT),X'B4' 03S0461 00316000 * ACTFLAG=TWO; /* SET FLAG=BUILDING OPCES */ 00317000 NI ACTFLAG(ROPCE),B'11110010' 03S0462 00318000 OI ACTFLAG(ROPCE),B'00000010' 03S0462 00319000 * CALL HIERRUN; /* LOOP THRU HIERARCHY AND BUILD 00320000 * OPCES */ 00321000 BAL @14,HIERRUN 03S0463 00322000 * RPARM=ADDR(OPCAQCTL); /* POINT TO SVC LIST */ 00323000 LA RPARM,OPCAQCTL(,ROPCAVT) 03S0464 00324000 * SVC(102); /* POST THE ELEMENTS */ 00325000 SVC 102 03S0465 00326000 * IF OCBUFNED>0 THEN /* IF STILL HAVE MORE TO DO BUT 00327000 * DON'T HAVE */ 00328000 CLC OCBUFNED(2,ROPCE),@CH00736 03S0466 00329000 BNH @RF00466 03S0466 00330000 * DO; /* ENOUGH UNITS THEN */ 00331000 * OCWTG=THISMOD; /* SET RETURN TO THIS MODULE */ 00332000 MVC OCWTG(2,ROPCE),@CC01581 03S0468 00333000 * OCLINK=OPCBUFWT; /* GET CHAIN ANCHOR */ 00334000 L @11,OPCBUFWT(,ROPCAVT) 03S0469 00335000 ST @11,OCLINK(,ROPCE) 03S0469 00336000 * OCREDRVE=ON; /* TURN REDRIVE ON @OY20194*/ 00337000 OI OCREDRVE(ROPCE),B'00010000' 03S0470 00338000 * OPCBUFWT=ROPCE; /* AND CHAIN IN THIS OPCE */ 00339000 ST ROPCE,OPCBUFWT(,ROPCAVT) 03S0471 00340000 * END; 03S0472 00341000 * ELSE /* ELSE THROUGH WITH DEACTIVATION 00342000 * CASCADE */ 00343000 * DO; /* SO */ 00344000 B @RC00466 03S0473 00345000 @RF00466 DS 0H 03S0474 00346000 * REG00=1; /* SET DECREMENT COUNT */ 00347000 LA REG00,1 03S0474 00348000 * CALL DECRCT; /* DECREMENT OPCADGOT */ 00349000 L @15,OPCDECR(,ROPCAVT) 03S0475 00350000 BALR @14,@15 03S0475 00351000 * RPARM=ROPCE; /* POINT TO REDRIVE OPCE */ 00352000 LR RPARM,ROPCE 03S0476 00353000 * CALL FREEBUF; /* AND FREE IT */ 00354000 L @15,OPCFREBF(,ROPCAVT) 03S0477 00355000 BALR @14,@15 03S0477 00356000 * END; 03S0478 00357000 * OUTFLAG=ON; /* SET TO GET OUT */ 00358000 @RC00466 OI OUTFLAG(RDATA),B'10000000' 03S0479 00359000 * END; 02S0480 00360000 * ELSE 02S0481 00361000 * ; 02S0481 00362000 @RF00458 DS 0H 02S0482 00363000 * OPCMODID=CNTLMOD; /* SET XCTL TO IGC0010D */ 00364000 MVC OPCMODID(2,ROPCAVT),@CC01577 02S0482 00365000 * REG00=0; /* SET REG FOR XCTL */ 00366000 SLR REG00,REG00 02S0483 00367000 * 02S0484 00368000 * /*****************************************************************/ 00369000 * /* */ 00370000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 00371000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. THE XCTL SYSTEM */ 00372000 * /* MACRO INSTRUCTION IS USED BY THIS SEGMENT TO TRANSFER CONTROL */ 00373000 * /* TO THE NEXT MODULE THAT IS TO BE EXECUTED. */ 00374000 * /* */ 00375000 * /*****************************************************************/ 00376000 * 02S0484 00377000 * RFY 02S0484 00378000 * REG01 RSTD; /* RESTRICT THE ARGUMENT REGISTER 00379000 * TO BE USED TO CONTAIN THE 00380000 * POINTER TO THE OPERATOR 02S0484 00381000 * CONTROL ADDRESS VECTOR TABLE 00382000 * FROM USE BY THE COMPILER */ 00383000 * REG01=ROPCAVT; /* SET THE ARGUMENT REGISTER IN 00384000 * PREPARATION TO TRANSFERRING 00385000 * CONTROL TO THE NEXT MODULE */ 00386000 LR REG01,ROPCAVT 02S0485 00387000 * GEN EXIT REFS(OPCXCTL,ROPCAVT) NOSEQFLOW SETS(REG15); 02S0486 00388000 * /* 00389000 XCTL SF=(E,OPCXCTL(ROPCAVT)) TRANSFER CONTROL MACRO 00390000 *HIERRUN: 02S0487 00391000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0487 00392000 * 02S0487 00393000 HIERRUN DS 0H 02S0488 00394000 * /*****************************************************************/ 00395000 * /* */ 00396000 * /* HIERRUN: THIS SUBROUTINE LOOPS THRU THE HIERARCHY AND PERFORMS*/ 00397000 * /* EITHER OF THREE FUNCTIONS-1:COUNTING LOWEST LEVEL ACTIVE */ 00398000 * /* RESOURCES AND RESETTING THE REMEMBER BITS 2-SAME AS 1 WITHOUT */ 00399000 * /* RESETTING THE REMEMBER BITS 3-BUILDING DEACT OPCES, STOPLINE */ 00400000 * /* OPCES, OR SESSION TERMINATION REQUESTS FOR LOWEST LEVEL */ 00401000 * /* RESOURCES. THE FUNCTION PERFORMED IS CONTROLLED BY THE SETTING*/ 00402000 * /* OF THE ACTION FLAG */ 00403000 * /* */ 00404000 * /*****************************************************************/ 00405000 * 02S0488 00406000 * HIERSAV=REG14; /* SAVE REG 14 */ 00407000 ST REG14,HIERSAV(,RDATA) 02S0488 00408000 * IF REDRVSW=OFF THEN /* IF NOT RETURN TO MIDDLE OF 00409000 * LOOP */ 00410000 TM REDRVSW(ROPCE),B'01000000' 02S0489 00411000 BNZ @RF00489 02S0489 00412000 * DO; /* THEN */ 00413000 * LVLTTCIN=OCTRMTBL; /* SET UP LVLTTCIN OF HIGHER 00414000 * RESOURCE */ 00415000 LH @11,OCTRMTBL(,ROPCE) 02S0491 00416000 N @11,@CF01637 02S0491 00417000 STH @11,LVLTTCIN(,ROPCE) 02S0491 00418000 * NXTTCIN=TRMSUBST; /* SET NEXT =SUBORDINATE */ 00419000 LR @11,RTRM 02S0492 00420000 BCTR @11,0 02S0492 00421000 BCTR @11,0 02S0492 00422000 LH @11,TRMSUBST-12(,@11) 02S0492 00423000 N @11,@CF01637 02S0492 00424000 STH @11,NXTTCIN(,ROPCE) 02S0492 00425000 * IF NXTTCIN=0 THEN /* IF NO SUBORDINATE RESOURCES */ 00426000 LTR @11,@11 02S0493 00427000 BNZ @RF00493 02S0493 00428000 * DONEFLAG=ON; /* THEN DONE */ 00429000 OI DONEFLAG(RDATA),B'00100000' 02S0494 00430000 * ELSE 02S0495 00431000 * ; 02S0495 00432000 @RF00493 DS 0H 02S0496 00433000 * END; 02S0496 00434000 * ELSE 02S0497 00435000 * ; 02S0497 00436000 @RF00489 DS 0H 02S0498 00437000 * 03S0498 00438000 * /*****************************************************************/ 00439000 * /* */ 00440000 * /* PROCESS.HIER1: THIS SEGMENT FOLLOWS THE HIERARCHY CHAIN */ 00441000 * /* */ 00442000 * /*****************************************************************/ 00443000 * 03S0498 00444000 * DO WHILE DONEFLAG=OFF; /* LOOP TILL DONE SET */ 00445000 B @DE00498 03S0498 00446000 @DL00498 DS 0H 03S0499 00447000 * LOOPSW=OFF; /* RESET LOOP SWITCH */ 00448000 NI LOOPSW(RDATA),B'10111111' 03S0499 00449000 * IF REDRVSW=OFF THEN /* IF NOT REDRIVE RETURN INTO 00450000 * MIDDLE OF LOOP */ 00451000 TM REDRVSW(ROPCE),B'01000000' 03S0500 00452000 BNZ @RF00500 03S0500 00453000 * DO; /* THEN */ 00454000 * RPARM=NXTTCIN; /* SET FOR TTE LOOKUP */ 00455000 LH RPARM,NXTTCIN(,ROPCE) 03S0502 00456000 N RPARM,@CF01637 03S0502 00457000 * CALL IEDQTNT; /* GET TTE ADDR OF NXTTCIN */ 00458000 L @15,AVTRNMPT(,RAVT) 03S0503 00459000 BALR @14,@15 03S0503 00460000 * RTRM=RPARM; /* SET TTE BASE */ 00461000 LR RTRM,RPARM 03S0504 00462000 * IF TRMRSACT=ON THEN /* IF THE RESOURCE IS ACTIVE */ 00463000 LR @11,RTRM 03S0505 00464000 SL @11,@CF01634 03S0505 00465000 TM TRMRSACT(@11),B'10000000' 03S0505 00466000 BNO @RF00505 03S0505 00467000 * DO; 03S0506 00468000 * IF ACTFLAG=ONE THEN /* IF FLAG=1 THEN RESET REMEMBER 00469000 * BIT */ 00470000 TM ACTFLAG(ROPCE),B'00000001' 03S0507 00471000 BNO @RF00507 03S0507 00472000 TM ACTFLAG(ROPCE),B'00001110' 03S0507 00473000 BNZ @RF00507 03S0507 00474000 * TRMREMB=ON; 03S0508 00475000 LA @07,TRMREMB(,@11) 03S0508 00476000 LR @06,@07 03S0508 00477000 LA @09,3 03S0508 00478000 NR @06,@09 03S0508 00479000 LCR @06,@06 03S0508 00480000 ALR @07,@06 03S0508 00481000 L @09,0(,@07) 03S0508 00482000 @GL00002 LR @05,@09 03S0508 00483000 O @05,@CB01654+3(@06) 03S0508 00484000 CS @09,@05,0(@07) 03S0508 00485000 BNE @GL00002 03S0508 00486000 * ELSE 03S0509 00487000 * ; 03S0509 00488000 @RF00507 DS 0H 03S0510 00489000 * LVLSW=ON; /* TURN ON LVLSW TO INDICATE 00490000 * ACTIVE RESOURCE FOUND */ 00491000 OI LVLSW(ROPCE),B'10000000' 03S0510 00492000 * IF TRMTYPE=TRMNSDLC|TRMSUBST=0 THEN/* IF THE RESOURCE 00493000 * IS LOWEST OR IS BSC/SS LINE */ 00494000 LR @11,RTRM 03S0511 00495000 SL @11,@CF01634 03S0511 00496000 CLI TRMTYPE(@11),X'20' 03S0511 00497000 BE @RT00511 03S0511 00498000 LH @11,TRMSUBST(,@11) 03S0511 00499000 N @11,@CF01637 03S0511 00500000 LTR @11,@11 03S0511 00501000 BNZ @RF00511 03S0511 00502000 @RT00511 DS 0H 03S0512 00503000 * DO; /* THEN */ 00504000 * CALL ACTION; /* PERFORM ACTION */ 00505000 BAL @14,ACTION 03S0513 00506000 * NXTTCIN=TRMCOHRT; /* AND POINT TO NEXT RESOURCE */ 00507000 LR @11,RTRM 03S0514 00508000 AL @11,@CF01658 03S0514 00509000 LH @11,TRMCOHRT-4(,@11) 03S0514 00510000 N @11,@CF01637 03S0514 00511000 STH @11,NXTTCIN(,ROPCE) 03S0514 00512000 * END; 03S0515 00513000 * ELSE /* ELSE CHANGE LEVELS */ 00514000 * DO; 03S0516 00515000 B @RC00511 03S0516 00516000 @RF00511 DS 0H 03S0517 00517000 * LVLTTCIN=NXTTCIN; /* SET THIS TTE AS HIGHER 03S0517 00518000 * RESOURCE */ 00519000 MVC LVLTTCIN(2,ROPCE),NXTTCIN(ROPCE) 03S0517 00520000 * LVLSW=OFF; /* TURN OFF LEVEL SWITCH */ 00521000 NI LVLSW(ROPCE),B'01111111' 03S0518 00522000 * NXTTCIN=TRMSUBST; /* SET NEXT AS THE SUBORDINATE */ 00523000 LR @11,RTRM 03S0519 00524000 BCTR @11,0 03S0519 00525000 BCTR @11,0 03S0519 00526000 LH @11,TRMSUBST-12(,@11) 03S0519 00527000 N @11,@CF01637 03S0519 00528000 STH @11,NXTTCIN(,ROPCE) 03S0519 00529000 * END; 03S0520 00530000 * END; 03S0521 00531000 * ELSE 03S0522 00532000 * DO; /* ELSE */ 00533000 B @RC00505 03S0522 00534000 @RF00505 DS 0H 03S0523 00535000 * IF ACTFLAG=ONE THEN /* IF ACTFLAG=1 THEN */ 00536000 TM ACTFLAG(ROPCE),B'00000001' 03S0523 00537000 BNO @RF00523 03S0523 00538000 TM ACTFLAG(ROPCE),B'00001110' 03S0523 00539000 BNZ @RF00523 03S0523 00540000 * TRMREMB=OFF; /* TURN OFF REMEMBER BIT */ 00541000 LR @06,RTRM 03S0524 00542000 AL @06,@CF01644 03S0524 00543000 LA @05,TRMREMB-2(,@06) 03S0524 00544000 LR @07,@05 03S0524 00545000 LA @11,3 03S0524 00546000 NR @07,@11 03S0524 00547000 LCR @07,@07 03S0524 00548000 ALR @05,@07 03S0524 00549000 L @11,0(,@05) 03S0524 00550000 @GL00004 LR @09,@11 03S0524 00551000 N @09,@CB01640+3(@07) 03S0524 00552000 CS @11,@09,0(@05) 03S0524 00553000 BNE @GL00004 03S0524 00554000 * ELSE 03S0525 00555000 * ; 03S0525 00556000 @RF00523 DS 0H 03S0526 00557000 * NXTTCIN=TRMCOHRT; /* SET NEXT =SAME LEVEL OR HIGHER 00558000 * RESOURCE */ 00559000 LR @11,RTRM 03S0526 00560000 AL @11,@CF01658 03S0526 00561000 LH @11,TRMCOHRT-4(,@11) 03S0526 00562000 N @11,@CF01637 03S0526 00563000 STH @11,NXTTCIN(,ROPCE) 03S0526 00564000 * END; 03S0527 00565000 * END; 03S0528 00566000 * ELSE 03S0529 00567000 * REDRVSW=OFF; /* ELSE TURN OFF REDRVSW */ 00568000 B @RC00500 03S0529 00569000 @RF00500 NI REDRVSW(ROPCE),B'10111111' 03S0529 00570000 * 04S0530 00571000 * /***************************************************************/ 00572000 * /* */ 00573000 * /* PROCESS.HIER1.HIER2: THIS SEGMENT CHECKS TO SEE IF THE NEXT */ 00574000 * /* LEVEL OF THE HIERARCHY HAS BEEN REACHED. IF SO, THEN THE */ 00575000 * /* LOOP INDICATORS ARE SET UP FOR THIS LEVEL OF HIERARCHY, OR */ 00576000 * /* IF BACK TO THE ORIG RESOURCE, THEN SET UP TO GET OUT */ 00577000 * /* */ 00578000 * /***************************************************************/ 00579000 * 04S0530 00580000 * DO WHILE LOOPSW=OFF; /* LOOP TILL SWITCH IS SET */ 00581000 @RC00500 B @DE00530 04S0530 00582000 @DL00530 DS 0H 04S0531 00583000 * IF NXTTCIN=LVLTTCIN THEN /* IF THE COHORT PTR=HIGHER LEVEL*/ 00584000 CLC NXTTCIN(2,ROPCE),LVLTTCIN(ROPCE) 04S0531 00585000 BNE @RF00531 04S0531 00586000 * IF NXTTCIN^=OCPTRSAV->OCTRMTBL THEN/* AND NOT ORIG RESOURCE*/ 00587000 LH @11,NXTTCIN(,ROPCE) 04S0532 00588000 N @11,@CF01637 04S0532 00589000 L @09,OCPTRSAV(,ROPCE) 04S0532 00590000 LH @09,OCTRMTBL(,@09) 04S0532 00591000 N @09,@CF01637 04S0532 00592000 CR @11,@09 04S0532 00593000 BE @RF00532 04S0532 00594000 * DO; 04S0533 00595000 * RPARM=NXTTCIN; /* SET TO FIND TTE ADDR OF 04S0534 00596000 * NXTTCIN */ 00597000 LR RPARM,@11 04S0534 00598000 * CALL IEDQTNT; /* GET TTE ADDR */ 00599000 L @15,AVTRNMPT(,RAVT) 04S0535 00600000 BALR @14,@15 04S0535 00601000 * RTRM=RPARM; /* AND PUT IN RTRM */ 00602000 LR RTRM,RPARM 04S0536 00603000 * IF LVLSW=OFF THEN /* IF NO ACTIVE SUBORDINATE 04S0537 00604000 * RESOURCES */ 00605000 TM LVLSW(ROPCE),B'10000000' 04S0537 00606000 BNZ @RF00537 04S0537 00607000 * DO; /* THEN IS LOWEST LEVEL ACTIVE 00608000 * RESOURCE */ 00609000 * CALL ACTION; /* PERFORM ACTION */ 00610000 BAL @14,ACTION 04S0539 00611000 * LVLSW=ON; /* SET SW TO INDICATE ACTIVE ON 00612000 * THIS LEVEL */ 00613000 OI LVLSW(ROPCE),B'10000000' 04S0540 00614000 * END; 04S0541 00615000 * ELSE 04S0542 00616000 * ; 04S0542 00617000 @RF00537 DS 0H 04S0543 00618000 * NXTTCIN=TRMCOHRT; /* SET UP NXTTCIN AS COHORT */ 00619000 LR @11,RTRM 04S0543 00620000 AL @11,@CF01658 04S0543 00621000 LH @11,TRMCOHRT-4(,@11) 04S0543 00622000 N @11,@CF01637 04S0543 00623000 STH @11,NXTTCIN(,ROPCE) 04S0543 00624000 * RPARM=RTRM; /* SET FOR COHORTLK ROUTINE */ 00625000 LR RPARM,RTRM 04S0544 00626000 * CALL COHORTLK; /* FIND HIGHER RESOURCE TTCIN */ 00627000 L @15,OPCHORT(,ROPCAVT) 04S0545 00628000 BALR @14,@15 04S0545 00629000 * LVLTTCIN=REG00; /* SET IN LVLTTCIN */ 00630000 STH REG00,LVLTTCIN(,ROPCE) 04S0546 00631000 * END; 04S0547 00632000 * ELSE /* ELSE IF BACK TO ORIG THEN DONE*/ 00633000 * DO; 04S0548 00634000 B @RC00532 04S0548 00635000 @RF00532 DS 0H 04S0549 00636000 * DONEFLAG=ON; /* SET DONE */ 00637000 * LOOPSW=ON; /* SET TO END LOOP */ 00638000 OI DONEFLAG(RDATA),B'01100000' 04S0550 00639000 * END; 04S0551 00640000 * ELSE 04S0552 00641000 * LOOPSW=ON; /* ELSE SET TO GET OUT OF LOOP */ 00642000 B @RC00531 04S0552 00643000 @RF00531 OI LOOPSW(RDATA),B'01000000' 04S0552 00644000 * END; 04S0553 00645000 @RC00531 DS 0H 04S0553 00646000 @DE00530 TM LOOPSW(RDATA),B'01000000' 04S0553 00647000 BZ @DL00530 04S0553 00648000 * END; 03S0554 00649000 @DE00498 TM DONEFLAG(RDATA),B'00100000' 03S0554 00650000 BZ @DL00498 03S0554 00651000 * DONEFLAG=OFF; /* RESET DONE FLAG */ 00652000 NI DONEFLAG(RDATA),B'11011111' 02S0555 00653000 * IF OUTFLAG=OFF THEN /* IF OUT FLAG NOT SET */ 00654000 TM OUTFLAG(RDATA),B'10000000' 02S0556 00655000 BNZ @RF00556 02S0556 00656000 * IF LVLSW=OFF THEN /* AND NO ACTIVE SUBORDINATE 00657000 * RESOURCES FOUND */ 00658000 TM LVLSW(ROPCE),B'10000000' 02S0557 00659000 BNZ @RF00557 02S0557 00660000 * DO; 02S0558 00661000 * RTRM=ORIGTTE; /* RESET TTE BASE TO ORIGINAL 00662000 * RESOURCE @YM05641*/ 00663000 L RTRM,ORIGTTE-1(,ROPCE) 02S0559 00664000 LA RTRM,0(,RTRM) 02S0559 00665000 * NXTTCIN=OCTRMTBL; /* SET FOR SUBROUTINE CALL */ 00666000 LH @11,OCTRMTBL(,ROPCE) 02S0560 00667000 N @11,@CF01637 02S0560 00668000 STH @11,NXTTCIN(,ROPCE) 02S0560 00669000 * CALL ACTION; /* THEN PERFORM NECESSARY ACTION */ 00670000 BAL @14,ACTION 02S0561 00671000 * END; 02S0562 00672000 * ELSE 02S0563 00673000 * ; 02S0563 00674000 @RF00557 DS 0H 02S0564 00675000 * ELSE 02S0564 00676000 * ; 02S0564 00677000 @RF00556 DS 0H 02S0565 00678000 * RTRM=ORIGTTE; /* RESET TTE BASE */ 00679000 L RTRM,ORIGTTE-1(,ROPCE) 02S0565 00680000 LA RTRM,0(,RTRM) 02S0565 00681000 * REG14=HIERSAV; /* RESTORE REG14 */ 00682000 L REG14,HIERSAV(,RDATA) 02S0566 00683000 * END HIERRUN; 02S0567 00684000 @EL00002 DS 0H 02S0567 00685000 @EF00002 DS 0H 02S0567 00686000 @ER00002 BR @14 02S0567 00687000 * 02S0568 00688000 * /*****************************************************************/ 00689000 * /* */ 00690000 * /* ACTION: THIS SEGMENT EITHER BUILDS OPCES IF THE ACTION FLAG IS*/ 00691000 * /* 2, OR IT COUNTS THE NUMBER OF BUFFER UNITS NEEDED IF^=2 */ 00692000 * /* */ 00693000 * /*****************************************************************/ 00694000 * 02S0568 00695000 *ACTION: 02S0568 00696000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0568 00697000 ACTION DS 0H 02S0569 00698000 * ACTSAV=REG14; /* SAVE RETURN */ 00699000 ST REG14,ACTSAV(,RDATA) 02S0569 00700000 * IF ACTFLAG=TWO THEN /* IF FLAG=2 */ 00701000 TM ACTFLAG(ROPCE),B'00000010' 02S0570 00702000 BNO @RF00570 02S0570 00703000 TM ACTFLAG(ROPCE),B'00001101' 02S0570 00704000 BNZ @RF00570 02S0570 00705000 * DO; /* THEN BUILD OPCES */ 00706000 * 03S0572 00707000 * /*************************************************************/ 00708000 * /* */ 00709000 * /* PROCESS.HIERRUN.ACTION.BLDOPCE: THIS SEGMENT BUILDS THE */ 00710000 * /* OPCES AND SESS TERM REQUESTS. IF USE THE LAST AVAILABLE */ 00711000 * /* UNIT AND STILL NEED MORE, THEN SETS UP SO REDRIVE WILL BE */ 00712000 * /* PERFORMED */ 00713000 * /* */ 00714000 * /*************************************************************/ 00715000 * 03S0572 00716000 * RFY 03S0572 00717000 * REG09 RSTD; /* RESTRICT WORK REG */ 00718000 * REG09=OCUNIT; /* POINT TO FIRST UNIT */ 00719000 L REG09,OCUNIT(,ROPCE) 03S0573 00720000 * OCUNIT=REG09->OCUNIT; /* DELINK THE UNIT */ 00721000 L @11,OCUNIT(,REG09) 03S0574 00722000 ST @11,OCUNIT(,ROPCE) 03S0574 00723000 * REG09->OCUNIT=PRUINTIC; /* SET INVALID TIC */ 00724000 MVC OCUNIT(4,REG09),@CF01230 03S0575 00725000 * REG09->OCTRMTBL=NXTTCIN; /* SET OCTRMTBL =RESOURCE */ 00726000 LH @11,NXTTCIN(,ROPCE) 03S0576 00727000 N @11,@CF01637 03S0576 00728000 STH @11,OCTRMTBL(,REG09) 03S0576 00729000 * REG09->OCPARM=0; /* INIT OCPARM */ 00730000 SLR @11,@11 03S0577 00731000 STH @11,OCPARM(,REG09) 03S0577 00732000 * REG09->OCALSTAT=0; /* INIT OCALSTAT */ 00733000 MVI OCALSTAT(REG09),X'00' 03S0578 00734000 * REG09->OCRESP=OFF; /* INIT RESPONSE FLAG */ 00735000 NI OCRESP(REG09),B'11111110' 03S0579 00736000 * REG09->OCWTG=RESPMOD; /* SET RETURN TO IGCFG10D */ 00737000 MVC OCWTG(2,REG09),@CC01579 03S0580 00738000 * REG09->OCACTREQ=ON; /* SET ACT/DEACT FLAG */ 00739000 OI OCACTREQ(REG09),B'00001000' 03S0581 00740000 * REG09->OCLINK=ADDR(AVTOPCOB);/* SET QCB=OP CNTL */ 00741000 LA @11,AVTOPCOB(,RAVT) 03S0582 00742000 ST @11,OCLINK(,REG09) 03S0582 00743000 * REG09->OCPTRSAV=OCPTRSAV; /* SET PTR TO ORIG OPCE */ 00744000 L @11,OCPTRSAV(,ROPCE) 03S0583 00745000 ST @11,OCPTRSAV(,REG09) 03S0583 00746000 * IF TRMTYPE^=TRMNSDLC THEN /* IF NOT BSC/SS LINE */ 00747000 LR @11,RTRM 03S0584 00748000 SL @11,@CF01634 03S0584 00749000 CLI TRMTYPE(@11),X'20' 03S0584 00750000 BE @RF00584 03S0584 00751000 * DO; /* THEN */ 00752000 * REG09->OCELMPRI=PRIHIFLG;/* SET SSCP PRIORITY */ 00753000 MVI OCELMPRI(REG09),X'E9' 03S0586 00754000 * REG09->OCPRIFLG=OPRA0; /* SET SSCP FLAG */ 00755000 MVI OCPRIFLG(REG09),X'01' 03S0587 00756000 * IF TRMTYPE^=TRMSDLC THEN/* IF NOT SNA LINE */ 00757000 CLI TRMTYPE(@11),X'21' 03S0588 00758000 BE @RF00588 03S0588 00759000 * IF TRMTYPE=TRMLUNT THEN/* AND IS AN LU */ 00760000 CLI TRMTYPE(@11),X'30' 03S0589 00761000 BNE @RF00589 03S0589 00762000 * DO; /* THEN */ 00763000 * 04S0591 00764000 * /***************************************************/ 00765000 * /* */ 00766000 * /* PROCESS.BLDER.HIERRUN.ACTION.BLDOPCE.BLDLU: THIS*/ 00767000 * /* SEGMENT DETERMINES IF THERE IS A SESSION (LU-LU)*/ 00768000 * /* AND IF SO BUILDS A SESSION TERMINATION ELEMENT. */ 00769000 * /* IF NOT, THEN A DACTLU REQUEST IS BUILT. IF SESS */ 00770000 * /* TERM IS BUILT, THEN IF RESULT OF FLUSH CLOSEDOWN*/ 00771000 * /* THE SESS TERM ELEMENT SPECIFIES SHUTDOWN TYPE OF*/ 00772000 * /* SESSION TERMINATION. */ 00773000 * /* */ 00774000 * /***************************************************/ 00775000 * 04S0591 00776000 * RFY 04S0591 00777000 * RSIB RSTD; /* RESTRICT REG */ 00778000 * RSIB=TRMSIBPT; /* GET SIB PTR */ 00779000 SLR RSIB,RSIB 04S0592 00780000 ICM RSIB,7,TRMSIBPT(@11) 04S0592 00781000 * REG00=0; /* CLEAR WORK REG @YM05668*/ 00782000 SLR REG00,REG00 04S0593 00783000 * DO WHILE RSIB^=0&SIBINDEX^=SAVTSCPT;/* FIND THE 00784000 * SSCP-LU SIB @YM08152*/ 00785000 B @DE00594 04S0594 00786000 @DL00594 DS 0H 04S0595 00787000 * REG00=REG00+1; /* BUMP SIB COUNT @YM05668*/ 00788000 AL REG00,@CF00062 04S0595 00789000 * RSIB=SIBCHAIN; /* AND GO TO NEXT SIB @YM05668*/ 00790000 L RSIB,SIBCHAIN(,RSIB) 04S0596 00791000 * END; /* @YM05668*/ 00792000 @DE00594 LTR RSIB,RSIB 04S0597 00793000 BZ @DC00594 04S0597 00794000 L @11,AVTSAVTP(,RAVT) 04S0597 00795000 CLC SIBINDEX(2,RSIB),SAVTSCPT(@11) 04S0597 00796000 BNE @DL00594 04S0597 00797000 @DC00594 DS 0H 04S0598 00798000 * IF RSIB^=0 THEN /* IF SSCP SESS SIB FOUND THEN 00799000 * @YM08984*/ 00800000 LTR RSIB,RSIB 04S0598 00801000 BZ @RF00598 04S0598 00802000 * SIBDACLU=ON; /* TURN ON DACTLU PENDING 04S0599 00803000 * @YM08984*/ 00804000 OI SIBDACLU(RSIB),B'00010000' 04S0599 00805000 * ELSE 04S0600 00806000 * ; /* ELSE NO SSCP SESS SIB @YM08984*/ 00807000 @RF00598 DS 0H 04S0601 00808000 * IF TRMINERR=ON|REG00>0 THEN/* IF LU-LU SESSION 00809000 * @YM08984*/ 00810000 LR @11,RTRM 04S0601 00811000 AL @11,@CF01664 04S0601 00812000 TM TRMINERR-1(@11),B'00000010' 04S0601 00813000 BO @RT00601 04S0601 00814000 LTR REG00,REG00 04S0601 00815000 BNP @RF00601 04S0601 00816000 @RT00601 DS 0H 04S0602 00817000 * DO; /* THEN */ 00818000 * RFY 04S0603 00819000 * IEDREQD BASED(REG09);/* SET BASE FOR REQUEST 00820000 * ELEMENT */ 00821000 * REQQCBA=ADDR(SAVTLUSQ);/* SET LUS QCB ADDR 00822000 * @YM05641*/ 00823000 L @11,AVTSAVTP(,RAVT) 04S0604 00824000 LA @11,SAVTLUSQ(,@11) 04S0604 00825000 STCM @11,7,REQQCBA(REG09) 04S0604 00826000 * REQPRI=PRILUSR;/* SET LUS PRIORITY */ 00827000 MVI REQPRI(REG09),X'DA' 04S0605 00828000 * REQRPRI=PRIMEDFG;/* SET PRIORITY AND FLAG */ 00829000 MVI REQRPRI(REG09),X'DF' 04S0606 00830000 * REQFLAG=OPRFG;/* FOR RETURN TO FG */ 00831000 MVI REQFLAG(REG09),X'03' 04S0607 00832000 * REQSWTCH=OCSESTRM;/* SET SESS TERM ELEM 04S0608 00833000 * IDENTIFIER */ 00834000 MVI REQSWTCH(REG09),X'E6' 04S0608 00835000 * REQLTNT=NXTTCIN;/* SET LU TTCIN */ 00836000 MVC REQLTNT(2,REG09),NXTTCIN(ROPCE) 04S0609 00837000 * REQRQCBA=ADDR(AVTOPCOB);/* SET RETURN QCB */ 00838000 LA @11,AVTOPCOB(,RAVT) 04S0610 00839000 STCM @11,7,REQRQCBA(REG09) 04S0610 00840000 * RPARM=RTRM; /* PUT LUTTE IN REG1 */ 00841000 LR RPARM,RTRM 04S0611 00842000 * RFY 04S0612 00843000 * IEDQTRM BASED(RPARM);/* SET NEW TTE BASE */ 00844000 * DO UNTIL TRMTYPE=TRMLNCP;/* LOOP TILL GET TO 00845000 * NCP */ 00846000 @DL00613 DS 0H 04S0614 00847000 * CALL COHORTLK;/* FIND NEXT HIGHER RESOURCE */ 00848000 L @15,OPCHORT(,ROPCAVT) 04S0614 00849000 BALR @14,@15 04S0614 00850000 * END; 04S0615 00851000 @DE00613 LR @11,RPARM 04S0615 00852000 SL @11,@CF01634 04S0615 00853000 CLI TRMTYPE(@11),X'0F' 04S0615 00854000 BNE @DL00613 04S0615 00855000 * IF TRMNCPCL=ON THEN/* IF FLUSH CLOSEDOWN 04S0616 00856000 * @YM08012*/ 00857000 TM TRMNCPCL(@11),B'01000000' 04S0616 00858000 BNO @RF00616 04S0616 00859000 * REQTYPE=REQLSHTD;/* SET SHUTDOWN SESS TERM 00860000 * REQUEST */ 00861000 MVI REQTYPE(REG09),X'02' 04S0617 00862000 * ELSE 04S0618 00863000 * REQTYPE=REQLTRM;/* ELSE SET NORMAL SESS TERM */ 00864000 B @RC00616 04S0618 00865000 @RF00616 MVI REQTYPE(REG09),X'01' 04S0618 00866000 * RFY 04S0619 00867000 * IEDQTRM BASED(RTRM);/* RESET TTE BASE */ 00868000 @RC00616 DS 0H 04S0620 00869000 * END; 04S0620 00870000 * ELSE 04S0621 00871000 * REG09->OCSWITCH=OCDACTLU;/* ELSE NO SESSION SO DO 00872000 * DACTLU */ 00873000 B @RC00601 04S0621 00874000 @RF00601 MVI OCSWITCH(REG09),X'20' 04S0621 00875000 * RFY 04S0622 00876000 * RSIB UNRSTD; 04S0622 00877000 @RC00601 DS 0H 04S0623 00878000 * END; 03S0623 00879000 * ELSE 03S0624 00880000 * REG09->OCSWITCH=OCDACTPU;/* ELSE SET DACT PU CODE */ 00881000 B @RC00589 03S0624 00882000 @RF00589 MVI OCSWITCH(REG09),X'40' 03S0624 00883000 * ELSE 03S0625 00884000 * REG09->OCSWITCH=OCDACTLK;/* ELSE SET DACT LINK CODE */ 00885000 B @RC00588 03S0625 00886000 @RF00588 MVI OCSWITCH(REG09),X'60' 03S0625 00887000 * END; 03S0626 00888000 * ELSE /* ELSE IS BSC/SS LINE SO */ 00889000 * DO; 03S0627 00890000 B @RC00584 03S0627 00891000 @RF00584 DS 0H 03S0628 00892000 * RPARM=RTRM; /* SET FOR SUBROUTINE CALL 03S0628 00893000 * @YM05711*/ 00894000 LR RPARM,RTRM 03S0628 00895000 * CALL CHORTGLK; /* FIND GROUP TTE @YM05711*/ 00896000 L @15,OPCHORTG(,ROPCAVT) 03S0629 00897000 BALR @14,@15 03S0629 00898000 * RFY 03S0630 00899000 * IEDQOPCE BASED(REG09);/* BASE DSECT ON STOPLINE OPCE 00900000 * @YM06063*/ 00901000 * IEDNLPTR=RPARM-LGBPRFSZ;/* SET FIRST 4 BYTES OF OCMODNME 00902000 * TO LGB ADDR BY BACKING UP PTR 00903000 * TO GROUP TTE TO BEGINNING OF 00904000 * LGB @YM06063*/ 00905000 LR @11,RPARM 03S0631 00906000 SL @11,@CF00475 03S0631 00907000 ST @11,IEDNLPTR(,REG09) 03S0631 00908000 * RFY 03S0632 00909000 * IEDQOPCE BASED(ROPCE);/* BASE DSECT ON REDRIVE OPCE 00910000 * @YM06063*/ 00911000 * RPARM=REG00; /* SET FOR SUBROUTINE CALL 03S0633 00912000 * @YM05711*/ 00913000 LR RPARM,REG00 03S0633 00914000 * REG09->OCBACKUP=''; /* CLEAR OCBACKUP @YM05711*/ 00915000 MVI OCBACKUP(REG09),C' ' 03S0634 00916000 MVC OCBACKUP+1(7,REG09),OCBACKUP(REG09) 03S0634 00917000 * CALL TNTENTAD; /* GET THE GROUP NAME FIELD ADDR 00918000 * @YM05711*/ 00919000 L @15,OPCTNTEA(,ROPCAVT) 03S0635 00920000 BALR @14,@15 03S0635 00921000 * REG09->OCBACKUP(1:TNTENLEN)=NAME(1:TNTENLEN);/* SET 03S0636 00922000 * GROUPNAME IN OCBACKUP @YM05711*/ 00923000 L @11,IEDQNPTR(,RAVT) 03S0636 00924000 SLR @05,@05 03S0636 00925000 IC @05,TNTENLEN(,@11) 03S0636 00926000 BCTR @05,0 03S0636 00927000 EX @05,@SM01665 03S0636 00928000 * REG09->OCSWITCH=OCVAROFF;/* SET STOPLINE CODE */ 00929000 MVI OCSWITCH(REG09),X'D2' 03S0637 00930000 * REG09->OCELMPRI=PRIMEDFG;/* SET PRIORITY FOR V8 */ 00931000 MVI OCELMPRI(REG09),X'DF' 03S0638 00932000 * REG09->OCPRIFLG=OPRV8; /* SET FLAG FOR V8 */ 00933000 MVI OCPRIFLG(REG09),X'11' 03S0639 00934000 * REG09=REG09-LENGTH(IEDQOPCN);/* BACKUP TO NEG PREFIX 00935000 * @YM05976*/ 00936000 LA @11,8 03S0640 00937000 SLR REG09,@11 03S0640 00938000 * REG09->OCFLUSHZ=OFF; /* SET FLUSH BIT OFF BY DEFAULT 00939000 * @YM05976*/ 00940000 NI OCFLUSHZ(REG09),B'01111111' 03S0641 00941000 * RPARM=OCPTRSAV-LENGTH(IEDQOPCN);/* GET PROPER OPCE 03S0642 00942000 * @YM07752*/ 00943000 LCR @11,@11 03S0642 00944000 AL @11,OCPTRSAV(,ROPCE) 03S0642 00945000 LR RPARM,@11 03S0642 00946000 * IF RPARM->OCFLUSHZ=ON THEN/* IF FLUSH CLOSEDOWN @YM07752*/ 00947000 TM OCFLUSHZ(RPARM),B'10000000' 03S0643 00948000 BNO @RF00643 03S0643 00949000 * REG09->OCFLUSHZ=ON; /* TURN ON FLUSH BIT IN STOPLINE 00950000 * OPCE @YM5976*/ 00951000 OI OCFLUSHZ(REG09),B'10000000' 03S0644 00952000 * REG09=REG09+LENGTH(IEDQOPCN);/* RESTORE POINTER TO MAIN 00953000 * OPCE @YM05976*/ 00954000 @RF00643 AL REG09,@CF00046 03S0645 00955000 * END; 03S0646 00956000 * IF OPCAQFST=0 THEN /* IF LIST EMPTY */ 00957000 @RC00584 L @11,OPCAQFST-1(,ROPCAVT) 03S0647 00958000 LA @11,0(,@11) 03S0647 00959000 LTR @11,@11 03S0647 00960000 BNZ @RF00647 03S0647 00961000 * DO; /* THEN */ 00962000 * OPCAQFST=REG09; /* SET FIRST ELEMENT */ 00963000 STCM REG09,7,OPCAQFST(ROPCAVT) 03S0649 00964000 * OPCAQSEC=REG09; /* SET SECOND SAME */ 00965000 STCM REG09,7,OPCAQSEC(ROPCAVT) 03S0650 00966000 * END; 03S0651 00967000 * ELSE /* ELSE IF LIST NOT EMPTY */ 00968000 * DO; /* THEN */ 00969000 B @RC00647 03S0652 00970000 @RF00647 DS 0H 03S0653 00971000 * RFY 03S0653 00972000 * REG11 RSTD; /* RESTRICT REG */ 00973000 * REG11=OPCAQSEC; /* SET LAST ELEMENT PTR */ 00974000 L REG11,OPCAQSEC-1(,ROPCAVT) 03S0654 00975000 LA REG11,0(,REG11) 03S0654 00976000 * REG11->OCELMPTR=REG09; /* SET LAST ELEM TO POINT TO THIS 00977000 * ONE */ 00978000 STCM REG09,7,OCELMPTR(REG11) 03S0655 00979000 * OPCAQSEC=REG09; /* SET LIST LAST ELEM PTR TO THIS 00980000 * ONE */ 00981000 STCM REG09,7,OPCAQSEC(ROPCAVT) 03S0656 00982000 * RFY 03S0657 00983000 * REG11 UNRSTD; /* RELEASE REG */ 00984000 * END; 03S0658 00985000 * OCBUFGOT=OCBUFGOT-1; /* DECREMENT NO OF UNITS HAVE */ 00986000 @RC00647 LH @11,OCBUFGOT(,ROPCE) 03S0659 00987000 N @11,@CF01637 03S0659 00988000 BCTR @11,0 03S0659 00989000 STH @11,OCBUFGOT(,ROPCE) 03S0659 00990000 * IF OCBUFGOT=0 THEN /* IF RUN OUT OF UNITS */ 00991000 LTR @11,@11 03S0660 00992000 BNZ @RF00660 03S0660 00993000 * IF OCBUFNED>0 THEN /* AND STILL NEED MORE */ 00994000 CLC OCBUFNED(2,ROPCE),@CH00736 03S0661 00995000 BNH @RF00661 03S0661 00996000 * DO; /* THEN */ 00997000 * REDRVSW=ON; /* SET MIDDLE OF LOOP REDRIVE 00998000 * SWITCH */ 00999000 OI REDRVSW(ROPCE),B'01000000' 03S0663 01000000 * DONEFLAG=ON; /* SET DONE */ 01001000 * LOOPSW=ON; /* SET TO GET OUT OF LOOP */ 01002000 * OUTFLAG=ON; /* SET TO GET OUT */ 01003000 OI DONEFLAG(RDATA),B'11100000' 03S0666 01004000 * END; 03S0667 01005000 * ELSE 03S0668 01006000 * ; 03S0668 01007000 @RF00661 DS 0H 03S0669 01008000 * ELSE 03S0669 01009000 * ; 03S0669 01010000 @RF00660 DS 0H 03S0670 01011000 * END; 02S0670 01012000 * ELSE 02S0671 01013000 * OCBUFNED=OCBUFNED+1; /* ELSE BUMP COUNT */ 01014000 B @RC00570 02S0671 01015000 @RF00570 LA @11,1 02S0671 01016000 LH @05,OCBUFNED(,ROPCE) 02S0671 01017000 N @05,@CF01637 02S0671 01018000 ALR @11,@05 02S0671 01019000 STH @11,OCBUFNED(,ROPCE) 02S0671 01020000 * REG14=ACTSAV; /* RESTORE RETURN */ 01021000 @RC00570 L REG14,ACTSAV(,RDATA) 02S0672 01022000 * END ACTION; 02S0673 01023000 @EL00003 DS 0H 02S0673 01024000 @EF00003 DS 0H 02S0673 01025000 @ER00003 BR @14 02S0673 01026000 * END IGCFP10D 01S0674 01027000 * 01S0674 01028000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01029000 */*%INCLUDE SYSLIB (TAVTD ) */ 01030000 */*%INCLUDE SYSLIB (TLGBD ) */ 01031000 */*%INCLUDE SYSLIB (TOPCED ) */ 01032000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01033000 */*%INCLUDE SYSLIB (TOPRED ) */ 01034000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01035000 */*%INCLUDE SYSLIB (TPRUD ) */ 01036000 */*%INCLUDE SYSLIB (TRECBD ) */ 01037000 */*%INCLUDE SYSLIB (TREQD ) */ 01038000 */*%INCLUDE SYSLIB (TSIBD ) */ 01039000 */*%INCLUDE SYSLIB (TTNTD ) */ 01040000 */*%INCLUDE SYSLIB (TTRMD ) */ 01041000 */*%INCLUDE SYSUT5 (RFY ) */ 01042000 */*%INCLUDE SYSUT5 (DCL ) */ 01043000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 01044000 */*%INCLUDE SYSUT5 (PROCESS ) */ 01045000 */*%INCLUDE SYSUT5 (INITIAL ) */ 01046000 */*%INCLUDE SYSUT5 (GETBUFS ) */ 01047000 */*%INCLUDE SYSUT5 (BLDER ) */ 01048000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 01049000 */*%INCLUDE SYSUT5 (HIERRUN ) */ 01050000 */*%INCLUDE SYSUT5 (HIER1 ) */ 01051000 */*%INCLUDE SYSUT5 (HIER2 ) */ 01052000 */*%INCLUDE SYSUT5 (ACTION ) */ 01053000 */*%INCLUDE SYSUT5 (BLDOPCE ) */ 01054000 */*%INCLUDE SYSUT5 (BLDLU ) */ 01055000 * 01S0674 01056000 * ; 01S0674 01057000 @DATA DS 0H 01058000 @CH00736 DC H'0' 01059000 @SM01665 MVC OCBACKUP(0,REG09),NAME(RPARM) 01060000 @DATD DSECT 01061000 DS 0F 01062000 IGCFP10D CSECT 01063000 DS 0F 01064000 @CF00062 DC F'1' 01065000 @CF00046 DC F'8' 01066000 @CF01634 DC F'14' 01067000 @CF01664 DC F'-13' 01068000 @CF01644 DC F'-12' 01069000 @CF01658 DC F'-10' 01070000 @CF01638 DC F'-6' 01071000 @CF00889 DC F'-3' 01072000 @CF01230 DC XL4'08000002' 01073000 @CF01637 DC XL4'0000FFFF' 01074000 @CF00475 DC XL4'14' 01075000 @DATD DSECT 01076000 DS 0D 01077000 @ENDDATD EQU * 01078000 IGCFP10D CSECT 01079000 NOPR ((@ENDDATD-@DATD)*16) 01080000 DS 0F 01081000 @SIZDATD DC AL1(0) 01082000 DC AL3(@ENDDATD-@DATD) 01083000 DS 0D 01084000 @CC01577 DC C'00' 01085000 @CC01579 DC C'FG' 01086000 @CC01581 DC C'FP' 01087000 @CB01640 DC B'111111111111111111111111101111111111111111111111111111C01088000 11' 01089000 @CB01654 DC B'000000000000000000000000010000000000000000000000000000C01090000 00' 01091000 ADPATCH DC XL104'0' 01092000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01093000 @01 EQU 01 01094000 @02 EQU 02 01095000 @03 EQU 03 01096000 @04 EQU 04 01097000 @05 EQU 05 01098000 @06 EQU 06 01099000 @07 EQU 07 01100000 @08 EQU 08 01101000 @09 EQU 09 01102000 @10 EQU 10 01103000 @11 EQU 11 01104000 @12 EQU 12 01105000 @13 EQU 13 01106000 @14 EQU 14 01107000 @15 EQU 15 01108000 ROPCE EQU @03 01109000 ROPCAVT EQU @02 01110000 IEDPRUQP EQU @06 01111000 RAVT EQU @04 01112000 RTRM EQU @08 01113000 RSIB EQU @05 01114000 REG00 EQU @00 01115000 RZERO EQU @00 01116000 REG01 EQU @01 01117000 RPARM EQU @01 01118000 REG09 EQU @09 01119000 REG10 EQU @10 01120000 RDATA EQU @10 01121000 REG11 EQU @11 01122000 RBASE EQU @12 01123000 RSAVE EQU @13 01124000 REG14 EQU @14 01125000 REG15 EQU @15 01126000 REG02 EQU @02 01127000 REG03 EQU @03 01128000 REG04 EQU @04 01129000 REG05 EQU @05 01130000 REG06 EQU @06 01131000 REG07 EQU @07 01132000 REG08 EQU @08 01133000 REG12 EQU @12 01134000 REG13 EQU @13 01135000 ROPRE EQU @03 01136000 IEDQAVTD EQU 0 01137000 AVTSAVEX EQU IEDQAVTD+288 01138000 AVTREADD EQU IEDQAVTD+380 01139000 AVTBUFSW EQU IEDQAVTD+384 01140000 @NM00004 EQU IEDQAVTD+388 01141000 AVTCKFLG EQU @NM00004 01142000 AVTBASE EQU IEDQAVTD+412 01143000 AVTPKF EQU AVTBASE 01144000 AVTRNMPT EQU IEDQAVTD+424 01145000 AVTNOLBF EQU IEDQAVTD+454 01146000 AVTOSECB EQU IEDQAVTD+492 01147000 AVTECB1 EQU AVTOSECB 01148000 AVTHG02 EQU IEDQAVTD+528 01149000 AVTDISP EQU IEDQAVTD+552 01150000 AVTHD EQU IEDQAVTD+556 01151000 AVTSCOPT EQU AVTHD 01152000 AVTSAVTP EQU IEDQAVTD+612 01153000 AVTSAVTF EQU AVTSAVTP 01154000 AVTCKPEL EQU IEDQAVTD+652 01155000 AVTCKRMV EQU AVTCKPEL 01156000 AVTCKELF EQU IEDQAVTD+680 01157000 AVTCKBYT EQU IEDQAVTD+691 01158000 AVTHG01 EQU IEDQAVTD+692 01159000 AVTCKLNK EQU IEDQAVTD+696 01160000 AVTCRELE EQU IEDQAVTD+708 01161000 AVTCCELE EQU AVTCRELE 01162000 AVTCLRHI EQU IEDQAVTD+716 01163000 AVTADBUF EQU IEDQAVTD+720 01164000 AVTSYSER EQU IEDQAVTD+728 01165000 AVTBFRFG EQU IEDQAVTD+784 01166000 AVTCKPQB EQU IEDQAVTD+804 01167000 AVTCKPTB EQU AVTCKPQB 01168000 AVTCKPEC EQU AVTCKPQB+4 01169000 AVTCKPCC EQU AVTCKPEC 01170000 AVTOPCQB EQU IEDQAVTD+816 01171000 AVTOPCOB EQU AVTOPCQB 01172000 AVTOPCEC EQU AVTOPCQB+4 01173000 AVTOPCCC EQU AVTOPCEC 01174000 AVTOLTQB EQU IEDQAVTD+828 01175000 AVTCWFL1 EQU IEDQAVTD+924 01176000 AVTCWFL2 EQU IEDQAVTD+925 01177000 AVTSUBT EQU IEDQAVTD+948 01178000 AVTIOTR EQU IEDQAVTD+949 01179000 AVTBIT1 EQU IEDQAVTD+1050 01180000 AVTBIT2 EQU IEDQAVTD+1051 01181000 AVTBIT3 EQU IEDQAVTD+1052 01182000 AVTBIT4 EQU IEDQAVTD+1136 01183000 @NM00086 EQU IEDQAVTD+1232 01184000 IEDQAPTR EQU 0 01185000 IEDNSVTD EQU 0 01186000 SAVTDIAG EQU IEDNSVTD 01187000 SAVTDIAF EQU SAVTDIAG 01188000 SAVTLUSQ EQU IEDNSVTD+88 01189000 SAVTTCPU EQU IEDNSVTD+238 01190000 SAVTSCPT EQU SAVTTCPU 01191000 SAVTZELM EQU IEDNSVTD+270 01192000 SAVTRDRV EQU IEDNSVTD+284 01193000 SAVTCKQB EQU IEDNSVTD+300 01194000 SAVTCKTB EQU SAVTCKQB 01195000 SAVTCKEC EQU SAVTCKQB+4 01196000 SAVTCKCC EQU SAVTCKEC 01197000 IEDNLGB EQU 0 01198000 LGBBUFOU EQU IEDNLGB+20 01199000 LGBPCI EQU IEDNLGB+25 01200000 LGBBYTE EQU IEDNLGB+29 01201000 LGBOFLGS EQU IEDNLGB+48 01202000 LGBRESER EQU IEDNLGB+56 01203000 IEDQOPCE EQU 0 01204000 OCLINK EQU IEDQOPCE 01205000 OCELEM EQU IEDQOPCE+4 01206000 OCELMPRI EQU OCELEM 01207000 OCELMPTR EQU OCELEM+1 01208000 OCUNIT EQU IEDQOPCE+8 01209000 OCRUDEST EQU OCUNIT 01210000 OCCKPKEY EQU OCRUDEST 01211000 OCSCAN EQU OCCKPKEY 01212000 OCOPTCDE EQU IEDQOPCE+12 01213000 OCPRIFLG EQU OCOPTCDE 01214000 OCSWITCH EQU IEDQOPCE+13 01215000 OCFLAG EQU IEDQOPCE+14 01216000 OCRESP EQU OCFLAG 01217000 @NM00126 EQU IEDQOPCE+16 01218000 OCDEST EQU @NM00126 01219000 OCREQVAL EQU OCDEST+1 01220000 OCTRMTBL EQU IEDQOPCE+20 01221000 OCLINENO EQU IEDQOPCE+22 01222000 OCTIOT EQU OCLINENO 01223000 OCTRUNIT EQU IEDQOPCE+24 01224000 OCRSID EQU OCTRUNIT 01225000 OCALSTAT EQU OCRSID 01226000 OCREDRVE EQU OCALSTAT 01227000 OCACTREQ EQU OCALSTAT 01228000 OCPARM EQU IEDQOPCE+28 01229000 OCWTG EQU IEDQOPCE+30 01230000 OCBACKUP EQU IEDQOPCE+32 01231000 OCBUFNED EQU OCBACKUP 01232000 OCBUFGOT EQU OCBACKUP+2 01233000 OCMODNME EQU IEDQOPCE+40 01234000 OCIPLWA EQU OCMODNME 01235000 OCPTRSAV EQU OCMODNME+4 01236000 OCCKDATA EQU IEDQOPCE+48 01237000 OCRSTGTM EQU OCCKDATA 01238000 IEDQOPCN EQU 0 01239000 OCLDNME EQU IEDQOPCN 01240000 OCLINTTE EQU OCLDNME 01241000 OCREQFLG EQU OCLINTTE+2 01242000 OCFLUSHZ EQU OCREQFLG 01243000 OCADNCP EQU OCREQFLG 01244000 OCIDLE EQU OCREQFLG 01245000 OCPREFLG EQU OCLINTTE+3 01246000 IEDQOPCD EQU 0 01247000 OPCAVTPT EQU IEDQOPCD+8 01248000 OPCCOPCE EQU IEDQOPCD+12 01249000 OPCTNTEA EQU IEDQOPCD+44 01250000 OPCSAVE EQU IEDQOPCD+56 01251000 OPCWORK EQU IEDQOPCD+140 01252000 OPCAQCTL EQU IEDQOPCD+180 01253000 OPCXCTL EQU IEDQOPCD+204 01254000 OPCLDNME EQU IEDQOPCD+212 01255000 OPCMODID EQU OPCLDNME+3 01256000 OPCHORT EQU IEDQOPCD+256 01257000 OPCHORTG EQU IEDQOPCD+260 01258000 OPCGETBF EQU IEDQOPCD+276 01259000 OPCFREBF EQU IEDQOPCD+280 01260000 OPCSPEC EQU IEDQOPCD+300 01261000 OPCADGOT EQU IEDQOPCD+318 01262000 OPCBUFWT EQU IEDQOPCD+348 01263000 OPCDECR EQU IEDQOPCD+352 01264000 OPCPWCOB EQU IEDQOPCD+368 01265000 OPCPWQCB EQU OPCPWCOB 01266000 OPCPWECB EQU OPCPWCOB+4 01267000 IEDOPRED EQU 0 01268000 OPRESAVE EQU IEDOPRED+8 01269000 OPREFLG3 EQU IEDOPRED+14 01270000 IEDPRUQD EQU 0 01271000 PRUTIC EQU IEDPRUQD+8 01272000 IEDPRUND EQU 0 01273000 PRURHTH EQU IEDPRUND 01274000 PRURH EQU PRURHTH 01275000 PRURHFG0 EQU PRURH 01276000 PRURHFG1 EQU PRURH+1 01277000 PRURHFG2 EQU PRURH+2 01278000 PRUTH EQU PRURHTH+3 01279000 PRUFIDN EQU PRUTH 01280000 IEDQRECB EQU 0 01281000 IEDREQD EQU 0 01282000 REQTYPE EQU IEDREQD 01283000 REQQCBA EQU IEDREQD+1 01284000 REQPRI EQU IEDREQD+4 01285000 REQRPRI EQU IEDREQD+8 01286000 REQRQCBA EQU IEDREQD+9 01287000 REQROUTE EQU IEDREQD+12 01288000 REQFLAG EQU REQROUTE 01289000 REQSWTCH EQU REQROUTE+1 01290000 REQRCDS EQU IEDREQD+14 01291000 REQDATA EQU IEDREQD+16 01292000 IEDSIBD EQU 0 01293000 SIBCHAIN EQU IEDSIBD+4 01294000 SIBINDEX EQU IEDSIBD+8 01295000 SIBSESSN EQU IEDSIBD+10 01296000 SIBPACIN EQU IEDSIBD+11 01297000 SIBSEQN EQU IEDSIBD+12 01298000 SIBSTAT1 EQU IEDSIBD+16 01299000 SIBSTAT2 EQU IEDSIBD+17 01300000 SIBDACLU EQU SIBSTAT2 01301000 SIBBIND EQU IEDSIBD+20 01302000 SIBBIND1 EQU SIBBIND 01303000 SIBBIND2 EQU SIBBIND+1 01304000 SIBBIND3 EQU SIBBIND+2 01305000 SIBSTAT0 EQU IEDSIBD+23 01306000 IEDQTNTD EQU 0 01307000 IEDQTCDE EQU IEDQTNTD 01308000 TNTENLEN EQU IEDQTNTD+40 01309000 IEDQTDCE EQU IEDQTNTD+46 01310000 IEDTNTA EQU 0 01311000 IEDQTRM EQU 0 01312000 TRMSTATE EQU IEDQTRM 01313000 TRMLOG EQU TRMSTATE 01314000 TRMINSEQ EQU IEDQTRM+4 01315000 TLISTCNT EQU TRMINSEQ 01316000 TRMOUTSQ EQU IEDQTRM+6 01317000 TLISTEN EQU TRMOUTSQ 01318000 TRMDSORG EQU TLISTEN 01319000 TRMALTD EQU IEDQTRM+8 01320000 TRMDEVFL EQU IEDQTRM+10 01321000 TRMSTAT EQU IEDQTRM+12 01322000 IEDQTPTR EQU 0 01323000 IEDNTRM EQU 0 01324000 TRMBYTE4 EQU IEDNTRM 01325000 TRMBYTE3 EQU IEDNTRM+1 01326000 TRMBYTE2 EQU IEDNTRM+2 01327000 TRMRSACT EQU TRMBYTE2 01328000 TRMREMB EQU TRMBYTE2 01329000 TRMINPG EQU TRMBYTE2 01330000 TRMBYTE1 EQU IEDNTRM+3 01331000 TRMSCPRQ EQU TRMBYTE1 01332000 TRMCOHRT EQU IEDNTRM+4 01333000 TRMBYTE0 EQU IEDNTRM+6 01334000 TRMSIBPT EQU IEDNTRM+7 01335000 TRMTYPE EQU IEDNTRM+11 01336000 TRMSUBST EQU IEDNTRM+12 01337000 NAME EQU 0 01338000 ALLOCBUF EQU 0 01339000 COHORTLK EQU 0 01340000 CHORTGLK EQU 0 01341000 IEDQTNT EQU 0 01342000 DECRCT EQU 0 01343000 FREEBUF EQU 0 01344000 TNTENTAD EQU 0 01345000 WORKSP EQU 0 01346000 GETNO EQU WORKSP 01347000 HIERSAV EQU WORKSP+4 01348000 ACTSAV EQU WORKSP+8 01349000 FLAGS EQU WORKSP+16 01350000 OUTFLAG EQU FLAGS 01351000 LOOPSW EQU FLAGS 01352000 DONEFLAG EQU FLAGS 01353000 TNTCODE EQU 0 01354000 TNTDCODE EQU 0 01355000 TNTFIRST EQU 0 01356000 IEDNLPTR EQU OCMODNME 01357000 OCCKPKY1 EQU OCCKPKEY 01358000 OCCKPTYP EQU OCCKPKY1 01359000 OCICACTN EQU OCMODNME 01360000 OCICDADR EQU OCICACTN 01361000 OCICSW EQU OCICDADR+3 01362000 OPCAQWD EQU OPCAQCTL 01363000 OPCAQWD1 EQU OPCAQWD 01364000 OPCAQREQ EQU OPCAQWD1 01365000 OPCAQFST EQU OPCAQWD1+1 01366000 OPCAQWD2 EQU OPCAQWD+4 01367000 OPCAQSEC EQU OPCAQWD2+1 01368000 OPCAQWD3 EQU OPCAQWD+8 01369000 REQLDATA EQU REQDATA 01370000 REQLTNT EQU REQLDATA 01371000 REQSDATA EQU REQDATA 01372000 IEDQNPTR EQU AVTRNMPT 01373000 TRMPRE1 EQU TRMBYTE4 01374000 TRMNCP1 EQU TRMBYTE4 01375000 TRMPRE EQU TRMBYTE3 01376000 TRMNCP EQU TRMBYTE3 01377000 TRMNCPCL EQU TRMNCP 01378000 TRMPU EQU TRMBYTE3 01379000 TRMLU EQU TRMBYTE3 01380000 TRMINERR EQU TRMLU 01381000 TRMLINK EQU TRMBYTE3 01382000 REDRVFLD EQU OCCKDATA 01383000 NXTTCIN EQU REDRVFLD 01384000 LVLTTCIN EQU REDRVFLD+2 01385000 RDVFLAGS EQU REDRVFLD+4 01386000 LVLSW EQU RDVFLAGS 01387000 REDRVSW EQU RDVFLAGS 01388000 ACTFLAG EQU RDVFLAGS 01389000 ORIGTTE EQU REDRVFLD+5 01390000 TICFLD EQU OCUNIT 01391000 TIC EQU TICFLD+3 01392000 OCCIB EQU OCREQVAL 01393000 TRMOPT EQU IEDQTRM+20 01394000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01395000 @NM00170 EQU TICFLD 01396000 @NM00169 EQU RDVFLAGS 01397000 @NM00168 EQU TRMLINK 01398000 TRMLSTAT EQU TRMLINK 01399000 TRMLINT EQU TRMLINK 01400000 TRMEPMOD EQU TRMLINK 01401000 TRMLULOG EQU TRMLU 01402000 TRMLUREQ EQU TRMLU 01403000 TRMSESRQ EQU TRMLU 01404000 TRMTDIFF EQU TRMLU 01405000 TRMLUTM EQU TRMLU 01406000 TRMLUIT EQU TRMLU 01407000 TRMAUTO EQU TRMLU 01408000 TRMPCONT EQU TRMPU 01409000 @NM00167 EQU TRMPU 01410000 TRMNCONT EQU TRMNCP 01411000 TRMQUCKN EQU TRMNCP 01412000 TRMSLOWN EQU TRMNCP 01413000 TRMSYGEN EQU TRMNCP 01414000 TRMIPLDM EQU TRMNCP 01415000 TRMINOUT EQU TRMPRE 01416000 TRMRDOUT EQU TRMPRE 01417000 TRMNLOUT EQU TRMPRE 01418000 TRMWROUT EQU TRMPRE 01419000 TRMASNXI EQU TRMPRE 01420000 TRMSTMM EQU TRMPRE 01421000 TRMCMODE EQU TRMPRE 01422000 TRMSTPND EQU TRMPRE 01423000 @NM00166 EQU TRMNCP1 01424000 TRMINOP EQU TRMNCP1 01425000 TRMLYNCH EQU TRMPRE1 01426000 TRMSPOUT EQU TRMPRE1 01427000 TRMERLCK EQU TRMPRE1 01428000 TRMQNPL EQU TRMPRE1 01429000 TRMSPACT EQU TRMPRE1 01430000 TRMOCNI EQU TRMPRE1 01431000 TRMSESSN EQU TRMPRE1 01432000 TRMCONT EQU TRMPRE1 01433000 REQSTNT EQU REQSDATA+4 01434000 REQSTTE EQU REQSDATA 01435000 OPCAQLST EQU OPCAQWD3+1 01436000 OPCAQRQ3 EQU OPCAQWD3 01437000 OPCAQRQ2 EQU OPCAQWD2 01438000 OCICINAC EQU OCICSW 01439000 @NM00132 EQU OCICSW 01440000 OCICATST EQU OCICDADR+1 01441000 OCICTYPE EQU OCICDADR 01442000 @NM00131 EQU OCCKPKY1 01443000 OCCKPENV EQU OCCKPKY1 01444000 OCCKPRST EQU OCCKPTYP 01445000 OCCKPNCP EQU OCCKPTYP 01446000 OCCKPINC EQU OCCKPTYP 01447000 LUTTE EQU WORKSP+12 01448000 TRMRLMCT EQU IEDNTRM+10 01449000 TRMCOHTG EQU TRMSIBPT+1 01450000 TRMGPCNT EQU TRMSIBPT 01451000 TRMBUFRD EQU TRMBYTE0 01452000 TRMSNA EQU TRMBYTE0 01453000 TRMGP EQU TRMBYTE0 01454000 TRMDIAL EQU TRMBYTE0 01455000 @NM00165 EQU TRMBYTE0 01456000 TRMOUTPT EQU TRMBYTE0 01457000 TRMINPUT EQU TRMBYTE0 01458000 TRMUDEF EQU TRMBYTE0 01459000 TRMSTOTE EQU TRMBYTE1 01460000 TRMCKPRN EQU TRMBYTE1 01461000 TRMTSATN EQU TRMBYTE1 01462000 TRMTRACE EQU TRMBYTE1 01463000 TRMSWBCK EQU TRMBYTE1 01464000 TRMAUTOC EQU TRMBYTE1 01465000 TRMINPTP EQU TRMBYTE1 01466000 TRMWTNEG EQU TRMSCPRQ 01467000 TRMWRBRK EQU TRMBYTE2 01468000 TRMNOSND EQU TRMBYTE2 01469000 TRMPREP EQU TRMBYTE2 01470000 TRMGPACT EQU TRMBYTE2 01471000 TRMANDL EQU TRMBYTE2 01472000 TRMCLOSN EQU TRMINPG 01473000 TRMOPTBL EQU IEDQTRM+18 01474000 TRMOPNO EQU IEDQTRM+17 01475000 TRMCHCIN EQU IEDQTRM+16 01476000 TRMSENSE EQU TRMSTAT+3 01477000 TRMTEMPR EQU TRMSTAT+2 01478000 TRMSIO EQU TRMSTAT 01479000 @NM00164 EQU TRMDEVFL+1 01480000 TRMTPIN EQU TRMDEVFL+1 01481000 TRMNCPI EQU TRMDEVFL+1 01482000 TRMRNTRM EQU TRMDEVFL+1 01483000 @NM00163 EQU TRMDEVFL+1 01484000 TRMLMD EQU TRMDEVFL+1 01485000 TRMCONC EQU TRMDEVFL+1 01486000 TRMTSOB EQU TRMDEVFL 01487000 TRMBFDY EQU TRMDEVFL 01488000 TRMTBLK EQU TRMDEVFL 01489000 TRMSBLK EQU TRMDEVFL 01490000 TRMBLKS EQU TRMDEVFL 01491000 TRMADDC EQU TRMDEVFL 01492000 TRMDDIG EQU TRMDEVFL 01493000 TRMBUFS EQU TRMDEVFL 01494000 TRMPRILK EQU TRMALTD 01495000 TRMLGB EQU TRMDSORG 01496000 TRMUTERM EQU TLISTCNT 01497000 TRMDESTQ EQU IEDQTRM+1 01498000 TRMSCNYN EQU TRMSTATE 01499000 TRMOPTFN EQU TRMSTATE 01500000 TRMHELDN EQU TRMSTATE 01501000 TRMACPTN EQU TRMSTATE 01502000 TRMPREF EQU TRMSTATE 01503000 TRMPROC EQU TRMLOG 01504000 TRMLIST EQU TRMLOG 01505000 TRMLINE EQU TRMSTATE 01506000 TNTTRMAD EQU IEDTNTA 01507000 TNTLEN EQU IEDQTNTD+44 01508000 TNTMIDEN EQU IEDQTNTD+41 01509000 TNTSRCHX EQU IEDQTNTD+38 01510000 SIBLUTYP EQU SIBSTAT0 01511000 SIBCD EQU SIBSTAT0 01512000 @NM00162 EQU SIBBIND3 01513000 SIBCRES EQU SIBBIND3 01514000 SIBSPKR EQU SIBBIND3 01515000 SIBRECOV EQU SIBBIND3 01516000 SIBFMODE EQU SIBBIND3 01517000 SIBALT EQU SIBBIND2 01518000 SIBBTERM EQU SIBBIND2 01519000 SIBBRACK EQU SIBBIND2 01520000 SIBFMUSE EQU SIBBIND2 01521000 SIBSEBI EQU SIBBIND2 01522000 SIBSCMP EQU SIBBIND2 01523000 SIBSEXC EQU SIBBIND2 01524000 SIBSDEF EQU SIBBIND2 01525000 SIBSRQM EQU SIBBIND1 01526000 SIBSCHNG EQU SIBBIND1 01527000 SIBPEBI EQU SIBBIND1 01528000 SIBPCMP EQU SIBBIND1 01529000 SIBPEXC EQU SIBBIND1 01530000 SIBPDEF EQU SIBBIND1 01531000 SIBPRQM EQU SIBBIND1 01532000 SIBPCHN EQU SIBBIND1 01533000 SIBFMPRO EQU IEDSIBD+19 01534000 SIBTSPRO EQU IEDSIBD+18 01535000 @NM00161 EQU SIBSTAT2 01536000 SIBRDSCN EQU SIBSTAT2 01537000 SIBTERM EQU SIBSTAT2 01538000 SIBUSS EQU SIBSTAT2 01539000 SIBBSTAT EQU SIBSTAT1 01540000 SIBRTRP EQU SIBSTAT1 01541000 SIBFTERM EQU SIBSTAT1 01542000 SIBRQEND EQU SIBSTAT1 01543000 SIBRQSHT EQU SIBSTAT1 01544000 SIBSEQO EQU SIBSEQN+2 01545000 SIBSEQI EQU SIBSEQN 01546000 SIBNCNT EQU SIBPACIN 01547000 SIBMCNT EQU SIBPACIN 01548000 SIBDSTAT EQU SIBSESSN 01549000 SIBSSTAT EQU SIBSESSN 01550000 SIBINBIU EQU SIBSESSN 01551000 SIBSHUTC EQU SIBSESSN 01552000 SIBLGOFF EQU SIBSESSN 01553000 SIBRUSEG EQU IEDSIBD 01554000 REQRCD2 EQU REQRCDS+1 01555000 REQRCD1 EQU REQRCDS 01556000 REQLINK EQU IEDREQD+5 01557000 RECBLINK EQU IEDQRECB+5 01558000 RECBPRI EQU IEDQRECB+4 01559000 RECBQCBA EQU IEDQRECB+1 01560000 RECBKEY EQU IEDQRECB 01561000 @NM00160 EQU IEDPRUND+4 01562000 PRUTHEFI EQU PRUFIDN 01563000 PRUTHUSS EQU PRUFIDN 01564000 PRUTHEIU EQU PRUFIDN 01565000 PRUTHBIU EQU PRUFIDN 01566000 PRUTHTYE EQU PRUFIDN 01567000 @NM00159 EQU PRURHFG2 01568000 PRURHCSI EQU PRURHFG2 01569000 @NM00158 EQU PRURHFG2 01570000 PRURHCDI EQU PRURHFG2 01571000 PRURHEB EQU PRURHFG2 01572000 PRURHBB EQU PRURHFG2 01573000 PRURHPI EQU PRURHFG1 01574000 @NM00157 EQU PRURHFG1 01575000 PRURHER EQU PRURHFG1 01576000 PRURHDR2 EQU PRURHFG1 01577000 @NM00156 EQU PRURHFG1 01578000 PRURHDR1 EQU PRURHFG1 01579000 PRURHEC EQU PRURHFG0 01580000 PRURHBC EQU PRURHFG0 01581000 PRURHSDI EQU PRURHFG0 01582000 PRURHFI EQU PRURHFG0 01583000 @NM00155 EQU PRURHFG0 01584000 PRURUCAT EQU PRURHFG0 01585000 PRURHTYP EQU PRURHFG0 01586000 PRUDATA EQU IEDPRUQD+12 01587000 PRUNUNIT EQU PRUTIC+1 01588000 @NM00154 EQU PRUTIC 01589000 @NM00153 EQU IEDPRUQD+4 01590000 PRUDATCT EQU IEDPRUQD+2 01591000 PRUTTCIN EQU IEDPRUQD 01592000 @NM00152 EQU OPREFLG3 01593000 OPREATCH EQU OPREFLG3 01594000 @NM00151 EQU OPREFLG3 01595000 OPREFLG2 EQU IEDOPRED+13 01596000 OPREFLG1 EQU IEDOPRED+12 01597000 OPRETIC EQU OPRESAVE 01598000 OPRELINK EQU IEDOPRED+5 01599000 OPREPRI EQU IEDOPRED+4 01600000 OPREQCB EQU IEDOPRED+1 01601000 OPREKEY EQU IEDOPRED 01602000 OPCBOTTM EQU IEDQOPCD+1188 01603000 OPCDSRWT EQU IEDQOPCD+1184 01604000 @NM00150 EQU IEDQOPCD+1100 01605000 @NM00149 EQU IEDQOPCD+948 01606000 @NM00148 EQU IEDQOPCD+940 01607000 @NM00147 EQU IEDQOPCD+380 01608000 @NM00146 EQU OPCPWCOB+9 01609000 @NM00145 EQU OPCPWCOB+8 01610000 @NM00144 EQU OPCPWECB+1 01611000 OPCPWCCC EQU OPCPWECB 01612000 OPCPWCHN EQU OPCPWQCB+1 01613000 OPCPWVTO EQU OPCPWQCB 01614000 OPCWAITV EQU IEDQOPCD+364 01615000 OPCTOTCK EQU IEDQOPCD+360 01616000 OPCAPXTL EQU IEDQOPCD+356 01617000 OPCWRKSP EQU IEDQOPCD+320 01618000 OPCRQCNT EQU IEDQOPCD+316 01619000 OPPOLSTP EQU IEDQOPCD+312 01620000 OPCCKCIB EQU IEDQOPCD+308 01621000 OPCEND EQU IEDQOPCD+307 01622000 OPCSTCBS EQU IEDQOPCD+306 01623000 OPCHNEND EQU IEDQOPCD+302 01624000 OPCOQSW EQU IEDQOPCD+301 01625000 @NM00143 EQU OPCSPEC 01626000 @NM00142 EQU OPCSPEC 01627000 @NM00141 EQU OPCSPEC 01628000 @NM00140 EQU OPCSPEC 01629000 OPCFRMCA EQU OPCSPEC 01630000 OPCRSTRT EQU OPCSPEC 01631000 OPCPART EQU OPCSPEC 01632000 OPCALTD EQU OPCSPEC 01633000 OPCBFEND EQU IEDQOPCD+296 01634000 OPCBFIRS EQU IEDQOPCD+292 01635000 OPCAVBUF EQU IEDQOPCD+290 01636000 OPCIPLCT EQU IEDQOPCD+289 01637000 OPCCLNTS EQU IEDQOPCD+288 01638000 OPCHA8 EQU IEDQOPCD+286 01639000 OPCBFREQ EQU IEDQOPCD+284 01640000 OPCNEXT EQU IEDQOPCD+272 01641000 OPCFMDFC EQU IEDQOPCD+268 01642000 OPCSCNC EQU IEDQOPCD+264 01643000 OPCCKPTL EQU IEDQOPCD+252 01644000 OPCCKPTF EQU IEDQOPCD+248 01645000 OPCWAITA EQU IEDQOPCD+244 01646000 OPCWAITR EQU IEDQOPCD+240 01647000 OPCWAITP EQU IEDQOPCD+236 01648000 OPCWAITO EQU IEDQOPCD+232 01649000 OPCWAITN EQU IEDQOPCD+228 01650000 OPCWAITL EQU IEDQOPCD+224 01651000 OPCWAITC EQU IEDQOPCD+220 01652000 @NM00139 EQU OPCLDNME+5 01653000 @NM00138 EQU OPCLDNME 01654000 OPCWAIT EQU IEDQOPCD+192 01655000 OPCCKERB EQU IEDQOPCD+164 01656000 OPCBFERB EQU IEDQOPCD+148 01657000 OPCFLAG2 EQU IEDQOPCD+147 01658000 OPCFLAG1 EQU IEDQOPCD+146 01659000 OPCWRKSZ EQU IEDQOPCD+144 01660000 OPCRSAVE EQU IEDQOPCD+132 01661000 OPCQCBAD EQU IEDQOPCD+128 01662000 OPCTRMWA EQU IEDQOPCD+52 01663000 OPCPSTWT EQU IEDQOPCD+48 01664000 OPCPGCK EQU IEDQOPCD+40 01665000 OPCLCB EQU IEDQOPCD+36 01666000 @NM00137 EQU IEDQOPCD+32 01667000 OPCIPLAD EQU IEDQOPCD+28 01668000 OPCTOFLK EQU IEDQOPCD+24 01669000 OPCOPTLK EQU IEDQOPCD+20 01670000 OPCDCBLK EQU IEDQOPCD+16 01671000 OPCDOUBL EQU IEDQOPCD 01672000 @NM00136 EQU OCLDNME+4 01673000 @NM00135 EQU OCPREFLG 01674000 OCTOTEP EQU OCPREFLG 01675000 OCREPOST EQU OCPREFLG 01676000 OCRSPSNT EQU OCPREFLG 01677000 OCBFREQ EQU OCPREFLG 01678000 OCFORCE EQU OCREQFLG 01679000 OCDCARD EQU OCREQFLG 01680000 OCPARTAL EQU OCREQFLG 01681000 @NM00134 EQU OCREQFLG 01682000 @NM00133 EQU OCREQFLG 01683000 OCRESPCT EQU OCLINTTE 01684000 OCCKPTWA EQU OCCKDATA+4 01685000 @NM00130 EQU OCRSTGTM+2 01686000 OCCKDAT2 EQU OCRSTGTM+1 01687000 OCCKDAT1 EQU OCRSTGTM 01688000 OCPUADR EQU OCIPLWA+2 01689000 OCWTGSAV EQU OCIPLWA 01690000 OCDVRDCT EQU OCBACKUP+6 01691000 OCNCP EQU OCBACKUP+4 01692000 OCRESNUM EQU OCPARM 01693000 OCSEQ EQU OCTRUNIT+2 01694000 @NM00129 EQU OCRSID+1 01695000 OCNONE EQU OCALSTAT 01696000 OCSOME EQU OCALSTAT 01697000 OCALLFLG EQU OCALSTAT 01698000 OCSEQIND EQU OCALSTAT 01699000 @NM00128 EQU OCALSTAT 01700000 OCRENTRD EQU OCALSTAT 01701000 OCWTGB EQU OCTIOT 01702000 @NM00127 EQU @NM00126+2 01703000 OCCONID EQU OCDEST 01704000 OCRLN EQU IEDQOPCE+15 01705000 OCATTACH EQU OCFLAG 01706000 OCSSCP EQU OCFLAG 01707000 OCOUTPUT EQU OCFLAG 01708000 OCLINE EQU OCFLAG 01709000 OCMPP EQU OCFLAG 01710000 OCTOTE EQU OCFLAG 01711000 OCCONSOL EQU OCFLAG 01712000 @NM00125 EQU OCSWITCH 01713000 OCQUCKN EQU OCSWITCH 01714000 @NM00124 EQU OCRUDEST+1 01715000 @NM00123 EQU OCSCAN 01716000 OCNOTUCB EQU OCSCAN 01717000 OCNONAME EQU OCSCAN 01718000 OCALLRLN EQU OCSCAN 01719000 OCDDNAME EQU OCSCAN 01720000 OCDDNRLN EQU OCSCAN 01721000 OCADDR EQU OCSCAN 01722000 LGBIVLST EQU IEDNLGB+60 01723000 LGBRESV4 EQU LGBRESER+3 01724000 LGBRESV3 EQU LGBRESER+2 01725000 LGBRESV2 EQU LGBRESER+1 01726000 LGBRESV1 EQU LGBRESER 01727000 LGBBUFSI EQU IEDNLGB+54 01728000 @NM00122 EQU IEDNLGB+53 01729000 LGBILCT EQU IEDNLGB+52 01730000 LGBSCTAD EQU IEDNLGB+49 01731000 @NM00121 EQU LGBOFLGS 01732000 LGBOPEN EQU LGBOFLGS 01733000 @NM00120 EQU LGBOFLGS 01734000 LGBNAME EQU IEDNLGB+40 01735000 @NM00119 EQU IEDNLGB+36 01736000 LGBTRANS EQU IEDNLGB+33 01737000 @NM00118 EQU IEDNLGB+32 01738000 @NM00117 EQU IEDNLGB+31 01739000 LGBOPACE EQU IEDNLGB+30 01740000 @NM00116 EQU LGBBYTE 01741000 LGBPACK EQU LGBBYTE 01742000 LGBBUFMA EQU IEDNLGB+28 01743000 LGBDSORG EQU IEDNLGB+26 01744000 @NM00115 EQU LGBPCI 01745000 @NM00114 EQU LGBPCI 01746000 LGBPCINO EQU LGBPCI 01747000 @NM00113 EQU LGBPCI 01748000 LGBPCIAO EQU LGBPCI 01749000 @NM00112 EQU LGBPCI 01750000 @NM00111 EQU LGBPCI 01751000 @NM00110 EQU LGBPCI 01752000 @NM00109 EQU IEDNLGB+24 01753000 LGBMHA EQU IEDNLGB+21 01754000 @NM00108 EQU LGBBUFOU 01755000 LGBPREF EQU LGBBUFOU 01756000 @NM00107 EQU LGBBUFOU 01757000 LGBSUBST EQU IEDNLGB+18 01758000 LGBTYPE EQU IEDNLGB+17 01759000 @NM00106 EQU IEDNLGB 01760000 SAVTLLCB EQU IEDNSVTD+316 01761000 SAVTBITN EQU IEDNSVTD+312 01762000 @NM00105 EQU SAVTCKQB+8 01763000 @NM00104 EQU SAVTCKEC+1 01764000 @NM00103 EQU SAVTCKCC 01765000 SAVTCKPO EQU SAVTCKCC 01766000 SAVTCKWA EQU SAVTCKCC 01767000 SAVTCKCH EQU SAVTCKTB+1 01768000 SAVTCKVT EQU SAVTCKTB 01769000 @NM00102 EQU IEDNSVTD+297 01770000 SAVTRDFG EQU SAVTRDRV+12 01771000 @NM00101 EQU SAVTRDRV+5 01772000 SAVTRDPY EQU SAVTRDRV+4 01773000 SAVTRDQB EQU SAVTRDRV+1 01774000 SAVTRDKY EQU SAVTRDRV 01775000 SAVTNID EQU IEDNSVTD+280 01776000 SAVTDVAS EQU IEDNSVTD+276 01777000 SAVTPLSZ EQU IEDNSVTD+274 01778000 @NM00100 EQU IEDNSVTD+273 01779000 SAVTSUBL EQU IEDNSVTD+272 01780000 @NM00099 EQU SAVTZELM+1 01781000 SAVTSUBM EQU SAVTZELM 01782000 SAVTMHDX EQU IEDNSVTD+268 01783000 SAVTNAT1 EQU IEDNSVTD+266 01784000 SAVTSH20 EQU IEDNSVTD+264 01785000 SAVTLCBS EQU IEDNSVTD+260 01786000 SAVTRNMP EQU IEDNSVTD+256 01787000 SAVTTNTX EQU IEDNSVTD+252 01788000 SAVTNAX EQU IEDNSVTD+248 01789000 SAVTSUBV EQU IEDNSVTD+247 01790000 SAVTSUBA EQU IEDNSVTD+246 01791000 SAVTSIBC EQU IEDNSVTD+244 01792000 SAVTBSM EQU IEDNSVTD+240 01793000 SAVTRQTG EQU IEDNSVTD+236 01794000 SAVTRQCH EQU IEDNSVTD+232 01795000 SAVTMAND EQU IEDNSVTD+228 01796000 SAVTSPLN EQU IEDNSVTD+224 01797000 SAVTNADL EQU IEDNSVTD+222 01798000 SAVTNATL EQU IEDNSVTD+220 01799000 SAVTMHTB EQU IEDNSVTD+216 01800000 SAVTSSMH EQU IEDNSVTD+212 01801000 SAVTQRS EQU IEDNSVTD+208 01802000 SAVTRQIN EQU IEDNSVTD+204 01803000 SAVTDFCO EQU IEDNSVTD+200 01804000 SAVTSAO EQU IEDNSVTD+196 01805000 SAVTSARI EQU IEDNSVTD+192 01806000 SAVTSAC EQU IEDNSVTD+188 01807000 SAVTSAI EQU IEDNSVTD+184 01808000 SAVTCSCI EQU IEDNSVTD+180 01809000 SAVTSSRP EQU IEDNSVTD+176 01810000 SAVTSSRQ EQU IEDNSVTD+172 01811000 SAVTSCLU EQU IEDNSVTD+168 01812000 SAVTXTRQ EQU IEDNSVTD+164 01813000 SAVTMVBF EQU IEDNSVTD+160 01814000 @NM00098 EQU IEDNSVTD+148 01815000 SAVTIPCQ EQU IEDNSVTD+144 01816000 @NM00097 EQU IEDNSVTD+136 01817000 SAVTXFMI EQU IEDNSVTD+132 01818000 @NM00096 EQU IEDNSVTD+124 01819000 SAVTXFMO EQU IEDNSVTD+120 01820000 @NM00095 EQU IEDNSVTD+116 01821000 SAVTSSSR EQU IEDNSVTD+112 01822000 SAVTSCPQ EQU IEDNSVTD+108 01823000 SAVTSLCB EQU IEDNSVTD+104 01824000 SAVTLUSR EQU IEDNSVTD+100 01825000 @NM00094 EQU SAVTLUSQ+8 01826000 SAVTLUSP EQU SAVTLUSQ+4 01827000 SAVTLUSB EQU SAVTLUSQ 01828000 @NM00093 EQU IEDNSVTD+84 01829000 SAVTSAT EQU IEDNSVTD+80 01830000 SAVTNAT EQU IEDNSVTD+76 01831000 SAVTCLUP EQU IEDNSVTD+72 01832000 SAVTPIUT EQU IEDNSVTD+68 01833000 SAVTRNTA EQU IEDNSVTD+64 01834000 SAVTDNIR EQU IEDNSVTD+60 01835000 SAVTCNIR EQU IEDNSVTD+56 01836000 SAVTFLDH EQU IEDNSVTD+52 01837000 SAVTSRTN EQU IEDNSVTD+48 01838000 SAVTSREQ EQU IEDNSVTD+44 01839000 SAVTFAIL EQU IEDNSVTD+42 01840000 SAVTSUSE EQU IEDNSVTD+40 01841000 SAVTSIB EQU IEDNSVTD+36 01842000 SAVTPRTN EQU IEDNSVTD+32 01843000 @NM00092 EQU IEDNSVTD+28 01844000 SAVTWH20 EQU IEDNSVTD+26 01845000 SAVTPWT EQU IEDNSVTD+24 01846000 SAVTPRTQ EQU IEDNSVTD+20 01847000 SAVTPREQ EQU IEDNSVTD+16 01848000 SAVTPH20 EQU IEDNSVTD+14 01849000 SAVTPUSE EQU IEDNSVTD+12 01850000 SAVTPLCB EQU IEDNSVTD+8 01851000 SAVTPOOL EQU IEDNSVTD+4 01852000 SAVTPRMT EQU SAVTDIAF 01853000 SAVTVIRT EQU SAVTDIAF 01854000 AVTCPBNO EQU IEDQAVTD+1244 01855000 AVTHRESS EQU IEDQAVTD+1243 01856000 @NM00091 EQU IEDQAVTD+1242 01857000 @NM00090 EQU IEDQAVTD+1241 01858000 @NM00089 EQU IEDQAVTD+1240 01859000 @NM00088 EQU IEDQAVTD+1237 01860000 @NM00087 EQU IEDQAVTD+1236 01861000 AVTHRESE EQU @NM00086 01862000 AVTRADDR EQU IEDQAVTD+1228 01863000 AVTNADDR EQU IEDQAVTD+1224 01864000 AVTHRESN EQU IEDQAVTD+1220 01865000 AVTVOLRN EQU IEDQAVTD+1216 01866000 AVTTOTNN EQU IEDQAVTD+1212 01867000 AVTTRCYN EQU IEDQAVTD+1208 01868000 AVTRCTRN EQU IEDQAVTD+1204 01869000 AVTNOVON EQU IEDQAVTD+1200 01870000 AVTADEBN EQU IEDQAVTD+1196 01871000 AVTVOLRR EQU IEDQAVTD+1192 01872000 AVTTOTNR EQU IEDQAVTD+1188 01873000 AVTTRCYR EQU IEDQAVTD+1184 01874000 AVTRCTRR EQU IEDQAVTD+1180 01875000 AVTNOVOR EQU IEDQAVTD+1176 01876000 AVTADEBR EQU IEDQAVTD+1172 01877000 AVTLODPT EQU IEDQAVTD+1168 01878000 AVTIOBN EQU IEDQAVTD+1164 01879000 AVTIOBR EQU IEDQAVTD+1160 01880000 AVTCPBPT EQU IEDQAVTD+1156 01881000 AVTFCPB EQU IEDQAVTD+1152 01882000 @NM00085 EQU IEDQAVTD+1148 01883000 AVTINCPQ EQU IEDQAVTD+1144 01884000 @NM00084 EQU IEDQAVTD+1140 01885000 @NM00083 EQU IEDQAVTD+1137 01886000 @NM00082 EQU AVTBIT4 01887000 @NM00081 EQU AVTBIT4 01888000 @NM00080 EQU AVTBIT4 01889000 @NM00079 EQU AVTBIT4 01890000 @NM00078 EQU AVTBIT4 01891000 @NM00077 EQU AVTBIT4 01892000 @NM00076 EQU AVTBIT4 01893000 AVTRUFTN EQU AVTBIT4 01894000 @NM00075 EQU IEDQAVTD+1132 01895000 AVTNOBFQ EQU IEDQAVTD+1128 01896000 @NM00074 EQU IEDQAVTD+1124 01897000 AVTDKENQ EQU IEDQAVTD+1120 01898000 @NM00073 EQU IEDQAVTD+1116 01899000 AVTDKAPQ EQU IEDQAVTD+1112 01900000 AVTCOPY EQU IEDQAVTD+1108 01901000 AVTIA EQU IEDQAVTD+1104 01902000 AVTFL EQU IEDQAVTD+1100 01903000 @NM00072 EQU IEDQAVTD+1096 01904000 AVTNCPBQ EQU IEDQAVTD+1092 01905000 AVTTOTNC EQU IEDQAVTD+1088 01906000 AVTCMAX EQU IEDQAVTD+1084 01907000 AVTCMIN EQU IEDQAVTD+1080 01908000 AVTHM02 EQU IEDQAVTD+1076 01909000 AVTOPCIN EQU IEDQAVTD+1074 01910000 AVTDCTLN EQU IEDQAVTD+1072 01911000 AVTOPMSK EQU IEDQAVTD+1068 01912000 AVTDDFT EQU IEDQAVTD+1064 01913000 AVTSTEAL EQU IEDQAVTD+1060 01914000 AVTOPTN EQU IEDQAVTD+1056 01915000 AVTDSKCT EQU IEDQAVTD+1054 01916000 AVTCKRST EQU IEDQAVTD+1053 01917000 AVTSTAN EQU AVTBIT3 01918000 AVTSTACN EQU AVTBIT3 01919000 AVTSTAIN EQU AVTBIT3 01920000 AVTSTAYN EQU AVTBIT3 01921000 AVTOLTBN EQU AVTBIT3 01922000 AVTTSAB EQU AVTBIT3 01923000 AVTRFULN EQU AVTBIT3 01924000 AVTRECVN EQU AVTBIT3 01925000 @NM00071 EQU AVTBIT2 01926000 @NM00070 EQU AVTBIT2 01927000 AVTOPEIN EQU AVTBIT2 01928000 AVTSTRTN EQU AVTBIT2 01929000 AVTTOPOL EQU AVTBIT2 01930000 AVTCOPYN EQU AVTBIT2 01931000 AVTREUSN EQU AVTBIT2 01932000 AVTEXTSC EQU AVTBIT2 01933000 AVTDISKN EQU AVTBIT1 01934000 AVTQUCKN EQU AVTBIT1 01935000 AVTCLOSN EQU AVTBIT1 01936000 AVTREADN EQU AVTBIT1 01937000 AVTDLAYN EQU AVTBIT1 01938000 AVTAQTAN EQU AVTBIT1 01939000 AVTTSON EQU AVTBIT1 01940000 AVTAPLKN EQU AVTBIT1 01941000 AVTDUMBR EQU IEDQAVTD+1048 01942000 AVTDLQX EQU IEDQAVTD+1046 01943000 AVTINTLV EQU IEDQAVTD+1044 01944000 AVTSMCNT EQU IEDQAVTD+1042 01945000 AVTAVFCT EQU IEDQAVTD+1040 01946000 AVTOPCON EQU IEDQAVTD+1038 01947000 AVTOPCNT EQU IEDQAVTD+1036 01948000 AVTLNCNT EQU IEDQAVTD+1034 01949000 AVTKEYLE EQU IEDQAVTD+1032 01950000 AVTHA16 EQU IEDQAVTD+1030 01951000 AVTHA7 EQU IEDQAVTD+1028 01952000 AVTHA4 EQU IEDQAVTD+1026 01953000 AVTHA3 EQU IEDQAVTD+1024 01954000 AVTHA2 EQU IEDQAVTD+1022 01955000 AVTGETMS EQU IEDQAVTD+1021 01956000 @NM00069 EQU IEDQAVTD+1020 01957000 AVTGETMD EQU IEDQAVTD+1016 01958000 AVTGETMN EQU IEDQAVTD+1012 01959000 AVTCWTOT EQU IEDQAVTD+1008 01960000 AVTCWINT EQU IEDQAVTD+956 01961000 AVTDTRAP EQU IEDQAVTD+952 01962000 @NM00068 EQU IEDQAVTD+950 01963000 @NM00067 EQU AVTIOTR 01964000 AVTIOTRH EQU AVTIOTR 01965000 AVTIOTRE EQU AVTIOTR 01966000 @NM00066 EQU AVTSUBT 01967000 AVTSUBPT EQU AVTSUBT 01968000 AVTSUBON EQU AVTSUBT 01969000 AVTAFE30 EQU IEDQAVTD+944 01970000 AVTAFE20 EQU IEDQAVTD+940 01971000 AVTAFE10 EQU IEDQAVTD+936 01972000 AVTCWEC2 EQU IEDQAVTD+932 01973000 AVTCWPM2 EQU IEDQAVTD+928 01974000 AVTCWTS2 EQU IEDQAVTD+927 01975000 AVTCWTS1 EQU IEDQAVTD+926 01976000 AVTCWCLD EQU AVTCWFL2 01977000 AVTCWRAP EQU AVTCWFL2 01978000 @NM00065 EQU AVTCWFL2 01979000 @NM00064 EQU AVTCWFL2 01980000 @NM00063 EQU AVTCWFL2 01981000 @NM00062 EQU AVTCWFL2 01982000 @NM00061 EQU AVTCWFL2 01983000 AVTCWACT EQU AVTCWFL2 01984000 @NM00060 EQU AVTCWFL1 01985000 @NM00059 EQU AVTCWFL1 01986000 @NM00058 EQU AVTCWFL1 01987000 @NM00057 EQU AVTCWFL1 01988000 @NM00056 EQU AVTCWFL1 01989000 @NM00055 EQU AVTCWFL1 01990000 @NM00054 EQU AVTCWFL1 01991000 AVTCOMWN EQU AVTCWFL1 01992000 AVTCWEC1 EQU IEDQAVTD+920 01993000 AVTCWPM1 EQU IEDQAVTD+916 01994000 AVTCAREA EQU IEDQAVTD+912 01995000 AVTFZERO EQU IEDQAVTD+908 01996000 AVTCADDR EQU IEDQAVTD+904 01997000 AVTCOREC EQU IEDQAVTD+900 01998000 @NM00053 EQU IEDQAVTD+892 01999000 AVTCPBCB EQU IEDQAVTD+888 02000000 @NM00052 EQU IEDQAVTD+880 02001000 AVTDSIOB EQU IEDQAVTD+876 02002000 @NM00051 EQU IEDQAVTD+868 02003000 AVTCPRMB EQU IEDQAVTD+864 02004000 @NM00050 EQU IEDQAVTD+856 02005000 AVTCLOSB EQU IEDQAVTD+852 02006000 @NM00049 EQU IEDQAVTD+844 02007000 AVTACTIB EQU IEDQAVTD+840 02008000 @NM00048 EQU IEDQAVTD+836 02009000 AVTOLTEB EQU IEDQAVTD+832 02010000 AVTOLTCH EQU AVTOLTQB+1 02011000 AVTOLTVT EQU AVTOLTQB 02012000 @NM00047 EQU AVTOPCQB+8 02013000 @NM00046 EQU AVTOPCEC+1 02014000 @NM00045 EQU AVTOPCCC 02015000 AVTOPCPO EQU AVTOPCCC 02016000 AVTOPCWA EQU AVTOPCCC 02017000 AVTOPCCH EQU AVTOPCOB+1 02018000 AVTOPCVT EQU AVTOPCOB 02019000 @NM00044 EQU AVTCKPQB+9 02020000 AVTCKPTS EQU AVTCKPQB+8 02021000 @NM00043 EQU AVTCKPEC+1 02022000 @NM00042 EQU AVTCKPCC 02023000 AVTCKPPO EQU AVTCKPCC 02024000 AVTCKPWA EQU AVTCKPCC 02025000 AVTCKPCH EQU AVTCKPTB+1 02026000 AVTCKPVT EQU AVTCKPTB 02027000 @NM00041 EQU IEDQAVTD+796 02028000 AVTBFRTB EQU IEDQAVTD+792 02029000 @NM00040 EQU IEDQAVTD+788 02030000 AVTSELCH EQU IEDQAVTD+785 02031000 AVTBFRTN EQU AVTBFRFG 02032000 AVTBFREB EQU IEDQAVTD+780 02033000 AVTTIMQ EQU IEDQAVTD+776 02034000 @NM00039 EQU IEDQAVTD+772 02035000 AVTIMQPS EQU IEDQAVTD+768 02036000 AVTINOUT EQU IEDQAVTD+766 02037000 AVTREFTM EQU IEDQAVTD+764 02038000 @NM00038 EQU IEDQAVTD+752 02039000 AVTDELYB EQU IEDQAVTD+748 02040000 AVTOCQPT EQU IEDQAVTD+744 02041000 AVTTSOPT EQU IEDQAVTD+740 02042000 AVTSUPPT EQU IEDQAVTD+736 02043000 AVTCBQCB EQU IEDQAVTD+732 02044000 AVTMSGS EQU IEDQAVTD+729 02045000 @NM00037 EQU AVTSYSER 02046000 @NM00036 EQU AVTSYSER 02047000 @NM00035 EQU AVTSYSER 02048000 @NM00034 EQU AVTSYSER 02049000 @NM00033 EQU AVTSYSER 02050000 @NM00032 EQU AVTSYSER 02051000 AVTCMAXN EQU AVTSYSER 02052000 AVTCMINN EQU AVTSYSER 02053000 AVT2260L EQU IEDQAVTD+724 02054000 AVTABEPL EQU AVTADBUF 02055000 AVTHFF EQU AVTCLRHI+2 02056000 @NM00031 EQU AVTCLRHI 02057000 AVTCCLNK EQU AVTCRELE+5 02058000 AVTCCPRI EQU AVTCRELE+4 02059000 AVTCCQCB EQU AVTCCELE+1 02060000 AVTCCKEY EQU AVTCCELE 02061000 AVTDELAD EQU IEDQAVTD+704 02062000 AVTDELEM EQU IEDQAVTD+700 02063000 AVTBSX EQU AVTCKLNK 02064000 AVTOPETR EQU AVTHG01 02065000 @NM00030 EQU AVTCKBYT 02066000 AVTCKONQ EQU AVTCKBYT 02067000 @NM00029 EQU AVTCKBYT 02068000 @NM00028 EQU AVTCKBYT 02069000 @NM00027 EQU AVTCKBYT 02070000 @NM00026 EQU AVTCKBYT 02071000 @NM00025 EQU AVTCKBYT 02072000 @NM00024 EQU AVTCKBYT 02073000 AVTOPERT EQU IEDQAVTD+690 02074000 AVTOPXCL EQU IEDQAVTD+688 02075000 AVTOPERL EQU IEDQAVTD+687 02076000 @NM00023 EQU IEDQAVTD+686 02077000 AVTCKTIM EQU IEDQAVTD+684 02078000 AVTCKELV EQU IEDQAVTD+682 02079000 AVTCPRCD EQU IEDQAVTD+681 02080000 AVTWARMN EQU AVTCKELF 02081000 AVTCRTLN EQU AVTCKELF 02082000 AVTCPIPN EQU AVTCKELF 02083000 AVTCCLCN EQU AVTCKELF 02084000 AVTCINCN EQU AVTCKELF 02085000 @NM00022 EQU AVTCKELF 02086000 AVTCMCPN EQU AVTCKELF 02087000 AVTNQBCK EQU AVTCKELF 02088000 AVTCKQAD EQU IEDQAVTD+677 02089000 AVTSCBSZ EQU IEDQAVTD+676 02090000 @NM00021 EQU IEDQAVTD+672 02091000 AVTCKELE EQU IEDQAVTD+668 02092000 @NM00020 EQU AVTCKPEL+8 02093000 AVTCKRLK EQU AVTCKPEL+5 02094000 AVTCKRPR EQU AVTCKPEL+4 02095000 AVTCKRMQ EQU AVTCKRMV+1 02096000 AVTCKRKY EQU AVTCKRMV 02097000 AVTHK EQU IEDQAVTD+648 02098000 AVTHI EQU IEDQAVTD+644 02099000 AVTIOT EQU IEDQAVTD+640 02100000 AVTNX EQU IEDQAVTD+636 02101000 AVTTONE EQU IEDQAVTD+632 02102000 AVTA3TL EQU IEDQAVTD+628 02103000 AVTDMECB EQU IEDQAVTD+624 02104000 AVTABEND EQU IEDQAVTD+618 02105000 AVTPLCBN EQU IEDQAVTD+616 02106000 @NM00019 EQU AVTSAVTP+1 02107000 @NM00018 EQU AVTSAVTF 02108000 AVTSNA EQU AVTSAVTF 02109000 AVTONSNA EQU AVTSAVTF 02110000 AVTVTMCP EQU AVTSAVTF 02111000 @NM00017 EQU IEDQAVTD+608 02112000 AVTCMBSS EQU IEDQAVTD+604 02113000 AVTRCV EQU IEDQAVTD+600 02114000 AVTSEND EQU IEDQAVTD+596 02115000 AVTCSCH EQU IEDQAVTD+592 02116000 AVTQ1 EQU IEDQAVTD+588 02117000 AVTE7 EQU IEDQAVTD+584 02118000 AVTHB EQU IEDQAVTD+580 02119000 AVTR1 EQU IEDQAVTD+576 02120000 AVTBZ EQU IEDQAVTD+572 02121000 AVTEZ EQU IEDQAVTD+568 02122000 AVTEC EQU IEDQAVTD+564 02123000 AVTEW EQU IEDQAVTD+560 02124000 AVTNDIAL EQU AVTSCOPT 02125000 AVTN2741 EQU AVTSCOPT 02126000 AVTCONCO EQU AVTSCOPT 02127000 AVTCONC EQU AVTSCOPT 02128000 AVTCMBUF EQU AVTSCOPT 02129000 AVTAPDMP EQU AVTSCOPT 02130000 @NM00016 EQU AVTSCOPT 02131000 AVTHA EQU AVTDISP 02132000 AVTEA EQU IEDQAVTD+548 02133000 AVTAX EQU IEDQAVTD+544 02134000 AVTA3 EQU IEDQAVTD+540 02135000 AVTGD EQU IEDQAVTD+536 02136000 AVTAL EQU IEDQAVTD+532 02137000 AVTOLTST EQU AVTHG02 02138000 AVTE8 EQU IEDQAVTD+524 02139000 AVTUI EQU IEDQAVTD+520 02140000 AVTCOMPT EQU IEDQAVTD+516 02141000 AVTCRSRF EQU IEDQAVTD+512 02142000 @NM00015 EQU IEDQAVTD+508 02143000 AVTKA02 EQU IEDQAVTD+504 02144000 AVTOPTPT EQU IEDQAVTD+500 02145000 AVTPCBPT EQU IEDQAVTD+496 02146000 @NM00014 EQU AVTECB1 02147000 AVTCOMP EQU AVTECB1 02148000 @NM00013 EQU AVTECB1 02149000 AVTOPECA EQU IEDQAVTD+488 02150000 AVTOLECA EQU IEDQAVTD+484 02151000 AVTCKECA EQU IEDQAVTD+480 02152000 AVTCWECA EQU IEDQAVTD+476 02153000 AVTCWTCB EQU IEDQAVTD+472 02154000 AVTOLTCB EQU IEDQAVTD+468 02155000 AVTOCTCB EQU IEDQAVTD+464 02156000 AVTCKTCB EQU IEDQAVTD+460 02157000 AVTAS EQU IEDQAVTD+456 02158000 AVTNCKPR EQU IEDQAVTD+453 02159000 AVTCIB EQU IEDQAVTD+452 02160000 AVTSPLPT EQU IEDQAVTD+448 02161000 AVTMVBFR EQU IEDQAVTD+444 02162000 AVTSBTA EQU IEDQAVTD+440 02163000 AVTRARTN EQU IEDQAVTD+436 02164000 AVTBSCAN EQU IEDQAVTD+432 02165000 AVTRDYA EQU IEDQAVTD+428 02166000 AVTDISTR EQU IEDQAVTD+420 02167000 AVTPARM3 EQU IEDQAVTD+416 02168000 @NM00012 EQU AVTPKF 02169000 @NM00011 EQU AVTPKF 02170000 @NM00010 EQU AVTPKF 02171000 AVTFTCHF EQU AVTPKF 02172000 @NM00009 EQU AVTPKF 02173000 @NM00008 EQU AVTPKF 02174000 @NM00007 EQU AVTPKF 02175000 @NM00006 EQU AVTPKF 02176000 AVTPARM EQU IEDQAVTD+408 02177000 AVTEXS2A EQU IEDQAVTD+402 02178000 AVTEXA2S EQU IEDQAVTD+396 02179000 AVTOCGET EQU IEDQAVTD+392 02180000 AVTCKAVT EQU @NM00004+1 02181000 @NM00005 EQU AVTCKFLG 02182000 AVTCKHLT EQU AVTCKFLG 02183000 AVTCKREQ EQU AVTCKFLG 02184000 AVTCKENV EQU AVTCKFLG 02185000 AVTCKNAC EQU AVTCKFLG 02186000 AVTCKTAC EQU AVTCKFLG 02187000 AVTBUENT EQU IEDQAVTD+386 02188000 @NM00003 EQU IEDQAVTD+385 02189000 AVTFULLT EQU AVTBUFSW 02190000 AVTUNCON EQU AVTBUFSW 02191000 @NM00002 EQU AVTBUFSW 02192000 AVTBUFTR EQU AVTREADD 02193000 AVTREADY EQU IEDQAVTD+376 02194000 AVTRACE EQU IEDQAVTD+372 02195000 AVTTCB EQU IEDQAVTD+368 02196000 AVTPASWD EQU IEDQAVTD+360 02197000 AVTCTLCH EQU IEDQAVTD+352 02198000 AVTDOUBL EQU IEDQAVTD+344 02199000 AVTDOUBX EQU IEDQAVTD+336 02200000 AVTDPARM EQU IEDQAVTD+332 02201000 AVTCSTCS EQU IEDQAVTD+328 02202000 AVTDLQ EQU AVTSAVEX+32 02203000 @NM00001 EQU AVTSAVEX 02204000 AVTSAVE4 EQU IEDQAVTD+216 02205000 AVTSAVE3 EQU IEDQAVTD+144 02206000 AVTSAVE2 EQU IEDQAVTD+72 02207000 AVTSAVE1 EQU IEDQAVTD 02208000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02209000 @RC00505 EQU @RC00500 02210000 @RC00532 EQU @RC00531 02211000 @RC00588 EQU @RC00584 02212000 @RC00511 EQU @RC00505 02213000 @RC00589 EQU @RC00588 02214000 @ENDDATA EQU * 02215000 END IGCFP10D,(C'PLS1831',0701,78059) 02216000