TITLE 'IGCN510D, COMMON IPL/DUMP ENTRY - LOAD 3 *00001000 ' 00002000 IGCN510D CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 * /* 00005000 USING *,RCODEREG 00006000 LR RCODEREG,RENTADDR 00007000 IGCN510D IEDHJN AFTERHJN,HJN IDENTIFICATION MACRO 00008000 * ROPCAVT=RPARM; /* SET UP OPCAVT BASE */ 00009000 LR ROPCAVT,RPARM 0424 00010000 * GEN NOREFS NOSETS; 0425 00011000 * /* 00012000 LM RMSG,REG11,OPCSAVE(ROPCAVT) RESTORE REGS FROM N4 00013000 * RFY 0426 00014000 * (RPARM, 0426 00015000 * RENTADDR) UNRSTD; 0426 00016000 * ROPCSAVE=ADDR(OPCSAVE); /* SET SAVE REG */ 00017000 LA ROPCSAVE,OPCSAVE(,ROPCAVT) 0427 00018000 * IF OCTRRTE=0 /* ROUTE FLAG RESET */ 00019000 * &OCTRIP=ON /* IN PROGRESS */ 00020000 * THEN 0428 00021000 CLI OCTRRTE(RTRAIL),0 0428 00022000 BNE @RF00428 0428 00023000 TM OCTRIP(RTRAIL),B'10000000' 0428 00024000 BNO @RF00428 0428 00025000 * DO; 0429 00026000 EJECT 00027000 * 0430 00028000 */***************************WORKAREA***************************** */ 00029000 * 0430 00030000 * /*************************************************************/ 00031000 * /* */ 00032000 * /* THIS SECTION OF CODE GETMAINS THE IPL/DUMP COMMON WORKAREA*/ 00033000 * /* AND DOES EARLY COMMON INITIALIZATION */ 00034000 * /* */ 00035000 * /*************************************************************/ 00036000 * 0430 00037000 * RFY 0430 00038000 * (RWORK1, 0430 00039000 * RRETCODE) RSTD; 0430 00040000 * OCTRIP=OFF; /* RESET IN PROGRESS INTERNAL 0431 00041000 * FLAG */ 00042000 NI OCTRIP(RTRAIL),B'01111111' 0431 00043000 * GETLIST=WRKSIZE; /* NUMBER OF BYTES TO GETMAIN */ 00044000 L @14,OPCOPTLK(,ROPCAVT) 0432 00045000 MVC GETLIST(4,@14),@CF02514 0432 00046000 * RWORK1=OPCOPTLK; /* GETMAIN LIST IN QCA */ 00047000 LR RWORK1,@14 0433 00048000 * RETRNAD=ADDR(OCIPLWA); /* PUT ADDRESS OF AREA GETMAINED 00049000 * IN OCMODNME */ 00050000 LA @11,OCIPLWA(,ROPCE) 0434 00051000 ST @11,RETRNAD(,@14) 0434 00052000 * GEN REFS(RRETCODE) NOSETS; 0435 00053000 * /* 00054000 GETMAIN SP=250,MF=(E,(1)) 00055000 * IF RRETCODE=0 THEN /* IF GETMAIN WAS OK */ 00056000 LTR RRETCODE,RRETCODE 0436 00057000 BNZ @RF00436 0436 00058000 * DO; 0437 00059000 * RFY 0438 00060000 * (RWORK1, 0438 00061000 * RWORK7) RSTD; 0438 00062000 * RWORK7=OCIPLWA; /* ADDR OF AREA TO CLEAR */ 00063000 L RWORK7,OCIPLWA(,ROPCE) 0439 00064000 * DO RWORK1=(WRKSIZE-1) TO MAXCON BY-MAXCON;/* CLEAR BLOCKS 00065000 * @ZM46686*/ 00066000 LA RWORK1,2047 0440 00067000 @DL00440 DS 0H 0441 00068000 * RWORK7->CLEAR=''B; /* CLEAR ONE BLOCK (256 BYTES) */ 00069000 XC CLEAR(256,RWORK7),CLEAR(RWORK7) 0441 00070000 * RWORK7=RWORK7+LENGTH(CLEAR);/* TO NEXT BLOCK */ 00071000 AL RWORK7,@CF02510 0442 00072000 * END; 0443 00073000 * 0443 00074000 AL RWORK1,@CF02593 0443 00075000 C RWORK1,@CF02510 0443 00076000 BNL @DL00440 0443 00077000 * /*********************************************************/ 00078000 * /* */ 00079000 * /* THERE ARE NOW LESS THAN 256 BYTES TO CLEAR. ADDRESS OF*/ 00080000 * /* FIRST BYTE OF REMAINING CORE IS IN RWORK7 AND THE */ 00081000 * /* NUMBER OF BYTES LEFT IS IN RWORK1. */ 00082000 * /* */ 00083000 * /*********************************************************/ 00084000 * 0444 00085000 * IF RWORK1^=0 THEN 0444 00086000 LTR RWORK1,RWORK1 0444 00087000 BZ @RF00444 0444 00088000 * DO; /* ALL CLEARED @OX19362*/ 00089000 * GEN REFS(RWORK1) NOSETS; 0446 00090000 * /* 00091000 EX RWORK1,GENCLR CLEAR LAST BYTES 00092000 * END; 0447 00093000 * RFY 0448 00094000 * RWORK7 UNRSTD; 0448 00095000 @RF00444 DS 0H 0449 00096000 * RFY 0449 00097000 * IHADCB BASED(RWORK1); 0449 00098000 * RWORK1=OCTRDCB; /* DCB BASE */ 00099000 L RWORK1,OCTRDCB(,RTRAIL) 0450 00100000 * RWORK1=DCBDEBAD; /* GET DEB ADDRESS @YM02936*/ 00101000 L @14,DCBDEBAD+40(,RWORK1) 0451 00102000 LR RWORK1,@14 0451 00103000 * RWORK1=RWORK1-(ADDR(DEBNMSUB)-ADDR(IEDQDEB)); 0452 00104000 * 0452 00105000 SL RWORK1,@CF00846 0452 00106000 * /*********************************************************/ 00107000 * /* */ 00108000 * /* BACK UP TO NEG PREFIX @YM08483*/ 00109000 * /* */ 00110000 * /*********************************************************/ 00111000 * 0453 00112000 * RFY 0453 00113000 * IEDQDEB BASED(RWORK1);/* ADDRESSABILITY TO DEB @YM02936*/ 00114000 * OCTRUCB=DEBUCBAD; /* SAVE UCB POINTER @YM02936*/ 00115000 L @14,DEBUCBAD-1(,RWORK1) 0454 00116000 LA @14,0(,@14) 0454 00117000 ST @14,OCTRUCB(,RTRAIL) 0454 00118000 * RFY 0455 00119000 * IEDQDEB BASED(RDEB); /* RESET DEB ADDRESSABILITY 0455 00120000 * @YM02936*/ 00121000 * RFY 0456 00122000 * RWORK1 UNRSTD; 0456 00123000 * RFY 0457 00124000 * IHADCB BASED(RDCB); 0457 00125000 * IF LCBDMPRQ=ON THEN /* DUMP REQUESTED */ 00126000 TM LCBDMPRQ(RLCB),B'10000000' 0458 00127000 BNO @RF00458 0458 00128000 * DO; 0459 00129000 * OCTRMP=ON; /* EXIT TO IGCMP10D */ 00130000 OI OCTRMP(RTRAIL),B'00100000' 0460 00131000 * OCSWITCH=OCDMPC; 0461 00132000 MVI OCSWITCH(ROPCE),X'0A' 0461 00133000 * END; 0462 00134000 * ELSE /* IPL REQUEST */ 00135000 * DO; 0463 00136000 B @RC00458 0463 00137000 @RF00458 DS 0H 0464 00138000 * OCTRMD=ON; /* EXIT TO IGCMD10D */ 00139000 OI OCTRMD(RTRAIL),B'01000000' 0464 00140000 * OCSWITCH=OCIPLC; 0465 00141000 MVI OCSWITCH(ROPCE),X'11' 0465 00142000 * END; 0466 00143000 * END; 0467 00144000 * ELSE /* GETMAIN FAILED */ 00145000 * DO; 0468 00146000 B @RC00436 0468 00147000 @RF00436 DS 0H 0469 00148000 * IF LCBDACRQ=ON THEN 0469 00149000 TM LCBDACRQ(RLCB),B'01000000' 0469 00150000 BNO @RF00469 0469 00151000 * DO; /* @ZM45402*/ 00152000 * OCWTG='C1'; /* @ZM45402*/ 00153000 MVC OCWTG(2,ROPCE),@CC02587 0471 00154000 * RWORK1=UNITGT; /* GET ONE UNIT @ZM45402*/ 00155000 LA RWORK1,1 0472 00156000 * CALL ALLOCBUF; /* @ZM45402*/ 00157000 L @15,OPCGETBF(,ROPCAVT) 0473 00158000 BALR @14,@15 0473 00159000 * RFY 0474 00160000 * IEDQOPCE BASED(RWORK1);/* NEW TEMPORARY BASE FOR 0474 00161000 * INITIALIZE @ZM45402*/ 00162000 * OCELEM=OPCCOPCE; /* ATTACH CURRENT OPCE @ZM45402*/ 00163000 L @14,OPCCOPCE(,ROPCAVT) 0475 00164000 ST @14,OCELEM(,RWORK1) 0475 00165000 * OCATTACH=ON; /* SAME @ZM45402*/ 00166000 OI OCATTACH(RWORK1),B'00000010' 0476 00167000 * OCWTG=''B; /* SET WTG TO HEX ZEROS @ZM45402*/ 00168000 XC OCWTG(2,RWORK1),OCWTG(RWORK1) 0477 00169000 * OCOPTCDE=OCMODIFY; /* @ZN45402*/ 00170000 MVI OCOPTCDE(RWORK1),X'44' 0478 00171000 * OCBACKUP=ROPCE->OCBACKUP;/* INITIALIZE FOR MESSAGE 0479 00172000 * MODULE @ZM45402*/ 00173000 MVC OCBACKUP(8,RWORK1),OCBACKUP(ROPCE) 0479 00174000 * IF AVTOPCON=0 THEN /* PRI CONSOLE IS SYSCON @ZM45402*/ 00175000 LH @14,AVTOPCON(,RAVT) 0480 00176000 LTR @14,@14 0480 00177000 BNZ @RF00480 0480 00178000 * OCCONSOL=ON; /* @ZM45402*/ 00179000 OI OCCONSOL(RWORK1),B'10000000' 0481 00180000 * ELSE 0482 00181000 * OCDEST=AVTOPCIN; /* @ZM45402*/ 00182000 B @RC00480 0482 00183000 @RF00480 LH @14,AVTOPCIN(,RAVT) 0482 00184000 N @14,@CF02599 0482 00185000 STH @14,OCDEST(,RWORK1) 0482 00186000 * OCTRMTBL=LCBTTCIN; /* @ZM45402*/ 00187000 @RC00480 LH @14,LCBTTCIN(,RLCB) 0483 00188000 N @14,@CF02599 0483 00189000 STH @14,OCTRMTBL(,RWORK1) 0483 00190000 * OPCCOPCE=RWORK1; /* MAKE THIS BUILT OPCE THE 0484 00191000 * CURRENT ELEMENT @ZM45402*/ 00192000 ST RWORK1,OPCCOPCE(,ROPCAVT) 0484 00193000 * ROPCE=RWORK1; /* ADDRESSABILITY OF BUILT OPCE 00194000 * @ZM45402*/ 00195000 LR ROPCE,RWORK1 0485 00196000 * RFY 0486 00197000 * IEDQOPCE BASED(ROPCE);/* RE-ESTABLISH BASE @ZM45402*/ 00198000 * OCTRUNIT=OCELEM->OCTRUNIT;/* MOVE TRAILER @ZM45402*/ 00199000 L @14,OCELEM(,ROPCE) 0487 00200000 L @11,OCTRUNIT(,@14) 0487 00201000 ST @11,OCTRUNIT(,ROPCE) 0487 00202000 * OCELEM->OCTRUNIT=0; /* CLEAR OLD TRLR PTR @ZM45402*/ 00203000 SLR @11,@11 0488 00204000 ST @11,OCTRUNIT(,@14) 0488 00205000 * END; /* @ZM45402*/ 00206000 * OCTR09=ON; /* EXIT TO IGC0910D */ 00207000 @RF00469 OI OCTR09(RTRAIL),B'00001000' 0490 00208000 * RMSG=ERRMSG1; /* ERROR MESSAGE NUMBER */ 00209000 LA RMSG,164 0491 00210000 * END; 0492 00211000 * RFY 0493 00212000 * (RWORK1, 0493 00213000 * RRETCODE) UNRSTD; 0493 00214000 * 0493 00215000 @RC00436 DS 0H 0494 00216000 */***********************END OF WORKAREA************************** */ 00217000 * 0494 00218000 * END; 0494 00219000 EJECT 00220000 * 0495 00221000 */******************************ANALYZE*************************** */ 00222000 * 0495 00223000 * /*****************************************************************/ 00224000 * /* */ 00225000 * /* THIS SECTION OF CODE ANALYZES THE EXIT FLAG IN THE TRAILER */ 00226000 * /* (OCTRRTE) AND SETS UP TO XCTL TO DESIGNATED MODULE */ 00227000 * /* */ 00228000 * /*****************************************************************/ 00229000 * 0495 00230000 * RFY 0495 00231000 * RWORK1 RSTD; 0495 00232000 @RF00428 DS 0H 0496 00233000 * RWORK1=NULL; /* INITIALIZE INDICATOR */ 00234000 SLR RWORK1,RWORK1 0496 00235000 * IF OCTRFC=ON THEN /* EXIT TO DEACTIVATE */ 00236000 TM OCTRFC(RTRAIL),B'10000000' 0497 00237000 BNO @RF00497 0497 00238000 * DO; 0498 00239000 * RFY 0499 00240000 * (RWORK1, 0499 00241000 * RTRM) RSTD; /* @XM05690*/ 00242000 * RTRM=OCTRTTE; /* POINT TO TTE @XM05690*/ 00243000 L RTRM,OCTRTTE(,RTRAIL) 0500 00244000 * RPARM0=NULL; /* REQST RESET OF IN PROG 0501 00245000 * @XM05690*/ 00246000 SLR RPARM0,RPARM0 0501 00247000 * RWORK1=ROPCE; /* OPCE ADDRESS @XM05690*/ 00248000 LR RWORK1,ROPCE 0502 00249000 * CALL PROGRTNE; /* GO RESET BITS @XM05690*/ 00250000 L @15,OPCPGCK(,ROPCAVT) 0503 00251000 BALR @14,@15 0503 00252000 * OCWTG=ENTRYGO; /* RETURN ROUTING */ 00253000 * 0504 00254000 MVC OCWTG(2,ROPCE),ENTRYGO 0504 00255000 * /*************************************************************/ 00256000 * /* */ 00257000 * /* GET A UNIT TO USE AS OPCE FOR DEACTIVATE */ 00258000 * /* */ 00259000 * /*************************************************************/ 00260000 * 0505 00261000 * RWORK1=UNITGT; /* GET ONE UNIT */ 00262000 LA RWORK1,1 0505 00263000 * CALL ALLOCBUF; 0506 00264000 * 0506 00265000 L @15,OPCGETBF(,ROPCAVT) 0506 00266000 BALR @14,@15 0506 00267000 * /*************************************************************/ 00268000 * /* */ 00269000 * /* INITIALIZE OPCE */ 00270000 * /* */ 00271000 * /*************************************************************/ 00272000 * 0507 00273000 * RFY 0507 00274000 * IEDQOPCE BASED(RWORK1); /* NEW TEMPORARY BASE FOR 0507 00275000 * INITIALIZE */ 00276000 * OCELEM=OPCCOPCE; /* ATTACH CURRENT OPCE */ 00277000 L @11,OPCCOPCE(,ROPCAVT) 0508 00278000 ST @11,OCELEM(,RWORK1) 0508 00279000 * OCATTACH=ON; /* SAME */ 00280000 OI OCATTACH(RWORK1),B'00000010' 0509 00281000 * OCWTG=''B; /* SET WTG TO HEX ZEROS */ 00282000 XC OCWTG(2,RWORK1),OCWTG(RWORK1) 0510 00283000 * OCSWITCH=OCTOFC; 0511 00284000 MVI OCSWITCH(RWORK1),X'23' 0511 00285000 * OCOPTCDE=OCMODIFY; 0512 00286000 MVI OCOPTCDE(RWORK1),X'44' 0512 00287000 * OCBACKUP=ROPCE->OCBACKUP; /* INITIALIZE FOR MESSAGE MODULE */ 00288000 MVC OCBACKUP(8,RWORK1),OCBACKUP(ROPCE) 0513 00289000 * IF AVTOPCON=0 THEN /* PRI CONSOLE IS SYSCON */ 00290000 LH @11,AVTOPCON(,RAVT) 0514 00291000 LTR @11,@11 0514 00292000 BNZ @RF00514 0514 00293000 * OCCONSOL=ON; 0515 00294000 OI OCCONSOL(RWORK1),B'10000000' 0515 00295000 * ELSE 0516 00296000 * OCDEST=AVTOPCIN; 0516 00297000 B @RC00514 0516 00298000 @RF00514 LH @11,AVTOPCIN(,RAVT) 0516 00299000 N @11,@CF02599 0516 00300000 STH @11,OCDEST(,RWORK1) 0516 00301000 * OCTRMTBL=LCBTTCIN; 0517 00302000 @RC00514 LH @11,LCBTTCIN(,RLCB) 0517 00303000 N @11,@CF02599 0517 00304000 STH @11,OCTRMTBL(,RWORK1) 0517 00305000 * OPCCOPCE=RWORK1; /* MAKE THIS BUILT OPCE THE 0518 00306000 * CURRENT ELEMENT */ 00307000 ST RWORK1,OPCCOPCE(,ROPCAVT) 0518 00308000 * ROPCE=RWORK1; /* ADDRESSABILITY OF BUILT OPCE */ 00309000 LR ROPCE,RWORK1 0519 00310000 * RFY 0520 00311000 * IEDQOPCE BASED(ROPCE); /* RE-ESTABLISH BASE */ 00312000 * OPCMODID=DEACTGO; /* DESTINATION FOR XCTL */ 00313000 MVC OPCMODID(2,ROPCAVT),DEACTGO 0521 00314000 * RWORK1=NULL; /* RESET INDICATOR */ 00315000 SLR RWORK1,RWORK1 0522 00316000 * END; 0523 00317000 EJECT 00318000 * ELSE 0524 00319000 * DO; 0524 00320000 B @RC00497 0524 00321000 @RF00497 DS 0H 0525 00322000 * IF OCTR09=ON THEN /* EXIT TO ERROR MESSAGE MODULES */ 00323000 TM OCTR09(RTRAIL),B'00001000' 0525 00324000 BNO @RF00525 0525 00325000 * DO; 0526 00326000 * RWORK5=RPARM0; /* SAVE MSG NUM @XM05813*/ 00327000 LR RWORK5,RPARM0 0527 00328000 * RPARM0=NULL; /* REQST RESET OF IN PRG @XM05750*/ 00329000 SLR RPARM0,RPARM0 0528 00330000 * RWORK1=ROPCE; /* OPCE ADDRESS @XM05750*/ 00331000 LR RWORK1,ROPCE 0529 00332000 * CALL PROGRTNE; /* RESET IN PROG BIITS @XM05750*/ 00333000 L @15,OPCPGCK(,ROPCAVT) 0530 00334000 BALR @14,@15 0530 00335000 * RPARM0=RWORK5; /* RESTORE MSG NUM @XM05813*/ 00336000 LR RPARM0,RWORK5 0531 00337000 * IF OCTOTE=ON THEN /* CHECK FOR TOTE RESOURCE 0532 00338000 * @XM05661*/ 00339000 TM OCTOTE(ROPCE),B'01000000' 0532 00340000 BNO @RF00532 0532 00341000 * DO; /* @XM05661*/ 00342000 * RPARM0=4; /* SET RETURN CODE @XM05661*/ 00343000 LA RPARM0,4 0534 00344000 * OPCMODID=MSGGO; /* DESTINATION FOR XCTL @XM05661*/ 00345000 MVC OPCMODID(2,ROPCAVT),MSGGO 0535 00346000 * END; /* @XM05661*/ 00347000 * ELSE /* @XM05661*/ 00348000 * OPCMODID=ERMSGGO; /* DESTINATION FOR XCTL */ 00349000 * 0537 00350000 B @RC00532 0537 00351000 @RF00532 MVC OPCMODID(2,ROPCAVT),ERMSGGO 0537 00352000 * /*********************************************************/ 00353000 * /* */ 00354000 * /* FREE THE TRAILER INDICATOR */ 00355000 * /* */ 00356000 * /*********************************************************/ 00357000 * 0538 00358000 * RWORK1=RTRAIL; /* ADDR OF UNIT TO FREE */ 00359000 @RC00532 LR RWORK1,RTRAIL 0538 00360000 * END; 0539 00361000 * ELSE 0540 00362000 * DO; 0540 00363000 B @RC00525 0540 00364000 @RF00525 DS 0H 0541 00365000 * IF OCTR07=ON THEN /* EXIT TO SEND MESAGE */ 00366000 TM OCTR07(RTRAIL),B'00000100' 0541 00367000 BNO @RF00541 0541 00368000 * DO; 0542 00369000 * IF OCTRUNIT^=0 THEN /* IF OCRSID (4 BYTES)= ZERO, 0543 00370000 * THERE IS NO TRAILER ATTACHED 00371000 * AND THIS MUST BE AN OPCE BUILT 00372000 * TO SEND AN IN PROGRESS MESSAGE 00373000 * AND THE OPCE ATTACHED WILL BE 00374000 * RETURNED FOR MORE PROCESSING 00375000 * -SO- DO NOT FREE THE TRAILER */ 00376000 * 0543 00377000 L @11,OCTRUNIT(,ROPCE) 0543 00378000 LTR @11,@11 0543 00379000 BZ @RF00543 0543 00380000 * /***************************************************/ 00381000 * /* */ 00382000 * /* FREE TRAILER INDICATOR */ 00383000 * /* */ 00384000 * /***************************************************/ 00385000 * 0544 00386000 * RWORK1=OCTRUNIT; /* ADDRESS OF UNIT TO FREE */ 00387000 LR RWORK1,@11 0544 00388000 * OPCMODID=MSGGO; /* DESTINATION FOR XCTL */ 00389000 @RF00543 MVC OPCMODID(2,ROPCAVT),MSGGO 0545 00390000 * END; 0546 00391000 EJECT 00392000 * ELSE 0547 00393000 * DO; 0547 00394000 B @RC00541 0547 00395000 @RF00541 DS 0H 0548 00396000 * IF OCTR00=ON THEN /* EXIT TO OP CTL DISPATCHER */ 00397000 TM OCTR00(RTRAIL),B'00000010' 0548 00398000 BNO @RF00548 0548 00399000 * DO; 0549 00400000 * IF OCELMPRI^=PRIHIFLG THEN/* NOT DLC PRIORITY */ 00401000 CLI OCELMPRI(ROPCE),X'E9' 0550 00402000 BE @RF00550 0550 00403000 * OCSWITCH=OCPARO;/* SET COMMAND PARSED FOR 0551 00404000 * REENTRY */ 00405000 MVI OCSWITCH(ROPCE),X'29' 0551 00406000 * OPCMODID=OPCTLGO;/* DESTINATION FOR XCTL */ 00407000 @RF00550 MVC OPCMODID(2,ROPCAVT),OPCTLGO 0552 00408000 * END; 0553 00409000 EJECT 00410000 * ELSE 0554 00411000 * DO; 0554 00412000 B @RC00548 0554 00413000 @RF00548 DS 0H 0555 00414000 * IF OCTRMP=ON THEN/* EXIT TO DUMP */ 00415000 TM OCTRMP(RTRAIL),B'00100000' 0555 00416000 BNO @RF00555 0555 00417000 * OPCMODID=DUMPGO;/* DESTINATION FOR XCTL */ 00418000 MVC OPCMODID(2,ROPCAVT),DUMPGO 0556 00419000 EJECT 00420000 * ELSE 0557 00421000 * DO; 0557 00422000 B @RC00555 0557 00423000 @RF00555 DS 0H 0558 00424000 * IF OCTRMD=ON THEN/* EXIT TO IPL */ 00425000 TM OCTRMD(RTRAIL),B'01000000' 0558 00426000 BNO @RF00558 0558 00427000 * OPCMODID=IPLGO;/* DESTINATION FOR XCTL */ 00428000 MVC OPCMODID(2,ROPCAVT),IPLGO 0559 00429000 * ELSE 0560 00430000 * DO; 0560 00431000 B @RC00558 0560 00432000 @RF00558 DS 0H 0561 00433000 * IF OCTRFA=ON THEN/* EXIT TO ACTIVATE 0561 00434000 * @YM05689*/ 00435000 TM OCTRFA(RTRAIL),B'00010000' 0561 00436000 BNO @RF00561 0561 00437000 * DO; /* @XM05683*/ 00438000 * RWORK1=OCTRUNIT;/* @XM05683*/ 00439000 L RWORK1,OCTRUNIT(,ROPCE) 0563 00440000 * OPCMODID=ACTGO;/* @YM05689*/ 00441000 MVC OPCMODID(2,ROPCAVT),ACTGO 0564 00442000 * END; /* @XM05683*/ 00443000 * ELSE 0566 00444000 * DO; /* NO ROUTE SET */ 00445000 * 0566 00446000 B @RC00561 0566 00447000 @RF00561 DS 0H 0567 00448000 * /*************************************/ 00449000 * /* */ 00450000 * /* FREE TRAILER INDICATOR AND EXIT TO*/ 00451000 * /* OP CTL DISPATCHER */ 00452000 * /* */ 00453000 * /*************************************/ 00454000 * 0567 00455000 * RWORK1=OCTRUNIT;/* ADDRESS OF UNIT TO 00456000 * FREE */ 00457000 L RWORK1,OCTRUNIT(,ROPCE) 0567 00458000 * OPCMODID=OPCTLGO;/* DESTINATION FOR 00459000 * XCTL */ 00460000 MVC OPCMODID(2,ROPCAVT),OPCTLGO 0568 00461000 * END; 0569 00462000 * END; 0570 00463000 @RC00561 DS 0H 0571 00464000 * END; 0571 00465000 @RC00558 DS 0H 0572 00466000 * END; 0572 00467000 @RC00555 DS 0H 0573 00468000 * END; 0573 00469000 @RC00548 DS 0H 0574 00470000 * END; 0574 00471000 @RC00541 DS 0H 0575 00472000 * END; 0575 00473000 @RC00525 DS 0H 0576 00474000 * IF RWORK1^=0 THEN /* ANY TRAILER TO FREE */ 00475000 @RC00497 LTR RWORK1,RWORK1 0576 00476000 BZ @RF00576 0576 00477000 * DO; 0577 00478000 * OPRESAVE=OPRESAVE|ENDCHN; /* SET LAST OF CHAIN @YM02927*/ 00479000 L @11,OPRESAVE(,RWORK1) 0578 00480000 O @11,@CF00066 0578 00481000 ST @11,OPRESAVE(,RWORK1) 0578 00482000 * CALL FREEBUFF; 0579 00483000 L @15,OPCFREBF(,ROPCAVT) 0579 00484000 BALR @14,@15 0579 00485000 * OCTRUNIT=0; /* ZERO TRAILER POINTER */ 00486000 SLR @11,@11 0580 00487000 ST @11,OCTRUNIT(,ROPCE) 0580 00488000 * RTRAIL=0; /* ELIMINATE TRAILER 0581 00489000 * ADDRESSABILITY */ 00490000 SLR RTRAIL,RTRAIL 0581 00491000 * END; 0582 00492000 * ELSE 0583 00493000 * OCTRRTE=0; /* ZERO ROUTE FLAG */ 00494000 B @RC00576 0583 00495000 @RF00576 MVI OCTRRTE(RTRAIL),X'00' 0583 00496000 */******************************END OF ANALYZE******************** */ 00497000 * 0584 00498000 EJECT 00499000 * 0584 00500000 * /*****************************************************************/ 00501000 * /* */ 00502000 * /* EXIT CODE */ 00503000 * /* */ 00504000 * /*****************************************************************/ 00505000 * 0584 00506000 * RFY 0584 00507000 * RPARM RSTD; 0584 00508000 @RC00576 DS 0H 0585 00509000 * IF OPCMODID=OPCTLGO THEN 0585 00510000 CLC OPCMODID(2,ROPCAVT),OPCTLGO 0585 00511000 BNE @RF00585 0585 00512000 * RMSG=0; /* CLEAR REG0 IF TO 00 @YM08992*/ 00513000 SLR RMSG,RMSG 0586 00514000 * ELSE 0587 00515000 * ; /* @YM08992*/ 00516000 @RF00585 DS 0H 0588 00517000 * RPARM=ROPCAVT; 0588 00518000 LR RPARM,ROPCAVT 0588 00519000 * GEN REFS(ROPCAVT,OPCXCTL,RWORK7) SETS(RENTADDR,CLEAR); 0589 00520000 * /* 00521000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00522000 GENCLR XC CLEAR(0,RWORK7),CLEAR(RWORK7) CLEAR INSTRUCTION FOR EX 00523000 * END IGCN510D 0590 00524000 * 0590 00525000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00526000 */*%INCLUDE SYSLIB (TAVTD ) */ 00527000 */*%INCLUDE SYSLIB (TCCWD ) */ 00528000 */*%INCLUDE SYSLIB (TCOMD ) */ 00529000 */*%INCLUDE SYSLIB (TCOMIPLD) */ 00530000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00531000 */*%INCLUDE SYSLIB (IHADCB ) */ 00532000 */*%INCLUDE SYSLIB (TDEBD ) */ 00533000 */*%INCLUDE SYSLIB (TLCBD ) */ 00534000 */*%INCLUDE SYSLIB (TNCPID ) */ 00535000 */*%INCLUDE SYSLIB (TOPCED ) */ 00536000 */*%INCLUDE SYSLIB (TOCTRD ) */ 00537000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00538000 */*%INCLUDE SYSLIB (TOPRED ) */ 00539000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00540000 */*%INCLUDE SYSLIB (TQCBD ) */ 00541000 */*%INCLUDE SYSLIB (TTRMD ) */ 00542000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00543000 * 0590 00544000 * ; 0590 00545000 @DATA DS 0H 00546000 DS 0F 00547000 DS 0F 00548000 @CF00066 DC F'3' 00549000 @CF00846 DC F'36' 00550000 @CF02510 DC F'256' 00551000 @CF02514 DC F'2048' 00552000 @CF02593 DC F'-256' 00553000 @CF02599 DC XL4'0000FFFF' 00554000 DS 0D 00555000 @CC02587 DC C'C1' 00556000 DEACTGO DC CL2'FC' 00557000 ERMSGGO DC CL2'09' 00558000 MSGGO DC CL2'07' 00559000 OPCTLGO DC CL2'00' 00560000 DUMPGO DC CL2'MP' 00561000 IPLGO DC CL2'MD' 00562000 ENTRYGO DC CL2'N4' 00563000 MSG520 DC CL7'IED520D' 00564000 MSGIPL DC CL4'IPL' 00565000 ACTGO DC CL2'FA' 00566000 IGCN510D CSECT 00567000 * /* 00568000 MSG399 WTO 'IED399I 3705 DUMP IN PROGRESS',MF=L,ROUTCDE=8,*00569000 DESC=4 00570000 IGCN510D CSECT 00571000 * /*@YM05689 */ 00572000 * /* 00573000 REQMSG1 WTOR 'IED170D 3705 ACTIVE ***REPLY ''CONTINUE'' OR *00574000 ''CANCEL''',MF=L,ROUTCDE=8,DESC=2 00575000 MSGLEN1 DC A(*-REQMSG1) 00576000 REQMSG2 WTOR 'IED519D 3705 ALREADY IPLED ***REPLY ''CONTINUE*00577000 '' OR ''CANCEL''',MF=L,ROUTCDE=8,DESC=2 00578000 MSGLEN2 DC A(*-REQMSG2) 00579000 REQMSG3 WTOR 'IED519D 3705 ALREADY IPLED ***REPLY ''CONTINUE*00580000 '',''CANCEL'' OR ''ACTIV''',MF=L,ROUTCDE=8,DESC=2 00581000 MSGLEN3 DC A(*-REQMSG3) /* @YM05689 */ 00582000 IGCN510D CSECT 00583000 * /* 00584000 ENDN4 EQU * 00585000 SPACE EQU 2048-(ENDN4-IGCN510D) SPACE FOR PATCH AREA 00586000 PATCH DC (SPACE)X'00' PATCH AREA 00587000 IGCN510D CSECT 00588000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00589000 @01 EQU 01 00590000 @02 EQU 02 00591000 @03 EQU 03 00592000 @04 EQU 04 00593000 @05 EQU 05 00594000 @06 EQU 06 00595000 @07 EQU 07 00596000 @08 EQU 08 00597000 @09 EQU 09 00598000 @10 EQU 10 00599000 @11 EQU 11 00600000 @12 EQU 12 00601000 @13 EQU 13 00602000 @14 EQU 14 00603000 @15 EQU 15 00604000 IEDQAPTR EQU @04 00605000 DCBPTR EQU @09 00606000 IEDQDPTR EQU @01 00607000 IEDQLPTR EQU @10 00608000 LCBXPTR EQU @05 00609000 ROPCE EQU @03 00610000 ROPCAVT EQU @02 00611000 IEDQQPTR EQU @07 00612000 IEDQTPTR EQU @08 00613000 UCBPTR EQU @05 00614000 RTRM EQU @08 00615000 RAVT EQU @04 00616000 RDCB EQU @09 00617000 RDEB EQU @01 00618000 RLCB EQU @10 00619000 RWORK1 EQU @01 00620000 RCCW EQU @05 00621000 RTRAIL EQU @06 00622000 RMSG EQU @00 00623000 RPARM0 EQU @00 00624000 RPARM EQU @01 00625000 RWORK5 EQU @05 00626000 RWORK7 EQU @07 00627000 RCODEREG EQU @12 00628000 ROPCSAVE EQU @13 00629000 RENTADDR EQU @15 00630000 RRETCODE EQU @15 00631000 IEDOPREP EQU @01 00632000 REG11 EQU @11 00633000 RRETADDR EQU @14 00634000 UCBDCPTR EQU @05 00635000 IEDQAVTD EQU 0 00636000 AVTSAVEX EQU IEDQAVTD+288 00637000 @NM00003 EQU IEDQAVTD+388 00638000 AVTCKFLG EQU @NM00003 00639000 AVTBASE EQU IEDQAVTD+412 00640000 AVTPKF EQU AVTBASE 00641000 AVTOSECB EQU IEDQAVTD+492 00642000 AVTECB1 EQU AVTOSECB 00643000 AVTHG02 EQU IEDQAVTD+528 00644000 AVTDISP EQU IEDQAVTD+552 00645000 AVTHD EQU IEDQAVTD+556 00646000 AVTSCOPT EQU AVTHD 00647000 AVTSAVTP EQU IEDQAVTD+612 00648000 AVTSAVTF EQU AVTSAVTP 00649000 AVTCKPEL EQU IEDQAVTD+652 00650000 AVTCKRMV EQU AVTCKPEL 00651000 AVTCKELF EQU IEDQAVTD+680 00652000 AVTCKBYT EQU IEDQAVTD+691 00653000 AVTHG01 EQU IEDQAVTD+692 00654000 AVTCKLNK EQU IEDQAVTD+696 00655000 AVTCRELE EQU IEDQAVTD+708 00656000 AVTCCELE EQU AVTCRELE 00657000 AVTCLRHI EQU IEDQAVTD+716 00658000 AVTADBUF EQU IEDQAVTD+720 00659000 AVTSYSER EQU IEDQAVTD+728 00660000 AVTCKPQB EQU IEDQAVTD+804 00661000 AVTCKPTB EQU AVTCKPQB 00662000 AVTCKPEC EQU AVTCKPQB+4 00663000 AVTCKPCC EQU AVTCKPEC 00664000 AVTOPCQB EQU IEDQAVTD+816 00665000 AVTOPCOB EQU AVTOPCQB 00666000 AVTOPCEC EQU AVTOPCQB+4 00667000 AVTOPCCC EQU AVTOPCEC 00668000 AVTOLTQB EQU IEDQAVTD+828 00669000 AVTCWFL1 EQU IEDQAVTD+924 00670000 AVTCWFL2 EQU IEDQAVTD+925 00671000 AVTSUBT EQU IEDQAVTD+948 00672000 AVTIOTR EQU IEDQAVTD+949 00673000 AVTOPCON EQU IEDQAVTD+1038 00674000 AVTBIT1 EQU IEDQAVTD+1050 00675000 AVTBIT2 EQU IEDQAVTD+1051 00676000 AVTBIT3 EQU IEDQAVTD+1052 00677000 AVTOPCIN EQU IEDQAVTD+1074 00678000 AVTBIT4 EQU IEDQAVTD+1136 00679000 @NM00085 EQU IEDQAVTD+1232 00680000 IEDNSVTD EQU 0 00681000 SAVTDIAG EQU IEDNSVTD 00682000 SAVTDIAF EQU SAVTDIAG 00683000 SAVTLUSQ EQU IEDNSVTD+88 00684000 SAVTTCPU EQU IEDNSVTD+238 00685000 SAVTZELM EQU IEDNSVTD+270 00686000 SAVTRDRV EQU IEDNSVTD+284 00687000 SAVTCKQB EQU IEDNSVTD+300 00688000 SAVTCKTB EQU SAVTCKQB 00689000 SAVTCKEC EQU SAVTCKQB+4 00690000 SAVTCKCC EQU SAVTCKEC 00691000 IEDQCCW EQU 0 00692000 CCW EQU IEDQCCW 00693000 CCWFLAGS EQU CCW+4 00694000 IEDCOM EQU 0 00695000 COMCCWS EQU IEDCOM+20 00696000 COMCCW1 EQU COMCCWS 00697000 IHADCB EQU 0 00698000 IHADCS1A EQU 0 00699000 DCBBCKUP EQU IHADCS1A+8 00700000 IHADCS2K EQU 0 00701000 DCBDUMPD EQU IHADCS2K 00702000 DCBTRSTA EQU IHADCS2K+5 00703000 DCBDSORG EQU IHADCS2K+6 00704000 DCBDSRG2 EQU DCBDSORG+1 00705000 DCBRNCKD EQU IHADCS2K+12 00706000 DCBEXLST EQU IHADCS2K+16 00707000 IHADCS24 EQU 0 00708000 DCBOFLGS EQU IHADCS24+8 00709000 DCBOFLWR EQU DCBOFLGS 00710000 DCBIFLG EQU IHADCS24+9 00711000 DCBIBPCT EQU DCBIFLG 00712000 DCBMACR EQU IHADCS24+10 00713000 DCBMACR1 EQU DCBMACR 00714000 DCBMRFE EQU DCBMACR1 00715000 DCBMRGET EQU DCBMRFE 00716000 DCBMRAPG EQU DCBMACR1 00717000 DCBMRRD EQU DCBMRAPG 00718000 DCBMRCI EQU DCBMACR1 00719000 DCBMRMVG EQU DCBMRCI 00720000 DCBMRLCG EQU DCBMACR1 00721000 DCBMRABC EQU DCBMACR1 00722000 DCBMRPT1 EQU DCBMRABC 00723000 DCBMRSBG EQU DCBMRPT1 00724000 DCBMRCRL EQU DCBMACR1 00725000 DCBMRCHK EQU DCBMRCRL 00726000 DCBMRRDX EQU DCBMRCHK 00727000 DCBMRDMG EQU DCBMACR1 00728000 DCBMACR2 EQU DCBMACR+1 00729000 DCBMRPUT EQU DCBMACR2 00730000 DCBMRWRT EQU DCBMACR2 00731000 DCBMRMVP EQU DCBMACR2 00732000 DCBMR5WD EQU DCBMACR2 00733000 DCBMRLDM EQU DCBMR5WD 00734000 DCBMRLCP EQU DCBMRLDM 00735000 DCBMR4WD EQU DCBMACR2 00736000 DCBMRPT2 EQU DCBMR4WD 00737000 DCBMRTMD EQU DCBMRPT2 00738000 DCBMR3WD EQU DCBMACR2 00739000 DCBMRCTL EQU DCBMR3WD 00740000 DCBMRSTK EQU DCBMRCTL 00741000 DCBMR1WD EQU DCBMACR2 00742000 DCBMRSWA EQU DCBMR1WD 00743000 DCBMRDMD EQU DCBMRSWA 00744000 IHADCS25 EQU 0 00745000 DCBMACRF EQU IHADCS25+2 00746000 DCBMACF1 EQU DCBMACRF 00747000 DCBMFFE EQU DCBMACF1 00748000 DCBMFGET EQU DCBMFFE 00749000 DCBMFAPG EQU DCBMACF1 00750000 DCBMFRD EQU DCBMFAPG 00751000 DCBMFCI EQU DCBMACF1 00752000 DCBMFMVG EQU DCBMFCI 00753000 DCBMFLCG EQU DCBMACF1 00754000 DCBMFABC EQU DCBMACF1 00755000 DCBMFPT1 EQU DCBMFABC 00756000 DCBMFSBG EQU DCBMFPT1 00757000 DCBMFCRL EQU DCBMACF1 00758000 DCBMFCHK EQU DCBMFCRL 00759000 DCBMFDMG EQU DCBMACF1 00760000 DCBMACF2 EQU DCBMACRF+1 00761000 DCBMFPUT EQU DCBMACF2 00762000 DCBMFWRT EQU DCBMACF2 00763000 DCBMFMVP EQU DCBMACF2 00764000 DCBMF5WD EQU DCBMACF2 00765000 DCBMFLDM EQU DCBMF5WD 00766000 DCBMFLCP EQU DCBMFLDM 00767000 DCBMF4WD EQU DCBMACF2 00768000 DCBMFPT2 EQU DCBMF4WD 00769000 DCBMFTMD EQU DCBMFPT2 00770000 DCBMF3WD EQU DCBMACF2 00771000 DCBMFCTL EQU DCBMF3WD 00772000 DCBMFSTK EQU DCBMFCTL 00773000 DCBMF1WD EQU DCBMACF2 00774000 DCBMFSWA EQU DCBMF1WD 00775000 DCBMFDMD EQU DCBMFSWA 00776000 DCBDEBAD EQU IHADCS25+4 00777000 DCBIFLGS EQU DCBDEBAD 00778000 DCBIFPCT EQU DCBIFLGS 00779000 IHADCS27 EQU 0 00780000 DCBGET EQU IHADCS27 00781000 DCBPUT EQU DCBGET 00782000 DCBGETA EQU DCBPUT+1 00783000 IHADCS43 EQU 0 00784000 DCBSCTAB EQU IHADCS43 00785000 IEDQDEB EQU 0 00786000 DEBPRF EQU IEDQDEB 00787000 DEBAPVT EQU DEBPRF 00788000 DEBNMSUB EQU IEDQDEB+36 00789000 DEBNMEXT EQU IEDQDEB+52 00790000 DEBUCBS EQU IEDQDEB+68 00791000 IEDQLCB EQU 0 00792000 LCBRCB EQU IEDQLCB 00793000 LCBTSOB EQU IEDQLCB+19 00794000 LCBCHAIN EQU IEDQLCB+20 00795000 LCBSCRNN EQU LCBCHAIN 00796000 LCBTETEN EQU LCBCHAIN 00797000 LCBINSRC EQU IEDQLCB+21 00798000 LCBLKMDE EQU LCBINSRC+2 00799000 LCBNTXT EQU IEDQLCB+24 00800000 LCBSTAT4 EQU LCBNTXT 00801000 LCBDMPRQ EQU LCBSTAT4 00802000 LCBDACRQ EQU LCBSTAT4 00803000 LCBPHASE EQU LCBSTAT4 00804000 LCBSCBDA EQU IEDQLCB+25 00805000 LCBMHA EQU IEDQLCB+29 00806000 LCBFLAG1 EQU IEDQLCB+32 00807000 LCBIOBSN EQU IEDQLCB+33 00808000 LCBSNS EQU LCBIOBSN+1 00809000 LCBSENS0 EQU LCBSNS 00810000 LCBLOSDT EQU LCBSENS0 00811000 LCBTMOUT EQU LCBSENS0 00812000 LCBFLAG3 EQU LCBIOBSN+7 00813000 LCBCSW EQU LCBIOBSN+8 00814000 LCBCSWST EQU LCBCSW+3 00815000 LCBCSWUS EQU LCBCSWST 00816000 LCBCSWCS EQU LCBCSWST+1 00817000 LCBSIOCC EQU LCBIOBSN+15 00818000 LCBDCBPT EQU IEDQLCB+52 00819000 LCBRCQCB EQU IEDQLCB+56 00820000 LCBRESTR EQU LCBRCQCB 00821000 LCBTHSQ EQU IEDQLCB+60 00822000 LCBINCAM EQU LCBTHSQ 00823000 LCBERRCT EQU IEDQLCB+62 00824000 LCBLSPCI EQU IEDQLCB+65 00825000 LCBRCBFR EQU LCBLSPCI 00826000 LCBSTATE EQU IEDQLCB+70 00827000 LCBSTAT1 EQU LCBSTATE 00828000 LCBSTAT2 EQU LCBSTATE+1 00829000 LCBBEOTN EQU LCBSTAT2 00830000 LCBSYNC EQU LCBSTAT2 00831000 LCBDIAL EQU LCBSTAT2 00832000 LCBTSTSW EQU IEDQLCB+72 00833000 LCBERB EQU IEDQLCB+76 00834000 LCBERBST EQU IEDQLCB+84 00835000 LCBDLNKN EQU LCBERBST 00836000 LCBERBCT EQU IEDQLCB+88 00837000 LCBRBCT2 EQU LCBERBCT+1 00838000 LCBTTCIN EQU IEDQLCB+90 00839000 LCBMSGFM EQU IEDQLCB+92 00840000 LCBOBRCH EQU IEDQLCB+96 00841000 LCBINVPT EQU LCBOBRCH+1 00842000 LCBBFRW EQU LCBINVPT 00843000 LCBTPCD EQU IEDQLCB+100 00844000 LCBSTAT5 EQU LCBTPCD 00845000 LCBSTAT6 EQU LCBTPCD+4 00846000 LCBRSPSV EQU LCBTPCD+8 00847000 LCBSAVSN EQU IEDQLCB+112 00848000 LCBERCCW EQU IEDQLCB+120 00849000 LCBCPA EQU IEDQLCB+144 00850000 LCBCCW1 EQU LCBCPA 00851000 LCBCCW5 EQU LCBCPA+32 00852000 LCBATTEL EQU LCBCCW5 00853000 LCBQEBPL EQU LCBATTEL 00854000 IEDQLCBX EQU 0 00855000 LCBXCON EQU IEDQLCBX 00856000 LCBXFLAG EQU LCBXCON 00857000 LCBXDCT EQU LCBXCON+1 00858000 LCBXRADR EQU LCBXCON+4 00859000 IEDNCP EQU 0 00860000 NCPFLAG1 EQU IEDNCP+1 00861000 IEDQOPCE EQU 0 00862000 OCELEM EQU IEDQOPCE+4 00863000 OCELMPRI EQU OCELEM 00864000 OCUNIT EQU IEDQOPCE+8 00865000 OCRUDEST EQU OCUNIT 00866000 OCCKPKEY EQU OCRUDEST 00867000 OCSCAN EQU OCCKPKEY 00868000 OCOPTCDE EQU IEDQOPCE+12 00869000 OCSWITCH EQU IEDQOPCE+13 00870000 OCFLAG EQU IEDQOPCE+14 00871000 OCCONSOL EQU OCFLAG 00872000 OCTOTE EQU OCFLAG 00873000 OCATTACH EQU OCFLAG 00874000 @NM00167 EQU IEDQOPCE+16 00875000 OCDEST EQU @NM00167 00876000 OCREQVAL EQU OCDEST+1 00877000 OCTRMTBL EQU IEDQOPCE+20 00878000 OCLINENO EQU IEDQOPCE+22 00879000 OCTIOT EQU OCLINENO 00880000 OCTRUNIT EQU IEDQOPCE+24 00881000 OCRSID EQU OCTRUNIT 00882000 OCALSTAT EQU OCRSID 00883000 OCPARM EQU IEDQOPCE+28 00884000 OCWTG EQU IEDQOPCE+30 00885000 OCBACKUP EQU IEDQOPCE+32 00886000 OCMODNME EQU IEDQOPCE+40 00887000 OCIPLWA EQU OCMODNME 00888000 OCCKDATA EQU IEDQOPCE+48 00889000 OCRSTGTM EQU OCCKDATA 00890000 IEDQOPCN EQU 0 00891000 OCLDNME EQU IEDQOPCN 00892000 OCLINTTE EQU OCLDNME 00893000 OCREQFLG EQU OCLINTTE+2 00894000 OCPREFLG EQU OCLINTTE+3 00895000 IEDOCTR EQU 0 00896000 OCTRDCB EQU IEDOCTR+4 00897000 OCTRSW EQU IEDOCTR+13 00898000 OCTRFA EQU OCTRSW 00899000 OCTRRTE EQU IEDOCTR+14 00900000 OCTRFC EQU OCTRRTE 00901000 OCTRMD EQU OCTRRTE 00902000 OCTRMP EQU OCTRRTE 00903000 OCTR09 EQU OCTRRTE 00904000 OCTR07 EQU OCTRRTE 00905000 OCTR00 EQU OCTRRTE 00906000 OCTRRTN EQU IEDOCTR+15 00907000 OCTRIP EQU OCTRRTN 00908000 OCTRTTE EQU IEDOCTR+16 00909000 OCTRUCB EQU IEDOCTR+24 00910000 IEDQOPCD EQU 0 00911000 OPCCOPCE EQU IEDQOPCD+12 00912000 OPCOPTLK EQU IEDQOPCD+20 00913000 OPCPGCK EQU IEDQOPCD+40 00914000 OPCSAVE EQU IEDQOPCD+56 00915000 OPCWORK EQU IEDQOPCD+140 00916000 OPCAQCTL EQU IEDQOPCD+180 00917000 OPCXCTL EQU IEDQOPCD+204 00918000 OPCLDNME EQU IEDQOPCD+212 00919000 OPCMODID EQU OPCLDNME+3 00920000 OPCGETBF EQU IEDQOPCD+276 00921000 OPCFREBF EQU IEDQOPCD+280 00922000 OPCSPEC EQU IEDQOPCD+300 00923000 OPCPWCOB EQU IEDQOPCD+368 00924000 OPCPWQCB EQU OPCPWCOB 00925000 OPCPWECB EQU OPCPWCOB+4 00926000 IEDOPRED EQU 0 00927000 OPRESAVE EQU IEDOPRED+8 00928000 OPREFLG3 EQU IEDOPRED+14 00929000 IEDQQCB EQU 0 00930000 QCBDSFLG EQU IEDQQCB 00931000 QCBDISK EQU QCBDSFLG 00932000 QCBELCHN EQU IEDQQCB+1 00933000 QCBEOLDT EQU IEDQQCB+16 00934000 QCBBYTE1 EQU QCBEOLDT+1 00935000 QCBLKRLN EQU IEDQQCB+18 00936000 QCBRETCT EQU QCBLKRLN 00937000 QCBSTAT EQU IEDQQCB+19 00938000 QCBINSRC EQU IEDQQCB+21 00939000 @NM00202 EQU QCBINSRC 00940000 QCBTSOF2 EQU @NM00202+1 00941000 QCBTSOF1 EQU @NM00202+2 00942000 QCBINTVL EQU IEDQQCB+24 00943000 QCBPREN EQU IEDQQCB+28 00944000 QCBLKRRN EQU QCBPREN+1 00945000 QCBDCBAD EQU IEDQQCB+33 00946000 QCBFLAG EQU IEDQQCB+36 00947000 IEDQPQCB EQU 0 00948000 QCBFHDLZ EQU IEDQPQCB+3 00949000 QCBPFEFO EQU QCBFHDLZ+1 00950000 QCBFHDTZ EQU IEDQPQCB+6 00951000 QCBINTLF EQU IEDQPQCB+12 00952000 IEDNQCB EQU 0 00953000 QCBSTAT1 EQU IEDNQCB+4 00954000 QCBPLCBA EQU IEDNQCB+5 00955000 IEDQTRM EQU 0 00956000 TRMSTATE EQU IEDQTRM 00957000 TRMLOG EQU TRMSTATE 00958000 TRMINSEQ EQU IEDQTRM+4 00959000 TLISTCNT EQU TRMINSEQ 00960000 TRMOUTSQ EQU IEDQTRM+6 00961000 TLISTEN EQU TRMOUTSQ 00962000 TRMDSORG EQU TLISTEN 00963000 TRMALTD EQU IEDQTRM+8 00964000 TRMDEVFL EQU IEDQTRM+10 00965000 TRMSTAT EQU IEDQTRM+12 00966000 IEDNTRM EQU 0 00967000 TRMBYTE4 EQU IEDNTRM 00968000 TRMBYTE3 EQU IEDNTRM+1 00969000 TRMBYTE2 EQU IEDNTRM+2 00970000 TRMINPG EQU TRMBYTE2 00971000 TRMBYTE1 EQU IEDNTRM+3 00972000 TRMSCPRQ EQU TRMBYTE1 00973000 TRMBYTE0 EQU IEDNTRM+6 00974000 TRMSIBPT EQU IEDNTRM+7 00975000 UCB EQU 0 00976000 UCBOB EQU 0 00977000 UCBJBNR EQU UCBOB 00978000 UCBFL5 EQU UCBOB+1 00979000 UCBAF EQU UCBFL5 00980000 UCBSTAT EQU UCBOB+3 00981000 UCBCHAN EQU UCBOB+4 00982000 UCBSFLS EQU UCBOB+6 00983000 UCBFLA EQU UCBSFLS 00984000 UCBFL1 EQU UCBFLA 00985000 UCBBSY EQU UCBFL1 00986000 UCBNRY EQU UCBFL1 00987000 UCBPST EQU UCBFL1 00988000 UCBCUB EQU UCBFL1 00989000 UCBFLB EQU UCBSFLS+1 00990000 UCBCHM EQU UCBOB+8 00991000 UCBCHM1 EQU UCBCHM 00992000 UCBPTH0 EQU UCBCHM1 00993000 UCBPTH1 EQU UCBCHM1 00994000 UCBWGT EQU UCBOB+12 00995000 UCBTYP EQU UCBOB+16 00996000 UCBTBYT1 EQU UCBTYP 00997000 UCB1FEA5 EQU UCBTBYT1 00998000 UCB1FEA6 EQU UCBTBYT1 00999000 UCBTBYT2 EQU UCBTYP+1 01000000 UCB2OPT2 EQU UCBTBYT2 01001000 UCBDUDN1 EQU UCB2OPT2 01002000 UCB2OPT3 EQU UCBTBYT2 01003000 UCBDUDN2 EQU UCB2OPT3 01004000 UCB2OPT4 EQU UCBTBYT2 01005000 UCBRWTAU EQU UCB2OPT4 01006000 UCB2OPT6 EQU UCBTBYT2 01007000 UCB2OPT7 EQU UCBTBYT2 01008000 UCBTBYT3 EQU UCBTYP+2 01009000 UCBDVCLS EQU UCBTBYT3 01010000 UCBTBYT4 EQU UCBTYP+3 01011000 UCBEXTPT EQU UCBOB+20 01012000 UCBFLC EQU UCBEXTPT 01013000 UCBDEV EQU UCBOB+24 01014000 UCBCMEXT EQU 0 01015000 UCBATI EQU UCBCMEXT+3 01016000 @NM00216 EQU UCBATI 01017000 UCBFLP1 EQU UCBCMEXT+5 01018000 UCBMT EQU 0 01019000 UCBOCR EQU 0 01020000 UCB3540X EQU 0 01021000 UCBDKBYT EQU UCB3540X+6 01022000 UCB3800X EQU 0 01023000 UCBOPTNS EQU UCB3800X 01024000 UCBACTIV EQU UCB3800X+3 01025000 UCBMDRBF EQU UCB3800X+36 01026000 UCBUCS EQU 0 01027000 UCBUCSOP EQU UCBUCS+4 01028000 UCBFCBOP EQU UCBUCS+5 01029000 ALLOCBUF EQU 0 01030000 PROGRTNE EQU 0 01031000 FREEBUFF EQU 0 01032000 @NM00217 EQU 0 01033000 GETLIST EQU @NM00217 01034000 RETRNAD EQU @NM00217+4 01035000 MSGWORK EQU 0 01036000 DEBSUBR EQU 0 01037000 QCBLDCB EQU 0 01038000 UCBBGN EQU 0 01039000 UNITCLR EQU 0 01040000 DEBUCB EQU DEBUCBS 01041000 DEBDVMOD EQU DEBUCB 01042000 DEBUCBAD EQU DEBUCB+1 01043000 LCBRSPIN EQU LCBIOBSN 01044000 LCBLUSNS EQU LCBRSPIN+5 01045000 LCBSCPRS EQU LCBRSPIN+9 01046000 LCBCSWU1 EQU LCBSCPRS+2 01047000 LCBRSPFG EQU LCBRSPIN+15 01048000 LCBCOREQ EQU LCBTPCD 01049000 @NM00149 EQU LCBCPA+40 01050000 LCBQNX EQU LCBERCCW 01051000 LCBQNXMN EQU LCBQNX 01052000 LCBCANCL EQU LCBSAVSN 01053000 LCBCANFG EQU LCBCANCL 01054000 OCCKPKY1 EQU OCCKPKEY 01055000 OCCKPTYP EQU OCCKPKY1 01056000 OCICACTN EQU OCMODNME 01057000 OCICDADR EQU OCICACTN 01058000 OCICSW EQU OCICDADR+3 01059000 OPCAQWD EQU OPCAQCTL 01060000 OPCAQWD1 EQU OPCAQWD 01061000 OPCAQWD2 EQU OPCAQWD+4 01062000 OPCAQWD3 EQU OPCAQWD+8 01063000 TRMPRE1 EQU TRMBYTE4 01064000 TRMNCP1 EQU TRMBYTE4 01065000 TRMPRE EQU TRMBYTE3 01066000 TRMNCP EQU TRMBYTE3 01067000 TRMPU EQU TRMBYTE3 01068000 TRMLU EQU TRMBYTE3 01069000 TRMLINK EQU TRMBYTE3 01070000 UCBOBS01 EQU UCBDEV 01071000 UCBSTAB EQU UCBOBS01+10 01072000 UCBBSVL EQU UCBSTAB 01073000 UCBPRSRS EQU UCBSTAB 01074000 UCBDMCT EQU UCBOBS01+11 01075000 UCBFL4 EQU UCBOBS01+13 01076000 UCBOBS02 EQU UCBDEV 01077000 UCBTFL1 EQU UCBOBS02+19 01078000 UCBXTN EQU UCBOBS02+20 01079000 UCBVOPT EQU UCBXTN 01080000 UCBOBS03 EQU UCBDEV 01081000 UCBXTADR EQU UCBOBS03 01082000 UCBOBS04 EQU UCBDEV 01083000 UCBBTA EQU UCBOBS04+12 01084000 UCBOBS06 EQU UCBDEV 01085000 UCBAOF EQU UCBOBS06 01086000 UCBAOF1 EQU UCBAOF 01087000 UCBAOF2 EQU UCBAOF+1 01088000 @NM00215 EQU UCBOBS06+3 01089000 UCBIRB EQU UCBOBS06+4 01090000 UCBGRAF EQU UCBIRB 01091000 UCBLDNCA EQU UCBOBS06+8 01092000 UCBRDYQ EQU UCBLDNCA 01093000 UCBIRLN EQU UCBRDYQ 01094000 UCBLDNCB EQU UCBRDYQ+1 01095000 UCBCTLNK EQU UCBOBS06+12 01096000 UCBOBS07 EQU UCBDEV 01097000 UCBOBS08 EQU UCBDEV 01098000 UCBCTCAD EQU UCBOBS08 01099000 UCBCTCF1 EQU UCBOBS08+4 01100000 UCBOBS09 EQU UCBDEV 01101000 CLEAR EQU MSGWORK 01102000 @NM00222 EQU LCBCCW1 01103000 CLEAR1 EQU MSGWORK 01104000 MSGECB EQU LCBCCW1 01105000 OCCIB EQU OCREQVAL 01106000 TRMOPT EQU IEDQTRM+20 01107000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01108000 RTNPTR EQU @NM00222+4 01109000 @NM00223 EQU @NM00222 01110000 UCBRV066 EQU UCBOBS09+4 01111000 UCBIOSBA EQU UCBOBS09 01112000 UCBRV042 EQU UCBOBS08+5 01113000 UCBRV082 EQU UCBCTCF1 01114000 UCBRV081 EQU UCBCTCF1 01115000 UCBRV080 EQU UCBCTCF1 01116000 UCBRV079 EQU UCBCTCF1 01117000 UCBRV078 EQU UCBCTCF1 01118000 UCBRV077 EQU UCBCTCF1 01119000 UCBRV076 EQU UCBCTCF1 01120000 UCBCTC80 EQU UCBCTCF1 01121000 UCBCTCAL EQU UCBCTCAD 01122000 UCBICNCB EQU UCBOBS07+4 01123000 UCBRV040 EQU UCBOBS07 01124000 UCBCTLNA EQU UCBCTLNK+1 01125000 UCBRLN EQU UCBCTLNK 01126000 UCBRDYQA EQU UCBLDNCB 01127000 UCBINRLN EQU UCBIRLN 01128000 UCBIRBA EQU UCBIRB+1 01129000 UCBRV039 EQU UCBGRAF 01130000 UCBDWNR EQU UCBGRAF 01131000 UCBRPND EQU UCBGRAF 01132000 UCBUPM EQU UCBGRAF 01133000 UCBBTAM EQU UCBGRAF 01134000 UCBDRNO EQU UCBGRAF 01135000 UCBDRO EQU UCBGRAF 01136000 UCBOIP EQU UCBGRAF 01137000 UCBATRCD EQU @NM00215 01138000 UCBSKPFG EQU @NM00215 01139000 UCBRIPND EQU @NM00215 01140000 UCBRTIAC EQU @NM00215 01141000 UCBRSV79 EQU @NM00215 01142000 UCBRSV78 EQU @NM00215 01143000 UCBRSV77 EQU @NM00215 01144000 UCBOLTEP EQU @NM00215 01145000 UCBATNCT EQU UCBOBS06+2 01146000 UCBRSV76 EQU UCBAOF2 01147000 UCBRSV75 EQU UCBAOF2 01148000 UCBRSV74 EQU UCBAOF2 01149000 UCBRSV73 EQU UCBAOF2 01150000 UCBRSV72 EQU UCBAOF2 01151000 UCBRSV71 EQU UCBAOF2 01152000 UCBRSV70 EQU UCBAOF2 01153000 UCBRSV69 EQU UCBAOF2 01154000 UCBRSV68 EQU UCBAOF1 01155000 UCBRSV67 EQU UCBAOF1 01156000 UCBRSV66 EQU UCBAOF1 01157000 UCBRSV65 EQU UCBAOF1 01158000 UCBRSV64 EQU UCBAOF1 01159000 UCBOFNL EQU UCBAOF1 01160000 UCBOFSP EQU UCBAOF1 01161000 UCBOFMCR EQU UCBAOF1 01162000 UCBBTB EQU UCBBTA+1 01163000 UCBDI EQU UCBBTA 01164000 UCBSNS EQU UCBOBS04+8 01165000 UCBTEB EQU UCBOBS04+4 01166000 UCBGCB EQU UCBOBS04+3 01167000 UCBOPEN EQU UCBOBS04+2 01168000 UCBSTART EQU UCBOBS04 01169000 UCBXTNB EQU UCBXTN+1 01170000 UCBRSV22 EQU UCBVOPT 01171000 UCBRSV21 EQU UCBVOPT 01172000 UCBRSV20 EQU UCBVOPT 01173000 UCBESVE EQU UCBVOPT 01174000 UCBERPC EQU UCBVOPT 01175000 UCBESVC EQU UCBVOPT 01176000 UCBEVA EQU UCBVOPT 01177000 UCBESV EQU UCBVOPT 01178000 UCBRV009 EQU UCBTFL1 01179000 UCBRV008 EQU UCBTFL1 01180000 UCBRV007 EQU UCBTFL1 01181000 UCBRV006 EQU UCBTFL1 01182000 UCBRV005 EQU UCBTFL1 01183000 UCBRV038 EQU UCBTFL1 01184000 UCBNSLTP EQU UCBTFL1 01185000 UCBNLTP EQU UCBTFL1 01186000 UCBRES1B EQU UCBOBS02+18 01187000 UCBFSER EQU UCBOBS02+12 01188000 @NM00214 EQU UCBOBS02+4 01189000 UCBFSEQ EQU UCBOBS02+2 01190000 UCBFSCT EQU UCBOBS02 01191000 UCBNEXP EQU UCBOBS01+20 01192000 UCBBASE EQU UCBOBS01+16 01193000 UCBRES1A EQU UCBOBS01+15 01194000 UCBUSER EQU UCBOBS01+14 01195000 UCBFL47 EQU UCBFL4 01196000 UCBFL46 EQU UCBFL4 01197000 UCBFL45 EQU UCBFL4 01198000 UCBRV065 EQU UCBFL4 01199000 UCBDSS EQU UCBFL4 01200000 UCBRV028 EQU UCBFL4 01201000 UCBWDAV EQU UCBFL4 01202000 UCBDAVV EQU UCBFL4 01203000 UCBSQC EQU UCBOBS01+12 01204000 UCBDATP EQU UCBOBS01+12 01205000 UCBDMC EQU UCBDMCT 01206000 UCBMOUNT EQU UCBDMCT 01207000 UCBBNUL EQU UCBSTAB 01208000 UCBSHAR EQU UCBSTAB 01209000 UCBBSTR EQU UCBSTAB 01210000 UCBBPUB EQU UCBSTAB 01211000 UCBBPRV EQU UCBSTAB 01212000 UCBBALB EQU UCBPRSRS 01213000 UCBPGFL EQU UCBSTAB 01214000 UCBDVSHR EQU UCBBSVL 01215000 UCBVOLI EQU UCBOBS01+4 01216000 UCBVTOC EQU UCBOBS01 01217000 @NM00212 EQU TRMLINK 01218000 TRMLSTAT EQU TRMLINK 01219000 TRMLINT EQU TRMLINK 01220000 TRMEPMOD EQU TRMLINK 01221000 TRMLULOG EQU TRMLU 01222000 TRMINERR EQU TRMLU 01223000 TRMLUREQ EQU TRMLU 01224000 TRMSESRQ EQU TRMLU 01225000 TRMTDIFF EQU TRMLU 01226000 TRMLUTM EQU TRMLU 01227000 TRMLUIT EQU TRMLU 01228000 TRMAUTO EQU TRMLU 01229000 TRMPCONT EQU TRMPU 01230000 @NM00211 EQU TRMPU 01231000 TRMNCONT EQU TRMNCP 01232000 TRMQUCKN EQU TRMNCP 01233000 TRMSLOWN EQU TRMNCP 01234000 TRMSYGEN EQU TRMNCP 01235000 TRMNCPCL EQU TRMNCP 01236000 TRMIPLDM EQU TRMNCP 01237000 TRMINOUT EQU TRMPRE 01238000 TRMRDOUT EQU TRMPRE 01239000 TRMNLOUT EQU TRMPRE 01240000 TRMWROUT EQU TRMPRE 01241000 TRMASNXI EQU TRMPRE 01242000 TRMSTMM EQU TRMPRE 01243000 TRMCMODE EQU TRMPRE 01244000 TRMSTPND EQU TRMPRE 01245000 @NM00210 EQU TRMNCP1 01246000 TRMINOP EQU TRMNCP1 01247000 TRMLYNCH EQU TRMPRE1 01248000 TRMSPOUT EQU TRMPRE1 01249000 TRMERLCK EQU TRMPRE1 01250000 TRMQNPL EQU TRMPRE1 01251000 TRMSPACT EQU TRMPRE1 01252000 TRMOCNI EQU TRMPRE1 01253000 TRMSESSN EQU TRMPRE1 01254000 TRMCONT EQU TRMPRE1 01255000 OPCAQLST EQU OPCAQWD3+1 01256000 OPCAQRQ3 EQU OPCAQWD3 01257000 OPCAQSEC EQU OPCAQWD2+1 01258000 OPCAQRQ2 EQU OPCAQWD2 01259000 OPCAQFST EQU OPCAQWD1+1 01260000 OPCAQREQ EQU OPCAQWD1 01261000 OCICINAC EQU OCICSW 01262000 @NM00173 EQU OCICSW 01263000 OCICATST EQU OCICDADR+1 01264000 OCICTYPE EQU OCICDADR 01265000 @NM00172 EQU OCCKPKY1 01266000 OCCKPENV EQU OCCKPKY1 01267000 OCCKPRST EQU OCCKPTYP 01268000 OCCKPNCP EQU OCCKPTYP 01269000 OCCKPINC EQU OCCKPTYP 01270000 @NM00157 EQU LCBCANCL+3 01271000 LCBCANTH EQU LCBCANCL+1 01272000 @NM00156 EQU LCBCANFG 01273000 LCBCANCD EQU LCBCANFG 01274000 @NM00155 EQU LCBCANFG 01275000 LCBCANEB EQU LCBCANFG 01276000 LCBCANXT EQU LCBCANFG 01277000 LCBUNADD EQU LCBQNX+21 01278000 LCBUASZE EQU LCBQNX+20 01279000 LCBDSTEA EQU LCBQNX+16 01280000 @NM00154 EQU LCBQNX+8 01281000 LCBIOSBS EQU LCBQNX+5 01282000 @NM00153 EQU LCBQNX+4 01283000 LCBSTSAV EQU LCBQNX+1 01284000 @NM00152 EQU LCBQNXMN 01285000 LCBNX509 EQU LCBQNXMN 01286000 LCBNX162 EQU LCBQNXMN 01287000 LCBNX142 EQU LCBQNXMN 01288000 LCBNX064 EQU LCBQNXMN 01289000 @NM00151 EQU @NM00149+4 01290000 LCBNCPPT EQU @NM00149+1 01291000 @NM00150 EQU @NM00149 01292000 LCBWRSCH EQU LCBCOREQ+8 01293000 LCBCQLNK EQU LCBCOREQ+4 01294000 LCBCQELE EQU LCBCOREQ 01295000 LCBPAKCH EQU LCBRSPIN+16 01296000 @NM00148 EQU LCBRSPFG 01297000 LCBRSRH EQU LCBRSPFG 01298000 LCBEXPI EQU LCBRSPFG 01299000 @NM00147 EQU LCBRSPIN+12 01300000 LCBUSUE1 EQU LCBCSWU1 01301000 @NM00146 EQU LCBCSWU1 01302000 @NM00145 EQU LCBSCPRS+1 01303000 LCBDFCMD EQU LCBSCPRS 01304000 LCBUSER EQU LCBLUSNS+2 01305000 LCBSMIN EQU LCBLUSNS+1 01306000 LCBSMAJ EQU LCBLUSNS 01307000 LCBRHSV EQU LCBRSPIN+2 01308000 LCBSNS0 EQU LCBRSPIN+1 01309000 @NM00144 EQU LCBRSPIN 01310000 @NM00221 EQU MSGWORK+30 01311000 MSGTXT EQU MSGWORK+26 01312000 @NM00220 EQU MSGWORK+25 01313000 ADDRDD EQU MSGWORK+17 01314000 @NM00219 EQU MSGWORK+11 01315000 MSGNUMB EQU MSGWORK+4 01316000 @NM00218 EQU MSGWORK 01317000 UCBERADR EQU UCBUCS+12 01318000 UCBFCBID EQU UCBUCS+8 01319000 UCBERCNT EQU UCBUCS+7 01320000 UCBRSV51 EQU UCBUCS+6 01321000 UCBRSV50 EQU UCBFCBOP 01322000 UCBRSV49 EQU UCBFCBOP 01323000 UCBRSV48 EQU UCBFCBOP 01324000 UCBRSV47 EQU UCBFCBOP 01325000 UCBRSV46 EQU UCBFCBOP 01326000 UCBRSV45 EQU UCBFCBOP 01327000 UCBRSV44 EQU UCBFCBOP 01328000 UCBFCBO1 EQU UCBFCBOP 01329000 UCBUCSPE EQU UCBUCSOP 01330000 UCBRSV43 EQU UCBUCSOP 01331000 UCBRSV42 EQU UCBUCSOP 01332000 UCBRSV41 EQU UCBUCSOP 01333000 UCBRSV40 EQU UCBUCSOP 01334000 UCBRSV39 EQU UCBUCSOP 01335000 UCBUCSO2 EQU UCBUCSOP 01336000 UCBUCSO1 EQU UCBUCSOP 01337000 UCBUCSID EQU UCBUCS 01338000 UCBMDRBA EQU UCBMDRBF+1 01339000 UCBRV075 EQU UCBMDRBF 01340000 UCBRV074 EQU UCB3800X+32 01341000 UCBIMAGE EQU UCB3800X+28 01342000 UCBFCBNM EQU UCB3800X+24 01343000 UCBCHAR4 EQU UCB3800X+20 01344000 UCBCHAR3 EQU UCB3800X+16 01345000 UCBCHAR2 EQU UCB3800X+12 01346000 UCBCHAR1 EQU UCB3800X+8 01347000 UCBCGMID EQU UCB3800X+4 01348000 UCBBRSTA EQU UCBACTIV 01349000 UCBRV063 EQU UCBACTIV 01350000 UCBRV062 EQU UCBACTIV 01351000 UCBRV061 EQU UCBACTIV 01352000 UCBRV060 EQU UCBACTIV 01353000 UCBRV059 EQU UCBACTIV 01354000 UCBRV058 EQU UCBACTIV 01355000 UCBRV057 EQU UCBACTIV 01356000 UCBRV050 EQU UCB3800X+2 01357000 UCBCGMNO EQU UCB3800X+1 01358000 UCBRV083 EQU UCBOPTNS 01359000 UCBBRSTR EQU UCBOPTNS 01360000 UCBRV056 EQU UCBOPTNS 01361000 UCBRV055 EQU UCBOPTNS 01362000 UCBRV054 EQU UCBOPTNS 01363000 UCBRV053 EQU UCBOPTNS 01364000 UCBRV052 EQU UCBOPTNS 01365000 UCBRV051 EQU UCBOPTNS 01366000 UCBRV073 EQU UCB3540X+7 01367000 UCBRV072 EQU UCBDKBYT 01368000 UCBRV071 EQU UCBDKBYT 01369000 UCBRV070 EQU UCBDKBYT 01370000 UCBRV069 EQU UCBDKBYT 01371000 UCBRV068 EQU UCBDKBYT 01372000 UCBRV067 EQU UCBDKBYT 01373000 UCBVLVER EQU UCBDKBYT 01374000 UCBDKAMX EQU UCBDKBYT 01375000 UCBVLSER EQU UCB3540X 01376000 UCBRDATA EQU UCBOCR+4 01377000 UCBFRID EQU UCBOCR 01378000 UCBCLN EQU UCBMT+14 01379000 UCBERG EQU UCBMT+12 01380000 UCBMS EQU UCBMT+11 01381000 UCBNB EQU UCBMT+10 01382000 UCBPW EQU UCBMT+9 01383000 UCBPR EQU UCBMT+8 01384000 UCBSIO EQU UCBMT+6 01385000 UCBTW EQU UCBMT+5 01386000 UCBTR EQU UCBMT+4 01387000 UCBTWT EQU UCBMT+3 01388000 UCBTRT EQU UCBMT+2 01389000 UCBCTD EQU UCBMT 01390000 UCBWTOID EQU UCBCMEXT+17 01391000 UCBRV043 EQU UCBCMEXT+16 01392000 UCBASID EQU UCBCMEXT+14 01393000 UCBMFCNT EQU UCBCMEXT+12 01394000 UCBPMSK EQU UCBCMEXT+10 01395000 UCBCCWOF EQU UCBCMEXT+8 01396000 UCBRV041 EQU UCBCMEXT+6 01397000 UCBRV036 EQU UCBFLP1 01398000 UCBRV035 EQU UCBFLP1 01399000 UCBERLOG EQU UCBFLP1 01400000 UCBRV033 EQU UCBFLP1 01401000 UCBRV032 EQU UCBFLP1 01402000 UCBRV031 EQU UCBFLP1 01403000 UCBSHRUP EQU UCBFLP1 01404000 UCBNSRCH EQU UCBFLP1 01405000 UCBSNSCT EQU UCBCMEXT+4 01406000 UCBHPDV EQU @NM00216 01407000 UCBHALI EQU @NM00216 01408000 UCBRSV09 EQU @NM00216 01409000 UCBRSV08 EQU @NM00216 01410000 UCBRSV07 EQU @NM00216 01411000 UCBRSV06 EQU @NM00216 01412000 UCBRSV05 EQU @NM00216 01413000 UCBRSV04 EQU @NM00216 01414000 UCBDTI EQU UCBCMEXT+2 01415000 UCBSTI EQU UCBCMEXT+1 01416000 UCBETI EQU UCBCMEXT 01417000 UCBEXTP EQU UCBEXTPT+1 01418000 UCBDDRSW EQU UCBFLC 01419000 UCBTICBT EQU UCBFLC 01420000 UCBIVRR EQU UCBFLC 01421000 UCBIVRS EQU UCBFLC 01422000 UCBITF EQU UCBFLC 01423000 UCBUDE EQU UCBFLC 01424000 UCBWAA EQU UCBFLC 01425000 UCBATTP EQU UCBFLC 01426000 UCBUNTYP EQU UCBTBYT4 01427000 UCBRSV11 EQU UCBDVCLS 01428000 UCBRSV10 EQU UCBDVCLS 01429000 UCB3CHAR EQU UCBDVCLS 01430000 UCB3UREC EQU UCBDVCLS 01431000 UCB3DISP EQU UCBDVCLS 01432000 UCB3DACC EQU UCBDVCLS 01433000 UCB3COMM EQU UCBDVCLS 01434000 UCB3TAPE EQU UCBDVCLS 01435000 UCBDVPWR EQU UCB2OPT7 01436000 UCBVLPWR EQU UCB2OPT6 01437000 UCB2OPT5 EQU UCBTBYT2 01438000 UCBRVDEV EQU UCBRWTAU 01439000 UCBRPS EQU UCBDUDN2 01440000 UCBRR EQU UCBDUDN1 01441000 UCB2OPT1 EQU UCBTBYT2 01442000 UCB2OPT0 EQU UCBTBYT2 01443000 UCB1FEA7 EQU UCBTBYT1 01444000 UCBD6250 EQU UCB1FEA6 01445000 UCBD1600 EQU UCB1FEA5 01446000 UCB1FEA4 EQU UCBTBYT1 01447000 UCB1FEA3 EQU UCBTBYT1 01448000 UCB1FEA2 EQU UCBTBYT1 01449000 UCB1FEA1 EQU UCBTBYT1 01450000 UCB1FEA0 EQU UCBTBYT1 01451000 UCBNAME EQU UCBOB+13 01452000 UCBRV029 EQU UCBWGT 01453000 UCBVHRSN EQU UCBWGT 01454000 UCBVORSN EQU UCBWGT 01455000 UCBMTPXP EQU UCBWGT 01456000 UCBREW EQU UCBWGT 01457000 UCBPUB EQU UCBWGT 01458000 UCBOUT EQU UCBWGT 01459000 UCBIN EQU UCBWGT 01460000 UCBCPU EQU UCBOB+11 01461000 UCBLCI EQU UCBOB+10 01462000 UCBCNT EQU UCBOB+9 01463000 UCBRV017 EQU UCBCHM1 01464000 UCBRV016 EQU UCBCHM1 01465000 UCBRV015 EQU UCBCHM1 01466000 UCBRV014 EQU UCBCHM1 01467000 UCBSPB EQU UCBPTH1 01468000 UCBPPB EQU UCBPTH1 01469000 UCBSPA EQU UCBPTH0 01470000 UCBPPA EQU UCBPTH0 01471000 UCBSIGP EQU UCBFLB 01472000 UCBVALPH EQU UCBFLB 01473000 UCBCRHSN EQU UCBFLB 01474000 UCBCRHRV EQU UCBFLB 01475000 UCBRESVH EQU UCBFLB 01476000 UCBSPST EQU UCBFLB 01477000 UCBASNS EQU UCBFLB 01478000 UCBIORST EQU UCBFLB 01479000 UCBQISCE EQU UCBFL1 01480000 UCBACTV EQU UCBFL1 01481000 UCBSAP EQU UCBFL1 01482000 UCBNOTRC EQU UCBCUB 01483000 UCBPSNS EQU UCBFL1 01484000 UCBUSING EQU UCBPST 01485000 UCBNOTRD EQU UCBNRY 01486000 UCBBUSYD EQU UCBBSY 01487000 UCBUA EQU UCBCHAN+1 01488000 UCBCHA EQU UCBCHAN 01489000 UCBDADI EQU UCBSTAT 01490000 UCBSYSR EQU UCBSTAT 01491000 UCBPRES EQU UCBSTAT 01492000 UCBALOC EQU UCBSTAT 01493000 UCBUNLD EQU UCBSTAT 01494000 UCBRESV EQU UCBSTAT 01495000 UCBCHGS EQU UCBSTAT 01496000 UCBONLI EQU UCBSTAT 01497000 UCBID EQU UCBOB+2 01498000 UCBALTPH EQU UCBFL5 01499000 UCBALTCU EQU UCBFL5 01500000 UCBNALOC EQU UCBFL5 01501000 UCBENVRD EQU UCBFL5 01502000 UCBVSDR EQU UCBFL5 01503000 UCBSASK EQU UCBFL5 01504000 UCBAMV EQU UCBAF 01505000 UCBDCC EQU UCBFL5 01506000 UCBMONT EQU UCBJBNR 01507000 UCBRV011 EQU UCBJBNR 01508000 UCBRSV02 EQU UCBJBNR 01509000 UCBOLDSM EQU UCBJBNR 01510000 UCBRV003 EQU UCBJBNR 01511000 UCBDUC EQU UCBJBNR 01512000 UCBJES3 EQU UCBJBNR 01513000 UCBVRDEV EQU UCBJBNR 01514000 UCBCMSEG EQU UCBOB 01515000 UCBPFXND EQU UCB+512 01516000 UCBIOQ EQU UCB+508 01517000 UCBLOCK EQU UCB+504 01518000 UCBPXST EQU UCB+504 01519000 @NM00213 EQU UCB 01520000 TRMSUBST EQU IEDNTRM+12 01521000 TRMTYPE EQU IEDNTRM+11 01522000 TRMRLMCT EQU IEDNTRM+10 01523000 TRMCOHTG EQU TRMSIBPT+1 01524000 TRMGPCNT EQU TRMSIBPT 01525000 TRMBUFRD EQU TRMBYTE0 01526000 TRMSNA EQU TRMBYTE0 01527000 TRMGP EQU TRMBYTE0 01528000 TRMDIAL EQU TRMBYTE0 01529000 @NM00209 EQU TRMBYTE0 01530000 TRMOUTPT EQU TRMBYTE0 01531000 TRMINPUT EQU TRMBYTE0 01532000 TRMUDEF EQU TRMBYTE0 01533000 TRMCOHRT EQU IEDNTRM+4 01534000 TRMSTOTE EQU TRMBYTE1 01535000 TRMCKPRN EQU TRMBYTE1 01536000 TRMTSATN EQU TRMBYTE1 01537000 TRMTRACE EQU TRMBYTE1 01538000 TRMSWBCK EQU TRMBYTE1 01539000 TRMAUTOC EQU TRMBYTE1 01540000 TRMINPTP EQU TRMBYTE1 01541000 TRMWTNEG EQU TRMSCPRQ 01542000 TRMWRBRK EQU TRMBYTE2 01543000 TRMNOSND EQU TRMBYTE2 01544000 TRMPREP EQU TRMBYTE2 01545000 TRMGPACT EQU TRMBYTE2 01546000 TRMANDL EQU TRMBYTE2 01547000 TRMCLOSN EQU TRMINPG 01548000 TRMREMB EQU TRMBYTE2 01549000 TRMRSACT EQU TRMBYTE2 01550000 TRMOPTBL EQU IEDQTRM+18 01551000 TRMOPNO EQU IEDQTRM+17 01552000 TRMCHCIN EQU IEDQTRM+16 01553000 TRMSENSE EQU TRMSTAT+3 01554000 TRMTEMPR EQU TRMSTAT+2 01555000 TRMSIO EQU TRMSTAT 01556000 @NM00208 EQU TRMDEVFL+1 01557000 TRMTPIN EQU TRMDEVFL+1 01558000 TRMNCPI EQU TRMDEVFL+1 01559000 TRMRNTRM EQU TRMDEVFL+1 01560000 @NM00207 EQU TRMDEVFL+1 01561000 TRMLMD EQU TRMDEVFL+1 01562000 TRMCONC EQU TRMDEVFL+1 01563000 TRMTSOB EQU TRMDEVFL 01564000 TRMBFDY EQU TRMDEVFL 01565000 TRMTBLK EQU TRMDEVFL 01566000 TRMSBLK EQU TRMDEVFL 01567000 TRMBLKS EQU TRMDEVFL 01568000 TRMADDC EQU TRMDEVFL 01569000 TRMDDIG EQU TRMDEVFL 01570000 TRMBUFS EQU TRMDEVFL 01571000 TRMPRILK EQU TRMALTD 01572000 TRMLGB EQU TRMDSORG 01573000 TRMUTERM EQU TLISTCNT 01574000 TRMDESTQ EQU IEDQTRM+1 01575000 TRMSCNYN EQU TRMSTATE 01576000 TRMOPTFN EQU TRMSTATE 01577000 TRMHELDN EQU TRMSTATE 01578000 TRMACPTN EQU TRMSTATE 01579000 TRMPREF EQU TRMSTATE 01580000 TRMPROC EQU TRMLOG 01581000 TRMLIST EQU TRMLOG 01582000 TRMLINE EQU TRMSTATE 01583000 QCBTTCIN EQU QCBPLCBA+1 01584000 @NM00206 EQU QCBPLCBA 01585000 @NM00205 EQU QCBSTAT1 01586000 QCBFLUSH EQU QCBSTAT1 01587000 QCBNDXRQ EQU QCBSTAT1 01588000 QCBESIG EQU QCBSTAT1 01589000 QCBRCVRQ EQU QCBSTAT1 01590000 QCBSNDRQ EQU QCBSTAT1 01591000 QCBWAITC EQU QCBSTAT1 01592000 QCBPLCBN EQU QCBSTAT1 01593000 QCBCHAIN EQU IEDNQCB 01594000 QCBPQBCK EQU IEDQPQCB+25 01595000 QCBPRIPQ EQU IEDQPQCB+24 01596000 QCBCFHDR EQU IEDQPQCB+21 01597000 QCBLFEFO EQU IEDQPQCB+18 01598000 QCBFFEFO EQU IEDQPQCB+15 01599000 QCBPREVF EQU QCBINTLF 01600000 QCBINTFF EQU IEDQPQCB+9 01601000 QCBDATSQ EQU QCBFHDTZ+1 01602000 @NM00204 EQU QCBFHDTZ 01603000 @NM00203 EQU QCBPFEFO 01604000 QCBDATFL EQU QCBFHDLZ 01605000 QCBDNHDR EQU IEDQPQCB 01606000 QCBQBACK EQU IEDQQCB+37 01607000 QCBCKPT EQU QCBFLAG 01608000 QCBPROC EQU QCBFLAG 01609000 QCBSDFFO EQU QCBFLAG 01610000 QCBTERMQ EQU QCBFLAG 01611000 QCBRSRV EQU QCBFLAG 01612000 QCBREAD EQU QCBFLAG 01613000 QCBNOBRK EQU QCBFLAG 01614000 QCBTSSES EQU QCBFLAG 01615000 QCBLGBAD EQU QCBDCBAD 01616000 QCBRELLN EQU IEDQQCB+32 01617000 QCBTJID EQU QCBLKRRN+1 01618000 QCBCARCT EQU QCBLKRRN 01619000 QCBPRLVL EQU QCBPREN 01620000 QCBMSGCT EQU IEDQQCB+26 01621000 QCBEXTO EQU QCBINTVL 01622000 QCBDISC EQU QCBTSOF1 01623000 QCBDELAY EQU QCBTSOF1 01624000 QCBPARTO EQU QCBTSOF1 01625000 QCBSATRD EQU QCBTSOF1 01626000 QCBNOBUF EQU QCBTSOF1 01627000 QCBTPUT EQU QCBTSOF1 01628000 QCBTGET EQU QCBTSOF1 01629000 QCBWRBRK EQU QCBTSOF1 01630000 QCBSATLC EQU QCBTSOF2 01631000 QCBSATTI EQU QCBTSOF2 01632000 QCBSATCH EQU QCBTSOF2 01633000 QCBSIMRD EQU QCBTSOF2 01634000 QCBDSSMI EQU QCBTSOF2 01635000 QCBPOSTO EQU QCBTSOF2 01636000 QCBBUFQ EQU QCBTSOF2 01637000 QCBINHBN EQU QCBTSOF2 01638000 QCBSATCT EQU @NM00202 01639000 QCBSCBOF EQU IEDQQCB+20 01640000 QCBTIME EQU QCBSTAT 01641000 QCBCLOCK EQU QCBSTAT 01642000 QCBSCHDL EQU QCBSTAT 01643000 QCBSMODE EQU QCBSTAT 01644000 QCBSEND EQU QCBSTAT 01645000 QCBBUFRD EQU QCBSTAT 01646000 QCBTRMHO EQU QCBSTAT 01647000 QCBEOM EQU QCBSTAT 01648000 QCBHUCT EQU QCBRETCT 01649000 QCBIEND EQU QCBRETCT 01650000 QCBEND EQU QCBRETCT 01651000 QCBNL EQU QCBRETCT 01652000 QCBLOGCT EQU QCBRETCT 01653000 @NM00201 EQU QCBBYTE1 01654000 QCBRITRM EQU QCBBYTE1 01655000 @NM00200 EQU QCBEOLDT 01656000 QCBSLINK EQU IEDQQCB+13 01657000 QCBSTPRI EQU IEDQQCB+12 01658000 QCBSTCHN EQU IEDQQCB+9 01659000 QCBSTVTO EQU IEDQQCB+8 01660000 QCBLINK EQU IEDQQCB+5 01661000 QCBPRI EQU IEDQQCB+4 01662000 QCBCNTEN EQU QCBELCHN+2 01663000 @NM00199 EQU QCBELCHN+2 01664000 @NM00198 EQU QCBELCHN 01665000 QCBHELD EQU QCBDSFLG 01666000 QCBFQCB EQU QCBDSFLG 01667000 QCBDRQQ EQU QCBDSFLG 01668000 QCBALTMH EQU QCBDSFLG 01669000 QCBREUS EQU QCBDISK 01670000 QCBNREUS EQU QCBDISK 01671000 QCBCORE EQU QCBDSFLG 01672000 QCBTSQ EQU QCBDSFLG 01673000 @NM00197 EQU OPREFLG3 01674000 OPREATCH EQU OPREFLG3 01675000 @NM00196 EQU OPREFLG3 01676000 OPREFLG2 EQU IEDOPRED+13 01677000 OPREFLG1 EQU IEDOPRED+12 01678000 OPRETIC EQU OPRESAVE 01679000 OPRELINK EQU IEDOPRED+5 01680000 OPREPRI EQU IEDOPRED+4 01681000 OPREQCB EQU IEDOPRED+1 01682000 OPREKEY EQU IEDOPRED 01683000 OPCBOTTM EQU IEDQOPCD+1184 01684000 @NM00195 EQU IEDQOPCD+1100 01685000 @NM00194 EQU IEDQOPCD+948 01686000 @NM00193 EQU IEDQOPCD+940 01687000 @NM00192 EQU IEDQOPCD+380 01688000 @NM00191 EQU OPCPWCOB+9 01689000 @NM00190 EQU OPCPWCOB+8 01690000 @NM00189 EQU OPCPWECB+1 01691000 OPCPWCCC EQU OPCPWECB 01692000 OPCPWCHN EQU OPCPWQCB+1 01693000 OPCPWVTO EQU OPCPWQCB 01694000 OPCWAITV EQU IEDQOPCD+364 01695000 OPCTOTCK EQU IEDQOPCD+360 01696000 OPCAPXTL EQU IEDQOPCD+356 01697000 OPCDECR EQU IEDQOPCD+352 01698000 OPCBUFWT EQU IEDQOPCD+348 01699000 OPCWRKSP EQU IEDQOPCD+320 01700000 OPCADGOT EQU IEDQOPCD+318 01701000 OPCRQCNT EQU IEDQOPCD+316 01702000 OPPOLSTP EQU IEDQOPCD+312 01703000 OPCCKCIB EQU IEDQOPCD+308 01704000 OPCEND EQU IEDQOPCD+307 01705000 OPCSTCBS EQU IEDQOPCD+306 01706000 OPCHNEND EQU IEDQOPCD+302 01707000 OPCOQSW EQU IEDQOPCD+301 01708000 @NM00188 EQU OPCSPEC 01709000 @NM00187 EQU OPCSPEC 01710000 @NM00186 EQU OPCSPEC 01711000 @NM00185 EQU OPCSPEC 01712000 OPCFRMCA EQU OPCSPEC 01713000 OPCRSTRT EQU OPCSPEC 01714000 OPCPART EQU OPCSPEC 01715000 OPCALTD EQU OPCSPEC 01716000 OPCBFEND EQU IEDQOPCD+296 01717000 OPCBFIRS EQU IEDQOPCD+292 01718000 OPCAVBUF EQU IEDQOPCD+290 01719000 OPCIPLCT EQU IEDQOPCD+289 01720000 OPCCLNTS EQU IEDQOPCD+288 01721000 OPCHA8 EQU IEDQOPCD+286 01722000 OPCBFREQ EQU IEDQOPCD+284 01723000 OPCNEXT EQU IEDQOPCD+272 01724000 OPCFMDFC EQU IEDQOPCD+268 01725000 OPCSCNC EQU IEDQOPCD+264 01726000 OPCHORTG EQU IEDQOPCD+260 01727000 OPCHORT EQU IEDQOPCD+256 01728000 OPCCKPTL EQU IEDQOPCD+252 01729000 OPCCKPTF EQU IEDQOPCD+248 01730000 OPCWAITA EQU IEDQOPCD+244 01731000 OPCWAITR EQU IEDQOPCD+240 01732000 OPCWAITP EQU IEDQOPCD+236 01733000 OPCWAITO EQU IEDQOPCD+232 01734000 OPCWAITN EQU IEDQOPCD+228 01735000 OPCWAITL EQU IEDQOPCD+224 01736000 OPCWAITC EQU IEDQOPCD+220 01737000 @NM00184 EQU OPCLDNME+5 01738000 @NM00183 EQU OPCLDNME 01739000 OPCWAIT EQU IEDQOPCD+192 01740000 OPCCKERB EQU IEDQOPCD+164 01741000 OPCBFERB EQU IEDQOPCD+148 01742000 OPCFLAG2 EQU IEDQOPCD+147 01743000 OPCFLAG1 EQU IEDQOPCD+146 01744000 OPCWRKSZ EQU IEDQOPCD+144 01745000 OPCRSAVE EQU IEDQOPCD+132 01746000 OPCQCBAD EQU IEDQOPCD+128 01747000 OPCTRMWA EQU IEDQOPCD+52 01748000 OPCPSTWT EQU IEDQOPCD+48 01749000 OPCTNTEA EQU IEDQOPCD+44 01750000 OPCLCB EQU IEDQOPCD+36 01751000 @NM00182 EQU IEDQOPCD+32 01752000 OPCIPLAD EQU IEDQOPCD+28 01753000 OPCTOFLK EQU IEDQOPCD+24 01754000 OPCDCBLK EQU IEDQOPCD+16 01755000 OPCAVTPT EQU IEDQOPCD+8 01756000 OPCDOUBL EQU IEDQOPCD 01757000 OCTRSAVE EQU IEDOCTR+32 01758000 OCTRADR EQU IEDOCTR+28 01759000 OCTRDVD EQU IEDOCTR+20 01760000 @NM00181 EQU OCTRRTN 01761000 OCTRERI EQU OCTRRTN 01762000 OCTRERD EQU OCTRRTN 01763000 @NM00180 EQU OCTRRTN 01764000 OCTRCH EQU OCTRRTN 01765000 OCTR06 EQU OCTRRTE 01766000 OCTRC0 EQU OCTRRTE 01767000 @NM00179 EQU OCTRSW 01768000 OCTRINMF EQU OCTRSW 01769000 OCTRBLST EQU OCTRSW 01770000 OCTRNOS EQU OCTRSW 01771000 OCTROUT EQU OCTRSW 01772000 @NM00178 EQU IEDOCTR+12 01773000 OCTRLCB EQU IEDOCTR+8 01774000 OCTROPCE EQU IEDOCTR 01775000 @NM00177 EQU OCLDNME+4 01776000 @NM00176 EQU OCPREFLG 01777000 OCTOTEP EQU OCPREFLG 01778000 OCREPOST EQU OCPREFLG 01779000 OCRSPSNT EQU OCPREFLG 01780000 OCBFREQ EQU OCPREFLG 01781000 OCIDLE EQU OCREQFLG 01782000 OCFORCE EQU OCREQFLG 01783000 OCDCARD EQU OCREQFLG 01784000 OCPARTAL EQU OCREQFLG 01785000 OCADNCP EQU OCREQFLG 01786000 @NM00175 EQU OCREQFLG 01787000 @NM00174 EQU OCREQFLG 01788000 OCFLUSHZ EQU OCREQFLG 01789000 OCRESPCT EQU OCLINTTE 01790000 OCCKPTWA EQU OCCKDATA+4 01791000 @NM00171 EQU OCRSTGTM+2 01792000 OCCKDAT2 EQU OCRSTGTM+1 01793000 OCCKDAT1 EQU OCRSTGTM 01794000 OCPTRSAV EQU OCMODNME+4 01795000 OCPUADR EQU OCIPLWA+2 01796000 OCWTGSAV EQU OCIPLWA 01797000 OCDVRDCT EQU OCBACKUP+6 01798000 OCNCP EQU OCBACKUP+4 01799000 OCBUFGOT EQU OCBACKUP+2 01800000 OCBUFNED EQU OCBACKUP 01801000 OCRESNUM EQU OCPARM 01802000 OCSEQ EQU OCTRUNIT+2 01803000 @NM00170 EQU OCRSID+1 01804000 OCNONE EQU OCALSTAT 01805000 OCSOME EQU OCALSTAT 01806000 OCALLFLG EQU OCALSTAT 01807000 OCACTREQ EQU OCALSTAT 01808000 OCREDRVE EQU OCALSTAT 01809000 OCSEQIND EQU OCALSTAT 01810000 @NM00169 EQU OCALSTAT 01811000 OCRENTRD EQU OCALSTAT 01812000 OCWTGB EQU OCTIOT 01813000 @NM00168 EQU @NM00167+2 01814000 OCCONID EQU OCDEST 01815000 OCRLN EQU IEDQOPCE+15 01816000 OCRESP EQU OCFLAG 01817000 OCSSCP EQU OCFLAG 01818000 OCOUTPUT EQU OCFLAG 01819000 OCLINE EQU OCFLAG 01820000 OCMPP EQU OCFLAG 01821000 @NM00166 EQU OCSWITCH 01822000 OCQUCKN EQU OCSWITCH 01823000 OCPRIFLG EQU OCOPTCDE 01824000 @NM00165 EQU OCRUDEST+1 01825000 @NM00164 EQU OCSCAN 01826000 OCNOTUCB EQU OCSCAN 01827000 OCNONAME EQU OCSCAN 01828000 OCALLRLN EQU OCSCAN 01829000 OCDDNAME EQU OCSCAN 01830000 OCDDNRLN EQU OCSCAN 01831000 OCADDR EQU OCSCAN 01832000 OCELMPTR EQU OCELEM+1 01833000 OCLINK EQU IEDQOPCE 01834000 NCPLTRAC EQU IEDNCP+26 01835000 NCPCKPT EQU IEDNCP+22 01836000 NCPDPDCB EQU IEDNCP+18 01837000 NCPTXID EQU IEDNCP+10 01838000 NCPBKUPN EQU IEDNCP+2 01839000 @NM00163 EQU NCPFLAG1 01840000 NCPTRACE EQU NCPFLAG1 01841000 NCPBKUP EQU NCPFLAG1 01842000 NCPIPLD EQU NCPFLAG1 01843000 NCPREST EQU NCPFLAG1 01844000 NCPBGUP EQU NCPFLAG1 01845000 NCPDAUTO EQU NCPFLAG1 01846000 NCPIAUTO EQU NCPFLAG1 01847000 NCPLEN EQU IEDNCP 01848000 LCBERADR EQU LCBXRADR+1 01849000 LCBPCIRC EQU LCBXRADR 01850000 LCBDCT3 EQU LCBXDCT+2 01851000 LCBDCT2 EQU LCBXDCT+1 01852000 LCBDCT1 EQU LCBXDCT 01853000 @NM00162 EQU LCBXFLAG 01854000 LCBERPND EQU LCBXFLAG 01855000 LCBSRCPF EQU LCBXFLAG 01856000 LCBGPCTV EQU LCBXFLAG 01857000 @NM00161 EQU LCBXFLAG 01858000 @NM00160 EQU LCBXFLAG 01859000 @NM00159 EQU LCBXFLAG 01860000 @NM00158 EQU LCBXFLAG 01861000 LCBCCW10 EQU LCBCPA+72 01862000 LCBCCW9 EQU LCBCPA+64 01863000 LCBCCW8 EQU LCBCPA+56 01864000 LCBCCW7 EQU LCBCPA+48 01865000 LCBCCW6 EQU LCBCPA+40 01866000 LCBCP EQU LCBQEBPL+4 01867000 LCBIOSB EQU LCBQEBPL+1 01868000 LCBSIO EQU LCBQEBPL 01869000 LCBCCW4 EQU LCBCPA+24 01870000 LCBCCW3 EQU LCBCPA+16 01871000 LCBCCW2 EQU LCBCPA+8 01872000 @NM00143 EQU LCBERCCW+16 01873000 LCBATL05 EQU LCBERCCW+8 01874000 @NM00142 EQU LCBERCCW 01875000 LCBCSWSV EQU LCBSAVSN+1 01876000 LCBSNSV EQU LCBSAVSN 01877000 LCBBFSNS EQU LCBRSPSV 01878000 LCBWAITC EQU LCBTPCD+5 01879000 LCBINPAK EQU LCBSTAT6 01880000 LCBMHBID EQU LCBSTAT6 01881000 LCBRTRRO EQU LCBSTAT6 01882000 LCBHDRPD EQU LCBSTAT6 01883000 LCBCHN EQU LCBSTAT6 01884000 LCBBFRSV EQU LCBTPCD+1 01885000 @NM00141 EQU LCBSTAT5 01886000 LCBLUS EQU LCBSTAT5 01887000 LCBLUNIT EQU LCBSTAT5 01888000 LCBPERM EQU LCBSTAT5 01889000 LCBNXCMD EQU LCBBFRW 01890000 LCBERMSK EQU LCBOBRCH 01891000 LCBSCBA EQU IEDQLCB+93 01892000 LCBOLT EQU LCBMSGFM 01893000 LCBEOT EQU LCBMSGFM 01894000 LCBENQ EQU LCBMSGFM 01895000 LCBTTD EQU LCBMSGFM 01896000 LCBRSTRT EQU LCBMSGFM 01897000 LCBVSTRT EQU LCBMSGFM 01898000 LCBACKI EQU LCBMSGFM 01899000 LCBNAK EQU LCBMSGFM 01900000 @NM00140 EQU LCBRBCT2 01901000 LCBDCNT EQU LCBRBCT2 01902000 LCBRBCT1 EQU LCBERBCT 01903000 LCBERBCH EQU IEDQLCB+85 01904000 LCBCOMPL EQU LCBDLNKN 01905000 LCBPRCPG EQU LCBERBST 01906000 LCBERROR EQU LCBERBST 01907000 @NM00139 EQU LCBERBST 01908000 LCBINQ EQU LCBERBST 01909000 LCBRDERR EQU LCBERBST 01910000 LCBEOMSG EQU LCBERBST 01911000 LCBMSG EQU LCBERBST 01912000 LCBERBLK EQU IEDQLCB+81 01913000 LCBERBPY EQU IEDQLCB+80 01914000 LCBERBQB EQU LCBERB+1 01915000 LCBERBKY EQU LCBERB 01916000 LCBRECAD EQU IEDQLCB+73 01917000 @NM00138 EQU LCBTSTSW 01918000 @NM00137 EQU LCBTSTSW 01919000 @NM00136 EQU LCBTSTSW 01920000 @NM00135 EQU LCBTSTSW 01921000 @NM00134 EQU LCBTSTSW 01922000 @NM00133 EQU LCBTSTSW 01923000 @NM00132 EQU LCBTSTSW 01924000 LCBCONCT EQU LCBTSTSW 01925000 LCBRESP EQU LCBSTAT2 01926000 LCBBFRAV EQU LCBDIAL 01927000 LCBATTN EQU LCBSYNC 01928000 LCBNEGRP EQU LCBSTAT2 01929000 LCBSNDPR EQU LCBSTAT2 01930000 LCBCONNN EQU LCBBEOTN 01931000 LCBMSGNN EQU LCBSTAT2 01932000 LCBTRACE EQU LCBSTAT2 01933000 LCBSENDN EQU LCBSTAT1 01934000 LCBRECVN EQU LCBSTAT1 01935000 LCBFREEN EQU LCBSTAT1 01936000 LCBCONT EQU LCBSTAT1 01937000 LCBINITN EQU LCBSTAT1 01938000 LCBOCNI EQU LCBSTAT1 01939000 LCBOCWTN EQU LCBSTAT1 01940000 LCBRCLLN EQU LCBSTAT1 01941000 LCBRECOF EQU IEDQLCB+68 01942000 LCBRDBFR EQU LCBRCBFR 01943000 LCBUCBX EQU IEDQLCB+64 01944000 LCBTTBIN EQU LCBERRCT 01945000 @NM00131 EQU LCBINCAM 01946000 LCBGETMN EQU LCBINCAM 01947000 @NM00130 EQU LCBRESTR+1 01948000 LCBCMDSV EQU LCBRESTR 01949000 LCBPCILK EQU LCBDCBPT 01950000 LCBSTART EQU LCBIOBSN+16 01951000 LCBAP4OL EQU LCBSIOCC 01952000 LCBAP3OL EQU LCBSIOCC 01953000 LCBAP2OL EQU LCBSIOCC 01954000 LCBAP1OL EQU LCBSIOCC 01955000 LCBSIOC2 EQU LCBSIOCC 01956000 LCBSIOC1 EQU LCBSIOCC 01957000 @NM00129 EQU LCBSIOCC 01958000 LCBCSWRC EQU LCBCSW+5 01959000 LCBCSCHC EQU LCBCSWCS 01960000 LCBCSICC EQU LCBCSWCS 01961000 LCBCSCCC EQU LCBCSWCS 01962000 LCBCSCDC EQU LCBCSWCS 01963000 LCBCSPTC EQU LCBCSWCS 01964000 LCBCSPGC EQU LCBCSWCS 01965000 LCBCSIL EQU LCBCSWCS 01966000 LCBCSPCI EQU LCBCSWCS 01967000 LCBUSUE EQU LCBCSWUS 01968000 LCBUSUC EQU LCBCSWUS 01969000 LCBUSDE EQU LCBCSWUS 01970000 LCBUSCE EQU LCBCSWUS 01971000 LCBUSBSY EQU LCBCSWUS 01972000 LCBUSCUE EQU LCBCSWUS 01973000 LCBUSSM EQU LCBCSWUS 01974000 LCBUSAT EQU LCBCSWUS 01975000 LCBCSWCA EQU LCBCSW 01976000 LCBOBR EQU LCBFLAG3 01977000 LCBOBRRD EQU LCBFLAG3 01978000 LCBIOMSG EQU LCBFLAG3 01979000 LCBSOHC EQU LCBFLAG3 01980000 LCBRLAD EQU LCBFLAG3 01981000 LCBSOHR EQU LCBFLAG3 01982000 @NM00128 EQU LCBFLAG3 01983000 LCBECBPT EQU LCBIOBSN+4 01984000 LCBECBCC EQU LCBIOBSN+3 01985000 LCBSENS1 EQU LCBSNS+1 01986000 LCBABORT EQU LCBTMOUT 01987000 LCBNOTIN EQU LCBLOSDT 01988000 LCBOVRUN EQU LCBSENS0 01989000 LCBDATCK EQU LCBSENS0 01990000 LCBEQUCK EQU LCBSENS0 01991000 LCBBUSCK EQU LCBSENS0 01992000 LCBINTRQ EQU LCBSENS0 01993000 LCBCMDRJ EQU LCBSENS0 01994000 LCBFLAG2 EQU LCBIOBSN 01995000 @NM00127 EQU LCBFLAG1 01996000 LCBUNREL EQU LCBFLAG1 01997000 LCBEXCPN EQU LCBFLAG1 01998000 @NM00126 EQU LCBFLAG1 01999000 LCBERPIN EQU LCBFLAG1 02000000 @NM00125 EQU LCBFLAG1 02001000 LCBFSBFR EQU LCBMHA 02002000 LCBISZE EQU IEDQLCB+28 02003000 LCBLNENT EQU LCBSCBDA+1 02004000 @NM00124 EQU LCBSCBDA 02005000 LCBCPGMH EQU LCBSTAT4 02006000 LCBREAL EQU LCBPHASE 02007000 @NM00123 EQU LCBSTAT4 02008000 LCBACTRQ EQU LCBSTAT4 02009000 LCBIPLRQ EQU LCBSTAT4 02010000 @NM00122 EQU LCBLKMDE 02011000 LCBLOCKI EQU LCBLKMDE 02012000 LCBLOCKR EQU LCBLKMDE 02013000 LCBHMFLG EQU LCBLKMDE 02014000 LCBBDFLG EQU LCBLKMDE 02015000 @NM00121 EQU LCBINSRC 02016000 LCBABRTN EQU LCBCHAIN 02017000 LCBCTLMD EQU LCBTETEN 02018000 LCBBFRSZ EQU LCBCHAIN 02019000 LCBUREQN EQU LCBCHAIN 02020000 LCBNORTY EQU LCBCHAIN 02021000 LCBERMSG EQU LCBCHAIN 02022000 LCBEXCP EQU LCBCHAIN 02023000 LCBINVRQ EQU LCBSCRNN 02024000 LCB2741N EQU LCBTSOB 02025000 LCBINHBN EQU LCBTSOB 02026000 LCBCIRCD EQU LCBTSOB 02027000 LCBPREP EQU LCBTSOB 02028000 LCBSOPL EQU LCBTSOB 02029000 LCBSATRD EQU LCBTSOB 02030000 LCBTSBUF EQU LCBTSOB 02031000 LCBWRBRK EQU LCBTSOB 02032000 LCBTDL EQU IEDQLCB+18 02033000 LCBEOLTD EQU IEDQLCB+16 02034000 LCBRSLNK EQU IEDQLCB+13 02035000 LCBRSPRI EQU IEDQLCB+12 02036000 LCBSTCBA EQU IEDQLCB+9 02037000 LCBRSKEY EQU IEDQLCB+8 02038000 LCBLINK EQU LCBRCB+5 02039000 LCBPRI EQU LCBRCB+4 02040000 LCBQCBA EQU LCBRCB+1 02041000 LCBKEY EQU LCBRCB 02042000 DEBAPPAD EQU IEDQDEB+65 02043000 DEBEXSCL EQU IEDQDEB+64 02044000 DEBDCBAD EQU IEDQDEB+61 02045000 DEBPROTG EQU IEDQDEB+60 02046000 DEBECBAD EQU IEDQDEB+57 02047000 DEBPRIOR EQU IEDQDEB+56 02048000 DEBUSRPG EQU IEDQDEB+53 02049000 DEBSYSPG EQU IEDQDEB+49 02050000 DEBOPATB EQU IEDQDEB+48 02051000 DEBIRBAD EQU IEDQDEB+45 02052000 DEBOFLGS EQU IEDQDEB+44 02053000 DEBDEBAD EQU IEDQDEB+41 02054000 DEBAMLNG EQU IEDQDEB+40 02055000 DEBTCBAD EQU IEDQDEB+37 02056000 @NM00120 EQU DEBPRF+33 02057000 DEBLNGTH EQU DEBPRF+32 02058000 DEBDCBMK EQU DEBPRF+28 02059000 DEBDSCBA EQU DEBPRF+21 02060000 DEBWKARA EQU DEBPRF+20 02061000 DEBXCEA EQU DEBAPVT+16 02062000 DEBCEA EQU DEBAPVT+12 02063000 DEBPCIA EQU DEBAPVT+8 02064000 DEBSIOA EQU DEBAPVT+4 02065000 DEBEOEA EQU DEBAPVT 02066000 DCBBUFSI EQU IHADCS43+6 02067000 DCBUNTCT EQU IHADCS43+5 02068000 DCBILCT EQU IHADCS43+4 02069000 DCBSCTAD EQU DCBSCTAB+1 02070000 @NM00119 EQU DCBSCTAB 02071000 DCBPUTA EQU DCBGETA 02072000 @NM00118 EQU DCBPUT 02073000 DCBDEBA EQU DCBDEBAD+1 02074000 @NM00117 EQU DCBIFLGS 02075000 DCBIFIOE EQU DCBIFLGS 02076000 DCBCH12 EQU DCBIFPCT 02077000 DCBCH9 EQU DCBIFPCT 02078000 DCBIFEC EQU DCBIFLGS 02079000 DCBMFSTI EQU DCBMFDMD 02080000 DCBMFAWR EQU DCBMFSTK 02081000 DCBMFUIP EQU DCBMFTMD 02082000 DCBMFIDW EQU DCBMFLCP 02083000 DCBMFWRK EQU DCBMFMVP 02084000 DCBMFRDQ EQU DCBMFWRT 02085000 DCBMFGTQ EQU DCBMFPUT 02086000 DCBMFSTL EQU DCBMACF2 02087000 DCBMFCK EQU DCBMFDMG 02088000 DCBMFRDX EQU DCBMFCHK 02089000 DCBMFDBF EQU DCBMFSBG 02090000 DCBMFRDI EQU DCBMFLCG 02091000 DCBMFRDK EQU DCBMFMVG 02092000 DCBMFWRQ EQU DCBMFRD 02093000 DCBMFPTQ EQU DCBMFGET 02094000 DCBMFECP EQU DCBMACF1 02095000 DCBTIOT EQU IHADCS25 02096000 DCBMRSTI EQU DCBMRDMD 02097000 DCBMRAWR EQU DCBMRSTK 02098000 DCBMRUIP EQU DCBMRTMD 02099000 DCBMRIDW EQU DCBMRLCP 02100000 DCBMRWRK EQU DCBMRMVP 02101000 DCBMRRDQ EQU DCBMRWRT 02102000 DCBMRGTQ EQU DCBMRPUT 02103000 DCBMRSTL EQU DCBMACR2 02104000 DCBMRCK EQU DCBMRDMG 02105000 DCBPGFXA EQU DCBMRRDX 02106000 DCBMRDBF EQU DCBMRSBG 02107000 DCBMRRDI EQU DCBMRLCG 02108000 DCBMRRDK EQU DCBMRMVG 02109000 DCBMRWRQ EQU DCBMRRD 02110000 DCBMRPTQ EQU DCBMRGET 02111000 DCBMRECP EQU DCBMACR1 02112000 @NM00116 EQU DCBIFLG 02113000 DCBIBIOE EQU DCBIFLG 02114000 DCBICH12 EQU DCBIBPCT 02115000 DCBICH9 EQU DCBIBPCT 02116000 DCBIBEC EQU DCBIFLG 02117000 DCBOFIOF EQU DCBOFLGS 02118000 DCBOFUEX EQU DCBOFLGS 02119000 DCBOFTM EQU DCBOFLGS 02120000 DCBOFPPC EQU DCBOFLGS 02121000 DCBOFOPN EQU DCBOFLGS 02122000 DCBOFEOV EQU DCBOFLGS 02123000 DCBOFLRB EQU DCBOFLGS 02124000 DCBOFIOD EQU DCBOFLWR 02125000 DCBDDNAM EQU IHADCS24 02126000 DCBEXLSA EQU DCBEXLST+1 02127000 DCBEIOBX EQU DCBEXLST 02128000 DCBRNCKA EQU DCBRNCKD+1 02129000 @NM00115 EQU DCBRNCKD 02130000 DCBIOBAD EQU IHADCS2K+8 02131000 DCBDSGTR EQU DCBDSRG2 02132000 @NM00114 EQU DCBDSRG2 02133000 DCBDSRG1 EQU DCBDSORG 02134000 DCBCHNGL EQU DCBTRSTA 02135000 DCBNIDLE EQU DCBTRSTA 02136000 DCBBAKUP EQU DCBTRSTA 02137000 DCBIPLED EQU DCBTRSTA 02138000 DCBRSTRT EQU DCBTRSTA 02139000 DCBINITL EQU DCBTRSTA 02140000 DCBAUTOD EQU DCBTRSTA 02141000 DCBAUTOI EQU DCBTRSTA 02142000 @NM00113 EQU IHADCS2K+4 02143000 DCBDUMPA EQU DCBDUMPD+1 02144000 DCBUNITN EQU DCBDUMPD 02145000 DCBBCKUA EQU DCBBCKUP+1 02146000 @NM00112 EQU DCBBCKUP 02147000 DCBIPLTX EQU IHADCS1A 02148000 @NM00111 EQU IHADCB 02149000 COMINBF2 EQU IEDCOM+560 02150000 COMINBF1 EQU IEDCOM+48 02151000 @NM00110 EQU IEDCOM+44 02152000 @NM00109 EQU COMCCWS+16 02153000 COMCCW2 EQU COMCCWS+8 02154000 @NM00108 EQU COMCCW1+7 02155000 COM1CNT EQU COMCCW1+6 02156000 @NM00107 EQU COMCCW1 02157000 COMTTRZ EQU IEDCOM+16 02158000 @NM00106 EQU IEDCOM+13 02159000 COMFLAGS EQU IEDCOM+12 02160000 COMOPCE EQU IEDCOM+8 02161000 COMLINK EQU IEDCOM+5 02162000 COMPRI EQU IEDCOM+4 02163000 COMQCB EQU IEDCOM+1 02164000 COMKEY EQU IEDCOM 02165000 CCWCOUNT EQU CCW+6 02166000 CCWRSV EQU CCW+5 02167000 @NM00105 EQU CCWFLAGS 02168000 CCWIDA EQU CCWFLAGS 02169000 CCWPCI EQU CCWFLAGS 02170000 CCWSKIP EQU CCWFLAGS 02171000 CCWSLI EQU CCWFLAGS 02172000 CCWCC EQU CCWFLAGS 02173000 CCWCD EQU CCWFLAGS 02174000 CCWADDR EQU CCW+1 02175000 CCWOPCDE EQU CCW 02176000 SAVTBITN EQU IEDNSVTD+312 02177000 @NM00104 EQU SAVTCKQB+8 02178000 @NM00103 EQU SAVTCKEC+1 02179000 @NM00102 EQU SAVTCKCC 02180000 SAVTCKPO EQU SAVTCKCC 02181000 SAVTCKWA EQU SAVTCKCC 02182000 SAVTCKCH EQU SAVTCKTB+1 02183000 SAVTCKVT EQU SAVTCKTB 02184000 @NM00101 EQU IEDNSVTD+297 02185000 SAVTRDFG EQU SAVTRDRV+12 02186000 @NM00100 EQU SAVTRDRV+5 02187000 SAVTRDPY EQU SAVTRDRV+4 02188000 SAVTRDQB EQU SAVTRDRV+1 02189000 SAVTRDKY EQU SAVTRDRV 02190000 SAVTNID EQU IEDNSVTD+280 02191000 SAVTDVAS EQU IEDNSVTD+276 02192000 SAVTPLSZ EQU IEDNSVTD+274 02193000 @NM00099 EQU IEDNSVTD+273 02194000 SAVTSUBL EQU IEDNSVTD+272 02195000 @NM00098 EQU SAVTZELM+1 02196000 SAVTSUBM EQU SAVTZELM 02197000 SAVTMHDX EQU IEDNSVTD+268 02198000 SAVTNAT1 EQU IEDNSVTD+266 02199000 SAVTSH20 EQU IEDNSVTD+264 02200000 SAVTLCBS EQU IEDNSVTD+260 02201000 SAVTRNMP EQU IEDNSVTD+256 02202000 SAVTTNTX EQU IEDNSVTD+252 02203000 SAVTNAX EQU IEDNSVTD+248 02204000 SAVTSUBV EQU IEDNSVTD+247 02205000 SAVTSUBA EQU IEDNSVTD+246 02206000 SAVTSIBC EQU IEDNSVTD+244 02207000 SAVTBSM EQU IEDNSVTD+240 02208000 SAVTSCPT EQU SAVTTCPU 02209000 SAVTRQTG EQU IEDNSVTD+236 02210000 SAVTRQCH EQU IEDNSVTD+232 02211000 SAVTMAND EQU IEDNSVTD+228 02212000 SAVTSPLN EQU IEDNSVTD+224 02213000 SAVTNADL EQU IEDNSVTD+222 02214000 SAVTNATL EQU IEDNSVTD+220 02215000 SAVTMHTB EQU IEDNSVTD+216 02216000 SAVTSSMH EQU IEDNSVTD+212 02217000 SAVTQRS EQU IEDNSVTD+208 02218000 SAVTRQIN EQU IEDNSVTD+204 02219000 SAVTDFCO EQU IEDNSVTD+200 02220000 SAVTSAO EQU IEDNSVTD+196 02221000 SAVTSARI EQU IEDNSVTD+192 02222000 SAVTSAC EQU IEDNSVTD+188 02223000 SAVTSAI EQU IEDNSVTD+184 02224000 SAVTCSCI EQU IEDNSVTD+180 02225000 SAVTSSRP EQU IEDNSVTD+176 02226000 SAVTSSRQ EQU IEDNSVTD+172 02227000 SAVTSCLU EQU IEDNSVTD+168 02228000 SAVTXTRQ EQU IEDNSVTD+164 02229000 SAVTMVBF EQU IEDNSVTD+160 02230000 @NM00097 EQU IEDNSVTD+148 02231000 SAVTIPCQ EQU IEDNSVTD+144 02232000 @NM00096 EQU IEDNSVTD+136 02233000 SAVTXFMI EQU IEDNSVTD+132 02234000 @NM00095 EQU IEDNSVTD+124 02235000 SAVTXFMO EQU IEDNSVTD+120 02236000 @NM00094 EQU IEDNSVTD+116 02237000 SAVTSSSR EQU IEDNSVTD+112 02238000 SAVTSCPQ EQU IEDNSVTD+108 02239000 SAVTSLCB EQU IEDNSVTD+104 02240000 SAVTLUSR EQU IEDNSVTD+100 02241000 @NM00093 EQU SAVTLUSQ+8 02242000 SAVTLUSP EQU SAVTLUSQ+4 02243000 SAVTLUSB EQU SAVTLUSQ 02244000 @NM00092 EQU IEDNSVTD+84 02245000 SAVTSAT EQU IEDNSVTD+80 02246000 SAVTNAT EQU IEDNSVTD+76 02247000 SAVTCLUP EQU IEDNSVTD+72 02248000 SAVTPIUT EQU IEDNSVTD+68 02249000 SAVTRNTA EQU IEDNSVTD+64 02250000 SAVTDNIR EQU IEDNSVTD+60 02251000 SAVTCNIR EQU IEDNSVTD+56 02252000 SAVTFLDH EQU IEDNSVTD+52 02253000 SAVTSRTN EQU IEDNSVTD+48 02254000 SAVTSREQ EQU IEDNSVTD+44 02255000 SAVTFAIL EQU IEDNSVTD+42 02256000 SAVTSUSE EQU IEDNSVTD+40 02257000 SAVTSIB EQU IEDNSVTD+36 02258000 SAVTPRTN EQU IEDNSVTD+32 02259000 @NM00091 EQU IEDNSVTD+28 02260000 SAVTWH20 EQU IEDNSVTD+26 02261000 SAVTPWT EQU IEDNSVTD+24 02262000 SAVTPRTQ EQU IEDNSVTD+20 02263000 SAVTPREQ EQU IEDNSVTD+16 02264000 SAVTPH20 EQU IEDNSVTD+14 02265000 SAVTPUSE EQU IEDNSVTD+12 02266000 SAVTPLCB EQU IEDNSVTD+8 02267000 SAVTPOOL EQU IEDNSVTD+4 02268000 SAVTPRMT EQU SAVTDIAF 02269000 SAVTVIRT EQU SAVTDIAF 02270000 AVTCPBNO EQU IEDQAVTD+1244 02271000 AVTHRESS EQU IEDQAVTD+1243 02272000 @NM00090 EQU IEDQAVTD+1242 02273000 @NM00089 EQU IEDQAVTD+1241 02274000 @NM00088 EQU IEDQAVTD+1240 02275000 @NM00087 EQU IEDQAVTD+1237 02276000 @NM00086 EQU IEDQAVTD+1236 02277000 AVTHRESE EQU @NM00085 02278000 AVTRADDR EQU IEDQAVTD+1228 02279000 AVTNADDR EQU IEDQAVTD+1224 02280000 AVTHRESN EQU IEDQAVTD+1220 02281000 AVTVOLRN EQU IEDQAVTD+1216 02282000 AVTTOTNN EQU IEDQAVTD+1212 02283000 AVTTRCYN EQU IEDQAVTD+1208 02284000 AVTRCTRN EQU IEDQAVTD+1204 02285000 AVTNOVON EQU IEDQAVTD+1200 02286000 AVTADEBN EQU IEDQAVTD+1196 02287000 AVTVOLRR EQU IEDQAVTD+1192 02288000 AVTTOTNR EQU IEDQAVTD+1188 02289000 AVTTRCYR EQU IEDQAVTD+1184 02290000 AVTRCTRR EQU IEDQAVTD+1180 02291000 AVTNOVOR EQU IEDQAVTD+1176 02292000 AVTADEBR EQU IEDQAVTD+1172 02293000 AVTLODPT EQU IEDQAVTD+1168 02294000 AVTIOBN EQU IEDQAVTD+1164 02295000 AVTIOBR EQU IEDQAVTD+1160 02296000 AVTCPBPT EQU IEDQAVTD+1156 02297000 AVTFCPB EQU IEDQAVTD+1152 02298000 @NM00084 EQU IEDQAVTD+1148 02299000 AVTINCPQ EQU IEDQAVTD+1144 02300000 @NM00083 EQU IEDQAVTD+1140 02301000 @NM00082 EQU IEDQAVTD+1137 02302000 @NM00081 EQU AVTBIT4 02303000 @NM00080 EQU AVTBIT4 02304000 @NM00079 EQU AVTBIT4 02305000 @NM00078 EQU AVTBIT4 02306000 @NM00077 EQU AVTBIT4 02307000 @NM00076 EQU AVTBIT4 02308000 @NM00075 EQU AVTBIT4 02309000 AVTRUFTN EQU AVTBIT4 02310000 @NM00074 EQU IEDQAVTD+1132 02311000 AVTNOBFQ EQU IEDQAVTD+1128 02312000 @NM00073 EQU IEDQAVTD+1124 02313000 AVTDKENQ EQU IEDQAVTD+1120 02314000 @NM00072 EQU IEDQAVTD+1116 02315000 AVTDKAPQ EQU IEDQAVTD+1112 02316000 AVTCOPY EQU IEDQAVTD+1108 02317000 AVTIA EQU IEDQAVTD+1104 02318000 AVTFL EQU IEDQAVTD+1100 02319000 @NM00071 EQU IEDQAVTD+1096 02320000 AVTNCPBQ EQU IEDQAVTD+1092 02321000 AVTTOTNC EQU IEDQAVTD+1088 02322000 AVTCMAX EQU IEDQAVTD+1084 02323000 AVTCMIN EQU IEDQAVTD+1080 02324000 AVTHM02 EQU IEDQAVTD+1076 02325000 AVTDCTLN EQU IEDQAVTD+1072 02326000 AVTOPMSK EQU IEDQAVTD+1068 02327000 AVTDDFT EQU IEDQAVTD+1064 02328000 AVTSTEAL EQU IEDQAVTD+1060 02329000 AVTOPTN EQU IEDQAVTD+1056 02330000 AVTDSKCT EQU IEDQAVTD+1054 02331000 AVTCKRST EQU IEDQAVTD+1053 02332000 AVTSTAN EQU AVTBIT3 02333000 AVTSTACN EQU AVTBIT3 02334000 AVTSTAIN EQU AVTBIT3 02335000 AVTSTAYN EQU AVTBIT3 02336000 AVTOLTBN EQU AVTBIT3 02337000 AVTTSAB EQU AVTBIT3 02338000 AVTRFULN EQU AVTBIT3 02339000 AVTRECVN EQU AVTBIT3 02340000 @NM00070 EQU AVTBIT2 02341000 @NM00069 EQU AVTBIT2 02342000 AVTOPEIN EQU AVTBIT2 02343000 AVTSTRTN EQU AVTBIT2 02344000 AVTTOPOL EQU AVTBIT2 02345000 AVTCOPYN EQU AVTBIT2 02346000 AVTREUSN EQU AVTBIT2 02347000 AVTEXTSC EQU AVTBIT2 02348000 AVTDISKN EQU AVTBIT1 02349000 AVTQUCKN EQU AVTBIT1 02350000 AVTCLOSN EQU AVTBIT1 02351000 AVTREADN EQU AVTBIT1 02352000 AVTDLAYN EQU AVTBIT1 02353000 AVTAQTAN EQU AVTBIT1 02354000 AVTTSON EQU AVTBIT1 02355000 AVTAPLKN EQU AVTBIT1 02356000 AVTDUMBR EQU IEDQAVTD+1048 02357000 AVTDLQX EQU IEDQAVTD+1046 02358000 AVTINTLV EQU IEDQAVTD+1044 02359000 AVTSMCNT EQU IEDQAVTD+1042 02360000 AVTAVFCT EQU IEDQAVTD+1040 02361000 AVTOPCNT EQU IEDQAVTD+1036 02362000 AVTLNCNT EQU IEDQAVTD+1034 02363000 AVTKEYLE EQU IEDQAVTD+1032 02364000 AVTHA16 EQU IEDQAVTD+1030 02365000 AVTHA7 EQU IEDQAVTD+1028 02366000 AVTHA4 EQU IEDQAVTD+1026 02367000 AVTHA3 EQU IEDQAVTD+1024 02368000 AVTHA2 EQU IEDQAVTD+1022 02369000 AVTGETMS EQU IEDQAVTD+1021 02370000 @NM00068 EQU IEDQAVTD+1020 02371000 AVTGETMD EQU IEDQAVTD+1016 02372000 AVTGETMN EQU IEDQAVTD+1012 02373000 AVTCWTOT EQU IEDQAVTD+1008 02374000 AVTCWINT EQU IEDQAVTD+956 02375000 AVTDTRAP EQU IEDQAVTD+952 02376000 @NM00067 EQU IEDQAVTD+950 02377000 @NM00066 EQU AVTIOTR 02378000 AVTIOTRH EQU AVTIOTR 02379000 AVTIOTRE EQU AVTIOTR 02380000 @NM00065 EQU AVTSUBT 02381000 AVTSUBPT EQU AVTSUBT 02382000 AVTSUBON EQU AVTSUBT 02383000 AVTAFE30 EQU IEDQAVTD+944 02384000 AVTAFE20 EQU IEDQAVTD+940 02385000 AVTAFE10 EQU IEDQAVTD+936 02386000 AVTCWEC2 EQU IEDQAVTD+932 02387000 AVTCWPM2 EQU IEDQAVTD+928 02388000 AVTCWTS2 EQU IEDQAVTD+927 02389000 AVTCWTS1 EQU IEDQAVTD+926 02390000 AVTCWCLD EQU AVTCWFL2 02391000 AVTCWRAP EQU AVTCWFL2 02392000 @NM00064 EQU AVTCWFL2 02393000 @NM00063 EQU AVTCWFL2 02394000 @NM00062 EQU AVTCWFL2 02395000 @NM00061 EQU AVTCWFL2 02396000 @NM00060 EQU AVTCWFL2 02397000 AVTCWACT EQU AVTCWFL2 02398000 @NM00059 EQU AVTCWFL1 02399000 @NM00058 EQU AVTCWFL1 02400000 @NM00057 EQU AVTCWFL1 02401000 @NM00056 EQU AVTCWFL1 02402000 @NM00055 EQU AVTCWFL1 02403000 @NM00054 EQU AVTCWFL1 02404000 @NM00053 EQU AVTCWFL1 02405000 AVTCOMWN EQU AVTCWFL1 02406000 AVTCWEC1 EQU IEDQAVTD+920 02407000 AVTCWPM1 EQU IEDQAVTD+916 02408000 AVTCAREA EQU IEDQAVTD+912 02409000 AVTFZERO EQU IEDQAVTD+908 02410000 AVTCADDR EQU IEDQAVTD+904 02411000 AVTCOREC EQU IEDQAVTD+900 02412000 @NM00052 EQU IEDQAVTD+892 02413000 AVTCPBCB EQU IEDQAVTD+888 02414000 @NM00051 EQU IEDQAVTD+880 02415000 AVTDSIOB EQU IEDQAVTD+876 02416000 @NM00050 EQU IEDQAVTD+868 02417000 AVTCPRMB EQU IEDQAVTD+864 02418000 @NM00049 EQU IEDQAVTD+856 02419000 AVTCLOSB EQU IEDQAVTD+852 02420000 @NM00048 EQU IEDQAVTD+844 02421000 AVTACTIB EQU IEDQAVTD+840 02422000 @NM00047 EQU IEDQAVTD+836 02423000 AVTOLTEB EQU IEDQAVTD+832 02424000 AVTOLTCH EQU AVTOLTQB+1 02425000 AVTOLTVT EQU AVTOLTQB 02426000 @NM00046 EQU AVTOPCQB+8 02427000 @NM00045 EQU AVTOPCEC+1 02428000 @NM00044 EQU AVTOPCCC 02429000 AVTOPCPO EQU AVTOPCCC 02430000 AVTOPCWA EQU AVTOPCCC 02431000 AVTOPCCH EQU AVTOPCOB+1 02432000 AVTOPCVT EQU AVTOPCOB 02433000 @NM00043 EQU AVTCKPQB+9 02434000 AVTCKPTS EQU AVTCKPQB+8 02435000 @NM00042 EQU AVTCKPEC+1 02436000 @NM00041 EQU AVTCKPCC 02437000 AVTCKPPO EQU AVTCKPCC 02438000 AVTCKPWA EQU AVTCKPCC 02439000 AVTCKPCH EQU AVTCKPTB+1 02440000 AVTCKPVT EQU AVTCKPTB 02441000 @NM00040 EQU IEDQAVTD+796 02442000 AVTBFRTB EQU IEDQAVTD+792 02443000 @NM00039 EQU IEDQAVTD+784 02444000 AVTBFREB EQU IEDQAVTD+780 02445000 AVTTIMQ EQU IEDQAVTD+776 02446000 @NM00038 EQU IEDQAVTD+772 02447000 AVTIMQPS EQU IEDQAVTD+768 02448000 AVTINOUT EQU IEDQAVTD+766 02449000 AVTREFTM EQU IEDQAVTD+764 02450000 @NM00037 EQU IEDQAVTD+752 02451000 AVTDELYB EQU IEDQAVTD+748 02452000 AVTOCQPT EQU IEDQAVTD+744 02453000 AVTTSOPT EQU IEDQAVTD+740 02454000 AVTSUPPT EQU IEDQAVTD+736 02455000 AVTCBQCB EQU IEDQAVTD+732 02456000 AVTMSGS EQU IEDQAVTD+729 02457000 @NM00036 EQU AVTSYSER 02458000 @NM00035 EQU AVTSYSER 02459000 @NM00034 EQU AVTSYSER 02460000 @NM00033 EQU AVTSYSER 02461000 @NM00032 EQU AVTSYSER 02462000 @NM00031 EQU AVTSYSER 02463000 AVTCMAXN EQU AVTSYSER 02464000 AVTCMINN EQU AVTSYSER 02465000 AVT2260L EQU IEDQAVTD+724 02466000 AVTABEPL EQU AVTADBUF 02467000 AVTHFF EQU AVTCLRHI+2 02468000 @NM00030 EQU AVTCLRHI 02469000 AVTCCLNK EQU AVTCRELE+5 02470000 AVTCCPRI EQU AVTCRELE+4 02471000 AVTCCQCB EQU AVTCCELE+1 02472000 AVTCCKEY EQU AVTCCELE 02473000 AVTDELAD EQU IEDQAVTD+704 02474000 AVTDELEM EQU IEDQAVTD+700 02475000 AVTBSX EQU AVTCKLNK 02476000 AVTOPETR EQU AVTHG01 02477000 @NM00029 EQU AVTCKBYT 02478000 AVTCKONQ EQU AVTCKBYT 02479000 @NM00028 EQU AVTCKBYT 02480000 @NM00027 EQU AVTCKBYT 02481000 @NM00026 EQU AVTCKBYT 02482000 @NM00025 EQU AVTCKBYT 02483000 @NM00024 EQU AVTCKBYT 02484000 @NM00023 EQU AVTCKBYT 02485000 AVTOPERT EQU IEDQAVTD+690 02486000 AVTOPXCL EQU IEDQAVTD+688 02487000 AVTOPERL EQU IEDQAVTD+687 02488000 @NM00022 EQU IEDQAVTD+686 02489000 AVTCKTIM EQU IEDQAVTD+684 02490000 AVTCKELV EQU IEDQAVTD+682 02491000 AVTCPRCD EQU IEDQAVTD+681 02492000 AVTWARMN EQU AVTCKELF 02493000 AVTCRTLN EQU AVTCKELF 02494000 AVTCPIPN EQU AVTCKELF 02495000 AVTCCLCN EQU AVTCKELF 02496000 AVTCINCN EQU AVTCKELF 02497000 @NM00021 EQU AVTCKELF 02498000 AVTCMCPN EQU AVTCKELF 02499000 AVTNQBCK EQU AVTCKELF 02500000 AVTCKQAD EQU IEDQAVTD+677 02501000 AVTSCBSZ EQU IEDQAVTD+676 02502000 @NM00020 EQU IEDQAVTD+672 02503000 AVTCKELE EQU IEDQAVTD+668 02504000 @NM00019 EQU AVTCKPEL+8 02505000 AVTCKRLK EQU AVTCKPEL+5 02506000 AVTCKRPR EQU AVTCKPEL+4 02507000 AVTCKRMQ EQU AVTCKRMV+1 02508000 AVTCKRKY EQU AVTCKRMV 02509000 AVTHK EQU IEDQAVTD+648 02510000 AVTHI EQU IEDQAVTD+644 02511000 AVTIOT EQU IEDQAVTD+640 02512000 AVTNX EQU IEDQAVTD+636 02513000 AVTTONE EQU IEDQAVTD+632 02514000 AVTA3TL EQU IEDQAVTD+628 02515000 AVTDMECB EQU IEDQAVTD+624 02516000 AVTABEND EQU IEDQAVTD+618 02517000 AVTPLCBN EQU IEDQAVTD+616 02518000 @NM00018 EQU AVTSAVTP+1 02519000 @NM00017 EQU AVTSAVTF 02520000 AVTSNA EQU AVTSAVTF 02521000 AVTONSNA EQU AVTSAVTF 02522000 AVTVTMCP EQU AVTSAVTF 02523000 @NM00016 EQU IEDQAVTD+608 02524000 AVTCMBSS EQU IEDQAVTD+604 02525000 AVTRCV EQU IEDQAVTD+600 02526000 AVTSEND EQU IEDQAVTD+596 02527000 AVTCSCH EQU IEDQAVTD+592 02528000 AVTQ1 EQU IEDQAVTD+588 02529000 AVTE7 EQU IEDQAVTD+584 02530000 AVTHB EQU IEDQAVTD+580 02531000 AVTR1 EQU IEDQAVTD+576 02532000 AVTBZ EQU IEDQAVTD+572 02533000 AVTEZ EQU IEDQAVTD+568 02534000 AVTEC EQU IEDQAVTD+564 02535000 AVTEW EQU IEDQAVTD+560 02536000 AVTNDIAL EQU AVTSCOPT 02537000 AVTN2741 EQU AVTSCOPT 02538000 AVTCONCO EQU AVTSCOPT 02539000 AVTCONC EQU AVTSCOPT 02540000 AVTCMBUF EQU AVTSCOPT 02541000 AVTAPDMP EQU AVTSCOPT 02542000 @NM00015 EQU AVTSCOPT 02543000 AVTHA EQU AVTDISP 02544000 AVTEA EQU IEDQAVTD+548 02545000 AVTAX EQU IEDQAVTD+544 02546000 AVTA3 EQU IEDQAVTD+540 02547000 AVTGD EQU IEDQAVTD+536 02548000 AVTAL EQU IEDQAVTD+532 02549000 AVTOLTST EQU AVTHG02 02550000 AVTE8 EQU IEDQAVTD+524 02551000 AVTUI EQU IEDQAVTD+520 02552000 AVTCOMPT EQU IEDQAVTD+516 02553000 AVTCRSRF EQU IEDQAVTD+512 02554000 @NM00014 EQU IEDQAVTD+508 02555000 AVTKA02 EQU IEDQAVTD+504 02556000 AVTOPTPT EQU IEDQAVTD+500 02557000 AVTPCBPT EQU IEDQAVTD+496 02558000 @NM00013 EQU AVTECB1 02559000 AVTCOMP EQU AVTECB1 02560000 @NM00012 EQU AVTECB1 02561000 AVTOPECA EQU IEDQAVTD+488 02562000 AVTOLECA EQU IEDQAVTD+484 02563000 AVTCKECA EQU IEDQAVTD+480 02564000 AVTCWECA EQU IEDQAVTD+476 02565000 AVTCWTCB EQU IEDQAVTD+472 02566000 AVTOLTCB EQU IEDQAVTD+468 02567000 AVTOCTCB EQU IEDQAVTD+464 02568000 AVTCKTCB EQU IEDQAVTD+460 02569000 AVTAS EQU IEDQAVTD+456 02570000 AVTNOLBF EQU IEDQAVTD+454 02571000 AVTNCKPR EQU IEDQAVTD+453 02572000 AVTCIB EQU IEDQAVTD+452 02573000 AVTSPLPT EQU IEDQAVTD+448 02574000 AVTMVBFR EQU IEDQAVTD+444 02575000 AVTSBTA EQU IEDQAVTD+440 02576000 AVTRARTN EQU IEDQAVTD+436 02577000 AVTBSCAN EQU IEDQAVTD+432 02578000 AVTRDYA EQU IEDQAVTD+428 02579000 AVTRNMPT EQU IEDQAVTD+424 02580000 AVTDISTR EQU IEDQAVTD+420 02581000 AVTPARM3 EQU IEDQAVTD+416 02582000 @NM00011 EQU AVTPKF 02583000 @NM00010 EQU AVTPKF 02584000 @NM00009 EQU AVTPKF 02585000 AVTFTCHF EQU AVTPKF 02586000 @NM00008 EQU AVTPKF 02587000 @NM00007 EQU AVTPKF 02588000 @NM00006 EQU AVTPKF 02589000 @NM00005 EQU AVTPKF 02590000 AVTPARM EQU IEDQAVTD+408 02591000 AVTEXS2A EQU IEDQAVTD+402 02592000 AVTEXA2S EQU IEDQAVTD+396 02593000 AVTOCGET EQU IEDQAVTD+392 02594000 AVTCKAVT EQU @NM00003+1 02595000 @NM00004 EQU AVTCKFLG 02596000 AVTCKHLT EQU AVTCKFLG 02597000 AVTCKREQ EQU AVTCKFLG 02598000 AVTCKENV EQU AVTCKFLG 02599000 AVTCKNAC EQU AVTCKFLG 02600000 AVTCKTAC EQU AVTCKFLG 02601000 @NM00002 EQU IEDQAVTD+384 02602000 AVTREADD EQU IEDQAVTD+380 02603000 AVTREADY EQU IEDQAVTD+376 02604000 AVTRACE EQU IEDQAVTD+372 02605000 AVTTCB EQU IEDQAVTD+368 02606000 AVTPASWD EQU IEDQAVTD+360 02607000 AVTCTLCH EQU IEDQAVTD+352 02608000 AVTDOUBL EQU IEDQAVTD+344 02609000 AVTDOUBX EQU IEDQAVTD+336 02610000 AVTDPARM EQU IEDQAVTD+332 02611000 AVTCSTCS EQU IEDQAVTD+328 02612000 AVTDLQ EQU AVTSAVEX+32 02613000 @NM00001 EQU AVTSAVEX 02614000 AVTSAVE4 EQU IEDQAVTD+216 02615000 AVTSAVE3 EQU IEDQAVTD+144 02616000 AVTSAVE2 EQU IEDQAVTD+72 02617000 AVTSAVE1 EQU IEDQAVTD 02618000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02619000 @RC00458 EQU @RC00436 02620000 @ENDDATA EQU * 02621000 END IGCN510D,(C'PLS1405',0701,77215) 02622000