TITLE 'IGCOE10D, 3705 ERROR MSG MOD *00001000 ' 00002000 IGC0E10D CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 EJECT 00005000 EJECT 00006000 EJECT 00007000 USING *,RBASE ESTABLISH ADDRESS. 00008000 LR RBASE,R15 SETUP THE BASE 00009000 IGC0E10D IEDHJN AFTERHJN,HJN 00010000 *BASE: 0167 00011000 * RMSGNO=RZERO; /* PICK UP PASSED MSG NO. */ 00012000 BASE LR RMSGNO,RZERO 0167 00013000 * ROPCAVT=RPARM; /* BASE FOR OP CONTROL AVT */ 00014000 LR ROPCAVT,RPARM 0168 00015000 * RESPECIFY 0169 00016000 * (RPARM, 0169 00017000 * RZERO) UNRSTD; /* */ 00018000 * IEDQAPTR=OPCAVTPT; /* BASE FOR TCAM AVT */ 00019000 L IEDQAPTR,OPCAVTPT(,ROPCAVT) 0170 00020000 * ROPCE=OPCCOPCE; /* GET ELEMENT POINTER */ 00021000 L ROPCE,OPCCOPCE(,ROPCAVT) 0171 00022000 * RWORKA=OPCWORK; /* ADDRESS OF WORK AREA */ 00023000 L RWORKA,OPCWORK(,ROPCAVT) 0172 00024000 * OPCLDNME(4:5)='0C'; /* SET UP WRITE MOD NAME */ 00025000 MVC OPCLDNME+3(2,ROPCAVT),@CC01238 0173 00026000 * RMSGPT=ADDR(ERRORTAB); /* LOAD ADDR MSG TABLE */ 00027000 LA RMSGPT,ERRORTAB 0174 00028000 *LOCATMSG: 0175 00029000 * IF TABEND=ERREND /* IS THIS THE END OF TABLE */ 00030000 * THEN 0175 00031000 LOCATMSG CLC TABEND(1,RMSGPT),ERREND 0175 00032000 BNE @RF00175 0175 00033000 * DO; 0176 00034000 * END; 0177 00035000 * ELSE 0178 00036000 * DO; 0178 00037000 B @RC00175 0178 00038000 @RF00175 DS 0H 0179 00039000 * IF TABMSGNO^=RMSGNO /* IS THIS THE PROPER MSG */ 00040000 * THEN 0179 00041000 CH RMSGNO,TABMSGNO(,RMSGPT) 0179 00042000 BE @RF00179 0179 00043000 * DO; 0180 00044000 * RMSGPT=RMSGPT+4; /* IF NOT PROPER MSG ADV */ 00045000 AL RMSGPT,@CF00092 0181 00046000 * GOTO LOCATMSG; /* KEEP LOOKING */ 00047000 B LOCATMSG 0182 00048000 * END; 0183 00049000 * ELSE 0184 00050000 * ; 0184 00051000 @RF00179 DS 0H 0185 00052000 * RMSGPT=TABMSGAD; /* PICK UP MSG OFFSET */ 00053000 LH RMSGPT,TABMSGAD(,RMSGPT) 0185 00054000 * RMSGPT=RMSGPT+ADDR(BASE); /* ADD BASE TO OFFST */ 00055000 LA @14,BASE 0186 00056000 ALR RMSGPT,@14 0186 00057000 * WORLEN=MSGLEN; /* MOVE MSG LEN TO WORKAREA */ 00058000 SLR @14,@14 0187 00059000 IC @14,MSGLEN(,RMSGPT) 0187 00060000 STH @14,WORLEN(,RWORKA) 0187 00061000 * WORMSGAR=MSGSTART(1:MSGLEN);/* MSG TO WORKAREA */ 00062000 MVI WORMSGAR+1(RWORKA),C' ' 0188 00063000 MVC WORMSGAR+2(118,RWORKA),WORMSGAR+1(RWORKA) 0188 00064000 BCTR @14,0 0188 00065000 EX @14,@SM01258 0188 00066000 * IF MSGOFFST>'00'X /* IS AN INSERT NEEDED? */ 00067000 * THEN /* IF YES, */ 00068000 CLI MSGOFFST(RMSGPT),0 0189 00069000 BNH @RF00189 0189 00070000 * DO; 0190 00071000 * IF RMSGNO=199 THEN /* MESSAGE 199? */ 00072000 C RMSGNO,@CF00234 0191 00073000 BNE @RF00191 0191 00074000 * DO; /* YES */ 00075000 * RFY 0193 00076000 * (IEDPRUQP, 0193 00077000 * RPRU) RSTD; 0193 00078000 * RPRU=OCUNIT; /* ADDR OF PRU @YM08414*/ 00079000 L RPRU,OCUNIT(,ROPCE) 0194 00080000 * RWORK2=RWORKA+BEGMSG; 0195 00081000 LA RWORK2,4 0195 00082000 ALR RWORK2,RWORKA 0195 00083000 * COMMAND=' '; /* BLANK COMMAND @YM08414*/ 00084000 MVI COMMAND+1(RWORK2),C' ' 0196 00085000 MVC COMMAND+2(4,RWORK2),COMMAND+1(RWORK2) 0196 00086000 MVI COMMAND(RWORK2),C' ' 0196 00087000 * SENSEMAP=' '; /* BLANK SENSE @YM08414*/ 00088000 MVI SENSEMAP+1(RWORK2),C' ' 0197 00089000 MVC SENSEMAP+2(6,RWORK2),SENSEMAP+1(RWORK2) 0197 00090000 MVI SENSEMAP(RWORK2),C' ' 0197 00091000 * IF PRUTHTYE=PRUTHFD1 THEN/* FID1? */ 00092000 LR @14,IEDPRUQP 0198 00093000 SL @14,@CF00054 0198 00094000 TM PRUTHTYE(@14),B'00010000' 0198 00095000 BNO @RF00198 0198 00096000 TM PRUTHTYE(@14),B'11100000' 0198 00097000 BNZ @RF00198 0198 00098000 * DO; /* YES */ 00099000 * DIGITPTR=ADDR(CMMND);/* CMD ADDR @YM08414*/ 00100000 LA @01,CMMND(,IEDPRUQP) 0200 00101000 ST @01,DIGITPTR(,RWORK2) 0200 00102000 * WKPTR1=ADDR(COMMAND);/* WKAREA ADDRESS @YM08414*/ 00103000 LA @01,COMMAND(,RWORK2) 0201 00104000 ST @01,WKPTR1(,RWORK2) 0201 00105000 * IF PRURHFI='1'B&PRURUCAT=PRURHFMD THEN 0202 00106000 TM PRURHFI(@14),B'00001000' 0202 00107000 BNO @RF00202 0202 00108000 TM PRURUCAT(@14),B'01100000' 0202 00109000 BNZ @RF00202 0202 00110000 * NUMBER=LENGTH(CMMND);/* SET NUMBERS OF CHARS IN 00111000 * COMMAND @YM08414*/ 00112000 MVI NUMBER(RWORK2),X'03' 0203 00113000 * ELSE 0204 00114000 * NUMBER=LENGTH(CMMND1);/* @YM08414*/ 00115000 B @RC00202 0204 00116000 @RF00202 MVI NUMBER(RWORK2),X'01' 0204 00117000 * CALL SPLTBYTE; /* SPLIT THE BYTES FOR TRANSLATE 00118000 * @YM08414*/ 00119000 @RC00202 BAL @14,SPLTBYTE 0205 00120000 * IF PRURHFI='1'B&PRURUCAT=PRURHFMD THEN 0206 00121000 LR @14,IEDPRUQP 0206 00122000 SL @14,@CF00054 0206 00123000 TM PRURHFI(@14),B'00001000' 0206 00124000 BNO @RF00206 0206 00125000 TM PRURUCAT(@14),B'01100000' 0206 00126000 BNZ @RF00206 0206 00127000 * TR(COMMAND,EBCDIC);/* TRANSL TO PRINTABLE HEX 00128000 * @XM05689*/ 00129000 TR COMMAND(6,RWORK2),EBCDIC 0207 00130000 * ELSE 0208 00131000 * TR(CMDFID11,EBCDIC);/* TRANS TO PRINTABLE HEX 00132000 * @XM05689*/ 00133000 B @RC00206 0208 00134000 @RF00206 TR CMDFID11(2,RWORK2),EBCDIC 0208 00135000 * DIGITPTR=ADDR(FID1SNS);/* SENSE ADDRESS @YM08414*/ 00136000 @RC00206 LA @14,FID1SNS(,IEDPRUQP) 0209 00137000 ST @14,DIGITPTR(,RWORK2) 0209 00138000 * WKPTR1=ADDR(SENSEMAP);/* WKAREA ADDRESS @YM08414*/ 00139000 LA @14,SENSEMAP(,RWORK2) 0210 00140000 ST @14,WKPTR1(,RWORK2) 0210 00141000 * NUMBER=LENGTH(FID1SNS);/* LENGTH OF SENSE 0211 00142000 * @YM08414*/ 00143000 MVI NUMBER(RWORK2),X'04' 0211 00144000 * CALL SPLTBYTE; /* SPLIT THE BYTES FOR TRANSLATE 00145000 * @YM08414*/ 00146000 BAL @14,SPLTBYTE 0212 00147000 * TR(SENSEMAP,EBCDIC);/* TRANSL TO PRINTABLE HEX 0213 00148000 * @XM05689*/ 00149000 TR SENSEMAP(8,RWORK2),EBCDIC 0213 00150000 * END; /* MOVE FID1 REQUEST */ 00151000 * ELSE 0215 00152000 * DO; /* @YM08414*/ 00153000 B @RC00198 0215 00154000 @RF00198 DS 0H 0216 00155000 * DIGITPTR=ADDR(CMDMOD);/* FID0 CMD @YM08414*/ 00156000 LA @14,CMDMOD(,IEDPRUQP) 0216 00157000 ST @14,DIGITPTR(,RWORK2) 0216 00158000 * WKPTR1=ADDR(COMMAND);/* WKAREA ADDRESS @YM08414*/ 00159000 LA @14,COMMAND(,RWORK2) 0217 00160000 ST @14,WKPTR1(,RWORK2) 0217 00161000 * NUMBER=LENGTH(CMDMOD);/* FID0 LENGTH @YM08414*/ 00162000 MVI NUMBER(RWORK2),X'02' 0218 00163000 * CALL SPLTBYTE; /* SPLIT BYTES FOR TRANSLATE 0219 00164000 * @YM08414*/ 00165000 BAL @14,SPLTBYTE 0219 00166000 * TR(CMDFID0,EBCDIC);/* TRANSLATE TO PRINTABLE HEX 00167000 * @YM08414*/ 00168000 TR CMDFID0(4,RWORK2),EBCDIC 0220 00169000 * DIGITPTR=ADDR(FID0SENS);/* FID0 SENSE ADDRESS 0221 00170000 * @YM08414*/ 00171000 LA @14,FID0SENS(,IEDPRUQP) 0221 00172000 ST @14,DIGITPTR(,RWORK2) 0221 00173000 * WKPTR1=ADDR(SENSEMAP);/* WKAREA ADDRESS @YM08414*/ 00174000 LA @14,SENSEMAP(,RWORK2) 0222 00175000 ST @14,WKPTR1(,RWORK2) 0222 00176000 * NUMBER=LENGTH(FID0SENS);/* LENGTH OF SENSE 0223 00177000 * @YM08414*/ 00178000 MVI NUMBER(RWORK2),X'02' 0223 00179000 * CALL SPLTBYTE; /* SPLIT BYTES FOR TRANSLATE 0224 00180000 * @YM08414*/ 00181000 BAL @14,SPLTBYTE 0224 00182000 * TR(SNSMAPF0,EBCDIC);/* TRANS TO PRINTABLE HEX 0225 00183000 * @XM05689*/ 00184000 TR SNSMAPF0(4,RWORK2),EBCDIC 0225 00185000 * END; /* @YM08414*/ 00186000 * MSG199WA=' '; /* CLEAR WORKAREA USED IN MSG 199 00187000 * @YM08414*/ 00188000 @RC00198 MVI MSG199WA+1(RWORK2),C' ' 0227 00189000 MVC MSG199WA+2(10,RWORK2),MSG199WA+1(RWORK2) 0227 00190000 MVI MSG199WA(RWORK2),C' ' 0227 00191000 * NAME=OCBACKUP; /* MOVE RESOURCE NAME */ 00192000 MVC NAME(8,RWORK2),OCBACKUP(ROPCE) 0228 00193000 * RFY 0229 00194000 * (IEDPRUQP, 0229 00195000 * RPRU) UNRSTD; 0229 00196000 * END; /* FINISHED WITH MSG 199 */ 00197000 * ELSE 0231 00198000 * DO; 0231 00199000 B @RC00191 0231 00200000 @RF00191 DS 0H 0232 00201000 * RWORK2=RWORKA+MSGOFFST+3;/* INSERT BS */ 00202000 LR RWORK2,RWORKA 0232 00203000 SLR @14,@14 0232 00204000 IC @14,MSGOFFST(,RMSGPT) 0232 00205000 ALR RWORK2,@14 0232 00206000 AL RWORK2,@CF00074 0232 00207000 * IF MSGOFFST>128 /* DOES MSG HAVE AN RLN? */ 00208000 * THEN /* IF YES, */ 00209000 CLI MSGOFFST(RMSGPT),128 0233 00210000 BNH @RF00233 0233 00211000 * DO; 0234 00212000 * RWORK2=RWORK2-128;/* CORRECT INSERT */ 00213000 SL RWORK2,@CF01245 0235 00214000 * RLNSWTH='1'B; /* SET SWITCH */ 00215000 OI RLNSWTH(ROPCAVT),B'10000000' 0236 00216000 * END; 0237 00217000 * ELSE 0238 00218000 * RLNSWTH='0'B; /* SET SWITCH */ 00219000 B @RC00233 0238 00220000 @RF00233 NI RLNSWTH(ROPCAVT),B'01111111' 0238 00221000 * NAMFILD=OCBACKUP; /* MOVE NAME TO MESSAGE */ 00222000 @RC00233 MVC NAMFILD(8,RWORK2),OCBACKUP(ROPCE) 0239 00223000 * IF RLNSWTH='1'B /* IR RLN THEN CONVERT RLN */ 00224000 * THEN 0240 00225000 TM RLNSWTH(ROPCAVT),B'10000000' 0240 00226000 BNO @RF00240 0240 00227000 * DO; 0241 00228000 *CONVERT: 0242 00229000 * RCONVERT=OCRLN; /* PICK UP RLN */ 00230000 CONVERT SLR RCONVERT,RCONVERT 0242 00231000 IC RCONVERT,OCRLN(,ROPCE) 0242 00232000 * IF OCRLN>'00'X /* IF THERE A RLN */ 00233000 * THEN /* THEN */ 00234000 CLI OCRLN(ROPCE),0 0243 00235000 BNH @RF00243 0243 00236000 * DO; 0244 00237000 *NUM: 0245 00238000 * GEN REFS(OPCDOUBL); 0245 00239000 NUM DS 0H 0245 00240000 CVD RCONVERT,OPCDOUBL(ROPCAVT) /* CONVERT THE RELATIVE */ 00241000 UNPK NAMRLN(3,RWORK2),OPCDOUBL+6(2,ROPCAVT) 00242000 OI NAMRLN+2(RWORK2),X'F0' /* AND PLACE IN MESSAGE */ 00243000 * END; 0246 00244000 * ELSE 0247 00245000 * NAMRLN='ALL'; /* ELSE PLACE ALL */ 00246000 B @RC00243 0247 00247000 @RF00243 MVC NAMRLN(3,RWORK2),@CC01251 0247 00248000 * END; 0248 00249000 * ELSE 0249 00250000 * ; 0249 00251000 @RF00240 DS 0H 0250 00252000 * END; /* FINISHED WITH THE OTHER MSGS */ 00253000 * END; 0251 00254000 * ELSE 0252 00255000 * ; 0252 00256000 @RF00189 DS 0H 0253 00257000 * OPCLDNME(4:5)='07'; /* SET UP WRITE MOD NAME */ 00258000 @RC00189 MVC OPCLDNME+3(2,ROPCAVT),@CC01252 0253 00259000 * END; 0254 00260000 * RESPECIFY 0255 00261000 * RPARM RSTD; /* */ 00262000 @RC00175 DS 0H 0256 00263000 * RPARM=ROPCAVT; /* SET UP PARM */ 00264000 LR RPARM,ROPCAVT 0256 00265000 * GEN REFS(OPCXCTL,ROPCAVT) EXIT; 0257 00266000 * /* CALL NEXT MODULE */ 00267000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00268000 * RESPECIFY 0258 00269000 * RPARM UNRSTD; /* */ 00270000 *SPLTBYTE: 0259 00271000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0259 00272000 @EL00001 DS 0H 0259 00273000 @EF00001 DS 0H 0259 00274000 @ER00001 BR @14 0259 00275000 SPLTBYTE DS 0H 0260 00276000 * RFY 0260 00277000 * (IEDPRUQP, 0260 00278000 * RBASE, 0260 00279000 * ROPCAVT, 0260 00280000 * ROPCE, 0260 00281000 * IEDQAPTR, 0260 00282000 * RWORKA, 0260 00283000 * RPRU, 0260 00284000 * REG14, 0260 00285000 * RWORK2) RSTD; 0260 00286000 * 0260 00287000 */* @YM08414*/ 00288000 * 0261 00289000 * DO WHILE NUMBER^=0; /* ANY BYTES LEFT SPLIT @YM08414*/ 00290000 B @DE00261 0261 00291000 @DL00261 DS 0H 0262 00292000 * RCONVERT=CHAR1; /* PUT DIGIT IN TWO BYTES 0262 00293000 * @XM05803*/ 00294000 L @15,DIGITPTR(,RWORK2) 0262 00295000 SLR RCONVERT,RCONVERT 0262 00296000 IC RCONVERT,CHAR1(,@15) 0262 00297000 * SLL(RCONVERT,4); /* HI HALF BYTE OVER @XM05803*/ 00298000 SLL RCONVERT,4 0263 00299000 * GEN( L @15,WKPTR1(,RWORK2)); /* POINT TO AREA @XM05803*/ 00300000 L @15,WKPTR1(,RWORK2) 00301000 * GEN( STCM RCONVERT,2,0(@15)); /* PUT HI HALF IN FIRST @XM05803*/ 00302000 STCM RCONVERT,2,0(@15) 00303000 * SRL(RCONVERT,4); /* BACK TO NORMAL @XM05803*/ 00304000 SRL RCONVERT,4 0266 00305000 * GEN( STCM RCONVERT,1,1(@15)); /* LOW HALF IN SECOND @XM05803*/ 00306000 STCM RCONVERT,1,1(@15) 00307000 * WKBYTE1=WKBYTE1&SIGN0F; /* TURN OFF HI FOUR BITS @XM05689*/ 00308000 L @15,WKPTR1(,RWORK2) 0268 00309000 NC WKBYTE1(2,@15),@CB00080 0268 00310000 */* @YM08414*/ 00311000 * 0269 00312000 * WKPTR1=WKPTR1+2; /* BUMP TO NEXT BYTE IN WKAREA 0269 00313000 * FOR NEXT BYTE @YM08414*/ 00314000 AL @15,@CF00065 0269 00315000 ST @15,WKPTR1(,RWORK2) 0269 00316000 * DIGITPTR=DIGITPTR+1; /* BUMP TO NEXT DIGIT @YM08414*/ 00317000 LA @15,1 0270 00318000 AL @15,DIGITPTR(,RWORK2) 0270 00319000 ST @15,DIGITPTR(,RWORK2) 0270 00320000 * NUMBER=NUMBER-1; /* SUBTRACT 1 FROM DIGITS 0271 00321000 * @YM08414*/ 00322000 SLR @15,@15 0271 00323000 IC @15,NUMBER(,RWORK2) 0271 00324000 BCTR @15,0 0271 00325000 STC @15,NUMBER(,RWORK2) 0271 00326000 * END; /* @YM08414*/ 00327000 @DE00261 CLI NUMBER(RWORK2),0 0272 00328000 BNE @DL00261 0272 00329000 */* @YM08414*/ 00330000 * 0273 00331000 * RFY 0273 00332000 * (IEDPRUQP, 0273 00333000 * RBASE, 0273 00334000 * ROPCAVT, 0273 00335000 * ROPCE, 0273 00336000 * IEDQAPTR, 0273 00337000 * RWORKA, 0273 00338000 * RPRU, 0273 00339000 * REG14, 0273 00340000 * RWORK2) UNRSTD; 0273 00341000 * END SPLTBYTE; /* RETURN @YM08414*/ 00342000 @EL00002 DS 0H 0274 00343000 @EF00002 DS 0H 0274 00344000 @ER00002 BR @14 0274 00345000 * END IGC0E10D 0275 00346000 * 0275 00347000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00348000 */*%INCLUDE SYSLIB (TAVTD ) */ 00349000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00350000 */*%INCLUDE SYSLIB (TOPCED ) */ 00351000 */*%INCLUDE SYSLIB (TPRUD ) */ 00352000 * 0275 00353000 * ; 0275 00354000 @DATA DS 0H 00355000 @SM01258 MVC WORMSGAR(0,RWORKA),MSGSTART(RMSGPT) 00356000 DS 0F 00357000 DS 0F 00358000 @CF00065 DC F'2' 00359000 @CF00074 DC F'3' 00360000 @CF00092 DC F'4' 00361000 @CF00054 DC F'8' 00362000 @CF01245 DC F'128' 00363000 @CF00234 DC F'199' 00364000 DS 0D 00365000 @CC01251 DC C'ALL' 00366000 @CC01238 DC C'0C' 00367000 @CC01252 DC C'07' 00368000 @CB00080 DC X'0F0F' 00369000 EBCDIC DC CL16'0123456789ABCDEF' 00370000 DS CL3 00371000 MSG161 DS CL37 00372000 ORG MSG161 00373000 @NM00007 DC AL1(34) 00374000 @NM00008 DC AL1(18) 00375000 @NM00009 DC AL1(0) 00376000 @NM00010 DC CL34'IED161I 3705 FOR NOT OPEN' 00377000 ORG MSG161+37 00378000 DS CL3 00379000 MSG183 DS CL66 00380000 ORG MSG183 00381000 @NM00011 DC AL1(63) 00382000 @NM00012 DC AL1(9) 00383000 @NM00013 DC AL1(0) 00384000 @NM00014 DC CL63'IED183I DUMP DCB SPECIFICATION ERROR' 00385000 ORG MSG183+66 00386000 DS CL2 00387000 MSG191 DS CL40 00388000 ORG MSG191 00389000 @NM00015 DC AL1(37) 00390000 @NM00016 DC AL1(0) 00391000 @NM00017 DC AL1(0) 00392000 @NM00018 DC CL37'IED191I PIU TRACE CANNOT BE PERFORMED' 00393000 ORG MSG191+40 00394000 MSG199 DS CL69 00395000 ORG MSG199 00396000 @NM00019 DC AL1(66) 00397000 @NM00020 DC AL1(25) 00398000 @NM00021 DC AL1(0) 00399000 @NM00022 DC CL66'IED199I SSCP-PU COMMAND FOR FAILED,C00400000 SENSE= ' 00401000 ORG MSG199+69 00402000 DS CL3 00403000 MSG203 DS CL47 00404000 ORG MSG203 00405000 @NM00023 DC AL1(44) 00406000 @NM00024 DC AL1(9) 00407000 @NM00025 DC AL1(0) 00408000 @NM00026 DC CL44'IED203I ACTIVE - CANNOT BE SWITCHED' 00409000 ORG MSG203+47 00410000 DS CL1 00411000 MSG204 DS CL39 00412000 ORG MSG204 00413000 @NM00027 DC AL1(36) 00414000 @NM00028 DC AL1(9) 00415000 @NM00029 DC AL1(0) 00416000 @NM00030 DC CL36'IED204I 3705 SWITCH ABORTED' 00417000 ORG MSG204+39 00418000 DS CL1 00419000 MSG206 DS CL62 00420000 ORG MSG206 00421000 @NM00031 DC AL1(59) 00422000 @NM00032 DC AL1(9) 00423000 @NM00033 DC AL1(0) 00424000 @NM00034 DC CL59'IED206I CONTROLLING A TP NETWORK--COMMAND C00425000 REJECTED' 00426000 ORG MSG206+62 00427000 DS CL2 00428000 MSG209 DS CL65 00429000 ORG MSG209 00430000 @NM00035 DC AL1(62) 00431000 @NM00036 DC AL1(46) 00432000 @NM00037 DC AL1(0) 00433000 @NM00038 DC CL62'IED209I DEACT,ACTIV,IPL,OR DUMP ACTIVE-ACTIV C00434000 REJECTED' 00435000 ORG MSG209+65 00436000 DS CL3 00437000 MSG376 DS CL86 00438000 ORG MSG376 00439000 @NM00039 DC AL1(83) 00440000 @NM00040 DC AL1(164) 00441000 @NM00041 DC AL1(0) 00442000 @NM00042 DC CL83'IED376I LINE TRACE NOT STARTED FOR , ,-C00443000 COMWRITE STILL USING TRACE AREA' 00444000 ORG MSG376+86 00445000 DS CL2 00446000 ERRORTAB DS CL37 00447000 ORG ERRORTAB 00448000 @NM00043 DC H'161' 00449000 @NM00044 DC AL2(MSG161-BASE) 00450000 @NM00045 DC H'183' 00451000 @NM00046 DC AL2(MSG183-BASE) 00452000 @NM00047 DC H'191' 00453000 @NM00048 DC AL2(MSG191-BASE) 00454000 @NM00049 DC H'199' 00455000 @NM00050 DC AL2(MSG199-BASE) 00456000 @NM00051 DC H'203' 00457000 @NM00052 DC AL2(MSG203-BASE) 00458000 @NM00053 DC H'204' 00459000 @NM00054 DC AL2(MSG204-BASE) 00460000 @NM00055 DC H'206' 00461000 @NM00056 DC AL2(MSG206-BASE) 00462000 @NM00057 DC H'209' 00463000 @NM00058 DC AL2(MSG209-BASE) 00464000 @NM00059 DC H'376' 00465000 @NM00060 DC AL2(MSG376-BASE) 00466000 ERREND DC X'FF' 00467000 ORG ERRORTAB+37 00468000 ZAPAREA DC XL1'0' 00469000 DC XL1'0' 00470000 DC XL1'0' 00471000 DC XL1'0' 00472000 DC XL1'0' 00473000 DC XL1'0' 00474000 DC XL1'0' 00475000 DC XL1'0' 00476000 DC XL1'0' 00477000 DC XL1'0' 00478000 DC XL1'0' 00479000 DC XL1'0' 00480000 DC XL1'0' 00481000 DC XL1'0' 00482000 DC XL1'0' 00483000 DC XL1'0' 00484000 DC XL1'0' 00485000 DC XL1'0' 00486000 DC XL1'0' 00487000 DC XL1'0' 00488000 DC XL1'0' 00489000 DC XL1'0' 00490000 DC XL1'0' 00491000 DC XL1'0' 00492000 DC XL1'0' 00493000 DC XL1'0' 00494000 DC XL1'0' 00495000 DC XL1'0' 00496000 DC XL1'0' 00497000 DC XL1'0' 00498000 DC XL1'0' 00499000 DC XL1'0' 00500000 DC XL1'0' 00501000 DC XL1'0' 00502000 DC XL1'0' 00503000 DC XL1'0' 00504000 DC XL1'0' 00505000 DC XL1'0' 00506000 DC XL1'0' 00507000 DC XL1'0' 00508000 DC XL1'0' 00509000 DC XL1'0' 00510000 DC XL1'0' 00511000 DC XL1'0' 00512000 DC XL1'0' 00513000 DC XL1'0' 00514000 DC XL1'0' 00515000 DC XL1'0' 00516000 DC XL1'0' 00517000 DC XL1'0' 00518000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00519000 @01 EQU 01 00520000 @02 EQU 02 00521000 @03 EQU 03 00522000 @04 EQU 04 00523000 @05 EQU 05 00524000 @06 EQU 06 00525000 @07 EQU 07 00526000 @08 EQU 08 00527000 @09 EQU 09 00528000 @10 EQU 10 00529000 @11 EQU 11 00530000 @12 EQU 12 00531000 @13 EQU 13 00532000 @14 EQU 14 00533000 @15 EQU 15 00534000 @0 EQU 00 00535000 @1 EQU 01 00536000 @2 EQU 02 00537000 @3 EQU 03 00538000 @4 EQU 04 00539000 @5 EQU 05 00540000 @6 EQU 06 00541000 @7 EQU 07 00542000 @8 EQU 08 00543000 @9 EQU 09 00544000 @A EQU 10 00545000 @B EQU 11 00546000 @C EQU 12 00547000 @D EQU 13 00548000 @E EQU 14 00549000 @F EQU 15 00550000 RZERO EQU @00 00551000 RPARM EQU @01 00552000 ROPCAVT EQU @02 00553000 ROPCE EQU @03 00554000 IEDQAPTR EQU @04 00555000 RWORKA EQU @05 00556000 RMSGNO EQU @06 00557000 RMSGPT EQU @07 00558000 RCONVERT EQU @08 00559000 RWORK2 EQU @09 00560000 RPRU EQU @10 00561000 IEDPRUQP EQU @10 00562000 RRETN EQU @11 00563000 RBASE EQU @12 00564000 REG14 EQU @14 00565000 R15 EQU @15 00566000 TABMSG EQU 0 00567000 TABMSGNO EQU TABMSG 00568000 TABEND EQU TABMSGNO 00569000 TABMSGAD EQU TABMSG+2 00570000 MESSAGE EQU 0 00571000 MSGLEN EQU MESSAGE 00572000 MSGOFFST EQU MESSAGE+1 00573000 MSGSTART EQU MESSAGE+3 00574000 WORKAREA EQU 0 00575000 WORLEN EQU WORKAREA 00576000 WORMSGAR EQU WORKAREA+4 00577000 NAMEAREA EQU 0 00578000 NAMFILD EQU NAMEAREA 00579000 NAMRLN EQU NAMEAREA+9 00580000 CHAR1 EQU 0 00581000 WKBYTE1 EQU 0 00582000 MSGNO199 EQU 0 00583000 COMMAND EQU MSGNO199+24 00584000 CMDFID0 EQU COMMAND 00585000 CMDFID11 EQU CMDFID0 00586000 NAME EQU MSGNO199+35 00587000 SENSEMAP EQU MSGNO199+58 00588000 SNSMAPF0 EQU SENSEMAP 00589000 MSG199WA EQU MSGNO199+68 00590000 NUMBER EQU MSG199WA 00591000 DIGITPTR EQU MSG199WA+4 00592000 WKPTR1 EQU MSG199WA+8 00593000 IEDQAVTD EQU 0 00594000 AVTSAVEX EQU IEDQAVTD+288 00595000 @NM00063 EQU IEDQAVTD+388 00596000 AVTCKFLG EQU @NM00063 00597000 AVTBASE EQU IEDQAVTD+412 00598000 AVTPKF EQU AVTBASE 00599000 AVTOSECB EQU IEDQAVTD+492 00600000 AVTECB1 EQU AVTOSECB 00601000 AVTHG02 EQU IEDQAVTD+528 00602000 AVTDISP EQU IEDQAVTD+552 00603000 AVTHD EQU IEDQAVTD+556 00604000 AVTSCOPT EQU AVTHD 00605000 AVTSAVTP EQU IEDQAVTD+612 00606000 AVTSAVTF EQU AVTSAVTP 00607000 AVTCKPEL EQU IEDQAVTD+652 00608000 AVTCKRMV EQU AVTCKPEL 00609000 AVTCKELF EQU IEDQAVTD+680 00610000 AVTCKBYT EQU IEDQAVTD+691 00611000 AVTHG01 EQU IEDQAVTD+692 00612000 AVTCKLNK EQU IEDQAVTD+696 00613000 AVTCRELE EQU IEDQAVTD+708 00614000 AVTCCELE EQU AVTCRELE 00615000 AVTCLRHI EQU IEDQAVTD+716 00616000 AVTADBUF EQU IEDQAVTD+720 00617000 AVTSYSER EQU IEDQAVTD+728 00618000 AVTCKPQB EQU IEDQAVTD+804 00619000 AVTCKPTB EQU AVTCKPQB 00620000 AVTCKPEC EQU AVTCKPQB+4 00621000 AVTCKPCC EQU AVTCKPEC 00622000 AVTOPCQB EQU IEDQAVTD+816 00623000 AVTOPCOB EQU AVTOPCQB 00624000 AVTOPCEC EQU AVTOPCQB+4 00625000 AVTOPCCC EQU AVTOPCEC 00626000 AVTOLTQB EQU IEDQAVTD+828 00627000 AVTCWFL1 EQU IEDQAVTD+924 00628000 AVTCWFL2 EQU IEDQAVTD+925 00629000 AVTSUBT EQU IEDQAVTD+948 00630000 AVTIOTR EQU IEDQAVTD+949 00631000 AVTBIT1 EQU IEDQAVTD+1050 00632000 AVTBIT2 EQU IEDQAVTD+1051 00633000 AVTBIT3 EQU IEDQAVTD+1052 00634000 AVTBIT4 EQU IEDQAVTD+1136 00635000 @NM00145 EQU IEDQAVTD+1232 00636000 IEDNSVTD EQU 0 00637000 SAVTDIAG EQU IEDNSVTD 00638000 SAVTDIAF EQU SAVTDIAG 00639000 SAVTLUSQ EQU IEDNSVTD+88 00640000 SAVTTCPU EQU IEDNSVTD+238 00641000 SAVTZELM EQU IEDNSVTD+270 00642000 SAVTRDRV EQU IEDNSVTD+284 00643000 SAVTCKQB EQU IEDNSVTD+300 00644000 SAVTCKTB EQU SAVTCKQB 00645000 SAVTCKEC EQU SAVTCKQB+4 00646000 SAVTCKCC EQU SAVTCKEC 00647000 IEDQOPCD EQU 0 00648000 OPCDOUBL EQU IEDQOPCD 00649000 OPCAVTPT EQU IEDQOPCD+8 00650000 OPCCOPCE EQU IEDQOPCD+12 00651000 OPCSAVE EQU IEDQOPCD+56 00652000 OPCWORK EQU IEDQOPCD+140 00653000 OPCAQCTL EQU IEDQOPCD+180 00654000 OPCXCTL EQU IEDQOPCD+204 00655000 OPCLDNME EQU IEDQOPCD+212 00656000 OPCSPEC EQU IEDQOPCD+300 00657000 OPCPWCOB EQU IEDQOPCD+368 00658000 OPCPWQCB EQU OPCPWCOB 00659000 OPCPWECB EQU OPCPWCOB+4 00660000 IEDQOPCE EQU 0 00661000 OCELEM EQU IEDQOPCE+4 00662000 OCUNIT EQU IEDQOPCE+8 00663000 OCRUDEST EQU OCUNIT 00664000 OCCKPKEY EQU OCRUDEST 00665000 OCSCAN EQU OCCKPKEY 00666000 OCOPTCDE EQU IEDQOPCE+12 00667000 OCSWITCH EQU IEDQOPCE+13 00668000 OCFLAG EQU IEDQOPCE+14 00669000 OCRLN EQU IEDQOPCE+15 00670000 @NM00182 EQU IEDQOPCE+16 00671000 OCDEST EQU @NM00182 00672000 OCREQVAL EQU OCDEST+1 00673000 OCLINENO EQU IEDQOPCE+22 00674000 OCTIOT EQU OCLINENO 00675000 OCTRUNIT EQU IEDQOPCE+24 00676000 OCRSID EQU OCTRUNIT 00677000 OCALSTAT EQU OCRSID 00678000 OCPARM EQU IEDQOPCE+28 00679000 OCBACKUP EQU IEDQOPCE+32 00680000 OCMODNME EQU IEDQOPCE+40 00681000 OCIPLWA EQU OCMODNME 00682000 OCCKDATA EQU IEDQOPCE+48 00683000 OCRSTGTM EQU OCCKDATA 00684000 IEDQOPCN EQU 0 00685000 OCLDNME EQU IEDQOPCN 00686000 OCLINTTE EQU OCLDNME 00687000 OCREQFLG EQU OCLINTTE+2 00688000 OCPREFLG EQU OCLINTTE+3 00689000 IEDPRUQD EQU 0 00690000 PRUTIC EQU IEDPRUQD+8 00691000 PRUDATA EQU IEDPRUQD+12 00692000 IEDPRUND EQU 0 00693000 PRURHTH EQU IEDPRUND 00694000 PRURH EQU PRURHTH 00695000 PRURHFG0 EQU PRURH 00696000 PRURUCAT EQU PRURHFG0 00697000 PRURHFI EQU PRURHFG0 00698000 PRURHFG1 EQU PRURH+1 00699000 PRURHFG2 EQU PRURH+2 00700000 PRUTH EQU PRURHTH+3 00701000 PRUFIDN EQU PRUTH 00702000 PRUTHTYE EQU PRUFIDN 00703000 FID1RESP EQU PRUDATA 00704000 FID1SNS EQU FID1RESP 00705000 CMMND EQU FID1RESP+4 00706000 CMMND1 EQU CMMND 00707000 FID0RESP EQU PRUDATA 00708000 CMDMOD EQU FID0RESP 00709000 FID0SENS EQU FID0RESP+4 00710000 OPCAQWD EQU OPCAQCTL 00711000 OPCAQWD1 EQU OPCAQWD 00712000 OPCAQWD2 EQU OPCAQWD+4 00713000 OPCAQWD3 EQU OPCAQWD+8 00714000 OCCKPKY1 EQU OCCKPKEY 00715000 OCCKPTYP EQU OCCKPKY1 00716000 OCICACTN EQU OCMODNME 00717000 OCICDADR EQU OCICACTN 00718000 OCICSW EQU OCICDADR+3 00719000 @NM00201 EQU OPCSAVE 00720000 @NM00202 EQU @NM00201 00721000 @NM00203 EQU @NM00201+4 00722000 RLNSWTH EQU @NM00203 00723000 OCCIB EQU OCREQVAL 00724000 * START UNREFERENCED COMPONENTS 00725000 BUFBASE EQU @NM00202+1 00726000 WORKBYTE EQU @NM00202 00727000 OCICINAC EQU OCICSW 00728000 @NM00188 EQU OCICSW 00729000 OCICATST EQU OCICDADR+1 00730000 OCICTYPE EQU OCICDADR 00731000 @NM00187 EQU OCCKPKY1 00732000 OCCKPENV EQU OCCKPKY1 00733000 OCCKPRST EQU OCCKPTYP 00734000 OCCKPNCP EQU OCCKPTYP 00735000 OCCKPINC EQU OCCKPTYP 00736000 OPCAQLST EQU OPCAQWD3+1 00737000 OPCAQRQ3 EQU OPCAQWD3 00738000 OPCAQSEC EQU OPCAQWD2+1 00739000 OPCAQRQ2 EQU OPCAQWD2 00740000 OPCAQFST EQU OPCAQWD1+1 00741000 OPCAQREQ EQU OPCAQWD1 00742000 FLAG EQU FID0RESP+2 00743000 @NM00006 EQU CMMND+1 00744000 @NM00200 EQU IEDPRUND+4 00745000 PRUTHEFI EQU PRUFIDN 00746000 PRUTHUSS EQU PRUFIDN 00747000 PRUTHEIU EQU PRUFIDN 00748000 PRUTHBIU EQU PRUFIDN 00749000 @NM00199 EQU PRURHFG2 00750000 PRURHCSI EQU PRURHFG2 00751000 @NM00198 EQU PRURHFG2 00752000 PRURHCDI EQU PRURHFG2 00753000 PRURHEB EQU PRURHFG2 00754000 PRURHBB EQU PRURHFG2 00755000 PRURHPI EQU PRURHFG1 00756000 @NM00197 EQU PRURHFG1 00757000 PRURHER EQU PRURHFG1 00758000 PRURHDR2 EQU PRURHFG1 00759000 @NM00196 EQU PRURHFG1 00760000 PRURHDR1 EQU PRURHFG1 00761000 PRURHEC EQU PRURHFG0 00762000 PRURHBC EQU PRURHFG0 00763000 PRURHSDI EQU PRURHFG0 00764000 @NM00195 EQU PRURHFG0 00765000 PRURHTYP EQU PRURHFG0 00766000 PRUNUNIT EQU PRUTIC+1 00767000 @NM00194 EQU PRUTIC 00768000 @NM00193 EQU IEDPRUQD+4 00769000 PRUDATCT EQU IEDPRUQD+2 00770000 PRUTTCIN EQU IEDPRUQD 00771000 @NM00192 EQU OCLDNME+4 00772000 @NM00191 EQU OCPREFLG 00773000 OCTOTEP EQU OCPREFLG 00774000 OCREPOST EQU OCPREFLG 00775000 OCRSPSNT EQU OCPREFLG 00776000 OCBFREQ EQU OCPREFLG 00777000 OCIDLE EQU OCREQFLG 00778000 OCFORCE EQU OCREQFLG 00779000 OCDCARD EQU OCREQFLG 00780000 OCPARTAL EQU OCREQFLG 00781000 OCADNCP EQU OCREQFLG 00782000 @NM00190 EQU OCREQFLG 00783000 @NM00189 EQU OCREQFLG 00784000 OCFLUSHZ EQU OCREQFLG 00785000 OCRESPCT EQU OCLINTTE 00786000 OCCKPTWA EQU OCCKDATA+4 00787000 @NM00186 EQU OCRSTGTM+2 00788000 OCCKDAT2 EQU OCRSTGTM+1 00789000 OCCKDAT1 EQU OCRSTGTM 00790000 OCPTRSAV EQU OCMODNME+4 00791000 OCPUADR EQU OCIPLWA+2 00792000 OCWTGSAV EQU OCIPLWA 00793000 OCDVRDCT EQU OCBACKUP+6 00794000 OCNCP EQU OCBACKUP+4 00795000 OCBUFGOT EQU OCBACKUP+2 00796000 OCBUFNED EQU OCBACKUP 00797000 OCWTG EQU IEDQOPCE+30 00798000 OCRESNUM EQU OCPARM 00799000 OCSEQ EQU OCTRUNIT+2 00800000 @NM00185 EQU OCRSID+1 00801000 OCNONE EQU OCALSTAT 00802000 OCSOME EQU OCALSTAT 00803000 OCALLFLG EQU OCALSTAT 00804000 OCACTREQ EQU OCALSTAT 00805000 OCREDRVE EQU OCALSTAT 00806000 OCSEQIND EQU OCALSTAT 00807000 @NM00184 EQU OCALSTAT 00808000 OCRENTRD EQU OCALSTAT 00809000 OCWTGB EQU OCTIOT 00810000 OCTRMTBL EQU IEDQOPCE+20 00811000 @NM00183 EQU @NM00182+2 00812000 OCCONID EQU OCDEST 00813000 OCRESP EQU OCFLAG 00814000 OCATTACH EQU OCFLAG 00815000 OCSSCP EQU OCFLAG 00816000 OCOUTPUT EQU OCFLAG 00817000 OCLINE EQU OCFLAG 00818000 OCMPP EQU OCFLAG 00819000 OCTOTE EQU OCFLAG 00820000 OCCONSOL EQU OCFLAG 00821000 @NM00181 EQU OCSWITCH 00822000 OCQUCKN EQU OCSWITCH 00823000 OCPRIFLG EQU OCOPTCDE 00824000 @NM00180 EQU OCRUDEST+1 00825000 @NM00179 EQU OCSCAN 00826000 OCNOTUCB EQU OCSCAN 00827000 OCNONAME EQU OCSCAN 00828000 OCALLRLN EQU OCSCAN 00829000 OCDDNAME EQU OCSCAN 00830000 OCDDNRLN EQU OCSCAN 00831000 OCADDR EQU OCSCAN 00832000 OCELMPTR EQU OCELEM+1 00833000 OCELMPRI EQU OCELEM 00834000 OCLINK EQU IEDQOPCE 00835000 OPCBOTTM EQU IEDQOPCD+1184 00836000 @NM00178 EQU IEDQOPCD+1100 00837000 @NM00177 EQU IEDQOPCD+948 00838000 @NM00176 EQU IEDQOPCD+940 00839000 @NM00175 EQU IEDQOPCD+380 00840000 @NM00174 EQU OPCPWCOB+9 00841000 @NM00173 EQU OPCPWCOB+8 00842000 @NM00172 EQU OPCPWECB+1 00843000 OPCPWCCC EQU OPCPWECB 00844000 OPCPWCHN EQU OPCPWQCB+1 00845000 OPCPWVTO EQU OPCPWQCB 00846000 OPCWAITV EQU IEDQOPCD+364 00847000 OPCTOTCK EQU IEDQOPCD+360 00848000 OPCAPXTL EQU IEDQOPCD+356 00849000 OPCDECR EQU IEDQOPCD+352 00850000 OPCBUFWT EQU IEDQOPCD+348 00851000 OPCWRKSP EQU IEDQOPCD+320 00852000 OPCADGOT EQU IEDQOPCD+318 00853000 OPCRQCNT EQU IEDQOPCD+316 00854000 OPPOLSTP EQU IEDQOPCD+312 00855000 OPCCKCIB EQU IEDQOPCD+308 00856000 OPCEND EQU IEDQOPCD+307 00857000 OPCSTCBS EQU IEDQOPCD+306 00858000 OPCHNEND EQU IEDQOPCD+302 00859000 OPCOQSW EQU IEDQOPCD+301 00860000 @NM00171 EQU OPCSPEC 00861000 @NM00170 EQU OPCSPEC 00862000 @NM00169 EQU OPCSPEC 00863000 @NM00168 EQU OPCSPEC 00864000 OPCFRMCA EQU OPCSPEC 00865000 OPCRSTRT EQU OPCSPEC 00866000 OPCPART EQU OPCSPEC 00867000 OPCALTD EQU OPCSPEC 00868000 OPCBFEND EQU IEDQOPCD+296 00869000 OPCBFIRS EQU IEDQOPCD+292 00870000 OPCAVBUF EQU IEDQOPCD+290 00871000 OPCIPLCT EQU IEDQOPCD+289 00872000 OPCCLNTS EQU IEDQOPCD+288 00873000 OPCHA8 EQU IEDQOPCD+286 00874000 OPCBFREQ EQU IEDQOPCD+284 00875000 OPCFREBF EQU IEDQOPCD+280 00876000 OPCGETBF EQU IEDQOPCD+276 00877000 OPCNEXT EQU IEDQOPCD+272 00878000 OPCFMDFC EQU IEDQOPCD+268 00879000 OPCSCNC EQU IEDQOPCD+264 00880000 OPCHORTG EQU IEDQOPCD+260 00881000 OPCHORT EQU IEDQOPCD+256 00882000 OPCCKPTL EQU IEDQOPCD+252 00883000 OPCCKPTF EQU IEDQOPCD+248 00884000 OPCWAITA EQU IEDQOPCD+244 00885000 OPCWAITR EQU IEDQOPCD+240 00886000 OPCWAITP EQU IEDQOPCD+236 00887000 OPCWAITO EQU IEDQOPCD+232 00888000 OPCWAITN EQU IEDQOPCD+228 00889000 OPCWAITL EQU IEDQOPCD+224 00890000 OPCWAITC EQU IEDQOPCD+220 00891000 @NM00167 EQU OPCLDNME+5 00892000 OPCMODID EQU OPCLDNME+3 00893000 @NM00166 EQU OPCLDNME 00894000 OPCWAIT EQU IEDQOPCD+192 00895000 OPCCKERB EQU IEDQOPCD+164 00896000 OPCBFERB EQU IEDQOPCD+148 00897000 OPCFLAG2 EQU IEDQOPCD+147 00898000 OPCFLAG1 EQU IEDQOPCD+146 00899000 OPCWRKSZ EQU IEDQOPCD+144 00900000 OPCRSAVE EQU IEDQOPCD+132 00901000 OPCQCBAD EQU IEDQOPCD+128 00902000 OPCTRMWA EQU IEDQOPCD+52 00903000 OPCPSTWT EQU IEDQOPCD+48 00904000 OPCTNTEA EQU IEDQOPCD+44 00905000 OPCPGCK EQU IEDQOPCD+40 00906000 OPCLCB EQU IEDQOPCD+36 00907000 @NM00165 EQU IEDQOPCD+32 00908000 OPCIPLAD EQU IEDQOPCD+28 00909000 OPCTOFLK EQU IEDQOPCD+24 00910000 OPCOPTLK EQU IEDQOPCD+20 00911000 OPCDCBLK EQU IEDQOPCD+16 00912000 SAVTBITN EQU IEDNSVTD+312 00913000 @NM00164 EQU SAVTCKQB+8 00914000 @NM00163 EQU SAVTCKEC+1 00915000 @NM00162 EQU SAVTCKCC 00916000 SAVTCKPO EQU SAVTCKCC 00917000 SAVTCKWA EQU SAVTCKCC 00918000 SAVTCKCH EQU SAVTCKTB+1 00919000 SAVTCKVT EQU SAVTCKTB 00920000 @NM00161 EQU IEDNSVTD+297 00921000 SAVTRDFG EQU SAVTRDRV+12 00922000 @NM00160 EQU SAVTRDRV+5 00923000 SAVTRDPY EQU SAVTRDRV+4 00924000 SAVTRDQB EQU SAVTRDRV+1 00925000 SAVTRDKY EQU SAVTRDRV 00926000 SAVTNID EQU IEDNSVTD+280 00927000 SAVTDVAS EQU IEDNSVTD+276 00928000 SAVTPLSZ EQU IEDNSVTD+274 00929000 @NM00159 EQU IEDNSVTD+273 00930000 SAVTSUBL EQU IEDNSVTD+272 00931000 @NM00158 EQU SAVTZELM+1 00932000 SAVTSUBM EQU SAVTZELM 00933000 SAVTMHDX EQU IEDNSVTD+268 00934000 SAVTNAT1 EQU IEDNSVTD+266 00935000 SAVTSH20 EQU IEDNSVTD+264 00936000 SAVTLCBS EQU IEDNSVTD+260 00937000 SAVTRNMP EQU IEDNSVTD+256 00938000 SAVTTNTX EQU IEDNSVTD+252 00939000 SAVTNAX EQU IEDNSVTD+248 00940000 SAVTSUBV EQU IEDNSVTD+247 00941000 SAVTSUBA EQU IEDNSVTD+246 00942000 SAVTSIBC EQU IEDNSVTD+244 00943000 SAVTBSM EQU IEDNSVTD+240 00944000 SAVTSCPT EQU SAVTTCPU 00945000 SAVTRQTG EQU IEDNSVTD+236 00946000 SAVTRQCH EQU IEDNSVTD+232 00947000 SAVTMAND EQU IEDNSVTD+228 00948000 SAVTSPLN EQU IEDNSVTD+224 00949000 SAVTNADL EQU IEDNSVTD+222 00950000 SAVTNATL EQU IEDNSVTD+220 00951000 SAVTMHTB EQU IEDNSVTD+216 00952000 SAVTSSMH EQU IEDNSVTD+212 00953000 SAVTQRS EQU IEDNSVTD+208 00954000 SAVTRQIN EQU IEDNSVTD+204 00955000 SAVTDFCO EQU IEDNSVTD+200 00956000 SAVTSAO EQU IEDNSVTD+196 00957000 SAVTSARI EQU IEDNSVTD+192 00958000 SAVTSAC EQU IEDNSVTD+188 00959000 SAVTSAI EQU IEDNSVTD+184 00960000 SAVTCSCI EQU IEDNSVTD+180 00961000 SAVTSSRP EQU IEDNSVTD+176 00962000 SAVTSSRQ EQU IEDNSVTD+172 00963000 SAVTSCLU EQU IEDNSVTD+168 00964000 SAVTXTRQ EQU IEDNSVTD+164 00965000 SAVTMVBF EQU IEDNSVTD+160 00966000 @NM00157 EQU IEDNSVTD+148 00967000 SAVTIPCQ EQU IEDNSVTD+144 00968000 @NM00156 EQU IEDNSVTD+136 00969000 SAVTXFMI EQU IEDNSVTD+132 00970000 @NM00155 EQU IEDNSVTD+124 00971000 SAVTXFMO EQU IEDNSVTD+120 00972000 @NM00154 EQU IEDNSVTD+116 00973000 SAVTSSSR EQU IEDNSVTD+112 00974000 SAVTSCPQ EQU IEDNSVTD+108 00975000 SAVTSLCB EQU IEDNSVTD+104 00976000 SAVTLUSR EQU IEDNSVTD+100 00977000 @NM00153 EQU SAVTLUSQ+8 00978000 SAVTLUSP EQU SAVTLUSQ+4 00979000 SAVTLUSB EQU SAVTLUSQ 00980000 @NM00152 EQU IEDNSVTD+84 00981000 SAVTSAT EQU IEDNSVTD+80 00982000 SAVTNAT EQU IEDNSVTD+76 00983000 SAVTCLUP EQU IEDNSVTD+72 00984000 SAVTPIUT EQU IEDNSVTD+68 00985000 SAVTRNTA EQU IEDNSVTD+64 00986000 SAVTDNIR EQU IEDNSVTD+60 00987000 SAVTCNIR EQU IEDNSVTD+56 00988000 SAVTFLDH EQU IEDNSVTD+52 00989000 SAVTSRTN EQU IEDNSVTD+48 00990000 SAVTSREQ EQU IEDNSVTD+44 00991000 SAVTFAIL EQU IEDNSVTD+42 00992000 SAVTSUSE EQU IEDNSVTD+40 00993000 SAVTSIB EQU IEDNSVTD+36 00994000 SAVTPRTN EQU IEDNSVTD+32 00995000 @NM00151 EQU IEDNSVTD+28 00996000 SAVTWH20 EQU IEDNSVTD+26 00997000 SAVTPWT EQU IEDNSVTD+24 00998000 SAVTPRTQ EQU IEDNSVTD+20 00999000 SAVTPREQ EQU IEDNSVTD+16 01000000 SAVTPH20 EQU IEDNSVTD+14 01001000 SAVTPUSE EQU IEDNSVTD+12 01002000 SAVTPLCB EQU IEDNSVTD+8 01003000 SAVTPOOL EQU IEDNSVTD+4 01004000 SAVTPRMT EQU SAVTDIAF 01005000 SAVTVIRT EQU SAVTDIAF 01006000 AVTCPBNO EQU IEDQAVTD+1244 01007000 AVTHRESS EQU IEDQAVTD+1243 01008000 @NM00150 EQU IEDQAVTD+1242 01009000 @NM00149 EQU IEDQAVTD+1241 01010000 @NM00148 EQU IEDQAVTD+1240 01011000 @NM00147 EQU IEDQAVTD+1237 01012000 @NM00146 EQU IEDQAVTD+1236 01013000 AVTHRESE EQU @NM00145 01014000 AVTRADDR EQU IEDQAVTD+1228 01015000 AVTNADDR EQU IEDQAVTD+1224 01016000 AVTHRESN EQU IEDQAVTD+1220 01017000 AVTVOLRN EQU IEDQAVTD+1216 01018000 AVTTOTNN EQU IEDQAVTD+1212 01019000 AVTTRCYN EQU IEDQAVTD+1208 01020000 AVTRCTRN EQU IEDQAVTD+1204 01021000 AVTNOVON EQU IEDQAVTD+1200 01022000 AVTADEBN EQU IEDQAVTD+1196 01023000 AVTVOLRR EQU IEDQAVTD+1192 01024000 AVTTOTNR EQU IEDQAVTD+1188 01025000 AVTTRCYR EQU IEDQAVTD+1184 01026000 AVTRCTRR EQU IEDQAVTD+1180 01027000 AVTNOVOR EQU IEDQAVTD+1176 01028000 AVTADEBR EQU IEDQAVTD+1172 01029000 AVTLODPT EQU IEDQAVTD+1168 01030000 AVTIOBN EQU IEDQAVTD+1164 01031000 AVTIOBR EQU IEDQAVTD+1160 01032000 AVTCPBPT EQU IEDQAVTD+1156 01033000 AVTFCPB EQU IEDQAVTD+1152 01034000 @NM00144 EQU IEDQAVTD+1148 01035000 AVTINCPQ EQU IEDQAVTD+1144 01036000 @NM00143 EQU IEDQAVTD+1140 01037000 @NM00142 EQU IEDQAVTD+1137 01038000 @NM00141 EQU AVTBIT4 01039000 @NM00140 EQU AVTBIT4 01040000 @NM00139 EQU AVTBIT4 01041000 @NM00138 EQU AVTBIT4 01042000 @NM00137 EQU AVTBIT4 01043000 @NM00136 EQU AVTBIT4 01044000 @NM00135 EQU AVTBIT4 01045000 AVTRUFTN EQU AVTBIT4 01046000 @NM00134 EQU IEDQAVTD+1132 01047000 AVTNOBFQ EQU IEDQAVTD+1128 01048000 @NM00133 EQU IEDQAVTD+1124 01049000 AVTDKENQ EQU IEDQAVTD+1120 01050000 @NM00132 EQU IEDQAVTD+1116 01051000 AVTDKAPQ EQU IEDQAVTD+1112 01052000 AVTCOPY EQU IEDQAVTD+1108 01053000 AVTIA EQU IEDQAVTD+1104 01054000 AVTFL EQU IEDQAVTD+1100 01055000 @NM00131 EQU IEDQAVTD+1096 01056000 AVTNCPBQ EQU IEDQAVTD+1092 01057000 AVTTOTNC EQU IEDQAVTD+1088 01058000 AVTCMAX EQU IEDQAVTD+1084 01059000 AVTCMIN EQU IEDQAVTD+1080 01060000 AVTHM02 EQU IEDQAVTD+1076 01061000 AVTOPCIN EQU IEDQAVTD+1074 01062000 AVTDCTLN EQU IEDQAVTD+1072 01063000 AVTOPMSK EQU IEDQAVTD+1068 01064000 AVTDDFT EQU IEDQAVTD+1064 01065000 AVTSTEAL EQU IEDQAVTD+1060 01066000 AVTOPTN EQU IEDQAVTD+1056 01067000 AVTDSKCT EQU IEDQAVTD+1054 01068000 AVTCKRST EQU IEDQAVTD+1053 01069000 AVTSTAN EQU AVTBIT3 01070000 AVTSTACN EQU AVTBIT3 01071000 AVTSTAIN EQU AVTBIT3 01072000 AVTSTAYN EQU AVTBIT3 01073000 AVTOLTBN EQU AVTBIT3 01074000 AVTTSAB EQU AVTBIT3 01075000 AVTRFULN EQU AVTBIT3 01076000 AVTRECVN EQU AVTBIT3 01077000 @NM00130 EQU AVTBIT2 01078000 @NM00129 EQU AVTBIT2 01079000 AVTOPEIN EQU AVTBIT2 01080000 AVTSTRTN EQU AVTBIT2 01081000 AVTTOPOL EQU AVTBIT2 01082000 AVTCOPYN EQU AVTBIT2 01083000 AVTREUSN EQU AVTBIT2 01084000 AVTEXTSC EQU AVTBIT2 01085000 AVTDISKN EQU AVTBIT1 01086000 AVTQUCKN EQU AVTBIT1 01087000 AVTCLOSN EQU AVTBIT1 01088000 AVTREADN EQU AVTBIT1 01089000 AVTDLAYN EQU AVTBIT1 01090000 AVTAQTAN EQU AVTBIT1 01091000 AVTTSON EQU AVTBIT1 01092000 AVTAPLKN EQU AVTBIT1 01093000 AVTDUMBR EQU IEDQAVTD+1048 01094000 AVTDLQX EQU IEDQAVTD+1046 01095000 AVTINTLV EQU IEDQAVTD+1044 01096000 AVTSMCNT EQU IEDQAVTD+1042 01097000 AVTAVFCT EQU IEDQAVTD+1040 01098000 AVTOPCON EQU IEDQAVTD+1038 01099000 AVTOPCNT EQU IEDQAVTD+1036 01100000 AVTLNCNT EQU IEDQAVTD+1034 01101000 AVTKEYLE EQU IEDQAVTD+1032 01102000 AVTHA16 EQU IEDQAVTD+1030 01103000 AVTHA7 EQU IEDQAVTD+1028 01104000 AVTHA4 EQU IEDQAVTD+1026 01105000 AVTHA3 EQU IEDQAVTD+1024 01106000 AVTHA2 EQU IEDQAVTD+1022 01107000 AVTGETMS EQU IEDQAVTD+1021 01108000 @NM00128 EQU IEDQAVTD+1020 01109000 AVTGETMD EQU IEDQAVTD+1016 01110000 AVTGETMN EQU IEDQAVTD+1012 01111000 AVTCWTOT EQU IEDQAVTD+1008 01112000 AVTCWINT EQU IEDQAVTD+956 01113000 AVTDTRAP EQU IEDQAVTD+952 01114000 @NM00127 EQU IEDQAVTD+950 01115000 @NM00126 EQU AVTIOTR 01116000 AVTIOTRH EQU AVTIOTR 01117000 AVTIOTRE EQU AVTIOTR 01118000 @NM00125 EQU AVTSUBT 01119000 AVTSUBPT EQU AVTSUBT 01120000 AVTSUBON EQU AVTSUBT 01121000 AVTAFE30 EQU IEDQAVTD+944 01122000 AVTAFE20 EQU IEDQAVTD+940 01123000 AVTAFE10 EQU IEDQAVTD+936 01124000 AVTCWEC2 EQU IEDQAVTD+932 01125000 AVTCWPM2 EQU IEDQAVTD+928 01126000 AVTCWTS2 EQU IEDQAVTD+927 01127000 AVTCWTS1 EQU IEDQAVTD+926 01128000 AVTCWCLD EQU AVTCWFL2 01129000 AVTCWRAP EQU AVTCWFL2 01130000 @NM00124 EQU AVTCWFL2 01131000 @NM00123 EQU AVTCWFL2 01132000 @NM00122 EQU AVTCWFL2 01133000 @NM00121 EQU AVTCWFL2 01134000 @NM00120 EQU AVTCWFL2 01135000 AVTCWACT EQU AVTCWFL2 01136000 @NM00119 EQU AVTCWFL1 01137000 @NM00118 EQU AVTCWFL1 01138000 @NM00117 EQU AVTCWFL1 01139000 @NM00116 EQU AVTCWFL1 01140000 @NM00115 EQU AVTCWFL1 01141000 @NM00114 EQU AVTCWFL1 01142000 @NM00113 EQU AVTCWFL1 01143000 AVTCOMWN EQU AVTCWFL1 01144000 AVTCWEC1 EQU IEDQAVTD+920 01145000 AVTCWPM1 EQU IEDQAVTD+916 01146000 AVTCAREA EQU IEDQAVTD+912 01147000 AVTFZERO EQU IEDQAVTD+908 01148000 AVTCADDR EQU IEDQAVTD+904 01149000 AVTCOREC EQU IEDQAVTD+900 01150000 @NM00112 EQU IEDQAVTD+892 01151000 AVTCPBCB EQU IEDQAVTD+888 01152000 @NM00111 EQU IEDQAVTD+880 01153000 AVTDSIOB EQU IEDQAVTD+876 01154000 @NM00110 EQU IEDQAVTD+868 01155000 AVTCPRMB EQU IEDQAVTD+864 01156000 @NM00109 EQU IEDQAVTD+856 01157000 AVTCLOSB EQU IEDQAVTD+852 01158000 @NM00108 EQU IEDQAVTD+844 01159000 AVTACTIB EQU IEDQAVTD+840 01160000 @NM00107 EQU IEDQAVTD+836 01161000 AVTOLTEB EQU IEDQAVTD+832 01162000 AVTOLTCH EQU AVTOLTQB+1 01163000 AVTOLTVT EQU AVTOLTQB 01164000 @NM00106 EQU AVTOPCQB+8 01165000 @NM00105 EQU AVTOPCEC+1 01166000 @NM00104 EQU AVTOPCCC 01167000 AVTOPCPO EQU AVTOPCCC 01168000 AVTOPCWA EQU AVTOPCCC 01169000 AVTOPCCH EQU AVTOPCOB+1 01170000 AVTOPCVT EQU AVTOPCOB 01171000 @NM00103 EQU AVTCKPQB+9 01172000 AVTCKPTS EQU AVTCKPQB+8 01173000 @NM00102 EQU AVTCKPEC+1 01174000 @NM00101 EQU AVTCKPCC 01175000 AVTCKPPO EQU AVTCKPCC 01176000 AVTCKPWA EQU AVTCKPCC 01177000 AVTCKPCH EQU AVTCKPTB+1 01178000 AVTCKPVT EQU AVTCKPTB 01179000 @NM00100 EQU IEDQAVTD+796 01180000 AVTBFRTB EQU IEDQAVTD+792 01181000 @NM00099 EQU IEDQAVTD+784 01182000 AVTBFREB EQU IEDQAVTD+780 01183000 AVTTIMQ EQU IEDQAVTD+776 01184000 @NM00098 EQU IEDQAVTD+772 01185000 AVTIMQPS EQU IEDQAVTD+768 01186000 AVTINOUT EQU IEDQAVTD+766 01187000 AVTREFTM EQU IEDQAVTD+764 01188000 @NM00097 EQU IEDQAVTD+752 01189000 AVTDELYB EQU IEDQAVTD+748 01190000 AVTOCQPT EQU IEDQAVTD+744 01191000 AVTTSOPT EQU IEDQAVTD+740 01192000 AVTSUPPT EQU IEDQAVTD+736 01193000 AVTCBQCB EQU IEDQAVTD+732 01194000 AVTMSGS EQU IEDQAVTD+729 01195000 @NM00096 EQU AVTSYSER 01196000 @NM00095 EQU AVTSYSER 01197000 @NM00094 EQU AVTSYSER 01198000 @NM00093 EQU AVTSYSER 01199000 @NM00092 EQU AVTSYSER 01200000 @NM00091 EQU AVTSYSER 01201000 AVTCMAXN EQU AVTSYSER 01202000 AVTCMINN EQU AVTSYSER 01203000 AVT2260L EQU IEDQAVTD+724 01204000 AVTABEPL EQU AVTADBUF 01205000 AVTHFF EQU AVTCLRHI+2 01206000 @NM00090 EQU AVTCLRHI 01207000 AVTCCLNK EQU AVTCRELE+5 01208000 AVTCCPRI EQU AVTCRELE+4 01209000 AVTCCQCB EQU AVTCCELE+1 01210000 AVTCCKEY EQU AVTCCELE 01211000 AVTDELAD EQU IEDQAVTD+704 01212000 AVTDELEM EQU IEDQAVTD+700 01213000 AVTBSX EQU AVTCKLNK 01214000 AVTOPETR EQU AVTHG01 01215000 @NM00089 EQU AVTCKBYT 01216000 AVTCKONQ EQU AVTCKBYT 01217000 @NM00088 EQU AVTCKBYT 01218000 @NM00087 EQU AVTCKBYT 01219000 @NM00086 EQU AVTCKBYT 01220000 @NM00085 EQU AVTCKBYT 01221000 @NM00084 EQU AVTCKBYT 01222000 @NM00083 EQU AVTCKBYT 01223000 AVTOPERT EQU IEDQAVTD+690 01224000 AVTOPXCL EQU IEDQAVTD+688 01225000 AVTOPERL EQU IEDQAVTD+687 01226000 @NM00082 EQU IEDQAVTD+686 01227000 AVTCKTIM EQU IEDQAVTD+684 01228000 AVTCKELV EQU IEDQAVTD+682 01229000 AVTCPRCD EQU IEDQAVTD+681 01230000 AVTWARMN EQU AVTCKELF 01231000 AVTCRTLN EQU AVTCKELF 01232000 AVTCPIPN EQU AVTCKELF 01233000 AVTCCLCN EQU AVTCKELF 01234000 AVTCINCN EQU AVTCKELF 01235000 @NM00081 EQU AVTCKELF 01236000 AVTCMCPN EQU AVTCKELF 01237000 AVTNQBCK EQU AVTCKELF 01238000 AVTCKQAD EQU IEDQAVTD+677 01239000 AVTSCBSZ EQU IEDQAVTD+676 01240000 @NM00080 EQU IEDQAVTD+672 01241000 AVTCKELE EQU IEDQAVTD+668 01242000 @NM00079 EQU AVTCKPEL+8 01243000 AVTCKRLK EQU AVTCKPEL+5 01244000 AVTCKRPR EQU AVTCKPEL+4 01245000 AVTCKRMQ EQU AVTCKRMV+1 01246000 AVTCKRKY EQU AVTCKRMV 01247000 AVTHK EQU IEDQAVTD+648 01248000 AVTHI EQU IEDQAVTD+644 01249000 AVTIOT EQU IEDQAVTD+640 01250000 AVTNX EQU IEDQAVTD+636 01251000 AVTTONE EQU IEDQAVTD+632 01252000 AVTA3TL EQU IEDQAVTD+628 01253000 AVTDMECB EQU IEDQAVTD+624 01254000 AVTABEND EQU IEDQAVTD+618 01255000 AVTPLCBN EQU IEDQAVTD+616 01256000 @NM00078 EQU AVTSAVTP+1 01257000 @NM00077 EQU AVTSAVTF 01258000 AVTSNA EQU AVTSAVTF 01259000 AVTONSNA EQU AVTSAVTF 01260000 AVTVTMCP EQU AVTSAVTF 01261000 @NM00076 EQU IEDQAVTD+608 01262000 AVTCMBSS EQU IEDQAVTD+604 01263000 AVTRCV EQU IEDQAVTD+600 01264000 AVTSEND EQU IEDQAVTD+596 01265000 AVTCSCH EQU IEDQAVTD+592 01266000 AVTQ1 EQU IEDQAVTD+588 01267000 AVTE7 EQU IEDQAVTD+584 01268000 AVTHB EQU IEDQAVTD+580 01269000 AVTR1 EQU IEDQAVTD+576 01270000 AVTBZ EQU IEDQAVTD+572 01271000 AVTEZ EQU IEDQAVTD+568 01272000 AVTEC EQU IEDQAVTD+564 01273000 AVTEW EQU IEDQAVTD+560 01274000 AVTNDIAL EQU AVTSCOPT 01275000 AVTN2741 EQU AVTSCOPT 01276000 AVTCONCO EQU AVTSCOPT 01277000 AVTCONC EQU AVTSCOPT 01278000 AVTCMBUF EQU AVTSCOPT 01279000 AVTAPDMP EQU AVTSCOPT 01280000 @NM00075 EQU AVTSCOPT 01281000 AVTHA EQU AVTDISP 01282000 AVTEA EQU IEDQAVTD+548 01283000 AVTAX EQU IEDQAVTD+544 01284000 AVTA3 EQU IEDQAVTD+540 01285000 AVTGD EQU IEDQAVTD+536 01286000 AVTAL EQU IEDQAVTD+532 01287000 AVTOLTST EQU AVTHG02 01288000 AVTE8 EQU IEDQAVTD+524 01289000 AVTUI EQU IEDQAVTD+520 01290000 AVTCOMPT EQU IEDQAVTD+516 01291000 AVTCRSRF EQU IEDQAVTD+512 01292000 @NM00074 EQU IEDQAVTD+508 01293000 AVTKA02 EQU IEDQAVTD+504 01294000 AVTOPTPT EQU IEDQAVTD+500 01295000 AVTPCBPT EQU IEDQAVTD+496 01296000 @NM00073 EQU AVTECB1 01297000 AVTCOMP EQU AVTECB1 01298000 @NM00072 EQU AVTECB1 01299000 AVTOPECA EQU IEDQAVTD+488 01300000 AVTOLECA EQU IEDQAVTD+484 01301000 AVTCKECA EQU IEDQAVTD+480 01302000 AVTCWECA EQU IEDQAVTD+476 01303000 AVTCWTCB EQU IEDQAVTD+472 01304000 AVTOLTCB EQU IEDQAVTD+468 01305000 AVTOCTCB EQU IEDQAVTD+464 01306000 AVTCKTCB EQU IEDQAVTD+460 01307000 AVTAS EQU IEDQAVTD+456 01308000 AVTNOLBF EQU IEDQAVTD+454 01309000 AVTNCKPR EQU IEDQAVTD+453 01310000 AVTCIB EQU IEDQAVTD+452 01311000 AVTSPLPT EQU IEDQAVTD+448 01312000 AVTMVBFR EQU IEDQAVTD+444 01313000 AVTSBTA EQU IEDQAVTD+440 01314000 AVTRARTN EQU IEDQAVTD+436 01315000 AVTBSCAN EQU IEDQAVTD+432 01316000 AVTRDYA EQU IEDQAVTD+428 01317000 AVTRNMPT EQU IEDQAVTD+424 01318000 AVTDISTR EQU IEDQAVTD+420 01319000 AVTPARM3 EQU IEDQAVTD+416 01320000 @NM00071 EQU AVTPKF 01321000 @NM00070 EQU AVTPKF 01322000 @NM00069 EQU AVTPKF 01323000 AVTFTCHF EQU AVTPKF 01324000 @NM00068 EQU AVTPKF 01325000 @NM00067 EQU AVTPKF 01326000 @NM00066 EQU AVTPKF 01327000 @NM00065 EQU AVTPKF 01328000 AVTPARM EQU IEDQAVTD+408 01329000 AVTEXS2A EQU IEDQAVTD+402 01330000 AVTEXA2S EQU IEDQAVTD+396 01331000 AVTOCGET EQU IEDQAVTD+392 01332000 AVTCKAVT EQU @NM00063+1 01333000 @NM00064 EQU AVTCKFLG 01334000 AVTCKHLT EQU AVTCKFLG 01335000 AVTCKREQ EQU AVTCKFLG 01336000 AVTCKENV EQU AVTCKFLG 01337000 AVTCKNAC EQU AVTCKFLG 01338000 AVTCKTAC EQU AVTCKFLG 01339000 @NM00062 EQU IEDQAVTD+384 01340000 AVTREADD EQU IEDQAVTD+380 01341000 AVTREADY EQU IEDQAVTD+376 01342000 AVTRACE EQU IEDQAVTD+372 01343000 AVTTCB EQU IEDQAVTD+368 01344000 AVTPASWD EQU IEDQAVTD+360 01345000 AVTCTLCH EQU IEDQAVTD+352 01346000 AVTDOUBL EQU IEDQAVTD+344 01347000 AVTDOUBX EQU IEDQAVTD+336 01348000 AVTDPARM EQU IEDQAVTD+332 01349000 AVTCSTCS EQU IEDQAVTD+328 01350000 AVTDLQ EQU AVTSAVEX+32 01351000 @NM00061 EQU AVTSAVEX 01352000 AVTSAVE4 EQU IEDQAVTD+216 01353000 AVTSAVE3 EQU IEDQAVTD+144 01354000 AVTSAVE2 EQU IEDQAVTD+72 01355000 AVTSAVE1 EQU IEDQAVTD 01356000 @NM00005 EQU SENSEMAP+4 01357000 EQUALSGN EQU MSGNO199+57 01358000 FILLER4 EQU MSGNO199+52 01359000 BLANK4 EQU MSGNO199+51 01360000 COMMA1 EQU MSGNO199+50 01361000 FILLER3 EQU MSGNO199+44 01362000 BLANK3A EQU MSGNO199+43 01363000 BLANK3 EQU MSGNO199+34 01364000 FILLER2 EQU MSGNO199+31 01365000 BLANK2 EQU MSGNO199+30 01366000 @NM00004 EQU COMMAND+4 01367000 @NM00003 EQU CMDFID0+2 01368000 BLANK1 EQU MSGNO199+23 01369000 FILLER1 EQU MSGNO199 01370000 NAMCOMMA EQU NAMEAREA+8 01371000 MSGMOD EQU WORMSGAR+24 01372000 @NM00002 EQU WORMSGAR 01373000 @NM00001 EQU WORKAREA+2 01374000 MSGOFF2 EQU MESSAGE+2 01375000 * END UNREFERENCED COMPONENTS 01376000 @RC00191 EQU @RC00189 01377000 @RC00240 EQU @RC00189 01378000 @PB00002 EQU @EL00001 01379000 @RC00243 EQU @RC00240 01380000 @EL01 EQU @EL00001 01381000 @ENDDATA EQU * 01382000 @DATEND EQU * 01383000 END IGC0E10D,(C'PLS2249',0701,77120) 01384000