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