TITLE 'IGCFA10D - INITIAL ACTIVATE *00001000 ' 00002000 IGCFA10D CSECT , 0001 00003000 @PROLOG BALR @12,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@12 0001 00006000 * /* 00007000 IGCFA10D IEDHJN AFTERHJN,HJN 00008000 * ROPCAVT=RPARM; /* SET POINTER TO OP. CTL. AVT */ 00009000 LR ROPCAVT,RPARM 0360 00010000 * RAVT=OPCAVTPT; /* SET POINTER TO TCAM AVT */ 00011000 L RAVT,OPCAVTPT(,ROPCAVT) 0361 00012000 * ROPCE=OPCCOPCE; /* SET POINTER TO CURRENT OPCE */ 00013000 L ROPCE,OPCCOPCE(,ROPCAVT) 0362 00014000 * RSAVE=ADDR(OPCSAVE); /* OP.CTL. SAVE AREA */ 00015000 LA RSAVE,OPCSAVE(,ROPCAVT) 0363 00016000 * OCRESPCT=1; /* INIT OUT RESP CT @YM04605*/ 00017000 * 0364 00018000 LR @11,ROPCE 0364 00019000 AL @11,@CF02113 0364 00020000 MVC OCRESPCT(2,@11),@CH00061 0364 00021000 * /*****************************************************************/ 00022000 * /* */ 00023000 * /* ESTABLISH ADDRESSABILITY TO OP.CTL. WORKAREA FOR MODULE DATA */ 00024000 * /* AREAS. */ 00025000 * /* */ 00026000 * /*****************************************************************/ 00027000 * 0365 00028000 * RDATA=OPCWORK; /* ADDR. OF WORKAREA */ 00029000 L RDATA,OPCWORK(,ROPCAVT) 0365 00030000 * GEN REFS(RDATA); 0366 00031000 USING @DATD,RDATA 00032000 * FLAGS=''B; /* INIT. FLAGS */ 00033000 MVI FLAGS,X'00' 0367 00034000 * IF OCWTGSAV^=NULL THEN 0368 00035000 CLC OCWTGSAV(2,ROPCE),@CB02083 0368 00036000 BE @RF00368 0368 00037000 * DO; 0369 00038000 * OCWTG=OCWTGSAV; 0370 00039000 MVC OCWTG(2,ROPCE),OCWTGSAV(ROPCE) 0370 00040000 * OCWTGSAV=''B; 0371 00041000 XC OCWTGSAV(2,ROPCE),OCWTGSAV(ROPCE) 0371 00042000 * END; 0372 00043000 * 0372 00044000 * /*****************************************************************/ 00045000 * /* */ 00046000 * /* OBTAIN TTE ADDR. OF RESOURCE NAMED IN CURRENT OPCE */ 00047000 * /* */ 00048000 * /*****************************************************************/ 00049000 * 0373 00050000 * RPARM=OCTRMTBL; /* OBTAIN TTCIN FROM OPCE */ 00051000 @RF00368 LH RPARM,OCTRMTBL(,ROPCE) 0373 00052000 N RPARM,@CF02114 0373 00053000 * CALL SUBRNMPT; /* CONVERT */ 00054000 L @15,AVTRNMPT(,RAVT) 0374 00055000 BALR @14,@15 0374 00056000 * RTRM=RPARM; /* SET PTR. TO TTE */ 00057000 LR RTRM,RPARM 0375 00058000 * IF TRMTYPE^=TRMLNCP THEN /* IF NOT NCP */ 00059000 LR @11,RTRM 0376 00060000 AL @11,@CF01567 0376 00061000 CLI TRMTYPE-11(@11),X'0F' 0376 00062000 BE @RF00376 0376 00063000 * CALL NONNCP; /* PROCESS NON-NCP TTE */ 00064000 BAL @14,NONNCP 0377 00065000 * ELSE 0378 00066000 * 0378 00067000 * /***************************************************************/ 00068000 * /* */ 00069000 * /* NCP IS TARGET RESOURCE OF OPCE */ 00070000 * /* */ 00071000 * /***************************************************************/ 00072000 * 0378 00073000 * IF TRMSTOTE=ON&OCTOTE=OFF THEN/* IF TOTE OWNS NCP AND ^ TOTE 0378 00074000 * REQUEST */ 00075000 B @RC00376 0378 00076000 @RF00376 LR @11,RTRM 0378 00077000 AL @11,@CF02115 0378 00078000 TM TRMSTOTE-3(@11),B'00000001' 0378 00079000 BNO @RF00378 0378 00080000 TM OCTOTE(ROPCE),B'01000000' 0378 00081000 BNZ @RF00378 0378 00082000 * RZERO=TOTEMSG; /* SET TOTE MSG. NO. */ 00083000 LA RZERO,514 0379 00084000 * ELSE 0380 00085000 * DO; 0380 00086000 * 0380 00087000 B @RC00378 0380 00088000 @RF00378 DS 0H 0381 00089000 * /***********************************************************/ 00090000 * /* */ 00091000 * /* OBTAIN DCB AND CHECK IF OPEN */ 00092000 * /* */ 00093000 * /***********************************************************/ 00094000 * 0381 00095000 * DCBPTR=TRMDESTQ->QCBDCBAD;/* OBTAIN ADDR. OF DCB */ 00096000 L @11,TRMDESTQ-1(,RTRM) 0381 00097000 L @11,QCBDCBAD-1(,@11) 0381 00098000 LA @11,0(,@11) 0381 00099000 ST @11,DCBPTR 0381 00100000 * IF DCBOFOPN=OFF THEN /* IF DCB NOT OPEN */ 00101000 TM DCBOFOPN+40(@11),B'00010000' 0382 00102000 BNZ @RF00382 0382 00103000 * RZERO=NOPENMSG; /* SET 'DCB NOT OPEN' MSG. NO. */ 00104000 LA RZERO,518 0383 00105000 * ELSE 0384 00106000 * DO; 0384 00107000 * 0384 00108000 B @RC00382 0384 00109000 @RF00382 DS 0H 0385 00110000 * /*******************************************************/ 00111000 * /* */ 00112000 * /* DCB OPEN . NEXT, INVOKE IN-PROG ROUTINE TO SYNCH */ 00113000 * /* THIS COMMAND WITH OTHER COMMANDS AFFECTING THIS */ 00114000 * /* RESOURCE */ 00115000 * /* */ 00116000 * /*******************************************************/ 00117000 * 0385 00118000 * RZERO=TONINPG; /* PARM FOR OPCPGCK INDICATING 0385 00119000 * THAT IN-PROG BITS SHOULD BE 0385 00120000 * SET */ 00121000 LA RZERO,1 0385 00122000 * OCWTGSAV=OCWTG; /* SAVE WHERE-TO-GO */ 00123000 MVC OCWTGSAV(2,ROPCE),OCWTG(ROPCE) 0386 00124000 * OCWTG=INITACT; /* SET IN CASE OPCE ATTACHED */ 00125000 MVC OCWTG(2,ROPCE),@CC02053 0387 00126000 * RPARM=ROPCE; /* POINT TO OPCE */ 00127000 LR RPARM,ROPCE 0388 00128000 * CALL SUBPGCK; 0389 00129000 L @15,OPCPGCK(,ROPCAVT) 0389 00130000 BALR @14,@15 0389 00131000 * IF RZERO=ATTACH THEN /* IF OPCE ATTACHED */ 00132000 C RZERO,@CF00065 0390 00133000 BNE @RF00390 0390 00134000 * DO; 0391 00135000 * OPCMODID=ZEROMOD; /* SET MODULE ID TO 00 */ 00136000 MVC OPCMODID(2,ROPCAVT),@CC02059 0392 00137000 * FINIFLG=ON; /* TURN ON FINISHED FLAG */ 00138000 OI FINIFLG,B'10000000' 0393 00139000 * END; 0394 00140000 * ELSE 0395 00141000 * DO; 0395 00142000 B @RC00390 0395 00143000 @RF00390 DS 0H 0396 00144000 * OCWTG=OCWTGSAV; 0396 00145000 MVC OCWTG(2,ROPCE),OCWTGSAV(ROPCE) 0396 00146000 * OCWTGSAV=''B; 0397 00147000 XC OCWTGSAV(2,ROPCE),OCWTGSAV(ROPCE) 0397 00148000 * IF RZERO=REJECT THEN/* IF OPCE REJECTED BY IN-PROG 00149000 * RTNE. */ 00150000 C RZERO,@CF00074 0398 00151000 BNE @RF00398 0398 00152000 * RZERO=AFORGMSG; /* ISSUE MSG THAT OP. CTL. TERM. 00153000 * AFFECTED */ 00154000 LA RZERO,517 0399 00155000 * ELSE 0400 00156000 * IF TRMRSACT=ON THEN/* IF RESOURCE ACTIVE */ 00157000 B @RC00398 0400 00158000 @RF00398 LR @11,RTRM 0400 00159000 AL @11,@CF02117 0400 00160000 TM TRMRSACT-2(@11),B'10000000' 0400 00161000 BNO @RF00400 0400 00162000 * DO; 0401 00163000 * RZERO=ALACTMSG;/* 'ALREADY ACTIVE' MSG. NO. */ 00164000 LA RZERO,516 0402 00165000 * TOFFPFLG=ON;/* SET 'TURN OFF IN-PROG' FLAG */ 00166000 OI TOFFPFLG,B'01000000' 0403 00167000 * END; 0404 00168000 * ELSE 0405 00169000 * DO; 0405 00170000 B @RC00400 0405 00171000 @RF00400 DS 0H 0406 00172000 * OPCMODID='FB';/* SET MODULE ID */ 00173000 MVC OPCMODID(2,ROPCAVT),@CC02094 0406 00174000 * FINIFLG=ON; /* TURN ON 'FINISHED' FLAG */ 00175000 OI FINIFLG,B'10000000' 0407 00176000 * END; 0408 00177000 * END; 0409 00178000 @RC00400 DS 0H 0409 00179000 @RC00398 DS 0H 0410 00180000 * END; 0410 00181000 @RC00390 DS 0H 0411 00182000 * END; 0411 00183000 * 0411 00184000 @RC00382 DS 0H 0412 00185000 * /*****************************************************************/ 00186000 * /* */ 00187000 * /* DETERMINE NEXT MODULE */ 00188000 * /* */ 00189000 * /*****************************************************************/ 00190000 * 0412 00191000 * CALL NEXTMOD; 0412 00192000 @RC00378 DS 0H 0412 00193000 @RC00376 BAL @14,NEXTMOD 0412 00194000 * RPARM=ROPCAVT; /* PARM. FOR XCTL=OP.CTL.AVT 0413 00195000 * ADDR. */ 00196000 LR RPARM,ROPCAVT 0413 00197000 * GEN REFS(ROPCAVT,OPCXCTL) EXIT; 0414 00198000 * 0414 00199000 XCTL SF=(E,OPCXCTL(ROPCAVT)) EXIT TO NEXT MODULE 00200000 * /*****************************************************************/ 00201000 * /* */ 00202000 * /* END MAIN PROCEDURE */ 00203000 * /* */ 00204000 * /*****************************************************************/ 00205000 * 0415 00206000 * 0415 00207000 * /*****************************************************************/ 00208000 * /* */ 00209000 * /* THIS ROUTINE PERFORMS THE ACTIVATE FUNCTION FOR NON-NCP */ 00210000 * /* RESOURCES */ 00211000 * /* */ 00212000 * /*****************************************************************/ 00213000 * 0415 00214000 *NONNCP: 0415 00215000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0415 00216000 NONNCP DS 0H 0416 00217000 * DCL 0416 00218000 * NNCP14SA PTR(31); /* SAVE AREA FOR RTN. REG. */ 00219000 * RFY 0417 00220000 * RRET RSTD; 0417 00221000 * NNCP14SA=RRET; /* SAVE RETURN ADDR. */ 00222000 LR NNCP14SA,RRET 0418 00223000 * RFY 0419 00224000 * RRET UNRSTD; 0419 00225000 * IF TRMCOHRT=NULL THEN /* IF HIERARCHY NOT BUILT */ 00226000 LR @11,RTRM 0420 00227000 AL @11,@CF02119 0420 00228000 LH @11,TRMCOHRT-4(,@11) 0420 00229000 N @11,@CF02114 0420 00230000 LTR @11,@11 0420 00231000 BNZ @RF00420 0420 00232000 * IF OCIDLE=ON THEN /* IF SUPERIOR RESOURCE INACT AND 00233000 * IDLE @YM05648*/ 00234000 LR @11,ROPCE 0421 00235000 AL @11,@CF02120 0421 00236000 TM OCIDLE-2(@11),B'00000001' 0421 00237000 BNO @RF00421 0421 00238000 * RZERO=INVALIDL; /* CMND SET INVALID IDLE MSG 0422 00239000 * @YM05648*/ 00240000 LA RZERO,513 0422 00241000 * ELSE /* ELSE DO LOGICAL ACTIVATE 0423 00242000 * @YM05648*/ 00243000 * DO; 0423 00244000 B @RC00421 0423 00245000 @RF00421 DS 0H 0424 00246000 * TRMREMB=ON; /* LOGICALLY ACTIVATE */ 00247000 LR @07,RTRM 0424 00248000 AL @07,@CF02117 0424 00249000 LA @15,TRMREMB-2(,@07) 0424 00250000 LR @14,@15 0424 00251000 LA @11,3 0424 00252000 NR @14,@11 0424 00253000 LCR @14,@14 0424 00254000 ALR @15,@14 0424 00255000 L @11,0(,@15) 0424 00256000 @GL00002 LR @05,@11 0424 00257000 O @05,@CB02121+3(@14) 0424 00258000 CS @11,@05,0(@15) 0424 00259000 BNE @GL00002 0424 00260000 * CKPTFLG=ON; /* CHECK POINT FLAG */ 00261000 OI CKPTFLG,B'00100000' 0425 00262000 * RZERO=LACTMSG; /* 'LOGICAL ACTIVATE' MSG. NO. */ 00263000 LA RZERO,515 0426 00264000 * END; 0427 00265000 * ELSE 0428 00266000 * DO; 0428 00267000 * 0428 00268000 B @RC00420 0428 00269000 @RF00420 DS 0H 0429 00270000 * /*************************************************************/ 00271000 * /* */ 00272000 * /* CALL IN-PROG. ROUTINE TO TURN ON IN-PROG BITS UNDER THIS */ 00273000 * /* RESOURCE */ 00274000 * /* */ 00275000 * /*************************************************************/ 00276000 * 0429 00277000 * RZERO=TONINPG; /* 'TURN ON IN-PROG' PARM */ 00278000 LA RZERO,1 0429 00279000 * OCWTGSAV=OCWTG; /* SAVE WHERE-TO-GO */ 00280000 MVC OCWTGSAV(2,ROPCE),OCWTG(ROPCE) 0430 00281000 * OCWTG=INITACT; /* SET IN CASE OPCE ATTACHED */ 00282000 MVC OCWTG(2,ROPCE),@CC02053 0431 00283000 * RPARM=ROPCE; /* ADDR. OF OPCE */ 00284000 LR RPARM,ROPCE 0432 00285000 * CALL SUBPGCK; 0433 00286000 L @15,OPCPGCK(,ROPCAVT) 0433 00287000 BALR @14,@15 0433 00288000 * IF RZERO=ATTACH THEN /* IF OPCE ATTACHED */ 00289000 C RZERO,@CF00065 0434 00290000 BNE @RF00434 0434 00291000 * DO; 0435 00292000 * OPCMODID=ZEROMOD; /* SET TO XCTL TO 00 */ 00293000 MVC OPCMODID(2,ROPCAVT),@CC02059 0436 00294000 * FINIFLG=ON; /* SET 'FINISHED' FLAG */ 00295000 OI FINIFLG,B'10000000' 0437 00296000 * END; 0438 00297000 * ELSE 0439 00298000 * DO; 0439 00299000 B @RC00434 0439 00300000 @RF00434 DS 0H 0440 00301000 * OCWTG=OCWTGSAV; /* RESTORE WHERE-TO-GO */ 00302000 MVC OCWTG(2,ROPCE),OCWTGSAV(ROPCE) 0440 00303000 * OCWTGSAV=''B; /* REINIT. WHERE-TO-GO SAVE */ 00304000 XC OCWTGSAV(2,ROPCE),OCWTGSAV(ROPCE) 0441 00305000 * IF RZERO=REJECT THEN /* IF ACTIVATE REJECTED BECAUSE 00306000 * IT AFFECTS AN OP. CTL. TERM. */ 00307000 C RZERO,@CF00074 0442 00308000 BNE @RF00442 0442 00309000 * RZERO=AFORGMSG; /* 'AFFECTS ORIGINATOR' MSG. NO. */ 00310000 LA RZERO,517 0443 00311000 * ELSE 0444 00312000 * IF TRMRSACT=ON THEN /* IF RESOURCE IS ALREADY ACTIVE */ 00313000 B @RC00442 0444 00314000 @RF00442 LR @11,RTRM 0444 00315000 AL @11,@CF02117 0444 00316000 TM TRMRSACT-2(@11),B'10000000' 0444 00317000 BNO @RF00444 0444 00318000 * DO; 0445 00319000 * RZERO=ALACTMSG; /* 'ALREADY ACTIVE' MSG. NO. */ 00320000 LA RZERO,516 0446 00321000 * TOFFPFLG=ON; /* 'TURN OFF IN-PROG' FLAG */ 00322000 OI TOFFPFLG,B'01000000' 0447 00323000 * END; 0448 00324000 * ELSE 0449 00325000 * DO; 0449 00326000 * 0449 00327000 B @RC00444 0449 00328000 @RF00444 DS 0H 0450 00329000 * /***************************************************/ 00330000 * /* */ 00331000 * /* FIND NEXT HIGHEST RESOURCE @YM02925*/ 00332000 * /* */ 00333000 * /***************************************************/ 00334000 * 0450 00335000 * RPARM=RTRM; /* COPY TTE ADDR. @YM02925*/ 00336000 LR RPARM,RTRM 0450 00337000 * CALL COHORTLK; /* FIND SUPERIOR TTE @YM02925*/ 00338000 L @15,OPCHORT(,ROPCAVT) 0451 00339000 BALR @14,@15 0451 00340000 * RFY 0452 00341000 * IEDQTRM BASED(RPARM);/* BASE ON SUPERIOR TTE 0452 00342000 * @YM02925*/ 00343000 * IF TRMRSACT=OFF THEN/* IF NOT ACTIVE @YM02925*/ 00344000 LR @11,RPARM 0453 00345000 AL @11,@CF02117 0453 00346000 TM TRMRSACT-2(@11),B'10000000' 0453 00347000 BNZ @RF00453 0453 00348000 * DO; /* @YM02925*/ 00349000 * 0454 00350000 * /***********************************************/ 00351000 * /* */ 00352000 * /* IF SUPERIOR RESOURCE NOT ACTIVE, ACTIVATE */ 00353000 * /* ORIG. RESOURCE LOGICALLY UNLESS CMND IS IDLE*/ 00354000 * /* */ 00355000 * /***********************************************/ 00356000 * 0455 00357000 * IF OCIDLE=ON THEN/* IF CMND WAS IDLE THEN 0455 00358000 * INVALID @YM05648*/ 00359000 LR @11,ROPCE 0455 00360000 AL @11,@CF02120 0455 00361000 TM OCIDLE-2(@11),B'00000001' 0455 00362000 BNO @RF00455 0455 00363000 * RZERO=INVALIDL;/* SO SET INVALID IDLE MSG 0456 00364000 * @YM05648*/ 00365000 LA RZERO,513 0456 00366000 * ELSE /* IF NOT IDLE THEN DO LOG 0457 00367000 * ACTIVATE @YM05648*/ 00368000 * DO; /* @YM05648*/ 00369000 B @RC00455 0457 00370000 @RF00455 DS 0H 0458 00371000 * RFY 0458 00372000 * IEDQTRM BASED(RTRM);/* BASE ON ORIG. TTE 00373000 * @YM02925*/ 00374000 * TRMREMB=ON;/* TURN ON REMEMBER BIT */ 00375000 LR @07,RTRM 0459 00376000 AL @07,@CF02117 0459 00377000 LA @15,TRMREMB-2(,@07) 0459 00378000 LR @14,@15 0459 00379000 LA @11,3 0459 00380000 NR @14,@11 0459 00381000 LCR @14,@14 0459 00382000 ALR @15,@14 0459 00383000 L @11,0(,@15) 0459 00384000 @GL00003 LR @05,@11 0459 00385000 O @05,@CB02121+3(@14) 0459 00386000 CS @11,@05,0(@15) 0459 00387000 BNE @GL00003 0459 00388000 * CKPTFLG=ON;/* TURN ON CHECKPOINT FLAG */ 00389000 OI CKPTFLG,B'00100000' 0460 00390000 * RZERO=LACTMSG;/* 'LOGICAL ACTIVATE' MSG. 0461 00391000 * NO. */ 00392000 LA RZERO,515 0461 00393000 * END; /* @YM05648*/ 00394000 * TOFFPFLG=ON; /* SET 'TURN OFF IN-PROG' FLAG */ 00395000 @RC00455 OI TOFFPFLG,B'01000000' 0463 00396000 * END; 0464 00397000 * ELSE 0465 00398000 * DO; 0465 00399000 * 0465 00400000 B @RC00453 0465 00401000 @RF00453 DS 0H 0466 00402000 * /***********************************************/ 00403000 * /* */ 00404000 * /* IF SUPERIOR RESOURCE ACTIVE, ALLOW ACTIVATE */ 00405000 * /* FOR ORIGINAL RESOURCE IF IT IS NOT A LINE */ 00406000 * /* OWNED BY TOTE */ 00407000 * /* */ 00408000 * /***********************************************/ 00409000 * 0466 00410000 * IF TRMSTOTE=ON&TRMLINE=ON THEN/* IF TTE IS LINE 00411000 * IN TOTE MODE */ 00412000 LR @11,RTRM 0466 00413000 AL @11,@CF02115 0466 00414000 TM TRMSTOTE-3(@11),B'00000001' 0466 00415000 BNO @RF00466 0466 00416000 TM TRMLINE(RTRM),B'10000000' 0466 00417000 BNO @RF00466 0466 00418000 * DO; 0467 00419000 * RZERO=TOTEMSG;/* 'TOTE OWNERSHIP' MSG. NO. */ 00420000 LA RZERO,514 0468 00421000 * TOFFPFLG=ON;/* SET 'TURN OFF IN-PROG' FLAG */ 00422000 OI TOFFPFLG,B'01000000' 0469 00423000 * END; 0470 00424000 * ELSE 0471 00425000 * CALL ACTIVATE;/* POST SSCP TO ISSUE ACTIVATE */ 00426000 B @RC00466 0471 00427000 @RF00466 BAL @14,ACTIVATE 0471 00428000 * END; 0472 00429000 @RC00466 DS 0H 0473 00430000 * END; 0473 00431000 @RC00453 DS 0H 0474 00432000 * END; 0474 00433000 @RC00444 DS 0H 0474 00434000 @RC00442 DS 0H 0475 00435000 * END; 0475 00436000 @RC00434 DS 0H 0476 00437000 * RFY 0476 00438000 * RRET RSTD; 0476 00439000 @RC00420 DS 0H 0477 00440000 * RRET=NNCP14SA; /* RESTORE RETURN ADDR. */ 00441000 LR RRET,NNCP14SA 0477 00442000 * RFY 0478 00443000 * RRET RSTD; 0478 00444000 * END NONNCP; 0479 00445000 @EL00002 DS 0H 0479 00446000 @EF00002 DS 0H 0479 00447000 @ER00002 BR @14 0479 00448000 * 0480 00449000 * /*****************************************************************/ 00450000 * /* */ 00451000 * /* THIS ROUTINE POSTS THE SSCP TO DO AN ACTIVATION OF A NON-NCP */ 00452000 * /* RESOURCE. */ 00453000 * /* */ 00454000 * /*****************************************************************/ 00455000 * 0480 00456000 *ACTIVATE: 0480 00457000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0480 00458000 ACTIVATE DS 0H 0481 00459000 * DCL 0481 00460000 * ACT14SAV PTR(31); /* SAVE AREA FOR RETURN ADDR. */ 00461000 * RFY 0482 00462000 * RRET RSTD; 0482 00463000 * ACT14SAV=RRET; /* SAVE RETURN ADDR. */ 00464000 LR ACT14SAV,RRET 0483 00465000 * RFY 0484 00466000 * RRET UNRSTD; 0484 00467000 * 0484 00468000 * /*****************************************************************/ 00469000 * /* */ 00470000 * /* GET ONE BUFFER UNIT */ 00471000 * /* */ 00472000 * /*****************************************************************/ 00473000 * 0485 00474000 * RPARM=ONEBUF; /* NO. OF UNITS REQUESTED */ 00475000 LA RPARM,1 0485 00476000 * CALL SUBGETBF; /* OBTAIN ONE BUFFER UNIT */ 00477000 L @15,OPCGETBF(,ROPCAVT) 0486 00478000 BALR @14,@15 0486 00479000 * OPCADGOT=OPCADGOT+1; /* INCREMENT NO BUF UNITS A/D HAS*/ 00480000 * 0487 00481000 LA @05,1 0487 00482000 LH @15,OPCADGOT(,ROPCAVT) 0487 00483000 N @15,@CF02114 0487 00484000 ALR @05,@15 0487 00485000 STH @05,OPCADGOT(,ROPCAVT) 0487 00486000 * /*****************************************************************/ 00487000 * /* */ 00488000 * /* BUILD OPCE TO SEND ACTIVATE TO THE SSCP. */ 00489000 * /* */ 00490000 * /*****************************************************************/ 00491000 * 0488 00492000 * RPARM->OCPTRSAV=ROPCE; /* PUT ADDR. OF ORIG. OPCE IN NEW 00493000 * OPCE */ 00494000 ST ROPCE,OCPTRSAV(,RPARM) 0488 00495000 * ROPCE=RPARM; /* COPY ADDR. OF NEW OPCE */ 00496000 LR ROPCE,RPARM 0489 00497000 * OPCCOPCE=ROPCE; /* SET NEW OPCE AS CURRENT */ 00498000 ST ROPCE,OPCCOPCE(,ROPCAVT) 0490 00499000 * OCELMPRI=PRIHIFLG; /* SET PRIORITY */ 00500000 MVI OCELMPRI(ROPCE),X'E9' 0491 00501000 * OCPRIFLG=OPRA0; /* FLAG FIELD FOR SSCP POST */ 00502000 MVI OCPRIFLG(ROPCE),X'01' 0492 00503000 * OCWTG=RESPROC; /* SET TO ROUTE TO ACTIVATE RESP. 00504000 * PROCESSOR */ 00505000 MVC OCWTG(2,ROPCE),@CC02055 0493 00506000 * OCACTREQ=ON; /* SET ACTIVATE REQ. FLAG 0494 00507000 * @YM03705*/ 00508000 OI OCACTREQ(ROPCE),B'00001000' 0494 00509000 * OCTRMTBL=OCPTRSAV->OCTRMTBL; /* COPY ORIG. RESOURCE TTCIN INTO 00510000 * NEW OPCE */ 00511000 L @05,OCPTRSAV(,ROPCE) 0495 00512000 LH @05,OCTRMTBL(,@05) 0495 00513000 N @05,@CF02114 0495 00514000 STH @05,OCTRMTBL(,ROPCE) 0495 00515000 * IF TRMTYPE=TRMSDLC THEN /* IF RESOURCE IS A LINE */ 00516000 LR @05,RTRM 0496 00517000 AL @05,@CF01567 0496 00518000 CLI TRMTYPE-11(@05),X'21' 0496 00519000 BNE @RF00496 0496 00520000 * OCSWITCH=OCACTLK; /* SET CODE FOR ACTLINK */ 00521000 MVI OCSWITCH(ROPCE),X'50' 0497 00522000 * ELSE 0498 00523000 * IF TRMTYPE=TRMPUNT THEN /* IF RESOURCE IS A PU */ 00524000 B @RC00496 0498 00525000 @RF00496 LR @05,RTRM 0498 00526000 AL @05,@CF01567 0498 00527000 CLI TRMTYPE-11(@05),X'18' 0498 00528000 BNE @RF00498 0498 00529000 * OCSWITCH=OCACTPU; /* SET CODE FOR ACTPU */ 00530000 MVI OCSWITCH(ROPCE),X'30' 0499 00531000 * ELSE 0500 00532000 * IF TRMTYPE=TRMLUNT THEN /* IF RESOURCE IS AN LU */ 00533000 B @RC00498 0500 00534000 @RF00498 LR @05,RTRM 0500 00535000 AL @05,@CF01567 0500 00536000 CLI TRMTYPE-11(@05),X'30' 0500 00537000 BNE @RF00500 0500 00538000 * OCSWITCH=OCACTLU; /* SET CODE FOR ACTLU */ 00539000 MVI OCSWITCH(ROPCE),X'10' 0501 00540000 * OPCMODID=SSCP; /* SET MODULE ID TO SSCP MODULE 00541000 * FOR XCTL */ 00542000 @RF00500 DS 0H 0502 00543000 @RC00498 DS 0H 0502 00544000 @RC00496 MVC OPCMODID(2,ROPCAVT),@CC02057 0502 00545000 * FINIFLG=ON; /* SET FINISHED FLAG */ 00546000 OI FINIFLG,B'10000000' 0503 00547000 * RFY 0504 00548000 * RRET RSTD; 0504 00549000 * RRET=ACT14SAV; /* RESTORE RETURN ADDR. */ 00550000 LR RRET,ACT14SAV 0505 00551000 * RFY 0506 00552000 * RRET UNRSTD; 0506 00553000 * END ACTIVATE; 0507 00554000 @EL00003 DS 0H 0507 00555000 @EF00003 DS 0H 0507 00556000 @ER00003 BR @14 0507 00557000 * 0508 00558000 * /*****************************************************************/ 00559000 * /* */ 00560000 * /* THIS ROUTINE DETERMINES THE NEXT MODULE TO XCTL TO BASED ON */ 00561000 * /* THE PROCESSING OF PREVIOUS ROUTINES IN THIS MODULE. */ 00562000 * /* */ 00563000 * /*****************************************************************/ 00564000 * 0508 00565000 *NEXTMOD: 0508 00566000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0508 00567000 NEXTMOD DS 0H 0509 00568000 * DCL 0509 00569000 * RZEROSAV FIXED(31); /* SAVE AREA FOR REG. 0 (MSG. 0509 00570000 * NO.) */ 00571000 * DCL 0510 00572000 * NXT14SAV PTR(31); /* SAVE AREA FOR RETURN ADDR. */ 00573000 * RFY 0511 00574000 * RRET RSTD; 0511 00575000 * NXT14SAV=RRET; /* SAVE RETURN ADDR. */ 00576000 LR NXT14SAV,RRET 0512 00577000 * RFY 0513 00578000 * RRET UNRSTD; 0513 00579000 * IF FINIFLG=OFF THEN /* IF THE FINISHED FLAG IS OFF */ 00580000 TM FINIFLG,B'10000000' 0514 00581000 BNZ @RF00514 0514 00582000 * DO; 0515 00583000 * 0515 00584000 * /*************************************************************/ 00585000 * /* */ 00586000 * /* THE FINISHED FLAG IS OFF, DETERMINE NEXT MODULE */ 00587000 * /* */ 00588000 * /*************************************************************/ 00589000 * 0516 00590000 * IF TOFFPFLG=ON THEN /* IF 'TURN OFF IN-PROG BITS' 0516 00591000 * FLAG ON THEN */ 00592000 TM TOFFPFLG,B'01000000' 0516 00593000 BNO @RF00516 0516 00594000 * DO; 0517 00595000 * 0517 00596000 * /*********************************************************/ 00597000 * /* */ 00598000 * /* RESOURCE WAS ALREADY ACTIVE, TURN OFF IN-PROG BITS IN */ 00599000 * /* ALL RESOURCES UNDER HIERARCHY. */ 00600000 * /* */ 00601000 * /*********************************************************/ 00602000 * 0518 00603000 * RZEROSAV=RZERO; /* SAVE MESSAGE NUMBER */ 00604000 LR RZEROSAV,RZERO 0518 00605000 * RZERO=TOFFINPG; /* PARAMETER TELLING OPCPGCK TO 00606000 * TURN OFF IN-PROG BITS */ 00607000 SLR RZERO,RZERO 0519 00608000 * RPARM=OPCCOPCE; /* POINT TO CURRENT OPCE */ 00609000 L RPARM,OPCCOPCE(,ROPCAVT) 0520 00610000 * CALL SUBPGCK; /* SUBRTNE BASED ON RBRNCH */ 00611000 L @15,OPCPGCK(,ROPCAVT) 0521 00612000 BALR @14,@15 0521 00613000 * RZERO=RZEROSAV; /* RESTORE MSG. NO. */ 00614000 LR RZERO,RZEROSAV 0522 00615000 * END; 0523 00616000 * ELSE 0524 00617000 * ; 0524 00618000 @RF00516 DS 0H 0525 00619000 * IF(TRMRSACT=ON&OCDCARD=ON) THEN 0525 00620000 LR @11,RTRM 0525 00621000 AL @11,@CF02117 0525 00622000 TM TRMRSACT-2(@11),B'10000000' 0525 00623000 BNO @RF00525 0525 00624000 LR @11,ROPCE 0525 00625000 AL @11,@CF02120 0525 00626000 TM OCDCARD-2(@11),B'00000100' 0525 00627000 BNO @RF00525 0525 00628000 * DO; /* WAS RESOURCE ACTIVATED 0526 00629000 * INTERNALLY @OY19989*/ 00630000 * IF OCATTACH=ON THEN 0527 00631000 TM OCATTACH(ROPCE),B'00000010' 0527 00632000 BNO @RF00527 0527 00633000 * OPCNEXT=OCELEM; /* ANY ELEMENTS ATTACHED@OY19989 */ 00634000 L @11,OCELEM(,ROPCE) 0528 00635000 ST @11,OPCNEXT(,ROPCAVT) 0528 00636000 * ELSE 0529 00637000 * ; 0529 00638000 @RF00527 DS 0H 0530 00639000 * RZERO=1; /* SET DECREMENT VALUE @OY19989*/ 00640000 LA RZERO,1 0530 00641000 * CALL DECRCT; /* DECREMENT OPCADGOT @OY19989*/ 00642000 L @15,OPCDECR(,ROPCAVT) 0531 00643000 BALR @14,@15 0531 00644000 * RPARM=ROPCE; /* POINT TO REDRIVE OPCE @OY19989*/ 00645000 LR RPARM,ROPCE 0532 00646000 * CALL FREEBUF; /* FREE REDRIVE OPCE @OY19989*/ 00647000 L @15,OPCFREBF(,ROPCAVT) 0533 00648000 BALR @14,@15 0533 00649000 * OPCMODID=ZEROMOD; /* SET EXIT TO 00 @OY19989*/ 00650000 MVC OPCMODID(2,ROPCAVT),@CC02059 0534 00651000 * END; /* @OY19989*/ 00652000 * ELSE 0536 00653000 * DO; /* RESOURCE WAS NOT ACTIVATED 0536 00654000 * INTERNALLY @OY19989*/ 00655000 B @RC00525 0536 00656000 @RF00525 DS 0H 0537 00657000 * OCPARM=RZERO; /* SET PARM. OF WTG MODULE WITH 00658000 * MSG. NO. */ 00659000 STH RZERO,OCPARM(,ROPCE) 0537 00660000 * IF OCWTG=NULL THEN /* IF OCWTG IS 0 */ 00661000 CLC OCWTG(2,ROPCE),@CB02083 0538 00662000 BNE @RF00538 0538 00663000 * IF OCTOTE=OFF THEN /* IF THIS IS NOT A TOTE REQUEST */ 00664000 TM OCTOTE(ROPCE),B'01000000' 0539 00665000 BNZ @RF00539 0539 00666000 * IF CKPTFLG=ON THEN /* IF PREVIOUS ROUTINE HAS ASKED 00667000 * FOR A CHECKPOINT */ 00668000 TM CKPTFLG,B'00100000' 0540 00669000 BNO @RF00540 0540 00670000 * DO; 0541 00671000 * 0541 00672000 * /*************************************************/ 00673000 * /* */ 00674000 * /* AN INCIDENT CHECKPOINT RECORD IS TO BE TAKEN */ 00675000 * /* */ 00676000 * /*************************************************/ 00677000 * 0542 00678000 * IF OCDCARD=ON THEN/* IF SPANNED BY F ACT,NCP 0542 00679000 * @YM06038*/ 00680000 LR @11,ROPCE 0542 00681000 AL @11,@CF02120 0542 00682000 TM OCDCARD-2(@11),B'00000100' 0542 00683000 BNO @RF00542 0542 00684000 * OCWTG=RESPROC;/* CHECKPOINT & LET IGCFE10D FREE 00685000 * THE OPCE @YM06038*/ 00686000 MVC OCWTG(2,ROPCE),@CC02055 0543 00687000 * ELSE /* @YM06038*/ 00688000 * OCWTG=MSGMOD; /* ELSE SET TO GO TO MSG. MODULE 00689000 * AFTER CKPT. TO SEND MSG. TO 0544 00690000 * OPERATOR */ 00691000 B @RC00542 0544 00692000 @RF00542 MVC OCWTG(2,ROPCE),@CC02047 0544 00693000 * OPCMODID=CKPTMOD;/* SET TO XCTL TO CKPT. MODULE */ 00694000 @RC00542 MVC OPCMODID(2,ROPCAVT),@CC02051 0545 00695000 * END; 0546 00696000 * ELSE 0547 00697000 * 0547 00698000 * /***************************************************/ 00699000 * /* */ 00700000 * /* A CHECKPOINT IS NOT TO BE TAKEN */ 00701000 * /* */ 00702000 * /***************************************************/ 00703000 * 0547 00704000 * OPCMODID=MSGMOD; /* SET TO XCTL TO MSG. MODULE TO 00705000 * SEND MSG. TO OPERATOR */ 00706000 B @RC00540 0547 00707000 @RF00540 MVC OPCMODID(2,ROPCAVT),@CC02047 0547 00708000 * ELSE 0548 00709000 * DO; 0548 00710000 * 0548 00711000 B @RC00539 0548 00712000 @RF00539 DS 0H 0549 00713000 * /***************************************************/ 00714000 * /* */ 00715000 * /* TOTE ISSUED ACTIVATE COMMAND */ 00716000 * /* */ 00717000 * /***************************************************/ 00718000 * 0549 00719000 * OPCMODID=OUTWRMOD;/* SET TO XCTL TO OUTPUT WRITER 00720000 * TO POST TOTE */ 00721000 MVC OPCMODID(2,ROPCAVT),@CC02049 0549 00722000 * CKPTFLG=OFF; /* RESET CKPT FLAG FOR NEXT PASS 00723000 * THROUGH MODULE */ 00724000 NI CKPTFLG,B'11011111' 0550 00725000 * IF RZERO=ALACTMSG THEN/* IF ALREADY ACTIVE MSG. NO.*/ 00726000 C RZERO,@CF02067 0551 00727000 BNE @RF00551 0551 00728000 * RZERO=TOTEDONE; /* ALREADY ACTIVE RETURN CODE */ 00729000 LA RZERO,8 0552 00730000 * ELSE 0553 00731000 * IF RZERO=LACTMSG THEN/* IF LOGICAL ACTIVATE MSG. 00732000 * NO. */ 00733000 B @RC00551 0553 00734000 @RF00551 C RZERO,@CF02069 0553 00735000 BNE @RF00553 0553 00736000 * RZERO=TOTEGOOD;/* GOOD RETURN CODE */ 00737000 SLR RZERO,RZERO 0554 00738000 * ELSE 0555 00739000 * RZERO=TOTEBAD;/* BAD RETURN CODE - NOT 0555 00740000 * ACTIVATED */ 00741000 B @RC00553 0555 00742000 @RF00553 LA RZERO,4 0555 00743000 * END; 0556 00744000 * ELSE 0557 00745000 * DO; 0557 00746000 * 0557 00747000 B @RC00538 0557 00748000 @RF00538 DS 0H 0558 00749000 * /*****************************************************/ 00750000 * /* */ 00751000 * /* OCWTG NOT 0 INDICATING XCTL SHOULD BE MADE TO */ 00752000 * /* MODULE INDICATED ON ENTRANCE TO THIS MODULE */ 00753000 * /* */ 00754000 * /*****************************************************/ 00755000 * 0558 00756000 * OPCMODID=OCWTG; 0558 00757000 MVC OPCMODID(2,ROPCAVT),OCWTG(ROPCE) 0558 00758000 * CKPTFLG=OFF; /* RESET CKPT. FLAG FOR NEXT PASS 00759000 * THROUGH THIS MODULE */ 00760000 NI CKPTFLG,B'11011111' 0559 00761000 * OCWTG=''B; /* CLEAR */ 00762000 XC OCWTG(2,ROPCE),OCWTG(ROPCE) 0560 00763000 * END; 0561 00764000 * END; /* @OY19989*/ 00765000 * END; 0563 00766000 * ELSE 0564 00767000 * 0564 00768000 * /***************************************************************/ 00769000 * /* */ 00770000 * /* CMND. WAS ACCEPTED, XCTL TO MODULE WHICH PREVIOUS ROUTINES */ 00771000 * /* STORED IN OCMODID. */ 00772000 * /* */ 00773000 * /***************************************************************/ 00774000 * 0564 00775000 * FINIFLG=OFF; /* RESET FINISHED FLAG FOR NEXT 00776000 * PASS THROUGH MODULE */ 00777000 * 0564 00778000 B @RC00514 0564 00779000 @RF00514 NI FINIFLG,B'01111111' 0564 00780000 * /*****************************************************************/ 00781000 * /* */ 00782000 * /* AT THIS POINT OPCMODID CONTAINS MODULE ID FOR XCTL */ 00783000 * /* */ 00784000 * /*****************************************************************/ 00785000 * 0565 00786000 * RFY 0565 00787000 * RRET RSTD; 0565 00788000 @RC00514 DS 0H 0566 00789000 * RRET=NXT14SAV; /* RESTORE RETURN ADDR. */ 00790000 LR RRET,NXT14SAV 0566 00791000 * RFY 0567 00792000 * RRET UNRSTD; 0567 00793000 * END NEXTMOD; 0568 00794000 @EL00004 DS 0H 0568 00795000 @EF00004 DS 0H 0568 00796000 @ER00004 BR @14 0568 00797000 @PB00004 DS 0H 0568 00798000 * END IGCFA10D 0569 00799000 * 0569 00800000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00801000 */*%INCLUDE SYSLIB (TAVTD ) */ 00802000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00803000 */*%INCLUDE SYSLIB (IHADCB ) */ 00804000 */*%INCLUDE SYSLIB (TLCBD ) */ 00805000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00806000 */*%INCLUDE SYSLIB (TOPCED ) */ 00807000 */*%INCLUDE SYSLIB (TOPRED ) */ 00808000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00809000 */*%INCLUDE SYSLIB (TQCBD ) */ 00810000 */*%INCLUDE SYSLIB (TTNTD ) */ 00811000 */*%INCLUDE SYSLIB (TTRMD ) */ 00812000 * 0569 00813000 * ; 0569 00814000 @DATA DS 0H 00815000 @CH00061 DC H'1' 00816000 @DATD DSECT 00817000 DS 0F 00818000 IGCFA10D CSECT 00819000 DS 0F 00820000 @CF00065 DC F'2' 00821000 @CF00074 DC F'3' 00822000 @CF02069 DC F'515' 00823000 @CF02067 DC F'516' 00824000 @CF02117 DC F'-12' 00825000 @CF02115 DC F'-11' 00826000 @CF02119 DC F'-10' 00827000 @CF02113 DC F'-8' 00828000 @CF02120 DC F'-6' 00829000 @CF01567 DC F'-3' 00830000 @CF02114 DC XL4'0000FFFF' 00831000 @DATD DSECT 00832000 DS 0D 00833000 DCBPTR DS A 00834000 FLAGS DS BL1 00835000 ORG FLAGS 00836000 FINIFLG DS BL1 00837000 TOFFPFLG EQU FLAGS+0 00838000 CKPTFLG EQU FLAGS+0 00839000 ORG FLAGS+1 00840000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00841000 @ENDDATD EQU * 00842000 IGCFA10D CSECT 00843000 DS 0F 00844000 @SIZDATD DC AL1(0) 00845000 DC AL3(@ENDDATD-@DATD) 00846000 DS 0D 00847000 @CC02047 DC C'0H' 00848000 @CC02049 DC C'07' 00849000 @CC02051 DC C'06' 00850000 @CC02053 DC C'FA' 00851000 @CC02055 DC C'FE' 00852000 @CC02057 DC C'A0' 00853000 @CC02059 DC C'00' 00854000 @CC02094 DC C'FB' 00855000 @CB02083 DC X'0000' 00856000 @CB02121 DC B'000000000000000000000000010000000000000000000000000000C00857000 00' 00858000 DS CL1 00859000 ADPATCH DC XL50'0' 00860000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00861000 @01 EQU 01 00862000 @02 EQU 02 00863000 @03 EQU 03 00864000 @04 EQU 04 00865000 @05 EQU 05 00866000 @06 EQU 06 00867000 @07 EQU 07 00868000 @08 EQU 08 00869000 @09 EQU 09 00870000 @10 EQU 10 00871000 @11 EQU 11 00872000 @12 EQU 12 00873000 @13 EQU 13 00874000 @14 EQU 14 00875000 @15 EQU 15 00876000 NXT14SAV EQU @09 00877000 RZEROSAV EQU @05 00878000 ACT14SAV EQU @11 00879000 NNCP14SA EQU @09 00880000 LCBXPTR EQU @05 00881000 ROPCAVT EQU @02 00882000 ROPCE EQU @03 00883000 RZERO EQU @00 00884000 RPARM EQU @01 00885000 RSAVE EQU @13 00886000 RRET EQU @14 00887000 RAVT EQU @04 00888000 RTRM EQU @08 00889000 RDATA EQU @10 00890000 IEDQAVTD EQU 0 00891000 AVTSAVEX EQU IEDQAVTD+288 00892000 AVTREADD EQU IEDQAVTD+380 00893000 AVTBUFSW EQU IEDQAVTD+384 00894000 @NM00004 EQU IEDQAVTD+388 00895000 AVTCKFLG EQU @NM00004 00896000 AVTBASE EQU IEDQAVTD+412 00897000 AVTPKF EQU AVTBASE 00898000 AVTRNMPT EQU IEDQAVTD+424 00899000 AVTOSECB EQU IEDQAVTD+492 00900000 AVTECB1 EQU AVTOSECB 00901000 AVTHG02 EQU IEDQAVTD+528 00902000 AVTDISP EQU IEDQAVTD+552 00903000 AVTHD EQU IEDQAVTD+556 00904000 AVTSCOPT EQU AVTHD 00905000 AVTSAVTP EQU IEDQAVTD+612 00906000 AVTSAVTF EQU AVTSAVTP 00907000 AVTCKPEL EQU IEDQAVTD+652 00908000 AVTCKRMV EQU AVTCKPEL 00909000 AVTCKELF EQU IEDQAVTD+680 00910000 AVTCKBYT EQU IEDQAVTD+691 00911000 AVTHG01 EQU IEDQAVTD+692 00912000 AVTCKLNK EQU IEDQAVTD+696 00913000 AVTCRELE EQU IEDQAVTD+708 00914000 AVTCCELE EQU AVTCRELE 00915000 AVTCLRHI EQU IEDQAVTD+716 00916000 AVTADBUF EQU IEDQAVTD+720 00917000 AVTSYSER EQU IEDQAVTD+728 00918000 AVTBFRFG EQU IEDQAVTD+784 00919000 AVTCKPQB EQU IEDQAVTD+804 00920000 AVTCKPTB EQU AVTCKPQB 00921000 AVTCKPEC EQU AVTCKPQB+4 00922000 AVTCKPCC EQU AVTCKPEC 00923000 AVTOPCQB EQU IEDQAVTD+816 00924000 AVTOPCOB EQU AVTOPCQB 00925000 AVTOPCEC EQU AVTOPCQB+4 00926000 AVTOPCCC EQU AVTOPCEC 00927000 AVTOLTQB EQU IEDQAVTD+828 00928000 AVTCWFL1 EQU IEDQAVTD+924 00929000 AVTCWFL2 EQU IEDQAVTD+925 00930000 AVTSUBT EQU IEDQAVTD+948 00931000 AVTIOTR EQU IEDQAVTD+949 00932000 AVTBIT1 EQU IEDQAVTD+1050 00933000 AVTBIT2 EQU IEDQAVTD+1051 00934000 AVTBIT3 EQU IEDQAVTD+1052 00935000 AVTBIT4 EQU IEDQAVTD+1136 00936000 @NM00086 EQU IEDQAVTD+1232 00937000 IEDNSVTD EQU 0 00938000 SAVTDIAG EQU IEDNSVTD 00939000 SAVTDIAF EQU SAVTDIAG 00940000 SAVTLUSQ EQU IEDNSVTD+88 00941000 SAVTTCPU EQU IEDNSVTD+238 00942000 SAVTZELM EQU IEDNSVTD+270 00943000 SAVTRDRV EQU IEDNSVTD+284 00944000 SAVTCKQB EQU IEDNSVTD+300 00945000 SAVTCKTB EQU SAVTCKQB 00946000 SAVTCKEC EQU SAVTCKQB+4 00947000 SAVTCKCC EQU SAVTCKEC 00948000 IHADCB EQU 0 00949000 IHADCS1A EQU 0 00950000 DCBBCKUP EQU IHADCS1A+8 00951000 IHADCS16 EQU 0 00952000 DCBMHA EQU IHADCS16 00953000 DCBBUFOU EQU DCBMHA 00954000 DCBBUFIN EQU DCBBUFOU 00955000 DCBPCI EQU IHADCS16+5 00956000 DCBDSORG EQU IHADCS16+6 00957000 DCBDSRG1 EQU DCBDSORG 00958000 DCBDSRG2 EQU DCBDSORG+1 00959000 IHADCS17 EQU 0 00960000 DCBCLPS EQU IHADCS17 00961000 DCBIOBAD EQU IHADCS17+8 00962000 IHADCS18 EQU 0 00963000 DCBTRANA EQU IHADCS18 00964000 IHADCS19 EQU 0 00965000 DCBLCBAD EQU IHADCS19 00966000 DCBCPRI EQU DCBLCBAD 00967000 DCBEXLST EQU IHADCS19+4 00968000 IHADCS2K EQU 0 00969000 DCBDUMPD EQU IHADCS2K 00970000 DCBTRSTA EQU IHADCS2K+5 00971000 DCBRNCKD EQU IHADCS2K+12 00972000 @NM00122 EQU IHADCS2K+16 00973000 IHADCS24 EQU 0 00974000 DCBOFLGS EQU IHADCS24+8 00975000 DCBOFLWR EQU DCBOFLGS 00976000 DCBOFOPN EQU DCBOFLGS 00977000 DCBIFLG EQU IHADCS24+9 00978000 DCBIBPCT EQU DCBIFLG 00979000 DCBMACR EQU IHADCS24+10 00980000 DCBMACR1 EQU DCBMACR 00981000 DCBMRFE EQU DCBMACR1 00982000 DCBMRGET EQU DCBMRFE 00983000 DCBMRAPG EQU DCBMACR1 00984000 DCBMRRD EQU DCBMRAPG 00985000 DCBMRCI EQU DCBMACR1 00986000 DCBMRMVG EQU DCBMRCI 00987000 DCBMRLCG EQU DCBMACR1 00988000 DCBMRABC EQU DCBMACR1 00989000 DCBMRPT1 EQU DCBMRABC 00990000 DCBMRSBG EQU DCBMRPT1 00991000 DCBMRCRL EQU DCBMACR1 00992000 DCBMRCHK EQU DCBMRCRL 00993000 DCBMRRDX EQU DCBMRCHK 00994000 DCBMRDMG EQU DCBMACR1 00995000 DCBMACR2 EQU DCBMACR+1 00996000 DCBMRPUT EQU DCBMACR2 00997000 DCBMRWRT EQU DCBMACR2 00998000 DCBMRMVP EQU DCBMACR2 00999000 DCBMR5WD EQU DCBMACR2 01000000 DCBMRLDM EQU DCBMR5WD 01001000 DCBMRLCP EQU DCBMRLDM 01002000 DCBMR4WD EQU DCBMACR2 01003000 DCBMRPT2 EQU DCBMR4WD 01004000 DCBMRTMD EQU DCBMRPT2 01005000 DCBMR3WD EQU DCBMACR2 01006000 DCBMRCTL EQU DCBMR3WD 01007000 DCBMRSTK EQU DCBMRCTL 01008000 DCBMR1WD EQU DCBMACR2 01009000 DCBMRSWA EQU DCBMR1WD 01010000 DCBMRDMD EQU DCBMRSWA 01011000 IHADCS25 EQU 0 01012000 DCBMACRF EQU IHADCS25+2 01013000 DCBMACF1 EQU DCBMACRF 01014000 DCBMFFE EQU DCBMACF1 01015000 DCBMFGET EQU DCBMFFE 01016000 DCBMFAPG EQU DCBMACF1 01017000 DCBMFRD EQU DCBMFAPG 01018000 DCBMFCI EQU DCBMACF1 01019000 DCBMFMVG EQU DCBMFCI 01020000 DCBMFLCG EQU DCBMACF1 01021000 DCBMFABC EQU DCBMACF1 01022000 DCBMFPT1 EQU DCBMFABC 01023000 DCBMFSBG EQU DCBMFPT1 01024000 DCBMFCRL EQU DCBMACF1 01025000 DCBMFCHK EQU DCBMFCRL 01026000 DCBMFDMG EQU DCBMACF1 01027000 DCBMACF2 EQU DCBMACRF+1 01028000 DCBMFPUT EQU DCBMACF2 01029000 DCBMFWRT EQU DCBMACF2 01030000 DCBMFMVP EQU DCBMACF2 01031000 DCBMF5WD EQU DCBMACF2 01032000 DCBMFLDM EQU DCBMF5WD 01033000 DCBMFLCP EQU DCBMFLDM 01034000 DCBMF4WD EQU DCBMACF2 01035000 DCBMFPT2 EQU DCBMF4WD 01036000 DCBMFTMD EQU DCBMFPT2 01037000 DCBMF3WD EQU DCBMACF2 01038000 DCBMFCTL EQU DCBMF3WD 01039000 DCBMFSTK EQU DCBMFCTL 01040000 DCBMF1WD EQU DCBMACF2 01041000 DCBMFSWA EQU DCBMF1WD 01042000 DCBMFDMD EQU DCBMFSWA 01043000 DCBDEBAD EQU IHADCS25+4 01044000 DCBIFLGS EQU DCBDEBAD 01045000 DCBIFPCT EQU DCBIFLGS 01046000 IHADCS27 EQU 0 01047000 DCBGET EQU IHADCS27 01048000 DCBPUT EQU DCBGET 01049000 DCBGETA EQU DCBPUT+1 01050000 IHADCS43 EQU 0 01051000 DCBSCTAB EQU IHADCS43 01052000 IHADCS2A EQU 0 01053000 DCBRESER EQU IHADCS2A 01054000 DCBINVLI EQU IHADCS2A+4 01055000 DCBINVCI EQU DCBINVLI 01056000 IEDQLCB EQU 0 01057000 LCBRCB EQU IEDQLCB 01058000 LCBTSOB EQU IEDQLCB+19 01059000 LCBCHAIN EQU IEDQLCB+20 01060000 LCBSCRNN EQU LCBCHAIN 01061000 LCBTETEN EQU LCBCHAIN 01062000 LCBINSRC EQU IEDQLCB+21 01063000 LCBLKMDE EQU LCBINSRC+2 01064000 LCBNTXT EQU IEDQLCB+24 01065000 LCBSTAT4 EQU LCBNTXT 01066000 LCBPHASE EQU LCBSTAT4 01067000 LCBSCBDA EQU IEDQLCB+25 01068000 LCBMHA EQU IEDQLCB+29 01069000 LCBFLAG1 EQU IEDQLCB+32 01070000 LCBIOBSN EQU IEDQLCB+33 01071000 LCBSNS EQU LCBIOBSN+1 01072000 LCBSENS0 EQU LCBSNS 01073000 LCBLOSDT EQU LCBSENS0 01074000 LCBTMOUT EQU LCBSENS0 01075000 LCBFLAG3 EQU LCBIOBSN+7 01076000 LCBCSW EQU LCBIOBSN+8 01077000 LCBCSWST EQU LCBCSW+3 01078000 LCBCSWUS EQU LCBCSWST 01079000 LCBCSWCS EQU LCBCSWST+1 01080000 LCBSIOCC EQU LCBIOBSN+15 01081000 LCBDCBPT EQU IEDQLCB+52 01082000 LCBRCQCB EQU IEDQLCB+56 01083000 LCBRESTR EQU LCBRCQCB 01084000 LCBTHSQ EQU IEDQLCB+60 01085000 LCBINCAM EQU LCBTHSQ 01086000 LCBERRCT EQU IEDQLCB+62 01087000 LCBLSPCI EQU IEDQLCB+65 01088000 LCBRCBFR EQU LCBLSPCI 01089000 LCBSTATE EQU IEDQLCB+70 01090000 LCBSTAT1 EQU LCBSTATE 01091000 LCBSTAT2 EQU LCBSTATE+1 01092000 LCBBEOTN EQU LCBSTAT2 01093000 LCBSYNC EQU LCBSTAT2 01094000 LCBDIAL EQU LCBSTAT2 01095000 LCBTSTSW EQU IEDQLCB+72 01096000 LCBERB EQU IEDQLCB+76 01097000 LCBERBST EQU IEDQLCB+84 01098000 LCBDLNKN EQU LCBERBST 01099000 LCBERBCT EQU IEDQLCB+88 01100000 LCBRBCT2 EQU LCBERBCT+1 01101000 LCBMSGFM EQU IEDQLCB+92 01102000 LCBOBRCH EQU IEDQLCB+96 01103000 LCBINVPT EQU LCBOBRCH+1 01104000 LCBBFRW EQU LCBINVPT 01105000 LCBTPCD EQU IEDQLCB+100 01106000 LCBSTAT5 EQU LCBTPCD 01107000 LCBSTAT6 EQU LCBTPCD+4 01108000 LCBRSPSV EQU LCBTPCD+8 01109000 LCBSAVSN EQU IEDQLCB+112 01110000 LCBERCCW EQU IEDQLCB+120 01111000 LCBCPA EQU IEDQLCB+144 01112000 LCBCCW5 EQU LCBCPA+32 01113000 LCBATTEL EQU LCBCCW5 01114000 LCBQEBPL EQU LCBATTEL 01115000 IEDQLCBX EQU 0 01116000 LCBXCON EQU IEDQLCBX 01117000 LCBXFLAG EQU LCBXCON 01118000 LCBXDCT EQU LCBXCON+1 01119000 LCBXRADR EQU LCBXCON+4 01120000 IEDQOPCD EQU 0 01121000 OPCAVTPT EQU IEDQOPCD+8 01122000 OPCCOPCE EQU IEDQOPCD+12 01123000 OPCPGCK EQU IEDQOPCD+40 01124000 OPCSAVE EQU IEDQOPCD+56 01125000 OPCWORK EQU IEDQOPCD+140 01126000 OPCAQCTL EQU IEDQOPCD+180 01127000 OPCXCTL EQU IEDQOPCD+204 01128000 OPCLDNME EQU IEDQOPCD+212 01129000 OPCMODID EQU OPCLDNME+3 01130000 OPCHORT EQU IEDQOPCD+256 01131000 OPCNEXT EQU IEDQOPCD+272 01132000 OPCGETBF EQU IEDQOPCD+276 01133000 OPCFREBF EQU IEDQOPCD+280 01134000 OPCSPEC EQU IEDQOPCD+300 01135000 OPCADGOT EQU IEDQOPCD+318 01136000 OPCDECR EQU IEDQOPCD+352 01137000 OPCPWCOB EQU IEDQOPCD+368 01138000 OPCPWQCB EQU OPCPWCOB 01139000 OPCPWECB EQU OPCPWCOB+4 01140000 IEDQOPCE EQU 0 01141000 OCELEM EQU IEDQOPCE+4 01142000 OCELMPRI EQU OCELEM 01143000 OCUNIT EQU IEDQOPCE+8 01144000 OCRUDEST EQU OCUNIT 01145000 OCCKPKEY EQU OCRUDEST 01146000 OCSCAN EQU OCCKPKEY 01147000 OCOPTCDE EQU IEDQOPCE+12 01148000 OCPRIFLG EQU OCOPTCDE 01149000 OCSWITCH EQU IEDQOPCE+13 01150000 OCFLAG EQU IEDQOPCE+14 01151000 OCTOTE EQU OCFLAG 01152000 OCATTACH EQU OCFLAG 01153000 @NM00192 EQU IEDQOPCE+16 01154000 OCDEST EQU @NM00192 01155000 OCREQVAL EQU OCDEST+1 01156000 OCTRMTBL EQU IEDQOPCE+20 01157000 OCLINENO EQU IEDQOPCE+22 01158000 OCTIOT EQU OCLINENO 01159000 OCTRUNIT EQU IEDQOPCE+24 01160000 OCRSID EQU OCTRUNIT 01161000 OCALSTAT EQU OCRSID 01162000 OCACTREQ EQU OCALSTAT 01163000 OCPARM EQU IEDQOPCE+28 01164000 OCWTG EQU IEDQOPCE+30 01165000 OCBACKUP EQU IEDQOPCE+32 01166000 OCMODNME EQU IEDQOPCE+40 01167000 OCIPLWA EQU OCMODNME 01168000 OCWTGSAV EQU OCIPLWA 01169000 OCPTRSAV EQU OCMODNME+4 01170000 OCCKDATA EQU IEDQOPCE+48 01171000 OCRSTGTM EQU OCCKDATA 01172000 IEDQOPCN EQU 0 01173000 OCLDNME EQU IEDQOPCN 01174000 OCLINTTE EQU OCLDNME 01175000 OCRESPCT EQU OCLINTTE 01176000 OCREQFLG EQU OCLINTTE+2 01177000 OCDCARD EQU OCREQFLG 01178000 OCIDLE EQU OCREQFLG 01179000 OCPREFLG EQU OCLINTTE+3 01180000 IEDOPRED EQU 0 01181000 OPRESAVE EQU IEDOPRED+8 01182000 OPREFLG3 EQU IEDOPRED+14 01183000 IEDQQCB EQU 0 01184000 QCBDSFLG EQU IEDQQCB 01185000 QCBDISK EQU QCBDSFLG 01186000 QCBELCHN EQU IEDQQCB+1 01187000 QCBEOLDT EQU IEDQQCB+16 01188000 QCBBYTE1 EQU QCBEOLDT+1 01189000 QCBLKRLN EQU IEDQQCB+18 01190000 QCBRETCT EQU QCBLKRLN 01191000 QCBSTAT EQU IEDQQCB+19 01192000 QCBINSRC EQU IEDQQCB+21 01193000 @NM00209 EQU QCBINSRC 01194000 QCBTSOF2 EQU @NM00209+1 01195000 QCBTSOF1 EQU @NM00209+2 01196000 QCBINTVL EQU IEDQQCB+24 01197000 QCBPREN EQU IEDQQCB+28 01198000 QCBLKRRN EQU QCBPREN+1 01199000 QCBDCBAD EQU IEDQQCB+33 01200000 QCBFLAG EQU IEDQQCB+36 01201000 IEDQPQCB EQU 0 01202000 QCBFHDLZ EQU IEDQPQCB+3 01203000 QCBPFEFO EQU QCBFHDLZ+1 01204000 QCBFHDTZ EQU IEDQPQCB+6 01205000 QCBINTLF EQU IEDQPQCB+12 01206000 IEDNQCB EQU 0 01207000 QCBSTAT1 EQU IEDNQCB+4 01208000 QCBPLCBA EQU IEDNQCB+5 01209000 IEDQTNTD EQU 0 01210000 IEDQTCDE EQU IEDQTNTD 01211000 IEDQTDCE EQU IEDQTNTD+46 01212000 IEDTNTA EQU 0 01213000 IEDQTRM EQU 0 01214000 TRMSTATE EQU IEDQTRM 01215000 TRMLINE EQU TRMSTATE 01216000 TRMLOG EQU TRMSTATE 01217000 TRMDESTQ EQU IEDQTRM+1 01218000 TRMINSEQ EQU IEDQTRM+4 01219000 TLISTCNT EQU TRMINSEQ 01220000 TRMOUTSQ EQU IEDQTRM+6 01221000 TLISTEN EQU TRMOUTSQ 01222000 TRMDSORG EQU TLISTEN 01223000 TRMALTD EQU IEDQTRM+8 01224000 TRMDEVFL EQU IEDQTRM+10 01225000 TRMSTAT EQU IEDQTRM+12 01226000 IEDNTRM EQU 0 01227000 TRMBYTE4 EQU IEDNTRM 01228000 TRMBYTE3 EQU IEDNTRM+1 01229000 TRMBYTE2 EQU IEDNTRM+2 01230000 TRMRSACT EQU TRMBYTE2 01231000 TRMREMB EQU TRMBYTE2 01232000 TRMINPG EQU TRMBYTE2 01233000 TRMBYTE1 EQU IEDNTRM+3 01234000 TRMSCPRQ EQU TRMBYTE1 01235000 TRMSTOTE EQU TRMBYTE1 01236000 TRMCOHRT EQU IEDNTRM+4 01237000 TRMBYTE0 EQU IEDNTRM+6 01238000 TRMSIBPT EQU IEDNTRM+7 01239000 TRMTYPE EQU IEDNTRM+11 01240000 DECRCT EQU 0 01241000 FREEBUF EQU 0 01242000 SUBPGCK EQU 0 01243000 SUBRNMPT EQU 0 01244000 SUBGETBF EQU 0 01245000 COHORTLK EQU 0 01246000 QCBLDCB EQU 0 01247000 TNTCODE EQU 0 01248000 TNTDCODE EQU 0 01249000 TNTFIRST EQU 0 01250000 IEDQAPTR EQU DCBPTR 01251000 IEDQLPTR EQU DCBPTR 01252000 LCBRSPIN EQU LCBIOBSN 01253000 LCBLUSNS EQU LCBRSPIN+5 01254000 LCBSCPRS EQU LCBRSPIN+9 01255000 LCBCSWU1 EQU LCBSCPRS+2 01256000 LCBRSPFG EQU LCBRSPIN+15 01257000 LCBCOREQ EQU LCBTPCD 01258000 @NM00161 EQU LCBCPA+40 01259000 LCBQNX EQU LCBERCCW 01260000 LCBQNXMN EQU LCBQNX 01261000 LCBCANCL EQU LCBSAVSN 01262000 LCBCANFG EQU LCBCANCL 01263000 OPCAQWD EQU OPCAQCTL 01264000 OPCAQWD1 EQU OPCAQWD 01265000 OPCAQWD2 EQU OPCAQWD+4 01266000 OPCAQWD3 EQU OPCAQWD+8 01267000 OCCKPKY1 EQU OCCKPKEY 01268000 OCCKPTYP EQU OCCKPKY1 01269000 OCICACTN EQU OCMODNME 01270000 OCICDADR EQU OCICACTN 01271000 OCICSW EQU OCICDADR+3 01272000 IEDQQPTR EQU DCBPTR 01273000 IEDQNPTR EQU DCBPTR 01274000 IEDQTPTR EQU DCBPTR 01275000 TRMPRE1 EQU TRMBYTE4 01276000 TRMNCP1 EQU TRMBYTE4 01277000 TRMPRE EQU TRMBYTE3 01278000 TRMNCP EQU TRMBYTE3 01279000 TRMPU EQU TRMBYTE3 01280000 TRMLU EQU TRMBYTE3 01281000 TRMLINK EQU TRMBYTE3 01282000 IEDOPREP EQU DCBPTR 01283000 OCCIB EQU OCREQVAL 01284000 TRMOPT EQU IEDQTRM+20 01285000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01286000 @NM00219 EQU TRMLINK 01287000 TRMLSTAT EQU TRMLINK 01288000 TRMLINT EQU TRMLINK 01289000 TRMEPMOD EQU TRMLINK 01290000 TRMLULOG EQU TRMLU 01291000 TRMINERR EQU TRMLU 01292000 TRMLUREQ EQU TRMLU 01293000 TRMSESRQ EQU TRMLU 01294000 TRMTDIFF EQU TRMLU 01295000 TRMLUTM EQU TRMLU 01296000 TRMLUIT EQU TRMLU 01297000 TRMAUTO EQU TRMLU 01298000 TRMPCONT EQU TRMPU 01299000 @NM00218 EQU TRMPU 01300000 TRMNCONT EQU TRMNCP 01301000 TRMQUCKN EQU TRMNCP 01302000 TRMSLOWN EQU TRMNCP 01303000 TRMSYGEN EQU TRMNCP 01304000 TRMNCPCL EQU TRMNCP 01305000 TRMIPLDM EQU TRMNCP 01306000 TRMINOUT EQU TRMPRE 01307000 TRMRDOUT EQU TRMPRE 01308000 TRMNLOUT EQU TRMPRE 01309000 TRMWROUT EQU TRMPRE 01310000 TRMASNXI EQU TRMPRE 01311000 TRMSTMM EQU TRMPRE 01312000 TRMCMODE EQU TRMPRE 01313000 TRMSTPND EQU TRMPRE 01314000 @NM00217 EQU TRMNCP1 01315000 TRMINOP EQU TRMNCP1 01316000 TRMLYNCH EQU TRMPRE1 01317000 TRMSPOUT EQU TRMPRE1 01318000 TRMERLCK EQU TRMPRE1 01319000 TRMQNPL EQU TRMPRE1 01320000 TRMSPACT EQU TRMPRE1 01321000 TRMOCNI EQU TRMPRE1 01322000 TRMSESSN EQU TRMPRE1 01323000 TRMCONT EQU TRMPRE1 01324000 OCICINAC EQU OCICSW 01325000 @NM00198 EQU OCICSW 01326000 OCICATST EQU OCICDADR+1 01327000 OCICTYPE EQU OCICDADR 01328000 @NM00197 EQU OCCKPKY1 01329000 OCCKPENV EQU OCCKPKY1 01330000 OCCKPRST EQU OCCKPTYP 01331000 OCCKPNCP EQU OCCKPTYP 01332000 OCCKPINC EQU OCCKPTYP 01333000 OPCAQLST EQU OPCAQWD3+1 01334000 OPCAQRQ3 EQU OPCAQWD3 01335000 OPCAQSEC EQU OPCAQWD2+1 01336000 OPCAQRQ2 EQU OPCAQWD2 01337000 OPCAQFST EQU OPCAQWD1+1 01338000 OPCAQREQ EQU OPCAQWD1 01339000 @NM00169 EQU LCBCANCL+3 01340000 LCBCANTH EQU LCBCANCL+1 01341000 @NM00168 EQU LCBCANFG 01342000 LCBCANCD EQU LCBCANFG 01343000 @NM00167 EQU LCBCANFG 01344000 LCBCANEB EQU LCBCANFG 01345000 LCBCANXT EQU LCBCANFG 01346000 LCBUNADD EQU LCBQNX+21 01347000 LCBUASZE EQU LCBQNX+20 01348000 LCBDSTEA EQU LCBQNX+16 01349000 @NM00166 EQU LCBQNX+8 01350000 LCBIOSBS EQU LCBQNX+5 01351000 @NM00165 EQU LCBQNX+4 01352000 LCBSTSAV EQU LCBQNX+1 01353000 @NM00164 EQU LCBQNXMN 01354000 LCBNX509 EQU LCBQNXMN 01355000 LCBNX162 EQU LCBQNXMN 01356000 LCBNX142 EQU LCBQNXMN 01357000 LCBNX064 EQU LCBQNXMN 01358000 @NM00163 EQU @NM00161+4 01359000 LCBNCPPT EQU @NM00161+1 01360000 @NM00162 EQU @NM00161 01361000 LCBWRSCH EQU LCBCOREQ+8 01362000 LCBCQLNK EQU LCBCOREQ+4 01363000 LCBCQELE EQU LCBCOREQ 01364000 LCBPAKCH EQU LCBRSPIN+16 01365000 @NM00160 EQU LCBRSPFG 01366000 LCBRSRH EQU LCBRSPFG 01367000 LCBEXPI EQU LCBRSPFG 01368000 @NM00159 EQU LCBRSPIN+12 01369000 LCBUSUE1 EQU LCBCSWU1 01370000 @NM00158 EQU LCBCSWU1 01371000 @NM00157 EQU LCBSCPRS+1 01372000 LCBDFCMD EQU LCBSCPRS 01373000 LCBUSER EQU LCBLUSNS+2 01374000 LCBSMIN EQU LCBLUSNS+1 01375000 LCBSMAJ EQU LCBLUSNS 01376000 LCBRHSV EQU LCBRSPIN+2 01377000 LCBSNS0 EQU LCBRSPIN+1 01378000 @NM00156 EQU LCBRSPIN 01379000 TRMSUBST EQU IEDNTRM+12 01380000 TRMRLMCT EQU IEDNTRM+10 01381000 TRMCOHTG EQU TRMSIBPT+1 01382000 TRMGPCNT EQU TRMSIBPT 01383000 TRMBUFRD EQU TRMBYTE0 01384000 TRMSNA EQU TRMBYTE0 01385000 TRMGP EQU TRMBYTE0 01386000 TRMDIAL EQU TRMBYTE0 01387000 @NM00216 EQU TRMBYTE0 01388000 TRMOUTPT EQU TRMBYTE0 01389000 TRMINPUT EQU TRMBYTE0 01390000 TRMUDEF EQU TRMBYTE0 01391000 TRMCKPRN EQU TRMBYTE1 01392000 TRMTSATN EQU TRMBYTE1 01393000 TRMTRACE EQU TRMBYTE1 01394000 TRMSWBCK EQU TRMBYTE1 01395000 TRMAUTOC EQU TRMBYTE1 01396000 TRMINPTP EQU TRMBYTE1 01397000 TRMWTNEG EQU TRMSCPRQ 01398000 TRMWRBRK EQU TRMBYTE2 01399000 TRMNOSND EQU TRMBYTE2 01400000 TRMPREP EQU TRMBYTE2 01401000 TRMGPACT EQU TRMBYTE2 01402000 TRMANDL EQU TRMBYTE2 01403000 TRMCLOSN EQU TRMINPG 01404000 TRMOPTBL EQU IEDQTRM+18 01405000 TRMOPNO EQU IEDQTRM+17 01406000 TRMCHCIN EQU IEDQTRM+16 01407000 TRMSENSE EQU TRMSTAT+3 01408000 TRMTEMPR EQU TRMSTAT+2 01409000 TRMSIO EQU TRMSTAT 01410000 @NM00215 EQU TRMDEVFL+1 01411000 TRMTPIN EQU TRMDEVFL+1 01412000 TRMNCPI EQU TRMDEVFL+1 01413000 TRMRNTRM EQU TRMDEVFL+1 01414000 @NM00214 EQU TRMDEVFL+1 01415000 TRMLMD EQU TRMDEVFL+1 01416000 TRMCONC EQU TRMDEVFL+1 01417000 TRMTSOB EQU TRMDEVFL 01418000 TRMBFDY EQU TRMDEVFL 01419000 TRMTBLK EQU TRMDEVFL 01420000 TRMSBLK EQU TRMDEVFL 01421000 TRMBLKS EQU TRMDEVFL 01422000 TRMADDC EQU TRMDEVFL 01423000 TRMDDIG EQU TRMDEVFL 01424000 TRMBUFS EQU TRMDEVFL 01425000 TRMPRILK EQU TRMALTD 01426000 TRMLGB EQU TRMDSORG 01427000 TRMUTERM EQU TLISTCNT 01428000 TRMSCNYN EQU TRMSTATE 01429000 TRMOPTFN EQU TRMSTATE 01430000 TRMHELDN EQU TRMSTATE 01431000 TRMACPTN EQU TRMSTATE 01432000 TRMPREF EQU TRMSTATE 01433000 TRMPROC EQU TRMLOG 01434000 TRMLIST EQU TRMLOG 01435000 TNTTRMAD EQU IEDTNTA 01436000 TNTLEN EQU IEDQTNTD+44 01437000 TNTMIDEN EQU IEDQTNTD+41 01438000 TNTENLEN EQU IEDQTNTD+40 01439000 TNTSRCHX EQU IEDQTNTD+38 01440000 QCBTTCIN EQU QCBPLCBA+1 01441000 @NM00213 EQU QCBPLCBA 01442000 @NM00212 EQU QCBSTAT1 01443000 QCBFLUSH EQU QCBSTAT1 01444000 QCBNDXRQ EQU QCBSTAT1 01445000 QCBESIG EQU QCBSTAT1 01446000 QCBRCVRQ EQU QCBSTAT1 01447000 QCBSNDRQ EQU QCBSTAT1 01448000 QCBWAITC EQU QCBSTAT1 01449000 QCBPLCBN EQU QCBSTAT1 01450000 QCBCHAIN EQU IEDNQCB 01451000 QCBPQBCK EQU IEDQPQCB+25 01452000 QCBPRIPQ EQU IEDQPQCB+24 01453000 QCBCFHDR EQU IEDQPQCB+21 01454000 QCBLFEFO EQU IEDQPQCB+18 01455000 QCBFFEFO EQU IEDQPQCB+15 01456000 QCBPREVF EQU QCBINTLF 01457000 QCBINTFF EQU IEDQPQCB+9 01458000 QCBDATSQ EQU QCBFHDTZ+1 01459000 @NM00211 EQU QCBFHDTZ 01460000 @NM00210 EQU QCBPFEFO 01461000 QCBDATFL EQU QCBFHDLZ 01462000 QCBDNHDR EQU IEDQPQCB 01463000 QCBQBACK EQU IEDQQCB+37 01464000 QCBCKPT EQU QCBFLAG 01465000 QCBPROC EQU QCBFLAG 01466000 QCBSDFFO EQU QCBFLAG 01467000 QCBTERMQ EQU QCBFLAG 01468000 QCBRSRV EQU QCBFLAG 01469000 QCBREAD EQU QCBFLAG 01470000 QCBNOBRK EQU QCBFLAG 01471000 QCBTSSES EQU QCBFLAG 01472000 QCBLGBAD EQU QCBDCBAD 01473000 QCBRELLN EQU IEDQQCB+32 01474000 QCBTJID EQU QCBLKRRN+1 01475000 QCBCARCT EQU QCBLKRRN 01476000 QCBPRLVL EQU QCBPREN 01477000 QCBMSGCT EQU IEDQQCB+26 01478000 QCBEXTO EQU QCBINTVL 01479000 QCBDISC EQU QCBTSOF1 01480000 QCBDELAY EQU QCBTSOF1 01481000 QCBPARTO EQU QCBTSOF1 01482000 QCBSATRD EQU QCBTSOF1 01483000 QCBNOBUF EQU QCBTSOF1 01484000 QCBTPUT EQU QCBTSOF1 01485000 QCBTGET EQU QCBTSOF1 01486000 QCBWRBRK EQU QCBTSOF1 01487000 QCBSATLC EQU QCBTSOF2 01488000 QCBSATTI EQU QCBTSOF2 01489000 QCBSATCH EQU QCBTSOF2 01490000 QCBSIMRD EQU QCBTSOF2 01491000 QCBDSSMI EQU QCBTSOF2 01492000 QCBPOSTO EQU QCBTSOF2 01493000 QCBBUFQ EQU QCBTSOF2 01494000 QCBINHBN EQU QCBTSOF2 01495000 QCBSATCT EQU @NM00209 01496000 QCBSCBOF EQU IEDQQCB+20 01497000 QCBTIME EQU QCBSTAT 01498000 QCBCLOCK EQU QCBSTAT 01499000 QCBSCHDL EQU QCBSTAT 01500000 QCBSMODE EQU QCBSTAT 01501000 QCBSEND EQU QCBSTAT 01502000 QCBBUFRD EQU QCBSTAT 01503000 QCBTRMHO EQU QCBSTAT 01504000 QCBEOM EQU QCBSTAT 01505000 QCBHUCT EQU QCBRETCT 01506000 QCBIEND EQU QCBRETCT 01507000 QCBEND EQU QCBRETCT 01508000 QCBNL EQU QCBRETCT 01509000 QCBLOGCT EQU QCBRETCT 01510000 @NM00208 EQU QCBBYTE1 01511000 QCBRITRM EQU QCBBYTE1 01512000 @NM00207 EQU QCBEOLDT 01513000 QCBSLINK EQU IEDQQCB+13 01514000 QCBSTPRI EQU IEDQQCB+12 01515000 QCBSTCHN EQU IEDQQCB+9 01516000 QCBSTVTO EQU IEDQQCB+8 01517000 QCBLINK EQU IEDQQCB+5 01518000 QCBPRI EQU IEDQQCB+4 01519000 QCBCNTEN EQU QCBELCHN+2 01520000 @NM00206 EQU QCBELCHN+2 01521000 @NM00205 EQU QCBELCHN 01522000 QCBHELD EQU QCBDSFLG 01523000 QCBFQCB EQU QCBDSFLG 01524000 QCBDRQQ EQU QCBDSFLG 01525000 QCBALTMH EQU QCBDSFLG 01526000 QCBREUS EQU QCBDISK 01527000 QCBNREUS EQU QCBDISK 01528000 QCBCORE EQU QCBDSFLG 01529000 QCBTSQ EQU QCBDSFLG 01530000 @NM00204 EQU OPREFLG3 01531000 OPREATCH EQU OPREFLG3 01532000 @NM00203 EQU OPREFLG3 01533000 OPREFLG2 EQU IEDOPRED+13 01534000 OPREFLG1 EQU IEDOPRED+12 01535000 OPRETIC EQU OPRESAVE 01536000 OPRELINK EQU IEDOPRED+5 01537000 OPREPRI EQU IEDOPRED+4 01538000 OPREQCB EQU IEDOPRED+1 01539000 OPREKEY EQU IEDOPRED 01540000 @NM00202 EQU OCLDNME+4 01541000 @NM00201 EQU OCPREFLG 01542000 OCTOTEP EQU OCPREFLG 01543000 OCREPOST EQU OCPREFLG 01544000 OCRSPSNT EQU OCPREFLG 01545000 OCBFREQ EQU OCPREFLG 01546000 OCFORCE EQU OCREQFLG 01547000 OCPARTAL EQU OCREQFLG 01548000 OCADNCP EQU OCREQFLG 01549000 @NM00200 EQU OCREQFLG 01550000 @NM00199 EQU OCREQFLG 01551000 OCFLUSHZ EQU OCREQFLG 01552000 OCCKPTWA EQU OCCKDATA+4 01553000 @NM00196 EQU OCRSTGTM+2 01554000 OCCKDAT2 EQU OCRSTGTM+1 01555000 OCCKDAT1 EQU OCRSTGTM 01556000 OCPUADR EQU OCIPLWA+2 01557000 OCDVRDCT EQU OCBACKUP+6 01558000 OCNCP EQU OCBACKUP+4 01559000 OCBUFGOT EQU OCBACKUP+2 01560000 OCBUFNED EQU OCBACKUP 01561000 OCRESNUM EQU OCPARM 01562000 OCSEQ EQU OCTRUNIT+2 01563000 @NM00195 EQU OCRSID+1 01564000 OCNONE EQU OCALSTAT 01565000 OCSOME EQU OCALSTAT 01566000 OCALLFLG EQU OCALSTAT 01567000 OCREDRVE EQU OCALSTAT 01568000 OCSEQIND EQU OCALSTAT 01569000 @NM00194 EQU OCALSTAT 01570000 OCRENTRD EQU OCALSTAT 01571000 OCWTGB EQU OCTIOT 01572000 @NM00193 EQU @NM00192+2 01573000 OCCONID EQU OCDEST 01574000 OCRLN EQU IEDQOPCE+15 01575000 OCRESP EQU OCFLAG 01576000 OCSSCP EQU OCFLAG 01577000 OCOUTPUT EQU OCFLAG 01578000 OCLINE EQU OCFLAG 01579000 OCMPP EQU OCFLAG 01580000 OCCONSOL EQU OCFLAG 01581000 @NM00191 EQU OCSWITCH 01582000 OCQUCKN EQU OCSWITCH 01583000 @NM00190 EQU OCRUDEST+1 01584000 @NM00189 EQU OCSCAN 01585000 OCNOTUCB EQU OCSCAN 01586000 OCNONAME EQU OCSCAN 01587000 OCALLRLN EQU OCSCAN 01588000 OCDDNAME EQU OCSCAN 01589000 OCDDNRLN EQU OCSCAN 01590000 OCADDR EQU OCSCAN 01591000 OCELMPTR EQU OCELEM+1 01592000 OCLINK EQU IEDQOPCE 01593000 OPCBOTTM EQU IEDQOPCD+1188 01594000 OPCDSRWT EQU IEDQOPCD+1184 01595000 @NM00188 EQU IEDQOPCD+1100 01596000 @NM00187 EQU IEDQOPCD+948 01597000 @NM00186 EQU IEDQOPCD+940 01598000 @NM00185 EQU IEDQOPCD+380 01599000 @NM00184 EQU OPCPWCOB+9 01600000 @NM00183 EQU OPCPWCOB+8 01601000 @NM00182 EQU OPCPWECB+1 01602000 OPCPWCCC EQU OPCPWECB 01603000 OPCPWCHN EQU OPCPWQCB+1 01604000 OPCPWVTO EQU OPCPWQCB 01605000 OPCWAITV EQU IEDQOPCD+364 01606000 OPCTOTCK EQU IEDQOPCD+360 01607000 OPCAPXTL EQU IEDQOPCD+356 01608000 OPCBUFWT EQU IEDQOPCD+348 01609000 OPCWRKSP EQU IEDQOPCD+320 01610000 OPCRQCNT EQU IEDQOPCD+316 01611000 OPPOLSTP EQU IEDQOPCD+312 01612000 OPCCKCIB EQU IEDQOPCD+308 01613000 OPCEND EQU IEDQOPCD+307 01614000 OPCSTCBS EQU IEDQOPCD+306 01615000 OPCHNEND EQU IEDQOPCD+302 01616000 OPCOQSW EQU IEDQOPCD+301 01617000 @NM00181 EQU OPCSPEC 01618000 @NM00180 EQU OPCSPEC 01619000 @NM00179 EQU OPCSPEC 01620000 @NM00178 EQU OPCSPEC 01621000 OPCFRMCA EQU OPCSPEC 01622000 OPCRSTRT EQU OPCSPEC 01623000 OPCPART EQU OPCSPEC 01624000 OPCALTD EQU OPCSPEC 01625000 OPCBFEND EQU IEDQOPCD+296 01626000 OPCBFIRS EQU IEDQOPCD+292 01627000 OPCAVBUF EQU IEDQOPCD+290 01628000 OPCIPLCT EQU IEDQOPCD+289 01629000 OPCCLNTS EQU IEDQOPCD+288 01630000 OPCHA8 EQU IEDQOPCD+286 01631000 OPCBFREQ EQU IEDQOPCD+284 01632000 OPCFMDFC EQU IEDQOPCD+268 01633000 OPCSCNC EQU IEDQOPCD+264 01634000 OPCHORTG EQU IEDQOPCD+260 01635000 OPCCKPTL EQU IEDQOPCD+252 01636000 OPCCKPTF EQU IEDQOPCD+248 01637000 OPCWAITA EQU IEDQOPCD+244 01638000 OPCWAITR EQU IEDQOPCD+240 01639000 OPCWAITP EQU IEDQOPCD+236 01640000 OPCWAITO EQU IEDQOPCD+232 01641000 OPCWAITN EQU IEDQOPCD+228 01642000 OPCWAITL EQU IEDQOPCD+224 01643000 OPCWAITC EQU IEDQOPCD+220 01644000 @NM00177 EQU OPCLDNME+5 01645000 @NM00176 EQU OPCLDNME 01646000 OPCWAIT EQU IEDQOPCD+192 01647000 OPCCKERB EQU IEDQOPCD+164 01648000 OPCBFERB EQU IEDQOPCD+148 01649000 OPCFLAG2 EQU IEDQOPCD+147 01650000 OPCFLAG1 EQU IEDQOPCD+146 01651000 OPCWRKSZ EQU IEDQOPCD+144 01652000 OPCRSAVE EQU IEDQOPCD+132 01653000 OPCQCBAD EQU IEDQOPCD+128 01654000 OPCTRMWA EQU IEDQOPCD+52 01655000 OPCPSTWT EQU IEDQOPCD+48 01656000 OPCTNTEA EQU IEDQOPCD+44 01657000 OPCLCB EQU IEDQOPCD+36 01658000 @NM00175 EQU IEDQOPCD+32 01659000 OPCIPLAD EQU IEDQOPCD+28 01660000 OPCTOFLK EQU IEDQOPCD+24 01661000 OPCOPTLK EQU IEDQOPCD+20 01662000 OPCDCBLK EQU IEDQOPCD+16 01663000 OPCDOUBL EQU IEDQOPCD 01664000 LCBERADR EQU LCBXRADR+1 01665000 LCBPCIRC EQU LCBXRADR 01666000 LCBDCT3 EQU LCBXDCT+2 01667000 LCBDCT2 EQU LCBXDCT+1 01668000 LCBDCT1 EQU LCBXDCT 01669000 @NM00174 EQU LCBXFLAG 01670000 LCBERPND EQU LCBXFLAG 01671000 LCBSRCPF EQU LCBXFLAG 01672000 LCBGPCTV EQU LCBXFLAG 01673000 @NM00173 EQU LCBXFLAG 01674000 @NM00172 EQU LCBXFLAG 01675000 @NM00171 EQU LCBXFLAG 01676000 @NM00170 EQU LCBXFLAG 01677000 LCBCCW10 EQU LCBCPA+72 01678000 LCBCCW9 EQU LCBCPA+64 01679000 LCBCCW8 EQU LCBCPA+56 01680000 LCBCCW7 EQU LCBCPA+48 01681000 LCBCCW6 EQU LCBCPA+40 01682000 LCBCP EQU LCBQEBPL+4 01683000 LCBIOSB EQU LCBQEBPL+1 01684000 LCBSIO EQU LCBQEBPL 01685000 LCBCCW4 EQU LCBCPA+24 01686000 LCBCCW3 EQU LCBCPA+16 01687000 LCBCCW2 EQU LCBCPA+8 01688000 LCBCCW1 EQU LCBCPA 01689000 @NM00155 EQU LCBERCCW+16 01690000 LCBATL05 EQU LCBERCCW+8 01691000 @NM00154 EQU LCBERCCW 01692000 LCBCSWSV EQU LCBSAVSN+1 01693000 LCBSNSV EQU LCBSAVSN 01694000 LCBBFSNS EQU LCBRSPSV 01695000 LCBWAITC EQU LCBTPCD+5 01696000 LCBINPAK EQU LCBSTAT6 01697000 LCBMHBID EQU LCBSTAT6 01698000 LCBRTRRO EQU LCBSTAT6 01699000 LCBHDRPD EQU LCBSTAT6 01700000 LCBCHN EQU LCBSTAT6 01701000 LCBBFRSV EQU LCBTPCD+1 01702000 @NM00153 EQU LCBSTAT5 01703000 LCBLUS EQU LCBSTAT5 01704000 LCBLUNIT EQU LCBSTAT5 01705000 LCBPERM EQU LCBSTAT5 01706000 LCBNXCMD EQU LCBBFRW 01707000 LCBERMSK EQU LCBOBRCH 01708000 LCBSCBA EQU IEDQLCB+93 01709000 LCBOLT EQU LCBMSGFM 01710000 LCBEOT EQU LCBMSGFM 01711000 LCBENQ EQU LCBMSGFM 01712000 LCBTTD EQU LCBMSGFM 01713000 LCBRSTRT EQU LCBMSGFM 01714000 LCBVSTRT EQU LCBMSGFM 01715000 LCBACKI EQU LCBMSGFM 01716000 LCBNAK EQU LCBMSGFM 01717000 LCBTTCIN EQU IEDQLCB+90 01718000 @NM00152 EQU LCBRBCT2 01719000 LCBDCNT EQU LCBRBCT2 01720000 LCBRBCT1 EQU LCBERBCT 01721000 LCBERBCH EQU IEDQLCB+85 01722000 LCBCOMPL EQU LCBDLNKN 01723000 LCBPRCPG EQU LCBERBST 01724000 LCBERROR EQU LCBERBST 01725000 @NM00151 EQU LCBERBST 01726000 LCBINQ EQU LCBERBST 01727000 LCBRDERR EQU LCBERBST 01728000 LCBEOMSG EQU LCBERBST 01729000 LCBMSG EQU LCBERBST 01730000 LCBERBLK EQU IEDQLCB+81 01731000 LCBERBPY EQU IEDQLCB+80 01732000 LCBERBQB EQU LCBERB+1 01733000 LCBERBKY EQU LCBERB 01734000 LCBRECAD EQU IEDQLCB+73 01735000 @NM00150 EQU LCBTSTSW 01736000 @NM00149 EQU LCBTSTSW 01737000 @NM00148 EQU LCBTSTSW 01738000 @NM00147 EQU LCBTSTSW 01739000 @NM00146 EQU LCBTSTSW 01740000 @NM00145 EQU LCBTSTSW 01741000 @NM00144 EQU LCBTSTSW 01742000 LCBCONCT EQU LCBTSTSW 01743000 LCBRESP EQU LCBSTAT2 01744000 LCBBFRAV EQU LCBDIAL 01745000 LCBATTN EQU LCBSYNC 01746000 LCBNEGRP EQU LCBSTAT2 01747000 LCBSNDPR EQU LCBSTAT2 01748000 LCBCONNN EQU LCBBEOTN 01749000 LCBMSGNN EQU LCBSTAT2 01750000 LCBTRACE EQU LCBSTAT2 01751000 LCBSENDN EQU LCBSTAT1 01752000 LCBRECVN EQU LCBSTAT1 01753000 LCBFREEN EQU LCBSTAT1 01754000 LCBCONT EQU LCBSTAT1 01755000 LCBINITN EQU LCBSTAT1 01756000 LCBOCNI EQU LCBSTAT1 01757000 LCBOCWTN EQU LCBSTAT1 01758000 LCBRCLLN EQU LCBSTAT1 01759000 LCBRECOF EQU IEDQLCB+68 01760000 LCBRDBFR EQU LCBRCBFR 01761000 LCBUCBX EQU IEDQLCB+64 01762000 LCBTTBIN EQU LCBERRCT 01763000 @NM00143 EQU LCBINCAM 01764000 LCBGETMN EQU LCBINCAM 01765000 @NM00142 EQU LCBRESTR+1 01766000 LCBCMDSV EQU LCBRESTR 01767000 LCBPCILK EQU LCBDCBPT 01768000 LCBSTART EQU LCBIOBSN+16 01769000 LCBAP4OL EQU LCBSIOCC 01770000 LCBAP3OL EQU LCBSIOCC 01771000 LCBAP2OL EQU LCBSIOCC 01772000 LCBAP1OL EQU LCBSIOCC 01773000 LCBSIOC2 EQU LCBSIOCC 01774000 LCBSIOC1 EQU LCBSIOCC 01775000 @NM00141 EQU LCBSIOCC 01776000 LCBCSWRC EQU LCBCSW+5 01777000 LCBCSCHC EQU LCBCSWCS 01778000 LCBCSICC EQU LCBCSWCS 01779000 LCBCSCCC EQU LCBCSWCS 01780000 LCBCSCDC EQU LCBCSWCS 01781000 LCBCSPTC EQU LCBCSWCS 01782000 LCBCSPGC EQU LCBCSWCS 01783000 LCBCSIL EQU LCBCSWCS 01784000 LCBCSPCI EQU LCBCSWCS 01785000 LCBUSUE EQU LCBCSWUS 01786000 LCBUSUC EQU LCBCSWUS 01787000 LCBUSDE EQU LCBCSWUS 01788000 LCBUSCE EQU LCBCSWUS 01789000 LCBUSBSY EQU LCBCSWUS 01790000 LCBUSCUE EQU LCBCSWUS 01791000 LCBUSSM EQU LCBCSWUS 01792000 LCBUSAT EQU LCBCSWUS 01793000 LCBCSWCA EQU LCBCSW 01794000 LCBOBR EQU LCBFLAG3 01795000 LCBOBRRD EQU LCBFLAG3 01796000 LCBIOMSG EQU LCBFLAG3 01797000 LCBSOHC EQU LCBFLAG3 01798000 LCBRLAD EQU LCBFLAG3 01799000 LCBSOHR EQU LCBFLAG3 01800000 @NM00140 EQU LCBFLAG3 01801000 LCBECBPT EQU LCBIOBSN+4 01802000 LCBECBCC EQU LCBIOBSN+3 01803000 LCBSENS1 EQU LCBSNS+1 01804000 LCBABORT EQU LCBTMOUT 01805000 LCBNOTIN EQU LCBLOSDT 01806000 LCBOVRUN EQU LCBSENS0 01807000 LCBDATCK EQU LCBSENS0 01808000 LCBEQUCK EQU LCBSENS0 01809000 LCBBUSCK EQU LCBSENS0 01810000 LCBINTRQ EQU LCBSENS0 01811000 LCBCMDRJ EQU LCBSENS0 01812000 LCBFLAG2 EQU LCBIOBSN 01813000 @NM00139 EQU LCBFLAG1 01814000 LCBUNREL EQU LCBFLAG1 01815000 LCBEXCPN EQU LCBFLAG1 01816000 @NM00138 EQU LCBFLAG1 01817000 LCBERPIN EQU LCBFLAG1 01818000 @NM00137 EQU LCBFLAG1 01819000 LCBFSBFR EQU LCBMHA 01820000 LCBISZE EQU IEDQLCB+28 01821000 LCBLNENT EQU LCBSCBDA+1 01822000 @NM00136 EQU LCBSCBDA 01823000 LCBCPGMH EQU LCBSTAT4 01824000 LCBREAL EQU LCBPHASE 01825000 @NM00135 EQU LCBSTAT4 01826000 LCBACTRQ EQU LCBSTAT4 01827000 LCBIPLRQ EQU LCBSTAT4 01828000 LCBDACRQ EQU LCBSTAT4 01829000 LCBDMPRQ EQU LCBSTAT4 01830000 @NM00134 EQU LCBLKMDE 01831000 LCBLOCKI EQU LCBLKMDE 01832000 LCBLOCKR EQU LCBLKMDE 01833000 LCBHMFLG EQU LCBLKMDE 01834000 LCBBDFLG EQU LCBLKMDE 01835000 @NM00133 EQU LCBINSRC 01836000 LCBABRTN EQU LCBCHAIN 01837000 LCBCTLMD EQU LCBTETEN 01838000 LCBBFRSZ EQU LCBCHAIN 01839000 LCBUREQN EQU LCBCHAIN 01840000 LCBNORTY EQU LCBCHAIN 01841000 LCBERMSG EQU LCBCHAIN 01842000 LCBEXCP EQU LCBCHAIN 01843000 LCBINVRQ EQU LCBSCRNN 01844000 LCB2741N EQU LCBTSOB 01845000 LCBINHBN EQU LCBTSOB 01846000 LCBCIRCD EQU LCBTSOB 01847000 LCBPREP EQU LCBTSOB 01848000 LCBSOPL EQU LCBTSOB 01849000 LCBSATRD EQU LCBTSOB 01850000 LCBTSBUF EQU LCBTSOB 01851000 LCBWRBRK EQU LCBTSOB 01852000 LCBTDL EQU IEDQLCB+18 01853000 LCBEOLTD EQU IEDQLCB+16 01854000 LCBRSLNK EQU IEDQLCB+13 01855000 LCBRSPRI EQU IEDQLCB+12 01856000 LCBSTCBA EQU IEDQLCB+9 01857000 LCBRSKEY EQU IEDQLCB+8 01858000 LCBLINK EQU LCBRCB+5 01859000 LCBPRI EQU LCBRCB+4 01860000 LCBQCBA EQU LCBRCB+1 01861000 LCBKEY EQU LCBRCB 01862000 DCBINVLA EQU DCBINVLI+1 01863000 @NM00132 EQU DCBINVCI 01864000 DCBINVB2 EQU DCBINVCI 01865000 @NM00131 EQU DCBINVCI 01866000 DCBINVB1 EQU DCBINVCI 01867000 @NM00130 EQU DCBINVCI 01868000 @NM00129 EQU DCBRESER+2 01869000 DCBRESB2 EQU DCBRESER+1 01870000 DCBRESB1 EQU DCBRESER 01871000 DCBBUFSI EQU IHADCS43+6 01872000 DCBUNTCT EQU IHADCS43+5 01873000 DCBILCT EQU IHADCS43+4 01874000 DCBSCTAD EQU DCBSCTAB+1 01875000 @NM00128 EQU DCBSCTAB 01876000 DCBPUTA EQU DCBGETA 01877000 @NM00127 EQU DCBPUT 01878000 DCBDEBA EQU DCBDEBAD+1 01879000 @NM00126 EQU DCBIFLGS 01880000 DCBIFIOE EQU DCBIFLGS 01881000 DCBCH12 EQU DCBIFPCT 01882000 DCBCH9 EQU DCBIFPCT 01883000 DCBIFEC EQU DCBIFLGS 01884000 DCBMFSTI EQU DCBMFDMD 01885000 DCBMFAWR EQU DCBMFSTK 01886000 DCBMFUIP EQU DCBMFTMD 01887000 DCBMFIDW EQU DCBMFLCP 01888000 DCBMFWRK EQU DCBMFMVP 01889000 DCBMFRDQ EQU DCBMFWRT 01890000 DCBMFGTQ EQU DCBMFPUT 01891000 DCBMFSTL EQU DCBMACF2 01892000 DCBMFCK EQU DCBMFDMG 01893000 DCBMFRDX EQU DCBMFCHK 01894000 DCBMFDBF EQU DCBMFSBG 01895000 DCBMFRDI EQU DCBMFLCG 01896000 DCBMFRDK EQU DCBMFMVG 01897000 DCBMFWRQ EQU DCBMFRD 01898000 DCBMFPTQ EQU DCBMFGET 01899000 DCBMFECP EQU DCBMACF1 01900000 DCBTIOT EQU IHADCS25 01901000 DCBMRSTI EQU DCBMRDMD 01902000 DCBMRAWR EQU DCBMRSTK 01903000 DCBMRUIP EQU DCBMRTMD 01904000 DCBMRIDW EQU DCBMRLCP 01905000 DCBMRWRK EQU DCBMRMVP 01906000 DCBMRRDQ EQU DCBMRWRT 01907000 DCBMRGTQ EQU DCBMRPUT 01908000 DCBMRSTL EQU DCBMACR2 01909000 DCBMRCK EQU DCBMRDMG 01910000 DCBPGFXA EQU DCBMRRDX 01911000 DCBMRDBF EQU DCBMRSBG 01912000 DCBMRRDI EQU DCBMRLCG 01913000 DCBMRRDK EQU DCBMRMVG 01914000 DCBMRWRQ EQU DCBMRRD 01915000 DCBMRPTQ EQU DCBMRGET 01916000 DCBMRECP EQU DCBMACR1 01917000 @NM00125 EQU DCBIFLG 01918000 DCBIBIOE EQU DCBIFLG 01919000 DCBICH12 EQU DCBIBPCT 01920000 DCBICH9 EQU DCBIBPCT 01921000 DCBIBEC EQU DCBIFLG 01922000 DCBOFIOF EQU DCBOFLGS 01923000 DCBOFUEX EQU DCBOFLGS 01924000 DCBOFTM EQU DCBOFLGS 01925000 DCBOFPPC EQU DCBOFLGS 01926000 DCBOFEOV EQU DCBOFLGS 01927000 DCBOFLRB EQU DCBOFLGS 01928000 DCBOFIOD EQU DCBOFLWR 01929000 DCBDDNAM EQU IHADCS24 01930000 @NM00124 EQU @NM00122+1 01931000 @NM00123 EQU @NM00122 01932000 DCBRNCKA EQU DCBRNCKD+1 01933000 @NM00121 EQU DCBRNCKD 01934000 @NM00120 EQU IHADCS2K+8 01935000 @NM00119 EQU IHADCS2K+6 01936000 DCBCHNGL EQU DCBTRSTA 01937000 DCBNIDLE EQU DCBTRSTA 01938000 DCBBAKUP EQU DCBTRSTA 01939000 DCBIPLED EQU DCBTRSTA 01940000 DCBRSTRT EQU DCBTRSTA 01941000 DCBINITL EQU DCBTRSTA 01942000 DCBAUTOD EQU DCBTRSTA 01943000 DCBAUTOI EQU DCBTRSTA 01944000 @NM00118 EQU IHADCS2K+4 01945000 DCBDUMPA EQU DCBDUMPD+1 01946000 DCBUNITN EQU DCBDUMPD 01947000 DCBEXLSA EQU DCBEXLST+1 01948000 DCBEIOBX EQU DCBEXLST 01949000 DCBLCBA EQU DCBLCBAD+1 01950000 DCBCPS EQU DCBCPRI 01951000 DCBCPE EQU DCBCPRI 01952000 DCBCPR EQU DCBCPRI 01953000 @NM00117 EQU DCBCPRI 01954000 DCBTRANS EQU DCBTRANA+1 01955000 @NM00116 EQU DCBTRANA 01956000 DCBIOBAA EQU DCBIOBAD+1 01957000 DCBDEVTP EQU DCBIOBAD 01958000 @NM00115 EQU IHADCS17+7 01959000 @NM00114 EQU IHADCS17+6 01960000 @NM00113 EQU IHADCS17+5 01961000 DCBINTVL EQU IHADCS17+4 01962000 DCBCLPSA EQU DCBCLPS+1 01963000 DCBBUFRQ EQU DCBCLPS 01964000 DCBBUFMA EQU IHADCS16+8 01965000 @NM00112 EQU DCBDSRG2 01966000 DCBDSGTR EQU DCBDSRG2 01967000 DCBACBM EQU DCBDSRG2 01968000 @NM00111 EQU DCBDSRG2 01969000 DCBDSGTQ EQU DCBDSRG2 01970000 DCBDSGTX EQU DCBDSRG2 01971000 DCBDSGGS EQU DCBDSRG2 01972000 DCBDSGU EQU DCBDSRG1 01973000 DCBDSGPO EQU DCBDSRG1 01974000 @NM00110 EQU DCBDSRG1 01975000 @NM00109 EQU DCBDSRG1 01976000 DCBDSGCX EQU DCBDSRG1 01977000 DCBDSGDA EQU DCBDSRG1 01978000 DCBDSGPS EQU DCBDSRG1 01979000 DCBDSGIS EQU DCBDSRG1 01980000 DCBPCIR2 EQU DCBPCI 01981000 DCBPCIR1 EQU DCBPCI 01982000 DCBPCIN2 EQU DCBPCI 01983000 DCBPCIN1 EQU DCBPCI 01984000 DCBPCIA2 EQU DCBPCI 01985000 DCBPCIA1 EQU DCBPCI 01986000 DCBPCIX2 EQU DCBPCI 01987000 DCBPCIX1 EQU DCBPCI 01988000 @NM00108 EQU IHADCS16+4 01989000 DCBMH EQU DCBMHA+1 01990000 DCBBFOUT EQU DCBBUFIN 01991000 DCBBFIN EQU DCBBUFIN 01992000 DCBBCKUA EQU DCBBCKUP+1 01993000 @NM00107 EQU DCBBCKUP 01994000 DCBIPLTX EQU IHADCS1A 01995000 @NM00106 EQU IHADCB 01996000 SAVTLLCB EQU IEDNSVTD+316 01997000 SAVTBITN EQU IEDNSVTD+312 01998000 @NM00105 EQU SAVTCKQB+8 01999000 @NM00104 EQU SAVTCKEC+1 02000000 @NM00103 EQU SAVTCKCC 02001000 SAVTCKPO EQU SAVTCKCC 02002000 SAVTCKWA EQU SAVTCKCC 02003000 SAVTCKCH EQU SAVTCKTB+1 02004000 SAVTCKVT EQU SAVTCKTB 02005000 @NM00102 EQU IEDNSVTD+297 02006000 SAVTRDFG EQU SAVTRDRV+12 02007000 @NM00101 EQU SAVTRDRV+5 02008000 SAVTRDPY EQU SAVTRDRV+4 02009000 SAVTRDQB EQU SAVTRDRV+1 02010000 SAVTRDKY EQU SAVTRDRV 02011000 SAVTNID EQU IEDNSVTD+280 02012000 SAVTDVAS EQU IEDNSVTD+276 02013000 SAVTPLSZ EQU IEDNSVTD+274 02014000 @NM00100 EQU IEDNSVTD+273 02015000 SAVTSUBL EQU IEDNSVTD+272 02016000 @NM00099 EQU SAVTZELM+1 02017000 SAVTSUBM EQU SAVTZELM 02018000 SAVTMHDX EQU IEDNSVTD+268 02019000 SAVTNAT1 EQU IEDNSVTD+266 02020000 SAVTSH20 EQU IEDNSVTD+264 02021000 SAVTLCBS EQU IEDNSVTD+260 02022000 SAVTRNMP EQU IEDNSVTD+256 02023000 SAVTTNTX EQU IEDNSVTD+252 02024000 SAVTNAX EQU IEDNSVTD+248 02025000 SAVTSUBV EQU IEDNSVTD+247 02026000 SAVTSUBA EQU IEDNSVTD+246 02027000 SAVTSIBC EQU IEDNSVTD+244 02028000 SAVTBSM EQU IEDNSVTD+240 02029000 SAVTSCPT EQU SAVTTCPU 02030000 SAVTRQTG EQU IEDNSVTD+236 02031000 SAVTRQCH EQU IEDNSVTD+232 02032000 SAVTMAND EQU IEDNSVTD+228 02033000 SAVTSPLN EQU IEDNSVTD+224 02034000 SAVTNADL EQU IEDNSVTD+222 02035000 SAVTNATL EQU IEDNSVTD+220 02036000 SAVTMHTB EQU IEDNSVTD+216 02037000 SAVTSSMH EQU IEDNSVTD+212 02038000 SAVTQRS EQU IEDNSVTD+208 02039000 SAVTRQIN EQU IEDNSVTD+204 02040000 SAVTDFCO EQU IEDNSVTD+200 02041000 SAVTSAO EQU IEDNSVTD+196 02042000 SAVTSARI EQU IEDNSVTD+192 02043000 SAVTSAC EQU IEDNSVTD+188 02044000 SAVTSAI EQU IEDNSVTD+184 02045000 SAVTCSCI EQU IEDNSVTD+180 02046000 SAVTSSRP EQU IEDNSVTD+176 02047000 SAVTSSRQ EQU IEDNSVTD+172 02048000 SAVTSCLU EQU IEDNSVTD+168 02049000 SAVTXTRQ EQU IEDNSVTD+164 02050000 SAVTMVBF EQU IEDNSVTD+160 02051000 @NM00098 EQU IEDNSVTD+148 02052000 SAVTIPCQ EQU IEDNSVTD+144 02053000 @NM00097 EQU IEDNSVTD+136 02054000 SAVTXFMI EQU IEDNSVTD+132 02055000 @NM00096 EQU IEDNSVTD+124 02056000 SAVTXFMO EQU IEDNSVTD+120 02057000 @NM00095 EQU IEDNSVTD+116 02058000 SAVTSSSR EQU IEDNSVTD+112 02059000 SAVTSCPQ EQU IEDNSVTD+108 02060000 SAVTSLCB EQU IEDNSVTD+104 02061000 SAVTLUSR EQU IEDNSVTD+100 02062000 @NM00094 EQU SAVTLUSQ+8 02063000 SAVTLUSP EQU SAVTLUSQ+4 02064000 SAVTLUSB EQU SAVTLUSQ 02065000 @NM00093 EQU IEDNSVTD+84 02066000 SAVTSAT EQU IEDNSVTD+80 02067000 SAVTNAT EQU IEDNSVTD+76 02068000 SAVTCLUP EQU IEDNSVTD+72 02069000 SAVTPIUT EQU IEDNSVTD+68 02070000 SAVTRNTA EQU IEDNSVTD+64 02071000 SAVTDNIR EQU IEDNSVTD+60 02072000 SAVTCNIR EQU IEDNSVTD+56 02073000 SAVTFLDH EQU IEDNSVTD+52 02074000 SAVTSRTN EQU IEDNSVTD+48 02075000 SAVTSREQ EQU IEDNSVTD+44 02076000 SAVTFAIL EQU IEDNSVTD+42 02077000 SAVTSUSE EQU IEDNSVTD+40 02078000 SAVTSIB EQU IEDNSVTD+36 02079000 SAVTPRTN EQU IEDNSVTD+32 02080000 @NM00092 EQU IEDNSVTD+28 02081000 SAVTWH20 EQU IEDNSVTD+26 02082000 SAVTPWT EQU IEDNSVTD+24 02083000 SAVTPRTQ EQU IEDNSVTD+20 02084000 SAVTPREQ EQU IEDNSVTD+16 02085000 SAVTPH20 EQU IEDNSVTD+14 02086000 SAVTPUSE EQU IEDNSVTD+12 02087000 SAVTPLCB EQU IEDNSVTD+8 02088000 SAVTPOOL EQU IEDNSVTD+4 02089000 SAVTPRMT EQU SAVTDIAF 02090000 SAVTVIRT EQU SAVTDIAF 02091000 AVTCPBNO EQU IEDQAVTD+1244 02092000 AVTHRESS EQU IEDQAVTD+1243 02093000 @NM00091 EQU IEDQAVTD+1242 02094000 @NM00090 EQU IEDQAVTD+1241 02095000 @NM00089 EQU IEDQAVTD+1240 02096000 @NM00088 EQU IEDQAVTD+1237 02097000 @NM00087 EQU IEDQAVTD+1236 02098000 AVTHRESE EQU @NM00086 02099000 AVTRADDR EQU IEDQAVTD+1228 02100000 AVTNADDR EQU IEDQAVTD+1224 02101000 AVTHRESN EQU IEDQAVTD+1220 02102000 AVTVOLRN EQU IEDQAVTD+1216 02103000 AVTTOTNN EQU IEDQAVTD+1212 02104000 AVTTRCYN EQU IEDQAVTD+1208 02105000 AVTRCTRN EQU IEDQAVTD+1204 02106000 AVTNOVON EQU IEDQAVTD+1200 02107000 AVTADEBN EQU IEDQAVTD+1196 02108000 AVTVOLRR EQU IEDQAVTD+1192 02109000 AVTTOTNR EQU IEDQAVTD+1188 02110000 AVTTRCYR EQU IEDQAVTD+1184 02111000 AVTRCTRR EQU IEDQAVTD+1180 02112000 AVTNOVOR EQU IEDQAVTD+1176 02113000 AVTADEBR EQU IEDQAVTD+1172 02114000 AVTLODPT EQU IEDQAVTD+1168 02115000 AVTIOBN EQU IEDQAVTD+1164 02116000 AVTIOBR EQU IEDQAVTD+1160 02117000 AVTCPBPT EQU IEDQAVTD+1156 02118000 AVTFCPB EQU IEDQAVTD+1152 02119000 @NM00085 EQU IEDQAVTD+1148 02120000 AVTINCPQ EQU IEDQAVTD+1144 02121000 @NM00084 EQU IEDQAVTD+1140 02122000 @NM00083 EQU IEDQAVTD+1137 02123000 @NM00082 EQU AVTBIT4 02124000 @NM00081 EQU AVTBIT4 02125000 @NM00080 EQU AVTBIT4 02126000 @NM00079 EQU AVTBIT4 02127000 @NM00078 EQU AVTBIT4 02128000 @NM00077 EQU AVTBIT4 02129000 @NM00076 EQU AVTBIT4 02130000 AVTRUFTN EQU AVTBIT4 02131000 @NM00075 EQU IEDQAVTD+1132 02132000 AVTNOBFQ EQU IEDQAVTD+1128 02133000 @NM00074 EQU IEDQAVTD+1124 02134000 AVTDKENQ EQU IEDQAVTD+1120 02135000 @NM00073 EQU IEDQAVTD+1116 02136000 AVTDKAPQ EQU IEDQAVTD+1112 02137000 AVTCOPY EQU IEDQAVTD+1108 02138000 AVTIA EQU IEDQAVTD+1104 02139000 AVTFL EQU IEDQAVTD+1100 02140000 @NM00072 EQU IEDQAVTD+1096 02141000 AVTNCPBQ EQU IEDQAVTD+1092 02142000 AVTTOTNC EQU IEDQAVTD+1088 02143000 AVTCMAX EQU IEDQAVTD+1084 02144000 AVTCMIN EQU IEDQAVTD+1080 02145000 AVTHM02 EQU IEDQAVTD+1076 02146000 AVTOPCIN EQU IEDQAVTD+1074 02147000 AVTDCTLN EQU IEDQAVTD+1072 02148000 AVTOPMSK EQU IEDQAVTD+1068 02149000 AVTDDFT EQU IEDQAVTD+1064 02150000 AVTSTEAL EQU IEDQAVTD+1060 02151000 AVTOPTN EQU IEDQAVTD+1056 02152000 AVTDSKCT EQU IEDQAVTD+1054 02153000 AVTCKRST EQU IEDQAVTD+1053 02154000 AVTSTAN EQU AVTBIT3 02155000 AVTSTACN EQU AVTBIT3 02156000 AVTSTAIN EQU AVTBIT3 02157000 AVTSTAYN EQU AVTBIT3 02158000 AVTOLTBN EQU AVTBIT3 02159000 AVTTSAB EQU AVTBIT3 02160000 AVTRFULN EQU AVTBIT3 02161000 AVTRECVN EQU AVTBIT3 02162000 @NM00071 EQU AVTBIT2 02163000 @NM00070 EQU AVTBIT2 02164000 AVTOPEIN EQU AVTBIT2 02165000 AVTSTRTN EQU AVTBIT2 02166000 AVTTOPOL EQU AVTBIT2 02167000 AVTCOPYN EQU AVTBIT2 02168000 AVTREUSN EQU AVTBIT2 02169000 AVTEXTSC EQU AVTBIT2 02170000 AVTDISKN EQU AVTBIT1 02171000 AVTQUCKN EQU AVTBIT1 02172000 AVTCLOSN EQU AVTBIT1 02173000 AVTREADN EQU AVTBIT1 02174000 AVTDLAYN EQU AVTBIT1 02175000 AVTAQTAN EQU AVTBIT1 02176000 AVTTSON EQU AVTBIT1 02177000 AVTAPLKN EQU AVTBIT1 02178000 AVTDUMBR EQU IEDQAVTD+1048 02179000 AVTDLQX EQU IEDQAVTD+1046 02180000 AVTINTLV EQU IEDQAVTD+1044 02181000 AVTSMCNT EQU IEDQAVTD+1042 02182000 AVTAVFCT EQU IEDQAVTD+1040 02183000 AVTOPCON EQU IEDQAVTD+1038 02184000 AVTOPCNT EQU IEDQAVTD+1036 02185000 AVTLNCNT EQU IEDQAVTD+1034 02186000 AVTKEYLE EQU IEDQAVTD+1032 02187000 AVTHA16 EQU IEDQAVTD+1030 02188000 AVTHA7 EQU IEDQAVTD+1028 02189000 AVTHA4 EQU IEDQAVTD+1026 02190000 AVTHA3 EQU IEDQAVTD+1024 02191000 AVTHA2 EQU IEDQAVTD+1022 02192000 AVTGETMS EQU IEDQAVTD+1021 02193000 @NM00069 EQU IEDQAVTD+1020 02194000 AVTGETMD EQU IEDQAVTD+1016 02195000 AVTGETMN EQU IEDQAVTD+1012 02196000 AVTCWTOT EQU IEDQAVTD+1008 02197000 AVTCWINT EQU IEDQAVTD+956 02198000 AVTDTRAP EQU IEDQAVTD+952 02199000 @NM00068 EQU IEDQAVTD+950 02200000 @NM00067 EQU AVTIOTR 02201000 AVTIOTRH EQU AVTIOTR 02202000 AVTIOTRE EQU AVTIOTR 02203000 @NM00066 EQU AVTSUBT 02204000 AVTSUBPT EQU AVTSUBT 02205000 AVTSUBON EQU AVTSUBT 02206000 AVTAFE30 EQU IEDQAVTD+944 02207000 AVTAFE20 EQU IEDQAVTD+940 02208000 AVTAFE10 EQU IEDQAVTD+936 02209000 AVTCWEC2 EQU IEDQAVTD+932 02210000 AVTCWPM2 EQU IEDQAVTD+928 02211000 AVTCWTS2 EQU IEDQAVTD+927 02212000 AVTCWTS1 EQU IEDQAVTD+926 02213000 AVTCWCLD EQU AVTCWFL2 02214000 AVTCWRAP EQU AVTCWFL2 02215000 @NM00065 EQU AVTCWFL2 02216000 @NM00064 EQU AVTCWFL2 02217000 @NM00063 EQU AVTCWFL2 02218000 @NM00062 EQU AVTCWFL2 02219000 @NM00061 EQU AVTCWFL2 02220000 AVTCWACT EQU AVTCWFL2 02221000 @NM00060 EQU AVTCWFL1 02222000 @NM00059 EQU AVTCWFL1 02223000 @NM00058 EQU AVTCWFL1 02224000 @NM00057 EQU AVTCWFL1 02225000 @NM00056 EQU AVTCWFL1 02226000 @NM00055 EQU AVTCWFL1 02227000 @NM00054 EQU AVTCWFL1 02228000 AVTCOMWN EQU AVTCWFL1 02229000 AVTCWEC1 EQU IEDQAVTD+920 02230000 AVTCWPM1 EQU IEDQAVTD+916 02231000 AVTCAREA EQU IEDQAVTD+912 02232000 AVTFZERO EQU IEDQAVTD+908 02233000 AVTCADDR EQU IEDQAVTD+904 02234000 AVTCOREC EQU IEDQAVTD+900 02235000 @NM00053 EQU IEDQAVTD+892 02236000 AVTCPBCB EQU IEDQAVTD+888 02237000 @NM00052 EQU IEDQAVTD+880 02238000 AVTDSIOB EQU IEDQAVTD+876 02239000 @NM00051 EQU IEDQAVTD+868 02240000 AVTCPRMB EQU IEDQAVTD+864 02241000 @NM00050 EQU IEDQAVTD+856 02242000 AVTCLOSB EQU IEDQAVTD+852 02243000 @NM00049 EQU IEDQAVTD+844 02244000 AVTACTIB EQU IEDQAVTD+840 02245000 @NM00048 EQU IEDQAVTD+836 02246000 AVTOLTEB EQU IEDQAVTD+832 02247000 AVTOLTCH EQU AVTOLTQB+1 02248000 AVTOLTVT EQU AVTOLTQB 02249000 @NM00047 EQU AVTOPCQB+8 02250000 @NM00046 EQU AVTOPCEC+1 02251000 @NM00045 EQU AVTOPCCC 02252000 AVTOPCPO EQU AVTOPCCC 02253000 AVTOPCWA EQU AVTOPCCC 02254000 AVTOPCCH EQU AVTOPCOB+1 02255000 AVTOPCVT EQU AVTOPCOB 02256000 @NM00044 EQU AVTCKPQB+9 02257000 AVTCKPTS EQU AVTCKPQB+8 02258000 @NM00043 EQU AVTCKPEC+1 02259000 @NM00042 EQU AVTCKPCC 02260000 AVTCKPPO EQU AVTCKPCC 02261000 AVTCKPWA EQU AVTCKPCC 02262000 AVTCKPCH EQU AVTCKPTB+1 02263000 AVTCKPVT EQU AVTCKPTB 02264000 @NM00041 EQU IEDQAVTD+796 02265000 AVTBFRTB EQU IEDQAVTD+792 02266000 @NM00040 EQU IEDQAVTD+788 02267000 AVTSELCH EQU IEDQAVTD+785 02268000 AVTBFRTN EQU AVTBFRFG 02269000 AVTBFREB EQU IEDQAVTD+780 02270000 AVTTIMQ EQU IEDQAVTD+776 02271000 @NM00039 EQU IEDQAVTD+772 02272000 AVTIMQPS EQU IEDQAVTD+768 02273000 AVTINOUT EQU IEDQAVTD+766 02274000 AVTREFTM EQU IEDQAVTD+764 02275000 @NM00038 EQU IEDQAVTD+752 02276000 AVTDELYB EQU IEDQAVTD+748 02277000 AVTOCQPT EQU IEDQAVTD+744 02278000 AVTTSOPT EQU IEDQAVTD+740 02279000 AVTSUPPT EQU IEDQAVTD+736 02280000 AVTCBQCB EQU IEDQAVTD+732 02281000 AVTMSGS EQU IEDQAVTD+729 02282000 @NM00037 EQU AVTSYSER 02283000 @NM00036 EQU AVTSYSER 02284000 @NM00035 EQU AVTSYSER 02285000 @NM00034 EQU AVTSYSER 02286000 @NM00033 EQU AVTSYSER 02287000 @NM00032 EQU AVTSYSER 02288000 AVTCMAXN EQU AVTSYSER 02289000 AVTCMINN EQU AVTSYSER 02290000 AVT2260L EQU IEDQAVTD+724 02291000 AVTABEPL EQU AVTADBUF 02292000 AVTHFF EQU AVTCLRHI+2 02293000 @NM00031 EQU AVTCLRHI 02294000 AVTCCLNK EQU AVTCRELE+5 02295000 AVTCCPRI EQU AVTCRELE+4 02296000 AVTCCQCB EQU AVTCCELE+1 02297000 AVTCCKEY EQU AVTCCELE 02298000 AVTDELAD EQU IEDQAVTD+704 02299000 AVTDELEM EQU IEDQAVTD+700 02300000 AVTBSX EQU AVTCKLNK 02301000 AVTOPETR EQU AVTHG01 02302000 @NM00030 EQU AVTCKBYT 02303000 AVTCKONQ EQU AVTCKBYT 02304000 @NM00029 EQU AVTCKBYT 02305000 @NM00028 EQU AVTCKBYT 02306000 @NM00027 EQU AVTCKBYT 02307000 @NM00026 EQU AVTCKBYT 02308000 @NM00025 EQU AVTCKBYT 02309000 @NM00024 EQU AVTCKBYT 02310000 AVTOPERT EQU IEDQAVTD+690 02311000 AVTOPXCL EQU IEDQAVTD+688 02312000 AVTOPERL EQU IEDQAVTD+687 02313000 @NM00023 EQU IEDQAVTD+686 02314000 AVTCKTIM EQU IEDQAVTD+684 02315000 AVTCKELV EQU IEDQAVTD+682 02316000 AVTCPRCD EQU IEDQAVTD+681 02317000 AVTWARMN EQU AVTCKELF 02318000 AVTCRTLN EQU AVTCKELF 02319000 AVTCPIPN EQU AVTCKELF 02320000 AVTCCLCN EQU AVTCKELF 02321000 AVTCINCN EQU AVTCKELF 02322000 @NM00022 EQU AVTCKELF 02323000 AVTCMCPN EQU AVTCKELF 02324000 AVTNQBCK EQU AVTCKELF 02325000 AVTCKQAD EQU IEDQAVTD+677 02326000 AVTSCBSZ EQU IEDQAVTD+676 02327000 @NM00021 EQU IEDQAVTD+672 02328000 AVTCKELE EQU IEDQAVTD+668 02329000 @NM00020 EQU AVTCKPEL+8 02330000 AVTCKRLK EQU AVTCKPEL+5 02331000 AVTCKRPR EQU AVTCKPEL+4 02332000 AVTCKRMQ EQU AVTCKRMV+1 02333000 AVTCKRKY EQU AVTCKRMV 02334000 AVTHK EQU IEDQAVTD+648 02335000 AVTHI EQU IEDQAVTD+644 02336000 AVTIOT EQU IEDQAVTD+640 02337000 AVTNX EQU IEDQAVTD+636 02338000 AVTTONE EQU IEDQAVTD+632 02339000 AVTA3TL EQU IEDQAVTD+628 02340000 AVTDMECB EQU IEDQAVTD+624 02341000 AVTABEND EQU IEDQAVTD+618 02342000 AVTPLCBN EQU IEDQAVTD+616 02343000 @NM00019 EQU AVTSAVTP+1 02344000 @NM00018 EQU AVTSAVTF 02345000 AVTSNA EQU AVTSAVTF 02346000 AVTONSNA EQU AVTSAVTF 02347000 AVTVTMCP EQU AVTSAVTF 02348000 @NM00017 EQU IEDQAVTD+608 02349000 AVTCMBSS EQU IEDQAVTD+604 02350000 AVTRCV EQU IEDQAVTD+600 02351000 AVTSEND EQU IEDQAVTD+596 02352000 AVTCSCH EQU IEDQAVTD+592 02353000 AVTQ1 EQU IEDQAVTD+588 02354000 AVTE7 EQU IEDQAVTD+584 02355000 AVTHB EQU IEDQAVTD+580 02356000 AVTR1 EQU IEDQAVTD+576 02357000 AVTBZ EQU IEDQAVTD+572 02358000 AVTEZ EQU IEDQAVTD+568 02359000 AVTEC EQU IEDQAVTD+564 02360000 AVTEW EQU IEDQAVTD+560 02361000 AVTNDIAL EQU AVTSCOPT 02362000 AVTN2741 EQU AVTSCOPT 02363000 AVTCONCO EQU AVTSCOPT 02364000 AVTCONC EQU AVTSCOPT 02365000 AVTCMBUF EQU AVTSCOPT 02366000 AVTAPDMP EQU AVTSCOPT 02367000 @NM00016 EQU AVTSCOPT 02368000 AVTHA EQU AVTDISP 02369000 AVTEA EQU IEDQAVTD+548 02370000 AVTAX EQU IEDQAVTD+544 02371000 AVTA3 EQU IEDQAVTD+540 02372000 AVTGD EQU IEDQAVTD+536 02373000 AVTAL EQU IEDQAVTD+532 02374000 AVTOLTST EQU AVTHG02 02375000 AVTE8 EQU IEDQAVTD+524 02376000 AVTUI EQU IEDQAVTD+520 02377000 AVTCOMPT EQU IEDQAVTD+516 02378000 AVTCRSRF EQU IEDQAVTD+512 02379000 @NM00015 EQU IEDQAVTD+508 02380000 AVTKA02 EQU IEDQAVTD+504 02381000 AVTOPTPT EQU IEDQAVTD+500 02382000 AVTPCBPT EQU IEDQAVTD+496 02383000 @NM00014 EQU AVTECB1 02384000 AVTCOMP EQU AVTECB1 02385000 @NM00013 EQU AVTECB1 02386000 AVTOPECA EQU IEDQAVTD+488 02387000 AVTOLECA EQU IEDQAVTD+484 02388000 AVTCKECA EQU IEDQAVTD+480 02389000 AVTCWECA EQU IEDQAVTD+476 02390000 AVTCWTCB EQU IEDQAVTD+472 02391000 AVTOLTCB EQU IEDQAVTD+468 02392000 AVTOCTCB EQU IEDQAVTD+464 02393000 AVTCKTCB EQU IEDQAVTD+460 02394000 AVTAS EQU IEDQAVTD+456 02395000 AVTNOLBF EQU IEDQAVTD+454 02396000 AVTNCKPR EQU IEDQAVTD+453 02397000 AVTCIB EQU IEDQAVTD+452 02398000 AVTSPLPT EQU IEDQAVTD+448 02399000 AVTMVBFR EQU IEDQAVTD+444 02400000 AVTSBTA EQU IEDQAVTD+440 02401000 AVTRARTN EQU IEDQAVTD+436 02402000 AVTBSCAN EQU IEDQAVTD+432 02403000 AVTRDYA EQU IEDQAVTD+428 02404000 AVTDISTR EQU IEDQAVTD+420 02405000 AVTPARM3 EQU IEDQAVTD+416 02406000 @NM00012 EQU AVTPKF 02407000 @NM00011 EQU AVTPKF 02408000 @NM00010 EQU AVTPKF 02409000 AVTFTCHF EQU AVTPKF 02410000 @NM00009 EQU AVTPKF 02411000 @NM00008 EQU AVTPKF 02412000 @NM00007 EQU AVTPKF 02413000 @NM00006 EQU AVTPKF 02414000 AVTPARM EQU IEDQAVTD+408 02415000 AVTEXS2A EQU IEDQAVTD+402 02416000 AVTEXA2S EQU IEDQAVTD+396 02417000 AVTOCGET EQU IEDQAVTD+392 02418000 AVTCKAVT EQU @NM00004+1 02419000 @NM00005 EQU AVTCKFLG 02420000 AVTCKHLT EQU AVTCKFLG 02421000 AVTCKREQ EQU AVTCKFLG 02422000 AVTCKENV EQU AVTCKFLG 02423000 AVTCKNAC EQU AVTCKFLG 02424000 AVTCKTAC EQU AVTCKFLG 02425000 AVTBUENT EQU IEDQAVTD+386 02426000 @NM00003 EQU IEDQAVTD+385 02427000 AVTFULLT EQU AVTBUFSW 02428000 AVTUNCON EQU AVTBUFSW 02429000 @NM00002 EQU AVTBUFSW 02430000 AVTBUFTR EQU AVTREADD 02431000 AVTREADY EQU IEDQAVTD+376 02432000 AVTRACE EQU IEDQAVTD+372 02433000 AVTTCB EQU IEDQAVTD+368 02434000 AVTPASWD EQU IEDQAVTD+360 02435000 AVTCTLCH EQU IEDQAVTD+352 02436000 AVTDOUBL EQU IEDQAVTD+344 02437000 AVTDOUBX EQU IEDQAVTD+336 02438000 AVTDPARM EQU IEDQAVTD+332 02439000 AVTCSTCS EQU IEDQAVTD+328 02440000 AVTDLQ EQU AVTSAVEX+32 02441000 @NM00001 EQU AVTSAVEX 02442000 AVTSAVE4 EQU IEDQAVTD+216 02443000 AVTSAVE3 EQU IEDQAVTD+144 02444000 AVTSAVE2 EQU IEDQAVTD+72 02445000 AVTSAVE1 EQU IEDQAVTD 02446000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02447000 @RC00421 EQU @RC00420 02448000 @PB00003 EQU @PB00004 02449000 @RC00525 EQU @RC00514 02450000 @RC00538 EQU @RC00514 02451000 @PB00002 EQU @PB00003 02452000 @RC00539 EQU @RC00538 02453000 @RC00553 EQU @RC00538 02454000 @RC00551 EQU @RC00538 02455000 @RC00540 EQU @RC00539 02456000 @ENDDATA EQU * 02457000 END IGCFA10D,(C'PLS1553',0701,78044) 02458000