TITLE 'IGC0K10D, OPERATOR CONTROL MESSAGE MODULE *00001000 ' 00002000 IGC0K10D CSECT , 01S0001 00003000 @PROLOG BALR @12,0 01S0001 00004000 @PSTART DS 0H 01S0001 00005000 USING @PSTART,@12 01S0001 00006000 * /* 00007000 IGC0K10D IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00008000 * ROPCAVT=RPARM; /* ESTABLISH ADDRESSABILITY TO 00009000 * THE OPERATOR CONTROL ADDRESS 00010000 * VECTOR TABLE */ 00011000 LR ROPCAVT,RPARM 02S0176 00012000 * RFY 02S0177 00013000 * RPARM UNRSTD; /* RELEASE THE REGISTER 02S0177 00014000 * RESTRICTED AT ENTRY TO THE 00015000 * MODULE THAT CONTAINS THE 02S0177 00016000 * ADDRESS OF THE OPERATOR 02S0177 00017000 * CONTROL ADDRESS VECTOR TABLE */ 00018000 * REG10=OPCWORK+LENGTH(MSGWORKA); /* SET THE BASE REGISTER TO BE 00019000 * USED FOR ADDRESSING AUTOMATIC 00020000 * DATA WITH THE ADDRESS OF THE 00021000 * SECTION OF THE OPERATOR 02S0178 00022000 * CONTROL RESIDENT WORK AREA 00023000 * THAT IS AFTER THE SECTION USED 00024000 * TO CONSTRUCT MESSAGES */ 00025000 LA REG10,84 02S0178 00026000 AL REG10,OPCWORK(,ROPCAVT) 02S0178 00027000 * GEN REFS(REG10) NOSETS; 02S0179 00028000 * /* 00029000 USING @DATD,REG10 PROVIDE ADDRESSABILITY TO ALL 00030000 * AUTOMATIC DATA 00031000 * RSAVE=ADDR(OPCSAVE); /* SET THE SAVE AREA ADDRESS 00032000 * REGISTER WITH THE ADDRESS OF 00033000 * THE OPERATOR CONTROL SAVE AREA*/ 00034000 LA RSAVE,OPCSAVE(,ROPCAVT) 02S0180 00035000 * 02S0181 00036000 * /*****************************************************************/ 00037000 * /* */ 00038000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00039000 * /* PERFORM THE FUNCTION OF THE MODULE. */ 00040000 * /* */ 00041000 * /*****************************************************************/ 00042000 * 02S0181 00043000 * 03S0181 00044000 * /*****************************************************************/ 00045000 * /* */ 00046000 * /* PROCESS.INITIAL: THIS SEGMENT DOES THE INITIAL PROCESSING. */ 00047000 * /* */ 00048000 * /*****************************************************************/ 00049000 * 03S0181 00050000 * RAVT=OPCAVTPT; /* SET THE BASE POINTER FOR THE 00051000 * TCAM ADDRESS VECTOR TABLE */ 00052000 L RAVT,OPCAVTPT(,ROPCAVT) 03S0181 00053000 * ROPCE=OPCCOPCE; /* SET THE BASE POINTER FOR THE 00054000 * OPERATOR CONTROL ELEMENT */ 00055000 L ROPCE,OPCCOPCE(,ROPCAVT) 03S0182 00056000 * SEARCH=YES; /* INITIALIZE THE "SEARCH" SWITCH 00057000 * TO INDICATE THAT A SEARCH IS 00058000 * TO BE PERFORMED */ 00059000 OI SEARCH,B'10000000' 02S0183 00060000 * DO PTRENTRY=ADDR(TABDATA) BY LENGTH(TABENTRY) WHILE(SEARCH=YES); 00061000 LA PTRENTRY,TABDATA 02S0184 00062000 B @DE00184 02S0184 00063000 @DL00184 DS 0H 02S0185 00064000 * /* INCREMENT THE POINTER TO 02S0185 00065000 * ENTRIES IN THE MESSAGE DATA 00066000 * TABLE WHILE THE SEARCH IS IN 00067000 * PROGRESS */ 00068000 * IF TABMNUM=REG00 /* MATCHING MESSAGE NUMBERS */ 00069000 * THEN /* STOP THE SEARCH AND BUILD THE 00070000 * APPROPRIATE MESSAGE */ 00071000 CH REG00,TABMNUM(,PTRENTRY) 02S0185 00072000 BNE @RF00185 02S0185 00073000 * 03S0186 00074000 * /*************************************************************/ 00075000 * /* */ 00076000 * /* PROCESS.BUILDMSG: THIS SEGMENT STOPS THE SEARCH FOR A */ 00077000 * /* MATCHING MESSAGE TABLE ENTRY, BUILDS THE APPROPRIATE */ 00078000 * /* MESSAGE IN THE OPERATOR CONTROL RESIDENT WORK AREA AND */ 00079000 * /* DOES THE PREPARATION THAT IS NECESSARY TO TRANSFER CONTROL*/ 00080000 * /* TO THE LAST MODULE IN THE MESSAGE MODULE CHAIN. */ 00081000 * /* */ 00082000 * /*************************************************************/ 00083000 * 03S0186 00084000 * DO; 03S0186 00085000 * SEARCH=STOP; /* INDICATE THAT THE SEARCH IS TO 00086000 * BE STOPPED */ 00087000 NI SEARCH,B'01111111' 03S0187 00088000 * MSGLNGTH=TABLNGTH; /* SET THE LENGTH OF THE MESSAGE 00089000 * IN THE OPERATOR CONTROL 03S0188 00090000 * RESIDENT WORK AREA */ 00091000 L @11,OPCWORK(,ROPCAVT) 03S0188 00092000 LH @01,TABLNGTH(,PTRENTRY) 03S0188 00093000 STH @01,MSGLNGTH(,@11) 03S0188 00094000 * MSGTEXT(1:MSGLNGTH)=MSGSTRNG(1:MSGLNGTH);/* PUT THE MESSAGE 00095000 * CHARACTER STRING INTO THE 00096000 * MESSAGE TEXT FIELD OF THE WORK 00097000 * AREA */ 00098000 BCTR @01,0 03S0189 00099000 L @15,TABMPTR(,PTRENTRY) 03S0189 00100000 EX @01,@SM01172 03S0189 00101000 * IF TABCASE>0 /* ADDITIONAL PROCESSING OF THE 00102000 * MESSAGE IS NECESSARY */ 00103000 * THEN /* PROCESS THE UNIQUE 03S0190 00104000 * REQUIREMENTS OF THE MESSAGE */ 00105000 L @11,TABCASE(,PTRENTRY) 03S0190 00106000 LTR @11,@11 03S0190 00107000 BNP @RF00190 03S0190 00108000 * 04S0191 00109000 * /*********************************************************/ 00110000 * /* */ 00111000 * /* PROCESS.BUILDMSG.CASE: THIS SEGMENT IMPLEMENTS THE */ 00112000 * /* CASE CONTROL STRUCTURE IN ORDER TO SATISFY THE UNIQUE */ 00113000 * /* REQUIREMENTS OF THE MESSAGES WITH VARIABLE CHARACTER */ 00114000 * /* FIELDS THAT ARE BUILT IN THE OPERATOR CONTROL RESIDENT*/ 00115000 * /* WORK AREA BY THIS MODULE. */ 00116000 * /* */ 00117000 * /*********************************************************/ 00118000 * 04S0191 00119000 * DO; /* CASE(TABCASE)NAMES(SUBORDIN,AL 00120000 * LSUBOR,INVALRLN,ACTIVATE,LDMOD 00121000 * ULE,ACTDEACT,CLUSTNME) */ 00122000 * DCL 04S0192 00123000 * CL0001@ LABEL BASED(CP0001@(TABCASE)) VALUERANGE( 00124000 * SUBORDIN,ALLSUBOR,INVALRLN,ACTIVATE,LDMODULE, 00125000 * ACTDEACT,CLUSTNME);/* BRANCH TARGET */ 00126000 * DCL 04S0193 00127000 * CP0001@(7) PTR(31) INIT(ADDR(SUBORDIN),ADDR(ALLSUBOR), 00128000 * ADDR(INVALRLN),ADDR(ACTIVATE),ADDR(LDMODULE),ADDR( 00129000 * ACTDEACT),ADDR(CLUSTNME)); 04S0193 00130000 * GOTO CL0001@; /* BRANCH TO SELECTED CASE */ 00131000 SLA @11,2 04S0194 00132000 L @01,CP0001@-4(@11) 04S0194 00133000 BR @01 04S0194 00134000 * 05S0195 00135000 * /*******************************************************/ 00136000 * /* */ 00137000 * /* PROCESS.BUILDMSG.CASE.SUBORDIN: THIS SEGMENT PLACES */ 00138000 * /* THE HOLD OR RELEASE COMMAND,THE RESOURCE NAME,AND */ 00139000 * /* THE RELATIVE LINE NUMBER INTO THE REQUIRED FIELDS IN*/ 00140000 * /* THE MESSAGE TEXT */ 00141000 * /* */ 00142000 * /*******************************************************/ 00143000 * 05S0195 00144000 *SUBORDIN: 05S0195 00145000 * DO; /* SUBCASE */ 00146000 SUBORDIN DS 0H 05S0196 00147000 * IF OCOPTCDE=OCHOLD /* IF THE COMMAND OPERATION CODE 00148000 * IS A HOLD COMMAND */ 00149000 * THEN 05S0196 00150000 CLI OCOPTCDE(ROPCE),X'6C' 05S0196 00151000 BNE @RF00196 05S0196 00152000 * DO; 05S0197 00153000 * OPTCMD(1:LENGTH(OPTHELD))=OPTHELD;/* SOME 05S0198 00154000 * SUBORDINATES WERE HELD */ 00155000 L @01,OPCWORK(,ROPCAVT) 05S0198 00156000 MVC OPTCMD(4,@01),@CC01038 05S0198 00157000 * END; 05S0199 00158000 * ELSE 05S0200 00159000 * OPTCMD=OPTRELSE; /* SOME SUBORDINATES WERE 05S0200 00160000 * RELEASED */ 00161000 B @RC00196 05S0200 00162000 @RF00196 L @01,OPCWORK(,ROPCAVT) 05S0200 00163000 MVC OPTCMD(8,@01),@CC01040 05S0200 00164000 * GRPULNME=OCBACKUP; /* PLACE SUBORDINATE NAME INTO 00165000 * MESSAGE TEXT */ 00166000 @RC00196 L @11,OPCWORK(,ROPCAVT) 05S0201 00167000 MVC GRPULNME(8,@11),OCBACKUP(ROPCE) 05S0201 00168000 * CVD(OCRLN,OPCDOUBL); 05S0202 00169000 SLR @01,@01 05S0202 00170000 IC @01,OCRLN(,ROPCE) 05S0202 00171000 CVD @01,OPCDOUBL(,ROPCAVT) 05S0202 00172000 * UNPK(OPCDOUBL,OPCDOUBL); 05S0203 00173000 UNPK OPCDOUBL(8,ROPCAVT),OPCDOUBL(8,ROPCAVT) 05S0203 00174000 * OPCDOUBL(8:8)=OPCDOUBL(8:8)|ZONEMASK; 05S0204 00175000 OI OPCDOUBL+7(ROPCAVT),C'0' 05S0204 00176000 * IF OCRLN=NORLN THEN /* DO WE WANT RLN @YM07016*/ 00177000 CLI OCRLN(ROPCE),0 05S0205 00178000 BNE @RF00205 05S0205 00179000 * MSGLNGTH=MSGLNGTH-MFOUR;/* IF NOT SHORTEN MSG 05S0206 00180000 * @YM07016*/ 00181000 LH @01,MSGLNGTH(,@11) 05S0206 00182000 SL @01,@CF00327 05S0206 00183000 STH @01,MSGLNGTH(,@11) 05S0206 00184000 * ELSE 05S0207 00185000 * RLNMBR=OPCDOUBL(6:8);/* PLACE RELATIVE LINE NUMBER 00186000 * INTO MESSAGE TEXT */ 00187000 B @RC00205 05S0207 00188000 @RF00205 L @01,OPCWORK(,ROPCAVT) 05S0207 00189000 MVC RLNMBR(3,@01),OPCDOUBL+5(ROPCAVT) 05S0207 00190000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00191000 B CE0001@ 05S0208 00192000 * END; /* END OF SUBCASE */ 00193000 * 05S0210 00194000 * /*******************************************************/ 00195000 * /* */ 00196000 * /* PROCESS.BUILDMSG.CASE.ALLSUBOR: THIS SEGMENT PLACES */ 00197000 * /* THE HOLD OR RELEASE COMMAND, THE RESOURCE NAME,AND */ 00198000 * /* THE RELATIVE LINE NUMBER INTO THE REQUIRED FIELDS IN*/ 00199000 * /* THE MESSAGE TEXT */ 00200000 * /* */ 00201000 * /*******************************************************/ 00202000 * 05S0210 00203000 *ALLSUBOR: 05S0210 00204000 * DO; /* SUBCASE */ 00205000 ALLSUBOR DS 0H 05S0211 00206000 * IF OCOPTCDE=OCHOLD /* IF THE COMMAND OPERATION CODE 00207000 * IS A HOLD COMMAND */ 00208000 * THEN 05S0211 00209000 CLI OCOPTCDE(ROPCE),X'6C' 05S0211 00210000 BNE @RF00211 05S0211 00211000 * DO; 05S0212 00212000 * OPT(1:LENGTH(OPTHELD))=OPTHELD;/* SUBORDINATES 00213000 * WERE HELD */ 00214000 L @01,OPCWORK(,ROPCAVT) 05S0213 00215000 MVC OPT(4,@01),@CC01038 05S0213 00216000 * END; 05S0214 00217000 * ELSE 05S0215 00218000 * OPT=OPTRELSE; /* SUBORDINATES WERE RELEASED */ 00219000 B @RC00211 05S0215 00220000 @RF00211 L @01,OPCWORK(,ROPCAVT) 05S0215 00221000 MVC OPT(8,@01),@CC01040 05S0215 00222000 * GRPLNPU=OCBACKUP; /* PLACE SUBORDINATE NAME INTO 00223000 * MESSAGE TEXT */ 00224000 @RC00211 L @11,OPCWORK(,ROPCAVT) 05S0216 00225000 MVC GRPLNPU(8,@11),OCBACKUP(ROPCE) 05S0216 00226000 * CVD(OCRLN,OPCDOUBL); 05S0217 00227000 SLR @01,@01 05S0217 00228000 IC @01,OCRLN(,ROPCE) 05S0217 00229000 CVD @01,OPCDOUBL(,ROPCAVT) 05S0217 00230000 * UNPK(OPCDOUBL,OPCDOUBL); 05S0218 00231000 UNPK OPCDOUBL(8,ROPCAVT),OPCDOUBL(8,ROPCAVT) 05S0218 00232000 * OPCDOUBL(8:8)=OPCDOUBL(8:8)|ZONEMASK; 05S0219 00233000 OI OPCDOUBL+7(ROPCAVT),C'0' 05S0219 00234000 * IF OCRLN=NORLN THEN /* DO WE WANT RLN @YM07016*/ 00235000 CLI OCRLN(ROPCE),0 05S0220 00236000 BNE @RF00220 05S0220 00237000 * MSGLNGTH=MSGLNGTH-MFOUR;/* SHORTEN MSG BY FOUR 00238000 * @YM07016*/ 00239000 LH @01,MSGLNGTH(,@11) 05S0221 00240000 SL @01,@CF00327 05S0221 00241000 STH @01,MSGLNGTH(,@11) 05S0221 00242000 * ELSE 05S0222 00243000 * RLN=OPCDOUBL(6:8);/* PLACE RELATIVE LINE NUMBER 00244000 * INTO MESSAGE TEXT */ 00245000 B @RC00220 05S0222 00246000 @RF00220 L @01,OPCWORK(,ROPCAVT) 05S0222 00247000 MVC RLN(3,@01),OPCDOUBL+5(ROPCAVT) 05S0222 00248000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00249000 B CE0001@ 05S0223 00250000 * END; /* END OF SUBCASE */ 00251000 * 05S0225 00252000 * /*******************************************************/ 00253000 * /* */ 00254000 * /* PROCESS.BUILDMSG.CASE.INVALRLN: THIS SEGMENT PLACES */ 00255000 * /* THE RESOURCE NAME AND THE RELATIVE LINE NUMBER INTO */ 00256000 * /* THE REQUIRED FIELDS IN THE MESSAGE TEXT */ 00257000 * /* */ 00258000 * /*******************************************************/ 00259000 * 05S0225 00260000 *INVALRLN: 05S0225 00261000 * DO; /* SUBCASE */ 00262000 INVALRLN DS 0H 05S0226 00263000 * HLDRELSE=OCBACKUP; /* PLACE GROUP NAME INTO MESSAGE */ 00264000 L @11,OPCWORK(,ROPCAVT) 05S0226 00265000 MVC HLDRELSE(8,@11),OCBACKUP(ROPCE) 05S0226 00266000 * CVD(OCRLN,OPCDOUBL); 05S0227 00267000 SLR @01,@01 05S0227 00268000 IC @01,OCRLN(,ROPCE) 05S0227 00269000 CVD @01,OPCDOUBL(,ROPCAVT) 05S0227 00270000 * UNPK(OPCDOUBL,OPCDOUBL); 05S0228 00271000 UNPK OPCDOUBL(8,ROPCAVT),OPCDOUBL(8,ROPCAVT) 05S0228 00272000 * OPCDOUBL(8:8)=OPCDOUBL(8:8)|ZONEMASK; 05S0229 00273000 OI OPCDOUBL+7(ROPCAVT),C'0' 05S0229 00274000 * RELNMBR=OPCDOUBL(6:8);/* PLACE RELATIVE LINE NUMBER 00275000 * INTO MESSAGE */ 00276000 MVC RELNMBR(3,@11),OPCDOUBL+5(ROPCAVT) 05S0230 00277000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00278000 B CE0001@ 05S0231 00279000 * END; /* END OF SUBCASE */ 00280000 * 05S0233 00281000 * /*******************************************************/ 00282000 * /* */ 00283000 * /* PROCESS.BUILDMSG.CASE.ACTIVATE: THIS SEGMENT PLACES */ 00284000 * /* THE RESOURCE NAME INTO THE REQUIRED FIELD IN THE */ 00285000 * /* MESSAGE TEXT */ 00286000 * /* */ 00287000 * /*******************************************************/ 00288000 * 05S0233 00289000 *ACTIVATE: 05S0233 00290000 * DO; /* SUBCASE */ 00291000 ACTIVATE DS 0H 05S0234 00292000 * RESNAME=OCBACKUP; /* PLACE RESOURCE NAME INTO 05S0234 00293000 * MESSAGE */ 00294000 L @01,OPCWORK(,ROPCAVT) 05S0234 00295000 MVC RESNAME(8,@01),OCBACKUP(ROPCE) 05S0234 00296000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00297000 B CE0001@ 05S0235 00298000 * END; /* END OF SUBCASE */ 00299000 * 05S0237 00300000 * /*******************************************************/ 00301000 * /* */ 00302000 * /* PROCESS.BUILDMSG.CASE.LDMODULE: THIS SEGMENT PLACES */ 00303000 * /* THE RESOURCE NAME AND THE LOAD MODULE NAME INTO THE */ 00304000 * /* REQUIRED FIELDS IN THE MESSAGE TEXT */ 00305000 * /* */ 00306000 * /*******************************************************/ 00307000 * 05S0237 00308000 *LDMODULE: 05S0237 00309000 * DO; /* SUBCASE */ 00310000 LDMODULE DS 0H 05S0238 00311000 * LOADMOD=OCBACKUP; /* PLACE NAME INTO MESSAGE */ 00312000 L @11,OPCWORK(,ROPCAVT) 05S0238 00313000 MVC LOADMOD(8,@11),OCBACKUP(ROPCE) 05S0238 00314000 * LDMODID=OCLDNME; /* PLACE LOAD MODULE ID INTO 00315000 * MESSAGE */ 00316000 LR @01,ROPCE 05S0239 00317000 AL @01,@CF01174 05S0239 00318000 MVC LDMODID(8,@11),OCLDNME(@01) 05S0239 00319000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00320000 B CE0001@ 05S0240 00321000 * END; /* END OF SUBCASE */ 00322000 * 05S0242 00323000 * /*******************************************************/ 00324000 * /* */ 00325000 * /* PROCESS.BUILDMSG.CASE.ACTDEACT: THIS SEGMENT PLACES */ 00326000 * /* THE RESOURCE NAME INTO THE REQUIRED FIELD IN THE */ 00327000 * /* MESSAGE TEXT */ 00328000 * /* */ 00329000 * /*******************************************************/ 00330000 * 05S0242 00331000 *ACTDEACT: 05S0242 00332000 * DO; /* SUBCASE */ 00333000 ACTDEACT DS 0H 05S0243 00334000 * RESOUNME=OCBACKUP; /* PLACE RESOURCE NAME INTO 05S0243 00335000 * MESSAGE */ 00336000 L @01,OPCWORK(,ROPCAVT) 05S0243 00337000 MVC RESOUNME(8,@01),OCBACKUP(ROPCE) 05S0243 00338000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00339000 B CE0001@ 05S0244 00340000 * END; /* END OF SUBCASE */ 00341000 * 05S0246 00342000 * /*******************************************************/ 00343000 * /* */ 00344000 * /* PROCESS.BUILDMSG.CASE.CLUSTNME: THIS SEGMENT PLACES */ 00345000 * /* THE RESOURCE NAME INTO THE REQUIRED FIELD IN THE */ 00346000 * /* MESSAGE TEXT */ 00347000 * /* */ 00348000 * /*******************************************************/ 00349000 * 05S0246 00350000 *CLUSTNME: 05S0246 00351000 * DO; /* SUBCASE */ 00352000 CLUSTNME DS 0H 05S0247 00353000 * CLUSTER=OCBACKUP; /* PLACE CLUSTER NAME INTO 05S0247 00354000 * MESSAGE */ 00355000 L @01,OPCWORK(,ROPCAVT) 05S0247 00356000 MVC CLUSTER(8,@01),OCBACKUP(ROPCE) 05S0247 00357000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00358000 B CE0001@ 05S0248 00359000 * END; /* END OF SUBCASE */ 00360000 *CE0001@: 04S0250 00361000 * END; /* END OF CASE */ 00362000 CE0001@ DS 0H 04S0251 00363000 * OPCMODID='07'; /* SET THE MODULE IDENTIFICATION 00364000 * CHARACTERS FOR THE NEXTMODULE 00365000 * TO BE EXECUTED */ 00366000 @RF00190 MVC OPCMODID(2,ROPCAVT),@CC01168 03S0251 00367000 * END; 03S0252 00368000 * ELSE /* CHECK FOR NO MATCHING TABLE 00369000 * ENTRY FOR THE MESSAGE NUMBER */ 00370000 * IF TABMNUM=0 /* LAST TABLE ENTRY REACHED */ 00371000 * |TABMNUM>REG00 /* THERE IS NO TABLE ENTRY FOR 00372000 * THE ARGUMENT MESSAGE NUMBER */ 00373000 * THEN 02S0253 00374000 B @RC00185 02S0253 00375000 @RF00185 LH @11,TABMNUM(,PTRENTRY) 02S0253 00376000 LTR @11,@11 02S0253 00377000 BZ @RT00253 02S0253 00378000 CR @11,REG00 02S0253 00379000 BNH @RF00253 02S0253 00380000 @RT00253 DS 0H 02S0254 00381000 * DO; /* PREPARE TO TRANSFER CONTROL TO 00382000 * THE NEXT MESSAGE MODULE TO 00383000 * CONTINUE THE SEARCH */ 00384000 * SEARCH=STOP; /* INDICATE THAT THE SEARCH IS TO 00385000 * BE STOPPED */ 00386000 NI SEARCH,B'01111111' 02S0255 00387000 * OPCMODID='0L'; /* SET MODULE IDENTIFICATION 00388000 * CHARACTERS FOR THE NEXT 02S0256 00389000 * MESSAGE MODULE IN THE CHAIN */ 00390000 MVC OPCMODID(2,ROPCAVT),@CC01169 02S0256 00391000 * END; 02S0257 00392000 * END; 02S0258 00393000 @RF00253 DS 0H 02S0258 00394000 @RC00185 AL PTRENTRY,@CF00032 02S0258 00395000 @DE00184 TM SEARCH,B'10000000' 02S0258 00396000 BO @DL00184 02S0258 00397000 * 02S0259 00398000 * /*****************************************************************/ 00399000 * /* */ 00400000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 00401000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. THE XCTL ASSEMBLER */ 00402000 * /* MACRO INSTRUCTION IS USED BY THIS SEGMENT TO TRANSFER CONTROL */ 00403000 * /* TO THE NEXT MODULE THAT IS TO BE EXECUTED. */ 00404000 * /* */ 00405000 * /*****************************************************************/ 00406000 * 02S0259 00407000 * RFY 02S0259 00408000 * REG01 RSTD; /* RESTRICT THE ARGUMENT REGISTER 00409000 * TO BE USED TO CONTAIN THE 00410000 * ADDRESS OF THE OPERATOR 02S0259 00411000 * CONTROL ADDRESS VECTOR TABLE 00412000 * FROM USE BY THE COMPILER */ 00413000 * REG01=ROPCAVT; /* SET THE ARGUMENT REGISTER IN 00414000 * PREPARATION TO TRANSFERRING 00415000 * CONTROL TO THE NEXT MODULE TO 00416000 * BE EXECUTED */ 00417000 LR REG01,ROPCAVT 02S0260 00418000 * GEN EXIT REFS(OPCXCTL,ROPCAVT) NOSEQFLOW SETS(REG15); 02S0261 00419000 * /* 00420000 XCTL SF=(E,OPCXCTL(ROPCAVT)) TRANSFER CONTROL MACRO 00421000 * END IGC0K10D 01S0262 00422000 * 01S0262 00423000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00424000 */*%INCLUDE SYSLIB (TAVTD ) */ 00425000 */*%INCLUDE SYSLIB (TOPCED ) */ 00426000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00427000 */*%INCLUDE SYSUT5 (RFY ) */ 00428000 */*%INCLUDE SYSUT5 (DCL ) */ 00429000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 00430000 */*%INCLUDE SYSUT5 (PROCESS ) */ 00431000 */*%INCLUDE SYSUT5 (INITIAL ) */ 00432000 */*%INCLUDE SYSUT5 (BUILDMSG) */ 00433000 */*%INCLUDE SYSUT5 (CASE ) */ 00434000 */*%INCLUDE SYSUT5 (SUBORDIN) */ 00435000 */*%INCLUDE SYSUT5 (ALLSUBOR) */ 00436000 */*%INCLUDE SYSUT5 (INVALRLN) */ 00437000 */*%INCLUDE SYSUT5 (ACTIVATE) */ 00438000 */*%INCLUDE SYSUT5 (LDMODULE) */ 00439000 */*%INCLUDE SYSUT5 (ACTDEACT) */ 00440000 */*%INCLUDE SYSUT5 (CLUSTNME) */ 00441000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 00442000 * 01S0262 00443000 * ; 01S0262 00444000 @DATA DS 0H 00445000 @SM01172 MVC MSGTEXT(0,@11),MSGSTRNG(@15) 00446000 @DATD DSECT 00447000 DS 0F 00448000 IGC0K10D CSECT 00449000 DS 0F 00450000 @CF00327 DC F'4' 00451000 @CF00032 DC F'12' 00452000 @CF01174 DC F'-8' 00453000 @DATD DSECT 00454000 DS 0D 00455000 SEARCH DS BL1 00456000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00457000 @ENDDATD EQU * 00458000 IGC0K10D CSECT 00459000 DS 0F 00460000 @SIZDATD DC AL1(0) 00461000 DC AL3(@ENDDATD-@DATD) 00462000 DS 0D 00463000 @CC01040 DC C'RELEASED' 00464000 @CC01038 DC C'HELD' 00465000 @CC01168 DC C'07' 00466000 @CC01169 DC C'0L' 00467000 IED521I DC CL56'IED521I SOME SUBORDINATES WERE FOR C00468000 , ' 00469000 IED522I DC CL54'IED522I ALL SUBORDINATES ARE FOR ,C00470000 ' 00471000 IED523I DC CL54'IED523I NO SUBORDINATES WERE FOR ,C00472000 ' 00473000 IED524I DC CL39'IED524I RLN IS INVALID FOR ' 00474000 IED525I DC CL45'IED525I COMMAND INVALID FOR RESOURCE ' 00475000 IED529I DC CL38'IED529I ACTIVATE UNSUCCESSFUL' 00476000 IED530I DC CL45'IED530I PARTIAL ACTIVATION COMPLETED' 00477000 IED531I DC CL56'IED531I ACTIVATE UNSUCCESSFUL. SIB POOL SHOC00478000 RTAGE' 00479000 IED532I DC CL80'IED532I ACTIVATION OF ABORTED. LOAD MODULEC00480000 NAME CONFLICT.ID = ' 00481000 IED533I DC CL68'IED533I CLUSTER HAS NO ATTACHED TERMINALS.C00482000 COMMAND REJECTED' 00483000 IED539I DC CL38'IED539I LOGICALLY DEACTIVATED' 00484000 DS CL1 00485000 PATCH DC XL104'0' 00486000 DS CL2 00487000 TABDATA DS CL134 00488000 ORG TABDATA 00489000 @NM00144 DC H'521' 00490000 @NM00145 DC AL2(56) 00491000 @NM00146 DC AL4(IED521I) 00492000 @NM00147 DC F'1' 00493000 @NM00148 DC H'522' 00494000 @NM00149 DC AL2(54) 00495000 @NM00150 DC AL4(IED522I) 00496000 @NM00151 DC F'2' 00497000 @NM00152 DC H'523' 00498000 @NM00153 DC AL2(54) 00499000 @NM00154 DC AL4(IED523I) 00500000 @NM00155 DC F'2' 00501000 @NM00156 DC H'524' 00502000 @NM00157 DC AL2(39) 00503000 @NM00158 DC AL4(IED524I) 00504000 @NM00159 DC F'3' 00505000 @NM00160 DC H'525' 00506000 @NM00161 DC AL2(45) 00507000 @NM00162 DC AL4(IED525I) 00508000 @NM00163 DC F'6' 00509000 @NM00164 DC H'529' 00510000 @NM00165 DC AL2(38) 00511000 @NM00166 DC AL4(IED529I) 00512000 @NM00167 DC F'4' 00513000 @NM00168 DC H'530' 00514000 @NM00169 DC AL2(45) 00515000 @NM00170 DC AL4(IED530I) 00516000 @NM00171 DC F'4' 00517000 @NM00172 DC H'531' 00518000 @NM00173 DC AL2(56) 00519000 @NM00174 DC AL4(IED531I) 00520000 @NM00175 DC F'4' 00521000 @NM00176 DC H'532' 00522000 @NM00177 DC AL2(80) 00523000 @NM00178 DC AL4(IED532I) 00524000 @NM00179 DC F'5' 00525000 @NM00180 DC H'533' 00526000 @NM00181 DC AL2(68) 00527000 @NM00182 DC AL4(IED533I) 00528000 @NM00183 DC F'7' 00529000 @NM00184 DC H'539' 00530000 @NM00185 DC AL2(38) 00531000 @NM00186 DC AL4(IED539I) 00532000 @NM00187 DC F'4' 00533000 TABEND DC H'0' 00534000 ORG TABDATA+134 00535000 DS CL2 00536000 CP0001@ DC AL4(SUBORDIN) 00537000 DC AL4(ALLSUBOR) 00538000 DC AL4(INVALRLN) 00539000 DC AL4(ACTIVATE) 00540000 DC AL4(LDMODULE) 00541000 DC AL4(ACTDEACT) 00542000 DC AL4(CLUSTNME) 00543000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00544000 @01 EQU 01 00545000 @02 EQU 02 00546000 @03 EQU 03 00547000 @04 EQU 04 00548000 @05 EQU 05 00549000 @06 EQU 06 00550000 @07 EQU 07 00551000 @08 EQU 08 00552000 @09 EQU 09 00553000 @10 EQU 10 00554000 @11 EQU 11 00555000 @12 EQU 12 00556000 @13 EQU 13 00557000 @14 EQU 14 00558000 @15 EQU 15 00559000 PTRENTRY EQU @05 00560000 ROPCE EQU @03 00561000 ROPCAVT EQU @02 00562000 RAVT EQU @04 00563000 REG00 EQU @00 00564000 REG01 EQU @01 00565000 RPARM EQU @01 00566000 REG10 EQU @10 00567000 RSAVE EQU @13 00568000 REG15 EQU @15 00569000 IEDQAVTD EQU 0 00570000 AVTSAVEX EQU IEDQAVTD+288 00571000 @NM00003 EQU IEDQAVTD+388 00572000 AVTCKFLG EQU @NM00003 00573000 AVTBASE EQU IEDQAVTD+412 00574000 AVTPKF EQU AVTBASE 00575000 AVTHG02 EQU IEDQAVTD+528 00576000 AVTDISP EQU IEDQAVTD+552 00577000 AVTHD EQU IEDQAVTD+556 00578000 AVTSCOPT EQU AVTHD 00579000 AVTSAVTP EQU IEDQAVTD+612 00580000 AVTSAVTF EQU AVTSAVTP 00581000 AVTCKPEL EQU IEDQAVTD+652 00582000 AVTCKRMV EQU AVTCKPEL 00583000 AVTCKELF EQU IEDQAVTD+680 00584000 AVTCKBYT EQU IEDQAVTD+691 00585000 AVTHG01 EQU IEDQAVTD+692 00586000 AVTCKLNK EQU IEDQAVTD+696 00587000 AVTCRELE EQU IEDQAVTD+708 00588000 AVTCCELE EQU AVTCRELE 00589000 AVTCLRHI EQU IEDQAVTD+716 00590000 AVTADBUF EQU IEDQAVTD+720 00591000 AVTSYSER EQU IEDQAVTD+728 00592000 AVTCKPQB EQU IEDQAVTD+804 00593000 AVTCKPTB EQU AVTCKPQB 00594000 AVTCKPEC EQU AVTCKPQB+4 00595000 AVTCKPCC EQU AVTCKPEC 00596000 AVTOPCQB EQU IEDQAVTD+816 00597000 AVTOPCOB EQU AVTOPCQB 00598000 AVTOPCEC EQU AVTOPCQB+4 00599000 AVTOPCCC EQU AVTOPCEC 00600000 AVTOLTQB EQU IEDQAVTD+828 00601000 AVTCWFL1 EQU IEDQAVTD+924 00602000 AVTCWFL2 EQU IEDQAVTD+925 00603000 AVTSUBT EQU IEDQAVTD+948 00604000 AVTIOTR EQU IEDQAVTD+949 00605000 AVTBIT1 EQU IEDQAVTD+1050 00606000 AVTBIT2 EQU IEDQAVTD+1051 00607000 AVTBIT3 EQU IEDQAVTD+1052 00608000 AVTBIT4 EQU IEDQAVTD+1136 00609000 @NM00083 EQU IEDQAVTD+1232 00610000 IEDQAPTR EQU 0 00611000 IEDNSVTD EQU 0 00612000 SAVTDIAG EQU IEDNSVTD 00613000 SAVTDIAF EQU SAVTDIAG 00614000 SAVTLUSQ EQU IEDNSVTD+88 00615000 SAVTTCPU EQU IEDNSVTD+238 00616000 SAVTZELM EQU IEDNSVTD+270 00617000 SAVTRDRV EQU IEDNSVTD+284 00618000 SAVTCKQB EQU IEDNSVTD+300 00619000 SAVTCKTB EQU SAVTCKQB 00620000 SAVTCKEC EQU SAVTCKQB+4 00621000 SAVTCKCC EQU SAVTCKEC 00622000 IEDQOPCE EQU 0 00623000 OCELEM EQU IEDQOPCE+4 00624000 OCUNIT EQU IEDQOPCE+8 00625000 OCRUDEST EQU OCUNIT 00626000 OCCKPKEY EQU OCRUDEST 00627000 OCSCAN EQU OCCKPKEY 00628000 OCOPTCDE EQU IEDQOPCE+12 00629000 OCSWITCH EQU IEDQOPCE+13 00630000 OCFLAG EQU IEDQOPCE+14 00631000 OCRLN EQU IEDQOPCE+15 00632000 @NM00106 EQU IEDQOPCE+16 00633000 OCDEST EQU @NM00106 00634000 OCREQVAL EQU OCDEST+1 00635000 OCLINENO EQU IEDQOPCE+22 00636000 OCTIOT EQU OCLINENO 00637000 OCTRUNIT EQU IEDQOPCE+24 00638000 OCRSID EQU OCTRUNIT 00639000 OCALSTAT EQU OCRSID 00640000 OCPARM EQU IEDQOPCE+28 00641000 OCBACKUP EQU IEDQOPCE+32 00642000 OCMODNME EQU IEDQOPCE+40 00643000 OCIPLWA EQU OCMODNME 00644000 OCCKDATA EQU IEDQOPCE+48 00645000 OCRSTGTM EQU OCCKDATA 00646000 IEDQOPCN EQU 0 00647000 OCLDNME EQU IEDQOPCN 00648000 OCLINTTE EQU OCLDNME 00649000 OCREQFLG EQU OCLINTTE+2 00650000 OCPREFLG EQU OCLINTTE+3 00651000 IEDQOPCD EQU 0 00652000 OPCDOUBL EQU IEDQOPCD 00653000 OPCAVTPT EQU IEDQOPCD+8 00654000 OPCCOPCE EQU IEDQOPCD+12 00655000 OPCSAVE EQU IEDQOPCD+56 00656000 OPCWORK EQU IEDQOPCD+140 00657000 OPCAQCTL EQU IEDQOPCD+180 00658000 OPCXCTL EQU IEDQOPCD+204 00659000 OPCLDNME EQU IEDQOPCD+212 00660000 OPCMODID EQU OPCLDNME+3 00661000 OPCSPEC EQU IEDQOPCD+300 00662000 MSGSTRNG EQU 0 00663000 MSGWORKA EQU 0 00664000 MSGLNGTH EQU MSGWORKA 00665000 MSGTEXT EQU MSGWORKA+4 00666000 TABENTRY EQU 0 00667000 TABMNUM EQU TABENTRY 00668000 TABLNGTH EQU TABENTRY+2 00669000 TABMPTR EQU TABENTRY+4 00670000 TABCASE EQU TABENTRY+8 00671000 CL0001@ EQU 0 00672000 OCCKPKY1 EQU OCCKPKEY 00673000 OCCKPTYP EQU OCCKPKY1 00674000 OCICACTN EQU OCMODNME 00675000 OCICDADR EQU OCICACTN 00676000 OCICSW EQU OCICDADR+3 00677000 OPCAQWD EQU OPCAQCTL 00678000 OPCAQWD1 EQU OPCAQWD 00679000 OPCAQWD2 EQU OPCAQWD+4 00680000 OPCAQWD3 EQU OPCAQWD+8 00681000 MSG521I EQU MSGTEXT 00682000 OPTCMD EQU MSG521I+31 00683000 GRPULNME EQU MSG521I+44 00684000 RLNMBR EQU MSG521I+53 00685000 MSG522I EQU MSGTEXT 00686000 OPT EQU MSG522I+29 00687000 GRPLNPU EQU MSG522I+42 00688000 RLN EQU MSG522I+51 00689000 MSG524I EQU MSGTEXT 00690000 RELNMBR EQU MSG524I+12 00691000 HLDRELSE EQU MSG524I+31 00692000 MSG525I EQU MSGTEXT 00693000 RESOUNME EQU MSG525I+37 00694000 MSG529I EQU MSGTEXT 00695000 RESNAME EQU MSG529I+8 00696000 MSG532I EQU MSGTEXT 00697000 LOADMOD EQU MSG532I+22 00698000 LDMODID EQU MSG532I+71 00699000 MSG533I EQU MSGTEXT 00700000 CLUSTER EQU MSG533I+16 00701000 MSG539I EQU MSGTEXT 00702000 OCCIB EQU OCREQVAL 00703000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00704000 RESOURCE EQU MSG539I+8 00705000 @NM00143 EQU MSG539I 00706000 @NM00142 EQU MSG533I 00707000 @NM00141 EQU MSG532I+30 00708000 @NM00140 EQU MSG532I 00709000 @NM00139 EQU MSG529I 00710000 @NM00138 EQU MSG525I 00711000 @NM00137 EQU MSG524I+15 00712000 @NM00136 EQU MSG524I 00713000 @NM00135 EQU MSG522I+50 00714000 @NM00134 EQU MSG522I+37 00715000 @NM00133 EQU MSG522I 00716000 @NM00132 EQU MSG521I+52 00717000 @NM00131 EQU MSG521I+39 00718000 @NM00130 EQU MSG521I 00719000 OPCAQLST EQU OPCAQWD3+1 00720000 OPCAQRQ3 EQU OPCAQWD3 00721000 OPCAQSEC EQU OPCAQWD2+1 00722000 OPCAQRQ2 EQU OPCAQWD2 00723000 OPCAQFST EQU OPCAQWD1+1 00724000 OPCAQREQ EQU OPCAQWD1 00725000 OCICINAC EQU OCICSW 00726000 @NM00112 EQU OCICSW 00727000 OCICATST EQU OCICDADR+1 00728000 OCICTYPE EQU OCICDADR 00729000 @NM00111 EQU OCCKPKY1 00730000 OCCKPENV EQU OCCKPKY1 00731000 OCCKPRST EQU OCCKPTYP 00732000 OCCKPNCP EQU OCCKPTYP 00733000 OCCKPINC EQU OCCKPTYP 00734000 @NM00129 EQU MSGWORKA+2 00735000 OPCBOTTM EQU IEDQOPCD+1172 00736000 @NM00128 EQU IEDQOPCD+1088 00737000 @NM00127 EQU IEDQOPCD+936 00738000 @NM00126 EQU IEDQOPCD+928 00739000 @NM00125 EQU IEDQOPCD+368 00740000 OPCWAITV EQU IEDQOPCD+364 00741000 OPCTOTCK EQU IEDQOPCD+360 00742000 OPCAPXTL EQU IEDQOPCD+356 00743000 OPCDECR EQU IEDQOPCD+352 00744000 OPCBUFWT EQU IEDQOPCD+348 00745000 OPCWRKSP EQU IEDQOPCD+320 00746000 OPCADGOT EQU IEDQOPCD+318 00747000 OPCRQCNT EQU IEDQOPCD+316 00748000 OPPOLSTP EQU IEDQOPCD+312 00749000 OPCCKCIB EQU IEDQOPCD+308 00750000 OPCEND EQU IEDQOPCD+307 00751000 OPCSTCBS EQU IEDQOPCD+306 00752000 OPCHNEND EQU IEDQOPCD+302 00753000 OPCOQSW EQU IEDQOPCD+301 00754000 @NM00124 EQU OPCSPEC 00755000 @NM00123 EQU OPCSPEC 00756000 @NM00122 EQU OPCSPEC 00757000 @NM00121 EQU OPCSPEC 00758000 OPCFRMCA EQU OPCSPEC 00759000 OPCRSTRT EQU OPCSPEC 00760000 OPCPART EQU OPCSPEC 00761000 OPCALTD EQU OPCSPEC 00762000 OPCBFEND EQU IEDQOPCD+296 00763000 OPCBFIRS EQU IEDQOPCD+292 00764000 OPCAVBUF EQU IEDQOPCD+290 00765000 @NM00120 EQU IEDQOPCD+289 00766000 OPCCLNTS EQU IEDQOPCD+288 00767000 OPCHA8 EQU IEDQOPCD+286 00768000 OPCBFREQ EQU IEDQOPCD+284 00769000 OPCFREBF EQU IEDQOPCD+280 00770000 OPCGETBF EQU IEDQOPCD+276 00771000 OPCNEXT EQU IEDQOPCD+272 00772000 OPCFMDFC EQU IEDQOPCD+268 00773000 OPCSCNC EQU IEDQOPCD+264 00774000 OPCHORTG EQU IEDQOPCD+260 00775000 OPCHORT EQU IEDQOPCD+256 00776000 OPCCKPTL EQU IEDQOPCD+252 00777000 OPCCKPTF EQU IEDQOPCD+248 00778000 OPCWAITA EQU IEDQOPCD+244 00779000 OPCWAITR EQU IEDQOPCD+240 00780000 OPCWAITP EQU IEDQOPCD+236 00781000 OPCWAITO EQU IEDQOPCD+232 00782000 OPCWAITN EQU IEDQOPCD+228 00783000 OPCWAITL EQU IEDQOPCD+224 00784000 OPCWAITC EQU IEDQOPCD+220 00785000 @NM00119 EQU OPCLDNME+5 00786000 @NM00118 EQU OPCLDNME 00787000 OPCWAIT EQU IEDQOPCD+192 00788000 OPCCKERB EQU IEDQOPCD+164 00789000 OPCBFERB EQU IEDQOPCD+148 00790000 OPCFLAG2 EQU IEDQOPCD+147 00791000 OPCFLAG1 EQU IEDQOPCD+146 00792000 OPCWRKSZ EQU IEDQOPCD+144 00793000 OPCRSAVE EQU IEDQOPCD+132 00794000 OPCQCBAD EQU IEDQOPCD+128 00795000 OPCTRMWA EQU IEDQOPCD+52 00796000 OPCPSTWT EQU IEDQOPCD+48 00797000 OPCTNTEA EQU IEDQOPCD+44 00798000 OPCPGCK EQU IEDQOPCD+40 00799000 OPCLCB EQU IEDQOPCD+36 00800000 @NM00117 EQU IEDQOPCD+32 00801000 OPCIPLAD EQU IEDQOPCD+28 00802000 OPCTOFLK EQU IEDQOPCD+24 00803000 OPCOPTLK EQU IEDQOPCD+20 00804000 OPCDCBLK EQU IEDQOPCD+16 00805000 @NM00116 EQU OCLDNME+4 00806000 @NM00115 EQU OCPREFLG 00807000 OCTOTEP EQU OCPREFLG 00808000 OCREPOST EQU OCPREFLG 00809000 OCRSPSNT EQU OCPREFLG 00810000 OCBFREQ EQU OCPREFLG 00811000 OCIDLE EQU OCREQFLG 00812000 OCFORCE EQU OCREQFLG 00813000 OCDCARD EQU OCREQFLG 00814000 OCPARTAL EQU OCREQFLG 00815000 OCADNCP EQU OCREQFLG 00816000 @NM00114 EQU OCREQFLG 00817000 @NM00113 EQU OCREQFLG 00818000 OCFLUSHZ EQU OCREQFLG 00819000 OCRESPCT EQU OCLINTTE 00820000 OCCKPTWA EQU OCCKDATA+4 00821000 @NM00110 EQU OCRSTGTM+2 00822000 OCCKDAT2 EQU OCRSTGTM+1 00823000 OCCKDAT1 EQU OCRSTGTM 00824000 OCPTRSAV EQU OCMODNME+4 00825000 OCPUADR EQU OCIPLWA+2 00826000 OCWTGSAV EQU OCIPLWA 00827000 OCDVRDCT EQU OCBACKUP+6 00828000 OCNCP EQU OCBACKUP+4 00829000 OCBUFGOT EQU OCBACKUP+2 00830000 OCBUFNED EQU OCBACKUP 00831000 OCWTG EQU IEDQOPCE+30 00832000 OCRESNUM EQU OCPARM 00833000 OCSEQ EQU OCTRUNIT+2 00834000 @NM00109 EQU OCRSID+1 00835000 OCNONE EQU OCALSTAT 00836000 OCSOME EQU OCALSTAT 00837000 OCALLFLG EQU OCALSTAT 00838000 OCACTREQ EQU OCALSTAT 00839000 OCREDRVE EQU OCALSTAT 00840000 OCSEQIND EQU OCALSTAT 00841000 @NM00108 EQU OCALSTAT 00842000 OCRENTRD EQU OCALSTAT 00843000 OCWTGB EQU OCTIOT 00844000 OCTRMTBL EQU IEDQOPCE+20 00845000 @NM00107 EQU @NM00106+2 00846000 OCCONID EQU OCDEST 00847000 OCRESP EQU OCFLAG 00848000 OCATTACH EQU OCFLAG 00849000 OCSSCP EQU OCFLAG 00850000 OCOUTPUT EQU OCFLAG 00851000 OCLINE EQU OCFLAG 00852000 OCMPP EQU OCFLAG 00853000 OCTOTE EQU OCFLAG 00854000 OCCONSOL EQU OCFLAG 00855000 @NM00105 EQU OCSWITCH 00856000 OCQUCKN EQU OCSWITCH 00857000 OCPRIFLG EQU OCOPTCDE 00858000 @NM00104 EQU OCRUDEST+1 00859000 @NM00103 EQU OCSCAN 00860000 OCNOTUCB EQU OCSCAN 00861000 OCNONAME EQU OCSCAN 00862000 OCALLRLN EQU OCSCAN 00863000 OCDDNAME EQU OCSCAN 00864000 OCDDNRLN EQU OCSCAN 00865000 OCADDR EQU OCSCAN 00866000 OCELMPTR EQU OCELEM+1 00867000 OCELMPRI EQU OCELEM 00868000 OCLINK EQU IEDQOPCE 00869000 SAVTBITN EQU IEDNSVTD+312 00870000 @NM00102 EQU SAVTCKQB+8 00871000 @NM00101 EQU SAVTCKEC+1 00872000 @NM00100 EQU SAVTCKCC 00873000 SAVTCKPO EQU SAVTCKCC 00874000 SAVTCKWA EQU SAVTCKCC 00875000 SAVTCKCH EQU SAVTCKTB+1 00876000 SAVTCKVT EQU SAVTCKTB 00877000 @NM00099 EQU IEDNSVTD+297 00878000 SAVTRDFG EQU SAVTRDRV+12 00879000 @NM00098 EQU SAVTRDRV+5 00880000 SAVTRDPY EQU SAVTRDRV+4 00881000 SAVTRDQB EQU SAVTRDRV+1 00882000 SAVTRDKY EQU SAVTRDRV 00883000 SAVTNID EQU IEDNSVTD+280 00884000 SAVTDVAS EQU IEDNSVTD+276 00885000 SAVTPLSZ EQU IEDNSVTD+274 00886000 @NM00097 EQU IEDNSVTD+273 00887000 SAVTSUBL EQU IEDNSVTD+272 00888000 @NM00096 EQU SAVTZELM+1 00889000 SAVTSUBM EQU SAVTZELM 00890000 SAVTMHDX EQU IEDNSVTD+268 00891000 SAVTNAT1 EQU IEDNSVTD+266 00892000 SAVTSH20 EQU IEDNSVTD+264 00893000 SAVTLCBS EQU IEDNSVTD+260 00894000 SAVTRNMP EQU IEDNSVTD+256 00895000 SAVTTNTX EQU IEDNSVTD+252 00896000 SAVTNAX EQU IEDNSVTD+248 00897000 SAVTSUBV EQU IEDNSVTD+247 00898000 SAVTSUBA EQU IEDNSVTD+246 00899000 SAVTSIBC EQU IEDNSVTD+244 00900000 SAVTBSM EQU IEDNSVTD+240 00901000 SAVTSCPT EQU SAVTTCPU 00902000 SAVTRQTG EQU IEDNSVTD+236 00903000 SAVTRQCH EQU IEDNSVTD+232 00904000 SAVTMAND EQU IEDNSVTD+228 00905000 SAVTSPLN EQU IEDNSVTD+224 00906000 SAVTNADL EQU IEDNSVTD+222 00907000 SAVTNATL EQU IEDNSVTD+220 00908000 SAVTMHTB EQU IEDNSVTD+216 00909000 SAVTSSMH EQU IEDNSVTD+212 00910000 SAVTQRS EQU IEDNSVTD+208 00911000 SAVTRQIN EQU IEDNSVTD+204 00912000 SAVTDFCO EQU IEDNSVTD+200 00913000 SAVTSAO EQU IEDNSVTD+196 00914000 SAVTSARI EQU IEDNSVTD+192 00915000 SAVTSAC EQU IEDNSVTD+188 00916000 SAVTSAI EQU IEDNSVTD+184 00917000 SAVTCSCI EQU IEDNSVTD+180 00918000 SAVTSSRP EQU IEDNSVTD+176 00919000 SAVTSSRQ EQU IEDNSVTD+172 00920000 SAVTSCLU EQU IEDNSVTD+168 00921000 SAVTXTRQ EQU IEDNSVTD+164 00922000 SAVTMVBF EQU IEDNSVTD+160 00923000 @NM00095 EQU IEDNSVTD+148 00924000 SAVTIPCQ EQU IEDNSVTD+144 00925000 @NM00094 EQU IEDNSVTD+136 00926000 SAVTXFMI EQU IEDNSVTD+132 00927000 @NM00093 EQU IEDNSVTD+124 00928000 SAVTXFMO EQU IEDNSVTD+120 00929000 @NM00092 EQU IEDNSVTD+116 00930000 SAVTSSSR EQU IEDNSVTD+112 00931000 SAVTSCPQ EQU IEDNSVTD+108 00932000 SAVTSLCB EQU IEDNSVTD+104 00933000 SAVTLUSR EQU IEDNSVTD+100 00934000 @NM00091 EQU SAVTLUSQ+8 00935000 SAVTLUSP EQU SAVTLUSQ+4 00936000 SAVTLUSB EQU SAVTLUSQ 00937000 @NM00090 EQU IEDNSVTD+84 00938000 SAVTSAT EQU IEDNSVTD+80 00939000 SAVTNAT EQU IEDNSVTD+76 00940000 SAVTCLUP EQU IEDNSVTD+72 00941000 SAVTPIUT EQU IEDNSVTD+68 00942000 SAVTRNTA EQU IEDNSVTD+64 00943000 SAVTDNIR EQU IEDNSVTD+60 00944000 SAVTCNIR EQU IEDNSVTD+56 00945000 SAVTFLDH EQU IEDNSVTD+52 00946000 SAVTSRTN EQU IEDNSVTD+48 00947000 SAVTSREQ EQU IEDNSVTD+44 00948000 SAVTFAIL EQU IEDNSVTD+42 00949000 SAVTSUSE EQU IEDNSVTD+40 00950000 SAVTSIB EQU IEDNSVTD+36 00951000 SAVTPRTN EQU IEDNSVTD+32 00952000 @NM00089 EQU IEDNSVTD+28 00953000 SAVTWH20 EQU IEDNSVTD+26 00954000 SAVTPWT EQU IEDNSVTD+24 00955000 SAVTPRTQ EQU IEDNSVTD+20 00956000 SAVTPREQ EQU IEDNSVTD+16 00957000 SAVTPH20 EQU IEDNSVTD+14 00958000 SAVTPUSE EQU IEDNSVTD+12 00959000 SAVTPLCB EQU IEDNSVTD+8 00960000 SAVTPOOL EQU IEDNSVTD+4 00961000 SAVTPRMT EQU SAVTDIAF 00962000 SAVTVIRT EQU SAVTDIAF 00963000 AVTCPBNO EQU IEDQAVTD+1244 00964000 AVTHRESS EQU IEDQAVTD+1243 00965000 @NM00088 EQU IEDQAVTD+1242 00966000 @NM00087 EQU IEDQAVTD+1241 00967000 @NM00086 EQU IEDQAVTD+1240 00968000 @NM00085 EQU IEDQAVTD+1237 00969000 @NM00084 EQU IEDQAVTD+1236 00970000 AVTHRESE EQU @NM00083 00971000 AVTRADDR EQU IEDQAVTD+1228 00972000 AVTNADDR EQU IEDQAVTD+1224 00973000 AVTHRESN EQU IEDQAVTD+1220 00974000 AVTVOLRN EQU IEDQAVTD+1216 00975000 AVTTOTNN EQU IEDQAVTD+1212 00976000 AVTTRCYN EQU IEDQAVTD+1208 00977000 AVTRCTRN EQU IEDQAVTD+1204 00978000 AVTNOVON EQU IEDQAVTD+1200 00979000 AVTADEBN EQU IEDQAVTD+1196 00980000 AVTVOLRR EQU IEDQAVTD+1192 00981000 AVTTOTNR EQU IEDQAVTD+1188 00982000 AVTTRCYR EQU IEDQAVTD+1184 00983000 AVTRCTRR EQU IEDQAVTD+1180 00984000 AVTNOVOR EQU IEDQAVTD+1176 00985000 AVTADEBR EQU IEDQAVTD+1172 00986000 AVTLODPT EQU IEDQAVTD+1168 00987000 AVTIOBN EQU IEDQAVTD+1164 00988000 AVTIOBR EQU IEDQAVTD+1160 00989000 AVTCPBPT EQU IEDQAVTD+1156 00990000 AVTFCPB EQU IEDQAVTD+1152 00991000 @NM00082 EQU IEDQAVTD+1148 00992000 AVTINCPQ EQU IEDQAVTD+1144 00993000 @NM00081 EQU IEDQAVTD+1140 00994000 @NM00080 EQU IEDQAVTD+1137 00995000 @NM00079 EQU AVTBIT4 00996000 @NM00078 EQU AVTBIT4 00997000 @NM00077 EQU AVTBIT4 00998000 @NM00076 EQU AVTBIT4 00999000 @NM00075 EQU AVTBIT4 01000000 @NM00074 EQU AVTBIT4 01001000 @NM00073 EQU AVTBIT4 01002000 AVTRUFTN EQU AVTBIT4 01003000 @NM00072 EQU IEDQAVTD+1132 01004000 AVTNOBFQ EQU IEDQAVTD+1128 01005000 @NM00071 EQU IEDQAVTD+1124 01006000 AVTDKENQ EQU IEDQAVTD+1120 01007000 @NM00070 EQU IEDQAVTD+1116 01008000 AVTDKAPQ EQU IEDQAVTD+1112 01009000 AVTCOPY EQU IEDQAVTD+1108 01010000 AVTIA EQU IEDQAVTD+1104 01011000 AVTFL EQU IEDQAVTD+1100 01012000 @NM00069 EQU IEDQAVTD+1096 01013000 AVTNCPBQ EQU IEDQAVTD+1092 01014000 AVTTOTNC EQU IEDQAVTD+1088 01015000 AVTCMAX EQU IEDQAVTD+1084 01016000 AVTCMIN EQU IEDQAVTD+1080 01017000 AVTHM02 EQU IEDQAVTD+1076 01018000 AVTOPCIN EQU IEDQAVTD+1074 01019000 AVTDCTLN EQU IEDQAVTD+1072 01020000 AVTOPMSK EQU IEDQAVTD+1068 01021000 AVTDDFT EQU IEDQAVTD+1064 01022000 AVTSTEAL EQU IEDQAVTD+1060 01023000 AVTOPTN EQU IEDQAVTD+1056 01024000 AVTDSKCT EQU IEDQAVTD+1054 01025000 AVTCKRST EQU IEDQAVTD+1053 01026000 AVTSTAN EQU AVTBIT3 01027000 AVTSTACN EQU AVTBIT3 01028000 AVTSTAIN EQU AVTBIT3 01029000 AVTSTAYN EQU AVTBIT3 01030000 AVTOLTBN EQU AVTBIT3 01031000 AVTTSAB EQU AVTBIT3 01032000 AVTRFULN EQU AVTBIT3 01033000 AVTRECVN EQU AVTBIT3 01034000 @NM00068 EQU AVTBIT2 01035000 @NM00067 EQU AVTBIT2 01036000 AVTOPEIN EQU AVTBIT2 01037000 AVTSTRTN EQU AVTBIT2 01038000 AVTTOPOL EQU AVTBIT2 01039000 AVTCOPYN EQU AVTBIT2 01040000 AVTREUSN EQU AVTBIT2 01041000 AVTEXTSC EQU AVTBIT2 01042000 AVTDISKN EQU AVTBIT1 01043000 AVTQUCKN EQU AVTBIT1 01044000 AVTCLOSN EQU AVTBIT1 01045000 AVTREADN EQU AVTBIT1 01046000 AVTDLAYN EQU AVTBIT1 01047000 AVTAQTAN EQU AVTBIT1 01048000 AVTTSON EQU AVTBIT1 01049000 AVTAPLKN EQU AVTBIT1 01050000 AVTDUMBR EQU IEDQAVTD+1048 01051000 AVTDLQX EQU IEDQAVTD+1046 01052000 AVTINTLV EQU IEDQAVTD+1044 01053000 AVTSMCNT EQU IEDQAVTD+1042 01054000 AVTAVFCT EQU IEDQAVTD+1040 01055000 AVTOPCON EQU IEDQAVTD+1038 01056000 AVTOPCNT EQU IEDQAVTD+1036 01057000 AVTLNCNT EQU IEDQAVTD+1034 01058000 AVTKEYLE EQU IEDQAVTD+1032 01059000 AVTHA16 EQU IEDQAVTD+1030 01060000 AVTHA7 EQU IEDQAVTD+1028 01061000 AVTHA4 EQU IEDQAVTD+1026 01062000 AVTHA3 EQU IEDQAVTD+1024 01063000 AVTHA2 EQU IEDQAVTD+1022 01064000 AVTGETMS EQU IEDQAVTD+1021 01065000 @NM00066 EQU IEDQAVTD+1020 01066000 AVTGETMD EQU IEDQAVTD+1016 01067000 AVTGETMN EQU IEDQAVTD+1012 01068000 AVTCWTOT EQU IEDQAVTD+1008 01069000 AVTCWINT EQU IEDQAVTD+956 01070000 AVTDTRAP EQU IEDQAVTD+952 01071000 @NM00065 EQU IEDQAVTD+950 01072000 @NM00064 EQU AVTIOTR 01073000 AVTIOTRH EQU AVTIOTR 01074000 AVTIOTRE EQU AVTIOTR 01075000 @NM00063 EQU AVTSUBT 01076000 AVTSUBPT EQU AVTSUBT 01077000 AVTSUBON EQU AVTSUBT 01078000 AVTAFE30 EQU IEDQAVTD+944 01079000 AVTAFE20 EQU IEDQAVTD+940 01080000 AVTAFE10 EQU IEDQAVTD+936 01081000 AVTCWEC2 EQU IEDQAVTD+932 01082000 AVTCWPM2 EQU IEDQAVTD+928 01083000 AVTCWTS2 EQU IEDQAVTD+927 01084000 AVTCWTS1 EQU IEDQAVTD+926 01085000 AVTCWCLD EQU AVTCWFL2 01086000 AVTCWRAP EQU AVTCWFL2 01087000 @NM00062 EQU AVTCWFL2 01088000 @NM00061 EQU AVTCWFL2 01089000 @NM00060 EQU AVTCWFL2 01090000 @NM00059 EQU AVTCWFL2 01091000 @NM00058 EQU AVTCWFL2 01092000 AVTCWACT EQU AVTCWFL2 01093000 @NM00057 EQU AVTCWFL1 01094000 @NM00056 EQU AVTCWFL1 01095000 @NM00055 EQU AVTCWFL1 01096000 @NM00054 EQU AVTCWFL1 01097000 @NM00053 EQU AVTCWFL1 01098000 @NM00052 EQU AVTCWFL1 01099000 @NM00051 EQU AVTCWFL1 01100000 AVTCOMWN EQU AVTCWFL1 01101000 AVTCWEC1 EQU IEDQAVTD+920 01102000 AVTCWPM1 EQU IEDQAVTD+916 01103000 AVTCAREA EQU IEDQAVTD+912 01104000 AVTFZERO EQU IEDQAVTD+908 01105000 AVTCADDR EQU IEDQAVTD+904 01106000 AVTCOREC EQU IEDQAVTD+900 01107000 @NM00050 EQU IEDQAVTD+892 01108000 AVTCPBCB EQU IEDQAVTD+888 01109000 @NM00049 EQU IEDQAVTD+880 01110000 AVTDSIOB EQU IEDQAVTD+876 01111000 @NM00048 EQU IEDQAVTD+868 01112000 AVTCPRMB EQU IEDQAVTD+864 01113000 @NM00047 EQU IEDQAVTD+856 01114000 AVTCLOSB EQU IEDQAVTD+852 01115000 @NM00046 EQU IEDQAVTD+844 01116000 AVTACTIB EQU IEDQAVTD+840 01117000 @NM00045 EQU IEDQAVTD+836 01118000 AVTOLTEB EQU IEDQAVTD+832 01119000 AVTOLTCH EQU AVTOLTQB+1 01120000 AVTOLTVT EQU AVTOLTQB 01121000 @NM00044 EQU AVTOPCQB+8 01122000 @NM00043 EQU AVTOPCEC+1 01123000 @NM00042 EQU AVTOPCCC 01124000 AVTOPCPO EQU AVTOPCCC 01125000 AVTOPCWA EQU AVTOPCCC 01126000 AVTOPCCH EQU AVTOPCOB+1 01127000 AVTOPCVT EQU AVTOPCOB 01128000 @NM00041 EQU AVTCKPQB+9 01129000 AVTCKPTS EQU AVTCKPQB+8 01130000 @NM00040 EQU AVTCKPEC+1 01131000 @NM00039 EQU AVTCKPCC 01132000 AVTCKPPO EQU AVTCKPCC 01133000 AVTCKPWA EQU AVTCKPCC 01134000 AVTCKPCH EQU AVTCKPTB+1 01135000 AVTCKPVT EQU AVTCKPTB 01136000 @NM00038 EQU IEDQAVTD+796 01137000 AVTBFRTB EQU IEDQAVTD+792 01138000 @NM00037 EQU IEDQAVTD+784 01139000 AVTBFREB EQU IEDQAVTD+780 01140000 AVTTIMQ EQU IEDQAVTD+776 01141000 @NM00036 EQU IEDQAVTD+772 01142000 AVTIMQPS EQU IEDQAVTD+768 01143000 AVTINOUT EQU IEDQAVTD+766 01144000 AVTREFTM EQU IEDQAVTD+764 01145000 @NM00035 EQU IEDQAVTD+752 01146000 AVTDELYB EQU IEDQAVTD+748 01147000 AVTOCQPT EQU IEDQAVTD+744 01148000 AVTTSOPT EQU IEDQAVTD+740 01149000 AVTSUPPT EQU IEDQAVTD+736 01150000 AVTCBQCB EQU IEDQAVTD+732 01151000 AVTMSGS EQU IEDQAVTD+729 01152000 @NM00034 EQU AVTSYSER 01153000 @NM00033 EQU AVTSYSER 01154000 @NM00032 EQU AVTSYSER 01155000 @NM00031 EQU AVTSYSER 01156000 @NM00030 EQU AVTSYSER 01157000 @NM00029 EQU AVTSYSER 01158000 AVTCMAXN EQU AVTSYSER 01159000 AVTCMINN EQU AVTSYSER 01160000 AVT2260L EQU IEDQAVTD+724 01161000 AVTABEPL EQU AVTADBUF 01162000 AVTHFF EQU AVTCLRHI+2 01163000 @NM00028 EQU AVTCLRHI 01164000 AVTCCLNK EQU AVTCRELE+5 01165000 AVTCCPRI EQU AVTCRELE+4 01166000 AVTCCQCB EQU AVTCCELE+1 01167000 AVTCCKEY EQU AVTCCELE 01168000 AVTDELAD EQU IEDQAVTD+704 01169000 AVTDELEM EQU IEDQAVTD+700 01170000 AVTBSX EQU AVTCKLNK 01171000 AVTOPETR EQU AVTHG01 01172000 @NM00027 EQU AVTCKBYT 01173000 AVTCKONQ EQU AVTCKBYT 01174000 @NM00026 EQU AVTCKBYT 01175000 @NM00025 EQU AVTCKBYT 01176000 @NM00024 EQU AVTCKBYT 01177000 @NM00023 EQU AVTCKBYT 01178000 @NM00022 EQU AVTCKBYT 01179000 @NM00021 EQU AVTCKBYT 01180000 AVTOPERT EQU IEDQAVTD+690 01181000 AVTOPXCL EQU IEDQAVTD+688 01182000 AVTOPERL EQU IEDQAVTD+687 01183000 @NM00020 EQU IEDQAVTD+686 01184000 AVTCKTIM EQU IEDQAVTD+684 01185000 AVTCKELV EQU IEDQAVTD+682 01186000 AVTCPRCD EQU IEDQAVTD+681 01187000 AVTWARMN EQU AVTCKELF 01188000 AVTCRTLN EQU AVTCKELF 01189000 AVTCPIPN EQU AVTCKELF 01190000 AVTCCLCN EQU AVTCKELF 01191000 AVTCINCN EQU AVTCKELF 01192000 @NM00019 EQU AVTCKELF 01193000 AVTCMCPN EQU AVTCKELF 01194000 AVTCRDYN EQU AVTCKELF 01195000 AVTCKQAD EQU IEDQAVTD+677 01196000 AVTSCBSZ EQU IEDQAVTD+676 01197000 @NM00018 EQU IEDQAVTD+672 01198000 AVTCKELE EQU IEDQAVTD+668 01199000 @NM00017 EQU AVTCKPEL+8 01200000 AVTCKRLK EQU AVTCKPEL+5 01201000 AVTCKRPR EQU AVTCKPEL+4 01202000 AVTCKRMQ EQU AVTCKRMV+1 01203000 AVTCKRKY EQU AVTCKRMV 01204000 AVTHK EQU IEDQAVTD+648 01205000 AVTHI EQU IEDQAVTD+644 01206000 AVTIOT EQU IEDQAVTD+640 01207000 AVTNX EQU IEDQAVTD+636 01208000 AVTTONE EQU IEDQAVTD+632 01209000 AVTA3TL EQU IEDQAVTD+628 01210000 AVTDMECB EQU IEDQAVTD+624 01211000 AVTABEND EQU IEDQAVTD+618 01212000 AVTPLCBN EQU IEDQAVTD+616 01213000 @NM00016 EQU AVTSAVTP+1 01214000 @NM00015 EQU AVTSAVTF 01215000 AVTSNA EQU AVTSAVTF 01216000 AVTONSNA EQU AVTSAVTF 01217000 AVTVTMCP EQU AVTSAVTF 01218000 @NM00014 EQU IEDQAVTD+608 01219000 AVTCMBSS EQU IEDQAVTD+604 01220000 AVTRCV EQU IEDQAVTD+600 01221000 AVTSEND EQU IEDQAVTD+596 01222000 AVTCSCH EQU IEDQAVTD+592 01223000 AVTQ1 EQU IEDQAVTD+588 01224000 AVTE7 EQU IEDQAVTD+584 01225000 AVTHB EQU IEDQAVTD+580 01226000 AVTR1 EQU IEDQAVTD+576 01227000 AVTBZ EQU IEDQAVTD+572 01228000 AVTEZ EQU IEDQAVTD+568 01229000 AVTEC EQU IEDQAVTD+564 01230000 AVTEW EQU IEDQAVTD+560 01231000 AVTNDIAL EQU AVTSCOPT 01232000 AVTN2741 EQU AVTSCOPT 01233000 AVTCONCO EQU AVTSCOPT 01234000 AVTCONC EQU AVTSCOPT 01235000 AVTCMBUF EQU AVTSCOPT 01236000 AVTAPDMP EQU AVTSCOPT 01237000 @NM00013 EQU AVTSCOPT 01238000 AVTHA EQU AVTDISP 01239000 AVTEA EQU IEDQAVTD+548 01240000 AVTAX EQU IEDQAVTD+544 01241000 AVTA3 EQU IEDQAVTD+540 01242000 AVTGD EQU IEDQAVTD+536 01243000 AVTAL EQU IEDQAVTD+532 01244000 AVTOLTST EQU AVTHG02 01245000 AVTE8 EQU IEDQAVTD+524 01246000 AVTUI EQU IEDQAVTD+520 01247000 AVTCOMPT EQU IEDQAVTD+516 01248000 AVTCRSRF EQU IEDQAVTD+512 01249000 @NM00012 EQU IEDQAVTD+508 01250000 AVTKA02 EQU IEDQAVTD+504 01251000 AVTOPTPT EQU IEDQAVTD+500 01252000 AVTPCBPT EQU IEDQAVTD+496 01253000 AVTOSECB EQU IEDQAVTD+492 01254000 AVTOPECA EQU IEDQAVTD+488 01255000 AVTOLECA EQU IEDQAVTD+484 01256000 AVTCKECA EQU IEDQAVTD+480 01257000 AVTCWECA EQU IEDQAVTD+476 01258000 AVTCWTCB EQU IEDQAVTD+472 01259000 AVTOLTCB EQU IEDQAVTD+468 01260000 AVTOCTCB EQU IEDQAVTD+464 01261000 AVTCKTCB EQU IEDQAVTD+460 01262000 AVTAS EQU IEDQAVTD+456 01263000 AVTNOLBF EQU IEDQAVTD+454 01264000 AVTNCKPR EQU IEDQAVTD+453 01265000 AVTCIB EQU IEDQAVTD+452 01266000 AVTSPLPT EQU IEDQAVTD+448 01267000 AVTMVBFR EQU IEDQAVTD+444 01268000 AVTSBTA EQU IEDQAVTD+440 01269000 AVTRARTN EQU IEDQAVTD+436 01270000 AVTBSCAN EQU IEDQAVTD+432 01271000 AVTRDYA EQU IEDQAVTD+428 01272000 AVTRNMPT EQU IEDQAVTD+424 01273000 AVTDISTR EQU IEDQAVTD+420 01274000 AVTPARM3 EQU IEDQAVTD+416 01275000 @NM00011 EQU AVTPKF 01276000 @NM00010 EQU AVTPKF 01277000 @NM00009 EQU AVTPKF 01278000 AVTFTCHF EQU AVTPKF 01279000 @NM00008 EQU AVTPKF 01280000 @NM00007 EQU AVTPKF 01281000 @NM00006 EQU AVTPKF 01282000 @NM00005 EQU AVTPKF 01283000 AVTPARM EQU IEDQAVTD+408 01284000 AVTEXS2A EQU IEDQAVTD+402 01285000 AVTEXA2S EQU IEDQAVTD+396 01286000 AVTOCGET EQU IEDQAVTD+392 01287000 AVTCKAVT EQU @NM00003+1 01288000 @NM00004 EQU AVTCKFLG 01289000 AVTCKHLT EQU AVTCKFLG 01290000 AVTCKREQ EQU AVTCKFLG 01291000 AVTCKENV EQU AVTCKFLG 01292000 AVTCKNAC EQU AVTCKFLG 01293000 AVTCKTAC EQU AVTCKFLG 01294000 @NM00002 EQU IEDQAVTD+384 01295000 AVTREADD EQU IEDQAVTD+380 01296000 AVTREADY EQU IEDQAVTD+376 01297000 AVTRACE EQU IEDQAVTD+372 01298000 AVTTCB EQU IEDQAVTD+368 01299000 AVTPASWD EQU IEDQAVTD+360 01300000 AVTCTLCH EQU IEDQAVTD+352 01301000 AVTDOUBL EQU IEDQAVTD+344 01302000 AVTDOUBX EQU IEDQAVTD+336 01303000 AVTDPARM EQU IEDQAVTD+332 01304000 AVTCSTCS EQU IEDQAVTD+328 01305000 AVTDLQ EQU AVTSAVEX+32 01306000 @NM00001 EQU AVTSAVEX 01307000 AVTSAVE4 EQU IEDQAVTD+216 01308000 AVTSAVE3 EQU IEDQAVTD+144 01309000 AVTSAVE2 EQU IEDQAVTD+72 01310000 AVTSAVE1 EQU IEDQAVTD 01311000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01312000 @RC00205 EQU CE0001@ 01313000 @RC00220 EQU CE0001@ 01314000 @ENDDATA EQU * 01315000 END IGC0K10D,(C'PLS0950',0701,76363) 01316000