TITLE 'IGCDD10D - DISPLAY LINE INACTIVE ROUTINE *00001000 ' 00002000 IGCDD10D CSECT , 0001 00003000 @PROLOG BALR @12,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@12 0001 00006000 IGCDD10D IEDHJN SKIP /* MODULE IDENTIFIER & DATE */ 00007000 * ROCVT=RPARM; /* OP CONTROL AVT ADDRESS */ 00008000 LR ROCVT,RPARM 0249 00009000 * RDATAREG=ADDR(FREEAREA); /* @YM06499*/ 00010000 L RDATAREG,OPCWORK(,ROCVT) 0250 00011000 LA RDATAREG,FREEAREA(,RDATAREG) 0250 00012000 * GEN(USING @DATD,RDATAREG); /* @YM06499*/ 00013000 USING @DATD,RDATAREG 00014000 * ROCEL=OPCCOPCE; /* OP CONTROL ELEMENT */ 00015000 L ROCEL,OPCCOPCE(,ROCVT) 0252 00016000 * MSGNO(1)='40'X; /* CLEAR MSG AREA ... SA67103*/ 00017000 L @15,OPCWORK(,ROCVT) 0253 00018000 MVI MSGNO(@15),X'40' 0253 00019000 * MSGNO(2:125)=MSGNO(1:124); /* .. TO BLNKS SA67103*/ 00020000 MVC MSGNO+1(124,@15),MSGNO(@15) 0254 00021000 * MSGNO=IED388; /* INSERT MSG NO. SA67103*/ 00022000 MVC MSGNO(17,@15),IED388 0255 00023000 * GRPNM=GRPNMSAV; /* PREVIOUS GRP NAME SA67103*/ 00024000 MVC GRPNM(8,@15),GRPNMSAV(@15) 0256 00025000 * ZEROES=0; /* SET FIELD TO ZERO SA67103*/ 00026000 SLR @14,@14 0257 00027000 STH @14,ZEROES(,@15) 0257 00028000 * GENERATE; 0258 00029000 SR RPARM,RPARM /* CLEAR REGISTER */ 00030000 IC RPARM,OCSWITCH(ROCEL) /* PICK UP INDEX TO ROUTINE */ 00031000 L RWORK,OPCWORK(ROCVT) /* OP CNTRL WORKAREA */ 00032000 LM RWORK,RWRK3,REGSAVE(RWORK) /* RESTORE REGISTERS */ 00033000 B BTABLE(RPARM) /* GO TO PROPER ROUTINE */ 00034000 BTABLE B BEGIN /* FIRST ENTRY ROUTINE */ 00035000 B LCBRETRN /* LCB SCAN RETURN */ 00036000 B DEBCHNU /* DEB SCAN RETURN @YM06499*/ 00037000 B LINRETRN /* LINE SCAN RETURN */ 00038000 B LGBRETRN /* LGB SCAN RTRN @Y17XARX*/ 00039000 *BEGIN: 0259 00040000 * RDEB=TCBDEB; /* FIRST DEB ADDRESS */ 00041000 BEGIN L @01,OPCAVTPT(,ROCVT) 0259 00042000 L @01,AVTTCB(,@01) 0259 00043000 L RDEB,TCBDEB-1(,@01) 0259 00044000 LA RDEB,0(,RDEB) 0259 00045000 * IF RDEB=0 /* ARE THERE NO DEBS */ 00046000 * THEN /* YES, */ 00047000 LTR RDEB,RDEB 0260 00048000 BZ @RT00260 0260 00049000 * GO TO ERROR2; /* GO WRITE ERROR MESSAGE */ 00050000 *DEBCHN: 0262 00051000 * IF RDEB=0 /* IS DEB CHAIN EXHAUSTED */ 00052000 * THEN /* YES, */ 00053000 DEBCHN LTR RDEB,RDEB 0262 00054000 BZ @RT00262 0262 00055000 * GO TO CKPRNT; /* GO CHECK FOR MSG TO WRITE */ 00056000 * RDEB=RDEB-36; /* DEB PREFIX ADDRESS */ 00057000 SL RDEB,@CF01437 0264 00058000 * RDCB=DEBDCBAD; /* DCB ADDRESS FROM DEB */ 00059000 L RDCB,DEBDCBAD-1(,RDEB) 0265 00060000 LA RDCB,0(,RDCB) 0265 00061000 * IF DCBDSGTX='0'B& /* IS THIS NOT A TCAM 270X & */ 00062000 * DCBDSGTR='0'B| /* IS THIS NOT A TCAM 3705 | */ 00063000 * DCBOFOPN='0'B /* IS THE DCB NOT OPEN */ 00064000 * THEN /* YES, */ 00065000 TM DCBDSGTX(RDCB),B'01000100' 0266 00066000 BZ @RT00266 0266 00067000 TM DCBOFOPN(RDCB),B'00010000' 0266 00068000 BNZ @RF00266 0266 00069000 @RT00266 DS 0H 0267 00070000 * DO; /* */ 00071000 *DEBCHNU: 0268 00072000 * RDEB=DEBDEBAD; /* NEXT DEB ADDRESS @Y17XARX*/ 00073000 DEBCHNU L @15,DEBDEBAD-1(,RDEB) 0268 00074000 LA @15,0(,@15) 0268 00075000 LR RDEB,@15 0268 00076000 * GO TO DEBCHN; /* GO PROCESS THIS DEB */ 00077000 B DEBCHN 0269 00078000 * END; /* */ 00079000 * RLCB=DCBIOBAD+DCBEIOBX-32; /* FIRST LCB ADDRESS */ 00080000 @RF00266 SLR RLCB,RLCB 0271 00081000 IC RLCB,DCBEIOBX(,RDCB) 0271 00082000 AL RLCB,DCBIOBAD(,RDCB) 0271 00083000 SL RLCB,@CF00448 0271 00084000 * IF DCBDSGTR='1'B /* IS THIS A TCAM 3705 */ 00085000 * THEN /* YES, */ 00086000 TM DCBDSGTR(RDCB),B'00000100' 0272 00087000 BO @RT00272 0272 00088000 * GO TO DCB3705; /* GO PROCESS 3705 DCB */ 00089000 *DCB270X: 0274 00090000 * RWORK=TCBTIOT+DCBTIOT; /* DDNAME ADDRESS */ 00091000 DCB270X L @01,OPCAVTPT(,ROCVT) 0274 00092000 L @01,AVTTCB(,@01) 0274 00093000 LH RWORK,DCBTIOT(,RDCB) 0274 00094000 AL RWORK,TCBTIOT(,@01) 0274 00095000 * GRPNM=RWORK->DDNAME; /* PUT DDNAME IN MSG */ 00096000 L @01,OPCWORK(,ROCVT) 0275 00097000 MVC GRPNM(8,@01),DDNAME(RWORK) 0275 00098000 * RWORK=1; /* SET UP FOR LCB CHECK */ 00099000 LA RWORK,1 0276 00100000 * OCRLN=1; 0277 00101000 MVI OCRLN(ROCEL),X'01' 0277 00102000 *LCBLOOP: 0278 00103000 * IF LCBRECVN='1'B| /* IS LCB RECEIVING | */ 00104000 * LCBSENDN='1'B| /* IS LCB SENDING OR @OS77009*/ 00105000 * LCBFREEN='1'B /* IS LCB FREE @OS77009*/ 00106000 * THEN /* YES, */ 00107000 LCBLOOP TM LCBRECVN(RLCB),B'00000111' 0278 00108000 BZ @RF00278 0278 00109000 * IF OCRLN=DEBNMEXT /* IS THIS LAST LCB */ 00110000 * THEN /* YES, */ 00111000 CLC OCRLN(1,ROCEL),DEBNMEXT(RDEB) 0279 00112000 BE @RT00279 0279 00113000 * GO TO CKPRNT8; /* GO CHECK PRINT REQUEST */ 00114000 * ELSE /* NO, */ 00115000 * DO; /* */ 00116000 *LCBLOOPU: 0282 00117000 * RLCB=RLCB+DCBEIOBX; /* NEXT LCB ADDRESS */ 00118000 LCBLOOPU SLR @15,@15 0282 00119000 IC @15,DCBEIOBX(,RDCB) 0282 00120000 ALR RLCB,@15 0282 00121000 * OCRLN=OCRLN+1; /* UPDATE REL LINE NUMBER */ 00122000 LA @15,1 0283 00123000 SLR @14,@14 0283 00124000 IC @14,OCRLN(,ROCEL) 0283 00125000 ALR @15,@14 0283 00126000 STC @15,OCRLN(,ROCEL) 0283 00127000 * GO TO LCBLOOP; /* GO PROCESS NEXT LCB */ 00128000 B LCBLOOP 0284 00129000 * END; /* */ 00130000 * CALL RLNCONV; /* CONVERT RLN TO EBCDIC ADDRESS 00131000 * OF UCB ADDRESS */ 00132000 @RF00278 BAL @14,RLNCONV 0286 00133000 * RUCB=DEBUCBAD(OCRLN); /* INDEX INTO UCB ADDRS BY RLN 0287 00134000 * @YM08556*/ 00135000 SLR @15,@15 0287 00136000 IC @15,OCRLN(,ROCEL) 0287 00137000 SLA @15,2 0287 00138000 L RUCB,DEBUCBAD-5(@15,RDEB) 0287 00139000 LA RUCB,0(,RUCB) 0287 00140000 * RLN(RWORK)=OPCDOUBL; /* PUT RLN IN MESSAGE */ 00141000 LR @15,RWORK 0288 00142000 MH @15,@CH01932 0288 00143000 L @14,OPCWORK(,ROCVT) 0288 00144000 ST @15,@TF00001 0288 00145000 ALR @15,@14 0288 00146000 MVC RLN-14(3,@15),OPCDOUBL(ROCVT) 0288 00147000 * IF RUCB=0 /* IS THIS DUMMY ENTRY */ 00148000 * THEN /* YES, */ 00149000 LTR RUCB,RUCB 0289 00150000 BZ @RT00289 0289 00151000 * GO TO LCBRETRN; /* GO CHECK NEXT LCB */ 00152000 * ADR(RWORK)=UCBNAME; /* PUT ADDRESS IN MESSAGE */ 00153000 AL @14,@TF00001 0291 00154000 MVI ADR-11(@14),C' ' 0291 00155000 MVC ADR-10(4,@14),ADR-11(@14) 0291 00156000 MVC ADR-14(3,@14),UCBNAME(RUCB) 0291 00157000 * PRNTRQ='1'B; /* INDICATE MSG TO PRINT */ 00158000 OI PRNTRQ(ROCEL),B'10000000' 0292 00159000 * RWORK=RWORK+1; /* UPDATE POSITION INDEX */ 00160000 LA RWORK,1(,RWORK) 0293 00161000 * IF RWORK>7 /* IS MSG COMPLETE? SA67103*/ 00162000 * THEN /* YES, */ 00163000 C RWORK,@CF00155 0294 00164000 BNH @RF00294 0294 00165000 * DO; /* */ 00166000 * BRNDX=4; /* SET RETURN FROM PRINT */ 00167000 MVI BRNDX(ROCEL),X'04' 0296 00168000 * GO TO PRINT; /* GO WRITE OUT MESSAGE */ 00169000 B PRINT 0297 00170000 * END; /* */ 00171000 *LCBRETRN: 0299 00172000 * IF OCRLN=DEBNMEXT /* IS THIS LAST LCB */ 00173000 * THEN /* YES, */ 00174000 @RF00294 DS 0H 0299 00175000 LCBRETRN CLC OCRLN(1,ROCEL),DEBNMEXT(RDEB) 0299 00176000 BNE @RF00299 0299 00177000 *CKPRNT8: 0300 00178000 * IF PRNTRQ='1'B /* IS THERE A MSG TO PRINT */ 00179000 * THEN /* YES, */ 00180000 CKPRNT8 TM PRNTRQ(ROCEL),B'10000000' 0300 00181000 BNO @RF00300 0300 00182000 * DO; /* */ 00183000 * BRNDX=8; /* SET RETURN FROM PRINT */ 00184000 MVI BRNDX(ROCEL),X'08' 0302 00185000 * GO TO PRINT; /* GO WRITE OUT MESSAGE */ 00186000 B PRINT 0303 00187000 * END; /* */ 00188000 * ELSE /* NO, */ 00189000 * GO TO DEBCHNU; /* GO PROCESS NEXT DEB */ 00190000 * ELSE /* NO, */ 00191000 * GO TO LCBLOOPU; /* GO PROCESS NEXT LCB */ 00192000 *CKPRNT: 0307 00193000 * IF OCSWITCH='00'X /* WERE ANY LINES INACTIVE */ 00194000 * THEN /* NO, */ 00195000 CKPRNT CLI OCSWITCH(ROCEL),X'00' 0307 00196000 BE @RT00307 0307 00197000 * GO TO ERROR1; /* GO WRITE ERROR MESSAGE */ 00198000 * ELSE /* YES, */ 00199000 * DO; 0309 00200000 * OCWTG=OCWTG&&OCWTG; /* INDICATE NO RETURN */ 00201000 XC OCWTG(2,ROCEL),OCWTG(ROCEL) 0310 00202000 * MSGLEN=0; /* NO MESSAGE TO OUTPUT */ 00203000 L @01,OPCWORK(,ROCVT) 0311 00204000 SLR @00,@00 0311 00205000 STH @00,MSGLEN(,@01) 0311 00206000 * GO TO EXIT; 0312 00207000 B EXIT 0312 00208000 * END; 0313 00209000 *DCB3705: 0314 00210000 * RWORK=1; /* SET UP FOR LOOPING @Y17XARX*/ 00211000 DCB3705 LA RWORK,1 0314 00212000 * RPARM=LCBTTCIN; /* GET NCP TTE PTR @Y17XARX*/ 00213000 LH RPARM,LCBTTCIN(,RLCB) 0315 00214000 N RPARM,@CF02026 0315 00215000 * CALL TNTLOOK; /* @Y17XARX*/ 00216000 BAL @14,TNTLOOK 0316 00217000 * IF TRMSUBST^=0 /* IF NCP HAS RESOURCES @Y17XARX*/ 00218000 * THEN /* @Y17XARX*/ 00219000 LR @01,RTRM 0317 00220000 BCTR @01,0 0317 00221000 BCTR @01,0 0317 00222000 LH @15,TRMSUBST-12(,@01) 0317 00223000 N @15,@CF02026 0317 00224000 LTR @15,@15 0317 00225000 BZ @RF00317 0317 00226000 * DO; /* @Y17XARX*/ 00227000 * RPARM=TRMSUBST; /* GET TTE OF FIRST RESOURCES 0319 00228000 * @Y17XARX*/ 00229000 LR RPARM,@15 0319 00230000 * CALL TNTLOOK; /* @Y17XARX*/ 00231000 BAL @14,TNTLOOK 0320 00232000 *LGBLOOP: /* @Y17XARX*/ 00233000 * DO WHILE TRMTYPE^=TRMLNCP; /* IS TTE NON-NCP @Y17XARX*/ 00234000 LGBLOOP B @DE00321 0321 00235000 @DL00321 DS 0H 0322 00236000 * IF TRMTYPE=TRMSDLC|TRMTYPE=TRMNSDLC/* @Y17XARX*/ 00237000 * THEN /* IS TTE A LINE @Y17XARX*/ 00238000 LR @15,RTRM 0322 00239000 SL @15,@CF01932 0322 00240000 CLI TRMTYPE(@15),X'21' 0322 00241000 BE @RT00322 0322 00242000 CLI TRMTYPE(@15),X'20' 0322 00243000 BNE @RF00322 0322 00244000 @RT00322 DS 0H 0323 00245000 * IF TRMRSACT='0'B /* IS LINE NOT ACTIVE @Y17XARX*/ 00246000 * THEN /* @Y17XARX*/ 00247000 LR @01,RTRM 0323 00248000 AL @01,@CF02027 0323 00249000 TM TRMRSACT-2(@01),B'10000000' 0323 00250000 BNZ @RF00323 0323 00251000 * DO; /* @Y17XARX*/ 00252000 * LINEAD=RTRM; /* SAVE LINE TTE PTR @Y17XARX*/ 00253000 L @15,OPCWORK(,ROCVT) 0325 00254000 ST RTRM,LINEAD(,@15) 0325 00255000 * RLGB=QCBLGBA; /* GET LGB PTR @Y17XARX*/ 00256000 L @01,TRMDEST(,RTRM) 0326 00257000 L RLGB,QCBLGBA(,@01) 0326 00258000 * IF RWORK=1 THEN /* FIRST SUBMSG @Y17XARX*/ 00259000 C RWORK,@CF00064 0327 00260000 BNE @RF00327 0327 00261000 * GRPNM=LGBNAME; /* YES, SET GRP NAME @Y17XARX*/ 00262000 MVC GRPNM(8,@15),LGBNAME(RLGB) 0328 00263000 * ELSE /* NO @Y17XARX*/ 00264000 * IF GRPNM^=LGBNAME THEN/* GROUP DIFFERS @Y17XARX*/ 00265000 B @RC00327 0329 00266000 @RF00327 L @01,OPCWORK(,ROCVT) 0329 00267000 CLC GRPNM(8,@01),LGBNAME(RLGB) 0329 00268000 BE @RF00329 0329 00269000 * DO; /* YES @Y17XARX*/ 00270000 * BRNDX=16; /* PRINT PARTIAL MSG @Y17XARX*/ 00271000 MVI BRNDX(ROCEL),X'10' 0331 00272000 * GO TO PRINT; /* @Y17XARX*/ 00273000 B PRINT 0332 00274000 * END; /* @Y17XARX*/ 00275000 * OCRLN=QCBRELLN; /* SAVE RELATIVE LINE NUMBER */ 00276000 @RF00329 DS 0H 0334 00277000 @RC00327 L @01,TRMDEST(,RTRM) 0334 00278000 IC @00,QCBRELLN(,@01) 0334 00279000 STC @00,OCRLN(,ROCEL) 0334 00280000 * CALL RLNCONV; /* CONVERT RLN TO EBCDIC */ 00281000 BAL @14,RLNCONV 0335 00282000 * RLN(RWORK)=OPCDOUBL;/* PUT RLN IN MESSAGE */ 00283000 LR @15,RWORK 0336 00284000 MH @15,@CH01932 0336 00285000 L @14,OPCWORK(,ROCVT) 0336 00286000 ST @15,@TF00001 0336 00287000 ALR @15,@14 0336 00288000 MVC RLN-14(3,@15),OPCDOUBL(ROCVT) 0336 00289000 * ADR(RWORK)=NAME; /* PUT LINENAME IN MESSAGE */ 00290000 LR @15,@14 0337 00291000 AL @15,@TF00001 0337 00292000 MVC ADR-14(8,@15),NAME(@14) 0337 00293000 * PRNTRQ='1'B; /* INDICATE MSG TO PRINT */ 00294000 OI PRNTRQ(ROCEL),B'10000000' 0338 00295000 * RWORK=RWORK+1; /* UPDATE POSITION INDEX */ 00296000 LA RWORK,1(,RWORK) 0339 00297000 * IF RWORK>7 /* IS MSG COMPLETE? SA67103*/ 00298000 * THEN /* YES, */ 00299000 C RWORK,@CF00155 0340 00300000 BNH @RF00340 0340 00301000 * DO; /* */ 00302000 * BRNDX=12; /* SET RETURN FROM PRINT */ 00303000 MVI BRNDX(ROCEL),X'0C' 0342 00304000 * GO TO PRINT; /* GO WRITE OUT MESSAGE */ 00305000 B PRINT 0343 00306000 * END; 0344 00307000 *LINRETRN: 0345 00308000 * RTRM=LINEAD; /* RESTORE LINE TTE PTR @Y17XARX*/ 00309000 @RF00340 DS 0H 0345 00310000 LINRETRN L @01,OPCWORK(,ROCVT) 0345 00311000 L RTRM,LINEAD(,@01) 0345 00312000 * END; /* @Y17XARX*/ 00313000 * RPARM=TRMCOHRT; /* GET NEXT TTE VIA COHORT 0347 00314000 * @Y17XARX*/ 00315000 @RF00323 DS 0H 0347 00316000 @RF00322 LR @15,RTRM 0347 00317000 AL @15,@CF02028 0347 00318000 LH RPARM,TRMCOHRT-4(,@15) 0347 00319000 N RPARM,@CF02026 0347 00320000 * CALL TNTLOOK; /* @Y17XARX*/ 00321000 BAL @14,TNTLOOK 0348 00322000 * END; /* @Y17XARX*/ 00323000 @DE00321 LR @01,RTRM 0349 00324000 AL @01,@CF01899 0349 00325000 CLI TRMTYPE-11(@01),X'0F' 0349 00326000 BNE @DL00321 0349 00327000 * IF PRNTRQ='1'B THEN 0350 00328000 TM PRNTRQ(ROCEL),B'10000000' 0350 00329000 BNO @RF00350 0350 00330000 * DO; /* @YM06499*/ 00331000 * BRNDX=8; /* @YM06499*/ 00332000 MVI BRNDX(ROCEL),X'08' 0352 00333000 * GOTO PRINT; /* @YM06499*/ 00334000 B PRINT 0353 00335000 * END; /* @YM06499*/ 00336000 * END; /* @Y17XARX*/ 00337000 * GO TO DEBCHNU; /* GET NEXT DEB @Y17XARX*/ 00338000 B DEBCHNU 0356 00339000 *LGBRETRN: /* @Y17XARX*/ 00340000 * RTRM=LINEAD; /* RESTORE LINE ADDR @Y17XARX*/ 00341000 LGBRETRN L @01,OPCWORK(,ROCVT) 0357 00342000 L RTRM,LINEAD(,@01) 0357 00343000 * GO TO LGBLOOP; /* CONTINUE LOOPING @Y17XARX*/ 00344000 B LGBLOOP 0358 00345000 *ERROR1: 0359 00346000 * RZERO=389; /* SET MESSAGE NUMBER */ 00347000 ERROR1 LA RZERO,389 0359 00348000 * GO TO ERREXIT; /* WRITE ERROR MESSAGE */ 00349000 B ERREXIT 0360 00350000 *ERROR2: 0361 00351000 * RZERO=390; /* SET MESSAGE NUMBER */ 00352000 ERROR2 LA RZERO,390 0361 00353000 *ERREXIT: 0362 00354000 * OPCLDNME(4:5)=ERRMSG; /* MODULE ID */ 00355000 ERREXIT MVC OPCLDNME+3(2,ROCVT),ERRMSG 0362 00356000 * GO TO XCTL; /* GO TO NEXT MODULE */ 00357000 B XCTL 0363 00358000 *PRINT: 0364 00359000 * GRPNMSAV=GRPNM; /* SAVE GROUP NAME SA67103*/ 00360000 PRINT L @15,OPCWORK(,ROCVT) 0364 00361000 MVC GRPNMSAV(8,@15),GRPNM(@15) 0364 00362000 * RWORK=RWORK*14+13; /* MESSAGE LENGTH */ 00363000 LR @14,RWORK 0365 00364000 MH @14,@CH01932 0365 00365000 LA @14,13(,@14) 0365 00366000 LR RWORK,@14 0365 00367000 * IF OCCONSOL='0'B& /* IS MESSAGE TO TERMINAL */ 00368000 * OCWTG=THISMOD /* AND IS THIS NOT FIRST PART */ 00369000 * THEN /* YES, */ 00370000 TM OCCONSOL(ROCEL),B'10000000' 0366 00371000 BNZ @RF00366 0366 00372000 CLC OCWTG(2,ROCEL),THISMOD 0366 00373000 BNE @RF00366 0366 00374000 * DO; 0367 00375000 * RWORK=RWORK-8; /* REDUCE FOR MESSAGE NUMBER 0368 00376000 * OVERLAY MESSAGE NUMBER */ 00377000 SL RWORK,@CF00062 0368 00378000 * MSGTXT1(1:124)=MSGTXT2(1:124); 0369 00379000 MVC MSGTXT1(124,@15),MSGTXT2(@15) 0369 00380000 * END; 0370 00381000 * MSGLEN=RWORK; /* SET MESSAGE LENGTH */ 00382000 @RF00366 L @01,OPCWORK(,ROCVT) 0371 00383000 STH RWORK,MSGLEN(,@01) 0371 00384000 * OCWTG=THISMOD; /* SET RETURN MODULE ID */ 00385000 MVC OCWTG(2,ROCEL),THISMOD 0372 00386000 * RWORK=1; /* RESET MESSAGE INDEX */ 00387000 LA RWORK,1 0373 00388000 * GENERATE; 0374 00389000 L RPARM,OPCWORK(ROCVT) /* OP CNTRL WORKAREA */ 00390000 STM RWORK,RWRK3,REGSAVE(RPARM) /* SAVE REGISTERS */ 00391000 *EXIT: 0375 00392000 * OPCLDNME(4:5)=WRTMSG; /* MODULE ID */ 00393000 EXIT MVC OPCLDNME+3(2,ROCVT),WRTMSG 0375 00394000 *XCTL: 0376 00395000 * RPARM=ROCVT; /* RESTORE REGISTER 1 */ 00396000 XCTL LR RPARM,ROCVT 0376 00397000 * GENERATE; 0377 00398000 XCTL SF=(E,OPCXCTL(ROCVT)) /* TRANSFER CONTROL */ 00399000 *RLNCONV: 0378 00400000 * GENERATE; 0378 00401000 RLNCONV DS 0H 0378 00402000 SR RPARM,RPARM /* CLEAR REGISTER */ 00403000 IC RPARM,OCRLN(ROCEL) /* GET REL INE NUMBER */ 00404000 CVD RPARM,OPCDOUBL(ROCVT) /* CONVERT RLN TO DECIMAL */ 00405000 UNPK OPCDOUBL(3,ROCVT),OPCDOUBL+6(2,ROCVT) /* UNPACK */ 00406000 OI OPCDOUBL+2(ROCVT),FOX0 /* CHANGE SIGN TO PRINTABLE */ 00407000 FOX0 EQU X'F0' 00408000 * RETURN; 0379 00409000 @EL00001 DS 0H 0379 00410000 @EF00001 DS 0H 0379 00411000 @ER00001 BR @14 0379 00412000 *TNTLOOK: 0380 00413000 * PROC OPTIONS(NOSAVEAREA,NOSAVE);/* @Y17XARX*/ 00414000 TNTLOOK DS 0H 0381 00415000 * RESPECIFY 0381 00416000 * (RWRK2, 0381 00417000 * RWRKA, 0381 00418000 * ROCVT, 0381 00419000 * RPARM, 0381 00420000 * RTRM, 0381 00421000 * ROCEL, 0381 00422000 * RWORK, 0381 00423000 * RDCB, 0381 00424000 * RDEB, 0381 00425000 * RLCB, 0381 00426000 * RLGB, 0381 00427000 * RUCB, 0381 00428000 * RWRK3, 0381 00429000 * RDATAREG) RSTD; /* @YM06499*/ 00430000 * RWRK2=RRETN; /* SAVE RETURN POINT @Y17XARX*/ 00431000 LR RWRK2,RRETN 0382 00432000 * RWRKA=ADDR(OPCSAVE); /* SET SAVE AREA PTR @Y17XARX*/ 00433000 LA RWRKA,OPCSAVE(,ROCVT) 0383 00434000 * CALL TNTENTAD; /* GET TNT ENTRY @Y17XARX*/ 00435000 L @15,OPCTNTEA(,ROCVT) 0384 00436000 BALR @14,@15 0384 00437000 * NAME=RPARM->ENTRNAME(1:TNTENLEN);/* SAVE NAME @Y17XARX*/ 00438000 L @15,OPCWORK(,ROCVT) 0385 00439000 MVI NAME+1(@15),C' ' 0385 00440000 MVC NAME+2(6,@15),NAME+1(@15) 0385 00441000 L @14,OPCAVTPT(,ROCVT) 0385 00442000 L @14,AVTRNMPT(,@14) 0385 00443000 SLR @11,@11 0385 00444000 IC @11,TNTENLEN(,@14) 0385 00445000 LR @10,@11 0385 00446000 BCTR @10,0 0385 00447000 EX @10,@SM02029 0385 00448000 * RPARM=RPARM+TNTENLEN; /* BUMP PTR TO ADDR @Y17XARX*/ 00449000 ALR RPARM,@11 0386 00450000 * RTRM=RPARM->PTR24; /* GET TTE ADDR @YM06163*/ 00451000 LR @15,RPARM 0387 00452000 BCTR @15,0 0387 00453000 L RTRM,PTR24(,@15) 0387 00454000 LA RTRM,0(,RTRM) 0387 00455000 * RRETN=RWRK2; /* RESTORE RETURN POINT @Y17XARX*/ 00456000 LR RRETN,RWRK2 0388 00457000 * RETURN; /* @Y17XARX*/ 00458000 @EL00002 DS 0H 0389 00459000 @EF00002 DS 0H 0389 00460000 @ER00002 BR @14 0389 00461000 * RESPECIFY 0390 00462000 * (RWRKA, 0390 00463000 * RPARM) UNRSTD; /* @Y17XARX*/ 00464000 * END; /* @Y17XARX*/ 00465000 * END IGCDD10D 0392 00466000 * 0392 00467000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00468000 */*%INCLUDE SYSLIB (TLCBD ) */ 00469000 */*%INCLUDE SYSLIB (TLGBD ) */ 00470000 */*%INCLUDE SYSLIB (TTRMD ) */ 00471000 */*%INCLUDE SYSLIB (TQCBD ) */ 00472000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00473000 */*%INCLUDE SYSLIB (TAVTD ) */ 00474000 */*%INCLUDE SYSLIB (TDEBD ) */ 00475000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00476000 */*%INCLUDE SYSLIB (IHADCB ) */ 00477000 */*%INCLUDE SYSLIB (TOPCED ) */ 00478000 */*%INCLUDE SYSLIB (TTNTD ) */ 00479000 * 0392 00480000 * ; 0392 00481000 @DATA DS 0H 00482000 @SM02029 MVC NAME(0,@15),ENTRNAME(RPARM) 00483000 @DATD DSECT 00484000 DS 0F 00485000 @TF00001 DS F 00486000 @ZTEMPS DS C 00487000 @ZTEMPND EQU * 00488000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00489000 @TEMPS EQU @ZTEMPS 00490000 @L EQU @ZLEN 00491000 IGCDD10D CSECT 00492000 DS 0F 00493000 @CF00064 DC F'1' 00494000 @CF00155 DC F'7' 00495000 @CF00062 DC F'8' 00496000 @CF01932 DC F'14' 00497000 @CH01932 EQU @CF01932+2 00498000 @CF00448 DC F'32' 00499000 @CF01437 DC F'36' 00500000 @CF02027 DC F'-12' 00501000 @CF02028 DC F'-10' 00502000 @CF01899 DC F'-3' 00503000 @CF02026 DC XL4'0000FFFF' 00504000 @DATD DSECT 00505000 DS 0D 00506000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00507000 @ENDDATD EQU * 00508000 @DATEND EQU * 00509000 IGCDD10D CSECT 00510000 DS 0F 00511000 @SIZDATD DC AL1(0) 00512000 DC AL3(@ENDDATD-@DATD) 00513000 @SIZ001 EQU @SIZDATD 00514000 DS 0D 00515000 IED388 DC CL17'IED388I INACTIVE=' 00516000 ERRMSG DC CL2'03' 00517000 WRTMSG DC CL2'07' 00518000 THISMOD DC CL2'DD' 00519000 ZAPAREA DC 50X'00' 00520000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00521000 @01 EQU 01 00522000 @02 EQU 02 00523000 @03 EQU 03 00524000 @04 EQU 04 00525000 @05 EQU 05 00526000 @06 EQU 06 00527000 @07 EQU 07 00528000 @08 EQU 08 00529000 @09 EQU 09 00530000 @10 EQU 10 00531000 @11 EQU 11 00532000 @12 EQU 12 00533000 @13 EQU 13 00534000 @14 EQU 14 00535000 @15 EQU 15 00536000 @0 EQU 00 00537000 @1 EQU 01 00538000 @2 EQU 02 00539000 @3 EQU 03 00540000 @4 EQU 04 00541000 @5 EQU 05 00542000 @6 EQU 06 00543000 @7 EQU 07 00544000 @8 EQU 08 00545000 @9 EQU 09 00546000 @A EQU 10 00547000 @B EQU 11 00548000 @C EQU 12 00549000 @D EQU 13 00550000 @E EQU 14 00551000 @F EQU 15 00552000 RZERO EQU @00 00553000 RPARM EQU @01 00554000 ROCVT EQU @02 00555000 RDATAREG EQU @03 00556000 ROCEL EQU @04 00557000 RWORK EQU @05 00558000 RDCB EQU @06 00559000 RWRK2 EQU @06 00560000 RDEB EQU @07 00561000 RLCB EQU @08 00562000 RLGB EQU @08 00563000 RUCB EQU @09 00564000 RTRM EQU @09 00565000 RWRK3 EQU @09 00566000 RWRKA EQU @13 00567000 RRETN EQU @14 00568000 LCBXPTR EQU @05 00569000 IEDQQPTR EQU 0 00570000 ROPCAVT EQU 0 00571000 IEDQAPTR EQU 0 00572000 IEDQDPTR EQU 0 00573000 DCBPTR EQU 0 00574000 ROPCE EQU 0 00575000 IEDQTPTR EQU 0 00576000 IEDQLPTR EQU 0 00577000 IEDQNPTR EQU 0 00578000 IEDNLPTR EQU 0 00579000 IEDQLCB EQU 0 00580000 LCBRCB EQU IEDQLCB 00581000 LCBTSOB EQU IEDQLCB+19 00582000 LCBCHAIN EQU IEDQLCB+20 00583000 LCBSCRNN EQU LCBCHAIN 00584000 LCBTETEN EQU LCBCHAIN 00585000 LCBINSRC EQU IEDQLCB+21 00586000 LCBLKMDE EQU LCBINSRC+2 00587000 LCBNTXT EQU IEDQLCB+24 00588000 LCBSTAT4 EQU LCBNTXT 00589000 LCBPHASE EQU LCBSTAT4 00590000 LCBSCBDA EQU IEDQLCB+25 00591000 LCBMHA EQU IEDQLCB+29 00592000 LCBFLAG1 EQU IEDQLCB+32 00593000 LCBIOBSN EQU IEDQLCB+33 00594000 LCBSENS0 EQU LCBIOBSN+1 00595000 LCBLOSDT EQU LCBSENS0 00596000 LCBTMOUT EQU LCBSENS0 00597000 LCBFLAG3 EQU LCBIOBSN+7 00598000 LCBCSW EQU LCBIOBSN+8 00599000 LCBCSWST EQU LCBCSW+3 00600000 LCBCSWUS EQU LCBCSWST 00601000 LCBCSWCS EQU LCBCSWST+1 00602000 LCBSIOCC EQU LCBIOBSN+15 00603000 LCBDCBPT EQU IEDQLCB+52 00604000 LCBRCQCB EQU IEDQLCB+56 00605000 LCBTHSQ EQU IEDQLCB+60 00606000 LCBINCAM EQU LCBTHSQ 00607000 LCBERRCT EQU IEDQLCB+62 00608000 LCBLSPCI EQU IEDQLCB+65 00609000 LCBRCBFR EQU LCBLSPCI 00610000 LCBSTATE EQU IEDQLCB+70 00611000 LCBSTAT1 EQU LCBSTATE 00612000 LCBFREEN EQU LCBSTAT1 00613000 LCBRECVN EQU LCBSTAT1 00614000 LCBSENDN EQU LCBSTAT1 00615000 LCBSTAT2 EQU LCBSTATE+1 00616000 LCBBEOTN EQU LCBSTAT2 00617000 LCBSYNC EQU LCBSTAT2 00618000 LCBDIAL EQU LCBSTAT2 00619000 LCBTSTSW EQU IEDQLCB+72 00620000 LCBERB EQU IEDQLCB+76 00621000 LCBERBST EQU IEDQLCB+84 00622000 LCBDLNKN EQU LCBERBST 00623000 LCBERBCT EQU IEDQLCB+88 00624000 LCBRBCT2 EQU LCBERBCT+1 00625000 LCBTTCIN EQU IEDQLCB+90 00626000 LCBMSGFM EQU IEDQLCB+92 00627000 LCBOBRCH EQU IEDQLCB+96 00628000 LCBINVPT EQU LCBOBRCH+1 00629000 LCBBFRW EQU LCBINVPT 00630000 LCBTPCD EQU IEDQLCB+100 00631000 LCBSTAT5 EQU LCBTPCD 00632000 LCBSTAT6 EQU LCBTPCD+4 00633000 LCBRSPSV EQU LCBTPCD+8 00634000 LCBSAVSN EQU IEDQLCB+112 00635000 LCBERCCW EQU IEDQLCB+120 00636000 LCBCPA EQU IEDQLCB+144 00637000 IEDQLCBX EQU 0 00638000 LCBXCON EQU IEDQLCBX 00639000 LCBXFLAG EQU LCBXCON 00640000 LCBXDCT EQU LCBXCON+1 00641000 LCBXRADR EQU LCBXCON+4 00642000 IEDNLGB EQU 0 00643000 LGBBUFOU EQU IEDNLGB+20 00644000 LGBPCI EQU IEDNLGB+25 00645000 LGBBYTE EQU IEDNLGB+29 00646000 LGBNAME EQU IEDNLGB+40 00647000 LGBOFLGS EQU IEDNLGB+48 00648000 LGBRESER EQU IEDNLGB+56 00649000 IEDQTRM EQU 0 00650000 TRMSTATE EQU IEDQTRM 00651000 TRMLOG EQU TRMSTATE 00652000 TRMDESTQ EQU IEDQTRM+1 00653000 TRMINSEQ EQU IEDQTRM+4 00654000 TLISTCNT EQU TRMINSEQ 00655000 TRMOUTSQ EQU IEDQTRM+6 00656000 TLISTEN EQU TRMOUTSQ 00657000 TRMDSORG EQU TLISTEN 00658000 TRMALTD EQU IEDQTRM+8 00659000 TRMDEVFL EQU IEDQTRM+10 00660000 TRMSTAT EQU IEDQTRM+12 00661000 IEDNTRM EQU 0 00662000 TRMBYTE4 EQU IEDNTRM 00663000 TRMBYTE3 EQU IEDNTRM+1 00664000 TRMBYTE2 EQU IEDNTRM+2 00665000 TRMRSACT EQU TRMBYTE2 00666000 TRMINPG EQU TRMBYTE2 00667000 TRMBYTE1 EQU IEDNTRM+3 00668000 TRMSCPRQ EQU TRMBYTE1 00669000 TRMCOHRT EQU IEDNTRM+4 00670000 TRMBYTE0 EQU IEDNTRM+6 00671000 TRMSIBPT EQU IEDNTRM+7 00672000 TRMTYPE EQU IEDNTRM+11 00673000 TRMSUBST EQU IEDNTRM+12 00674000 IEDQQCB EQU 0 00675000 QCBDSFLG EQU IEDQQCB 00676000 QCBDISK EQU QCBDSFLG 00677000 QCBEOLDT EQU IEDQQCB+16 00678000 QCBBYTE1 EQU QCBEOLDT+1 00679000 QCBLKRLN EQU IEDQQCB+18 00680000 QCBRETCT EQU QCBLKRLN 00681000 QCBSTAT EQU IEDQQCB+19 00682000 QCBINSRC EQU IEDQQCB+21 00683000 @NM00065 EQU QCBINSRC 00684000 QCBTSOF2 EQU @NM00065+1 00685000 QCBTSOF1 EQU @NM00065+2 00686000 QCBINTVL EQU IEDQQCB+24 00687000 QCBPREN EQU IEDQQCB+28 00688000 QCBLKRRN EQU QCBPREN+1 00689000 QCBRELLN EQU IEDQQCB+32 00690000 QCBDCBAD EQU IEDQQCB+33 00691000 QCBLGBAD EQU QCBDCBAD 00692000 QCBFLAG EQU IEDQQCB+36 00693000 IEDQPQCB EQU 40 00694000 QCBFHDLZ EQU IEDQPQCB+3 00695000 QCBPFEFO EQU QCBFHDLZ+1 00696000 QCBFHDTZ EQU IEDQPQCB+6 00697000 QCBINTLF EQU IEDQPQCB+12 00698000 IEDNQCB EQU 0 00699000 QCBSTAT1 EQU IEDNQCB+4 00700000 QCBPLCBA EQU IEDNQCB+5 00701000 IEDQOPCD EQU 0 00702000 OPCDOUBL EQU IEDQOPCD 00703000 OPCAVTPT EQU IEDQOPCD+8 00704000 OPCCOPCE EQU IEDQOPCD+12 00705000 OPCTNTEA EQU IEDQOPCD+44 00706000 OPCSAVE EQU IEDQOPCD+56 00707000 OPCWORK EQU IEDQOPCD+140 00708000 OPCAQCTL EQU IEDQOPCD+180 00709000 OPCLDNME EQU IEDQOPCD+212 00710000 OPCHORTG EQU IEDQOPCD+260 00711000 OPCSPEC EQU IEDQOPCD+300 00712000 OPCPWCOB EQU IEDQOPCD+368 00713000 OPCPWQCB EQU OPCPWCOB 00714000 OPCPWECB EQU OPCPWCOB+4 00715000 IEDQAVTD EQU 0 00716000 AVTSAVEX EQU IEDQAVTD+288 00717000 AVTTCB EQU IEDQAVTD+368 00718000 @NM00086 EQU IEDQAVTD+388 00719000 AVTCKFLG EQU @NM00086 00720000 AVTBASE EQU IEDQAVTD+412 00721000 AVTPKF EQU AVTBASE 00722000 AVTRNMPT EQU IEDQAVTD+424 00723000 AVTHG02 EQU IEDQAVTD+528 00724000 AVTDISP EQU IEDQAVTD+552 00725000 AVTHD EQU IEDQAVTD+556 00726000 AVTSCOPT EQU AVTHD 00727000 AVTSAVTP EQU IEDQAVTD+612 00728000 AVTSAVTF EQU AVTSAVTP 00729000 AVTCKPEL EQU IEDQAVTD+652 00730000 AVTCKRMV EQU AVTCKPEL 00731000 AVTCKELF EQU IEDQAVTD+680 00732000 AVTCKBYT EQU IEDQAVTD+691 00733000 AVTHG01 EQU IEDQAVTD+692 00734000 AVTCKLNK EQU IEDQAVTD+696 00735000 AVTCRELE EQU IEDQAVTD+708 00736000 AVTCCELE EQU AVTCRELE 00737000 AVTCLRHI EQU IEDQAVTD+716 00738000 AVTADBUF EQU IEDQAVTD+720 00739000 AVTSYSER EQU IEDQAVTD+728 00740000 AVTCKPQB EQU IEDQAVTD+804 00741000 AVTCKPTB EQU AVTCKPQB 00742000 AVTCKPEC EQU AVTCKPQB+4 00743000 AVTCKPCC EQU AVTCKPEC 00744000 AVTOPCQB EQU IEDQAVTD+816 00745000 AVTOPCOB EQU AVTOPCQB 00746000 AVTOPCEC EQU AVTOPCQB+4 00747000 AVTOPCCC EQU AVTOPCEC 00748000 AVTOLTQB EQU IEDQAVTD+828 00749000 AVTCWFL1 EQU IEDQAVTD+924 00750000 AVTCWFL2 EQU IEDQAVTD+925 00751000 AVTSUBT EQU IEDQAVTD+948 00752000 AVTIOTR EQU IEDQAVTD+949 00753000 AVTBIT1 EQU IEDQAVTD+1050 00754000 AVTBIT2 EQU IEDQAVTD+1051 00755000 AVTBIT3 EQU IEDQAVTD+1052 00756000 AVTBIT4 EQU IEDQAVTD+1136 00757000 @NM00166 EQU IEDQAVTD+1232 00758000 IEDNSVTD EQU 0 00759000 SAVTDIAG EQU IEDNSVTD 00760000 SAVTDIAF EQU SAVTDIAG 00761000 SAVTLUSQ EQU IEDNSVTD+88 00762000 SAVTTCPU EQU IEDNSVTD+238 00763000 SAVTZELM EQU IEDNSVTD+270 00764000 SAVTRDRV EQU IEDNSVTD+284 00765000 SAVTCKQB EQU IEDNSVTD+300 00766000 SAVTCKTB EQU SAVTCKQB 00767000 SAVTCKEC EQU SAVTCKQB+4 00768000 SAVTCKCC EQU SAVTCKEC 00769000 IEDQDEB EQU 0 00770000 DEBPRF EQU IEDQDEB 00771000 DEBAPVT EQU DEBPRF 00772000 DEBDEBAD EQU IEDQDEB+41 00773000 DEBNMEXT EQU IEDQDEB+52 00774000 DEBDCBAD EQU IEDQDEB+61 00775000 DEBUCBS EQU IEDQDEB+68 00776000 IHADCB EQU 0 00777000 IEDQOPCE EQU 0 00778000 OCELEM EQU IEDQOPCE+4 00779000 OCUNIT EQU IEDQOPCE+8 00780000 OCRUDEST EQU OCUNIT 00781000 OCCKPKEY EQU OCRUDEST 00782000 OCSCAN EQU OCCKPKEY 00783000 OCOPTCDE EQU IEDQOPCE+12 00784000 OCSWITCH EQU IEDQOPCE+13 00785000 OCFLAG EQU IEDQOPCE+14 00786000 OCCONSOL EQU OCFLAG 00787000 OCRLN EQU IEDQOPCE+15 00788000 @NM00202 EQU IEDQOPCE+16 00789000 OCDEST EQU @NM00202 00790000 OCREQVAL EQU OCDEST+1 00791000 OCLINENO EQU IEDQOPCE+22 00792000 OCTIOT EQU OCLINENO 00793000 OCTRUNIT EQU IEDQOPCE+24 00794000 OCRSID EQU OCTRUNIT 00795000 OCALSTAT EQU OCRSID 00796000 OCPARM EQU IEDQOPCE+28 00797000 OCWTG EQU IEDQOPCE+30 00798000 OCBACKUP EQU IEDQOPCE+32 00799000 OCMODNME EQU IEDQOPCE+40 00800000 OCIPLWA EQU OCMODNME 00801000 OCCKDATA EQU IEDQOPCE+48 00802000 OCRSTGTM EQU OCCKDATA 00803000 IEDQOPCN EQU 0 00804000 OCLDNME EQU IEDQOPCN 00805000 OCLINTTE EQU OCLDNME 00806000 OCREQFLG EQU OCLINTTE+2 00807000 OCPREFLG EQU OCLINTTE+3 00808000 IEDQTNTD EQU 0 00809000 IEDQTCDE EQU IEDQTNTD 00810000 TNTENLEN EQU IEDQTNTD+40 00811000 IEDQTDCE EQU IEDQTNTD+46 00812000 IEDTNTA EQU 0 00813000 IEDNTCB EQU 0 00814000 TCBDEB EQU IEDNTCB+9 00815000 TCBTIOT EQU IEDNTCB+12 00816000 WORKAREA EQU 0 00817000 MSGLEN EQU WORKAREA 00818000 ZEROES EQU WORKAREA+2 00819000 MSGNO EQU WORKAREA+4 00820000 MSGTXT1 EQU MSGNO 00821000 MSGTXT2 EQU MSGNO+8 00822000 GRPNM EQU WORKAREA+21 00823000 RLNADR EQU WORKAREA+31 00824000 RLN EQU RLNADR 00825000 ADR EQU RLNADR+4 00826000 LINEAD EQU WORKAREA+132 00827000 NAME EQU WORKAREA+136 00828000 GRPNMSAV EQU WORKAREA+144 00829000 TRMADR4 EQU WORKAREA+152 00830000 FREEAREA EQU WORKAREA+176 00831000 TIOTDD EQU 0 00832000 DDNAME EQU TIOTDD+4 00833000 ENTRNAME EQU 0 00834000 IEDNUCB EQU 0 00835000 UCBNAME EQU IEDNUCB+13 00836000 PTR24 EQU 0 00837000 TNTENTAD EQU 0 00838000 CHRTGLK EQU 0 00839000 DEBSUBR EQU 0 00840000 PTR31 EQU 0 00841000 LCBRSPIN EQU LCBIOBSN 00842000 LCBLUSNS EQU LCBRSPIN+5 00843000 LCBSCPRS EQU LCBRSPIN+9 00844000 LCBCSWU1 EQU LCBSCPRS+2 00845000 LCBRSPFG EQU LCBRSPIN+15 00846000 LCBCOREQ EQU LCBTPCD 00847000 @NM00027 EQU LCBCPA+40 00848000 LCBQNX EQU LCBERCCW 00849000 LCBQNXMN EQU LCBQNX 00850000 LCBCANCL EQU LCBSAVSN 00851000 LCBCANFG EQU LCBCANCL 00852000 TRMPRE1 EQU TRMBYTE4 00853000 TRMNCP1 EQU TRMBYTE4 00854000 TRMPRE EQU TRMBYTE3 00855000 TRMNCP EQU TRMBYTE3 00856000 TRMPU EQU TRMBYTE3 00857000 TRMLU EQU TRMBYTE3 00858000 TRMLINK EQU TRMBYTE3 00859000 TRMDEST EQU TRMDESTQ+-1 00860000 QCBLGBA EQU QCBLGBAD+-1 00861000 OPCAQWD EQU OPCAQCTL 00862000 OPCAQWD1 EQU OPCAQWD 00863000 OPCAQWD2 EQU OPCAQWD+4 00864000 OPCAQWD3 EQU OPCAQWD+8 00865000 DEBUCB EQU DEBUCBS 00866000 DEBDVMOD EQU DEBUCB 00867000 DEBUCBAD EQU DEBUCB+1 00868000 IHADCS11 EQU IHADCB+16 00869000 DCBRELB EQU IHADCS11 00870000 DCBREL EQU DCBRELB+1 00871000 DCBBUFCB EQU IHADCS11+4 00872000 DCBDSORG EQU IHADCS11+10 00873000 DCBDSRG1 EQU DCBDSORG 00874000 DCBDSRG2 EQU DCBDSORG+1 00875000 DCBDSGTX EQU DCBDSRG2 00876000 DCBDSGTR EQU DCBDSRG2 00877000 DCBIOBAD EQU IHADCS11+12 00878000 DCBODEB EQU DCBIOBAD 00879000 DCBLNP EQU DCBODEB 00880000 DCBQSLM EQU DCBLNP 00881000 DCBIOBAA EQU DCBODEB+1 00882000 IHADCS50 EQU DCBIOBAD 00883000 DCBSVCXL EQU IHADCS50 00884000 DCBEODAD EQU IHADCS50+4 00885000 DCBBFALN EQU DCBEODAD 00886000 DCBHIARC EQU DCBBFALN 00887000 DCBBFTEK EQU DCBHIARC 00888000 DCBBFT EQU DCBBFTEK 00889000 DCBEXLST EQU IHADCS50+8 00890000 DCBRECFM EQU DCBEXLST 00891000 DCBRECLA EQU DCBRECFM 00892000 IHADCS24 EQU IHADCB+40 00893000 DCBOFLGS EQU IHADCS24+8 00894000 DCBOFLWR EQU DCBOFLGS 00895000 DCBOFOPN EQU DCBOFLGS 00896000 DCBIFLG EQU IHADCS24+9 00897000 DCBMACR EQU IHADCS24+10 00898000 DCBMACR1 EQU DCBMACR 00899000 DCBMRFE EQU DCBMACR1 00900000 DCBMRGET EQU DCBMRFE 00901000 DCBMRAPG EQU DCBMACR1 00902000 DCBMRRD EQU DCBMRAPG 00903000 DCBMRCI EQU DCBMACR1 00904000 DCBMRMVG EQU DCBMRCI 00905000 DCBMRLCG EQU DCBMACR1 00906000 DCBMRABC EQU DCBMACR1 00907000 DCBMRPT1 EQU DCBMRABC 00908000 DCBMRSBG EQU DCBMRPT1 00909000 DCBMRCRL EQU DCBMACR1 00910000 DCBMRCHK EQU DCBMRCRL 00911000 DCBMRRDX EQU DCBMRCHK 00912000 DCBMRDMG EQU DCBMACR1 00913000 DCBMACR2 EQU DCBMACR+1 00914000 DCBMRPUT EQU DCBMACR2 00915000 DCBMRWRT EQU DCBMACR2 00916000 DCBMRMVP EQU DCBMACR2 00917000 DCBMR5WD EQU DCBMACR2 00918000 DCBMRLDM EQU DCBMR5WD 00919000 DCBMRLCP EQU DCBMRLDM 00920000 DCBMR4WD EQU DCBMACR2 00921000 DCBMRPT2 EQU DCBMR4WD 00922000 DCBMRTMD EQU DCBMRPT2 00923000 DCBMR3WD EQU DCBMACR2 00924000 DCBMRCTL EQU DCBMR3WD 00925000 DCBMRSTK EQU DCBMRCTL 00926000 DCBMR1WD EQU DCBMACR2 00927000 DCBMRSWA EQU DCBMR1WD 00928000 DCBMRDMD EQU DCBMRSWA 00929000 IHADCS25 EQU IHADCB+40 00930000 DCBTIOT EQU IHADCS25 00931000 DCBMACRF EQU IHADCS25+2 00932000 DCBMACF1 EQU DCBMACRF 00933000 DCBMFFE EQU DCBMACF1 00934000 DCBMFGET EQU DCBMFFE 00935000 DCBMFAPG EQU DCBMACF1 00936000 DCBMFRD EQU DCBMFAPG 00937000 DCBMFCI EQU DCBMACF1 00938000 DCBMFMVG EQU DCBMFCI 00939000 DCBMFLCG EQU DCBMACF1 00940000 DCBMFABC EQU DCBMACF1 00941000 DCBMFPT1 EQU DCBMFABC 00942000 DCBMFSBG EQU DCBMFPT1 00943000 DCBMFCRL EQU DCBMACF1 00944000 DCBMFCHK EQU DCBMFCRL 00945000 DCBMFDMG EQU DCBMACF1 00946000 DCBMACF2 EQU DCBMACRF+1 00947000 DCBMFPUT EQU DCBMACF2 00948000 DCBMFWRT EQU DCBMACF2 00949000 DCBMFMVP EQU DCBMACF2 00950000 DCBMF5WD EQU DCBMACF2 00951000 DCBMFLDM EQU DCBMF5WD 00952000 DCBMFLCP EQU DCBMFLDM 00953000 DCBMF4WD EQU DCBMACF2 00954000 DCBMFPT2 EQU DCBMF4WD 00955000 DCBMFTMD EQU DCBMFPT2 00956000 DCBMF3WD EQU DCBMACF2 00957000 DCBMFCTL EQU DCBMF3WD 00958000 DCBMFSTK EQU DCBMFCTL 00959000 DCBMF1WD EQU DCBMACF2 00960000 DCBMFSWA EQU DCBMF1WD 00961000 DCBMFDMD EQU DCBMFSWA 00962000 DCBDEBAD EQU IHADCS25+4 00963000 DCBIFLGS EQU DCBDEBAD 00964000 IHADCS28 EQU IHADCB+52 00965000 DCBOPTCD EQU IHADCS28 00966000 DCBOPTZ EQU DCBOPTCD 00967000 IHADCS19 EQU IHADCB+32 00968000 DCBEIOBX EQU IHADCS19+4 00969000 OCCKPKY1 EQU OCCKPKEY 00970000 OCCKPTYP EQU OCCKPKY1 00971000 OCICACTN EQU OCMODNME 00972000 OCICDADR EQU OCICACTN 00973000 OCICSW EQU OCICDADR+3 00974000 SWITCH EQU OCSWITCH 00975000 BRNDX EQU SWITCH 00976000 PRNTRQ EQU BRNDX 00977000 OCCIB EQU OCREQVAL 00978000 TNTCODE EQU IEDQTCDE 00979000 TNTDCODE EQU IEDQTDCE 00980000 TNTFIRST EQU IEDQTNTD+82 00981000 TRMOPT EQU IEDQTRM+20 00982000 * START UNREFERENCED COMPONENTS 00983000 OCICINAC EQU OCICSW 00984000 @NM00208 EQU OCICSW 00985000 OCICATST EQU OCICDADR+1 00986000 OCICTYPE EQU OCICDADR 00987000 @NM00207 EQU OCCKPKY1 00988000 OCCKPENV EQU OCCKPKY1 00989000 OCCKPRST EQU OCCKPTYP 00990000 OCCKPNCP EQU OCCKPTYP 00991000 OCCKPINC EQU OCCKPTYP 00992000 @NM00198 EQU IHADCS19+5 00993000 @NM00197 EQU IHADCS19 00994000 @NM00196 EQU IHADCS28+1 00995000 @NM00195 EQU DCBOPTCD 00996000 DCBSRCHD EQU DCBOPTZ 00997000 @NM00194 EQU DCBOPTCD 00998000 DCBDEBA EQU DCBDEBAD+1 00999000 @NM00193 EQU DCBIFLGS 01000000 DCBIFIOE EQU DCBIFLGS 01001000 DCBIFPCT EQU DCBIFLGS 01002000 DCBIFEC EQU DCBIFLGS 01003000 DCBMFSTI EQU DCBMFDMD 01004000 DCBMFAWR EQU DCBMFSTK 01005000 DCBMFUIP EQU DCBMFTMD 01006000 DCBMFIDW EQU DCBMFLCP 01007000 DCBMFWRK EQU DCBMFMVP 01008000 DCBMFRDQ EQU DCBMFWRT 01009000 DCBMFGTQ EQU DCBMFPUT 01010000 DCBMFSTL EQU DCBMACF2 01011000 DCBMFCK EQU DCBMFDMG 01012000 DCBMFRDX EQU DCBMFCHK 01013000 DCBMFDBF EQU DCBMFSBG 01014000 DCBMFRDI EQU DCBMFLCG 01015000 DCBMFRDK EQU DCBMFMVG 01016000 DCBMFWRQ EQU DCBMFRD 01017000 DCBMFPTQ EQU DCBMFGET 01018000 DCBMFECP EQU DCBMACF1 01019000 DCBMRSTI EQU DCBMRDMD 01020000 DCBMRAWR EQU DCBMRSTK 01021000 DCBMRUIP EQU DCBMRTMD 01022000 DCBMRIDW EQU DCBMRLCP 01023000 DCBMRWRK EQU DCBMRMVP 01024000 DCBMRRDQ EQU DCBMRWRT 01025000 DCBMRGTQ EQU DCBMRPUT 01026000 DCBMRSTL EQU DCBMACR2 01027000 DCBMRCK EQU DCBMRDMG 01028000 DCBPGFXA EQU DCBMRRDX 01029000 DCBMRDBF EQU DCBMRSBG 01030000 DCBMRRDI EQU DCBMRLCG 01031000 DCBMRRDK EQU DCBMRMVG 01032000 DCBMRWRQ EQU DCBMRRD 01033000 DCBMRPTQ EQU DCBMRGET 01034000 DCBMRECP EQU DCBMACR1 01035000 @NM00192 EQU DCBIFLG 01036000 DCBIBIOE EQU DCBIFLG 01037000 DCBIBPCT EQU DCBIFLG 01038000 DCBIBEC EQU DCBIFLG 01039000 DCBOFIOF EQU DCBOFLGS 01040000 DCBOFUEX EQU DCBOFLGS 01041000 DCBOFTM EQU DCBOFLGS 01042000 DCBOFPPC EQU DCBOFLGS 01043000 DCBOFEOV EQU DCBOFLGS 01044000 DCBOFLRB EQU DCBOFLGS 01045000 DCBOFIOD EQU DCBOFLWR 01046000 DCBDDNAM EQU IHADCS24 01047000 DCBEXLSA EQU DCBEXLST+1 01048000 DCBRECKL EQU DCBRECFM 01049000 DCBRECCC EQU DCBRECFM 01050000 DCBRECSB EQU DCBRECFM 01051000 DCBRECBR EQU DCBRECFM 01052000 DCBRECTO EQU DCBRECLA 01053000 DCBRECL EQU DCBRECLA 01054000 DCBEODA EQU DCBEODAD+1 01055000 DCBBFA EQU DCBBFTEK 01056000 DCBH0 EQU DCBBFTEK 01057000 DCBBFTKD EQU DCBBFTEK 01058000 DCBBFTE EQU DCBBFT 01059000 DCBBFTKR EQU DCBBFT 01060000 DCBBFTS EQU DCBBFT 01061000 DCBH1 EQU DCBBFTEK 01062000 DCBSVCXA EQU DCBSVCXL+1 01063000 @NM00191 EQU DCBSVCXL 01064000 DCBODEBA EQU DCBIOBAA 01065000 @NM00190 EQU DCBQSLM 01066000 DCBUPDBT EQU DCBQSLM 01067000 DCBUPDCM EQU DCBQSLM 01068000 DCB1DVDS EQU DCBQSLM 01069000 @NM00189 EQU DCBDSRG2 01070000 DCBACBM EQU DCBDSRG2 01071000 @NM00188 EQU DCBDSRG2 01072000 DCBDSGTQ EQU DCBDSRG2 01073000 DCBDSGGS EQU DCBDSRG2 01074000 DCBDSGU EQU DCBDSRG1 01075000 DCBDSGPO EQU DCBDSRG1 01076000 DCBDSGMQ EQU DCBDSRG1 01077000 DCBDSGCQ EQU DCBDSRG1 01078000 DCBDSGCX EQU DCBDSRG1 01079000 DCBDSGDA EQU DCBDSRG1 01080000 DCBDSGPS EQU DCBDSRG1 01081000 DCBDSGIS EQU DCBDSRG1 01082000 DCBBUFL EQU IHADCS11+8 01083000 DCBBUFCA EQU DCBBUFCB+1 01084000 DCBBUFNO EQU DCBBUFCB 01085000 DCBDEVT EQU DCBREL 01086000 DCBKEYLE EQU DCBRELB 01087000 OPCAQLST EQU OPCAQWD3+1 01088000 OPCAQRQ3 EQU OPCAQWD3 01089000 OPCAQSEC EQU OPCAQWD2+1 01090000 OPCAQRQ2 EQU OPCAQWD2 01091000 OPCAQFST EQU OPCAQWD1+1 01092000 OPCAQREQ EQU OPCAQWD1 01093000 @NM00062 EQU TRMLINK 01094000 TRMLSTAT EQU TRMLINK 01095000 TRMLINT EQU TRMLINK 01096000 TRMEPMOD EQU TRMLINK 01097000 TRMLULOG EQU TRMLU 01098000 TRMINERR EQU TRMLU 01099000 TRMLUREQ EQU TRMLU 01100000 TRMSESRQ EQU TRMLU 01101000 TRMTDIFF EQU TRMLU 01102000 TRMLUTM EQU TRMLU 01103000 TRMLUIT EQU TRMLU 01104000 TRMAUTO EQU TRMLU 01105000 TRMPCONT EQU TRMPU 01106000 @NM00061 EQU TRMPU 01107000 TRMNCONT EQU TRMNCP 01108000 TRMQUCKN EQU TRMNCP 01109000 TRMSLOWN EQU TRMNCP 01110000 TRMSYGEN EQU TRMNCP 01111000 TRMNCPCL EQU TRMNCP 01112000 TRMIPLDM EQU TRMNCP 01113000 TRMINOUT EQU TRMPRE 01114000 TRMRDOUT EQU TRMPRE 01115000 TRMNLOUT EQU TRMPRE 01116000 TRMWROUT EQU TRMPRE 01117000 TRMASNXI EQU TRMPRE 01118000 TRMSTMM EQU TRMPRE 01119000 TRMCMODE EQU TRMPRE 01120000 TRMSTPND EQU TRMPRE 01121000 @NM00060 EQU TRMNCP1 01122000 TRMINOP EQU TRMNCP1 01123000 TRMLYNCH EQU TRMPRE1 01124000 TRMSPOUT EQU TRMPRE1 01125000 TRMERLCK EQU TRMPRE1 01126000 TRMQNPL EQU TRMPRE1 01127000 TRMSPACT EQU TRMPRE1 01128000 TRMOCNI EQU TRMPRE1 01129000 TRMSESSN EQU TRMPRE1 01130000 TRMCONT EQU TRMPRE1 01131000 @NM00034 EQU LCBCANCL+3 01132000 LCBCANTH EQU LCBCANCL+1 01133000 @NM00033 EQU LCBCANFG 01134000 LCBCANCD EQU LCBCANFG 01135000 @NM00032 EQU LCBCANFG 01136000 LCBCANEB EQU LCBCANFG 01137000 LCBCANXT EQU LCBCANFG 01138000 LCBUNADD EQU LCBQNX+21 01139000 LCBUASZE EQU LCBQNX+20 01140000 LCBDSTEA EQU LCBQNX+16 01141000 @NM00031 EQU LCBQNX+4 01142000 LCBSTSAV EQU LCBQNX+1 01143000 @NM00030 EQU LCBQNXMN 01144000 LCBNX509 EQU LCBQNXMN 01145000 LCBNX162 EQU LCBQNXMN 01146000 LCBNX142 EQU LCBQNXMN 01147000 LCBNX064 EQU LCBQNXMN 01148000 @NM00029 EQU @NM00027+4 01149000 LCBNCPPT EQU @NM00027+1 01150000 @NM00028 EQU @NM00027 01151000 LCBWRSCH EQU LCBCOREQ+8 01152000 LCBCQLNK EQU LCBCOREQ+4 01153000 LCBCQELE EQU LCBCOREQ 01154000 LCBPAKCH EQU LCBRSPIN+16 01155000 @NM00026 EQU LCBRSPFG 01156000 LCBRSRH EQU LCBRSPFG 01157000 LCBEXPI EQU LCBRSPFG 01158000 @NM00025 EQU LCBRSPIN+12 01159000 LCBUSUE1 EQU LCBCSWU1 01160000 @NM00024 EQU LCBCSWU1 01161000 @NM00023 EQU LCBSCPRS+1 01162000 LCBDFCMD EQU LCBSCPRS 01163000 LCBUSER EQU LCBLUSNS+2 01164000 LCBSMIN EQU LCBLUSNS+1 01165000 LCBSMAJ EQU LCBLUSNS 01166000 LCBRHSV EQU LCBRSPIN+2 01167000 LCBSNS0 EQU LCBRSPIN+1 01168000 @NM00022 EQU LCBRSPIN 01169000 @NM00221 EQU IEDNUCB 01170000 @NM00220 EQU TIOTDD 01171000 REGSAVE EQU WORKAREA+156 01172000 TRMADR3 EQU TRMADR4+1 01173000 @NM00219 EQU TRMADR4 01174000 RSIDX EQU WORKAREA+130 01175000 @NM00218 EQU WORKAREA+129 01176000 @NM00217 EQU RLNADR+12 01177000 @NM00216 EQU RLNADR+3 01178000 @NM00215 EQU WORKAREA+29 01179000 @NM00214 EQU MSGNO+1 01180000 @NM00213 EQU IEDNTCB 01181000 TNTTRMAD EQU IEDTNTA 01182000 TNTLEN EQU IEDQTNTD+44 01183000 TNTMIDEN EQU IEDQTNTD+41 01184000 TNTSRCHX EQU IEDQTNTD+38 01185000 @NM00212 EQU OCLDNME+4 01186000 @NM00211 EQU OCPREFLG 01187000 OCTOTEP EQU OCPREFLG 01188000 OCREPOST EQU OCPREFLG 01189000 OCRSPSNT EQU OCPREFLG 01190000 OCBFREQ EQU OCPREFLG 01191000 OCIDLE EQU OCREQFLG 01192000 OCFORCE EQU OCREQFLG 01193000 OCDCARD EQU OCREQFLG 01194000 OCPARTAL EQU OCREQFLG 01195000 OCADNCP EQU OCREQFLG 01196000 @NM00210 EQU OCREQFLG 01197000 @NM00209 EQU OCREQFLG 01198000 OCFLUSHZ EQU OCREQFLG 01199000 OCRESPCT EQU OCLINTTE 01200000 OCCKPTWA EQU OCCKDATA+4 01201000 @NM00206 EQU OCRSTGTM+2 01202000 OCCKDAT2 EQU OCRSTGTM+1 01203000 OCCKDAT1 EQU OCRSTGTM 01204000 OCPTRSAV EQU OCMODNME+4 01205000 OCPUADR EQU OCIPLWA+2 01206000 OCWTGSAV EQU OCIPLWA 01207000 OCDVRDCT EQU OCBACKUP+6 01208000 OCNCP EQU OCBACKUP+4 01209000 OCBUFGOT EQU OCBACKUP+2 01210000 OCBUFNED EQU OCBACKUP 01211000 OCRESNUM EQU OCPARM 01212000 OCSEQ EQU OCTRUNIT+2 01213000 @NM00205 EQU OCRSID+1 01214000 OCNONE EQU OCALSTAT 01215000 OCSOME EQU OCALSTAT 01216000 OCALLFLG EQU OCALSTAT 01217000 OCACTREQ EQU OCALSTAT 01218000 OCREDRVE EQU OCALSTAT 01219000 OCSEQIND EQU OCALSTAT 01220000 @NM00204 EQU OCALSTAT 01221000 OCRENTRD EQU OCALSTAT 01222000 OCWTGB EQU OCTIOT 01223000 OCTRMTBL EQU IEDQOPCE+20 01224000 @NM00203 EQU @NM00202+2 01225000 OCCONID EQU OCDEST 01226000 OCRESP EQU OCFLAG 01227000 OCATTACH EQU OCFLAG 01228000 OCSSCP EQU OCFLAG 01229000 OCOUTPUT EQU OCFLAG 01230000 OCLINE EQU OCFLAG 01231000 OCMPP EQU OCFLAG 01232000 OCTOTE EQU OCFLAG 01233000 @NM00201 EQU OCSWITCH 01234000 OCQUCKN EQU OCSWITCH 01235000 OCPRIFLG EQU OCOPTCDE 01236000 @NM00200 EQU OCRUDEST+1 01237000 @NM00199 EQU OCSCAN 01238000 OCNOTUCB EQU OCSCAN 01239000 OCNONAME EQU OCSCAN 01240000 OCALLRLN EQU OCSCAN 01241000 OCDDNAME EQU OCSCAN 01242000 OCDDNRLN EQU OCSCAN 01243000 OCADDR EQU OCSCAN 01244000 OCELMPTR EQU OCELEM+1 01245000 OCELMPRI EQU OCELEM 01246000 OCLINK EQU IEDQOPCE 01247000 @NM00187 EQU IHADCB 01248000 DEBAPPAD EQU IEDQDEB+65 01249000 DEBEXSCL EQU IEDQDEB+64 01250000 DEBPROTG EQU IEDQDEB+60 01251000 DEBECBAD EQU IEDQDEB+57 01252000 DEBPRIOR EQU IEDQDEB+56 01253000 DEBUSRPG EQU IEDQDEB+53 01254000 DEBSYSPG EQU IEDQDEB+49 01255000 DEBOPATB EQU IEDQDEB+48 01256000 DEBIRBAD EQU IEDQDEB+45 01257000 DEBOFLGS EQU IEDQDEB+44 01258000 DEBAMLNG EQU IEDQDEB+40 01259000 DEBTCBAD EQU IEDQDEB+37 01260000 DEBNMSUB EQU IEDQDEB+36 01261000 @NM00186 EQU DEBPRF+33 01262000 DEBLNGTH EQU DEBPRF+32 01263000 DEBDCBMK EQU DEBPRF+28 01264000 DEBDSCBA EQU DEBPRF+21 01265000 DEBWKARA EQU DEBPRF+20 01266000 DEBXCEA EQU DEBAPVT+16 01267000 DEBCEA EQU DEBAPVT+12 01268000 DEBPCIA EQU DEBAPVT+8 01269000 DEBSIOA EQU DEBAPVT+4 01270000 DEBEOEA EQU DEBAPVT 01271000 SAVTBITN EQU IEDNSVTD+312 01272000 @NM00185 EQU SAVTCKQB+8 01273000 @NM00184 EQU SAVTCKEC+1 01274000 @NM00183 EQU SAVTCKCC 01275000 SAVTCKPO EQU SAVTCKCC 01276000 SAVTCKWA EQU SAVTCKCC 01277000 SAVTCKCH EQU SAVTCKTB+1 01278000 SAVTCKVT EQU SAVTCKTB 01279000 @NM00182 EQU IEDNSVTD+297 01280000 SAVTRDFG EQU SAVTRDRV+12 01281000 @NM00181 EQU SAVTRDRV+5 01282000 SAVTRDPY EQU SAVTRDRV+4 01283000 SAVTRDQB EQU SAVTRDRV+1 01284000 SAVTRDKY EQU SAVTRDRV 01285000 SAVTNID EQU IEDNSVTD+280 01286000 SAVTDVAS EQU IEDNSVTD+276 01287000 SAVTPLSZ EQU IEDNSVTD+274 01288000 @NM00180 EQU IEDNSVTD+273 01289000 SAVTSUBL EQU IEDNSVTD+272 01290000 @NM00179 EQU SAVTZELM+1 01291000 SAVTSUBM EQU SAVTZELM 01292000 SAVTMHDX EQU IEDNSVTD+268 01293000 SAVTNAT1 EQU IEDNSVTD+266 01294000 SAVTSH20 EQU IEDNSVTD+264 01295000 SAVTLCBS EQU IEDNSVTD+260 01296000 SAVTRNMP EQU IEDNSVTD+256 01297000 SAVTTNTX EQU IEDNSVTD+252 01298000 SAVTNAX EQU IEDNSVTD+248 01299000 SAVTSUBV EQU IEDNSVTD+247 01300000 SAVTSUBA EQU IEDNSVTD+246 01301000 SAVTSIBC EQU IEDNSVTD+244 01302000 SAVTBSM EQU IEDNSVTD+240 01303000 SAVTSCPT EQU SAVTTCPU 01304000 SAVTRQTG EQU IEDNSVTD+236 01305000 SAVTRQCH EQU IEDNSVTD+232 01306000 SAVTMAND EQU IEDNSVTD+228 01307000 SAVTSPLN EQU IEDNSVTD+224 01308000 SAVTNADL EQU IEDNSVTD+222 01309000 SAVTNATL EQU IEDNSVTD+220 01310000 SAVTMHTB EQU IEDNSVTD+216 01311000 SAVTSSMH EQU IEDNSVTD+212 01312000 SAVTQRS EQU IEDNSVTD+208 01313000 SAVTRQIN EQU IEDNSVTD+204 01314000 SAVTDFCO EQU IEDNSVTD+200 01315000 SAVTSAO EQU IEDNSVTD+196 01316000 SAVTSARI EQU IEDNSVTD+192 01317000 SAVTSAC EQU IEDNSVTD+188 01318000 SAVTSAI EQU IEDNSVTD+184 01319000 SAVTCSCI EQU IEDNSVTD+180 01320000 SAVTSSRP EQU IEDNSVTD+176 01321000 SAVTSSRQ EQU IEDNSVTD+172 01322000 SAVTSCLU EQU IEDNSVTD+168 01323000 SAVTXTRQ EQU IEDNSVTD+164 01324000 SAVTMVBF EQU IEDNSVTD+160 01325000 @NM00178 EQU IEDNSVTD+148 01326000 SAVTIPCQ EQU IEDNSVTD+144 01327000 @NM00177 EQU IEDNSVTD+136 01328000 SAVTXFMI EQU IEDNSVTD+132 01329000 @NM00176 EQU IEDNSVTD+124 01330000 SAVTXFMO EQU IEDNSVTD+120 01331000 @NM00175 EQU IEDNSVTD+116 01332000 SAVTSSSR EQU IEDNSVTD+112 01333000 SAVTSCPQ EQU IEDNSVTD+108 01334000 SAVTSLCB EQU IEDNSVTD+104 01335000 SAVTLUSR EQU IEDNSVTD+100 01336000 @NM00174 EQU SAVTLUSQ+8 01337000 SAVTLUSP EQU SAVTLUSQ+4 01338000 SAVTLUSB EQU SAVTLUSQ 01339000 @NM00173 EQU IEDNSVTD+84 01340000 SAVTSAT EQU IEDNSVTD+80 01341000 SAVTNAT EQU IEDNSVTD+76 01342000 SAVTCLUP EQU IEDNSVTD+72 01343000 SAVTPIUT EQU IEDNSVTD+68 01344000 SAVTRNTA EQU IEDNSVTD+64 01345000 SAVTDNIR EQU IEDNSVTD+60 01346000 SAVTCNIR EQU IEDNSVTD+56 01347000 SAVTFLDH EQU IEDNSVTD+52 01348000 SAVTSRTN EQU IEDNSVTD+48 01349000 SAVTSREQ EQU IEDNSVTD+44 01350000 SAVTFAIL EQU IEDNSVTD+42 01351000 SAVTSUSE EQU IEDNSVTD+40 01352000 SAVTSIB EQU IEDNSVTD+36 01353000 SAVTPRTN EQU IEDNSVTD+32 01354000 @NM00172 EQU IEDNSVTD+28 01355000 SAVTWH20 EQU IEDNSVTD+26 01356000 SAVTPWT EQU IEDNSVTD+24 01357000 SAVTPRTQ EQU IEDNSVTD+20 01358000 SAVTPREQ EQU IEDNSVTD+16 01359000 SAVTPH20 EQU IEDNSVTD+14 01360000 SAVTPUSE EQU IEDNSVTD+12 01361000 SAVTPLCB EQU IEDNSVTD+8 01362000 SAVTPOOL EQU IEDNSVTD+4 01363000 SAVTPRMT EQU SAVTDIAF 01364000 SAVTVIRT EQU SAVTDIAF 01365000 AVTCPBNO EQU IEDQAVTD+1244 01366000 AVTHRESS EQU IEDQAVTD+1243 01367000 @NM00171 EQU IEDQAVTD+1242 01368000 @NM00170 EQU IEDQAVTD+1241 01369000 @NM00169 EQU IEDQAVTD+1240 01370000 @NM00168 EQU IEDQAVTD+1237 01371000 @NM00167 EQU IEDQAVTD+1236 01372000 AVTHRESE EQU @NM00166 01373000 AVTRADDR EQU IEDQAVTD+1228 01374000 AVTNADDR EQU IEDQAVTD+1224 01375000 AVTHRESN EQU IEDQAVTD+1220 01376000 AVTVOLRN EQU IEDQAVTD+1216 01377000 AVTTOTNN EQU IEDQAVTD+1212 01378000 AVTTRCYN EQU IEDQAVTD+1208 01379000 AVTRCTRN EQU IEDQAVTD+1204 01380000 AVTNOVON EQU IEDQAVTD+1200 01381000 AVTADEBN EQU IEDQAVTD+1196 01382000 AVTVOLRR EQU IEDQAVTD+1192 01383000 AVTTOTNR EQU IEDQAVTD+1188 01384000 AVTTRCYR EQU IEDQAVTD+1184 01385000 AVTRCTRR EQU IEDQAVTD+1180 01386000 AVTNOVOR EQU IEDQAVTD+1176 01387000 AVTADEBR EQU IEDQAVTD+1172 01388000 AVTLODPT EQU IEDQAVTD+1168 01389000 AVTIOBN EQU IEDQAVTD+1164 01390000 AVTIOBR EQU IEDQAVTD+1160 01391000 AVTCPBPT EQU IEDQAVTD+1156 01392000 AVTFCPB EQU IEDQAVTD+1152 01393000 @NM00165 EQU IEDQAVTD+1148 01394000 AVTINCPQ EQU IEDQAVTD+1144 01395000 @NM00164 EQU IEDQAVTD+1140 01396000 @NM00163 EQU IEDQAVTD+1137 01397000 @NM00162 EQU AVTBIT4 01398000 @NM00161 EQU AVTBIT4 01399000 @NM00160 EQU AVTBIT4 01400000 @NM00159 EQU AVTBIT4 01401000 @NM00158 EQU AVTBIT4 01402000 @NM00157 EQU AVTBIT4 01403000 @NM00156 EQU AVTBIT4 01404000 AVTRUFTN EQU AVTBIT4 01405000 @NM00155 EQU IEDQAVTD+1132 01406000 AVTNOBFQ EQU IEDQAVTD+1128 01407000 @NM00154 EQU IEDQAVTD+1124 01408000 AVTDKENQ EQU IEDQAVTD+1120 01409000 @NM00153 EQU IEDQAVTD+1116 01410000 AVTDKAPQ EQU IEDQAVTD+1112 01411000 AVTCOPY EQU IEDQAVTD+1108 01412000 AVTIA EQU IEDQAVTD+1104 01413000 AVTFL EQU IEDQAVTD+1100 01414000 @NM00152 EQU IEDQAVTD+1096 01415000 AVTNCPBQ EQU IEDQAVTD+1092 01416000 AVTTOTNC EQU IEDQAVTD+1088 01417000 AVTCMAX EQU IEDQAVTD+1084 01418000 AVTCMIN EQU IEDQAVTD+1080 01419000 AVTHM02 EQU IEDQAVTD+1076 01420000 AVTOPCIN EQU IEDQAVTD+1074 01421000 AVTDCTLN EQU IEDQAVTD+1072 01422000 AVTOPMSK EQU IEDQAVTD+1068 01423000 AVTDDFT EQU IEDQAVTD+1064 01424000 AVTSTEAL EQU IEDQAVTD+1060 01425000 AVTOPTN EQU IEDQAVTD+1056 01426000 AVTDSKCT EQU IEDQAVTD+1054 01427000 AVTCKRST EQU IEDQAVTD+1053 01428000 AVTSTAN EQU AVTBIT3 01429000 AVTSTACN EQU AVTBIT3 01430000 AVTSTAIN EQU AVTBIT3 01431000 AVTSTAYN EQU AVTBIT3 01432000 AVTOLTBN EQU AVTBIT3 01433000 AVTTSAB EQU AVTBIT3 01434000 AVTRFULN EQU AVTBIT3 01435000 AVTRECVN EQU AVTBIT3 01436000 @NM00151 EQU AVTBIT2 01437000 @NM00150 EQU AVTBIT2 01438000 AVTOPEIN EQU AVTBIT2 01439000 AVTSTRTN EQU AVTBIT2 01440000 AVTTOPOL EQU AVTBIT2 01441000 AVTCOPYN EQU AVTBIT2 01442000 AVTREUSN EQU AVTBIT2 01443000 AVTEXTSC EQU AVTBIT2 01444000 AVTDISKN EQU AVTBIT1 01445000 AVTQUCKN EQU AVTBIT1 01446000 AVTCLOSN EQU AVTBIT1 01447000 AVTREADN EQU AVTBIT1 01448000 AVTDLAYN EQU AVTBIT1 01449000 AVTAQTAN EQU AVTBIT1 01450000 AVTTSON EQU AVTBIT1 01451000 AVTAPLKN EQU AVTBIT1 01452000 AVTDUMBR EQU IEDQAVTD+1048 01453000 AVTDLQX EQU IEDQAVTD+1046 01454000 AVTINTLV EQU IEDQAVTD+1044 01455000 AVTSMCNT EQU IEDQAVTD+1042 01456000 AVTAVFCT EQU IEDQAVTD+1040 01457000 AVTOPCON EQU IEDQAVTD+1038 01458000 AVTOPCNT EQU IEDQAVTD+1036 01459000 AVTLNCNT EQU IEDQAVTD+1034 01460000 AVTKEYLE EQU IEDQAVTD+1032 01461000 AVTHA16 EQU IEDQAVTD+1030 01462000 AVTHA7 EQU IEDQAVTD+1028 01463000 AVTHA4 EQU IEDQAVTD+1026 01464000 AVTHA3 EQU IEDQAVTD+1024 01465000 AVTHA2 EQU IEDQAVTD+1022 01466000 AVTGETMS EQU IEDQAVTD+1021 01467000 @NM00149 EQU IEDQAVTD+1020 01468000 AVTGETMD EQU IEDQAVTD+1016 01469000 AVTGETMN EQU IEDQAVTD+1012 01470000 AVTCWTOT EQU IEDQAVTD+1008 01471000 AVTCWINT EQU IEDQAVTD+956 01472000 AVTDTRAP EQU IEDQAVTD+952 01473000 @NM00148 EQU IEDQAVTD+950 01474000 @NM00147 EQU AVTIOTR 01475000 AVTIOTRH EQU AVTIOTR 01476000 AVTIOTRE EQU AVTIOTR 01477000 @NM00146 EQU AVTSUBT 01478000 AVTSUBPT EQU AVTSUBT 01479000 AVTSUBON EQU AVTSUBT 01480000 AVTAFE30 EQU IEDQAVTD+944 01481000 AVTAFE20 EQU IEDQAVTD+940 01482000 AVTAFE10 EQU IEDQAVTD+936 01483000 AVTCWEC2 EQU IEDQAVTD+932 01484000 AVTCWPM2 EQU IEDQAVTD+928 01485000 AVTCWTS2 EQU IEDQAVTD+927 01486000 AVTCWTS1 EQU IEDQAVTD+926 01487000 AVTCWCLD EQU AVTCWFL2 01488000 AVTCWRAP EQU AVTCWFL2 01489000 @NM00145 EQU AVTCWFL2 01490000 @NM00144 EQU AVTCWFL2 01491000 @NM00143 EQU AVTCWFL2 01492000 @NM00142 EQU AVTCWFL2 01493000 @NM00141 EQU AVTCWFL2 01494000 AVTCWACT EQU AVTCWFL2 01495000 @NM00140 EQU AVTCWFL1 01496000 @NM00139 EQU AVTCWFL1 01497000 @NM00138 EQU AVTCWFL1 01498000 @NM00137 EQU AVTCWFL1 01499000 @NM00136 EQU AVTCWFL1 01500000 @NM00135 EQU AVTCWFL1 01501000 @NM00134 EQU AVTCWFL1 01502000 AVTCOMWN EQU AVTCWFL1 01503000 AVTCWEC1 EQU IEDQAVTD+920 01504000 AVTCWPM1 EQU IEDQAVTD+916 01505000 AVTCAREA EQU IEDQAVTD+912 01506000 AVTFZERO EQU IEDQAVTD+908 01507000 AVTCADDR EQU IEDQAVTD+904 01508000 AVTCOREC EQU IEDQAVTD+900 01509000 @NM00133 EQU IEDQAVTD+892 01510000 AVTCPBCB EQU IEDQAVTD+888 01511000 @NM00132 EQU IEDQAVTD+880 01512000 AVTDSIOB EQU IEDQAVTD+876 01513000 @NM00131 EQU IEDQAVTD+868 01514000 AVTCPRMB EQU IEDQAVTD+864 01515000 @NM00130 EQU IEDQAVTD+856 01516000 AVTCLOSB EQU IEDQAVTD+852 01517000 @NM00129 EQU IEDQAVTD+844 01518000 AVTACTIB EQU IEDQAVTD+840 01519000 @NM00128 EQU IEDQAVTD+836 01520000 AVTOLTEB EQU IEDQAVTD+832 01521000 AVTOLTCH EQU AVTOLTQB+1 01522000 AVTOLTVT EQU AVTOLTQB 01523000 @NM00127 EQU AVTOPCQB+8 01524000 @NM00126 EQU AVTOPCEC+1 01525000 @NM00125 EQU AVTOPCCC 01526000 AVTOPCPO EQU AVTOPCCC 01527000 AVTOPCWA EQU AVTOPCCC 01528000 AVTOPCCH EQU AVTOPCOB+1 01529000 AVTOPCVT EQU AVTOPCOB 01530000 @NM00124 EQU AVTCKPQB+9 01531000 AVTCKPTS EQU AVTCKPQB+8 01532000 @NM00123 EQU AVTCKPEC+1 01533000 @NM00122 EQU AVTCKPCC 01534000 AVTCKPPO EQU AVTCKPCC 01535000 AVTCKPWA EQU AVTCKPCC 01536000 AVTCKPCH EQU AVTCKPTB+1 01537000 AVTCKPVT EQU AVTCKPTB 01538000 @NM00121 EQU IEDQAVTD+796 01539000 AVTBFRTB EQU IEDQAVTD+792 01540000 @NM00120 EQU IEDQAVTD+784 01541000 AVTBFREB EQU IEDQAVTD+780 01542000 AVTTIMQ EQU IEDQAVTD+776 01543000 @NM00119 EQU IEDQAVTD+772 01544000 AVTIMQPS EQU IEDQAVTD+768 01545000 AVTINOUT EQU IEDQAVTD+766 01546000 AVTREFTM EQU IEDQAVTD+764 01547000 @NM00118 EQU IEDQAVTD+752 01548000 AVTDELYB EQU IEDQAVTD+748 01549000 AVTOCQPT EQU IEDQAVTD+744 01550000 AVTTSOPT EQU IEDQAVTD+740 01551000 AVTSUPPT EQU IEDQAVTD+736 01552000 AVTCBQCB EQU IEDQAVTD+732 01553000 AVTMSGS EQU IEDQAVTD+729 01554000 @NM00117 EQU AVTSYSER 01555000 @NM00116 EQU AVTSYSER 01556000 @NM00115 EQU AVTSYSER 01557000 @NM00114 EQU AVTSYSER 01558000 @NM00113 EQU AVTSYSER 01559000 @NM00112 EQU AVTSYSER 01560000 AVTCMAXN EQU AVTSYSER 01561000 AVTCMINN EQU AVTSYSER 01562000 AVT2260L EQU IEDQAVTD+724 01563000 AVTABEPL EQU AVTADBUF 01564000 AVTHFF EQU AVTCLRHI+2 01565000 @NM00111 EQU AVTCLRHI 01566000 AVTCCLNK EQU AVTCRELE+5 01567000 AVTCCPRI EQU AVTCRELE+4 01568000 AVTCCQCB EQU AVTCCELE+1 01569000 AVTCCKEY EQU AVTCCELE 01570000 AVTDELAD EQU IEDQAVTD+704 01571000 AVTDELEM EQU IEDQAVTD+700 01572000 AVTBSX EQU AVTCKLNK 01573000 AVTOPETR EQU AVTHG01 01574000 @NM00110 EQU AVTCKBYT 01575000 AVTCKONQ EQU AVTCKBYT 01576000 @NM00109 EQU AVTCKBYT 01577000 @NM00108 EQU AVTCKBYT 01578000 @NM00107 EQU AVTCKBYT 01579000 @NM00106 EQU AVTCKBYT 01580000 @NM00105 EQU AVTCKBYT 01581000 @NM00104 EQU AVTCKBYT 01582000 AVTOPERT EQU IEDQAVTD+690 01583000 AVTOPXCL EQU IEDQAVTD+688 01584000 AVTOPERL EQU IEDQAVTD+687 01585000 @NM00103 EQU IEDQAVTD+686 01586000 AVTCKTIM EQU IEDQAVTD+684 01587000 AVTCKELV EQU IEDQAVTD+682 01588000 AVTCPRCD EQU IEDQAVTD+681 01589000 AVTWARMN EQU AVTCKELF 01590000 AVTCRTLN EQU AVTCKELF 01591000 AVTCPIPN EQU AVTCKELF 01592000 AVTCCLCN EQU AVTCKELF 01593000 AVTCINCN EQU AVTCKELF 01594000 @NM00102 EQU AVTCKELF 01595000 AVTCMCPN EQU AVTCKELF 01596000 AVTCRDYN EQU AVTCKELF 01597000 AVTCKQAD EQU IEDQAVTD+677 01598000 AVTSCBSZ EQU IEDQAVTD+676 01599000 @NM00101 EQU IEDQAVTD+672 01600000 AVTCKELE EQU IEDQAVTD+668 01601000 @NM00100 EQU AVTCKPEL+8 01602000 AVTCKRLK EQU AVTCKPEL+5 01603000 AVTCKRPR EQU AVTCKPEL+4 01604000 AVTCKRMQ EQU AVTCKRMV+1 01605000 AVTCKRKY EQU AVTCKRMV 01606000 AVTHK EQU IEDQAVTD+648 01607000 AVTHI EQU IEDQAVTD+644 01608000 AVTIOT EQU IEDQAVTD+640 01609000 AVTNX EQU IEDQAVTD+636 01610000 AVTTONE EQU IEDQAVTD+632 01611000 AVTA3TL EQU IEDQAVTD+628 01612000 AVTDMECB EQU IEDQAVTD+624 01613000 AVTABEND EQU IEDQAVTD+618 01614000 AVTPLCBN EQU IEDQAVTD+616 01615000 @NM00099 EQU AVTSAVTP+1 01616000 @NM00098 EQU AVTSAVTF 01617000 AVTSNA EQU AVTSAVTF 01618000 AVTONSNA EQU AVTSAVTF 01619000 AVTVTMCP EQU AVTSAVTF 01620000 @NM00097 EQU IEDQAVTD+608 01621000 AVTCMBSS EQU IEDQAVTD+604 01622000 AVTRCV EQU IEDQAVTD+600 01623000 AVTSEND EQU IEDQAVTD+596 01624000 AVTCSCH EQU IEDQAVTD+592 01625000 AVTQ1 EQU IEDQAVTD+588 01626000 AVTE7 EQU IEDQAVTD+584 01627000 AVTHB EQU IEDQAVTD+580 01628000 AVTR1 EQU IEDQAVTD+576 01629000 AVTBZ EQU IEDQAVTD+572 01630000 AVTEZ EQU IEDQAVTD+568 01631000 AVTEC EQU IEDQAVTD+564 01632000 AVTEW EQU IEDQAVTD+560 01633000 AVTNDIAL EQU AVTSCOPT 01634000 AVTN2741 EQU AVTSCOPT 01635000 AVTCONCO EQU AVTSCOPT 01636000 AVTCONC EQU AVTSCOPT 01637000 AVTCMBUF EQU AVTSCOPT 01638000 AVTAPDMP EQU AVTSCOPT 01639000 @NM00096 EQU AVTSCOPT 01640000 AVTHA EQU AVTDISP 01641000 AVTEA EQU IEDQAVTD+548 01642000 AVTAX EQU IEDQAVTD+544 01643000 AVTA3 EQU IEDQAVTD+540 01644000 AVTGD EQU IEDQAVTD+536 01645000 AVTAL EQU IEDQAVTD+532 01646000 AVTOLTST EQU AVTHG02 01647000 AVTE8 EQU IEDQAVTD+524 01648000 AVTUI EQU IEDQAVTD+520 01649000 AVTCOMPT EQU IEDQAVTD+516 01650000 AVTCRSRF EQU IEDQAVTD+512 01651000 @NM00095 EQU IEDQAVTD+508 01652000 AVTKA02 EQU IEDQAVTD+504 01653000 AVTOPTPT EQU IEDQAVTD+500 01654000 AVTPCBPT EQU IEDQAVTD+496 01655000 AVTOSECB EQU IEDQAVTD+492 01656000 AVTOPECA EQU IEDQAVTD+488 01657000 AVTOLECA EQU IEDQAVTD+484 01658000 AVTCKECA EQU IEDQAVTD+480 01659000 AVTCWECA EQU IEDQAVTD+476 01660000 AVTCWTCB EQU IEDQAVTD+472 01661000 AVTOLTCB EQU IEDQAVTD+468 01662000 AVTOCTCB EQU IEDQAVTD+464 01663000 AVTCKTCB EQU IEDQAVTD+460 01664000 AVTAS EQU IEDQAVTD+456 01665000 AVTNOLBF EQU IEDQAVTD+454 01666000 AVTNCKPR EQU IEDQAVTD+453 01667000 AVTCIB EQU IEDQAVTD+452 01668000 AVTSPLPT EQU IEDQAVTD+448 01669000 AVTMVBFR EQU IEDQAVTD+444 01670000 AVTSBTA EQU IEDQAVTD+440 01671000 AVTRARTN EQU IEDQAVTD+436 01672000 AVTBSCAN EQU IEDQAVTD+432 01673000 AVTRDYA EQU IEDQAVTD+428 01674000 AVTDISTR EQU IEDQAVTD+420 01675000 AVTPARM3 EQU IEDQAVTD+416 01676000 @NM00094 EQU AVTPKF 01677000 @NM00093 EQU AVTPKF 01678000 @NM00092 EQU AVTPKF 01679000 AVTFTCHF EQU AVTPKF 01680000 @NM00091 EQU AVTPKF 01681000 @NM00090 EQU AVTPKF 01682000 @NM00089 EQU AVTPKF 01683000 @NM00088 EQU AVTPKF 01684000 AVTPARM EQU IEDQAVTD+408 01685000 AVTEXS2A EQU IEDQAVTD+402 01686000 AVTEXA2S EQU IEDQAVTD+396 01687000 AVTOCGET EQU IEDQAVTD+392 01688000 AVTCKAVT EQU @NM00086+1 01689000 @NM00087 EQU AVTCKFLG 01690000 AVTCKHLT EQU AVTCKFLG 01691000 AVTCKREQ EQU AVTCKFLG 01692000 AVTCKENV EQU AVTCKFLG 01693000 AVTCKNAC EQU AVTCKFLG 01694000 AVTCKTAC EQU AVTCKFLG 01695000 @NM00085 EQU IEDQAVTD+384 01696000 AVTREADD EQU IEDQAVTD+380 01697000 AVTREADY EQU IEDQAVTD+376 01698000 AVTRACE EQU IEDQAVTD+372 01699000 AVTPASWD EQU IEDQAVTD+360 01700000 AVTCTLCH EQU IEDQAVTD+352 01701000 AVTDOUBL EQU IEDQAVTD+344 01702000 AVTDOUBX EQU IEDQAVTD+336 01703000 AVTDPARM EQU IEDQAVTD+332 01704000 AVTCSTCS EQU IEDQAVTD+328 01705000 AVTDLQ EQU AVTSAVEX+32 01706000 @NM00084 EQU AVTSAVEX 01707000 AVTSAVE4 EQU IEDQAVTD+216 01708000 AVTSAVE3 EQU IEDQAVTD+144 01709000 AVTSAVE2 EQU IEDQAVTD+72 01710000 AVTSAVE1 EQU IEDQAVTD 01711000 OPCBOTTM EQU IEDQOPCD+1184 01712000 @NM00083 EQU IEDQOPCD+1100 01713000 @NM00082 EQU IEDQOPCD+948 01714000 @NM00081 EQU IEDQOPCD+940 01715000 @NM00080 EQU IEDQOPCD+380 01716000 @NM00079 EQU OPCPWCOB+9 01717000 @NM00078 EQU OPCPWCOB+8 01718000 @NM00077 EQU OPCPWECB+1 01719000 OPCPWCCC EQU OPCPWECB 01720000 OPCPWCHN EQU OPCPWQCB+1 01721000 OPCPWVTO EQU OPCPWQCB 01722000 OPCWAITV EQU IEDQOPCD+364 01723000 OPCTOTCK EQU IEDQOPCD+360 01724000 OPCAPXTL EQU IEDQOPCD+356 01725000 OPCDECR EQU IEDQOPCD+352 01726000 OPCBUFWT EQU IEDQOPCD+348 01727000 OPCWRKSP EQU IEDQOPCD+320 01728000 OPCADGOT EQU IEDQOPCD+318 01729000 OPCRQCNT EQU IEDQOPCD+316 01730000 OPPOLSTP EQU IEDQOPCD+312 01731000 OPCCKCIB EQU IEDQOPCD+308 01732000 OPCEND EQU IEDQOPCD+307 01733000 OPCSTCBS EQU IEDQOPCD+306 01734000 OPCHNEND EQU IEDQOPCD+302 01735000 OPCOQSW EQU IEDQOPCD+301 01736000 @NM00076 EQU OPCSPEC 01737000 @NM00075 EQU OPCSPEC 01738000 @NM00074 EQU OPCSPEC 01739000 @NM00073 EQU OPCSPEC 01740000 OPCFRMCA EQU OPCSPEC 01741000 OPCRSTRT EQU OPCSPEC 01742000 OPCPART EQU OPCSPEC 01743000 OPCALTD EQU OPCSPEC 01744000 OPCBFEND EQU IEDQOPCD+296 01745000 OPCBFIRS EQU IEDQOPCD+292 01746000 OPCAVBUF EQU IEDQOPCD+290 01747000 OPCIPLCT EQU IEDQOPCD+289 01748000 OPCCLNTS EQU IEDQOPCD+288 01749000 OPCHA8 EQU IEDQOPCD+286 01750000 OPCBFREQ EQU IEDQOPCD+284 01751000 OPCFREBF EQU IEDQOPCD+280 01752000 OPCGETBF EQU IEDQOPCD+276 01753000 OPCNEXT EQU IEDQOPCD+272 01754000 OPCFMDFC EQU IEDQOPCD+268 01755000 OPCSCNC EQU IEDQOPCD+264 01756000 OPCHORT EQU IEDQOPCD+256 01757000 OPCCKPTL EQU IEDQOPCD+252 01758000 OPCCKPTF EQU IEDQOPCD+248 01759000 OPCWAITA EQU IEDQOPCD+244 01760000 OPCWAITR EQU IEDQOPCD+240 01761000 OPCWAITP EQU IEDQOPCD+236 01762000 OPCWAITO EQU IEDQOPCD+232 01763000 OPCWAITN EQU IEDQOPCD+228 01764000 OPCWAITL EQU IEDQOPCD+224 01765000 OPCWAITC EQU IEDQOPCD+220 01766000 @NM00072 EQU OPCLDNME+5 01767000 OPCMODID EQU OPCLDNME+3 01768000 @NM00071 EQU OPCLDNME 01769000 OPCXCTL EQU IEDQOPCD+204 01770000 OPCWAIT EQU IEDQOPCD+192 01771000 OPCCKERB EQU IEDQOPCD+164 01772000 OPCBFERB EQU IEDQOPCD+148 01773000 OPCFLAG2 EQU IEDQOPCD+147 01774000 OPCFLAG1 EQU IEDQOPCD+146 01775000 OPCWRKSZ EQU IEDQOPCD+144 01776000 OPCRSAVE EQU IEDQOPCD+132 01777000 OPCQCBAD EQU IEDQOPCD+128 01778000 OPCTRMWA EQU IEDQOPCD+52 01779000 OPCPSTWT EQU IEDQOPCD+48 01780000 OPCPGCK EQU IEDQOPCD+40 01781000 OPCLCB EQU IEDQOPCD+36 01782000 @NM00070 EQU IEDQOPCD+32 01783000 OPCIPLAD EQU IEDQOPCD+28 01784000 OPCTOFLK EQU IEDQOPCD+24 01785000 OPCOPTLK EQU IEDQOPCD+20 01786000 OPCDCBLK EQU IEDQOPCD+16 01787000 QCBTTCIN EQU QCBPLCBA+1 01788000 @NM00069 EQU QCBPLCBA 01789000 @NM00068 EQU QCBSTAT1 01790000 QCBFLUSH EQU QCBSTAT1 01791000 QCBNDXRQ EQU QCBSTAT1 01792000 QCBESIG EQU QCBSTAT1 01793000 QCBRCVRQ EQU QCBSTAT1 01794000 QCBSNDRQ EQU QCBSTAT1 01795000 QCBWAITC EQU QCBSTAT1 01796000 QCBPLCBN EQU QCBSTAT1 01797000 QCBCHAIN EQU IEDNQCB 01798000 QCBPQBCK EQU IEDQPQCB+25 01799000 QCBPRIPQ EQU IEDQPQCB+24 01800000 QCBCFHDR EQU IEDQPQCB+21 01801000 QCBLFEFO EQU IEDQPQCB+18 01802000 QCBFFEFO EQU IEDQPQCB+15 01803000 QCBPREVF EQU QCBINTLF 01804000 QCBINTFF EQU IEDQPQCB+9 01805000 QCBDATSQ EQU QCBFHDTZ+1 01806000 @NM00067 EQU QCBFHDTZ 01807000 @NM00066 EQU QCBPFEFO 01808000 QCBDATFL EQU QCBFHDLZ 01809000 QCBDNHDR EQU IEDQPQCB 01810000 QCBQBACK EQU IEDQQCB+37 01811000 QCBCKPT EQU QCBFLAG 01812000 QCBPROC EQU QCBFLAG 01813000 QCBSDFFO EQU QCBFLAG 01814000 QCBTERMQ EQU QCBFLAG 01815000 QCBRSRV EQU QCBFLAG 01816000 QCBREAD EQU QCBFLAG 01817000 QCBNOBRK EQU QCBFLAG 01818000 QCBTSSES EQU QCBFLAG 01819000 QCBTJID EQU QCBLKRRN+1 01820000 QCBCARCT EQU QCBLKRRN 01821000 QCBPRLVL EQU QCBPREN 01822000 QCBMSGCT EQU IEDQQCB+26 01823000 QCBEXTO EQU QCBINTVL 01824000 QCBDISC EQU QCBTSOF1 01825000 QCBDELAY EQU QCBTSOF1 01826000 QCBPARTO EQU QCBTSOF1 01827000 QCBSATRD EQU QCBTSOF1 01828000 QCBNOBUF EQU QCBTSOF1 01829000 QCBTPUT EQU QCBTSOF1 01830000 QCBTGET EQU QCBTSOF1 01831000 QCBWRBRK EQU QCBTSOF1 01832000 QCBSATLC EQU QCBTSOF2 01833000 QCBSATTI EQU QCBTSOF2 01834000 QCBSATCH EQU QCBTSOF2 01835000 QCBSIMRD EQU QCBTSOF2 01836000 QCBDSSMI EQU QCBTSOF2 01837000 QCBPOSTO EQU QCBTSOF2 01838000 QCBBUFQ EQU QCBTSOF2 01839000 QCBINHBN EQU QCBTSOF2 01840000 QCBSATCT EQU @NM00065 01841000 QCBSCBOF EQU IEDQQCB+20 01842000 QCBTIME EQU QCBSTAT 01843000 QCBCLOCK EQU QCBSTAT 01844000 QCBSCHDL EQU QCBSTAT 01845000 QCBSMODE EQU QCBSTAT 01846000 QCBSEND EQU QCBSTAT 01847000 QCBBUFRD EQU QCBSTAT 01848000 QCBTRMHO EQU QCBSTAT 01849000 QCBEOM EQU QCBSTAT 01850000 QCBHUCT EQU QCBRETCT 01851000 QCBIEND EQU QCBRETCT 01852000 QCBEND EQU QCBRETCT 01853000 QCBNL EQU QCBRETCT 01854000 QCBLOGCT EQU QCBRETCT 01855000 @NM00064 EQU QCBBYTE1 01856000 QCBRITRM EQU QCBBYTE1 01857000 @NM00063 EQU QCBEOLDT 01858000 QCBSLINK EQU IEDQQCB+13 01859000 QCBSTPRI EQU IEDQQCB+12 01860000 QCBSTCHN EQU IEDQQCB+9 01861000 QCBSTVTO EQU IEDQQCB+8 01862000 QCBLINK EQU IEDQQCB+5 01863000 QCBPRI EQU IEDQQCB+4 01864000 QCBELCHN EQU IEDQQCB+1 01865000 QCBHELD EQU QCBDSFLG 01866000 QCBFQCB EQU QCBDSFLG 01867000 QCBDRQQ EQU QCBDSFLG 01868000 QCBALTMH EQU QCBDSFLG 01869000 QCBREUS EQU QCBDISK 01870000 QCBNREUS EQU QCBDISK 01871000 QCBCORE EQU QCBDSFLG 01872000 QCBTSQ EQU QCBDSFLG 01873000 TRMRLMCT EQU IEDNTRM+10 01874000 TRMCOHTG EQU TRMSIBPT+1 01875000 TRMGPCNT EQU TRMSIBPT 01876000 TRMBUFRD EQU TRMBYTE0 01877000 TRMSNA EQU TRMBYTE0 01878000 TRMGP EQU TRMBYTE0 01879000 TRMDIAL EQU TRMBYTE0 01880000 @NM00059 EQU TRMBYTE0 01881000 TRMOUTPT EQU TRMBYTE0 01882000 TRMINPUT EQU TRMBYTE0 01883000 TRMUDEF EQU TRMBYTE0 01884000 TRMSTOTE EQU TRMBYTE1 01885000 TRMCKPRN EQU TRMBYTE1 01886000 TRMTSATN EQU TRMBYTE1 01887000 TRMTRACE EQU TRMBYTE1 01888000 TRMSWBCK EQU TRMBYTE1 01889000 TRMAUTOC EQU TRMBYTE1 01890000 TRMINPTP EQU TRMBYTE1 01891000 TRMWTNEG EQU TRMSCPRQ 01892000 TRMWRBRK EQU TRMBYTE2 01893000 TRMNOSND EQU TRMBYTE2 01894000 TRMPREP EQU TRMBYTE2 01895000 TRMGPACT EQU TRMBYTE2 01896000 TRMANDL EQU TRMBYTE2 01897000 TRMCLOSN EQU TRMINPG 01898000 TRMREMB EQU TRMBYTE2 01899000 TRMOPTBL EQU IEDQTRM+18 01900000 TRMOPNO EQU IEDQTRM+17 01901000 TRMCHCIN EQU IEDQTRM+16 01902000 TRMSENSE EQU TRMSTAT+3 01903000 TRMTEMPR EQU TRMSTAT+2 01904000 TRMSIO EQU TRMSTAT 01905000 @NM00058 EQU TRMDEVFL+1 01906000 TRMTPIN EQU TRMDEVFL+1 01907000 TRMNCPI EQU TRMDEVFL+1 01908000 TRMRNTRM EQU TRMDEVFL+1 01909000 @NM00057 EQU TRMDEVFL+1 01910000 TRMLMD EQU TRMDEVFL+1 01911000 TRMCONC EQU TRMDEVFL+1 01912000 TRMTSOB EQU TRMDEVFL 01913000 TRMBFDY EQU TRMDEVFL 01914000 TRMTBLK EQU TRMDEVFL 01915000 TRMSBLK EQU TRMDEVFL 01916000 TRMBLKS EQU TRMDEVFL 01917000 TRMADDC EQU TRMDEVFL 01918000 TRMDDIG EQU TRMDEVFL 01919000 TRMBUFS EQU TRMDEVFL 01920000 TRMPRILK EQU TRMALTD 01921000 TRMLGB EQU TRMDSORG 01922000 TRMUTERM EQU TLISTCNT 01923000 TRMSCNYN EQU TRMSTATE 01924000 TRMOPTFN EQU TRMSTATE 01925000 TRMHELDN EQU TRMSTATE 01926000 TRMACPTN EQU TRMSTATE 01927000 TRMPREF EQU TRMSTATE 01928000 TRMPROC EQU TRMLOG 01929000 TRMLIST EQU TRMLOG 01930000 TRMLINE EQU TRMSTATE 01931000 LGBIVLST EQU IEDNLGB+60 01932000 LGBRESV4 EQU LGBRESER+3 01933000 LGBRESV3 EQU LGBRESER+2 01934000 LGBRESV2 EQU LGBRESER+1 01935000 LGBRESV1 EQU LGBRESER 01936000 LGBBUFSI EQU IEDNLGB+54 01937000 @NM00056 EQU IEDNLGB+53 01938000 LGBILCT EQU IEDNLGB+52 01939000 LGBSCTAD EQU IEDNLGB+49 01940000 @NM00055 EQU LGBOFLGS 01941000 LGBOPEN EQU LGBOFLGS 01942000 @NM00054 EQU LGBOFLGS 01943000 @NM00053 EQU IEDNLGB+36 01944000 LGBTRANS EQU IEDNLGB+33 01945000 @NM00052 EQU IEDNLGB+32 01946000 @NM00051 EQU IEDNLGB+31 01947000 LGBOPACE EQU IEDNLGB+30 01948000 @NM00050 EQU LGBBYTE 01949000 LGBPACK EQU LGBBYTE 01950000 LGBBUFMA EQU IEDNLGB+28 01951000 LGBDSORG EQU IEDNLGB+26 01952000 @NM00049 EQU LGBPCI 01953000 @NM00048 EQU LGBPCI 01954000 LGBPCINO EQU LGBPCI 01955000 @NM00047 EQU LGBPCI 01956000 LGBPCIAO EQU LGBPCI 01957000 @NM00046 EQU LGBPCI 01958000 @NM00045 EQU LGBPCI 01959000 @NM00044 EQU LGBPCI 01960000 @NM00043 EQU IEDNLGB+24 01961000 LGBMHA EQU IEDNLGB+21 01962000 @NM00042 EQU LGBBUFOU 01963000 LGBPREF EQU LGBBUFOU 01964000 @NM00041 EQU LGBBUFOU 01965000 LGBSUBST EQU IEDNLGB+18 01966000 LGBTYPE EQU IEDNLGB+17 01967000 @NM00040 EQU IEDNLGB 01968000 LCBERADR EQU LCBXRADR+1 01969000 LCBPCIRC EQU LCBXRADR 01970000 LCBDCT3 EQU LCBXDCT+2 01971000 LCBDCT2 EQU LCBXDCT+1 01972000 LCBDCT1 EQU LCBXDCT 01973000 @NM00039 EQU LCBXFLAG 01974000 LCBERPND EQU LCBXFLAG 01975000 LCBSRCPF EQU LCBXFLAG 01976000 LCBGPCTV EQU LCBXFLAG 01977000 @NM00038 EQU LCBXFLAG 01978000 @NM00037 EQU LCBXFLAG 01979000 @NM00036 EQU LCBXFLAG 01980000 @NM00035 EQU LCBXFLAG 01981000 LCBCCW10 EQU LCBCPA+72 01982000 LCBCCW9 EQU LCBCPA+64 01983000 LCBCCW8 EQU LCBCPA+56 01984000 LCBCCW7 EQU LCBCPA+48 01985000 LCBCCW6 EQU LCBCPA+40 01986000 LCBCCW5 EQU LCBCPA+32 01987000 LCBCCW4 EQU LCBCPA+24 01988000 LCBCCW3 EQU LCBCPA+16 01989000 LCBCCW2 EQU LCBCPA+8 01990000 LCBCCW1 EQU LCBCPA 01991000 @NM00021 EQU LCBERCCW 01992000 LCBCSWSV EQU LCBSAVSN+1 01993000 LCBSNSV EQU LCBSAVSN 01994000 LCBBFSNS EQU LCBRSPSV 01995000 LCBWAITC EQU LCBTPCD+5 01996000 LCBINPAK EQU LCBSTAT6 01997000 LCBMHBID EQU LCBSTAT6 01998000 LCBRTRRO EQU LCBSTAT6 01999000 LCBHDRPD EQU LCBSTAT6 02000000 LCBCHN EQU LCBSTAT6 02001000 LCBBFRSV EQU LCBTPCD+1 02002000 @NM00020 EQU LCBSTAT5 02003000 LCBLUS EQU LCBSTAT5 02004000 LCBLUNIT EQU LCBSTAT5 02005000 LCBPERM EQU LCBSTAT5 02006000 LCBNXCMD EQU LCBBFRW 02007000 LCBERMSK EQU LCBOBRCH 02008000 LCBSCBA EQU IEDQLCB+93 02009000 LCBOLT EQU LCBMSGFM 02010000 LCBEOT EQU LCBMSGFM 02011000 LCBENQ EQU LCBMSGFM 02012000 LCBTTD EQU LCBMSGFM 02013000 LCBRSTRT EQU LCBMSGFM 02014000 LCBVSTRT EQU LCBMSGFM 02015000 LCBACKI EQU LCBMSGFM 02016000 LCBNAK EQU LCBMSGFM 02017000 @NM00019 EQU LCBRBCT2 02018000 LCBDCNT EQU LCBRBCT2 02019000 LCBRBCT1 EQU LCBERBCT 02020000 LCBERBCH EQU IEDQLCB+85 02021000 LCBCOMPL EQU LCBDLNKN 02022000 LCBPRCPG EQU LCBERBST 02023000 LCBERROR EQU LCBERBST 02024000 @NM00018 EQU LCBERBST 02025000 LCBINQ EQU LCBERBST 02026000 LCBRDERR EQU LCBERBST 02027000 LCBEOMSG EQU LCBERBST 02028000 LCBMSG EQU LCBERBST 02029000 LCBERBLK EQU IEDQLCB+81 02030000 LCBERBPY EQU IEDQLCB+80 02031000 LCBERBQB EQU LCBERB+1 02032000 LCBERBKY EQU LCBERB 02033000 LCBRECAD EQU IEDQLCB+73 02034000 @NM00017 EQU LCBTSTSW 02035000 @NM00016 EQU LCBTSTSW 02036000 @NM00015 EQU LCBTSTSW 02037000 @NM00014 EQU LCBTSTSW 02038000 @NM00013 EQU LCBTSTSW 02039000 @NM00012 EQU LCBTSTSW 02040000 @NM00011 EQU LCBTSTSW 02041000 LCBCONCT EQU LCBTSTSW 02042000 LCBRESP EQU LCBSTAT2 02043000 LCBBFRAV EQU LCBDIAL 02044000 LCBATTN EQU LCBSYNC 02045000 LCBNEGRP EQU LCBSTAT2 02046000 LCBSNDPR EQU LCBSTAT2 02047000 LCBCONNN EQU LCBBEOTN 02048000 LCBMSGNN EQU LCBSTAT2 02049000 LCBTRACE EQU LCBSTAT2 02050000 LCBCONT EQU LCBSTAT1 02051000 LCBINITN EQU LCBSTAT1 02052000 LCBOCNI EQU LCBSTAT1 02053000 LCBOCWTN EQU LCBSTAT1 02054000 LCBRCLLN EQU LCBSTAT1 02055000 LCBRECOF EQU IEDQLCB+68 02056000 LCBRDBFR EQU LCBRCBFR 02057000 LCBUCBX EQU IEDQLCB+64 02058000 LCBTTBIN EQU LCBERRCT 02059000 @NM00010 EQU LCBINCAM 02060000 LCBGETMN EQU LCBINCAM 02061000 LCBRESTR EQU LCBRCQCB 02062000 LCBPCILK EQU LCBDCBPT 02063000 LCBSTART EQU LCBIOBSN+16 02064000 LCBAP4OL EQU LCBSIOCC 02065000 LCBAP3OL EQU LCBSIOCC 02066000 LCBAP2OL EQU LCBSIOCC 02067000 LCBAP1OL EQU LCBSIOCC 02068000 LCBSIOC2 EQU LCBSIOCC 02069000 LCBSIOC1 EQU LCBSIOCC 02070000 @NM00009 EQU LCBSIOCC 02071000 LCBCSWRC EQU LCBCSW+5 02072000 LCBCSCHC EQU LCBCSWCS 02073000 LCBCSICC EQU LCBCSWCS 02074000 LCBCSCCC EQU LCBCSWCS 02075000 LCBCSCDC EQU LCBCSWCS 02076000 LCBCSPTC EQU LCBCSWCS 02077000 LCBCSPGC EQU LCBCSWCS 02078000 LCBCSIL EQU LCBCSWCS 02079000 LCBCSPCI EQU LCBCSWCS 02080000 LCBUSUE EQU LCBCSWUS 02081000 LCBUSUC EQU LCBCSWUS 02082000 LCBUSDE EQU LCBCSWUS 02083000 LCBUSCE EQU LCBCSWUS 02084000 LCBUSBSY EQU LCBCSWUS 02085000 LCBUSCUE EQU LCBCSWUS 02086000 LCBUSSM EQU LCBCSWUS 02087000 LCBUSAT EQU LCBCSWUS 02088000 LCBCSWCA EQU LCBCSW 02089000 LCBOBR EQU LCBFLAG3 02090000 LCBOBRRD EQU LCBFLAG3 02091000 LCBIOMSG EQU LCBFLAG3 02092000 LCBSOHC EQU LCBFLAG3 02093000 LCBRLAD EQU LCBFLAG3 02094000 LCBSOHR EQU LCBFLAG3 02095000 @NM00008 EQU LCBFLAG3 02096000 LCBECBPT EQU LCBIOBSN+4 02097000 LCBECBCC EQU LCBIOBSN+3 02098000 LCBSENS1 EQU LCBIOBSN+2 02099000 LCBABORT EQU LCBTMOUT 02100000 LCBNOTIN EQU LCBLOSDT 02101000 LCBOVRUN EQU LCBSENS0 02102000 LCBDATCK EQU LCBSENS0 02103000 LCBEQUCK EQU LCBSENS0 02104000 LCBBUSCK EQU LCBSENS0 02105000 LCBINTRQ EQU LCBSENS0 02106000 LCBCMDRJ EQU LCBSENS0 02107000 LCBFLAG2 EQU LCBIOBSN 02108000 @NM00007 EQU LCBFLAG1 02109000 LCBUNREL EQU LCBFLAG1 02110000 LCBEXCPN EQU LCBFLAG1 02111000 @NM00006 EQU LCBFLAG1 02112000 LCBERPIN EQU LCBFLAG1 02113000 @NM00005 EQU LCBFLAG1 02114000 LCBFSBFR EQU LCBMHA 02115000 LCBISZE EQU IEDQLCB+28 02116000 LCBLNENT EQU LCBSCBDA+1 02117000 @NM00004 EQU LCBSCBDA 02118000 LCBCPGMH EQU LCBSTAT4 02119000 LCBREAL EQU LCBPHASE 02120000 @NM00003 EQU LCBSTAT4 02121000 LCBACTRQ EQU LCBSTAT4 02122000 LCBIPLRQ EQU LCBSTAT4 02123000 LCBDACRQ EQU LCBSTAT4 02124000 LCBDMPRQ EQU LCBSTAT4 02125000 @NM00002 EQU LCBLKMDE 02126000 LCBLOCKI EQU LCBLKMDE 02127000 LCBLOCKR EQU LCBLKMDE 02128000 LCBHMFLG EQU LCBLKMDE 02129000 LCBBDFLG EQU LCBLKMDE 02130000 @NM00001 EQU LCBINSRC 02131000 LCBABRTN EQU LCBCHAIN 02132000 LCBCTLMD EQU LCBTETEN 02133000 LCBBFRSZ EQU LCBCHAIN 02134000 LCBUREQN EQU LCBCHAIN 02135000 LCBNORTY EQU LCBCHAIN 02136000 LCBERMSG EQU LCBCHAIN 02137000 LCBEXCP EQU LCBCHAIN 02138000 LCBINVRQ EQU LCBSCRNN 02139000 LCB2741N EQU LCBTSOB 02140000 LCBINHBN EQU LCBTSOB 02141000 LCBCIRCD EQU LCBTSOB 02142000 LCBPREP EQU LCBTSOB 02143000 LCBSOPL EQU LCBTSOB 02144000 LCBSATRD EQU LCBTSOB 02145000 LCBTSBUF EQU LCBTSOB 02146000 LCBWRBRK EQU LCBTSOB 02147000 LCBTDL EQU IEDQLCB+18 02148000 LCBEOLTD EQU IEDQLCB+16 02149000 LCBRSLNK EQU IEDQLCB+13 02150000 LCBRSPRI EQU IEDQLCB+12 02151000 LCBSTCBA EQU IEDQLCB+9 02152000 LCBRSKEY EQU IEDQLCB+8 02153000 LCBLINK EQU LCBRCB+5 02154000 LCBPRI EQU LCBRCB+4 02155000 LCBQCBA EQU LCBRCB+1 02156000 LCBKEY EQU LCBRCB 02157000 * END UNREFERENCED COMPONENTS 02158000 @RT00260 EQU ERROR2 02159000 @RT00262 EQU CKPRNT 02160000 @RT00272 EQU DCB3705 02161000 @RT00279 EQU CKPRNT8 02162000 @RT00289 EQU LCBRETRN 02163000 @RF00300 EQU DEBCHNU 02164000 @RF00299 EQU LCBLOOPU 02165000 @RT00307 EQU ERROR1 02166000 @RF00317 EQU DEBCHNU 02167000 @RF00350 EQU DEBCHNU 02168000 @EL01 EQU @EL00001 02169000 @ENDDATA EQU * 02170000 END IGCDD10D,(C'PLS0430',0701,77026) 02171000