TITLE 'IEDIAH - IEDHALT ROUTINE *00001000 ' 00002000 IEDIAH CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 USING IEDIAH,RBASE 00005000 IEDIAH IEDHJN START MODULE ID/DATE 00006000 * IF RZERO=0 /* IF FROM IEDQBD */ 00007000 * THEN 0306 00008000 SLR @10,@10 0306 00009000 CR RZERO,@10 0306 00010000 BNE @RF00306 0306 00011000 * DO; /* THEN DO FOLLOWING */ 00012000 * RFY 0308 00013000 * PARMLIST BASED(RWORK8); /* CHANGE PARM BASE @YM07360*/ 00014000 * LCBERBLK=RPARM; /* LINK POST LIST TO ERB */ 00015000 STCM RPARM,7,LCBERBLK(RLCB) 0309 00016000 * RAVT=RSAVE-SAVEALEN; /* SET AVT BASE */ 00017000 LR RAVT,RSAVE 0310 00018000 SH RAVT,SAVEALEN 0310 00019000 * LCBERBQB=ADDRBD; /* SET POST ADDRESS */ 00020000 L @07,AVTMSGS-1(,RAVT) 0311 00021000 MVC LCBERBQB(3,RLCB),ADDRBD+1(@07) 0311 00022000 * LCBERBPY=PRIRCQCB; /* SET POST PRIORITY */ 00023000 MVI LCBERBPY(RLCB),X'E0' 0312 00024000 * LCBERBCH=0; /* CLEAR THE CHAIN */ 00025000 STCM @10,7,LCBERBCH(RLCB) 0313 00026000 * LCBRCLLN='0'B; /* SET NO RECALL */ 00027000 NI LCBRCLLN(RLCB),B'01111111' 0314 00028000 * RPARM=LCBTTCIN; /* GET THE TNT OFFSET */ 00029000 LH RPARM,LCBTTCIN(,RLCB) 0315 00030000 N RPARM,@CF01863 0315 00031000 * REG15=AVTRNMPT; /* GET TNT CODE ADDRESS */ 00032000 L REG15,AVTRNMPT(,RAVT) 0316 00033000 * RPARM=RPARM&AVTCLRHI; /* CLEAR HIGH - ORDER HALF */ 00034000 N RPARM,AVTCLRHI(,RAVT) 0317 00035000 * IF RPARM^=0 THEN 0318 00036000 CR RPARM,@10 0318 00037000 BE @RF00318 0318 00038000 * DO; /* TTCIN ZERO? @XA11347*/ 00039000 * GEN(BALR 14,15); /* LOCATE TERMINAL ENTRY */ 00040000 BALR 14,15 00041000 * RFY 0321 00042000 * IEDTRM BASED(RPARM); /* BASE DSECT */ 00043000 * RPARM=RPARM-LENGTH(IEDNTRM);/* BACK UP TO PREFIX @YM07360*/ 00044000 SL RPARM,@CF01485 0322 00045000 * IF TRMPREF='1'B& /* IF THIS IS A 3705 RESOURCE 0323 00046000 * @YM08402*/ 00047000 * LCBLUNIT='1'B& /* THEN IF IT IS AN LU@YM08402 */ 00048000 * TRMSIBPT^=0& /* THEN IF A SESSION EXISTS 0323 00049000 * @YM08402*/ 00050000 * SIBINDEX^=SAVTSCPT THEN/* THEN IF IT IS AN LU-LU 0323 00051000 * SESSION @YM08402*/ 00052000 TM TRMPREF(RPARM),B'00010000' 0323 00053000 BNO @RF00323 0323 00054000 TM LCBLUNIT(RLCB),B'01000000' 0323 00055000 BNO @RF00323 0323 00056000 SLR @10,@10 0323 00057000 ICM @10,7,TRMSIBPT(RPARM) 0323 00058000 LTR @10,@10 0323 00059000 BZ @RF00323 0323 00060000 L @07,AVTSAVTP(,RAVT) 0323 00061000 CLC SIBINDEX(2,@10),SAVTSCPT(@07) 0323 00062000 BE @RF00323 0323 00063000 * DO; /* @YM07360*/ 00064000 * IF IAHFLUSH^='1'B THEN/* IF FLUSH OPT THEN @YM07360*/ 00065000 TM IAHFLUSH(RWORK8),B'10000000' 0325 00066000 BO @RF00325 0325 00067000 * SIBLGOFF='1'B; /* SET LOGOFF FLAG @YM07360*/ 00068000 OI SIBLGOFF(@10),B'10000000' 0326 00069000 * ELSE 0327 00070000 * QCBFLUSH='1'B; /* ELSE SET Q FLUSH @YM07360*/ 00071000 B @RC00325 0327 00072000 @RF00325 SLR @10,@10 0327 00073000 ICM @10,7,TRMDESTQ(RPARM) 0327 00074000 AL @10,@CF01865 0327 00075000 OI QCBFLUSH-4(@10),B'00000010' 0327 00076000 * END; /* @YM07360*/ 00077000 @RC00325 DS 0H 0329 00078000 * END; /* @YM07360*/ 00079000 @RF00323 DS 0H 0330 00080000 * RPARM=ADDR(LCBERB); /* SET ELEMENT TO POST */ 00081000 @RF00318 LA RPARM,LCBERB(,RLCB) 0330 00082000 * CALL DSPCHAIN; /* GO POST LIST */ 00083000 LA @15,DSPCHAIN(,RDISP) 0331 00084000 BALR @14,@15 0331 00085000 * END; 0332 00086000 * ELSE 0333 00087000 * DO; 0333 00088000 B @RC00306 0333 00089000 @RF00306 DS 0H 0334 00090000 * RFY 0334 00091000 * PARMLIST BASED(RLIST); /* RESET PARM BASE @YM07360*/ 00092000 * RFY 0335 00093000 * IEDTRM BASED(RTRM); /* @YM07360*/ 00094000 * RLIST=RPARM; /* SET UP PARMLIST @Z30X8MJ 00095000 * BASE @Z30X8MJ*/ 00096000 LR RLIST,RPARM 0336 00097000 * RPARM=LCBTTCIN; /* GET THE TNT OFFSET@Z30X8MJ */ 00098000 LH RPARM,LCBTTCIN(,RLCB) 0337 00099000 N RPARM,@CF01863 0337 00100000 * RPARM=RPARM&AVTCLRHI; /* CLEAR HI-ORDER BYT@YM07360 */ 00101000 N RPARM,AVTCLRHI(,RAVT) 0338 00102000 * IF RPARM^=0 THEN 0339 00103000 LTR RPARM,RPARM 0339 00104000 BZ @RF00339 0339 00105000 * DO; /* TTCIN ZERO? @XA11347*/ 00106000 * REG15=AVTRNMPT; /* GET TNT CODE ADDR @Z30X8MJ*/ 00107000 L REG15,AVTRNMPT(,RAVT) 0341 00108000 * GEN(BALR 14,15); /* LOCATE TERMINAL @Z30X8MJ 00109000 * ENTRY @Z30X8MJ*/ 00110000 BALR 14,15 00111000 * REG15=4; /* SET BAD RETURN @Z30X8MJ 00112000 * CODE @Z30X8MJ*/ 00113000 LA REG15,4 0343 00114000 * RTRM=RPARM; /* TRM ADDRESSABILITY @YM06115*/ 00115000 LR RTRM,RPARM 0344 00116000 * RTRM=RTRM-LENGTH(IEDNTRM);/* BACK UP TO PREFIX @YM07360*/ 00117000 SL RTRM,@CF01485 0345 00118000 * IF TRMPREF='1'B& /* IF THIS IS A 3705 RESOURCE 0346 00119000 * @YM08402*/ 00120000 * LCBLUNIT='1'B& /* THEN IF IT IS AN LU @YM08402*/ 00121000 * TRMSIBPT^=0& /* THEN IF A SESSION EXISTS 0346 00122000 * @YM08402*/ 00123000 * SIBINDEX^=SAVTSCPT THEN/* THEN IF IT IS AN LU-LU 0346 00124000 * SESSION @YM08402*/ 00125000 TM TRMPREF(RTRM),B'00010000' 0346 00126000 BNO @RF00346 0346 00127000 TM LCBLUNIT(RLCB),B'01000000' 0346 00128000 BNO @RF00346 0346 00129000 SLR @10,@10 0346 00130000 ICM @10,7,TRMSIBPT(RTRM) 0346 00131000 LTR @10,@10 0346 00132000 BZ @RF00346 0346 00133000 L @07,AVTSAVTP(,RAVT) 0346 00134000 CLC SIBINDEX(2,@10),SAVTSCPT(@07) 0346 00135000 BE @RF00346 0346 00136000 * DO; /* RESOURCE, CONTINUE@YM07360 */ 00137000 * REG15=0; /* CLEAR RETURN CODE @Z30X8MJ*/ 00138000 SLR REG15,REG15 0348 00139000 * IF PRFSCANCOUNT)+1; /* GET NUMBER OF CHARACTERS IN 0464 00439000 * OPTION FIELD STRING@ZA03102 */ 00440000 SLR @10,@10 0464 00441000 IC @10,COUNT(,RPARM) 0464 00442000 LA @10,1(,@10) 0464 00443000 STH @10,STRNGCNT 0464 00444000 * CALL TSOSCAN; /* SCAN BUFFER FOR LOGOFF 0465 00445000 * SEQUENCE @ZA03102*/ 00446000 BAL @14,TSOSCAN 0465 00447000 * END; /* END DO GROUP @ZA03102*/ 00448000 * ELSE 0467 00449000 * IF PRFSCAN=0 /* OPTION FIELD FOUND,IS SCAN 0467 00450000 * POINTER SET? @ZA03102*/ 00451000 * THEN 0467 00452000 B @RC00462 0467 00453000 @RF00462 LH @10,PRFSCAN(,RPRF) 0467 00454000 LTR @10,@10 0467 00455000 BZ @RT00467 0467 00456000 * ; /* YES, DO NOT SCAN @YM07360*/ 00457000 * ELSE 0469 00458000 * DO; /* SCAN POINTER SET,CALL NON-TSO 00459000 * SCAN ROUTINE @ZA03102*/ 00460000 * RZERO=REG15; /* SET ADDRESS OF CHARS */ 00461000 LR RZERO,REG15 0470 00462000 * REG15=AVTAL; /* GET ADDR OF SCAN ROUTINE */ 00463000 L REG15,AVTAL(,RAVT) 0471 00464000 * RWORK3=RPARM->COUNT; /* GET NUMBER OF CHARS */ 00465000 SLR RWORK3,RWORK3 0472 00466000 IC RWORK3,COUNT(,RPARM) 0472 00467000 * RWORK3=RWORK3+1; /* INCREMENT THE COUNT */ 00468000 LA RWORK3,1(,RWORK3) 0473 00469000 * RPARM=RWORK3; /* PUT COUNT IN PARM REG */ 00470000 LR RPARM,RWORK3 0474 00471000 * GEN(SLL RPARM,24); /* SHIFT TO HI ORDER BYTE */ 00472000 SLL RPARM,24 00473000 * REG2=PRFSCAN; /* GET OFFSET FOR SCAN */ 00474000 LH REG2,PRFSCAN(,RPRF) 0476 00475000 * REG2=REG2&AVTCLRHI; /* CLEAR HI ORDER HALF */ 00476000 N REG2,AVTCLRHI(,RAVT) 0477 00477000 * RPARM=RPARM+REG2; /* PUT OFFSET IN PARM REG */ 00478000 ALR RPARM,REG2 0478 00479000 * REG2=' '; /* SET BLANK CHAR */ 00480000 LA REG2,64 0479 00481000 * GEN(BALR 14,15); /* LINK TO IEDQAL */ 00482000 BALR 14,15 00483000 * IF REG15=0 /* IF NOT FOUND */ 00484000 * THEN 0481 00485000 LTR REG15,REG15 0481 00486000 BNZ @RF00481 0481 00487000 * REG15=4; /* THEN SET ERROR RETURN */ 00488000 LA REG15,4 0482 00489000 * ELSE 0483 00490000 * IF REG15=RWORK3 /* IF ALL WERE FOUND */ 00491000 * THEN 0483 00492000 B @RC00481 0483 00493000 @RF00481 CR REG15,RWORK3 0483 00494000 BNE @RF00483 0483 00495000 * DO; /* SET GOOD RETURN */ 00496000 * PRFSCAN=RZERO; /* SET NEW SCAN PTR */ 00497000 STH RZERO,PRFSCAN(,RPRF) 0485 00498000 * REG15=0; /* GOOD RETURN CODE */ 00499000 SLR REG15,REG15 0486 00500000 * END; 0487 00501000 * ELSE 0488 00502000 * REG15=4; /* SET ERROR RETURN CODE */ 00503000 B @RC00483 0488 00504000 @RF00483 LA REG15,4 0488 00505000 * END; 0489 00506000 @RC00483 DS 0H 0489 00507000 @RC00481 DS 0H 0490 00508000 * REG14=RWORK1; /* RESTORE RETURN ADDRESS */ 00509000 @RT00467 DS 0H 0490 00510000 @RC00462 LR REG14,RWORK1 0490 00511000 * RFY 0491 00512000 * REG2 UNRSTD; /* RELEASE TO COMPILER */ 00513000 * RFY 0492 00514000 * RZERO UNRSTD; /* RELEASE TO COMPILER */ 00515000 * RFY 0493 00516000 * RWORK1 UNRSTD; /* RELEASE TO COMPILER */ 00517000 * RFY 0494 00518000 * RLIST UNRSTD; /* RELEASE TO COMPILER */ 00519000 * RETURN; /* RETURN TO CALLER */ 00520000 B @EL00001 0495 00521000 * 0496 00522000 * /*****************************************************************/ 00523000 * /* */ 00524000 * /* THIS SUBROUTINE SCANS THE TSO HEADER BUFFER FOR THE LOGOFF */ 00525000 * /* CHARACTER STRING SPECIFIED BY THE IEDHALT MACRO. THE LOGOFF */ 00526000 * /* SEQUENCE MUST BE THE FIRST NON-BLANK USER DATA CONTAINED IN */ 00527000 * /* BUFFER. IF THE LOGOFF SEQUENCE IS NOT FOUND, THE RETURN CODE */ 00528000 * /* IS SET TO 8. @ZA03102*/ 00529000 * /* */ 00530000 * /*****************************************************************/ 00531000 * 0496 00532000 *TSOSCAN: 0496 00533000 * PROC OPTIONS(NOSAVEAREA,NOSAVE);/* @ZA03102*/ 00534000 TSOSCAN DS 0H 0497 00535000 * R14SAVE=REG14; /* SAVE RETURN ADDRESS @ZA03102*/ 00536000 ST REG14,R14SAVE 0497 00537000 * PRFPTR=RPRF; /* GET BUFFER ADDRESS @ZA03102*/ 00538000 ST RPRF,PRFPTR 0498 00539000 * RFY 0499 00540000 * IEDQPRF BASED(PRFPTR); /* RESPECIFY BFR PREFIX @ZA03102*/ 00541000 * CHARCNT=0; /* INITIALIZE COUNT OF CHARACTERS 00542000 * COMPARED @ZA03102*/ 00543000 MVI CHARCNT,X'00' 0500 00544000 * SCANPTR=ADDR(PRFSHDR); /* INITIALIZE SCAN POINTER 0501 00545000 * @ZA03102*/ 00546000 L @10,PRFPTR 0501 00547000 LA SCANPTR,PRFSHDR(,@10) 0501 00548000 * UNITCNT=AVTHDRSZ; /* INITIALIZE COUNT OF BYTES 0502 00549000 * SCANNED IN UNIT @ZA03102*/ 00550000 LA @10,30 0502 00551000 LR UNITCNT,@10 0502 00552000 * BFRCNT=AVTHDRSZ; /* INITIALIZE COUNT OF BYTES 0503 00553000 * SCANNED IN BUFFER @ZA03102*/ 00554000 LR BFRCNT,@10 0503 00555000 * CALL FINDATA; /* FIND BEGINNING OF BUFFER DATA 00556000 * @ZA03102*/ 00557000 BAL @14,FINDATA 0504 00558000 * DO BFRCNT=(BFRCNT+1) TO PRFSIZE WHILE(REG15=4);/* SCAN TO FIRST 00559000 * NON-BLANK CHARACTER. COMPARE 00560000 * TO IEDHALT LOGOFF SEQUENCE FOR 00561000 * MATCH @ZA03102*/ 00562000 LA @10,1 0505 00563000 ALR @10,BFRCNT 0505 00564000 LR BFRCNT,@10 0505 00565000 B @DE00505 0505 00566000 @DL00505 C REG15,@CF00473 0505 00567000 BNE @DC00505 0505 00568000 * IF UNITCNT=AVTKEYLE /* WHOLE UNIT BEEN SCANNED? 0506 00569000 * @ZA03102*/ 00570000 * THEN 0506 00571000 CH UNITCNT,AVTKEYLE(,RAVT) 0506 00572000 BNE @RF00506 0506 00573000 * DO; /* YES,LOOK AT NEXT UNIT @ZA03102*/ 00574000 * CALL LINKUNIT; /* LINK UNITS @ZA03102*/ 00575000 BAL @14,LINKUNIT 0508 00576000 * BFRCNT=BFRCNT-1; /* ADJUST BUFFER COUNT SINCE NO 00577000 * BYTE SCANNED @ZA03102*/ 00578000 BCTR BFRCNT,0 0509 00579000 * END; /* END DO GROUP @ZA03102*/ 00580000 * ELSE 0511 00581000 * DO; /* NO,LOOK AT NEXT BYTE @ZA03102*/ 00582000 B @RC00506 0511 00583000 @RF00506 DS 0H 0512 00584000 * UNITCNT=UNITCNT+1; /* INCREMENT UNIT COUNT @ZA03102*/ 00585000 AL UNITCNT,@CF00035 0512 00586000 * IF BUFDATA=' ' /* BYTE A BLANK? @ZA03102*/ 00587000 * THEN 0513 00588000 CLI BUFDATA(SCANPTR),C' ' 0513 00589000 BNE @RF00513 0513 00590000 * IF CHARCNT>0 /* NON-BLANK CHARACTER ALREADY 0514 00591000 * FOUND? @ZA03102*/ 00592000 * THEN 0514 00593000 CLI CHARCNT,0 0514 00594000 BNH @RF00514 0514 00595000 * REG15=EIGHT; /* YES,SET BAD RETURN CODE 0515 00596000 * @ZA03102*/ 00597000 LA REG15,8 0515 00598000 * ELSE 0516 00599000 * SCANPTR=SCANPTR+1; /* NO,POINT TO NEXT BYTE @ZA03102*/ 00600000 B @RC00514 0516 00601000 @RF00514 AL SCANPTR,@CF00035 0516 00602000 * ELSE 0517 00603000 * DO; /* BYTE NOT A BLANK-COMPARE FOR 00604000 * MATCH @ZA03102*/ 00605000 B @RC00513 0517 00606000 @RF00513 DS 0H 0518 00607000 * CHARCNT=CHARCNT+1; /* INCREMENT COUNT OF CHARACTERS 00608000 * COMPARED @ZA03102*/ 00609000 SLR @10,@10 0518 00610000 IC @10,CHARCNT 0518 00611000 LA @10,1(,@10) 0518 00612000 STC @10,CHARCNT 0518 00613000 * IF BUFDATA=STRING(CHARCNT)/* DATA BYTE EQUAL 0519 00614000 * CORRESPONDING BYTE IN IEDHALT 00615000 * MACRO STRING? @ZA03102*/ 00616000 * THEN 0519 00617000 ST @10,@TF00001 0519 00618000 L @10,STRNGPTR 0519 00619000 AL @10,@TF00001 0519 00620000 BCTR @10,0 0519 00621000 CLC BUFDATA(1,SCANPTR),STRING(@10) 0519 00622000 BNE @RF00519 0519 00623000 * IF CHARCNT=STRNGCNT /* YES,HAS WHOLE STRING BEEN 0520 00624000 * EXAMINED? @ZA03102*/ 00625000 * THEN 0520 00626000 L @10,@TF00001 0520 00627000 CH @10,STRNGCNT 0520 00628000 BNE @RF00520 0520 00629000 * REG15=0; /* YES,SET SUCCESSFUL RETURN CODE 00630000 * @ZA03102*/ 00631000 SLR REG15,REG15 0521 00632000 * ELSE 0522 00633000 * SCANPTR=SCANPTR+1;/* NO,BUMP SCAN POINTER TO NEXT 00634000 * BYTE @ZA03102*/ 00635000 B @RC00520 0522 00636000 @RF00520 AL SCANPTR,@CF00035 0522 00637000 * ELSE 0523 00638000 * REG15=EIGHT; /* NO MATCH FOUND ON DATA 0523 00639000 * BYTE-SET BAD RETURN CODE 0523 00640000 * @ZA03102*/ 00641000 B @RC00519 0523 00642000 @RF00519 LA REG15,8 0523 00643000 * END; /* END DO GROUP @ZA03102*/ 00644000 @RC00519 DS 0H 0525 00645000 * END; /* END DO GROUP @ZA03102*/ 00646000 @RC00513 DS 0H 0526 00647000 * END; /* END DO WHILE LOOP @ZA03102*/ 00648000 @RC00506 AL BFRCNT,@CF00035 0526 00649000 @DE00505 L @10,PRFPTR 0526 00650000 CH BFRCNT,PRFSIZE(,@10) 0526 00651000 BNH @DL00505 0526 00652000 @DC00505 DS 0H 0527 00653000 * REG14=R14SAVE; /* RESTORE RETURN ADDRESS@ZA03102*/ 00654000 L REG14,R14SAVE 0527 00655000 * END TSOSCAN; /* RETURN TO CALLER @ZA03102*/ 00656000 @EL00002 DS 0H 0528 00657000 @EF00002 DS 0H 0528 00658000 @ER00002 BR @14 0528 00659000 * 0529 00660000 * /*****************************************************************/ 00661000 * /* */ 00662000 * /* THIS SUBROUTINE CHECKS HEADER BUFFER TEXT FOR RESERVE BYTES */ 00663000 * /* AND 3270 CONTROL CHARACTERS. ANY SUCH BYTES FOUND ARE SKIPPED */ 00664000 * /* AND SCAN POINTER IS ADVANCED TO FIRST BYTE OF USER DATA. */ 00665000 * /* @ZA03102*/ 00666000 * /* */ 00667000 * /*****************************************************************/ 00668000 * 0529 00669000 *FINDATA: 0529 00670000 * PROC OPTIONS(NOSAVEAREA,NOSAVE);/* @ZA03102*/ 00671000 FINDATA DS 0H 0530 00672000 * RFY 0530 00673000 * IEDDCT BASED(DCTPTR); 0530 00674000 * R14SAVE2=REG14; /* SAVE RETURN ADDRESS @ZA03102*/ 00675000 ST REG14,R14SAVE2 0531 00676000 * IF LCBISZE>0 /* ANY RESERVE BYTES? @ZA03102*/ 00677000 * THEN 0532 00678000 CLI LCBISZE(RLCB),0 0532 00679000 BNH @RF00532 0532 00680000 * DO; /* YES,SKIP THEM @ZA03102*/ 00681000 * UNITCNT=UNITCNT+LCBISZE; /* INCLUDE COUNT OF RESERVE BYTES 00682000 * IN UNIT COUNT @ZA03102*/ 00683000 SLR @10,@10 0534 00684000 IC @10,LCBISZE(,RLCB) 0534 00685000 ALR UNITCNT,@10 0534 00686000 * BFRCNT=BFRCNT+LCBISZE; /* INCLUDE COUNT OF RESERVE BYTES 00687000 * IN BUFFER COUNT @ZA03102*/ 00688000 ALR BFRCNT,@10 0535 00689000 * IF UNITCNT=>AVTKEYLE /* WHOLE UNIT BEEN SCANNED? 0536 00690000 * @ZA03102*/ 00691000 * THEN 0536 00692000 CH UNITCNT,AVTKEYLE(,RAVT) 0536 00693000 BL @RF00536 0536 00694000 * CALL LINKUNIT; /* YES,LOOK AT NEXT UNIT @ZA03102*/ 00695000 BAL @14,LINKUNIT 0537 00696000 * ELSE 0538 00697000 * SCANPTR=SCANPTR+LCBISZE; /* NO,ADVANCE SCAN POINTER PAST 00698000 * RESERVE BYTES @ZA03102*/ 00699000 B @RC00536 0538 00700000 @RF00536 SLR @10,@10 0538 00701000 IC @10,LCBISZE(,RLCB) 0538 00702000 ALR SCANPTR,@10 0538 00703000 * END; /* END DO GROUP @ZA03102*/ 00704000 * ELSE 0540 00705000 * ; /* NO RESERVE BYTES @ZA03102*/ 00706000 @RF00532 DS 0H 0541 00707000 * IF REG15=4 /* PROBLEM FOUND? @ZA03102*/ 00708000 * THEN 0541 00709000 @RC00532 C REG15,@CF00473 0541 00710000 BNE @RF00541 0541 00711000 * DO; /* NO,CONTINUE SCAN @ZA03102*/ 00712000 * IF SIBFMPRO=2 /* 3270 STATION? @YM08402*/ 00713000 * THEN 0543 00714000 SLR @10,@10 0543 00715000 ICM @10,7,TRMSIBPT(RTRM) 0543 00716000 CLI SIBFMPRO(@10),2 0543 00717000 BNE @RF00543 0543 00718000 * DO; /* YES,SKIP 3270 CONTROL 0544 00719000 * CHARACTERS AND SBA,IF 0544 00720000 * SPECIFIED @ZA03102*/ 00721000 * UNITCNT=UNITCNT+AVTHA3; /* INCLUDE THREE CONTROL 0545 00722000 * CHARACTERS IN UNIT COUNT 0545 00723000 * @ZA03102*/ 00724000 LH @10,AVTHA3(,RAVT) 0545 00725000 ALR UNITCNT,@10 0545 00726000 * BFRCNT=BFRCNT+AVTHA3; /* INCLUDE THREE CONTROL 0546 00727000 * CHARACTERS IN BUFFER COUNT 0546 00728000 * @ZA03102*/ 00729000 ALR BFRCNT,@10 0546 00730000 * IF UNITCNT=>AVTKEYLE /* WHOLE UNIT BEEN SCANNED? 0547 00731000 * @ZA03102*/ 00732000 * THEN 0547 00733000 CH UNITCNT,AVTKEYLE(,RAVT) 0547 00734000 BL @RF00547 0547 00735000 * CALL LINKUNIT; /* YES,LOOK AT NEXT UNIT @ZA03102*/ 00736000 BAL @14,LINKUNIT 0548 00737000 * ELSE 0549 00738000 * SCANPTR=SCANPTR+AVTHA3;/* NO,ADVANCE SCAN POINTER PAST 00739000 * CONTROL CHARACTERS @ZA03102*/ 00740000 B @RC00547 0549 00741000 @RF00547 AH SCANPTR,AVTHA3(,RAVT) 0549 00742000 * IF REG15=4 /* PROBLEM FOUND? @ZA03102*/ 00743000 * THEN 0550 00744000 @RC00547 C REG15,@CF00473 0550 00745000 BNE @RF00550 0550 00746000 * IF BUFDATA=SBACHAR /* NO,SBA ON? @ZA03102*/ 00747000 * THEN 0551 00748000 CLI BUFDATA(SCANPTR),X'11' 0551 00749000 BNE @RF00551 0551 00750000 * DO; /* YES,SKIP SBA BYTES @ZA03102*/ 00751000 * UNITCNT=UNITCNT+AVTHA3;/* INCLUDE THREE SBA BYTES 00752000 * IN UNIT COUNT @ZA03102*/ 00753000 LH @10,AVTHA3(,RAVT) 0553 00754000 ALR UNITCNT,@10 0553 00755000 * BFRCNT=BFRCNT+AVTHA3;/* INCLUDE THREE SBA BYTES IN 00756000 * UNIT COUNT @ZA03102*/ 00757000 ALR BFRCNT,@10 0554 00758000 * IF UNITCNT=>AVTKEYLE/* WHOLE UNIT BEEN SCANNED? 0555 00759000 * @ZA03102*/ 00760000 * THEN 0555 00761000 CH UNITCNT,AVTKEYLE(,RAVT) 0555 00762000 BL @RF00555 0555 00763000 * CALL LINKUNIT; /* YES,LOOK AT NEXT UNIT @ZA03102*/ 00764000 BAL @14,LINKUNIT 0556 00765000 * ELSE 0557 00766000 * SCANPTR=SCANPTR+AVTHA3;/* NO,ADVANCE SCAN POINTER 00767000 * PAST SBA BYTES @ZA03102*/ 00768000 B @RC00555 0557 00769000 @RF00555 AH SCANPTR,AVTHA3(,RAVT) 0557 00770000 * END; /* END DO GROUP @ZA03102*/ 00771000 * ELSE 0559 00772000 * ; /* SBA NOT ON @ZA03102*/ 00773000 @RF00551 DS 0H 0560 00774000 * ELSE 0560 00775000 * ; /* PROBLEM FOUND,GET OUT @ZA03102*/ 00776000 @RF00550 DS 0H 0561 00777000 * END; /* END DO GROUP @ZA03102*/ 00778000 * ELSE 0562 00779000 * ; /* NOT 3270 STATION @ZA03102*/ 00780000 @RF00543 DS 0H 0563 00781000 * END; /* END DO GROUP @ZA03102*/ 00782000 * ELSE 0564 00783000 * ; /* PROBLEM FOUND,GET OUT @ZA03102*/ 00784000 @RF00541 DS 0H 0565 00785000 * REG14=R14SAVE2; /* RESTORE RETURN ADDRESS@ZA03102*/ 00786000 @RC00541 L REG14,R14SAVE2 0565 00787000 * END FINDATA; /* RETURN TO CALLER @ZA03102*/ 00788000 @EL00003 DS 0H 0566 00789000 @EF00003 DS 0H 0566 00790000 @ER00003 BR @14 0566 00791000 * 0567 00792000 * /*****************************************************************/ 00793000 * /* */ 00794000 * /* THIS SUBROUTINE SETS SCAN POINTER TO SUBSEQUENT UNIT AND */ 00795000 * /* ADJUSTS UNIT COUNT WHEN END OF BUFFER UNIT IS REACHED. IF */ 00796000 * /* BUFFER TIC FIELD DOES NOT CONTAIN A UNIT ADDRESS FOR LINKAGE, */ 00797000 * /* A RETURN CODE OF 16 IS SET. @ZA03102*/ 00798000 * /* */ 00799000 * /*****************************************************************/ 00800000 * 0567 00801000 *LINKUNIT: 0567 00802000 * PROC OPTIONS(NOSAVEAREA,NOSAVE);/* @ZA03102*/ 00803000 LINKUNIT DS 0H 0568 00804000 * IF PRFTI0=TIC2 /* TIC FIELD SET TO 2? @ZA03102*/ 00805000 * THEN 0568 00806000 L @10,PRFPTR 0568 00807000 CLC PRFTI0(3,@10),@CF00273+1 0568 00808000 BNE @RF00568 0568 00809000 * REG15=AVTHA16; /* YES,SET BAD RETURN CODE 0569 00810000 * @ZA03102*/ 00811000 LH REG15,AVTHA16(,RAVT) 0569 00812000 * ELSE 0570 00813000 * DO; /* NO,LINK UNITS @ZA03102*/ 00814000 B @RC00568 0570 00815000 @RF00568 DS 0H 0571 00816000 * PRFPTR=PRFTI0; /* GET NEXT UNIT ADDRESS @ZA03102*/ 00817000 L @10,PRFPTR 0571 00818000 L @10,PRFTI0-1(,@10) 0571 00819000 LA @10,0(,@10) 0571 00820000 ST @10,PRFPTR 0571 00821000 * UNITCNT=UNITCNT-AVTKEYLE; /* ADJUST UNIT COUNT FOR NEW UNIT 00822000 * @ZA03102*/ 00823000 SH UNITCNT,AVTKEYLE(,RAVT) 0572 00824000 * SCANPTR=ADDR(PRFSUNIT)+UNITCNT;/* POINT TO FIRST BYTE TO BE 00825000 * SCANNED IN NEW UNIT @ZA03102*/ 00826000 LA SCANPTR,PRFSUNIT(,@10) 0573 00827000 ALR SCANPTR,UNITCNT 0573 00828000 * END; /* END DO GROUP @ZA03102*/ 00829000 * END LINKUNIT; /* RETURN TO CALLER @ZA03102*/ 00830000 @EL00004 DS 0H 0575 00831000 @EF00004 DS 0H 0575 00832000 @ER00004 BR @14 0575 00833000 * RFY 0576 00834000 * IEDQPRF BASED(RPRF); /* RESTORE BUFFER PREFIX BASE 0576 00835000 * @ZA03102*/ 00836000 * RFY 0577 00837000 * RWORK3 UNRSTD; /* RELEASE TO COMPILER */ 00838000 * RFY 0578 00839000 * RSCB UNRSTD; /* RELEASE TO COMPILER */ 00840000 * RFY 0579 00841000 * RLCB UNRSTD; /* RELEASE TO COMPILER */ 00842000 * RFY 0580 00843000 * RAVT UNRSTD; /* RELEASE TO COMPILER */ 00844000 * RFY 0581 00845000 * REG14 UNRSTD; /* RELEASE TO COMPILER */ 00846000 * RFY 0582 00847000 * REG15 UNRSTD; /* RELEASE TO COMPILER */ 00848000 * RFY 0583 00849000 * RPARM UNRSTD; /* RELEASE TO COMPILER */ 00850000 * RFY 0584 00851000 * RBASE UNRSTD; /* RELEASE TO COMPILER */ 00852000 * RFY 0585 00853000 * RSAVE UNRSTD; 0585 00854000 * RFY 0586 00855000 * RPRF UNRSTD; 0586 00856000 * END IEDIAH 0587 00857000 * 0587 00858000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00859000 */*%INCLUDE SYSLIB (TSCBD ) */ 00860000 */*%INCLUDE SYSLIB (TAVTD ) */ 00861000 */*%INCLUDE SYSLIB (TDCTD ) */ 00862000 */*%INCLUDE SYSLIB (TDISPD ) */ 00863000 */*%INCLUDE SYSLIB (TLCBD ) */ 00864000 */*%INCLUDE SYSLIB (TPRFD ) */ 00865000 */*%INCLUDE SYSLIB (TQCBD ) */ 00866000 */*%INCLUDE SYSLIB (TSIBD ) */ 00867000 */*%INCLUDE SYSLIB (TTRMD ) */ 00868000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00869000 * 0587 00870000 * ; 0587 00871000 @DATA DS 0H 00872000 DS 0F 00873000 @TF00001 DS F 00874000 DS 0F 00875000 @CF00035 DC F'1' 00876000 @CF00273 DC F'2' 00877000 @CF00473 DC F'4' 00878000 @CF01485 DC F'14' 00879000 @CF01865 DC F'-4' 00880000 @CF01863 DC XL4'0000FFFF' 00881000 DS 0D 00882000 DCTPTR DS A 00883000 PRFPTR DS A 00884000 STRNGPTR DS A 00885000 SAVEALEN DC XL2'48' 00886000 STRNGCNT DS H 00887000 DS CL1 00888000 IEDQQPTR DS AL3 00889000 CHARCNT DS FL1 00890000 TEMP DS CL1 00891000 DS CL2 00892000 @NM00178 DS CL8 00893000 ORG @NM00178 00894000 R14SAVE DC A(0) 00895000 R14SAVE2 DC A(0) 00896000 ORG @NM00178+8 00897000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00898000 @01 EQU 01 00899000 @02 EQU 02 00900000 @03 EQU 03 00901000 @04 EQU 04 00902000 @05 EQU 05 00903000 @06 EQU 06 00904000 @07 EQU 07 00905000 @08 EQU 08 00906000 @09 EQU 09 00907000 @10 EQU 10 00908000 @11 EQU 11 00909000 @12 EQU 12 00910000 @13 EQU 13 00911000 @14 EQU 14 00912000 @15 EQU 15 00913000 SCANPTR EQU @07 00914000 UNITCNT EQU @02 00915000 BFRCNT EQU @11 00916000 IEDQSPTR EQU @10 00917000 IEDQAPTR EQU @09 00918000 RDISP EQU @11 00919000 IEDQLPTR EQU @04 00920000 LCBXPTR EQU @05 00921000 IEDQPPTR EQU @06 00922000 RTRM EQU @08 00923000 RPARM EQU @01 00924000 RZERO EQU @00 00925000 RLIST EQU @11 00926000 REG2 EQU @02 00927000 RSCB EQU @03 00928000 RLCB EQU @04 00929000 RWORK3 EQU @05 00930000 RPRF EQU @06 00931000 RWORK1 EQU @07 00932000 RWORK8 EQU @08 00933000 RAVT EQU @09 00934000 RBASE EQU @12 00935000 RSAVE EQU @13 00936000 REG14 EQU @14 00937000 REG15 EQU @15 00938000 IEDQTPTR EQU @01 00939000 RETREG EQU @15 00940000 RQCB EQU @07 00941000 RWORK10 EQU @10 00942000 IEDQSCB EQU 0 00943000 SCBSTATE EQU IEDQSCB 00944000 SCBSEQIN EQU SCBSTATE 00945000 SCBRCVCT EQU IEDQSCB+4 00946000 SCBMBHEN EQU IEDQSCB+5 00947000 SCBBKFCT EQU IEDQSCB+9 00948000 SCBEOBSZ EQU SCBBKFCT+1 00949000 SCBSALEV EQU IEDQSCB+12 00950000 SCBQTYPE EQU SCBSALEV 00951000 SCBERRST EQU IEDQSCB+16 00952000 SCBERR1 EQU SCBERRST 00953000 SCBHDRRN EQU SCBERR1 00954000 SCBORIGN EQU SCBERR1 00955000 SCBNOTRM EQU SCBERR1 00956000 SCBSEQHN EQU SCBERR1 00957000 SCBSEQLN EQU SCBERR1 00958000 SCBCUTFN EQU SCBERR1 00959000 SCBERR2 EQU SCBERRST+1 00960000 SCBABRTN EQU SCBERR2 00961000 SCBERR3 EQU SCBERRST+2 00962000 SCBLOSTN EQU SCBERR3 00963000 SCBTMIDN EQU SCBERR3 00964000 SCBFORMN EQU SCBERR3 00965000 SCBATTN EQU SCBERR3 00966000 SCBXCEPN EQU SCBERR3 00967000 SCBERR4 EQU SCBERRST+3 00968000 SCBTXTTN EQU SCBERR4 00969000 SCBCTLUN EQU SCBERR4 00970000 SCBCHANN EQU SCBERR4 00971000 SCBDLPTR EQU IEDQSCB+22 00972000 SCBEOBAC EQU SCBDLPTR 00973000 SCBCTBAC EQU SCBEOBAC 00974000 SCBBSCFM EQU IEDQSCB+24 00975000 SCBDATEN EQU SCBBSCFM 00976000 SCBDESTL EQU IEDQSCB+36 00977000 SCBITBSZ EQU IEDQSCB+40 00978000 SCBCTBSV EQU SCBITBSZ 00979000 SCBDNSEG EQU IEDQSCB+41 00980000 SCBCLSEG EQU IEDQSCB+45 00981000 SCBITBAC EQU IEDQSCB+48 00982000 SCBCTBFL EQU SCBITBAC 00983000 SCBBLKCT EQU SCBCTBFL 00984000 SCBDCSEG EQU IEDQSCB+49 00985000 SCBSTAT1 EQU IEDQSCB+60 00986000 SCBCORE EQU IEDQSCB+61 00987000 SCBSCAN EQU IEDQSCB+64 00988000 SCBNTXT EQU IEDQSCB+66 00989000 SCBCHDR EQU IEDQSCB+72 00990000 SCBCCSEG EQU IEDQSCB+75 00991000 SCBEND EQU IEDQSCB+84 00992000 IEDQAVTD EQU 0 00993000 AVTSAVE2 EQU IEDQAVTD+72 00994000 AVTSAVEX EQU IEDQAVTD+288 00995000 @NM00007 EQU IEDQAVTD+388 00996000 AVTCKFLG EQU @NM00007 00997000 AVTEXA2S EQU IEDQAVTD+396 00998000 AVTEXS2A EQU IEDQAVTD+402 00999000 AVTPARM EQU IEDQAVTD+408 01000000 AVTBASE EQU IEDQAVTD+412 01001000 AVTPKF EQU AVTBASE 01002000 AVTRNMPT EQU IEDQAVTD+424 01003000 AVTUI EQU IEDQAVTD+520 01004000 AVTHG02 EQU IEDQAVTD+528 01005000 AVTAL EQU IEDQAVTD+532 01006000 AVTDISP EQU IEDQAVTD+552 01007000 AVTHD EQU IEDQAVTD+556 01008000 AVTSCOPT EQU AVTHD 01009000 AVTSAVTP EQU IEDQAVTD+612 01010000 AVTSAVTF EQU AVTSAVTP 01011000 AVTCKPEL EQU IEDQAVTD+652 01012000 AVTCKRMV EQU AVTCKPEL 01013000 AVTCKELF EQU IEDQAVTD+680 01014000 AVTCKBYT EQU IEDQAVTD+691 01015000 AVTHG01 EQU IEDQAVTD+692 01016000 AVTCKLNK EQU IEDQAVTD+696 01017000 AVTCRELE EQU IEDQAVTD+708 01018000 AVTCCELE EQU AVTCRELE 01019000 AVTCLRHI EQU IEDQAVTD+716 01020000 AVTADBUF EQU IEDQAVTD+720 01021000 AVTSYSER EQU IEDQAVTD+728 01022000 AVTMSGS EQU IEDQAVTD+729 01023000 AVTINOUT EQU IEDQAVTD+766 01024000 AVTCKPQB EQU IEDQAVTD+804 01025000 AVTCKPTB EQU AVTCKPQB 01026000 AVTCKPEC EQU AVTCKPQB+4 01027000 AVTCKPCC EQU AVTCKPEC 01028000 AVTOPCQB EQU IEDQAVTD+816 01029000 AVTOPCOB EQU AVTOPCQB 01030000 AVTOPCEC EQU AVTOPCQB+4 01031000 AVTOPCCC EQU AVTOPCEC 01032000 AVTOLTQB EQU IEDQAVTD+828 01033000 AVTCWFL1 EQU IEDQAVTD+924 01034000 AVTCWFL2 EQU IEDQAVTD+925 01035000 AVTSUBT EQU IEDQAVTD+948 01036000 AVTIOTR EQU IEDQAVTD+949 01037000 AVTHA3 EQU IEDQAVTD+1024 01038000 AVTHA16 EQU IEDQAVTD+1030 01039000 AVTKEYLE EQU IEDQAVTD+1032 01040000 AVTBIT1 EQU IEDQAVTD+1050 01041000 AVTBIT2 EQU IEDQAVTD+1051 01042000 AVTBIT3 EQU IEDQAVTD+1052 01043000 AVTBIT4 EQU IEDQAVTD+1136 01044000 @NM00087 EQU IEDQAVTD+1232 01045000 IEDNSVTD EQU 0 01046000 SAVTDIAG EQU IEDNSVTD 01047000 SAVTDIAF EQU SAVTDIAG 01048000 SAVTLUSQ EQU IEDNSVTD+88 01049000 SAVTTCPU EQU IEDNSVTD+238 01050000 SAVTSCPT EQU SAVTTCPU 01051000 SAVTZELM EQU IEDNSVTD+270 01052000 SAVTRDRV EQU IEDNSVTD+284 01053000 SAVTCKQB EQU IEDNSVTD+300 01054000 SAVTCKTB EQU SAVTCKQB 01055000 SAVTCKEC EQU SAVTCKQB+4 01056000 SAVTCKCC EQU SAVTCKEC 01057000 IEDDCT EQU 0 01058000 DCTBYTE1 EQU IEDDCT+1 01059000 DCTBYTE2 EQU IEDDCT+2 01060000 DCTBYTE3 EQU IEDDCT+3 01061000 DCTBYTE4 EQU IEDDCT+4 01062000 DCTBYTE5 EQU IEDDCT+5 01063000 IEDQDISP EQU 0 01064000 DSPCHAIN EQU 12 01065000 IEDQLCB EQU 0 01066000 LCBRCB EQU IEDQLCB 01067000 LCBTSOB EQU IEDQLCB+19 01068000 LCBCHAIN EQU IEDQLCB+20 01069000 LCBSCRNN EQU LCBCHAIN 01070000 LCBINSRC EQU IEDQLCB+21 01071000 LCBLKMDE EQU LCBINSRC+2 01072000 LCBNTXT EQU IEDQLCB+24 01073000 LCBSTAT4 EQU LCBNTXT 01074000 LCBPHASE EQU LCBSTAT4 01075000 LCBSCBDA EQU IEDQLCB+25 01076000 LCBISZE EQU IEDQLCB+28 01077000 LCBMHA EQU IEDQLCB+29 01078000 LCBFLAG1 EQU IEDQLCB+32 01079000 LCBIOBSN EQU IEDQLCB+33 01080000 LCBSENS0 EQU LCBIOBSN+1 01081000 LCBLOSDT EQU LCBSENS0 01082000 LCBTMOUT EQU LCBSENS0 01083000 LCBFLAG3 EQU LCBIOBSN+7 01084000 LCBCSW EQU LCBIOBSN+8 01085000 LCBCSWST EQU LCBCSW+3 01086000 LCBCSWUS EQU LCBCSWST 01087000 LCBCSWCS EQU LCBCSWST+1 01088000 LCBSIOCC EQU LCBIOBSN+15 01089000 LCBDCBPT EQU IEDQLCB+52 01090000 LCBRCQCB EQU IEDQLCB+56 01091000 LCBTHSQ EQU IEDQLCB+60 01092000 LCBINCAM EQU LCBTHSQ 01093000 LCBERRCT EQU IEDQLCB+62 01094000 LCBLSPCI EQU IEDQLCB+65 01095000 LCBRCBFR EQU LCBLSPCI 01096000 LCBSTATE EQU IEDQLCB+70 01097000 LCBSTAT1 EQU LCBSTATE 01098000 LCBRCLLN EQU LCBSTAT1 01099000 LCBCTLMD EQU LCBSTAT1 01100000 LCBSTAT2 EQU LCBSTATE+1 01101000 LCBBEOTN EQU LCBSTAT2 01102000 LCBSYNC EQU LCBSTAT2 01103000 LCBDIAL EQU LCBSTAT2 01104000 LCBTSTSW EQU IEDQLCB+72 01105000 LCBERB EQU IEDQLCB+76 01106000 LCBERBQB EQU LCBERB+1 01107000 LCBERBPY EQU IEDQLCB+80 01108000 LCBERBLK EQU IEDQLCB+81 01109000 LCBERBST EQU IEDQLCB+84 01110000 LCBDLNKN EQU LCBERBST 01111000 LCBERBCH EQU IEDQLCB+85 01112000 LCBERBCT EQU IEDQLCB+88 01113000 LCBRBCT2 EQU LCBERBCT+1 01114000 LCBTTCIN EQU IEDQLCB+90 01115000 LCBMSGFM EQU IEDQLCB+92 01116000 LCBOBRCH EQU IEDQLCB+96 01117000 LCBINVPT EQU LCBOBRCH+1 01118000 LCBBFRW EQU LCBINVPT 01119000 LCBTPCD EQU IEDQLCB+100 01120000 LCBSTAT5 EQU LCBTPCD 01121000 LCBLUNIT EQU LCBSTAT5 01122000 LCBSTAT6 EQU LCBTPCD+4 01123000 LCBRSPSV EQU LCBTPCD+8 01124000 LCBSAVSN EQU IEDQLCB+112 01125000 LCBERCCW EQU IEDQLCB+120 01126000 LCBCPA EQU IEDQLCB+144 01127000 IEDQLCBX EQU 0 01128000 LCBXCON EQU IEDQLCBX 01129000 LCBXFLAG EQU LCBXCON 01130000 LCBXDCT EQU LCBXCON+1 01131000 LCBXRADR EQU LCBXCON+4 01132000 IEDQPRF EQU 0 01133000 PRFRCB EQU IEDQPRF 01134000 PRFKEY EQU PRFRCB 01135000 PRFQCBA EQU PRFRCB+1 01136000 PRFPRI EQU PRFRCB+4 01137000 PRFLINK EQU PRFRCB+5 01138000 PRFTIC EQU IEDQPRF+8 01139000 PRFTICC EQU PRFTIC 01140000 PRFTI0 EQU PRFTIC+1 01141000 PRFNBUNT EQU IEDQPRF+12 01142000 PRFSUNIT EQU PRFNBUNT 01143000 PRFPLQCB EQU PRFSUNIT 01144000 @NM00153 EQU IEDQPRF+16 01145000 PRFSVFFO EQU @NM00153 01146000 PRFSIZE EQU PRFSVFFO+2 01147000 PRFSTAT1 EQU IEDQPRF+20 01148000 PRFTSMSG EQU PRFSTAT1 01149000 PRFEOFN EQU PRFSTAT1 01150000 PRFNLSTN EQU PRFSTAT1 01151000 PRFCORE EQU IEDQPRF+21 01152000 PRFXTRA EQU PRFCORE 01153000 PRFSCAN EQU IEDQPRF+24 01154000 PRFTQBCK EQU IEDQPRF+26 01155000 PRFNTXT EQU PRFTQBCK 01156000 PRFEOBOF EQU PRFNTXT 01157000 PRFCHDR EQU IEDQPRF+32 01158000 PRFHQBCK EQU IEDQPRF+35 01159000 IEDPF1 EQU 0 01160000 PRF1FLG1 EQU IEDPF1+3 01161000 PRF1WD2 EQU IEDPF1+4 01162000 PRF1SEQP EQU PRF1WD2 01163000 PRF1SQID EQU PRF1SEQP 01164000 PRF1TAG1 EQU PRF1SQID 01165000 IEDPF2 EQU 0 01166000 PRF2FLG2 EQU IEDPF2 01167000 PRF2WD2 EQU IEDPF2+4 01168000 IEDQQCB EQU 0 01169000 QCBDSFLG EQU IEDQQCB 01170000 QCBDISK EQU QCBDSFLG 01171000 QCBEOLDT EQU IEDQQCB+16 01172000 QCBBYTE1 EQU QCBEOLDT+1 01173000 QCBLKRLN EQU IEDQQCB+18 01174000 QCBRETCT EQU QCBLKRLN 01175000 QCBSTAT EQU IEDQQCB+19 01176000 QCBINSRC EQU IEDQQCB+21 01177000 @NM00161 EQU QCBINSRC 01178000 QCBTSOF2 EQU @NM00161+1 01179000 QCBTSOF1 EQU @NM00161+2 01180000 QCBINTVL EQU IEDQQCB+24 01181000 QCBPREN EQU IEDQQCB+28 01182000 QCBLKRRN EQU QCBPREN+1 01183000 QCBDCBAD EQU IEDQQCB+33 01184000 QCBFLAG EQU IEDQQCB+36 01185000 IEDQPQCB EQU 0 01186000 QCBFHDLZ EQU IEDQPQCB+3 01187000 QCBPFEFO EQU QCBFHDLZ+1 01188000 QCBFHDTZ EQU IEDQPQCB+6 01189000 QCBINTLF EQU IEDQPQCB+12 01190000 IEDNQCB EQU 0 01191000 QCBSTAT1 EQU IEDNQCB+4 01192000 QCBFLUSH EQU QCBSTAT1 01193000 QCBPLCBA EQU IEDNQCB+5 01194000 IEDSIBD EQU 0 01195000 SIBINDEX EQU IEDSIBD+8 01196000 SIBSESSN EQU IEDSIBD+10 01197000 SIBLGOFF EQU SIBSESSN 01198000 SIBPACIN EQU IEDSIBD+11 01199000 SIBSEQN EQU IEDSIBD+12 01200000 SIBSTAT1 EQU IEDSIBD+16 01201000 SIBSTAT2 EQU IEDSIBD+17 01202000 SIBFMPRO EQU IEDSIBD+19 01203000 SIBBIND EQU IEDSIBD+20 01204000 SIBBIND1 EQU SIBBIND 01205000 SIBBIND2 EQU SIBBIND+1 01206000 SIBBIND3 EQU SIBBIND+2 01207000 SIBSTAT0 EQU IEDSIBD+23 01208000 IEDTRM EQU 0 01209000 IEDNTRM EQU IEDTRM 01210000 TRMBYTE4 EQU IEDNTRM 01211000 TRMBYTE3 EQU IEDNTRM+1 01212000 TRMBYTE2 EQU IEDNTRM+2 01213000 TRMINPG EQU TRMBYTE2 01214000 TRMBYTE1 EQU IEDNTRM+3 01215000 TRMSCPRQ EQU TRMBYTE1 01216000 TRMBYTE0 EQU IEDNTRM+6 01217000 TRMSIBPT EQU IEDNTRM+7 01218000 IEDQTRM EQU IEDTRM+14 01219000 TRMSTATE EQU IEDQTRM 01220000 TRMLOG EQU TRMSTATE 01221000 TRMPREF EQU TRMSTATE 01222000 TRMDESTQ EQU IEDQTRM+1 01223000 TRMINSEQ EQU IEDQTRM+4 01224000 TLISTCNT EQU TRMINSEQ 01225000 TRMOUTSQ EQU IEDQTRM+6 01226000 TLISTEN EQU TRMOUTSQ 01227000 TRMDSORG EQU TLISTEN 01228000 TRMALTD EQU IEDQTRM+8 01229000 TRMDEVFL EQU IEDQTRM+10 01230000 TRMSTAT EQU IEDQTRM+12 01231000 COUNT EQU 0 01232000 ADDRBD EQU 0 01233000 IAHPARM EQU 0 01234000 PARMLIST EQU 0 01235000 IAHSTAT EQU PARMLIST+2 01236000 IAHFLUSH EQU IAHSTAT 01237000 IAHPRMST EQU IAHSTAT 01238000 IAHPRMOP EQU IAHSTAT 01239000 QAEINDX EQU PARMLIST+4 01240000 NOCHARS EQU QAEINDX 01241000 CHARPTR EQU PARMLIST+5 01242000 OPTOFST EQU CHARPTR 01243000 MACROCOD EQU 0 01244000 NEXTSI EQU MACROCOD+6 01245000 SAVEAREA EQU 0 01246000 R14OFF EQU SAVEAREA+12 01247000 BUFDATA EQU 0 01248000 STRING EQU 0 01249000 DSPBYPAS EQU 20 01250000 DSPDISP EQU 4 01251000 DSPLIFO EQU 56 01252000 DSPLIFOR EQU 60 01253000 DSPLIST EQU 8 01254000 DSPPOST EQU 24 01255000 DSPPOSTR EQU 28 01256000 DSPPRIO EQU 48 01257000 DSPPRIOR EQU 52 01258000 DSPTRACE EQU 64 01259000 DSPTSTQ EQU 32 01260000 DSPTSTQR EQU 36 01261000 DSPUNAV EQU 40 01262000 DSPUNAVR EQU 44 01263000 DSPWAIT EQU 16 01264000 IEDQTNT EQU 0 01265000 LCBRSPIN EQU LCBIOBSN 01266000 LCBLUSNS EQU LCBRSPIN+5 01267000 LCBSCPRS EQU LCBRSPIN+9 01268000 LCBCSWU1 EQU LCBSCPRS+2 01269000 LCBRSPFG EQU LCBRSPIN+15 01270000 LCBCOREQ EQU LCBTPCD 01271000 @NM00134 EQU LCBCPA+40 01272000 LCBQNX EQU LCBERCCW 01273000 LCBQNXMN EQU LCBQNX 01274000 LCBCANCL EQU LCBSAVSN 01275000 LCBCANFG EQU LCBCANCL 01276000 PRFSHDR EQU IEDQPRF+42 01277000 TRMPRE1 EQU TRMBYTE4 01278000 TRMNCP1 EQU TRMBYTE4 01279000 TRMPRE EQU TRMBYTE3 01280000 TRMNCP EQU TRMBYTE3 01281000 TRMPU EQU TRMBYTE3 01282000 TRMLU EQU TRMBYTE3 01283000 TRMLINK EQU TRMBYTE3 01284000 SCBRGSAV EQU SCBEND 01285000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01286000 @NM00174 EQU TRMLINK 01287000 TRMLSTAT EQU TRMLINK 01288000 TRMLINT EQU TRMLINK 01289000 TRMEPMOD EQU TRMLINK 01290000 TRMLULOG EQU TRMLU 01291000 TRMINERR EQU TRMLU 01292000 TRMLUREQ EQU TRMLU 01293000 TRMSESRQ EQU TRMLU 01294000 TRMTDIFF EQU TRMLU 01295000 TRMLUTM EQU TRMLU 01296000 TRMLUIT EQU TRMLU 01297000 TRMAUTO EQU TRMLU 01298000 TRMPCONT EQU TRMPU 01299000 @NM00173 EQU TRMPU 01300000 TRMNCONT EQU TRMNCP 01301000 TRMQUCKN EQU TRMNCP 01302000 TRMSLOWN EQU TRMNCP 01303000 TRMSYGEN EQU TRMNCP 01304000 TRMNCPCL EQU TRMNCP 01305000 TRMIPLDM EQU TRMNCP 01306000 TRMINOUT EQU TRMPRE 01307000 TRMRDOUT EQU TRMPRE 01308000 TRMNLOUT EQU TRMPRE 01309000 TRMWROUT EQU TRMPRE 01310000 TRMASNXI EQU TRMPRE 01311000 TRMSTMM EQU TRMPRE 01312000 TRMCMODE EQU TRMPRE 01313000 TRMSTPND EQU TRMPRE 01314000 @NM00172 EQU TRMNCP1 01315000 TRMINOP EQU TRMNCP1 01316000 TRMLYNCH EQU TRMPRE1 01317000 TRMSPOUT EQU TRMPRE1 01318000 TRMERLCK EQU TRMPRE1 01319000 TRMQNPL EQU TRMPRE1 01320000 TRMSPACT EQU TRMPRE1 01321000 TRMOCNI EQU TRMPRE1 01322000 TRMSESSN EQU TRMPRE1 01323000 TRMCONT EQU TRMPRE1 01324000 @NM00141 EQU LCBCANCL+3 01325000 LCBCANTH EQU LCBCANCL+1 01326000 @NM00140 EQU LCBCANFG 01327000 LCBCANCD EQU LCBCANFG 01328000 @NM00139 EQU LCBCANFG 01329000 LCBCANEB EQU LCBCANFG 01330000 LCBCANXT EQU LCBCANFG 01331000 LCBUNADD EQU LCBQNX+21 01332000 LCBUASZE EQU LCBQNX+20 01333000 LCBDSTEA EQU LCBQNX+16 01334000 @NM00138 EQU LCBQNX+4 01335000 LCBSTSAV EQU LCBQNX+1 01336000 @NM00137 EQU LCBQNXMN 01337000 LCBNX509 EQU LCBQNXMN 01338000 LCBNX162 EQU LCBQNXMN 01339000 LCBNX142 EQU LCBQNXMN 01340000 LCBNX064 EQU LCBQNXMN 01341000 @NM00136 EQU @NM00134+4 01342000 LCBNCPPT EQU @NM00134+1 01343000 @NM00135 EQU @NM00134 01344000 LCBWRSCH EQU LCBCOREQ+8 01345000 LCBCQLNK EQU LCBCOREQ+4 01346000 LCBCQELE EQU LCBCOREQ 01347000 LCBPAKCH EQU LCBRSPIN+16 01348000 @NM00133 EQU LCBRSPFG 01349000 LCBRSRH EQU LCBRSPFG 01350000 LCBEXPI EQU LCBRSPFG 01351000 @NM00132 EQU LCBRSPIN+12 01352000 LCBUSUE1 EQU LCBCSWU1 01353000 @NM00131 EQU LCBCSWU1 01354000 @NM00130 EQU LCBSCPRS+1 01355000 LCBDFCMD EQU LCBSCPRS 01356000 LCBUSER EQU LCBLUSNS+2 01357000 LCBSMIN EQU LCBLUSNS+1 01358000 LCBSMAJ EQU LCBLUSNS 01359000 LCBRHSV EQU LCBRSPIN+2 01360000 LCBSNS0 EQU LCBRSPIN+1 01361000 @NM00129 EQU LCBRSPIN 01362000 R15OFF EQU SAVEAREA+16 01363000 @NM00177 EQU SAVEAREA+8 01364000 @NM00176 EQU SAVEAREA+4 01365000 @NM00175 EQU SAVEAREA 01366000 BALR EQU MACROCOD+4 01367000 LOAD EQU MACROCOD 01368000 IAHNOUSE EQU PARMLIST+3 01369000 IAHLEN EQU PARMLIST+1 01370000 IAHINDX EQU PARMLIST 01371000 TRMOPT EQU IEDTRM+34 01372000 TRMOPTBL EQU IEDQTRM+18 01373000 TRMOPNO EQU IEDQTRM+17 01374000 TRMCHCIN EQU IEDQTRM+16 01375000 TRMSENSE EQU TRMSTAT+3 01376000 TRMTEMPR EQU TRMSTAT+2 01377000 TRMSIO EQU TRMSTAT 01378000 @NM00171 EQU TRMDEVFL+1 01379000 TRMTPIN EQU TRMDEVFL+1 01380000 TRMNCPI EQU TRMDEVFL+1 01381000 TRMRNTRM EQU TRMDEVFL+1 01382000 @NM00170 EQU TRMDEVFL+1 01383000 TRMLMD EQU TRMDEVFL+1 01384000 TRMCONC EQU TRMDEVFL+1 01385000 TRMTSOB EQU TRMDEVFL 01386000 TRMBFDY EQU TRMDEVFL 01387000 TRMTBLK EQU TRMDEVFL 01388000 TRMSBLK EQU TRMDEVFL 01389000 TRMBLKS EQU TRMDEVFL 01390000 TRMADDC EQU TRMDEVFL 01391000 TRMDDIG EQU TRMDEVFL 01392000 TRMBUFS EQU TRMDEVFL 01393000 TRMPRILK EQU TRMALTD 01394000 TRMLGB EQU TRMDSORG 01395000 TRMUTERM EQU TLISTCNT 01396000 TRMSCNYN EQU TRMSTATE 01397000 TRMOPTFN EQU TRMSTATE 01398000 TRMHELDN EQU TRMSTATE 01399000 TRMACPTN EQU TRMSTATE 01400000 TRMPROC EQU TRMLOG 01401000 TRMLIST EQU TRMLOG 01402000 TRMLINE EQU TRMSTATE 01403000 TRMSUBST EQU IEDNTRM+12 01404000 TRMTYPE EQU IEDNTRM+11 01405000 TRMRLMCT EQU IEDNTRM+10 01406000 TRMCOHTG EQU TRMSIBPT+1 01407000 TRMGPCNT EQU TRMSIBPT 01408000 TRMBUFRD EQU TRMBYTE0 01409000 TRMSNA EQU TRMBYTE0 01410000 TRMGP EQU TRMBYTE0 01411000 TRMDIAL EQU TRMBYTE0 01412000 @NM00169 EQU TRMBYTE0 01413000 TRMOUTPT EQU TRMBYTE0 01414000 TRMINPUT EQU TRMBYTE0 01415000 TRMUDEF EQU TRMBYTE0 01416000 TRMCOHRT EQU IEDNTRM+4 01417000 TRMSTOTE EQU TRMBYTE1 01418000 TRMCKPRN EQU TRMBYTE1 01419000 TRMTSATN EQU TRMBYTE1 01420000 TRMTRACE EQU TRMBYTE1 01421000 TRMSWBCK EQU TRMBYTE1 01422000 TRMAUTOC EQU TRMBYTE1 01423000 TRMINPTP EQU TRMBYTE1 01424000 TRMWTNEG EQU TRMSCPRQ 01425000 TRMWRBRK EQU TRMBYTE2 01426000 TRMNOSND EQU TRMBYTE2 01427000 TRMPREP EQU TRMBYTE2 01428000 TRMGPACT EQU TRMBYTE2 01429000 TRMANDL EQU TRMBYTE2 01430000 TRMCLOSN EQU TRMINPG 01431000 TRMREMB EQU TRMBYTE2 01432000 TRMRSACT EQU TRMBYTE2 01433000 SIBLUTYP EQU SIBSTAT0 01434000 SIBCD EQU SIBSTAT0 01435000 @NM00168 EQU SIBBIND3 01436000 SIBCRES EQU SIBBIND3 01437000 SIBSPKR EQU SIBBIND3 01438000 SIBRECOV EQU SIBBIND3 01439000 SIBFMODE EQU SIBBIND3 01440000 SIBALT EQU SIBBIND2 01441000 SIBBTERM EQU SIBBIND2 01442000 SIBBRACK EQU SIBBIND2 01443000 SIBFMUSE EQU SIBBIND2 01444000 SIBSEBI EQU SIBBIND2 01445000 SIBSCMP EQU SIBBIND2 01446000 SIBSEXC EQU SIBBIND2 01447000 SIBSDEF EQU SIBBIND2 01448000 SIBSRQM EQU SIBBIND1 01449000 SIBSCHNG EQU SIBBIND1 01450000 SIBPEBI EQU SIBBIND1 01451000 SIBPCMP EQU SIBBIND1 01452000 SIBPEXC EQU SIBBIND1 01453000 SIBPDEF EQU SIBBIND1 01454000 SIBPRQM EQU SIBBIND1 01455000 SIBPCHN EQU SIBBIND1 01456000 SIBTSPRO EQU IEDSIBD+18 01457000 @NM00167 EQU SIBSTAT2 01458000 SIBDACLU EQU SIBSTAT2 01459000 SIBRDSCN EQU SIBSTAT2 01460000 SIBTERM EQU SIBSTAT2 01461000 SIBUSS EQU SIBSTAT2 01462000 SIBBSTAT EQU SIBSTAT1 01463000 SIBRTRP EQU SIBSTAT1 01464000 @NM00166 EQU SIBSTAT1 01465000 SIBRQEND EQU SIBSTAT1 01466000 SIBRQSHT EQU SIBSTAT1 01467000 SIBSEQO EQU SIBSEQN+2 01468000 SIBSEQI EQU SIBSEQN 01469000 SIBNCNT EQU SIBPACIN 01470000 SIBMCNT EQU SIBPACIN 01471000 SIBDSTAT EQU SIBSESSN 01472000 SIBSSTAT EQU SIBSESSN 01473000 SIBINBIU EQU SIBSESSN 01474000 SIBSHUTC EQU SIBSESSN 01475000 SIBCHAIN EQU IEDSIBD+4 01476000 SIBRUSEG EQU IEDSIBD 01477000 QCBTTCIN EQU QCBPLCBA+1 01478000 @NM00165 EQU QCBPLCBA 01479000 @NM00164 EQU QCBSTAT1 01480000 QCBNDXRQ EQU QCBSTAT1 01481000 QCBESIG EQU QCBSTAT1 01482000 QCBRCVRQ EQU QCBSTAT1 01483000 QCBSNDRQ EQU QCBSTAT1 01484000 QCBWAITC EQU QCBSTAT1 01485000 QCBPLCBN EQU QCBSTAT1 01486000 QCBCHAIN EQU IEDNQCB 01487000 QCBPQBCK EQU IEDQPQCB+25 01488000 QCBPRIPQ EQU IEDQPQCB+24 01489000 QCBCFHDR EQU IEDQPQCB+21 01490000 QCBLFEFO EQU IEDQPQCB+18 01491000 QCBFFEFO EQU IEDQPQCB+15 01492000 QCBPREVF EQU QCBINTLF 01493000 QCBINTFF EQU IEDQPQCB+9 01494000 QCBDATSQ EQU QCBFHDTZ+1 01495000 @NM00163 EQU QCBFHDTZ 01496000 @NM00162 EQU QCBPFEFO 01497000 QCBDATFL EQU QCBFHDLZ 01498000 QCBDNHDR EQU IEDQPQCB 01499000 QCBQBACK EQU IEDQQCB+37 01500000 QCBCKPT EQU QCBFLAG 01501000 QCBPROC EQU QCBFLAG 01502000 QCBSDFFO EQU QCBFLAG 01503000 QCBTERMQ EQU QCBFLAG 01504000 QCBRSRV EQU QCBFLAG 01505000 QCBREAD EQU QCBFLAG 01506000 QCBNOBRK EQU QCBFLAG 01507000 QCBTSSES EQU QCBFLAG 01508000 QCBLGBAD EQU QCBDCBAD 01509000 QCBRELLN EQU IEDQQCB+32 01510000 QCBTJID EQU QCBLKRRN+1 01511000 QCBCARCT EQU QCBLKRRN 01512000 QCBPRLVL EQU QCBPREN 01513000 QCBMSGCT EQU IEDQQCB+26 01514000 QCBEXTO EQU QCBINTVL 01515000 QCBDISC EQU QCBTSOF1 01516000 QCBDELAY EQU QCBTSOF1 01517000 QCBPARTO EQU QCBTSOF1 01518000 QCBSATRD EQU QCBTSOF1 01519000 QCBNOBUF EQU QCBTSOF1 01520000 QCBTPUT EQU QCBTSOF1 01521000 QCBTGET EQU QCBTSOF1 01522000 QCBWRBRK EQU QCBTSOF1 01523000 QCBSATLC EQU QCBTSOF2 01524000 QCBSATTI EQU QCBTSOF2 01525000 QCBSATCH EQU QCBTSOF2 01526000 QCBSIMRD EQU QCBTSOF2 01527000 QCBDSSMI EQU QCBTSOF2 01528000 QCBPOSTO EQU QCBTSOF2 01529000 QCBBUFQ EQU QCBTSOF2 01530000 QCBINHBN EQU QCBTSOF2 01531000 QCBSATCT EQU @NM00161 01532000 QCBSCBOF EQU IEDQQCB+20 01533000 QCBTIME EQU QCBSTAT 01534000 QCBCLOCK EQU QCBSTAT 01535000 QCBSCHDL EQU QCBSTAT 01536000 QCBSMODE EQU QCBSTAT 01537000 QCBSEND EQU QCBSTAT 01538000 QCBBUFRD EQU QCBSTAT 01539000 QCBTRMHO EQU QCBSTAT 01540000 QCBEOM EQU QCBSTAT 01541000 QCBHUCT EQU QCBRETCT 01542000 QCBIEND EQU QCBRETCT 01543000 QCBEND EQU QCBRETCT 01544000 QCBNL EQU QCBRETCT 01545000 QCBLOGCT EQU QCBRETCT 01546000 @NM00160 EQU QCBBYTE1 01547000 QCBRITRM EQU QCBBYTE1 01548000 @NM00159 EQU QCBEOLDT 01549000 QCBSLINK EQU IEDQQCB+13 01550000 QCBSTPRI EQU IEDQQCB+12 01551000 QCBSTCHN EQU IEDQQCB+9 01552000 QCBSTVTO EQU IEDQQCB+8 01553000 QCBLINK EQU IEDQQCB+5 01554000 QCBPRI EQU IEDQQCB+4 01555000 QCBELCHN EQU IEDQQCB+1 01556000 QCBHELD EQU QCBDSFLG 01557000 QCBFQCB EQU QCBDSFLG 01558000 QCBDRQQ EQU QCBDSFLG 01559000 QCBALTMH EQU QCBDSFLG 01560000 QCBREUS EQU QCBDISK 01561000 QCBNREUS EQU QCBDISK 01562000 QCBCORE EQU QCBDSFLG 01563000 QCBTSQ EQU QCBDSFLG 01564000 PRF2SEQP EQU PRF2WD2 01565000 @NM00158 EQU IEDPF2+1 01566000 @NM00157 EQU PRF2FLG2 01567000 PRF2SMI EQU PRF2FLG2 01568000 PRF2FORM EQU PRF2FLG2 01569000 PRF2TNTI EQU PRF2FLG2 01570000 PRF1RULN EQU PRF1SEQP+2 01571000 PRF1TAG2 EQU PRF1SQID+1 01572000 @NM00156 EQU PRF1TAG1 01573000 PRF1TAGS EQU PRF1TAG1 01574000 @NM00155 EQU PRF1FLG1 01575000 PRF1LOGD EQU PRF1FLG1 01576000 PRF1USS EQU PRF1FLG1 01577000 PRF1FORM EQU PRF1FLG1 01578000 PRF1EXPI EQU PRF1FLG1 01579000 PRF1FIDI EQU PRF1FLG1 01580000 PRF1RH EQU IEDPF1 01581000 PRFDEST EQU IEDQPRF+40 01582000 PRFISEQ EQU IEDQPRF+38 01583000 PRFSTXT EQU PRFHQBCK 01584000 PRFNHDR EQU PRFCHDR 01585000 PRFCRCD EQU IEDQPRF+29 01586000 PRFSVSEQ EQU PRFNTXT+1 01587000 PRFSVPRI EQU PRFEOBOF 01588000 PRFISIZE EQU PRFSCAN+1 01589000 @NM00154 EQU PRFSCAN 01590000 PRFEOB EQU PRFXTRA+1 01591000 PRFSTSO EQU PRFXTRA 01592000 PRFNHDRN EQU PRFSTAT1 01593000 PRFLOCK EQU PRFEOFN 01594000 PRFDUPLN EQU PRFSTAT1 01595000 PRFITCPN EQU PRFSTAT1 01596000 PRFERMGN EQU PRFSTAT1 01597000 PRFCNCLN EQU PRFSTAT1 01598000 PRFSVFLG EQU @NM00153+3 01599000 PRFSRCE EQU PRFSVFFO 01600000 PRFLCB EQU IEDQPRF+13 01601000 PRFPIUO EQU PRFPLQCB 01602000 @NM00152 EQU PRFTICC 01603000 @NM00151 EQU PRFTICC 01604000 @NM00150 EQU PRFTICC 01605000 PRFTICON EQU PRFTICC 01606000 @NM00149 EQU PRFTICC 01607000 @NM00148 EQU PRFTICC 01608000 PRFBFMM EQU PRFTICC 01609000 PRFEOMSG EQU PRFTICC 01610000 PRFCOUNT EQU PRFLINK+1 01611000 @NM00147 EQU PRFLINK 01612000 PRFFLAGS EQU PRFPRI 01613000 PRFIOADR EQU PRFQCBA 01614000 PRFOPCDE EQU PRFKEY 01615000 LCBERADR EQU LCBXRADR+1 01616000 LCBPCIRC EQU LCBXRADR 01617000 LCBDCT3 EQU LCBXDCT+2 01618000 LCBDCT2 EQU LCBXDCT+1 01619000 LCBDCT1 EQU LCBXDCT 01620000 @NM00146 EQU LCBXFLAG 01621000 LCBERPND EQU LCBXFLAG 01622000 LCBSRCPF EQU LCBXFLAG 01623000 LCBGPCTV EQU LCBXFLAG 01624000 @NM00145 EQU LCBXFLAG 01625000 @NM00144 EQU LCBXFLAG 01626000 @NM00143 EQU LCBXFLAG 01627000 @NM00142 EQU LCBXFLAG 01628000 LCBCCW10 EQU LCBCPA+72 01629000 LCBCCW9 EQU LCBCPA+64 01630000 LCBCCW8 EQU LCBCPA+56 01631000 LCBCCW7 EQU LCBCPA+48 01632000 LCBCCW6 EQU LCBCPA+40 01633000 LCBCCW5 EQU LCBCPA+32 01634000 LCBCCW4 EQU LCBCPA+24 01635000 LCBCCW3 EQU LCBCPA+16 01636000 LCBCCW2 EQU LCBCPA+8 01637000 LCBCCW1 EQU LCBCPA 01638000 @NM00128 EQU LCBERCCW 01639000 LCBCSWSV EQU LCBSAVSN+1 01640000 LCBSNSV EQU LCBSAVSN 01641000 LCBBFSNS EQU LCBRSPSV 01642000 LCBWAITC EQU LCBTPCD+5 01643000 LCBINPAK EQU LCBSTAT6 01644000 LCBMHBID EQU LCBSTAT6 01645000 LCBRTRRO EQU LCBSTAT6 01646000 LCBHDRPD EQU LCBSTAT6 01647000 LCBCHN EQU LCBSTAT6 01648000 LCBBFRSV EQU LCBTPCD+1 01649000 @NM00127 EQU LCBSTAT5 01650000 LCBLUS EQU LCBSTAT5 01651000 LCBPERM EQU LCBSTAT5 01652000 LCBNXCMD EQU LCBBFRW 01653000 LCBERMSK EQU LCBOBRCH 01654000 LCBSCBA EQU IEDQLCB+93 01655000 LCBOLT EQU LCBMSGFM 01656000 LCBEOT EQU LCBMSGFM 01657000 LCBENQ EQU LCBMSGFM 01658000 LCBTTD EQU LCBMSGFM 01659000 LCBRSTRT EQU LCBMSGFM 01660000 LCBVSTRT EQU LCBMSGFM 01661000 LCBACKI EQU LCBMSGFM 01662000 LCBNAK EQU LCBMSGFM 01663000 @NM00126 EQU LCBRBCT2 01664000 LCBDCNT EQU LCBRBCT2 01665000 LCBRBCT1 EQU LCBERBCT 01666000 LCBCOMPL EQU LCBDLNKN 01667000 LCBPRCPG EQU LCBERBST 01668000 LCBERROR EQU LCBERBST 01669000 @NM00125 EQU LCBERBST 01670000 LCBINQ EQU LCBERBST 01671000 LCBRDERR EQU LCBERBST 01672000 LCBEOMSG EQU LCBERBST 01673000 LCBMSG EQU LCBERBST 01674000 LCBERBKY EQU LCBERB 01675000 LCBRECAD EQU IEDQLCB+73 01676000 @NM00124 EQU LCBTSTSW 01677000 @NM00123 EQU LCBTSTSW 01678000 @NM00122 EQU LCBTSTSW 01679000 @NM00121 EQU LCBTSTSW 01680000 @NM00120 EQU LCBTSTSW 01681000 @NM00119 EQU LCBTSTSW 01682000 @NM00118 EQU LCBTSTSW 01683000 LCBCONCT EQU LCBTSTSW 01684000 LCBRESP EQU LCBSTAT2 01685000 LCBBFRAV EQU LCBDIAL 01686000 LCBATTN EQU LCBSYNC 01687000 LCBNEGRP EQU LCBSTAT2 01688000 LCBSNDPR EQU LCBSTAT2 01689000 LCBCONNN EQU LCBBEOTN 01690000 LCBMSGNN EQU LCBSTAT2 01691000 LCBTRACE EQU LCBSTAT2 01692000 LCBSENDN EQU LCBSTAT1 01693000 LCBRECVN EQU LCBSTAT1 01694000 LCBFREEN EQU LCBSTAT1 01695000 LCBCONT EQU LCBSTAT1 01696000 LCBINITN EQU LCBSTAT1 01697000 LCBOCNI EQU LCBSTAT1 01698000 LCBCVRSP EQU LCBCTLMD 01699000 LCBRECOF EQU IEDQLCB+68 01700000 LCBRDBFR EQU LCBRCBFR 01701000 LCBUCBX EQU IEDQLCB+64 01702000 LCBTTBIN EQU LCBERRCT 01703000 @NM00117 EQU LCBINCAM 01704000 LCBGETMN EQU LCBINCAM 01705000 LCBRESTR EQU LCBRCQCB 01706000 LCBPCILK EQU LCBDCBPT 01707000 LCBSTART EQU LCBIOBSN+16 01708000 LCBAP4OL EQU LCBSIOCC 01709000 LCBAP3OL EQU LCBSIOCC 01710000 LCBAP2OL EQU LCBSIOCC 01711000 LCBAP1OL EQU LCBSIOCC 01712000 LCBSIOC2 EQU LCBSIOCC 01713000 LCBSIOC1 EQU LCBSIOCC 01714000 @NM00116 EQU LCBSIOCC 01715000 LCBCSWRC EQU LCBCSW+5 01716000 LCBCSCHC EQU LCBCSWCS 01717000 LCBCSICC EQU LCBCSWCS 01718000 LCBCSCCC EQU LCBCSWCS 01719000 LCBCSCDC EQU LCBCSWCS 01720000 LCBCSPTC EQU LCBCSWCS 01721000 LCBCSPGC EQU LCBCSWCS 01722000 LCBCSIL EQU LCBCSWCS 01723000 LCBCSPCI EQU LCBCSWCS 01724000 LCBUSUE EQU LCBCSWUS 01725000 LCBUSUC EQU LCBCSWUS 01726000 LCBUSDE EQU LCBCSWUS 01727000 LCBUSCE EQU LCBCSWUS 01728000 LCBUSBSY EQU LCBCSWUS 01729000 LCBUSCUE EQU LCBCSWUS 01730000 LCBUSSM EQU LCBCSWUS 01731000 LCBUSAT EQU LCBCSWUS 01732000 LCBCSWCA EQU LCBCSW 01733000 LCBOBR EQU LCBFLAG3 01734000 LCBOBRRD EQU LCBFLAG3 01735000 LCBIOMSG EQU LCBFLAG3 01736000 LCBSOHC EQU LCBFLAG3 01737000 LCBRLAD EQU LCBFLAG3 01738000 LCBSOHR EQU LCBFLAG3 01739000 @NM00115 EQU LCBFLAG3 01740000 LCBECBPT EQU LCBIOBSN+4 01741000 LCBECBCC EQU LCBIOBSN+3 01742000 LCBSENS1 EQU LCBIOBSN+2 01743000 LCBABORT EQU LCBTMOUT 01744000 LCBNOTIN EQU LCBLOSDT 01745000 LCBOVRUN EQU LCBSENS0 01746000 LCBDATCK EQU LCBSENS0 01747000 LCBEQUCK EQU LCBSENS0 01748000 LCBBUSCK EQU LCBSENS0 01749000 LCBINTRQ EQU LCBSENS0 01750000 LCBCMDRJ EQU LCBSENS0 01751000 LCBFLAG2 EQU LCBIOBSN 01752000 @NM00114 EQU LCBFLAG1 01753000 LCBUNREL EQU LCBFLAG1 01754000 LCBEXCPN EQU LCBFLAG1 01755000 @NM00113 EQU LCBFLAG1 01756000 LCBERPIN EQU LCBFLAG1 01757000 @NM00112 EQU LCBFLAG1 01758000 LCBFSBFR EQU LCBMHA 01759000 LCBLNENT EQU LCBSCBDA+1 01760000 @NM00111 EQU LCBSCBDA 01761000 LCBCPGMH EQU LCBSTAT4 01762000 LCBREAL EQU LCBPHASE 01763000 @NM00110 EQU LCBSTAT4 01764000 LCBACTRQ EQU LCBSTAT4 01765000 LCBIPLRQ EQU LCBSTAT4 01766000 LCBDACRQ EQU LCBSTAT4 01767000 LCBDMPRQ EQU LCBSTAT4 01768000 @NM00109 EQU LCBLKMDE 01769000 LCBLOCKI EQU LCBLKMDE 01770000 LCBLOCKR EQU LCBLKMDE 01771000 LCBHMFLG EQU LCBLKMDE 01772000 LCBBDFLG EQU LCBLKMDE 01773000 @NM00108 EQU LCBINSRC 01774000 LCBABRTN EQU LCBCHAIN 01775000 LCBTETEN EQU LCBCHAIN 01776000 LCBBFRSZ EQU LCBCHAIN 01777000 LCBUREQN EQU LCBCHAIN 01778000 LCBNORTY EQU LCBCHAIN 01779000 LCBERMSG EQU LCBCHAIN 01780000 LCBEXCP EQU LCBCHAIN 01781000 LCBINVRQ EQU LCBSCRNN 01782000 LCB2741N EQU LCBTSOB 01783000 LCBINHBN EQU LCBTSOB 01784000 LCBCIRCD EQU LCBTSOB 01785000 LCBPREP EQU LCBTSOB 01786000 LCBSOPL EQU LCBTSOB 01787000 LCBSATRD EQU LCBTSOB 01788000 LCBTSBUF EQU LCBTSOB 01789000 LCBWRBRK EQU LCBTSOB 01790000 LCBTDL EQU IEDQLCB+18 01791000 LCBEOLTD EQU IEDQLCB+16 01792000 LCBRSLNK EQU IEDQLCB+13 01793000 LCBRSPRI EQU IEDQLCB+12 01794000 LCBSTCBA EQU IEDQLCB+9 01795000 LCBRSKEY EQU IEDQLCB+8 01796000 LCBLINK EQU LCBRCB+5 01797000 LCBPRI EQU LCBRCB+4 01798000 LCBQCBA EQU LCBRCB+1 01799000 LCBKEY EQU LCBRCB 01800000 @NM00107 EQU DCTBYTE5 01801000 DCTL3270 EQU DCTBYTE5 01802000 DCTSCS EQU DCTBYTE5 01803000 DCTTSPRF EQU DCTBYTE4 01804000 DCTFMPRF EQU DCTBYTE4 01805000 DCT2760 EQU DCTBYTE3 01806000 DCTNOIDL EQU DCTBYTE3 01807000 DCTCONTN EQU DCTBYTE3 01808000 DCTBUFF EQU DCTBYTE3 01809000 DCTCHECK EQU DCTBYTE3 01810000 DCTENCTL EQU DCTBYTE3 01811000 DCTWTTA EQU DCTBYTE3 01812000 DCT1050 EQU DCTBYTE3 01813000 DCTAUDIO EQU DCTBYTE2 01814000 DCTLOCAL EQU DCTBYTE2 01815000 DCTCONT EQU DCTBYTE2 01816000 DCTXMIT EQU DCTBYTE2 01817000 DCTSTCTL EQU DCTBYTE2 01818000 DCTTWX EQU DCTBYTE2 01819000 DCTBRDST EQU DCTBYTE2 01820000 DCTBISYN EQU DCTBYTE2 01821000 DCTUMASK EQU DCTBYTE1 01822000 DCTSADEV EQU DCTBYTE1 01823000 DCT3270 EQU DCTBYTE1 01824000 DCT2741 EQU DCTBYTE1 01825000 DCT5041 EQU DCTBYTE1 01826000 DCTATTEN EQU DCTBYTE1 01827000 DCTBREAK EQU DCTBYTE1 01828000 DCTINHIB EQU DCTBYTE1 01829000 DCTBYTE0 EQU IEDDCT 01830000 SAVTBITN EQU IEDNSVTD+312 01831000 @NM00106 EQU SAVTCKQB+8 01832000 @NM00105 EQU SAVTCKEC+1 01833000 @NM00104 EQU SAVTCKCC 01834000 SAVTCKPO EQU SAVTCKCC 01835000 SAVTCKWA EQU SAVTCKCC 01836000 SAVTCKCH EQU SAVTCKTB+1 01837000 SAVTCKVT EQU SAVTCKTB 01838000 @NM00103 EQU IEDNSVTD+297 01839000 SAVTRDFG EQU SAVTRDRV+12 01840000 @NM00102 EQU SAVTRDRV+5 01841000 SAVTRDPY EQU SAVTRDRV+4 01842000 SAVTRDQB EQU SAVTRDRV+1 01843000 SAVTRDKY EQU SAVTRDRV 01844000 SAVTNID EQU IEDNSVTD+280 01845000 SAVTDVAS EQU IEDNSVTD+276 01846000 SAVTPLSZ EQU IEDNSVTD+274 01847000 @NM00101 EQU IEDNSVTD+273 01848000 SAVTSUBL EQU IEDNSVTD+272 01849000 @NM00100 EQU SAVTZELM+1 01850000 SAVTSUBM EQU SAVTZELM 01851000 SAVTMHDX EQU IEDNSVTD+268 01852000 SAVTNAT1 EQU IEDNSVTD+266 01853000 SAVTSH20 EQU IEDNSVTD+264 01854000 SAVTLCBS EQU IEDNSVTD+260 01855000 SAVTRNMP EQU IEDNSVTD+256 01856000 SAVTTNTX EQU IEDNSVTD+252 01857000 SAVTNAX EQU IEDNSVTD+248 01858000 SAVTSUBV EQU IEDNSVTD+247 01859000 SAVTSUBA EQU IEDNSVTD+246 01860000 SAVTSIBC EQU IEDNSVTD+244 01861000 SAVTBSM EQU IEDNSVTD+240 01862000 SAVTRQTG EQU IEDNSVTD+236 01863000 SAVTRQCH EQU IEDNSVTD+232 01864000 SAVTMAND EQU IEDNSVTD+228 01865000 SAVTSPLN EQU IEDNSVTD+224 01866000 SAVTNADL EQU IEDNSVTD+222 01867000 SAVTNATL EQU IEDNSVTD+220 01868000 SAVTMHTB EQU IEDNSVTD+216 01869000 SAVTSSMH EQU IEDNSVTD+212 01870000 SAVTQRS EQU IEDNSVTD+208 01871000 SAVTRQIN EQU IEDNSVTD+204 01872000 SAVTDFCO EQU IEDNSVTD+200 01873000 SAVTSAO EQU IEDNSVTD+196 01874000 SAVTSARI EQU IEDNSVTD+192 01875000 SAVTSAC EQU IEDNSVTD+188 01876000 SAVTSAI EQU IEDNSVTD+184 01877000 SAVTCSCI EQU IEDNSVTD+180 01878000 SAVTSSRP EQU IEDNSVTD+176 01879000 SAVTSSRQ EQU IEDNSVTD+172 01880000 SAVTSCLU EQU IEDNSVTD+168 01881000 SAVTXTRQ EQU IEDNSVTD+164 01882000 SAVTMVBF EQU IEDNSVTD+160 01883000 @NM00099 EQU IEDNSVTD+148 01884000 SAVTIPCQ EQU IEDNSVTD+144 01885000 @NM00098 EQU IEDNSVTD+136 01886000 SAVTXFMI EQU IEDNSVTD+132 01887000 @NM00097 EQU IEDNSVTD+124 01888000 SAVTXFMO EQU IEDNSVTD+120 01889000 @NM00096 EQU IEDNSVTD+116 01890000 SAVTSSSR EQU IEDNSVTD+112 01891000 SAVTSCPQ EQU IEDNSVTD+108 01892000 SAVTSLCB EQU IEDNSVTD+104 01893000 SAVTLUSR EQU IEDNSVTD+100 01894000 @NM00095 EQU SAVTLUSQ+8 01895000 SAVTLUSP EQU SAVTLUSQ+4 01896000 SAVTLUSB EQU SAVTLUSQ 01897000 @NM00094 EQU IEDNSVTD+84 01898000 SAVTSAT EQU IEDNSVTD+80 01899000 SAVTNAT EQU IEDNSVTD+76 01900000 SAVTCLUP EQU IEDNSVTD+72 01901000 SAVTPIUT EQU IEDNSVTD+68 01902000 SAVTRNTA EQU IEDNSVTD+64 01903000 SAVTDNIR EQU IEDNSVTD+60 01904000 SAVTCNIR EQU IEDNSVTD+56 01905000 SAVTFLDH EQU IEDNSVTD+52 01906000 SAVTSRTN EQU IEDNSVTD+48 01907000 SAVTSREQ EQU IEDNSVTD+44 01908000 SAVTFAIL EQU IEDNSVTD+42 01909000 SAVTSUSE EQU IEDNSVTD+40 01910000 SAVTSIB EQU IEDNSVTD+36 01911000 SAVTPRTN EQU IEDNSVTD+32 01912000 @NM00093 EQU IEDNSVTD+28 01913000 SAVTWH20 EQU IEDNSVTD+26 01914000 SAVTPWT EQU IEDNSVTD+24 01915000 SAVTPRTQ EQU IEDNSVTD+20 01916000 SAVTPREQ EQU IEDNSVTD+16 01917000 SAVTPH20 EQU IEDNSVTD+14 01918000 SAVTPUSE EQU IEDNSVTD+12 01919000 SAVTPLCB EQU IEDNSVTD+8 01920000 SAVTPOOL EQU IEDNSVTD+4 01921000 SAVTPRMT EQU SAVTDIAF 01922000 SAVTVIRT EQU SAVTDIAF 01923000 AVTCPBNO EQU IEDQAVTD+1244 01924000 AVTHRESS EQU IEDQAVTD+1243 01925000 @NM00092 EQU IEDQAVTD+1242 01926000 @NM00091 EQU IEDQAVTD+1241 01927000 @NM00090 EQU IEDQAVTD+1240 01928000 @NM00089 EQU IEDQAVTD+1237 01929000 @NM00088 EQU IEDQAVTD+1236 01930000 AVTHRESE EQU @NM00087 01931000 AVTRADDR EQU IEDQAVTD+1228 01932000 AVTNADDR EQU IEDQAVTD+1224 01933000 AVTHRESN EQU IEDQAVTD+1220 01934000 AVTVOLRN EQU IEDQAVTD+1216 01935000 AVTTOTNN EQU IEDQAVTD+1212 01936000 AVTTRCYN EQU IEDQAVTD+1208 01937000 AVTRCTRN EQU IEDQAVTD+1204 01938000 AVTNOVON EQU IEDQAVTD+1200 01939000 AVTADEBN EQU IEDQAVTD+1196 01940000 AVTVOLRR EQU IEDQAVTD+1192 01941000 AVTTOTNR EQU IEDQAVTD+1188 01942000 AVTTRCYR EQU IEDQAVTD+1184 01943000 AVTRCTRR EQU IEDQAVTD+1180 01944000 AVTNOVOR EQU IEDQAVTD+1176 01945000 AVTADEBR EQU IEDQAVTD+1172 01946000 AVTLODPT EQU IEDQAVTD+1168 01947000 AVTIOBN EQU IEDQAVTD+1164 01948000 AVTIOBR EQU IEDQAVTD+1160 01949000 AVTCPBPT EQU IEDQAVTD+1156 01950000 AVTFCPB EQU IEDQAVTD+1152 01951000 @NM00086 EQU IEDQAVTD+1148 01952000 AVTINCPQ EQU IEDQAVTD+1144 01953000 @NM00085 EQU IEDQAVTD+1140 01954000 @NM00084 EQU IEDQAVTD+1137 01955000 @NM00083 EQU AVTBIT4 01956000 @NM00082 EQU AVTBIT4 01957000 @NM00081 EQU AVTBIT4 01958000 @NM00080 EQU AVTBIT4 01959000 @NM00079 EQU AVTBIT4 01960000 @NM00078 EQU AVTBIT4 01961000 @NM00077 EQU AVTBIT4 01962000 AVTRUFTN EQU AVTBIT4 01963000 @NM00076 EQU IEDQAVTD+1132 01964000 AVTNOBFQ EQU IEDQAVTD+1128 01965000 @NM00075 EQU IEDQAVTD+1124 01966000 AVTDKENQ EQU IEDQAVTD+1120 01967000 @NM00074 EQU IEDQAVTD+1116 01968000 AVTDKAPQ EQU IEDQAVTD+1112 01969000 AVTCOPY EQU IEDQAVTD+1108 01970000 AVTIA EQU IEDQAVTD+1104 01971000 AVTFL EQU IEDQAVTD+1100 01972000 @NM00073 EQU IEDQAVTD+1096 01973000 AVTNCPBQ EQU IEDQAVTD+1092 01974000 AVTTOTNC EQU IEDQAVTD+1088 01975000 AVTCMAX EQU IEDQAVTD+1084 01976000 AVTCMIN EQU IEDQAVTD+1080 01977000 AVTHM02 EQU IEDQAVTD+1076 01978000 AVTOPCIN EQU IEDQAVTD+1074 01979000 AVTDCTLN EQU IEDQAVTD+1072 01980000 AVTOPMSK EQU IEDQAVTD+1068 01981000 AVTDDFT EQU IEDQAVTD+1064 01982000 AVTSTEAL EQU IEDQAVTD+1060 01983000 AVTOPTN EQU IEDQAVTD+1056 01984000 AVTDSKCT EQU IEDQAVTD+1054 01985000 AVTCKRST EQU IEDQAVTD+1053 01986000 AVTSTAN EQU AVTBIT3 01987000 AVTSTACN EQU AVTBIT3 01988000 AVTSTAIN EQU AVTBIT3 01989000 AVTSTAYN EQU AVTBIT3 01990000 AVTOLTBN EQU AVTBIT3 01991000 AVTTSAB EQU AVTBIT3 01992000 AVTRFULN EQU AVTBIT3 01993000 AVTRECVN EQU AVTBIT3 01994000 @NM00072 EQU AVTBIT2 01995000 @NM00071 EQU AVTBIT2 01996000 AVTOPEIN EQU AVTBIT2 01997000 AVTSTRTN EQU AVTBIT2 01998000 AVTTOPOL EQU AVTBIT2 01999000 AVTCOPYN EQU AVTBIT2 02000000 AVTREUSN EQU AVTBIT2 02001000 AVTEXTSC EQU AVTBIT2 02002000 AVTDISKN EQU AVTBIT1 02003000 AVTQUCKN EQU AVTBIT1 02004000 AVTCLOSN EQU AVTBIT1 02005000 AVTREADN EQU AVTBIT1 02006000 AVTDLAYN EQU AVTBIT1 02007000 AVTAQTAN EQU AVTBIT1 02008000 AVTTSON EQU AVTBIT1 02009000 AVTAPLKN EQU AVTBIT1 02010000 AVTDUMBR EQU IEDQAVTD+1048 02011000 AVTDLQX EQU IEDQAVTD+1046 02012000 AVTINTLV EQU IEDQAVTD+1044 02013000 AVTSMCNT EQU IEDQAVTD+1042 02014000 AVTAVFCT EQU IEDQAVTD+1040 02015000 AVTOPCON EQU IEDQAVTD+1038 02016000 AVTOPCNT EQU IEDQAVTD+1036 02017000 AVTLNCNT EQU IEDQAVTD+1034 02018000 AVTHA7 EQU IEDQAVTD+1028 02019000 AVTHA4 EQU IEDQAVTD+1026 02020000 AVTHA2 EQU IEDQAVTD+1022 02021000 AVTGETMS EQU IEDQAVTD+1021 02022000 @NM00070 EQU IEDQAVTD+1020 02023000 AVTGETMD EQU IEDQAVTD+1016 02024000 AVTGETMN EQU IEDQAVTD+1012 02025000 AVTCWTOT EQU IEDQAVTD+1008 02026000 AVTCWINT EQU IEDQAVTD+956 02027000 AVTDTRAP EQU IEDQAVTD+952 02028000 @NM00069 EQU IEDQAVTD+950 02029000 @NM00068 EQU AVTIOTR 02030000 AVTIOTRH EQU AVTIOTR 02031000 AVTIOTRE EQU AVTIOTR 02032000 @NM00067 EQU AVTSUBT 02033000 AVTSUBPT EQU AVTSUBT 02034000 AVTSUBON EQU AVTSUBT 02035000 AVTAFE30 EQU IEDQAVTD+944 02036000 AVTAFE20 EQU IEDQAVTD+940 02037000 AVTAFE10 EQU IEDQAVTD+936 02038000 AVTCWEC2 EQU IEDQAVTD+932 02039000 AVTCWPM2 EQU IEDQAVTD+928 02040000 AVTCWTS2 EQU IEDQAVTD+927 02041000 AVTCWTS1 EQU IEDQAVTD+926 02042000 AVTCWCLD EQU AVTCWFL2 02043000 AVTCWRAP EQU AVTCWFL2 02044000 @NM00066 EQU AVTCWFL2 02045000 @NM00065 EQU AVTCWFL2 02046000 @NM00064 EQU AVTCWFL2 02047000 @NM00063 EQU AVTCWFL2 02048000 @NM00062 EQU AVTCWFL2 02049000 AVTCWACT EQU AVTCWFL2 02050000 @NM00061 EQU AVTCWFL1 02051000 @NM00060 EQU AVTCWFL1 02052000 @NM00059 EQU AVTCWFL1 02053000 @NM00058 EQU AVTCWFL1 02054000 @NM00057 EQU AVTCWFL1 02055000 @NM00056 EQU AVTCWFL1 02056000 @NM00055 EQU AVTCWFL1 02057000 AVTCOMWN EQU AVTCWFL1 02058000 AVTCWEC1 EQU IEDQAVTD+920 02059000 AVTCWPM1 EQU IEDQAVTD+916 02060000 AVTCAREA EQU IEDQAVTD+912 02061000 AVTFZERO EQU IEDQAVTD+908 02062000 AVTCADDR EQU IEDQAVTD+904 02063000 AVTCOREC EQU IEDQAVTD+900 02064000 @NM00054 EQU IEDQAVTD+892 02065000 AVTCPBCB EQU IEDQAVTD+888 02066000 @NM00053 EQU IEDQAVTD+880 02067000 AVTDSIOB EQU IEDQAVTD+876 02068000 @NM00052 EQU IEDQAVTD+868 02069000 AVTCPRMB EQU IEDQAVTD+864 02070000 @NM00051 EQU IEDQAVTD+856 02071000 AVTCLOSB EQU IEDQAVTD+852 02072000 @NM00050 EQU IEDQAVTD+844 02073000 AVTACTIB EQU IEDQAVTD+840 02074000 @NM00049 EQU IEDQAVTD+836 02075000 AVTOLTEB EQU IEDQAVTD+832 02076000 AVTOLTCH EQU AVTOLTQB+1 02077000 AVTOLTVT EQU AVTOLTQB 02078000 @NM00048 EQU AVTOPCQB+8 02079000 @NM00047 EQU AVTOPCEC+1 02080000 @NM00046 EQU AVTOPCCC 02081000 AVTOPCPO EQU AVTOPCCC 02082000 AVTOPCWA EQU AVTOPCCC 02083000 AVTOPCCH EQU AVTOPCOB+1 02084000 AVTOPCVT EQU AVTOPCOB 02085000 @NM00045 EQU AVTCKPQB+9 02086000 AVTCKPTS EQU AVTCKPQB+8 02087000 @NM00044 EQU AVTCKPEC+1 02088000 @NM00043 EQU AVTCKPCC 02089000 AVTCKPPO EQU AVTCKPCC 02090000 AVTCKPWA EQU AVTCKPCC 02091000 AVTCKPCH EQU AVTCKPTB+1 02092000 AVTCKPVT EQU AVTCKPTB 02093000 @NM00042 EQU IEDQAVTD+796 02094000 AVTBFRTB EQU IEDQAVTD+792 02095000 @NM00041 EQU IEDQAVTD+784 02096000 AVTBFREB EQU IEDQAVTD+780 02097000 AVTTIMQ EQU IEDQAVTD+776 02098000 @NM00040 EQU IEDQAVTD+772 02099000 AVTIMQPS EQU IEDQAVTD+768 02100000 AVTREFTM EQU IEDQAVTD+764 02101000 @NM00039 EQU IEDQAVTD+752 02102000 AVTDELYB EQU IEDQAVTD+748 02103000 AVTOCQPT EQU IEDQAVTD+744 02104000 AVTTSOPT EQU IEDQAVTD+740 02105000 AVTSUPPT EQU IEDQAVTD+736 02106000 AVTCBQCB EQU IEDQAVTD+732 02107000 @NM00038 EQU AVTSYSER 02108000 @NM00037 EQU AVTSYSER 02109000 @NM00036 EQU AVTSYSER 02110000 @NM00035 EQU AVTSYSER 02111000 @NM00034 EQU AVTSYSER 02112000 @NM00033 EQU AVTSYSER 02113000 AVTCMAXN EQU AVTSYSER 02114000 AVTCMINN EQU AVTSYSER 02115000 AVT2260L EQU IEDQAVTD+724 02116000 AVTABEPL EQU AVTADBUF 02117000 AVTHFF EQU AVTCLRHI+2 02118000 @NM00032 EQU AVTCLRHI 02119000 AVTCCLNK EQU AVTCRELE+5 02120000 AVTCCPRI EQU AVTCRELE+4 02121000 AVTCCQCB EQU AVTCCELE+1 02122000 AVTCCKEY EQU AVTCCELE 02123000 AVTDELAD EQU IEDQAVTD+704 02124000 AVTDELEM EQU IEDQAVTD+700 02125000 AVTBSX EQU AVTCKLNK 02126000 AVTOPETR EQU AVTHG01 02127000 @NM00031 EQU AVTCKBYT 02128000 AVTCKONQ EQU AVTCKBYT 02129000 @NM00030 EQU AVTCKBYT 02130000 @NM00029 EQU AVTCKBYT 02131000 @NM00028 EQU AVTCKBYT 02132000 @NM00027 EQU AVTCKBYT 02133000 @NM00026 EQU AVTCKBYT 02134000 @NM00025 EQU AVTCKBYT 02135000 AVTOPERT EQU IEDQAVTD+690 02136000 AVTOPXCL EQU IEDQAVTD+688 02137000 AVTOPERL EQU IEDQAVTD+687 02138000 @NM00024 EQU IEDQAVTD+686 02139000 AVTCKTIM EQU IEDQAVTD+684 02140000 AVTCKELV EQU IEDQAVTD+682 02141000 AVTCPRCD EQU IEDQAVTD+681 02142000 AVTWARMN EQU AVTCKELF 02143000 AVTCRTLN EQU AVTCKELF 02144000 AVTCPIPN EQU AVTCKELF 02145000 AVTCCLCN EQU AVTCKELF 02146000 AVTCINCN EQU AVTCKELF 02147000 @NM00023 EQU AVTCKELF 02148000 AVTCMCPN EQU AVTCKELF 02149000 AVTCRDYN EQU AVTCKELF 02150000 AVTCKQAD EQU IEDQAVTD+677 02151000 AVTSCBSZ EQU IEDQAVTD+676 02152000 @NM00022 EQU IEDQAVTD+672 02153000 AVTCKELE EQU IEDQAVTD+668 02154000 @NM00021 EQU AVTCKPEL+8 02155000 AVTCKRLK EQU AVTCKPEL+5 02156000 AVTCKRPR EQU AVTCKPEL+4 02157000 AVTCKRMQ EQU AVTCKRMV+1 02158000 AVTCKRKY EQU AVTCKRMV 02159000 AVTHK EQU IEDQAVTD+648 02160000 AVTHI EQU IEDQAVTD+644 02161000 AVTIOT EQU IEDQAVTD+640 02162000 AVTNX EQU IEDQAVTD+636 02163000 AVTTONE EQU IEDQAVTD+632 02164000 AVTA3TL EQU IEDQAVTD+628 02165000 AVTDMECB EQU IEDQAVTD+624 02166000 AVTABEND EQU IEDQAVTD+618 02167000 AVTPLCBN EQU IEDQAVTD+616 02168000 @NM00020 EQU AVTSAVTP+1 02169000 @NM00019 EQU AVTSAVTF 02170000 AVTSNA EQU AVTSAVTF 02171000 AVTONSNA EQU AVTSAVTF 02172000 AVTVTMCP EQU AVTSAVTF 02173000 @NM00018 EQU IEDQAVTD+608 02174000 AVTCMBSS EQU IEDQAVTD+604 02175000 AVTRCV EQU IEDQAVTD+600 02176000 AVTSEND EQU IEDQAVTD+596 02177000 AVTCSCH EQU IEDQAVTD+592 02178000 AVTQ1 EQU IEDQAVTD+588 02179000 AVTE7 EQU IEDQAVTD+584 02180000 AVTHB EQU IEDQAVTD+580 02181000 AVTR1 EQU IEDQAVTD+576 02182000 AVTBZ EQU IEDQAVTD+572 02183000 AVTEZ EQU IEDQAVTD+568 02184000 AVTEC EQU IEDQAVTD+564 02185000 AVTEW EQU IEDQAVTD+560 02186000 AVTNDIAL EQU AVTSCOPT 02187000 AVTN2741 EQU AVTSCOPT 02188000 AVTCONCO EQU AVTSCOPT 02189000 AVTCONC EQU AVTSCOPT 02190000 AVTCMBUF EQU AVTSCOPT 02191000 AVTAPDMP EQU AVTSCOPT 02192000 @NM00017 EQU AVTSCOPT 02193000 AVTHA EQU AVTDISP 02194000 AVTEA EQU IEDQAVTD+548 02195000 AVTAX EQU IEDQAVTD+544 02196000 AVTA3 EQU IEDQAVTD+540 02197000 AVTGD EQU IEDQAVTD+536 02198000 AVTOLTST EQU AVTHG02 02199000 AVTE8 EQU IEDQAVTD+524 02200000 AVTCOMPT EQU IEDQAVTD+516 02201000 AVTCRSRF EQU IEDQAVTD+512 02202000 @NM00016 EQU IEDQAVTD+508 02203000 AVTKA02 EQU IEDQAVTD+504 02204000 AVTOPTPT EQU IEDQAVTD+500 02205000 AVTPCBPT EQU IEDQAVTD+496 02206000 AVTOSECB EQU IEDQAVTD+492 02207000 AVTOPECA EQU IEDQAVTD+488 02208000 AVTOLECA EQU IEDQAVTD+484 02209000 AVTCKECA EQU IEDQAVTD+480 02210000 AVTCWECA EQU IEDQAVTD+476 02211000 AVTCWTCB EQU IEDQAVTD+472 02212000 AVTOLTCB EQU IEDQAVTD+468 02213000 AVTOCTCB EQU IEDQAVTD+464 02214000 AVTCKTCB EQU IEDQAVTD+460 02215000 AVTAS EQU IEDQAVTD+456 02216000 AVTNOLBF EQU IEDQAVTD+454 02217000 AVTNCKPR EQU IEDQAVTD+453 02218000 AVTCIB EQU IEDQAVTD+452 02219000 AVTSPLPT EQU IEDQAVTD+448 02220000 AVTMVBFR EQU IEDQAVTD+444 02221000 AVTSBTA EQU IEDQAVTD+440 02222000 AVTRARTN EQU IEDQAVTD+436 02223000 AVTBSCAN EQU IEDQAVTD+432 02224000 AVTRDYA EQU IEDQAVTD+428 02225000 AVTDISTR EQU IEDQAVTD+420 02226000 AVTPARM3 EQU IEDQAVTD+416 02227000 @NM00015 EQU AVTPKF 02228000 @NM00014 EQU AVTPKF 02229000 @NM00013 EQU AVTPKF 02230000 AVTFTCHF EQU AVTPKF 02231000 @NM00012 EQU AVTPKF 02232000 @NM00011 EQU AVTPKF 02233000 @NM00010 EQU AVTPKF 02234000 @NM00009 EQU AVTPKF 02235000 AVTOCGET EQU IEDQAVTD+392 02236000 AVTCKAVT EQU @NM00007+1 02237000 @NM00008 EQU AVTCKFLG 02238000 AVTCKHLT EQU AVTCKFLG 02239000 AVTCKREQ EQU AVTCKFLG 02240000 AVTCKENV EQU AVTCKFLG 02241000 AVTCKNAC EQU AVTCKFLG 02242000 AVTCKTAC EQU AVTCKFLG 02243000 @NM00006 EQU IEDQAVTD+384 02244000 AVTREADD EQU IEDQAVTD+380 02245000 AVTREADY EQU IEDQAVTD+376 02246000 AVTRACE EQU IEDQAVTD+372 02247000 AVTTCB EQU IEDQAVTD+368 02248000 AVTPASWD EQU IEDQAVTD+360 02249000 AVTCTLCH EQU IEDQAVTD+352 02250000 AVTDOUBL EQU IEDQAVTD+344 02251000 AVTDOUBX EQU IEDQAVTD+336 02252000 AVTDPARM EQU IEDQAVTD+332 02253000 AVTCSTCS EQU IEDQAVTD+328 02254000 AVTDLQ EQU AVTSAVEX+32 02255000 @NM00005 EQU AVTSAVEX 02256000 AVTSAVE4 EQU IEDQAVTD+216 02257000 AVTSAVE3 EQU IEDQAVTD+144 02258000 AVTSAVE1 EQU IEDQAVTD 02259000 SCBTRANS EQU IEDQSCB+81 02260000 SCBUNTCT EQU IEDQSCB+80 02261000 SCBEOB EQU IEDQSCB+78 02262000 SCBNXCPB EQU SCBCCSEG 02263000 SCBNHDR EQU SCBCHDR 02264000 SCBCRCD EQU IEDQSCB+69 02265000 SCBTQBCK EQU SCBNTXT 02266000 SCBOSEQ EQU SCBSCAN 02267000 SCBXTRA EQU SCBCORE 02268000 SCBNOPST EQU SCBSTAT1 02269000 SCBNIDLE EQU SCBSTAT1 02270000 SCBCEND EQU SCBSTAT1 02271000 SCBCBGN EQU SCBSTAT1 02272000 SCBSIZE EQU IEDQSCB+58 02273000 SCBSRCE EQU IEDQSCB+56 02274000 SCBDEOB EQU IEDQSCB+52 02275000 SCBFEFO EQU SCBDCSEG 02276000 SCBCTBND EQU SCBBLKCT 02277000 SCBSCHDR EQU SCBCLSEG 02278000 SCBHBFNO EQU IEDQSCB+44 02279000 SCBSCSEG EQU SCBDNSEG 02280000 SCBBCTR EQU SCBCTBSV 02281000 SCBCCHDR EQU IEDQSCB+37 02282000 SCBDCHDR EQU IEDQSCB+33 02283000 SCBCPBNO EQU IEDQSCB+32 02284000 SCBMBSSA EQU IEDQSCB+25 02285000 SCBMLMTN EQU SCBBSCFM 02286000 SCBNOEOT EQU SCBBSCFM 02287000 @NM00004 EQU SCBBSCFM 02288000 SCBNPDTR EQU SCBDATEN 02289000 SCBCNTEN EQU SCBBSCFM 02290000 SCBRCVTX EQU SCBBSCFM 02291000 SCBNONTR EQU SCBBSCFM 02292000 SCBTRNSP EQU SCBBSCFM 02293000 SCBENDCR EQU SCBCTBAC+1 02294000 SCBCRLEN EQU SCBCTBAC 02295000 SCBMRFSD EQU IEDQSCB+20 02296000 SCBUNDFN EQU SCBERR4 02297000 SCBSTERN EQU SCBCHANN 02298000 SCBCPMEN EQU SCBCTLUN 02299000 @NM00003 EQU SCBERR4 02300000 SCBTRMLN EQU SCBERR4 02301000 SCBCONNN EQU SCBERR4 02302000 SCBAPERR EQU SCBTXTTN 02303000 SCBSLCTN EQU SCBERR4 02304000 SCBPERRN EQU SCBXCEPN 02305000 SCBTHRSN EQU SCBATTN 02306000 SCBFIERN EQU SCBFORMN 02307000 SCBUSERN EQU SCBERR3 02308000 SCBSATTN EQU SCBERR3 02309000 SCBTMINN EQU SCBERR3 02310000 SCBXPD EQU SCBTMIDN 02311000 SCBXPI EQU SCBLOSTN 02312000 SCBSOHE EQU SCBERR2 02313000 SCBFRWDN EQU SCBERR2 02314000 SCBRRJN EQU SCBABRTN 02315000 SCBOLTR EQU SCBERR2 02316000 SCBALN EQU SCBERR2 02317000 SCBCODER EQU SCBERR2 02318000 SCBCRMAX EQU SCBERR2 02319000 SCBCRMIN EQU SCBERR2 02320000 SCBRVISL EQU SCBCUTFN 02321000 SCBNOBFN EQU SCBERR1 02322000 @NM00002 EQU SCBERR1 02323000 SCBNOVAC EQU SCBSEQLN 02324000 SCBNOTSO EQU SCBSEQHN 02325000 SCBRVITX EQU SCBNOTRM 02326000 SCBHANG EQU SCBORIGN 02327000 SCBNOLOG EQU SCBHDRRN 02328000 SCBMRFPL EQU IEDQSCB+13 02329000 SCBBFMM EQU SCBQTYPE 02330000 SCBBBFTM EQU SCBQTYPE 02331000 SCBNOFF EQU SCBQTYPE 02332000 SCBCONC EQU SCBQTYPE 02333000 SCBNREUS EQU SCBQTYPE 02334000 SCBREUS EQU SCBQTYPE 02335000 SCBCOREQ EQU SCBQTYPE 02336000 SCBNORCL EQU SCBQTYPE 02337000 SCBCTBSZ EQU SCBEOBSZ 02338000 @NM00001 EQU SCBBKFCT 02339000 SCBPRI EQU IEDQSCB+8 02340000 SCBMACR EQU SCBMBHEN 02341000 SCBSNDCT EQU SCBRCVCT 02342000 SCBDESTQ EQU IEDQSCB+1 02343000 SCBCODE EQU SCBSTATE 02344000 SCBPRER EQU SCBSTATE 02345000 SCBCKPT EQU SCBSTATE 02346000 SCBMSGLN EQU SCBSTATE 02347000 SCBERSDS EQU SCBSTATE 02348000 SCBLCK1N EQU SCBSTATE 02349000 SCBMGFMN EQU SCBSEQIN 02350000 SCBTRANP EQU SCBSTATE 02351000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02352000 @RF00374 EQU @RC00349 02353000 @RC00353 EQU @RC00349 02354000 @RC00351 EQU @RC00349 02355000 @RC00514 EQU @RC00513 02356000 @RC00520 EQU @RC00519 02357000 @RC00536 EQU @RC00532 02358000 @RC00543 EQU @RC00541 02359000 @RC00568 EQU @EL00004 02360000 @RF00367 EQU @RC00353 02361000 @RC00369 EQU @RC00353 02362000 @RC00550 EQU @RC00543 02363000 @RC00551 EQU @RC00550 02364000 @RC00555 EQU @RC00551 02365000 @ENDDATA EQU * 02366000 END IEDIAH,(C'PLS1658',0701,77012) 02367000