TITLE 'IGCA610D, ACTIVATE A COMMUNICATIONS CONTROLLER PHYSICAL*00001000 L UNIT ' 00002000 IGCA610D CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 * 02S0445 00005000 * /*****************************************************************/ 00006000 * /* */ 00007000 * /* PROLOGUE: THIS SEGMENT COMPLETES THE PROLOGUE CODE THAT WAS */ 00008000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. */ 00009000 * /* */ 00010000 * /*****************************************************************/ 00011000 * 02S0445 00012000 * RCODEREG=RENTREG; /* SET THE CODE BASE REGISTER 00013000 * WITH THE ADDRESS OF THE FIRST 00014000 * INSTRUCTION OF THE MODULE */ 00015000 LR RCODEREG,RENTREG 02S0445 00016000 * GEN REFS(RCODEREG) NOSETS; 02S0446 00017000 * /* 00018000 USING IGCA610D,RCODEREG INFORM THE ASSEMBLER OF THE 00019000 * BASE REGISTER TO BE USED FOR 00020000 * ADDRESSING CODE 00021000 * GEN NOREFS NOSETS; 02S0447 00022000 * /* 00023000 IGCA610D IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00024000 * ROPCAVT=RPARMREG; /* ESTABLISH ADDRESSABILITY TO 00025000 * THE OPERATOR CONTROL ADDRESS 00026000 * VECTOR TABLE FROM THE INPUT 00027000 * PARAMETER REGISTER */ 00028000 LR ROPCAVT,RPARMREG 02S0448 00029000 * RDATAREG=OPCWORK; /* SET THE REGISTER TO BE USED 00030000 * FOR ADDRESSING AUTOMATIC DATA 00031000 * WITH THE ADDRESS OF THE 02S0449 00032000 * OPERATOR CONTROL RESIDENT WORK 00033000 * AREA */ 00034000 L RDATAREG,OPCWORK(,ROPCAVT) 02S0449 00035000 * GEN REFS(RDATAREG) NOSETS; 02S0450 00036000 * /* 00037000 USING @DATD,RDATAREG PROVIDE ADDRESSABILITY TO ALL 00038000 * AUTOMATIC DATA 00039000 * RSAVEREG=ADDR(OPCSAVE); /* ESTABLISH ADDRESSABILITY TO 00040000 * THE OPERATOR CONTROL SAVE AREA*/ 00041000 LA RSAVEREG,OPCSAVE(,ROPCAVT) 02S0451 00042000 * RFY 02S0452 00043000 * RPARMREG UNRSTD; /* RELEASE THE INPUT PARAMETER 00044000 * REGISTER THAT WAS RESTRICTED 00045000 * AT ENTRY TO THE MODULE */ 00046000 * RFY 02S0453 00047000 * RENTREG UNRSTD; /* RELEASE THE REGISTER 02S0453 00048000 * RESTRICTED AT ENTRY TO THE 00049000 * MODULE THAT WAS USED BY THE 00050000 * XCTL MACRO TO CONTAIN THE 00051000 * ENTRY POINT ADDRESS OF THE 00052000 * MODULE */ 00053000 * 02S0454 00054000 * /*****************************************************************/ 00055000 * /* */ 00056000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00057000 * /* PERFORM THE FUNCTION OF THE MODULE. */ 00058000 * /* */ 00059000 * /*****************************************************************/ 00060000 * 02S0454 00061000 * 03S0454 00062000 * /*****************************************************************/ 00063000 * /* */ 00064000 * /* PROCESS.INITIAL: THIS SEGMENT DOES THE INITIAL PROCESSING. */ 00065000 * /* */ 00066000 * /*****************************************************************/ 00067000 * 03S0454 00068000 * RFY 03S0454 00069000 * RPARMREG RSTD; /* RESTRICT THE REGISTER USED TO 00070000 * CONTAIN THE INPUT PARAMETER 00071000 * FOR THE IEDQTNT ROUTINE AND 00072000 * THE RESULT RETURNED FROM THE 00073000 * IEDQTNT ROUTINE */ 00074000 * RAVT=OPCAVTPT; /* ESTABLISH ADDRESSABILITY TO 00075000 * THE TCAM ADDRESS VECTOR TABLE */ 00076000 L RAVT,OPCAVTPT(,ROPCAVT) 03S0455 00077000 * ROPCE=OPCCOPCE; /* ESTABLISH ADDRESSABILITY TO 00078000 * THE INPUT OPERATOR CONTROL 00079000 * ELEMENT */ 00080000 L ROPCE,OPCCOPCE(,ROPCAVT) 03S0456 00081000 * RPARMREG=OCTRMTBL; /* SET UP THE PARAMETER (TERMINAL 00082000 * NAME TABLE INDEX) FOR THE 00083000 * IEDQTNT ROUTINE */ 00084000 LH RPARMREG,OCTRMTBL(,ROPCE) 03S0457 00085000 N RPARMREG,@CF01675 03S0457 00086000 * CALL IEDQTNT; /* OBTAIN THE ADDRESS OF THE 00087000 * TERMINAL TABLE ENTRY FOR THE 00088000 * RESOURCE BEING ACTED UPON */ 00089000 L @15,AVTRNMPT(,RAVT) 03S0458 00090000 BALR @14,@15 03S0458 00091000 * RTRM=RPARMREG; /* ESTABLISH ADDRESSABILITY TO 00092000 * THE TERMINAL TABLE ENTRY BY 00093000 * USING THE RESULT FROM THE 00094000 * IEDQTNT ROUTINE */ 00095000 LR RTRM,RPARMREG 03S0459 00096000 * RFY 03S0460 00097000 * RPARMREG UNRSTD; /* RELEASE THE PARAMETER REGISTER 00098000 * USED BY THE IEDQTNT ROUTINE */ 00099000 * IF OCRESP=OFF /* TEST FOR A NEW "ACTIVATE 02S0461 00100000 * PHYSICAL UNIT" REQUEST */ 00101000 * THEN /* PROCESS THE "ACTIVATE PHYSICAL 00102000 * UNIT" REQUEST */ 00103000 TM OCRESP(ROPCE),B'00000001' 02S0461 00104000 BNZ @RF00461 02S0461 00105000 * DO; 02S0462 00106000 * 03S0463 00107000 * /*************************************************************/ 00108000 * /* */ 00109000 * /* PROCESS.REQUEST: THIS SEGMENT DOES THE PROCESSING FOR AN */ 00110000 * /* "ACTIVATE PHYSICAL UNIT" REQUEST. */ 00111000 * /* */ 00112000 * /*************************************************************/ 00113000 * 03S0463 00114000 * RFY 03S0463 00115000 * RPARMREG RSTD; /* RESTRICT THE REGISTER USED TO 00116000 * SPECIFY THE TYPE OF INTERTASK 00117000 * REQUEST THAT IS DESIRED */ 00118000 * RPARMREG=REQSGET; /* SET THE TYPE OF INTERTASK 00119000 * REQUEST TO INDICATE THAT THE 00120000 * REQUEST IS FOR GETTING A 03S0464 00121000 * SESSION INFORMATION CONTROL 00122000 * BLOCK (SIB) */ 00123000 LA RPARMREG,3 03S0464 00124000 * CALL IPSIBREQ; /* CALL AN INTERNAL PROCEDURE TO 00125000 * TRY AND OBTAIN A SIB */ 00126000 BAL @14,IPSIBREQ 03S0465 00127000 * RFY 03S0466 00128000 * RPARMREG UNRSTD; /* RELEASE THE REGISTER USED FOR 00129000 * THE TYPE OF SIB REQUEST */ 00130000 * IF REQRCD1=OBTAINED /* TEST FOR A GOOD RETURN CODE 00131000 * FROM THE EXTERNAL POSTWAIT 00132000 * ROUTINE THAT INDICATES THAT A 00133000 * SIB HAS BEEN OBTAINED */ 00134000 * THEN /* PROCEED WITH NORMAL PROCESSING 00135000 * OF THE "ACTIVATE PHYSICAL 00136000 * UNIT" REQUEST */ 00137000 LA @11,REQAREA 03S0467 00138000 CLI REQRCD1(@11),X'00' 03S0467 00139000 BNE @RF00467 03S0467 00140000 * DO; 03S0468 00141000 * 04S0469 00142000 * /*********************************************************/ 00143000 * /* */ 00144000 * /* PROCESS.REQUEST.YESSIB: THIS SEGMENT DOES THE BUILDING*/ 00145000 * /* OF THE "ACTIVATE PHYSICAL UNIT" PACKED REQUEST UNIT */ 00146000 * /* AND DOES THE PREPARATION THAT IS NECESSARY TO SEND OUT*/ 00147000 * /* THE REQUEST. THE ALLOCBUF EXTERNAL ROUTINE IS USED TO */ 00148000 * /* OBTAIN A BUFFER UNIT FOR THE "ACTIVATE PHYSICAL UNIT" */ 00149000 * /* REQUEST. */ 00150000 * /* */ 00151000 * /*********************************************************/ 00152000 * 04S0469 00153000 * OCWTGB=OCWTG; /* SAVE THE OPERATOR CONTROL 00154000 * ELEMENT "WHERE TO GO" FIELD IN 00155000 * THE OPERATOR CONTROL ELEMENT 00156000 * "WHERE TO GO BACK-UP" FIELD */ 00157000 MVC OCWTGB(2,ROPCE),OCWTG(ROPCE) 04S0469 00158000 * RFY 04S0470 00159000 * RPARMREG RSTD; /* RESTRICT THE REGISTER USED TO 00160000 * CONTAIN THE NUMBER OF BUFFER 00161000 * UNITS THAT ARE DESIRED */ 00162000 * RPARMREG=1; /* SET THE NUMBER OF UNITS 04S0471 00163000 * DESIRED TO ONE (1) BUFFER UNIT*/ 00164000 LA RPARMREG,1 04S0471 00165000 * CALL ALLOCBUF; /* CALL TO GET A BUFFER UNIT VIA 00166000 * THE ALLOCBUF ROUTINE */ 00167000 L @15,OPCGETBF(,ROPCAVT) 04S0472 00168000 BALR @14,@15 04S0472 00169000 * OCUNIT=RPARMREG; /* ATTACH THE BUFFER UNIT TO THE 00170000 * OPERATOR CONTROL ELEMENT */ 00171000 ST RPARMREG,OCUNIT(,ROPCE) 04S0473 00172000 * RFY 04S0474 00173000 * RPARMREG UNRSTD; /* RELEASE THE PARAMETER REGISTER 00174000 * USED BY THE ALLOCBUF ROUTINE */ 00175000 * CALL IPSNDREQ(ACTREQ,LENGTH(ACTREQ));/* CALL AN INTERNAL 00176000 * PROCEDURE TO PREPARE TO SEND 00177000 * OUT AN "ACTIVATE PHYSICAL 00178000 * UNIT" REQUEST */ 00179000 LA @01,@AL00475 04S0475 00180000 BAL @14,IPSNDREQ 04S0475 00181000 * END; 03S0476 00182000 * ELSE /* RETURN THE INPUT ELEMENT TO 00183000 * THE REQUESTOR OF THE "ACTIVATE 00184000 * PHYSICAL UNIT" REQUEST WITH AN 00185000 * ERROR INDICATION */ 00186000 * DO; 03S0477 00187000 B @RC00467 03S0477 00188000 @RF00467 DS 0H 03S0478 00189000 * 04S0478 00190000 * /*********************************************************/ 00191000 * /* */ 00192000 * /* PROCESS.REQUEST.NOSIB: THIS SEGMENT PREPARES THE INPUT*/ 00193000 * /* OPERATOR CONTROL ELEMENT THAT IS TO BE SENT BACK TO */ 00194000 * /* THE REQUESTOR OF THE "ACTIVATE PHYSICAL UNIT" REQUEST */ 00195000 * /* WITH A BAD RETURN CODE. */ 00196000 * /* */ 00197000 * /*********************************************************/ 00198000 * 04S0478 00199000 * OCRESP=ON; /* INDICATE THAT THE OPERATOR 00200000 * CONTROL ELEMENT IS A RESPONSE */ 00201000 OI OCRESP(ROPCE),B'00000001' 04S0478 00202000 * OCPARM=OCRCBSIB; /* SET THE RETURN CODE TO 04S0479 00203000 * INDICATE THAT A SESSION 04S0479 00204000 * INFORMATION CONTROL BLOCK 00205000 * COULD NOT BE OBTAINED */ 00206000 MVC OCPARM(2,ROPCE),@CH01013 04S0479 00207000 * OPCMODID=OCWTG; /* SET THE MODULE IDENTIFICATION 00208000 * FOR THE XCTL MACRO FROM THE 00209000 * OPERATOR CONTROL ELEMENT 04S0480 00210000 * "WHERE TO GO FIELD" */ 00211000 MVC OPCMODID(2,ROPCAVT),OCWTG(ROPCE) 04S0480 00212000 * OCWTG=''B; /* ZERO THE OPERATOR CONTROL 00213000 * "WHERE TO GO" FIELD TO 04S0481 00214000 * INDICATE THAT THE PROCESSING 00215000 * OF THE ACTPU REQUEST HAS ENDED*/ 00216000 XC OCWTG(2,ROPCE),OCWTG(ROPCE) 04S0481 00217000 * END; 03S0482 00218000 * END; 02S0483 00219000 * ELSE /* DETERMINE THE TYPE OF THE 00220000 * RESPONSE INPUT ELEMENT AND 00221000 * PROCESS THE RESPONSE */ 00222000 * DO; 02S0484 00223000 B @RC00461 02S0484 00224000 @RF00461 DS 0H 02S0485 00225000 * 03S0485 00226000 * /*************************************************************/ 00227000 * /* */ 00228000 * /* PROCESS.RESPONSE: THIS SEGMENT DETERMINES THE TYPE OF */ 00229000 * /* RESPONSE THAT IS TO BE PROCESSED AND PROCESSES THE */ 00230000 * /* RESPONSE ACCORDINGLY. */ 00231000 * /* */ 00232000 * /*************************************************************/ 00233000 * 03S0485 00234000 * PTRRESP=ADDR(PRUDATA); /* ESTABLISH ADDRESSABILITY TO 00235000 * THE RESPONSE UNIT DATA */ 00236000 L @11,OCUNIT(,ROPCE) 03S0485 00237000 LA PTRRESP,PRUDATA(,@11) 03S0485 00238000 * IF PRURHSDI=ON /* TEST FOR THE PRESENCE OF SENSE 00239000 * DATA */ 00240000 * THEN /* INCREMENT THE RESPONSE POINTER 00241000 * TO THE BEGINNING OF THE 03S0486 00242000 * RESPONSE UNIT */ 00243000 AL @11,@CF01677 03S0486 00244000 TM PRURHSDI(@11),B'00000100' 03S0486 00245000 BNO @RF00486 03S0486 00246000 * PTRRESP=PTRRESP+LENGTH(SENSE);/* INDEX POINTER BY THE 03S0487 00247000 * LENGTH OF THE SENSE DATA */ 00248000 AL PTRRESP,@CF00328 03S0487 00249000 * IF RESPCODE=CD1ACTPU /* TEST FOR AN "ACTIVATE PHYSICAL 00250000 * UNIT" RESPONSE */ 00251000 * THEN /* PROCESS THE "ACTIVATE PHYSICAL 00252000 * UNIT" RESPONSE */ 00253000 @RF00486 CLI RESPCODE(PTRRESP),X'11' 03S0488 00254000 BNE @RF00488 03S0488 00255000 * DO; 03S0489 00256000 * 04S0490 00257000 * /*********************************************************/ 00258000 * /* */ 00259000 * /* PROCESS.RESPONSE.RESPACT: THIS SEGMENT PROCESSES THE */ 00260000 * /* "ACTIVATE PHYSICAL UNIT" RESPONSE. */ 00261000 * /* */ 00262000 * /*********************************************************/ 00263000 * 04S0490 00264000 * IF SIBSSTAT=SIBSACTV /* TEST FOR THE "SESSION ACTIVE" 00265000 * STATE OF THE PHYSICAL UNIT */ 00266000 * THEN /* PROCEED WITH PROCESSING THE 00267000 * GOOD RESPONSE */ 00268000 LR @11,RTRM 04S0490 00269000 AL @11,@CF01678 04S0490 00270000 SLR @05,@05 04S0490 00271000 ICM @05,7,TRMSIBPT-7(@11) 04S0490 00272000 TM SIBSSTAT(@05),B'00011100' 04S0490 00273000 BNO @RF00490 04S0490 00274000 * DO; 04S0491 00275000 * 05S0492 00276000 * /*****************************************************/ 00277000 * /* */ 00278000 * /* PROCESS.RESPONSE.RESPACT.CHECKMOD: THIS SEGMENT */ 00279000 * /* CHECKS THE CONTENTS IDENTIFICATION OF THE LOAD */ 00280000 * /* MODULE IN THE COMMUNICATIONS CONTROLLER AGAINST */ 00281000 * /* THE NCP TEXT IDENTIFICATION KNOWN TO TCAM. */ 00282000 * /* */ 00283000 * /*****************************************************/ 00284000 * 05S0492 00285000 * RFY 05S0492 00286000 * RWORK RSTD; 05S0492 00287000 * RFY 05S0493 00288000 * RPARMREG RSTD; 05S0493 00289000 * RFY 05S0494 00290000 * RRETCODE RSTD; 05S0494 00291000 * RWORK=TRMNCPIM; /* SET THE COMMUNICATIONS 05S0495 00292000 * CONTROLLER MASK REGISTER */ 00293000 LA RWORK,8 05S0495 00294000 * RPARMREG=RTRM; /* SET THE TERMINAL TABLE ENTRY 00295000 * ADDRESS PARAMETER REGISTER */ 00296000 LR RPARMREG,RTRM 05S0496 00297000 * CALL IEDQTL; /* OBTAIN THE ADDRESS OF THE NCP 00298000 * DEVICE DEPENDENCY STRUCTURE */ 00299000 L @15,AVTDDFT(,RAVT) 05S0497 00300000 BALR @14,@15 05S0497 00301000 * PTRNCPDD=RRETCODE; /* ESTABLISH ADDRESSABILITY TO 00302000 * THE NCP DEVICE DEPENDENCY 00303000 * INFORMATION WITH THE POINTER 00304000 * RETURNED FROM THE IEDQTL 05S0498 00305000 * ROUTINE */ 00306000 LR PTRNCPDD,RRETCODE 05S0498 00307000 * RFY 05S0499 00308000 * RWORK UNRSTD; 05S0499 00309000 * RFY 05S0500 00310000 * RPARMREG UNRSTD; 05S0500 00311000 * RFY 05S0501 00312000 * RRETCODE UNRSTD; 05S0501 00313000 * OCBACKUP=ACTRCONT; /* SAVE THE CONTENTS 05S0502 00314000 * IDENTIFICATION FIELD OF THE 00315000 * "ACTIVATE PHYSICAL UNIT" 05S0502 00316000 * RESPONSE */ 00317000 MVC OCBACKUP(8,ROPCE),ACTRCONT(PTRRESP) 05S0502 00318000 * IF NCPTXID=OCBACKUP /* COMPARE LOAD MODULE NAMES FOR 00319000 * EQUALITY */ 00320000 * THEN /* PREPARE TO SEND A "START DATA 00321000 * TRAFFIC" REQUEST */ 00322000 CLC NCPTXID(8,PTRNCPDD),OCBACKUP(ROPCE) 05S0503 00323000 BNE @RF00503 05S0503 00324000 * CALL IPSNDREQ(SDTREQ,LENGTH(SDTREQ)); 05S0504 00325000 LA @01,@AL00504 05S0504 00326000 BAL @14,IPSNDREQ 05S0504 00327000 * ELSE /* SET A BAD RETURN CODE AND 00328000 * PREPARE TO SEND A "DEACTIVATE 00329000 * PHYSICAL UNIT" REQUEST */ 00330000 * DO; 05S0505 00331000 B @RC00503 05S0505 00332000 @RF00503 DS 0H 05S0506 00333000 * OCPARM=OCRCBMOD; 05S0506 00334000 MVC OCPARM(2,ROPCE),@CH01017 05S0506 00335000 * CALL IPSNDREQ(DACTREQ,LENGTH(DACTREQ)); 05S0507 00336000 LA @01,@AL00507 05S0507 00337000 BAL @14,IPSNDREQ 05S0507 00338000 * END; 05S0508 00339000 * END; 04S0509 00340000 * ELSE /* FREE THE SESSION INFORMATION 00341000 * CONTROL BLOCK FOR THE SSCP TO 00342000 * PU SESSION AND RETURN AN ERROR 00343000 * CODE TO THE ORIGINAL REQUESTOR 00344000 * OF THE "ACTIVATE PHYSICAL 00345000 * UNIT" REQUEST */ 00346000 * DO; 04S0510 00347000 B @RC00490 04S0510 00348000 @RF00490 DS 0H 04S0511 00349000 * RFY 04S0511 00350000 * RPARMREG RSTD; /* RESTRICT THE REGISTER USED TO 00351000 * INDICATE THE TYPE OF INTERTASK 00352000 * REQUEST */ 00353000 * RPARMREG=REQSFREE; /* SET THE TYPE OF INTERTASK 00354000 * REQUEST TO INDICATE THAT A SIB 00355000 * IS TO BE FREED */ 00356000 LA RPARMREG,4 04S0512 00357000 * CALL IPSIBREQ; /* CALL THE INTERNAL PROCEDURE 00358000 * THAT HANDLES SIB REQUESTS */ 00359000 BAL @14,IPSIBREQ 04S0513 00360000 * RFY 04S0514 00361000 * RPARMREG UNRSTD; /* RELEASE THE REGISTER USED FOR 00362000 * THE TYPE OF SIB REQUEST */ 00363000 * OCPARM=OCRCBNEG; /* INDICATE A BAD RESPONSE AND 00364000 * THAT SENSE DATA IS INCLUDED IN 00365000 * THE RESPONSE UNIT DATA */ 00366000 MVC OCPARM(2,ROPCE),@CH01011 04S0515 00367000 * OPCMODID=OCWTGB; /* SET THE MODULE IDENTIFICATION 00368000 * FOR THE XCTL MACRO FROM THE 00369000 * OPERATOR CONTROL ELEMENT 04S0516 00370000 * "WHERE TO GO BACK-UP" FIELD */ 00371000 MVC OPCMODID(2,ROPCAVT),OCWTGB(ROPCE) 04S0516 00372000 * OCWTG=''B; /* ZERO THE OPERATOR CONTROL 00373000 * "WHERE TO GO" FIELD TO 04S0517 00374000 * INDICATE THAT THE PROCESSING 00375000 * OF THE ACTPU REQUEST HAS ENDED*/ 00376000 XC OCWTG(2,ROPCE),OCWTG(ROPCE) 04S0517 00377000 * END; 04S0518 00378000 * END; 03S0519 00379000 * ELSE /* DETERMINE WHETHER THE RESPONSE 00380000 * IS A "START DATA TRAFFIC" 00381000 * RESPONSE OR A "DEACTIVATE 00382000 * PHYSICAL UNIT" RESPONSE */ 00383000 * IF RESPCODE=CD1SDT /* TEST FOR A "START DATA 03S0520 00384000 * TRAFFIC" RESPONSE */ 00385000 * THEN /* PROCESS THE "START DATA 03S0520 00386000 * TRAFFIC" RESPONSE */ 00387000 B @RC00488 03S0520 00388000 @RF00488 CLI RESPCODE(PTRRESP),X'A0' 03S0520 00389000 BNE @RF00520 03S0520 00390000 * DO; 03S0521 00391000 * 04S0522 00392000 * /*******************************************************/ 00393000 * /* */ 00394000 * /* PROCESS.RESPONSE.RESPSDT: THIS SEGMENT PROCESSES THE*/ 00395000 * /* "START DATA TRAFFIC" RESPONSE. */ 00396000 * /* */ 00397000 * /*******************************************************/ 00398000 * 04S0522 00399000 * IF SIBDSTAT=SIBDACTV /* TEST FOR THE "DATA TRAFFIC 00400000 * ACTIVE" STATE */ 00401000 * THEN /* PROCESS THE GOOD RESPONSE */ 00402000 LR @11,RTRM 04S0522 00403000 AL @11,@CF01678 04S0522 00404000 SLR @09,@09 04S0522 00405000 ICM @09,7,TRMSIBPT-7(@11) 04S0522 00406000 TM SIBDSTAT(@09),B'00000011' 04S0522 00407000 BNO @RF00522 04S0522 00408000 * DO; 04S0523 00409000 * IF PRURHSDI=OFF /* TEST FOR THE ABSENCE OF SENSE 00410000 * DATA IN THE RESPONSE UNIT */ 00411000 * THEN /* SET A POSITIVE RETURN CODE IN 00412000 * THE OPERATOR CONTROL ELEMENT */ 00413000 L @11,OCUNIT(,ROPCE) 04S0524 00414000 AL @11,@CF01677 04S0524 00415000 TM PRURHSDI(@11),B'00000100' 04S0524 00416000 BNZ @RF00524 04S0524 00417000 * OCPARM=OCRCGPOS;/* INDICATE A GOOD RESPONSE AND 00418000 * THAT NO SENSE IS INCLUDED IN 00419000 * THE RESPONSE UNIT DATA */ 00420000 MVC OCPARM(2,ROPCE),@CH00061 04S0525 00421000 * ELSE /* SET A NEGATIVE RETURN CODE IN 00422000 * THE OPERATOR CONTROL ELEMENT */ 00423000 * OCPARM=OCRCGNEG;/* INDICATE A GOOD RESPONSE AND 00424000 * THAT SENSE DATA IS INCLUDED IN 00425000 * THE RESPONSE UNIT DATA */ 00426000 B @RC00524 04S0526 00427000 @RF00524 MVC OCPARM(2,ROPCE),@CH00128 04S0526 00428000 * OPCMODID=OCWTGB; /* SET THE MODULE IDENTIFICATION 00429000 * FOR THE XCTL MACRO FORM THE 00430000 * OPERATOR CONTROL "WHERE TO GO 00431000 * BACK-UP" FIELD */ 00432000 @RC00524 MVC OPCMODID(2,ROPCAVT),OCWTGB(ROPCE) 04S0527 00433000 * OCWTG=''B; /* ZERO THE OPERATOR CONTROL 00434000 * "WHERE TO GO FIELD TO INDICATE 00435000 * THAT THE PROCESSING OF THE 00436000 * ACTIVATE REQUEST HAS ENDED */ 00437000 XC OCWTG(2,ROPCE),OCWTG(ROPCE) 04S0528 00438000 * END; 04S0529 00439000 * ELSE /* BUILD A "DEACTIVATE PHYSICAL 00440000 * UNIT" REQUEST TO DEACTIVATE 00441000 * THE PARTIALLY ACTIVATED 04S0530 00442000 * PHYSICAL UNIT */ 00443000 * CALL IPSNDREQ(DACTREQ,LENGTH(DACTREQ));/* CALL AN 00444000 * INTERNAL PROCEDURE TO PREPARE 00445000 * TO SEND THE "DEACTIVATE 04S0530 00446000 * PHYSICAL UNIT" REQUEST */ 00447000 B @RC00522 04S0530 00448000 @RF00522 LA @01,@AL00530 04S0530 00449000 BAL @14,IPSNDREQ 04S0530 00450000 * END; 03S0531 00451000 * ELSE /* PROCESS THE "DEACTIVATE 03S0532 00452000 * PHYSICAL UNIT" RESPONSE */ 00453000 * DO; 03S0532 00454000 B @RC00520 03S0532 00455000 @RF00520 DS 0H 03S0533 00456000 * 04S0533 00457000 * /*******************************************************/ 00458000 * /* */ 00459000 * /* PROCESS.RESPONSE.RESPDACT: THIS SEGMENT DOES THE */ 00460000 * /* PROCESSING THAT IS REQUIRED WHEN A RESPONSE TO */ 00461000 * /* "DEACTIVATE PHYSICAL UNIT" IS RECEIVED. */ 00462000 * /* */ 00463000 * /*******************************************************/ 00464000 * 04S0533 00465000 * RFY 04S0533 00466000 * RPARMREG RSTD; /* RESTRICT THE REGISTER USED TO 00467000 * INDICATE THE TYPE OF INTERTASK 00468000 * REQUEST */ 00469000 * RPARMREG=REQSFREE; /* SET THE TYPE OF INTERTASK 00470000 * REQUEST TO INDICATE THAT A SIB 00471000 * IS TO BE FREED */ 00472000 LA RPARMREG,4 04S0534 00473000 * CALL IPSIBREQ; /* CALL THE INTERNAL PROCEDURE 00474000 * THAT HANDLES SIB REQUESTS */ 00475000 BAL @14,IPSIBREQ 04S0535 00476000 * RFY 04S0536 00477000 * RPARMREG UNRSTD; /* RELEASE THE REGISTER USED FOR 00478000 * THE TYPE OF SIB REQUEST */ 00479000 * IF OCPARM=0 /* TEST FOR NO RETURN CODE IN THE 00480000 * OPERATOR CONTROL ELEMENT */ 00481000 * THEN /* SET A RETURN CODE IN THE 04S0537 00482000 * OPERATOR CONTROL ELEMENT */ 00483000 LH @11,OCPARM(,ROPCE) 04S0537 00484000 LTR @11,@11 04S0537 00485000 BNZ @RF00537 04S0537 00486000 * IF PRURHSDI=OFF /* TEST FOR THE ABSENCE OF SENSE 00487000 * DATA IN THE RESPONSE UNIT */ 00488000 * THEN /* SET A POSITIVE RETURN CODE IN 00489000 * THE OPERATOR CONTROL ELEMENT */ 00490000 L @11,OCUNIT(,ROPCE) 04S0538 00491000 AL @11,@CF01677 04S0538 00492000 TM PRURHSDI(@11),B'00000100' 04S0538 00493000 BNZ @RF00538 04S0538 00494000 * OCPARM=OCRCBPOS; /* INDICATE A BAD RESPONSE AND 00495000 * THAT NO SENSE DATA IS INCLUDED 00496000 * IN THE RESPONSE UNIT DATA */ 00497000 MVC OCPARM(2,ROPCE),@CH01015 04S0539 00498000 * ELSE /* SET A NEGATIVE RETURN CODE IN 00499000 * THE OPERATOR CONTROL ELEMENT */ 00500000 * OCPARM=OCRCBNEG; /* INDICATE A GOOD RESPONSE AND 00501000 * THAT SENSE DATA IS INCLUDED IN 00502000 * THE RESPONSE UNIT DATA */ 00503000 B @RC00538 04S0540 00504000 @RF00538 MVC OCPARM(2,ROPCE),@CH01011 04S0540 00505000 * OPCMODID=OCWTGB; /* SET THE MODULE IDENTIFICATION 00506000 * FOR THE XCTL MACRO FROM THE 00507000 * OPERATOR CONTROL ELEMENT 04S0541 00508000 * "WHERE TO GO BACK-UP" FIELD */ 00509000 @RC00538 DS 0H 04S0541 00510000 @RF00537 MVC OPCMODID(2,ROPCAVT),OCWTGB(ROPCE) 04S0541 00511000 * OCWTG=''B; /* ZERO THE OPERATOR CONTROL 00512000 * "WHERE TO GO" FIELD TO 04S0542 00513000 * INDICATE THAT THE PROCESSING 00514000 * OF THE ACTPU REQUEST HAS ENDED*/ 00515000 XC OCWTG(2,ROPCE),OCWTG(ROPCE) 04S0542 00516000 * END; 03S0543 00517000 * END; 02S0544 00518000 @RC00520 DS 0H 02S0544 00519000 @RC00488 DS 0H 02S0545 00520000 * 02S0545 00521000 * /*****************************************************************/ 00522000 * /* */ 00523000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 00524000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. THE XCTL ASSEMBLER */ 00525000 * /* MACRO INSTRUCTION IS USED BY THIS SEGMENT TO TRANSFER CONTROL */ 00526000 * /* TO THE NEXT MODULE THAT IS TO BE EXECUTED. */ 00527000 * /* */ 00528000 * /*****************************************************************/ 00529000 * 02S0545 00530000 * RFY 02S0545 00531000 * RPARMREG RSTD; /* RESTRICT THE PARAMETER 02S0545 00532000 * REGISTER TO BE USED TO CONTAIN 00533000 * THE ADDRESS OF THE OPERATOR 00534000 * CONTROL ADDRESS VECTOR TABLE 00535000 * FROM USE BY THE COMPILER */ 00536000 @RC00461 DS 0H 02S0546 00537000 * RPARMREG=ROPCAVT; /* SET THE PARAMETER REGISTER IN 00538000 * PREPARATION TO TRANSFERRING 00539000 * CONTROL TO ANOTHER MODULE */ 00540000 LR RPARMREG,ROPCAVT 02S0546 00541000 * GEN EXIT REFS(OPCXCTL,ROPCAVT) NOSEQFLOW SETS(RENTREG); 02S0547 00542000 * /* 00543000 XCTL SF=(E,OPCXCTL(ROPCAVT)) TRANSFER CONTROL MACRO 00544000 * 02S0548 00545000 * /*****************************************************************/ 00546000 * /* */ 00547000 * /* IPSIBREQ: THIS SEGMENT CONTAINS THE IPSIBREQ INTERNAL */ 00548000 * /* PROCEDURE WHICH DOES THE PROCESSING OF INTERTASK REQUESTS THAT*/ 00549000 * /* PERTAIN TO THE SESSION INFORMATION CONTROL BLOCK. THIS SEGMENT*/ 00550000 * /* USES THE POSTWAIT EXTERNAL ROUTINE. */ 00551000 * /* */ 00552000 * /*****************************************************************/ 00553000 * 02S0548 00554000 *IPSIBREQ: 02S0548 00555000 * PROC OPTIONS(RETREG,SAVE(14)); /* SAVE THE RETURN POINT REGISTER 00556000 * SINCE THIS PROCEDURE CALLS AN 00557000 * EXTERNAL ROUTINE */ 00558000 IPSIBREQ ST @14,@SA00002 02S0548 00559000 * RFY 02S0549 00560000 * RPARMREG RSTD; /* RESTRICT THE INPUT PARAMETER 00561000 * REGISTER FOR THIS INTERNAL 00562000 * PROCEDURE */ 00563000 * REQAREA(1:REQSLEN)=''B; /* CLEAR THE INTERTASK REQUEST 00564000 * ELEMENT WITH ZEROS */ 00565000 XC REQAREA(26),REQAREA 02S0550 00566000 * REQTYPE=RPARMREG; /* SET THE REQUEST TYPE FROM THE 00567000 * INPUT PARAMETER REGISTER */ 00568000 LA @11,REQAREA 02S0551 00569000 STC RPARMREG,REQTYPE(,@11) 02S0551 00570000 * REQQCBA=SAVTXTRQ; /* SET THE QUEUE CONTROL BLOCK 00571000 * ADDRESS TO THE QUEUE CONTROL 00572000 * BLOCK ADDRESS OF THE POSTWAIT 00573000 * ROUTINE */ 00574000 L @09,AVTSAVTP(,RAVT) 02S0552 00575000 MVC REQQCBA(3,@11),SAVTXTRQ+1(@09) 02S0552 00576000 * REQPRI=PRISIBRQ; /* SET THE REQUEST PRIORITY FROM 00577000 * THE SIB REQUEST PRIORITY 02S0553 00578000 * CONSTANT */ 00579000 MVI REQPRI(@11),X'E5' 02S0553 00580000 * REQRPRI=PRISIBRQ; /* SET THE REQUEST RETURN 02S0554 00581000 * PRIORITY FROM THE SIB REQUEST 00582000 * PRIORITY CONSTANT */ 00583000 MVI REQRPRI(@11),X'E5' 02S0554 00584000 * REQRQCBA=ADDR(OPCPWQCB); /* SET THE RETURN QUEUE CONTROL 00585000 * BLOCK ADDRESS TO THE ADDRESS 00586000 * OF THE OPERATOR CONTROL QUEUE 00587000 * @YM08403*/ 00588000 LA @05,OPCPWQCB(,ROPCAVT) 02S0555 00589000 STCM @05,7,REQRQCBA(@11) 02S0555 00590000 * REQSTTE=RTRM; /* SET THE REQUEST TERMINAL TABLE 00591000 * ENTRY ADDRESS TO THE ADDRESS 00592000 * OF THE TERMINAL TABLE ENTRY 00593000 * FOR THE RESOURCE WHOSE SIB 00594000 * CHAIN WILL BE CHANGED */ 00595000 ST RTRM,REQSTTE(,@11) 02S0556 00596000 * REQSTNT=SAVTSCPT; /* SPECIFY THE SSCP TERMINAL NAME 00597000 * TABLE INDEX AS THE TNT INDEX 00598000 * TO BE PLACED IN THE SIB TO 00599000 * INDICATE A SSCP TO RESOURCE 00600000 * SESSION */ 00601000 LH @09,SAVTSCPT(,@09) 02S0557 00602000 N @09,@CF01675 02S0557 00603000 STH @09,REQSTNT(,@11) 02S0557 00604000 * RPARMREG=ADDR(REQAREA); /* SET THE REQUEST ELEMENT 02S0558 00605000 * ADDRESS PARAMETER FOR THE 00606000 * POSTWAIT ROUTINE */ 00607000 LR RPARMREG,@11 02S0558 00608000 * CALL POSTWAIT; /* REQUEST A SIB */ 00609000 L @15,OPCPSTWT(,ROPCAVT) 02S0559 00610000 BALR @14,@15 02S0559 00611000 * RFY 02S0560 00612000 * RPARMREG UNRSTD; /* RELEASE THE INPUT PARAMETER 00613000 * REGISTER */ 00614000 * END IPSIBREQ; 02S0561 00615000 @EL00002 DS 0H 02S0561 00616000 @EF00002 DS 0H 02S0561 00617000 @ER00002 L @14,@SA00002 02S0561 00618000 BR @14 02S0561 00619000 * 02S0562 00620000 * /*****************************************************************/ 00621000 * /* */ 00622000 * /* IPSNDREQ: THIS SEGMENT CONTAINS THE IPSNDREQ INTERNAL */ 00623000 * /* PROCEDURE WHICH DOES THE BUILDING OF THE PACKED REQUEST UNIT */ 00624000 * /* AND THE PREPARATION THAT IS NECESSARY TO SEND OUT THE REQUEST.*/ 00625000 * /* */ 00626000 * /*****************************************************************/ 00627000 * 02S0562 00628000 *IPSNDREQ: 02S0562 00629000 * PROC(RQSTDATA,RQSTLEN) OPTIONS(NOSAVE);/* DO NOT SAVE ANY 02S0562 00630000 * REGISTERS SINCE THIS PROCEDURE 00631000 * DOES NOT CALL ANY OTHER 02S0562 00632000 * ROUTINES */ 00633000 IPSNDREQ MVC @PC00003(8),0(@01) 02S0562 00634000 * DCL 02S0563 00635000 * RQSTDATA CHARACTER(*); /* INPUT REQUEST UNIT DATA */ 00636000 * DCL 02S0564 00637000 * RQSTLEN FIXED(31); /* LENGTH OF THE INPUT REQUEST 00638000 * UNIT DATA */ 00639000 * IEDPRUND=RHPACKTH; /* SET THE REQUEST HEADER AND THE 00640000 * PACKED TRANSMISSION HEADER */ 00641000 L @11,OCUNIT(,ROPCE) 02S0565 00642000 LR @09,@11 02S0565 00643000 AL @09,@CF01677 02S0565 00644000 XC IEDPRUND+4(4,@09),IEDPRUND+4(@09) 02S0565 00645000 MVC IEDPRUND(4,@09),@CB01631 02S0565 00646000 * PRUTTCIN=OCTRMTBL; /* SET THE DESTINATION TERMINAL 00647000 * TABLE CURRENT INDEX */ 00648000 LH @09,OCTRMTBL(,ROPCE) 02S0566 00649000 N @09,@CF01675 02S0566 00650000 STH @09,PRUTTCIN(,@11) 02S0566 00651000 * PRUDATCT=RQSTLEN; /* SET THE DATA COUNT FIELD TO 00652000 * THE NUMBER OF BYTES IN THE 00653000 * REQUEST UNIT DATA PARAMETER */ 00654000 L @09,@PC00003+4 02S0567 00655000 L @09,RQSTLEN(,@09) 02S0567 00656000 STH @09,PRUDATCT(,@11) 02S0567 00657000 * PRUDATA(1:RQSTLEN)=RQSTDATA(1:RQSTLEN);/* BUILD THE REQUEST UNIT 00658000 * DATA */ 00659000 BCTR @09,0 02S0568 00660000 L @05,@PC00003 02S0568 00661000 EX @09,@SM01679 02S0568 00662000 * OCWTG=MODID; /* SET THE OPERATOR CONTROL 02S0569 00663000 * "WHERE TO GO" FIELD TO 02S0569 00664000 * INDICATE THAT THE RESPONSE TO 00665000 * THE REQUEST IS TO BE SENT BACK 00666000 * TO THIS MODULE */ 00667000 MVC OCWTG(2,ROPCE),@CC01622 02S0569 00668000 * OPCMODID=OUTMODID; /* SET THE MODULE IDENTIFICATION 00669000 * IN PREPARATION TO SENDING THE 00670000 * REQUEST OUT AND TRANSFERRING 00671000 * CONTROL VIA THE XCTL MACRO */ 00672000 MVC OPCMODID(2,ROPCAVT),@CC01624 02S0570 00673000 * END IPSNDREQ; 02S0571 00674000 @EL00003 DS 0H 02S0571 00675000 @EF00003 DS 0H 02S0571 00676000 @ER00003 BR @14 02S0571 00677000 * END IGCA610D 01S0572 00678000 * 01S0572 00679000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00680000 */*%INCLUDE SYSLIB (TAVTD ) */ 00681000 */*%INCLUDE SYSLIB (TCD1D ) */ 00682000 */*%INCLUDE SYSLIB (TNCPID ) */ 00683000 */*%INCLUDE SYSLIB (TOPCED ) */ 00684000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00685000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00686000 */*%INCLUDE SYSLIB (TPRUD ) */ 00687000 */*%INCLUDE SYSLIB (TREQD ) */ 00688000 */*%INCLUDE SYSLIB (TSIBD ) */ 00689000 */*%INCLUDE SYSLIB (TTRMD ) */ 00690000 */*%INCLUDE SYSUT5 (RFY ) */ 00691000 */*%INCLUDE SYSUT5 (DCL ) */ 00692000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 00693000 */*%INCLUDE SYSUT5 (PROCESS ) */ 00694000 */*%INCLUDE SYSUT5 (INITIAL ) */ 00695000 */*%INCLUDE SYSUT5 (REQUEST ) */ 00696000 */*%INCLUDE SYSUT5 (YESSIB ) */ 00697000 */*%INCLUDE SYSUT5 (NOSIB ) */ 00698000 */*%INCLUDE SYSUT5 (RESPONSE) */ 00699000 */*%INCLUDE SYSUT5 (RESPACT ) */ 00700000 */*%INCLUDE SYSUT5 (CHECKMOD) */ 00701000 */*%INCLUDE SYSUT5 (RESPSDT ) */ 00702000 */*%INCLUDE SYSUT5 (RESPDACT) */ 00703000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 00704000 */*%INCLUDE SYSUT5 (IPSIBREQ) */ 00705000 */*%INCLUDE SYSUT5 (IPSNDREQ) */ 00706000 * 01S0572 00707000 * ; 01S0572 00708000 @DATA DS 0H 00709000 @CH01017 DC H'-4' 00710000 @CH01015 DC H'-3' 00711000 @CH01013 DC H'-2' 00712000 @CH01011 DC H'-1' 00713000 @SM01679 MVC PRUDATA(0,@11),RQSTDATA(@05) 00714000 DS 0F 00715000 @AL00475 DC A(ACTREQ) LIST WITH 2 ARGUMENT(S) 00716000 DC A(@CF01674) 00717000 @AL00504 DC A(SDTREQ) LIST WITH 2 ARGUMENT(S) 00718000 DC A(@CF00061) 00719000 @AL00507 EQU * LIST WITH 2 ARGUMENT(S) 00720000 @AL00530 DC A(DACTREQ) LIST WITH 2 ARGUMENT(S) 00721000 DC A(@CF00128) 00722000 @DATD DSECT 00723000 DS 0F 00724000 @SA00002 DS 1F 00725000 @PC00003 DS 2F 00726000 IGCA610D CSECT 00727000 DS 0F 00728000 @CF00061 DC F'1' 00729000 @CH00061 EQU @CF00061+2 00730000 @CF00128 DC F'2' 00731000 @CH00128 EQU @CF00128+2 00732000 @CF00328 DC F'4' 00733000 @CF01674 DC F'9' 00734000 @CF01677 DC F'-8' 00735000 @CF01678 DC F'-7' 00736000 @CF01675 DC XL4'0000FFFF' 00737000 @DATD DSECT 00738000 DS 0D 00739000 REQAREA DS CL26 00740000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00741000 @ENDDATD EQU * 00742000 IGCA610D CSECT 00743000 NOPR ((@ENDDATD-@DATD)/561*16) 00744000 DS 0F 00745000 @SIZDATD DC AL1(0) 00746000 DC AL3(@ENDDATD-@DATD) 00747000 DS 0D 00748000 @CC01622 DC C'A6' 00749000 @CC01624 DC C'02' 00750000 @CB01631 DC X'6B80001D' 00751000 PATCH DC XL104'0' 00752000 ACTREQ DS CL9 00753000 ORG ACTREQ 00754000 ACTCODE DC X'11' 00755000 ACTTYPE DC X'02' 00756000 ACTPROFS DC X'55' 00757000 ORG ACTPROFS 00758000 ACTFM DS BL1 00759000 ACTTS EQU ACTPROFS+0 00760000 ORG ACTREQ+3 00761000 ACTSSCP DS CL6 00762000 ORG ACTSSCP 00763000 @NM00148 DC X'05' 00764000 ORG @NM00148 00765000 ACTFORM DS BL1 00766000 ACTPTYPE EQU @NM00148+0 00767000 ORG ACTSSCP+1 00768000 ACTBINID DC X'000000000A' 00769000 ORG ACTREQ+9 00770000 DACTREQ DS CL2 00771000 ORG DACTREQ 00772000 DACTCODE DC X'12' 00773000 DACTTYPE DC X'01' 00774000 ORG DACTREQ+2 00775000 SDTREQ DS CL1 00776000 ORG SDTREQ 00777000 @NM00149 DC X'A0' 00778000 ORG SDTREQ+1 00779000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00780000 @01 EQU 01 00781000 @02 EQU 02 00782000 @03 EQU 03 00783000 @04 EQU 04 00784000 @05 EQU 05 00785000 @06 EQU 06 00786000 @07 EQU 07 00787000 @08 EQU 08 00788000 @09 EQU 09 00789000 @10 EQU 10 00790000 @11 EQU 11 00791000 @12 EQU 12 00792000 @13 EQU 13 00793000 @14 EQU 14 00794000 @15 EQU 15 00795000 PTRRESP EQU @09 00796000 PTRNCPDD EQU @11 00797000 ROPCE EQU @03 00798000 ROPCAVT EQU @02 00799000 RAVT EQU @04 00800000 RTRM EQU @08 00801000 RWORK EQU @00 00802000 RPARMREG EQU @01 00803000 RDATAREG EQU @10 00804000 RCODEREG EQU @12 00805000 RSAVEREG EQU @13 00806000 RENTREG EQU @15 00807000 RRETCODE EQU @15 00808000 IEDQAVTD EQU 0 00809000 AVTSAVEX EQU IEDQAVTD+288 00810000 @NM00003 EQU IEDQAVTD+388 00811000 AVTCKFLG EQU @NM00003 00812000 AVTBASE EQU IEDQAVTD+412 00813000 AVTPKF EQU AVTBASE 00814000 AVTRNMPT EQU IEDQAVTD+424 00815000 AVTHG02 EQU IEDQAVTD+528 00816000 AVTDISP EQU IEDQAVTD+552 00817000 AVTHD EQU IEDQAVTD+556 00818000 AVTSCOPT EQU AVTHD 00819000 AVTSAVTP EQU IEDQAVTD+612 00820000 AVTSAVTF EQU AVTSAVTP 00821000 AVTCKPEL EQU IEDQAVTD+652 00822000 AVTCKRMV EQU AVTCKPEL 00823000 AVTCKELF EQU IEDQAVTD+680 00824000 AVTCKBYT EQU IEDQAVTD+691 00825000 AVTHG01 EQU IEDQAVTD+692 00826000 AVTCKLNK EQU IEDQAVTD+696 00827000 AVTCRELE EQU IEDQAVTD+708 00828000 AVTCCELE EQU AVTCRELE 00829000 AVTCLRHI EQU IEDQAVTD+716 00830000 AVTADBUF EQU IEDQAVTD+720 00831000 AVTSYSER EQU IEDQAVTD+728 00832000 AVTCKPQB EQU IEDQAVTD+804 00833000 AVTCKPTB EQU AVTCKPQB 00834000 AVTCKPEC EQU AVTCKPQB+4 00835000 AVTCKPCC EQU AVTCKPEC 00836000 AVTOPCQB EQU IEDQAVTD+816 00837000 AVTOPCOB EQU AVTOPCQB 00838000 AVTOPCEC EQU AVTOPCQB+4 00839000 AVTOPCCC EQU AVTOPCEC 00840000 AVTOLTQB EQU IEDQAVTD+828 00841000 AVTCWFL1 EQU IEDQAVTD+924 00842000 AVTCWFL2 EQU IEDQAVTD+925 00843000 AVTSUBT EQU IEDQAVTD+948 00844000 AVTIOTR EQU IEDQAVTD+949 00845000 AVTBIT1 EQU IEDQAVTD+1050 00846000 AVTBIT2 EQU IEDQAVTD+1051 00847000 AVTBIT3 EQU IEDQAVTD+1052 00848000 AVTDDFT EQU IEDQAVTD+1064 00849000 AVTBIT4 EQU IEDQAVTD+1136 00850000 @NM00083 EQU IEDQAVTD+1232 00851000 IEDQAPTR EQU 0 00852000 IEDNSVTD EQU 0 00853000 SAVTDIAG EQU IEDNSVTD 00854000 SAVTDIAF EQU SAVTDIAG 00855000 SAVTLUSQ EQU IEDNSVTD+88 00856000 SAVTXTRQ EQU IEDNSVTD+164 00857000 SAVTTCPU EQU IEDNSVTD+238 00858000 SAVTSCPT EQU SAVTTCPU 00859000 SAVTZELM EQU IEDNSVTD+270 00860000 SAVTRDRV EQU IEDNSVTD+284 00861000 SAVTCKQB EQU IEDNSVTD+300 00862000 SAVTCKTB EQU SAVTCKQB 00863000 SAVTCKEC EQU SAVTCKQB+4 00864000 SAVTCKCC EQU SAVTCKEC 00865000 IEDNCP EQU 0 00866000 NCPFLAG1 EQU IEDNCP+1 00867000 NCPTXID EQU IEDNCP+10 00868000 IEDQOPCE EQU 0 00869000 OCELEM EQU IEDQOPCE+4 00870000 OCUNIT EQU IEDQOPCE+8 00871000 OCRUDEST EQU OCUNIT 00872000 OCCKPKEY EQU OCRUDEST 00873000 OCSCAN EQU OCCKPKEY 00874000 OCOPTCDE EQU IEDQOPCE+12 00875000 OCSWITCH EQU IEDQOPCE+13 00876000 OCFLAG EQU IEDQOPCE+14 00877000 OCRESP EQU OCFLAG 00878000 @NM00107 EQU IEDQOPCE+16 00879000 OCDEST EQU @NM00107 00880000 OCREQVAL EQU OCDEST+1 00881000 OCTRMTBL EQU IEDQOPCE+20 00882000 OCLINENO EQU IEDQOPCE+22 00883000 OCTIOT EQU OCLINENO 00884000 OCWTGB EQU OCTIOT 00885000 OCTRUNIT EQU IEDQOPCE+24 00886000 OCRSID EQU OCTRUNIT 00887000 OCALSTAT EQU OCRSID 00888000 OCPARM EQU IEDQOPCE+28 00889000 OCWTG EQU IEDQOPCE+30 00890000 OCBACKUP EQU IEDQOPCE+32 00891000 OCMODNME EQU IEDQOPCE+40 00892000 OCIPLWA EQU OCMODNME 00893000 OCCKDATA EQU IEDQOPCE+48 00894000 OCRSTGTM EQU OCCKDATA 00895000 IEDQOPCN EQU 0 00896000 OCLDNME EQU IEDQOPCN 00897000 OCLINTTE EQU OCLDNME 00898000 OCREQFLG EQU OCLINTTE+2 00899000 OCPREFLG EQU OCLINTTE+3 00900000 IEDQOPCD EQU 0 00901000 OPCAVTPT EQU IEDQOPCD+8 00902000 OPCCOPCE EQU IEDQOPCD+12 00903000 OPCPSTWT EQU IEDQOPCD+48 00904000 OPCSAVE EQU IEDQOPCD+56 00905000 OPCWORK EQU IEDQOPCD+140 00906000 OPCAQCTL EQU IEDQOPCD+180 00907000 OPCXCTL EQU IEDQOPCD+204 00908000 OPCLDNME EQU IEDQOPCD+212 00909000 OPCMODID EQU OPCLDNME+3 00910000 OPCGETBF EQU IEDQOPCD+276 00911000 OPCSPEC EQU IEDQOPCD+300 00912000 OPCPWCOB EQU IEDQOPCD+368 00913000 OPCPWQCB EQU OPCPWCOB 00914000 OPCPWECB EQU OPCPWCOB+4 00915000 IEDPRUQD EQU 0 00916000 PRUTTCIN EQU IEDPRUQD 00917000 PRUDATCT EQU IEDPRUQD+2 00918000 PRUTIC EQU IEDPRUQD+8 00919000 PRUDATA EQU IEDPRUQD+12 00920000 IEDPRUQP EQU 0 00921000 IEDPRUND EQU 0 00922000 PRURHTH EQU IEDPRUND 00923000 PRURH EQU PRURHTH 00924000 PRURHFG0 EQU PRURH 00925000 PRURHSDI EQU PRURHFG0 00926000 PRURHFG1 EQU PRURH+1 00927000 PRURHFG2 EQU PRURH+2 00928000 PRUTH EQU PRURHTH+3 00929000 PRUFIDN EQU PRUTH 00930000 IEDREQD EQU 0 00931000 REQTYPE EQU IEDREQD 00932000 REQQCBA EQU IEDREQD+1 00933000 REQPRI EQU IEDREQD+4 00934000 REQRPRI EQU IEDREQD+8 00935000 REQRQCBA EQU IEDREQD+9 00936000 REQROUTE EQU IEDREQD+12 00937000 REQRCDS EQU IEDREQD+14 00938000 REQRCD1 EQU REQRCDS 00939000 REQDATA EQU IEDREQD+16 00940000 IEDSIBD EQU 0 00941000 SIBSESSN EQU IEDSIBD+10 00942000 SIBSSTAT EQU SIBSESSN 00943000 SIBDSTAT EQU SIBSESSN 00944000 SIBPACIN EQU IEDSIBD+11 00945000 SIBSEQN EQU IEDSIBD+12 00946000 SIBSTAT1 EQU IEDSIBD+16 00947000 SIBSTAT2 EQU IEDSIBD+17 00948000 SIBBIND EQU IEDSIBD+20 00949000 SIBBIND1 EQU SIBBIND 00950000 SIBBIND2 EQU SIBBIND+1 00951000 SIBBIND3 EQU SIBBIND+2 00952000 SIBSTAT0 EQU IEDSIBD+23 00953000 IEDQTRM EQU 0 00954000 TRMSTATE EQU IEDQTRM 00955000 TRMLOG EQU TRMSTATE 00956000 TRMINSEQ EQU IEDQTRM+4 00957000 TLISTCNT EQU TRMINSEQ 00958000 TRMOUTSQ EQU IEDQTRM+6 00959000 TLISTEN EQU TRMOUTSQ 00960000 TRMDSORG EQU TLISTEN 00961000 TRMALTD EQU IEDQTRM+8 00962000 TRMDEVFL EQU IEDQTRM+10 00963000 TRMSTAT EQU IEDQTRM+12 00964000 IEDQTPTR EQU 0 00965000 IEDNTRM EQU 0 00966000 TRMBYTE4 EQU IEDNTRM 00967000 TRMBYTE3 EQU IEDNTRM+1 00968000 TRMBYTE2 EQU IEDNTRM+2 00969000 TRMINPG EQU TRMBYTE2 00970000 TRMBYTE1 EQU IEDNTRM+3 00971000 TRMSCPRQ EQU TRMBYTE1 00972000 TRMBYTE0 EQU IEDNTRM+6 00973000 TRMSIBPT EQU IEDNTRM+7 00974000 ALLOCBUF EQU 0 00975000 IEDQTL EQU 0 00976000 IEDQTNT EQU 0 00977000 POSTWAIT EQU 0 00978000 ACTRESP EQU 0 00979000 ACTRCONT EQU ACTRESP+2 00980000 RESPDATA EQU 0 00981000 RESPCODE EQU RESPDATA 00982000 RQSTDATA EQU 0 00983000 RQSTLEN EQU 0 00984000 OCCKPKY1 EQU OCCKPKEY 00985000 OCCKPTYP EQU OCCKPKY1 00986000 OCICACTN EQU OCMODNME 00987000 OCICDADR EQU OCICACTN 00988000 OCICSW EQU OCICDADR+3 00989000 OPCAQWD EQU OPCAQCTL 00990000 OPCAQWD1 EQU OPCAQWD 00991000 OPCAQWD2 EQU OPCAQWD+4 00992000 OPCAQWD3 EQU OPCAQWD+8 00993000 REQLDATA EQU REQDATA 00994000 REQSDATA EQU REQDATA 00995000 REQSTTE EQU REQSDATA 00996000 REQSTNT EQU REQSDATA+4 00997000 TRMPRE1 EQU TRMBYTE4 00998000 TRMNCP1 EQU TRMBYTE4 00999000 TRMPRE EQU TRMBYTE3 01000000 TRMNCP EQU TRMBYTE3 01001000 TRMPU EQU TRMBYTE3 01002000 TRMLU EQU TRMBYTE3 01003000 TRMLINK EQU TRMBYTE3 01004000 SENSE EQU PRUDATA 01005000 OCCIB EQU OCREQVAL 01006000 TRMOPT EQU IEDQTRM+20 01007000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01008000 @NM00147 EQU TRMLINK 01009000 TRMLSTAT EQU TRMLINK 01010000 TRMLINT EQU TRMLINK 01011000 TRMEPMOD EQU TRMLINK 01012000 TRMLULOG EQU TRMLU 01013000 TRMINERR EQU TRMLU 01014000 TRMLUREQ EQU TRMLU 01015000 TRMSESRQ EQU TRMLU 01016000 TRMTDIFF EQU TRMLU 01017000 TRMLUTM EQU TRMLU 01018000 TRMLUIT EQU TRMLU 01019000 TRMAUTO EQU TRMLU 01020000 TRMPCONT EQU TRMPU 01021000 @NM00146 EQU TRMPU 01022000 TRMNCONT EQU TRMNCP 01023000 TRMQUCKN EQU TRMNCP 01024000 TRMSLOWN EQU TRMNCP 01025000 TRMSYGEN EQU TRMNCP 01026000 TRMNCPCL EQU TRMNCP 01027000 TRMIPLDM EQU TRMNCP 01028000 TRMINOUT EQU TRMPRE 01029000 TRMRDOUT EQU TRMPRE 01030000 TRMNLOUT EQU TRMPRE 01031000 TRMWROUT EQU TRMPRE 01032000 TRMASNXI EQU TRMPRE 01033000 TRMSTMM EQU TRMPRE 01034000 TRMCMODE EQU TRMPRE 01035000 TRMSTPND EQU TRMPRE 01036000 @NM00145 EQU TRMNCP1 01037000 TRMINOP EQU TRMNCP1 01038000 TRMLYNCH EQU TRMPRE1 01039000 TRMSPOUT EQU TRMPRE1 01040000 TRMERLCK EQU TRMPRE1 01041000 TRMQNPL EQU TRMPRE1 01042000 TRMSPACT EQU TRMPRE1 01043000 TRMOCNI EQU TRMPRE1 01044000 TRMSESSN EQU TRMPRE1 01045000 TRMCONT EQU TRMPRE1 01046000 REQLTNT EQU REQLDATA 01047000 OPCAQLST EQU OPCAQWD3+1 01048000 OPCAQRQ3 EQU OPCAQWD3 01049000 OPCAQSEC EQU OPCAQWD2+1 01050000 OPCAQRQ2 EQU OPCAQWD2 01051000 OPCAQFST EQU OPCAQWD1+1 01052000 OPCAQREQ EQU OPCAQWD1 01053000 OCICINAC EQU OCICSW 01054000 @NM00113 EQU OCICSW 01055000 OCICATST EQU OCICDADR+1 01056000 OCICTYPE EQU OCICDADR 01057000 @NM00112 EQU OCCKPKY1 01058000 OCCKPENV EQU OCCKPKY1 01059000 OCCKPRST EQU OCCKPTYP 01060000 OCCKPNCP EQU OCCKPTYP 01061000 OCCKPINC EQU OCCKPTYP 01062000 ACTRTYPE EQU ACTRESP+1 01063000 ACTRCODE EQU ACTRESP 01064000 TRMSUBST EQU IEDNTRM+12 01065000 TRMTYPE EQU IEDNTRM+11 01066000 TRMRLMCT EQU IEDNTRM+10 01067000 TRMCOHTG EQU TRMSIBPT+1 01068000 TRMGPCNT EQU TRMSIBPT 01069000 TRMBUFRD EQU TRMBYTE0 01070000 TRMSNA EQU TRMBYTE0 01071000 TRMGP EQU TRMBYTE0 01072000 TRMDIAL EQU TRMBYTE0 01073000 @NM00144 EQU TRMBYTE0 01074000 TRMOUTPT EQU TRMBYTE0 01075000 TRMINPUT EQU TRMBYTE0 01076000 TRMUDEF EQU TRMBYTE0 01077000 TRMCOHRT EQU IEDNTRM+4 01078000 TRMSTOTE EQU TRMBYTE1 01079000 TRMCKPRN EQU TRMBYTE1 01080000 TRMTSATN EQU TRMBYTE1 01081000 TRMTRACE EQU TRMBYTE1 01082000 TRMSWBCK EQU TRMBYTE1 01083000 TRMAUTOC EQU TRMBYTE1 01084000 TRMINPTP EQU TRMBYTE1 01085000 TRMWTNEG EQU TRMSCPRQ 01086000 TRMWRBRK EQU TRMBYTE2 01087000 TRMNOSND EQU TRMBYTE2 01088000 TRMPREP EQU TRMBYTE2 01089000 TRMGPACT EQU TRMBYTE2 01090000 TRMANDL EQU TRMBYTE2 01091000 TRMCLOSN EQU TRMINPG 01092000 TRMREMB EQU TRMBYTE2 01093000 TRMRSACT EQU TRMBYTE2 01094000 TRMOPTBL EQU IEDQTRM+18 01095000 TRMOPNO EQU IEDQTRM+17 01096000 TRMCHCIN EQU IEDQTRM+16 01097000 TRMSENSE EQU TRMSTAT+3 01098000 TRMTEMPR EQU TRMSTAT+2 01099000 TRMSIO EQU TRMSTAT 01100000 @NM00143 EQU TRMDEVFL+1 01101000 TRMTPIN EQU TRMDEVFL+1 01102000 TRMNCPI EQU TRMDEVFL+1 01103000 TRMRNTRM EQU TRMDEVFL+1 01104000 @NM00142 EQU TRMDEVFL+1 01105000 TRMLMD EQU TRMDEVFL+1 01106000 TRMCONC EQU TRMDEVFL+1 01107000 TRMTSOB EQU TRMDEVFL 01108000 TRMBFDY EQU TRMDEVFL 01109000 TRMTBLK EQU TRMDEVFL 01110000 TRMSBLK EQU TRMDEVFL 01111000 TRMBLKS EQU TRMDEVFL 01112000 TRMADDC EQU TRMDEVFL 01113000 TRMDDIG EQU TRMDEVFL 01114000 TRMBUFS EQU TRMDEVFL 01115000 TRMPRILK EQU TRMALTD 01116000 TRMLGB EQU TRMDSORG 01117000 TRMUTERM EQU TLISTCNT 01118000 TRMDESTQ EQU IEDQTRM+1 01119000 TRMSCNYN EQU TRMSTATE 01120000 TRMOPTFN EQU TRMSTATE 01121000 TRMHELDN EQU TRMSTATE 01122000 TRMACPTN EQU TRMSTATE 01123000 TRMPREF EQU TRMSTATE 01124000 TRMPROC EQU TRMLOG 01125000 TRMLIST EQU TRMLOG 01126000 TRMLINE EQU TRMSTATE 01127000 SIBLUTYP EQU SIBSTAT0 01128000 SIBCD EQU SIBSTAT0 01129000 @NM00141 EQU SIBBIND3 01130000 SIBCRES EQU SIBBIND3 01131000 SIBSPKR EQU SIBBIND3 01132000 SIBRECOV EQU SIBBIND3 01133000 SIBFMODE EQU SIBBIND3 01134000 SIBALT EQU SIBBIND2 01135000 SIBBTERM EQU SIBBIND2 01136000 SIBBRACK EQU SIBBIND2 01137000 SIBFMUSE EQU SIBBIND2 01138000 SIBSEBI EQU SIBBIND2 01139000 SIBSCMP EQU SIBBIND2 01140000 SIBSEXC EQU SIBBIND2 01141000 SIBSDEF EQU SIBBIND2 01142000 SIBSRQM EQU SIBBIND1 01143000 SIBSCHNG EQU SIBBIND1 01144000 SIBPEBI EQU SIBBIND1 01145000 SIBPCMP EQU SIBBIND1 01146000 SIBPEXC EQU SIBBIND1 01147000 SIBPDEF EQU SIBBIND1 01148000 SIBPRQM EQU SIBBIND1 01149000 SIBPCHN EQU SIBBIND1 01150000 SIBFMPRO EQU IEDSIBD+19 01151000 SIBTSPRO EQU IEDSIBD+18 01152000 @NM00140 EQU SIBSTAT2 01153000 SIBDACLU EQU SIBSTAT2 01154000 SIBRDSCN EQU SIBSTAT2 01155000 SIBTERM EQU SIBSTAT2 01156000 SIBUSS EQU SIBSTAT2 01157000 SIBBSTAT EQU SIBSTAT1 01158000 SIBRTRP EQU SIBSTAT1 01159000 @NM00139 EQU SIBSTAT1 01160000 SIBRQEND EQU SIBSTAT1 01161000 SIBRQSHT EQU SIBSTAT1 01162000 SIBSEQO EQU SIBSEQN+2 01163000 SIBSEQI EQU SIBSEQN 01164000 SIBNCNT EQU SIBPACIN 01165000 SIBMCNT EQU SIBPACIN 01166000 SIBINBIU EQU SIBSESSN 01167000 SIBSHUTC EQU SIBSESSN 01168000 SIBLGOFF EQU SIBSESSN 01169000 SIBINDEX EQU IEDSIBD+8 01170000 SIBCHAIN EQU IEDSIBD+4 01171000 SIBRUSEG EQU IEDSIBD 01172000 REQRCD2 EQU REQRCDS+1 01173000 REQSWTCH EQU REQROUTE+1 01174000 REQFLAG EQU REQROUTE 01175000 REQLINK EQU IEDREQD+5 01176000 @NM00138 EQU IEDPRUND+4 01177000 PRUTHEFI EQU PRUFIDN 01178000 PRUTHUSS EQU PRUFIDN 01179000 PRUTHEIU EQU PRUFIDN 01180000 PRUTHBIU EQU PRUFIDN 01181000 PRUTHTYE EQU PRUFIDN 01182000 @NM00137 EQU PRURHFG2 01183000 PRURHCSI EQU PRURHFG2 01184000 @NM00136 EQU PRURHFG2 01185000 PRURHCDI EQU PRURHFG2 01186000 PRURHEB EQU PRURHFG2 01187000 PRURHBB EQU PRURHFG2 01188000 PRURHPI EQU PRURHFG1 01189000 @NM00135 EQU PRURHFG1 01190000 PRURHER EQU PRURHFG1 01191000 PRURHDR2 EQU PRURHFG1 01192000 @NM00134 EQU PRURHFG1 01193000 PRURHDR1 EQU PRURHFG1 01194000 PRURHEC EQU PRURHFG0 01195000 PRURHBC EQU PRURHFG0 01196000 PRURHFI EQU PRURHFG0 01197000 @NM00133 EQU PRURHFG0 01198000 PRURUCAT EQU PRURHFG0 01199000 PRURHTYP EQU PRURHFG0 01200000 PRUNUNIT EQU PRUTIC+1 01201000 @NM00132 EQU PRUTIC 01202000 @NM00131 EQU IEDPRUQD+4 01203000 OPCBOTTM EQU IEDQOPCD+1184 01204000 @NM00130 EQU IEDQOPCD+1100 01205000 @NM00129 EQU IEDQOPCD+948 01206000 @NM00128 EQU IEDQOPCD+940 01207000 @NM00127 EQU IEDQOPCD+380 01208000 @NM00126 EQU OPCPWCOB+8 01209000 @NM00125 EQU OPCPWECB+1 01210000 OPCPWCCC EQU OPCPWECB 01211000 OPCPWCHN EQU OPCPWQCB+1 01212000 OPCPWVTO EQU OPCPWQCB 01213000 OPCWAITV EQU IEDQOPCD+364 01214000 OPCTOTCK EQU IEDQOPCD+360 01215000 OPCAPXTL EQU IEDQOPCD+356 01216000 OPCDECR EQU IEDQOPCD+352 01217000 OPCBUFWT EQU IEDQOPCD+348 01218000 OPCWRKSP EQU IEDQOPCD+320 01219000 OPCADGOT EQU IEDQOPCD+318 01220000 OPCRQCNT EQU IEDQOPCD+316 01221000 OPPOLSTP EQU IEDQOPCD+312 01222000 OPCCKCIB EQU IEDQOPCD+308 01223000 OPCEND EQU IEDQOPCD+307 01224000 OPCSTCBS EQU IEDQOPCD+306 01225000 OPCHNEND EQU IEDQOPCD+302 01226000 OPCOQSW EQU IEDQOPCD+301 01227000 @NM00124 EQU OPCSPEC 01228000 @NM00123 EQU OPCSPEC 01229000 @NM00122 EQU OPCSPEC 01230000 @NM00121 EQU OPCSPEC 01231000 OPCFRMCA EQU OPCSPEC 01232000 OPCRSTRT EQU OPCSPEC 01233000 OPCPART EQU OPCSPEC 01234000 OPCALTD EQU OPCSPEC 01235000 OPCBFEND EQU IEDQOPCD+296 01236000 OPCBFIRS EQU IEDQOPCD+292 01237000 OPCAVBUF EQU IEDQOPCD+290 01238000 OPCIPLCT EQU IEDQOPCD+289 01239000 OPCCLNTS EQU IEDQOPCD+288 01240000 OPCHA8 EQU IEDQOPCD+286 01241000 OPCBFREQ EQU IEDQOPCD+284 01242000 OPCFREBF EQU IEDQOPCD+280 01243000 OPCNEXT EQU IEDQOPCD+272 01244000 OPCFMDFC EQU IEDQOPCD+268 01245000 OPCSCNC EQU IEDQOPCD+264 01246000 OPCHORTG EQU IEDQOPCD+260 01247000 OPCHORT EQU IEDQOPCD+256 01248000 OPCCKPTL EQU IEDQOPCD+252 01249000 OPCCKPTF EQU IEDQOPCD+248 01250000 OPCWAITA EQU IEDQOPCD+244 01251000 OPCWAITR EQU IEDQOPCD+240 01252000 OPCWAITP EQU IEDQOPCD+236 01253000 OPCWAITO EQU IEDQOPCD+232 01254000 OPCWAITN EQU IEDQOPCD+228 01255000 OPCWAITL EQU IEDQOPCD+224 01256000 OPCWAITC EQU IEDQOPCD+220 01257000 @NM00120 EQU OPCLDNME+5 01258000 @NM00119 EQU OPCLDNME 01259000 OPCWAIT EQU IEDQOPCD+192 01260000 OPCCKERB EQU IEDQOPCD+164 01261000 OPCBFERB EQU IEDQOPCD+148 01262000 OPCFLAG2 EQU IEDQOPCD+147 01263000 OPCFLAG1 EQU IEDQOPCD+146 01264000 OPCWRKSZ EQU IEDQOPCD+144 01265000 OPCRSAVE EQU IEDQOPCD+132 01266000 OPCQCBAD EQU IEDQOPCD+128 01267000 OPCTRMWA EQU IEDQOPCD+52 01268000 OPCTNTEA EQU IEDQOPCD+44 01269000 OPCPGCK EQU IEDQOPCD+40 01270000 OPCLCB EQU IEDQOPCD+36 01271000 @NM00118 EQU IEDQOPCD+32 01272000 OPCIPLAD EQU IEDQOPCD+28 01273000 OPCTOFLK EQU IEDQOPCD+24 01274000 OPCOPTLK EQU IEDQOPCD+20 01275000 OPCDCBLK EQU IEDQOPCD+16 01276000 OPCDOUBL EQU IEDQOPCD 01277000 @NM00117 EQU OCLDNME+4 01278000 @NM00116 EQU OCPREFLG 01279000 OCTOTEP EQU OCPREFLG 01280000 OCREPOST EQU OCPREFLG 01281000 OCRSPSNT EQU OCPREFLG 01282000 OCBFREQ EQU OCPREFLG 01283000 OCIDLE EQU OCREQFLG 01284000 OCFORCE EQU OCREQFLG 01285000 OCDCARD EQU OCREQFLG 01286000 OCPARTAL EQU OCREQFLG 01287000 OCADNCP EQU OCREQFLG 01288000 @NM00115 EQU OCREQFLG 01289000 @NM00114 EQU OCREQFLG 01290000 OCFLUSHZ EQU OCREQFLG 01291000 OCRESPCT EQU OCLINTTE 01292000 OCCKPTWA EQU OCCKDATA+4 01293000 @NM00111 EQU OCRSTGTM+2 01294000 OCCKDAT2 EQU OCRSTGTM+1 01295000 OCCKDAT1 EQU OCRSTGTM 01296000 OCPTRSAV EQU OCMODNME+4 01297000 OCPUADR EQU OCIPLWA+2 01298000 OCWTGSAV EQU OCIPLWA 01299000 OCDVRDCT EQU OCBACKUP+6 01300000 OCNCP EQU OCBACKUP+4 01301000 OCBUFGOT EQU OCBACKUP+2 01302000 OCBUFNED EQU OCBACKUP 01303000 OCRESNUM EQU OCPARM 01304000 OCSEQ EQU OCTRUNIT+2 01305000 @NM00110 EQU OCRSID+1 01306000 OCNONE EQU OCALSTAT 01307000 OCSOME EQU OCALSTAT 01308000 OCALLFLG EQU OCALSTAT 01309000 OCACTREQ EQU OCALSTAT 01310000 OCREDRVE EQU OCALSTAT 01311000 OCSEQIND EQU OCALSTAT 01312000 @NM00109 EQU OCALSTAT 01313000 OCRENTRD EQU OCALSTAT 01314000 @NM00108 EQU @NM00107+2 01315000 OCCONID EQU OCDEST 01316000 OCRLN EQU IEDQOPCE+15 01317000 OCATTACH EQU OCFLAG 01318000 OCSSCP EQU OCFLAG 01319000 OCOUTPUT EQU OCFLAG 01320000 OCLINE EQU OCFLAG 01321000 OCMPP EQU OCFLAG 01322000 OCTOTE EQU OCFLAG 01323000 OCCONSOL EQU OCFLAG 01324000 @NM00106 EQU OCSWITCH 01325000 OCQUCKN EQU OCSWITCH 01326000 OCPRIFLG EQU OCOPTCDE 01327000 @NM00105 EQU OCRUDEST+1 01328000 @NM00104 EQU OCSCAN 01329000 OCNOTUCB EQU OCSCAN 01330000 OCNONAME EQU OCSCAN 01331000 OCALLRLN EQU OCSCAN 01332000 OCDDNAME EQU OCSCAN 01333000 OCDDNRLN EQU OCSCAN 01334000 OCADDR EQU OCSCAN 01335000 OCELMPTR EQU OCELEM+1 01336000 OCELMPRI EQU OCELEM 01337000 OCLINK EQU IEDQOPCE 01338000 NCPLTRAC EQU IEDNCP+26 01339000 NCPCKPT EQU IEDNCP+22 01340000 NCPDPDCB EQU IEDNCP+18 01341000 NCPBKUPN EQU IEDNCP+2 01342000 @NM00103 EQU NCPFLAG1 01343000 NCPTRACE EQU NCPFLAG1 01344000 NCPBKUP EQU NCPFLAG1 01345000 NCPIPLD EQU NCPFLAG1 01346000 NCPREST EQU NCPFLAG1 01347000 NCPBGUP EQU NCPFLAG1 01348000 NCPDAUTO EQU NCPFLAG1 01349000 NCPIAUTO EQU NCPFLAG1 01350000 NCPLEN EQU IEDNCP 01351000 SAVTBITN EQU IEDNSVTD+312 01352000 @NM00102 EQU SAVTCKQB+8 01353000 @NM00101 EQU SAVTCKEC+1 01354000 @NM00100 EQU SAVTCKCC 01355000 SAVTCKPO EQU SAVTCKCC 01356000 SAVTCKWA EQU SAVTCKCC 01357000 SAVTCKCH EQU SAVTCKTB+1 01358000 SAVTCKVT EQU SAVTCKTB 01359000 @NM00099 EQU IEDNSVTD+297 01360000 SAVTRDFG EQU SAVTRDRV+12 01361000 @NM00098 EQU SAVTRDRV+5 01362000 SAVTRDPY EQU SAVTRDRV+4 01363000 SAVTRDQB EQU SAVTRDRV+1 01364000 SAVTRDKY EQU SAVTRDRV 01365000 SAVTNID EQU IEDNSVTD+280 01366000 SAVTDVAS EQU IEDNSVTD+276 01367000 SAVTPLSZ EQU IEDNSVTD+274 01368000 @NM00097 EQU IEDNSVTD+273 01369000 SAVTSUBL EQU IEDNSVTD+272 01370000 @NM00096 EQU SAVTZELM+1 01371000 SAVTSUBM EQU SAVTZELM 01372000 SAVTMHDX EQU IEDNSVTD+268 01373000 SAVTNAT1 EQU IEDNSVTD+266 01374000 SAVTSH20 EQU IEDNSVTD+264 01375000 SAVTLCBS EQU IEDNSVTD+260 01376000 SAVTRNMP EQU IEDNSVTD+256 01377000 SAVTTNTX EQU IEDNSVTD+252 01378000 SAVTNAX EQU IEDNSVTD+248 01379000 SAVTSUBV EQU IEDNSVTD+247 01380000 SAVTSUBA EQU IEDNSVTD+246 01381000 SAVTSIBC EQU IEDNSVTD+244 01382000 SAVTBSM EQU IEDNSVTD+240 01383000 SAVTRQTG EQU IEDNSVTD+236 01384000 SAVTRQCH EQU IEDNSVTD+232 01385000 SAVTMAND EQU IEDNSVTD+228 01386000 SAVTSPLN EQU IEDNSVTD+224 01387000 SAVTNADL EQU IEDNSVTD+222 01388000 SAVTNATL EQU IEDNSVTD+220 01389000 SAVTMHTB EQU IEDNSVTD+216 01390000 SAVTSSMH EQU IEDNSVTD+212 01391000 SAVTQRS EQU IEDNSVTD+208 01392000 SAVTRQIN EQU IEDNSVTD+204 01393000 SAVTDFCO EQU IEDNSVTD+200 01394000 SAVTSAO EQU IEDNSVTD+196 01395000 SAVTSARI EQU IEDNSVTD+192 01396000 SAVTSAC EQU IEDNSVTD+188 01397000 SAVTSAI EQU IEDNSVTD+184 01398000 SAVTCSCI EQU IEDNSVTD+180 01399000 SAVTSSRP EQU IEDNSVTD+176 01400000 SAVTSSRQ EQU IEDNSVTD+172 01401000 SAVTSCLU EQU IEDNSVTD+168 01402000 SAVTMVBF EQU IEDNSVTD+160 01403000 @NM00095 EQU IEDNSVTD+148 01404000 SAVTIPCQ EQU IEDNSVTD+144 01405000 @NM00094 EQU IEDNSVTD+136 01406000 SAVTXFMI EQU IEDNSVTD+132 01407000 @NM00093 EQU IEDNSVTD+124 01408000 SAVTXFMO EQU IEDNSVTD+120 01409000 @NM00092 EQU IEDNSVTD+116 01410000 SAVTSSSR EQU IEDNSVTD+112 01411000 SAVTSCPQ EQU IEDNSVTD+108 01412000 SAVTSLCB EQU IEDNSVTD+104 01413000 SAVTLUSR EQU IEDNSVTD+100 01414000 @NM00091 EQU SAVTLUSQ+8 01415000 SAVTLUSP EQU SAVTLUSQ+4 01416000 SAVTLUSB EQU SAVTLUSQ 01417000 @NM00090 EQU IEDNSVTD+84 01418000 SAVTSAT EQU IEDNSVTD+80 01419000 SAVTNAT EQU IEDNSVTD+76 01420000 SAVTCLUP EQU IEDNSVTD+72 01421000 SAVTPIUT EQU IEDNSVTD+68 01422000 SAVTRNTA EQU IEDNSVTD+64 01423000 SAVTDNIR EQU IEDNSVTD+60 01424000 SAVTCNIR EQU IEDNSVTD+56 01425000 SAVTFLDH EQU IEDNSVTD+52 01426000 SAVTSRTN EQU IEDNSVTD+48 01427000 SAVTSREQ EQU IEDNSVTD+44 01428000 SAVTFAIL EQU IEDNSVTD+42 01429000 SAVTSUSE EQU IEDNSVTD+40 01430000 SAVTSIB EQU IEDNSVTD+36 01431000 SAVTPRTN EQU IEDNSVTD+32 01432000 @NM00089 EQU IEDNSVTD+28 01433000 SAVTWH20 EQU IEDNSVTD+26 01434000 SAVTPWT EQU IEDNSVTD+24 01435000 SAVTPRTQ EQU IEDNSVTD+20 01436000 SAVTPREQ EQU IEDNSVTD+16 01437000 SAVTPH20 EQU IEDNSVTD+14 01438000 SAVTPUSE EQU IEDNSVTD+12 01439000 SAVTPLCB EQU IEDNSVTD+8 01440000 SAVTPOOL EQU IEDNSVTD+4 01441000 SAVTPRMT EQU SAVTDIAF 01442000 SAVTVIRT EQU SAVTDIAF 01443000 AVTCPBNO EQU IEDQAVTD+1244 01444000 AVTHRESS EQU IEDQAVTD+1243 01445000 @NM00088 EQU IEDQAVTD+1242 01446000 @NM00087 EQU IEDQAVTD+1241 01447000 @NM00086 EQU IEDQAVTD+1240 01448000 @NM00085 EQU IEDQAVTD+1237 01449000 @NM00084 EQU IEDQAVTD+1236 01450000 AVTHRESE EQU @NM00083 01451000 AVTRADDR EQU IEDQAVTD+1228 01452000 AVTNADDR EQU IEDQAVTD+1224 01453000 AVTHRESN EQU IEDQAVTD+1220 01454000 AVTVOLRN EQU IEDQAVTD+1216 01455000 AVTTOTNN EQU IEDQAVTD+1212 01456000 AVTTRCYN EQU IEDQAVTD+1208 01457000 AVTRCTRN EQU IEDQAVTD+1204 01458000 AVTNOVON EQU IEDQAVTD+1200 01459000 AVTADEBN EQU IEDQAVTD+1196 01460000 AVTVOLRR EQU IEDQAVTD+1192 01461000 AVTTOTNR EQU IEDQAVTD+1188 01462000 AVTTRCYR EQU IEDQAVTD+1184 01463000 AVTRCTRR EQU IEDQAVTD+1180 01464000 AVTNOVOR EQU IEDQAVTD+1176 01465000 AVTADEBR EQU IEDQAVTD+1172 01466000 AVTLODPT EQU IEDQAVTD+1168 01467000 AVTIOBN EQU IEDQAVTD+1164 01468000 AVTIOBR EQU IEDQAVTD+1160 01469000 AVTCPBPT EQU IEDQAVTD+1156 01470000 AVTFCPB EQU IEDQAVTD+1152 01471000 @NM00082 EQU IEDQAVTD+1148 01472000 AVTINCPQ EQU IEDQAVTD+1144 01473000 @NM00081 EQU IEDQAVTD+1140 01474000 @NM00080 EQU IEDQAVTD+1137 01475000 @NM00079 EQU AVTBIT4 01476000 @NM00078 EQU AVTBIT4 01477000 @NM00077 EQU AVTBIT4 01478000 @NM00076 EQU AVTBIT4 01479000 @NM00075 EQU AVTBIT4 01480000 @NM00074 EQU AVTBIT4 01481000 @NM00073 EQU AVTBIT4 01482000 AVTRUFTN EQU AVTBIT4 01483000 @NM00072 EQU IEDQAVTD+1132 01484000 AVTNOBFQ EQU IEDQAVTD+1128 01485000 @NM00071 EQU IEDQAVTD+1124 01486000 AVTDKENQ EQU IEDQAVTD+1120 01487000 @NM00070 EQU IEDQAVTD+1116 01488000 AVTDKAPQ EQU IEDQAVTD+1112 01489000 AVTCOPY EQU IEDQAVTD+1108 01490000 AVTIA EQU IEDQAVTD+1104 01491000 AVTFL EQU IEDQAVTD+1100 01492000 @NM00069 EQU IEDQAVTD+1096 01493000 AVTNCPBQ EQU IEDQAVTD+1092 01494000 AVTTOTNC EQU IEDQAVTD+1088 01495000 AVTCMAX EQU IEDQAVTD+1084 01496000 AVTCMIN EQU IEDQAVTD+1080 01497000 AVTHM02 EQU IEDQAVTD+1076 01498000 AVTOPCIN EQU IEDQAVTD+1074 01499000 AVTDCTLN EQU IEDQAVTD+1072 01500000 AVTOPMSK EQU IEDQAVTD+1068 01501000 AVTSTEAL EQU IEDQAVTD+1060 01502000 AVTOPTN EQU IEDQAVTD+1056 01503000 AVTDSKCT EQU IEDQAVTD+1054 01504000 AVTCKRST EQU IEDQAVTD+1053 01505000 AVTSTAN EQU AVTBIT3 01506000 AVTSTACN EQU AVTBIT3 01507000 AVTSTAIN EQU AVTBIT3 01508000 AVTSTAYN EQU AVTBIT3 01509000 AVTOLTBN EQU AVTBIT3 01510000 AVTTSAB EQU AVTBIT3 01511000 AVTRFULN EQU AVTBIT3 01512000 AVTRECVN EQU AVTBIT3 01513000 @NM00068 EQU AVTBIT2 01514000 @NM00067 EQU AVTBIT2 01515000 AVTOPEIN EQU AVTBIT2 01516000 AVTSTRTN EQU AVTBIT2 01517000 AVTTOPOL EQU AVTBIT2 01518000 AVTCOPYN EQU AVTBIT2 01519000 AVTREUSN EQU AVTBIT2 01520000 AVTEXTSC EQU AVTBIT2 01521000 AVTDISKN EQU AVTBIT1 01522000 AVTQUCKN EQU AVTBIT1 01523000 AVTCLOSN EQU AVTBIT1 01524000 AVTREADN EQU AVTBIT1 01525000 AVTDLAYN EQU AVTBIT1 01526000 AVTAQTAN EQU AVTBIT1 01527000 AVTTSON EQU AVTBIT1 01528000 AVTAPLKN EQU AVTBIT1 01529000 AVTDUMBR EQU IEDQAVTD+1048 01530000 AVTDLQX EQU IEDQAVTD+1046 01531000 AVTINTLV EQU IEDQAVTD+1044 01532000 AVTSMCNT EQU IEDQAVTD+1042 01533000 AVTAVFCT EQU IEDQAVTD+1040 01534000 AVTOPCON EQU IEDQAVTD+1038 01535000 AVTOPCNT EQU IEDQAVTD+1036 01536000 AVTLNCNT EQU IEDQAVTD+1034 01537000 AVTKEYLE EQU IEDQAVTD+1032 01538000 AVTHA16 EQU IEDQAVTD+1030 01539000 AVTHA7 EQU IEDQAVTD+1028 01540000 AVTHA4 EQU IEDQAVTD+1026 01541000 AVTHA3 EQU IEDQAVTD+1024 01542000 AVTHA2 EQU IEDQAVTD+1022 01543000 AVTGETMS EQU IEDQAVTD+1021 01544000 @NM00066 EQU IEDQAVTD+1020 01545000 AVTGETMD EQU IEDQAVTD+1016 01546000 AVTGETMN EQU IEDQAVTD+1012 01547000 AVTCWTOT EQU IEDQAVTD+1008 01548000 AVTCWINT EQU IEDQAVTD+956 01549000 AVTDTRAP EQU IEDQAVTD+952 01550000 @NM00065 EQU IEDQAVTD+950 01551000 @NM00064 EQU AVTIOTR 01552000 AVTIOTRH EQU AVTIOTR 01553000 AVTIOTRE EQU AVTIOTR 01554000 @NM00063 EQU AVTSUBT 01555000 AVTSUBPT EQU AVTSUBT 01556000 AVTSUBON EQU AVTSUBT 01557000 AVTAFE30 EQU IEDQAVTD+944 01558000 AVTAFE20 EQU IEDQAVTD+940 01559000 AVTAFE10 EQU IEDQAVTD+936 01560000 AVTCWEC2 EQU IEDQAVTD+932 01561000 AVTCWPM2 EQU IEDQAVTD+928 01562000 AVTCWTS2 EQU IEDQAVTD+927 01563000 AVTCWTS1 EQU IEDQAVTD+926 01564000 AVTCWCLD EQU AVTCWFL2 01565000 AVTCWRAP EQU AVTCWFL2 01566000 @NM00062 EQU AVTCWFL2 01567000 @NM00061 EQU AVTCWFL2 01568000 @NM00060 EQU AVTCWFL2 01569000 @NM00059 EQU AVTCWFL2 01570000 @NM00058 EQU AVTCWFL2 01571000 AVTCWACT EQU AVTCWFL2 01572000 @NM00057 EQU AVTCWFL1 01573000 @NM00056 EQU AVTCWFL1 01574000 @NM00055 EQU AVTCWFL1 01575000 @NM00054 EQU AVTCWFL1 01576000 @NM00053 EQU AVTCWFL1 01577000 @NM00052 EQU AVTCWFL1 01578000 @NM00051 EQU AVTCWFL1 01579000 AVTCOMWN EQU AVTCWFL1 01580000 AVTCWEC1 EQU IEDQAVTD+920 01581000 AVTCWPM1 EQU IEDQAVTD+916 01582000 AVTCAREA EQU IEDQAVTD+912 01583000 AVTFZERO EQU IEDQAVTD+908 01584000 AVTCADDR EQU IEDQAVTD+904 01585000 AVTCOREC EQU IEDQAVTD+900 01586000 @NM00050 EQU IEDQAVTD+892 01587000 AVTCPBCB EQU IEDQAVTD+888 01588000 @NM00049 EQU IEDQAVTD+880 01589000 AVTDSIOB EQU IEDQAVTD+876 01590000 @NM00048 EQU IEDQAVTD+868 01591000 AVTCPRMB EQU IEDQAVTD+864 01592000 @NM00047 EQU IEDQAVTD+856 01593000 AVTCLOSB EQU IEDQAVTD+852 01594000 @NM00046 EQU IEDQAVTD+844 01595000 AVTACTIB EQU IEDQAVTD+840 01596000 @NM00045 EQU IEDQAVTD+836 01597000 AVTOLTEB EQU IEDQAVTD+832 01598000 AVTOLTCH EQU AVTOLTQB+1 01599000 AVTOLTVT EQU AVTOLTQB 01600000 @NM00044 EQU AVTOPCQB+8 01601000 @NM00043 EQU AVTOPCEC+1 01602000 @NM00042 EQU AVTOPCCC 01603000 AVTOPCPO EQU AVTOPCCC 01604000 AVTOPCWA EQU AVTOPCCC 01605000 AVTOPCCH EQU AVTOPCOB+1 01606000 AVTOPCVT EQU AVTOPCOB 01607000 @NM00041 EQU AVTCKPQB+9 01608000 AVTCKPTS EQU AVTCKPQB+8 01609000 @NM00040 EQU AVTCKPEC+1 01610000 @NM00039 EQU AVTCKPCC 01611000 AVTCKPPO EQU AVTCKPCC 01612000 AVTCKPWA EQU AVTCKPCC 01613000 AVTCKPCH EQU AVTCKPTB+1 01614000 AVTCKPVT EQU AVTCKPTB 01615000 @NM00038 EQU IEDQAVTD+796 01616000 AVTBFRTB EQU IEDQAVTD+792 01617000 @NM00037 EQU IEDQAVTD+784 01618000 AVTBFREB EQU IEDQAVTD+780 01619000 AVTTIMQ EQU IEDQAVTD+776 01620000 @NM00036 EQU IEDQAVTD+772 01621000 AVTIMQPS EQU IEDQAVTD+768 01622000 AVTINOUT EQU IEDQAVTD+766 01623000 AVTREFTM EQU IEDQAVTD+764 01624000 @NM00035 EQU IEDQAVTD+752 01625000 AVTDELYB EQU IEDQAVTD+748 01626000 AVTOCQPT EQU IEDQAVTD+744 01627000 AVTTSOPT EQU IEDQAVTD+740 01628000 AVTSUPPT EQU IEDQAVTD+736 01629000 AVTCBQCB EQU IEDQAVTD+732 01630000 AVTMSGS EQU IEDQAVTD+729 01631000 @NM00034 EQU AVTSYSER 01632000 @NM00033 EQU AVTSYSER 01633000 @NM00032 EQU AVTSYSER 01634000 @NM00031 EQU AVTSYSER 01635000 @NM00030 EQU AVTSYSER 01636000 @NM00029 EQU AVTSYSER 01637000 AVTCMAXN EQU AVTSYSER 01638000 AVTCMINN EQU AVTSYSER 01639000 AVT2260L EQU IEDQAVTD+724 01640000 AVTABEPL EQU AVTADBUF 01641000 AVTHFF EQU AVTCLRHI+2 01642000 @NM00028 EQU AVTCLRHI 01643000 AVTCCLNK EQU AVTCRELE+5 01644000 AVTCCPRI EQU AVTCRELE+4 01645000 AVTCCQCB EQU AVTCCELE+1 01646000 AVTCCKEY EQU AVTCCELE 01647000 AVTDELAD EQU IEDQAVTD+704 01648000 AVTDELEM EQU IEDQAVTD+700 01649000 AVTBSX EQU AVTCKLNK 01650000 AVTOPETR EQU AVTHG01 01651000 @NM00027 EQU AVTCKBYT 01652000 AVTCKONQ EQU AVTCKBYT 01653000 @NM00026 EQU AVTCKBYT 01654000 @NM00025 EQU AVTCKBYT 01655000 @NM00024 EQU AVTCKBYT 01656000 @NM00023 EQU AVTCKBYT 01657000 @NM00022 EQU AVTCKBYT 01658000 @NM00021 EQU AVTCKBYT 01659000 AVTOPERT EQU IEDQAVTD+690 01660000 AVTOPXCL EQU IEDQAVTD+688 01661000 AVTOPERL EQU IEDQAVTD+687 01662000 @NM00020 EQU IEDQAVTD+686 01663000 AVTCKTIM EQU IEDQAVTD+684 01664000 AVTCKELV EQU IEDQAVTD+682 01665000 AVTCPRCD EQU IEDQAVTD+681 01666000 AVTWARMN EQU AVTCKELF 01667000 AVTCRTLN EQU AVTCKELF 01668000 AVTCPIPN EQU AVTCKELF 01669000 AVTCCLCN EQU AVTCKELF 01670000 AVTCINCN EQU AVTCKELF 01671000 @NM00019 EQU AVTCKELF 01672000 AVTCMCPN EQU AVTCKELF 01673000 AVTCRDYN EQU AVTCKELF 01674000 AVTCKQAD EQU IEDQAVTD+677 01675000 AVTSCBSZ EQU IEDQAVTD+676 01676000 @NM00018 EQU IEDQAVTD+672 01677000 AVTCKELE EQU IEDQAVTD+668 01678000 @NM00017 EQU AVTCKPEL+8 01679000 AVTCKRLK EQU AVTCKPEL+5 01680000 AVTCKRPR EQU AVTCKPEL+4 01681000 AVTCKRMQ EQU AVTCKRMV+1 01682000 AVTCKRKY EQU AVTCKRMV 01683000 AVTHK EQU IEDQAVTD+648 01684000 AVTHI EQU IEDQAVTD+644 01685000 AVTIOT EQU IEDQAVTD+640 01686000 AVTNX EQU IEDQAVTD+636 01687000 AVTTONE EQU IEDQAVTD+632 01688000 AVTA3TL EQU IEDQAVTD+628 01689000 AVTDMECB EQU IEDQAVTD+624 01690000 AVTABEND EQU IEDQAVTD+618 01691000 AVTPLCBN EQU IEDQAVTD+616 01692000 @NM00016 EQU AVTSAVTP+1 01693000 @NM00015 EQU AVTSAVTF 01694000 AVTSNA EQU AVTSAVTF 01695000 AVTONSNA EQU AVTSAVTF 01696000 AVTVTMCP EQU AVTSAVTF 01697000 @NM00014 EQU IEDQAVTD+608 01698000 AVTCMBSS EQU IEDQAVTD+604 01699000 AVTRCV EQU IEDQAVTD+600 01700000 AVTSEND EQU IEDQAVTD+596 01701000 AVTCSCH EQU IEDQAVTD+592 01702000 AVTQ1 EQU IEDQAVTD+588 01703000 AVTE7 EQU IEDQAVTD+584 01704000 AVTHB EQU IEDQAVTD+580 01705000 AVTR1 EQU IEDQAVTD+576 01706000 AVTBZ EQU IEDQAVTD+572 01707000 AVTEZ EQU IEDQAVTD+568 01708000 AVTEC EQU IEDQAVTD+564 01709000 AVTEW EQU IEDQAVTD+560 01710000 AVTNDIAL EQU AVTSCOPT 01711000 AVTN2741 EQU AVTSCOPT 01712000 AVTCONCO EQU AVTSCOPT 01713000 AVTCONC EQU AVTSCOPT 01714000 AVTCMBUF EQU AVTSCOPT 01715000 AVTAPDMP EQU AVTSCOPT 01716000 @NM00013 EQU AVTSCOPT 01717000 AVTHA EQU AVTDISP 01718000 AVTEA EQU IEDQAVTD+548 01719000 AVTAX EQU IEDQAVTD+544 01720000 AVTA3 EQU IEDQAVTD+540 01721000 AVTGD EQU IEDQAVTD+536 01722000 AVTAL EQU IEDQAVTD+532 01723000 AVTOLTST EQU AVTHG02 01724000 AVTE8 EQU IEDQAVTD+524 01725000 AVTUI EQU IEDQAVTD+520 01726000 AVTCOMPT EQU IEDQAVTD+516 01727000 AVTCRSRF EQU IEDQAVTD+512 01728000 @NM00012 EQU IEDQAVTD+508 01729000 AVTKA02 EQU IEDQAVTD+504 01730000 AVTOPTPT EQU IEDQAVTD+500 01731000 AVTPCBPT EQU IEDQAVTD+496 01732000 AVTOSECB EQU IEDQAVTD+492 01733000 AVTOPECA EQU IEDQAVTD+488 01734000 AVTOLECA EQU IEDQAVTD+484 01735000 AVTCKECA EQU IEDQAVTD+480 01736000 AVTCWECA EQU IEDQAVTD+476 01737000 AVTCWTCB EQU IEDQAVTD+472 01738000 AVTOLTCB EQU IEDQAVTD+468 01739000 AVTOCTCB EQU IEDQAVTD+464 01740000 AVTCKTCB EQU IEDQAVTD+460 01741000 AVTAS EQU IEDQAVTD+456 01742000 AVTNOLBF EQU IEDQAVTD+454 01743000 AVTNCKPR EQU IEDQAVTD+453 01744000 AVTCIB EQU IEDQAVTD+452 01745000 AVTSPLPT EQU IEDQAVTD+448 01746000 AVTMVBFR EQU IEDQAVTD+444 01747000 AVTSBTA EQU IEDQAVTD+440 01748000 AVTRARTN EQU IEDQAVTD+436 01749000 AVTBSCAN EQU IEDQAVTD+432 01750000 AVTRDYA EQU IEDQAVTD+428 01751000 AVTDISTR EQU IEDQAVTD+420 01752000 AVTPARM3 EQU IEDQAVTD+416 01753000 @NM00011 EQU AVTPKF 01754000 @NM00010 EQU AVTPKF 01755000 @NM00009 EQU AVTPKF 01756000 AVTFTCHF EQU AVTPKF 01757000 @NM00008 EQU AVTPKF 01758000 @NM00007 EQU AVTPKF 01759000 @NM00006 EQU AVTPKF 01760000 @NM00005 EQU AVTPKF 01761000 AVTPARM EQU IEDQAVTD+408 01762000 AVTEXS2A EQU IEDQAVTD+402 01763000 AVTEXA2S EQU IEDQAVTD+396 01764000 AVTOCGET EQU IEDQAVTD+392 01765000 AVTCKAVT EQU @NM00003+1 01766000 @NM00004 EQU AVTCKFLG 01767000 AVTCKHLT EQU AVTCKFLG 01768000 AVTCKREQ EQU AVTCKFLG 01769000 AVTCKENV EQU AVTCKFLG 01770000 AVTCKNAC EQU AVTCKFLG 01771000 AVTCKTAC EQU AVTCKFLG 01772000 @NM00002 EQU IEDQAVTD+384 01773000 AVTREADD EQU IEDQAVTD+380 01774000 AVTREADY EQU IEDQAVTD+376 01775000 AVTRACE EQU IEDQAVTD+372 01776000 AVTTCB EQU IEDQAVTD+368 01777000 AVTPASWD EQU IEDQAVTD+360 01778000 AVTCTLCH EQU IEDQAVTD+352 01779000 AVTDOUBL EQU IEDQAVTD+344 01780000 AVTDOUBX EQU IEDQAVTD+336 01781000 AVTDPARM EQU IEDQAVTD+332 01782000 AVTCSTCS EQU IEDQAVTD+328 01783000 AVTDLQ EQU AVTSAVEX+32 01784000 @NM00001 EQU AVTSAVEX 01785000 AVTSAVE4 EQU IEDQAVTD+216 01786000 AVTSAVE3 EQU IEDQAVTD+144 01787000 AVTSAVE2 EQU IEDQAVTD+72 01788000 AVTSAVE1 EQU IEDQAVTD 01789000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01790000 @RC00467 EQU @RC00461 01791000 @RC00490 EQU @RC00488 01792000 @RC00522 EQU @RC00520 01793000 @RC00503 EQU @RC00490 01794000 @ENDDATA EQU * 01795000 END IGCA610D,(C'PLS0035',0701,77013) 01796000