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