TITLE 'IGCFI10D - RVT AND HIERARCHY BUILD *00001000 ' 00002000 IGCFI10D CSECT , 01S0001 00003000 @PROLOG BALR @12,0 01S0001 00004000 @PSTART DS 0H 01S0001 00005000 USING @PSTART,@12 01S0001 00006000 * /* 00007000 IGCFI10D IEDHJN AFTERHJN,HJN 00008000 * ADDRESSABILITY TO NAT ENTRY */ 00009000 * ROPCAVT=RPARM; /* SET POINTER TO OP. CTL. AVT */ 00010000 LR ROPCAVT,RPARM 01S0383 00011000 * RAVT=OPCAVTPT; /* SET POINTER TO TCAM AVT */ 00012000 L RAVT,OPCAVTPT(,ROPCAVT) 01S0384 00013000 * ROPCE=OPCCOPCE; /* SET POINTER TO CURRENT OPCE */ 00014000 L ROPCE,OPCCOPCE(,ROPCAVT) 01S0385 00015000 * RSAVE=ADDR(OPCSAVE); /* SET POINTER TO SAVE AREA */ 00016000 LA RSAVE,OPCSAVE(,ROPCAVT) 01S0386 00017000 * RDATA=OPCWORK; /* SET POINTER TO OP.CTL. WORK 00018000 * AREA */ 00019000 L RDATA,OPCWORK(,ROPCAVT) 01S0387 00020000 * FLAGS1='00'X; /* CLEAR FLAG BYTE 1 */ 00021000 MVI FLAGS1(RDATA),X'00' 01S0388 00022000 * OCADNCP=ON; /* FLAG AS F ACT,NCP */ 00023000 LR @14,ROPCE 01S0389 00024000 AL @14,@CF02814 01S0389 00025000 OI OCADNCP-2(@14),B'00010000' 01S0389 00026000 * OPCADGOT=OPCADGOT+1; /* INCREMENT OPCADGOT */ 00027000 LA @14,1 01S0390 00028000 SLR @11,@11 01S0390 00029000 ICM @11,3,OPCADGOT(ROPCAVT) 01S0390 00030000 ALR @14,@11 01S0390 00031000 STH @14,OPCADGOT(,ROPCAVT) 01S0390 00032000 * 02S0391 00033000 * /*****************************************************************/ 00034000 * /* */ 00035000 * /* THIS SEGMENT CREATES AN ENTRY IN THE SUBAREA TABLE FOR THE */ 00036000 * /* CURRENT NCP AND CREATES ENTRIES IN THE NETWORK ADDRESS TABLE */ 00037000 * /* FOR THE NCP AND EACH OF ITS RESOURCES. */ 00038000 * /* */ 00039000 * /*****************************************************************/ 00040000 * 02S0391 00041000 * RFY 02S0391 00042000 * IEDSATD BASED(RWORK); /* SUBAREA TABLE ENTRY */ 00043000 * RFY 02S0392 00044000 * RWORK RSTD; 02S0392 00045000 * RTRM=NCPTTEA; /* SET POINTER TO NCP TTE */ 00046000 L RTRM,NCPTTEA(,RDATA) 02S0393 00047000 * DCBPTR=QCBDCBAD; /* SET POINTER TO DCB */ 00048000 ICM @14,7,TRMDESTQ(RTRM) 02S0394 00049000 SLR @11,@11 02S0394 00050000 ICM @11,7,QCBDCBAD(@14) 02S0394 00051000 ST @11,DCBPTR(,RDATA) 02S0394 00052000 * RWORK=RSCPTR->RRTRSID; /* LOAD NETWORK ADDR. OF FIRST 00053000 * RESOURCE IN RRT TO OBTAIN 00054000 * SUBAREA*/ 00055000 L @14,RSCPTR(,RDATA) 02S0395 00056000 SLR RWORK,RWORK 02S0395 00057000 ICM RWORK,3,RRTRSID(@14) 02S0395 00058000 * ISOSUBA=(8*LENGTH(RRTRSID))-SAVTSUBL;/* OBTAIN NO. OF BITS TO 00059000 * SHIFT TO ISOLATE SUBAREA */ 00060000 L @09,AVTSAVTP(,RAVT) 02S0396 00061000 LA @07,16 02S0396 00062000 SLR @06,@06 02S0396 00063000 IC @06,SAVTSUBL(,@09) 02S0396 00064000 SLR @07,@06 02S0396 00065000 STC @07,ISOSUBA(,RDATA) 02S0396 00066000 * SRL(RWORK,ISOSUBA); /* ISOLATE SUBAREA */ 00067000 SRL RWORK,0(@07) 02S0397 00068000 * RWORK=SAVTSAT+((RWORK-ADJX)*LENGTH(IEDSATD));/* OBTAIN PTR. TO 00069000 * SAT ENTRY */ 00070000 LR @07,RWORK 02S0398 00071000 BCTR @07,0 02S0398 00072000 SLA @07,3 02S0398 00073000 AL @07,SAVTSAT(,@09) 02S0398 00074000 LR RWORK,@07 02S0398 00075000 * LCBPTR=DCBIOBAD+DCBEIOBX-LCBPRFSZ;/* SET LCB ADDR. IN ENTRY */ 00076000 AH @11,@CH01349 02S0399 00077000 SLR @07,@07 02S0399 00078000 IC @07,DCBEIOBX(,@11) 02S0399 00079000 AL @07,DCBIOBAD(,@11) 02S0399 00080000 SH @07,@CH01853 02S0399 00081000 ST @07,LCBPTR(,RDATA) 02S0399 00082000 * SATRNLCB=LCBPTR; /* SAVE LCB IN SAT ENTRY */ 00083000 ST @07,SATRNLCB(,RWORK) 02S0400 00084000 * SATRNRVT=RVTPTR; /* SET RVT ADDR. IN ENTRY */ 00085000 L @11,RVTPTR(,RDATA) 02S0401 00086000 ST @11,SATRNRVT(,RWORK) 02S0401 00087000 * ENTCTR=ENTRYNUM; /* SET COUNTER FOR LOOP TO SET UP 00088000 * NAT ENTRIES FOR THIS NCP AND 00089000 * ITS RESOURCES TO NO. OF RRT 00090000 * ENTRIES */ 00091000 MVC ENTCTR(4,RDATA),ENTRYNUM(RDATA) 02S0402 00092000 * ENTADDRR=RSCPTR; /* POINT TO START OF RESOURCE 00093000 * ENTRIES IN RRT */ 00094000 ST @14,ENTADDRR(,RDATA) 02S0403 00095000 * ENTADDRV=RVTPTR; /* POINT TO FIRST ENTRY IN RVT */ 00096000 ST @11,ENTADDRV(,RDATA) 02S0404 00097000 * NATODAF=RRTRSID&SAVTZELM; /* 'AND' RSID WITH SUBAREA MASK 00098000 * TO OBTAIN NCP NETWORK ADDR. */ 00099000 LH @07,RVTINDEX(,@11) 02S0405 00100000 BCTR @07,0 02S0405 00101000 ALR @07,@07 02S0405 00102000 AL @07,SAVTNAT(,@09) 02S0405 00103000 SLR @06,@06 02S0405 00104000 ICM @06,3,SAVTZELM(@09) 02S0405 00105000 SLR @09,@09 02S0405 00106000 ICM @09,3,RRTRSID(@14) 02S0405 00107000 NR @06,@09 02S0405 00108000 STH @06,NATODAF(,@07) 02S0405 00109000 * ENTADDRV=ENTADDRV+LENGTH(RVTINDEX);/* POINT PAST NCP ENTRY */ 00110000 AH @11,@CH00236 02S0406 00111000 ST @11,ENTADDRV(,RDATA) 02S0406 00112000 * DO WHILE(ENTCTR^=0); /* CREATE NAT ENTRIES FOR THE 00113000 * RESOURCES OFF THE NCP */ 00114000 B @DE00407 02S0407 00115000 @DL00407 DS 0H 02S0408 00116000 * IF RVTINDEX^=0 THEN /* INDICATES RESOURCE CAN BE USED 00117000 * BY TCAM */ 00118000 L @14,ENTADDRV(,RDATA) 02S0408 00119000 LH @14,RVTINDEX(,@14) 02S0408 00120000 LTR @14,@14 02S0408 00121000 BZ @RF00408 02S0408 00122000 * IF RRTDEVCE=ON&RRTSWTCH=ON&RRTSNA=OFF&RRTCTERM=OFF THEN/* 00123000 * @YM08444*/ 00124000 L @11,ENTADDRR(,RDATA) 02S0409 00125000 TM RRTDEVCE(@11),B'01000100' 02S0409 00126000 BNO @RF00409 02S0409 00127000 TM RRTSNA(@11),B'01100000' 02S0409 00128000 BNZ @RF00409 02S0409 00129000 * IF NATODAF=0 THEN /* IF PRESNA DIAL TERM AND NOT ON 00130000 * @YM08444*/ 00131000 L @09,AVTSAVTP(,RAVT) 02S0410 00132000 BCTR @14,0 02S0410 00133000 ALR @14,@14 02S0410 00134000 AL @14,SAVTNAT(,@09) 02S0410 00135000 ICM @09,3,NATODAF(@14) 02S0410 00136000 BNZ @RF00410 02S0410 00137000 * NATODAF=RRTRSID; /* OTHER NCP THEN SET ITS NAT 00138000 * ENTRY @YM08444*/ 00139000 MVC NATODAF(2,@14),RRTRSID(@11) 02S0411 00140000 * ELSE 02S0412 00141000 * ; /* ELSE LEAVE IT ALONE @YM08444*/ 00142000 @RF00410 DS 0H 02S0413 00143000 * ELSE /* ELSE SET NAT ENTRY FOR OTHER 00144000 * DEVICES @YM08444*/ 00145000 * NATODAF=RRTRSID; /* RSID = NETWORK ADDR. */ 00146000 B @RC00409 02S0413 00147000 @RF00409 L @14,AVTSAVTP(,RAVT) 02S0413 00148000 L @11,ENTADDRV(,RDATA) 02S0413 00149000 LH @11,RVTINDEX(,@11) 02S0413 00150000 BCTR @11,0 02S0413 00151000 ALR @11,@11 02S0413 00152000 AL @11,SAVTNAT(,@14) 02S0413 00153000 L @14,ENTADDRR(,RDATA) 02S0413 00154000 MVC NATODAF(2,@11),RRTRSID(@14) 02S0413 00155000 * ELSE 02S0414 00156000 * ; 02S0414 00157000 @RF00408 DS 0H 02S0415 00158000 * ENTADDRV=ENTADDRV+LENGTH(RVTINDEX);/* POINT TO NEXT RVT ENTRY */ 00159000 @RC00408 LA @14,2 02S0415 00160000 AL @14,ENTADDRV(,RDATA) 02S0415 00161000 ST @14,ENTADDRV(,RDATA) 02S0415 00162000 * ENTADDRR=ENTADDRR+ENTRYSIZ; /* POINT TO NEXT RRT ENTRY */ 00163000 L @14,ENTADDRR(,RDATA) 02S0416 00164000 AL @14,ENTRYSIZ(,RDATA) 02S0416 00165000 ST @14,ENTADDRR(,RDATA) 02S0416 00166000 * ENTCTR=ENTCTR-1; /* DECREMENT LOOP CTR. */ 00167000 L @14,ENTCTR(,RDATA) 02S0417 00168000 BCTR @14,0 02S0417 00169000 ST @14,ENTCTR(,RDATA) 02S0417 00170000 * END; 02S0418 00171000 @DE00407 ICM @14,15,ENTCTR(RDATA) 02S0418 00172000 BNZ @DL00407 02S0418 00173000 * RFY 02S0419 00174000 * RWORK UNRSTD; 02S0419 00175000 * RFY 02S0420 00176000 * IEDSATD; 02S0420 00177000 * 02S0421 00178000 * /*****************************************************************/ 00179000 * /* */ 00180000 * /* THIS SEGMENT CONTROLS THE BUILDING OF THE HIERARCHY. */ 00181000 * /* */ 00182000 * /*****************************************************************/ 00183000 * 02S0421 00184000 * ENTCTR=ENTRYNUM; /* SET CTR. TO NO. OF RRT ENTRIES*/ 00185000 MVC ENTCTR(4,RDATA),ENTRYNUM(RDATA) 02S0421 00186000 * BSCTR=PSNANUM; /* SET CTR. FOR NO. OF PRE-SNA 00187000 * RESOURCES */ 00188000 MVC BSCTR(4,RDATA),PSNANUM(RDATA) 02S0422 00189000 * ENTADDRR=RSCPTR; /* POINT TO FIRST RRT RESOURCE 00190000 * ENTRY */ 00191000 MVC ENTADDRR(4,RDATA),RSCPTR(RDATA) 02S0423 00192000 * ENTADDRV=RVTPTR+LENGTH(RVTINDEX);/* POINT TO SECOND RVT ENTRY */ 00193000 LA @14,2 02S0424 00194000 AL @14,RVTPTR(,RDATA) 02S0424 00195000 ST @14,ENTADDRV(,RDATA) 02S0424 00196000 * 03S0425 00197000 * /*****************************************************************/ 00198000 * /* */ 00199000 * /* THIS SEGMENT DOES THE FOLLOWING: 1) SETS RVTINDEX TO 0 FOR */ 00200000 * /* THOSE RESOURCES UNDER A RESOURCE THAT HAD BEEN SET 0 BY A */ 00201000 * /* PREVIOUS SEGMENT. THIS MAINTAINS THE HIERARCHICAL INTEGRITY OF*/ 00202000 * /* THE RESOURCES. 2) SETS TRMGP FOR PRE-SNA TERMINALS UNDER A */ 00203000 * /* CLUSTER WHEN RRTGPTRM IS SET IN THE RRT AND THE CLUSTER */ 00204000 * /* RVTINDEX IS NOT 0. */ 00205000 * /* */ 00206000 * /*****************************************************************/ 00207000 * 03S0425 00208000 */* THIS SEGMENT IS CONTROLLED BY 4 SWITCHES. THEY HAVE THE FOLLOWING*/ 00209000 */* MEANING WHEN ON: */ 00210000 */* LINEDEL : INDICATES THAT A LINE'S RVTINDEX IS 0 AND THAT RVTINDEX*/ 00211000 */* SHOULD BE SET TO 0 FOR ALL RESOURCES UNDER THE LINE. */ 00212000 */* PUDEL : INDICATES THAT A PU'S RVTINDEX IS 0 AND THAT RVTINDEX */ 00213000 */* SHOULD BE SET TO 0 FOR ALL LU'S UNDER THE PU. */ 00214000 */* CTERMDEL: SET WHEN A PRE-SNA SWITCHED LINE IS ENCOUNTERED. */ 00215000 */* INDICATES THAT ALL TERMINALS WITHOUT RRTCTERM SET */ 00216000 */* SHOULD HAVE THEIR RVTINDEX SET TO 0. */ 00217000 */* GPCLUST : INDICATES A PRE-SNA CLUSTER HAS BEEN ENCOUNTERED AND */ 00218000 */* THAT ALL TERMINALS UNDERNEATH WHICH HAVE RRTGPTRM SET */ 00219000 */* SHOULD HAVE TRMGP SET. */ 00220000 * 03S0425 00221000 * DO WHILE(ENTCTR^=0); /* LOOP THROUGH RVT AND AND RRT */ 00222000 B @DE00425 03S0425 00223000 @DL00425 DS 0H 03S0426 00224000 * IF RRTLINE=ON THEN /* IF RESOURCE IS A LINE */ 00225000 L @14,ENTADDRR(,RDATA) 03S0426 00226000 TM RRTLINE(@14),B'10000000' 03S0426 00227000 BNO @RF00426 03S0426 00228000 * DO; 03S0427 00229000 * FLAGS2='00'X; /* RESET ALL SWITCHES FOR NEW 00230000 * LINE */ 00231000 MVI FLAGS2(RDATA),X'00' 03S0428 00232000 * IF RVTINDEX^=0 THEN 03S0429 00233000 SLR @11,@11 03S0429 00234000 L @09,ENTADDRV(,RDATA) 03S0429 00235000 CH @11,RVTINDEX(,@09) 03S0429 00236000 BE @RF00429 03S0429 00237000 * IF BSCTR>0 THEN /* IF THIS IS A PRE-SNA LINE */ 00238000 C @11,BSCTR(,RDATA) 03S0430 00239000 BNL @RF00430 03S0430 00240000 * IF RRTSWTCH=ON THEN /* IF THIS IS A SWITCHED LINE */ 00241000 TM RRTSWTCH(@14),B'00000100' 03S0431 00242000 BNO @RF00431 03S0431 00243000 * CTERMDEL=ON; /* SWITCHED LINE ENCOUNTERED FLAG*/ 00244000 OI CTERMDEL(RDATA),B'00100000' 03S0432 00245000 * ELSE 03S0433 00246000 * ; 03S0433 00247000 @RF00431 DS 0H 03S0434 00248000 * ELSE 03S0434 00249000 * ; 03S0434 00250000 @RF00430 DS 0H 03S0435 00251000 * ELSE 03S0435 00252000 * LINEDEL=ON; /* SET RVTINDEX FOR ALL 03S0435 00253000 * SUBORDINATE RESOURCES TO 0 */ 00254000 B @RC00429 03S0435 00255000 @RF00429 OI LINEDEL(RDATA),B'10000000' 03S0435 00256000 * END; 03S0436 00257000 * ELSE 03S0437 00258000 * IF LINEDEL=ON THEN /* IF LINE RVTINDEX IS 0 */ 00259000 B @RC00426 03S0437 00260000 @RF00426 TM LINEDEL(RDATA),B'10000000' 03S0437 00261000 BNO @RF00437 03S0437 00262000 * RVTINDEX=0; /* ZERO RVTINDEX FOR THIS 03S0438 00263000 * RESOURCE */ 00264000 L @14,ENTADDRV(,RDATA) 03S0438 00265000 SLR @11,@11 03S0438 00266000 STH @11,RVTINDEX(,@14) 03S0438 00267000 * ELSE 03S0439 00268000 * IF RRTDEVCE=ON THEN /* IF PRE-SNA TERM. OR PU */ 00269000 B @RC00437 03S0439 00270000 @RF00437 L @14,ENTADDRR(,RDATA) 03S0439 00271000 TM RRTDEVCE(@14),B'01000000' 03S0439 00272000 BNO @RF00439 03S0439 00273000 * IF RRTSNA=OFF THEN /* IF PRE-SNA TERM. */ 00274000 TM RRTSNA(@14),B'00100000' 03S0440 00275000 BNZ @RF00440 03S0440 00276000 * IF CTERMDEL=OFF THEN /* IF NOT ON SWITCHED LINE */ 00277000 TM CTERMDEL(RDATA),B'00100000' 03S0441 00278000 BNZ @RF00441 03S0441 00279000 * IF RRTCLSTR=OFF THEN/* IF NOT A CLUSTER */ 00280000 TM RRTCLSTR(@14),B'10000000' 03S0442 00281000 BNZ @RF00442 03S0442 00282000 * IF RRTGPTRM=OFF THEN/* IF RRT INDICATES NOT GEN. 00283000 * POLL */ 00284000 TM RRTGPTRM(@14),B'00001000' 03S0443 00285000 BNZ @RF00443 03S0443 00286000 * GPCLUST=OFF; /* TURN OFF GEN. POLL CLUSTER SW. 00287000 * ONLY SPECIFIC POLL FOR THIS 00288000 * TERM. */ 00289000 NI GPCLUST(RDATA),B'11101111' 03S0444 00290000 * ELSE 03S0445 00291000 * IF RVTINDEX=0 THEN 03S0445 00292000 B @RC00443 03S0445 00293000 @RF00443 L @14,ENTADDRV(,RDATA) 03S0445 00294000 ICM @11,3,RVTINDEX(@14) 03S0445 00295000 BZ @RT00445 03S0445 00296000 * ; /* IF INDEX ALREADY 0 */ 00297000 * ELSE 03S0447 00298000 * IF GPCLUST=ON THEN/* IF TERM. UNDER GEN. POLL 00299000 * CLUST. */ 00300000 TM GPCLUST(RDATA),B'00010000' 03S0447 00301000 BNO @RF00447 03S0447 00302000 * DO; 03S0448 00303000 * RPARM=RVTINDEX;/* SET PARAMETER WITH TTCIN */ 00304000 L @14,ENTADDRV(,RDATA) 03S0449 00305000 LH RPARM,RVTINDEX(,@14) 03S0449 00306000 * CALL IEDQTNT;/* CONVERT TTCIN TO TTE */ 00307000 L @15,AVTRNMPT(,RAVT) 03S0450 00308000 BALR @14,@15 03S0450 00309000 * RTRM=RPARM;/* TTE ADDR. */ 00310000 LR RTRM,RPARM 03S0451 00311000 * TRMGP=ON; /* SET GEN. POLL FLAG IN TTE */ 00312000 LR @14,RTRM 03S0452 00313000 AL @14,@CF02819 03S0452 00314000 OI TRMGP-6(@14),B'00000100' 03S0452 00315000 * END; 03S0453 00316000 * ELSE 03S0454 00317000 * ; 03S0454 00318000 @RF00447 DS 0H 03S0455 00319000 * ELSE 03S0455 00320000 * IF RVTINDEX=0 THEN/* IF INDEX ALREADY 0 */ 00321000 B @RC00442 03S0455 00322000 @RF00442 L @14,ENTADDRV(,RDATA) 03S0455 00323000 ICM @11,3,RVTINDEX(@14) 03S0455 00324000 BNZ @RF00455 03S0455 00325000 * GPCLUST=OFF; /* TURN OFF GEN. POLL CLUST. FLAG*/ 00326000 NI GPCLUST(RDATA),B'11101111' 03S0456 00327000 * ELSE 03S0457 00328000 * GPCLUST=ON; /* TURN ON GEN. POLL CLUST. FLAG */ 00329000 B @RC00455 03S0457 00330000 @RF00455 OI GPCLUST(RDATA),B'00010000' 03S0457 00331000 * ELSE 03S0458 00332000 * IF RRTCTERM=ON THEN 03S0458 00333000 B @RC00441 03S0458 00334000 @RF00441 L @14,ENTADDRR(,RDATA) 03S0458 00335000 TM RRTCTERM(@14),B'01000000' 03S0458 00336000 BO @RT00458 03S0458 00337000 * ; /* IF RRT INDICATES CTERM */ 00338000 * ELSE 03S0460 00339000 * RVTINDEX=0; /* ZERO INDEX FOR NON CTERM ON 00340000 * SWITCHED LINE */ 00341000 L @14,ENTADDRV(,RDATA) 03S0460 00342000 SLR @11,@11 03S0460 00343000 STH @11,RVTINDEX(,@14) 03S0460 00344000 * ELSE 03S0461 00345000 * IF RVTINDEX=0 THEN /* IF PU INDEX 0 */ 00346000 B @RC00440 03S0461 00347000 @RF00440 L @14,ENTADDRV(,RDATA) 03S0461 00348000 ICM @11,3,RVTINDEX(@14) 03S0461 00349000 BNZ @RF00461 03S0461 00350000 * PUDEL=ON; /* ZERO INDEX FOR ALL LU'S BELOW */ 00351000 OI PUDEL(RDATA),B'01000000' 03S0462 00352000 * ELSE 03S0463 00353000 * PUDEL=OFF; /* PU OD */ 00354000 B @RC00461 03S0463 00355000 @RF00461 NI PUDEL(RDATA),B'10111111' 03S0463 00356000 * ELSE 03S0464 00357000 * IF PUDEL=OFF THEN 03S0464 00358000 B @RC00439 03S0464 00359000 @RF00439 TM PUDEL(RDATA),B'01000000' 03S0464 00360000 BZ @RT00464 03S0464 00361000 * ; /* IF THIS LU'S PU'S INDEX ^0 */ 00362000 * ELSE 03S0466 00363000 * RVTINDEX=0; /* ZERO INDEX FOR LU. */ 00364000 L @14,ENTADDRV(,RDATA) 03S0466 00365000 SLR @11,@11 03S0466 00366000 STH @11,RVTINDEX(,@14) 03S0466 00367000 * ENTCTR=ENTCTR-1; /* DECREMENT LOOP CTR. */ 00368000 @RT00464 DS 0H 03S0467 00369000 @RC00439 DS 0H 03S0467 00370000 @RC00437 DS 0H 03S0467 00371000 @RC00426 L @14,ENTCTR(,RDATA) 03S0467 00372000 BCTR @14,0 03S0467 00373000 ST @14,ENTCTR(,RDATA) 03S0467 00374000 * BSCTR=BSCTR-1; /* DECREMENT PRE-SNA CTR. */ 00375000 L @14,BSCTR(,RDATA) 03S0468 00376000 BCTR @14,0 03S0468 00377000 ST @14,BSCTR(,RDATA) 03S0468 00378000 * ENTADDRV=ENTADDRV+LENGTH(RVTINDEX);/* POINT TO NEXT RVT ENTRY */ 00379000 LA @14,2 03S0469 00380000 AL @14,ENTADDRV(,RDATA) 03S0469 00381000 ST @14,ENTADDRV(,RDATA) 03S0469 00382000 * ENTADDRR=ENTADDRR+ENTRYSIZ; /* POINT TO NEXT RRT ENTRY */ 00383000 L @14,ENTADDRR(,RDATA) 03S0470 00384000 AL @14,ENTRYSIZ(,RDATA) 03S0470 00385000 ST @14,ENTADDRR(,RDATA) 03S0470 00386000 * END; 03S0471 00387000 @DE00425 ICM @14,15,ENTCTR(RDATA) 03S0471 00388000 BNZ @DL00425 03S0471 00389000 * 03S0472 00390000 * /*****************************************************************/ 00391000 * /* */ 00392000 * /* THIS SEGMENT CREATES THE HIERARCHY IN THE TTE'S BY SETTING THE*/ 00393000 * /* COHORT AND SUBSTRUCT POINTERS. */ 00394000 * /* */ 00395000 * /*****************************************************************/ 00396000 * 03S0472 00397000 * ENTADDRV=RVTPTR+LENGTH(RVTINDEX);/* POINT TO 2ND RVT ENTRY */ 00398000 L @14,RVTPTR(,RDATA) 03S0472 00399000 LA @11,2 03S0472 00400000 ALR @11,@14 03S0472 00401000 ST @11,ENTADDRV(,RDATA) 03S0472 00402000 * ENTADDRR=RSCPTR; /* POINT TO 1ST RESOURCE ENTRY IN 00403000 * RRT */ 00404000 MVC ENTADDRR(4,RDATA),RSCPTR(RDATA) 03S0473 00405000 * RTRM=NCPTTEA; /* POINT TO NCP TTE */ 00406000 L RTRM,NCPTTEA(,RDATA) 03S0474 00407000 * TRMSUBST=RVTPTR->RVTINDEX; /* SET NCP SUBSTRUCT POINTER TO 00408000 * POINT TO NCP */ 00409000 LR @11,RTRM 03S0475 00410000 BCTR @11,0 03S0475 00411000 BCTR @11,0 03S0475 00412000 MVC TRMSUBST-12(2,@11),RVTINDEX(@14) 03S0475 00413000 * ENTCTR=ENTRYNUM; /* SET LOOP COUNTER TO NUMBER OF 00414000 * RRT RESOURCE ENTRIES */ 00415000 MVC ENTCTR(4,RDATA),ENTRYNUM(RDATA) 03S0476 00416000 * DO WHILE(ENTCTR^=0); /* LOOP THRU RRT AND RVT */ 00417000 B @DE00477 03S0477 00418000 @DL00477 DS 0H 03S0478 00419000 * IF RVTINDEX^=0 THEN /* IF RESOURCE TO BE INCLUDED IN 00420000 * HIERARCHY */ 00421000 L @14,ENTADDRV(,RDATA) 03S0478 00422000 LH @14,RVTINDEX(,@14) 03S0478 00423000 LTR @14,@14 03S0478 00424000 BZ @RF00478 03S0478 00425000 * DO; 03S0479 00426000 * RPARM=RVTINDEX; /* SET PARM. AS TTCIN OF RESOURCE*/ 00427000 LR RPARM,@14 03S0480 00428000 * CALL IEDQTNT; /* CONVERT TTCIN TO TTE */ 00429000 L @15,AVTRNMPT(,RAVT) 03S0481 00430000 BALR @14,@15 03S0481 00431000 * RTRM=RPARM; /* COPY TTE ADDR. */ 00432000 LR RTRM,RPARM 03S0482 00433000 * TRMSUBST=RVTINDEX; /* SET SUBSTRUCT TO POINT TO 00434000 * RESOURCE */ 00435000 LR @14,RTRM 03S0483 00436000 SH @14,@CH02810 03S0483 00437000 L @11,ENTADDRV(,RDATA) 03S0483 00438000 LH @11,RVTINDEX(,@11) 03S0483 00439000 STH @11,TRMSUBST(,@14) 03S0483 00440000 * IF TRMLINE=OFF THEN /* IF NOT A LINE */ 00441000 TM TRMLINE(RTRM),B'10000000' 03S0484 00442000 BNZ @RF00484 03S0484 00443000 * IF TRMTYPE^=TRMLUNT&TRMGP=OFF THEN/* IF NOT A LU AND NOT 00444000 * A GEN. POLL TERM. */ 00445000 CLI TRMTYPE(@14),X'30' 03S0485 00446000 BE @RF00485 03S0485 00447000 TM TRMGP(@14),B'00000100' 03S0485 00448000 BNZ @RF00485 03S0485 00449000 * DO; 03S0486 00450000 * IF TRMTYPE=TRMCTERM THEN/* IF A LOGICAL CONNECTION 00451000 * DEVICE ON A DIAL LINE */ 00452000 CLI TRMTYPE(@14),X'48' 03S0487 00453000 BNE @RF00487 03S0487 00454000 * LASTLINE->TRMUTERM=RVTINDEX;/* SET UTERM TO POINT 00455000 * TO TERM */ 00456000 L @14,LASTLINE(,RDATA) 03S0488 00457000 STH @11,TRMUTERM(,@14) 03S0488 00458000 * ELSE 03S0489 00459000 * ; 03S0489 00460000 @RF00487 DS 0H 03S0490 00461000 * LASTLINE=LASTLINE-LENGTH(IEDNTRM);/* POINT TO NEG. 00462000 * PREFIX OF TTE */ 00463000 LA @14,14 03S0490 00464000 L @11,LASTLINE(,RDATA) 03S0490 00465000 SLR @11,@14 03S0490 00466000 ST @11,LASTLINE(,RDATA) 03S0490 00467000 * TRMCOHRT=LASTLINE->TRMSUBST;/* SET COHORT OF TERM TO 00468000 * LAST TERM OR LINE */ 00469000 LR @09,RTRM 03S0491 00470000 SLR @09,@14 03S0491 00471000 MVC TRMCOHRT(2,@09),TRMSUBST(@11) 03S0491 00472000 * LASTLINE->TRMSUBST=RVTINDEX;/* LINE SUBSTRUCT SET TO 00473000 * TTCIN OF TERM. */ 00474000 L @09,ENTADDRV(,RDATA) 03S0492 00475000 MVC TRMSUBST(2,@11),RVTINDEX(@09) 03S0492 00476000 * LASTLINE=LASTLINE+LENGTH(IEDNTRM);/* SET TO POINT TO 00477000 * MAIN TTE */ 00478000 ALR @11,@14 03S0493 00479000 ST @11,LASTLINE(,RDATA) 03S0493 00480000 * LASTTERM=RTRM; /* LAST TERMINAL EQUAL CURRENT */ 00481000 ST RTRM,LASTTERM(,RDATA) 03S0494 00482000 * END; 03S0495 00483000 * ELSE 03S0496 00484000 * DO; 03S0496 00485000 B @RC00485 03S0496 00486000 @RF00485 DS 0H 03S0497 00487000 * LASTTERM=LASTTERM-LENGTH(IEDNTRM);/* POINT TO NEG. 00488000 * PREFIX OF TTE */ 00489000 LA @14,14 03S0497 00490000 L @11,LASTTERM(,RDATA) 03S0497 00491000 SLR @11,@14 03S0497 00492000 ST @11,LASTTERM(,RDATA) 03S0497 00493000 * TRMCOHRT=LASTTERM->TRMSUBST;/* SET COHORT OF TERM TO 00494000 * LAST TERM SUBSTRUCT */ 00495000 LR @09,RTRM 03S0498 00496000 SLR @09,@14 03S0498 00497000 MVC TRMCOHRT(2,@09),TRMSUBST(@11) 03S0498 00498000 * LASTTERM->TRMSUBST=RVTINDEX;/* SET SUBSTRICT OF LAST 00499000 * TERM. TO TTCIN OF THIS TERM. */ 00500000 L @09,ENTADDRV(,RDATA) 03S0499 00501000 MVC TRMSUBST(2,@11),RVTINDEX(@09) 03S0499 00502000 * LASTTERM=LASTTERM+LENGTH(IEDNTRM);/* SET TO POINT TO 00503000 * MAIN TTE */ 00504000 ALR @11,@14 03S0500 00505000 ST @11,LASTTERM(,RDATA) 03S0500 00506000 * END; 03S0501 00507000 * ELSE 03S0502 00508000 * DO; 03S0502 00509000 B @RC00484 03S0502 00510000 @RF00484 DS 0H 03S0503 00511000 * NCPTTEA=NCPTTEA-LENGTH(IEDNTRM);/* POINT TO NEG. PREFIX 00512000 * OF TTE */ 00513000 LA @14,14 03S0503 00514000 L @11,NCPTTEA(,RDATA) 03S0503 00515000 SLR @11,@14 03S0503 00516000 ST @11,NCPTTEA(,RDATA) 03S0503 00517000 * TRMCOHRT=NCPTTEA->TRMSUBST;/* SET LINE COHORT TO NCP 00518000 * SUBSTRUCT */ 00519000 LR @09,RTRM 03S0504 00520000 SLR @09,@14 03S0504 00521000 MVC TRMCOHRT(2,@09),TRMSUBST(@11) 03S0504 00522000 * NCPTTEA->TRMSUBST=RVTINDEX;/* SET NCP SUBSTRUCT TO LINE 00523000 * TTCIN */ 00524000 L @09,ENTADDRV(,RDATA) 03S0505 00525000 MVC TRMSUBST(2,@11),RVTINDEX(@09) 03S0505 00526000 * NCPTTEA=NCPTTEA+LENGTH(IEDNTRM);/* SET TO POINT TO MAIN 00527000 * TTE */ 00528000 ALR @11,@14 03S0506 00529000 ST @11,NCPTTEA(,RDATA) 03S0506 00530000 * LASTLINE=RTRM; /* SET LASTLINE TO TTE ADDR. */ 00531000 ST RTRM,LASTLINE(,RDATA) 03S0507 00532000 * END; 03S0508 00533000 * END; 03S0509 00534000 * ELSE 03S0510 00535000 * ; 03S0510 00536000 @RF00478 DS 0H 03S0511 00537000 * ENTADDRR=ENTADDRR+ENTRYSIZ; /* POINT TO NEXT ENTRY IN RRT */ 00538000 @RC00478 L @14,ENTADDRR(,RDATA) 03S0511 00539000 AL @14,ENTRYSIZ(,RDATA) 03S0511 00540000 ST @14,ENTADDRR(,RDATA) 03S0511 00541000 * ENTADDRV=ENTADDRV+LENGTH(RVTINDEX);/* POINT TO NEXT ENTRY IN 00542000 * RVT */ 00543000 LA @14,2 03S0512 00544000 AL @14,ENTADDRV(,RDATA) 03S0512 00545000 ST @14,ENTADDRV(,RDATA) 03S0512 00546000 * ENTCTR=ENTCTR-1; /* DECREMENT LOOP COUNTER */ 00547000 L @14,ENTCTR(,RDATA) 03S0513 00548000 BCTR @14,0 03S0513 00549000 ST @14,ENTCTR(,RDATA) 03S0513 00550000 * END; 03S0514 00551000 @DE00477 ICM @14,15,ENTCTR(RDATA) 03S0514 00552000 BNZ @DL00477 03S0514 00553000 * 03S0515 00554000 * /*****************************************************************/ 00555000 * /* */ 00556000 * /* THIS SEGMENT PERFORMS TWO FUNCTIONS WHICH RESULTS IN THE */ 00557000 * /* COMPLETION OF THE HIERARCHY IN THE TERMINAL TABLE AND THE RVT.*/ 00558000 * /* 1) IT LOOPS THROUGH THE TERM. TABLE HIERARCHY ALREADY BUILT */ 00559000 * /* LOCATING THOSE RESOURCES WHOSE SUBSTRUCT IS SET TO ITS TTCIN */ 00560000 * /* (INDICATING THE RESOURCE IS LOWEST IN THE HIERARCY) AND SETS */ 00561000 * /* THE SUBSTRUCT TO ZERO. (WHILE LOOPING, TRMINPG IS SET FOR SNA */ 00562000 * /* RESOURCES INDICATING ACTIVATE IN PROGRESS FOR A SUPERIOR */ 00563000 * /* RESOURCE.) 2) IT CALLS RVTSET TO SET THE RVT HIERARCHY. */ 00564000 * /* */ 00565000 * /*****************************************************************/ 00566000 * 03S0515 00567000 * ENTADDRV=RVTPTR; /* POINT TO FIRST ENTRY IN RVT */ 00568000 L @14,RVTPTR(,RDATA) 03S0515 00569000 ST @14,ENTADDRV(,RDATA) 03S0515 00570000 * ENTCTR=RVTNUM; /* SET LOOP CTR TO NO. OF RVT 00571000 * ENTRIES */ 00572000 LH @14,RVTNUM(,@14) 03S0516 00573000 ST @14,ENTCTR(,RDATA) 03S0516 00574000 * DO WHILE(ENTCTR^=0); /* LOOP THOURGH HIERARCHY */ 00575000 B @DE00517 03S0517 00576000 @DL00517 DS 0H 03S0518 00577000 * IF RVTINDEX^=0 THEN /* IF RVT ENTRY CONTAINS TTCIN */ 00578000 L @14,ENTADDRV(,RDATA) 03S0518 00579000 LH @14,RVTINDEX(,@14) 03S0518 00580000 LTR @14,@14 03S0518 00581000 BZ @RF00518 03S0518 00582000 * DO; 03S0519 00583000 * RPARM=RVTINDEX; /* SET PARM. TO TTCIN */ 00584000 LR RPARM,@14 03S0520 00585000 * CALL IEDQTNT; /* CONVERT TTCIN TO TTE ADDR. */ 00586000 L @15,AVTRNMPT(,RAVT) 03S0521 00587000 BALR @14,@15 03S0521 00588000 * RTRM=RPARM; /* COPY TTE ADDR. */ 00589000 LR RTRM,RPARM 03S0522 00590000 * IF TRMSNA=ON THEN /* IF THIS IS AN SNA RESOURCE */ 00591000 LR @14,RTRM 03S0523 00592000 SH @14,@CH02810 03S0523 00593000 TM TRMSNA(@14),B'00000010' 03S0523 00594000 BNO @RF00523 03S0523 00595000 * TRMINPG=ON; /* TURN ON IN-PROGRESS BIT */ 00596000 LA @05,TRMINPG(,@14) 03S0524 00597000 LR @07,@05 03S0524 00598000 LA @11,3 03S0524 00599000 NR @07,@11 03S0524 00600000 LCR @07,@07 03S0524 00601000 ALR @05,@07 03S0524 00602000 L @11,0(,@05) 03S0524 00603000 @GL00003 LR @09,@11 03S0524 00604000 O @09,@CB02823+3(@07) 03S0524 00605000 CS @11,@09,0(@05) 03S0524 00606000 BNE @GL00003 03S0524 00607000 * ELSE 03S0525 00608000 * ; 03S0525 00609000 @RF00523 DS 0H 03S0526 00610000 * IF TRMSUBST=RVTINDEX THEN /* IF SUBSTRUCT MATCHES TTCIN OF 00611000 * RESOURCE */ 00612000 LR @14,RTRM 03S0526 00613000 SH @14,@CH02810 03S0526 00614000 L @11,ENTADDRV(,RDATA) 03S0526 00615000 SLR @09,@09 03S0526 00616000 ICM @09,3,TRMSUBST(@14) 03S0526 00617000 CH @09,RVTINDEX(,@11) 03S0526 00618000 BNE @RF00526 03S0526 00619000 * TRMSUBST=0; 03S0527 00620000 SLR @11,@11 03S0527 00621000 STH @11,TRMSUBST(,@14) 03S0527 00622000 * ELSE 03S0528 00623000 * ; 03S0528 00624000 @RF00526 DS 0H 03S0529 00625000 * END; 03S0529 00626000 * ELSE 03S0530 00627000 * ; 03S0530 00628000 @RF00518 DS 0H 03S0531 00629000 * ENTADDRV=ENTADDRV+LENGTH(RVTINDEX);/* POINT TO NEXT RVT ENTRY */ 00630000 LA @14,2 03S0531 00631000 AL @14,ENTADDRV(,RDATA) 03S0531 00632000 ST @14,ENTADDRV(,RDATA) 03S0531 00633000 * ENTCTR=ENTCTR-1; /* DECREMENT LOOP CTR. */ 00634000 L @14,ENTCTR(,RDATA) 03S0532 00635000 BCTR @14,0 03S0532 00636000 ST @14,ENTCTR(,RDATA) 03S0532 00637000 * END; 03S0533 00638000 @DE00517 ICM @14,15,ENTCTR(RDATA) 03S0533 00639000 BNZ @DL00517 03S0533 00640000 * ENTCTR=ENTRYNUM; /* SET CTR. TO NO. OF RRT 03S0534 00641000 * RESOURCE ENTRIES */ 00642000 L @14,ENTRYNUM(,RDATA) 03S0534 00643000 ST @14,ENTCTR(,RDATA) 03S0534 00644000 * ENTADDRV=RVTPTR+LENGTH(RVTINDEX);/* POINT TO 2ND RVT ENTRY */ 00645000 LA @11,2 03S0535 00646000 AL @11,RVTPTR(,RDATA) 03S0535 00647000 ST @11,ENTADDRV(,RDATA) 03S0535 00648000 * ENTADDRR=RSCPTR; /* POINT TO 1ST RESOURCE ENTRY IN 00649000 * RRT */ 00650000 MVC ENTADDRR(4,RDATA),RSCPTR(RDATA) 03S0536 00651000 * 04S0537 00652000 * /*****************************************************************/ 00653000 * /* */ 00654000 * /* THIS SEGMENT RESETS UP THE RVT BY MOVING THE TTCIN FOR EACH */ 00655000 * /* DIAL BSS-SS TERM NAMED IN THE RRT INTO A SLOT IN THE RVT, IF */ 00656000 * /* NECESSARY */ 00657000 * /* */ 00658000 * /*****************************************************************/ 00659000 * 04S0537 00660000 * DO ENTCTR=ENTCTR TO 1 BY-1; 04S0537 00661000 B @DE00537 04S0537 00662000 @DL00537 DS 0H 04S0538 00663000 * IF RRTDEVCE=ON&RRTSWTCH=ON&RRTSNA=OFF&RRTCTERM=OFF THEN 04S0538 00664000 L @14,ENTADDRR(,RDATA) 04S0538 00665000 TM RRTDEVCE(@14),B'01000100' 04S0538 00666000 BNO @RF00538 04S0538 00667000 TM RRTSNA(@14),B'01100000' 04S0538 00668000 BNZ @RF00538 04S0538 00669000 * DO; /* IF DIAL BSS-SS TERM THEN 04S0539 00670000 * @YM08444*/ 00671000 * 04S0539 00672000 * /***********************************************************/ 00673000 * /* */ 00674000 * /* CALL IEDQE8 TO OBTAIN THE TTCIN OF A RESOURCE FROM THE */ 00675000 * /* RESOURCE NAME CONTAINED IN THE RRT ENTRY. */ 00676000 * /* */ 00677000 * /***********************************************************/ 00678000 * 04S0540 00679000 * RZERO=ADDR(RRTERMNM); /* SET PARM WITH ADDR. OF RRT 00680000 * FIELD CONTAINING RESOURCE NAME*/ 00681000 LR RZERO,@14 04S0540 00682000 * CALL IEDQE8; /* OBTAIN TTCIN */ 00683000 L @11,CVTPTR 04S0541 00684000 L @11,CVTAQAVT(,@11) 04S0541 00685000 L @15,TCXQE8(,@11) 04S0541 00686000 BALR @14,@15 04S0541 00687000 * RVTINDEX=RRETCODE; /* PLACE TTCIN (OR 0 IF NAME NOT 00688000 * FOUND) INTO RVT ENTRY */ 00689000 L @14,ENTADDRV(,RDATA) 04S0542 00690000 STH RRETCODE,RVTINDEX(,@14) 04S0542 00691000 * IF RVTINDEX^=0 THEN /* SET RVT ENTRY */ 00692000 L @14,ENTADDRV(,RDATA) 04S0543 00693000 LH @14,RVTINDEX(,@14) 04S0543 00694000 LTR @14,@14 04S0543 00695000 BZ @RF00543 04S0543 00696000 * DO; /* =0 */ 00697000 * RPARM=RVTINDEX; /* IF NOT */ 00698000 LR RPARM,@14 04S0545 00699000 * CALL IEDQTNT; /* 3705 RESOURCE */ 00700000 L @15,AVTRNMPT(,RAVT) 04S0546 00701000 BALR @14,@15 04S0546 00702000 * RTRM=RPARM; /* OR */ 00703000 LR RTRM,RPARM 04S0547 00704000 * IF TRMPREF^=ON|TRMDIAL^=ON|NATODAF^=RRTRSID THEN/* IF 00705000 * NON-DIAL RESOURCE OR ALREADY 00706000 * ON ANOTHER NCP THEN CLEAR RVT 00707000 * @YM08444*/ 00708000 TM TRMPREF(RTRM),B'00010000' 04S0548 00709000 BNO @RT00548 04S0548 00710000 LR @14,RTRM 04S0548 00711000 AL @14,@CF02819 04S0548 00712000 TM TRMDIAL-6(@14),B'00001000' 04S0548 00713000 BNO @RT00548 04S0548 00714000 L @14,AVTSAVTP(,RAVT) 04S0548 00715000 L @11,ENTADDRV(,RDATA) 04S0548 00716000 LH @11,RVTINDEX(,@11) 04S0548 00717000 BCTR @11,0 04S0548 00718000 ALR @11,@11 04S0548 00719000 AL @11,SAVTNAT(,@14) 04S0548 00720000 L @14,ENTADDRR(,RDATA) 04S0548 00721000 CLC NATODAF(2,@11),RRTRSID(@14) 04S0548 00722000 BE @RF00548 04S0548 00723000 @RT00548 DS 0H 04S0549 00724000 * RVTINDEX=0; /* ENTRY @YM08444*/ 00725000 L @14,ENTADDRV(,RDATA) 04S0549 00726000 SLR @11,@11 04S0549 00727000 STH @11,RVTINDEX(,@14) 04S0549 00728000 * ELSE 04S0550 00729000 * ; 04S0550 00730000 @RF00548 DS 0H 04S0551 00731000 * END; 04S0551 00732000 * ELSE 04S0552 00733000 * ; 04S0552 00734000 @RF00543 DS 0H 04S0553 00735000 * END; 04S0553 00736000 * ELSE 04S0554 00737000 * ; 04S0554 00738000 @RF00538 DS 0H 04S0555 00739000 * ENTADDRV=ENTADDRV+LENGTH(RVTINDEX);/* POINT TO NEXT ENTRY IN 00740000 * RVT */ 00741000 LA @14,2 04S0555 00742000 AL @14,ENTADDRV(,RDATA) 04S0555 00743000 ST @14,ENTADDRV(,RDATA) 04S0555 00744000 * ENTADDRR=ENTADDRR+ENTRYSIZ; /* POINT TO NEXT ENTRY IN RRT */ 00745000 L @14,ENTADDRR(,RDATA) 04S0556 00746000 AL @14,ENTRYSIZ(,RDATA) 04S0556 00747000 ST @14,ENTADDRR(,RDATA) 04S0556 00748000 * END; 04S0557 00749000 SLR @14,@14 04S0557 00750000 BCTR @14,0 04S0557 00751000 AL @14,ENTCTR(,RDATA) 04S0557 00752000 ST @14,ENTCTR(,RDATA) 04S0557 00753000 @DE00537 LTR @14,@14 04S0557 00754000 BP @DL00537 04S0557 00755000 * 02S0558 00756000 * /*****************************************************************/ 00757000 * /* */ 00758000 * /* THIS SEGMENT POSTS THE ERB IN THE LCB TO BUFFER REQUEST IN */ 00759000 * /* ORDER FOR BUFFERS TO BE ASSIGNED TO THE LCB TO READ THE */ 00760000 * /* RESPONSE TO THE ACTIVATE NCP CMND. WHICH THE SSCP WILL SEND */ 00761000 * /* WHEN POSTED BY IGCFI10D. */ 00762000 * /* */ 00763000 * /*****************************************************************/ 00764000 * 02S0558 00765000 * LCBRBCT1=1; /* NO. OF BUFFERS REQUESTED */ 00766000 L @14,LCBPTR(,RDATA) 02S0558 00767000 MVI LCBRBCT1(@14),X'01' 02S0558 00768000 * LCBRBCT2=DCBUNTCT; /* NO. OF UNITS IN THE BUFFER */ 00769000 L @11,DCBPTR(,RDATA) 02S0559 00770000 MVC LCBRBCT2(1,@14),DCBUNTCT+48(@11) 02S0559 00771000 * LCBERBPY=PRIACTIV; /* BUFFER REQUEST PRIORITY */ 00772000 MVI LCBERBPY(@14),X'E4' 02S0560 00773000 * LCBERBQB=ADDR(AVTBFREB); /* BUFFER REQUEST QCB @YM02946*/ 00774000 LA @11,AVTBFREB(,RAVT) 02S0561 00775000 STCM @11,7,LCBERBQB(@14) 02S0561 00776000 * LCBRCQCB=LCBPTR; /* RETURN BUFFER TO LCB */ 00777000 ST @14,LCBRCQCB(,@14) 02S0562 00778000 * LCBPRCPG=ON; /* TURN ON FLAG INDICATING 02S0563 00779000 * LCBRCQCB CONTAINS RETURN QCB */ 00780000 * LCBDLNKN=OFF; /* PREVENT DBL LCB POST @YM03690*/ 00781000 OI LCBPRCPG(@14),B'00000010' 02S0564 00782000 NI LCBDLNKN(@14),B'11111110' 02S0564 00783000 * AQCTL1=ADDR(LCBERB); /* SET 1ST WORD OF AQCTL PARM. 00784000 * LIST TO POINT TO ERB */ 00785000 LA @14,LCBERB(,@14) 02S0565 00786000 ST @14,AQCTL1(,ROPCAVT) 02S0565 00787000 * AQCTL2=AQCTL1; /* COPY */ 00788000 ST @14,AQCTL2(,ROPCAVT) 02S0566 00789000 * AQCTLFG1=ACTCDE; /* SET ACTION CODE IN FIRST BYTE 00790000 * OF LIST */ 00791000 MVI AQCTLFG1(ROPCAVT),X'0C' 02S0567 00792000 * AQCTLFG2=EOL; /* FLAG INDICATES END OF LIST */ 00793000 MVI AQCTLFG2(ROPCAVT),X'80' 02S0568 00794000 * RPARM=ADDR(OPCAQCTL); /* SET PARM. FOR AQCTL @YM02907*/ 00795000 LA RPARM,OPCAQCTL(,ROPCAVT) 02S0569 00796000 * GEN; 02S0570 00797000 AQCTL 00798000 * 02S0571 00799000 * /*****************************************************************/ 00800000 * /* */ 00801000 * /* THIS SEGMENT BUILDS AN OPCE AND POSTS THE SSCP TO ACTIVATE THE*/ 00802000 * /* NCP. */ 00803000 * /* */ 00804000 * /*****************************************************************/ 00805000 * 02S0571 00806000 * RPARM=1; /* NO. OF BUFFER UNITS REQUIRED 00807000 * TO BUILD AN OPCE */ 00808000 LA RPARM,1 02S0571 00809000 * CALL ALLOCBUF; /* ALLOCATE A BUFFER */ 00810000 L @15,OPCGETBF(,ROPCAVT) 02S0572 00811000 BALR @14,@15 02S0572 00812000 * ROPCE=RPARM; /* COPY ADDR. OF NEW OPCE */ 00813000 LR ROPCE,RPARM 02S0573 00814000 * OCPTRSAV=OPCCOPCE; /* PUT POINTER TO CURRENT OPCE IN 00815000 * NEW OPCE */ 00816000 L @14,OPCCOPCE(,ROPCAVT) 02S0574 00817000 ST @14,OCPTRSAV(,ROPCE) 02S0574 00818000 * OCELMPRI=PRIHIFLG; /* SET PRIORITY */ 00819000 MVI OCELMPRI(ROPCE),X'E9' 02S0575 00820000 * OCPRIFLG=OPRA0; /* SET FLAG FIELD FOR SSCP POST */ 00821000 MVI OCPRIFLG(ROPCE),X'01' 02S0576 00822000 * OCWTG=RSPHNDLR; /* ACTIVATE RESPONSE HANDLER */ 00823000 MVC OCWTG(2,ROPCE),@CC02778 02S0577 00824000 * OCACTREQ=ON; /* SET ACT-DEACT FLAG @YM03705*/ 00825000 OI OCACTREQ(ROPCE),B'00001000' 02S0578 00826000 * OCTRMTBL=OPCCOPCE->OCTRMTBL; /* SET ORIG.(NCP) RESOURCE TTCIN 00827000 * IN NEW OPCE */ 00828000 MVC OCTRMTBL(2,ROPCE),OCTRMTBL(@14) 02S0579 00829000 * OCSWITCH=OCACTNCP; /* SET CODE FOR ACTIVATE (ERP) OF 00830000 * NCP */ 00831000 MVI OCSWITCH(ROPCE),X'70' 02S0580 00832000 * OPCCOPCE=ROPCE; /* SET CURRENT OPCE TO POINT TO 00833000 * NEW OPCE */ 00834000 ST ROPCE,OPCCOPCE(,ROPCAVT) 02S0581 00835000 * OPCMODID=TOA0; /* SET TO XCTL TO SSCP */ 00836000 MVC OPCMODID(2,ROPCAVT),@CC02776 02S0582 00837000 * 02S0583 00838000 * /*****************************************************************/ 00839000 * /* */ 00840000 * /* THIS SEGMENT LOADS THE MANUAL DIAL MODULE IEDPMD IF THE MANUAL*/ 00841000 * /* DIAL FLAG IS SET IN THE WORKAREA AND THE MODULE IS NOT ALREADY*/ 00842000 * /* LOADED. */ 00843000 * /* */ 00844000 * /*****************************************************************/ 00845000 * 02S0583 00846000 * IF MANDLSW=ON&SAVTMAND=0 THEN /* IF FLAG SET AND NOT ALREADY 00847000 * LOADED */ 00848000 TM MANDLSW(RDATA),B'10000000' 02S0583 00849000 BNO @RF00583 02S0583 00850000 L @14,AVTSAVTP(,RAVT) 02S0583 00851000 ICM @11,15,SAVTMAND(@14) 02S0583 00852000 BNZ @RF00583 02S0583 00853000 * DO; 02S0584 00854000 * GEN; 02S0585 00855000 LOAD EP=IEDPMD LOAD MANUAL DIAL @YM04617 00856000 * SAVTMAND=RZERO; /* ADDR. OF MODULE @YM05651*/ 00857000 L @14,AVTSAVTP(,RAVT) 02S0586 00858000 ST RZERO,SAVTMAND(,@14) 02S0586 00859000 * END; 02S0587 00860000 * ELSE 02S0588 00861000 * ; 02S0588 00862000 @RF00583 DS 0H 02S0589 00863000 * GEN REFS(BLDLNAME); 01S0589 00864000 DELETE DE=BLDLNAME(RDATA) DELETE RRT 00865000 * RPARM=ROPCAVT; /* SET XCTL PARM.=OP.CTL.AVT 00866000 * ADDR. */ 00867000 LR RPARM,ROPCAVT 01S0590 00868000 * GEN EXIT REFS(ROPCAVT,OPCXCTL); 01S0591 00869000 XCTL SF=(E,OPCXCTL(ROPCAVT)) XCTL TO SSCP 00870000 * END IGCFI10D 01S0592 00871000 * 01S0592 00872000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00873000 */*%INCLUDE SYSLIB (TADWD ) */ 00874000 */*%INCLUDE SYSLIB (TAVTD ) */ 00875000 */*%INCLUDE SYSLIB (CVT ) */ 00876000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00877000 */*%INCLUDE SYSLIB (IHADCB ) */ 00878000 */*%INCLUDE SYSLIB (TLCBD ) */ 00879000 */*%INCLUDE SYSLIB (TNATD ) */ 00880000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00881000 */*%INCLUDE SYSLIB (TOPCED ) */ 00882000 */*%INCLUDE SYSLIB (TOPRED ) */ 00883000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00884000 */*%INCLUDE SYSLIB (TQCBD ) */ 00885000 */*%INCLUDE SYSLIB (TRRTD ) */ 00886000 */*%INCLUDE SYSLIB (TRVTD ) */ 00887000 */*%INCLUDE SYSLIB (TSATD ) */ 00888000 */*%INCLUDE SYSLIB (TTCXD ) */ 00889000 */*%INCLUDE SYSLIB (TTRMD ) */ 00890000 */*%INCLUDE SYSUT5 (NATNSAT ) */ 00891000 */*%INCLUDE SYSUT5 (BLDHIER ) */ 00892000 */*%INCLUDE SYSUT5 (RVTFMT ) */ 00893000 */*%INCLUDE SYSUT5 (HIERSET1) */ 00894000 */*%INCLUDE SYSUT5 (HIERSET2) */ 00895000 */*%INCLUDE SYSUT5 (RVTSET ) */ 00896000 */*%INCLUDE SYSUT5 (ERBPOST ) */ 00897000 */*%INCLUDE SYSUT5 (BLDOPCE ) */ 00898000 */*%INCLUDE SYSUT5 (DIALMOD ) */ 00899000 * 01S0592 00900000 * ; 01S0592 00901000 @DATA DS 0H 00902000 @CH00236 DC H'2' 00903000 @CH02810 DC H'14' 00904000 @CH01349 DC H'20' 00905000 @CH01853 DC XL2'20' 00906000 @DATD DSECT 00907000 DS 0F 00908000 IGCFI10D CSECT 00909000 DS 0F 00910000 @CF02819 DC F'-8' 00911000 @CF02814 DC F'-6' 00912000 @DATD DSECT 00913000 DS 0D 00914000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00915000 @ENDDATD EQU * 00916000 IGCFI10D CSECT 00917000 DS 0F 00918000 @SIZDATD DC AL1(0) 00919000 DC AL3(@ENDDATD-@DATD) 00920000 DS 0D 00921000 @CC02776 DC C'A0' 00922000 @CC02778 DC C'FJ' 00923000 @CB02823 DC B'000000000000000000000000001000000000000000000000000000C00924000 00' 00925000 DS CL1 00926000 ADPATCH DC XL100'0' 00927000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00928000 @01 EQU 01 00929000 @02 EQU 02 00930000 @03 EQU 03 00931000 @04 EQU 04 00932000 @05 EQU 05 00933000 @06 EQU 06 00934000 @07 EQU 07 00935000 @08 EQU 08 00936000 @09 EQU 09 00937000 @10 EQU 10 00938000 @11 EQU 11 00939000 @12 EQU 12 00940000 @13 EQU 13 00941000 @14 EQU 14 00942000 @15 EQU 15 00943000 RDATA EQU @10 00944000 IEDQAPTR EQU @04 00945000 LCBXPTR EQU @05 00946000 ROPCAVT EQU @02 00947000 ROPCE EQU @03 00948000 IEDQTPTR EQU @08 00949000 RZERO EQU @00 00950000 RPARM EQU @01 00951000 RAVT EQU @04 00952000 RWORK EQU @05 00953000 RTRM EQU @08 00954000 RSAVE EQU @13 00955000 RRET EQU @14 00956000 RBRNCH EQU @15 00957000 RRETCODE EQU @15 00958000 CVTPTR EQU 16 00959000 IEDQADW EQU 0 00960000 ADWRRTP EQU IEDQADW 00961000 ADWRVTP EQU IEDQADW+4 00962000 ADWENTP EQU IEDQADW+8 00963000 ADWENTRR EQU IEDQADW+12 00964000 ADWRSCP EQU IEDQADW+16 00965000 ADWENTRV EQU IEDQADW+20 00966000 ADWLGBP EQU IEDQADW+24 00967000 ADWLCBP EQU IEDQADW+28 00968000 ADWDCBP EQU IEDQADW+32 00969000 ADWBYTEP EQU IEDQADW+36 00970000 ADWLSTLN EQU IEDQADW+40 00971000 ADWLSTRM EQU IEDQADW+44 00972000 ADWNCPTE EQU IEDQADW+48 00973000 ADWNATP EQU IEDQADW+52 00974000 ADWSATP EQU IEDQADW+56 00975000 ADWSTGSZ EQU IEDQADW+60 00976000 ADWENTNM EQU IEDQADW+64 00977000 ADWENTSZ EQU IEDQADW+68 00978000 ADWPSNAN EQU IEDQADW+72 00979000 ADWCTR EQU IEDQADW+76 00980000 ADWENTCT EQU IEDQADW+80 00981000 ADWBSCCT EQU IEDQADW+84 00982000 ADWRVTLG EQU IEDQADW+88 00983000 ADWGETAR EQU IEDQADW+92 00984000 ADWFREAR EQU IEDQADW+104 00985000 ADWBLDL EQU IEDQADW+116 00986000 ADWLNTRY EQU ADWBLDL+4 00987000 ADWIPLTN EQU IEDQADW+178 00988000 ADWSRCH EQU IEDQADW+187 00989000 ADWISUBA EQU IEDQADW+188 00990000 ADWPADSZ EQU IEDQADW+189 00991000 ADWFLGS1 EQU IEDQADW+190 00992000 ADWFLGS2 EQU IEDQADW+191 00993000 ADWFLGS3 EQU IEDQADW+192 00994000 IEDQAVTD EQU 0 00995000 AVTSAVEX EQU IEDQAVTD+288 00996000 @NM00003 EQU IEDQAVTD+388 00997000 AVTCKFLG EQU @NM00003 00998000 AVTBASE EQU IEDQAVTD+412 00999000 AVTPKF EQU AVTBASE 01000000 AVTRNMPT EQU IEDQAVTD+424 01001000 AVTOSECB EQU IEDQAVTD+492 01002000 AVTECB1 EQU AVTOSECB 01003000 AVTHG02 EQU IEDQAVTD+528 01004000 AVTDISP EQU IEDQAVTD+552 01005000 AVTHD EQU IEDQAVTD+556 01006000 AVTSCOPT EQU AVTHD 01007000 AVTSAVTP EQU IEDQAVTD+612 01008000 AVTSAVTF EQU AVTSAVTP 01009000 AVTCKPEL EQU IEDQAVTD+652 01010000 AVTCKRMV EQU AVTCKPEL 01011000 AVTCKELF EQU IEDQAVTD+680 01012000 AVTCKBYT EQU IEDQAVTD+691 01013000 AVTHG01 EQU IEDQAVTD+692 01014000 AVTCKLNK EQU IEDQAVTD+696 01015000 AVTCRELE EQU IEDQAVTD+708 01016000 AVTCCELE EQU AVTCRELE 01017000 AVTCLRHI EQU IEDQAVTD+716 01018000 AVTADBUF EQU IEDQAVTD+720 01019000 AVTSYSER EQU IEDQAVTD+728 01020000 AVTBFREB EQU IEDQAVTD+780 01021000 AVTCKPQB EQU IEDQAVTD+804 01022000 AVTCKPTB EQU AVTCKPQB 01023000 AVTCKPEC EQU AVTCKPQB+4 01024000 AVTCKPCC EQU AVTCKPEC 01025000 AVTOPCQB EQU IEDQAVTD+816 01026000 AVTOPCOB EQU AVTOPCQB 01027000 AVTOPCEC EQU AVTOPCQB+4 01028000 AVTOPCCC EQU AVTOPCEC 01029000 AVTOLTQB EQU IEDQAVTD+828 01030000 AVTCWFL1 EQU IEDQAVTD+924 01031000 AVTCWFL2 EQU IEDQAVTD+925 01032000 AVTSUBT EQU IEDQAVTD+948 01033000 AVTIOTR EQU IEDQAVTD+949 01034000 AVTBIT1 EQU IEDQAVTD+1050 01035000 AVTBIT2 EQU IEDQAVTD+1051 01036000 AVTBIT3 EQU IEDQAVTD+1052 01037000 AVTBIT4 EQU IEDQAVTD+1136 01038000 @NM00085 EQU IEDQAVTD+1232 01039000 IEDNSVTD EQU 0 01040000 SAVTDIAG EQU IEDNSVTD 01041000 SAVTDIAF EQU SAVTDIAG 01042000 SAVTNAT EQU IEDNSVTD+76 01043000 SAVTSAT EQU IEDNSVTD+80 01044000 SAVTLUSQ EQU IEDNSVTD+88 01045000 SAVTMAND EQU IEDNSVTD+228 01046000 SAVTTCPU EQU IEDNSVTD+238 01047000 SAVTZELM EQU IEDNSVTD+270 01048000 SAVTSUBL EQU IEDNSVTD+272 01049000 SAVTRDRV EQU IEDNSVTD+284 01050000 SAVTCKQB EQU IEDNSVTD+300 01051000 SAVTCKTB EQU SAVTCKQB 01052000 SAVTCKEC EQU SAVTCKQB+4 01053000 SAVTCKCC EQU SAVTCKEC 01054000 CVTMAP EQU 0 01055000 CVTDAR EQU CVTMAP+72 01056000 CVTFLGS1 EQU CVTDAR 01057000 CVTDCB EQU CVTMAP+116 01058000 CVTIERLC EQU CVTMAP+144 01059000 CVTOPTA EQU CVTMAP+182 01060000 CVTOPTB EQU CVTMAP+183 01061000 CVTGTF EQU CVTMAP+236 01062000 CVTGTFST EQU CVTGTF 01063000 CVTGTFS EQU CVTGTFST 01064000 CVTSTATE EQU CVTGTFST 01065000 CVTTMODE EQU CVTGTFST 01066000 CVTFORM EQU CVTGTFST 01067000 CVTAQAVT EQU CVTMAP+240 01068000 CVTTCMFG EQU CVTAQAVT 01069000 CVTVOLM2 EQU CVTMAP+244 01070000 CVTTATA EQU CVTVOLM2 01071000 CVTTSKS EQU CVTTATA 01072000 CVTVOLF2 EQU CVTTSKS 01073000 CVTTAT EQU CVTTATA+1 01074000 CVTATER EQU CVTMAP+248 01075000 CVTEXT1 EQU CVTMAP+252 01076000 CVTPURG EQU CVTMAP+260 01077000 CVTQMSG EQU CVTMAP+268 01078000 CVTDMSR EQU CVTMAP+272 01079000 CVTRSV37 EQU CVTDMSR 01080000 CVTDMSRF EQU CVTRSV37 01081000 CVTERPV EQU CVTMAP+316 01082000 CVTINTLA EQU CVTMAP+320 01083000 CVTAPF EQU CVTMAP+324 01084000 CVTEXT2 EQU CVTMAP+328 01085000 CVTHJES EQU CVTMAP+332 01086000 CVTPGSIA EQU CVTMAP+348 01087000 CVTA1F1 EQU CVTMAP+356 01088000 CVTSYSK EQU CVTMAP+357 01089000 CVTVOLM1 EQU CVTMAP+380 01090000 CVTVOLF1 EQU CVTVOLM1 01091000 CVTATMCT EQU CVTMAP+388 01092000 CVTXTNT1 EQU 0 01093000 CVTXTNT2 EQU 0 01094000 CVTDSSV EQU CVTXTNT2 01095000 CVTFLGBT EQU CVTXTNT2+5 01096000 CVTQID EQU CVTXTNT2+24 01097000 CVTSHS EQU CVTXTNT2+40 01098000 CVTRV400 EQU CVTXTNT2+52 01099000 CVTRV409 EQU CVTXTNT2+53 01100000 CVTATCVT EQU CVTXTNT2+64 01101000 CVTRV429 EQU CVTXTNT2+84 01102000 CVTRV438 EQU CVTXTNT2+85 01103000 CVTRV457 EQU CVTXTNT2+112 01104000 CVTRV466 EQU CVTXTNT2+113 01105000 CVTFIX EQU 0 01106000 CVTRELNO EQU CVTFIX+252 01107000 IHADCB EQU 0 01108000 IHADCS1A EQU 0 01109000 DCBBCKUP EQU IHADCS1A+8 01110000 IHADCS2K EQU 0 01111000 DCBDUMPD EQU IHADCS2K 01112000 DCBTRSTA EQU IHADCS2K+5 01113000 DCBDSORG EQU IHADCS2K+6 01114000 DCBDSRG2 EQU DCBDSORG+1 01115000 DCBIOBAD EQU IHADCS2K+8 01116000 DCBRNCKD EQU IHADCS2K+12 01117000 DCBEXLST EQU IHADCS2K+16 01118000 DCBEIOBX EQU DCBEXLST 01119000 IHADCS24 EQU 0 01120000 DCBOFLGS EQU IHADCS24+8 01121000 DCBOFLWR EQU DCBOFLGS 01122000 DCBIFLG EQU IHADCS24+9 01123000 DCBIBPCT EQU DCBIFLG 01124000 DCBMACR EQU IHADCS24+10 01125000 DCBMACR1 EQU DCBMACR 01126000 DCBMRFE EQU DCBMACR1 01127000 DCBMRGET EQU DCBMRFE 01128000 DCBMRAPG EQU DCBMACR1 01129000 DCBMRRD EQU DCBMRAPG 01130000 DCBMRCI EQU DCBMACR1 01131000 DCBMRMVG EQU DCBMRCI 01132000 DCBMRLCG EQU DCBMACR1 01133000 DCBMRABC EQU DCBMACR1 01134000 DCBMRPT1 EQU DCBMRABC 01135000 DCBMRSBG EQU DCBMRPT1 01136000 DCBMRCRL EQU DCBMACR1 01137000 DCBMRCHK EQU DCBMRCRL 01138000 DCBMRRDX EQU DCBMRCHK 01139000 DCBMRDMG EQU DCBMACR1 01140000 DCBMACR2 EQU DCBMACR+1 01141000 DCBMRPUT EQU DCBMACR2 01142000 DCBMRWRT EQU DCBMACR2 01143000 DCBMRMVP EQU DCBMACR2 01144000 DCBMR5WD EQU DCBMACR2 01145000 DCBMRLDM EQU DCBMR5WD 01146000 DCBMRLCP EQU DCBMRLDM 01147000 DCBMR4WD EQU DCBMACR2 01148000 DCBMRPT2 EQU DCBMR4WD 01149000 DCBMRTMD EQU DCBMRPT2 01150000 DCBMR3WD EQU DCBMACR2 01151000 DCBMRCTL EQU DCBMR3WD 01152000 DCBMRSTK EQU DCBMRCTL 01153000 DCBMR1WD EQU DCBMACR2 01154000 DCBMRSWA EQU DCBMR1WD 01155000 DCBMRDMD EQU DCBMRSWA 01156000 IHADCS25 EQU 0 01157000 DCBMACRF EQU IHADCS25+2 01158000 DCBMACF1 EQU DCBMACRF 01159000 DCBMFFE EQU DCBMACF1 01160000 DCBMFGET EQU DCBMFFE 01161000 DCBMFAPG EQU DCBMACF1 01162000 DCBMFRD EQU DCBMFAPG 01163000 DCBMFCI EQU DCBMACF1 01164000 DCBMFMVG EQU DCBMFCI 01165000 DCBMFLCG EQU DCBMACF1 01166000 DCBMFABC EQU DCBMACF1 01167000 DCBMFPT1 EQU DCBMFABC 01168000 DCBMFSBG EQU DCBMFPT1 01169000 DCBMFCRL EQU DCBMACF1 01170000 DCBMFCHK EQU DCBMFCRL 01171000 DCBMFDMG EQU DCBMACF1 01172000 DCBMACF2 EQU DCBMACRF+1 01173000 DCBMFPUT EQU DCBMACF2 01174000 DCBMFWRT EQU DCBMACF2 01175000 DCBMFMVP EQU DCBMACF2 01176000 DCBMF5WD EQU DCBMACF2 01177000 DCBMFLDM EQU DCBMF5WD 01178000 DCBMFLCP EQU DCBMFLDM 01179000 DCBMF4WD EQU DCBMACF2 01180000 DCBMFPT2 EQU DCBMF4WD 01181000 DCBMFTMD EQU DCBMFPT2 01182000 DCBMF3WD EQU DCBMACF2 01183000 DCBMFCTL EQU DCBMF3WD 01184000 DCBMFSTK EQU DCBMFCTL 01185000 DCBMF1WD EQU DCBMACF2 01186000 DCBMFSWA EQU DCBMF1WD 01187000 DCBMFDMD EQU DCBMFSWA 01188000 DCBDEBAD EQU IHADCS25+4 01189000 DCBIFLGS EQU DCBDEBAD 01190000 DCBIFPCT EQU DCBIFLGS 01191000 IHADCS27 EQU 0 01192000 DCBGET EQU IHADCS27 01193000 DCBPUT EQU DCBGET 01194000 DCBGETA EQU DCBPUT+1 01195000 IHADCS43 EQU 0 01196000 DCBSCTAB EQU IHADCS43 01197000 DCBUNTCT EQU IHADCS43+5 01198000 IEDQLCB EQU 0 01199000 LCBRCB EQU IEDQLCB 01200000 LCBTSOB EQU IEDQLCB+19 01201000 LCBCHAIN EQU IEDQLCB+20 01202000 LCBSCRNN EQU LCBCHAIN 01203000 LCBTETEN EQU LCBCHAIN 01204000 LCBINSRC EQU IEDQLCB+21 01205000 LCBLKMDE EQU LCBINSRC+2 01206000 LCBNTXT EQU IEDQLCB+24 01207000 LCBSTAT4 EQU LCBNTXT 01208000 LCBPHASE EQU LCBSTAT4 01209000 LCBSCBDA EQU IEDQLCB+25 01210000 LCBMHA EQU IEDQLCB+29 01211000 LCBFLAG1 EQU IEDQLCB+32 01212000 LCBIOBSN EQU IEDQLCB+33 01213000 LCBSNS EQU LCBIOBSN+1 01214000 LCBSENS0 EQU LCBSNS 01215000 LCBLOSDT EQU LCBSENS0 01216000 LCBTMOUT EQU LCBSENS0 01217000 LCBFLAG3 EQU LCBIOBSN+7 01218000 LCBCSW EQU LCBIOBSN+8 01219000 LCBCSWST EQU LCBCSW+3 01220000 LCBCSWUS EQU LCBCSWST 01221000 LCBCSWCS EQU LCBCSWST+1 01222000 LCBSIOCC EQU LCBIOBSN+15 01223000 LCBDCBPT EQU IEDQLCB+52 01224000 LCBRCQCB EQU IEDQLCB+56 01225000 LCBTHSQ EQU IEDQLCB+60 01226000 LCBINCAM EQU LCBTHSQ 01227000 LCBERRCT EQU IEDQLCB+62 01228000 LCBLSPCI EQU IEDQLCB+65 01229000 LCBRCBFR EQU LCBLSPCI 01230000 LCBSTATE EQU IEDQLCB+70 01231000 LCBSTAT1 EQU LCBSTATE 01232000 LCBSTAT2 EQU LCBSTATE+1 01233000 LCBBEOTN EQU LCBSTAT2 01234000 LCBSYNC EQU LCBSTAT2 01235000 LCBDIAL EQU LCBSTAT2 01236000 LCBTSTSW EQU IEDQLCB+72 01237000 LCBERB EQU IEDQLCB+76 01238000 LCBERBQB EQU LCBERB+1 01239000 LCBERBPY EQU IEDQLCB+80 01240000 LCBERBST EQU IEDQLCB+84 01241000 LCBPRCPG EQU LCBERBST 01242000 LCBDLNKN EQU LCBERBST 01243000 LCBERBCT EQU IEDQLCB+88 01244000 LCBRBCT1 EQU LCBERBCT 01245000 LCBRBCT2 EQU LCBERBCT+1 01246000 LCBMSGFM EQU IEDQLCB+92 01247000 LCBOBRCH EQU IEDQLCB+96 01248000 LCBINVPT EQU LCBOBRCH+1 01249000 LCBBFRW EQU LCBINVPT 01250000 LCBTPCD EQU IEDQLCB+100 01251000 LCBSTAT5 EQU LCBTPCD 01252000 LCBSTAT6 EQU LCBTPCD+4 01253000 LCBRSPSV EQU LCBTPCD+8 01254000 LCBSAVSN EQU IEDQLCB+112 01255000 LCBERCCW EQU IEDQLCB+120 01256000 LCBCPA EQU IEDQLCB+144 01257000 LCBCCW5 EQU LCBCPA+32 01258000 IEDQLCBX EQU 0 01259000 LCBXCON EQU IEDQLCBX 01260000 LCBXFLAG EQU LCBXCON 01261000 LCBXDCT EQU LCBXCON+1 01262000 LCBXRADR EQU LCBXCON+4 01263000 IEDNATD EQU 0 01264000 NATODAF EQU IEDNATD 01265000 IEDQOPCD EQU 0 01266000 OPCAVTPT EQU IEDQOPCD+8 01267000 OPCCOPCE EQU IEDQOPCD+12 01268000 OPCSAVE EQU IEDQOPCD+56 01269000 OPCWORK EQU IEDQOPCD+140 01270000 OPCAQCTL EQU IEDQOPCD+180 01271000 OPCXCTL EQU IEDQOPCD+204 01272000 OPCLDNME EQU IEDQOPCD+212 01273000 OPCMODID EQU OPCLDNME+3 01274000 OPCGETBF EQU IEDQOPCD+276 01275000 OPCSPEC EQU IEDQOPCD+300 01276000 OPCADGOT EQU IEDQOPCD+318 01277000 OPCPWCOB EQU IEDQOPCD+368 01278000 OPCPWQCB EQU OPCPWCOB 01279000 OPCPWECB EQU OPCPWCOB+4 01280000 IEDQOPCE EQU 0 01281000 OCELEM EQU IEDQOPCE+4 01282000 OCELMPRI EQU OCELEM 01283000 OCUNIT EQU IEDQOPCE+8 01284000 OCRUDEST EQU OCUNIT 01285000 OCCKPKEY EQU OCRUDEST 01286000 OCSCAN EQU OCCKPKEY 01287000 OCOPTCDE EQU IEDQOPCE+12 01288000 OCPRIFLG EQU OCOPTCDE 01289000 OCSWITCH EQU IEDQOPCE+13 01290000 OCFLAG EQU IEDQOPCE+14 01291000 @NM00173 EQU IEDQOPCE+16 01292000 OCDEST EQU @NM00173 01293000 OCREQVAL EQU OCDEST+1 01294000 OCTRMTBL EQU IEDQOPCE+20 01295000 OCLINENO EQU IEDQOPCE+22 01296000 OCTIOT EQU OCLINENO 01297000 OCTRUNIT EQU IEDQOPCE+24 01298000 OCRSID EQU OCTRUNIT 01299000 OCALSTAT EQU OCRSID 01300000 OCACTREQ EQU OCALSTAT 01301000 OCPARM EQU IEDQOPCE+28 01302000 OCWTG EQU IEDQOPCE+30 01303000 OCBACKUP EQU IEDQOPCE+32 01304000 OCMODNME EQU IEDQOPCE+40 01305000 OCIPLWA EQU OCMODNME 01306000 OCPTRSAV EQU OCMODNME+4 01307000 OCCKDATA EQU IEDQOPCE+48 01308000 OCRSTGTM EQU OCCKDATA 01309000 IEDQOPCN EQU 0 01310000 OCLDNME EQU IEDQOPCN 01311000 OCLINTTE EQU OCLDNME 01312000 OCREQFLG EQU OCLINTTE+2 01313000 OCADNCP EQU OCREQFLG 01314000 OCPREFLG EQU OCLINTTE+3 01315000 IEDOPRED EQU 0 01316000 OPRESAVE EQU IEDOPRED+8 01317000 OPREFLG3 EQU IEDOPRED+14 01318000 IEDQQCB EQU 0 01319000 QCBDSFLG EQU IEDQQCB 01320000 QCBDISK EQU QCBDSFLG 01321000 QCBEOLDT EQU IEDQQCB+16 01322000 QCBBYTE1 EQU QCBEOLDT+1 01323000 QCBLKRLN EQU IEDQQCB+18 01324000 QCBRETCT EQU QCBLKRLN 01325000 QCBSTAT EQU IEDQQCB+19 01326000 QCBINSRC EQU IEDQQCB+21 01327000 @NM00188 EQU QCBINSRC 01328000 QCBTSOF2 EQU @NM00188+1 01329000 QCBTSOF1 EQU @NM00188+2 01330000 QCBINTVL EQU IEDQQCB+24 01331000 QCBPREN EQU IEDQQCB+28 01332000 QCBLKRRN EQU QCBPREN+1 01333000 QCBDCBAD EQU IEDQQCB+33 01334000 QCBFLAG EQU IEDQQCB+36 01335000 IEDQPQCB EQU 0 01336000 QCBFHDLZ EQU IEDQPQCB+3 01337000 QCBPFEFO EQU QCBFHDLZ+1 01338000 QCBFHDTZ EQU IEDQPQCB+6 01339000 QCBINTLF EQU IEDQPQCB+12 01340000 IEDNQCB EQU 0 01341000 QCBSTAT1 EQU IEDNQCB+4 01342000 QCBPLCBA EQU IEDNQCB+5 01343000 IEDNRRT EQU 0 01344000 IEDNRTRM EQU 0 01345000 RRTERMNM EQU IEDNRTRM 01346000 RRTRSID EQU IEDNRTRM+8 01347000 RRTRMTP1 EQU IEDNRTRM+10 01348000 RRTLINE EQU RRTRMTP1 01349000 RRTDEVCE EQU RRTRMTP1 01350000 RRTSWTCH EQU RRTRMTP1 01351000 RRTRMTP2 EQU IEDNRTRM+11 01352000 RRTCLSTR EQU RRTRMTP2 01353000 RRTCTERM EQU RRTRMTP2 01354000 RRTSNA EQU RRTRMTP2 01355000 RRTGPTRM EQU RRTRMTP2 01356000 IEDRVTD EQU 0 01357000 RVTNUM EQU IEDRVTD 01358000 RVTINDEX EQU IEDRVTD+2 01359000 IEDSATD EQU 0 01360000 SATRNLCB EQU IEDSATD 01361000 SATRNRVT EQU IEDSATD+4 01362000 IEDQTCXD EQU 0 01363000 TCXATTEN EQU IEDQTCXD+4 01364000 TCXFLAG1 EQU IEDQTCXD+34 01365000 TCXBUFA EQU IEDQTCXD+80 01366000 TCXDSAVE EQU IEDQTCXD+104 01367000 TCXQE8 EQU IEDQTCXD+216 01368000 IEDQTRM EQU 0 01369000 TRMSTATE EQU IEDQTRM 01370000 TRMLINE EQU TRMSTATE 01371000 TRMLOG EQU TRMSTATE 01372000 TRMPREF EQU TRMSTATE 01373000 TRMDESTQ EQU IEDQTRM+1 01374000 TRMINSEQ EQU IEDQTRM+4 01375000 TLISTCNT EQU TRMINSEQ 01376000 TRMUTERM EQU TLISTCNT 01377000 TRMOUTSQ EQU IEDQTRM+6 01378000 TLISTEN EQU TRMOUTSQ 01379000 TRMDSORG EQU TLISTEN 01380000 TRMALTD EQU IEDQTRM+8 01381000 TRMDEVFL EQU IEDQTRM+10 01382000 TRMSTAT EQU IEDQTRM+12 01383000 IEDNTRM EQU 0 01384000 TRMBYTE4 EQU IEDNTRM 01385000 TRMBYTE3 EQU IEDNTRM+1 01386000 TRMBYTE2 EQU IEDNTRM+2 01387000 TRMINPG EQU TRMBYTE2 01388000 TRMBYTE1 EQU IEDNTRM+3 01389000 TRMSCPRQ EQU TRMBYTE1 01390000 TRMCOHRT EQU IEDNTRM+4 01391000 TRMBYTE0 EQU IEDNTRM+6 01392000 TRMDIAL EQU TRMBYTE0 01393000 TRMGP EQU TRMBYTE0 01394000 TRMSNA EQU TRMBYTE0 01395000 TRMSIBPT EQU IEDNTRM+7 01396000 TRMTYPE EQU IEDNTRM+11 01397000 TRMSUBST EQU IEDNTRM+12 01398000 IEDQTNT EQU 0 01399000 IEDQE8 EQU 0 01400000 ALLOCBUF EQU 0 01401000 RRTPTR EQU ADWRRTP 01402000 RVTPTR EQU ADWRVTP 01403000 ENTADDRR EQU ADWENTRR 01404000 RSCPTR EQU ADWRSCP 01405000 ENTADDRV EQU ADWENTRV 01406000 LGBPTR EQU ADWLGBP 01407000 LCBPTR EQU ADWLCBP 01408000 DCBPTR EQU ADWDCBP 01409000 LASTLINE EQU ADWLSTLN 01410000 LASTTERM EQU ADWLSTRM 01411000 NCPTTEA EQU ADWNCPTE 01412000 IEDQNATP EQU ADWNATP 01413000 IEDQSATP EQU ADWSATP 01414000 ENTRYNUM EQU ADWENTNM 01415000 ENTRYSIZ EQU ADWENTSZ 01416000 PSNANUM EQU ADWPSNAN 01417000 ENTCTR EQU ADWENTCT 01418000 BSCTR EQU ADWBSCCT 01419000 BLDLIST EQU ADWBLDL 01420000 BLDLNTRY EQU BLDLIST+4 01421000 BLDLNAME EQU BLDLNTRY 01422000 ISOSUBA EQU ADWISUBA 01423000 FLAGS1 EQU ADWFLGS1 01424000 FLAGS2 EQU ADWFLGS2 01425000 LINEDEL EQU FLAGS2 01426000 PUDEL EQU FLAGS2 01427000 CTERMDEL EQU FLAGS2 01428000 GPCLUST EQU FLAGS2 01429000 FLAGS3 EQU ADWFLGS3 01430000 MANDLSW EQU FLAGS3 01431000 CVTS01 EQU CVTPGSIA 01432000 CVTLPDIA EQU CVTS01+12 01433000 CVTDIRST EQU CVTLPDIA 01434000 CVTSLIDA EQU CVTS01+24 01435000 CVTCTLFG EQU CVTS01+50 01436000 CVTRV210 EQU CVTS01+424 01437000 CVTRV219 EQU CVTS01+425 01438000 CVTRV228 EQU CVTS01+426 01439000 CVTRV237 EQU CVTS01+427 01440000 CVTMFRTR EQU CVTS01+452 01441000 CVTRV262 EQU CVTS01+468 01442000 CVTRV271 EQU CVTS01+469 01443000 CVTRV280 EQU CVTS01+470 01444000 CVTRV289 EQU CVTS01+471 01445000 CVTGSDA EQU CVTS01+600 01446000 IEDQLPTR EQU LCBPTR 01447000 LCBRSPIN EQU LCBIOBSN 01448000 LCBLUSNS EQU LCBRSPIN+5 01449000 LCBSCPRS EQU LCBRSPIN+9 01450000 LCBCSWU1 EQU LCBSCPRS+2 01451000 LCBRSPFG EQU LCBRSPIN+15 01452000 LCBCOREQ EQU LCBTPCD 01453000 @NM00143 EQU LCBCPA+40 01454000 LCBQNX EQU LCBERCCW 01455000 LCBQNXMN EQU LCBQNX 01456000 LCBQEBPL EQU LCBQNX+4 01457000 LCBCANCL EQU LCBSAVSN 01458000 LCBCANFG EQU LCBCANCL 01459000 OPCAQWD EQU OPCAQCTL 01460000 OPCAQWD1 EQU OPCAQWD 01461000 OPCAQWD2 EQU OPCAQWD+4 01462000 OPCAQWD3 EQU OPCAQWD+8 01463000 OCCKPKY1 EQU OCCKPKEY 01464000 OCCKPTYP EQU OCCKPKY1 01465000 OCICACTN EQU OCMODNME 01466000 OCICDADR EQU OCICACTN 01467000 OCICSW EQU OCICDADR+3 01468000 IEDQQPTR EQU TRMDESTQ 01469000 IEDNRPTR EQU RRTPTR 01470000 IEDQRVTP EQU ENTADDRV 01471000 TCXPTR EQU CVTAQAVT 01472000 TRMPRE1 EQU TRMBYTE4 01473000 TRMNCP1 EQU TRMBYTE4 01474000 TRMPRE EQU TRMBYTE3 01475000 TRMNCP EQU TRMBYTE3 01476000 TRMPU EQU TRMBYTE3 01477000 TRMLU EQU TRMBYTE3 01478000 TRMLINK EQU TRMBYTE3 01479000 AQCTLPL EQU OPCAQCTL 01480000 AQCTL1 EQU AQCTLPL 01481000 AQCTLFG1 EQU AQCTL1 01482000 AQCTL2 EQU AQCTLPL+4 01483000 AQCTLFG2 EQU AQCTL2 01484000 BYTEPTR EQU ADWBYTEP 01485000 CTR EQU ADWCTR 01486000 ENTRYPTR EQU ADWENTP 01487000 FREEAREA EQU ADWFREAR 01488000 GETAREA EQU ADWGETAR 01489000 IEDNLPTR EQU LGBPTR 01490000 IPLTXTNM EQU ADWIPLTN 01491000 OCCIB EQU OCREQVAL 01492000 PADSIZE EQU ADWPADSZ 01493000 RVTLGTH EQU ADWRVTLG 01494000 SRCH EQU ADWSRCH 01495000 STGSIZE EQU ADWSTGSZ 01496000 TRMOPT EQU IEDQTRM+20 01497000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01498000 @NM00204 EQU AQCTL2+1 01499000 @NM00203 EQU AQCTL1+1 01500000 @NM00202 EQU TRMLINK 01501000 TRMLSTAT EQU TRMLINK 01502000 TRMLINT EQU TRMLINK 01503000 TRMEPMOD EQU TRMLINK 01504000 TRMLULOG EQU TRMLU 01505000 TRMINERR EQU TRMLU 01506000 TRMLUREQ EQU TRMLU 01507000 TRMSESRQ EQU TRMLU 01508000 TRMTDIFF EQU TRMLU 01509000 TRMLUTM EQU TRMLU 01510000 TRMLUIT EQU TRMLU 01511000 TRMAUTO EQU TRMLU 01512000 TRMPCONT EQU TRMPU 01513000 @NM00201 EQU TRMPU 01514000 TRMNCONT EQU TRMNCP 01515000 TRMQUCKN EQU TRMNCP 01516000 TRMSLOWN EQU TRMNCP 01517000 TRMSYGEN EQU TRMNCP 01518000 TRMNCPCL EQU TRMNCP 01519000 TRMIPLDM EQU TRMNCP 01520000 TRMINOUT EQU TRMPRE 01521000 TRMRDOUT EQU TRMPRE 01522000 TRMNLOUT EQU TRMPRE 01523000 TRMWROUT EQU TRMPRE 01524000 TRMASNXI EQU TRMPRE 01525000 TRMSTMM EQU TRMPRE 01526000 TRMCMODE EQU TRMPRE 01527000 TRMSTPND EQU TRMPRE 01528000 @NM00200 EQU TRMNCP1 01529000 TRMINOP EQU TRMNCP1 01530000 TRMLYNCH EQU TRMPRE1 01531000 TRMSPOUT EQU TRMPRE1 01532000 TRMERLCK EQU TRMPRE1 01533000 TRMQNPL EQU TRMPRE1 01534000 TRMSPACT EQU TRMPRE1 01535000 TRMOCNI EQU TRMPRE1 01536000 TRMSESSN EQU TRMPRE1 01537000 TRMCONT EQU TRMPRE1 01538000 OCICINAC EQU OCICSW 01539000 @NM00179 EQU OCICSW 01540000 OCICATST EQU OCICDADR+1 01541000 OCICTYPE EQU OCICDADR 01542000 @NM00178 EQU OCCKPKY1 01543000 OCCKPENV EQU OCCKPKY1 01544000 OCCKPRST EQU OCCKPTYP 01545000 OCCKPNCP EQU OCCKPTYP 01546000 OCCKPINC EQU OCCKPTYP 01547000 OPCAQLST EQU OPCAQWD3+1 01548000 OPCAQRQ3 EQU OPCAQWD3 01549000 OPCAQSEC EQU OPCAQWD2+1 01550000 OPCAQRQ2 EQU OPCAQWD2 01551000 OPCAQFST EQU OPCAQWD1+1 01552000 OPCAQREQ EQU OPCAQWD1 01553000 @NM00150 EQU LCBCANCL+3 01554000 LCBCANTH EQU LCBCANCL+1 01555000 @NM00149 EQU LCBCANFG 01556000 LCBCANCD EQU LCBCANFG 01557000 @NM00148 EQU LCBCANFG 01558000 LCBCANEB EQU LCBCANFG 01559000 LCBCANXT EQU LCBCANFG 01560000 LCBUNADD EQU LCBQNX+21 01561000 LCBUASZE EQU LCBQNX+20 01562000 LCBDSTEA EQU LCBQNX+16 01563000 @NM00147 EQU LCBQNX+12 01564000 LCBCP EQU LCBQEBPL+4 01565000 LCBIOSB EQU LCBQEBPL+1 01566000 LCBSIO EQU LCBQEBPL 01567000 LCBSTSAV EQU LCBQNX+1 01568000 @NM00146 EQU LCBQNXMN 01569000 LCBNX509 EQU LCBQNXMN 01570000 LCBNX162 EQU LCBQNXMN 01571000 LCBNX142 EQU LCBQNXMN 01572000 LCBNX064 EQU LCBQNXMN 01573000 @NM00145 EQU @NM00143+4 01574000 LCBNCPPT EQU @NM00143+1 01575000 @NM00144 EQU @NM00143 01576000 LCBWRSCH EQU LCBCOREQ+8 01577000 LCBCQLNK EQU LCBCOREQ+4 01578000 LCBCQELE EQU LCBCOREQ 01579000 LCBPAKCH EQU LCBRSPIN+16 01580000 @NM00142 EQU LCBRSPFG 01581000 LCBRSRH EQU LCBRSPFG 01582000 LCBEXPI EQU LCBRSPFG 01583000 @NM00141 EQU LCBRSPIN+12 01584000 LCBUSUE1 EQU LCBCSWU1 01585000 @NM00140 EQU LCBCSWU1 01586000 @NM00139 EQU LCBSCPRS+1 01587000 LCBDFCMD EQU LCBSCPRS 01588000 LCBUSER EQU LCBLUSNS+2 01589000 LCBSMIN EQU LCBLUSNS+1 01590000 LCBSMAJ EQU LCBLUSNS 01591000 LCBRHSV EQU LCBRSPIN+2 01592000 LCBSNS0 EQU LCBRSPIN+1 01593000 @NM00138 EQU LCBRSPIN 01594000 CVTRV628 EQU CVTS01+728 01595000 CVTRV627 EQU CVTS01+724 01596000 CVTRV626 EQU CVTS01+720 01597000 CVTRV625 EQU CVTS01+716 01598000 CVTRV624 EQU CVTS01+712 01599000 CVTRV623 EQU CVTS01+708 01600000 CVTRV622 EQU CVTS01+704 01601000 CVTRV621 EQU CVTS01+700 01602000 CVTRV620 EQU CVTS01+696 01603000 CVTRV619 EQU CVTS01+692 01604000 CVTRV618 EQU CVTS01+688 01605000 CVTRV617 EQU CVTS01+684 01606000 CVTRV616 EQU CVTS01+680 01607000 CVTRV615 EQU CVTS01+676 01608000 CVTRV614 EQU CVTS01+672 01609000 CVTRV613 EQU CVTS01+668 01610000 CVTTCASP EQU CVTS01+664 01611000 CVT0PT03 EQU CVTS01+660 01612000 CVT0PT0E EQU CVTS01+656 01613000 CVTIRM EQU CVTS01+652 01614000 CVTCGK EQU CVTS01+648 01615000 CVTRV607 EQU CVTS01+644 01616000 CVTRV606 EQU CVTS01+640 01617000 CVTRV605 EQU CVTS01+636 01618000 CVTRV604 EQU CVTS01+632 01619000 CVTEFF02 EQU CVTS01+628 01620000 CVTCBBR EQU CVTS01+624 01621000 CVTSSCR EQU CVTS01+620 01622000 CVTEVENT EQU CVTS01+616 01623000 CVTCRCA EQU CVTS01+612 01624000 CVTTPIO EQU CVTS01+608 01625000 CVTADV EQU CVTS01+604 01626000 CVTGSDAB EQU CVTGSDA 01627000 CVTQV3 EQU CVTS01+596 01628000 CVTQV2 EQU CVTS01+592 01629000 CVTQV1 EQU CVTS01+588 01630000 CVTRPT EQU CVTS01+584 01631000 CVTSSRB EQU CVTS01+580 01632000 CVTCSDRL EQU CVTS01+576 01633000 CVTEXP1 EQU CVTS01+572 01634000 CVTRMPMT EQU CVTS01+568 01635000 CVTRMPTT EQU CVTS01+564 01636000 CVTVPSA EQU CVTS01+560 01637000 CVTVSTOP EQU CVTS01+556 01638000 CVTGTFR8 EQU CVTS01+552 01639000 CVTQUIT EQU CVTS01+548 01640000 CVTVACR EQU CVTS01+544 01641000 CVTWTCB EQU CVTS01+540 01642000 CVTSTPRS EQU CVTS01+536 01643000 CVT0PT02 EQU CVTS01+532 01644000 CVTDARCM EQU CVTS01+528 01645000 CVTIRECM EQU CVTS01+524 01646000 CVTJRECM EQU CVTS01+520 01647000 CVTVEMS0 EQU CVTS01+516 01648000 CVTSPFRR EQU CVTS01+512 01649000 CVTRLSTG EQU CVTS01+508 01650000 CVT0TC0A EQU CVTS01+504 01651000 CVTGMBR EQU CVTS01+500 01652000 CVTLFRM EQU CVTS01+496 01653000 CVTRMBR EQU CVTS01+492 01654000 CVTVIOP EQU CVTS01+488 01655000 CVTRV307 EQU CVTS01+486 01656000 CVTRV306 EQU CVTS01+484 01657000 CVTRV305 EQU CVTS01+482 01658000 CVTRV304 EQU CVTS01+480 01659000 CVTRV303 EQU CVTS01+478 01660000 CVTRV302 EQU CVTS01+476 01661000 CVTTRCA EQU CVTS01+472 01662000 CVTRV297 EQU CVTRV289 01663000 CVTRV296 EQU CVTRV289 01664000 CVTRV295 EQU CVTRV289 01665000 CVTRV294 EQU CVTRV289 01666000 CVTRV293 EQU CVTRV289 01667000 CVTRV292 EQU CVTRV289 01668000 CVTRV291 EQU CVTRV289 01669000 CVTRV290 EQU CVTRV289 01670000 CVTRV288 EQU CVTRV280 01671000 CVTRV287 EQU CVTRV280 01672000 CVTRV286 EQU CVTRV280 01673000 CVTRV285 EQU CVTRV280 01674000 CVTRV284 EQU CVTRV280 01675000 CVTRV283 EQU CVTRV280 01676000 CVTRV282 EQU CVTRV280 01677000 CVTRV281 EQU CVTRV280 01678000 CVTRV279 EQU CVTRV271 01679000 CVTRV278 EQU CVTRV271 01680000 CVTRV277 EQU CVTRV271 01681000 CVTRV276 EQU CVTRV271 01682000 CVTRV275 EQU CVTRV271 01683000 CVTRV274 EQU CVTRV271 01684000 CVTRV273 EQU CVTRV271 01685000 CVTRV272 EQU CVTRV271 01686000 CVTRV270 EQU CVTRV262 01687000 CVTRV269 EQU CVTRV262 01688000 CVTRV268 EQU CVTRV262 01689000 CVTRV267 EQU CVTRV262 01690000 CVTRV266 EQU CVTRV262 01691000 CVTRV265 EQU CVTRV262 01692000 CVTRV264 EQU CVTRV262 01693000 CVTRV263 EQU CVTRV262 01694000 CVTVFP EQU CVTS01+464 01695000 CVTVSI EQU CVTS01+460 01696000 CVTVPSIB EQU CVTS01+456 01697000 CVTMFACT EQU CVTMFRTR 01698000 CVTMFCTL EQU CVTS01+448 01699000 CVTPVBP EQU CVTS01+444 01700000 CVTPWI EQU CVTS01+440 01701000 CVTRV254 EQU CVTS01+438 01702000 CVTRV253 EQU CVTS01+436 01703000 CVTRV252 EQU CVTS01+434 01704000 CVTRV251 EQU CVTS01+433 01705000 CVTRV250 EQU CVTS01+432 01706000 CVTRV249 EQU CVTS01+431 01707000 CVTRV248 EQU CVTS01+430 01708000 CVTRV247 EQU CVTS01+429 01709000 CVTRV246 EQU CVTS01+428 01710000 CVTRV245 EQU CVTRV237 01711000 CVTRV244 EQU CVTRV237 01712000 CVTRV243 EQU CVTRV237 01713000 CVTRV242 EQU CVTRV237 01714000 CVTRV241 EQU CVTRV237 01715000 CVTRV240 EQU CVTRV237 01716000 CVTRV239 EQU CVTRV237 01717000 CVTRV238 EQU CVTRV237 01718000 CVTRV236 EQU CVTRV228 01719000 CVTRV235 EQU CVTRV228 01720000 CVTRV234 EQU CVTRV228 01721000 CVTRV233 EQU CVTRV228 01722000 CVTRV232 EQU CVTRV228 01723000 CVTRV231 EQU CVTRV228 01724000 CVTRV230 EQU CVTRV228 01725000 CVTRV229 EQU CVTRV228 01726000 CVTRV227 EQU CVTRV219 01727000 CVTRV226 EQU CVTRV219 01728000 CVTRV225 EQU CVTRV219 01729000 CVTRV224 EQU CVTRV219 01730000 CVTRV223 EQU CVTRV219 01731000 CVTRV222 EQU CVTRV219 01732000 CVTRV221 EQU CVTRV219 01733000 CVTRV220 EQU CVTRV219 01734000 CVTRV218 EQU CVTRV210 01735000 CVTRV217 EQU CVTRV210 01736000 CVTRV216 EQU CVTRV210 01737000 CVTRV215 EQU CVTRV210 01738000 CVTRV214 EQU CVTRV210 01739000 CVTRV213 EQU CVTRV210 01740000 CVTRV212 EQU CVTRV210 01741000 CVTRV211 EQU CVTRV210 01742000 CVTLCCAT EQU CVTS01+420 01743000 CVTPCCAT EQU CVTS01+416 01744000 CVTIPCRP EQU CVTS01+412 01745000 CVTIPCRI EQU CVTS01+408 01746000 CVTIPCDS EQU CVTS01+404 01747000 CVTAIDVT EQU CVTS01+400 01748000 CVTSSAP EQU CVTS01+396 01749000 CVTEHCIR EQU CVTS01+392 01750000 CVTEHDEF EQU CVTS01+388 01751000 CVTDAIR EQU CVTS01+384 01752000 CVTPERFM EQU CVTS01+380 01753000 CVT044R2 EQU CVTS01+376 01754000 CVTFETCH EQU CVTS01+372 01755000 CVTRSTWD EQU CVTS01+368 01756000 CVTSPOST EQU CVTS01+364 01757000 CVTIOBP EQU CVTS01+360 01758000 CVTASMVT EQU CVTS01+356 01759000 CVTRECRQ EQU CVTS01+352 01760000 CVTWSAC EQU CVTS01+348 01761000 CVTRV149 EQU CVTS01+344 01762000 CVTWSAL EQU CVTS01+340 01763000 CVTSPSA EQU CVTS01+336 01764000 CVTGLMN EQU CVTS01+332 01765000 CVTVEAC0 EQU CVTS01+328 01766000 CVT062R1 EQU CVTS01+324 01767000 CVTRPOST EQU CVTS01+320 01768000 CVTDQIQE EQU CVTS01+316 01769000 CVTCSD EQU CVTS01+312 01770000 CVTLKRMA EQU CVTS01+308 01771000 CVTRSPIE EQU CVTS01+304 01772000 CVTRENQ EQU CVTS01+300 01773000 CVTLQCB EQU CVTS01+296 01774000 CVTFQCB EQU CVTS01+292 01775000 CVTQCS01 EQU CVTS01+288 01776000 CVTAPFT EQU CVTS01+284 01777000 CVTPARRL EQU CVTS01+280 01778000 CVTVWAIT EQU CVTS01+276 01779000 CVTGSPL EQU CVTS01+272 01780000 CVTLSMQ EQU CVTS01+268 01781000 CVTGSMQ EQU CVTS01+264 01782000 CVTEXPRO EQU CVTS01+260 01783000 CVTOPCTP EQU CVTS01+256 01784000 CVTSIC EQU CVTS01+252 01785000 CVTTPIOS EQU CVTS01+248 01786000 CVTRTMS EQU CVTS01+244 01787000 CVTSDBF EQU CVTS01+240 01788000 CVTSCBP EQU CVTS01+236 01789000 CVTSDMP EQU CVTS01+232 01790000 CVTSV60 EQU CVTS01+228 01791000 CVTRTMCT EQU CVTS01+224 01792000 CVTASCBL EQU CVTS01+220 01793000 CVTASCBH EQU CVTS01+216 01794000 CVTGDA EQU CVTS01+212 01795000 CVTASVT EQU CVTS01+208 01796000 CVTVVMDI EQU CVTS01+204 01797000 CVTAQTOP EQU CVTS01+200 01798000 CVTIOSCS EQU CVTS01+196 01799000 CVTSDRM EQU CVTS01+192 01800000 CVTOPTE EQU CVTS01+188 01801000 CVTSTXU EQU CVTS01+184 01802000 CVTQUIS EQU CVTS01+180 01803000 CVTPARS EQU CVTS01+176 01804000 CVTS1EE EQU CVTS01+172 01805000 CVTFRAS EQU CVTS01+168 01806000 CVTQSAS EQU CVTS01+164 01807000 CVTCRAS EQU CVTS01+160 01808000 CVTCRMN EQU CVTS01+156 01809000 CVTDELCP EQU CVTS01+152 01810000 CVTFRECL EQU CVTS01+148 01811000 CVTGETCL EQU CVTS01+144 01812000 CVTBLDCP EQU CVTS01+140 01813000 CVTAUTHL EQU CVTS01+136 01814000 CVTSCAN EQU CVTS01+132 01815000 CVTRV144 EQU CVTS01+130 01816000 CVTMAXMP EQU CVTS01+128 01817000 CVTSTCK EQU CVTS01+124 01818000 CVTRV139 EQU CVTS01+123 01819000 CVTDSSAC EQU CVTS01+122 01820000 CVTRV513 EQU CVTS01+121 01821000 CVTIOSPL EQU CVTS01+120 01822000 CVTPTGT EQU CVTS01+116 01823000 CVTCSPIE EQU CVTS01+112 01824000 CVTSMFEX EQU CVTS01+108 01825000 CVTOLT0A EQU CVTS01+104 01826000 CVTSRBRT EQU CVTS01+100 01827000 CVTPUTL EQU CVTS01+96 01828000 CVTASCRL EQU CVTS01+92 01829000 CVTASCRF EQU CVTS01+88 01830000 CVTRV326 EQU CVTS01+84 01831000 CVTRV325 EQU CVTS01+80 01832000 CVTRV324 EQU CVTS01+76 01833000 CVT0VL01 EQU CVTS01+72 01834000 CVTSHRVM EQU CVTS01+68 01835000 CVTRV332 EQU CVTS01+64 01836000 CVTTAS EQU CVTS01+60 01837000 CVTRSCN EQU CVTS01+56 01838000 CVTTRAC2 EQU CVTS01+54 01839000 CVTTRACE EQU CVTS01+52 01840000 CVTAPG EQU CVTS01+51 01841000 CVTSDTRC EQU CVTCTLFG 01842000 CVTGTRCE EQU CVTCTLFG 01843000 CVTNOMP EQU CVTCTLFG 01844000 CVTRSV79 EQU CVTCTLFG 01845000 CVTDSTAT EQU CVTCTLFG 01846000 CVTRSV78 EQU CVTCTLFG 01847000 CVTRV333 EQU CVTCTLFG 01848000 CVTRV323 EQU CVTCTLFG 01849000 CVTSPVLK EQU CVTS01+49 01850000 CVTRSV77 EQU CVTS01+48 01851000 CVTRV331 EQU CVTS01+44 01852000 CVTRV330 EQU CVTS01+40 01853000 CVTRV329 EQU CVTS01+36 01854000 CVTRV328 EQU CVTS01+32 01855000 CVTRV322 EQU CVTS01+28 01856000 CVTSLID EQU CVTSLIDA+1 01857000 CVTSYLK EQU CVTSLIDA 01858000 CVTRV321 EQU CVTS01+20 01859000 CVTRV320 EQU CVTS01+16 01860000 CVTLPDIR EQU CVTLPDIA+1 01861000 CVTRSV69 EQU CVTDIRST 01862000 CVTRSV68 EQU CVTDIRST 01863000 CVTRSV67 EQU CVTDIRST 01864000 CVTRSV66 EQU CVTDIRST 01865000 CVTRSV65 EQU CVTDIRST 01866000 CVTRSV64 EQU CVTDIRST 01867000 CVTRSV63 EQU CVTDIRST 01868000 CVTDICOM EQU CVTDIRST 01869000 CVTPVTP EQU CVTS01+8 01870000 CVTLPDSR EQU CVTS01+4 01871000 CVTGETL EQU CVTS01 01872000 OUTSW EQU FLAGS1 01873000 QCBSKP EQU FLAGS1 01874000 SKIPSW EQU FLAGS1 01875000 LOOPSW EQU FLAGS1 01876000 PSNASW EQU FLAGS1 01877000 ERRFLG EQU FLAGS1 01878000 BLDLDATA EQU BLDLNTRY+8 01879000 BLDNTRYL EQU BLDLIST+2 01880000 BLDNTRYN EQU BLDLIST 01881000 TRMRLMCT EQU IEDNTRM+10 01882000 TRMCOHTG EQU TRMSIBPT+1 01883000 TRMGPCNT EQU TRMSIBPT 01884000 TRMBUFRD EQU TRMBYTE0 01885000 @NM00199 EQU TRMBYTE0 01886000 TRMOUTPT EQU TRMBYTE0 01887000 TRMINPUT EQU TRMBYTE0 01888000 TRMUDEF EQU TRMBYTE0 01889000 TRMSTOTE EQU TRMBYTE1 01890000 TRMCKPRN EQU TRMBYTE1 01891000 TRMTSATN EQU TRMBYTE1 01892000 TRMTRACE EQU TRMBYTE1 01893000 TRMSWBCK EQU TRMBYTE1 01894000 TRMAUTOC EQU TRMBYTE1 01895000 TRMINPTP EQU TRMBYTE1 01896000 TRMWTNEG EQU TRMSCPRQ 01897000 TRMWRBRK EQU TRMBYTE2 01898000 TRMNOSND EQU TRMBYTE2 01899000 TRMPREP EQU TRMBYTE2 01900000 TRMGPACT EQU TRMBYTE2 01901000 TRMANDL EQU TRMBYTE2 01902000 TRMCLOSN EQU TRMINPG 01903000 TRMREMB EQU TRMBYTE2 01904000 TRMRSACT EQU TRMBYTE2 01905000 TRMOPTBL EQU IEDQTRM+18 01906000 TRMOPNO EQU IEDQTRM+17 01907000 TRMCHCIN EQU IEDQTRM+16 01908000 TRMSENSE EQU TRMSTAT+3 01909000 TRMTEMPR EQU TRMSTAT+2 01910000 TRMSIO EQU TRMSTAT 01911000 @NM00198 EQU TRMDEVFL+1 01912000 TRMTPIN EQU TRMDEVFL+1 01913000 TRMNCPI EQU TRMDEVFL+1 01914000 TRMRNTRM EQU TRMDEVFL+1 01915000 @NM00197 EQU TRMDEVFL+1 01916000 TRMLMD EQU TRMDEVFL+1 01917000 TRMCONC EQU TRMDEVFL+1 01918000 TRMTSOB EQU TRMDEVFL 01919000 TRMBFDY EQU TRMDEVFL 01920000 TRMTBLK EQU TRMDEVFL 01921000 TRMSBLK EQU TRMDEVFL 01922000 TRMBLKS EQU TRMDEVFL 01923000 TRMADDC EQU TRMDEVFL 01924000 TRMDDIG EQU TRMDEVFL 01925000 TRMBUFS EQU TRMDEVFL 01926000 TRMPRILK EQU TRMALTD 01927000 TRMLGB EQU TRMDSORG 01928000 TRMSCNYN EQU TRMSTATE 01929000 TRMOPTFN EQU TRMSTATE 01930000 TRMHELDN EQU TRMSTATE 01931000 TRMACPTN EQU TRMSTATE 01932000 TRMPROC EQU TRMLOG 01933000 TRMLIST EQU TRMLOG 01934000 TCXEND EQU IEDQTCXD+224 01935000 TCXNCPIO EQU IEDQTCXD+220 01936000 TCXACTE8 EQU TCXQE8 01937000 TCXABEPL EQU IEDQTCXD+212 01938000 TCXSRBS EQU IEDQTCXD+208 01939000 TCXSIOSB EQU IEDQTCXD+204 01940000 TCXESAVE EQU IEDQTCXD+132 01941000 TCXERPPM EQU IEDQTCXD+128 01942000 TCXERPSV EQU IEDQTCXD+116 01943000 TCXSATTN EQU IEDQTCXD+112 01944000 @NM00196 EQU TCXDSAVE+4 01945000 @NM00195 EQU TCXDSAVE 01946000 TCXPLCB EQU IEDQTCXD+100 01947000 TCXBITS EQU IEDQTCXD+98 01948000 TCXSCBSZ EQU IEDQTCXD+97 01949000 TCXBIT1 EQU IEDQTCXD+96 01950000 TCXCOMPT EQU IEDQTCXD+92 01951000 TCXAVAIL EQU IEDQTCXD+88 01952000 TCXBUFL EQU IEDQTCXD+84 01953000 TCXTOTE EQU TCXBUFA 01954000 TCXCKPM EQU IEDQTCXD+79 01955000 TCXNCKPR EQU IEDQTCXD+78 01956000 TCXSZAIB EQU IEDQTCXD+76 01957000 TCXAIBC EQU IEDQTCXD+72 01958000 TCXPEBC EQU IEDQTCXD+68 01959000 TCXPEWAC EQU IEDQTCXD+64 01960000 TCXQRQ EQU IEDQTCXD+60 01961000 TCXOCQ EQU IEDQTCXD+56 01962000 TCXPNTQ EQU IEDQTCXD+52 01963000 TCXPUTQ EQU IEDQTCXD+48 01964000 TCXGETQ EQU IEDQTCXD+44 01965000 TCXTSI EQU IEDQTCXD+40 01966000 TCXRPT EQU IEDQTCXD+36 01967000 TCXCC3TS EQU IEDQTCXD+35 01968000 TCXAPDMP EQU TCXFLAG1 01969000 TCXAPPL EQU TCXFLAG1 01970000 TCXRTM EQU TCXFLAG1 01971000 TCXMCPCD EQU TCXFLAG1 01972000 TCXAUTH EQU TCXFLAG1 01973000 TCXASID EQU IEDQTCXD+32 01974000 TCXASCB EQU IEDQTCXD+28 01975000 TCXREADY EQU IEDQTCXD+24 01976000 TCXPASWD EQU IEDQTCXD+16 01977000 TCXDISP EQU IEDQTCXD+12 01978000 TCXTCB EQU IEDQTCXD+8 01979000 TCXATTLN EQU TCXATTEN 01980000 TCXAVT EQU IEDQTCXD 01981000 @NM00194 EQU RRTRMTP2 01982000 @NM00193 EQU RRTRMTP2 01983000 RRTDVTYD EQU RRTRMTP1 01984000 RRTAUTOC EQU RRTRMTP1 01985000 RRTOUTPT EQU RRTRMTP1 01986000 RRTINPUT EQU RRTRMTP1 01987000 RRTPU EQU RRTRMTP1 01988000 RRTNODEL EQU IEDNRRT+9 01989000 RRTXTPD EQU IEDNRRT+8 01990000 RRTBUFPD EQU IEDNRRT+7 01991000 RRTKEYLR EQU IEDNRRT+6 01992000 RRTUNITR EQU IEDNRRT+5 01993000 RRTUNITN EQU IEDNRRT+4 01994000 RRTKEYLN EQU IEDNRRT+2 01995000 RRTHDRLN EQU IEDNRRT 01996000 QCBTTCIN EQU QCBPLCBA+1 01997000 @NM00192 EQU QCBPLCBA 01998000 @NM00191 EQU QCBSTAT1 01999000 QCBFLUSH EQU QCBSTAT1 02000000 QCBNDXRQ EQU QCBSTAT1 02001000 QCBESIG EQU QCBSTAT1 02002000 QCBRCVRQ EQU QCBSTAT1 02003000 QCBSNDRQ EQU QCBSTAT1 02004000 QCBWAITC EQU QCBSTAT1 02005000 QCBPLCBN EQU QCBSTAT1 02006000 QCBCHAIN EQU IEDNQCB 02007000 QCBPQBCK EQU IEDQPQCB+25 02008000 QCBPRIPQ EQU IEDQPQCB+24 02009000 QCBCFHDR EQU IEDQPQCB+21 02010000 QCBLFEFO EQU IEDQPQCB+18 02011000 QCBFFEFO EQU IEDQPQCB+15 02012000 QCBPREVF EQU QCBINTLF 02013000 QCBINTFF EQU IEDQPQCB+9 02014000 QCBDATSQ EQU QCBFHDTZ+1 02015000 @NM00190 EQU QCBFHDTZ 02016000 @NM00189 EQU QCBPFEFO 02017000 QCBDATFL EQU QCBFHDLZ 02018000 QCBDNHDR EQU IEDQPQCB 02019000 QCBQBACK EQU IEDQQCB+37 02020000 QCBCKPT EQU QCBFLAG 02021000 QCBPROC EQU QCBFLAG 02022000 QCBSDFFO EQU QCBFLAG 02023000 QCBTERMQ EQU QCBFLAG 02024000 QCBRSRV EQU QCBFLAG 02025000 QCBREAD EQU QCBFLAG 02026000 QCBNOBRK EQU QCBFLAG 02027000 QCBTSSES EQU QCBFLAG 02028000 QCBLGBAD EQU QCBDCBAD 02029000 QCBRELLN EQU IEDQQCB+32 02030000 QCBTJID EQU QCBLKRRN+1 02031000 QCBCARCT EQU QCBLKRRN 02032000 QCBPRLVL EQU QCBPREN 02033000 QCBMSGCT EQU IEDQQCB+26 02034000 QCBEXTO EQU QCBINTVL 02035000 QCBDISC EQU QCBTSOF1 02036000 QCBDELAY EQU QCBTSOF1 02037000 QCBPARTO EQU QCBTSOF1 02038000 QCBSATRD EQU QCBTSOF1 02039000 QCBNOBUF EQU QCBTSOF1 02040000 QCBTPUT EQU QCBTSOF1 02041000 QCBTGET EQU QCBTSOF1 02042000 QCBWRBRK EQU QCBTSOF1 02043000 QCBSATLC EQU QCBTSOF2 02044000 QCBSATTI EQU QCBTSOF2 02045000 QCBSATCH EQU QCBTSOF2 02046000 QCBSIMRD EQU QCBTSOF2 02047000 QCBDSSMI EQU QCBTSOF2 02048000 QCBPOSTO EQU QCBTSOF2 02049000 QCBBUFQ EQU QCBTSOF2 02050000 QCBINHBN EQU QCBTSOF2 02051000 QCBSATCT EQU @NM00188 02052000 QCBSCBOF EQU IEDQQCB+20 02053000 QCBTIME EQU QCBSTAT 02054000 QCBCLOCK EQU QCBSTAT 02055000 QCBSCHDL EQU QCBSTAT 02056000 QCBSMODE EQU QCBSTAT 02057000 QCBSEND EQU QCBSTAT 02058000 QCBBUFRD EQU QCBSTAT 02059000 QCBTRMHO EQU QCBSTAT 02060000 QCBEOM EQU QCBSTAT 02061000 QCBHUCT EQU QCBRETCT 02062000 QCBIEND EQU QCBRETCT 02063000 QCBEND EQU QCBRETCT 02064000 QCBNL EQU QCBRETCT 02065000 QCBLOGCT EQU QCBRETCT 02066000 @NM00187 EQU QCBBYTE1 02067000 QCBRITRM EQU QCBBYTE1 02068000 @NM00186 EQU QCBEOLDT 02069000 QCBSLINK EQU IEDQQCB+13 02070000 QCBSTPRI EQU IEDQQCB+12 02071000 QCBSTCHN EQU IEDQQCB+9 02072000 QCBSTVTO EQU IEDQQCB+8 02073000 QCBLINK EQU IEDQQCB+5 02074000 QCBPRI EQU IEDQQCB+4 02075000 QCBELCHN EQU IEDQQCB+1 02076000 QCBHELD EQU QCBDSFLG 02077000 QCBFQCB EQU QCBDSFLG 02078000 QCBDRQQ EQU QCBDSFLG 02079000 QCBALTMH EQU QCBDSFLG 02080000 QCBREUS EQU QCBDISK 02081000 QCBNREUS EQU QCBDISK 02082000 QCBCORE EQU QCBDSFLG 02083000 QCBTSQ EQU QCBDSFLG 02084000 @NM00185 EQU OPREFLG3 02085000 OPREATCH EQU OPREFLG3 02086000 @NM00184 EQU OPREFLG3 02087000 OPREFLG2 EQU IEDOPRED+13 02088000 OPREFLG1 EQU IEDOPRED+12 02089000 OPRETIC EQU OPRESAVE 02090000 OPRELINK EQU IEDOPRED+5 02091000 OPREPRI EQU IEDOPRED+4 02092000 OPREQCB EQU IEDOPRED+1 02093000 OPREKEY EQU IEDOPRED 02094000 @NM00183 EQU OCLDNME+4 02095000 @NM00182 EQU OCPREFLG 02096000 OCTOTEP EQU OCPREFLG 02097000 OCREPOST EQU OCPREFLG 02098000 OCRSPSNT EQU OCPREFLG 02099000 OCBFREQ EQU OCPREFLG 02100000 OCIDLE EQU OCREQFLG 02101000 OCFORCE EQU OCREQFLG 02102000 OCDCARD EQU OCREQFLG 02103000 OCPARTAL EQU OCREQFLG 02104000 @NM00181 EQU OCREQFLG 02105000 @NM00180 EQU OCREQFLG 02106000 OCFLUSHZ EQU OCREQFLG 02107000 OCRESPCT EQU OCLINTTE 02108000 OCCKPTWA EQU OCCKDATA+4 02109000 @NM00177 EQU OCRSTGTM+2 02110000 OCCKDAT2 EQU OCRSTGTM+1 02111000 OCCKDAT1 EQU OCRSTGTM 02112000 OCPUADR EQU OCIPLWA+2 02113000 OCWTGSAV EQU OCIPLWA 02114000 OCDVRDCT EQU OCBACKUP+6 02115000 OCNCP EQU OCBACKUP+4 02116000 OCBUFGOT EQU OCBACKUP+2 02117000 OCBUFNED EQU OCBACKUP 02118000 OCRESNUM EQU OCPARM 02119000 OCSEQ EQU OCTRUNIT+2 02120000 @NM00176 EQU OCRSID+1 02121000 OCNONE EQU OCALSTAT 02122000 OCSOME EQU OCALSTAT 02123000 OCALLFLG EQU OCALSTAT 02124000 OCREDRVE EQU OCALSTAT 02125000 OCSEQIND EQU OCALSTAT 02126000 @NM00175 EQU OCALSTAT 02127000 OCRENTRD EQU OCALSTAT 02128000 OCWTGB EQU OCTIOT 02129000 @NM00174 EQU @NM00173+2 02130000 OCCONID EQU OCDEST 02131000 OCRLN EQU IEDQOPCE+15 02132000 OCRESP EQU OCFLAG 02133000 OCATTACH EQU OCFLAG 02134000 OCSSCP EQU OCFLAG 02135000 OCOUTPUT EQU OCFLAG 02136000 OCLINE EQU OCFLAG 02137000 OCMPP EQU OCFLAG 02138000 OCTOTE EQU OCFLAG 02139000 OCCONSOL EQU OCFLAG 02140000 @NM00172 EQU OCSWITCH 02141000 OCQUCKN EQU OCSWITCH 02142000 @NM00171 EQU OCRUDEST+1 02143000 @NM00170 EQU OCSCAN 02144000 OCNOTUCB EQU OCSCAN 02145000 OCNONAME EQU OCSCAN 02146000 OCALLRLN EQU OCSCAN 02147000 OCDDNAME EQU OCSCAN 02148000 OCDDNRLN EQU OCSCAN 02149000 OCADDR EQU OCSCAN 02150000 OCELMPTR EQU OCELEM+1 02151000 OCLINK EQU IEDQOPCE 02152000 OPCBOTTM EQU IEDQOPCD+1184 02153000 @NM00169 EQU IEDQOPCD+1100 02154000 @NM00168 EQU IEDQOPCD+948 02155000 @NM00167 EQU IEDQOPCD+940 02156000 @NM00166 EQU IEDQOPCD+380 02157000 @NM00165 EQU OPCPWCOB+9 02158000 @NM00164 EQU OPCPWCOB+8 02159000 @NM00163 EQU OPCPWECB+1 02160000 OPCPWCCC EQU OPCPWECB 02161000 OPCPWCHN EQU OPCPWQCB+1 02162000 OPCPWVTO EQU OPCPWQCB 02163000 OPCWAITV EQU IEDQOPCD+364 02164000 OPCTOTCK EQU IEDQOPCD+360 02165000 OPCAPXTL EQU IEDQOPCD+356 02166000 OPCDECR EQU IEDQOPCD+352 02167000 OPCBUFWT EQU IEDQOPCD+348 02168000 OPCWRKSP EQU IEDQOPCD+320 02169000 OPCRQCNT EQU IEDQOPCD+316 02170000 OPPOLSTP EQU IEDQOPCD+312 02171000 OPCCKCIB EQU IEDQOPCD+308 02172000 OPCEND EQU IEDQOPCD+307 02173000 OPCSTCBS EQU IEDQOPCD+306 02174000 OPCHNEND EQU IEDQOPCD+302 02175000 OPCOQSW EQU IEDQOPCD+301 02176000 @NM00162 EQU OPCSPEC 02177000 @NM00161 EQU OPCSPEC 02178000 @NM00160 EQU OPCSPEC 02179000 @NM00159 EQU OPCSPEC 02180000 OPCFRMCA EQU OPCSPEC 02181000 OPCRSTRT EQU OPCSPEC 02182000 OPCPART EQU OPCSPEC 02183000 OPCALTD EQU OPCSPEC 02184000 OPCBFEND EQU IEDQOPCD+296 02185000 OPCBFIRS EQU IEDQOPCD+292 02186000 OPCAVBUF EQU IEDQOPCD+290 02187000 OPCIPLCT EQU IEDQOPCD+289 02188000 OPCCLNTS EQU IEDQOPCD+288 02189000 OPCHA8 EQU IEDQOPCD+286 02190000 OPCBFREQ EQU IEDQOPCD+284 02191000 OPCFREBF EQU IEDQOPCD+280 02192000 OPCNEXT EQU IEDQOPCD+272 02193000 OPCFMDFC EQU IEDQOPCD+268 02194000 OPCSCNC EQU IEDQOPCD+264 02195000 OPCHORTG EQU IEDQOPCD+260 02196000 OPCHORT EQU IEDQOPCD+256 02197000 OPCCKPTL EQU IEDQOPCD+252 02198000 OPCCKPTF EQU IEDQOPCD+248 02199000 OPCWAITA EQU IEDQOPCD+244 02200000 OPCWAITR EQU IEDQOPCD+240 02201000 OPCWAITP EQU IEDQOPCD+236 02202000 OPCWAITO EQU IEDQOPCD+232 02203000 OPCWAITN EQU IEDQOPCD+228 02204000 OPCWAITL EQU IEDQOPCD+224 02205000 OPCWAITC EQU IEDQOPCD+220 02206000 @NM00158 EQU OPCLDNME+5 02207000 @NM00157 EQU OPCLDNME 02208000 OPCWAIT EQU IEDQOPCD+192 02209000 OPCCKERB EQU IEDQOPCD+164 02210000 OPCBFERB EQU IEDQOPCD+148 02211000 OPCFLAG2 EQU IEDQOPCD+147 02212000 OPCFLAG1 EQU IEDQOPCD+146 02213000 OPCWRKSZ EQU IEDQOPCD+144 02214000 OPCRSAVE EQU IEDQOPCD+132 02215000 OPCQCBAD EQU IEDQOPCD+128 02216000 OPCTRMWA EQU IEDQOPCD+52 02217000 OPCPSTWT EQU IEDQOPCD+48 02218000 OPCTNTEA EQU IEDQOPCD+44 02219000 OPCPGCK EQU IEDQOPCD+40 02220000 OPCLCB EQU IEDQOPCD+36 02221000 @NM00156 EQU IEDQOPCD+32 02222000 OPCIPLAD EQU IEDQOPCD+28 02223000 OPCTOFLK EQU IEDQOPCD+24 02224000 OPCOPTLK EQU IEDQOPCD+20 02225000 OPCDCBLK EQU IEDQOPCD+16 02226000 OPCDOUBL EQU IEDQOPCD 02227000 LCBERADR EQU LCBXRADR+1 02228000 LCBPCIRC EQU LCBXRADR 02229000 LCBDCT3 EQU LCBXDCT+2 02230000 LCBDCT2 EQU LCBXDCT+1 02231000 LCBDCT1 EQU LCBXDCT 02232000 @NM00155 EQU LCBXFLAG 02233000 LCBERPND EQU LCBXFLAG 02234000 LCBSRCPF EQU LCBXFLAG 02235000 LCBGPCTV EQU LCBXFLAG 02236000 @NM00154 EQU LCBXFLAG 02237000 @NM00153 EQU LCBXFLAG 02238000 @NM00152 EQU LCBXFLAG 02239000 @NM00151 EQU LCBXFLAG 02240000 LCBCCW10 EQU LCBCPA+72 02241000 LCBCCW9 EQU LCBCPA+64 02242000 LCBCCW8 EQU LCBCPA+56 02243000 LCBCCW7 EQU LCBCPA+48 02244000 LCBCCW6 EQU LCBCPA+40 02245000 LCBATTEL EQU LCBCCW5 02246000 LCBCCW4 EQU LCBCPA+24 02247000 LCBCCW3 EQU LCBCPA+16 02248000 LCBCCW2 EQU LCBCPA+8 02249000 LCBCCW1 EQU LCBCPA 02250000 @NM00137 EQU LCBERCCW+16 02251000 LCBATL05 EQU LCBERCCW+8 02252000 @NM00136 EQU LCBERCCW 02253000 LCBCSWSV EQU LCBSAVSN+1 02254000 LCBSNSV EQU LCBSAVSN 02255000 LCBBFSNS EQU LCBRSPSV 02256000 LCBWAITC EQU LCBTPCD+5 02257000 LCBINPAK EQU LCBSTAT6 02258000 LCBMHBID EQU LCBSTAT6 02259000 LCBRTRRO EQU LCBSTAT6 02260000 LCBHDRPD EQU LCBSTAT6 02261000 LCBCHN EQU LCBSTAT6 02262000 LCBBFRSV EQU LCBTPCD+1 02263000 @NM00135 EQU LCBSTAT5 02264000 LCBLUS EQU LCBSTAT5 02265000 LCBLUNIT EQU LCBSTAT5 02266000 LCBPERM EQU LCBSTAT5 02267000 LCBNXCMD EQU LCBBFRW 02268000 LCBERMSK EQU LCBOBRCH 02269000 LCBSCBA EQU IEDQLCB+93 02270000 LCBOLT EQU LCBMSGFM 02271000 LCBEOT EQU LCBMSGFM 02272000 LCBENQ EQU LCBMSGFM 02273000 LCBTTD EQU LCBMSGFM 02274000 LCBRSTRT EQU LCBMSGFM 02275000 LCBVSTRT EQU LCBMSGFM 02276000 LCBACKI EQU LCBMSGFM 02277000 LCBNAK EQU LCBMSGFM 02278000 LCBTTCIN EQU IEDQLCB+90 02279000 @NM00134 EQU LCBRBCT2 02280000 LCBDCNT EQU LCBRBCT2 02281000 LCBERBCH EQU IEDQLCB+85 02282000 LCBCOMPL EQU LCBDLNKN 02283000 LCBERROR EQU LCBERBST 02284000 @NM00133 EQU LCBERBST 02285000 LCBINQ EQU LCBERBST 02286000 LCBRDERR EQU LCBERBST 02287000 LCBEOMSG EQU LCBERBST 02288000 LCBMSG EQU LCBERBST 02289000 LCBERBLK EQU IEDQLCB+81 02290000 LCBERBKY EQU LCBERB 02291000 LCBRECAD EQU IEDQLCB+73 02292000 @NM00132 EQU LCBTSTSW 02293000 @NM00131 EQU LCBTSTSW 02294000 @NM00130 EQU LCBTSTSW 02295000 @NM00129 EQU LCBTSTSW 02296000 @NM00128 EQU LCBTSTSW 02297000 @NM00127 EQU LCBTSTSW 02298000 @NM00126 EQU LCBTSTSW 02299000 LCBCONCT EQU LCBTSTSW 02300000 LCBRESP EQU LCBSTAT2 02301000 LCBBFRAV EQU LCBDIAL 02302000 LCBATTN EQU LCBSYNC 02303000 LCBNEGRP EQU LCBSTAT2 02304000 LCBSNDPR EQU LCBSTAT2 02305000 LCBCONNN EQU LCBBEOTN 02306000 LCBMSGNN EQU LCBSTAT2 02307000 LCBTRACE EQU LCBSTAT2 02308000 LCBSENDN EQU LCBSTAT1 02309000 LCBRECVN EQU LCBSTAT1 02310000 LCBFREEN EQU LCBSTAT1 02311000 LCBCONT EQU LCBSTAT1 02312000 LCBINITN EQU LCBSTAT1 02313000 LCBOCNI EQU LCBSTAT1 02314000 LCBOCWTN EQU LCBSTAT1 02315000 LCBRCLLN EQU LCBSTAT1 02316000 LCBRECOF EQU IEDQLCB+68 02317000 LCBRDBFR EQU LCBRCBFR 02318000 LCBUCBX EQU IEDQLCB+64 02319000 LCBTTBIN EQU LCBERRCT 02320000 @NM00125 EQU LCBINCAM 02321000 LCBGETMN EQU LCBINCAM 02322000 LCBRESTR EQU LCBRCQCB 02323000 LCBPCILK EQU LCBDCBPT 02324000 LCBSTART EQU LCBIOBSN+16 02325000 LCBAP4OL EQU LCBSIOCC 02326000 LCBAP3OL EQU LCBSIOCC 02327000 LCBAP2OL EQU LCBSIOCC 02328000 LCBAP1OL EQU LCBSIOCC 02329000 LCBSIOC2 EQU LCBSIOCC 02330000 LCBSIOC1 EQU LCBSIOCC 02331000 @NM00124 EQU LCBSIOCC 02332000 LCBCSWRC EQU LCBCSW+5 02333000 LCBCSCHC EQU LCBCSWCS 02334000 LCBCSICC EQU LCBCSWCS 02335000 LCBCSCCC EQU LCBCSWCS 02336000 LCBCSCDC EQU LCBCSWCS 02337000 LCBCSPTC EQU LCBCSWCS 02338000 LCBCSPGC EQU LCBCSWCS 02339000 LCBCSIL EQU LCBCSWCS 02340000 LCBCSPCI EQU LCBCSWCS 02341000 LCBUSUE EQU LCBCSWUS 02342000 LCBUSUC EQU LCBCSWUS 02343000 LCBUSDE EQU LCBCSWUS 02344000 LCBUSCE EQU LCBCSWUS 02345000 LCBUSBSY EQU LCBCSWUS 02346000 LCBUSCUE EQU LCBCSWUS 02347000 LCBUSSM EQU LCBCSWUS 02348000 LCBUSAT EQU LCBCSWUS 02349000 LCBCSWCA EQU LCBCSW 02350000 LCBOBR EQU LCBFLAG3 02351000 LCBOBRRD EQU LCBFLAG3 02352000 LCBIOMSG EQU LCBFLAG3 02353000 LCBSOHC EQU LCBFLAG3 02354000 LCBRLAD EQU LCBFLAG3 02355000 LCBSOHR EQU LCBFLAG3 02356000 @NM00123 EQU LCBFLAG3 02357000 LCBECBPT EQU LCBIOBSN+4 02358000 LCBECBCC EQU LCBIOBSN+3 02359000 LCBSENS1 EQU LCBSNS+1 02360000 LCBABORT EQU LCBTMOUT 02361000 LCBNOTIN EQU LCBLOSDT 02362000 LCBOVRUN EQU LCBSENS0 02363000 LCBDATCK EQU LCBSENS0 02364000 LCBEQUCK EQU LCBSENS0 02365000 LCBBUSCK EQU LCBSENS0 02366000 LCBINTRQ EQU LCBSENS0 02367000 LCBCMDRJ EQU LCBSENS0 02368000 LCBFLAG2 EQU LCBIOBSN 02369000 @NM00122 EQU LCBFLAG1 02370000 LCBUNREL EQU LCBFLAG1 02371000 LCBEXCPN EQU LCBFLAG1 02372000 @NM00121 EQU LCBFLAG1 02373000 LCBERPIN EQU LCBFLAG1 02374000 @NM00120 EQU LCBFLAG1 02375000 LCBFSBFR EQU LCBMHA 02376000 LCBISZE EQU IEDQLCB+28 02377000 LCBLNENT EQU LCBSCBDA+1 02378000 @NM00119 EQU LCBSCBDA 02379000 LCBCPGMH EQU LCBSTAT4 02380000 LCBREAL EQU LCBPHASE 02381000 @NM00118 EQU LCBSTAT4 02382000 LCBACTRQ EQU LCBSTAT4 02383000 LCBIPLRQ EQU LCBSTAT4 02384000 LCBDACRQ EQU LCBSTAT4 02385000 LCBDMPRQ EQU LCBSTAT4 02386000 @NM00117 EQU LCBLKMDE 02387000 LCBLOCKI EQU LCBLKMDE 02388000 LCBLOCKR EQU LCBLKMDE 02389000 LCBHMFLG EQU LCBLKMDE 02390000 LCBBDFLG EQU LCBLKMDE 02391000 @NM00116 EQU LCBINSRC 02392000 LCBABRTN EQU LCBCHAIN 02393000 LCBCTLMD EQU LCBTETEN 02394000 LCBBFRSZ EQU LCBCHAIN 02395000 LCBUREQN EQU LCBCHAIN 02396000 LCBNORTY EQU LCBCHAIN 02397000 LCBERMSG EQU LCBCHAIN 02398000 LCBEXCP EQU LCBCHAIN 02399000 LCBINVRQ EQU LCBSCRNN 02400000 LCB2741N EQU LCBTSOB 02401000 LCBINHBN EQU LCBTSOB 02402000 LCBCIRCD EQU LCBTSOB 02403000 LCBPREP EQU LCBTSOB 02404000 LCBSOPL EQU LCBTSOB 02405000 LCBSATRD EQU LCBTSOB 02406000 LCBTSBUF EQU LCBTSOB 02407000 LCBWRBRK EQU LCBTSOB 02408000 LCBTDL EQU IEDQLCB+18 02409000 LCBEOLTD EQU IEDQLCB+16 02410000 LCBRSLNK EQU IEDQLCB+13 02411000 LCBRSPRI EQU IEDQLCB+12 02412000 LCBSTCBA EQU IEDQLCB+9 02413000 LCBRSKEY EQU IEDQLCB+8 02414000 LCBLINK EQU LCBRCB+5 02415000 LCBPRI EQU LCBRCB+4 02416000 LCBQCBA EQU LCBRCB+1 02417000 LCBKEY EQU LCBRCB 02418000 DCBBUFSI EQU IHADCS43+6 02419000 DCBILCT EQU IHADCS43+4 02420000 DCBSCTAD EQU DCBSCTAB+1 02421000 @NM00115 EQU DCBSCTAB 02422000 DCBPUTA EQU DCBGETA 02423000 @NM00114 EQU DCBPUT 02424000 DCBDEBA EQU DCBDEBAD+1 02425000 @NM00113 EQU DCBIFLGS 02426000 DCBIFIOE EQU DCBIFLGS 02427000 DCBCH12 EQU DCBIFPCT 02428000 DCBCH9 EQU DCBIFPCT 02429000 DCBIFEC EQU DCBIFLGS 02430000 DCBMFSTI EQU DCBMFDMD 02431000 DCBMFAWR EQU DCBMFSTK 02432000 DCBMFUIP EQU DCBMFTMD 02433000 DCBMFIDW EQU DCBMFLCP 02434000 DCBMFWRK EQU DCBMFMVP 02435000 DCBMFRDQ EQU DCBMFWRT 02436000 DCBMFGTQ EQU DCBMFPUT 02437000 DCBMFSTL EQU DCBMACF2 02438000 DCBMFCK EQU DCBMFDMG 02439000 DCBMFRDX EQU DCBMFCHK 02440000 DCBMFDBF EQU DCBMFSBG 02441000 DCBMFRDI EQU DCBMFLCG 02442000 DCBMFRDK EQU DCBMFMVG 02443000 DCBMFWRQ EQU DCBMFRD 02444000 DCBMFPTQ EQU DCBMFGET 02445000 DCBMFECP EQU DCBMACF1 02446000 DCBTIOT EQU IHADCS25 02447000 DCBMRSTI EQU DCBMRDMD 02448000 DCBMRAWR EQU DCBMRSTK 02449000 DCBMRUIP EQU DCBMRTMD 02450000 DCBMRIDW EQU DCBMRLCP 02451000 DCBMRWRK EQU DCBMRMVP 02452000 DCBMRRDQ EQU DCBMRWRT 02453000 DCBMRGTQ EQU DCBMRPUT 02454000 DCBMRSTL EQU DCBMACR2 02455000 DCBMRCK EQU DCBMRDMG 02456000 DCBPGFXA EQU DCBMRRDX 02457000 DCBMRDBF EQU DCBMRSBG 02458000 DCBMRRDI EQU DCBMRLCG 02459000 DCBMRRDK EQU DCBMRMVG 02460000 DCBMRWRQ EQU DCBMRRD 02461000 DCBMRPTQ EQU DCBMRGET 02462000 DCBMRECP EQU DCBMACR1 02463000 @NM00112 EQU DCBIFLG 02464000 DCBIBIOE EQU DCBIFLG 02465000 DCBICH12 EQU DCBIBPCT 02466000 DCBICH9 EQU DCBIBPCT 02467000 DCBIBEC EQU DCBIFLG 02468000 DCBOFIOF EQU DCBOFLGS 02469000 DCBOFUEX EQU DCBOFLGS 02470000 DCBOFTM EQU DCBOFLGS 02471000 DCBOFPPC EQU DCBOFLGS 02472000 DCBOFOPN EQU DCBOFLGS 02473000 DCBOFEOV EQU DCBOFLGS 02474000 DCBOFLRB EQU DCBOFLGS 02475000 DCBOFIOD EQU DCBOFLWR 02476000 DCBDDNAM EQU IHADCS24 02477000 DCBEXLSA EQU DCBEXLST+1 02478000 DCBRNCKA EQU DCBRNCKD+1 02479000 @NM00111 EQU DCBRNCKD 02480000 DCBDSGTR EQU DCBDSRG2 02481000 @NM00110 EQU DCBDSRG2 02482000 DCBDSRG1 EQU DCBDSORG 02483000 DCBCHNGL EQU DCBTRSTA 02484000 DCBNIDLE EQU DCBTRSTA 02485000 DCBBAKUP EQU DCBTRSTA 02486000 DCBIPLED EQU DCBTRSTA 02487000 DCBRSTRT EQU DCBTRSTA 02488000 DCBINITL EQU DCBTRSTA 02489000 DCBAUTOD EQU DCBTRSTA 02490000 DCBAUTOI EQU DCBTRSTA 02491000 @NM00109 EQU IHADCS2K+4 02492000 DCBDUMPA EQU DCBDUMPD+1 02493000 DCBUNITN EQU DCBDUMPD 02494000 DCBBCKUA EQU DCBBCKUP+1 02495000 @NM00108 EQU DCBBCKUP 02496000 DCBIPLTX EQU IHADCS1A 02497000 @NM00107 EQU IHADCB 02498000 CVTLEVL EQU CVTRELNO+2 02499000 CVTNUMB EQU CVTRELNO 02500000 CVTMDL EQU CVTFIX+250 02501000 @NM00106 EQU CVTFIX+248 02502000 @NM00105 EQU CVTFIX 02503000 CVTRV482 EQU CVTXTNT2+128 02504000 CVTRV481 EQU CVTXTNT2+124 02505000 CVTRV480 EQU CVTXTNT2+120 02506000 CVTRV479 EQU CVTXTNT2+118 02507000 CVTRV478 EQU CVTXTNT2+117 02508000 CVTRV477 EQU CVTXTNT2+116 02509000 CVTRV476 EQU CVTXTNT2+115 02510000 CVTRV475 EQU CVTXTNT2+114 02511000 CVTRV474 EQU CVTRV466 02512000 CVTRV473 EQU CVTRV466 02513000 CVTRV472 EQU CVTRV466 02514000 CVTRV471 EQU CVTRV466 02515000 CVTRV470 EQU CVTRV466 02516000 CVTRV469 EQU CVTRV466 02517000 CVTRV468 EQU CVTRV466 02518000 CVTRV467 EQU CVTRV466 02519000 CVTRV465 EQU CVTRV457 02520000 CVTRV464 EQU CVTRV457 02521000 CVTRV463 EQU CVTRV457 02522000 CVTRV462 EQU CVTRV457 02523000 CVTRV461 EQU CVTRV457 02524000 CVTRV460 EQU CVTRV457 02525000 CVTRV459 EQU CVTRV457 02526000 CVTRV458 EQU CVTRV457 02527000 CVTRV456 EQU CVTXTNT2+108 02528000 CVTRV455 EQU CVTXTNT2+104 02529000 CVTRV454 EQU CVTXTNT2+100 02530000 CVTRV453 EQU CVTXTNT2+96 02531000 CVTRV452 EQU CVTXTNT2+94 02532000 CVTRV451 EQU CVTXTNT2+92 02533000 CVTRV450 EQU CVTXTNT2+90 02534000 CVTRV449 EQU CVTXTNT2+88 02535000 CVTRV448 EQU CVTXTNT2+87 02536000 CVTRV447 EQU CVTXTNT2+86 02537000 CVTRV446 EQU CVTRV438 02538000 CVTRV445 EQU CVTRV438 02539000 CVTRV444 EQU CVTRV438 02540000 CVTRV443 EQU CVTRV438 02541000 CVTRV442 EQU CVTRV438 02542000 CVTRV441 EQU CVTRV438 02543000 CVTRV440 EQU CVTRV438 02544000 CVTRV439 EQU CVTRV438 02545000 CVTRV437 EQU CVTRV429 02546000 CVTRV436 EQU CVTRV429 02547000 CVTRV435 EQU CVTRV429 02548000 CVTRV434 EQU CVTRV429 02549000 CVTRV433 EQU CVTRV429 02550000 CVTRV432 EQU CVTRV429 02551000 CVTRV431 EQU CVTRV429 02552000 CVTRV430 EQU CVTRV429 02553000 CVTRV428 EQU CVTXTNT2+80 02554000 CVTRV427 EQU CVTXTNT2+76 02555000 CVTRV426 EQU CVTXTNT2+72 02556000 CVTRV425 EQU CVTXTNT2+68 02557000 CVTATACT EQU CVTATCVT 02558000 CVTRV423 EQU CVTXTNT2+62 02559000 CVTRV422 EQU CVTXTNT2+60 02560000 CVTRV421 EQU CVTXTNT2+58 02561000 CVTRV420 EQU CVTXTNT2+56 02562000 CVTRV419 EQU CVTXTNT2+55 02563000 CVTRV418 EQU CVTXTNT2+54 02564000 CVTRV417 EQU CVTRV409 02565000 CVTRV416 EQU CVTRV409 02566000 CVTRV415 EQU CVTRV409 02567000 CVTRV414 EQU CVTRV409 02568000 CVTRV413 EQU CVTRV409 02569000 CVTRV412 EQU CVTRV409 02570000 CVTRV411 EQU CVTRV409 02571000 CVTRV410 EQU CVTRV409 02572000 CVTRV408 EQU CVTRV400 02573000 CVTRV407 EQU CVTRV400 02574000 CVTRV406 EQU CVTRV400 02575000 CVTRV405 EQU CVTRV400 02576000 CVTRV404 EQU CVTRV400 02577000 CVTRV403 EQU CVTRV400 02578000 CVTRV402 EQU CVTRV400 02579000 CVTRV401 EQU CVTRV400 02580000 CVTICB EQU CVTXTNT2+48 02581000 CVTSKTA EQU CVTXTNT2+44 02582000 CVTSHSB EQU CVTSHS 02583000 CVTRSV98 EQU CVTXTNT2+36 02584000 CVTRSV97 EQU CVTXTNT2+34 02585000 CVTRSV96 EQU CVTXTNT2+32 02586000 CVTOLTEP EQU CVTXTNT2+28 02587000 CVTQIDA EQU CVTQID+1 02588000 CVTRSV95 EQU CVTQID 02589000 CVTRSV94 EQU CVTXTNT2+20 02590000 CVTRSV93 EQU CVTXTNT2+16 02591000 CVTRSV92 EQU CVTXTNT2+12 02592000 CVTDEBVR EQU CVTXTNT2+8 02593000 CVTRSV91 EQU CVTXTNT2+6 02594000 CVTRSV9H EQU CVTFLGBT 02595000 CVTRSV9G EQU CVTFLGBT 02596000 CVTRSV9F EQU CVTFLGBT 02597000 CVTRSV9E EQU CVTFLGBT 02598000 CVTRSV9D EQU CVTFLGBT 02599000 CVTRSV9C EQU CVTFLGBT 02600000 CVTVME EQU CVTFLGBT 02601000 CVTNPE EQU CVTFLGBT 02602000 CVTNUCLS EQU CVTXTNT2+4 02603000 CVTDSSVA EQU CVTDSSV+1 02604000 CVTRSV89 EQU CVTDSSV 02605000 CVTRSV88 EQU CVTXTNT1+8 02606000 CVTRSV87 EQU CVTXTNT1+4 02607000 CVTFACHN EQU CVTXTNT1 02608000 CVTRV488 EQU CVTMAP+412 02609000 CVTRV487 EQU CVTMAP+408 02610000 CVTRV486 EQU CVTMAP+404 02611000 CVTRV485 EQU CVTMAP+400 02612000 CVTACTAP EQU CVTMAP+396 02613000 CVTAUTH EQU CVTMAP+392 02614000 CVTATMCA EQU CVTATMCT+1 02615000 CVTATMST EQU CVTATMCT 02616000 CVTRSV61 EQU CVTMAP+384 02617000 CVTVOLT1 EQU CVTVOLM1+1 02618000 CVTVOLI1 EQU CVTVOLF1 02619000 CVTSTOA EQU CVTMAP+376 02620000 CVTRSV58 EQU CVTMAP+374 02621000 CVTRSV57 EQU CVTMAP+372 02622000 CVTDDCE EQU CVTMAP+368 02623000 CVTPNWFR EQU CVTMAP+364 02624000 CVTSMF EQU CVTMAP+360 02625000 CVTSULK EQU CVTMAP+358 02626000 CVTSLKO EQU CVTSYSK 02627000 CVTSLKP EQU CVTSYSK 02628000 CVTSLKQ EQU CVTSYSK 02629000 CVTSLKR EQU CVTSYSK 02630000 CVTRSV56 EQU CVTSYSK 02631000 CVTRSV55 EQU CVTSYSK 02632000 CVTRSV54 EQU CVTSYSK 02633000 CVTRSV53 EQU CVTSYSK 02634000 CVTRSV52 EQU CVTA1F1 02635000 CVTRSV51 EQU CVTA1F1 02636000 CVTRSV50 EQU CVTA1F1 02637000 CVTRSV49 EQU CVTA1F1 02638000 CVTRSV48 EQU CVTA1F1 02639000 CVTRSV47 EQU CVTA1F1 02640000 CVTSRSW EQU CVTA1F1 02641000 CVTPFSW EQU CVTA1F1 02642000 CVTPCVT EQU CVTMAP+352 02643000 CVTRSV46 EQU CVTMAP+344 02644000 CVTRSV45 EQU CVTMAP+340 02645000 CVTRSV44 EQU CVTMAP+338 02646000 CVTRSV43 EQU CVTMAP+336 02647000 CVTHJESA EQU CVTHJES+1 02648000 CVTRSV42 EQU CVTHJES 02649000 CVTEXT2A EQU CVTEXT2+1 02650000 CVTRSV41 EQU CVTEXT2 02651000 CVTAPFA EQU CVTAPF+1 02652000 CVTRSV40 EQU CVTAPF 02653000 CVTRV518 EQU CVTINTLA 02654000 CVTRV517 EQU CVTERPV 02655000 CVTEORM EQU CVTMAP+312 02656000 CVTMCHPR EQU CVTMAP+308 02657000 CVTTZ EQU CVTMAP+304 02658000 CVTJEPS EQU CVTMAP+300 02659000 CVTJESCT EQU CVTMAP+296 02660000 CVTMODE EQU CVTMAP+292 02661000 CVTPTRV EQU CVTMAP+288 02662000 CVTREAL EQU CVTMAP+284 02663000 CVTRSV39 EQU CVTMAP+280 02664000 CVTRSV38 EQU CVTMAP+276 02665000 CVTDMSRA EQU CVTDMSR+1 02666000 CVTRV634 EQU CVTDMSRF 02667000 CVTRV633 EQU CVTDMSRF 02668000 CVTRV632 EQU CVTDMSRF 02669000 CVTRV631 EQU CVTDMSRF 02670000 CVTRV630 EQU CVTDMSRF 02671000 CVTRV629 EQU CVTDMSRF 02672000 CVTUDUMP EQU CVTDMSRF 02673000 CVTSDUMP EQU CVTDMSRF 02674000 CVTQMSGA EQU CVTQMSG+1 02675000 CVTRSV36 EQU CVTQMSG 02676000 CVTAMFF EQU CVTMAP+264 02677000 CVTPURGA EQU CVTPURG+1 02678000 CVTRSV35 EQU CVTPURG 02679000 CVTCBSP EQU CVTMAP+256 02680000 CVTATERA EQU CVTATER+1 02681000 CVTSYST EQU CVTATER 02682000 CVTVOLT2 EQU CVTTAT 02683000 CVTVOLI2 EQU CVTVOLF2 02684000 CVTAQAVB EQU CVTAQAVT+1 02685000 CVTRSV34 EQU CVTTCMFG 02686000 CVTRSV33 EQU CVTTCMFG 02687000 CVTRSV32 EQU CVTTCMFG 02688000 CVTRSV31 EQU CVTTCMFG 02689000 CVTRSV30 EQU CVTTCMFG 02690000 CVTRSV29 EQU CVTTCMFG 02691000 CVTRSV28 EQU CVTTCMFG 02692000 CVTTCRDY EQU CVTTCMFG 02693000 CVTGTFA EQU CVTGTF+1 02694000 CVTRSV27 EQU CVTGTFST 02695000 CVTRNIO EQU CVTGTFST 02696000 CVTUSR EQU CVTGTFST 02697000 CVTRV318 EQU CVTFORM 02698000 CVTRV317 EQU CVTTMODE 02699000 CVTRV316 EQU CVTSTATE 02700000 CVTRV315 EQU CVTGTFS 02701000 CVTGTFAV EQU CVTGTFS 02702000 CVT0SCR1 EQU CVTMAP+232 02703000 CVTRV515 EQU CVTMAP+228 02704000 CVTRMS EQU CVTMAP+224 02705000 CVTPATCH EQU CVTMAP+220 02706000 CVTTSCE EQU CVTMAP+216 02707000 CVTLNKSC EQU CVTMAP+214 02708000 CVTQABST EQU CVTMAP+212 02709000 CVTMDLDS EQU CVTMAP+208 02710000 CVTUSER EQU CVTMAP+204 02711000 CVTABEND EQU CVTMAP+200 02712000 CVTSMCA EQU CVTMAP+196 02713000 CVTRSV18 EQU CVTMAP+192 02714000 CVTQLPAQ EQU CVTMAP+188 02715000 CVTQCDSR EQU CVTMAP+184 02716000 CVTRSV17 EQU CVTOPTB 02717000 CVTRSV16 EQU CVTOPTB 02718000 CVTFP EQU CVTOPTB 02719000 CVTAPTHR EQU CVTOPTB 02720000 CVTNLOG EQU CVTOPTB 02721000 CVTTOD EQU CVTOPTB 02722000 CVTCTIMS EQU CVTOPTB 02723000 CVTPROT EQU CVTOPTB 02724000 CVTXPFP EQU CVTOPTA 02725000 CVTASCII EQU CVTOPTA 02726000 CVTRSV13 EQU CVTOPTA 02727000 CVTRSV12 EQU CVTOPTA 02728000 CVTNIP EQU CVTOPTA 02729000 CVTDDR EQU CVTOPTA 02730000 CVTAPR EQU CVTOPTA 02731000 CVTCCH EQU CVTOPTA 02732000 CVTSNCTR EQU CVTMAP+180 02733000 CVTQMWR EQU CVTMAP+176 02734000 CVTQOCR EQU CVTMAP+172 02735000 CVT1EF00 EQU CVTMAP+168 02736000 CVTMZ00 EQU CVTMAP+164 02737000 CVTHEAD EQU CVTMAP+160 02738000 CVTRSV11 EQU CVTMAP+156 02739000 CVT0PT01 EQU CVTMAP+152 02740000 CVTMSER EQU CVTMAP+148 02741000 CVTRV516 EQU CVTIERLC 02742000 CVTILCH EQU CVTMAP+140 02743000 CVT0DS EQU CVTMAP+136 02744000 CVTFBOSV EQU CVTMAP+132 02745000 CVTNUCB EQU CVTMAP+128 02746000 CVTIXAVL EQU CVTMAP+124 02747000 CVTIOQET EQU CVTMAP+120 02748000 CVTDCBA EQU CVTMAP+117 02749000 CVTMVS2 EQU CVTDCB 02750000 CVT6DAT EQU CVTDCB 02751000 CVT4MPS EQU CVTDCB 02752000 CVTRSV09 EQU CVTDCB 02753000 CVT4MS1 EQU CVTDCB 02754000 CVT2SPS EQU CVTDCB 02755000 CVT1SSS EQU CVTDCB 02756000 CVTRSV08 EQU CVTDCB 02757000 CVTSTB EQU CVTMAP+112 02758000 CVTQTD00 EQU CVTMAP+108 02759000 CVTQTE00 EQU CVTMAP+104 02760000 CVTCUCB EQU CVTMAP+100 02761000 CVTSJQ EQU CVTMAP+96 02762000 CVTPBLDL EQU CVTMAP+92 02763000 CVTTPC EQU CVTMAP+88 02764000 CVTSVDCB EQU CVTMAP+84 02765000 CVTBRET EQU CVTMAP+82 02766000 CVTEXIT EQU CVTMAP+80 02767000 CVT0FN00 EQU CVTMAP+76 02768000 CVTDARA EQU CVTDAR+1 02769000 CVTRSV07 EQU CVTFLGS1 02770000 CVTRSV06 EQU CVTFLGS1 02771000 CVTRSV05 EQU CVTFLGS1 02772000 CVTRSV04 EQU CVTFLGS1 02773000 CVTRSV03 EQU CVTFLGS1 02774000 CVTRSV02 EQU CVTFLGS1 02775000 CVTRSV01 EQU CVTFLGS1 02776000 CVTDMPLK EQU CVTFLGS1 02777000 CVTXITP EQU CVTMAP+68 02778000 CVTZDTAB EQU CVTMAP+64 02779000 CVTMSLT EQU CVTMAP+60 02780000 CVTDATE EQU CVTMAP+56 02781000 CVTBTERM EQU CVTMAP+52 02782000 CVTSYSAD EQU CVTMAP+48 02783000 CVTXTLER EQU CVTMAP+44 02784000 CVTILK2 EQU CVTMAP+40 02785000 CVTILK1 EQU CVTMAP+36 02786000 CVTPRLTV EQU CVTMAP+32 02787000 CVTPCNVT EQU CVTMAP+28 02788000 CVT0VL00 EQU CVTMAP+24 02789000 CVTXAPG EQU CVTMAP+20 02790000 CVTBUF EQU CVTMAP+16 02791000 CVTJOB EQU CVTMAP+12 02792000 CVTLINK EQU CVTMAP+8 02793000 CVT0EF00 EQU CVTMAP+4 02794000 CVTTCBP EQU CVTMAP 02795000 CVT EQU CVTMAP 02796000 SAVTBITN EQU IEDNSVTD+312 02797000 @NM00104 EQU SAVTCKQB+8 02798000 @NM00103 EQU SAVTCKEC+1 02799000 @NM00102 EQU SAVTCKCC 02800000 SAVTCKPO EQU SAVTCKCC 02801000 SAVTCKWA EQU SAVTCKCC 02802000 SAVTCKCH EQU SAVTCKTB+1 02803000 SAVTCKVT EQU SAVTCKTB 02804000 @NM00101 EQU IEDNSVTD+297 02805000 SAVTRDFG EQU SAVTRDRV+12 02806000 @NM00100 EQU SAVTRDRV+5 02807000 SAVTRDPY EQU SAVTRDRV+4 02808000 SAVTRDQB EQU SAVTRDRV+1 02809000 SAVTRDKY EQU SAVTRDRV 02810000 SAVTNID EQU IEDNSVTD+280 02811000 SAVTDVAS EQU IEDNSVTD+276 02812000 SAVTPLSZ EQU IEDNSVTD+274 02813000 @NM00099 EQU IEDNSVTD+273 02814000 @NM00098 EQU SAVTZELM+1 02815000 SAVTSUBM EQU SAVTZELM 02816000 SAVTMHDX EQU IEDNSVTD+268 02817000 SAVTNAT1 EQU IEDNSVTD+266 02818000 SAVTSH20 EQU IEDNSVTD+264 02819000 SAVTLCBS EQU IEDNSVTD+260 02820000 SAVTRNMP EQU IEDNSVTD+256 02821000 SAVTTNTX EQU IEDNSVTD+252 02822000 SAVTNAX EQU IEDNSVTD+248 02823000 SAVTSUBV EQU IEDNSVTD+247 02824000 SAVTSUBA EQU IEDNSVTD+246 02825000 SAVTSIBC EQU IEDNSVTD+244 02826000 SAVTBSM EQU IEDNSVTD+240 02827000 SAVTSCPT EQU SAVTTCPU 02828000 SAVTRQTG EQU IEDNSVTD+236 02829000 SAVTRQCH EQU IEDNSVTD+232 02830000 SAVTSPLN EQU IEDNSVTD+224 02831000 SAVTNADL EQU IEDNSVTD+222 02832000 SAVTNATL EQU IEDNSVTD+220 02833000 SAVTMHTB EQU IEDNSVTD+216 02834000 SAVTSSMH EQU IEDNSVTD+212 02835000 SAVTQRS EQU IEDNSVTD+208 02836000 SAVTRQIN EQU IEDNSVTD+204 02837000 SAVTDFCO EQU IEDNSVTD+200 02838000 SAVTSAO EQU IEDNSVTD+196 02839000 SAVTSARI EQU IEDNSVTD+192 02840000 SAVTSAC EQU IEDNSVTD+188 02841000 SAVTSAI EQU IEDNSVTD+184 02842000 SAVTCSCI EQU IEDNSVTD+180 02843000 SAVTSSRP EQU IEDNSVTD+176 02844000 SAVTSSRQ EQU IEDNSVTD+172 02845000 SAVTSCLU EQU IEDNSVTD+168 02846000 SAVTXTRQ EQU IEDNSVTD+164 02847000 SAVTMVBF EQU IEDNSVTD+160 02848000 @NM00097 EQU IEDNSVTD+148 02849000 SAVTIPCQ EQU IEDNSVTD+144 02850000 @NM00096 EQU IEDNSVTD+136 02851000 SAVTXFMI EQU IEDNSVTD+132 02852000 @NM00095 EQU IEDNSVTD+124 02853000 SAVTXFMO EQU IEDNSVTD+120 02854000 @NM00094 EQU IEDNSVTD+116 02855000 SAVTSSSR EQU IEDNSVTD+112 02856000 SAVTSCPQ EQU IEDNSVTD+108 02857000 SAVTSLCB EQU IEDNSVTD+104 02858000 SAVTLUSR EQU IEDNSVTD+100 02859000 @NM00093 EQU SAVTLUSQ+8 02860000 SAVTLUSP EQU SAVTLUSQ+4 02861000 SAVTLUSB EQU SAVTLUSQ 02862000 @NM00092 EQU IEDNSVTD+84 02863000 SAVTCLUP EQU IEDNSVTD+72 02864000 SAVTPIUT EQU IEDNSVTD+68 02865000 SAVTRNTA EQU IEDNSVTD+64 02866000 SAVTDNIR EQU IEDNSVTD+60 02867000 SAVTCNIR EQU IEDNSVTD+56 02868000 SAVTFLDH EQU IEDNSVTD+52 02869000 SAVTSRTN EQU IEDNSVTD+48 02870000 SAVTSREQ EQU IEDNSVTD+44 02871000 SAVTFAIL EQU IEDNSVTD+42 02872000 SAVTSUSE EQU IEDNSVTD+40 02873000 SAVTSIB EQU IEDNSVTD+36 02874000 SAVTPRTN EQU IEDNSVTD+32 02875000 @NM00091 EQU IEDNSVTD+28 02876000 SAVTWH20 EQU IEDNSVTD+26 02877000 SAVTPWT EQU IEDNSVTD+24 02878000 SAVTPRTQ EQU IEDNSVTD+20 02879000 SAVTPREQ EQU IEDNSVTD+16 02880000 SAVTPH20 EQU IEDNSVTD+14 02881000 SAVTPUSE EQU IEDNSVTD+12 02882000 SAVTPLCB EQU IEDNSVTD+8 02883000 SAVTPOOL EQU IEDNSVTD+4 02884000 SAVTPRMT EQU SAVTDIAF 02885000 SAVTVIRT EQU SAVTDIAF 02886000 AVTCPBNO EQU IEDQAVTD+1244 02887000 AVTHRESS EQU IEDQAVTD+1243 02888000 @NM00090 EQU IEDQAVTD+1242 02889000 @NM00089 EQU IEDQAVTD+1241 02890000 @NM00088 EQU IEDQAVTD+1240 02891000 @NM00087 EQU IEDQAVTD+1237 02892000 @NM00086 EQU IEDQAVTD+1236 02893000 AVTHRESE EQU @NM00085 02894000 AVTRADDR EQU IEDQAVTD+1228 02895000 AVTNADDR EQU IEDQAVTD+1224 02896000 AVTHRESN EQU IEDQAVTD+1220 02897000 AVTVOLRN EQU IEDQAVTD+1216 02898000 AVTTOTNN EQU IEDQAVTD+1212 02899000 AVTTRCYN EQU IEDQAVTD+1208 02900000 AVTRCTRN EQU IEDQAVTD+1204 02901000 AVTNOVON EQU IEDQAVTD+1200 02902000 AVTADEBN EQU IEDQAVTD+1196 02903000 AVTVOLRR EQU IEDQAVTD+1192 02904000 AVTTOTNR EQU IEDQAVTD+1188 02905000 AVTTRCYR EQU IEDQAVTD+1184 02906000 AVTRCTRR EQU IEDQAVTD+1180 02907000 AVTNOVOR EQU IEDQAVTD+1176 02908000 AVTADEBR EQU IEDQAVTD+1172 02909000 AVTLODPT EQU IEDQAVTD+1168 02910000 AVTIOBN EQU IEDQAVTD+1164 02911000 AVTIOBR EQU IEDQAVTD+1160 02912000 AVTCPBPT EQU IEDQAVTD+1156 02913000 AVTFCPB EQU IEDQAVTD+1152 02914000 @NM00084 EQU IEDQAVTD+1148 02915000 AVTINCPQ EQU IEDQAVTD+1144 02916000 @NM00083 EQU IEDQAVTD+1140 02917000 @NM00082 EQU IEDQAVTD+1137 02918000 @NM00081 EQU AVTBIT4 02919000 @NM00080 EQU AVTBIT4 02920000 @NM00079 EQU AVTBIT4 02921000 @NM00078 EQU AVTBIT4 02922000 @NM00077 EQU AVTBIT4 02923000 @NM00076 EQU AVTBIT4 02924000 @NM00075 EQU AVTBIT4 02925000 AVTRUFTN EQU AVTBIT4 02926000 @NM00074 EQU IEDQAVTD+1132 02927000 AVTNOBFQ EQU IEDQAVTD+1128 02928000 @NM00073 EQU IEDQAVTD+1124 02929000 AVTDKENQ EQU IEDQAVTD+1120 02930000 @NM00072 EQU IEDQAVTD+1116 02931000 AVTDKAPQ EQU IEDQAVTD+1112 02932000 AVTCOPY EQU IEDQAVTD+1108 02933000 AVTIA EQU IEDQAVTD+1104 02934000 AVTFL EQU IEDQAVTD+1100 02935000 @NM00071 EQU IEDQAVTD+1096 02936000 AVTNCPBQ EQU IEDQAVTD+1092 02937000 AVTTOTNC EQU IEDQAVTD+1088 02938000 AVTCMAX EQU IEDQAVTD+1084 02939000 AVTCMIN EQU IEDQAVTD+1080 02940000 AVTHM02 EQU IEDQAVTD+1076 02941000 AVTOPCIN EQU IEDQAVTD+1074 02942000 AVTDCTLN EQU IEDQAVTD+1072 02943000 AVTOPMSK EQU IEDQAVTD+1068 02944000 AVTDDFT EQU IEDQAVTD+1064 02945000 AVTSTEAL EQU IEDQAVTD+1060 02946000 AVTOPTN EQU IEDQAVTD+1056 02947000 AVTDSKCT EQU IEDQAVTD+1054 02948000 AVTCKRST EQU IEDQAVTD+1053 02949000 AVTSTAN EQU AVTBIT3 02950000 AVTSTACN EQU AVTBIT3 02951000 AVTSTAIN EQU AVTBIT3 02952000 AVTSTAYN EQU AVTBIT3 02953000 AVTOLTBN EQU AVTBIT3 02954000 AVTTSAB EQU AVTBIT3 02955000 AVTRFULN EQU AVTBIT3 02956000 AVTRECVN EQU AVTBIT3 02957000 @NM00070 EQU AVTBIT2 02958000 @NM00069 EQU AVTBIT2 02959000 AVTOPEIN EQU AVTBIT2 02960000 AVTSTRTN EQU AVTBIT2 02961000 AVTTOPOL EQU AVTBIT2 02962000 AVTCOPYN EQU AVTBIT2 02963000 AVTREUSN EQU AVTBIT2 02964000 AVTEXTSC EQU AVTBIT2 02965000 AVTDISKN EQU AVTBIT1 02966000 AVTQUCKN EQU AVTBIT1 02967000 AVTCLOSN EQU AVTBIT1 02968000 AVTREADN EQU AVTBIT1 02969000 AVTDLAYN EQU AVTBIT1 02970000 AVTAQTAN EQU AVTBIT1 02971000 AVTTSON EQU AVTBIT1 02972000 AVTAPLKN EQU AVTBIT1 02973000 AVTDUMBR EQU IEDQAVTD+1048 02974000 AVTDLQX EQU IEDQAVTD+1046 02975000 AVTINTLV EQU IEDQAVTD+1044 02976000 AVTSMCNT EQU IEDQAVTD+1042 02977000 AVTAVFCT EQU IEDQAVTD+1040 02978000 AVTOPCON EQU IEDQAVTD+1038 02979000 AVTOPCNT EQU IEDQAVTD+1036 02980000 AVTLNCNT EQU IEDQAVTD+1034 02981000 AVTKEYLE EQU IEDQAVTD+1032 02982000 AVTHA16 EQU IEDQAVTD+1030 02983000 AVTHA7 EQU IEDQAVTD+1028 02984000 AVTHA4 EQU IEDQAVTD+1026 02985000 AVTHA3 EQU IEDQAVTD+1024 02986000 AVTHA2 EQU IEDQAVTD+1022 02987000 AVTGETMS EQU IEDQAVTD+1021 02988000 @NM00068 EQU IEDQAVTD+1020 02989000 AVTGETMD EQU IEDQAVTD+1016 02990000 AVTGETMN EQU IEDQAVTD+1012 02991000 AVTCWTOT EQU IEDQAVTD+1008 02992000 AVTCWINT EQU IEDQAVTD+956 02993000 AVTDTRAP EQU IEDQAVTD+952 02994000 @NM00067 EQU IEDQAVTD+950 02995000 @NM00066 EQU AVTIOTR 02996000 AVTIOTRH EQU AVTIOTR 02997000 AVTIOTRE EQU AVTIOTR 02998000 @NM00065 EQU AVTSUBT 02999000 AVTSUBPT EQU AVTSUBT 03000000 AVTSUBON EQU AVTSUBT 03001000 AVTAFE30 EQU IEDQAVTD+944 03002000 AVTAFE20 EQU IEDQAVTD+940 03003000 AVTAFE10 EQU IEDQAVTD+936 03004000 AVTCWEC2 EQU IEDQAVTD+932 03005000 AVTCWPM2 EQU IEDQAVTD+928 03006000 AVTCWTS2 EQU IEDQAVTD+927 03007000 AVTCWTS1 EQU IEDQAVTD+926 03008000 AVTCWCLD EQU AVTCWFL2 03009000 AVTCWRAP EQU AVTCWFL2 03010000 @NM00064 EQU AVTCWFL2 03011000 @NM00063 EQU AVTCWFL2 03012000 @NM00062 EQU AVTCWFL2 03013000 @NM00061 EQU AVTCWFL2 03014000 @NM00060 EQU AVTCWFL2 03015000 AVTCWACT EQU AVTCWFL2 03016000 @NM00059 EQU AVTCWFL1 03017000 @NM00058 EQU AVTCWFL1 03018000 @NM00057 EQU AVTCWFL1 03019000 @NM00056 EQU AVTCWFL1 03020000 @NM00055 EQU AVTCWFL1 03021000 @NM00054 EQU AVTCWFL1 03022000 @NM00053 EQU AVTCWFL1 03023000 AVTCOMWN EQU AVTCWFL1 03024000 AVTCWEC1 EQU IEDQAVTD+920 03025000 AVTCWPM1 EQU IEDQAVTD+916 03026000 AVTCAREA EQU IEDQAVTD+912 03027000 AVTFZERO EQU IEDQAVTD+908 03028000 AVTCADDR EQU IEDQAVTD+904 03029000 AVTCOREC EQU IEDQAVTD+900 03030000 @NM00052 EQU IEDQAVTD+892 03031000 AVTCPBCB EQU IEDQAVTD+888 03032000 @NM00051 EQU IEDQAVTD+880 03033000 AVTDSIOB EQU IEDQAVTD+876 03034000 @NM00050 EQU IEDQAVTD+868 03035000 AVTCPRMB EQU IEDQAVTD+864 03036000 @NM00049 EQU IEDQAVTD+856 03037000 AVTCLOSB EQU IEDQAVTD+852 03038000 @NM00048 EQU IEDQAVTD+844 03039000 AVTACTIB EQU IEDQAVTD+840 03040000 @NM00047 EQU IEDQAVTD+836 03041000 AVTOLTEB EQU IEDQAVTD+832 03042000 AVTOLTCH EQU AVTOLTQB+1 03043000 AVTOLTVT EQU AVTOLTQB 03044000 @NM00046 EQU AVTOPCQB+8 03045000 @NM00045 EQU AVTOPCEC+1 03046000 @NM00044 EQU AVTOPCCC 03047000 AVTOPCPO EQU AVTOPCCC 03048000 AVTOPCWA EQU AVTOPCCC 03049000 AVTOPCCH EQU AVTOPCOB+1 03050000 AVTOPCVT EQU AVTOPCOB 03051000 @NM00043 EQU AVTCKPQB+9 03052000 AVTCKPTS EQU AVTCKPQB+8 03053000 @NM00042 EQU AVTCKPEC+1 03054000 @NM00041 EQU AVTCKPCC 03055000 AVTCKPPO EQU AVTCKPCC 03056000 AVTCKPWA EQU AVTCKPCC 03057000 AVTCKPCH EQU AVTCKPTB+1 03058000 AVTCKPVT EQU AVTCKPTB 03059000 @NM00040 EQU IEDQAVTD+796 03060000 AVTBFRTB EQU IEDQAVTD+792 03061000 @NM00039 EQU IEDQAVTD+784 03062000 AVTTIMQ EQU IEDQAVTD+776 03063000 @NM00038 EQU IEDQAVTD+772 03064000 AVTIMQPS EQU IEDQAVTD+768 03065000 AVTINOUT EQU IEDQAVTD+766 03066000 AVTREFTM EQU IEDQAVTD+764 03067000 @NM00037 EQU IEDQAVTD+752 03068000 AVTDELYB EQU IEDQAVTD+748 03069000 AVTOCQPT EQU IEDQAVTD+744 03070000 AVTTSOPT EQU IEDQAVTD+740 03071000 AVTSUPPT EQU IEDQAVTD+736 03072000 AVTCBQCB EQU IEDQAVTD+732 03073000 AVTMSGS EQU IEDQAVTD+729 03074000 @NM00036 EQU AVTSYSER 03075000 @NM00035 EQU AVTSYSER 03076000 @NM00034 EQU AVTSYSER 03077000 @NM00033 EQU AVTSYSER 03078000 @NM00032 EQU AVTSYSER 03079000 @NM00031 EQU AVTSYSER 03080000 AVTCMAXN EQU AVTSYSER 03081000 AVTCMINN EQU AVTSYSER 03082000 AVT2260L EQU IEDQAVTD+724 03083000 AVTABEPL EQU AVTADBUF 03084000 AVTHFF EQU AVTCLRHI+2 03085000 @NM00030 EQU AVTCLRHI 03086000 AVTCCLNK EQU AVTCRELE+5 03087000 AVTCCPRI EQU AVTCRELE+4 03088000 AVTCCQCB EQU AVTCCELE+1 03089000 AVTCCKEY EQU AVTCCELE 03090000 AVTDELAD EQU IEDQAVTD+704 03091000 AVTDELEM EQU IEDQAVTD+700 03092000 AVTBSX EQU AVTCKLNK 03093000 AVTOPETR EQU AVTHG01 03094000 @NM00029 EQU AVTCKBYT 03095000 AVTCKONQ EQU AVTCKBYT 03096000 @NM00028 EQU AVTCKBYT 03097000 @NM00027 EQU AVTCKBYT 03098000 @NM00026 EQU AVTCKBYT 03099000 @NM00025 EQU AVTCKBYT 03100000 @NM00024 EQU AVTCKBYT 03101000 @NM00023 EQU AVTCKBYT 03102000 AVTOPERT EQU IEDQAVTD+690 03103000 AVTOPXCL EQU IEDQAVTD+688 03104000 AVTOPERL EQU IEDQAVTD+687 03105000 @NM00022 EQU IEDQAVTD+686 03106000 AVTCKTIM EQU IEDQAVTD+684 03107000 AVTCKELV EQU IEDQAVTD+682 03108000 AVTCPRCD EQU IEDQAVTD+681 03109000 AVTWARMN EQU AVTCKELF 03110000 AVTCRTLN EQU AVTCKELF 03111000 AVTCPIPN EQU AVTCKELF 03112000 AVTCCLCN EQU AVTCKELF 03113000 AVTCINCN EQU AVTCKELF 03114000 @NM00021 EQU AVTCKELF 03115000 AVTCMCPN EQU AVTCKELF 03116000 AVTCRDYN EQU AVTCKELF 03117000 AVTCKQAD EQU IEDQAVTD+677 03118000 AVTSCBSZ EQU IEDQAVTD+676 03119000 @NM00020 EQU IEDQAVTD+672 03120000 AVTCKELE EQU IEDQAVTD+668 03121000 @NM00019 EQU AVTCKPEL+8 03122000 AVTCKRLK EQU AVTCKPEL+5 03123000 AVTCKRPR EQU AVTCKPEL+4 03124000 AVTCKRMQ EQU AVTCKRMV+1 03125000 AVTCKRKY EQU AVTCKRMV 03126000 AVTHK EQU IEDQAVTD+648 03127000 AVTHI EQU IEDQAVTD+644 03128000 AVTIOT EQU IEDQAVTD+640 03129000 AVTNX EQU IEDQAVTD+636 03130000 AVTTONE EQU IEDQAVTD+632 03131000 AVTA3TL EQU IEDQAVTD+628 03132000 AVTDMECB EQU IEDQAVTD+624 03133000 AVTABEND EQU IEDQAVTD+618 03134000 AVTPLCBN EQU IEDQAVTD+616 03135000 @NM00018 EQU AVTSAVTP+1 03136000 @NM00017 EQU AVTSAVTF 03137000 AVTSNA EQU AVTSAVTF 03138000 AVTONSNA EQU AVTSAVTF 03139000 AVTVTMCP EQU AVTSAVTF 03140000 @NM00016 EQU IEDQAVTD+608 03141000 AVTCMBSS EQU IEDQAVTD+604 03142000 AVTRCV EQU IEDQAVTD+600 03143000 AVTSEND EQU IEDQAVTD+596 03144000 AVTCSCH EQU IEDQAVTD+592 03145000 AVTQ1 EQU IEDQAVTD+588 03146000 AVTE7 EQU IEDQAVTD+584 03147000 AVTHB EQU IEDQAVTD+580 03148000 AVTR1 EQU IEDQAVTD+576 03149000 AVTBZ EQU IEDQAVTD+572 03150000 AVTEZ EQU IEDQAVTD+568 03151000 AVTEC EQU IEDQAVTD+564 03152000 AVTEW EQU IEDQAVTD+560 03153000 AVTNDIAL EQU AVTSCOPT 03154000 AVTN2741 EQU AVTSCOPT 03155000 AVTCONCO EQU AVTSCOPT 03156000 AVTCONC EQU AVTSCOPT 03157000 AVTCMBUF EQU AVTSCOPT 03158000 AVTAPDMP EQU AVTSCOPT 03159000 @NM00015 EQU AVTSCOPT 03160000 AVTHA EQU AVTDISP 03161000 AVTEA EQU IEDQAVTD+548 03162000 AVTAX EQU IEDQAVTD+544 03163000 AVTA3 EQU IEDQAVTD+540 03164000 AVTGD EQU IEDQAVTD+536 03165000 AVTAL EQU IEDQAVTD+532 03166000 AVTOLTST EQU AVTHG02 03167000 AVTE8 EQU IEDQAVTD+524 03168000 AVTUI EQU IEDQAVTD+520 03169000 AVTCOMPT EQU IEDQAVTD+516 03170000 AVTCRSRF EQU IEDQAVTD+512 03171000 @NM00014 EQU IEDQAVTD+508 03172000 AVTKA02 EQU IEDQAVTD+504 03173000 AVTOPTPT EQU IEDQAVTD+500 03174000 AVTPCBPT EQU IEDQAVTD+496 03175000 @NM00013 EQU AVTECB1 03176000 AVTCOMP EQU AVTECB1 03177000 @NM00012 EQU AVTECB1 03178000 AVTOPECA EQU IEDQAVTD+488 03179000 AVTOLECA EQU IEDQAVTD+484 03180000 AVTCKECA EQU IEDQAVTD+480 03181000 AVTCWECA EQU IEDQAVTD+476 03182000 AVTCWTCB EQU IEDQAVTD+472 03183000 AVTOLTCB EQU IEDQAVTD+468 03184000 AVTOCTCB EQU IEDQAVTD+464 03185000 AVTCKTCB EQU IEDQAVTD+460 03186000 AVTAS EQU IEDQAVTD+456 03187000 AVTNOLBF EQU IEDQAVTD+454 03188000 AVTNCKPR EQU IEDQAVTD+453 03189000 AVTCIB EQU IEDQAVTD+452 03190000 AVTSPLPT EQU IEDQAVTD+448 03191000 AVTMVBFR EQU IEDQAVTD+444 03192000 AVTSBTA EQU IEDQAVTD+440 03193000 AVTRARTN EQU IEDQAVTD+436 03194000 AVTBSCAN EQU IEDQAVTD+432 03195000 AVTRDYA EQU IEDQAVTD+428 03196000 AVTDISTR EQU IEDQAVTD+420 03197000 AVTPARM3 EQU IEDQAVTD+416 03198000 @NM00011 EQU AVTPKF 03199000 @NM00010 EQU AVTPKF 03200000 @NM00009 EQU AVTPKF 03201000 AVTFTCHF EQU AVTPKF 03202000 @NM00008 EQU AVTPKF 03203000 @NM00007 EQU AVTPKF 03204000 @NM00006 EQU AVTPKF 03205000 @NM00005 EQU AVTPKF 03206000 AVTPARM EQU IEDQAVTD+408 03207000 AVTEXS2A EQU IEDQAVTD+402 03208000 AVTEXA2S EQU IEDQAVTD+396 03209000 AVTOCGET EQU IEDQAVTD+392 03210000 AVTCKAVT EQU @NM00003+1 03211000 @NM00004 EQU AVTCKFLG 03212000 AVTCKHLT EQU AVTCKFLG 03213000 AVTCKREQ EQU AVTCKFLG 03214000 AVTCKENV EQU AVTCKFLG 03215000 AVTCKNAC EQU AVTCKFLG 03216000 AVTCKTAC EQU AVTCKFLG 03217000 @NM00002 EQU IEDQAVTD+384 03218000 AVTREADD EQU IEDQAVTD+380 03219000 AVTREADY EQU IEDQAVTD+376 03220000 AVTRACE EQU IEDQAVTD+372 03221000 AVTTCB EQU IEDQAVTD+368 03222000 AVTPASWD EQU IEDQAVTD+360 03223000 AVTCTLCH EQU IEDQAVTD+352 03224000 AVTDOUBL EQU IEDQAVTD+344 03225000 AVTDOUBX EQU IEDQAVTD+336 03226000 AVTDPARM EQU IEDQAVTD+332 03227000 AVTCSTCS EQU IEDQAVTD+328 03228000 AVTDLQ EQU AVTSAVEX+32 03229000 @NM00001 EQU AVTSAVEX 03230000 AVTSAVE4 EQU IEDQAVTD+216 03231000 AVTSAVE3 EQU IEDQAVTD+144 03232000 AVTSAVE2 EQU IEDQAVTD+72 03233000 AVTSAVE1 EQU IEDQAVTD 03234000 ADWMANDL EQU ADWFLGS3 03235000 ADWGPCLS EQU ADWFLGS2 03236000 ADWCTERM EQU ADWFLGS2 03237000 ADWPUDEL EQU ADWFLGS2 03238000 ADWLNDEL EQU ADWFLGS2 03239000 ADWOUTSW EQU ADWFLGS1 03240000 ADWQCBSK EQU ADWFLGS1 03241000 ADWSKIP EQU ADWFLGS1 03242000 ADWLOOP EQU ADWFLGS1 03243000 ADWPSNA EQU ADWFLGS1 03244000 ADWERRFG EQU ADWFLGS1 03245000 ADWDATA EQU ADWLNTRY+8 03246000 ADWLNAME EQU ADWLNTRY 03247000 ADWNTRYL EQU ADWBLDL+2 03248000 ADWNTRYN EQU ADWBLDL 03249000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03250000 @RC00409 EQU @RC00408 03251000 @RC00429 EQU @RC00426 03252000 @RC00461 EQU @RC00439 03253000 @RC00440 EQU @RC00439 03254000 @RC00484 EQU @RC00478 03255000 @RT00458 EQU @RC00440 03256000 @RC00441 EQU @RC00440 03257000 @RC00485 EQU @RC00484 03258000 @RC00455 EQU @RC00441 03259000 @RC00442 EQU @RC00441 03260000 @RT00445 EQU @RC00442 03261000 @RC00443 EQU @RC00442 03262000 @ENDDATA EQU * 03263000 END IGCFI10D,(C'PLS2250',0701,77109) 03264000