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