TITLE 'IGCAL10D, FORCE DEACTIVATE A PHYSICAL UNIT *00001000 ' 00002000 IGCAL10D CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 * 0310 00005000 USING *,RBASE 00006000 LR RBASE,RF /* SET UP ADDRESSIBILITY */ 00007000 IGCAL10D IEDHJN START,HJN 00008000 */* */ 00009000 * 0311 00010000 * /* INITIALIZATION */ 00011000 * ROPCAVT=RPARM; /* OP CONTROL AVT ADDRESS */ 00012000 LR ROPCAVT,RPARM 0311 00013000 * ROPCE=OPCCOPCE; /* CURRENT ELEMENT ADDRESS */ 00014000 L ROPCE,OPCCOPCE(,ROPCAVT) 0312 00015000 * RAVT=OPCAVTPT; /* TCAM AVT ADDRESS */ 00016000 L RAVT,OPCAVTPT(,ROPCAVT) 0313 00017000 * RWORK=OPCWORK; /* OP CONTROL WORK AREA */ 00018000 L RWORK,OPCWORK(,ROPCAVT) 0314 00019000 * RSAVE=ADDR(OPCSAVE); /* OP CONTROL SAVE AREA */ 00020000 LA RSAVE,OPCSAVE(,ROPCAVT) 0315 00021000 */* */ 00022000 * 0316 00023000 * RPARM=OCTRMTBL; /* TNT FOR RESOURCE */ 00024000 LH RPARM,OCTRMTBL(,ROPCE) 0316 00025000 N RPARM,@CF01408 0316 00026000 * CALL IEDQTNT; /* CONVERT TNT TO TTE */ 00027000 L @15,AVTRNMPT(,RAVT) 0317 00028000 BALR @14,@15 0317 00029000 * RTRM=RPARM; /* SAVE TTE ADDRESS */ 00030000 LR RTRM,RPARM 0318 00031000 */* */ 00032000 * 0319 00033000 * IF OCRESP=OFF THEN /* REQUEST */ 00034000 TM OCRESP(ROPCE),B'00000001' 0319 00035000 BNZ @RF00319 0319 00036000 * CALL REQUEST; /* YES... PROCESS */ 00037000 BAL @14,REQUEST 0320 00038000 * ELSE /* RESPONSE */ 00039000 * CALL RESPONSE; /* PROCESS RESPONSE */ 00040000 B @RC00319 0321 00041000 @RF00319 BAL @14,RESPONSE 0321 00042000 */* */ 00043000 * 0322 00044000 * RPARM=ROPCAVT; /* RPARM HAS OP CNTRL AVT */ 00045000 @RC00319 LR RPARM,ROPCAVT 0322 00046000 * GEN REFS(ROPCAVT,OPCXCTL) EXIT; 0323 00047000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00048000 *DELINK: 0324 00049000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0324 00050000 * 0324 00051000 @EL00001 DS 0H 0324 00052000 @EF00001 DS 0H 0324 00053000 @ER00001 BR @14 0324 00054000 DELINK DS 0H 0325 00055000 * /*****************************************************************/ 00056000 * /* */ 00057000 * /* THIS ROUTINE DELINKS THE OPCE FOR THE ORIGINAL ACTPU REQUEST */ 00058000 * /* */ 00059000 * /*****************************************************************/ 00060000 * 0325 00061000 * WKSAVE2=RE; /* SAVE REG 14 */ 00062000 ST RE,WKSAVE2(,RWORK) 0325 00063000 */* */ 00064000 * 0326 00065000 * WKFNDSW=OFF; /* INITIALIZE SWITCH OFF */ 00066000 NI WKFNDSW(RWORK),B'01111111' 0326 00067000 * WKCURRNT=OPCWAITP; /* FIRST OPCE ON CHAIN */ 00068000 L @09,OPCWAITP(,ROPCAVT) 0327 00069000 ST @09,WKCURRNT(,RWORK) 0327 00070000 * WKPREV=ADDR(OPCWAITP); /* SET UP CHAIN ANCHOR */ 00071000 LA @09,OPCWAITP(,ROPCAVT) 0328 00072000 ST @09,WKPREV(,RWORK) 0328 00073000 */* */ 00074000 * 0329 00075000 * DO WHILE WKFNDSW=OFF&WKCURRNT>0;/* NOT END OF CHAIN AND MATCH NOT 00076000 * FOUND */ 00077000 B @DE00329 0329 00078000 @DL00329 DS 0H 0330 00079000 * IF WKCURRNT->OCPUADR=OCPUADR THEN/* OPCE FOR THIS RESOURCE */ 00080000 L @09,WKCURRNT(,RWORK) 0330 00081000 CLC OCPUADR(2,@09),OCPUADR(ROPCE) 0330 00082000 BNE @RF00330 0330 00083000 * DO; 0331 00084000 * WKPREV->OCLINK=WKCURRNT->OCLINK;/* DELINK OPCE */ 00085000 L @11,WKPREV(,RWORK) 0332 00086000 L @09,OCLINK(,@09) 0332 00087000 ST @09,OCLINK(,@11) 0332 00088000 * WKFNDSW=ON; /* SET FOUND SWITCH */ 00089000 OI WKFNDSW(RWORK),B'10000000' 0333 00090000 * END; 0334 00091000 * ELSE 0335 00092000 * DO; 0335 00093000 B @RC00330 0335 00094000 @RF00330 DS 0H 0336 00095000 * WKPREV=WKCURRNT; /* SAVE ADDR FOR DELINKING */ 00096000 L @09,WKCURRNT(,RWORK) 0336 00097000 ST @09,WKPREV(,RWORK) 0336 00098000 * WKCURRNT=WKCURRNT->OCLINK;/* GET NEXT OPCE ON CHAIN */ 00099000 L @09,OCLINK(,@09) 0337 00100000 ST @09,WKCURRNT(,RWORK) 0337 00101000 * END; 0338 00102000 * END; 0339 00103000 * 0339 00104000 @RC00330 DS 0H 0339 00105000 @DE00329 TM WKFNDSW(RWORK),B'10000000' 0339 00106000 BNZ @DC00329 0339 00107000 L @09,WKCURRNT(,RWORK) 0339 00108000 LTR @09,@09 0339 00109000 BP @DL00329 0339 00110000 @DC00329 DS 0H 0340 00111000 */* */ 00112000 * 0340 00113000 * RE=WKSAVE2; /* RESTORE REG 14 */ 00114000 L RE,WKSAVE2(,RWORK) 0340 00115000 * END DELINK; /* RETURN */ 00116000 @EL00002 DS 0H 0341 00117000 @EF00002 DS 0H 0341 00118000 @ER00002 BR @14 0341 00119000 *REQUEST: 0342 00120000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0342 00121000 * 0342 00122000 REQUEST DS 0H 0343 00123000 * /*****************************************************************/ 00124000 * /* */ 00125000 * /* THIS ROUTINE BUILDS A DISCONTACT REQUEST IN A PACKED RU */ 00126000 * /* */ 00127000 * /*****************************************************************/ 00128000 * 0343 00129000 * WKSAVE1=RE; /* SAVE REG 14 */ 00130000 ST RE,WKSAVE1(,RWORK) 0343 00131000 */* */ 00132000 * 0344 00133000 * RPARM=1; /* SET BUFFER UNIT TO 1 */ 00134000 LA RPARM,1 0344 00135000 * CALL ALLOCBUF; /* GET A BUFFER */ 00136000 L @15,OPCGETBF(,ROPCAVT) 0345 00137000 BALR @14,@15 0345 00138000 * OCUNIT=RPARM; /* SAVE UNIT ADDRESS */ 00139000 ST RPARM,OCUNIT(,ROPCE) 0346 00140000 */* */ 00141000 * 0347 00142000 * PRURHTH=RHTHFMD; /* INITIALIZE RH AND TH */ 00143000 L @09,OCUNIT(,ROPCE) 0347 00144000 LR @11,@09 0347 00145000 AL @11,@CF01411 0347 00146000 MVC PRURHTH(4,@11),@CB01385 0347 00147000 * PRUDATCT=LENGTH(IEDXDSCD); /* SET UP DATA COUNT */ 00148000 MVC PRUDATCT(2,@09),@CH00153 0348 00149000 * XDSCCODE=CD1XDSC; /* SET UP COMMAND CODE */ 00150000 MVC XDSCCODE+12(3,@09),@CB00724 0349 00151000 */* */ 00152000 * 0350 00153000 * RPARM=OCTRMTBL; /* PARAMETER FOR IEDIAP04 */ 00154000 LH RPARM,OCTRMTBL(,ROPCE) 0350 00155000 N RPARM,@CF01408 0350 00156000 * CALL IEDIAP04; /* CONVERT TNT TO NET ADDR */ 00157000 L @09,AVTSAVTP(,RAVT) 0351 00158000 L @15,SAVTTNTX(,@09) 0351 00159000 BALR @14,@15 0351 00160000 * OCPUADR=RF; /* SAVE NETWORK ADDRESS */ 00161000 STH RF,OCPUADR(,ROPCE) 0352 00162000 * XDSCADDR=RF; /* SET UP NETWORK ADDRESS */ 00163000 L @09,OCUNIT(,ROPCE) 0353 00164000 STCM RF,3,XDSCADDR+12(@09) 0353 00165000 */* */ 00166000 * 0354 00167000 * TRMPCONT=TRMCRPND; /* SET CONTACT STATE RESET 0354 00168000 * PENDING */ 00169000 LR @09,RTRM 0354 00170000 AL @09,@CF01412 0354 00171000 NI TRMPCONT-1(@09),B'11111011' 0354 00172000 OI TRMPCONT-1(@09),B'00000011' 0354 00173000 * RPARM=RTRM; /* TERM TABLE ADDR OF PU */ 00174000 LR RPARM,RTRM 0355 00175000 * DO UNTIL TRMTYPE=TRMLNCP; /* LOCAL NCP?... NO */ 00176000 @DL00356 DS 0H 0357 00177000 * CALL COHORTLK; /* GET SUPERIOR RESOURCE */ 00178000 L @15,OPCHORT(,ROPCAVT) 0357 00179000 BALR @14,@15 0357 00180000 * RTRM=RPARM; /* NEW TERM TABLE ADDRESS */ 00181000 LR RTRM,RPARM 0358 00182000 * END; 0359 00183000 @DE00356 LR @09,RTRM 0359 00184000 AL @09,@CF01121 0359 00185000 CLI TRMTYPE-11(@09),X'0F' 0359 00186000 BNE @DL00356 0359 00187000 * PRUTTCIN=RZERO; /* SET UP DESTINATION IN RU */ 00188000 L @09,OCUNIT(,ROPCE) 0360 00189000 STH RZERO,PRUTTCIN(,@09) 0360 00190000 */* */ 00191000 * 0361 00192000 * OPCMODID=RUDISP; /* XCTL TO IGC0210D */ 00193000 MVC OPCMODID(2,ROPCAVT),@CC01389 0361 00194000 * OCWTG=THISMOD; /* SET UP RETURN TO 'AL' */ 00195000 MVC OCWTG(2,ROPCE),@CC01387 0362 00196000 */* */ 00197000 * 0363 00198000 * RE=WKSAVE1; /* RESTORE REG 14 */ 00199000 L RE,WKSAVE1(,RWORK) 0363 00200000 * END REQUEST; /* RETURN */ 00201000 @EL00003 DS 0H 0364 00202000 @EF00003 DS 0H 0364 00203000 @ER00003 BR @14 0364 00204000 *RESPONSE: 0365 00205000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0365 00206000 RESPONSE DS 0H 0366 00207000 * WKSAVE1=RE; /* SAVE REG 14 */ 00208000 ST RE,WKSAVE1(,RWORK) 0366 00209000 */* */ 00210000 * 0367 00211000 * TRMPCONT=TRMCRSET; /* SET CONTACT RESET STATE */ 00212000 LR @09,RTRM 0367 00213000 AL @09,@CF01412 0367 00214000 NI TRMPCONT-1(@09),B'11111000' 0367 00215000 * CALL DELINK; /* DELINK ORIGINAL ACTPU OPCE */ 00216000 BAL @14,DELINK 0368 00217000 * OPCCOPCE=WKCURRNT; /* MAKE ORIGINAL OPCE THE CURRENT 00218000 * ELEMENT */ 00219000 L @09,WKCURRNT(,RWORK) 0369 00220000 ST @09,OPCCOPCE(,ROPCAVT) 0369 00221000 * WKCURRNT->OCUNIT=ROPCE->OCUNIT; /* ATTACH RESPONSE BUFFER */ 00222000 L @11,OCUNIT(,ROPCE) 0370 00223000 ST @11,OCUNIT(,@09) 0370 00224000 * ROPCE->OCUNIT=PRUINTIC; /* SET INVALID TIC */ 00225000 MVC OCUNIT(4,ROPCE),@CF01183 0371 00226000 */* */ 00227000 * 0372 00228000 * RPARM=ROPCE; /* SET UP TO FREE FORCE 0372 00229000 * DEACTIVATE OPCE */ 00230000 LR RPARM,ROPCE 0372 00231000 * CALL FREEBUF; /* FREE THE OPCE */ 00232000 L @15,OPCFREBF(,ROPCAVT) 0373 00233000 BALR @14,@15 0373 00234000 */* */ 00235000 * 0374 00236000 * ROPCE=WKCURRNT; /* NEW OPCE ADDRESS */ 00237000 L ROPCE,WKCURRNT(,RWORK) 0374 00238000 * IF PRURHSDI=ON THEN /* BAD RESPONSE */ 00239000 L @09,OCUNIT(,ROPCE) 0375 00240000 AL @09,@CF01411 0375 00241000 TM PRURHSDI(@09),B'00000100' 0375 00242000 BNO @RF00375 0375 00243000 * OCPARM=OCRCBNEG; /* GIVE BAD RETURN CODE */ 00244000 MVC OCPARM(2,ROPCE),@CH01117 0376 00245000 * ELSE 0377 00246000 * OCPARM=OCRCBPOS; /* GIVE BAD RETURN CODE */ 00247000 B @RC00375 0377 00248000 @RF00375 MVC OCPARM(2,ROPCE),@CH01121 0377 00249000 * OPCMODID=OCWTGB; /* RETURN TO OP SERVICES */ 00250000 @RC00375 MVC OPCMODID(2,ROPCAVT),OCWTGB(ROPCE) 0378 00251000 */* */ 00252000 * 0379 00253000 * RE=WKSAVE1; /* RESTORE REG 14 */ 00254000 L RE,WKSAVE1(,RWORK) 0379 00255000 * END RESPONSE; /* RETURN TO CALLER */ 00256000 @EL00004 DS 0H 0380 00257000 @EF00004 DS 0H 0380 00258000 @ER00004 BR @14 0380 00259000 * END IGCAL10D 0381 00260000 * 0381 00261000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00262000 */*%INCLUDE SYSLIB (TAVTD ) */ 00263000 */*%INCLUDE SYSLIB (TCD1D ) */ 00264000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00265000 */*%INCLUDE SYSLIB (TOPCED ) */ 00266000 */*%INCLUDE SYSLIB (TPRUD ) */ 00267000 */*%INCLUDE SYSLIB (TTRMD ) */ 00268000 */*%INCLUDE SYSLIB (TXDSCD ) */ 00269000 * 0381 00270000 * ; 0381 00271000 @DATA DS 0H 00272000 @CH00153 DC H'5' 00273000 @CH01117 DC H'-1' 00274000 DS 0F 00275000 DS 0F 00276000 @CF01412 DC F'-13' 00277000 @CF01411 DC F'-8' 00278000 @CF01121 DC F'-3' 00279000 @CH01121 EQU @CF01121+2 00280000 @CF01183 DC XL4'08000002' 00281000 @CF01408 DC XL4'0000FFFF' 00282000 DS 0D 00283000 @CC01387 DC C'AL' 00284000 @CC01389 DC C'02' 00285000 @CB01385 DC X'0B80001C' 00286000 @CB00724 DC X'010202' 00287000 PATCH DC 100X'00' 00288000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00289000 @01 EQU 01 00290000 @02 EQU 02 00291000 @03 EQU 03 00292000 @04 EQU 04 00293000 @05 EQU 05 00294000 @06 EQU 06 00295000 @07 EQU 07 00296000 @08 EQU 08 00297000 @09 EQU 09 00298000 @10 EQU 10 00299000 @11 EQU 11 00300000 @12 EQU 12 00301000 @13 EQU 13 00302000 @14 EQU 14 00303000 @15 EQU 15 00304000 IEDQAPTR EQU @04 00305000 ROPCAVT EQU @02 00306000 ROPCE EQU @03 00307000 IEDQTPTR EQU @08 00308000 RAVT EQU @04 00309000 RTRM EQU @08 00310000 RZERO EQU @00 00311000 RPARM EQU @01 00312000 RWORK EQU @05 00313000 RBASE EQU @12 00314000 RSAVE EQU @13 00315000 RE EQU @14 00316000 RF EQU @15 00317000 IEDQAVTD EQU 0 00318000 AVTSAVEX EQU IEDQAVTD+288 00319000 @NM00003 EQU IEDQAVTD+388 00320000 AVTCKFLG EQU @NM00003 00321000 AVTBASE EQU IEDQAVTD+412 00322000 AVTPKF EQU AVTBASE 00323000 AVTRNMPT EQU IEDQAVTD+424 00324000 AVTHG02 EQU IEDQAVTD+528 00325000 AVTDISP EQU IEDQAVTD+552 00326000 AVTHD EQU IEDQAVTD+556 00327000 AVTSCOPT EQU AVTHD 00328000 AVTSAVTP EQU IEDQAVTD+612 00329000 AVTSAVTF EQU AVTSAVTP 00330000 AVTCKPEL EQU IEDQAVTD+652 00331000 AVTCKRMV EQU AVTCKPEL 00332000 AVTCKELF EQU IEDQAVTD+680 00333000 AVTCKBYT EQU IEDQAVTD+691 00334000 AVTHG01 EQU IEDQAVTD+692 00335000 AVTCKLNK EQU IEDQAVTD+696 00336000 AVTCRELE EQU IEDQAVTD+708 00337000 AVTCCELE EQU AVTCRELE 00338000 AVTCLRHI EQU IEDQAVTD+716 00339000 AVTADBUF EQU IEDQAVTD+720 00340000 AVTSYSER EQU IEDQAVTD+728 00341000 AVTCKPQB EQU IEDQAVTD+804 00342000 AVTCKPTB EQU AVTCKPQB 00343000 AVTCKPEC EQU AVTCKPQB+4 00344000 AVTCKPCC EQU AVTCKPEC 00345000 AVTOPCQB EQU IEDQAVTD+816 00346000 AVTOPCOB EQU AVTOPCQB 00347000 AVTOPCEC EQU AVTOPCQB+4 00348000 AVTOPCCC EQU AVTOPCEC 00349000 AVTOLTQB EQU IEDQAVTD+828 00350000 AVTCWFL1 EQU IEDQAVTD+924 00351000 AVTCWFL2 EQU IEDQAVTD+925 00352000 AVTSUBT EQU IEDQAVTD+948 00353000 AVTIOTR EQU IEDQAVTD+949 00354000 AVTBIT1 EQU IEDQAVTD+1050 00355000 AVTBIT2 EQU IEDQAVTD+1051 00356000 AVTBIT3 EQU IEDQAVTD+1052 00357000 AVTBIT4 EQU IEDQAVTD+1136 00358000 @NM00083 EQU IEDQAVTD+1232 00359000 IEDNSVTD EQU 0 00360000 SAVTDIAG EQU IEDNSVTD 00361000 SAVTDIAF EQU SAVTDIAG 00362000 SAVTLUSQ EQU IEDNSVTD+88 00363000 SAVTTCPU EQU IEDNSVTD+238 00364000 SAVTTNTX EQU IEDNSVTD+252 00365000 SAVTZELM EQU IEDNSVTD+270 00366000 SAVTRDRV EQU IEDNSVTD+284 00367000 SAVTCKQB EQU IEDNSVTD+300 00368000 SAVTCKTB EQU SAVTCKQB 00369000 SAVTCKEC EQU SAVTCKQB+4 00370000 SAVTCKCC EQU SAVTCKEC 00371000 IEDQOPCD EQU 0 00372000 OPCAVTPT EQU IEDQOPCD+8 00373000 OPCCOPCE EQU IEDQOPCD+12 00374000 OPCSAVE EQU IEDQOPCD+56 00375000 OPCWORK EQU IEDQOPCD+140 00376000 OPCAQCTL EQU IEDQOPCD+180 00377000 OPCXCTL EQU IEDQOPCD+204 00378000 OPCLDNME EQU IEDQOPCD+212 00379000 OPCMODID EQU OPCLDNME+3 00380000 OPCWAITP EQU IEDQOPCD+236 00381000 OPCHORT EQU IEDQOPCD+256 00382000 OPCGETBF EQU IEDQOPCD+276 00383000 OPCFREBF EQU IEDQOPCD+280 00384000 OPCSPEC EQU IEDQOPCD+300 00385000 IEDQOPCE EQU 0 00386000 OCLINK EQU IEDQOPCE 00387000 OCELEM EQU IEDQOPCE+4 00388000 OCUNIT EQU IEDQOPCE+8 00389000 OCRUDEST EQU OCUNIT 00390000 OCCKPKEY EQU OCRUDEST 00391000 OCSCAN EQU OCCKPKEY 00392000 OCOPTCDE EQU IEDQOPCE+12 00393000 OCSWITCH EQU IEDQOPCE+13 00394000 OCFLAG EQU IEDQOPCE+14 00395000 OCRESP EQU OCFLAG 00396000 @NM00118 EQU IEDQOPCE+16 00397000 OCDEST EQU @NM00118 00398000 OCREQVAL EQU OCDEST+1 00399000 OCTRMTBL EQU IEDQOPCE+20 00400000 OCLINENO EQU IEDQOPCE+22 00401000 OCTIOT EQU OCLINENO 00402000 OCWTGB EQU OCTIOT 00403000 OCTRUNIT EQU IEDQOPCE+24 00404000 OCRSID EQU OCTRUNIT 00405000 OCALSTAT EQU OCRSID 00406000 OCPARM EQU IEDQOPCE+28 00407000 OCWTG EQU IEDQOPCE+30 00408000 OCBACKUP EQU IEDQOPCE+32 00409000 OCMODNME EQU IEDQOPCE+40 00410000 OCIPLWA EQU OCMODNME 00411000 OCPUADR EQU OCIPLWA+2 00412000 OCCKDATA EQU IEDQOPCE+48 00413000 OCRSTGTM EQU OCCKDATA 00414000 IEDQOPCN EQU 0 00415000 OCLDNME EQU IEDQOPCN 00416000 OCLINTTE EQU OCLDNME 00417000 OCREQFLG EQU OCLINTTE+2 00418000 OCPREFLG EQU OCLINTTE+3 00419000 IEDPRUQD EQU 0 00420000 PRUTTCIN EQU IEDPRUQD 00421000 PRUDATCT EQU IEDPRUQD+2 00422000 PRUTIC EQU IEDPRUQD+8 00423000 PRUDATA EQU IEDPRUQD+12 00424000 IEDPRUQP EQU 0 00425000 IEDPRUND EQU 0 00426000 PRURHTH EQU IEDPRUND 00427000 PRURH EQU PRURHTH 00428000 PRURHFG0 EQU PRURH 00429000 PRURHSDI EQU PRURHFG0 00430000 PRURHFG1 EQU PRURH+1 00431000 PRURHFG2 EQU PRURH+2 00432000 PRUTH EQU PRURHTH+3 00433000 PRUFIDN EQU PRUTH 00434000 IEDQTRM EQU 0 00435000 TRMSTATE EQU IEDQTRM 00436000 TRMLOG EQU TRMSTATE 00437000 TRMINSEQ EQU IEDQTRM+4 00438000 TLISTCNT EQU TRMINSEQ 00439000 TRMOUTSQ EQU IEDQTRM+6 00440000 TLISTEN EQU TRMOUTSQ 00441000 TRMDSORG EQU TLISTEN 00442000 TRMALTD EQU IEDQTRM+8 00443000 TRMDEVFL EQU IEDQTRM+10 00444000 TRMSTAT EQU IEDQTRM+12 00445000 IEDNTRM EQU 0 00446000 TRMBYTE4 EQU IEDNTRM 00447000 TRMBYTE3 EQU IEDNTRM+1 00448000 TRMBYTE2 EQU IEDNTRM+2 00449000 TRMINPG EQU TRMBYTE2 00450000 TRMBYTE1 EQU IEDNTRM+3 00451000 TRMSCPRQ EQU TRMBYTE1 00452000 TRMBYTE0 EQU IEDNTRM+6 00453000 TRMSIBPT EQU IEDNTRM+7 00454000 TRMTYPE EQU IEDNTRM+11 00455000 IEDXDSCD EQU 0 00456000 XDSCCMD EQU IEDXDSCD 00457000 XDSCCODE EQU XDSCCMD 00458000 XDSCADDR EQU XDSCCMD+3 00459000 XDSCPTR EQU 0 00460000 ALLOCBUF EQU 0 00461000 COHORTLK EQU 0 00462000 FREEBUF EQU 0 00463000 IEDIAP04 EQU 0 00464000 IEDQTNT EQU 0 00465000 WORKAREA EQU 0 00466000 WKSAVE1 EQU WORKAREA 00467000 WKSAVE2 EQU WORKAREA+4 00468000 WKCURRNT EQU WORKAREA+8 00469000 WKPREV EQU WORKAREA+12 00470000 WKSWITCH EQU WORKAREA+16 00471000 WKFNDSW EQU WKSWITCH 00472000 IEDQPPTR EQU 0 00473000 OPCAQWD EQU OPCAQCTL 00474000 OPCAQWD1 EQU OPCAQWD 00475000 OPCAQWD2 EQU OPCAQWD+4 00476000 OPCAQWD3 EQU OPCAQWD+8 00477000 OCCKPKY1 EQU OCCKPKEY 00478000 OCCKPTYP EQU OCCKPKY1 00479000 OCICACTN EQU OCMODNME 00480000 OCICDADR EQU OCICACTN 00481000 OCICSW EQU OCICDADR+3 00482000 TRMPRE1 EQU TRMBYTE4 00483000 TRMPRE EQU TRMBYTE3 00484000 TRMNCP EQU TRMBYTE3 00485000 TRMPU EQU TRMBYTE3 00486000 TRMPCONT EQU TRMPU 00487000 TRMLU EQU TRMBYTE3 00488000 TRMLINK EQU TRMBYTE3 00489000 OCCIB EQU OCREQVAL 00490000 TRMOPT EQU IEDQTRM+20 00491000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00492000 @NM00141 EQU TRMLINK 00493000 TRMLSTAT EQU TRMLINK 00494000 TRMLINT EQU TRMLINK 00495000 TRMEPMOD EQU TRMLINK 00496000 TRMLULOG EQU TRMLU 00497000 TRMINERR EQU TRMLU 00498000 TRMLUREQ EQU TRMLU 00499000 TRMSESRQ EQU TRMLU 00500000 TRMTDIFF EQU TRMLU 00501000 TRMLUTM EQU TRMLU 00502000 TRMLUIT EQU TRMLU 00503000 TRMAUTO EQU TRMLU 00504000 @NM00140 EQU TRMPU 00505000 TRMNCONT EQU TRMNCP 00506000 TRMQUCKN EQU TRMNCP 00507000 TRMSLOWN EQU TRMNCP 00508000 TRMSYGEN EQU TRMNCP 00509000 TRMNCPCL EQU TRMNCP 00510000 TRMIPLDM EQU TRMNCP 00511000 TRMINOUT EQU TRMPRE 00512000 TRMRDOUT EQU TRMPRE 00513000 TRMNLOUT EQU TRMPRE 00514000 TRMWROUT EQU TRMPRE 00515000 TRMASNXI EQU TRMPRE 00516000 TRMSTMM EQU TRMPRE 00517000 TRMCMODE EQU TRMPRE 00518000 TRMSTPND EQU TRMPRE 00519000 TRMLYNCH EQU TRMPRE1 00520000 TRMSPOUT EQU TRMPRE1 00521000 TRMERLCK EQU TRMPRE1 00522000 TRMQNPL EQU TRMPRE1 00523000 TRMSPACT EQU TRMPRE1 00524000 TRMOCNI EQU TRMPRE1 00525000 TRMSESSN EQU TRMPRE1 00526000 TRMCONT EQU TRMPRE1 00527000 OCICINAC EQU OCICSW 00528000 @NM00124 EQU OCICSW 00529000 OCICATST EQU OCICDADR+1 00530000 OCICTYPE EQU OCICDADR 00531000 @NM00123 EQU OCCKPKY1 00532000 OCCKPENV EQU OCCKPKY1 00533000 OCCKPRST EQU OCCKPTYP 00534000 OCCKPNCP EQU OCCKPTYP 00535000 OCCKPINC EQU OCCKPTYP 00536000 OPCAQLST EQU OPCAQWD3+1 00537000 OPCAQRQ3 EQU OPCAQWD3 00538000 OPCAQSEC EQU OPCAQWD2+1 00539000 OPCAQRQ2 EQU OPCAQWD2 00540000 OPCAQFST EQU OPCAQWD1+1 00541000 OPCAQREQ EQU OPCAQWD1 00542000 @NM00142 EQU WKSWITCH 00543000 XDSCREQ EQU XDSCCODE+2 00544000 XDSCCONF EQU XDSCCODE+1 00545000 XDSCNETS EQU XDSCCODE 00546000 TRMSUBST EQU IEDNTRM+12 00547000 TRMRLMCT EQU IEDNTRM+10 00548000 TRMCOHTG EQU TRMSIBPT+1 00549000 TRMGPCNT EQU TRMSIBPT 00550000 TRMBUFRD EQU TRMBYTE0 00551000 TRMSNA EQU TRMBYTE0 00552000 TRMGP EQU TRMBYTE0 00553000 TRMDIAL EQU TRMBYTE0 00554000 @NM00139 EQU TRMBYTE0 00555000 TRMOUTPT EQU TRMBYTE0 00556000 TRMINPUT EQU TRMBYTE0 00557000 TRMUDEF EQU TRMBYTE0 00558000 TRMCOHRT EQU IEDNTRM+4 00559000 TRMSTOTE EQU TRMBYTE1 00560000 TRMCKPRN EQU TRMBYTE1 00561000 TRMTSATN EQU TRMBYTE1 00562000 TRMTRACE EQU TRMBYTE1 00563000 TRMSWBCK EQU TRMBYTE1 00564000 TRMAUTOC EQU TRMBYTE1 00565000 TRMINPTP EQU TRMBYTE1 00566000 TRMWTNEG EQU TRMSCPRQ 00567000 TRMWRBRK EQU TRMBYTE2 00568000 TRMNOSND EQU TRMBYTE2 00569000 TRMPREP EQU TRMBYTE2 00570000 TRMGPACT EQU TRMBYTE2 00571000 TRMANDL EQU TRMBYTE2 00572000 TRMCLOSN EQU TRMINPG 00573000 TRMREMB EQU TRMBYTE2 00574000 TRMRSACT EQU TRMBYTE2 00575000 TRMOPTBL EQU IEDQTRM+18 00576000 TRMOPNO EQU IEDQTRM+17 00577000 TRMCHCIN EQU IEDQTRM+16 00578000 TRMSENSE EQU TRMSTAT+3 00579000 TRMTEMPR EQU TRMSTAT+2 00580000 TRMSIO EQU TRMSTAT 00581000 @NM00138 EQU TRMDEVFL+1 00582000 TRMTPIN EQU TRMDEVFL+1 00583000 TRMNCPI EQU TRMDEVFL+1 00584000 TRMRNTRM EQU TRMDEVFL+1 00585000 @NM00137 EQU TRMDEVFL+1 00586000 TRMLMD EQU TRMDEVFL+1 00587000 TRMCONC EQU TRMDEVFL+1 00588000 TRMTSOB EQU TRMDEVFL 00589000 TRMBFDY EQU TRMDEVFL 00590000 TRMTBLK EQU TRMDEVFL 00591000 TRMSBLK EQU TRMDEVFL 00592000 TRMBLKS EQU TRMDEVFL 00593000 TRMADDC EQU TRMDEVFL 00594000 TRMDDIG EQU TRMDEVFL 00595000 TRMBUFS EQU TRMDEVFL 00596000 TRMPRILK EQU TRMALTD 00597000 TRMLGB EQU TRMDSORG 00598000 TRMUTERM EQU TLISTCNT 00599000 TRMDESTQ EQU IEDQTRM+1 00600000 TRMSCNYN EQU TRMSTATE 00601000 TRMOPTFN EQU TRMSTATE 00602000 TRMHELDN EQU TRMSTATE 00603000 TRMACPTN EQU TRMSTATE 00604000 TRMPREF EQU TRMSTATE 00605000 TRMPROC EQU TRMLOG 00606000 TRMLIST EQU TRMLOG 00607000 TRMLINE EQU TRMSTATE 00608000 @NM00136 EQU IEDPRUND+4 00609000 PRUTHEFI EQU PRUFIDN 00610000 PRUTHUSS EQU PRUFIDN 00611000 PRUTHEIU EQU PRUFIDN 00612000 PRUTHBIU EQU PRUFIDN 00613000 PRUTHTYE EQU PRUFIDN 00614000 @NM00135 EQU PRURHFG2 00615000 PRURHCSI EQU PRURHFG2 00616000 @NM00134 EQU PRURHFG2 00617000 PRURHCDI EQU PRURHFG2 00618000 PRURHEB EQU PRURHFG2 00619000 PRURHBB EQU PRURHFG2 00620000 PRURHPI EQU PRURHFG1 00621000 @NM00133 EQU PRURHFG1 00622000 PRURHER EQU PRURHFG1 00623000 PRURHDR2 EQU PRURHFG1 00624000 @NM00132 EQU PRURHFG1 00625000 PRURHDR1 EQU PRURHFG1 00626000 PRURHEC EQU PRURHFG0 00627000 PRURHBC EQU PRURHFG0 00628000 PRURHFI EQU PRURHFG0 00629000 @NM00131 EQU PRURHFG0 00630000 PRURUCAT EQU PRURHFG0 00631000 PRURHTYP EQU PRURHFG0 00632000 PRUNUNIT EQU PRUTIC+1 00633000 @NM00130 EQU PRUTIC 00634000 @NM00129 EQU IEDPRUQD+4 00635000 @NM00128 EQU OCLDNME+4 00636000 @NM00127 EQU OCPREFLG 00637000 OCTOTEP EQU OCPREFLG 00638000 OCREPOST EQU OCPREFLG 00639000 OCRSPSNT EQU OCPREFLG 00640000 OCBFREQ EQU OCPREFLG 00641000 OCIDLE EQU OCREQFLG 00642000 OCFORCE EQU OCREQFLG 00643000 OCDCARD EQU OCREQFLG 00644000 OCPARTAL EQU OCREQFLG 00645000 OCADNCP EQU OCREQFLG 00646000 @NM00126 EQU OCREQFLG 00647000 @NM00125 EQU OCREQFLG 00648000 OCFLUSHZ EQU OCREQFLG 00649000 OCRESPCT EQU OCLINTTE 00650000 OCCKPTWA EQU OCCKDATA+4 00651000 @NM00122 EQU OCRSTGTM+2 00652000 OCCKDAT2 EQU OCRSTGTM+1 00653000 OCCKDAT1 EQU OCRSTGTM 00654000 OCPTRSAV EQU OCMODNME+4 00655000 OCWTGSAV EQU OCIPLWA 00656000 OCDVRDCT EQU OCBACKUP+6 00657000 OCNCP EQU OCBACKUP+4 00658000 OCBUFGOT EQU OCBACKUP+2 00659000 OCBUFNED EQU OCBACKUP 00660000 OCRESNUM EQU OCPARM 00661000 OCSEQ EQU OCTRUNIT+2 00662000 @NM00121 EQU OCRSID+1 00663000 OCNONE EQU OCALSTAT 00664000 OCSOME EQU OCALSTAT 00665000 OCALLFLG EQU OCALSTAT 00666000 OCACTREQ EQU OCALSTAT 00667000 OCREDRVE EQU OCALSTAT 00668000 OCSEQIND EQU OCALSTAT 00669000 @NM00120 EQU OCALSTAT 00670000 OCRENTRD EQU OCALSTAT 00671000 @NM00119 EQU @NM00118+2 00672000 OCCONID EQU OCDEST 00673000 OCRLN EQU IEDQOPCE+15 00674000 OCATTACH EQU OCFLAG 00675000 OCSSCP EQU OCFLAG 00676000 OCOUTPUT EQU OCFLAG 00677000 OCLINE EQU OCFLAG 00678000 OCMPP EQU OCFLAG 00679000 OCTOTE EQU OCFLAG 00680000 OCCONSOL EQU OCFLAG 00681000 @NM00117 EQU OCSWITCH 00682000 OCQUCKN EQU OCSWITCH 00683000 OCPRIFLG EQU OCOPTCDE 00684000 @NM00116 EQU OCRUDEST+1 00685000 @NM00115 EQU OCSCAN 00686000 OCNOTUCB EQU OCSCAN 00687000 OCNONAME EQU OCSCAN 00688000 OCALLRLN EQU OCSCAN 00689000 OCDDNAME EQU OCSCAN 00690000 OCDDNRLN EQU OCSCAN 00691000 OCADDR EQU OCSCAN 00692000 OCELMPTR EQU OCELEM+1 00693000 OCELMPRI EQU OCELEM 00694000 OPCBOTTM EQU IEDQOPCD+1172 00695000 @NM00114 EQU IEDQOPCD+1088 00696000 @NM00113 EQU IEDQOPCD+936 00697000 @NM00112 EQU IEDQOPCD+928 00698000 @NM00111 EQU IEDQOPCD+368 00699000 OPCWAITV EQU IEDQOPCD+364 00700000 OPCTOTCK EQU IEDQOPCD+360 00701000 OPCAPXTL EQU IEDQOPCD+356 00702000 OPCDECR EQU IEDQOPCD+352 00703000 OPCBUFWT EQU IEDQOPCD+348 00704000 OPCWRKSP EQU IEDQOPCD+320 00705000 OPCADGOT EQU IEDQOPCD+318 00706000 OPCRQCNT EQU IEDQOPCD+316 00707000 OPPOLSTP EQU IEDQOPCD+312 00708000 OPCCKCIB EQU IEDQOPCD+308 00709000 OPCEND EQU IEDQOPCD+307 00710000 OPCSTCBS EQU IEDQOPCD+306 00711000 OPCHNEND EQU IEDQOPCD+302 00712000 OPCOQSW EQU IEDQOPCD+301 00713000 @NM00110 EQU OPCSPEC 00714000 @NM00109 EQU OPCSPEC 00715000 @NM00108 EQU OPCSPEC 00716000 @NM00107 EQU OPCSPEC 00717000 OPCFRMCA EQU OPCSPEC 00718000 OPCRSTRT EQU OPCSPEC 00719000 OPCPART EQU OPCSPEC 00720000 OPCALTD EQU OPCSPEC 00721000 OPCBFEND EQU IEDQOPCD+296 00722000 OPCBFIRS EQU IEDQOPCD+292 00723000 OPCAVBUF EQU IEDQOPCD+290 00724000 @NM00106 EQU IEDQOPCD+289 00725000 OPCCLNTS EQU IEDQOPCD+288 00726000 OPCHA8 EQU IEDQOPCD+286 00727000 OPCBFREQ EQU IEDQOPCD+284 00728000 OPCNEXT EQU IEDQOPCD+272 00729000 OPCFMDFC EQU IEDQOPCD+268 00730000 OPCSCNC EQU IEDQOPCD+264 00731000 OPCHORTG EQU IEDQOPCD+260 00732000 OPCCKPTL EQU IEDQOPCD+252 00733000 OPCCKPTF EQU IEDQOPCD+248 00734000 OPCWAITA EQU IEDQOPCD+244 00735000 OPCWAITR EQU IEDQOPCD+240 00736000 OPCWAITO EQU IEDQOPCD+232 00737000 OPCWAITN EQU IEDQOPCD+228 00738000 OPCWAITL EQU IEDQOPCD+224 00739000 OPCWAITC EQU IEDQOPCD+220 00740000 @NM00105 EQU OPCLDNME+5 00741000 @NM00104 EQU OPCLDNME 00742000 OPCWAIT EQU IEDQOPCD+192 00743000 OPCCKERB EQU IEDQOPCD+164 00744000 OPCBFERB EQU IEDQOPCD+148 00745000 OPCFLAG2 EQU IEDQOPCD+147 00746000 OPCFLAG1 EQU IEDQOPCD+146 00747000 OPCWRKSZ EQU IEDQOPCD+144 00748000 OPCRSAVE EQU IEDQOPCD+132 00749000 OPCQCBAD EQU IEDQOPCD+128 00750000 OPCTRMWA EQU IEDQOPCD+52 00751000 OPCPSTWT EQU IEDQOPCD+48 00752000 OPCTNTEA EQU IEDQOPCD+44 00753000 OPCPGCK EQU IEDQOPCD+40 00754000 OPCLCB EQU IEDQOPCD+36 00755000 @NM00103 EQU IEDQOPCD+32 00756000 OPCIPLAD EQU IEDQOPCD+28 00757000 OPCTOFLK EQU IEDQOPCD+24 00758000 OPCOPTLK EQU IEDQOPCD+20 00759000 OPCDCBLK EQU IEDQOPCD+16 00760000 OPCDOUBL EQU IEDQOPCD 00761000 SAVTBITN EQU IEDNSVTD+312 00762000 @NM00102 EQU SAVTCKQB+8 00763000 @NM00101 EQU SAVTCKEC+1 00764000 @NM00100 EQU SAVTCKCC 00765000 SAVTCKPO EQU SAVTCKCC 00766000 SAVTCKWA EQU SAVTCKCC 00767000 SAVTCKCH EQU SAVTCKTB+1 00768000 SAVTCKVT EQU SAVTCKTB 00769000 @NM00099 EQU IEDNSVTD+297 00770000 SAVTRDFG EQU SAVTRDRV+12 00771000 @NM00098 EQU SAVTRDRV+5 00772000 SAVTRDPY EQU SAVTRDRV+4 00773000 SAVTRDQB EQU SAVTRDRV+1 00774000 SAVTRDKY EQU SAVTRDRV 00775000 SAVTNID EQU IEDNSVTD+280 00776000 SAVTDVAS EQU IEDNSVTD+276 00777000 SAVTPLSZ EQU IEDNSVTD+274 00778000 @NM00097 EQU IEDNSVTD+273 00779000 SAVTSUBL EQU IEDNSVTD+272 00780000 @NM00096 EQU SAVTZELM+1 00781000 SAVTSUBM EQU SAVTZELM 00782000 SAVTMHDX EQU IEDNSVTD+268 00783000 SAVTNAT1 EQU IEDNSVTD+266 00784000 SAVTSH20 EQU IEDNSVTD+264 00785000 SAVTLCBS EQU IEDNSVTD+260 00786000 SAVTRNMP EQU IEDNSVTD+256 00787000 SAVTNAX EQU IEDNSVTD+248 00788000 SAVTSUBV EQU IEDNSVTD+247 00789000 SAVTSUBA EQU IEDNSVTD+246 00790000 SAVTSIBC EQU IEDNSVTD+244 00791000 SAVTBSM EQU IEDNSVTD+240 00792000 SAVTSCPT EQU SAVTTCPU 00793000 SAVTRQTG EQU IEDNSVTD+236 00794000 SAVTRQCH EQU IEDNSVTD+232 00795000 SAVTMAND EQU IEDNSVTD+228 00796000 SAVTSPLN EQU IEDNSVTD+224 00797000 SAVTNADL EQU IEDNSVTD+222 00798000 SAVTNATL EQU IEDNSVTD+220 00799000 SAVTMHTB EQU IEDNSVTD+216 00800000 SAVTSSMH EQU IEDNSVTD+212 00801000 SAVTQRS EQU IEDNSVTD+208 00802000 SAVTRQIN EQU IEDNSVTD+204 00803000 SAVTDFCO EQU IEDNSVTD+200 00804000 SAVTSAO EQU IEDNSVTD+196 00805000 SAVTSARI EQU IEDNSVTD+192 00806000 SAVTSAC EQU IEDNSVTD+188 00807000 SAVTSAI EQU IEDNSVTD+184 00808000 SAVTCSCI EQU IEDNSVTD+180 00809000 SAVTSSRP EQU IEDNSVTD+176 00810000 SAVTSSRQ EQU IEDNSVTD+172 00811000 SAVTSCLU EQU IEDNSVTD+168 00812000 SAVTXTRQ EQU IEDNSVTD+164 00813000 SAVTMVBF EQU IEDNSVTD+160 00814000 @NM00095 EQU IEDNSVTD+148 00815000 SAVTIPCQ EQU IEDNSVTD+144 00816000 @NM00094 EQU IEDNSVTD+136 00817000 SAVTXFMI EQU IEDNSVTD+132 00818000 @NM00093 EQU IEDNSVTD+124 00819000 SAVTXFMO EQU IEDNSVTD+120 00820000 @NM00092 EQU IEDNSVTD+116 00821000 SAVTSSSR EQU IEDNSVTD+112 00822000 SAVTSCPQ EQU IEDNSVTD+108 00823000 SAVTSLCB EQU IEDNSVTD+104 00824000 SAVTLUSR EQU IEDNSVTD+100 00825000 @NM00091 EQU SAVTLUSQ+8 00826000 SAVTLUSP EQU SAVTLUSQ+4 00827000 SAVTLUSB EQU SAVTLUSQ 00828000 @NM00090 EQU IEDNSVTD+84 00829000 SAVTSAT EQU IEDNSVTD+80 00830000 SAVTNAT EQU IEDNSVTD+76 00831000 SAVTCLUP EQU IEDNSVTD+72 00832000 SAVTPIUT EQU IEDNSVTD+68 00833000 SAVTRNTA EQU IEDNSVTD+64 00834000 SAVTDNIR EQU IEDNSVTD+60 00835000 SAVTCNIR EQU IEDNSVTD+56 00836000 SAVTFLDH EQU IEDNSVTD+52 00837000 SAVTSRTN EQU IEDNSVTD+48 00838000 SAVTSREQ EQU IEDNSVTD+44 00839000 SAVTFAIL EQU IEDNSVTD+42 00840000 SAVTSUSE EQU IEDNSVTD+40 00841000 SAVTSIB EQU IEDNSVTD+36 00842000 SAVTPRTN EQU IEDNSVTD+32 00843000 @NM00089 EQU IEDNSVTD+28 00844000 SAVTWH20 EQU IEDNSVTD+26 00845000 SAVTPWT EQU IEDNSVTD+24 00846000 SAVTPRTQ EQU IEDNSVTD+20 00847000 SAVTPREQ EQU IEDNSVTD+16 00848000 SAVTPH20 EQU IEDNSVTD+14 00849000 SAVTPUSE EQU IEDNSVTD+12 00850000 SAVTPLCB EQU IEDNSVTD+8 00851000 SAVTPOOL EQU IEDNSVTD+4 00852000 SAVTPRMT EQU SAVTDIAF 00853000 SAVTVIRT EQU SAVTDIAF 00854000 AVTCPBNO EQU IEDQAVTD+1244 00855000 AVTHRESS EQU IEDQAVTD+1243 00856000 @NM00088 EQU IEDQAVTD+1242 00857000 @NM00087 EQU IEDQAVTD+1241 00858000 @NM00086 EQU IEDQAVTD+1240 00859000 @NM00085 EQU IEDQAVTD+1237 00860000 @NM00084 EQU IEDQAVTD+1236 00861000 AVTHRESE EQU @NM00083 00862000 AVTRADDR EQU IEDQAVTD+1228 00863000 AVTNADDR EQU IEDQAVTD+1224 00864000 AVTHRESN EQU IEDQAVTD+1220 00865000 AVTVOLRN EQU IEDQAVTD+1216 00866000 AVTTOTNN EQU IEDQAVTD+1212 00867000 AVTTRCYN EQU IEDQAVTD+1208 00868000 AVTRCTRN EQU IEDQAVTD+1204 00869000 AVTNOVON EQU IEDQAVTD+1200 00870000 AVTADEBN EQU IEDQAVTD+1196 00871000 AVTVOLRR EQU IEDQAVTD+1192 00872000 AVTTOTNR EQU IEDQAVTD+1188 00873000 AVTTRCYR EQU IEDQAVTD+1184 00874000 AVTRCTRR EQU IEDQAVTD+1180 00875000 AVTNOVOR EQU IEDQAVTD+1176 00876000 AVTADEBR EQU IEDQAVTD+1172 00877000 AVTLODPT EQU IEDQAVTD+1168 00878000 AVTIOBN EQU IEDQAVTD+1164 00879000 AVTIOBR EQU IEDQAVTD+1160 00880000 AVTCPBPT EQU IEDQAVTD+1156 00881000 AVTFCPB EQU IEDQAVTD+1152 00882000 @NM00082 EQU IEDQAVTD+1148 00883000 AVTINCPQ EQU IEDQAVTD+1144 00884000 @NM00081 EQU IEDQAVTD+1140 00885000 @NM00080 EQU IEDQAVTD+1137 00886000 @NM00079 EQU AVTBIT4 00887000 @NM00078 EQU AVTBIT4 00888000 @NM00077 EQU AVTBIT4 00889000 @NM00076 EQU AVTBIT4 00890000 @NM00075 EQU AVTBIT4 00891000 @NM00074 EQU AVTBIT4 00892000 @NM00073 EQU AVTBIT4 00893000 AVTRUFTN EQU AVTBIT4 00894000 @NM00072 EQU IEDQAVTD+1132 00895000 AVTNOBFQ EQU IEDQAVTD+1128 00896000 @NM00071 EQU IEDQAVTD+1124 00897000 AVTDKENQ EQU IEDQAVTD+1120 00898000 @NM00070 EQU IEDQAVTD+1116 00899000 AVTDKAPQ EQU IEDQAVTD+1112 00900000 AVTCOPY EQU IEDQAVTD+1108 00901000 AVTIA EQU IEDQAVTD+1104 00902000 AVTFL EQU IEDQAVTD+1100 00903000 @NM00069 EQU IEDQAVTD+1096 00904000 AVTNCPBQ EQU IEDQAVTD+1092 00905000 AVTTOTNC EQU IEDQAVTD+1088 00906000 AVTCMAX EQU IEDQAVTD+1084 00907000 AVTCMIN EQU IEDQAVTD+1080 00908000 AVTHM02 EQU IEDQAVTD+1076 00909000 AVTOPCIN EQU IEDQAVTD+1074 00910000 AVTDCTLN EQU IEDQAVTD+1072 00911000 AVTOPMSK EQU IEDQAVTD+1068 00912000 AVTDDFT EQU IEDQAVTD+1064 00913000 AVTSTEAL EQU IEDQAVTD+1060 00914000 AVTOPTN EQU IEDQAVTD+1056 00915000 AVTDSKCT EQU IEDQAVTD+1054 00916000 AVTCKRST EQU IEDQAVTD+1053 00917000 AVTSTAN EQU AVTBIT3 00918000 AVTSTACN EQU AVTBIT3 00919000 AVTSTAIN EQU AVTBIT3 00920000 AVTSTAYN EQU AVTBIT3 00921000 AVTOLTBN EQU AVTBIT3 00922000 AVTTSAB EQU AVTBIT3 00923000 AVTRFULN EQU AVTBIT3 00924000 AVTRECVN EQU AVTBIT3 00925000 @NM00068 EQU AVTBIT2 00926000 @NM00067 EQU AVTBIT2 00927000 AVTOPEIN EQU AVTBIT2 00928000 AVTSTRTN EQU AVTBIT2 00929000 AVTTOPOL EQU AVTBIT2 00930000 AVTCOPYN EQU AVTBIT2 00931000 AVTREUSN EQU AVTBIT2 00932000 AVTEXTSC EQU AVTBIT2 00933000 AVTDISKN EQU AVTBIT1 00934000 AVTQUCKN EQU AVTBIT1 00935000 AVTCLOSN EQU AVTBIT1 00936000 AVTREADN EQU AVTBIT1 00937000 AVTDLAYN EQU AVTBIT1 00938000 AVTAQTAN EQU AVTBIT1 00939000 AVTTSON EQU AVTBIT1 00940000 AVTAPLKN EQU AVTBIT1 00941000 AVTDUMBR EQU IEDQAVTD+1048 00942000 AVTDLQX EQU IEDQAVTD+1046 00943000 AVTINTLV EQU IEDQAVTD+1044 00944000 AVTSMCNT EQU IEDQAVTD+1042 00945000 AVTAVFCT EQU IEDQAVTD+1040 00946000 AVTOPCON EQU IEDQAVTD+1038 00947000 AVTOPCNT EQU IEDQAVTD+1036 00948000 AVTLNCNT EQU IEDQAVTD+1034 00949000 AVTKEYLE EQU IEDQAVTD+1032 00950000 AVTHA16 EQU IEDQAVTD+1030 00951000 AVTHA7 EQU IEDQAVTD+1028 00952000 AVTHA4 EQU IEDQAVTD+1026 00953000 AVTHA3 EQU IEDQAVTD+1024 00954000 AVTHA2 EQU IEDQAVTD+1022 00955000 AVTGETMS EQU IEDQAVTD+1021 00956000 @NM00066 EQU IEDQAVTD+1020 00957000 AVTGETMD EQU IEDQAVTD+1016 00958000 AVTGETMN EQU IEDQAVTD+1012 00959000 AVTCWTOT EQU IEDQAVTD+1008 00960000 AVTCWINT EQU IEDQAVTD+956 00961000 AVTDTRAP EQU IEDQAVTD+952 00962000 @NM00065 EQU IEDQAVTD+950 00963000 @NM00064 EQU AVTIOTR 00964000 AVTIOTRH EQU AVTIOTR 00965000 AVTIOTRE EQU AVTIOTR 00966000 @NM00063 EQU AVTSUBT 00967000 AVTSUBPT EQU AVTSUBT 00968000 AVTSUBON EQU AVTSUBT 00969000 AVTAFE30 EQU IEDQAVTD+944 00970000 AVTAFE20 EQU IEDQAVTD+940 00971000 AVTAFE10 EQU IEDQAVTD+936 00972000 AVTCWEC2 EQU IEDQAVTD+932 00973000 AVTCWPM2 EQU IEDQAVTD+928 00974000 AVTCWTS2 EQU IEDQAVTD+927 00975000 AVTCWTS1 EQU IEDQAVTD+926 00976000 AVTCWCLD EQU AVTCWFL2 00977000 AVTCWRAP EQU AVTCWFL2 00978000 @NM00062 EQU AVTCWFL2 00979000 @NM00061 EQU AVTCWFL2 00980000 @NM00060 EQU AVTCWFL2 00981000 @NM00059 EQU AVTCWFL2 00982000 @NM00058 EQU AVTCWFL2 00983000 AVTCWACT EQU AVTCWFL2 00984000 @NM00057 EQU AVTCWFL1 00985000 @NM00056 EQU AVTCWFL1 00986000 @NM00055 EQU AVTCWFL1 00987000 @NM00054 EQU AVTCWFL1 00988000 @NM00053 EQU AVTCWFL1 00989000 @NM00052 EQU AVTCWFL1 00990000 @NM00051 EQU AVTCWFL1 00991000 AVTCOMWN EQU AVTCWFL1 00992000 AVTCWEC1 EQU IEDQAVTD+920 00993000 AVTCWPM1 EQU IEDQAVTD+916 00994000 AVTCAREA EQU IEDQAVTD+912 00995000 AVTFZERO EQU IEDQAVTD+908 00996000 AVTCADDR EQU IEDQAVTD+904 00997000 AVTCOREC EQU IEDQAVTD+900 00998000 @NM00050 EQU IEDQAVTD+892 00999000 AVTCPBCB EQU IEDQAVTD+888 01000000 @NM00049 EQU IEDQAVTD+880 01001000 AVTDSIOB EQU IEDQAVTD+876 01002000 @NM00048 EQU IEDQAVTD+868 01003000 AVTCPRMB EQU IEDQAVTD+864 01004000 @NM00047 EQU IEDQAVTD+856 01005000 AVTCLOSB EQU IEDQAVTD+852 01006000 @NM00046 EQU IEDQAVTD+844 01007000 AVTACTIB EQU IEDQAVTD+840 01008000 @NM00045 EQU IEDQAVTD+836 01009000 AVTOLTEB EQU IEDQAVTD+832 01010000 AVTOLTCH EQU AVTOLTQB+1 01011000 AVTOLTVT EQU AVTOLTQB 01012000 @NM00044 EQU AVTOPCQB+8 01013000 @NM00043 EQU AVTOPCEC+1 01014000 @NM00042 EQU AVTOPCCC 01015000 AVTOPCPO EQU AVTOPCCC 01016000 AVTOPCWA EQU AVTOPCCC 01017000 AVTOPCCH EQU AVTOPCOB+1 01018000 AVTOPCVT EQU AVTOPCOB 01019000 @NM00041 EQU AVTCKPQB+9 01020000 AVTCKPTS EQU AVTCKPQB+8 01021000 @NM00040 EQU AVTCKPEC+1 01022000 @NM00039 EQU AVTCKPCC 01023000 AVTCKPPO EQU AVTCKPCC 01024000 AVTCKPWA EQU AVTCKPCC 01025000 AVTCKPCH EQU AVTCKPTB+1 01026000 AVTCKPVT EQU AVTCKPTB 01027000 @NM00038 EQU IEDQAVTD+796 01028000 AVTBFRTB EQU IEDQAVTD+792 01029000 @NM00037 EQU IEDQAVTD+784 01030000 AVTBFREB EQU IEDQAVTD+780 01031000 AVTTIMQ EQU IEDQAVTD+776 01032000 @NM00036 EQU IEDQAVTD+772 01033000 AVTIMQPS EQU IEDQAVTD+768 01034000 AVTINOUT EQU IEDQAVTD+766 01035000 AVTREFTM EQU IEDQAVTD+764 01036000 @NM00035 EQU IEDQAVTD+752 01037000 AVTDELYB EQU IEDQAVTD+748 01038000 AVTOCQPT EQU IEDQAVTD+744 01039000 AVTTSOPT EQU IEDQAVTD+740 01040000 AVTSUPPT EQU IEDQAVTD+736 01041000 AVTCBQCB EQU IEDQAVTD+732 01042000 AVTMSGS EQU IEDQAVTD+729 01043000 @NM00034 EQU AVTSYSER 01044000 @NM00033 EQU AVTSYSER 01045000 @NM00032 EQU AVTSYSER 01046000 @NM00031 EQU AVTSYSER 01047000 @NM00030 EQU AVTSYSER 01048000 @NM00029 EQU AVTSYSER 01049000 AVTCMAXN EQU AVTSYSER 01050000 AVTCMINN EQU AVTSYSER 01051000 AVT2260L EQU IEDQAVTD+724 01052000 AVTABEPL EQU AVTADBUF 01053000 AVTHFF EQU AVTCLRHI+2 01054000 @NM00028 EQU AVTCLRHI 01055000 AVTCCLNK EQU AVTCRELE+5 01056000 AVTCCPRI EQU AVTCRELE+4 01057000 AVTCCQCB EQU AVTCCELE+1 01058000 AVTCCKEY EQU AVTCCELE 01059000 AVTDELAD EQU IEDQAVTD+704 01060000 AVTDELEM EQU IEDQAVTD+700 01061000 AVTBSX EQU AVTCKLNK 01062000 AVTOPETR EQU AVTHG01 01063000 @NM00027 EQU AVTCKBYT 01064000 AVTCKONQ EQU AVTCKBYT 01065000 @NM00026 EQU AVTCKBYT 01066000 @NM00025 EQU AVTCKBYT 01067000 @NM00024 EQU AVTCKBYT 01068000 @NM00023 EQU AVTCKBYT 01069000 @NM00022 EQU AVTCKBYT 01070000 @NM00021 EQU AVTCKBYT 01071000 AVTOPERT EQU IEDQAVTD+690 01072000 AVTOPXCL EQU IEDQAVTD+688 01073000 AVTOPERL EQU IEDQAVTD+687 01074000 @NM00020 EQU IEDQAVTD+686 01075000 AVTCKTIM EQU IEDQAVTD+684 01076000 AVTCKELV EQU IEDQAVTD+682 01077000 AVTCPRCD EQU IEDQAVTD+681 01078000 AVTWARMN EQU AVTCKELF 01079000 AVTCRTLN EQU AVTCKELF 01080000 AVTCPIPN EQU AVTCKELF 01081000 AVTCCLCN EQU AVTCKELF 01082000 AVTCINCN EQU AVTCKELF 01083000 @NM00019 EQU AVTCKELF 01084000 AVTCMCPN EQU AVTCKELF 01085000 AVTCRDYN EQU AVTCKELF 01086000 AVTCKQAD EQU IEDQAVTD+677 01087000 AVTSCBSZ EQU IEDQAVTD+676 01088000 @NM00018 EQU IEDQAVTD+672 01089000 AVTCKELE EQU IEDQAVTD+668 01090000 @NM00017 EQU AVTCKPEL+8 01091000 AVTCKRLK EQU AVTCKPEL+5 01092000 AVTCKRPR EQU AVTCKPEL+4 01093000 AVTCKRMQ EQU AVTCKRMV+1 01094000 AVTCKRKY EQU AVTCKRMV 01095000 AVTHK EQU IEDQAVTD+648 01096000 AVTHI EQU IEDQAVTD+644 01097000 AVTIOT EQU IEDQAVTD+640 01098000 AVTNX EQU IEDQAVTD+636 01099000 AVTTONE EQU IEDQAVTD+632 01100000 AVTA3TL EQU IEDQAVTD+628 01101000 AVTDMECB EQU IEDQAVTD+624 01102000 AVTABEND EQU IEDQAVTD+618 01103000 AVTPLCBN EQU IEDQAVTD+616 01104000 @NM00016 EQU AVTSAVTP+1 01105000 @NM00015 EQU AVTSAVTF 01106000 AVTSNA EQU AVTSAVTF 01107000 AVTONSNA EQU AVTSAVTF 01108000 AVTVTMCP EQU AVTSAVTF 01109000 @NM00014 EQU IEDQAVTD+608 01110000 AVTCMBSS EQU IEDQAVTD+604 01111000 AVTRCV EQU IEDQAVTD+600 01112000 AVTSEND EQU IEDQAVTD+596 01113000 AVTCSCH EQU IEDQAVTD+592 01114000 AVTQ1 EQU IEDQAVTD+588 01115000 AVTE7 EQU IEDQAVTD+584 01116000 AVTHB EQU IEDQAVTD+580 01117000 AVTR1 EQU IEDQAVTD+576 01118000 AVTBZ EQU IEDQAVTD+572 01119000 AVTEZ EQU IEDQAVTD+568 01120000 AVTEC EQU IEDQAVTD+564 01121000 AVTEW EQU IEDQAVTD+560 01122000 AVTNDIAL EQU AVTSCOPT 01123000 AVTN2741 EQU AVTSCOPT 01124000 AVTCONCO EQU AVTSCOPT 01125000 AVTCONC EQU AVTSCOPT 01126000 AVTCMBUF EQU AVTSCOPT 01127000 AVTAPDMP EQU AVTSCOPT 01128000 @NM00013 EQU AVTSCOPT 01129000 AVTHA EQU AVTDISP 01130000 AVTEA EQU IEDQAVTD+548 01131000 AVTAX EQU IEDQAVTD+544 01132000 AVTA3 EQU IEDQAVTD+540 01133000 AVTGD EQU IEDQAVTD+536 01134000 AVTAL EQU IEDQAVTD+532 01135000 AVTOLTST EQU AVTHG02 01136000 AVTE8 EQU IEDQAVTD+524 01137000 AVTUI EQU IEDQAVTD+520 01138000 AVTCOMPT EQU IEDQAVTD+516 01139000 AVTCRSRF EQU IEDQAVTD+512 01140000 @NM00012 EQU IEDQAVTD+508 01141000 AVTKA02 EQU IEDQAVTD+504 01142000 AVTOPTPT EQU IEDQAVTD+500 01143000 AVTPCBPT EQU IEDQAVTD+496 01144000 AVTOSECB EQU IEDQAVTD+492 01145000 AVTOPECA EQU IEDQAVTD+488 01146000 AVTOLECA EQU IEDQAVTD+484 01147000 AVTCKECA EQU IEDQAVTD+480 01148000 AVTCWECA EQU IEDQAVTD+476 01149000 AVTCWTCB EQU IEDQAVTD+472 01150000 AVTOLTCB EQU IEDQAVTD+468 01151000 AVTOCTCB EQU IEDQAVTD+464 01152000 AVTCKTCB EQU IEDQAVTD+460 01153000 AVTAS EQU IEDQAVTD+456 01154000 AVTNOLBF EQU IEDQAVTD+454 01155000 AVTNCKPR EQU IEDQAVTD+453 01156000 AVTCIB EQU IEDQAVTD+452 01157000 AVTSPLPT EQU IEDQAVTD+448 01158000 AVTMVBFR EQU IEDQAVTD+444 01159000 AVTSBTA EQU IEDQAVTD+440 01160000 AVTRARTN EQU IEDQAVTD+436 01161000 AVTBSCAN EQU IEDQAVTD+432 01162000 AVTRDYA EQU IEDQAVTD+428 01163000 AVTDISTR EQU IEDQAVTD+420 01164000 AVTPARM3 EQU IEDQAVTD+416 01165000 @NM00011 EQU AVTPKF 01166000 @NM00010 EQU AVTPKF 01167000 @NM00009 EQU AVTPKF 01168000 AVTFTCHF EQU AVTPKF 01169000 @NM00008 EQU AVTPKF 01170000 @NM00007 EQU AVTPKF 01171000 @NM00006 EQU AVTPKF 01172000 @NM00005 EQU AVTPKF 01173000 AVTPARM EQU IEDQAVTD+408 01174000 AVTEXS2A EQU IEDQAVTD+402 01175000 AVTEXA2S EQU IEDQAVTD+396 01176000 AVTOCGET EQU IEDQAVTD+392 01177000 AVTCKAVT EQU @NM00003+1 01178000 @NM00004 EQU AVTCKFLG 01179000 AVTCKHLT EQU AVTCKFLG 01180000 AVTCKREQ EQU AVTCKFLG 01181000 AVTCKENV EQU AVTCKFLG 01182000 AVTCKNAC EQU AVTCKFLG 01183000 AVTCKTAC EQU AVTCKFLG 01184000 @NM00002 EQU IEDQAVTD+384 01185000 AVTREADD EQU IEDQAVTD+380 01186000 AVTREADY EQU IEDQAVTD+376 01187000 AVTRACE EQU IEDQAVTD+372 01188000 AVTTCB EQU IEDQAVTD+368 01189000 AVTPASWD EQU IEDQAVTD+360 01190000 AVTCTLCH EQU IEDQAVTD+352 01191000 AVTDOUBL EQU IEDQAVTD+344 01192000 AVTDOUBX EQU IEDQAVTD+336 01193000 AVTDPARM EQU IEDQAVTD+332 01194000 AVTCSTCS EQU IEDQAVTD+328 01195000 AVTDLQ EQU AVTSAVEX+32 01196000 @NM00001 EQU AVTSAVEX 01197000 AVTSAVE4 EQU IEDQAVTD+216 01198000 AVTSAVE3 EQU IEDQAVTD+144 01199000 AVTSAVE2 EQU IEDQAVTD+72 01200000 AVTSAVE1 EQU IEDQAVTD 01201000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01202000 @PB00004 EQU @EL00001 01203000 @PB00003 EQU @PB00004 01204000 @PB00002 EQU @PB00003 01205000 @ENDDATA EQU * 01206000 END IGCAL10D,(C'PLS2100',0701,76363) 01207000