TITLE 'IGCDL10D, DISPLAY PENDING RES *00001000 ' 00002000 IGCDL10D CSECT , 0001 00003000 @PROLOG BALR @12,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@12 0001 00006000 * 0240 00007000 * /*****************************************************************/ 00008000 * /* */ 00009000 * /* INITIAL REGISTER SETUP */ 00010000 * /* */ 00011000 * /*****************************************************************/ 00012000 * 0240 00013000 * ROPCAVT=RPARM; /* ADDR OF OPC AVT */ 00014000 LR ROPCAVT,RPARM 0240 00015000 * RAVT=OPCAVTPT; /* TCAM AVT ADDR */ 00016000 L RAVT,OPCAVTPT(,ROPCAVT) 0241 00017000 * ROPCE=OPCCOPCE; /* OPCE ADDR */ 00018000 L ROPCE,OPCCOPCE(,ROPCAVT) 0242 00019000 * RTERM=0; /* CLEAR REG */ 00020000 SLR RTERM,RTERM 0243 00021000 * NXTHGHER=0; /* CLEAR REG */ 00022000 SLR NXTHGHER,NXTHGHER 0244 00023000 * RTERM=OCELMPTR; /* INPUT TTE @YM07026*/ 00024000 L RTERM,OCELMPTR-1(,ROPCE) 0245 00025000 LA RTERM,0(,RTERM) 0245 00026000 * RSAVE=ADDR(OPCSAVE); /* REGISTER SAVE AREA */ 00027000 LA RSAVE,OPCSAVE(,ROPCAVT) 0246 00028000 * OPCFLAG1=0; /* CLEAR FLAGS */ 00029000 MVI OPCFLAG1(ROPCAVT),X'00' 0247 00030000 * TTCINSAV=OCTRMTBL; /* INITIALIZE TTCINSAV TO TNT 0248 00031000 * INDEX OF THE RESOURCE NAMED IN 00032000 * THE COMMAND @YM07697*/ 00033000 LH TTCINSAV,OCTRMTBL(,ROPCE) 0248 00034000 N TTCINSAV,@CF01361 0248 00035000 * OCBACKUP=OPCDOUBL; /* MOVE RSC NAME TO OPCE */ 00036000 MVC OCBACKUP(8,ROPCE),OPCDOUBL(ROPCAVT) 0249 00037000 * GEN NOREFS NOSETS NOEXIT SEQFLOW; 0250 00038000 IGCDL10D IEDHJN SKIPID,HJN 00039000 USING @DATD,ROPCAVT USE OPCDOUBL FOR AUTO DATA 00040000 * CALL VALIDTTE; /* VALIDATE INPUT */ 00041000 BAL @14,VALIDTTE 0251 00042000 * IF CONTINUE=ON THEN 0252 00043000 TM CONTINUE(ROPCAVT),B'10000000' 0252 00044000 BNO @RF00252 0252 00045000 * DO; /* TTE IS VALID */ 00046000 * CALL MSGSETUP; /* SET UP REPLY MSG */ 00047000 BAL @14,MSGSETUP 0254 00048000 * CALL PENDCHK; /* CHECK FOR PENDING RSC */ 00049000 BAL @14,PENDCHK 0255 00050000 * IF PENDFLG=OFF THEN 0256 00051000 TM PENDFLG(ROPCAVT),B'01000000' 0256 00052000 BNZ @RF00256 0256 00053000 * DO; /* NO PENDING RSC FOUND */ 00054000 * REPLY(1:4)=NONE; /* NO PENDING RSC FND */ 00055000 L @15,OPCWORK(,ROPCAVT) 0258 00056000 MVC REPLY(4,@15),@CC01326 0258 00057000 * MSGLEN=MSGLEN+4; /* BUMP MSG LEN BY 4 */ 00058000 LA @11,4 0259 00059000 AH @11,MSGLEN(,@15) 0259 00060000 STH @11,MSGLEN(,@15) 0259 00061000 * END; 0260 00062000 * ELSE 0261 00063000 * ; 0261 00064000 @RF00256 DS 0H 0262 00065000 * OPCMODID=MOD07; /* PRINT GOOD MSG */ 00066000 MVC OPCMODID(2,ROPCAVT),@CC01305 0262 00067000 * END; 0263 00068000 * ELSE 0264 00069000 * DO; 0264 00070000 B @RC00252 0264 00071000 @RF00252 DS 0H 0265 00072000 * OPCMODID=MOD03; /* ERROR MSG MOD */ 00073000 MVC OPCMODID(2,ROPCAVT),@CC01307 0265 00074000 * RZERO=MSG201; /* ERROR MSG */ 00075000 LA RZERO,201 0266 00076000 * END; 0267 00077000 * RPARM=ROPCAVT; /* OPC AVT AS PARM */ 00078000 @RC00252 LR RPARM,ROPCAVT 0268 00079000 * OCWTG=0; /* NO MORE PROCESSING */ 00080000 SLR @15,@15 0269 00081000 STH @15,OCWTG(,ROPCE) 0269 00082000 * GEN EXIT REFS(OPCXCTL); 0270 00083000 XCTL SF=(E,OPCXCTL(ROPCAVT)) 00084000 * 0271 00085000 * /*****************************************************************/ 00086000 * /* */ 00087000 * /* VALIDATE TTE AS ELIGABLE FOR THIS COMMAND. IT MUST BE A SNA */ 00088000 * /* RESOURCE. */ 00089000 * /* */ 00090000 * /*****************************************************************/ 00091000 * 0271 00092000 *VALIDTTE: 0271 00093000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0271 00094000 @EL00001 DS 0H 0271 00095000 @EF00001 DS 0H 0271 00096000 @ER00001 BR @14 0271 00097000 VALIDTTE DS 0H 0272 00098000 * OPCWRKSP(1)=RRET; /* SAVE REG 14 */ 00099000 ST RRET,OPCWRKSP(,ROPCAVT) 0272 00100000 * IF TRMPREF=ON THEN 0273 00101000 TM TRMPREF(RTERM),B'00010000' 0273 00102000 BNO @RF00273 0273 00103000 * DO; /* TTE HAS A NEG PREFIX */ 00104000 * IF TRMSNA=ON THEN 0275 00105000 LR @15,RTERM 0275 00106000 AL @15,@CF01362 0275 00107000 TM TRMSNA-6(@15),B'00000010' 0275 00108000 BNO @RF00275 0275 00109000 * CONTINUE=ON; /* TTE VALID */ 00110000 OI CONTINUE(ROPCAVT),B'10000000' 0276 00111000 * ELSE 0277 00112000 * ; 0277 00113000 @RF00275 DS 0H 0278 00114000 * END; 0278 00115000 * RRET=OPCWRKSP(1); /* RESTORE REG 14 */ 00116000 @RF00273 L RRET,OPCWRKSP(,ROPCAVT) 0279 00117000 * END; /* END VALIDTTE */ 00118000 @EL00002 DS 0H 0280 00119000 @EF00002 DS 0H 0280 00120000 @ER00002 BR @14 0280 00121000 * 0281 00122000 * /*****************************************************************/ 00123000 * /* */ 00124000 * /* MESSAGE SET UP */ 00125000 * /* */ 00126000 * /*****************************************************************/ 00127000 * 0281 00128000 *MSGSETUP: 0281 00129000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0281 00130000 MSGSETUP DS 0H 0282 00131000 * OPCWRKSP(2)=RRET; /* SAVE REG 14 */ 00132000 ST RRET,OPCWRKSP+4(,ROPCAVT) 0282 00133000 * MSGAREA=''B; /* CLEAR WORK AREA */ 00134000 L @15,OPCWORK(,ROPCAVT) 0283 00135000 XC MSGAREA(31,@15),MSGAREA(@15) 0283 00136000 * MSGTEXT=MSG566; /* MOVE MSG TO WORK AREA */ 00137000 MVC MSGTEXT(27,@15),MSG566 0284 00138000 * RSCNAME=OCBACKUP; /* MOVE NAME TO MSG */ 00139000 MVC RSCNAME(8,@15),OCBACKUP(ROPCE) 0285 00140000 * MSGLEN=LENGTH(MSG566); /* GET MSGLEN OF MSG SKELTON */ 00141000 MVC MSGLEN(2,@15),@CH01311 0286 00142000 * RRET=OPCWRKSP(2); /* RESTORE REG 14 */ 00143000 L @11,OPCWRKSP+4(,ROPCAVT) 0287 00144000 LR RRET,@11 0287 00145000 * END; /* END OF MSGSETUP */ 00146000 @EL00003 DS 0H 0288 00147000 @EF00003 DS 0H 0288 00148000 @ER00003 BR @14 0288 00149000 * 0289 00150000 * /*****************************************************************/ 00151000 * /* */ 00152000 * /* CHECK FOR PENDING RESOURCES */ 00153000 * /* */ 00154000 * /*****************************************************************/ 00155000 * 0289 00156000 *PENDCHK: 0289 00157000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0289 00158000 PENDCHK DS 0H 0290 00159000 * OPCWRKSP(3)=RRET; /* SAVE REG 14 */ 00160000 ST RRET,OPCWRKSP+8(,ROPCAVT) 0290 00161000 * DO UNTIL(SCANDONE=ON); /* SEARCH HIER */ 00162000 @DL00291 DS 0H 0292 00163000 * DO WHILE(TRMSNA=OFF&SCANDONE=OFF);/* FIND SNA RSC */ 00164000 B @DE00292 0292 00165000 @DL00292 DS 0H 0293 00166000 * RPARM=TRMCOHRT; /* GET TTCIN OF COHORT */ 00167000 LR @15,RTERM 0293 00168000 AL @15,@CF01364 0293 00169000 LH RPARM,TRMCOHRT-4(,@15) 0293 00170000 N RPARM,@CF01361 0293 00171000 * TTCINSAV=RPARM; /* SAVE TTCIN */ 00172000 LR TTCINSAV,RPARM 0294 00173000 * CALL IEDQTNT; /* CONVERT TO TTE */ 00174000 L @15,AVTRNMPT(,RAVT) 0295 00175000 BALR @14,@15 0295 00176000 * RTERM=RPARM; /* LOOK AT NEW TTE */ 00177000 LR RTERM,RPARM 0296 00178000 * IF RTERM=OCELMPTR THEN 0297 00179000 L @15,OCELMPTR-1(,ROPCE) 0297 00180000 LA @15,0(,@15) 0297 00181000 CR RTERM,@15 0297 00182000 BNE @RF00297 0297 00183000 * SCANDONE=ON; /* IF ORIGINAL TTE,DON @YM07026*/ 00184000 OI SCANDONE(ROPCAVT),B'00100000' 0298 00185000 * END; 0299 00186000 @RF00297 DS 0H 0299 00187000 @DE00292 LR @15,RTERM 0299 00188000 AL @15,@CF01362 0299 00189000 TM TRMSNA-6(@15),B'00000010' 0299 00190000 BNZ @DC00292 0299 00191000 TM SCANDONE(ROPCAVT),B'00100000' 0299 00192000 BZ @DL00292 0299 00193000 @DC00292 DS 0H 0300 00194000 * DO WHILE(SCANDONE=OFF); /* IF SNA RSC FOUND */ 00195000 B @DE00300 0300 00196000 @DL00300 DS 0H 0301 00197000 * DO WHILE(TRMSUBST^=0); /* FIND LOWEST RSC */ 00198000 B @DE00301 0301 00199000 @DL00301 DS 0H 0302 00200000 * RPARM=TRMSUBST; /* GET LOWEST RSC */ 00201000 LR @15,RTERM 0302 00202000 BCTR @15,0 0302 00203000 BCTR @15,0 0302 00204000 LH RPARM,TRMSUBST-12(,@15) 0302 00205000 N RPARM,@CF01361 0302 00206000 * TTCINSAV=RPARM; /* SAVE TTCIN OF NEXT TTE */ 00207000 LR TTCINSAV,RPARM 0303 00208000 * CALL IEDQTNT; /* CONVERT TO TTE */ 00209000 L @15,AVTRNMPT(,RAVT) 0304 00210000 BALR @14,@15 0304 00211000 * RTERM=RPARM; /* SET UP TTE BASE */ 00212000 LR RTERM,RPARM 0305 00213000 * END; 0306 00214000 @DE00301 LR @15,RTERM 0306 00215000 BCTR @15,0 0306 00216000 BCTR @15,0 0306 00217000 LH @15,TRMSUBST-12(,@15) 0306 00218000 N @15,@CF01361 0306 00219000 LTR @15,@15 0306 00220000 BNZ @DL00301 0306 00221000 * CALL CHECKBIT; /* CHECK SIB&TTE */ 00222000 BAL @14,CHECKBIT 0307 00223000 * IF SCANDONE=OFF THEN 0308 00224000 TM SCANDONE(ROPCAVT),B'00100000' 0308 00225000 BNZ @RF00308 0308 00226000 * DO; /* MORE PROCESSING TO DO */ 00227000 * IF RTERM=OCELMPTR THEN 0310 00228000 L @15,OCELMPTR-1(,ROPCE) 0310 00229000 LA @15,0(,@15) 0310 00230000 CR RTERM,@15 0310 00231000 BNE @RF00310 0310 00232000 * SCANDONE=ON; /* ARE WE AT ORIGINAL @YM07026*/ 00233000 OI SCANDONE(ROPCAVT),B'00100000' 0311 00234000 * ELSE 0312 00235000 * DO WHILE(OUTFLG=OFF); /* LOOP CONTROL */ 00236000 B @RC00310 0312 00237000 @RF00310 B @DE00312 0312 00238000 @DL00312 DS 0H 0313 00239000 * CALL LEVELUP; /* FIND NEXT HIGHER RSC */ 00240000 BAL @14,LEVELUP 0313 00241000 * RPARM=TRMCOHRT; /* GET TTCIN OF NXT TTE */ 00242000 LR @15,RTERM 0314 00243000 AL @15,@CF01364 0314 00244000 LH RPARM,TRMCOHRT-4(,@15) 0314 00245000 N RPARM,@CF01361 0314 00246000 * TTCINSAV=RPARM; /* SAVE TTCIN OF NEXT RSC */ 00247000 LR TTCINSAV,RPARM 0315 00248000 * CALL IEDQTNT; /* CONVERT TO TTE */ 00249000 L @15,AVTRNMPT(,RAVT) 0316 00250000 BALR @14,@15 0316 00251000 * RTERM=RPARM; /* SET UP TTE */ 00252000 LR RTERM,RPARM 0317 00253000 * DO WHILE(TRMSNA=OFF&SCANDONE=OFF);/* SNA RSC ONLY */ 00254000 B @DE00318 0318 00255000 @DL00318 DS 0H 0319 00256000 * RPARM=TRMCOHRT; /* GET TTCIN */ 00257000 LR @15,RTERM 0319 00258000 AL @15,@CF01364 0319 00259000 LH RPARM,TRMCOHRT-4(,@15) 0319 00260000 N RPARM,@CF01361 0319 00261000 * TTCINSAV=RPARM; /* SAVE TTCIN */ 00262000 LR TTCINSAV,RPARM 0320 00263000 * CALL IEDQTNT; /* CONVERT TO TTE */ 00264000 L @15,AVTRNMPT(,RAVT) 0321 00265000 BALR @14,@15 0321 00266000 * RTERM=RPARM; /* LOOK AT NEW TTE */ 00267000 LR RTERM,RPARM 0322 00268000 * IF RTERM=OCELMPTR THEN 0323 00269000 L @15,OCELMPTR-1(,ROPCE) 0323 00270000 LA @15,0(,@15) 0323 00271000 CR RTERM,@15 0323 00272000 BNE @RF00323 0323 00273000 * SCANDONE=ON; /* BACK TO ORGINAL @YM07026*/ 00274000 OI SCANDONE(ROPCAVT),B'00100000' 0324 00275000 * OUTFLG=ON; /* LOOP EXIT */ 00276000 @RF00323 OI OUTFLG(ROPCAVT),B'00000100' 0325 00277000 * END; 0326 00278000 @DE00318 LR @15,RTERM 0326 00279000 AL @15,@CF01362 0326 00280000 TM TRMSNA-6(@15),B'00000010' 0326 00281000 BNZ @DC00318 0326 00282000 TM SCANDONE(ROPCAVT),B'00100000' 0326 00283000 BZ @DL00318 0326 00284000 @DC00318 DS 0H 0327 00285000 * IF RTERM=NXTHGHER THEN 0327 00286000 CR RTERM,NXTHGHER 0327 00287000 BNE @RF00327 0327 00288000 * DO; /* LEVEL SCAN DONE */ 00289000 * CALL CHECKBIT; /* CHECK PENDING FLAGS */ 00290000 BAL @14,CHECKBIT 0329 00291000 * IF RTERM=OCELMPTR THEN 0330 00292000 L @15,OCELMPTR-1(,ROPCE) 0330 00293000 LA @15,0(,@15) 0330 00294000 CR RTERM,@15 0330 00295000 BNE @RF00330 0330 00296000 * DO; /* ORIGINAL TTE @YM07026*/ 00297000 * SCANDONE=ON;/* HIER SCAN DONE */ 00298000 * OUTFLG=ON; /* LEVEL SCAN DONE */ 00299000 OI SCANDONE(ROPCAVT),B'00100100' 0333 00300000 * END; 0334 00301000 * END; 0335 00302000 * ELSE 0336 00303000 * OUTFLG=ON; /* LEVEL SCAN DONE */ 00304000 B @RC00327 0336 00305000 @RF00327 OI OUTFLG(ROPCAVT),B'00000100' 0336 00306000 * END; 0337 00307000 @RC00327 DS 0H 0337 00308000 @DE00312 TM OUTFLG(ROPCAVT),B'00000100' 0337 00309000 BZ @DL00312 0337 00310000 * OUTFLG=OFF; /* RESET LOOP CONTROL */ 00311000 @RC00310 NI OUTFLG(ROPCAVT),B'11111011' 0338 00312000 * END; 0339 00313000 * END; 0340 00314000 @RF00308 DS 0H 0340 00315000 @DE00300 TM SCANDONE(ROPCAVT),B'00100000' 0340 00316000 BZ @DL00300 0340 00317000 * END; 0341 00318000 @DE00291 TM SCANDONE(ROPCAVT),B'00100000' 0341 00319000 BNO @DL00291 0341 00320000 * RRET=OPCWRKSP(3); /* RESTORE REG 14 */ 00321000 L RRET,OPCWRKSP+8(,ROPCAVT) 0342 00322000 * END; /* END OF PENDCHK */ 00323000 @EL00004 DS 0H 0343 00324000 @EF00004 DS 0H 0343 00325000 @ER00004 BR @14 0343 00326000 * 0344 00327000 * /*****************************************************************/ 00328000 * /* */ 00329000 * /* CHECK TTE AND SIB FOR ANY PENDING BITS SET */ 00330000 * /* */ 00331000 * /*****************************************************************/ 00332000 * 0344 00333000 *CHECKBIT: 0344 00334000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0344 00335000 CHECKBIT DS 0H 0345 00336000 * RESPECIFY 0345 00337000 * RSIB RSTD; 0345 00338000 * OPCWRKSP(4)=RRET; /* SAVE REG 14 */ 00339000 ST RRET,OPCWRKSP+12(,ROPCAVT) 0346 00340000 * RSIB=TRMSIBPT; /* GET SIB PTR */ 00341000 LR @15,RTERM 0347 00342000 SL @15,@CF01358 0347 00343000 SLR RSIB,RSIB 0347 00344000 ICM RSIB,7,TRMSIBPT(@15) 0347 00345000 * SWITCH=OFF; /* SET SWITCH VALUE */ 00346000 NI SWITCH(ROPCAVT),B'11111101' 0348 00347000 * IF TRMTYPE=TRMSDLC THEN 0349 00348000 CLI TRMTYPE(@15),X'21' 0349 00349000 BNE @RF00349 0349 00350000 * IF TRMLSTAT=TRMLAPND|TRMLSTAT=TRMLRPND THEN 0350 00351000 TM TRMLSTAT(@15),B'00010000' 0350 00352000 BNO @GL00003 0350 00353000 TM TRMLSTAT(@15),B'00100000' 0350 00354000 BZ @RT00350 0350 00355000 @GL00003 LR @15,RTERM 0350 00356000 AL @15,@CF01369 0350 00357000 TM TRMLSTAT-1(@15),B'00100000' 0350 00358000 BNO @RF00350 0350 00359000 TM TRMLSTAT-1(@15),B'00010000' 0350 00360000 BNZ @RF00350 0350 00361000 @RT00350 DS 0H 0351 00362000 * CALL MSGPROC; /* UPDATE MSG */ 00363000 BAL @14,MSGPROC 0351 00364000 * ELSE 0352 00365000 * ; 0352 00366000 @RF00350 DS 0H 0353 00367000 * ELSE 0353 00368000 * DO; 0353 00369000 B @RC00349 0353 00370000 @RF00349 DS 0H 0354 00371000 * IF TRMTYPE=TRMPUNT THEN 0354 00372000 LR @15,RTERM 0354 00373000 SL @15,@CF01358 0354 00374000 CLI TRMTYPE(@15),X'18' 0354 00375000 BNE @RF00354 0354 00376000 * IF TRMPCONT=TRMCCSNT|TRMPCONT=TRMCAPND|TRMPCONT=TRMCRPND THEN 00377000 TM TRMPCONT(@15),B'00000001' 0355 00378000 BNO @GL00005 0355 00379000 TM TRMPCONT(@15),B'00000110' 0355 00380000 BZ @RT00355 0355 00381000 @GL00005 LR @15,RTERM 0355 00382000 AL @15,@CF01369 0355 00383000 TM TRMPCONT-1(@15),B'00000010' 0355 00384000 BNO @GL00004 0355 00385000 TM TRMPCONT-1(@15),B'00000101' 0355 00386000 BZ @RT00355 0355 00387000 @GL00004 LR @15,RTERM 0355 00388000 AL @15,@CF01369 0355 00389000 TM TRMPCONT-1(@15),B'00000011' 0355 00390000 BNO @RF00355 0355 00391000 TM TRMPCONT-1(@15),B'00000100' 0355 00392000 BNZ @RF00355 0355 00393000 @RT00355 DS 0H 0356 00394000 * DO; /* CHECK TTE FOR PU @YM07043*/ 00395000 * SWITCH=ON; /* INDICATE ERROR FOUND */ 00396000 OI SWITCH(ROPCAVT),B'00000010' 0357 00397000 * CALL MSGPROC; /* PROCESS ERROR */ 00398000 BAL @14,MSGPROC 0358 00399000 * END; 0359 00400000 * ELSE 0360 00401000 * ; 0360 00402000 @RF00355 DS 0H 0361 00403000 * IF RSIB^=0&SWITCH=OFF THEN 0361 00404000 @RF00354 LTR RSIB,RSIB 0361 00405000 BZ @RF00361 0361 00406000 TM SWITCH(ROPCAVT),B'00000010' 0361 00407000 BNZ @RF00361 0361 00408000 * DO; /* IF ONE SIB EXISTS */ 00409000 * IF TRMTYPE=TRMLNCP THEN /* IF NCP TTE */ 00410000 LR @15,RTERM 0363 00411000 AL @15,@CF00950 0363 00412000 CLI TRMTYPE-11(@15),X'0F' 0363 00413000 BNE @RF00363 0363 00414000 * IF SIBSSTAT=SIBSAPND|SIBSSTAT=SIBSRPND|SIBDSTAT=SIBDAPND 00415000 * THEN 0364 00416000 TM SIBSSTAT(RSIB),B'00000100' 0364 00417000 BNO @GL00008 0364 00418000 TM SIBSSTAT(RSIB),B'00011000' 0364 00419000 BZ @RT00364 0364 00420000 @GL00008 TM SIBSSTAT(RSIB),B'00001000' 0364 00421000 BNO @GL00007 0364 00422000 TM SIBSSTAT(RSIB),B'00010100' 0364 00423000 BZ @RT00364 0364 00424000 @GL00007 TM SIBDSTAT(RSIB),B'00000001' 0364 00425000 BNO @RF00364 0364 00426000 TM SIBDSTAT(RSIB),B'00000010' 0364 00427000 BNZ @RF00364 0364 00428000 @RT00364 DS 0H 0365 00429000 * CALL MSGPROC; /* IF PEND STATE,UPDATE MSG */ 00430000 BAL @14,MSGPROC 0365 00431000 * ELSE 0366 00432000 * ; 0366 00433000 @RF00364 DS 0H 0367 00434000 * ELSE 0367 00435000 * IF TRMTYPE=TRMPUNT THEN 0367 00436000 B @RC00363 0367 00437000 @RF00363 LR @15,RTERM 0367 00438000 AL @15,@CF00950 0367 00439000 CLI TRMTYPE-11(@15),X'18' 0367 00440000 BNE @RF00367 0367 00441000 * IF SIBSSTAT=SIBSAPND|SIBSSTAT=SIBSRPND THEN 0368 00442000 TM SIBSSTAT(RSIB),B'00000100' 0368 00443000 BNO @GL00009 0368 00444000 TM SIBSSTAT(RSIB),B'00011000' 0368 00445000 BZ @RT00368 0368 00446000 @GL00009 TM SIBSSTAT(RSIB),B'00001000' 0368 00447000 BNO @RF00368 0368 00448000 TM SIBSSTAT(RSIB),B'00010100' 0368 00449000 BNZ @RF00368 0368 00450000 @RT00368 DS 0H 0369 00451000 * CALL MSGPROC; /* UPDATE MSG */ 00452000 BAL @14,MSGPROC 0369 00453000 * ELSE 0370 00454000 * ; 0370 00455000 @RF00368 DS 0H 0371 00456000 * ELSE 0371 00457000 * IF TRMTYPE=TRMLUNT THEN 0371 00458000 B @RC00367 0371 00459000 @RF00367 LR @15,RTERM 0371 00460000 AL @15,@CF00950 0371 00461000 CLI TRMTYPE-11(@15),X'30' 0371 00462000 BNE @RF00371 0371 00463000 * DO; /* TYPE IS LU */ 00464000 * IF SIBCHAIN^=0 THEN 0373 00465000 L @15,SIBCHAIN(,RSIB) 0373 00466000 LTR @15,@15 0373 00467000 BZ @RF00373 0373 00468000 * DO; 0374 00469000 * IF SIBCHAIN->SIBSSTAT=SIBSAPND|SIBCHAIN-> 0375 00470000 * SIBSSTAT=SIBSRPND|SIBCHAIN->SIBDACLU=ON 00471000 * THEN 0375 00472000 TM SIBSSTAT(@15),B'00000100' 0375 00473000 BNO @GL00011 0375 00474000 TM SIBSSTAT(@15),B'00011000' 0375 00475000 BZ @RT00375 0375 00476000 @GL00011 L @15,SIBCHAIN(,RSIB) 0375 00477000 TM SIBSSTAT(@15),B'00001000' 0375 00478000 BNO @GL00010 0375 00479000 TM SIBSSTAT(@15),B'00010100' 0375 00480000 BZ @RT00375 0375 00481000 @GL00010 L @15,SIBCHAIN(,RSIB) 0375 00482000 TM SIBDACLU(@15),B'00010000' 0375 00483000 BNO @RF00375 0375 00484000 @RT00375 DS 0H 0376 00485000 * PROCFLG=ON;/* IND MSG TO PROC */ 00486000 OI PROCFLG(ROPCAVT),B'00001000' 0376 00487000 * ELSE 0377 00488000 * ; 0377 00489000 @RF00375 DS 0H 0378 00490000 * END; 0378 00491000 * ELSE 0379 00492000 * ; 0379 00493000 @RF00373 DS 0H 0380 00494000 * IF(SIBSSTAT=SIBSAPND|SIBSSTAT=SIBSRPND|SIBDSTAT= 00495000 * SIBDAPND|SIBDSTAT=SIBDRPND)|(PROCFLG=ON) THEN 00496000 TM SIBSSTAT(RSIB),B'00000100' 0380 00497000 BNO @GL00015 0380 00498000 TM SIBSSTAT(RSIB),B'00011000' 0380 00499000 BZ @RT00380 0380 00500000 @GL00015 TM SIBSSTAT(RSIB),B'00001000' 0380 00501000 BNO @GL00014 0380 00502000 TM SIBSSTAT(RSIB),B'00010100' 0380 00503000 BZ @RT00380 0380 00504000 @GL00014 TM SIBDSTAT(RSIB),B'00000001' 0380 00505000 BNO @GL00013 0380 00506000 TM SIBDSTAT(RSIB),B'00000010' 0380 00507000 BZ @RT00380 0380 00508000 @GL00013 TM SIBDSTAT(RSIB),B'00000010' 0380 00509000 BNO @GL00012 0380 00510000 TM SIBDSTAT(RSIB),B'00000001' 0380 00511000 BZ @RT00380 0380 00512000 @GL00012 TM PROCFLG(ROPCAVT),B'00001000' 0380 00513000 BNO @RF00380 0380 00514000 @RT00380 DS 0H 0381 00515000 * DO; 0381 00516000 * PROCFLG=OFF;/* RESET INDICATOR */ 00517000 NI PROCFLG(ROPCAVT),B'11110111' 0382 00518000 * CALL MSGPROC;/* PROCESS MSG */ 00519000 BAL @14,MSGPROC 0383 00520000 * END; 0384 00521000 * END; 0385 00522000 @RF00380 DS 0H 0386 00523000 * END; 0386 00524000 @RF00371 DS 0H 0386 00525000 @RC00367 DS 0H 0386 00526000 @RC00363 DS 0H 0387 00527000 * END; 0387 00528000 @RF00361 DS 0H 0388 00529000 * RRET=OPCWRKSP(4); /* RESTORE REG 14 */ 00530000 @RC00349 L RRET,OPCWRKSP+12(,ROPCAVT) 0388 00531000 * RESPECIFY 0389 00532000 * RSIB UNRSTD; 0389 00533000 * END; /* END OF CHECKBIT */ 00534000 @EL00005 DS 0H 0390 00535000 @EF00005 DS 0H 0390 00536000 @ER00005 BR @14 0390 00537000 * 0391 00538000 * /*****************************************************************/ 00539000 * /* */ 00540000 * /* FIND NEXT HIGHER LEVEL RESOURCE */ 00541000 * /* */ 00542000 * /*****************************************************************/ 00543000 * 0391 00544000 *LEVELUP: 0391 00545000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0391 00546000 LEVELUP DS 0H 0392 00547000 * OPCWRKSP(5)=RRET; /* SAVE REG 14 */ 00548000 ST RRET,OPCWRKSP+16(,ROPCAVT) 0392 00549000 * RPARM=RTERM; /* GET NEXT HIGHER RSC */ 00550000 LR RPARM,RTERM 0393 00551000 * CALL COHRTLK; /* CALL RTN */ 00552000 L @15,OPCHORT(,ROPCAVT) 0394 00553000 BALR @14,@15 0394 00554000 * NXTHGHER=RPARM; /* SAVE NEXT HIGHER */ 00555000 LR NXTHGHER,RPARM 0395 00556000 * RRET=OPCWRKSP(5); /* RESTORE REG 14 */ 00557000 L RRET,OPCWRKSP+16(,ROPCAVT) 0396 00558000 * END; /* END OF LEVELUP */ 00559000 @EL00006 DS 0H 0397 00560000 @EF00006 DS 0H 0397 00561000 @ER00006 BR @14 0397 00562000 * 0398 00563000 * /*****************************************************************/ 00564000 * /* */ 00565000 * /* ADD TTE NAMES TO MESSAGE */ 00566000 * /* */ 00567000 * /*****************************************************************/ 00568000 * 0398 00569000 *MSGPROC: 0398 00570000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0398 00571000 MSGPROC DS 0H 0399 00572000 * OPCWRKSP(6)=RRET; /* SAVE REG 14 */ 00573000 ST RRET,OPCWRKSP+20(,ROPCAVT) 0399 00574000 * PENDFLG=ON; /* INDICATE AT LEAST 1 */ 00575000 OI PENDFLG(ROPCAVT),B'01000000' 0400 00576000 * IF FIRSTFND=OFF THEN 0401 00577000 TM FIRSTFND(ROPCAVT),B'00010000' 0401 00578000 BNZ @RF00401 0401 00579000 * FIRSTFND=ON; /* INDICATE 1ST FOUND */ 00580000 OI FIRSTFND(ROPCAVT),B'00010000' 0402 00581000 * ELSE 0403 00582000 * DO; /* NOT 1ST,NEED COMMA */ 00583000 B @RC00401 0403 00584000 @RF00401 DS 0H 0404 00585000 * MSGTEXT(MSGLEN+1:MSGLEN+1)=COMMA;/* INSERT COMMA IN MSG 0404 00586000 * @YM06642*/ 00587000 L @15,OPCWORK(,ROPCAVT) 0404 00588000 LH @11,MSGLEN(,@15) 0404 00589000 ST @11,@TF00001 0404 00590000 ALR @11,@15 0404 00591000 MVI MSGTEXT(@11),C',' 0404 00592000 * MSGLEN=MSGLEN+1; /* BUMP MSG LENGTH */ 00593000 LA @11,1 0405 00594000 AL @11,@TF00001 0405 00595000 STH @11,MSGLEN(,@15) 0405 00596000 * END; 0406 00597000 * IF(MSGLEN+TNTENLEN+6=>OPCWRKSZ) THEN 0407 00598000 @RC00401 L @15,OPCWORK(,ROPCAVT) 0407 00599000 LH @11,MSGLEN(,@15) 0407 00600000 L @07,AVTRNMPT(,RAVT) 0407 00601000 SLR @09,@09 0407 00602000 IC @09,TNTENLEN(,@07) 0407 00603000 ALR @09,@11 0407 00604000 AL @09,@CF00072 0407 00605000 CH @09,OPCWRKSZ(,ROPCAVT) 0407 00606000 BL @RF00407 0407 00607000 * DO; /* ROOM FOR ** ONLY */ 00608000 * SCANDONE=ON; 0409 00609000 OI SCANDONE(ROPCAVT),B'00100000' 0409 00610000 * MSGTEXT(MSGLEN+1:MSGLEN+2)=ASTERISK;/* MARK MSG AS INCOMPLETE*/ 00611000 ST @11,@TF00001 0410 00612000 ALR @11,@15 0410 00613000 MVC MSGTEXT(2,@11),@CC01295 0410 00614000 * MSGLEN=MSGLEN+2; /* BUMP LENGTH */ 00615000 LA @11,2 0411 00616000 AL @11,@TF00001 0411 00617000 STH @11,MSGLEN(,@15) 0411 00618000 * END; 0412 00619000 * ELSE 0413 00620000 * DO; /* ELSE ADD NAME */ 00621000 B @RC00407 0413 00622000 @RF00407 DS 0H 0414 00623000 * RPARM=TTCINSAV; /* PARM IS TTCIN */ 00624000 LR RPARM,TTCINSAV 0414 00625000 * CALL TNTENTAD; /* CONVERT TO TNT ADDR */ 00626000 L @15,OPCTNTEA(,ROPCAVT) 0415 00627000 BALR @14,@15 0415 00628000 * MSGTEXT(MSGLEN+1:MSGLEN+TNTENLEN)=RPARM->NAME(1:TNTENLEN);/* 00629000 * @YM06642 00630000 * MOVE TERM NAME INTO MSG */ 00631000 L @15,OPCWORK(,ROPCAVT) 0416 00632000 LH @11,MSGLEN(,@15) 0416 00633000 ST @11,@TF00001 0416 00634000 ALR @11,@15 0416 00635000 L @07,AVTRNMPT(,RAVT) 0416 00636000 SLR @09,@09 0416 00637000 IC @09,TNTENLEN(,@07) 0416 00638000 LR @07,@09 0416 00639000 BCTR @07,0 0416 00640000 EX @07,@SM01375 0416 00641000 * MSGLEN=MSGLEN+TNTENLEN; /* UPDATE LENGTH */ 00642000 AL @09,@TF00001 0417 00643000 STH @09,MSGLEN(,@15) 0417 00644000 * END; 0418 00645000 * RRET=OPCWRKSP(6); /* RESTORE REG 14 */ 00646000 @RC00407 L RRET,OPCWRKSP+20(,ROPCAVT) 0419 00647000 * END; /* END OF MSGPROC */ 00648000 @EL00007 DS 0H 0420 00649000 @EF00007 DS 0H 0420 00650000 @ER00007 BR @14 0420 00651000 * END IGCDL10D 0421 00652000 * 0421 00653000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00654000 */*%INCLUDE SYSLIB (TAVTD ) */ 00655000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 00656000 */*%INCLUDE SYSLIB (TOPCED ) */ 00657000 */*%INCLUDE SYSLIB (TOPRED ) */ 00658000 */*%INCLUDE SYSLIB (TSIBD ) */ 00659000 */*%INCLUDE SYSLIB (TTNTD ) */ 00660000 */*%INCLUDE SYSLIB (TTRMD ) */ 00661000 * 0421 00662000 * ; 0421 00663000 @DATA DS 0H 00664000 @CH01311 DC H'27' 00665000 @SM01375 MVC MSGTEXT(0,@11),NAME(RPARM) 00666000 @DATD DSECT 00667000 DS 0F 00668000 @TF00001 DS F 00669000 IGCDL10D CSECT 00670000 DS 0F 00671000 @CF00072 DC F'6' 00672000 @CF01358 DC F'14' 00673000 @CF01369 DC F'-13' 00674000 @CF01364 DC F'-10' 00675000 @CF01362 DC F'-8' 00676000 @CF00950 DC F'-3' 00677000 @CF01361 DC XL4'0000FFFF' 00678000 @DATD DSECT 00679000 DS 0D 00680000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00681000 @ENDDATD EQU * 00682000 IGCDL10D CSECT 00683000 NOPR ((@ENDDATD-@DATD)/9*16) 00684000 DS 0F 00685000 @SIZDATD DC AL1(0) 00686000 DC AL3(@ENDDATD-@DATD) 00687000 DS 0D 00688000 @CC01326 DC C'NONE' 00689000 @CC01295 DC C'**' 00690000 @CC01305 DC C'07' 00691000 @CC01307 DC C'03' 00692000 MSG566 DC CL27'IED566I PENDING = ' 00693000 ZAPAREA DC 104X'00' 00694000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00695000 @01 EQU 01 00696000 @02 EQU 02 00697000 @03 EQU 03 00698000 @04 EQU 04 00699000 @05 EQU 05 00700000 @06 EQU 06 00701000 @07 EQU 07 00702000 @08 EQU 08 00703000 @09 EQU 09 00704000 @10 EQU 10 00705000 @11 EQU 11 00706000 @12 EQU 12 00707000 @13 EQU 13 00708000 @14 EQU 14 00709000 @15 EQU 15 00710000 IEDQAPTR EQU @04 00711000 ROPCAVT EQU @02 00712000 ROPCE EQU @03 00713000 IEDQTPTR EQU @10 00714000 RAVT EQU @04 00715000 RTERM EQU @10 00716000 RSIB EQU @11 00717000 RZERO EQU @00 00718000 RPARM EQU @01 00719000 NXTHGHER EQU @05 00720000 TTCINSAV EQU @06 00721000 RSAVE EQU @13 00722000 RRET EQU @14 00723000 IEDQSIBP EQU @11 00724000 RBRNCH EQU @15 00725000 RWORK7 EQU @07 00726000 RWORK8 EQU @08 00727000 RWORK9 EQU @09 00728000 IEDQAVTD EQU 0 00729000 AVTSAVEX EQU IEDQAVTD+288 00730000 @NM00003 EQU IEDQAVTD+388 00731000 AVTCKFLG EQU @NM00003 00732000 AVTBASE EQU IEDQAVTD+412 00733000 AVTPKF EQU AVTBASE 00734000 AVTRNMPT EQU IEDQAVTD+424 00735000 AVTHG02 EQU IEDQAVTD+528 00736000 AVTDISP EQU IEDQAVTD+552 00737000 AVTHD EQU IEDQAVTD+556 00738000 AVTSCOPT EQU AVTHD 00739000 AVTSAVTP EQU IEDQAVTD+612 00740000 AVTSAVTF EQU AVTSAVTP 00741000 AVTCKPEL EQU IEDQAVTD+652 00742000 AVTCKRMV EQU AVTCKPEL 00743000 AVTCKELF EQU IEDQAVTD+680 00744000 AVTCKBYT EQU IEDQAVTD+691 00745000 AVTHG01 EQU IEDQAVTD+692 00746000 AVTCKLNK EQU IEDQAVTD+696 00747000 AVTCRELE EQU IEDQAVTD+708 00748000 AVTCCELE EQU AVTCRELE 00749000 AVTCLRHI EQU IEDQAVTD+716 00750000 AVTADBUF EQU IEDQAVTD+720 00751000 AVTSYSER EQU IEDQAVTD+728 00752000 AVTCKPQB EQU IEDQAVTD+804 00753000 AVTCKPTB EQU AVTCKPQB 00754000 AVTCKPEC EQU AVTCKPQB+4 00755000 AVTCKPCC EQU AVTCKPEC 00756000 AVTOPCQB EQU IEDQAVTD+816 00757000 AVTOPCOB EQU AVTOPCQB 00758000 AVTOPCEC EQU AVTOPCQB+4 00759000 AVTOPCCC EQU AVTOPCEC 00760000 AVTOLTQB EQU IEDQAVTD+828 00761000 AVTCWFL1 EQU IEDQAVTD+924 00762000 AVTCWFL2 EQU IEDQAVTD+925 00763000 AVTSUBT EQU IEDQAVTD+948 00764000 AVTIOTR EQU IEDQAVTD+949 00765000 AVTBIT1 EQU IEDQAVTD+1050 00766000 AVTBIT2 EQU IEDQAVTD+1051 00767000 AVTBIT3 EQU IEDQAVTD+1052 00768000 AVTBIT4 EQU IEDQAVTD+1136 00769000 @NM00083 EQU IEDQAVTD+1232 00770000 IEDNSVTD EQU 0 00771000 SAVTDIAG EQU IEDNSVTD 00772000 SAVTDIAF EQU SAVTDIAG 00773000 SAVTLUSQ EQU IEDNSVTD+88 00774000 SAVTTCPU EQU IEDNSVTD+238 00775000 SAVTZELM EQU IEDNSVTD+270 00776000 SAVTRDRV EQU IEDNSVTD+284 00777000 SAVTCKQB EQU IEDNSVTD+300 00778000 SAVTCKTB EQU SAVTCKQB 00779000 SAVTCKEC EQU SAVTCKQB+4 00780000 SAVTCKCC EQU SAVTCKEC 00781000 IEDQOPCD EQU 0 00782000 OPCDOUBL EQU IEDQOPCD 00783000 OPCAVTPT EQU IEDQOPCD+8 00784000 OPCCOPCE EQU IEDQOPCD+12 00785000 OPCTNTEA EQU IEDQOPCD+44 00786000 OPCSAVE EQU IEDQOPCD+56 00787000 OPCWORK EQU IEDQOPCD+140 00788000 OPCWRKSZ EQU IEDQOPCD+144 00789000 OPCFLAG1 EQU IEDQOPCD+146 00790000 OPCAQCTL EQU IEDQOPCD+180 00791000 OPCXCTL EQU IEDQOPCD+204 00792000 OPCLDNME EQU IEDQOPCD+212 00793000 OPCMODID EQU OPCLDNME+3 00794000 OPCHORT EQU IEDQOPCD+256 00795000 OPCSPEC EQU IEDQOPCD+300 00796000 OPCWRKSP EQU IEDQOPCD+320 00797000 IEDQOPCE EQU 0 00798000 OCELEM EQU IEDQOPCE+4 00799000 OCELMPTR EQU OCELEM+1 00800000 OCUNIT EQU IEDQOPCE+8 00801000 OCRUDEST EQU OCUNIT 00802000 OCCKPKEY EQU OCRUDEST 00803000 OCSCAN EQU OCCKPKEY 00804000 OCOPTCDE EQU IEDQOPCE+12 00805000 OCSWITCH EQU IEDQOPCE+13 00806000 OCFLAG EQU IEDQOPCE+14 00807000 @NM00118 EQU IEDQOPCE+16 00808000 OCDEST EQU @NM00118 00809000 OCREQVAL EQU OCDEST+1 00810000 OCTRMTBL EQU IEDQOPCE+20 00811000 OCLINENO EQU IEDQOPCE+22 00812000 OCTIOT EQU OCLINENO 00813000 OCTRUNIT EQU IEDQOPCE+24 00814000 OCRSID EQU OCTRUNIT 00815000 OCALSTAT EQU OCRSID 00816000 OCPARM EQU IEDQOPCE+28 00817000 OCWTG EQU IEDQOPCE+30 00818000 OCBACKUP EQU IEDQOPCE+32 00819000 OCMODNME EQU IEDQOPCE+40 00820000 OCIPLWA EQU OCMODNME 00821000 OCCKDATA EQU IEDQOPCE+48 00822000 OCRSTGTM EQU OCCKDATA 00823000 IEDQOPCN EQU 0 00824000 OCLDNME EQU IEDQOPCN 00825000 OCLINTTE EQU OCLDNME 00826000 OCREQFLG EQU OCLINTTE+2 00827000 OCPREFLG EQU OCLINTTE+3 00828000 IEDOPRED EQU 0 00829000 OPRESAVE EQU IEDOPRED+8 00830000 OPREFLG3 EQU IEDOPRED+14 00831000 IEDSIBD EQU 0 00832000 SIBCHAIN EQU IEDSIBD+4 00833000 SIBSESSN EQU IEDSIBD+10 00834000 SIBSSTAT EQU SIBSESSN 00835000 SIBDSTAT EQU SIBSESSN 00836000 SIBPACIN EQU IEDSIBD+11 00837000 SIBSEQN EQU IEDSIBD+12 00838000 SIBSTAT1 EQU IEDSIBD+16 00839000 SIBSTAT2 EQU IEDSIBD+17 00840000 SIBDACLU EQU SIBSTAT2 00841000 SIBBIND EQU IEDSIBD+20 00842000 SIBBIND1 EQU SIBBIND 00843000 SIBBIND2 EQU SIBBIND+1 00844000 SIBBIND3 EQU SIBBIND+2 00845000 SIBSTAT0 EQU IEDSIBD+23 00846000 IEDQTNTD EQU 0 00847000 IEDQTCDE EQU IEDQTNTD 00848000 TNTENLEN EQU IEDQTNTD+40 00849000 IEDQTDCE EQU IEDQTNTD+46 00850000 IEDQNPTR EQU 0 00851000 IEDTNTA EQU 0 00852000 IEDQTRM EQU 0 00853000 TRMSTATE EQU IEDQTRM 00854000 TRMLOG EQU TRMSTATE 00855000 TRMPREF EQU TRMSTATE 00856000 TRMINSEQ EQU IEDQTRM+4 00857000 TLISTCNT EQU TRMINSEQ 00858000 TRMOUTSQ EQU IEDQTRM+6 00859000 TLISTEN EQU TRMOUTSQ 00860000 TRMDSORG EQU TLISTEN 00861000 TRMALTD EQU IEDQTRM+8 00862000 TRMDEVFL EQU IEDQTRM+10 00863000 TRMSTAT EQU IEDQTRM+12 00864000 IEDNTRM EQU 0 00865000 TRMBYTE4 EQU IEDNTRM 00866000 TRMBYTE3 EQU IEDNTRM+1 00867000 TRMBYTE2 EQU IEDNTRM+2 00868000 TRMINPG EQU TRMBYTE2 00869000 TRMBYTE1 EQU IEDNTRM+3 00870000 TRMSCPRQ EQU TRMBYTE1 00871000 TRMCOHRT EQU IEDNTRM+4 00872000 TRMBYTE0 EQU IEDNTRM+6 00873000 TRMSNA EQU TRMBYTE0 00874000 TRMSIBPT EQU IEDNTRM+7 00875000 TRMTYPE EQU IEDNTRM+11 00876000 TRMSUBST EQU IEDNTRM+12 00877000 MSGAREA EQU 0 00878000 MSGLEN EQU MSGAREA 00879000 MSGTEXT EQU MSGAREA+4 00880000 REPLY EQU MSGAREA+31 00881000 IEDQTNT EQU 0 00882000 COHRTLK EQU 0 00883000 TNTENTAD EQU 0 00884000 NAME EQU 0 00885000 TNTCODE EQU 0 00886000 TNTDCODE EQU 0 00887000 TNTFIRST EQU 0 00888000 OPCAQWD EQU OPCAQCTL 00889000 OPCAQWD1 EQU OPCAQWD 00890000 OPCAQWD2 EQU OPCAQWD+4 00891000 OPCAQWD3 EQU OPCAQWD+8 00892000 OCCKPKY1 EQU OCCKPKEY 00893000 OCCKPTYP EQU OCCKPKY1 00894000 OCICACTN EQU OCMODNME 00895000 OCICDADR EQU OCICACTN 00896000 OCICSW EQU OCICDADR+3 00897000 TRMPRE1 EQU TRMBYTE4 00898000 TRMPRE EQU TRMBYTE3 00899000 TRMNCP EQU TRMBYTE3 00900000 TRMPU EQU TRMBYTE3 00901000 TRMPCONT EQU TRMPU 00902000 TRMLU EQU TRMBYTE3 00903000 TRMLINK EQU TRMBYTE3 00904000 TRMLSTAT EQU TRMLINK 00905000 FLAGS EQU OPCFLAG1 00906000 CONTINUE EQU FLAGS 00907000 PENDFLG EQU FLAGS 00908000 SCANDONE EQU FLAGS 00909000 FIRSTFND EQU FLAGS 00910000 PROCFLG EQU FLAGS 00911000 OUTFLG EQU FLAGS 00912000 SWITCH EQU FLAGS 00913000 MESSAGE EQU MSGTEXT 00914000 RSCNAME EQU MESSAGE+8 00915000 OCCIB EQU OCREQVAL 00916000 TRMOPT EQU IEDQTRM+20 00917000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00918000 @NM00141 EQU MESSAGE+16 00919000 @NM00140 EQU MESSAGE 00920000 @NM00138 EQU TRMLINK 00921000 TRMLINT EQU TRMLINK 00922000 TRMEPMOD EQU TRMLINK 00923000 TRMLULOG EQU TRMLU 00924000 TRMINERR EQU TRMLU 00925000 TRMLUREQ EQU TRMLU 00926000 TRMSESRQ EQU TRMLU 00927000 TRMTDIFF EQU TRMLU 00928000 TRMLUTM EQU TRMLU 00929000 TRMLUIT EQU TRMLU 00930000 TRMAUTO EQU TRMLU 00931000 @NM00137 EQU TRMPU 00932000 TRMNCONT EQU TRMNCP 00933000 TRMQUCKN EQU TRMNCP 00934000 TRMSLOWN EQU TRMNCP 00935000 TRMSYGEN EQU TRMNCP 00936000 TRMNCPCL EQU TRMNCP 00937000 TRMIPLDM EQU TRMNCP 00938000 TRMINOUT EQU TRMPRE 00939000 TRMRDOUT EQU TRMPRE 00940000 TRMNLOUT EQU TRMPRE 00941000 TRMWROUT EQU TRMPRE 00942000 TRMASNXI EQU TRMPRE 00943000 TRMSTMM EQU TRMPRE 00944000 TRMCMODE EQU TRMPRE 00945000 TRMSTPND EQU TRMPRE 00946000 TRMLYNCH EQU TRMPRE1 00947000 TRMSPOUT EQU TRMPRE1 00948000 TRMERLCK EQU TRMPRE1 00949000 TRMQNPL EQU TRMPRE1 00950000 TRMSPACT EQU TRMPRE1 00951000 TRMOCNI EQU TRMPRE1 00952000 TRMSESSN EQU TRMPRE1 00953000 TRMCONT EQU TRMPRE1 00954000 OCICINAC EQU OCICSW 00955000 @NM00124 EQU OCICSW 00956000 OCICATST EQU OCICDADR+1 00957000 OCICTYPE EQU OCICDADR 00958000 @NM00123 EQU OCCKPKY1 00959000 OCCKPENV EQU OCCKPKY1 00960000 OCCKPRST EQU OCCKPTYP 00961000 OCCKPNCP EQU OCCKPTYP 00962000 OCCKPINC EQU OCCKPTYP 00963000 OPCAQLST EQU OPCAQWD3+1 00964000 OPCAQRQ3 EQU OPCAQWD3 00965000 OPCAQSEC EQU OPCAQWD2+1 00966000 OPCAQRQ2 EQU OPCAQWD2 00967000 OPCAQFST EQU OPCAQWD1+1 00968000 OPCAQREQ EQU OPCAQWD1 00969000 @NM00139 EQU MSGAREA+2 00970000 TRMRLMCT EQU IEDNTRM+10 00971000 TRMCOHTG EQU TRMSIBPT+1 00972000 TRMGPCNT EQU TRMSIBPT 00973000 TRMBUFRD EQU TRMBYTE0 00974000 TRMGP EQU TRMBYTE0 00975000 TRMDIAL EQU TRMBYTE0 00976000 @NM00136 EQU TRMBYTE0 00977000 TRMOUTPT EQU TRMBYTE0 00978000 TRMINPUT EQU TRMBYTE0 00979000 TRMUDEF EQU TRMBYTE0 00980000 TRMSTOTE EQU TRMBYTE1 00981000 TRMCKPRN EQU TRMBYTE1 00982000 TRMTSATN EQU TRMBYTE1 00983000 TRMTRACE EQU TRMBYTE1 00984000 TRMSWBCK EQU TRMBYTE1 00985000 TRMAUTOC EQU TRMBYTE1 00986000 TRMINPTP EQU TRMBYTE1 00987000 TRMWTNEG EQU TRMSCPRQ 00988000 TRMWRBRK EQU TRMBYTE2 00989000 TRMNOSND EQU TRMBYTE2 00990000 TRMPREP EQU TRMBYTE2 00991000 TRMGPACT EQU TRMBYTE2 00992000 TRMANDL EQU TRMBYTE2 00993000 TRMCLOSN EQU TRMINPG 00994000 TRMREMB EQU TRMBYTE2 00995000 TRMRSACT EQU TRMBYTE2 00996000 TRMOPTBL EQU IEDQTRM+18 00997000 TRMOPNO EQU IEDQTRM+17 00998000 TRMCHCIN EQU IEDQTRM+16 00999000 TRMSENSE EQU TRMSTAT+3 01000000 TRMTEMPR EQU TRMSTAT+2 01001000 TRMSIO EQU TRMSTAT 01002000 @NM00135 EQU TRMDEVFL+1 01003000 TRMTPIN EQU TRMDEVFL+1 01004000 TRMNCPI EQU TRMDEVFL+1 01005000 TRMRNTRM EQU TRMDEVFL+1 01006000 @NM00134 EQU TRMDEVFL+1 01007000 TRMLMD EQU TRMDEVFL+1 01008000 TRMCONC EQU TRMDEVFL+1 01009000 TRMTSOB EQU TRMDEVFL 01010000 TRMBFDY EQU TRMDEVFL 01011000 TRMTBLK EQU TRMDEVFL 01012000 TRMSBLK EQU TRMDEVFL 01013000 TRMBLKS EQU TRMDEVFL 01014000 TRMADDC EQU TRMDEVFL 01015000 TRMDDIG EQU TRMDEVFL 01016000 TRMBUFS EQU TRMDEVFL 01017000 TRMPRILK EQU TRMALTD 01018000 TRMLGB EQU TRMDSORG 01019000 TRMUTERM EQU TLISTCNT 01020000 TRMDESTQ EQU IEDQTRM+1 01021000 TRMSCNYN EQU TRMSTATE 01022000 TRMOPTFN EQU TRMSTATE 01023000 TRMHELDN EQU TRMSTATE 01024000 TRMACPTN EQU TRMSTATE 01025000 TRMPROC EQU TRMLOG 01026000 TRMLIST EQU TRMLOG 01027000 TRMLINE EQU TRMSTATE 01028000 TNTTRMAD EQU IEDTNTA 01029000 TNTLEN EQU IEDQTNTD+44 01030000 TNTMIDEN EQU IEDQTNTD+41 01031000 TNTSRCHX EQU IEDQTNTD+38 01032000 SIBLUTYP EQU SIBSTAT0 01033000 SIBCD EQU SIBSTAT0 01034000 @NM00133 EQU SIBBIND3 01035000 SIBCRES EQU SIBBIND3 01036000 SIBSPKR EQU SIBBIND3 01037000 SIBRECOV EQU SIBBIND3 01038000 SIBFMODE EQU SIBBIND3 01039000 SIBALT EQU SIBBIND2 01040000 SIBBTERM EQU SIBBIND2 01041000 SIBBRACK EQU SIBBIND2 01042000 SIBFMUSE EQU SIBBIND2 01043000 SIBSEBI EQU SIBBIND2 01044000 SIBSCMP EQU SIBBIND2 01045000 SIBSEXC EQU SIBBIND2 01046000 SIBSDEF EQU SIBBIND2 01047000 SIBSRQM EQU SIBBIND1 01048000 SIBSCHNG EQU SIBBIND1 01049000 SIBPEBI EQU SIBBIND1 01050000 SIBPCMP EQU SIBBIND1 01051000 SIBPEXC EQU SIBBIND1 01052000 SIBPDEF EQU SIBBIND1 01053000 SIBPRQM EQU SIBBIND1 01054000 SIBPCHN EQU SIBBIND1 01055000 SIBFMPRO EQU IEDSIBD+19 01056000 SIBTSPRO EQU IEDSIBD+18 01057000 @NM00132 EQU SIBSTAT2 01058000 SIBRDSCN EQU SIBSTAT2 01059000 SIBTERM EQU SIBSTAT2 01060000 SIBUSS EQU SIBSTAT2 01061000 SIBBSTAT EQU SIBSTAT1 01062000 SIBRTRP EQU SIBSTAT1 01063000 @NM00131 EQU SIBSTAT1 01064000 SIBRQEND EQU SIBSTAT1 01065000 SIBRQSHT EQU SIBSTAT1 01066000 SIBSEQO EQU SIBSEQN+2 01067000 SIBSEQI EQU SIBSEQN 01068000 SIBNCNT EQU SIBPACIN 01069000 SIBMCNT EQU SIBPACIN 01070000 SIBINBIU EQU SIBSESSN 01071000 SIBSHUTC EQU SIBSESSN 01072000 SIBLGOFF EQU SIBSESSN 01073000 SIBINDEX EQU IEDSIBD+8 01074000 SIBRUSEG EQU IEDSIBD 01075000 @NM00130 EQU OPREFLG3 01076000 OPREATCH EQU OPREFLG3 01077000 @NM00129 EQU OPREFLG3 01078000 OPREFLG2 EQU IEDOPRED+13 01079000 OPREFLG1 EQU IEDOPRED+12 01080000 OPRETIC EQU OPRESAVE 01081000 OPRELINK EQU IEDOPRED+5 01082000 OPREPRI EQU IEDOPRED+4 01083000 OPREQCB EQU IEDOPRED+1 01084000 OPREKEY EQU IEDOPRED 01085000 @NM00128 EQU OCLDNME+4 01086000 @NM00127 EQU OCPREFLG 01087000 OCTOTEP EQU OCPREFLG 01088000 OCREPOST EQU OCPREFLG 01089000 OCRSPSNT EQU OCPREFLG 01090000 OCBFREQ EQU OCPREFLG 01091000 OCIDLE EQU OCREQFLG 01092000 OCFORCE EQU OCREQFLG 01093000 OCDCARD EQU OCREQFLG 01094000 OCPARTAL EQU OCREQFLG 01095000 OCADNCP EQU OCREQFLG 01096000 @NM00126 EQU OCREQFLG 01097000 @NM00125 EQU OCREQFLG 01098000 OCFLUSHZ EQU OCREQFLG 01099000 OCRESPCT EQU OCLINTTE 01100000 OCCKPTWA EQU OCCKDATA+4 01101000 @NM00122 EQU OCRSTGTM+2 01102000 OCCKDAT2 EQU OCRSTGTM+1 01103000 OCCKDAT1 EQU OCRSTGTM 01104000 OCPTRSAV EQU OCMODNME+4 01105000 OCPUADR EQU OCIPLWA+2 01106000 OCWTGSAV EQU OCIPLWA 01107000 OCDVRDCT EQU OCBACKUP+6 01108000 OCNCP EQU OCBACKUP+4 01109000 OCBUFGOT EQU OCBACKUP+2 01110000 OCBUFNED EQU OCBACKUP 01111000 OCRESNUM EQU OCPARM 01112000 OCSEQ EQU OCTRUNIT+2 01113000 @NM00121 EQU OCRSID+1 01114000 OCNONE EQU OCALSTAT 01115000 OCSOME EQU OCALSTAT 01116000 OCALLFLG EQU OCALSTAT 01117000 OCACTREQ EQU OCALSTAT 01118000 OCREDRVE EQU OCALSTAT 01119000 OCSEQIND EQU OCALSTAT 01120000 @NM00120 EQU OCALSTAT 01121000 OCRENTRD EQU OCALSTAT 01122000 OCWTGB EQU OCTIOT 01123000 @NM00119 EQU @NM00118+2 01124000 OCCONID EQU OCDEST 01125000 OCRLN EQU IEDQOPCE+15 01126000 OCRESP EQU OCFLAG 01127000 OCATTACH EQU OCFLAG 01128000 OCSSCP EQU OCFLAG 01129000 OCOUTPUT EQU OCFLAG 01130000 OCLINE EQU OCFLAG 01131000 OCMPP EQU OCFLAG 01132000 OCTOTE EQU OCFLAG 01133000 OCCONSOL EQU OCFLAG 01134000 @NM00117 EQU OCSWITCH 01135000 OCQUCKN EQU OCSWITCH 01136000 OCPRIFLG EQU OCOPTCDE 01137000 @NM00116 EQU OCRUDEST+1 01138000 @NM00115 EQU OCSCAN 01139000 OCNOTUCB EQU OCSCAN 01140000 OCNONAME EQU OCSCAN 01141000 OCALLRLN EQU OCSCAN 01142000 OCDDNAME EQU OCSCAN 01143000 OCDDNRLN EQU OCSCAN 01144000 OCADDR EQU OCSCAN 01145000 OCELMPRI EQU OCELEM 01146000 OCLINK EQU IEDQOPCE 01147000 OPCBOTTM EQU IEDQOPCD+1172 01148000 @NM00114 EQU IEDQOPCD+1088 01149000 @NM00113 EQU IEDQOPCD+936 01150000 @NM00112 EQU IEDQOPCD+928 01151000 @NM00111 EQU IEDQOPCD+368 01152000 OPCWAITV EQU IEDQOPCD+364 01153000 OPCTOTCK EQU IEDQOPCD+360 01154000 OPCAPXTL EQU IEDQOPCD+356 01155000 OPCDECR EQU IEDQOPCD+352 01156000 OPCBUFWT EQU IEDQOPCD+348 01157000 OPCADGOT EQU IEDQOPCD+318 01158000 OPCRQCNT EQU IEDQOPCD+316 01159000 OPPOLSTP EQU IEDQOPCD+312 01160000 OPCCKCIB EQU IEDQOPCD+308 01161000 OPCEND EQU IEDQOPCD+307 01162000 OPCSTCBS EQU IEDQOPCD+306 01163000 OPCHNEND EQU IEDQOPCD+302 01164000 OPCOQSW EQU IEDQOPCD+301 01165000 @NM00110 EQU OPCSPEC 01166000 @NM00109 EQU OPCSPEC 01167000 @NM00108 EQU OPCSPEC 01168000 @NM00107 EQU OPCSPEC 01169000 OPCFRMCA EQU OPCSPEC 01170000 OPCRSTRT EQU OPCSPEC 01171000 OPCPART EQU OPCSPEC 01172000 OPCALTD EQU OPCSPEC 01173000 OPCBFEND EQU IEDQOPCD+296 01174000 OPCBFIRS EQU IEDQOPCD+292 01175000 OPCAVBUF EQU IEDQOPCD+290 01176000 @NM00106 EQU IEDQOPCD+289 01177000 OPCCLNTS EQU IEDQOPCD+288 01178000 OPCHA8 EQU IEDQOPCD+286 01179000 OPCBFREQ EQU IEDQOPCD+284 01180000 OPCFREBF EQU IEDQOPCD+280 01181000 OPCGETBF EQU IEDQOPCD+276 01182000 OPCNEXT EQU IEDQOPCD+272 01183000 OPCFMDFC EQU IEDQOPCD+268 01184000 OPCSCNC EQU IEDQOPCD+264 01185000 OPCHORTG EQU IEDQOPCD+260 01186000 OPCCKPTL EQU IEDQOPCD+252 01187000 OPCCKPTF EQU IEDQOPCD+248 01188000 OPCWAITA EQU IEDQOPCD+244 01189000 OPCWAITR EQU IEDQOPCD+240 01190000 OPCWAITP EQU IEDQOPCD+236 01191000 OPCWAITO EQU IEDQOPCD+232 01192000 OPCWAITN EQU IEDQOPCD+228 01193000 OPCWAITL EQU IEDQOPCD+224 01194000 OPCWAITC EQU IEDQOPCD+220 01195000 @NM00105 EQU OPCLDNME+5 01196000 @NM00104 EQU OPCLDNME 01197000 OPCWAIT EQU IEDQOPCD+192 01198000 OPCCKERB EQU IEDQOPCD+164 01199000 OPCBFERB EQU IEDQOPCD+148 01200000 OPCFLAG2 EQU IEDQOPCD+147 01201000 OPCRSAVE EQU IEDQOPCD+132 01202000 OPCQCBAD EQU IEDQOPCD+128 01203000 OPCTRMWA EQU IEDQOPCD+52 01204000 OPCPSTWT EQU IEDQOPCD+48 01205000 OPCPGCK EQU IEDQOPCD+40 01206000 OPCLCB EQU IEDQOPCD+36 01207000 @NM00103 EQU IEDQOPCD+32 01208000 OPCIPLAD EQU IEDQOPCD+28 01209000 OPCTOFLK EQU IEDQOPCD+24 01210000 OPCOPTLK EQU IEDQOPCD+20 01211000 OPCDCBLK EQU IEDQOPCD+16 01212000 SAVTBITN EQU IEDNSVTD+312 01213000 @NM00102 EQU SAVTCKQB+8 01214000 @NM00101 EQU SAVTCKEC+1 01215000 @NM00100 EQU SAVTCKCC 01216000 SAVTCKPO EQU SAVTCKCC 01217000 SAVTCKWA EQU SAVTCKCC 01218000 SAVTCKCH EQU SAVTCKTB+1 01219000 SAVTCKVT EQU SAVTCKTB 01220000 @NM00099 EQU IEDNSVTD+297 01221000 SAVTRDFG EQU SAVTRDRV+12 01222000 @NM00098 EQU SAVTRDRV+5 01223000 SAVTRDPY EQU SAVTRDRV+4 01224000 SAVTRDQB EQU SAVTRDRV+1 01225000 SAVTRDKY EQU SAVTRDRV 01226000 SAVTNID EQU IEDNSVTD+280 01227000 SAVTDVAS EQU IEDNSVTD+276 01228000 SAVTPLSZ EQU IEDNSVTD+274 01229000 @NM00097 EQU IEDNSVTD+273 01230000 SAVTSUBL EQU IEDNSVTD+272 01231000 @NM00096 EQU SAVTZELM+1 01232000 SAVTSUBM EQU SAVTZELM 01233000 SAVTMHDX EQU IEDNSVTD+268 01234000 SAVTNAT1 EQU IEDNSVTD+266 01235000 SAVTSH20 EQU IEDNSVTD+264 01236000 SAVTLCBS EQU IEDNSVTD+260 01237000 SAVTRNMP EQU IEDNSVTD+256 01238000 SAVTTNTX EQU IEDNSVTD+252 01239000 SAVTNAX EQU IEDNSVTD+248 01240000 SAVTSUBV EQU IEDNSVTD+247 01241000 SAVTSUBA EQU IEDNSVTD+246 01242000 SAVTSIBC EQU IEDNSVTD+244 01243000 SAVTBSM EQU IEDNSVTD+240 01244000 SAVTSCPT EQU SAVTTCPU 01245000 SAVTRQTG EQU IEDNSVTD+236 01246000 SAVTRQCH EQU IEDNSVTD+232 01247000 SAVTMAND EQU IEDNSVTD+228 01248000 SAVTSPLN EQU IEDNSVTD+224 01249000 SAVTNADL EQU IEDNSVTD+222 01250000 SAVTNATL EQU IEDNSVTD+220 01251000 SAVTMHTB EQU IEDNSVTD+216 01252000 SAVTSSMH EQU IEDNSVTD+212 01253000 SAVTQRS EQU IEDNSVTD+208 01254000 SAVTRQIN EQU IEDNSVTD+204 01255000 SAVTDFCO EQU IEDNSVTD+200 01256000 SAVTSAO EQU IEDNSVTD+196 01257000 SAVTSARI EQU IEDNSVTD+192 01258000 SAVTSAC EQU IEDNSVTD+188 01259000 SAVTSAI EQU IEDNSVTD+184 01260000 SAVTCSCI EQU IEDNSVTD+180 01261000 SAVTSSRP EQU IEDNSVTD+176 01262000 SAVTSSRQ EQU IEDNSVTD+172 01263000 SAVTSCLU EQU IEDNSVTD+168 01264000 SAVTXTRQ EQU IEDNSVTD+164 01265000 SAVTMVBF EQU IEDNSVTD+160 01266000 @NM00095 EQU IEDNSVTD+148 01267000 SAVTIPCQ EQU IEDNSVTD+144 01268000 @NM00094 EQU IEDNSVTD+136 01269000 SAVTXFMI EQU IEDNSVTD+132 01270000 @NM00093 EQU IEDNSVTD+124 01271000 SAVTXFMO EQU IEDNSVTD+120 01272000 @NM00092 EQU IEDNSVTD+116 01273000 SAVTSSSR EQU IEDNSVTD+112 01274000 SAVTSCPQ EQU IEDNSVTD+108 01275000 SAVTSLCB EQU IEDNSVTD+104 01276000 SAVTLUSR EQU IEDNSVTD+100 01277000 @NM00091 EQU SAVTLUSQ+8 01278000 SAVTLUSP EQU SAVTLUSQ+4 01279000 SAVTLUSB EQU SAVTLUSQ 01280000 @NM00090 EQU IEDNSVTD+84 01281000 SAVTSAT EQU IEDNSVTD+80 01282000 SAVTNAT EQU IEDNSVTD+76 01283000 SAVTCLUP EQU IEDNSVTD+72 01284000 SAVTPIUT EQU IEDNSVTD+68 01285000 SAVTRNTA EQU IEDNSVTD+64 01286000 SAVTDNIR EQU IEDNSVTD+60 01287000 SAVTCNIR EQU IEDNSVTD+56 01288000 SAVTFLDH EQU IEDNSVTD+52 01289000 SAVTSRTN EQU IEDNSVTD+48 01290000 SAVTSREQ EQU IEDNSVTD+44 01291000 SAVTFAIL EQU IEDNSVTD+42 01292000 SAVTSUSE EQU IEDNSVTD+40 01293000 SAVTSIB EQU IEDNSVTD+36 01294000 SAVTPRTN EQU IEDNSVTD+32 01295000 @NM00089 EQU IEDNSVTD+28 01296000 SAVTWH20 EQU IEDNSVTD+26 01297000 SAVTPWT EQU IEDNSVTD+24 01298000 SAVTPRTQ EQU IEDNSVTD+20 01299000 SAVTPREQ EQU IEDNSVTD+16 01300000 SAVTPH20 EQU IEDNSVTD+14 01301000 SAVTPUSE EQU IEDNSVTD+12 01302000 SAVTPLCB EQU IEDNSVTD+8 01303000 SAVTPOOL EQU IEDNSVTD+4 01304000 SAVTPRMT EQU SAVTDIAF 01305000 SAVTVIRT EQU SAVTDIAF 01306000 AVTCPBNO EQU IEDQAVTD+1244 01307000 AVTHRESS EQU IEDQAVTD+1243 01308000 @NM00088 EQU IEDQAVTD+1242 01309000 @NM00087 EQU IEDQAVTD+1241 01310000 @NM00086 EQU IEDQAVTD+1240 01311000 @NM00085 EQU IEDQAVTD+1237 01312000 @NM00084 EQU IEDQAVTD+1236 01313000 AVTHRESE EQU @NM00083 01314000 AVTRADDR EQU IEDQAVTD+1228 01315000 AVTNADDR EQU IEDQAVTD+1224 01316000 AVTHRESN EQU IEDQAVTD+1220 01317000 AVTVOLRN EQU IEDQAVTD+1216 01318000 AVTTOTNN EQU IEDQAVTD+1212 01319000 AVTTRCYN EQU IEDQAVTD+1208 01320000 AVTRCTRN EQU IEDQAVTD+1204 01321000 AVTNOVON EQU IEDQAVTD+1200 01322000 AVTADEBN EQU IEDQAVTD+1196 01323000 AVTVOLRR EQU IEDQAVTD+1192 01324000 AVTTOTNR EQU IEDQAVTD+1188 01325000 AVTTRCYR EQU IEDQAVTD+1184 01326000 AVTRCTRR EQU IEDQAVTD+1180 01327000 AVTNOVOR EQU IEDQAVTD+1176 01328000 AVTADEBR EQU IEDQAVTD+1172 01329000 AVTLODPT EQU IEDQAVTD+1168 01330000 AVTIOBN EQU IEDQAVTD+1164 01331000 AVTIOBR EQU IEDQAVTD+1160 01332000 AVTCPBPT EQU IEDQAVTD+1156 01333000 AVTFCPB EQU IEDQAVTD+1152 01334000 @NM00082 EQU IEDQAVTD+1148 01335000 AVTINCPQ EQU IEDQAVTD+1144 01336000 @NM00081 EQU IEDQAVTD+1140 01337000 @NM00080 EQU IEDQAVTD+1137 01338000 @NM00079 EQU AVTBIT4 01339000 @NM00078 EQU AVTBIT4 01340000 @NM00077 EQU AVTBIT4 01341000 @NM00076 EQU AVTBIT4 01342000 @NM00075 EQU AVTBIT4 01343000 @NM00074 EQU AVTBIT4 01344000 @NM00073 EQU AVTBIT4 01345000 AVTRUFTN EQU AVTBIT4 01346000 @NM00072 EQU IEDQAVTD+1132 01347000 AVTNOBFQ EQU IEDQAVTD+1128 01348000 @NM00071 EQU IEDQAVTD+1124 01349000 AVTDKENQ EQU IEDQAVTD+1120 01350000 @NM00070 EQU IEDQAVTD+1116 01351000 AVTDKAPQ EQU IEDQAVTD+1112 01352000 AVTCOPY EQU IEDQAVTD+1108 01353000 AVTIA EQU IEDQAVTD+1104 01354000 AVTFL EQU IEDQAVTD+1100 01355000 @NM00069 EQU IEDQAVTD+1096 01356000 AVTNCPBQ EQU IEDQAVTD+1092 01357000 AVTTOTNC EQU IEDQAVTD+1088 01358000 AVTCMAX EQU IEDQAVTD+1084 01359000 AVTCMIN EQU IEDQAVTD+1080 01360000 AVTHM02 EQU IEDQAVTD+1076 01361000 AVTOPCIN EQU IEDQAVTD+1074 01362000 AVTDCTLN EQU IEDQAVTD+1072 01363000 AVTOPMSK EQU IEDQAVTD+1068 01364000 AVTDDFT EQU IEDQAVTD+1064 01365000 AVTSTEAL EQU IEDQAVTD+1060 01366000 AVTOPTN EQU IEDQAVTD+1056 01367000 AVTDSKCT EQU IEDQAVTD+1054 01368000 AVTCKRST EQU IEDQAVTD+1053 01369000 AVTSTAN EQU AVTBIT3 01370000 AVTSTACN EQU AVTBIT3 01371000 AVTSTAIN EQU AVTBIT3 01372000 AVTSTAYN EQU AVTBIT3 01373000 AVTOLTBN EQU AVTBIT3 01374000 AVTTSAB EQU AVTBIT3 01375000 AVTRFULN EQU AVTBIT3 01376000 AVTRECVN EQU AVTBIT3 01377000 @NM00068 EQU AVTBIT2 01378000 @NM00067 EQU AVTBIT2 01379000 AVTOPEIN EQU AVTBIT2 01380000 AVTSTRTN EQU AVTBIT2 01381000 AVTTOPOL EQU AVTBIT2 01382000 AVTCOPYN EQU AVTBIT2 01383000 AVTREUSN EQU AVTBIT2 01384000 AVTEXTSC EQU AVTBIT2 01385000 AVTDISKN EQU AVTBIT1 01386000 AVTQUCKN EQU AVTBIT1 01387000 AVTCLOSN EQU AVTBIT1 01388000 AVTREADN EQU AVTBIT1 01389000 AVTDLAYN EQU AVTBIT1 01390000 AVTAQTAN EQU AVTBIT1 01391000 AVTTSON EQU AVTBIT1 01392000 AVTAPLKN EQU AVTBIT1 01393000 AVTDUMBR EQU IEDQAVTD+1048 01394000 AVTDLQX EQU IEDQAVTD+1046 01395000 AVTINTLV EQU IEDQAVTD+1044 01396000 AVTSMCNT EQU IEDQAVTD+1042 01397000 AVTAVFCT EQU IEDQAVTD+1040 01398000 AVTOPCON EQU IEDQAVTD+1038 01399000 AVTOPCNT EQU IEDQAVTD+1036 01400000 AVTLNCNT EQU IEDQAVTD+1034 01401000 AVTKEYLE EQU IEDQAVTD+1032 01402000 AVTHA16 EQU IEDQAVTD+1030 01403000 AVTHA7 EQU IEDQAVTD+1028 01404000 AVTHA4 EQU IEDQAVTD+1026 01405000 AVTHA3 EQU IEDQAVTD+1024 01406000 AVTHA2 EQU IEDQAVTD+1022 01407000 AVTGETMS EQU IEDQAVTD+1021 01408000 @NM00066 EQU IEDQAVTD+1020 01409000 AVTGETMD EQU IEDQAVTD+1016 01410000 AVTGETMN EQU IEDQAVTD+1012 01411000 AVTCWTOT EQU IEDQAVTD+1008 01412000 AVTCWINT EQU IEDQAVTD+956 01413000 AVTDTRAP EQU IEDQAVTD+952 01414000 @NM00065 EQU IEDQAVTD+950 01415000 @NM00064 EQU AVTIOTR 01416000 AVTIOTRH EQU AVTIOTR 01417000 AVTIOTRE EQU AVTIOTR 01418000 @NM00063 EQU AVTSUBT 01419000 AVTSUBPT EQU AVTSUBT 01420000 AVTSUBON EQU AVTSUBT 01421000 AVTAFE30 EQU IEDQAVTD+944 01422000 AVTAFE20 EQU IEDQAVTD+940 01423000 AVTAFE10 EQU IEDQAVTD+936 01424000 AVTCWEC2 EQU IEDQAVTD+932 01425000 AVTCWPM2 EQU IEDQAVTD+928 01426000 AVTCWTS2 EQU IEDQAVTD+927 01427000 AVTCWTS1 EQU IEDQAVTD+926 01428000 AVTCWCLD EQU AVTCWFL2 01429000 AVTCWRAP EQU AVTCWFL2 01430000 @NM00062 EQU AVTCWFL2 01431000 @NM00061 EQU AVTCWFL2 01432000 @NM00060 EQU AVTCWFL2 01433000 @NM00059 EQU AVTCWFL2 01434000 @NM00058 EQU AVTCWFL2 01435000 AVTCWACT EQU AVTCWFL2 01436000 @NM00057 EQU AVTCWFL1 01437000 @NM00056 EQU AVTCWFL1 01438000 @NM00055 EQU AVTCWFL1 01439000 @NM00054 EQU AVTCWFL1 01440000 @NM00053 EQU AVTCWFL1 01441000 @NM00052 EQU AVTCWFL1 01442000 @NM00051 EQU AVTCWFL1 01443000 AVTCOMWN EQU AVTCWFL1 01444000 AVTCWEC1 EQU IEDQAVTD+920 01445000 AVTCWPM1 EQU IEDQAVTD+916 01446000 AVTCAREA EQU IEDQAVTD+912 01447000 AVTFZERO EQU IEDQAVTD+908 01448000 AVTCADDR EQU IEDQAVTD+904 01449000 AVTCOREC EQU IEDQAVTD+900 01450000 @NM00050 EQU IEDQAVTD+892 01451000 AVTCPBCB EQU IEDQAVTD+888 01452000 @NM00049 EQU IEDQAVTD+880 01453000 AVTDSIOB EQU IEDQAVTD+876 01454000 @NM00048 EQU IEDQAVTD+868 01455000 AVTCPRMB EQU IEDQAVTD+864 01456000 @NM00047 EQU IEDQAVTD+856 01457000 AVTCLOSB EQU IEDQAVTD+852 01458000 @NM00046 EQU IEDQAVTD+844 01459000 AVTACTIB EQU IEDQAVTD+840 01460000 @NM00045 EQU IEDQAVTD+836 01461000 AVTOLTEB EQU IEDQAVTD+832 01462000 AVTOLTCH EQU AVTOLTQB+1 01463000 AVTOLTVT EQU AVTOLTQB 01464000 @NM00044 EQU AVTOPCQB+8 01465000 @NM00043 EQU AVTOPCEC+1 01466000 @NM00042 EQU AVTOPCCC 01467000 AVTOPCPO EQU AVTOPCCC 01468000 AVTOPCWA EQU AVTOPCCC 01469000 AVTOPCCH EQU AVTOPCOB+1 01470000 AVTOPCVT EQU AVTOPCOB 01471000 @NM00041 EQU AVTCKPQB+9 01472000 AVTCKPTS EQU AVTCKPQB+8 01473000 @NM00040 EQU AVTCKPEC+1 01474000 @NM00039 EQU AVTCKPCC 01475000 AVTCKPPO EQU AVTCKPCC 01476000 AVTCKPWA EQU AVTCKPCC 01477000 AVTCKPCH EQU AVTCKPTB+1 01478000 AVTCKPVT EQU AVTCKPTB 01479000 @NM00038 EQU IEDQAVTD+796 01480000 AVTBFRTB EQU IEDQAVTD+792 01481000 @NM00037 EQU IEDQAVTD+784 01482000 AVTBFREB EQU IEDQAVTD+780 01483000 AVTTIMQ EQU IEDQAVTD+776 01484000 @NM00036 EQU IEDQAVTD+772 01485000 AVTIMQPS EQU IEDQAVTD+768 01486000 AVTINOUT EQU IEDQAVTD+766 01487000 AVTREFTM EQU IEDQAVTD+764 01488000 @NM00035 EQU IEDQAVTD+752 01489000 AVTDELYB EQU IEDQAVTD+748 01490000 AVTOCQPT EQU IEDQAVTD+744 01491000 AVTTSOPT EQU IEDQAVTD+740 01492000 AVTSUPPT EQU IEDQAVTD+736 01493000 AVTCBQCB EQU IEDQAVTD+732 01494000 AVTMSGS EQU IEDQAVTD+729 01495000 @NM00034 EQU AVTSYSER 01496000 @NM00033 EQU AVTSYSER 01497000 @NM00032 EQU AVTSYSER 01498000 @NM00031 EQU AVTSYSER 01499000 @NM00030 EQU AVTSYSER 01500000 @NM00029 EQU AVTSYSER 01501000 AVTCMAXN EQU AVTSYSER 01502000 AVTCMINN EQU AVTSYSER 01503000 AVT2260L EQU IEDQAVTD+724 01504000 AVTABEPL EQU AVTADBUF 01505000 AVTHFF EQU AVTCLRHI+2 01506000 @NM00028 EQU AVTCLRHI 01507000 AVTCCLNK EQU AVTCRELE+5 01508000 AVTCCPRI EQU AVTCRELE+4 01509000 AVTCCQCB EQU AVTCCELE+1 01510000 AVTCCKEY EQU AVTCCELE 01511000 AVTDELAD EQU IEDQAVTD+704 01512000 AVTDELEM EQU IEDQAVTD+700 01513000 AVTBSX EQU AVTCKLNK 01514000 AVTOPETR EQU AVTHG01 01515000 @NM00027 EQU AVTCKBYT 01516000 AVTCKONQ EQU AVTCKBYT 01517000 @NM00026 EQU AVTCKBYT 01518000 @NM00025 EQU AVTCKBYT 01519000 @NM00024 EQU AVTCKBYT 01520000 @NM00023 EQU AVTCKBYT 01521000 @NM00022 EQU AVTCKBYT 01522000 @NM00021 EQU AVTCKBYT 01523000 AVTOPERT EQU IEDQAVTD+690 01524000 AVTOPXCL EQU IEDQAVTD+688 01525000 AVTOPERL EQU IEDQAVTD+687 01526000 @NM00020 EQU IEDQAVTD+686 01527000 AVTCKTIM EQU IEDQAVTD+684 01528000 AVTCKELV EQU IEDQAVTD+682 01529000 AVTCPRCD EQU IEDQAVTD+681 01530000 AVTWARMN EQU AVTCKELF 01531000 AVTCRTLN EQU AVTCKELF 01532000 AVTCPIPN EQU AVTCKELF 01533000 AVTCCLCN EQU AVTCKELF 01534000 AVTCINCN EQU AVTCKELF 01535000 @NM00019 EQU AVTCKELF 01536000 AVTCMCPN EQU AVTCKELF 01537000 AVTCRDYN EQU AVTCKELF 01538000 AVTCKQAD EQU IEDQAVTD+677 01539000 AVTSCBSZ EQU IEDQAVTD+676 01540000 @NM00018 EQU IEDQAVTD+672 01541000 AVTCKELE EQU IEDQAVTD+668 01542000 @NM00017 EQU AVTCKPEL+8 01543000 AVTCKRLK EQU AVTCKPEL+5 01544000 AVTCKRPR EQU AVTCKPEL+4 01545000 AVTCKRMQ EQU AVTCKRMV+1 01546000 AVTCKRKY EQU AVTCKRMV 01547000 AVTHK EQU IEDQAVTD+648 01548000 AVTHI EQU IEDQAVTD+644 01549000 AVTIOT EQU IEDQAVTD+640 01550000 AVTNX EQU IEDQAVTD+636 01551000 AVTTONE EQU IEDQAVTD+632 01552000 AVTA3TL EQU IEDQAVTD+628 01553000 AVTDMECB EQU IEDQAVTD+624 01554000 AVTABEND EQU IEDQAVTD+618 01555000 AVTPLCBN EQU IEDQAVTD+616 01556000 @NM00016 EQU AVTSAVTP+1 01557000 @NM00015 EQU AVTSAVTF 01558000 AVTSNA EQU AVTSAVTF 01559000 AVTONSNA EQU AVTSAVTF 01560000 AVTVTMCP EQU AVTSAVTF 01561000 @NM00014 EQU IEDQAVTD+608 01562000 AVTCMBSS EQU IEDQAVTD+604 01563000 AVTRCV EQU IEDQAVTD+600 01564000 AVTSEND EQU IEDQAVTD+596 01565000 AVTCSCH EQU IEDQAVTD+592 01566000 AVTQ1 EQU IEDQAVTD+588 01567000 AVTE7 EQU IEDQAVTD+584 01568000 AVTHB EQU IEDQAVTD+580 01569000 AVTR1 EQU IEDQAVTD+576 01570000 AVTBZ EQU IEDQAVTD+572 01571000 AVTEZ EQU IEDQAVTD+568 01572000 AVTEC EQU IEDQAVTD+564 01573000 AVTEW EQU IEDQAVTD+560 01574000 AVTNDIAL EQU AVTSCOPT 01575000 AVTN2741 EQU AVTSCOPT 01576000 AVTCONCO EQU AVTSCOPT 01577000 AVTCONC EQU AVTSCOPT 01578000 AVTCMBUF EQU AVTSCOPT 01579000 AVTAPDMP EQU AVTSCOPT 01580000 @NM00013 EQU AVTSCOPT 01581000 AVTHA EQU AVTDISP 01582000 AVTEA EQU IEDQAVTD+548 01583000 AVTAX EQU IEDQAVTD+544 01584000 AVTA3 EQU IEDQAVTD+540 01585000 AVTGD EQU IEDQAVTD+536 01586000 AVTAL EQU IEDQAVTD+532 01587000 AVTOLTST EQU AVTHG02 01588000 AVTE8 EQU IEDQAVTD+524 01589000 AVTUI EQU IEDQAVTD+520 01590000 AVTCOMPT EQU IEDQAVTD+516 01591000 AVTCRSRF EQU IEDQAVTD+512 01592000 @NM00012 EQU IEDQAVTD+508 01593000 AVTKA02 EQU IEDQAVTD+504 01594000 AVTOPTPT EQU IEDQAVTD+500 01595000 AVTPCBPT EQU IEDQAVTD+496 01596000 AVTOSECB EQU IEDQAVTD+492 01597000 AVTOPECA EQU IEDQAVTD+488 01598000 AVTOLECA EQU IEDQAVTD+484 01599000 AVTCKECA EQU IEDQAVTD+480 01600000 AVTCWECA EQU IEDQAVTD+476 01601000 AVTCWTCB EQU IEDQAVTD+472 01602000 AVTOLTCB EQU IEDQAVTD+468 01603000 AVTOCTCB EQU IEDQAVTD+464 01604000 AVTCKTCB EQU IEDQAVTD+460 01605000 AVTAS EQU IEDQAVTD+456 01606000 AVTNOLBF EQU IEDQAVTD+454 01607000 AVTNCKPR EQU IEDQAVTD+453 01608000 AVTCIB EQU IEDQAVTD+452 01609000 AVTSPLPT EQU IEDQAVTD+448 01610000 AVTMVBFR EQU IEDQAVTD+444 01611000 AVTSBTA EQU IEDQAVTD+440 01612000 AVTRARTN EQU IEDQAVTD+436 01613000 AVTBSCAN EQU IEDQAVTD+432 01614000 AVTRDYA EQU IEDQAVTD+428 01615000 AVTDISTR EQU IEDQAVTD+420 01616000 AVTPARM3 EQU IEDQAVTD+416 01617000 @NM00011 EQU AVTPKF 01618000 @NM00010 EQU AVTPKF 01619000 @NM00009 EQU AVTPKF 01620000 AVTFTCHF EQU AVTPKF 01621000 @NM00008 EQU AVTPKF 01622000 @NM00007 EQU AVTPKF 01623000 @NM00006 EQU AVTPKF 01624000 @NM00005 EQU AVTPKF 01625000 AVTPARM EQU IEDQAVTD+408 01626000 AVTEXS2A EQU IEDQAVTD+402 01627000 AVTEXA2S EQU IEDQAVTD+396 01628000 AVTOCGET EQU IEDQAVTD+392 01629000 AVTCKAVT EQU @NM00003+1 01630000 @NM00004 EQU AVTCKFLG 01631000 AVTCKHLT EQU AVTCKFLG 01632000 AVTCKREQ EQU AVTCKFLG 01633000 AVTCKENV EQU AVTCKFLG 01634000 AVTCKNAC EQU AVTCKFLG 01635000 AVTCKTAC EQU AVTCKFLG 01636000 @NM00002 EQU IEDQAVTD+384 01637000 AVTREADD EQU IEDQAVTD+380 01638000 AVTREADY EQU IEDQAVTD+376 01639000 AVTRACE EQU IEDQAVTD+372 01640000 AVTTCB EQU IEDQAVTD+368 01641000 AVTPASWD EQU IEDQAVTD+360 01642000 AVTCTLCH EQU IEDQAVTD+352 01643000 AVTDOUBL EQU IEDQAVTD+344 01644000 AVTDOUBX EQU IEDQAVTD+336 01645000 AVTDPARM EQU IEDQAVTD+332 01646000 AVTCSTCS EQU IEDQAVTD+328 01647000 AVTDLQ EQU AVTSAVEX+32 01648000 @NM00001 EQU AVTSAVEX 01649000 AVTSAVE4 EQU IEDQAVTD+216 01650000 AVTSAVE3 EQU IEDQAVTD+144 01651000 AVTSAVE2 EQU IEDQAVTD+72 01652000 AVTSAVE1 EQU IEDQAVTD 01653000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01654000 @RF00330 EQU @RC00327 01655000 @PB00007 EQU @EL00001 01656000 @PB00006 EQU @PB00007 01657000 @PB00005 EQU @PB00006 01658000 @PB00004 EQU @PB00005 01659000 @PB00003 EQU @PB00004 01660000 @PB00002 EQU @PB00003 01661000 @ENDDATA EQU * 01662000 END IGCDL10D,(C'PLS0049',0701,76364) 01663000