TITLE 'IEDUNBND, UNBIND EXIT INTERFACE MODULE *00001000 ' 00002000 IEDUNBND CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 * /* 00005000 USING *,RBASE MODULE ADDRESSABILITY 00006000 DC AL4(0) ELEMENT CHAIN 00007000 DC AL4(0) LINK FIELD 00008000 DC XL1'06' STCB VTO 00009000 DC AL3(*-1) POINTER TO STCB VTO 00010000 * RBASE=RQCB; /* SET MODULE BASE REGISTER */ 00011000 LR RBASE,RQCB 02S0246 00012000 * GEN REFS(RBASE) NOSETS; 02S0247 00013000 * /* 00014000 IEDUNBND IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00015000 * RFY 02S0248 00016000 * RQCB UNRSTD; 02S0248 00017000 * 02S0249 00018000 * /*****************************************************************/ 00019000 * /* */ 00020000 * /* PROCESS: THIS SEGMENT PERFORMS THE FUNCTION OF THE MODULE. */ 00021000 * /* */ 00022000 * /*****************************************************************/ 00023000 * 02S0249 00024000 * IF RECBPRI=PRILNSCL /* IF INPUT ELEMENT PRIORITY 00025000 * INDICATES THAT IT IS A PLCB */ 00026000 * THEN 02S0249 00027000 CLI RECBPRI(RPARM),227 02S0249 00028000 BNE @RF00249 02S0249 00029000 * DO; /* ..THEN TRY TO STEAL A BUFFER */ 00030000 * RFY 02S0251 00031000 * REG00 RSTD; 02S0251 00032000 * RLCB=RPARM; /* SETUP PLCB ADDRESSABILITY */ 00033000 LR RLCB,RPARM 02S0252 00034000 * REG00=(255+AVTHDRSZ)/AVTKEYLE;/* CALCULATE NUMBER OF WHOLE 00035000 * UNITS NEEDED TO HOLD MAXIMUM 00036000 * POSSIBLE MESSAGE */ 00037000 LA @14,285 02S0253 00038000 LH @10,AVTKEYLE(,RAVT) 02S0253 00039000 LR @02,@14 02S0253 00040000 SRDA @02,32 02S0253 00041000 DR @02,@10 02S0253 00042000 LR REG00,@03 02S0253 00043000 * IF(REG00*AVTKEYLE)^=(255+AVTHDRSZ)/* IF THE NUMBER OF WHOLE 00044000 * UNITS CALCULATED WILL NOT HOLD 00045000 * THE ENTIRE MAXIMUM MESSAGE */ 00046000 * THEN 02S0254 00047000 LR @03,@10 02S0254 00048000 MR @02,REG00 02S0254 00049000 CR @03,@14 02S0254 00050000 BE @RF00254 02S0254 00051000 * REG00=REG00+1; /* ..THEN ADD 1 UNIT FOR THE 00052000 * LEFTOVER BYTES OF THE MAXIMUM 00053000 * MESSAGE */ 00054000 AL REG00,@CF00059 02S0255 00055000 * ELSE 02S0256 00056000 * ; 02S0256 00057000 @RF00254 DS 0H 02S0257 00058000 * REG01=1; /* SET NUMBER OF BUFFERS DESIRED 00059000 * TO ONE */ 00060000 LA REG01,1 02S0257 00061000 * CALL IEDQGA02; /* ATTEMPT TO STEAL A BUFFER */ 00062000 L @15,AVTSTEAL(,RAVT) 02S0258 00063000 BALR @14,@15 02S0258 00064000 * END; 02S0259 00065000 * ELSE 02S0260 00066000 * DO; /* ..ELSE ACCESS PLCB AND 02S0260 00067000 * AVAILABLE BUFFER RETURNED FROM 00068000 * BUFFER ALLOCATION VIA THE 00069000 * PLCB'S ERB */ 00070000 B @RC00249 02S0260 00071000 @RF00249 DS 0H 02S0261 00072000 * RLCB=RPARM-LCBERBFS; /* SETUP PLCB BASE ADDRESS */ 00073000 LR RLCB,RPARM 02S0261 00074000 SL RLCB,@CF00979 02S0261 00075000 * REG15=LCBERBCH; /* SETUP BUFFER ADDRESS IN RETURN 00076000 * REGISTER FROM IEDQGA02 SO THAT 00077000 * FOLLOWING TEST FOR BUFFER 00078000 * AVAILABLE WILL BE TRUE IN THIS 00079000 * CASE */ 00080000 L REG15,LCBERBCH-1(,RLCB) 02S0262 00081000 LA REG15,0(,REG15) 02S0262 00082000 * LCBERBCH=0; /* CLEAR FOR REUSE */ 00083000 SLR @14,@14 02S0263 00084000 STCM @14,7,LCBERBCH(RLCB) 02S0263 00085000 * END; 02S0264 00086000 * IF REG15=0 THEN /* IF A BUFFER IS NOT AVAILABLE */ 00087000 @RC00249 LTR REG15,REG15 02S0265 00088000 BNZ @RF00265 02S0265 00089000 * 03S0266 00090000 * /***************************************************************/ 00091000 * /* */ 00092000 * /* PROCESS.QGAPST: THIS SEGMENT POSTS THE PLCB'S ERB TO BUFFER */ 00093000 * /* ALLOCATION TO OBTAIN A BUFFER. */ 00094000 * /* */ 00095000 * /***************************************************************/ 00096000 * 03S0266 00097000 * DO; 03S0266 00098000 * LCBRBCT2=REG00; /* SET NUMBER OF UNITS DESIRED */ 00099000 STC REG00,LCBRBCT2(,RLCB) 03S0267 00100000 * RFY 03S0268 00101000 * REG00 UNRSTD; 03S0268 00102000 * LCBRBCT1=REG01; /* SET NUMBER OF BUFFERS DESIRED */ 00103000 STC REG01,LCBRBCT1(,RLCB) 03S0269 00104000 * LCBRCQCB=RBASE; /* SET RETURN TO THIS MODULE */ 00105000 ST RBASE,LCBRCQCB(,RLCB) 03S0270 00106000 * LCBPRCPG=ON; /* INDICATE THAT ERB IS TO BE 00107000 * RETURNED */ 00108000 OI LCBPRCPG(RLCB),B'00000010' 03S0271 00109000 * LCBERBQB=ADDR(AVTBFREB); /* SET BUFFER ALLOCATION QCB 00110000 * ADDRESS */ 00111000 LA @14,AVTBFREB(,RAVT) 03S0272 00112000 STCM @14,7,LCBERBQB(RLCB) 03S0272 00113000 * LCBERBPY=PRIINTRQ; /* SET INITIAL REQUEST PRIORITY */ 00114000 MVI LCBERBPY(RLCB),X'E4' 03S0273 00115000 * RPARM=ADDR(LCBERB); /* SET ERB AS ELEMENT */ 00116000 LA RPARM,LCBERB(,RLCB) 03S0274 00117000 * CALL DSPPOSTR; /* POST ERB TO IEDQGA */ 00118000 LA @15,DSPPOSTR(,RDISP) 03S0275 00119000 BALR @14,@15 03S0275 00120000 * END; 03S0276 00121000 * ELSE 02S0277 00122000 * 03S0277 00123000 * /***************************************************************/ 00124000 * /* */ 00125000 * /* PROCESS.BUFAVAIL: THIS SEGMENT CALLS THE USER'S UNBIND EXIT */ 00126000 * /* AND SENDS A MESSAGE FOR HIM IF HE SO SPECIFIES. */ 00127000 * /* */ 00128000 * /***************************************************************/ 00129000 * 03S0277 00130000 * DO; 03S0277 00131000 B @RC00265 03S0277 00132000 @RF00265 DS 0H 03S0278 00133000 * RPRF=REG15; /* MOVE BUFFER ADDRESS */ 00134000 LR RPRF,REG15 03S0278 00135000 * 04S0279 00136000 * /*************************************************************/ 00137000 * /* */ 00138000 * /* PROCESS.BUFAVAIL.SETUPARM: THIS SEGMENT SETS UP THE */ 00139000 * /* PARAMETERS FOR THE USER'S UNBIND EXIT. */ 00140000 * /* */ 00141000 * /*************************************************************/ 00142000 * 04S0279 00143000 * DO; 04S0279 00144000 * THPTR=LCBBFRSV->PRFPIUO+ADDR(LCBBFRSV->PRFPIUO);/* GET 00145000 * CLEAR RESPONSE ADDRESSABILITY */ 00146000 L @14,LCBBFRSV-1(,RLCB) 04S0280 00147000 LA @14,0(,@14) 04S0280 00148000 LA THPTR,PRFPIUO(,@14) 04S0280 00149000 SLR @10,@10 04S0280 00150000 IC @10,PRFPIUO(,@14) 04S0280 00151000 ALR THPTR,@10 04S0280 00152000 * RFY 04S0281 00153000 * REG02 RSTD; 04S0281 00154000 * IF TTHDAF=SAVTMHDX /* IF PRIMARY LU IS 'TCAM' */ 00155000 * THEN 04S0282 00156000 L @14,AVTSAVTP(,RAVT) 04S0282 00157000 CLC TTHDAF(2,THPTR),SAVTMHDX(@14) 04S0282 00158000 BNE @RF00282 04S0282 00159000 * REG02=0; /* ..THEN SO INDICATE TO USER'S 00160000 * UNBIND EXIT */ 00161000 SLR REG02,REG02 04S0283 00162000 * ELSE 04S0284 00163000 * IF TNTLENUNBMSLEN=0/* IF BAD RETURN CODE FROM THE 00220000 * USER EXIT OR THE USER 03S0291 00221000 * SPECIFIED A ZERO-LENGTH 03S0291 00222000 * MESSAGE */ 00223000 * THEN 03S0291 00224000 LTR REG15,REG15 03S0291 00225000 BZ @RT00291 03S0291 00226000 CLI UNBMSLEN(REG15),0 03S0291 00227000 BNE @RF00291 03S0291 00228000 @RT00291 DS 0H 03S0292 00229000 * CALL IPFREBFR; /* ..THEN FREE THE AVAILABLE 00230000 * BUFFER AND EXIT */ 00231000 BAL @14,IPFREBFR 03S0292 00232000 * ELSE 03S0293 00233000 * DO; /* ..ELSE CONTINUE TO SETUP 03S0293 00234000 * MESSAGE SENDING */ 00235000 B @RC00291 03S0293 00236000 @RF00291 DS 0H 03S0294 00237000 * AVTADBUF=RPRF; /* SET BFR ADDR FOR QUI @YM07423*/ 00238000 ST RPRF,AVTADBUF(,RAVT) 03S0294 00239000 * PRFLCB=RLCB; /* SET LCB ADDR IN BFR @YM07423*/ 00240000 STCM RLCB,7,PRFLCB(RPRF) 03S0295 00241000 * UNBNDPTR=REG15; /* SAVE USER'S UNBIND EXIT RETURN 00242000 * PARAMETERS */ 00243000 LR UNBNDPTR,REG15 03S0296 00244000 * QA1GARBG=''B; /* CLEAR UNUSED FIELDS */ 00245000 XC QA1GARBG(2,RAVT),QA1GARBG(RAVT) 03S0297 00246000 * QA1INDEX=ADDR(MHVQA1)-ADDR(MHVCONS);/* SET ROUTINE INDEX 00247000 * TO IEDQA1 */ 00248000 MVI QA1INDEX(RAVT),X'08' 03S0298 00249000 * QA1NMLEN=TNTENLEN; /* SET NAME LENGTH */ 00250000 L @14,IEDQNPTR(,RAVT) 03S0299 00251000 IC @10,TNTENLEN(,@14) 03S0299 00252000 STC @10,QA1NMLEN(,RAVT) 03S0299 00253000 * QA1NADDR=UNBNDPTR; /* SET NAME ADDRESS */ 00254000 ST UNBNDPTR,QA1NADDR(,RAVT) 03S0300 00255000 * RPARM=ADDR(AVTDOUBL); /* SETUP PARAMETER'S ADDRESS */ 00256000 LA RPARM,AVTDOUBL(,RAVT) 03S0301 00257000 * CALL IEDQUI; /* PERFORM BINARY SEARCH */ 00258000 L @15,AVTUI(,RAVT) 03S0302 00259000 BALR @14,@15 03S0302 00260000 * IF REG15=0 /* IF NAME WAS NOT FOUND */ 00261000 * THEN 03S0303 00262000 LTR REG15,REG15 03S0303 00263000 BNZ @RF00303 03S0303 00264000 * CALL IPFREBFR; /* ..THEN FREE THE AVAILABLE 00265000 * BUFFER AND EXIT */ 00266000 BAL @14,IPFREBFR 03S0304 00267000 * ELSE 03S0305 00268000 * DO; /* ..ELSE CONTINUE TO SETUP 03S0305 00269000 * MESSAGE SENDING */ 00270000 B @RC00303 03S0305 00271000 @RF00303 DS 0H 03S0306 00272000 * PRFNHDRN=OFF; /* MAKE BUFFER HEADER */ 00273000 * PRFNLSTN=OFF; /* MAKE BUFFER LAST */ 00274000 NI PRFNHDRN(RPRF),B'11111100' 03S0307 00275000 * RPARM=REG15; /* SETUP DESTINATION TTCIN FOR 00276000 * VALIDATION */ 00277000 LR RPARM,REG15 03S0308 00278000 * RAVT=RAVT+SAV3OFF; /* CHANGE AVT BASE ADDRESS TO 00279000 * AVTSAVE3 TO CORRESPOND TO 00280000 * VALUE EXPECTED BY IEDQAV 03S0309 00281000 * @YM07284*/ 00282000 LA @14,72 03S0309 00283000 ALR RAVT,@14 03S0309 00284000 * RFY 03S0310 00285000 * IEDQAVTD BASED(RAVT-SAV3OFF);/* @YM07284*/ 00286000 * CALL IEDQAV; /* VALIDATE DESTINATION TTCIN */ 00287000 LCR @14,@14 03S0311 00288000 ALR @14,RAVT 03S0311 00289000 L @10,AVTMSGS-1(,@14) 03S0311 00290000 L @15,MHVQAV(,@10) 03S0311 00291000 BALR @14,@15 03S0311 00292000 * RAVT=RAVT-SAV3OFF; /* RESTORE AVT BASE ADDRESS 03S0312 00293000 * @YM07284*/ 00294000 SL RAVT,@CF01418 03S0312 00295000 * RFY 03S0313 00296000 * IEDQAVTD BASED(RAVT);/* @YM07284*/ 00297000 * IF REG15=0 THEN /* IF THE DESTINATION WAS VALID */ 00298000 SLR @14,@14 03S0314 00299000 CR REG15,@14 03S0314 00300000 BNE @RF00314 03S0314 00301000 * 04S0315 00302000 * /***************************************************/ 00303000 * /* */ 00304000 * /* PROCESS.BUFAVAIL.SENDMSG: THIS SEGMENT MOVES THE*/ 00305000 * /* USER'S MESSAGE FROM HIS WORKAREA INTO TCAM */ 00306000 * /* BUFFERS AND THEN POSTS THE MESSAGE TO A */ 00307000 * /* DESTINATION QUEUE. */ 00308000 * /* */ 00309000 * /***************************************************/ 00310000 * 04S0315 00311000 * DO; 04S0315 00312000 * PRFSRCE=0; /* INDICATE NO SOURCE */ 00313000 STH @14,PRFSRCE(,RPRF) 04S0316 00314000 * PRFISIZE=0; /* INDICATE NO RESERVE CHARACTERS*/ 00315000 MVI PRFISIZE(RPRF),X'00' 04S0317 00316000 * PRFSIZE=UNBMSLEN+AVTHDRSZ;/* SET MESSAGE SIZE TO 00317000 * LENGTH OF HEADER PLUS LENGTH 00318000 * OF USER DATA */ 00319000 LA @14,30 04S0318 00320000 SLR @10,@10 04S0318 00321000 IC @10,UNBMSLEN(,UNBNDPTR) 04S0318 00322000 LR @07,@10 04S0318 00323000 ALR @07,@14 04S0318 00324000 STH @07,PRFSIZE(,RPRF) 04S0318 00325000 * UNITDLEN=AVTKEYLE-AVTHDRSZ;/* CALCULATE HEAD UNIT 00326000 * DATA LENGTH */ 00327000 LCR @14,@14 04S0319 00328000 AH @14,AVTKEYLE(,RAVT) 04S0319 00329000 LR UNITDLEN,@14 04S0319 00330000 * IF UNBMSLEN<=UNITDLEN/* IF THE MESSAGE CAN FIT IN 00331000 * ONE BUFFER UNIT */ 00332000 * THEN 04S0320 00333000 CR @10,UNITDLEN 04S0320 00334000 BH @RF00320 04S0320 00335000 * HDRDATA(1:UNBMSLEN)=UNBNDMSG(1:UNBMSLEN);/* 00336000 * ..THEN MOVE ALL OF THE USER'S 00337000 * DATA IN ONE OPERATION */ 00338000 BCTR @10,0 04S0321 00339000 EX @10,@SM01464 04S0321 00340000 * ELSE 04S0322 00341000 * DO; /* ..ELSE MOVE ALL OF THE USER'S 00342000 * DATA IN MULTIPLE OPERATIONS */ 00343000 B @RC00320 04S0322 00344000 @RF00320 DS 0H 04S0323 00345000 * HDRDATA(1:UNITDLEN)=UNBNDMSG(1:UNITDLEN);/* 00346000 * MOVE THE FIRST UNIT'S DATA */ 00347000 LR @14,UNITDLEN 04S0323 00348000 BCTR @14,0 04S0323 00349000 EX @14,@SM01464 04S0323 00350000 * DO LOOPINDX=UNITDLEN TO UNBMSLEN-1 BY AVTKEYLE; 00351000 LR LOOPINDX,UNITDLEN 04S0324 00352000 B @DE00324 04S0324 00353000 @DL00324 DS 0H 04S0325 00354000 * /* MOVE THE REMAINING UNITS' 00355000 * DATA-LOOPINDX IS THE INDEX 00356000 * INTO THE USER'S WORKAREA OF 00357000 * THE SOURCE OF THE CURRENT 00358000 * UNIT'S DATA */ 00359000 * RPRF=PRFTIC;/* GET NEXT UNIT ADDRESS */ 00360000 L RPRF,PRFTIC(,RPRF) 04S0325 00361000 * LENDATTM=MIN(AVTKEYLE,(UNBMSLEN-LOOPINDX)); 00362000 SLR LENDATTM,LENDATTM 04S0326 00363000 IC LENDATTM,UNBMSLEN(,UNBNDPTR) 04S0326 00364000 SLR LENDATTM,LOOPINDX 04S0326 00365000 LH @14,AVTKEYLE(,RAVT) 04S0326 00366000 CR @14,LENDATTM 04S0326 00367000 BNH *+6 00368000 LR @14,LENDATTM 04S0326 00369000 LR LENDATTM,@14 04S0326 00370000 * /* CALCULATE SIZE OF DATA TO MOVE*/ 00371000 * UNITDATA(1:LENDATTM)=UNBNDMSG(LOOPINDX+1: 00372000 * LOOPINDX+LENDATTM);/* MOVE THE DATA 00373000 * FROM THE USER WORKAREA TO THE 00374000 * BUFFER UNIT */ 00375000 LR @14,LENDATTM 04S0327 00376000 BCTR @14,0 04S0327 00377000 LR @10,UNBNDPTR 04S0327 00378000 ALR @10,LOOPINDX 04S0327 00379000 EX @14,@SM01466 04S0327 00380000 * END; 04S0328 00381000 AH LOOPINDX,AVTKEYLE(,RAVT) 04S0328 00382000 @DE00324 SLR @14,@14 04S0328 00383000 IC @14,UNBMSLEN(,UNBNDPTR) 04S0328 00384000 BCTR @14,0 04S0328 00385000 CLR LOOPINDX,@14 04S0328 00386000 BNH @DL00324 04S0328 00387000 * END; 04S0329 00388000 * RPARM=AVTADBUF; /* GET BUFFER ADDRESS FOR POST */ 00389000 @RC00320 L RPARM,AVTADBUF(,RAVT) 04S0330 00390000 * RFY 04S0331 00391000 * IEDQPRF BASED(RPARM); 04S0331 00392000 * PRFQCBA=SCBDESTQ;/* INDICATE QUEUE TO WHICH THE 00393000 * MESSAGE IS TO BE POSTED */ 00394000 L @14,IEDQSPTR-1(,RLCB) 04S0332 00395000 MVC PRFQCBA(3,RPARM),SCBDESTQ(@14) 04S0332 00396000 * PRFPRI=PRIDESTQ;/* INDICATE MESSAGE QUEUE POSTING 00397000 * PRIORITY */ 00398000 MVI PRFPRI(RPARM),X'E4' 04S0333 00399000 * RFY 04S0334 00400000 * IEDQPRF BASED(RPRF); 04S0334 00401000 * CALL DSPPOSTR; /* POST THE MESSAGE TO ITS 04S0335 00402000 * DESTINATION */ 00403000 LA @15,DSPPOSTR(,RDISP) 04S0335 00404000 BALR @14,@15 04S0335 00405000 * END; 04S0336 00406000 * ELSE 03S0337 00407000 * CALL IPFREBFR; /* ..ELSE THE DESTINATION WAS NOT 00408000 * VALID-FREE THE AVAILABLE 03S0337 00409000 * BUFFER */ 00410000 B @RC00314 03S0337 00411000 @RF00314 BAL @14,IPFREBFR 03S0337 00412000 * END; 03S0338 00413000 @RC00314 DS 0H 03S0339 00414000 * END; 03S0339 00415000 @RC00303 DS 0H 03S0340 00416000 * LCBQCBA=SAVTSCLU; /* SETUP QCB ADDRESS FOR RETURN 00417000 * POST OF PLCB TO IEDSCLU */ 00418000 @RC00291 L @14,AVTSAVTP(,RAVT) 03S0340 00419000 MVC LCBQCBA(3,RLCB),SAVTSCLU+1(@14) 03S0340 00420000 * RPARM=RLCB; /* SETUP ADDRESS OF ELEMENT TO BE 00421000 * POSTED */ 00422000 LR RPARM,RLCB 03S0341 00423000 * CALL DSPPOSTR; /* POST THE PLCB BACK TO IEDSCLU */ 00424000 LA @15,DSPPOSTR(,RDISP) 03S0342 00425000 BALR @14,@15 03S0342 00426000 * END; 03S0343 00427000 * CALL DSPDISP; /* GIVE CONTROL TO THE DISPATCHER 00428000 * WITHOUT RETURN */ 00429000 @RC00265 LA @15,DSPDISP(,RDISP) 02S0344 00430000 BALR @14,@15 02S0344 00431000 * 02S0345 00432000 * /*****************************************************************/ 00433000 * /* */ 00434000 * /* IPFREBFR: THIS INTERNAL PROCEDURE FREES THE BUFFER POINTED TO */ 00435000 * /* BY RPRF. */ 00436000 * /* */ 00437000 * /*****************************************************************/ 00438000 * 02S0345 00439000 *IPFREBFR: 02S0345 00440000 * PROC OPTIONS(RETREG,SAVE(14)); 02S0345 00441000 @EL00001 DS 0H 02S0345 00442000 @EF00001 DS 0H 02S0345 00443000 @ER00001 BR @14 02S0345 00444000 IPFREBFR ST @14,@SA00002 02S0345 00445000 * PRFQCBA=ADDR(AVTBFRTB); /* SET BFR RETURN QCB ADDRESS */ 00446000 LA @14,AVTBFRTB(,RAVT) 02S0346 00447000 STCM @14,7,PRFQCBA(RPRF) 02S0346 00448000 * PRFPRI=PRIBFRTB; /* SET BFR RETURN PRIORITY */ 00449000 MVI PRFPRI(RPRF),X'E0' 02S0347 00450000 * RPARM=RPRF; /* SET BFR AS ELEMENT */ 00451000 LR RPARM,RPRF 02S0348 00452000 * CALL DSPPOSTR; /* TPOST BFR TO BFR RETURN */ 00453000 LA @15,DSPPOSTR(,RDISP) 02S0349 00454000 BALR @14,@15 02S0349 00455000 * END IPFREBFR; 02S0350 00456000 @EL00002 DS 0H 02S0350 00457000 @EF00002 DS 0H 02S0350 00458000 @ER00002 L @14,@SA00002 02S0350 00459000 BR @14 02S0350 00460000 * END IEDUNBND 01S0351 00461000 * 01S0351 00462000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00463000 */*%INCLUDE SYSLIB (TAVTD ) */ 00464000 */*%INCLUDE SYSLIB (TDISPD ) */ 00465000 */*%INCLUDE SYSLIB (TLCBD ) */ 00466000 */*%INCLUDE SYSLIB (TPRFD ) */ 00467000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00468000 */*%INCLUDE SYSLIB (TRECBD ) */ 00469000 */*%INCLUDE SYSLIB (TSCBD ) */ 00470000 */*%INCLUDE SYSLIB (TTHD ) */ 00471000 */*%INCLUDE SYSLIB (TTNTD ) */ 00472000 */*%INCLUDE SYSUT5 (RFY ) */ 00473000 */*%INCLUDE SYSUT5 (DCL ) */ 00474000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 00475000 */*%INCLUDE SYSUT5 (PROCESS ) */ 00476000 */*%INCLUDE SYSUT5 (QGAPST ) */ 00477000 */*%INCLUDE SYSUT5 (BUFAVAIL) */ 00478000 */*%INCLUDE SYSUT5 (SETUPARM) */ 00479000 */*%INCLUDE SYSUT5 (SENDMSG ) */ 00480000 */*%INCLUDE SYSUT5 (IPFREBFR) */ 00481000 * 01S0351 00482000 * ; 01S0351 00483000 @DATA DS 0H 00484000 @SM01464 MVC HDRDATA(0,RPRF),UNBNDMSG(UNBNDPTR) 00485000 @SM01466 MVC UNITDATA(0,RPRF),UNBNDMSG(@10) 00486000 DS 0F 00487000 @SA00002 DS 1F 00488000 DS 0F 00489000 @CF00059 DC F'1' 00490000 @CF01418 DC F'72' 00491000 @CF00979 DC XL4'4C' 00492000 DS 0D 00493000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00494000 @01 EQU 01 00495000 @02 EQU 02 00496000 @03 EQU 03 00497000 @04 EQU 04 00498000 @05 EQU 05 00499000 @06 EQU 06 00500000 @07 EQU 07 00501000 @08 EQU 08 00502000 @09 EQU 09 00503000 @10 EQU 10 00504000 @11 EQU 11 00505000 @12 EQU 12 00506000 @13 EQU 13 00507000 @14 EQU 14 00508000 @15 EQU 15 00509000 UNBNDPTR EQU @02 00510000 LOOPINDX EQU @07 00511000 LENDATTM EQU @08 00512000 UNITDLEN EQU @05 00513000 THPTR EQU @05 00514000 RDISP EQU @11 00515000 LCBXPTR EQU @05 00516000 RPARM EQU @01 00517000 RAVT EQU @13 00518000 RLCB EQU @04 00519000 RPRF EQU @06 00520000 REG00 EQU @00 00521000 REG01 EQU @01 00522000 REG02 EQU @02 00523000 RQCB EQU @07 00524000 RBASE EQU @12 00525000 REG15 EQU @15 00526000 REG03 EQU @03 00527000 REG04 EQU @04 00528000 REG05 EQU @05 00529000 REG06 EQU @06 00530000 REG07 EQU @07 00531000 REG08 EQU @08 00532000 REG09 EQU @09 00533000 REG10 EQU @10 00534000 REG11 EQU @11 00535000 REG12 EQU @12 00536000 REG13 EQU @13 00537000 REG14 EQU @14 00538000 IEDQAVTD EQU 0 00539000 AVTSAVEX EQU IEDQAVTD+216 00540000 AVTDOUBL EQU IEDQAVTD+272 00541000 @NM00003 EQU IEDQAVTD+316 00542000 AVTCKFLG EQU @NM00003 00543000 AVTBASE EQU IEDQAVTD+340 00544000 AVTPKF EQU AVTBASE 00545000 AVTRNMPT EQU IEDQAVTD+352 00546000 AVTUI EQU IEDQAVTD+448 00547000 AVTHG02 EQU IEDQAVTD+456 00548000 AVTDISP EQU IEDQAVTD+480 00549000 AVTHD EQU IEDQAVTD+484 00550000 AVTSCOPT EQU AVTHD 00551000 AVTSAVTP EQU IEDQAVTD+540 00552000 AVTSAVTF EQU AVTSAVTP 00553000 AVTCKPEL EQU IEDQAVTD+580 00554000 AVTCKRMV EQU AVTCKPEL 00555000 AVTCKELF EQU IEDQAVTD+608 00556000 AVTCKBYT EQU IEDQAVTD+619 00557000 AVTHG01 EQU IEDQAVTD+620 00558000 AVTCKLNK EQU IEDQAVTD+624 00559000 AVTCRELE EQU IEDQAVTD+636 00560000 AVTCCELE EQU AVTCRELE 00561000 AVTCLRHI EQU IEDQAVTD+644 00562000 AVTADBUF EQU IEDQAVTD+648 00563000 AVTSYSER EQU IEDQAVTD+656 00564000 AVTMSGS EQU IEDQAVTD+657 00565000 AVTBFREB EQU IEDQAVTD+708 00566000 AVTBFRTB EQU IEDQAVTD+720 00567000 AVTCKPQB EQU IEDQAVTD+732 00568000 AVTCKPTB EQU AVTCKPQB 00569000 AVTCKPEC EQU AVTCKPQB+4 00570000 AVTCKPCC EQU AVTCKPEC 00571000 AVTOPCQB EQU IEDQAVTD+744 00572000 AVTOPCOB EQU AVTOPCQB 00573000 AVTOPCEC EQU AVTOPCQB+4 00574000 AVTOPCCC EQU AVTOPCEC 00575000 AVTOLTQB EQU IEDQAVTD+756 00576000 AVTCWFL1 EQU IEDQAVTD+852 00577000 AVTCWFL2 EQU IEDQAVTD+853 00578000 AVTSUBT EQU IEDQAVTD+876 00579000 AVTIOTR EQU IEDQAVTD+877 00580000 AVTKEYLE EQU IEDQAVTD+960 00581000 AVTBIT1 EQU IEDQAVTD+978 00582000 AVTBIT2 EQU IEDQAVTD+979 00583000 AVTBIT3 EQU IEDQAVTD+980 00584000 AVTSTEAL EQU IEDQAVTD+988 00585000 AVTBIT4 EQU IEDQAVTD+1064 00586000 @NM00083 EQU IEDQAVTD+1160 00587000 IEDQAPTR EQU 0 00588000 IEDNSVTD EQU 0 00589000 SAVTDIAG EQU IEDNSVTD 00590000 SAVTDIAF EQU SAVTDIAG 00591000 SAVTLUSQ EQU IEDNSVTD+88 00592000 SAVTSCLU EQU IEDNSVTD+168 00593000 SAVTTCPU EQU IEDNSVTD+238 00594000 SAVTMHDX EQU IEDNSVTD+268 00595000 SAVTZELM EQU IEDNSVTD+270 00596000 SAVTRDRV EQU IEDNSVTD+284 00597000 SAVTCKQB EQU IEDNSVTD+300 00598000 SAVTCKTB EQU SAVTCKQB 00599000 SAVTCKEC EQU SAVTCKQB+4 00600000 SAVTCKCC EQU SAVTCKEC 00601000 IEDQDISP EQU 0 00602000 DSPDISP EQU 4 00603000 DSPPOSTR EQU 28 00604000 IEDQLCB EQU 0 00605000 LCBRCB EQU IEDQLCB 00606000 LCBQCBA EQU LCBRCB+1 00607000 LCBTSOB EQU IEDQLCB+19 00608000 LCBCHAIN EQU IEDQLCB+20 00609000 LCBSCRNN EQU LCBCHAIN 00610000 LCBINSRC EQU IEDQLCB+21 00611000 LCBLKMDE EQU LCBINSRC+2 00612000 LCBNTXT EQU IEDQLCB+24 00613000 LCBSTAT4 EQU LCBNTXT 00614000 LCBPHASE EQU LCBSTAT4 00615000 LCBSCBDA EQU IEDQLCB+25 00616000 LCBMHA EQU IEDQLCB+29 00617000 LCBFLAG1 EQU IEDQLCB+32 00618000 LCBIOBSN EQU IEDQLCB+33 00619000 LCBSENS0 EQU LCBIOBSN+1 00620000 LCBLOSDT EQU LCBSENS0 00621000 LCBTMOUT EQU LCBSENS0 00622000 LCBFLAG3 EQU LCBIOBSN+7 00623000 LCBCSW EQU LCBIOBSN+8 00624000 LCBCSWST EQU LCBCSW+3 00625000 LCBCSWUS EQU LCBCSWST 00626000 LCBCSWCS EQU LCBCSWST+1 00627000 LCBSIOCC EQU LCBIOBSN+15 00628000 LCBSTART EQU LCBIOBSN+16 00629000 LCBDCBPT EQU IEDQLCB+52 00630000 LCBRCQCB EQU IEDQLCB+56 00631000 LCBTHSQ EQU IEDQLCB+60 00632000 LCBINCAM EQU LCBTHSQ 00633000 LCBERRCT EQU IEDQLCB+62 00634000 LCBLSPCI EQU IEDQLCB+65 00635000 LCBRCBFR EQU LCBLSPCI 00636000 LCBSTATE EQU IEDQLCB+70 00637000 LCBSTAT1 EQU LCBSTATE 00638000 LCBCTLMD EQU LCBSTAT1 00639000 LCBSTAT2 EQU LCBSTATE+1 00640000 LCBSYNC EQU LCBSTAT2 00641000 LCBDIAL EQU LCBSTAT2 00642000 LCBTSTSW EQU IEDQLCB+72 00643000 LCBERB EQU IEDQLCB+76 00644000 LCBERBQB EQU LCBERB+1 00645000 LCBERBPY EQU IEDQLCB+80 00646000 LCBERBST EQU IEDQLCB+84 00647000 LCBPRCPG EQU LCBERBST 00648000 LCBDLNKN EQU LCBERBST 00649000 LCBERBCH EQU IEDQLCB+85 00650000 LCBERBCT EQU IEDQLCB+88 00651000 LCBRBCT1 EQU LCBERBCT 00652000 LCBRBCT2 EQU LCBERBCT+1 00653000 LCBMSGFM EQU IEDQLCB+92 00654000 LCBSCBA EQU IEDQLCB+93 00655000 LCBOBRCH EQU IEDQLCB+96 00656000 LCBINVPT EQU LCBOBRCH+1 00657000 LCBBFRW EQU LCBINVPT 00658000 LCBTPCD EQU IEDQLCB+100 00659000 LCBSTAT5 EQU LCBTPCD 00660000 LCBBFRSV EQU LCBTPCD+1 00661000 LCBSTAT6 EQU LCBTPCD+4 00662000 LCBRSPSV EQU LCBTPCD+8 00663000 LCBSAVSN EQU IEDQLCB+112 00664000 LCBERCCW EQU IEDQLCB+120 00665000 LCBCPA EQU IEDQLCB+144 00666000 IEDQLPTR EQU 0 00667000 IEDQLCBX EQU 0 00668000 LCBXCON EQU IEDQLCBX 00669000 LCBXFLAG EQU LCBXCON 00670000 LCBXDCT EQU LCBXCON+1 00671000 LCBXRADR EQU LCBXCON+4 00672000 IEDQPRF EQU 0 00673000 PRFRCB EQU IEDQPRF 00674000 PRFKEY EQU PRFRCB 00675000 PRFQCBA EQU PRFRCB+1 00676000 PRFPRI EQU PRFRCB+4 00677000 PRFLINK EQU PRFRCB+5 00678000 PRFTIC EQU IEDQPRF+8 00679000 PRFTICC EQU PRFTIC 00680000 PRFNBUNT EQU IEDQPRF+12 00681000 PRFSUNIT EQU PRFNBUNT 00682000 PRFPLQCB EQU PRFSUNIT 00683000 PRFPIUO EQU PRFPLQCB 00684000 PRFLCB EQU IEDQPRF+13 00685000 @NM00148 EQU IEDQPRF+16 00686000 PRFSVFFO EQU @NM00148 00687000 PRFSRCE EQU PRFSVFFO 00688000 PRFSIZE EQU PRFSVFFO+2 00689000 PRFSTAT1 EQU IEDQPRF+20 00690000 PRFEOFN EQU PRFSTAT1 00691000 PRFNLSTN EQU PRFSTAT1 00692000 PRFNHDRN EQU PRFSTAT1 00693000 PRFCORE EQU IEDQPRF+21 00694000 PRFXTRA EQU PRFCORE 00695000 PRFSCAN EQU IEDQPRF+24 00696000 PRFISIZE EQU PRFSCAN+1 00697000 PRFTQBCK EQU IEDQPRF+26 00698000 PRFNTXT EQU PRFTQBCK 00699000 PRFEOBOF EQU PRFNTXT 00700000 PRFCHDR EQU IEDQPRF+32 00701000 PRFHQBCK EQU IEDQPRF+35 00702000 IEDQPPTR EQU 0 00703000 IEDPF1 EQU 0 00704000 PRF1FLG1 EQU IEDPF1+3 00705000 PRF1WD2 EQU IEDPF1+4 00706000 PRF1SEQP EQU PRF1WD2 00707000 PRF1SQID EQU PRF1SEQP 00708000 PRF1TAG1 EQU PRF1SQID 00709000 IEDPF2 EQU 0 00710000 PRF2FLG2 EQU IEDPF2 00711000 PRF2WD2 EQU IEDPF2+4 00712000 IEDQRECB EQU 0 00713000 RECBPRI EQU IEDQRECB+4 00714000 IEDQSCB EQU 0 00715000 SCBSTATE EQU IEDQSCB 00716000 SCBSEQIN EQU SCBSTATE 00717000 SCBDESTQ EQU IEDQSCB+1 00718000 SCBRCVCT EQU IEDQSCB+4 00719000 SCBMBHEN EQU IEDQSCB+5 00720000 SCBBKFCT EQU IEDQSCB+9 00721000 SCBEOBSZ EQU SCBBKFCT+1 00722000 SCBSALEV EQU IEDQSCB+12 00723000 SCBQTYPE EQU SCBSALEV 00724000 SCBERRST EQU IEDQSCB+16 00725000 SCBERR1 EQU SCBERRST 00726000 SCBHDRRN EQU SCBERR1 00727000 SCBORIGN EQU SCBERR1 00728000 SCBNOTRM EQU SCBERR1 00729000 SCBSEQHN EQU SCBERR1 00730000 SCBSEQLN EQU SCBERR1 00731000 SCBCUTFN EQU SCBERR1 00732000 SCBERR2 EQU SCBERRST+1 00733000 SCBABRTN EQU SCBERR2 00734000 SCBERR3 EQU SCBERRST+2 00735000 SCBLOSTN EQU SCBERR3 00736000 SCBTMIDN EQU SCBERR3 00737000 SCBFORMN EQU SCBERR3 00738000 SCBATTN EQU SCBERR3 00739000 SCBXCEPN EQU SCBERR3 00740000 SCBERR4 EQU SCBERRST+3 00741000 SCBTXTTN EQU SCBERR4 00742000 SCBCTLUN EQU SCBERR4 00743000 SCBCHANN EQU SCBERR4 00744000 SCBDLPTR EQU IEDQSCB+22 00745000 SCBEOBAC EQU SCBDLPTR 00746000 SCBCTBAC EQU SCBEOBAC 00747000 SCBBSCFM EQU IEDQSCB+24 00748000 SCBDATEN EQU SCBBSCFM 00749000 SCBITBSZ EQU IEDQSCB+40 00750000 SCBCTBSV EQU SCBITBSZ 00751000 SCBDNSEG EQU IEDQSCB+41 00752000 SCBCLSEG EQU IEDQSCB+45 00753000 SCBITBAC EQU IEDQSCB+48 00754000 SCBCTBFL EQU SCBITBAC 00755000 SCBBLKCT EQU SCBCTBFL 00756000 SCBDCSEG EQU IEDQSCB+49 00757000 SCBSTAT1 EQU IEDQSCB+60 00758000 SCBCORE EQU IEDQSCB+61 00759000 SCBSCAN EQU IEDQSCB+64 00760000 SCBNTXT EQU IEDQSCB+66 00761000 SCBCHDR EQU IEDQSCB+72 00762000 SCBCCSEG EQU IEDQSCB+75 00763000 SCBEND EQU IEDQSCB+84 00764000 IEDTH EQU 0 00765000 TTHBYTE0 EQU IEDTH 00766000 TTHDAF EQU IEDTH+2 00767000 TTHOAF EQU IEDTH+4 00768000 TTHSNF EQU IEDTH+6 00769000 TTHTAG EQU TTHSNF 00770000 TTHTAG1 EQU TTHTAG 00771000 IEDQTNTD EQU 0 00772000 IEDQTCDE EQU IEDQTNTD 00773000 TNTENLEN EQU IEDQTNTD+40 00774000 TNTLEN EQU IEDQTNTD+44 00775000 IEDQTDCE EQU IEDQTNTD+46 00776000 TNTFIRST EQU 0 00777000 IEDTNTA EQU 0 00778000 TNTTRMAD EQU IEDTNTA 00779000 IEDQGA02 EQU 0 00780000 IEDQUI EQU 0 00781000 IEDQAV EQU 0 00782000 UNBNDXIT EQU 0 00783000 UNBPARMS EQU 0 00784000 UNBMSLEN EQU UNBPARMS+8 00785000 UNBNDMSG EQU UNBPARMS+9 00786000 MHVCONS EQU 0 00787000 MHVQA1 EQU MHVCONS+8 00788000 MHVQAV EQU MHVCONS+16 00789000 DSPBYPAS EQU 20 00790000 DSPCHAIN EQU 12 00791000 DSPLIFO EQU 56 00792000 DSPLIFOR EQU 60 00793000 DSPLIST EQU 8 00794000 DSPPOST EQU 24 00795000 DSPPRIO EQU 48 00796000 DSPPRIOR EQU 52 00797000 DSPTRACE EQU 64 00798000 DSPTSTQ EQU 32 00799000 DSPTSTQR EQU 36 00800000 DSPUNAV EQU 40 00801000 DSPUNAVR EQU 44 00802000 DSPWAIT EQU 16 00803000 IEDQTNT EQU 0 00804000 TNTCODE EQU 0 00805000 TNTDCODE EQU 0 00806000 LCBRSPIN EQU LCBIOBSN 00807000 LCBLUSNS EQU LCBRSPIN+5 00808000 LCBSCPRS EQU LCBRSPIN+9 00809000 LCBCSWU1 EQU LCBSCPRS+2 00810000 LCBRSPFG EQU LCBRSPIN+15 00811000 LCBCOREQ EQU LCBTPCD 00812000 @NM00128 EQU LCBCPA+40 00813000 LCBQNXMN EQU @NM00128 00814000 @NM00131 EQU LCBERCCW 00815000 LCBCANCL EQU LCBSAVSN 00816000 LCBCANFG EQU LCBCANCL 00817000 PRFSHDR EQU IEDQPRF+42 00818000 IEDQSPTR EQU LCBSCBA 00819000 IEDQNPTR EQU AVTRNMPT 00820000 HDRDATA EQU PRFSHDR 00821000 UNITDATA EQU PRFNBUNT 00822000 QA1PARMS EQU AVTDOUBL 00823000 QA1INDEX EQU QA1PARMS 00824000 QA1GARBG EQU QA1PARMS+1 00825000 QA1NMLEN EQU QA1PARMS+3 00826000 QA1NADDR EQU QA1PARMS+4 00827000 SCBRGSAV EQU SCBEND 00828000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00829000 @NM00136 EQU LCBCANCL+3 00830000 LCBCANTH EQU LCBCANCL+1 00831000 @NM00135 EQU LCBCANFG 00832000 LCBCANCD EQU LCBCANFG 00833000 @NM00134 EQU LCBCANFG 00834000 LCBCANEB EQU LCBCANFG 00835000 LCBCANXT EQU LCBCANFG 00836000 LCBUNADD EQU @NM00131+21 00837000 LCBUASZE EQU @NM00131+20 00838000 LCBDSTEA EQU @NM00131+16 00839000 @NM00133 EQU @NM00131+4 00840000 LCBSTSAV EQU @NM00131+1 00841000 @NM00132 EQU @NM00131 00842000 @NM00130 EQU @NM00128+4 00843000 LCBNCPPT EQU @NM00128+1 00844000 @NM00129 EQU LCBQNXMN 00845000 LCBNX509 EQU LCBQNXMN 00846000 LCBNX162 EQU LCBQNXMN 00847000 LCBNX142 EQU LCBQNXMN 00848000 LCBNX064 EQU LCBQNXMN 00849000 LCBWRSCH EQU LCBCOREQ+8 00850000 LCBCQLNK EQU LCBCOREQ+4 00851000 LCBCQELE EQU LCBCOREQ 00852000 LCBPAKCH EQU LCBRSPIN+16 00853000 @NM00127 EQU LCBRSPFG 00854000 LCBRSRH EQU LCBRSPFG 00855000 LCBEXPI EQU LCBRSPFG 00856000 @NM00126 EQU LCBRSPIN+12 00857000 LCBUSUE1 EQU LCBCSWU1 00858000 @NM00125 EQU LCBCSWU1 00859000 @NM00124 EQU LCBSCPRS+1 00860000 LCBDFCMD EQU LCBSCPRS 00861000 LCBUSER EQU LCBLUSNS+2 00862000 LCBSMIN EQU LCBLUSNS+1 00863000 LCBSMAJ EQU LCBLUSNS 00864000 LCBRHSV EQU LCBRSPIN+2 00865000 LCBSNS0 EQU LCBRSPIN+1 00866000 @NM00123 EQU LCBRSPIN 00867000 MHVQAI EQU MHVCONS+12 00868000 MHVQA4 EQU MHVCONS+4 00869000 MHVQBD EQU MHVCONS 00870000 UNBDNAME EQU UNBPARMS 00871000 TNTMIDEN EQU IEDQTNTD+41 00872000 TNTSRCHX EQU IEDQTNTD+38 00873000 TTHDCF EQU IEDTH+8 00874000 TTHTAG2 EQU TTHTAG+1 00875000 @NM00159 EQU TTHTAG1 00876000 TTHTAGS EQU TTHTAG1 00877000 TTHBYTE1 EQU IEDTH+1 00878000 TTHEFI EQU TTHBYTE0 00879000 @NM00158 EQU TTHBYTE0 00880000 TTHEBIU EQU TTHBYTE0 00881000 TTHBBIU EQU TTHBYTE0 00882000 TTHFTYPE EQU TTHBYTE0 00883000 SCBTRANS EQU IEDQSCB+81 00884000 SCBUNTCT EQU IEDQSCB+80 00885000 SCBEOB EQU IEDQSCB+78 00886000 SCBNXCPB EQU SCBCCSEG 00887000 SCBNHDR EQU SCBCHDR 00888000 SCBCRCD EQU IEDQSCB+69 00889000 SCBTQBCK EQU SCBNTXT 00890000 SCBOSEQ EQU SCBSCAN 00891000 SCBXTRA EQU SCBCORE 00892000 SCBNOPST EQU SCBSTAT1 00893000 SCBNIDLE EQU SCBSTAT1 00894000 SCBCEND EQU SCBSTAT1 00895000 SCBCBGN EQU SCBSTAT1 00896000 SCBSIZE EQU IEDQSCB+58 00897000 SCBSRCE EQU IEDQSCB+56 00898000 SCBDEOB EQU IEDQSCB+52 00899000 SCBFEFO EQU SCBDCSEG 00900000 SCBCTBND EQU SCBBLKCT 00901000 SCBSCHDR EQU SCBCLSEG 00902000 SCBHBFNO EQU IEDQSCB+44 00903000 SCBSCSEG EQU SCBDNSEG 00904000 SCBBCTR EQU SCBCTBSV 00905000 SCBCCHDR EQU IEDQSCB+37 00906000 SCBDESTL EQU IEDQSCB+36 00907000 SCBDCHDR EQU IEDQSCB+33 00908000 SCBCPBNO EQU IEDQSCB+32 00909000 SCBMBSSA EQU IEDQSCB+25 00910000 SCBMLMTN EQU SCBBSCFM 00911000 SCBNOEOT EQU SCBBSCFM 00912000 @NM00157 EQU SCBBSCFM 00913000 SCBNPDTR EQU SCBDATEN 00914000 SCBCNTEN EQU SCBBSCFM 00915000 SCBRCVTX EQU SCBBSCFM 00916000 SCBNONTR EQU SCBBSCFM 00917000 SCBTRNSP EQU SCBBSCFM 00918000 SCBENDCR EQU SCBCTBAC+1 00919000 SCBCRLEN EQU SCBCTBAC 00920000 SCBMRFSD EQU IEDQSCB+20 00921000 SCBUNDFN EQU SCBERR4 00922000 SCBSTERN EQU SCBCHANN 00923000 SCBCPMEN EQU SCBCTLUN 00924000 @NM00156 EQU SCBERR4 00925000 SCBTRMLN EQU SCBERR4 00926000 SCBCONNN EQU SCBERR4 00927000 SCBAPERR EQU SCBTXTTN 00928000 SCBSLCTN EQU SCBERR4 00929000 SCBPERRN EQU SCBXCEPN 00930000 SCBTHRSN EQU SCBATTN 00931000 SCBFIERN EQU SCBFORMN 00932000 SCBUSERN EQU SCBERR3 00933000 SCBSATTN EQU SCBERR3 00934000 SCBTMINN EQU SCBERR3 00935000 SCBXPD EQU SCBTMIDN 00936000 SCBXPI EQU SCBLOSTN 00937000 SCBSOHE EQU SCBERR2 00938000 SCBFRWDN EQU SCBERR2 00939000 SCBRRJN EQU SCBABRTN 00940000 SCBOLTR EQU SCBERR2 00941000 SCBALN EQU SCBERR2 00942000 SCBCODER EQU SCBERR2 00943000 SCBCRMAX EQU SCBERR2 00944000 SCBCRMIN EQU SCBERR2 00945000 SCBRVISL EQU SCBCUTFN 00946000 SCBNOBFN EQU SCBERR1 00947000 @NM00155 EQU SCBERR1 00948000 SCBNOVAC EQU SCBSEQLN 00949000 SCBNOTSO EQU SCBSEQHN 00950000 SCBRVITX EQU SCBNOTRM 00951000 SCBHANG EQU SCBORIGN 00952000 SCBNOLOG EQU SCBHDRRN 00953000 SCBMRFPL EQU IEDQSCB+13 00954000 SCBBFMM EQU SCBQTYPE 00955000 SCBBBFTM EQU SCBQTYPE 00956000 SCBNOFF EQU SCBQTYPE 00957000 SCBCONC EQU SCBQTYPE 00958000 SCBNREUS EQU SCBQTYPE 00959000 SCBREUS EQU SCBQTYPE 00960000 SCBCOREQ EQU SCBQTYPE 00961000 SCBNORCL EQU SCBQTYPE 00962000 SCBCTBSZ EQU SCBEOBSZ 00963000 @NM00154 EQU SCBBKFCT 00964000 SCBPRI EQU IEDQSCB+8 00965000 SCBMACR EQU SCBMBHEN 00966000 SCBSNDCT EQU SCBRCVCT 00967000 SCBCODE EQU SCBSTATE 00968000 SCBPRER EQU SCBSTATE 00969000 SCBCKPT EQU SCBSTATE 00970000 SCBMSGLN EQU SCBSTATE 00971000 SCBERSDS EQU SCBSTATE 00972000 SCBLCK1N EQU SCBSTATE 00973000 SCBMGFMN EQU SCBSEQIN 00974000 SCBTRANP EQU SCBSTATE 00975000 RECBLINK EQU IEDQRECB+5 00976000 RECBQCBA EQU IEDQRECB+1 00977000 RECBKEY EQU IEDQRECB 00978000 PRF2SEQP EQU PRF2WD2 00979000 @NM00153 EQU IEDPF2+1 00980000 @NM00152 EQU PRF2FLG2 00981000 PRF2SMI EQU PRF2FLG2 00982000 PRF2FORM EQU PRF2FLG2 00983000 PRF2TNTI EQU PRF2FLG2 00984000 PRF1RULN EQU PRF1SEQP+2 00985000 PRF1TAG2 EQU PRF1SQID+1 00986000 @NM00151 EQU PRF1TAG1 00987000 PRF1TAGS EQU PRF1TAG1 00988000 @NM00150 EQU PRF1FLG1 00989000 PRF1LOGD EQU PRF1FLG1 00990000 PRF1USS EQU PRF1FLG1 00991000 PRF1FORM EQU PRF1FLG1 00992000 PRF1EXPI EQU PRF1FLG1 00993000 PRF1FIDI EQU PRF1FLG1 00994000 PRF1RH EQU IEDPF1 00995000 PRFDEST EQU IEDQPRF+40 00996000 PRFISEQ EQU IEDQPRF+38 00997000 PRFSTXT EQU PRFHQBCK 00998000 PRFNHDR EQU PRFCHDR 00999000 PRFCRCD EQU IEDQPRF+29 01000000 PRFSVSEQ EQU PRFNTXT+1 01001000 PRFSVPRI EQU PRFEOBOF 01002000 @NM00149 EQU PRFSCAN 01003000 PRFEOB EQU PRFXTRA+1 01004000 PRFSTSO EQU PRFXTRA 01005000 PRFLOCK EQU PRFEOFN 01006000 PRFDUPLN EQU PRFSTAT1 01007000 PRFTSMSG EQU PRFSTAT1 01008000 PRFITCPN EQU PRFSTAT1 01009000 PRFERMGN EQU PRFSTAT1 01010000 PRFCNCLN EQU PRFSTAT1 01011000 PRFSVFLG EQU @NM00148+3 01012000 PRFTI0 EQU PRFTIC+1 01013000 @NM00147 EQU PRFTICC 01014000 @NM00146 EQU PRFTICC 01015000 @NM00145 EQU PRFTICC 01016000 PRFTICON EQU PRFTICC 01017000 @NM00144 EQU PRFTICC 01018000 @NM00143 EQU PRFTICC 01019000 PRFBFMM EQU PRFTICC 01020000 PRFEOMSG EQU PRFTICC 01021000 PRFCOUNT EQU PRFLINK+1 01022000 @NM00142 EQU PRFLINK 01023000 PRFFLAGS EQU PRFPRI 01024000 PRFIOADR EQU PRFQCBA 01025000 PRFOPCDE EQU PRFKEY 01026000 LCBERADR EQU LCBXRADR+1 01027000 LCBPCIRC EQU LCBXRADR 01028000 LCBDCT3 EQU LCBXDCT+2 01029000 LCBDCT2 EQU LCBXDCT+1 01030000 LCBDCT1 EQU LCBXDCT 01031000 @NM00141 EQU LCBXFLAG 01032000 LCBERPND EQU LCBXFLAG 01033000 LCBSRCPF EQU LCBXFLAG 01034000 LCBGPCTV EQU LCBXFLAG 01035000 @NM00140 EQU LCBXFLAG 01036000 @NM00139 EQU LCBXFLAG 01037000 @NM00138 EQU LCBXFLAG 01038000 @NM00137 EQU LCBXFLAG 01039000 LCBCCW10 EQU LCBCPA+72 01040000 LCBCCW9 EQU LCBCPA+64 01041000 LCBCCW8 EQU LCBCPA+56 01042000 LCBCCW7 EQU LCBCPA+48 01043000 LCBCCW6 EQU LCBCPA+40 01044000 LCBCCW5 EQU LCBCPA+32 01045000 LCBCCW4 EQU LCBCPA+24 01046000 LCBCCW3 EQU LCBCPA+16 01047000 LCBCCW2 EQU LCBCPA+8 01048000 LCBCCW1 EQU LCBCPA 01049000 @NM00122 EQU LCBERCCW 01050000 LCBCSWSV EQU LCBSAVSN+1 01051000 LCBSNSV EQU LCBSAVSN 01052000 LCBBFSNS EQU LCBRSPSV 01053000 LCBWAITC EQU LCBTPCD+5 01054000 LCBINPAK EQU LCBSTAT6 01055000 LCBMHBID EQU LCBSTAT6 01056000 LCBRTRRO EQU LCBSTAT6 01057000 LCBHDRPD EQU LCBSTAT6 01058000 LCBCHN EQU LCBSTAT6 01059000 @NM00121 EQU LCBSTAT5 01060000 LCBLUS EQU LCBSTAT5 01061000 LCBLUNIT EQU LCBSTAT5 01062000 LCBPERM EQU LCBSTAT5 01063000 LCBNXCMD EQU LCBBFRW 01064000 LCBERMSK EQU LCBOBRCH 01065000 LCBOLT EQU LCBMSGFM 01066000 LCBEOT EQU LCBMSGFM 01067000 LCBENQ EQU LCBMSGFM 01068000 LCBTTD EQU LCBMSGFM 01069000 LCBRSTRT EQU LCBMSGFM 01070000 LCBVSTRT EQU LCBMSGFM 01071000 LCBACKI EQU LCBMSGFM 01072000 LCBNAK EQU LCBMSGFM 01073000 LCBTTCIN EQU IEDQLCB+90 01074000 @NM00120 EQU LCBRBCT2 01075000 LCBDCNT EQU LCBRBCT2 01076000 LCBCOMPL EQU LCBDLNKN 01077000 LCBERROR EQU LCBERBST 01078000 @NM00119 EQU LCBERBST 01079000 LCBINQ EQU LCBERBST 01080000 LCBRDERR EQU LCBERBST 01081000 LCBEOMSG EQU LCBERBST 01082000 LCBMSG EQU LCBERBST 01083000 LCBERBLK EQU IEDQLCB+81 01084000 LCBERBKY EQU LCBERB 01085000 LCBRECAD EQU IEDQLCB+73 01086000 @NM00118 EQU LCBTSTSW 01087000 @NM00117 EQU LCBTSTSW 01088000 @NM00116 EQU LCBTSTSW 01089000 @NM00115 EQU LCBTSTSW 01090000 @NM00114 EQU LCBTSTSW 01091000 @NM00113 EQU LCBTSTSW 01092000 @NM00112 EQU LCBTSTSW 01093000 LCBCONCT EQU LCBTSTSW 01094000 LCBRESP EQU LCBSTAT2 01095000 LCBBFRAV EQU LCBDIAL 01096000 LCBATTN EQU LCBSYNC 01097000 LCBNEGRP EQU LCBSTAT2 01098000 LCBSNDPR EQU LCBSTAT2 01099000 LCBBEOTN EQU LCBSTAT2 01100000 LCBMSGNN EQU LCBSTAT2 01101000 LCBTRACE EQU LCBSTAT2 01102000 LCBSENDN EQU LCBSTAT1 01103000 LCBRECVN EQU LCBSTAT1 01104000 LCBFREEN EQU LCBSTAT1 01105000 LCBCONT EQU LCBSTAT1 01106000 LCBINITN EQU LCBSTAT1 01107000 LCBOCNI EQU LCBSTAT1 01108000 LCBCVRSP EQU LCBCTLMD 01109000 LCBRCLLN EQU LCBSTAT1 01110000 LCBRECOF EQU IEDQLCB+68 01111000 LCBRDBFR EQU LCBRCBFR 01112000 LCBUCBX EQU IEDQLCB+64 01113000 LCBTTBIN EQU LCBERRCT 01114000 @NM00111 EQU LCBINCAM 01115000 LCBGETMN EQU LCBINCAM 01116000 LCBRESTR EQU LCBRCQCB 01117000 LCBPCILK EQU LCBDCBPT 01118000 LCBAP4OL EQU LCBSIOCC 01119000 LCBAP3OL EQU LCBSIOCC 01120000 LCBAP2OL EQU LCBSIOCC 01121000 LCBAP1OL EQU LCBSIOCC 01122000 LCBSIOC2 EQU LCBSIOCC 01123000 LCBSIOC1 EQU LCBSIOCC 01124000 @NM00110 EQU LCBSIOCC 01125000 LCBCSWRC EQU LCBCSW+5 01126000 LCBCSCHC EQU LCBCSWCS 01127000 LCBCSICC EQU LCBCSWCS 01128000 LCBCSCCC EQU LCBCSWCS 01129000 LCBCSCDC EQU LCBCSWCS 01130000 LCBCSPTC EQU LCBCSWCS 01131000 LCBCSPGC EQU LCBCSWCS 01132000 LCBCSIL EQU LCBCSWCS 01133000 LCBCSPCI EQU LCBCSWCS 01134000 LCBUSUE EQU LCBCSWUS 01135000 LCBUSUC EQU LCBCSWUS 01136000 LCBUSDE EQU LCBCSWUS 01137000 LCBUSCE EQU LCBCSWUS 01138000 LCBUSBSY EQU LCBCSWUS 01139000 LCBUSCUE EQU LCBCSWUS 01140000 LCBUSSM EQU LCBCSWUS 01141000 LCBUSAT EQU LCBCSWUS 01142000 LCBCSWCA EQU LCBCSW 01143000 LCBOBR EQU LCBFLAG3 01144000 LCBOBRRD EQU LCBFLAG3 01145000 LCBIOMSG EQU LCBFLAG3 01146000 LCBSOHC EQU LCBFLAG3 01147000 LCBRLAD EQU LCBFLAG3 01148000 LCBSOHR EQU LCBFLAG3 01149000 @NM00109 EQU LCBFLAG3 01150000 LCBECBPT EQU LCBIOBSN+4 01151000 LCBECBCC EQU LCBIOBSN+3 01152000 LCBSENS1 EQU LCBIOBSN+2 01153000 LCBABORT EQU LCBTMOUT 01154000 LCBNOTIN EQU LCBLOSDT 01155000 LCBOVRUN EQU LCBSENS0 01156000 LCBDATCK EQU LCBSENS0 01157000 LCBEQUCK EQU LCBSENS0 01158000 LCBBUSCK EQU LCBSENS0 01159000 LCBINTRQ EQU LCBSENS0 01160000 LCBCMDRJ EQU LCBSENS0 01161000 LCBFLAG2 EQU LCBIOBSN 01162000 @NM00108 EQU LCBFLAG1 01163000 LCBUNREL EQU LCBFLAG1 01164000 LCBEXCPN EQU LCBFLAG1 01165000 @NM00107 EQU LCBFLAG1 01166000 LCBERPIN EQU LCBFLAG1 01167000 @NM00106 EQU LCBFLAG1 01168000 LCBFSBFR EQU LCBMHA 01169000 LCBISZE EQU IEDQLCB+28 01170000 LCBLNENT EQU LCBSCBDA+1 01171000 @NM00105 EQU LCBSCBDA 01172000 LCBCPGMH EQU LCBSTAT4 01173000 LCBREAL EQU LCBPHASE 01174000 LCBINOP EQU LCBSTAT4 01175000 LCBACTRQ EQU LCBSTAT4 01176000 LCBIPLRQ EQU LCBSTAT4 01177000 LCBDACRQ EQU LCBSTAT4 01178000 LCBDMPRQ EQU LCBSTAT4 01179000 @NM00104 EQU LCBLKMDE 01180000 LCBLOCKI EQU LCBLKMDE 01181000 LCBLOCKR EQU LCBLKMDE 01182000 LCBHMFLG EQU LCBLKMDE 01183000 LCBBDFLG EQU LCBLKMDE 01184000 @NM00103 EQU LCBINSRC 01185000 LCBABRTN EQU LCBCHAIN 01186000 LCBTETEN EQU LCBCHAIN 01187000 LCBBFRSZ EQU LCBCHAIN 01188000 LCBUREQN EQU LCBCHAIN 01189000 LCBNORTY EQU LCBCHAIN 01190000 LCBERMSG EQU LCBCHAIN 01191000 LCBEXCP EQU LCBCHAIN 01192000 LCBINVRQ EQU LCBSCRNN 01193000 LCB2741N EQU LCBTSOB 01194000 LCBINHBN EQU LCBTSOB 01195000 LCBCIRCD EQU LCBTSOB 01196000 LCBPREP EQU LCBTSOB 01197000 LCBSOPL EQU LCBTSOB 01198000 LCBSATRD EQU LCBTSOB 01199000 LCBTSBUF EQU LCBTSOB 01200000 LCBWRBRK EQU LCBTSOB 01201000 LCBTDL EQU IEDQLCB+18 01202000 LCBEOLTD EQU IEDQLCB+16 01203000 LCBRSLNK EQU IEDQLCB+13 01204000 LCBRSPRI EQU IEDQLCB+12 01205000 LCBSTCBA EQU IEDQLCB+9 01206000 LCBRSKEY EQU IEDQLCB+8 01207000 LCBLINK EQU LCBRCB+5 01208000 LCBPRI EQU LCBRCB+4 01209000 LCBKEY EQU LCBRCB 01210000 SAVTBITN EQU IEDNSVTD+312 01211000 @NM00102 EQU SAVTCKQB+8 01212000 @NM00101 EQU SAVTCKEC+1 01213000 @NM00100 EQU SAVTCKCC 01214000 SAVTCKPO EQU SAVTCKCC 01215000 SAVTCKWA EQU SAVTCKCC 01216000 SAVTCKCH EQU SAVTCKTB+1 01217000 SAVTCKVT EQU SAVTCKTB 01218000 @NM00099 EQU IEDNSVTD+297 01219000 SAVTRDFG EQU SAVTRDRV+12 01220000 @NM00098 EQU SAVTRDRV+5 01221000 SAVTRDPY EQU SAVTRDRV+4 01222000 SAVTRDQB EQU SAVTRDRV+1 01223000 SAVTRDKY EQU SAVTRDRV 01224000 SAVTNID EQU IEDNSVTD+280 01225000 SAVTDVAS EQU IEDNSVTD+276 01226000 SAVTPLSZ EQU IEDNSVTD+274 01227000 @NM00097 EQU IEDNSVTD+273 01228000 SAVTSUBL EQU IEDNSVTD+272 01229000 @NM00096 EQU SAVTZELM+1 01230000 SAVTSUBM EQU SAVTZELM 01231000 SAVTNAT1 EQU IEDNSVTD+266 01232000 SAVTSH20 EQU IEDNSVTD+264 01233000 SAVTLCBS EQU IEDNSVTD+260 01234000 SAVTRNMP EQU IEDNSVTD+256 01235000 SAVTTNTX EQU IEDNSVTD+252 01236000 SAVTNAX EQU IEDNSVTD+248 01237000 SAVTSUBV EQU IEDNSVTD+247 01238000 SAVTSUBA EQU IEDNSVTD+246 01239000 SAVTSIBC EQU IEDNSVTD+244 01240000 SAVTBSM EQU IEDNSVTD+240 01241000 SAVTSCPT EQU SAVTTCPU 01242000 SAVTRQTG EQU IEDNSVTD+236 01243000 SAVTRQCH EQU IEDNSVTD+232 01244000 SAVTMAND EQU IEDNSVTD+228 01245000 SAVTSPLN EQU IEDNSVTD+224 01246000 SAVTNADL EQU IEDNSVTD+222 01247000 SAVTNATL EQU IEDNSVTD+220 01248000 SAVTMHTB EQU IEDNSVTD+216 01249000 SAVTSSMH EQU IEDNSVTD+212 01250000 SAVTQRS EQU IEDNSVTD+208 01251000 SAVTRQIN EQU IEDNSVTD+204 01252000 SAVTDFCO EQU IEDNSVTD+200 01253000 SAVTSAO EQU IEDNSVTD+196 01254000 SAVTSARI EQU IEDNSVTD+192 01255000 SAVTSAC EQU IEDNSVTD+188 01256000 SAVTSAI EQU IEDNSVTD+184 01257000 SAVTCSCI EQU IEDNSVTD+180 01258000 SAVTSSRP EQU IEDNSVTD+176 01259000 SAVTSSRQ EQU IEDNSVTD+172 01260000 SAVTXTRQ EQU IEDNSVTD+164 01261000 SAVTMVBF EQU IEDNSVTD+160 01262000 @NM00095 EQU IEDNSVTD+148 01263000 SAVTIPCQ EQU IEDNSVTD+144 01264000 @NM00094 EQU IEDNSVTD+136 01265000 SAVTXFMI EQU IEDNSVTD+132 01266000 @NM00093 EQU IEDNSVTD+124 01267000 SAVTXFMO EQU IEDNSVTD+120 01268000 @NM00092 EQU IEDNSVTD+116 01269000 SAVTSSSR EQU IEDNSVTD+112 01270000 SAVTSCPQ EQU IEDNSVTD+108 01271000 SAVTSLCB EQU IEDNSVTD+104 01272000 SAVTLUSR EQU IEDNSVTD+100 01273000 @NM00091 EQU SAVTLUSQ+8 01274000 SAVTLUSP EQU SAVTLUSQ+4 01275000 SAVTLUSB EQU SAVTLUSQ 01276000 @NM00090 EQU IEDNSVTD+84 01277000 SAVTSAT EQU IEDNSVTD+80 01278000 SAVTNAT EQU IEDNSVTD+76 01279000 SAVTCLUP EQU IEDNSVTD+72 01280000 SAVTPIUT EQU IEDNSVTD+68 01281000 SAVTRNTA EQU IEDNSVTD+64 01282000 SAVTDNIR EQU IEDNSVTD+60 01283000 SAVTCNIR EQU IEDNSVTD+56 01284000 SAVTFLDH EQU IEDNSVTD+52 01285000 SAVTSRTN EQU IEDNSVTD+48 01286000 SAVTSREQ EQU IEDNSVTD+44 01287000 SAVTFAIL EQU IEDNSVTD+42 01288000 SAVTSUSE EQU IEDNSVTD+40 01289000 SAVTSIB EQU IEDNSVTD+36 01290000 SAVTPRTN EQU IEDNSVTD+32 01291000 @NM00089 EQU IEDNSVTD+28 01292000 SAVTWH20 EQU IEDNSVTD+26 01293000 SAVTPWT EQU IEDNSVTD+24 01294000 SAVTPRTQ EQU IEDNSVTD+20 01295000 SAVTPREQ EQU IEDNSVTD+16 01296000 SAVTPH20 EQU IEDNSVTD+14 01297000 SAVTPUSE EQU IEDNSVTD+12 01298000 SAVTPLCB EQU IEDNSVTD+8 01299000 SAVTPOOL EQU IEDNSVTD+4 01300000 SAVTPRMT EQU SAVTDIAF 01301000 SAVTVIRT EQU SAVTDIAF 01302000 AVTCPBNO EQU IEDQAVTD+1172 01303000 AVTHRESS EQU IEDQAVTD+1171 01304000 @NM00088 EQU IEDQAVTD+1170 01305000 @NM00087 EQU IEDQAVTD+1169 01306000 @NM00086 EQU IEDQAVTD+1168 01307000 @NM00085 EQU IEDQAVTD+1165 01308000 @NM00084 EQU IEDQAVTD+1164 01309000 AVTHRESE EQU @NM00083 01310000 AVTRADDR EQU IEDQAVTD+1156 01311000 AVTNADDR EQU IEDQAVTD+1152 01312000 AVTHRESN EQU IEDQAVTD+1148 01313000 AVTVOLRN EQU IEDQAVTD+1144 01314000 AVTTOTNN EQU IEDQAVTD+1140 01315000 AVTTRCYN EQU IEDQAVTD+1136 01316000 AVTRCTRN EQU IEDQAVTD+1132 01317000 AVTNOVON EQU IEDQAVTD+1128 01318000 AVTADEBN EQU IEDQAVTD+1124 01319000 AVTVOLRR EQU IEDQAVTD+1120 01320000 AVTTOTNR EQU IEDQAVTD+1116 01321000 AVTTRCYR EQU IEDQAVTD+1112 01322000 AVTRCTRR EQU IEDQAVTD+1108 01323000 AVTNOVOR EQU IEDQAVTD+1104 01324000 AVTADEBR EQU IEDQAVTD+1100 01325000 AVTLODPT EQU IEDQAVTD+1096 01326000 AVTIOBN EQU IEDQAVTD+1092 01327000 AVTIOBR EQU IEDQAVTD+1088 01328000 AVTCPBPT EQU IEDQAVTD+1084 01329000 AVTFCPB EQU IEDQAVTD+1080 01330000 @NM00082 EQU IEDQAVTD+1076 01331000 AVTINCPQ EQU IEDQAVTD+1072 01332000 @NM00081 EQU IEDQAVTD+1068 01333000 @NM00080 EQU IEDQAVTD+1065 01334000 @NM00079 EQU AVTBIT4 01335000 @NM00078 EQU AVTBIT4 01336000 @NM00077 EQU AVTBIT4 01337000 @NM00076 EQU AVTBIT4 01338000 @NM00075 EQU AVTBIT4 01339000 @NM00074 EQU AVTBIT4 01340000 @NM00073 EQU AVTBIT4 01341000 AVTRUFTN EQU AVTBIT4 01342000 @NM00072 EQU IEDQAVTD+1060 01343000 AVTNOBFQ EQU IEDQAVTD+1056 01344000 @NM00071 EQU IEDQAVTD+1052 01345000 AVTDKENQ EQU IEDQAVTD+1048 01346000 @NM00070 EQU IEDQAVTD+1044 01347000 AVTDKAPQ EQU IEDQAVTD+1040 01348000 AVTCOPY EQU IEDQAVTD+1036 01349000 AVTIA EQU IEDQAVTD+1032 01350000 AVTFL EQU IEDQAVTD+1028 01351000 @NM00069 EQU IEDQAVTD+1024 01352000 AVTNCPBQ EQU IEDQAVTD+1020 01353000 AVTTOTNC EQU IEDQAVTD+1016 01354000 AVTCMAX EQU IEDQAVTD+1012 01355000 AVTCMIN EQU IEDQAVTD+1008 01356000 AVTHM02 EQU IEDQAVTD+1004 01357000 AVTOPCIN EQU IEDQAVTD+1002 01358000 AVTDCTLN EQU IEDQAVTD+1000 01359000 AVTOPMSK EQU IEDQAVTD+996 01360000 AVTDDFT EQU IEDQAVTD+992 01361000 AVTOPTN EQU IEDQAVTD+984 01362000 AVTDSKCT EQU IEDQAVTD+982 01363000 AVTCKRST EQU IEDQAVTD+981 01364000 AVTSTAN EQU AVTBIT3 01365000 AVTSTACN EQU AVTBIT3 01366000 AVTSTAIN EQU AVTBIT3 01367000 AVTSTAYN EQU AVTBIT3 01368000 AVTOLTBN EQU AVTBIT3 01369000 AVTTSAB EQU AVTBIT3 01370000 AVTRFULN EQU AVTBIT3 01371000 AVTRECVN EQU AVTBIT3 01372000 @NM00068 EQU AVTBIT2 01373000 @NM00067 EQU AVTBIT2 01374000 AVTOPEIN EQU AVTBIT2 01375000 AVTSTRTN EQU AVTBIT2 01376000 AVTTOPOL EQU AVTBIT2 01377000 AVTCOPYN EQU AVTBIT2 01378000 AVTREUSN EQU AVTBIT2 01379000 AVTEXTSC EQU AVTBIT2 01380000 AVTDISKN EQU AVTBIT1 01381000 AVTQUCKN EQU AVTBIT1 01382000 AVTCLOSN EQU AVTBIT1 01383000 AVTREADN EQU AVTBIT1 01384000 AVTDLAYN EQU AVTBIT1 01385000 AVTAQTAN EQU AVTBIT1 01386000 AVTTSON EQU AVTBIT1 01387000 AVTAPLKN EQU AVTBIT1 01388000 AVTDUMBR EQU IEDQAVTD+976 01389000 AVTDLQX EQU IEDQAVTD+974 01390000 AVTINTLV EQU IEDQAVTD+972 01391000 AVTSMCNT EQU IEDQAVTD+970 01392000 AVTAVFCT EQU IEDQAVTD+968 01393000 AVTOPCON EQU IEDQAVTD+966 01394000 AVTOPCNT EQU IEDQAVTD+964 01395000 AVTLNCNT EQU IEDQAVTD+962 01396000 AVTHA16 EQU IEDQAVTD+958 01397000 AVTHA7 EQU IEDQAVTD+956 01398000 AVTHA4 EQU IEDQAVTD+954 01399000 AVTHA3 EQU IEDQAVTD+952 01400000 AVTHA2 EQU IEDQAVTD+950 01401000 AVTGETMS EQU IEDQAVTD+949 01402000 @NM00066 EQU IEDQAVTD+948 01403000 AVTGETMD EQU IEDQAVTD+944 01404000 AVTGETMN EQU IEDQAVTD+940 01405000 AVTCWTOT EQU IEDQAVTD+936 01406000 AVTCWINT EQU IEDQAVTD+884 01407000 AVTDTRAP EQU IEDQAVTD+880 01408000 @NM00065 EQU IEDQAVTD+878 01409000 @NM00064 EQU AVTIOTR 01410000 AVTIOTRH EQU AVTIOTR 01411000 AVTIOTRE EQU AVTIOTR 01412000 @NM00063 EQU AVTSUBT 01413000 AVTSUBPT EQU AVTSUBT 01414000 AVTSUBON EQU AVTSUBT 01415000 AVTAFE30 EQU IEDQAVTD+872 01416000 AVTAFE20 EQU IEDQAVTD+868 01417000 AVTAFE10 EQU IEDQAVTD+864 01418000 AVTCWEC2 EQU IEDQAVTD+860 01419000 AVTCWPM2 EQU IEDQAVTD+856 01420000 AVTCWTS2 EQU IEDQAVTD+855 01421000 AVTCWTS1 EQU IEDQAVTD+854 01422000 AVTCWCLD EQU AVTCWFL2 01423000 AVTCWRAP EQU AVTCWFL2 01424000 @NM00062 EQU AVTCWFL2 01425000 @NM00061 EQU AVTCWFL2 01426000 @NM00060 EQU AVTCWFL2 01427000 @NM00059 EQU AVTCWFL2 01428000 @NM00058 EQU AVTCWFL2 01429000 AVTCWACT EQU AVTCWFL2 01430000 @NM00057 EQU AVTCWFL1 01431000 @NM00056 EQU AVTCWFL1 01432000 @NM00055 EQU AVTCWFL1 01433000 @NM00054 EQU AVTCWFL1 01434000 @NM00053 EQU AVTCWFL1 01435000 @NM00052 EQU AVTCWFL1 01436000 @NM00051 EQU AVTCWFL1 01437000 AVTCOMWN EQU AVTCWFL1 01438000 AVTCWEC1 EQU IEDQAVTD+848 01439000 AVTCWPM1 EQU IEDQAVTD+844 01440000 AVTCAREA EQU IEDQAVTD+840 01441000 AVTFZERO EQU IEDQAVTD+836 01442000 AVTCADDR EQU IEDQAVTD+832 01443000 AVTCOREC EQU IEDQAVTD+828 01444000 @NM00050 EQU IEDQAVTD+820 01445000 AVTCPBCB EQU IEDQAVTD+816 01446000 @NM00049 EQU IEDQAVTD+808 01447000 AVTDSIOB EQU IEDQAVTD+804 01448000 @NM00048 EQU IEDQAVTD+796 01449000 AVTCPRMB EQU IEDQAVTD+792 01450000 @NM00047 EQU IEDQAVTD+784 01451000 AVTCLOSB EQU IEDQAVTD+780 01452000 @NM00046 EQU IEDQAVTD+772 01453000 AVTACTIB EQU IEDQAVTD+768 01454000 @NM00045 EQU IEDQAVTD+764 01455000 AVTOLTEB EQU IEDQAVTD+760 01456000 AVTOLTCH EQU AVTOLTQB+1 01457000 AVTOLTVT EQU AVTOLTQB 01458000 @NM00044 EQU AVTOPCQB+8 01459000 @NM00043 EQU AVTOPCEC+1 01460000 @NM00042 EQU AVTOPCCC 01461000 AVTOPCPO EQU AVTOPCCC 01462000 AVTOPCWA EQU AVTOPCCC 01463000 AVTOPCCH EQU AVTOPCOB+1 01464000 AVTOPCVT EQU AVTOPCOB 01465000 @NM00041 EQU AVTCKPQB+9 01466000 AVTCKPTS EQU AVTCKPQB+8 01467000 @NM00040 EQU AVTCKPEC+1 01468000 @NM00039 EQU AVTCKPCC 01469000 AVTCKPPO EQU AVTCKPCC 01470000 AVTCKPWA EQU AVTCKPCC 01471000 AVTCKPCH EQU AVTCKPTB+1 01472000 AVTCKPVT EQU AVTCKPTB 01473000 @NM00038 EQU IEDQAVTD+724 01474000 @NM00037 EQU IEDQAVTD+712 01475000 AVTTIMQ EQU IEDQAVTD+704 01476000 @NM00036 EQU IEDQAVTD+700 01477000 AVTIMQPS EQU IEDQAVTD+696 01478000 AVTINOUT EQU IEDQAVTD+694 01479000 AVTREFTM EQU IEDQAVTD+692 01480000 @NM00035 EQU IEDQAVTD+680 01481000 AVTDELYB EQU IEDQAVTD+676 01482000 AVTOCQPT EQU IEDQAVTD+672 01483000 AVTTSOPT EQU IEDQAVTD+668 01484000 AVTSUPPT EQU IEDQAVTD+664 01485000 AVTCBQCB EQU IEDQAVTD+660 01486000 @NM00034 EQU AVTSYSER 01487000 @NM00033 EQU AVTSYSER 01488000 @NM00032 EQU AVTSYSER 01489000 @NM00031 EQU AVTSYSER 01490000 @NM00030 EQU AVTSYSER 01491000 @NM00029 EQU AVTSYSER 01492000 AVTCMAXN EQU AVTSYSER 01493000 AVTCMINN EQU AVTSYSER 01494000 AVT2260L EQU IEDQAVTD+652 01495000 AVTABEPL EQU AVTADBUF 01496000 AVTHFF EQU AVTCLRHI+2 01497000 @NM00028 EQU AVTCLRHI 01498000 AVTCCLNK EQU AVTCRELE+5 01499000 AVTCCPRI EQU AVTCRELE+4 01500000 AVTCCQCB EQU AVTCCELE+1 01501000 AVTCCKEY EQU AVTCCELE 01502000 AVTDELAD EQU IEDQAVTD+632 01503000 AVTDELEM EQU IEDQAVTD+628 01504000 AVTBSX EQU AVTCKLNK 01505000 AVTOPETR EQU AVTHG01 01506000 @NM00027 EQU AVTCKBYT 01507000 AVTCKONQ EQU AVTCKBYT 01508000 @NM00026 EQU AVTCKBYT 01509000 @NM00025 EQU AVTCKBYT 01510000 @NM00024 EQU AVTCKBYT 01511000 @NM00023 EQU AVTCKBYT 01512000 @NM00022 EQU AVTCKBYT 01513000 @NM00021 EQU AVTCKBYT 01514000 AVTOPERT EQU IEDQAVTD+618 01515000 AVTOPXCL EQU IEDQAVTD+616 01516000 AVTOPERL EQU IEDQAVTD+615 01517000 @NM00020 EQU IEDQAVTD+614 01518000 AVTCKTIM EQU IEDQAVTD+612 01519000 AVTCKELV EQU IEDQAVTD+610 01520000 AVTCPRCD EQU IEDQAVTD+609 01521000 AVTWARMN EQU AVTCKELF 01522000 AVTCRTLN EQU AVTCKELF 01523000 AVTCPIPN EQU AVTCKELF 01524000 AVTCCLCN EQU AVTCKELF 01525000 AVTCINCN EQU AVTCKELF 01526000 @NM00019 EQU AVTCKELF 01527000 AVTCMCPN EQU AVTCKELF 01528000 AVTCRDYN EQU AVTCKELF 01529000 AVTCKQAD EQU IEDQAVTD+605 01530000 AVTSCBSZ EQU IEDQAVTD+604 01531000 @NM00018 EQU IEDQAVTD+600 01532000 AVTCKELE EQU IEDQAVTD+596 01533000 @NM00017 EQU AVTCKPEL+8 01534000 AVTCKRLK EQU AVTCKPEL+5 01535000 AVTCKRPR EQU AVTCKPEL+4 01536000 AVTCKRMQ EQU AVTCKRMV+1 01537000 AVTCKRKY EQU AVTCKRMV 01538000 AVTHK EQU IEDQAVTD+576 01539000 AVTHI EQU IEDQAVTD+572 01540000 AVTIOT EQU IEDQAVTD+568 01541000 AVTNX EQU IEDQAVTD+564 01542000 AVTTONE EQU IEDQAVTD+560 01543000 AVTA3TL EQU IEDQAVTD+556 01544000 AVTDMECB EQU IEDQAVTD+552 01545000 AVTABEND EQU IEDQAVTD+546 01546000 AVTPLCBN EQU IEDQAVTD+544 01547000 @NM00016 EQU AVTSAVTP+1 01548000 @NM00015 EQU AVTSAVTF 01549000 AVTSNA EQU AVTSAVTF 01550000 AVTONSNA EQU AVTSAVTF 01551000 AVTVTMCP EQU AVTSAVTF 01552000 @NM00014 EQU IEDQAVTD+536 01553000 AVTCMBSS EQU IEDQAVTD+532 01554000 AVTRCV EQU IEDQAVTD+528 01555000 AVTSEND EQU IEDQAVTD+524 01556000 AVTCSCH EQU IEDQAVTD+520 01557000 AVTQ1 EQU IEDQAVTD+516 01558000 AVTE7 EQU IEDQAVTD+512 01559000 AVTHB EQU IEDQAVTD+508 01560000 AVTR1 EQU IEDQAVTD+504 01561000 AVTBZ EQU IEDQAVTD+500 01562000 AVTEZ EQU IEDQAVTD+496 01563000 AVTEC EQU IEDQAVTD+492 01564000 AVTEW EQU IEDQAVTD+488 01565000 AVTNDIAL EQU AVTSCOPT 01566000 AVTN2741 EQU AVTSCOPT 01567000 AVTCONCO EQU AVTSCOPT 01568000 AVTCONC EQU AVTSCOPT 01569000 AVTCMBUF EQU AVTSCOPT 01570000 AVTAPDMP EQU AVTSCOPT 01571000 @NM00013 EQU AVTSCOPT 01572000 AVTHA EQU AVTDISP 01573000 AVTEA EQU IEDQAVTD+476 01574000 AVTAX EQU IEDQAVTD+472 01575000 AVTA3 EQU IEDQAVTD+468 01576000 AVTGD EQU IEDQAVTD+464 01577000 AVTAL EQU IEDQAVTD+460 01578000 AVTOLTST EQU AVTHG02 01579000 AVTE8 EQU IEDQAVTD+452 01580000 AVTCOMPT EQU IEDQAVTD+444 01581000 AVTCRSRF EQU IEDQAVTD+440 01582000 @NM00012 EQU IEDQAVTD+436 01583000 AVTKA02 EQU IEDQAVTD+432 01584000 AVTOPTPT EQU IEDQAVTD+428 01585000 AVTPCBPT EQU IEDQAVTD+424 01586000 AVTOSECB EQU IEDQAVTD+420 01587000 AVTOPECA EQU IEDQAVTD+416 01588000 AVTOLECA EQU IEDQAVTD+412 01589000 AVTCKECA EQU IEDQAVTD+408 01590000 AVTCWECA EQU IEDQAVTD+404 01591000 AVTCWTCB EQU IEDQAVTD+400 01592000 AVTOLTCB EQU IEDQAVTD+396 01593000 AVTOCTCB EQU IEDQAVTD+392 01594000 AVTCKTCB EQU IEDQAVTD+388 01595000 AVTAS EQU IEDQAVTD+384 01596000 AVTNOLBF EQU IEDQAVTD+382 01597000 AVTNCKPR EQU IEDQAVTD+381 01598000 AVTCIB EQU IEDQAVTD+380 01599000 AVTSPLPT EQU IEDQAVTD+376 01600000 AVTMVBFR EQU IEDQAVTD+372 01601000 AVTSBTA EQU IEDQAVTD+368 01602000 AVTRARTN EQU IEDQAVTD+364 01603000 AVTBSCAN EQU IEDQAVTD+360 01604000 AVTRDYA EQU IEDQAVTD+356 01605000 AVTDISTR EQU IEDQAVTD+348 01606000 AVTPARM3 EQU IEDQAVTD+344 01607000 @NM00011 EQU AVTPKF 01608000 @NM00010 EQU AVTPKF 01609000 @NM00009 EQU AVTPKF 01610000 AVTFTCHF EQU AVTPKF 01611000 @NM00008 EQU AVTPKF 01612000 @NM00007 EQU AVTPKF 01613000 @NM00006 EQU AVTPKF 01614000 @NM00005 EQU AVTPKF 01615000 AVTPARM EQU IEDQAVTD+336 01616000 AVTEXS2A EQU IEDQAVTD+330 01617000 AVTEXA2S EQU IEDQAVTD+324 01618000 AVTOCGET EQU IEDQAVTD+320 01619000 AVTCKAVT EQU @NM00003+1 01620000 @NM00004 EQU AVTCKFLG 01621000 AVTCKHLT EQU AVTCKFLG 01622000 AVTCKREQ EQU AVTCKFLG 01623000 AVTCKENV EQU AVTCKFLG 01624000 AVTCKNAC EQU AVTCKFLG 01625000 AVTCKTAC EQU AVTCKFLG 01626000 @NM00002 EQU IEDQAVTD+312 01627000 AVTREADD EQU IEDQAVTD+308 01628000 AVTREADY EQU IEDQAVTD+304 01629000 AVTRACE EQU IEDQAVTD+300 01630000 AVTTCB EQU IEDQAVTD+296 01631000 AVTPASWD EQU IEDQAVTD+288 01632000 AVTCTLCH EQU IEDQAVTD+280 01633000 AVTDOUBX EQU IEDQAVTD+264 01634000 AVTDPARM EQU IEDQAVTD+260 01635000 AVTCSTCS EQU IEDQAVTD+256 01636000 AVTDLQ EQU AVTSAVEX+32 01637000 @NM00001 EQU AVTSAVEX 01638000 AVTSAVE4 EQU IEDQAVTD+144 01639000 AVTSAVE3 EQU IEDQAVTD+72 01640000 AVTSAVE2 EQU IEDQAVTD 01641000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01642000 @PB00002 EQU @EL00001 01643000 @ENDDATA EQU * 01644000 END IEDUNBND,(C'PLS2006',0701,76363) 01645000