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