TITLE 'IEDKHISC, TOTE CLEANUP SYNCHRONIZE *00001000 ' 00002000 * /* 00003000 IEDKHISC CSECT , 00004000 IEDKH STM REG01,REG15,0(REG13) SAVE REGS 00005000 LR RBASE,REG15 SET BASE REG 00006000 USING IEDKH,RBASE SET ADDRESSABILITY 00007000 * 00008000 IEDKHISC IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00009000 * RDATA=OPCWORK+400; /* SET THE BASE REGISTER TO BE 00010000 * USED FOR ADDRESSING AUTOMATIC 00011000 * DATA WITH THE POINTER TO THE 00012000 * OPERATOR CONTROL RESIDENT WORK 00013000 * AREA +400 */ 00014000 LA RDATA,400 02S0327 00015000 AL RDATA,OPCWORK(,ROPCAVT) 02S0327 00016000 * GEN REFS(RDATA) NOSETS; 02S0328 00017000 * /* 00018000 USING @DATD,RDATA INFORM THE ASSEMBLER OF THE 00019000 * BASE REGISTER TO BE USED FOR 00020000 * ADDRESSING AUTOMATIC DATA 00021000 * REG13SAV=REG13; /* SAVE CALLER'S SAVE AREA ADDR */ 00022000 LR REG13SAV,REG13 02S0329 00023000 * REG13=ADDR(REGSAV); /* SET NEW SAVE AREA ADDR */ 00024000 LA REG13,REGSAV 02S0330 00025000 * WTGSAV=RPARM; /* SAVE THE WTG ID */ 00026000 STCM RPARM,3,WTGSAV 02S0331 00027000 * FOUND=OFF; /* INITIALIZE FLAGS AND SWITCHES */ 00028000 NI FOUND,B'01111111' 02S0332 00029000 * DONE=OFF; 02S0333 00030000 NI DONE,B'01111111' 02S0333 00031000 * LOOPSW=OFF; 02S0334 00032000 NI LOOPSW,B'01111111' 02S0334 00033000 * 02S0335 00034000 * /*****************************************************************/ 00035000 * /* */ 00036000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00037000 * /* PERFORM THE FUNCTION OF THE MODULE. */ 00038000 * /* */ 00039000 * /*****************************************************************/ 00040000 * 02S0335 00041000 * LVLTTCIN=OCTRMTBL; /* SET UP HIGHER LEVEL TTCIN */ 00042000 LH @11,OCTRMTBL(,ROPCE) 02S0335 00043000 N @11,@CF01385 02S0335 00044000 LR LVLTTCIN,@11 02S0335 00045000 * RPARM=OCTRMTBL; /* GET TTCIN OF RESOURCE */ 00046000 LR RPARM,@11 02S0336 00047000 * CALL IEDQTNT; /* GET TTE ADDR */ 00048000 L @15,AVTRNMPT(,RAVT) 02S0337 00049000 BALR @14,@15 02S0337 00050000 * RTRM=RPARM; /* SET BASE */ 00051000 LR RTRM,RPARM 02S0338 00052000 * NXTTCIN=TRMSUBST; /* SET UP NEXT */ 00053000 LR @11,RTRM 02S0339 00054000 SL @11,@CF01383 02S0339 00055000 LH NXTTCIN,TRMSUBST(,@11) 02S0339 00056000 N NXTTCIN,@CF01385 02S0339 00057000 * IF TRMSTOTE=ON THEN /* IF TOTE OWNED THEN DONE */ 00058000 TM TRMSTOTE(@11),B'00000001' 02S0340 00059000 BNO @RF00340 02S0340 00060000 * DO; 02S0341 00061000 * FOUND=ON; /* SET FOUND FLAG */ 00062000 OI FOUND,B'10000000' 02S0342 00063000 * DONE=ON; /* SET DONE FLAG */ 00064000 OI DONE,B'10000000' 02S0343 00065000 * NXTTCIN=OCTRMTBL; /* NEXT = RSRCE IN OPCE @YM08158*/ 00066000 LH NXTTCIN,OCTRMTBL(,ROPCE) 02S0344 00067000 N NXTTCIN,@CF01385 02S0344 00068000 * END; 02S0345 00069000 * ELSE 02S0346 00070000 * ; 02S0346 00071000 @RF00340 DS 0H 02S0347 00072000 * IF TRMSUBST=0 THEN /* IF NO SUBORDINATE RESOURCES 00073000 * THEN DONE */ 00074000 LR @11,RTRM 02S0347 00075000 BCTR @11,0 02S0347 00076000 BCTR @11,0 02S0347 00077000 LH @11,TRMSUBST-12(,@11) 02S0347 00078000 N @11,@CF01385 02S0347 00079000 LTR @11,@11 02S0347 00080000 BNZ @RF00347 02S0347 00081000 * DONE=ON; 02S0348 00082000 OI DONE,B'10000000' 02S0348 00083000 * ELSE 02S0349 00084000 * ; 02S0349 00085000 @RF00347 DS 0H 02S0350 00086000 * DO WHILE DONE=OFF; /* LOOP TILL DONE FLAG ON */ 00087000 B @DE00350 02S0350 00088000 @DL00350 DS 0H 02S0351 00089000 * LOOPSW=OFF; /* TURN OFF LOOP FLAG */ 00090000 NI LOOPSW,B'01111111' 02S0351 00091000 * RPARM=NXTTCIN; /* SET FOR CALL */ 00092000 LR RPARM,NXTTCIN 02S0352 00093000 * CALL IEDQTNT; /* GET ADDR OF NEXT */ 00094000 L @15,AVTRNMPT(,RAVT) 02S0353 00095000 BALR @14,@15 02S0353 00096000 * RTRM=RPARM; /* SET BASE */ 00097000 LR RTRM,RPARM 02S0354 00098000 * IF TRMSTOTE=OFF THEN /* IF TOTE DOESN'T OWN */ 00099000 LR @11,RTRM 02S0355 00100000 SL @11,@CF01383 02S0355 00101000 TM TRMSTOTE(@11),B'00000001' 02S0355 00102000 BNZ @RF00355 02S0355 00103000 * IF TRMSUBST=0 THEN /* AND NO SUBORDINATE RESOURCES */ 00104000 LH @09,TRMSUBST(,@11) 02S0356 00105000 N @09,@CF01385 02S0356 00106000 LTR @09,@09 02S0356 00107000 BNZ @RF00356 02S0356 00108000 * NXTTCIN=TRMCOHRT; /* THEN SET NEXT =COHORT */ 00109000 LH NXTTCIN,TRMCOHRT(,@11) 02S0357 00110000 N NXTTCIN,@CF01385 02S0357 00111000 * ELSE /* ELSE GO DOWN HIERARCHY */ 00112000 * DO; 02S0358 00113000 B @RC00356 02S0358 00114000 @RF00356 DS 0H 02S0359 00115000 * LVLTTCIN=NXTTCIN; /* SET LVL=NEXT */ 00116000 LR LVLTTCIN,NXTTCIN 02S0359 00117000 * NXTTCIN=TRMSUBST; /* AND NEXT=SUBSTRUCT */ 00118000 LR @11,RTRM 02S0360 00119000 BCTR @11,0 02S0360 00120000 BCTR @11,0 02S0360 00121000 LH NXTTCIN,TRMSUBST-12(,@11) 02S0360 00122000 N NXTTCIN,@CF01385 02S0360 00123000 * END; 02S0361 00124000 * ELSE /* ELSE IF TOTE OWNS THEN SET 00125000 * DONE AND FOUND AND LOOP */ 00126000 * DO; /* AND EXIT HIERARCHY LOOP */ 00127000 B @RC00355 02S0362 00128000 @RF00355 DS 0H 02S0363 00129000 * FOUND=ON; 02S0363 00130000 OI FOUND,B'10000000' 02S0363 00131000 * DONE=ON; 02S0364 00132000 OI DONE,B'10000000' 02S0364 00133000 * LOOPSW=ON; 02S0365 00134000 OI LOOPSW,B'10000000' 02S0365 00135000 * END; 02S0366 00136000 * DO WHILE LOOPSW=OFF; /* LOOP TILL LOOPSW ON */ 00137000 @RC00355 B @DE00367 02S0367 00138000 @DL00367 DS 0H 02S0368 00139000 * IF NXTTCIN=LVLTTCIN THEN /* IF BACK TO HIGHER LEVEL */ 00140000 CLR NXTTCIN,LVLTTCIN 02S0368 00141000 BNE @RF00368 02S0368 00142000 * IF NXTTCIN=OCTRMTBL THEN /* AND IS ORIGINAL RESOURCE */ 00143000 LH @11,OCTRMTBL(,ROPCE) 02S0369 00144000 N @11,@CF01385 02S0369 00145000 CLR NXTTCIN,@11 02S0369 00146000 BNE @RF00369 02S0369 00147000 * DO; 02S0370 00148000 * DONE=ON; /* SET DONE AND LOOPSW AND GET 00149000 * OUT */ 00150000 OI DONE,B'10000000' 02S0371 00151000 * LOOPSW=ON; 02S0372 00152000 OI LOOPSW,B'10000000' 02S0372 00153000 * END; 02S0373 00154000 * ELSE /* ELSE FIND HIGHER LEVEL 02S0374 00155000 * RESOURCE TO COMPARE AGAINST */ 00156000 * DO; 02S0374 00157000 B @RC00369 02S0374 00158000 @RF00369 DS 0H 02S0375 00159000 * RPARM=NXTTCIN; /* SET FOR CALL */ 00160000 LR RPARM,NXTTCIN 02S0375 00161000 * CALL IEDQTNT; /* GET ADDR */ 00162000 L @15,AVTRNMPT(,RAVT) 02S0376 00163000 BALR @14,@15 02S0376 00164000 * RTRM=RPARM; /* SET BASE */ 00165000 LR RTRM,RPARM 02S0377 00166000 * NXTTCIN=TRMCOHRT; /* SET NXT */ 00167000 LR @11,RTRM 02S0378 00168000 AL @11,@CF01387 02S0378 00169000 LH NXTTCIN,TRMCOHRT-4(,@11) 02S0378 00170000 N NXTTCIN,@CF01385 02S0378 00171000 * RPARM=RTRM; /* SET FOR CALL */ 00172000 LR RPARM,RTRM 02S0379 00173000 * CALL COHORTLK; /* GET HIGHER RESOURCE */ 00174000 L @15,OPCHORT(,ROPCAVT) 02S0380 00175000 BALR @14,@15 02S0380 00176000 * LVLTTCIN=REG00; /* SET LEVEL */ 00177000 LR LVLTTCIN,REG00 02S0381 00178000 * END; 02S0382 00179000 * ELSE 02S0383 00180000 * LOOPSW=ON; /* ELSE NOT TO HIGHER LEVEL SO 00181000 * EXIT LOOP */ 00182000 B @RC00368 02S0383 00183000 @RF00368 OI LOOPSW,B'10000000' 02S0383 00184000 * END; 02S0384 00185000 @RC00368 DS 0H 02S0384 00186000 @DE00367 TM LOOPSW,B'10000000' 02S0384 00187000 BZ @DL00367 02S0384 00188000 * END; 02S0385 00189000 @DE00350 TM DONE,B'10000000' 02S0385 00190000 BZ @DL00350 02S0385 00191000 * IF FOUND=ON THEN /* IF FOUND TOTE OWNED RESOURCE 00192000 * THEN */ 00193000 TM FOUND,B'10000000' 02S0386 00194000 BNO @RF00386 02S0386 00195000 * DO; /* INITITATE CLEANUP */ 00196000 * RPARM=1; /* REQUEST ONE BUFFER UNIT */ 00197000 LA RPARM,1 02S0388 00198000 * CALL ALLOCBUF; /* AND GET IT */ 00199000 L @15,OPCGETBF(,ROPCAVT) 02S0389 00200000 BALR @14,@15 02S0389 00201000 * RFY 02S0390 00202000 * IEDREQD BASED(RPARM); /* SET BASE FOR REQUEST ELEMENT */ 00203000 * REQTYPE=REQTOTCL; /* IDENTIFY AS TOTE CLEANUP 02S0391 00204000 * REQUEST */ 00205000 MVI REQTYPE(RPARM),X'FE' 02S0391 00206000 * REQQCBA=ADDR(AVTOLTQB); /* SET FOR POST TO TOTE */ 00207000 LA @11,AVTOLTQB(,RAVT) 02S0392 00208000 STCM @11,7,REQQCBA(RPARM) 02S0392 00209000 * REQPRI=PRITOTCL; /* SET PRIORITY FOR TOTE POST */ 00210000 MVI REQPRI(RPARM),X'E8' 02S0393 00211000 * REQRQCBA=ADDR(AVTOPCOB); /* SET UP RETURN QCB */ 00212000 LA @11,AVTOPCOB(,RAVT) 02S0394 00213000 STCM @11,7,REQRQCBA(RPARM) 02S0394 00214000 * REQLINK=0; /* SET LINK =0 */ 00215000 SLR @11,@11 02S0395 00216000 STCM @11,7,REQLINK(RPARM) 02S0395 00217000 * RTNWTG=WTGSAV; /* SAVE REQUESTING MODULE'S ID */ 00218000 MVC RTNWTG(2,RPARM),WTGSAV 02S0396 00219000 * REQRPRI=PRIMEDFG; /* SET RETURN PRIORITY */ 00220000 MVI REQRPRI(RPARM),X'DF' 02S0397 00221000 * REQFLAG=OPRTOTCL; /* SET RETRUN FLAG */ 00222000 MVI REQFLAG(RPARM),X'16' 02S0398 00223000 * TTCINSAV=NXTTCIN; /* SET TTCIN OF RESOURCE @YM08158*/ 00224000 STH NXTTCIN,TTCINSAV(,RPARM) 02S0399 00225000 * OPCEPTR=ROPCE; /* SAVE OPCE PTR */ 00226000 ST ROPCE,OPCEPTR(,RPARM) 02S0400 00227000 * OPCAQFST=RPARM; /* SET PTR TO ELEMENT */ 00228000 STCM RPARM,7,OPCAQFST(ROPCAVT) 02S0401 00229000 * OPCAQSEC=RPARM; 02S0402 00230000 STCM RPARM,7,OPCAQSEC(ROPCAVT) 02S0402 00231000 * OPCAQREQ=POST; /* SET REQUEST TYPE */ 00232000 MVI OPCAQREQ(ROPCAVT),X'0C' 02S0403 00233000 * OPCAQRQ2=EOL; /* SET END OF LIST INDICATOR */ 00234000 MVI OPCAQRQ2(ROPCAVT),X'80' 02S0404 00235000 * RFY 02S0405 00236000 * IEDREQD BASED; 02S0405 00237000 * RPARM=ADDR(OPCAQCTL); /* SET PTR TO LIST */ 00238000 LA RPARM,OPCAQCTL(,ROPCAVT) 02S0406 00239000 * SVC(102); /* POST THE ELEMENT */ 00240000 SVC 102 02S0407 00241000 * REG00=SUSPEND; /* SET RETURN CODE */ 00242000 LA REG00,1 02S0408 00243000 * END; 02S0409 00244000 * ELSE 02S0410 00245000 * REG00=CONTINUE; /* SET RETURN TO TELL TO CONTINUE*/ 00246000 B @RC00386 02S0410 00247000 @RF00386 SLR REG00,REG00 02S0410 00248000 * 02S0411 00249000 * /*****************************************************************/ 00250000 * /* */ 00251000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 00252000 * /* ALTERED BY THE EXTERNAL PROCEDURE STATEMENT. RETURN IS VIA */ 00253000 * /* REG14 TO THE CALLER */ 00254000 * /* */ 00255000 * /*****************************************************************/ 00256000 * 02S0411 00257000 * REG13=REG13SAV; /* RESTORE SAVE AREA PTR */ 00258000 @RC00386 LR REG13,REG13SAV 02S0411 00259000 * LM(REG01,REG15,SAVER); /* RELOAD REGS */ 00260000 LM REG01,REG15,SAVER(REG13) 02S0412 00261000 * RETURN; /* AND RETURN */ 00262000 @EL00001 DS 0H 02S0413 00263000 @EF00001 DS 0H 02S0413 00264000 @ER00001 BR @14 02S0413 00265000 * END IEDKHISC 01S0414 00266000 * 01S0414 00267000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00268000 */*%INCLUDE SYSLIB (TAVTD ) */ 00269000 */*%INCLUDE SYSLIB (TOPCED ) */ 00270000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00271000 */*%INCLUDE SYSLIB (TOPRED ) */ 00272000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00273000 */*%INCLUDE SYSLIB (TREQD ) */ 00274000 */*%INCLUDE SYSLIB (TTNTD ) */ 00275000 */*%INCLUDE SYSLIB (TTRMD ) */ 00276000 */*%INCLUDE SYSUT5 (RFY ) */ 00277000 */*%INCLUDE SYSUT5 (DCL ) */ 00278000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 00279000 */*%INCLUDE SYSUT5 (PROCESS ) */ 00280000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 00281000 * 01S0414 00282000 * ; 01S0414 00283000 @DATA DS 0H 00284000 @DATD DSECT 00285000 DS 0F 00286000 IEDKHISC CSECT 00287000 DS 0F 00288000 @CF01383 DC F'14' 00289000 @CF01387 DC F'-10' 00290000 @CF01385 DC XL4'0000FFFF' 00291000 @DATD DSECT 00292000 DS 0D 00293000 REGSAV DS CL72 00294000 WTGSAV DS CL2 00295000 FOUND DS BL1 00296000 DONE DS BL1 00297000 LOOPSW DS BL1 00298000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00299000 @ENDDATD EQU * 00300000 IEDKHISC CSECT 00301000 DS 0F 00302000 @SIZDATD DC AL1(0) 00303000 DC AL3(@ENDDATD-@DATD) 00304000 DS 0D 00305000 PATCH DC XL104'0' 00306000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00307000 @01 EQU 01 00308000 @02 EQU 02 00309000 @03 EQU 03 00310000 @04 EQU 04 00311000 @05 EQU 05 00312000 @06 EQU 06 00313000 @07 EQU 07 00314000 @08 EQU 08 00315000 @09 EQU 09 00316000 @10 EQU 10 00317000 @11 EQU 11 00318000 @12 EQU 12 00319000 @13 EQU 13 00320000 @14 EQU 14 00321000 @15 EQU 15 00322000 NXTTCIN EQU @05 00323000 LVLTTCIN EQU @06 00324000 REG13SAV EQU @07 00325000 ROPCE EQU @03 00326000 ROPCAVT EQU @02 00327000 RAVT EQU @04 00328000 RTRM EQU @08 00329000 REG00 EQU @00 00330000 REG01 EQU @01 00331000 RPARM EQU @01 00332000 REG10 EQU @10 00333000 RDATA EQU @10 00334000 REG12 EQU @12 00335000 RBASE EQU @12 00336000 REG13 EQU @13 00337000 RSAVE EQU @13 00338000 REG15 EQU @15 00339000 REG02 EQU @02 00340000 REG03 EQU @03 00341000 REG04 EQU @04 00342000 REG05 EQU @05 00343000 REG06 EQU @06 00344000 REG07 EQU @07 00345000 REG08 EQU @08 00346000 REG09 EQU @09 00347000 REG11 EQU @11 00348000 REG14 EQU @14 00349000 IEDQAVTD EQU 0 00350000 AVTSAVEX EQU IEDQAVTD+288 00351000 @NM00003 EQU IEDQAVTD+388 00352000 AVTCKFLG EQU @NM00003 00353000 AVTBASE EQU IEDQAVTD+412 00354000 AVTPKF EQU AVTBASE 00355000 AVTRNMPT EQU IEDQAVTD+424 00356000 AVTOSECB EQU IEDQAVTD+492 00357000 AVTECB1 EQU AVTOSECB 00358000 AVTHG02 EQU IEDQAVTD+528 00359000 AVTDISP EQU IEDQAVTD+552 00360000 AVTHD EQU IEDQAVTD+556 00361000 AVTSCOPT EQU AVTHD 00362000 AVTSAVTP EQU IEDQAVTD+612 00363000 AVTSAVTF EQU AVTSAVTP 00364000 AVTCKPEL EQU IEDQAVTD+652 00365000 AVTCKRMV EQU AVTCKPEL 00366000 AVTCKELF EQU IEDQAVTD+680 00367000 AVTCKBYT EQU IEDQAVTD+691 00368000 AVTHG01 EQU IEDQAVTD+692 00369000 AVTCKLNK EQU IEDQAVTD+696 00370000 AVTCRELE EQU IEDQAVTD+708 00371000 AVTCCELE EQU AVTCRELE 00372000 AVTCLRHI EQU IEDQAVTD+716 00373000 AVTADBUF EQU IEDQAVTD+720 00374000 AVTSYSER EQU IEDQAVTD+728 00375000 AVTCKPQB EQU IEDQAVTD+804 00376000 AVTCKPTB EQU AVTCKPQB 00377000 AVTCKPEC EQU AVTCKPQB+4 00378000 AVTCKPCC EQU AVTCKPEC 00379000 AVTOPCQB EQU IEDQAVTD+816 00380000 AVTOPCOB EQU AVTOPCQB 00381000 AVTOPCEC EQU AVTOPCQB+4 00382000 AVTOPCCC EQU AVTOPCEC 00383000 AVTOLTQB EQU IEDQAVTD+828 00384000 AVTCWFL1 EQU IEDQAVTD+924 00385000 AVTCWFL2 EQU IEDQAVTD+925 00386000 AVTSUBT EQU IEDQAVTD+948 00387000 AVTIOTR EQU IEDQAVTD+949 00388000 AVTBIT1 EQU IEDQAVTD+1050 00389000 AVTBIT2 EQU IEDQAVTD+1051 00390000 AVTBIT3 EQU IEDQAVTD+1052 00391000 AVTBIT4 EQU IEDQAVTD+1136 00392000 @NM00085 EQU IEDQAVTD+1232 00393000 IEDQAPTR EQU 0 00394000 IEDNSVTD EQU 0 00395000 SAVTDIAG EQU IEDNSVTD 00396000 SAVTDIAF EQU SAVTDIAG 00397000 SAVTLUSQ EQU IEDNSVTD+88 00398000 SAVTTCPU EQU IEDNSVTD+238 00399000 SAVTZELM EQU IEDNSVTD+270 00400000 SAVTRDRV EQU IEDNSVTD+284 00401000 SAVTCKQB EQU IEDNSVTD+300 00402000 SAVTCKTB EQU SAVTCKQB 00403000 SAVTCKEC EQU SAVTCKQB+4 00404000 SAVTCKCC EQU SAVTCKEC 00405000 IEDQOPCE EQU 0 00406000 OCELEM EQU IEDQOPCE+4 00407000 OCUNIT EQU IEDQOPCE+8 00408000 OCRUDEST EQU OCUNIT 00409000 OCCKPKEY EQU OCRUDEST 00410000 OCSCAN EQU OCCKPKEY 00411000 OCOPTCDE EQU IEDQOPCE+12 00412000 OCSWITCH EQU IEDQOPCE+13 00413000 OCFLAG EQU IEDQOPCE+14 00414000 @NM00108 EQU IEDQOPCE+16 00415000 OCDEST EQU @NM00108 00416000 OCREQVAL EQU OCDEST+1 00417000 OCTRMTBL EQU IEDQOPCE+20 00418000 OCLINENO EQU IEDQOPCE+22 00419000 OCTIOT EQU OCLINENO 00420000 OCTRUNIT EQU IEDQOPCE+24 00421000 OCRSID EQU OCTRUNIT 00422000 OCALSTAT EQU OCRSID 00423000 OCPARM EQU IEDQOPCE+28 00424000 OCBACKUP EQU IEDQOPCE+32 00425000 OCMODNME EQU IEDQOPCE+40 00426000 OCIPLWA EQU OCMODNME 00427000 OCCKDATA EQU IEDQOPCE+48 00428000 OCRSTGTM EQU OCCKDATA 00429000 IEDQOPCN EQU 0 00430000 OCLDNME EQU IEDQOPCN 00431000 OCLINTTE EQU OCLDNME 00432000 OCREQFLG EQU OCLINTTE+2 00433000 OCPREFLG EQU OCLINTTE+3 00434000 IEDQOPCD EQU 0 00435000 OPCWORK EQU IEDQOPCD+140 00436000 OPCAQCTL EQU IEDQOPCD+180 00437000 OPCLDNME EQU IEDQOPCD+212 00438000 OPCHORT EQU IEDQOPCD+256 00439000 OPCGETBF EQU IEDQOPCD+276 00440000 OPCSPEC EQU IEDQOPCD+300 00441000 OPCPWCOB EQU IEDQOPCD+368 00442000 OPCPWQCB EQU OPCPWCOB 00443000 OPCPWECB EQU OPCPWCOB+4 00444000 IEDOPRED EQU 0 00445000 OPRESAVE EQU IEDOPRED+8 00446000 OPREFLG3 EQU IEDOPRED+14 00447000 IEDREQD EQU 0 00448000 REQTYPE EQU IEDREQD 00449000 REQQCBA EQU IEDREQD+1 00450000 REQPRI EQU IEDREQD+4 00451000 REQLINK EQU IEDREQD+5 00452000 REQRPRI EQU IEDREQD+8 00453000 REQRQCBA EQU IEDREQD+9 00454000 REQROUTE EQU IEDREQD+12 00455000 REQFLAG EQU REQROUTE 00456000 REQRCDS EQU IEDREQD+14 00457000 REQDATA EQU IEDREQD+16 00458000 IEDQTNTD EQU 0 00459000 IEDQTCDE EQU IEDQTNTD 00460000 IEDQTDCE EQU IEDQTNTD+46 00461000 IEDTNTA EQU 0 00462000 IEDQTRM EQU 0 00463000 TRMSTATE EQU IEDQTRM 00464000 TRMLOG EQU TRMSTATE 00465000 TRMINSEQ EQU IEDQTRM+4 00466000 TLISTCNT EQU TRMINSEQ 00467000 TRMOUTSQ EQU IEDQTRM+6 00468000 TLISTEN EQU TRMOUTSQ 00469000 TRMDSORG EQU TLISTEN 00470000 TRMALTD EQU IEDQTRM+8 00471000 TRMDEVFL EQU IEDQTRM+10 00472000 TRMSTAT EQU IEDQTRM+12 00473000 IEDQTPTR EQU 0 00474000 IEDNTRM EQU 0 00475000 TRMBYTE4 EQU IEDNTRM 00476000 TRMBYTE3 EQU IEDNTRM+1 00477000 TRMBYTE2 EQU IEDNTRM+2 00478000 TRMINPG EQU TRMBYTE2 00479000 TRMBYTE1 EQU IEDNTRM+3 00480000 TRMSCPRQ EQU TRMBYTE1 00481000 TRMSTOTE EQU TRMBYTE1 00482000 TRMCOHRT EQU IEDNTRM+4 00483000 TRMBYTE0 EQU IEDNTRM+6 00484000 TRMSIBPT EQU IEDNTRM+7 00485000 TRMSUBST EQU IEDNTRM+12 00486000 ALLOCBUF EQU 0 00487000 COHORTLK EQU 0 00488000 IEDQTNT EQU 0 00489000 SAVER EQU 0 00490000 TNTCODE EQU 0 00491000 TNTDCODE EQU 0 00492000 TNTFIRST EQU 0 00493000 OCCKPKY1 EQU OCCKPKEY 00494000 OCCKPTYP EQU OCCKPKY1 00495000 OCICACTN EQU OCMODNME 00496000 OCICDADR EQU OCICACTN 00497000 OCICSW EQU OCICDADR+3 00498000 OPCAQWD EQU OPCAQCTL 00499000 OPCAQWD1 EQU OPCAQWD 00500000 OPCAQREQ EQU OPCAQWD1 00501000 OPCAQFST EQU OPCAQWD1+1 00502000 OPCAQWD2 EQU OPCAQWD+4 00503000 OPCAQRQ2 EQU OPCAQWD2 00504000 OPCAQSEC EQU OPCAQWD2+1 00505000 OPCAQWD3 EQU OPCAQWD+8 00506000 REQLDATA EQU REQDATA 00507000 REQSDATA EQU REQDATA 00508000 IEDQNPTR EQU AVTRNMPT 00509000 TRMPRE1 EQU TRMBYTE4 00510000 TRMNCP1 EQU TRMBYTE4 00511000 TRMPRE EQU TRMBYTE3 00512000 TRMNCP EQU TRMBYTE3 00513000 TRMPU EQU TRMBYTE3 00514000 TRMLU EQU TRMBYTE3 00515000 TRMLINK EQU TRMBYTE3 00516000 SAVAREA EQU REQDATA 00517000 TTCINSAV EQU SAVAREA 00518000 RTNWTG EQU SAVAREA+2 00519000 OPCEPTR EQU SAVAREA+4 00520000 OCCIB EQU OCREQVAL 00521000 TRMOPT EQU IEDQTRM+20 00522000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00523000 @NM00140 EQU TRMLINK 00524000 TRMLSTAT EQU TRMLINK 00525000 TRMLINT EQU TRMLINK 00526000 TRMEPMOD EQU TRMLINK 00527000 TRMLULOG EQU TRMLU 00528000 TRMINERR EQU TRMLU 00529000 TRMLUREQ EQU TRMLU 00530000 TRMSESRQ EQU TRMLU 00531000 TRMTDIFF EQU TRMLU 00532000 TRMLUTM EQU TRMLU 00533000 TRMLUIT EQU TRMLU 00534000 TRMAUTO EQU TRMLU 00535000 TRMPCONT EQU TRMPU 00536000 @NM00139 EQU TRMPU 00537000 TRMNCONT EQU TRMNCP 00538000 TRMQUCKN EQU TRMNCP 00539000 TRMSLOWN EQU TRMNCP 00540000 TRMSYGEN EQU TRMNCP 00541000 TRMNCPCL EQU TRMNCP 00542000 TRMIPLDM EQU TRMNCP 00543000 TRMINOUT EQU TRMPRE 00544000 TRMRDOUT EQU TRMPRE 00545000 TRMNLOUT EQU TRMPRE 00546000 TRMWROUT EQU TRMPRE 00547000 TRMASNXI EQU TRMPRE 00548000 TRMSTMM EQU TRMPRE 00549000 TRMCMODE EQU TRMPRE 00550000 TRMSTPND EQU TRMPRE 00551000 @NM00138 EQU TRMNCP1 00552000 TRMINOP EQU TRMNCP1 00553000 TRMLYNCH EQU TRMPRE1 00554000 TRMSPOUT EQU TRMPRE1 00555000 TRMERLCK EQU TRMPRE1 00556000 TRMQNPL EQU TRMPRE1 00557000 TRMSPACT EQU TRMPRE1 00558000 TRMOCNI EQU TRMPRE1 00559000 TRMSESSN EQU TRMPRE1 00560000 TRMCONT EQU TRMPRE1 00561000 REQSTNT EQU REQSDATA+4 00562000 REQSTTE EQU REQSDATA 00563000 REQLTNT EQU REQLDATA 00564000 OPCAQLST EQU OPCAQWD3+1 00565000 OPCAQRQ3 EQU OPCAQWD3 00566000 OCICINAC EQU OCICSW 00567000 @NM00114 EQU OCICSW 00568000 OCICATST EQU OCICDADR+1 00569000 OCICTYPE EQU OCICDADR 00570000 @NM00113 EQU OCCKPKY1 00571000 OCCKPENV EQU OCCKPKY1 00572000 OCCKPRST EQU OCCKPTYP 00573000 OCCKPNCP EQU OCCKPTYP 00574000 OCCKPINC EQU OCCKPTYP 00575000 TRMTYPE EQU IEDNTRM+11 00576000 TRMRLMCT EQU IEDNTRM+10 00577000 TRMCOHTG EQU TRMSIBPT+1 00578000 TRMGPCNT EQU TRMSIBPT 00579000 TRMBUFRD EQU TRMBYTE0 00580000 TRMSNA EQU TRMBYTE0 00581000 TRMGP EQU TRMBYTE0 00582000 TRMDIAL EQU TRMBYTE0 00583000 @NM00137 EQU TRMBYTE0 00584000 TRMOUTPT EQU TRMBYTE0 00585000 TRMINPUT EQU TRMBYTE0 00586000 TRMUDEF EQU TRMBYTE0 00587000 TRMCKPRN EQU TRMBYTE1 00588000 TRMTSATN EQU TRMBYTE1 00589000 TRMTRACE EQU TRMBYTE1 00590000 TRMSWBCK EQU TRMBYTE1 00591000 TRMAUTOC EQU TRMBYTE1 00592000 TRMINPTP EQU TRMBYTE1 00593000 TRMWTNEG EQU TRMSCPRQ 00594000 TRMWRBRK EQU TRMBYTE2 00595000 TRMNOSND EQU TRMBYTE2 00596000 TRMPREP EQU TRMBYTE2 00597000 TRMGPACT EQU TRMBYTE2 00598000 TRMANDL EQU TRMBYTE2 00599000 TRMCLOSN EQU TRMINPG 00600000 TRMREMB EQU TRMBYTE2 00601000 TRMRSACT EQU TRMBYTE2 00602000 TRMOPTBL EQU IEDQTRM+18 00603000 TRMOPNO EQU IEDQTRM+17 00604000 TRMCHCIN EQU IEDQTRM+16 00605000 TRMSENSE EQU TRMSTAT+3 00606000 TRMTEMPR EQU TRMSTAT+2 00607000 TRMSIO EQU TRMSTAT 00608000 @NM00136 EQU TRMDEVFL+1 00609000 TRMTPIN EQU TRMDEVFL+1 00610000 TRMNCPI EQU TRMDEVFL+1 00611000 TRMRNTRM EQU TRMDEVFL+1 00612000 @NM00135 EQU TRMDEVFL+1 00613000 TRMLMD EQU TRMDEVFL+1 00614000 TRMCONC EQU TRMDEVFL+1 00615000 TRMTSOB EQU TRMDEVFL 00616000 TRMBFDY EQU TRMDEVFL 00617000 TRMTBLK EQU TRMDEVFL 00618000 TRMSBLK EQU TRMDEVFL 00619000 TRMBLKS EQU TRMDEVFL 00620000 TRMADDC EQU TRMDEVFL 00621000 TRMDDIG EQU TRMDEVFL 00622000 TRMBUFS EQU TRMDEVFL 00623000 TRMPRILK EQU TRMALTD 00624000 TRMLGB EQU TRMDSORG 00625000 TRMUTERM EQU TLISTCNT 00626000 TRMDESTQ EQU IEDQTRM+1 00627000 TRMSCNYN EQU TRMSTATE 00628000 TRMOPTFN EQU TRMSTATE 00629000 TRMHELDN EQU TRMSTATE 00630000 TRMACPTN EQU TRMSTATE 00631000 TRMPREF EQU TRMSTATE 00632000 TRMPROC EQU TRMLOG 00633000 TRMLIST EQU TRMLOG 00634000 TRMLINE EQU TRMSTATE 00635000 TNTTRMAD EQU IEDTNTA 00636000 TNTLEN EQU IEDQTNTD+44 00637000 TNTMIDEN EQU IEDQTNTD+41 00638000 TNTENLEN EQU IEDQTNTD+40 00639000 TNTSRCHX EQU IEDQTNTD+38 00640000 REQRCD2 EQU REQRCDS+1 00641000 REQRCD1 EQU REQRCDS 00642000 REQSWTCH EQU REQROUTE+1 00643000 @NM00134 EQU OPREFLG3 00644000 OPREATCH EQU OPREFLG3 00645000 @NM00133 EQU OPREFLG3 00646000 OPREFLG2 EQU IEDOPRED+13 00647000 OPREFLG1 EQU IEDOPRED+12 00648000 OPRETIC EQU OPRESAVE 00649000 OPRELINK EQU IEDOPRED+5 00650000 OPREPRI EQU IEDOPRED+4 00651000 OPREQCB EQU IEDOPRED+1 00652000 OPREKEY EQU IEDOPRED 00653000 OPCBOTTM EQU IEDQOPCD+1184 00654000 @NM00132 EQU IEDQOPCD+1100 00655000 @NM00131 EQU IEDQOPCD+948 00656000 @NM00130 EQU IEDQOPCD+940 00657000 @NM00129 EQU IEDQOPCD+380 00658000 @NM00128 EQU OPCPWCOB+9 00659000 @NM00127 EQU OPCPWCOB+8 00660000 @NM00126 EQU OPCPWECB+1 00661000 OPCPWCCC EQU OPCPWECB 00662000 OPCPWCHN EQU OPCPWQCB+1 00663000 OPCPWVTO EQU OPCPWQCB 00664000 OPCWAITV EQU IEDQOPCD+364 00665000 OPCTOTCK EQU IEDQOPCD+360 00666000 OPCAPXTL EQU IEDQOPCD+356 00667000 OPCDECR EQU IEDQOPCD+352 00668000 OPCBUFWT EQU IEDQOPCD+348 00669000 OPCWRKSP EQU IEDQOPCD+320 00670000 OPCADGOT EQU IEDQOPCD+318 00671000 OPCRQCNT EQU IEDQOPCD+316 00672000 OPPOLSTP EQU IEDQOPCD+312 00673000 OPCCKCIB EQU IEDQOPCD+308 00674000 OPCEND EQU IEDQOPCD+307 00675000 OPCSTCBS EQU IEDQOPCD+306 00676000 OPCHNEND EQU IEDQOPCD+302 00677000 OPCOQSW EQU IEDQOPCD+301 00678000 @NM00125 EQU OPCSPEC 00679000 @NM00124 EQU OPCSPEC 00680000 @NM00123 EQU OPCSPEC 00681000 @NM00122 EQU OPCSPEC 00682000 OPCFRMCA EQU OPCSPEC 00683000 OPCRSTRT EQU OPCSPEC 00684000 OPCPART EQU OPCSPEC 00685000 OPCALTD EQU OPCSPEC 00686000 OPCBFEND EQU IEDQOPCD+296 00687000 OPCBFIRS EQU IEDQOPCD+292 00688000 OPCAVBUF EQU IEDQOPCD+290 00689000 OPCIPLCT EQU IEDQOPCD+289 00690000 OPCCLNTS EQU IEDQOPCD+288 00691000 OPCHA8 EQU IEDQOPCD+286 00692000 OPCBFREQ EQU IEDQOPCD+284 00693000 OPCFREBF EQU IEDQOPCD+280 00694000 OPCNEXT EQU IEDQOPCD+272 00695000 OPCFMDFC EQU IEDQOPCD+268 00696000 OPCSCNC EQU IEDQOPCD+264 00697000 OPCHORTG EQU IEDQOPCD+260 00698000 OPCCKPTL EQU IEDQOPCD+252 00699000 OPCCKPTF EQU IEDQOPCD+248 00700000 OPCWAITA EQU IEDQOPCD+244 00701000 OPCWAITR EQU IEDQOPCD+240 00702000 OPCWAITP EQU IEDQOPCD+236 00703000 OPCWAITO EQU IEDQOPCD+232 00704000 OPCWAITN EQU IEDQOPCD+228 00705000 OPCWAITL EQU IEDQOPCD+224 00706000 OPCWAITC EQU IEDQOPCD+220 00707000 @NM00121 EQU OPCLDNME+5 00708000 OPCMODID EQU OPCLDNME+3 00709000 @NM00120 EQU OPCLDNME 00710000 OPCXCTL EQU IEDQOPCD+204 00711000 OPCWAIT EQU IEDQOPCD+192 00712000 OPCCKERB EQU IEDQOPCD+164 00713000 OPCBFERB EQU IEDQOPCD+148 00714000 OPCFLAG2 EQU IEDQOPCD+147 00715000 OPCFLAG1 EQU IEDQOPCD+146 00716000 OPCWRKSZ EQU IEDQOPCD+144 00717000 OPCRSAVE EQU IEDQOPCD+132 00718000 OPCQCBAD EQU IEDQOPCD+128 00719000 OPCSAVE EQU IEDQOPCD+56 00720000 OPCTRMWA EQU IEDQOPCD+52 00721000 OPCPSTWT EQU IEDQOPCD+48 00722000 OPCTNTEA EQU IEDQOPCD+44 00723000 OPCPGCK EQU IEDQOPCD+40 00724000 OPCLCB EQU IEDQOPCD+36 00725000 @NM00119 EQU IEDQOPCD+32 00726000 OPCIPLAD EQU IEDQOPCD+28 00727000 OPCTOFLK EQU IEDQOPCD+24 00728000 OPCOPTLK EQU IEDQOPCD+20 00729000 OPCDCBLK EQU IEDQOPCD+16 00730000 OPCCOPCE EQU IEDQOPCD+12 00731000 OPCAVTPT EQU IEDQOPCD+8 00732000 OPCDOUBL EQU IEDQOPCD 00733000 @NM00118 EQU OCLDNME+4 00734000 @NM00117 EQU OCPREFLG 00735000 OCTOTEP EQU OCPREFLG 00736000 OCREPOST EQU OCPREFLG 00737000 OCRSPSNT EQU OCPREFLG 00738000 OCBFREQ EQU OCPREFLG 00739000 OCIDLE EQU OCREQFLG 00740000 OCFORCE EQU OCREQFLG 00741000 OCDCARD EQU OCREQFLG 00742000 OCPARTAL EQU OCREQFLG 00743000 OCADNCP EQU OCREQFLG 00744000 @NM00116 EQU OCREQFLG 00745000 @NM00115 EQU OCREQFLG 00746000 OCFLUSHZ EQU OCREQFLG 00747000 OCRESPCT EQU OCLINTTE 00748000 OCCKPTWA EQU OCCKDATA+4 00749000 @NM00112 EQU OCRSTGTM+2 00750000 OCCKDAT2 EQU OCRSTGTM+1 00751000 OCCKDAT1 EQU OCRSTGTM 00752000 OCPTRSAV EQU OCMODNME+4 00753000 OCPUADR EQU OCIPLWA+2 00754000 OCWTGSAV EQU OCIPLWA 00755000 OCDVRDCT EQU OCBACKUP+6 00756000 OCNCP EQU OCBACKUP+4 00757000 OCBUFGOT EQU OCBACKUP+2 00758000 OCBUFNED EQU OCBACKUP 00759000 OCWTG EQU IEDQOPCE+30 00760000 OCRESNUM EQU OCPARM 00761000 OCSEQ EQU OCTRUNIT+2 00762000 @NM00111 EQU OCRSID+1 00763000 OCNONE EQU OCALSTAT 00764000 OCSOME EQU OCALSTAT 00765000 OCALLFLG EQU OCALSTAT 00766000 OCACTREQ EQU OCALSTAT 00767000 OCREDRVE EQU OCALSTAT 00768000 OCSEQIND EQU OCALSTAT 00769000 @NM00110 EQU OCALSTAT 00770000 OCRENTRD EQU OCALSTAT 00771000 OCWTGB EQU OCTIOT 00772000 @NM00109 EQU @NM00108+2 00773000 OCCONID EQU OCDEST 00774000 OCRLN EQU IEDQOPCE+15 00775000 OCRESP EQU OCFLAG 00776000 OCATTACH EQU OCFLAG 00777000 OCSSCP EQU OCFLAG 00778000 OCOUTPUT EQU OCFLAG 00779000 OCLINE EQU OCFLAG 00780000 OCMPP EQU OCFLAG 00781000 OCTOTE EQU OCFLAG 00782000 OCCONSOL EQU OCFLAG 00783000 @NM00107 EQU OCSWITCH 00784000 OCQUCKN EQU OCSWITCH 00785000 OCPRIFLG EQU OCOPTCDE 00786000 @NM00106 EQU OCRUDEST+1 00787000 @NM00105 EQU OCSCAN 00788000 OCNOTUCB EQU OCSCAN 00789000 OCNONAME EQU OCSCAN 00790000 OCALLRLN EQU OCSCAN 00791000 OCDDNAME EQU OCSCAN 00792000 OCDDNRLN EQU OCSCAN 00793000 OCADDR EQU OCSCAN 00794000 OCELMPTR EQU OCELEM+1 00795000 OCELMPRI EQU OCELEM 00796000 OCLINK EQU IEDQOPCE 00797000 SAVTBITN EQU IEDNSVTD+312 00798000 @NM00104 EQU SAVTCKQB+8 00799000 @NM00103 EQU SAVTCKEC+1 00800000 @NM00102 EQU SAVTCKCC 00801000 SAVTCKPO EQU SAVTCKCC 00802000 SAVTCKWA EQU SAVTCKCC 00803000 SAVTCKCH EQU SAVTCKTB+1 00804000 SAVTCKVT EQU SAVTCKTB 00805000 @NM00101 EQU IEDNSVTD+297 00806000 SAVTRDFG EQU SAVTRDRV+12 00807000 @NM00100 EQU SAVTRDRV+5 00808000 SAVTRDPY EQU SAVTRDRV+4 00809000 SAVTRDQB EQU SAVTRDRV+1 00810000 SAVTRDKY EQU SAVTRDRV 00811000 SAVTNID EQU IEDNSVTD+280 00812000 SAVTDVAS EQU IEDNSVTD+276 00813000 SAVTPLSZ EQU IEDNSVTD+274 00814000 @NM00099 EQU IEDNSVTD+273 00815000 SAVTSUBL EQU IEDNSVTD+272 00816000 @NM00098 EQU SAVTZELM+1 00817000 SAVTSUBM EQU SAVTZELM 00818000 SAVTMHDX EQU IEDNSVTD+268 00819000 SAVTNAT1 EQU IEDNSVTD+266 00820000 SAVTSH20 EQU IEDNSVTD+264 00821000 SAVTLCBS EQU IEDNSVTD+260 00822000 SAVTRNMP EQU IEDNSVTD+256 00823000 SAVTTNTX EQU IEDNSVTD+252 00824000 SAVTNAX EQU IEDNSVTD+248 00825000 SAVTSUBV EQU IEDNSVTD+247 00826000 SAVTSUBA EQU IEDNSVTD+246 00827000 SAVTSIBC EQU IEDNSVTD+244 00828000 SAVTBSM EQU IEDNSVTD+240 00829000 SAVTSCPT EQU SAVTTCPU 00830000 SAVTRQTG EQU IEDNSVTD+236 00831000 SAVTRQCH EQU IEDNSVTD+232 00832000 SAVTMAND EQU IEDNSVTD+228 00833000 SAVTSPLN EQU IEDNSVTD+224 00834000 SAVTNADL EQU IEDNSVTD+222 00835000 SAVTNATL EQU IEDNSVTD+220 00836000 SAVTMHTB EQU IEDNSVTD+216 00837000 SAVTSSMH EQU IEDNSVTD+212 00838000 SAVTQRS EQU IEDNSVTD+208 00839000 SAVTRQIN EQU IEDNSVTD+204 00840000 SAVTDFCO EQU IEDNSVTD+200 00841000 SAVTSAO EQU IEDNSVTD+196 00842000 SAVTSARI EQU IEDNSVTD+192 00843000 SAVTSAC EQU IEDNSVTD+188 00844000 SAVTSAI EQU IEDNSVTD+184 00845000 SAVTCSCI EQU IEDNSVTD+180 00846000 SAVTSSRP EQU IEDNSVTD+176 00847000 SAVTSSRQ EQU IEDNSVTD+172 00848000 SAVTSCLU EQU IEDNSVTD+168 00849000 SAVTXTRQ EQU IEDNSVTD+164 00850000 SAVTMVBF EQU IEDNSVTD+160 00851000 @NM00097 EQU IEDNSVTD+148 00852000 SAVTIPCQ EQU IEDNSVTD+144 00853000 @NM00096 EQU IEDNSVTD+136 00854000 SAVTXFMI EQU IEDNSVTD+132 00855000 @NM00095 EQU IEDNSVTD+124 00856000 SAVTXFMO EQU IEDNSVTD+120 00857000 @NM00094 EQU IEDNSVTD+116 00858000 SAVTSSSR EQU IEDNSVTD+112 00859000 SAVTSCPQ EQU IEDNSVTD+108 00860000 SAVTSLCB EQU IEDNSVTD+104 00861000 SAVTLUSR EQU IEDNSVTD+100 00862000 @NM00093 EQU SAVTLUSQ+8 00863000 SAVTLUSP EQU SAVTLUSQ+4 00864000 SAVTLUSB EQU SAVTLUSQ 00865000 @NM00092 EQU IEDNSVTD+84 00866000 SAVTSAT EQU IEDNSVTD+80 00867000 SAVTNAT EQU IEDNSVTD+76 00868000 SAVTCLUP EQU IEDNSVTD+72 00869000 SAVTPIUT EQU IEDNSVTD+68 00870000 SAVTRNTA EQU IEDNSVTD+64 00871000 SAVTDNIR EQU IEDNSVTD+60 00872000 SAVTCNIR EQU IEDNSVTD+56 00873000 SAVTFLDH EQU IEDNSVTD+52 00874000 SAVTSRTN EQU IEDNSVTD+48 00875000 SAVTSREQ EQU IEDNSVTD+44 00876000 SAVTFAIL EQU IEDNSVTD+42 00877000 SAVTSUSE EQU IEDNSVTD+40 00878000 SAVTSIB EQU IEDNSVTD+36 00879000 SAVTPRTN EQU IEDNSVTD+32 00880000 @NM00091 EQU IEDNSVTD+28 00881000 SAVTWH20 EQU IEDNSVTD+26 00882000 SAVTPWT EQU IEDNSVTD+24 00883000 SAVTPRTQ EQU IEDNSVTD+20 00884000 SAVTPREQ EQU IEDNSVTD+16 00885000 SAVTPH20 EQU IEDNSVTD+14 00886000 SAVTPUSE EQU IEDNSVTD+12 00887000 SAVTPLCB EQU IEDNSVTD+8 00888000 SAVTPOOL EQU IEDNSVTD+4 00889000 SAVTPRMT EQU SAVTDIAF 00890000 SAVTVIRT EQU SAVTDIAF 00891000 AVTCPBNO EQU IEDQAVTD+1244 00892000 AVTHRESS EQU IEDQAVTD+1243 00893000 @NM00090 EQU IEDQAVTD+1242 00894000 @NM00089 EQU IEDQAVTD+1241 00895000 @NM00088 EQU IEDQAVTD+1240 00896000 @NM00087 EQU IEDQAVTD+1237 00897000 @NM00086 EQU IEDQAVTD+1236 00898000 AVTHRESE EQU @NM00085 00899000 AVTRADDR EQU IEDQAVTD+1228 00900000 AVTNADDR EQU IEDQAVTD+1224 00901000 AVTHRESN EQU IEDQAVTD+1220 00902000 AVTVOLRN EQU IEDQAVTD+1216 00903000 AVTTOTNN EQU IEDQAVTD+1212 00904000 AVTTRCYN EQU IEDQAVTD+1208 00905000 AVTRCTRN EQU IEDQAVTD+1204 00906000 AVTNOVON EQU IEDQAVTD+1200 00907000 AVTADEBN EQU IEDQAVTD+1196 00908000 AVTVOLRR EQU IEDQAVTD+1192 00909000 AVTTOTNR EQU IEDQAVTD+1188 00910000 AVTTRCYR EQU IEDQAVTD+1184 00911000 AVTRCTRR EQU IEDQAVTD+1180 00912000 AVTNOVOR EQU IEDQAVTD+1176 00913000 AVTADEBR EQU IEDQAVTD+1172 00914000 AVTLODPT EQU IEDQAVTD+1168 00915000 AVTIOBN EQU IEDQAVTD+1164 00916000 AVTIOBR EQU IEDQAVTD+1160 00917000 AVTCPBPT EQU IEDQAVTD+1156 00918000 AVTFCPB EQU IEDQAVTD+1152 00919000 @NM00084 EQU IEDQAVTD+1148 00920000 AVTINCPQ EQU IEDQAVTD+1144 00921000 @NM00083 EQU IEDQAVTD+1140 00922000 @NM00082 EQU IEDQAVTD+1137 00923000 @NM00081 EQU AVTBIT4 00924000 @NM00080 EQU AVTBIT4 00925000 @NM00079 EQU AVTBIT4 00926000 @NM00078 EQU AVTBIT4 00927000 @NM00077 EQU AVTBIT4 00928000 @NM00076 EQU AVTBIT4 00929000 @NM00075 EQU AVTBIT4 00930000 AVTRUFTN EQU AVTBIT4 00931000 @NM00074 EQU IEDQAVTD+1132 00932000 AVTNOBFQ EQU IEDQAVTD+1128 00933000 @NM00073 EQU IEDQAVTD+1124 00934000 AVTDKENQ EQU IEDQAVTD+1120 00935000 @NM00072 EQU IEDQAVTD+1116 00936000 AVTDKAPQ EQU IEDQAVTD+1112 00937000 AVTCOPY EQU IEDQAVTD+1108 00938000 AVTIA EQU IEDQAVTD+1104 00939000 AVTFL EQU IEDQAVTD+1100 00940000 @NM00071 EQU IEDQAVTD+1096 00941000 AVTNCPBQ EQU IEDQAVTD+1092 00942000 AVTTOTNC EQU IEDQAVTD+1088 00943000 AVTCMAX EQU IEDQAVTD+1084 00944000 AVTCMIN EQU IEDQAVTD+1080 00945000 AVTHM02 EQU IEDQAVTD+1076 00946000 AVTOPCIN EQU IEDQAVTD+1074 00947000 AVTDCTLN EQU IEDQAVTD+1072 00948000 AVTOPMSK EQU IEDQAVTD+1068 00949000 AVTDDFT EQU IEDQAVTD+1064 00950000 AVTSTEAL EQU IEDQAVTD+1060 00951000 AVTOPTN EQU IEDQAVTD+1056 00952000 AVTDSKCT EQU IEDQAVTD+1054 00953000 AVTCKRST EQU IEDQAVTD+1053 00954000 AVTSTAN EQU AVTBIT3 00955000 AVTSTACN EQU AVTBIT3 00956000 AVTSTAIN EQU AVTBIT3 00957000 AVTSTAYN EQU AVTBIT3 00958000 AVTOLTBN EQU AVTBIT3 00959000 AVTTSAB EQU AVTBIT3 00960000 AVTRFULN EQU AVTBIT3 00961000 AVTRECVN EQU AVTBIT3 00962000 @NM00070 EQU AVTBIT2 00963000 @NM00069 EQU AVTBIT2 00964000 AVTOPEIN EQU AVTBIT2 00965000 AVTSTRTN EQU AVTBIT2 00966000 AVTTOPOL EQU AVTBIT2 00967000 AVTCOPYN EQU AVTBIT2 00968000 AVTREUSN EQU AVTBIT2 00969000 AVTEXTSC EQU AVTBIT2 00970000 AVTDISKN EQU AVTBIT1 00971000 AVTQUCKN EQU AVTBIT1 00972000 AVTCLOSN EQU AVTBIT1 00973000 AVTREADN EQU AVTBIT1 00974000 AVTDLAYN EQU AVTBIT1 00975000 AVTAQTAN EQU AVTBIT1 00976000 AVTTSON EQU AVTBIT1 00977000 AVTAPLKN EQU AVTBIT1 00978000 AVTDUMBR EQU IEDQAVTD+1048 00979000 AVTDLQX EQU IEDQAVTD+1046 00980000 AVTINTLV EQU IEDQAVTD+1044 00981000 AVTSMCNT EQU IEDQAVTD+1042 00982000 AVTAVFCT EQU IEDQAVTD+1040 00983000 AVTOPCON EQU IEDQAVTD+1038 00984000 AVTOPCNT EQU IEDQAVTD+1036 00985000 AVTLNCNT EQU IEDQAVTD+1034 00986000 AVTKEYLE EQU IEDQAVTD+1032 00987000 AVTHA16 EQU IEDQAVTD+1030 00988000 AVTHA7 EQU IEDQAVTD+1028 00989000 AVTHA4 EQU IEDQAVTD+1026 00990000 AVTHA3 EQU IEDQAVTD+1024 00991000 AVTHA2 EQU IEDQAVTD+1022 00992000 AVTGETMS EQU IEDQAVTD+1021 00993000 @NM00068 EQU IEDQAVTD+1020 00994000 AVTGETMD EQU IEDQAVTD+1016 00995000 AVTGETMN EQU IEDQAVTD+1012 00996000 AVTCWTOT EQU IEDQAVTD+1008 00997000 AVTCWINT EQU IEDQAVTD+956 00998000 AVTDTRAP EQU IEDQAVTD+952 00999000 @NM00067 EQU IEDQAVTD+950 01000000 @NM00066 EQU AVTIOTR 01001000 AVTIOTRH EQU AVTIOTR 01002000 AVTIOTRE EQU AVTIOTR 01003000 @NM00065 EQU AVTSUBT 01004000 AVTSUBPT EQU AVTSUBT 01005000 AVTSUBON EQU AVTSUBT 01006000 AVTAFE30 EQU IEDQAVTD+944 01007000 AVTAFE20 EQU IEDQAVTD+940 01008000 AVTAFE10 EQU IEDQAVTD+936 01009000 AVTCWEC2 EQU IEDQAVTD+932 01010000 AVTCWPM2 EQU IEDQAVTD+928 01011000 AVTCWTS2 EQU IEDQAVTD+927 01012000 AVTCWTS1 EQU IEDQAVTD+926 01013000 AVTCWCLD EQU AVTCWFL2 01014000 AVTCWRAP EQU AVTCWFL2 01015000 @NM00064 EQU AVTCWFL2 01016000 @NM00063 EQU AVTCWFL2 01017000 @NM00062 EQU AVTCWFL2 01018000 @NM00061 EQU AVTCWFL2 01019000 @NM00060 EQU AVTCWFL2 01020000 AVTCWACT EQU AVTCWFL2 01021000 @NM00059 EQU AVTCWFL1 01022000 @NM00058 EQU AVTCWFL1 01023000 @NM00057 EQU AVTCWFL1 01024000 @NM00056 EQU AVTCWFL1 01025000 @NM00055 EQU AVTCWFL1 01026000 @NM00054 EQU AVTCWFL1 01027000 @NM00053 EQU AVTCWFL1 01028000 AVTCOMWN EQU AVTCWFL1 01029000 AVTCWEC1 EQU IEDQAVTD+920 01030000 AVTCWPM1 EQU IEDQAVTD+916 01031000 AVTCAREA EQU IEDQAVTD+912 01032000 AVTFZERO EQU IEDQAVTD+908 01033000 AVTCADDR EQU IEDQAVTD+904 01034000 AVTCOREC EQU IEDQAVTD+900 01035000 @NM00052 EQU IEDQAVTD+892 01036000 AVTCPBCB EQU IEDQAVTD+888 01037000 @NM00051 EQU IEDQAVTD+880 01038000 AVTDSIOB EQU IEDQAVTD+876 01039000 @NM00050 EQU IEDQAVTD+868 01040000 AVTCPRMB EQU IEDQAVTD+864 01041000 @NM00049 EQU IEDQAVTD+856 01042000 AVTCLOSB EQU IEDQAVTD+852 01043000 @NM00048 EQU IEDQAVTD+844 01044000 AVTACTIB EQU IEDQAVTD+840 01045000 @NM00047 EQU IEDQAVTD+836 01046000 AVTOLTEB EQU IEDQAVTD+832 01047000 AVTOLTCH EQU AVTOLTQB+1 01048000 AVTOLTVT EQU AVTOLTQB 01049000 @NM00046 EQU AVTOPCQB+8 01050000 @NM00045 EQU AVTOPCEC+1 01051000 @NM00044 EQU AVTOPCCC 01052000 AVTOPCPO EQU AVTOPCCC 01053000 AVTOPCWA EQU AVTOPCCC 01054000 AVTOPCCH EQU AVTOPCOB+1 01055000 AVTOPCVT EQU AVTOPCOB 01056000 @NM00043 EQU AVTCKPQB+9 01057000 AVTCKPTS EQU AVTCKPQB+8 01058000 @NM00042 EQU AVTCKPEC+1 01059000 @NM00041 EQU AVTCKPCC 01060000 AVTCKPPO EQU AVTCKPCC 01061000 AVTCKPWA EQU AVTCKPCC 01062000 AVTCKPCH EQU AVTCKPTB+1 01063000 AVTCKPVT EQU AVTCKPTB 01064000 @NM00040 EQU IEDQAVTD+796 01065000 AVTBFRTB EQU IEDQAVTD+792 01066000 @NM00039 EQU IEDQAVTD+784 01067000 AVTBFREB EQU IEDQAVTD+780 01068000 AVTTIMQ EQU IEDQAVTD+776 01069000 @NM00038 EQU IEDQAVTD+772 01070000 AVTIMQPS EQU IEDQAVTD+768 01071000 AVTINOUT EQU IEDQAVTD+766 01072000 AVTREFTM EQU IEDQAVTD+764 01073000 @NM00037 EQU IEDQAVTD+752 01074000 AVTDELYB EQU IEDQAVTD+748 01075000 AVTOCQPT EQU IEDQAVTD+744 01076000 AVTTSOPT EQU IEDQAVTD+740 01077000 AVTSUPPT EQU IEDQAVTD+736 01078000 AVTCBQCB EQU IEDQAVTD+732 01079000 AVTMSGS EQU IEDQAVTD+729 01080000 @NM00036 EQU AVTSYSER 01081000 @NM00035 EQU AVTSYSER 01082000 @NM00034 EQU AVTSYSER 01083000 @NM00033 EQU AVTSYSER 01084000 @NM00032 EQU AVTSYSER 01085000 @NM00031 EQU AVTSYSER 01086000 AVTCMAXN EQU AVTSYSER 01087000 AVTCMINN EQU AVTSYSER 01088000 AVT2260L EQU IEDQAVTD+724 01089000 AVTABEPL EQU AVTADBUF 01090000 AVTHFF EQU AVTCLRHI+2 01091000 @NM00030 EQU AVTCLRHI 01092000 AVTCCLNK EQU AVTCRELE+5 01093000 AVTCCPRI EQU AVTCRELE+4 01094000 AVTCCQCB EQU AVTCCELE+1 01095000 AVTCCKEY EQU AVTCCELE 01096000 AVTDELAD EQU IEDQAVTD+704 01097000 AVTDELEM EQU IEDQAVTD+700 01098000 AVTBSX EQU AVTCKLNK 01099000 AVTOPETR EQU AVTHG01 01100000 @NM00029 EQU AVTCKBYT 01101000 AVTCKONQ EQU AVTCKBYT 01102000 @NM00028 EQU AVTCKBYT 01103000 @NM00027 EQU AVTCKBYT 01104000 @NM00026 EQU AVTCKBYT 01105000 @NM00025 EQU AVTCKBYT 01106000 @NM00024 EQU AVTCKBYT 01107000 @NM00023 EQU AVTCKBYT 01108000 AVTOPERT EQU IEDQAVTD+690 01109000 AVTOPXCL EQU IEDQAVTD+688 01110000 AVTOPERL EQU IEDQAVTD+687 01111000 @NM00022 EQU IEDQAVTD+686 01112000 AVTCKTIM EQU IEDQAVTD+684 01113000 AVTCKELV EQU IEDQAVTD+682 01114000 AVTCPRCD EQU IEDQAVTD+681 01115000 AVTWARMN EQU AVTCKELF 01116000 AVTCRTLN EQU AVTCKELF 01117000 AVTCPIPN EQU AVTCKELF 01118000 AVTCCLCN EQU AVTCKELF 01119000 AVTCINCN EQU AVTCKELF 01120000 @NM00021 EQU AVTCKELF 01121000 AVTCMCPN EQU AVTCKELF 01122000 AVTNQBCK EQU AVTCKELF 01123000 AVTCKQAD EQU IEDQAVTD+677 01124000 AVTSCBSZ EQU IEDQAVTD+676 01125000 @NM00020 EQU IEDQAVTD+672 01126000 AVTCKELE EQU IEDQAVTD+668 01127000 @NM00019 EQU AVTCKPEL+8 01128000 AVTCKRLK EQU AVTCKPEL+5 01129000 AVTCKRPR EQU AVTCKPEL+4 01130000 AVTCKRMQ EQU AVTCKRMV+1 01131000 AVTCKRKY EQU AVTCKRMV 01132000 AVTHK EQU IEDQAVTD+648 01133000 AVTHI EQU IEDQAVTD+644 01134000 AVTIOT EQU IEDQAVTD+640 01135000 AVTNX EQU IEDQAVTD+636 01136000 AVTTONE EQU IEDQAVTD+632 01137000 AVTA3TL EQU IEDQAVTD+628 01138000 AVTDMECB EQU IEDQAVTD+624 01139000 AVTABEND EQU IEDQAVTD+618 01140000 AVTPLCBN EQU IEDQAVTD+616 01141000 @NM00018 EQU AVTSAVTP+1 01142000 @NM00017 EQU AVTSAVTF 01143000 AVTSNA EQU AVTSAVTF 01144000 AVTONSNA EQU AVTSAVTF 01145000 AVTVTMCP EQU AVTSAVTF 01146000 @NM00016 EQU IEDQAVTD+608 01147000 AVTCMBSS EQU IEDQAVTD+604 01148000 AVTRCV EQU IEDQAVTD+600 01149000 AVTSEND EQU IEDQAVTD+596 01150000 AVTCSCH EQU IEDQAVTD+592 01151000 AVTQ1 EQU IEDQAVTD+588 01152000 AVTE7 EQU IEDQAVTD+584 01153000 AVTHB EQU IEDQAVTD+580 01154000 AVTR1 EQU IEDQAVTD+576 01155000 AVTBZ EQU IEDQAVTD+572 01156000 AVTEZ EQU IEDQAVTD+568 01157000 AVTEC EQU IEDQAVTD+564 01158000 AVTEW EQU IEDQAVTD+560 01159000 AVTNDIAL EQU AVTSCOPT 01160000 AVTN2741 EQU AVTSCOPT 01161000 AVTCONCO EQU AVTSCOPT 01162000 AVTCONC EQU AVTSCOPT 01163000 AVTCMBUF EQU AVTSCOPT 01164000 AVTAPDMP EQU AVTSCOPT 01165000 @NM00015 EQU AVTSCOPT 01166000 AVTHA EQU AVTDISP 01167000 AVTEA EQU IEDQAVTD+548 01168000 AVTAX EQU IEDQAVTD+544 01169000 AVTA3 EQU IEDQAVTD+540 01170000 AVTGD EQU IEDQAVTD+536 01171000 AVTAL EQU IEDQAVTD+532 01172000 AVTOLTST EQU AVTHG02 01173000 AVTE8 EQU IEDQAVTD+524 01174000 AVTUI EQU IEDQAVTD+520 01175000 AVTCOMPT EQU IEDQAVTD+516 01176000 AVTCRSRF EQU IEDQAVTD+512 01177000 @NM00014 EQU IEDQAVTD+508 01178000 AVTKA02 EQU IEDQAVTD+504 01179000 AVTOPTPT EQU IEDQAVTD+500 01180000 AVTPCBPT EQU IEDQAVTD+496 01181000 @NM00013 EQU AVTECB1 01182000 AVTCOMP EQU AVTECB1 01183000 @NM00012 EQU AVTECB1 01184000 AVTOPECA EQU IEDQAVTD+488 01185000 AVTOLECA EQU IEDQAVTD+484 01186000 AVTCKECA EQU IEDQAVTD+480 01187000 AVTCWECA EQU IEDQAVTD+476 01188000 AVTCWTCB EQU IEDQAVTD+472 01189000 AVTOLTCB EQU IEDQAVTD+468 01190000 AVTOCTCB EQU IEDQAVTD+464 01191000 AVTCKTCB EQU IEDQAVTD+460 01192000 AVTAS EQU IEDQAVTD+456 01193000 AVTNOLBF EQU IEDQAVTD+454 01194000 AVTNCKPR EQU IEDQAVTD+453 01195000 AVTCIB EQU IEDQAVTD+452 01196000 AVTSPLPT EQU IEDQAVTD+448 01197000 AVTMVBFR EQU IEDQAVTD+444 01198000 AVTSBTA EQU IEDQAVTD+440 01199000 AVTRARTN EQU IEDQAVTD+436 01200000 AVTBSCAN EQU IEDQAVTD+432 01201000 AVTRDYA EQU IEDQAVTD+428 01202000 AVTDISTR EQU IEDQAVTD+420 01203000 AVTPARM3 EQU IEDQAVTD+416 01204000 @NM00011 EQU AVTPKF 01205000 @NM00010 EQU AVTPKF 01206000 @NM00009 EQU AVTPKF 01207000 AVTFTCHF EQU AVTPKF 01208000 @NM00008 EQU AVTPKF 01209000 @NM00007 EQU AVTPKF 01210000 @NM00006 EQU AVTPKF 01211000 @NM00005 EQU AVTPKF 01212000 AVTPARM EQU IEDQAVTD+408 01213000 AVTEXS2A EQU IEDQAVTD+402 01214000 AVTEXA2S EQU IEDQAVTD+396 01215000 AVTOCGET EQU IEDQAVTD+392 01216000 AVTCKAVT EQU @NM00003+1 01217000 @NM00004 EQU AVTCKFLG 01218000 AVTCKHLT EQU AVTCKFLG 01219000 AVTCKREQ EQU AVTCKFLG 01220000 AVTCKENV EQU AVTCKFLG 01221000 AVTCKNAC EQU AVTCKFLG 01222000 AVTCKTAC EQU AVTCKFLG 01223000 @NM00002 EQU IEDQAVTD+384 01224000 AVTREADD EQU IEDQAVTD+380 01225000 AVTREADY EQU IEDQAVTD+376 01226000 AVTRACE EQU IEDQAVTD+372 01227000 AVTTCB EQU IEDQAVTD+368 01228000 AVTPASWD EQU IEDQAVTD+360 01229000 AVTCTLCH EQU IEDQAVTD+352 01230000 AVTDOUBL EQU IEDQAVTD+344 01231000 AVTDOUBX EQU IEDQAVTD+336 01232000 AVTDPARM EQU IEDQAVTD+332 01233000 AVTCSTCS EQU IEDQAVTD+328 01234000 AVTDLQ EQU AVTSAVEX+32 01235000 @NM00001 EQU AVTSAVEX 01236000 AVTSAVE4 EQU IEDQAVTD+216 01237000 AVTSAVE3 EQU IEDQAVTD+144 01238000 AVTSAVE2 EQU IEDQAVTD+72 01239000 AVTSAVE1 EQU IEDQAVTD 01240000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01241000 @RC00356 EQU @RC00355 01242000 @RC00369 EQU @RC00368 01243000 @ENDDATA EQU * 01244000 END IEDKHISC,(C'PLS1948',0701,77157) 01245000