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