TITLE 'IGCFG10D - DEACTIVATE RESPONSE PROCESSOR *00001000 ' 00002000 IGCFG10D CSECT , 01S0001 00003000 @PROLOG BALR @12,0 01S0001 00004000 @PSTART DS 0H 01S0001 00005000 USING @PSTART,@12 01S0001 00006000 * /* 00007000 IGCFG10D IEDHJN AFTERHJN,HJN 00008000 * 01S0330 00009000 * /*****************************************************************/ 00010000 * /* */ 00011000 * /* INITIALIZATION */ 00012000 * /* */ 00013000 * /*****************************************************************/ 00014000 * 01S0330 00015000 * ROPCAVT=RPARM; /* SET POINTER TO OP. CTL. AVT */ 00016000 LR ROPCAVT,RPARM 01S0330 00017000 * ROPCE=OPCCOPCE; /* SET POINTER TO CURRENT OPCE */ 00018000 L ROPCE,OPCCOPCE(,ROPCAVT) 01S0331 00019000 * RAVT=OPCAVTPT; /* SET POINTER TO TCAM AVT */ 00020000 L RAVT,OPCAVTPT(,ROPCAVT) 01S0332 00021000 * RSAVE=ADDR(OPCSAVE); /* SET POINTER TO SAVE AREA */ 00022000 LA RSAVE,OPCSAVE(,ROPCAVT) 01S0333 00023000 * RWRKAREA=OPCWORK; /* OP. CTL. WORKAREA BASE - USED 00024000 * FOR TEMPORARY STORAGE */ 00025000 * 01S0334 00026000 L RWRKAREA,OPCWORK(,ROPCAVT) 01S0334 00027000 * /*****************************************************************/ 00028000 * /* */ 00029000 * /* BASE COMPILER GENERATED DSECT (CREATED BY REENTRANT OPTION) */ 00030000 * /* FOR TEMPORARY STORAGE ON WORK AREA BASE. */ 00031000 * /* */ 00032000 * /*****************************************************************/ 00033000 * 01S0335 00034000 * GEN REFS(RWRKAREA); 01S0335 00035000 * /* 00036000 USING @DATD,RWRKAREA */ 00037000 * 01S0336 00038000 * /*****************************************************************/ 00039000 * /* */ 00040000 * /* THIS THE MAIN PROCEDURE. THE CURRENT OPCE IS CHECKED TO SEE IF*/ 00041000 * /* IT IS A CLEANUP REQUEST ELEMENT OR A SESSION TERM. OPCE. */ 00042000 * /* */ 00043000 * /*****************************************************************/ 00044000 * 01S0336 00045000 * FLAGS=''B; /* CLEAR THE FLAGS FIELD @YM05682*/ 00046000 MVI FLAGS,X'00' 01S0336 00047000 * IF OCSWITCH=CLNSWVAL THEN /* IF THIS IS REALLY A CLEANUP 00048000 * REQ ELMT */ 00049000 CLI OCSWITCH(ROPCE),X'00' 01S0337 00050000 BNE @RF00337 01S0337 00051000 * DO; 01S0338 00052000 * 02S0339 00053000 * /*************************************************************/ 00054000 * /* */ 00055000 * /* THIS SEGMENT PROCESSES THE CLEANUP REQUEST ELEMENT WHICH */ 00056000 * /* HAS BEEN RETURNED BY RESIDENT CLEANUP. */ 00057000 * /* */ 00058000 * /*************************************************************/ 00059000 * 02S0339 00060000 * CUROPCE->OCUNIT=ROPCE; /* SET DEACT OPCE TO POINT TO 00061000 * ELMT */ 00062000 L @14,CUROPCE(,ROPCE) 02S0339 00063000 ST ROPCE,OCUNIT(,@14) 02S0339 00064000 * RTRM=CURTRM; /* SET TTE BASE */ 00065000 L RTRM,CURTRM(,ROPCE) 02S0340 00066000 * ROPCE=CUROPCE; /* DEACT OPCE */ 00067000 LR ROPCE,@14 02S0341 00068000 * OPCCOPCE=ROPCE; /* SET DEACT OPCE AS CURRENT OPCE*/ 00069000 ST ROPCE,OPCCOPCE(,ROPCAVT) 02S0342 00070000 * RPARM=ROPCE; /* POINT TO CURRENT OPCE */ 00071000 LR RPARM,ROPCE 02S0343 00072000 * RZERO=TOFFINPG; /* AND SET VALUE INDICATING THAT 00073000 * THE IN-PROGRESS */ 00074000 SLR RZERO,RZERO 02S0344 00075000 * CALL PROGRTNE; /* BITS SHOULD BE TURNED OFF IN 00076000 * HIERARCHY */ 00077000 L @15,OPCPGCK(,ROPCAVT) 02S0345 00078000 BALR @14,@15 02S0345 00079000 * IF OCWTG^=CLNOCMOD THEN /* IF DEACT OPCE WAS NOT FROM OP 00080000 * CTL CLEANUP */ 00081000 CLC OCWTG(2,ROPCE),CLNOCMOD 02S0346 00082000 BE @RF00346 02S0346 00083000 * DO; /* IT WAS A DEACT NCP FROM 02S0347 00084000 * ANOTHER SOURCE */ 00085000 * RPARM=OCUNIT; /* GET ADDR OF REQUEST ELMT */ 00086000 L RPARM,OCUNIT(,ROPCE) 02S0348 00087000 * RPARM->CURLINK=PRUINTIC;/* INSURE INVALID TIC @YM06502*/ 00088000 MVC CURLINK(4,RPARM),@CF01223 02S0349 00089000 * CALL FREEBUFF; /* AND FREE IT */ 00090000 L @15,OPCFREBF(,ROPCAVT) 02S0350 00091000 BALR @14,@15 02S0350 00092000 * OCUNIT=PRUINTIC; /* SET INVALID TIC IN OPCE */ 00093000 MVC OCUNIT(4,ROPCE),@CF01223 02S0351 00094000 * END; 02S0352 00095000 * ELSE 02S0353 00096000 * ; /* DEACT WAS FROM OP CTL CLEANUP 00097000 * AND ELMT WILL BE USED WHEN 00098000 * RETURN TO OP CTL CLEANUP */ 00099000 @RF00346 DS 0H 02S0354 00100000 * DO; /* @YM07730*/ 00101000 * CALL CMNDTERM; /* TERMINATE DEACTIVATION AND SET 00102000 * TO XCTL TO TO OP CTL CLEANUP */ 00103000 BAL @14,CMNDTERM 02S0355 00104000 * OCELMPRI=PRICULCB; /* SET PRIORITY FOR IGCC110D TO 00105000 * RECOGNIZE RETURN FROM 02S0356 00106000 * DEACTIVATE @YM07730*/ 00107000 MVI OCELMPRI(ROPCE),X'C0' 02S0356 00108000 * END; /* @YM07730*/ 00109000 * END; 01S0358 00110000 * ELSE 01S0359 00111000 * IF OCSWITCH=OCSESTRM THEN /* IF THIS IS A TERMINATE SESSION 00112000 * RESPONSE OPCE */ 00113000 B @RC00337 01S0359 00114000 @RF00337 CLI OCSWITCH(ROPCE),X'E6' 01S0359 00115000 BNE @RF00359 01S0359 00116000 * DO; 01S0360 00117000 * NEXTTCIN=OCTRMTBL; /* SET PARAMETER FOR REFORMAT 00118000 * INDICATING RESOURCE FOR NEW 00119000 * OPCE */ 00120000 LH NEXTTCIN,OCTRMTBL(,ROPCE) 01S0361 00121000 N NEXTTCIN,@CF01464 01S0361 00122000 * CALL REFORMAT; /* REFORMAT OPCE INTO DEACTIVATE 00123000 * LU OPCE */ 00124000 BAL @14,REFORMAT 01S0362 00125000 * END; 01S0363 00126000 * ELSE /* THIS IS A STOPLINE OR 01S0364 00127000 * DEACTIVATE RESPONSE OPCE */ 00128000 * DO; 01S0364 00129000 B @RC00359 01S0364 00130000 @RF00359 DS 0H 01S0365 00131000 * IF OCSWITCH=OCVAROFF&OCPARM=BADVARY THEN/* IF VARY OFF 00132000 * UNSUCCESSFUL @YM05710*/ 00133000 CLI OCSWITCH(ROPCE),X'D2' 02S0365 00134000 BNE @RF00365 02S0365 00135000 CLC OCPARM(2,ROPCE),@CH01432 02S0365 00136000 BNE @RF00365 02S0365 00137000 * DO; /* @YM05710*/ 00138000 * OCALSTAT=''B; /* CLEAR ALSTAT @YM05710*/ 00139000 MVI OCALSTAT(ROPCE),X'00' 02S0367 00140000 * OCPARM=''B; /* CLEAR PARM FIELD @YM05710*/ 00141000 SLR @14,@14 02S0368 00142000 STH @14,OCPARM(,ROPCE) 02S0368 00143000 * OCWTG=DACRPMOD; /* SET TO RETURN @YM05710*/ 00144000 MVC OCWTG(2,ROPCE),DACRPMOD 02S0369 00145000 * OCRESP=OFF; /* TURN OFF RESP FLAG @YM05710*/ 00146000 NI OCRESP(ROPCE),B'11111110' 02S0370 00147000 * OCACTREQ=ON; /* REQUEST FROM A/D @YM05710*/ 00148000 OI OCACTREQ(ROPCE),B'00001000' 02S0371 00149000 * OPCMODID=VOFFMOD; /* SET TO XCTL TO STOP LINE MOD 00150000 * @YM05710*/ 00151000 MVC OPCMODID(2,ROPCAVT),VOFFMOD 02S0372 00152000 * END; /* @YM05710*/ 00153000 * ELSE /* @YM05710*/ 00154000 * IF OCTRMTBL=OCPTRSAV->OCTRMTBL THEN/* IF THIS RESPONSE 00155000 * OPCE'S RESOURCE IS THE SAME 00156000 * RESOURCE AS IN THE ORIG. 02S0374 00157000 * DEACTIVATE CMND. */ 00158000 B @RC00365 02S0374 00159000 @RF00365 L @14,OCPTRSAV(,ROPCE) 02S0374 00160000 CLC OCTRMTBL(2,ROPCE),OCTRMTBL(@14) 02S0374 00161000 BNE @RF00374 02S0374 00162000 * DO; 02S0375 00163000 * RPARM=OCTRMTBL; /* SET TO TTCIN OF RESOURCE */ 00164000 LH RPARM,OCTRMTBL(,ROPCE) 02S0376 00165000 N RPARM,@CF01464 02S0376 00166000 * CALL IEDQTNT; /* AND OBTAIN TTE OF RESOURCE */ 00167000 L @15,AVTRNMPT(,RAVT) 02S0377 00168000 BALR @14,@15 02S0377 00169000 * RTRM=RPARM; /* COPY TTE ADDR */ 00170000 LR RTRM,RPARM 02S0378 00171000 * IF TRMTYPE=TRMLNCP THEN/* IF ORIG (DEACT) OPCE IS FOR 00172000 * THE NCP @YM07656*/ 00173000 LR @14,RTRM 02S0379 00174000 AL @14,@CF01018 02S0379 00175000 CLI TRMTYPE-11(@14),X'0F' 02S0379 00176000 BNE @RF00379 02S0379 00177000 * DO; 02S0380 00178000 * 02S0380 00179000 * /*************************************************/ 00180000 * /* */ 00181000 * /* ORIGINAL OPCE WAS FOR A DEACTIVATE OF THE NCP.*/ 00182000 * /* BUILD A CLEANUP REQUEST ELEMENT AND POST IT TO*/ 00183000 * /* RESIDENT CLEANUP. RESIDENT CLEANUP WILL POST */ 00184000 * /* IT BACK TO AVTOPCOB TO BE ROUTED TO THIS */ 00185000 * /* MODULE WHEN ITS PROCESSING IS FINISHED. */ 00186000 * /* */ 00187000 * /*************************************************/ 00188000 * 02S0381 00189000 * RPARM=OCUNIT; /* FREE ATTACHED */ 00190000 L RPARM,OCUNIT(,ROPCE) 02S0381 00191000 * CALL FREEBUFF; /* RU */ 00192000 L @15,OPCFREBF(,ROPCAVT) 02S0382 00193000 BALR @14,@15 02S0382 00194000 * RZERO=1; /* DECREMENT OPCADGOT BY ONE EVEN 00195000 * THOUGH DACTPU OPCE */ 00196000 LA RZERO,1 02S0383 00197000 * CALL DECRCT; /* IS NOT FREED SINCE THE REQUEST 00198000 * ELEMENT WILL BE BUILT IN IT 00199000 * AND BE USED BY CLEANUP */ 00200000 L @15,OPCDECR(,ROPCAVT) 02S0384 00201000 BALR @14,@15 02S0384 00202000 * RPARM=OCPTRSAV; /* SAVE POINTER TO ORIG (DEACT) 00203000 * OPCE */ 00204000 L RPARM,OCPTRSAV(,ROPCE) 02S0385 00205000 * IEDCUREQ=''B; /* CLEAR OPCE FOR USE AS CLEANUP 00206000 * REQUEST ELMT */ 00207000 XC IEDCUREQ(44,ROPCE),IEDCUREQ(ROPCE) 02S0386 00208000 * CURQCB=SAVTCLUP;/* SET QCB ADDR OF POST */ 00209000 L @14,AVTSAVTP(,RAVT) 02S0387 00210000 MVC CURQCB(3,ROPCE),SAVTCLUP+1(@14) 02S0387 00211000 * CURPRI=PRICULCB;/* SET POST PRIORITY */ 00212000 MVI CURPRI(ROPCE),X'C0' 02S0388 00213000 * CURLINK=PRUINTIC;/* SET INVALID TIC IN LINK FIELD 00214000 * @YM06502*/ 00215000 MVC CURLINK(4,ROPCE),@CF01223 02S0389 00216000 * CURTTCIN=RPARM->OCTRMTBL;/* SET RESOURCE TTCIN 00217000 * FROM ORIG OPCE */ 00218000 LH @14,OCTRMTBL(,RPARM) 02S0390 00219000 N @14,@CF01464 02S0390 00220000 STH @14,CURTTCIN(,ROPCE) 02S0390 00221000 * CURTRM=RTRM; /* SET TTE ADDR */ 00222000 ST RTRM,CURTRM(,ROPCE) 02S0391 00223000 * CUROPCE=RPARM; /* SET POINTER TO ORIG (DEACT) 00224000 * OPCE */ 00225000 ST RPARM,CUROPCE(,ROPCE) 02S0392 00226000 * CURSWCH=CURCUREQ;/* SET SWITCH VALUE INDICATING 00227000 * CLEANUP */ 00228000 MVI CURSWCH(ROPCE),X'39' 02S0393 00229000 * OPCAQWD1=ROPCE; /* SET ADDR OF ELMT IN FIRST WORD 00230000 * OF AQCTL PARM LIST */ 00231000 ST ROPCE,OPCAQWD1(,ROPCAVT) 02S0394 00232000 * OPCAQWD2=ROPCE; /* SET ALSO IN SECOND WORD */ 00233000 ST ROPCE,OPCAQWD2(,ROPCAVT) 02S0395 00234000 * OPCAQREQ=POSTCODE;/* SET CODE INDICATING SINGLE 00235000 * ELMT POST */ 00236000 MVI OPCAQREQ(ROPCAVT),X'0C' 02S0396 00237000 * OPCAQRQ2=POSTEOL;/* SET END OF PARM LIST 02S0397 00238000 * INDICATOR */ 00239000 MVI OPCAQRQ2(ROPCAVT),X'80' 02S0397 00240000 * RPARM=ADDR(OPCAQCTL);/* POINT TO AQCTL PARM LIST */ 00241000 LA RPARM,OPCAQCTL(,ROPCAVT) 02S0398 00242000 * SVC(102); /* POST */ 00243000 SVC 102 02S0399 00244000 * OPCMODID=TO00; /* SET TO XCTL TO OP CTL CONTROL 00245000 * MODULE */ 00246000 MVC OPCMODID(2,ROPCAVT),TO00 02S0400 00247000 * END; 02S0401 00248000 * ELSE 02S0402 00249000 * DO; 02S0402 00250000 * 02S0402 00251000 B @RC00379 02S0402 00252000 @RF00379 DS 0H 02S0403 00253000 * /*************************************************/ 00254000 * /* */ 00255000 * /* DEACTIVATION IS COMPLETE. CLEANUP AND */ 00256000 * /* TERMINATE COMMAND PROCESSING */ 00257000 * /* */ 00258000 * /*************************************************/ 00259000 * 02S0403 00260000 * 03S0403 00261000 * /*************************************************/ 00262000 * /* */ 00263000 * /* THIS SEGMENT CLEANS UP AT THE END OF */ 00264000 * /* DEACTIVATE PROCESSING. */ 00265000 * /* */ 00266000 * /*************************************************/ 00267000 * 03S0403 00268000 * OPCCOPCE=OCPTRSAV;/* MAKE THE ORIG. OPCE THE 00269000 * CURRENT OPCE */ 00270000 L @14,OCPTRSAV(,ROPCE) 03S0403 00271000 ST @14,OPCCOPCE(,ROPCAVT) 03S0403 00272000 * RPARM=ROPCE; /* POINT TO RSP. OPCE */ 00273000 LR RPARM,ROPCE 03S0404 00274000 * CALL FREEBUFF; /* FREE OPCE AND RU (IF ANY) */ 00275000 L @15,OPCFREBF(,ROPCAVT) 03S0405 00276000 BALR @14,@15 03S0405 00277000 * ROPCE=OPCCOPCE; /* POINT TO ORIG. OPCE */ 00278000 L ROPCE,OPCCOPCE(,ROPCAVT) 03S0406 00279000 * RZERO=1; /* DECREMENT OPCADGOT .... */ 00280000 LA RZERO,1 03S0407 00281000 * CALL DECRCT; /* .... BY ONE */ 00282000 L @15,OPCDECR(,ROPCAVT) 03S0408 00283000 BALR @14,@15 03S0408 00284000 * RPARM=ROPCE; /* POINT TO ORIGINAL OPCE */ 00285000 LR RPARM,ROPCE 03S0409 00286000 * RZERO=TOFFINPG; /* TURN OFF .... */ 00287000 SLR RZERO,RZERO 03S0410 00288000 * CALL PROGRTNE; /* .... IN-PROG BITS IN TTE'S */ 00289000 L @15,OPCPGCK(,ROPCAVT) 03S0411 00290000 BALR @14,@15 03S0411 00291000 * CALL CMNDTERM; 02S0412 00292000 BAL @14,CMNDTERM 02S0412 00293000 * END; 02S0413 00294000 * END; 02S0414 00295000 * ELSE 02S0415 00296000 * DO; 02S0415 00297000 * 02S0415 00298000 B @RC00374 02S0415 00299000 @RF00374 DS 0H 02S0416 00300000 * /*****************************************************/ 00301000 * /* */ 00302000 * /* DEACTIVATION IS NOT COMPLETE. NEXT CHECK TO SEE IF*/ 00303000 * /* THIS IS THE LAST DEACTIVATE FOR A GIVEN */ 00304000 * /* HIERARCHICAL LEVEL. */ 00305000 * /* */ 00306000 * /*****************************************************/ 00307000 * 02S0416 00308000 * 03S0416 00309000 * /*****************************************************/ 00310000 * /* */ 00311000 * /* THIS SEGMENT CHECKS TO SEE IF THE RESOURCE */ 00312000 * /* ASSOCIATED WITH THE RESPONSE OPCE IS THE LAST */ 00313000 * /* RESOURCE TO BE DEACTIVATED ON THIS HIERARCHICAL */ 00314000 * /* LEVEL. */ 00315000 * /* */ 00316000 * /*****************************************************/ 00317000 * 03S0416 00318000 * RPARM=OCTRMTBL; /* GET ADDR OF RESOURCE.... */ 00319000 LH RPARM,OCTRMTBL(,ROPCE) 03S0416 00320000 N RPARM,@CF01464 03S0416 00321000 * CALL IEDQTNT; /* AND FIND HIGHER @YM05670*/ 00322000 L @15,AVTRNMPT(,RAVT) 03S0417 00323000 BALR @14,@15 03S0417 00324000 * CALL COHORTLK; /* .... RESOURCE */ 00325000 L @15,OPCHORT(,ROPCAVT) 03S0418 00326000 BALR @14,@15 03S0418 00327000 * NXTHIRSC=RPARM; /* COPY TTE ADDR. */ 00328000 LR NXTHIRSC,RPARM 03S0419 00329000 * NEXTTCIN=RZERO; /* COPY TTCIN OF RESOURCE */ 00330000 LR NEXTTCIN,RZERO 03S0420 00331000 * RTRM=NXTHIRSC; /* SET TTE PTR. */ 00332000 LR RTRM,NXTHIRSC 03S0421 00333000 * RPARM=TRMSUBST; /* OBTAIN TTE ADDR. OF FIRST ....*/ 00334000 LR @14,RTRM 03S0422 00335000 BCTR @14,0 03S0422 00336000 BCTR @14,0 03S0422 00337000 LH RPARM,TRMSUBST-12(,@14) 03S0422 00338000 N RPARM,@CF01464 03S0422 00339000 * CALL IEDQTNT; /* .... RESOURCE ON LEVEL */ 00340000 L @15,AVTRNMPT(,RAVT) 03S0423 00341000 BALR @14,@15 03S0423 00342000 * RTRM=RPARM; /* SET TTE BASE */ 00343000 LR RTRM,RPARM 03S0424 00344000 * DO WHILE LOOPFLG=OFF;/* LOOP THRU ALL RESOURCES AT 00345000 * HIERARICAL LEVEL UNLESS AN 00346000 * ACTIVE RESOURCE IS FOUND 03S0425 00347000 * @YM05682*/ 00348000 B @DE00425 03S0425 00349000 @DL00425 DS 0H 03S0426 00350000 * IF RTRM=NXTHIRSC THEN/* IF BACK TO HIGHER RESOURCE 00351000 * @YM05682*/ 00352000 CR RTRM,NXTHIRSC 03S0426 00353000 BNE @RF00426 03S0426 00354000 * LOOPFLG=ON; /* SET TO GET OUT @YM05682*/ 00355000 OI LOOPFLG,B'10000000' 03S0427 00356000 * ELSE 03S0428 00357000 * IF TRMLINE=ON THEN/* ELSE IF NOT HIGHER RESOURCE 00358000 * THEN CHECK IF IS LINE @YM05682*/ 00359000 B @RC00426 03S0428 00360000 @RF00426 TM TRMLINE(RTRM),B'10000000' 03S0428 00361000 BNO @RF00428 03S0428 00362000 * IF TRMRSACT=ON THEN/* AND IS ACTIVE @YM05682*/ 00363000 LR @14,RTRM 03S0429 00364000 AL @14,@CF01468 03S0429 00365000 TM TRMRSACT-2(@14),B'10000000' 03S0429 00366000 BNO @RF00429 03S0429 00367000 * LOOPFLG=ON; /* SET TO GET OUT @YM05682*/ 00368000 OI LOOPFLG,B'10000000' 03S0430 00369000 * ELSE /* ELSE GET GO TO NEXT @YM05682*/ 00370000 * DO; /* @YM05682*/ 00371000 B @RC00429 03S0431 00372000 @RF00429 DS 0H 03S0432 00373000 * RPARM=TRMCOHRT;/* OBTAIN TTE ADDR. OF NEXT 00374000 * .... */ 00375000 LR @14,RTRM 03S0432 00376000 AL @14,@CF01469 03S0432 00377000 LH RPARM,TRMCOHRT-4(,@14) 03S0432 00378000 N RPARM,@CF01464 03S0432 00379000 * CALL IEDQTNT;/* .... RESOURCE ON LEVEL */ 00380000 L @15,AVTRNMPT(,RAVT) 03S0433 00381000 BALR @14,@15 03S0433 00382000 * RTRM=RPARM;/* SET TTE BASE */ 00383000 LR RTRM,RPARM 03S0434 00384000 * END; /* @YM05682*/ 00385000 * ELSE /* ELSE CHECK FOR PU OR LU STILL 00386000 * ACTIVE @YM05682*/ 00387000 * IF TRMSIBPT^=0 THEN/* IF SIB NOT FREED THEN 00388000 * ACTIVE @YM05682*/ 00389000 B @RC00428 03S0436 00390000 @RF00428 LR @14,RTRM 03S0436 00391000 AL @14,@CF01470 03S0436 00392000 ICM @11,7,TRMSIBPT-7(@14) 03S0436 00393000 BZ @RF00436 03S0436 00394000 * LOOPFLG=ON; /* SET TO GET OUT @YM05682*/ 00395000 OI LOOPFLG,B'10000000' 03S0437 00396000 * ELSE /* @YM05682*/ 00397000 * DO; /* @YM05682*/ 00398000 B @RC00436 03S0438 00399000 @RF00436 DS 0H 03S0439 00400000 * RPARM=TRMCOHRT;/* OBTAIN TTE ADDR. OF NEXT 00401000 * .... @YM05682*/ 00402000 LR @14,RTRM 03S0439 00403000 AL @14,@CF01469 03S0439 00404000 LH RPARM,TRMCOHRT-4(,@14) 03S0439 00405000 N RPARM,@CF01464 03S0439 00406000 * CALL IEDQTNT;/* .... RESOURCE ON LEVEL 00407000 * @YM05682*/ 00408000 L @15,AVTRNMPT(,RAVT) 03S0440 00409000 BALR @14,@15 03S0440 00410000 * RTRM=RPARM;/* SET TTE BASE @YM05682*/ 00411000 LR RTRM,RPARM 03S0441 00412000 * END; /* @YM05682*/ 00413000 * END; 03S0443 00414000 * 03S0443 00415000 @RC00436 DS 0H 03S0443 00416000 @RC00428 DS 0H 03S0443 00417000 @RC00426 DS 0H 03S0443 00418000 @DE00425 TM LOOPFLG,B'10000000' 03S0443 00419000 BZ @DL00425 03S0443 00420000 * /*****************************************************/ 00421000 * /* */ 00422000 * /* IF NO RESOURCES STILL ACTIVE ON THIS LEVEL */ 00423000 * /* */ 00424000 * /*****************************************************/ 00425000 * 03S0444 00426000 * IF RTRM=NXTHIRSC THEN/* IF TTE PTR. EQUAL NEXT 03S0444 00427000 * HIGHEST RESOURCE */ 00428000 CR RTRM,NXTHIRSC 03S0444 00429000 BNE @RF00444 03S0444 00430000 * DO; 03S0445 00431000 * IF OCSWITCH=OCVAROFF&OCATTACH=ON THEN/* IF 03S0446 00432000 * STOPLINE RESPONSE OPCE WITH 00433000 * ATTACHED OPCE'S @OX19284*/ 00434000 CLI OCSWITCH(ROPCE),X'D2' 03S0446 00435000 BNE @RF00446 03S0446 00436000 TM OCATTACH(ROPCE),B'00000010' 03S0446 00437000 BNO @RF00446 03S0446 00438000 * DO; 03S0447 00439000 * 03S0447 00440000 * /*********************************************/ 00441000 * /* */ 00442000 * /* THIS IS A STOPLINE RESPONSE OPCE WITH */ 00443000 * /* ATTACHED OPCE'S. ATTACH THESE OPCE'S TO */ 00444000 * /* THE ORIG. OPCE'S ATTACH CHAIN. @OX19284*/ 00445000 * /* */ 00446000 * /*********************************************/ 00447000 * 03S0448 00448000 * 04S0448 00449000 * /*********************************************/ 00450000 * /* */ 00451000 * /* THIS SEGMENT MOVES THE ATTACHED OPCE'S */ 00452000 * /* ASSOCIATED WITH THE STOPLINE RESPONSE OPCE*/ 00453000 * /* AND ATTACHES THEM TO THE ORIG. OPCE'S */ 00454000 * /* ATTACH CHAIN. */ 00455000 * /* */ 00456000 * /*********************************************/ 00457000 * 04S0448 00458000 * ROPCE=OCPTRSAV;/* POINT TO ORIGINAL OPCE */ 00459000 L ROPCE,OCPTRSAV(,ROPCE) 04S0448 00460000 * DO WHILE(OCATTACH=ON);/* DO WHILE NOT AT END 00461000 * OF ATTACH CHAIN */ 00462000 B @DE00449 04S0449 00463000 @DL00449 DS 0H 04S0450 00464000 * ROPCE=OCELEM;/* POINT TO ATTACHED OPCE */ 00465000 L ROPCE,OCELEM(,ROPCE) 04S0450 00466000 * END; 04S0451 00467000 @DE00449 TM OCATTACH(ROPCE),B'00000010' 04S0451 00468000 BO @DL00449 04S0451 00469000 * OCELEM=OPCCOPCE->OCELEM;/* POINT TO OPCE'S 00470000 * ATTACHED OFF RESPONSE OPCE */ 00471000 L @14,OPCCOPCE(,ROPCAVT) 04S0452 00472000 L @11,OCELEM(,@14) 04S0452 00473000 ST @11,OCELEM(,ROPCE) 04S0452 00474000 * OCATTACH=ON;/* SET ATTACH FLAG */ 00475000 OI OCATTACH(ROPCE),B'00000010' 04S0453 00476000 * ROPCE=OPCCOPCE;/* POINT TO RESPONSE OPCE */ 00477000 LR ROPCE,@14 04S0454 00478000 * OCATTACH=OFF;/* RESET ATTACH FLAG IN RSP. 00479000 * OPCE */ 00480000 NI OCATTACH(ROPCE),B'11111101' 04S0455 00481000 * END; 03S0456 00482000 * ELSE 03S0457 00483000 * ; 03S0457 00484000 @RF00446 DS 0H 03S0458 00485000 * 03S0458 00486000 * /*************************************************/ 00487000 * /* */ 00488000 * /* FREE ATTACHED RU (IF ANY) AND REFORMAT */ 00489000 * /* RESPONSE OPCE INTO A DEACTIVATE OPCE */ 00490000 * /* */ 00491000 * /*************************************************/ 00492000 * 03S0458 00493000 * IF TIC=VALTIC THEN/* IF IS AN ATTACHED RU 03S0458 00494000 * @YM05682*/ 00495000 TM TIC(ROPCE),B'00000011' 03S0458 00496000 BNZ @RF00458 03S0458 00497000 * DO; 03S0459 00498000 * RPARM=OCUNIT;/* FREE ATTACHED .... */ 00499000 L RPARM,OCUNIT(,ROPCE) 03S0460 00500000 * CALL FREEBUFF;/* .... RU */ 00501000 L @15,OPCFREBF(,ROPCAVT) 03S0461 00502000 BALR @14,@15 03S0461 00503000 * OCUNIT=PRUINTIC;/* SET INVALID TIC IN OCUNIT */ 00504000 MVC OCUNIT(4,ROPCE),@CF01223 03S0462 00505000 * END; 03S0463 00506000 * ELSE 03S0464 00507000 * ; 03S0464 00508000 * 03S0464 00509000 @RF00458 DS 0H 03S0465 00510000 * /*************************************************/ 00511000 * /* */ 00512000 * /* CALL REFORMAT TO REFORMAT OPCE INTO */ 00513000 * /* DEACTIVATE. NEXTTCIN CONTAINS TTCIN OF NEXT */ 00514000 * /* HIGHEST RESOURCE AND IS USED BY REFORMAT TO */ 00515000 * /* SET OCTRMTBL */ 00516000 * /* */ 00517000 * /*************************************************/ 00518000 * 03S0465 00519000 * CALL REFORMAT; 03S0465 00520000 BAL @14,REFORMAT 03S0465 00521000 * END; 03S0466 00522000 * ELSE 03S0467 00523000 * DO; 03S0467 00524000 * 03S0467 00525000 B @RC00444 03S0467 00526000 @RF00444 DS 0H 03S0468 00527000 * /*************************************************/ 00528000 * /* */ 00529000 * /* RESOURCES AT THIS LEVEL ARE STILL ACTIVE. FREE*/ 00530000 * /* RESPONSE OPCE AND ANY RU AND DECREMENT */ 00531000 * /* OPCADGOT BY 1. SET TO XCTL. */ 00532000 * /* */ 00533000 * /*************************************************/ 00534000 * 03S0468 00535000 * IF OCSWITCH=OCVAROFF&OCATTACH=ON THEN 03S0468 00536000 CLI OCSWITCH(ROPCE),X'D2' 03S0468 00537000 BNE @RF00468 03S0468 00538000 TM OCATTACH(ROPCE),B'00000010' 03S0468 00539000 BNO @RF00468 03S0468 00540000 * OPCNEXT=OCELEM;/* @OX19284*/ 00541000 L @14,OCELEM(,ROPCE) 03S0469 00542000 ST @14,OPCNEXT(,ROPCAVT) 03S0469 00543000 */* IF STOPLINE RESPONSE OPCE WITH ATTACHED OPCE'S */ 00544000 * 03S0470 00545000 * ELSE 03S0470 00546000 * ; 03S0470 00547000 @RF00468 DS 0H 03S0471 00548000 * RPARM=ROPCE; /* FREE RESPONSE .... */ 00549000 LR RPARM,ROPCE 03S0471 00550000 * CALL FREEBUFF; /* .... OPCE */ 00551000 L @15,OPCFREBF(,ROPCAVT) 03S0472 00552000 BALR @14,@15 03S0472 00553000 * RZERO=1; /* # OF A/D BUFFER UNITS FREED */ 00554000 LA RZERO,1 03S0473 00555000 * CALL DECRCT; /* DECREMENT OPCADGOT */ 00556000 L @15,OPCDECR(,ROPCAVT) 03S0474 00557000 BALR @14,@15 03S0474 00558000 * OPCMODID=TO00; /* SET TO XCTL TO IGC0010D */ 00559000 MVC OPCMODID(2,ROPCAVT),TO00 03S0475 00560000 * END; 03S0476 00561000 * END; 02S0477 00562000 @RC00444 DS 0H 02S0478 00563000 * END; 01S0478 00564000 * 01S0478 00565000 @RC00374 DS 0H 01S0478 00566000 @RC00365 DS 0H 01S0479 00567000 * /*****************************************************************/ 00568000 * /* */ 00569000 * /* EXIT CODE */ 00570000 * /* */ 00571000 * /*****************************************************************/ 00572000 * 01S0479 00573000 * IF OPCMODID=TO00 THEN /* IF XCTL IS TO IGC0010D */ 00574000 @RC00359 DS 0H 01S0479 00575000 @RC00337 CLC OPCMODID(2,ROPCAVT),TO00 01S0479 00576000 BNE @RF00479 01S0479 00577000 * RZERO=0; /* INSURE THAT '02' DOES NOT 00578000 * MISTAKE INPUT AS APPL. INPUT */ 00579000 SLR RZERO,RZERO 01S0480 00580000 * ELSE 01S0481 00581000 * ; 01S0481 00582000 @RF00479 DS 0H 01S0482 00583000 * RPARM=ROPCAVT; 01S0482 00584000 LR RPARM,ROPCAVT 01S0482 00585000 * GEN REFS(ROPCAVT,OPCXCTL) EXIT; 01S0483 00586000 * 01S0483 00587000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00588000 * /*****************************************************************/ 00589000 * /* */ 00590000 * /* END OF MAIN PROCDURE */ 00591000 * /* */ 00592000 * /*****************************************************************/ 00593000 * 01S0484 00594000 * 01S0484 00595000 * /*****************************************************************/ 00596000 * /* */ 00597000 * /* THIS PROCEDURE REFORMATS A RESPONSE OPCE INTO A DEACTIVATE */ 00598000 * /* OPCE. THE TYPE OF DEACTIVATE IS DEPENDENT ON THE TYPE OF */ 00599000 * /* RESPONSE OPCE. THE RESOURCE TO BE DEACTIVATED IS CONTAINED IN */ 00600000 * /* NEXTTCIN. */ 00601000 * /* */ 00602000 * /*****************************************************************/ 00603000 * 01S0484 00604000 *REFORMAT: 01S0484 00605000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 01S0484 00606000 REFORMAT DS 0H 01S0485 00607000 * RFY 01S0485 00608000 * RRET RSTD; /* RESTRICT REG. WITH RETURN 00609000 * ADDR. */ 00610000 * 01S0486 00611000 * /*****************************************************************/ 00612000 * /* */ 00613000 * /* REFORMAT OPCE INTO BASIC DEACTIVATE OPCE */ 00614000 * /* */ 00615000 * /*****************************************************************/ 00616000 * 01S0486 00617000 * OCELMPRI=PRIHIFLG; /* SET PRIORITY */ 00618000 MVI OCELMPRI(ROPCE),X'E9' 01S0486 00619000 * OCPRIFLG=OPRA0; /* SET FLAG */ 00620000 MVI OCPRIFLG(ROPCE),X'01' 01S0487 00621000 * OCWTG=DACRPMOD; /* SET TO RETURN TO THIS MOD. */ 00622000 MVC OCWTG(2,ROPCE),DACRPMOD 01S0488 00623000 * OCALSTAT=''B; /* CLEAR */ 00624000 MVI OCALSTAT(ROPCE),X'00' 01S0489 00625000 * OCRESP=OFF; /* NOT A RESPONSE */ 00626000 NI OCRESP(ROPCE),B'11111110' 01S0490 00627000 * OCACTREQ=ON; /* SET A/D REQUEST FLAG */ 00628000 OI OCACTREQ(ROPCE),B'00001000' 01S0491 00629000 * OCATTACH=OFF; /* TURN OFF ATTACH FLAG */ 00630000 NI OCATTACH(ROPCE),B'11111101' 01S0492 00631000 * OCUNIT=PRUINTIC; /* SET INVALID TIC */ 00632000 * 01S0493 00633000 MVC OCUNIT(4,ROPCE),@CF01223 01S0493 00634000 * /*****************************************************************/ 00635000 * /* */ 00636000 * /* USE VALUE IN NEXTTCIN TO SET OCTRMTBL */ 00637000 * /* */ 00638000 * /*****************************************************************/ 00639000 * 01S0494 00640000 * OCTRMTBL=NEXTTCIN; /* SET RESOURCE INDEX */ 00641000 * 01S0494 00642000 STH NEXTTCIN,OCTRMTBL(,ROPCE) 01S0494 00643000 * /*****************************************************************/ 00644000 * /* */ 00645000 * /* USE CURRENT OCSWITCH VALUE TO DETERMINED NEXT VALUE */ 00646000 * /* */ 00647000 * /*****************************************************************/ 00648000 * 01S0495 00649000 * IF OCSWITCH=OCSESTRM THEN /* IF TERMINATE SESSION */ 00650000 CLI OCSWITCH(ROPCE),X'E6' 01S0495 00651000 BNE @RF00495 01S0495 00652000 * OCSWITCH=OCDACTLU; /* SET DEACT. LU */ 00653000 MVI OCSWITCH(ROPCE),X'20' 01S0496 00654000 * ELSE 01S0497 00655000 * IF OCSWITCH=OCVAROFF THEN /* IF STOPLINE */ 00656000 B @RC00495 01S0497 00657000 @RF00495 CLI OCSWITCH(ROPCE),X'D2' 01S0497 00658000 BNE @RF00497 01S0497 00659000 * OCSWITCH=OCDACTPU; /* SET DEACT PU FOR NCP */ 00660000 MVI OCSWITCH(ROPCE),X'40' 01S0498 00661000 * ELSE 01S0499 00662000 * IF OCSWITCH=OCDACTLU THEN /* IF DEACT. LU */ 00663000 B @RC00497 01S0499 00664000 @RF00497 CLI OCSWITCH(ROPCE),X'20' 01S0499 00665000 BNE @RF00499 01S0499 00666000 * OCSWITCH=OCDACTPU; /* SET DEACT. PU */ 00667000 MVI OCSWITCH(ROPCE),X'40' 01S0500 00668000 * ELSE 01S0501 00669000 * IF OCSWITCH=OCDACTPU THEN /* IF DEACT. PU */ 00670000 B @RC00499 01S0501 00671000 @RF00499 CLI OCSWITCH(ROPCE),X'40' 01S0501 00672000 BNE @RF00501 01S0501 00673000 * OCSWITCH=OCDACTLK; /* SET DEACT. LINK */ 00674000 MVI OCSWITCH(ROPCE),X'60' 01S0502 00675000 * ELSE /* MUST BE DEACT. LINK */ 00676000 * OCSWITCH=OCDACTPU; /* SET DEACT. PU FOR NCP */ 00677000 B @RC00501 01S0503 00678000 @RF00501 MVI OCSWITCH(ROPCE),X'40' 01S0503 00679000 * OPCMODID=SSCPMOD; /* SET TO XCTL TO SSCP */ 00680000 @RC00501 DS 0H 01S0504 00681000 @RC00499 DS 0H 01S0504 00682000 @RC00497 DS 0H 01S0504 00683000 @RC00495 MVC OPCMODID(2,ROPCAVT),SSCPMOD 01S0504 00684000 * RFY 01S0505 00685000 * RRET UNRSTD; 01S0505 00686000 * END REFORMAT; 01S0506 00687000 @EL00002 DS 0H 01S0506 00688000 @EF00002 DS 0H 01S0506 00689000 @ER00002 BR @14 01S0506 00690000 *CMNDTERM: 01S0507 00691000 * PROC OPTIONS(RETREG,SAVE(14)); 01S0507 00692000 * 01S0507 00693000 CMNDTERM ST @14,@SA00003 01S0507 00694000 * /*****************************************************************/ 00695000 * /* */ 00696000 * /* THIS PROC TERMINATES COMMAND PROCESSING. */ 00697000 * /* */ 00698000 * /*****************************************************************/ 00699000 * 01S0508 00700000 * IF TRMTYPE=TRMLNCP THEN /* IF THIS IS A LOCAL 3705 */ 00701000 LR @14,RTRM 01S0508 00702000 SL @14,@CF01462 01S0508 00703000 CLI TRMTYPE(@14),X'0F' 01S0508 00704000 BNE @RF00508 01S0508 00705000 * DO; 01S0509 00706000 * 01S0509 00707000 * /*************************************************************/ 00708000 * /* */ 00709000 * /* THIS IS A LOCAL 3705. */ 00710000 * /* */ 00711000 * /*************************************************************/ 00712000 * 01S0510 00713000 * TRMQUCKN=OFF; /* TURN OFF QUICK/FLUSH FLAG */ 00714000 * TRMNCPCL=OFF; /* TURN OFF CLOSE DOWN FLAG */ 00715000 LA @05,TRMNCPCL(,@14) 01S0511 00716000 LR @07,@05 01S0511 00717000 LA @11,3 01S0511 00718000 NR @07,@11 01S0511 00719000 LCR @07,@07 01S0511 00720000 ALR @05,@07 01S0511 00721000 L @11,0(,@05) 01S0511 00722000 @GL00004 LR @09,@11 01S0511 00723000 N @09,@CB01473+3(@07) 01S0511 00724000 CS @11,@09,0(@05) 01S0511 00725000 BNE @GL00004 01S0511 00726000 * IF OCPARM^=LOGDACT THEN /* IF LOGICAL DEACT, SKIP 01S0512 00727000 * HIERARCHY DESTROY @YM08085*/ 00728000 CLC OCPARM(2,ROPCE),@CH01409 01S0512 00729000 BE @RF00512 01S0512 00730000 * DO; /* @YM08085*/ 00731000 * 01S0513 00732000 * /*********************************************************/ 00733000 * /* */ 00734000 * /* LINK TO IGCFD10D TO DELETE TERMINAL TABLE HIERARCHY, */ 00735000 * /* THE SUBAREA TABLE ENTRY, AND THE NETWORK ADDRESS TABLE*/ 00736000 * /* ENTRIES FOR THIS NCP, AND TO FREE THE RESOURCE VECTOR */ 00737000 * /* TABLE. */ 00738000 * /* */ 00739000 * /*********************************************************/ 00740000 * 01S0514 00741000 * GEN; 01S0514 00742000 LINK EP=IGCFD10D 00743000 * END; /* @YM08085*/ 00744000 * ELSE 01S0516 00745000 * ; /* @YM08085*/ 00746000 @RF00512 DS 0H 01S0517 00747000 * 01S0517 00748000 * /*************************************************************/ 00749000 * /* */ 00750000 * /* IF THIS IS A TOTE REQUEST, TURN ON TOTE FLAG. */ 00751000 * /* */ 00752000 * /*************************************************************/ 00753000 * 01S0517 00754000 * IF OCTOTE=ON THEN 01S0517 00755000 TM OCTOTE(ROPCE),B'01000000' 01S0517 00756000 BNO @RF00517 01S0517 00757000 * TRMSTOTE=ON; 01S0518 00758000 LR @14,RTRM 01S0518 00759000 AL @14,@CF01477 01S0518 00760000 OI TRMSTOTE-3(@14),B'00000001' 01S0518 00761000 * ELSE 01S0519 00762000 * ; 01S0519 00763000 @RF00517 DS 0H 01S0520 00764000 * END; 01S0520 00765000 * 01S0520 00766000 * /*****************************************************************/ 00767000 * /* */ 00768000 * /* FOR ALL RESOURCES. SET COMPLETION CODE AND DETERMINE NEXT */ 00769000 * /* MODULE TO XCTL TO */ 00770000 * /* */ 00771000 * /*****************************************************************/ 00772000 * 01S0521 00773000 * RZERO=GOODMSG; /* SET MSG. NO. FOR SUCCESSFUL 00774000 * DEACTIVATION */ 00775000 @RF00508 LA RZERO,401 01S0521 00776000 * OCPARM=RZERO; /* COPY */ 00777000 STH RZERO,OCPARM(,ROPCE) 01S0522 00778000 * IF OCWTG^=0 THEN /* IF RETURN SPECIFIED */ 00779000 LH @14,OCWTG(,ROPCE) 01S0523 00780000 N @14,@CF01464 01S0523 00781000 LTR @14,@14 01S0523 00782000 BZ @RF00523 01S0523 00783000 * DO; 01S0524 00784000 * OPCMODID=OCWTG; /* SET TO RETURN VIA XCTL */ 00785000 MVC OPCMODID(2,ROPCAVT),OCWTG(ROPCE) 01S0525 00786000 * OCWTG=''B; /* RESET */ 00787000 XC OCWTG(2,ROPCE),OCWTG(ROPCE) 01S0526 00788000 * END; 01S0527 00789000 * ELSE 01S0528 00790000 * IF OCTOTE=ON THEN /* IF TOTE REQUEST */ 00791000 B @RC00523 01S0528 00792000 @RF00523 TM OCTOTE(ROPCE),B'01000000' 01S0528 00793000 BNO @RF00528 01S0528 00794000 * DO; 01S0529 00795000 * RZERO=TOTEGOOD; /* SET GOOD RETURN CODE FOR TOTE */ 00796000 SLR RZERO,RZERO 01S0530 00797000 * OPCMODID=OUTPTMOD; /* SET TO XCTL TO OUTPUT WRITER */ 00798000 MVC OPCMODID(2,ROPCAVT),OUTPTMOD 01S0531 00799000 * END; 01S0532 00800000 * ELSE 01S0533 00801000 * DO; 01S0533 00802000 B @RC00528 01S0533 00803000 @RF00528 DS 0H 01S0534 00804000 * OCWTG=MSGMOD09; /* SET MESSAGE MODULE ID */ 00805000 MVC OCWTG(2,ROPCE),MSGMOD09 01S0534 00806000 * OPCMODID=OPCKPMOD; /* SET TO XCTL TO OP. CTL. 01S0535 00807000 * CHECKPOINT MODULE */ 00808000 MVC OPCMODID(2,ROPCAVT),OPCKPMOD 01S0535 00809000 * END; 01S0536 00810000 * END CMNDTERM; 01S0537 00811000 @EL00003 DS 0H 01S0537 00812000 @EF00003 DS 0H 01S0537 00813000 @ER00003 L @14,@SA00003 01S0537 00814000 BR @14 01S0537 00815000 @PB00003 DS 0H 01S0537 00816000 * END IGCFG10D 01S0538 00817000 * 01S0538 00818000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00819000 */*%INCLUDE SYSLIB (TAVTD ) */ 00820000 */*%INCLUDE SYSLIB (TCURD ) */ 00821000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00822000 */*%INCLUDE SYSLIB (TOPCED ) */ 00823000 */*%INCLUDE SYSLIB (TOPRED ) */ 00824000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00825000 */*%INCLUDE SYSLIB (TPRUD ) */ 00826000 */*%INCLUDE SYSLIB (TTRMD ) */ 00827000 */*%INCLUDE SYSUT5 (CLNUPREQ) */ 00828000 */*%INCLUDE SYSUT5 (STOPDACT) */ 00829000 */*%INCLUDE SYSUT5 (CLEANUP ) */ 00830000 */*%INCLUDE SYSUT5 (CHKLEVEL) */ 00831000 */*%INCLUDE SYSUT5 (ATTACH ) */ 00832000 * 01S0538 00833000 * ; 01S0538 00834000 @DATA DS 0H 00835000 @CH01432 DC H'199' 00836000 @CH01409 DC H'539' 00837000 @DATD DSECT 00838000 DS 0F 00839000 @SA00003 DS 1F 00840000 IGCFG10D CSECT 00841000 DS 0F 00842000 @CF01462 DC F'14' 00843000 @CF01468 DC F'-12' 00844000 @CF01477 DC F'-11' 00845000 @CF01469 DC F'-10' 00846000 @CF01470 DC F'-7' 00847000 @CF01018 DC F'-3' 00848000 @CF01223 DC XL4'08000002' 00849000 @CF01464 DC XL4'0000FFFF' 00850000 @DATD DSECT 00851000 DS 0D 00852000 FLAGS DS BL1 00853000 ORG FLAGS 00854000 LOOPFLG DS BL1 00855000 ORG FLAGS+1 00856000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00857000 @ENDDATD EQU * 00858000 IGCFG10D CSECT 00859000 DS 0F 00860000 @SIZDATD DC AL1(0) 00861000 DC AL3(@ENDDATD-@DATD) 00862000 DS 0D 00863000 @CB01473 DC B'111111111111111111111111101101111111111111111111111111C00864000 11' 00865000 TO00 DC CL2'00' 00866000 CLNOCMOD DC CL2'C1' 00867000 SSCPMOD DC CL2'A0' 00868000 VOFFMOD DC CL2'V8' 00869000 MSGMOD09 DC CL2'09' 00870000 OPCKPMOD DC CL2'06' 00871000 OUTPTMOD DC CL2'07' 00872000 DACRPMOD DC CL2'FG' 00873000 DS CL1 00874000 ADPATCH DC XL100'0' 00875000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00876000 @01 EQU 01 00877000 @02 EQU 02 00878000 @03 EQU 03 00879000 @04 EQU 04 00880000 @05 EQU 05 00881000 @06 EQU 06 00882000 @07 EQU 07 00883000 @08 EQU 08 00884000 @09 EQU 09 00885000 @10 EQU 10 00886000 @11 EQU 11 00887000 @12 EQU 12 00888000 @13 EQU 13 00889000 @14 EQU 14 00890000 @15 EQU 15 00891000 NEXTTCIN EQU @09 00892000 NXTHIRSC EQU @06 00893000 IEDQAPTR EQU @04 00894000 RCUR EQU @03 00895000 ROPCAVT EQU @02 00896000 ROPCE EQU @03 00897000 IEDPRUQP EQU @03 00898000 IEDQTPTR EQU @08 00899000 RZERO EQU @00 00900000 RPARM EQU @01 00901000 RAVT EQU @04 00902000 RTRM EQU @08 00903000 RWRKAREA EQU @10 00904000 RSAVE EQU @13 00905000 RRET EQU @14 00906000 RBRNCH EQU @15 00907000 RTNCODE EQU @15 00908000 IEDQAVTD EQU 0 00909000 AVTSAVEX EQU IEDQAVTD+288 00910000 AVTREADD EQU IEDQAVTD+380 00911000 AVTBUFSW EQU IEDQAVTD+384 00912000 @NM00004 EQU IEDQAVTD+388 00913000 AVTCKFLG EQU @NM00004 00914000 AVTBASE EQU IEDQAVTD+412 00915000 AVTPKF EQU AVTBASE 00916000 AVTRNMPT EQU IEDQAVTD+424 00917000 AVTOSECB EQU IEDQAVTD+492 00918000 AVTECB1 EQU AVTOSECB 00919000 AVTHG02 EQU IEDQAVTD+528 00920000 AVTDISP EQU IEDQAVTD+552 00921000 AVTHD EQU IEDQAVTD+556 00922000 AVTSCOPT EQU AVTHD 00923000 AVTSAVTP EQU IEDQAVTD+612 00924000 AVTSAVTF EQU AVTSAVTP 00925000 AVTCKPEL EQU IEDQAVTD+652 00926000 AVTCKRMV EQU AVTCKPEL 00927000 AVTCKELF EQU IEDQAVTD+680 00928000 AVTCKBYT EQU IEDQAVTD+691 00929000 AVTHG01 EQU IEDQAVTD+692 00930000 AVTCKLNK EQU IEDQAVTD+696 00931000 AVTCRELE EQU IEDQAVTD+708 00932000 AVTCCELE EQU AVTCRELE 00933000 AVTCLRHI EQU IEDQAVTD+716 00934000 AVTADBUF EQU IEDQAVTD+720 00935000 AVTSYSER EQU IEDQAVTD+728 00936000 AVTBFRFG EQU IEDQAVTD+784 00937000 AVTCKPQB EQU IEDQAVTD+804 00938000 AVTCKPTB EQU AVTCKPQB 00939000 AVTCKPEC EQU AVTCKPQB+4 00940000 AVTCKPCC EQU AVTCKPEC 00941000 AVTOPCQB EQU IEDQAVTD+816 00942000 AVTOPCOB EQU AVTOPCQB 00943000 AVTOPCEC EQU AVTOPCQB+4 00944000 AVTOPCCC EQU AVTOPCEC 00945000 AVTOLTQB EQU IEDQAVTD+828 00946000 AVTCWFL1 EQU IEDQAVTD+924 00947000 AVTCWFL2 EQU IEDQAVTD+925 00948000 AVTSUBT EQU IEDQAVTD+948 00949000 AVTIOTR EQU IEDQAVTD+949 00950000 AVTBIT1 EQU IEDQAVTD+1050 00951000 AVTBIT2 EQU IEDQAVTD+1051 00952000 AVTBIT3 EQU IEDQAVTD+1052 00953000 AVTDDFT EQU IEDQAVTD+1064 00954000 AVTBIT4 EQU IEDQAVTD+1136 00955000 @NM00086 EQU IEDQAVTD+1232 00956000 IEDNSVTD EQU 0 00957000 SAVTDIAG EQU IEDNSVTD 00958000 SAVTDIAF EQU SAVTDIAG 00959000 SAVTCLUP EQU IEDNSVTD+72 00960000 SAVTLUSQ EQU IEDNSVTD+88 00961000 SAVTTCPU EQU IEDNSVTD+238 00962000 SAVTZELM EQU IEDNSVTD+270 00963000 SAVTRDRV EQU IEDNSVTD+284 00964000 SAVTCKQB EQU IEDNSVTD+300 00965000 SAVTCKTB EQU SAVTCKQB 00966000 SAVTCKEC EQU SAVTCKQB+4 00967000 SAVTCKCC EQU SAVTCKEC 00968000 IEDCUREQ EQU 0 00969000 CURQCB EQU IEDCUREQ+1 00970000 CURPRI EQU IEDCUREQ+4 00971000 CURLINK EQU IEDCUREQ+8 00972000 CURTOTIN EQU IEDCUREQ+12 00973000 CURSWCH EQU CURTOTIN+1 00974000 CURFLG2 EQU IEDCUREQ+14 00975000 CURFLG3 EQU IEDCUREQ+15 00976000 CURTTCIN EQU IEDCUREQ+20 00977000 CUROPCE EQU IEDCUREQ+36 00978000 CURTRM EQU IEDCUREQ+40 00979000 IEDQOPCD EQU 0 00980000 OPCAVTPT EQU IEDQOPCD+8 00981000 OPCCOPCE EQU IEDQOPCD+12 00982000 OPCPGCK EQU IEDQOPCD+40 00983000 OPCSAVE EQU IEDQOPCD+56 00984000 OPCWORK EQU IEDQOPCD+140 00985000 OPCAQCTL EQU IEDQOPCD+180 00986000 OPCXCTL EQU IEDQOPCD+204 00987000 OPCLDNME EQU IEDQOPCD+212 00988000 OPCMODID EQU OPCLDNME+3 00989000 OPCHORT EQU IEDQOPCD+256 00990000 OPCNEXT EQU IEDQOPCD+272 00991000 OPCGETBF EQU IEDQOPCD+276 00992000 OPCFREBF EQU IEDQOPCD+280 00993000 OPCSPEC EQU IEDQOPCD+300 00994000 OPCDECR EQU IEDQOPCD+352 00995000 OPCPWCOB EQU IEDQOPCD+368 00996000 OPCPWQCB EQU OPCPWCOB 00997000 OPCPWECB EQU OPCPWCOB+4 00998000 IEDQOPCE EQU 0 00999000 OCELEM EQU IEDQOPCE+4 01000000 OCELMPRI EQU OCELEM 01001000 OCUNIT EQU IEDQOPCE+8 01002000 OCRUDEST EQU OCUNIT 01003000 OCCKPKEY EQU OCRUDEST 01004000 OCSCAN EQU OCCKPKEY 01005000 OCOPTCDE EQU IEDQOPCE+12 01006000 OCPRIFLG EQU OCOPTCDE 01007000 OCSWITCH EQU IEDQOPCE+13 01008000 OCFLAG EQU IEDQOPCE+14 01009000 OCTOTE EQU OCFLAG 01010000 OCATTACH EQU OCFLAG 01011000 OCRESP EQU OCFLAG 01012000 @NM00125 EQU IEDQOPCE+16 01013000 OCDEST EQU @NM00125 01014000 OCREQVAL EQU OCDEST+1 01015000 OCTRMTBL EQU IEDQOPCE+20 01016000 OCLINENO EQU IEDQOPCE+22 01017000 OCTIOT EQU OCLINENO 01018000 OCTRUNIT EQU IEDQOPCE+24 01019000 OCRSID EQU OCTRUNIT 01020000 OCALSTAT EQU OCRSID 01021000 OCACTREQ EQU OCALSTAT 01022000 OCPARM EQU IEDQOPCE+28 01023000 OCWTG EQU IEDQOPCE+30 01024000 OCBACKUP EQU IEDQOPCE+32 01025000 OCMODNME EQU IEDQOPCE+40 01026000 OCIPLWA EQU OCMODNME 01027000 OCPTRSAV EQU OCMODNME+4 01028000 OCCKDATA EQU IEDQOPCE+48 01029000 OCRSTGTM EQU OCCKDATA 01030000 IEDQOPCN EQU 0 01031000 OCLDNME EQU IEDQOPCN 01032000 OCLINTTE EQU OCLDNME 01033000 OCREQFLG EQU OCLINTTE+2 01034000 OCPREFLG EQU OCLINTTE+3 01035000 IEDOPRED EQU 0 01036000 OPRESAVE EQU IEDOPRED+8 01037000 OPREFLG3 EQU IEDOPRED+14 01038000 IEDPRUQD EQU 0 01039000 PRUTIC EQU IEDPRUQD+8 01040000 IEDPRUND EQU 0 01041000 PRURHTH EQU IEDPRUND 01042000 PRURH EQU PRURHTH 01043000 PRURHFG0 EQU PRURH 01044000 PRURHFG1 EQU PRURH+1 01045000 PRURHFG2 EQU PRURH+2 01046000 PRUTH EQU PRURHTH+3 01047000 PRUFIDN EQU PRUTH 01048000 IEDQTRM EQU 0 01049000 TRMSTATE EQU IEDQTRM 01050000 TRMLINE EQU TRMSTATE 01051000 TRMLOG EQU TRMSTATE 01052000 TRMINSEQ EQU IEDQTRM+4 01053000 TLISTCNT EQU TRMINSEQ 01054000 TRMOUTSQ EQU IEDQTRM+6 01055000 TLISTEN EQU TRMOUTSQ 01056000 TRMDSORG EQU TLISTEN 01057000 TRMALTD EQU IEDQTRM+8 01058000 TRMDEVFL EQU IEDQTRM+10 01059000 TRMSTAT EQU IEDQTRM+12 01060000 IEDNTRM EQU 0 01061000 TRMBYTE4 EQU IEDNTRM 01062000 TRMBYTE3 EQU IEDNTRM+1 01063000 TRMBYTE2 EQU IEDNTRM+2 01064000 TRMRSACT EQU TRMBYTE2 01065000 TRMINPG EQU TRMBYTE2 01066000 TRMBYTE1 EQU IEDNTRM+3 01067000 TRMSCPRQ EQU TRMBYTE1 01068000 TRMSTOTE EQU TRMBYTE1 01069000 TRMCOHRT EQU IEDNTRM+4 01070000 TRMBYTE0 EQU IEDNTRM+6 01071000 TRMSIBPT EQU IEDNTRM+7 01072000 TRMTYPE EQU IEDNTRM+11 01073000 TRMSUBST EQU IEDNTRM+12 01074000 FREEBUFF EQU 0 01075000 IEDQTNT EQU 0 01076000 PROGRTNE EQU 0 01077000 DECRCT EQU 0 01078000 COHORTLK EQU 0 01079000 ALLOCBUF EQU 0 01080000 IEDQTL EQU 0 01081000 OPCAQWD EQU OPCAQCTL 01082000 OPCAQWD1 EQU OPCAQWD 01083000 OPCAQREQ EQU OPCAQWD1 01084000 OPCAQWD2 EQU OPCAQWD+4 01085000 OPCAQRQ2 EQU OPCAQWD2 01086000 OPCAQWD3 EQU OPCAQWD+8 01087000 OCCKPKY1 EQU OCCKPKEY 01088000 OCCKPTYP EQU OCCKPKY1 01089000 OCICACTN EQU OCMODNME 01090000 OCICDADR EQU OCICACTN 01091000 OCICSW EQU OCICDADR+3 01092000 TRMPRE1 EQU TRMBYTE4 01093000 TRMNCP1 EQU TRMBYTE4 01094000 TRMPRE EQU TRMBYTE3 01095000 TRMNCP EQU TRMBYTE3 01096000 TRMNCPCL EQU TRMNCP 01097000 TRMQUCKN EQU TRMNCP 01098000 TRMPU EQU TRMBYTE3 01099000 TRMLU EQU TRMBYTE3 01100000 TRMLINK EQU TRMBYTE3 01101000 TICFLD EQU OCUNIT 01102000 TIC EQU TICFLD+3 01103000 OCCIB EQU OCREQVAL 01104000 TRMOPT EQU IEDQTRM+20 01105000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01106000 @NM00151 EQU TICFLD 01107000 @NM00150 EQU TRMLINK 01108000 TRMLSTAT EQU TRMLINK 01109000 TRMLINT EQU TRMLINK 01110000 TRMEPMOD EQU TRMLINK 01111000 TRMLULOG EQU TRMLU 01112000 TRMINERR EQU TRMLU 01113000 TRMLUREQ EQU TRMLU 01114000 TRMSESRQ EQU TRMLU 01115000 TRMTDIFF EQU TRMLU 01116000 TRMLUTM EQU TRMLU 01117000 TRMLUIT EQU TRMLU 01118000 TRMAUTO EQU TRMLU 01119000 TRMPCONT EQU TRMPU 01120000 @NM00149 EQU TRMPU 01121000 TRMNCONT EQU TRMNCP 01122000 TRMSLOWN EQU TRMNCP 01123000 TRMSYGEN EQU TRMNCP 01124000 TRMIPLDM EQU TRMNCP 01125000 TRMINOUT EQU TRMPRE 01126000 TRMRDOUT EQU TRMPRE 01127000 TRMNLOUT EQU TRMPRE 01128000 TRMWROUT EQU TRMPRE 01129000 TRMASNXI EQU TRMPRE 01130000 TRMSTMM EQU TRMPRE 01131000 TRMCMODE EQU TRMPRE 01132000 TRMSTPND EQU TRMPRE 01133000 @NM00148 EQU TRMNCP1 01134000 TRMINOP EQU TRMNCP1 01135000 TRMLYNCH EQU TRMPRE1 01136000 TRMSPOUT EQU TRMPRE1 01137000 TRMERLCK EQU TRMPRE1 01138000 TRMQNPL EQU TRMPRE1 01139000 TRMSPACT EQU TRMPRE1 01140000 TRMOCNI EQU TRMPRE1 01141000 TRMSESSN EQU TRMPRE1 01142000 TRMCONT EQU TRMPRE1 01143000 OCICINAC EQU OCICSW 01144000 @NM00130 EQU OCICSW 01145000 OCICATST EQU OCICDADR+1 01146000 OCICTYPE EQU OCICDADR 01147000 @NM00129 EQU OCCKPKY1 01148000 OCCKPENV EQU OCCKPKY1 01149000 OCCKPRST EQU OCCKPTYP 01150000 OCCKPNCP EQU OCCKPTYP 01151000 OCCKPINC EQU OCCKPTYP 01152000 OPCAQLST EQU OPCAQWD3+1 01153000 OPCAQRQ3 EQU OPCAQWD3 01154000 OPCAQSEC EQU OPCAQWD2+1 01155000 OPCAQFST EQU OPCAQWD1+1 01156000 TRMRLMCT EQU IEDNTRM+10 01157000 TRMCOHTG EQU TRMSIBPT+1 01158000 TRMGPCNT EQU TRMSIBPT 01159000 TRMBUFRD EQU TRMBYTE0 01160000 TRMSNA EQU TRMBYTE0 01161000 TRMGP EQU TRMBYTE0 01162000 TRMDIAL EQU TRMBYTE0 01163000 @NM00147 EQU TRMBYTE0 01164000 TRMOUTPT EQU TRMBYTE0 01165000 TRMINPUT EQU TRMBYTE0 01166000 TRMUDEF EQU TRMBYTE0 01167000 TRMCKPRN EQU TRMBYTE1 01168000 TRMTSATN EQU TRMBYTE1 01169000 TRMTRACE EQU TRMBYTE1 01170000 TRMSWBCK EQU TRMBYTE1 01171000 TRMAUTOC EQU TRMBYTE1 01172000 TRMINPTP EQU TRMBYTE1 01173000 TRMWTNEG EQU TRMSCPRQ 01174000 TRMWRBRK EQU TRMBYTE2 01175000 TRMNOSND EQU TRMBYTE2 01176000 TRMPREP EQU TRMBYTE2 01177000 TRMGPACT EQU TRMBYTE2 01178000 TRMANDL EQU TRMBYTE2 01179000 TRMCLOSN EQU TRMINPG 01180000 TRMREMB EQU TRMBYTE2 01181000 TRMOPTBL EQU IEDQTRM+18 01182000 TRMOPNO EQU IEDQTRM+17 01183000 TRMCHCIN EQU IEDQTRM+16 01184000 TRMSENSE EQU TRMSTAT+3 01185000 TRMTEMPR EQU TRMSTAT+2 01186000 TRMSIO EQU TRMSTAT 01187000 @NM00146 EQU TRMDEVFL+1 01188000 TRMTPIN EQU TRMDEVFL+1 01189000 TRMNCPI EQU TRMDEVFL+1 01190000 TRMRNTRM EQU TRMDEVFL+1 01191000 @NM00145 EQU TRMDEVFL+1 01192000 TRMLMD EQU TRMDEVFL+1 01193000 TRMCONC EQU TRMDEVFL+1 01194000 TRMTSOB EQU TRMDEVFL 01195000 TRMBFDY EQU TRMDEVFL 01196000 TRMTBLK EQU TRMDEVFL 01197000 TRMSBLK EQU TRMDEVFL 01198000 TRMBLKS EQU TRMDEVFL 01199000 TRMADDC EQU TRMDEVFL 01200000 TRMDDIG EQU TRMDEVFL 01201000 TRMBUFS EQU TRMDEVFL 01202000 TRMPRILK EQU TRMALTD 01203000 TRMLGB EQU TRMDSORG 01204000 TRMUTERM EQU TLISTCNT 01205000 TRMDESTQ EQU IEDQTRM+1 01206000 TRMSCNYN EQU TRMSTATE 01207000 TRMOPTFN EQU TRMSTATE 01208000 TRMHELDN EQU TRMSTATE 01209000 TRMACPTN EQU TRMSTATE 01210000 TRMPREF EQU TRMSTATE 01211000 TRMPROC EQU TRMLOG 01212000 TRMLIST EQU TRMLOG 01213000 @NM00144 EQU IEDPRUND+4 01214000 PRUTHEFI EQU PRUFIDN 01215000 PRUTHUSS EQU PRUFIDN 01216000 PRUTHEIU EQU PRUFIDN 01217000 PRUTHBIU EQU PRUFIDN 01218000 PRUTHTYE EQU PRUFIDN 01219000 @NM00143 EQU PRURHFG2 01220000 PRURHCSI EQU PRURHFG2 01221000 @NM00142 EQU PRURHFG2 01222000 PRURHCDI EQU PRURHFG2 01223000 PRURHEB EQU PRURHFG2 01224000 PRURHBB EQU PRURHFG2 01225000 PRURHPI EQU PRURHFG1 01226000 @NM00141 EQU PRURHFG1 01227000 PRURHER EQU PRURHFG1 01228000 PRURHDR2 EQU PRURHFG1 01229000 @NM00140 EQU PRURHFG1 01230000 PRURHDR1 EQU PRURHFG1 01231000 PRURHEC EQU PRURHFG0 01232000 PRURHBC EQU PRURHFG0 01233000 PRURHSDI EQU PRURHFG0 01234000 PRURHFI EQU PRURHFG0 01235000 @NM00139 EQU PRURHFG0 01236000 PRURUCAT EQU PRURHFG0 01237000 PRURHTYP EQU PRURHFG0 01238000 PRUDATA EQU IEDPRUQD+12 01239000 PRUNUNIT EQU PRUTIC+1 01240000 @NM00138 EQU PRUTIC 01241000 @NM00137 EQU IEDPRUQD+4 01242000 PRUDATCT EQU IEDPRUQD+2 01243000 PRUTTCIN EQU IEDPRUQD 01244000 @NM00136 EQU OPREFLG3 01245000 OPREATCH EQU OPREFLG3 01246000 @NM00135 EQU OPREFLG3 01247000 OPREFLG2 EQU IEDOPRED+13 01248000 OPREFLG1 EQU IEDOPRED+12 01249000 OPRETIC EQU OPRESAVE 01250000 OPRELINK EQU IEDOPRED+5 01251000 OPREPRI EQU IEDOPRED+4 01252000 OPREQCB EQU IEDOPRED+1 01253000 OPREKEY EQU IEDOPRED 01254000 @NM00134 EQU OCLDNME+4 01255000 @NM00133 EQU OCPREFLG 01256000 OCTOTEP EQU OCPREFLG 01257000 OCREPOST EQU OCPREFLG 01258000 OCRSPSNT EQU OCPREFLG 01259000 OCBFREQ EQU OCPREFLG 01260000 OCIDLE EQU OCREQFLG 01261000 OCFORCE EQU OCREQFLG 01262000 OCDCARD EQU OCREQFLG 01263000 OCPARTAL EQU OCREQFLG 01264000 OCADNCP EQU OCREQFLG 01265000 @NM00132 EQU OCREQFLG 01266000 @NM00131 EQU OCREQFLG 01267000 OCFLUSHZ EQU OCREQFLG 01268000 OCRESPCT EQU OCLINTTE 01269000 OCCKPTWA EQU OCCKDATA+4 01270000 @NM00128 EQU OCRSTGTM+2 01271000 OCCKDAT2 EQU OCRSTGTM+1 01272000 OCCKDAT1 EQU OCRSTGTM 01273000 OCPUADR EQU OCIPLWA+2 01274000 OCWTGSAV EQU OCIPLWA 01275000 OCDVRDCT EQU OCBACKUP+6 01276000 OCNCP EQU OCBACKUP+4 01277000 OCBUFGOT EQU OCBACKUP+2 01278000 OCBUFNED EQU OCBACKUP 01279000 OCRESNUM EQU OCPARM 01280000 OCSEQ EQU OCTRUNIT+2 01281000 @NM00127 EQU OCRSID+1 01282000 OCNONE EQU OCALSTAT 01283000 OCSOME EQU OCALSTAT 01284000 OCALLFLG EQU OCALSTAT 01285000 OCREDRVE EQU OCALSTAT 01286000 OCSEQIND EQU OCALSTAT 01287000 OCDACTIP EQU OCALSTAT 01288000 OCRENTRD EQU OCALSTAT 01289000 OCWTGB EQU OCTIOT 01290000 @NM00126 EQU @NM00125+2 01291000 OCCONID EQU OCDEST 01292000 OCRLN EQU IEDQOPCE+15 01293000 OCSSCP EQU OCFLAG 01294000 OCOUTPUT EQU OCFLAG 01295000 OCLINE EQU OCFLAG 01296000 OCMPP EQU OCFLAG 01297000 OCCONSOL EQU OCFLAG 01298000 @NM00124 EQU OCSWITCH 01299000 OCQUCKN EQU OCSWITCH 01300000 @NM00123 EQU OCRUDEST+1 01301000 @NM00122 EQU OCSCAN 01302000 OCNOTUCB EQU OCSCAN 01303000 OCNONAME EQU OCSCAN 01304000 OCALLRLN EQU OCSCAN 01305000 OCDDNAME EQU OCSCAN 01306000 OCDDNRLN EQU OCSCAN 01307000 OCADDR EQU OCSCAN 01308000 OCELMPTR EQU OCELEM+1 01309000 OCLINK EQU IEDQOPCE 01310000 OPCBOTTM EQU IEDQOPCD+1188 01311000 OPCDSRWT EQU IEDQOPCD+1184 01312000 @NM00121 EQU IEDQOPCD+1100 01313000 @NM00120 EQU IEDQOPCD+948 01314000 @NM00119 EQU IEDQOPCD+940 01315000 @NM00118 EQU IEDQOPCD+380 01316000 @NM00117 EQU OPCPWCOB+9 01317000 @NM00116 EQU OPCPWCOB+8 01318000 @NM00115 EQU OPCPWECB+1 01319000 OPCPWCCC EQU OPCPWECB 01320000 OPCPWCHN EQU OPCPWQCB+1 01321000 OPCPWVTO EQU OPCPWQCB 01322000 OPCWAITV EQU IEDQOPCD+364 01323000 OPCTOTCK EQU IEDQOPCD+360 01324000 OPCAPXTL EQU IEDQOPCD+356 01325000 OPCBUFWT EQU IEDQOPCD+348 01326000 OPCWRKSP EQU IEDQOPCD+320 01327000 OPCADGOT EQU IEDQOPCD+318 01328000 OPCRQCNT EQU IEDQOPCD+316 01329000 OPPOLSTP EQU IEDQOPCD+312 01330000 OPCCKCIB EQU IEDQOPCD+308 01331000 OPCEND EQU IEDQOPCD+307 01332000 OPCSTCBS EQU IEDQOPCD+306 01333000 OPCHNEND EQU IEDQOPCD+302 01334000 OPCOQSW EQU IEDQOPCD+301 01335000 @NM00114 EQU OPCSPEC 01336000 @NM00113 EQU OPCSPEC 01337000 @NM00112 EQU OPCSPEC 01338000 @NM00111 EQU OPCSPEC 01339000 OPCFRMCA EQU OPCSPEC 01340000 OPCRSTRT EQU OPCSPEC 01341000 OPCPART EQU OPCSPEC 01342000 OPCALTD EQU OPCSPEC 01343000 OPCBFEND EQU IEDQOPCD+296 01344000 OPCBFIRS EQU IEDQOPCD+292 01345000 OPCAVBUF EQU IEDQOPCD+290 01346000 OPCIPLCT EQU IEDQOPCD+289 01347000 OPCCLNTS EQU IEDQOPCD+288 01348000 OPCHA8 EQU IEDQOPCD+286 01349000 OPCBFREQ EQU IEDQOPCD+284 01350000 OPCFMDFC EQU IEDQOPCD+268 01351000 OPCSCNC EQU IEDQOPCD+264 01352000 OPCHORTG EQU IEDQOPCD+260 01353000 OPCCKPTL EQU IEDQOPCD+252 01354000 OPCCKPTF EQU IEDQOPCD+248 01355000 OPCWAITA EQU IEDQOPCD+244 01356000 OPCWAITR EQU IEDQOPCD+240 01357000 OPCWAITP EQU IEDQOPCD+236 01358000 OPCWAITO EQU IEDQOPCD+232 01359000 OPCWAITN EQU IEDQOPCD+228 01360000 OPCWAITL EQU IEDQOPCD+224 01361000 OPCWAITC EQU IEDQOPCD+220 01362000 @NM00110 EQU OPCLDNME+5 01363000 @NM00109 EQU OPCLDNME 01364000 OPCWAIT EQU IEDQOPCD+192 01365000 OPCCKERB EQU IEDQOPCD+164 01366000 OPCBFERB EQU IEDQOPCD+148 01367000 OPCFLAG2 EQU IEDQOPCD+147 01368000 OPCFLAG1 EQU IEDQOPCD+146 01369000 OPCWRKSZ EQU IEDQOPCD+144 01370000 OPCRSAVE EQU IEDQOPCD+132 01371000 OPCQCBAD EQU IEDQOPCD+128 01372000 OPCTRMWA EQU IEDQOPCD+52 01373000 OPCPSTWT EQU IEDQOPCD+48 01374000 OPCTNTEA EQU IEDQOPCD+44 01375000 OPCLCB EQU IEDQOPCD+36 01376000 @NM00108 EQU IEDQOPCD+32 01377000 OPCIPLAD EQU IEDQOPCD+28 01378000 OPCTOFLK EQU IEDQOPCD+24 01379000 OPCOPTLK EQU IEDQOPCD+20 01380000 OPCDCBLK EQU IEDQOPCD+16 01381000 OPCDOUBL EQU IEDQOPCD 01382000 CURPIUPC EQU IEDCUREQ+32 01383000 CURTOTBF EQU IEDCUREQ+28 01384000 CURNEWBF EQU IEDCUREQ+24 01385000 CURNXTRC EQU IEDCUREQ+22 01386000 CURFAILT EQU IEDCUREQ+18 01387000 CURPIUCT EQU IEDCUREQ+16 01388000 @NM00107 EQU CURFLG3 01389000 CURDIAL EQU CURFLG3 01390000 CURNCURE EQU CURFLG3 01391000 CURFIRST EQU CURFLG3 01392000 CURTOTEP EQU CURFLG3 01393000 CUREPOST EQU CURFLG3 01394000 CURTERM EQU CURFLG2 01395000 CURATTCH EQU CURFLG2 01396000 @NM00106 EQU CURFLG2 01397000 CURENDCH EQU CURFLG2 01398000 CURF1ID EQU CURFLG2 01399000 CURF1SEQ EQU CURFLG2 01400000 CURF0FIN EQU CURFLG2 01401000 CURFLG1 EQU CURTOTIN 01402000 CURELEM EQU IEDCUREQ+5 01403000 CURKEY EQU IEDCUREQ 01404000 SAVTLLCB EQU IEDNSVTD+316 01405000 SAVTBITN EQU IEDNSVTD+312 01406000 @NM00105 EQU SAVTCKQB+8 01407000 @NM00104 EQU SAVTCKEC+1 01408000 @NM00103 EQU SAVTCKCC 01409000 SAVTCKPO EQU SAVTCKCC 01410000 SAVTCKWA EQU SAVTCKCC 01411000 SAVTCKCH EQU SAVTCKTB+1 01412000 SAVTCKVT EQU SAVTCKTB 01413000 @NM00102 EQU IEDNSVTD+297 01414000 SAVTRDFG EQU SAVTRDRV+12 01415000 @NM00101 EQU SAVTRDRV+5 01416000 SAVTRDPY EQU SAVTRDRV+4 01417000 SAVTRDQB EQU SAVTRDRV+1 01418000 SAVTRDKY EQU SAVTRDRV 01419000 SAVTNID EQU IEDNSVTD+280 01420000 SAVTDVAS EQU IEDNSVTD+276 01421000 SAVTPLSZ EQU IEDNSVTD+274 01422000 @NM00100 EQU IEDNSVTD+273 01423000 SAVTSUBL EQU IEDNSVTD+272 01424000 @NM00099 EQU SAVTZELM+1 01425000 SAVTSUBM EQU SAVTZELM 01426000 SAVTMHDX EQU IEDNSVTD+268 01427000 SAVTNAT1 EQU IEDNSVTD+266 01428000 SAVTSH20 EQU IEDNSVTD+264 01429000 SAVTLCBS EQU IEDNSVTD+260 01430000 SAVTRNMP EQU IEDNSVTD+256 01431000 SAVTTNTX EQU IEDNSVTD+252 01432000 SAVTNAX EQU IEDNSVTD+248 01433000 SAVTSUBV EQU IEDNSVTD+247 01434000 SAVTSUBA EQU IEDNSVTD+246 01435000 SAVTSIBC EQU IEDNSVTD+244 01436000 SAVTBSM EQU IEDNSVTD+240 01437000 SAVTSCPT EQU SAVTTCPU 01438000 SAVTRQTG EQU IEDNSVTD+236 01439000 SAVTRQCH EQU IEDNSVTD+232 01440000 SAVTMAND EQU IEDNSVTD+228 01441000 SAVTSPLN EQU IEDNSVTD+224 01442000 SAVTNADL EQU IEDNSVTD+222 01443000 SAVTNATL EQU IEDNSVTD+220 01444000 SAVTMHTB EQU IEDNSVTD+216 01445000 SAVTSSMH EQU IEDNSVTD+212 01446000 SAVTQRS EQU IEDNSVTD+208 01447000 SAVTRQIN EQU IEDNSVTD+204 01448000 SAVTDFCO EQU IEDNSVTD+200 01449000 SAVTSAO EQU IEDNSVTD+196 01450000 SAVTSARI EQU IEDNSVTD+192 01451000 SAVTSAC EQU IEDNSVTD+188 01452000 SAVTSAI EQU IEDNSVTD+184 01453000 SAVTCSCI EQU IEDNSVTD+180 01454000 SAVTSSRP EQU IEDNSVTD+176 01455000 SAVTSSRQ EQU IEDNSVTD+172 01456000 SAVTSCLU EQU IEDNSVTD+168 01457000 SAVTXTRQ EQU IEDNSVTD+164 01458000 SAVTMVBF EQU IEDNSVTD+160 01459000 @NM00098 EQU IEDNSVTD+148 01460000 SAVTIPCQ EQU IEDNSVTD+144 01461000 @NM00097 EQU IEDNSVTD+136 01462000 SAVTXFMI EQU IEDNSVTD+132 01463000 @NM00096 EQU IEDNSVTD+124 01464000 SAVTXFMO EQU IEDNSVTD+120 01465000 @NM00095 EQU IEDNSVTD+116 01466000 SAVTSSSR EQU IEDNSVTD+112 01467000 SAVTSCPQ EQU IEDNSVTD+108 01468000 SAVTSLCB EQU IEDNSVTD+104 01469000 SAVTLUSR EQU IEDNSVTD+100 01470000 @NM00094 EQU SAVTLUSQ+8 01471000 SAVTLUSP EQU SAVTLUSQ+4 01472000 SAVTLUSB EQU SAVTLUSQ 01473000 @NM00093 EQU IEDNSVTD+84 01474000 SAVTSAT EQU IEDNSVTD+80 01475000 SAVTNAT EQU IEDNSVTD+76 01476000 SAVTPIUT EQU IEDNSVTD+68 01477000 SAVTRNTA EQU IEDNSVTD+64 01478000 SAVTDNIR EQU IEDNSVTD+60 01479000 SAVTCNIR EQU IEDNSVTD+56 01480000 SAVTFLDH EQU IEDNSVTD+52 01481000 SAVTSRTN EQU IEDNSVTD+48 01482000 SAVTSREQ EQU IEDNSVTD+44 01483000 SAVTFAIL EQU IEDNSVTD+42 01484000 SAVTSUSE EQU IEDNSVTD+40 01485000 SAVTSIB EQU IEDNSVTD+36 01486000 SAVTPRTN EQU IEDNSVTD+32 01487000 @NM00092 EQU IEDNSVTD+28 01488000 SAVTWH20 EQU IEDNSVTD+26 01489000 SAVTPWT EQU IEDNSVTD+24 01490000 SAVTPRTQ EQU IEDNSVTD+20 01491000 SAVTPREQ EQU IEDNSVTD+16 01492000 SAVTPH20 EQU IEDNSVTD+14 01493000 SAVTPUSE EQU IEDNSVTD+12 01494000 SAVTPLCB EQU IEDNSVTD+8 01495000 SAVTPOOL EQU IEDNSVTD+4 01496000 SAVTPRMT EQU SAVTDIAF 01497000 SAVTVIRT EQU SAVTDIAF 01498000 AVTCPBNO EQU IEDQAVTD+1244 01499000 AVTHRESS EQU IEDQAVTD+1243 01500000 @NM00091 EQU IEDQAVTD+1242 01501000 @NM00090 EQU IEDQAVTD+1241 01502000 @NM00089 EQU IEDQAVTD+1240 01503000 @NM00088 EQU IEDQAVTD+1237 01504000 @NM00087 EQU IEDQAVTD+1236 01505000 AVTHRESE EQU @NM00086 01506000 AVTRADDR EQU IEDQAVTD+1228 01507000 AVTNADDR EQU IEDQAVTD+1224 01508000 AVTHRESN EQU IEDQAVTD+1220 01509000 AVTVOLRN EQU IEDQAVTD+1216 01510000 AVTTOTNN EQU IEDQAVTD+1212 01511000 AVTTRCYN EQU IEDQAVTD+1208 01512000 AVTRCTRN EQU IEDQAVTD+1204 01513000 AVTNOVON EQU IEDQAVTD+1200 01514000 AVTADEBN EQU IEDQAVTD+1196 01515000 AVTVOLRR EQU IEDQAVTD+1192 01516000 AVTTOTNR EQU IEDQAVTD+1188 01517000 AVTTRCYR EQU IEDQAVTD+1184 01518000 AVTRCTRR EQU IEDQAVTD+1180 01519000 AVTNOVOR EQU IEDQAVTD+1176 01520000 AVTADEBR EQU IEDQAVTD+1172 01521000 AVTLODPT EQU IEDQAVTD+1168 01522000 AVTIOBN EQU IEDQAVTD+1164 01523000 AVTIOBR EQU IEDQAVTD+1160 01524000 AVTCPBPT EQU IEDQAVTD+1156 01525000 AVTFCPB EQU IEDQAVTD+1152 01526000 @NM00085 EQU IEDQAVTD+1148 01527000 AVTINCPQ EQU IEDQAVTD+1144 01528000 @NM00084 EQU IEDQAVTD+1140 01529000 @NM00083 EQU IEDQAVTD+1137 01530000 @NM00082 EQU AVTBIT4 01531000 @NM00081 EQU AVTBIT4 01532000 @NM00080 EQU AVTBIT4 01533000 @NM00079 EQU AVTBIT4 01534000 @NM00078 EQU AVTBIT4 01535000 @NM00077 EQU AVTBIT4 01536000 @NM00076 EQU AVTBIT4 01537000 AVTRUFTN EQU AVTBIT4 01538000 @NM00075 EQU IEDQAVTD+1132 01539000 AVTNOBFQ EQU IEDQAVTD+1128 01540000 @NM00074 EQU IEDQAVTD+1124 01541000 AVTDKENQ EQU IEDQAVTD+1120 01542000 @NM00073 EQU IEDQAVTD+1116 01543000 AVTDKAPQ EQU IEDQAVTD+1112 01544000 AVTCOPY EQU IEDQAVTD+1108 01545000 AVTIA EQU IEDQAVTD+1104 01546000 AVTFL EQU IEDQAVTD+1100 01547000 @NM00072 EQU IEDQAVTD+1096 01548000 AVTNCPBQ EQU IEDQAVTD+1092 01549000 AVTTOTNC EQU IEDQAVTD+1088 01550000 AVTCMAX EQU IEDQAVTD+1084 01551000 AVTCMIN EQU IEDQAVTD+1080 01552000 AVTHM02 EQU IEDQAVTD+1076 01553000 AVTOPCIN EQU IEDQAVTD+1074 01554000 AVTDCTLN EQU IEDQAVTD+1072 01555000 AVTOPMSK EQU IEDQAVTD+1068 01556000 AVTSTEAL EQU IEDQAVTD+1060 01557000 AVTOPTN EQU IEDQAVTD+1056 01558000 AVTDSKCT EQU IEDQAVTD+1054 01559000 AVTCKRST EQU IEDQAVTD+1053 01560000 AVTSTAN EQU AVTBIT3 01561000 AVTSTACN EQU AVTBIT3 01562000 AVTSTAIN EQU AVTBIT3 01563000 AVTSTAYN EQU AVTBIT3 01564000 AVTOLTBN EQU AVTBIT3 01565000 AVTTSAB EQU AVTBIT3 01566000 AVTRFULN EQU AVTBIT3 01567000 AVTRECVN EQU AVTBIT3 01568000 @NM00071 EQU AVTBIT2 01569000 @NM00070 EQU AVTBIT2 01570000 AVTOPEIN EQU AVTBIT2 01571000 AVTSTRTN EQU AVTBIT2 01572000 AVTTOPOL EQU AVTBIT2 01573000 AVTCOPYN EQU AVTBIT2 01574000 AVTREUSN EQU AVTBIT2 01575000 AVTEXTSC EQU AVTBIT2 01576000 AVTDISKN EQU AVTBIT1 01577000 AVTQUCKN EQU AVTBIT1 01578000 AVTCLOSN EQU AVTBIT1 01579000 AVTREADN EQU AVTBIT1 01580000 AVTDLAYN EQU AVTBIT1 01581000 AVTAQTAN EQU AVTBIT1 01582000 AVTTSON EQU AVTBIT1 01583000 AVTAPLKN EQU AVTBIT1 01584000 AVTDUMBR EQU IEDQAVTD+1048 01585000 AVTDLQX EQU IEDQAVTD+1046 01586000 AVTINTLV EQU IEDQAVTD+1044 01587000 AVTSMCNT EQU IEDQAVTD+1042 01588000 AVTAVFCT EQU IEDQAVTD+1040 01589000 AVTOPCON EQU IEDQAVTD+1038 01590000 AVTOPCNT EQU IEDQAVTD+1036 01591000 AVTLNCNT EQU IEDQAVTD+1034 01592000 AVTKEYLE EQU IEDQAVTD+1032 01593000 AVTHA16 EQU IEDQAVTD+1030 01594000 AVTHA7 EQU IEDQAVTD+1028 01595000 AVTHA4 EQU IEDQAVTD+1026 01596000 AVTHA3 EQU IEDQAVTD+1024 01597000 AVTHA2 EQU IEDQAVTD+1022 01598000 AVTGETMS EQU IEDQAVTD+1021 01599000 @NM00069 EQU IEDQAVTD+1020 01600000 AVTGETMD EQU IEDQAVTD+1016 01601000 AVTGETMN EQU IEDQAVTD+1012 01602000 AVTCWTOT EQU IEDQAVTD+1008 01603000 AVTCWINT EQU IEDQAVTD+956 01604000 AVTDTRAP EQU IEDQAVTD+952 01605000 @NM00068 EQU IEDQAVTD+950 01606000 @NM00067 EQU AVTIOTR 01607000 AVTIOTRH EQU AVTIOTR 01608000 AVTIOTRE EQU AVTIOTR 01609000 @NM00066 EQU AVTSUBT 01610000 AVTSUBPT EQU AVTSUBT 01611000 AVTSUBON EQU AVTSUBT 01612000 AVTAFE30 EQU IEDQAVTD+944 01613000 AVTAFE20 EQU IEDQAVTD+940 01614000 AVTAFE10 EQU IEDQAVTD+936 01615000 AVTCWEC2 EQU IEDQAVTD+932 01616000 AVTCWPM2 EQU IEDQAVTD+928 01617000 AVTCWTS2 EQU IEDQAVTD+927 01618000 AVTCWTS1 EQU IEDQAVTD+926 01619000 AVTCWCLD EQU AVTCWFL2 01620000 AVTCWRAP EQU AVTCWFL2 01621000 @NM00065 EQU AVTCWFL2 01622000 @NM00064 EQU AVTCWFL2 01623000 @NM00063 EQU AVTCWFL2 01624000 @NM00062 EQU AVTCWFL2 01625000 @NM00061 EQU AVTCWFL2 01626000 AVTCWACT EQU AVTCWFL2 01627000 @NM00060 EQU AVTCWFL1 01628000 @NM00059 EQU AVTCWFL1 01629000 @NM00058 EQU AVTCWFL1 01630000 @NM00057 EQU AVTCWFL1 01631000 @NM00056 EQU AVTCWFL1 01632000 @NM00055 EQU AVTCWFL1 01633000 @NM00054 EQU AVTCWFL1 01634000 AVTCOMWN EQU AVTCWFL1 01635000 AVTCWEC1 EQU IEDQAVTD+920 01636000 AVTCWPM1 EQU IEDQAVTD+916 01637000 AVTCAREA EQU IEDQAVTD+912 01638000 AVTFZERO EQU IEDQAVTD+908 01639000 AVTCADDR EQU IEDQAVTD+904 01640000 AVTCOREC EQU IEDQAVTD+900 01641000 @NM00053 EQU IEDQAVTD+892 01642000 AVTCPBCB EQU IEDQAVTD+888 01643000 @NM00052 EQU IEDQAVTD+880 01644000 AVTDSIOB EQU IEDQAVTD+876 01645000 @NM00051 EQU IEDQAVTD+868 01646000 AVTCPRMB EQU IEDQAVTD+864 01647000 @NM00050 EQU IEDQAVTD+856 01648000 AVTCLOSB EQU IEDQAVTD+852 01649000 @NM00049 EQU IEDQAVTD+844 01650000 AVTACTIB EQU IEDQAVTD+840 01651000 @NM00048 EQU IEDQAVTD+836 01652000 AVTOLTEB EQU IEDQAVTD+832 01653000 AVTOLTCH EQU AVTOLTQB+1 01654000 AVTOLTVT EQU AVTOLTQB 01655000 @NM00047 EQU AVTOPCQB+8 01656000 @NM00046 EQU AVTOPCEC+1 01657000 @NM00045 EQU AVTOPCCC 01658000 AVTOPCPO EQU AVTOPCCC 01659000 AVTOPCWA EQU AVTOPCCC 01660000 AVTOPCCH EQU AVTOPCOB+1 01661000 AVTOPCVT EQU AVTOPCOB 01662000 @NM00044 EQU AVTCKPQB+9 01663000 AVTCKPTS EQU AVTCKPQB+8 01664000 @NM00043 EQU AVTCKPEC+1 01665000 @NM00042 EQU AVTCKPCC 01666000 AVTCKPPO EQU AVTCKPCC 01667000 AVTCKPWA EQU AVTCKPCC 01668000 AVTCKPCH EQU AVTCKPTB+1 01669000 AVTCKPVT EQU AVTCKPTB 01670000 @NM00041 EQU IEDQAVTD+796 01671000 AVTBFRTB EQU IEDQAVTD+792 01672000 @NM00040 EQU IEDQAVTD+788 01673000 AVTSELCH EQU IEDQAVTD+785 01674000 AVTBFRTN EQU AVTBFRFG 01675000 AVTBFREB EQU IEDQAVTD+780 01676000 AVTTIMQ EQU IEDQAVTD+776 01677000 @NM00039 EQU IEDQAVTD+772 01678000 AVTIMQPS EQU IEDQAVTD+768 01679000 AVTINOUT EQU IEDQAVTD+766 01680000 AVTREFTM EQU IEDQAVTD+764 01681000 @NM00038 EQU IEDQAVTD+752 01682000 AVTDELYB EQU IEDQAVTD+748 01683000 AVTOCQPT EQU IEDQAVTD+744 01684000 AVTTSOPT EQU IEDQAVTD+740 01685000 AVTSUPPT EQU IEDQAVTD+736 01686000 AVTCBQCB EQU IEDQAVTD+732 01687000 AVTMSGS EQU IEDQAVTD+729 01688000 @NM00037 EQU AVTSYSER 01689000 @NM00036 EQU AVTSYSER 01690000 @NM00035 EQU AVTSYSER 01691000 @NM00034 EQU AVTSYSER 01692000 @NM00033 EQU AVTSYSER 01693000 @NM00032 EQU AVTSYSER 01694000 AVTCMAXN EQU AVTSYSER 01695000 AVTCMINN EQU AVTSYSER 01696000 AVT2260L EQU IEDQAVTD+724 01697000 AVTABEPL EQU AVTADBUF 01698000 AVTHFF EQU AVTCLRHI+2 01699000 @NM00031 EQU AVTCLRHI 01700000 AVTCCLNK EQU AVTCRELE+5 01701000 AVTCCPRI EQU AVTCRELE+4 01702000 AVTCCQCB EQU AVTCCELE+1 01703000 AVTCCKEY EQU AVTCCELE 01704000 AVTDELAD EQU IEDQAVTD+704 01705000 AVTDELEM EQU IEDQAVTD+700 01706000 AVTBSX EQU AVTCKLNK 01707000 AVTOPETR EQU AVTHG01 01708000 @NM00030 EQU AVTCKBYT 01709000 AVTCKONQ EQU AVTCKBYT 01710000 @NM00029 EQU AVTCKBYT 01711000 @NM00028 EQU AVTCKBYT 01712000 @NM00027 EQU AVTCKBYT 01713000 @NM00026 EQU AVTCKBYT 01714000 @NM00025 EQU AVTCKBYT 01715000 @NM00024 EQU AVTCKBYT 01716000 AVTOPERT EQU IEDQAVTD+690 01717000 AVTOPXCL EQU IEDQAVTD+688 01718000 AVTOPERL EQU IEDQAVTD+687 01719000 @NM00023 EQU IEDQAVTD+686 01720000 AVTCKTIM EQU IEDQAVTD+684 01721000 AVTCKELV EQU IEDQAVTD+682 01722000 AVTCPRCD EQU IEDQAVTD+681 01723000 AVTWARMN EQU AVTCKELF 01724000 AVTCRTLN EQU AVTCKELF 01725000 AVTCPIPN EQU AVTCKELF 01726000 AVTCCLCN EQU AVTCKELF 01727000 AVTCINCN EQU AVTCKELF 01728000 @NM00022 EQU AVTCKELF 01729000 AVTCMCPN EQU AVTCKELF 01730000 AVTNQBCK EQU AVTCKELF 01731000 AVTCKQAD EQU IEDQAVTD+677 01732000 AVTSCBSZ EQU IEDQAVTD+676 01733000 @NM00021 EQU IEDQAVTD+672 01734000 AVTCKELE EQU IEDQAVTD+668 01735000 @NM00020 EQU AVTCKPEL+8 01736000 AVTCKRLK EQU AVTCKPEL+5 01737000 AVTCKRPR EQU AVTCKPEL+4 01738000 AVTCKRMQ EQU AVTCKRMV+1 01739000 AVTCKRKY EQU AVTCKRMV 01740000 AVTHK EQU IEDQAVTD+648 01741000 AVTHI EQU IEDQAVTD+644 01742000 AVTIOT EQU IEDQAVTD+640 01743000 AVTNX EQU IEDQAVTD+636 01744000 AVTTONE EQU IEDQAVTD+632 01745000 AVTA3TL EQU IEDQAVTD+628 01746000 AVTDMECB EQU IEDQAVTD+624 01747000 AVTABEND EQU IEDQAVTD+618 01748000 AVTPLCBN EQU IEDQAVTD+616 01749000 @NM00019 EQU AVTSAVTP+1 01750000 @NM00018 EQU AVTSAVTF 01751000 AVTSNA EQU AVTSAVTF 01752000 AVTONSNA EQU AVTSAVTF 01753000 AVTVTMCP EQU AVTSAVTF 01754000 @NM00017 EQU IEDQAVTD+608 01755000 AVTCMBSS EQU IEDQAVTD+604 01756000 AVTRCV EQU IEDQAVTD+600 01757000 AVTSEND EQU IEDQAVTD+596 01758000 AVTCSCH EQU IEDQAVTD+592 01759000 AVTQ1 EQU IEDQAVTD+588 01760000 AVTE7 EQU IEDQAVTD+584 01761000 AVTHB EQU IEDQAVTD+580 01762000 AVTR1 EQU IEDQAVTD+576 01763000 AVTBZ EQU IEDQAVTD+572 01764000 AVTEZ EQU IEDQAVTD+568 01765000 AVTEC EQU IEDQAVTD+564 01766000 AVTEW EQU IEDQAVTD+560 01767000 AVTNDIAL EQU AVTSCOPT 01768000 AVTN2741 EQU AVTSCOPT 01769000 AVTCONCO EQU AVTSCOPT 01770000 AVTCONC EQU AVTSCOPT 01771000 AVTCMBUF EQU AVTSCOPT 01772000 AVTAPDMP EQU AVTSCOPT 01773000 @NM00016 EQU AVTSCOPT 01774000 AVTHA EQU AVTDISP 01775000 AVTEA EQU IEDQAVTD+548 01776000 AVTAX EQU IEDQAVTD+544 01777000 AVTA3 EQU IEDQAVTD+540 01778000 AVTGD EQU IEDQAVTD+536 01779000 AVTAL EQU IEDQAVTD+532 01780000 AVTOLTST EQU AVTHG02 01781000 AVTE8 EQU IEDQAVTD+524 01782000 AVTUI EQU IEDQAVTD+520 01783000 AVTCOMPT EQU IEDQAVTD+516 01784000 AVTCRSRF EQU IEDQAVTD+512 01785000 @NM00015 EQU IEDQAVTD+508 01786000 AVTKA02 EQU IEDQAVTD+504 01787000 AVTOPTPT EQU IEDQAVTD+500 01788000 AVTPCBPT EQU IEDQAVTD+496 01789000 @NM00014 EQU AVTECB1 01790000 AVTCOMP EQU AVTECB1 01791000 @NM00013 EQU AVTECB1 01792000 AVTOPECA EQU IEDQAVTD+488 01793000 AVTOLECA EQU IEDQAVTD+484 01794000 AVTCKECA EQU IEDQAVTD+480 01795000 AVTCWECA EQU IEDQAVTD+476 01796000 AVTCWTCB EQU IEDQAVTD+472 01797000 AVTOLTCB EQU IEDQAVTD+468 01798000 AVTOCTCB EQU IEDQAVTD+464 01799000 AVTCKTCB EQU IEDQAVTD+460 01800000 AVTAS EQU IEDQAVTD+456 01801000 AVTNOLBF EQU IEDQAVTD+454 01802000 AVTNCKPR EQU IEDQAVTD+453 01803000 AVTCIB EQU IEDQAVTD+452 01804000 AVTSPLPT EQU IEDQAVTD+448 01805000 AVTMVBFR EQU IEDQAVTD+444 01806000 AVTSBTA EQU IEDQAVTD+440 01807000 AVTRARTN EQU IEDQAVTD+436 01808000 AVTBSCAN EQU IEDQAVTD+432 01809000 AVTRDYA EQU IEDQAVTD+428 01810000 AVTDISTR EQU IEDQAVTD+420 01811000 AVTPARM3 EQU IEDQAVTD+416 01812000 @NM00012 EQU AVTPKF 01813000 @NM00011 EQU AVTPKF 01814000 @NM00010 EQU AVTPKF 01815000 AVTFTCHF EQU AVTPKF 01816000 @NM00009 EQU AVTPKF 01817000 @NM00008 EQU AVTPKF 01818000 @NM00007 EQU AVTPKF 01819000 @NM00006 EQU AVTPKF 01820000 AVTPARM EQU IEDQAVTD+408 01821000 AVTEXS2A EQU IEDQAVTD+402 01822000 AVTEXA2S EQU IEDQAVTD+396 01823000 AVTOCGET EQU IEDQAVTD+392 01824000 AVTCKAVT EQU @NM00004+1 01825000 @NM00005 EQU AVTCKFLG 01826000 AVTCKHLT EQU AVTCKFLG 01827000 AVTCKREQ EQU AVTCKFLG 01828000 AVTCKENV EQU AVTCKFLG 01829000 AVTCKNAC EQU AVTCKFLG 01830000 AVTCKTAC EQU AVTCKFLG 01831000 AVTBUENT EQU IEDQAVTD+386 01832000 @NM00003 EQU IEDQAVTD+385 01833000 AVTFULLT EQU AVTBUFSW 01834000 AVTUNCON EQU AVTBUFSW 01835000 @NM00002 EQU AVTBUFSW 01836000 AVTBUFTR EQU AVTREADD 01837000 AVTREADY EQU IEDQAVTD+376 01838000 AVTRACE EQU IEDQAVTD+372 01839000 AVTTCB EQU IEDQAVTD+368 01840000 AVTPASWD EQU IEDQAVTD+360 01841000 AVTCTLCH EQU IEDQAVTD+352 01842000 AVTDOUBL EQU IEDQAVTD+344 01843000 AVTDOUBX EQU IEDQAVTD+336 01844000 AVTDPARM EQU IEDQAVTD+332 01845000 AVTCSTCS EQU IEDQAVTD+328 01846000 AVTDLQ EQU AVTSAVEX+32 01847000 @NM00001 EQU AVTSAVEX 01848000 AVTSAVE4 EQU IEDQAVTD+216 01849000 AVTSAVE3 EQU IEDQAVTD+144 01850000 AVTSAVE2 EQU IEDQAVTD+72 01851000 AVTSAVE1 EQU IEDQAVTD 01852000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01853000 @RC00379 EQU @RC00374 01854000 @RC00429 EQU @RC00428 01855000 @PB00002 EQU @PB00003 01856000 @RC00528 EQU @EL00003 01857000 @RC00523 EQU @EL00003 01858000 @ENDDATA EQU * 01859000 END IGCFG10D,(C'PLS1540',0701,78164) 01860000