TITLE 'IGCFE10D, ACTIVATE RESPONSE PROCESSOR *00001000 ' 00002000 IGCFE10D CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 * 02S0343 00005000 * /*****************************************************************/ 00006000 * /* */ 00007000 * /* PROLOGUE: THIS SEGMENT COMPLETES THE PROLOGUE CODE THAT WAS */ 00008000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. */ 00009000 * /* */ 00010000 * /*****************************************************************/ 00011000 * 02S0343 00012000 * REG12=REG15; /* SET THE CODE BASE REGISTER 00013000 * WITH THE ENTRY POINT ADDRESS 00014000 * OF THE MODULE */ 00015000 LR REG12,REG15 02S0343 00016000 * RFY 02S0344 00017000 * REG15 UNRSTD; /* RELEASE THE REGISTER 02S0344 00018000 * RESTRICTED AT ENTRY TO THE 00019000 * MODULE THAT WAS USED TO 02S0344 00020000 * CONTAIN THE ENTRY POINT 02S0344 00021000 * ADDRESS OF THE MODULE */ 00022000 * GEN REFS(REG12) NOSETS; 02S0345 00023000 * /* 00024000 USING IGCFE10D,REG12 INFORM THE ASSEMBLER OF THE 00025000 * BASE REGISTER TO BE USED FOR 00026000 * ADDRESSING CODE 00027000 * GEN NOREFS NOSETS; 02S0346 00028000 * /* 00029000 IGCFE10D IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00030000 * 02S0347 00031000 * /*****************************************************************/ 00032000 * /* */ 00033000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00034000 * /* PERFORM THE FUNCTION OF THE MODULE. */ 00035000 * /* */ 00036000 * /*****************************************************************/ 00037000 * 02S0347 00038000 * 03S0347 00039000 * /*****************************************************************/ 00040000 * /* */ 00041000 * /* PROCESS.INITIAL: THIS SEGMENT DOES THE INITIAL PROCESSING. */ 00042000 * /* */ 00043000 * /*****************************************************************/ 00044000 * 03S0347 00045000 * ROPCAVT=RPARM; /* SET PTR TO OP CNTL AVT */ 00046000 LR ROPCAVT,RPARM 03S0347 00047000 * RAVT=OPCAVTPT; /* SET PTR TO TCAM AVT */ 00048000 L RAVT,OPCAVTPT(,ROPCAVT) 03S0348 00049000 * ROPCE=OPCCOPCE; /* SET PTR TO CURRENT OPCE */ 00050000 L ROPCE,OPCCOPCE(,ROPCAVT) 03S0349 00051000 * RDATA=OPCWORK; /* SET PTR TO OP CNTL WORK AREA */ 00052000 L RDATA,OPCWORK(,ROPCAVT) 03S0350 00053000 * RSAVE=ADDR(OPCSAVE); /* SET PTR TO OP CNTL SAVE AREA */ 00054000 LA RSAVE,OPCSAVE(,ROPCAVT) 03S0351 00055000 * FLAGS=0; /* CLEAR FLAGS & SWITCHES */ 00056000 SLR @11,@11 03S0352 00057000 ST @11,FLAGS(,RDATA) 03S0352 00058000 * 03S0353 00059000 * /*****************************************************************/ 00060000 * /* */ 00061000 * /* PROCESS.RESPONSE: THIS SEGMENT DECREMENTS THE OUTSTANDING */ 00062000 * /* RESPONSE COUNT (IF NOT REDRIVE OPCE) IN THE ORIGINAL OPCE AND */ 00063000 * /* THEN DETERMINES THE TYPE OF RESPONSE (OR REDRIVE) OPCE THAT */ 00064000 * /* THE ELEMENT IS AND THE PROCESSING NECESSARY */ 00065000 * /* */ 00066000 * /*****************************************************************/ 00067000 * 03S0353 00068000 * IF OCDCARD=OFF THEN /* IF DISCARD FLAG OFF IS NOT 00069000 * RETURN @YM03705*/ 00070000 LA @11,8 03S0353 00071000 LR @09,ROPCE 03S0353 00072000 SLR @09,@11 03S0353 00073000 TM OCDCARD(@09),B'00000100' 03S0353 00074000 BNZ @RF00353 03S0353 00075000 * DO; /* FROM CKPT SO IS RESPONSE 03S0354 00076000 * @YM03705*/ 00077000 * IF OCREDRVE=OFF /* IF NOT REDRIVE OPCE */ 00078000 * THEN 03S0355 00079000 TM OCREDRVE(ROPCE),B'00010000' 03S0355 00080000 BNZ @RF00355 03S0355 00081000 * DO; 03S0356 00082000 * RWORK=OCPTRSAV; /* SET BASE FOR ORIGINAL OPCE */ 00083000 L RWORK,OCPTRSAV(,ROPCE) 03S0357 00084000 * RWORK=RWORK-LENGTH(IEDQOPCN);/* BACK UP TO NEG PREFIX */ 00085000 SLR RWORK,@11 03S0358 00086000 * RWORK->OCRESPCT=RWORK->OCRESPCT-1;/* DECREMENT OUT REST 00087000 * CT */ 00088000 LH @11,OCRESPCT(,RWORK) 03S0359 00089000 N @11,@CF01484 03S0359 00090000 BCTR @11,0 03S0359 00091000 STH @11,OCRESPCT(,RWORK) 03S0359 00092000 * END; 03S0360 00093000 * IF OCSWITCH=OCACTLK|OCSWITCH=OCACTPU/* IF ACTLINK OR ACTPU 00094000 * RESP. OR REDRIVE */ 00095000 * THEN /* PERFORM PROCESSING FOR ACTLINK 00096000 * OR ACTPU RESPONSE OR REDRIVE */ 00097000 @RF00355 CLI OCSWITCH(ROPCE),X'50' 03S0361 00098000 BE @RT00361 03S0361 00099000 CLI OCSWITCH(ROPCE),X'30' 03S0361 00100000 BNE @RF00361 03S0361 00101000 @RT00361 DS 0H 03S0362 00102000 * DO; 03S0362 00103000 * 04S0363 00104000 * /*********************************************************/ 00105000 * /* */ 00106000 * /* PROCESS.RESPONSE.ACTLNKPU: THIS SEG PROCESSES ACTLINK */ 00107000 * /* OR ACTPU RESPONSES OR REDRIVES. THE FIRST PHASE OF */ 00108000 * /* PROCESSING IS SKIPPED IF THE OPCE IS A REDRIVE OPCE. */ 00109000 * /* THE SECOND PHASE OF PROCESSING IS SKIPPED IF THE EXIT */ 00110000 * /* FLAG HAS BEEN SET ON IN THE FIRST PHASE OF PROCESSING */ 00111000 * /* */ 00112000 * /*********************************************************/ 00113000 * 04S0363 00114000 * IF OCREDRVE=OFF THEN /* IF NOT REDRIVE OPCE THEN DO 00115000 * 1ST PHASE */ 00116000 TM OCREDRVE(ROPCE),B'00010000' 04S0363 00117000 BNZ @RF00363 04S0363 00118000 * DO; /* PROCESSING */ 00119000 * 04S0364 00120000 * /*****************************************************/ 00121000 * /* */ 00122000 * /* THIS SEGMENT PERFORMS THE 1ST PHASE OF PROCESSING */ 00123000 * /* OF THE ACTLINK OR ACTPU RESP PROCESSING */ 00124000 * /* */ 00125000 * /*****************************************************/ 00126000 * 04S0365 00127000 * 05S0365 00128000 * /*****************************************************/ 00129000 * /* */ 00130000 * /* PROCESS.RESPONSE.ACTLNKPU.LNKPU1: THIS SEGMENT */ 00131000 * /* PERFORMS THE PROCESSING TO HANDLE THE RESPONSE TO */ 00132000 * /* AN ACTLINK OR ACTPU REQUEST. IF THERE IS AN */ 00133000 * /* ATTACHED RU, IT IS FREED. IF THE RESPONSE IS */ 00134000 * /* NEGATIVE, THE FINI FLAG IS SET AND THE SEGMENT IS */ 00135000 * /* EXITED. IF THE IDLE FLAG IS ON IN THE ORIG OPCE, */ 00136000 * /* THEN NO FURTHER ACTIVATIONS ARE REQUIRED, SO THE */ 00137000 * /* ORIG OPCE IS MADE THE CURRENT & EXIT PROCESSING IS*/ 00138000 * /* PERFORMED. OTHERWISE, THE NO. OF BUFFER UNITS */ 00139000 * /* NEEDED IS CALCULATED & THE APPROPRIATE NO. OF */ 00140000 * /* UNITS IS OBTAINED */ 00141000 * /* */ 00142000 * /*****************************************************/ 00143000 * 05S0365 00144000 * IF TIC=VALTIC THEN /* IF THERE IS AN ATTACHED RU 00145000 * @YM05731*/ 00146000 TM TIC(ROPCE),B'00000011' 05S0365 00147000 BNZ @RF00365 05S0365 00148000 * DO; 05S0366 00149000 * RPARM=OCUNIT; /* THEN POINT RPARM TO IT */ 00150000 L RPARM,OCUNIT(,ROPCE) 05S0367 00151000 * CALL FREEBUF; /* AND FREE IT */ 00152000 L @15,OPCFREBF(,ROPCAVT) 05S0368 00153000 BALR @14,@15 05S0368 00154000 * OCUNIT=PRUINTIC;/* AND SET INVALID TIC */ 00155000 MVC OCUNIT(4,ROPCE),@CF01232 05S0369 00156000 * END; 05S0370 00157000 * ELSE 05S0371 00158000 * ; 05S0371 00159000 @RF00365 DS 0H 05S0372 00160000 * IF OCPARM>0 THEN /* IF POSITIVE RESPONSE */ 00161000 SLR @11,@11 05S0372 00162000 CH @11,OCPARM(,ROPCE) 05S0372 00163000 BNL @RF00372 05S0372 00164000 * DO; 05S0373 00165000 * RWORK=OCPTRSAV; /* SET ORIG OPCE BASE */ 00166000 L RWORK,OCPTRSAV(,ROPCE) 05S0374 00167000 * RWORK=RWORK-LENGTH(IEDQOPCN);/* BACK UP TO NEG 00168000 * PREFIX */ 00169000 SL RWORK,@CF00045 05S0375 00170000 * IF RWORK->OCIDLE=OFF THEN/* IF NOT IDLE THEN 00171000 * DETERMINE NO. OF UNITS */ 00172000 TM OCIDLE(RWORK),B'00000001' 05S0376 00173000 BNZ @RF00376 05S0376 00174000 * DO; /* NEEDED & GET APPROPRIATE NO. */ 00175000 * 05S0377 00176000 * /*********************************************/ 00177000 * /* */ 00178000 * /* THIS SEGMENT DETERMINES THE NO. OF BUFF */ 00179000 * /* UNITS NEEDED */ 00180000 * /* */ 00181000 * /*********************************************/ 00182000 * 05S0378 00183000 * 06S0378 00184000 * /*********************************************/ 00185000 * /* */ 00186000 * /* PROCESS.RESPONSE.ACTLNKPU.LNKPU1.GETNUM: */ 00187000 * /* THIS SEGMENT DETERMINES THE NO. OF BUF */ 00188000 * /* UNITS FOR CASCADING SET UP OPCE FOR */ 00189000 * /* REDRIVE */ 00190000 * /* */ 00191000 * /*********************************************/ 00192000 * 06S0378 00193000 * OCBUFNED=0; /* SET # NEED = 0 */ 00194000 STH @11,OCBUFNED(,ROPCE) 06S0378 00195000 * OCBUFGOT=0; /* SET # HAVE = 0 */ 00196000 STH @11,OCBUFGOT(,ROPCE) 06S0379 00197000 * OCWTG=THISMOD;/* SET RETURN TO THIS MODULE */ 00198000 MVC OCWTG(2,ROPCE),@CC01436 06S0380 00199000 * OCREDRVE=ON;/* TURN ON REDRIVE INDICATOR */ 00200000 OI OCREDRVE(ROPCE),B'00010000' 06S0381 00201000 * RPARM=OCTRMTBL;/* GET TTCIN */ 00202000 LH RPARM,OCTRMTBL(,ROPCE) 06S0382 00203000 N RPARM,@CF01484 06S0382 00204000 * CALL TNTLKUP;/* GET TTE ADDR */ 00205000 L @15,AVTRNMPT(,RAVT) 06S0383 00206000 BALR @14,@15 06S0383 00207000 * RTRM=RPARM; /* SET TTE BASE */ 00208000 LR RTRM,RPARM 06S0384 00209000 * OCTRMTBL=TRMSUBST;/* POINT OPCE TO 06S0385 00210000 * SUBORDINATE RESOURCE */ 00211000 LR @11,RTRM 06S0385 00212000 SL @11,@CF00620 06S0385 00213000 LH @09,TRMSUBST(,@11) 06S0385 00214000 N @09,@CF01484 06S0385 00215000 STH @09,OCTRMTBL(,ROPCE) 06S0385 00216000 * IF TRMSUBST^=0 THEN/* IF HAVE SUBORDINATE 00217000 * RESOURCES */ 00218000 LH @11,TRMSUBST(,@11) 06S0386 00219000 N @11,@CF01484 06S0386 00220000 LTR @11,@11 06S0386 00221000 BZ @RF00386 06S0386 00222000 * DO; 06S0387 00223000 * RPARM=TRMSUBST;/* THEN GET ADDR OF */ 00224000 LR RPARM,@11 06S0388 00225000 * CALL TNTLKUP;/* OF 1ST TTE */ 00226000 L @15,AVTRNMPT(,RAVT) 06S0389 00227000 BALR @14,@15 06S0389 00228000 * RTRM=RPARM;/* SET TTE BASE */ 00229000 LR RTRM,RPARM 06S0390 00230000 * END; 06S0391 00231000 * ELSE 06S0392 00232000 * ; 06S0392 00233000 @RF00386 DS 0H 06S0393 00234000 * IF OCSWITCH=OCACTLK THEN/* IF ACTLINK THEN 00235000 * SET */ 00236000 CLI OCSWITCH(ROPCE),X'50' 06S0393 00237000 BNE @RF00393 06S0393 00238000 * RWORK=TRMSDLC;/* COMPARE TYPE = LINE */ 00239000 LA RWORK,33 06S0394 00240000 * ELSE 06S0395 00241000 * RWORK=TRMPUNT;/* ELSE COMPARE = PU */ 00242000 * 06S0395 00243000 B @RC00393 06S0395 00244000 @RF00393 LA RWORK,24 06S0395 00245000 * /*********************************************/ 00246000 * /* */ 00247000 * /* THIS SEGMENT COUNTS THE TTE'S WITH TRMREMB*/ 00248000 * /* ON */ 00249000 * /* */ 00250000 * /*********************************************/ 00251000 * 06S0396 00252000 * 07S0396 00253000 * /*********************************************/ 00254000 * /* */ 00255000 * /* PROCESS.RESPONSE.ACTLNKPU.LNKPU1.GETNUM.CO*/ 00256000 * /* UNT: THIS SEGMENT FOLLOWS THE COHORT PTRS */ 00257000 * /* TILL BACK TO THE SUPERIOR RESOURCE, AND */ 00258000 * /* COUNTS THE TTE'S WITH TRMREMB ON */ 00259000 * /* */ 00260000 * /*********************************************/ 00261000 * 07S0396 00262000 * DO WHILE TRMTYPE^=RWORK;/* DO UNTIL REACH 00263000 * SUPERIOR RESOURCE */ 00264000 @RC00393 B @DE00396 07S0396 00265000 @DL00396 DS 0H 07S0397 00266000 * IF TRMREMB=ON THEN/* IF REMEMBER BIT ON */ 00267000 LR @11,RTRM 07S0397 00268000 AL @11,@CF01486 07S0397 00269000 TM TRMREMB-2(@11),B'01000000' 07S0397 00270000 BNO @RF00397 07S0397 00271000 * OCBUFNED=OCBUFNED+1;/* THEN INCREMENT NO. 00272000 * NEED */ 00273000 LA @11,1 07S0398 00274000 LH @09,OCBUFNED(,ROPCE) 07S0398 00275000 N @09,@CF01484 07S0398 00276000 ALR @11,@09 07S0398 00277000 STH @11,OCBUFNED(,ROPCE) 07S0398 00278000 * ELSE 07S0399 00279000 * ; 07S0399 00280000 @RF00397 DS 0H 07S0400 00281000 * RPARM=TRMCOHRT;/* POINT TO NEXT TTE */ 00282000 LR @11,RTRM 07S0400 00283000 AL @11,@CF01487 07S0400 00284000 LH RPARM,TRMCOHRT-4(,@11) 07S0400 00285000 N RPARM,@CF01484 07S0400 00286000 * CALL TNTLKUP;/* AND GET ADDR */ 00287000 L @15,AVTRNMPT(,RAVT) 07S0401 00288000 BALR @14,@15 07S0401 00289000 * RTRM=RPARM;/* SET TTE BASE */ 00290000 LR RTRM,RPARM 07S0402 00291000 * END; 07S0403 00292000 @DE00396 LR @11,RTRM 07S0403 00293000 AL @11,@CF01030 07S0403 00294000 SLR @09,@09 07S0403 00295000 IC @09,TRMTYPE-11(,@11) 07S0403 00296000 CR RWORK,@09 07S0403 00297000 BNE @DL00396 07S0403 00298000 * 05S0404 00299000 * /*********************************************/ 00300000 * /* */ 00301000 * /* THIS SEGMENT GETS THE APPROPRIATE NO. OF */ 00302000 * /* UNITS */ 00303000 * /* */ 00304000 * /*********************************************/ 00305000 * 05S0404 00306000 * 06S0404 00307000 * /*********************************************/ 00308000 * /* */ 00309000 * /* PROCESS.RESPONSE.ACTLNKPU.LNKPU1.GETUNITS:*/ 00310000 * /* THIS SEGMENT SETS THE NUMBER OF UNITS */ 00311000 * /* NEEDED (UP TO 50% LEVEL), INCREMENTS THE */ 00312000 * /* OUTSTANDING RESPONSE CT IN THE ORIGINAL */ 00313000 * /* OPCE (IF NOT F ACT, NCP & IS ACTLINK). IF */ 00314000 * /* OPCADGOT IS > ONE HALF THE AVAILABLE */ 00315000 * /* BUFFER UNITS ALREADY, THEN THE REDRIVE */ 00316000 * /* OPCE IS PUT ON A WAIT CHAIN FOR REDRIVE */ 00317000 * /* UNTIL UNITS BECOME AVAILABLE, AND CONTROL */ 00318000 * /* IS GIVEN UP. */ 00319000 * /* */ 00320000 * /*********************************************/ 00321000 * 06S0404 00322000 * IF OCBUFNED^=0 THEN/* IF ANY UNITS NEEDED */ 00323000 LH @11,OCBUFNED(,ROPCE) 06S0404 00324000 N @11,@CF01484 06S0404 00325000 LTR @11,@11 06S0404 00326000 BZ @RF00404 06S0404 00327000 * DO; 06S0405 00328000 * RWORK=OCPTRSAV;/* THEN SET BASE FOR ORIG 00329000 * OPCE */ 00330000 L RWORK,OCPTRSAV(,ROPCE) 06S0406 00331000 * RWORK=RWORK-LENGTH(IEDQOPCN);/* BACK UP 00332000 * TO NEG PREFIX */ 00333000 SL RWORK,@CF00045 06S0407 00334000 * IF OCSWITCH=OCACTLK&RWORK->OCADNCP=ON/* 00335000 * IF ORIG OPCE IS NOT ACT NCP OR 00336000 * THIS */ 00337000 * THEN 06S0408 00338000 CLI OCSWITCH(ROPCE),X'50' 06S0408 00339000 BNE @RF00408 06S0408 00340000 TM OCADNCP(RWORK),B'00010000' 06S0408 00341000 BO @RT00408 06S0408 00342000 * ; /* NOT ACTLINK RESP THEN */ 00343000 * ELSE 06S0410 00344000 * RWORK->OCRESPCT=RWORK->OCRESPCT+OCBUFNED; 00345000 @RF00408 LH @11,OCRESPCT(,RWORK) 06S0410 00346000 N @11,@CF01484 06S0410 00347000 LH @09,OCBUFNED(,ROPCE) 06S0410 00348000 N @09,@CF01484 06S0410 00349000 ALR @11,@09 06S0410 00350000 STH @11,OCRESPCT(,RWORK) 06S0410 00351000 * /* INCREMENT OUT. RESP. CT. BY 00352000 * NO. NEED */ 00353000 * IF OPCADGOT<(AVTNOLBF/2) THEN/* IF NOT UP 00354000 * TO 50% LEVEL THEN */ 00355000 @RT00408 LH @11,OPCADGOT(,ROPCAVT) 06S0411 00356000 N @11,@CF01484 06S0411 00357000 LA @09,2 06S0411 00358000 LH @15,AVTNOLBF(,RAVT) 06S0411 00359000 LR @06,@15 06S0411 00360000 SRDA @06,32 06S0411 00361000 DR @06,@09 06S0411 00362000 CR @11,@07 06S0411 00363000 BNL @RF00411 06S0411 00364000 * DO; /* SET SOME OR ALL NEEDED UNITS */ 00365000 * 06S0412 00366000 * /*************************************/ 00367000 * /* */ 00368000 * /* THIS SEGMENT OBTAINS BUFFER UNITS */ 00369000 * /* */ 00370000 * /*************************************/ 00371000 * 06S0413 00372000 * 07S0413 00373000 * /*************************************/ 00374000 * /* */ 00375000 * /* PROCESS.RESPONSE.ACTLNKPU.LNKPU1.G*/ 00376000 * /* ETUNITS.GETTER: THIS SEGMENT GETS */ 00377000 * /* UNITS (EITHER NO. NEEDED OR UP TO */ 00378000 * /* 50% LEVEL, WHICHEVER COMES FIRST),*/ 00379000 * /* SETS NO. NEED & NO. HAVE */ 00380000 * /* ACCORDINGLY, AND ATTACHES THE */ 00381000 * /* UNITS TO THE REDRIVE OPCE */ 00382000 * /* */ 00383000 * /*************************************/ 00384000 * 07S0413 00385000 * RFY 07S0413 00386000 * REG00 UNRSTD; 07S0413 00387000 * RFY 07S0414 00388000 * RTRM UNRSTD; 07S0414 00389000 * IF(OCBUFNED+OPCADGOT)>=(AVTNOLBF/2) 00390000 * THEN/* IF #NEED PLUS NO IN USE GT 00391000 * 50% */ 00392000 LH @14,OCBUFNED(,ROPCE) 07S0415 00393000 N @14,@CF01484 07S0415 00394000 LR @00,@14 07S0415 00395000 ALR @00,@11 07S0415 00396000 LR @06,@15 07S0415 00397000 SRDA @06,32 07S0415 00398000 DR @06,@09 07S0415 00399000 CR @00,@07 07S0415 00400000 BL @RF00415 07S0415 00401000 * DO;/* THEN */ 00402000 * RWORK=(AVTNOLBF/2)-OPCADGOT;/* 00403000 * SET NO TO GET = UP TO 50%LEVEL*/ 00404000 LR @06,@15 07S0417 00405000 SRDA @06,32 07S0417 00406000 DR @06,@09 07S0417 00407000 SLR @07,@11 07S0417 00408000 LR RWORK,@07 07S0417 00409000 * OCBUFNED=OCBUFNED-RWORK;/* SET NO 00410000 * NEED = REMAINDER */ 00411000 SLR @14,RWORK 07S0418 00412000 STH @14,OCBUFNED(,ROPCE) 07S0418 00413000 * END; 07S0419 00414000 * ELSE/* ELSE */ 00415000 * DO;/* SET NO TO GET = NO NEED */ 00416000 B @RC00415 07S0420 00417000 @RF00415 DS 0H 07S0421 00418000 * RWORK=OCBUFNED; 07S0421 00419000 LH RWORK,OCBUFNED(,ROPCE) 07S0421 00420000 N RWORK,@CF01484 07S0421 00421000 * OCBUFNED=0;/* SET NO NEED = 0 */ 00422000 SLR @11,@11 07S0422 00423000 STH @11,OCBUFNED(,ROPCE) 07S0422 00424000 * END; 07S0423 00425000 * OCBUFGOT=RWORK;/* SET NO HAVE=NO TO 00426000 * GET */ 00427000 @RC00415 STH RWORK,OCBUFGOT(,ROPCE) 07S0424 00428000 * OPCADGOT=OPCADGOT+RWORK;/* INCREMENT 00429000 * NO A/D HAS @YM03705*/ 00430000 LH @11,OPCADGOT(,ROPCAVT) 07S0425 00431000 N @11,@CF01484 07S0425 00432000 ALR @11,RWORK 07S0425 00433000 STH @11,OPCADGOT(,ROPCAVT) 07S0425 00434000 * RFY 07S0426 00435000 * REG00 RSTD; 07S0426 00436000 * RFY 07S0427 00437000 * RTRM RSTD; 07S0427 00438000 * RFY 07S0428 00439000 * REG11 RSTD; 07S0428 00440000 * DO WHILE RWORK>0;/* GET BUFFERS */ 00441000 B @DE00429 07S0429 00442000 @DL00429 DS 0H 07S0430 00443000 * IF RWORK>255 THEN/* SET UP LOOP FOR 00444000 * REQUESTS FOR */ 00445000 LA @09,255 07S0430 00446000 CR RWORK,@09 07S0430 00447000 BNH @RF00430 07S0430 00448000 * DO;/* MAX OF 255 UNITS AT A TIME */ 00449000 * RWORK=RWORK-255;/* SUB 255 FROM 00450000 * NO TO GET */ 00451000 SLR RWORK,@09 07S0432 00452000 * RPARM=255;/* SET NO WANT = 255 */ 00453000 LR RPARM,@09 07S0433 00454000 * END; 07S0434 00455000 * ELSE 07S0435 00456000 * DO; 07S0435 00457000 B @RC00430 07S0435 00458000 @RF00430 DS 0H 07S0436 00459000 * RPARM=RWORK;/* SET LT 255 07S0436 00460000 * REQUEST */ 00461000 LR RPARM,RWORK 07S0436 00462000 * RWORK=0;/* SET NO STILL NEED = 0*/ 00463000 SLR RWORK,RWORK 07S0437 00464000 * END; 07S0438 00465000 * CALL ALLOCBUF;/* GET UNITS */ 00466000 @RC00430 L @15,OPCGETBF(,ROPCAVT) 07S0439 00467000 BALR @14,@15 07S0439 00468000 * REG11=ROPCE;/* POINT TO REDRIVE 00469000 * OPCE */ 00470000 LR REG11,ROPCE 07S0440 00471000 * RFY 07S0441 00472000 * IEDQOPCE BASED(REG11);/* @YM05731*/ 00473000 * DO WHILE TIC=VALTIC;/* LOOK FOR 00474000 * LAST UNIT @YM05731*/ 00475000 B @DE00442 07S0442 00476000 @DL00442 DS 0H 07S0443 00477000 * REG11=OCUNIT;/* BUMP TO NEXT UNIT 00478000 * @YM05731*/ 00479000 L REG11,OCUNIT(,REG11) 07S0443 00480000 * END;/* WHEN FINISH DO REG11 = LAST 00481000 * UNIT ADDR */ 00482000 @DE00442 TM TIC(REG11),B'00000011' 07S0444 00483000 BZ @DL00442 07S0444 00484000 * OCUNIT=RPARM;/* ATTACH GOTTEN UNITS 00485000 * @YM05731*/ 00486000 ST RPARM,OCUNIT(,REG11) 07S0445 00487000 * RFY 07S0446 00488000 * IEDQOPCE BASED(ROPCE);/* @YM05731*/ 00489000 * END; 07S0447 00490000 @DE00429 LTR RWORK,RWORK 07S0447 00491000 BP @DL00429 07S0447 00492000 * RFY 07S0448 00493000 * REG11 UNRSTD; 07S0448 00494000 * END; 06S0449 00495000 * ELSE /* ELSE PUT REDRIVE OPCE ON WAIT */ 00496000 * DO; /* CHAIN & PREPARE TO PASS CNTL */ 00497000 B @RC00411 06S0450 00498000 @RF00411 DS 0H 06S0451 00499000 * OCLINK=OPCBUFWT;/* ATTACH CHAIN TO 00500000 * THIS OPCE */ 00501000 L @11,OPCBUFWT(,ROPCAVT) 06S0451 00502000 ST @11,OCLINK(,ROPCE) 06S0451 00503000 * OPCBUFWT=ROPCE;/* SET ANCHOR TO POINT 00504000 * TO THIS OPCE */ 00505000 ST ROPCE,OPCBUFWT(,ROPCAVT) 06S0452 00506000 * OCWTG=THISMOD;/* SET THIS MOD TO GET 00507000 * CONTROL ON REDRIVE @OZ31505*/ 00508000 MVC OCWTG(2,ROPCE),@CC01436 06S0453 00509000 * OPCMODID=CNTLMOD;/* SET EXIT MOD TO 00510000 * 00 */ 00511000 MVC OPCMODID(2,ROPCAVT),@CC01438 06S0454 00512000 * EXITFLAG=ON;/* SET ON EXIT FLAG */ 00513000 OI EXITFLAG(RDATA),B'10000000' 06S0455 00514000 * END; 06S0456 00515000 * END; 06S0457 00516000 * ELSE 06S0458 00517000 * SKIPSW=ON;/* SET SKIP SW IF NO UNITS NEEDED*/ 00518000 B @RC00404 06S0458 00519000 @RF00404 OI SKIPSW(RDATA),B'00000100' 06S0458 00520000 * END; 05S0459 00521000 * ELSE /* IF IDLE THEN CMND FINISHED */ 00522000 * DO; 05S0460 00523000 B @RC00376 05S0460 00524000 @RF00376 DS 0H 05S0461 00525000 * REG00=1; /* SET DECREMENT NO. */ 00526000 LA REG00,1 05S0461 00527000 * CALL DECRCT;/* DECREMENT OPCADGOT */ 00528000 L @15,OPCDECR(,ROPCAVT) 05S0462 00529000 BALR @14,@15 05S0462 00530000 * RPARM=OPCCOPCE;/* POINT RPARM TO DUMMY OPCE */ 00531000 L RPARM,OPCCOPCE(,ROPCAVT) 05S0463 00532000 * OPCCOPCE=OCPTRSAV;/* SET ORIG OPCE AS CURRENT*/ 00533000 L @11,OCPTRSAV(,ROPCE) 05S0464 00534000 ST @11,OPCCOPCE(,ROPCAVT) 05S0464 00535000 * ROPCE=OPCCOPCE;/* POINT TO ORIG OPCE */ 00536000 LR ROPCE,@11 05S0465 00537000 * CALL FREEBUF;/* FREE DUMMY OPCE */ 00538000 L @15,OPCFREBF(,ROPCAVT) 05S0466 00539000 BALR @14,@15 05S0466 00540000 * SUCCFLAG=ON;/* SET SUCCESSFUL FLAG ON */ 00541000 * FINIFLAG=ON;/* SET FINI FLAG ON */ 00542000 OI SUCCFLAG(RDATA),B'01001000' 05S0468 00543000 * END; 05S0469 00544000 * END; 05S0470 00545000 * ELSE /* IF UNSUCCESSFUL CHK FOR SIB 00546000 * SHORTAGE @YM03705*/ 00547000 * DO; /* @YM03705*/ 00548000 B @RC00372 05S0471 00549000 @RF00372 DS 0H 05S0472 00550000 * IF OCPARM=OCRCBSIB THEN/* IF SIB SHORTAGE THEN 00551000 * @YM03705*/ 00552000 CLC OCPARM(2,ROPCE),@CH01028 05S0472 00553000 BNE @RF00472 05S0472 00554000 * SIBFLAG=ON; /* TURN ON SIB FLAG @YM03705*/ 00555000 OI SIBFLAG(RDATA),B'00100000' 05S0473 00556000 * ELSE 05S0474 00557000 * ; /* @YM03705*/ 00558000 @RF00472 DS 0H 05S0475 00559000 * FINIFLAG=ON; /* TURN ON FINIFLAG FOR @YM03705*/ 00560000 OI FINIFLAG(RDATA),B'00001000' 05S0475 00561000 * END; /* UNSUCCESSFUL @YM03705*/ 00562000 * END; 04S0477 00563000 * ELSE 04S0478 00564000 * ; 04S0478 00565000 @RF00363 DS 0H 04S0479 00566000 * IF EXITFLAG=OFF THEN /* IF EXIT FLAG NOT ON THEN DO 00567000 * 2ND PHASE PROCESSING */ 00568000 @RC00363 TM EXITFLAG(RDATA),B'10000000' 04S0479 00569000 BNZ @RF00479 04S0479 00570000 * DO; 04S0480 00571000 * 04S0480 00572000 * /*****************************************************/ 00573000 * /* */ 00574000 * /* THIS SEGMENT PERFORMS THE 2ND PHASE (PRIMARILY */ 00575000 * /* REDRIVE) PROCESSING OF THE ACTLINK OR ACTPU */ 00576000 * /* RESPONSES OR REDRIVES */ 00577000 * /* */ 00578000 * /*****************************************************/ 00579000 * 04S0481 00580000 * 05S0481 00581000 * /*****************************************************/ 00582000 * /* */ 00583000 * /* PROCESS.RESPONSE.ACTLNKPU.LNKPU2: THIS SEGMENT */ 00584000 * /* PERFORMS THE SECOND PHASE OF ACTLINK OR ACTPU */ 00585000 * /* RESPONSE PROCESSING OR REDRIVE PROCESSING OF SAME.*/ 00586000 * /* */ 00587000 * /*****************************************************/ 00588000 * 05S0481 00589000 * IF FINIFLAG=OFF THEN/* PROCESS ONLY IF FINIFLAG OFF */ 00590000 TM FINIFLAG(RDATA),B'00001000' 05S0481 00591000 BNZ @RF00481 05S0481 00592000 * DO; 05S0482 00593000 * IF SKIPSW=OFF THEN/* BUILD OPCES UNLESS SKIP 00594000 * SWITCH IS ON */ 00595000 TM SKIPSW(RDATA),B'00000100' 05S0483 00596000 BNZ @RF00483 05S0483 00597000 * DO; 05S0484 00598000 * 05S0484 00599000 * /*********************************************/ 00600000 * /* */ 00601000 * /* THIS SEGMENT BUILDS ACTIVATION REQUEST */ 00602000 * /* OPCES */ 00603000 * /* */ 00604000 * /*********************************************/ 00605000 * 05S0485 00606000 * 06S0485 00607000 * /*********************************************/ 00608000 * /* */ 00609000 * /* PROCESS.RESPONSE.ACTLNKPU.LNKPU2.BLDER: */ 00610000 * /* THIS SEGMENT BUILDS THE NECESSARY OPCE'S */ 00611000 * /* AND POSTS THEM TO AVTOPCOB */ 00612000 * /* */ 00613000 * /*********************************************/ 00614000 * 06S0485 00615000 * OPCAQWD1=0; /* CLEAR SVC POINTERS */ 00616000 SLR @11,@11 06S0485 00617000 ST @11,OPCAQWD1(,ROPCAVT) 06S0485 00618000 * OPCAQWD2=0; 06S0486 00619000 * 06S0486 00620000 ST @11,OPCAQWD2(,ROPCAVT) 06S0486 00621000 * /*********************************************/ 00622000 * /* */ 00623000 * /* THIS SEGMENT BUILDS OPCES */ 00624000 * /* */ 00625000 * /*********************************************/ 00626000 * 06S0487 00627000 * 07S0487 00628000 * /*********************************************/ 00629000 * /* */ 00630000 * /* PROCESS.RESPONSE.ACTLNKPU.LNKPU2.BLDER.BLD*/ 00631000 * /* ER1: THIS SEGMENT PERFORMS THE ACTIONS */ 00632000 * /* NECESSARY TO LOOP THRU THE HIERARCHY AND */ 00633000 * /* BUILD OPCES FOR RESOURCES WITH THEIR */ 00634000 * /* REMEMBER BIT ON */ 00635000 * /* */ 00636000 * /*********************************************/ 00637000 * 07S0487 00638000 * DO WHILE OCBUFGOT^=0; 07S0487 00639000 B @DE00487 07S0487 00640000 @DL00487 DS 0H 07S0488 00641000 * RPARM=OCTRMTBL;/* SET TTCIN IN RPARM */ 00642000 LH RPARM,OCTRMTBL(,ROPCE) 07S0488 00643000 N RPARM,@CF01484 07S0488 00644000 * CALL TNTLKUP;/* GET TTE ADDR */ 00645000 L @15,AVTRNMPT(,RAVT) 07S0489 00646000 BALR @14,@15 07S0489 00647000 * RTRM=RPARM;/* SET TTE BASE. IF REMEMBER */ 00648000 LR RTRM,RPARM 07S0490 00649000 * IF TRMREMB=ON THEN/* BIT IS ON, BUILD OPCE */ 00650000 LR @11,RTRM 07S0491 00651000 AL @11,@CF01486 07S0491 00652000 TM TRMREMB-2(@11),B'01000000' 07S0491 00653000 BNO @RF00491 07S0491 00654000 * DO; 07S0492 00655000 * 07S0492 00656000 * /***************************************/ 00657000 * /* */ 00658000 * /* THIS SEGMENT SETS UP THE OPCES */ 00659000 * /* */ 00660000 * /***************************************/ 00661000 * 07S0493 00662000 * 08S0493 00663000 * /***************************************/ 00664000 * /* */ 00665000 * /* PROCESS.RESPONSE.ACTLNKPU.LNKPU2.BLD*/ 00666000 * /* ER.BLDER1.BLDOPCE: THIS SEGMENT */ 00667000 * /* BUILDS THE F ACT, PU, THE ACTPU, AND*/ 00668000 * /* THE ACTLU OPCES */ 00669000 * /* */ 00670000 * /***************************************/ 00671000 * 08S0493 00672000 * RFY 08S0493 00673000 * REG11 RSTD; 08S0493 00674000 * RWORK=OCUNIT;/* GET ADDR OF ATTACHED 00675000 * UNIT */ 00676000 L RWORK,OCUNIT(,ROPCE) 08S0494 00677000 * OCUNIT=RWORK->OCUNIT;/* UNLINK UNIT */ 00678000 L @09,OCUNIT(,RWORK) 08S0495 00679000 ST @09,OCUNIT(,ROPCE) 08S0495 00680000 * RWORK->OCUNIT=PRUINTIC;/* SET INVALID 00681000 * TIC IN UNIT */ 00682000 MVC OCUNIT(4,RWORK),@CF01232 08S0496 00683000 * RWORK->OCPTRSAV=OCPTRSAV;/* SET PTR TO 00684000 * ORIG OPCE */ 00685000 L @09,OCPTRSAV(,ROPCE) 08S0497 00686000 ST @09,OCPTRSAV(,RWORK) 08S0497 00687000 * RWORK->OCTRMTBL=OCTRMTBL;/* SET 08S0498 00688000 * RESOURCE TTCIN */ 00689000 LH @15,OCTRMTBL(,ROPCE) 08S0498 00690000 N @15,@CF01484 08S0498 00691000 STH @15,OCTRMTBL(,RWORK) 08S0498 00692000 * IF OCSWITCH=OCACTLK THEN/* IF DOING PU 00693000 * CASCADE */ 00694000 CLI OCSWITCH(ROPCE),X'50' 08S0499 00695000 BNE @RF00499 08S0499 00696000 * DO; 08S0500 00697000 * REG11=OCPTRSAV;/* POINT TO ORIG 00698000 * OPCE */ 00699000 LR REG11,@09 08S0501 00700000 * REG11=REG11-LENGTH(IEDQOPCN);/* 00701000 * BACK UP TO NEG PREFIX */ 00702000 LA @09,8 08S0502 00703000 SLR REG11,@09 08S0502 00704000 * IF REG11->OCADNCP=ON THEN/* IF ORIG 00705000 * CMND IS ACT NCP */ 00706000 TM OCADNCP(REG11),B'00010000' 08S0503 00707000 BNO @RF00503 08S0503 00708000 * DO;/* SET UP F ACT, PU'S */ 00709000 * RWORK->OCSWITCH=OCTOFA;/* SET TO 00710000 * ACTIVATE */ 00711000 MVI OCSWITCH(RWORK),X'22' 08S0505 00712000 * RWORK->OCELMPRI=PRIMEDFG;/* SET 00713000 * PRIORITY FOR ROUTING */ 00714000 MVI OCELMPRI(RWORK),X'DF' 08S0506 00715000 * RWORK->OCPRIFLG=OPRDRTN;/* SET 00716000 * FLAG FOR ROUTING */ 00717000 MVI OCPRIFLG(RWORK),X'13' 08S0507 00718000 * RWORK=RWORK-LENGTH(IEDQOPCN);/* 00719000 * BACK UP TO NEG PREFIX */ 00720000 SLR RWORK,@09 08S0508 00721000 * RWORK->OCDCARD=ON;/* SET ON 00722000 * DISCARD FLAG */ 00723000 OI OCDCARD(RWORK),B'00000100' 08S0509 00724000 * RWORK=RWORK+LENGTH(IEDQOPCN);/* 00725000 * RESET TO OPCE */ 00726000 ALR RWORK,@09 08S0510 00727000 * END; 08S0511 00728000 * ELSE/* ELSE BUILD SSCP REQUESTS */ 00729000 * DO;/* FOR ACTPU */ 00730000 B @RC00503 08S0512 00731000 @RF00503 DS 0H 08S0513 00732000 * RWORK->OCSWITCH=OCACTPU;/* SET 00733000 * ACTPU REQUEST CODE */ 00734000 MVI OCSWITCH(RWORK),X'30' 08S0513 00735000 * RWORK->OCPRIFLG=OPRA0;/* SET TO 00736000 * ROUTE TO SSCP */ 00737000 MVI OCPRIFLG(RWORK),X'01' 08S0514 00738000 * RWORK->OCACTREQ=ON;/* SET A/D 00739000 * FLAG @YM03705*/ 00740000 OI OCACTREQ(RWORK),B'00001000' 08S0515 00741000 * RWORK->OCELMPRI=PRIHIFLG; 08S0516 00742000 MVI OCELMPRI(RWORK),X'E9' 08S0516 00743000 * RWORK->OCWTG=THISMOD;/* SET 00744000 * RETURN TO THIS MOD */ 00745000 MVC OCWTG(2,RWORK),@CC01436 08S0517 00746000 * END; 08S0518 00747000 * END; 08S0519 00748000 * ELSE /* SET UP SSCP REQUESTS FOR ACTLU*/ 00749000 * DO; 08S0520 00750000 B @RC00499 08S0520 00751000 @RF00499 DS 0H 08S0521 00752000 * RWORK->OCSWITCH=OCACTLU;/* SET 00753000 * ACTLU REQUEST CODE */ 00754000 MVI OCSWITCH(RWORK),X'10' 08S0521 00755000 * RWORK->OCPRIFLG=OPRA0;/* SET TO 00756000 * ROUTE TO SSCP */ 00757000 MVI OCPRIFLG(RWORK),X'01' 08S0522 00758000 * RWORK->OCACTREQ=ON;/* SET A/D FLAG 00759000 * @YM03705*/ 00760000 OI OCACTREQ(RWORK),B'00001000' 08S0523 00761000 * RWORK->OCELMPRI=PRIHIFLG; 08S0524 00762000 MVI OCELMPRI(RWORK),X'E9' 08S0524 00763000 * RWORK->OCWTG=THISMOD;/* SET RETURN 00764000 * TO THIS MODULE */ 00765000 MVC OCWTG(2,RWORK),@CC01436 08S0525 00766000 * END; 08S0526 00767000 * RWORK->OCLINK=ADDR(AVTOPCOB);/* POINT 00768000 * OPCE TO OPCOB QCB */ 00769000 * 08S0527 00770000 @RC00499 LA @09,AVTOPCOB(,RAVT) 08S0527 00771000 ST @09,OCLINK(,RWORK) 08S0527 00772000 * /***************************************/ 00773000 * /* */ 00774000 * /* THIS SEGMENT ADDS OPCE TO SVC 102 */ 00775000 * /* LIST */ 00776000 * /* */ 00777000 * /***************************************/ 00778000 * 08S0528 00779000 * 09S0528 00780000 * /***************************************/ 00781000 * /* */ 00782000 * /* PROCESS.RESPONSE.ACTLNKPU.LNKPU2.BLD*/ 00783000 * /* ER.BLDER1.BLDOPCE.LISTADD: THIS */ 00784000 * /* SEGMENT CHAINS OPCE'S INTO THE SVC */ 00785000 * /* 102 LIST */ 00786000 * /* */ 00787000 * /***************************************/ 00788000 * 09S0528 00789000 * IF OPCAQWD1=0 THEN/* IF LIST EMPTY */ 00790000 L @09,OPCAQWD1(,ROPCAVT) 09S0528 00791000 LTR @09,@09 09S0528 00792000 BNZ @RF00528 09S0528 00793000 * DO; /* THEN */ 00794000 * OPCAQWD1=RWORK;/* SET 1ST ELEMENT 00795000 * ADDR */ 00796000 ST RWORK,OPCAQWD1(,ROPCAVT) 09S0530 00797000 * OPCAQWD2=RWORK;/* SET LAST ELEMENT 00798000 * ADDR */ 00799000 ST RWORK,OPCAQWD2(,ROPCAVT) 09S0531 00800000 * END; 09S0532 00801000 * ELSE 09S0533 00802000 * DO; 09S0533 00803000 B @RC00528 09S0533 00804000 @RF00528 DS 0H 09S0534 00805000 * REG11=OPCAQWD2;/* SET LAST ELEM 00806000 * BASE */ 00807000 L REG11,OPCAQWD2(,ROPCAVT) 09S0534 00808000 * REG11->OCELMPTR=RWORK;/* SET LAST 00809000 * ELEM TO POINT TO THIS ONE */ 00810000 STCM RWORK,7,OCELMPTR(REG11) 09S0535 00811000 * OPCAQWD2=RWORK;/* SET LIST LAST 00812000 * ELEM PTR */ 00813000 ST RWORK,OPCAQWD2(,ROPCAVT) 09S0536 00814000 * END; 09S0537 00815000 * RFY 08S0538 00816000 * REG11 UNRSTD; 08S0538 00817000 @RC00528 DS 0H 08S0539 00818000 * POSTSW=ON;/* SET POST SW ON */ 00819000 OI POSTSW(RDATA),B'00010000' 07S0539 00820000 * OCBUFGOT=OCBUFGOT-1;/* DECREMENT NO 00821000 * HAVE FOR ONE USED */ 00822000 LH @11,OCBUFGOT(,ROPCE) 07S0540 00823000 N @11,@CF01484 07S0540 00824000 BCTR @11,0 07S0540 00825000 STH @11,OCBUFGOT(,ROPCE) 07S0540 00826000 * END; 07S0541 00827000 * ELSE 07S0542 00828000 * ; 07S0542 00829000 @RF00491 DS 0H 07S0543 00830000 * OCTRMTBL=TRMCOHRT;/* SET TO POINT TO NEXT 00831000 * RESOURCE */ 00832000 LR @11,RTRM 07S0543 00833000 AL @11,@CF01487 07S0543 00834000 LH @11,TRMCOHRT-4(,@11) 07S0543 00835000 N @11,@CF01484 07S0543 00836000 STH @11,OCTRMTBL(,ROPCE) 07S0543 00837000 * END; 07S0544 00838000 @DE00487 LH @11,OCBUFGOT(,ROPCE) 07S0544 00839000 N @11,@CF01484 07S0544 00840000 LTR @11,@11 07S0544 00841000 BNZ @DL00487 07S0544 00842000 * 06S0545 00843000 * /*********************************************/ 00844000 * /* */ 00845000 * /* THIS SEGMENT POSTS THE OPCES */ 00846000 * /* */ 00847000 * /*********************************************/ 00848000 * 06S0545 00849000 * 07S0545 00850000 * /*********************************************/ 00851000 * /* */ 00852000 * /* PROCESS.RESPONSE.ACTLNKPU.LNKPU2.BLDER.BLD*/ 00853000 * /* ER2: THIS SEGMENT COMPLETES THE SVC 102 */ 00854000 * /* LIST & POSTS THE LIST OF OPCES TO THE */ 00855000 * /* ASYNCH READY QUEUE. IF MORE UNITS ARE */ 00856000 * /* NEEDED, THE REDRIVE OPCE IS PUT ON THE */ 00857000 * /* WAIT CHAIN & CONTROL IS GIVEN UP */ 00858000 * /* */ 00859000 * /*********************************************/ 00860000 * 07S0545 00861000 * IF POSTSW=ON THEN/* DO IF ANY TO BE POSTED */ 00862000 TM POSTSW(RDATA),B'00010000' 07S0545 00863000 BNO @RF00545 07S0545 00864000 * DO; 07S0546 00865000 * OPCAQREQ='B4'X;/* SET REQUEST CODE 07S0547 00866000 * @G36XRRV*/ 00867000 MVI OPCAQREQ(ROPCAVT),X'B4' 07S0547 00868000 * RPARM=ADDR(OPCAQCTL);/* SET PTR TO LIST */ 00869000 LA RPARM,OPCAQCTL(,ROPCAVT) 07S0548 00870000 * SVC(102);/* POST OPCE'S */ 00871000 SVC 102 07S0549 00872000 * IF OCBUFNED>0 THEN/* IF STILL NEED UNITS */ 00873000 CLC OCBUFNED(2,ROPCE),@CH00783 07S0550 00874000 BNH @RF00550 07S0550 00875000 * DO; 07S0551 00876000 * OCLINK=OPCBUFWT;/* CHAIN REDRIVE OPCE 00877000 * IN */ 00878000 L @11,OPCBUFWT(,ROPCAVT) 07S0552 00879000 ST @11,OCLINK(,ROPCE) 07S0552 00880000 * OPCBUFWT=ROPCE; 07S0553 00881000 ST ROPCE,OPCBUFWT(,ROPCAVT) 07S0553 00882000 * OCWTG=THISMOD;/* SET THIS MOD TO GET 00883000 * CONTROL ON REDRIVE @OZ31505*/ 00884000 MVC OCWTG(2,ROPCE),@CC01436 07S0554 00885000 * OPCMODID=CNTLMOD;/* SET NEXT MOD = 00*/ 00886000 MVC OPCMODID(2,ROPCAVT),@CC01438 07S0555 00887000 * EXITFLAG=ON;/* SET ON EXIT FLAG */ 00888000 OI EXITFLAG(RDATA),B'10000000' 07S0556 00889000 * END; 07S0557 00890000 * ELSE 07S0558 00891000 * ; 07S0558 00892000 @RF00550 DS 0H 07S0559 00893000 * END; 07S0559 00894000 * ELSE 07S0560 00895000 * ; 07S0560 00896000 @RF00545 DS 0H 07S0561 00897000 * END; 05S0561 00898000 * ELSE 05S0562 00899000 * ; 05S0562 00900000 @RF00483 DS 0H 05S0563 00901000 * IF EXITFLAG=OFF THEN/* SET UP FOR EXIT PROCESSING 00902000 * UNLESS EXITFLAG ON */ 00903000 TM EXITFLAG(RDATA),B'10000000' 05S0563 00904000 BNZ @RF00563 05S0563 00905000 * DO; 05S0564 00906000 * 05S0564 00907000 * /*********************************************/ 00908000 * /* */ 00909000 * /* THIS SEGMENT SETS UP FOR EXIT PROCESSING */ 00910000 * /* */ 00911000 * /*********************************************/ 00912000 * 05S0565 00913000 * 06S0565 00914000 * /*********************************************/ 00915000 * /* */ 00916000 * /* PROCESS.RESPONSE.ACTLNKPU.LNKPU2.ENDER: */ 00917000 * /* THIS SEGMENT SETS UP FOR END OF CMND */ 00918000 * /* PROCESSING IF NO OUTSTANDING RESPONSES. */ 00919000 * /* ELSE IT RELINQUISHES CONTROL. IN EITHER */ 00920000 * /* CASE THE REDRIVE OPCE IS FREED AND */ 00921000 * /* OPCADGOT IS DECREMENTED. */ 00922000 * /* */ 00923000 * /*********************************************/ 00924000 * 06S0565 00925000 * RFY 06S0565 00926000 * RWORK RSTD;/* RESTRICT REG */ 00927000 * RWORK=OCPTRSAV;/* SET BASE FOR ORIG OPCE */ 00928000 L @11,OCPTRSAV(,ROPCE) 06S0566 00929000 LR RWORK,@11 06S0566 00930000 * RWORK=RWORK-LENGTH(IEDQOPCN);/* BACK UP TO 00931000 * NEG PREFIX */ 00932000 SL RWORK,@CF00045 06S0567 00933000 * IF RWORK->OCRESPCT<=0 THEN/* IF NO OUT. 06S0568 00934000 * RSPONSES@YM03735 */ 00935000 CLC OCRESPCT(2,RWORK),@CH00783 06S0568 00936000 BH @RF00568 06S0568 00937000 * DO; /* THEN END OF CMND */ 00938000 * SUCCFLAG=ON;/* SET SUCCESSFUL */ 00939000 OI SUCCFLAG(RDATA),B'01000000' 06S0570 00940000 * OPCCOPCE=OCPTRSAV;/* SET ORIGINAL AS 00941000 * CURRENT */ 00942000 ST @11,OPCCOPCE(,ROPCAVT) 06S0571 00943000 * END; 06S0572 00944000 * ELSE /* ELSE AWAIT RESPONSES */ 00945000 * DO; 06S0573 00946000 B @RC00568 06S0573 00947000 @RF00568 DS 0H 06S0574 00948000 * OPCMODID=CNTLMOD;/* SET EXIT TO 00 */ 00949000 MVC OPCMODID(2,ROPCAVT),@CC01438 06S0574 00950000 * EXITFLAG=ON;/* SET EXIT FLAG ON */ 00951000 OI EXITFLAG(RDATA),B'10000000' 06S0575 00952000 * END; 06S0576 00953000 * REG00=1; /* SET DECREMENT CT = 1 */ 00954000 @RC00568 LA REG00,1 06S0577 00955000 * CALL DECRCT;/* DECREMENT OPCADGOT */ 00956000 L @15,OPCDECR(,ROPCAVT) 06S0578 00957000 BALR @14,@15 06S0578 00958000 * RPARM=ROPCE;/* POINT TO REDRIVE OPCE */ 00959000 LR RPARM,ROPCE 06S0579 00960000 * CALL FREEBUF;/* FREE REDRIVE OPCE */ 00961000 L @15,OPCFREBF(,ROPCAVT) 06S0580 00962000 BALR @14,@15 06S0580 00963000 * ROPCE=OPCCOPCE;/* RESET OPCE PTR */ 00964000 L ROPCE,OPCCOPCE(,ROPCAVT) 06S0581 00965000 * END; 05S0582 00966000 * ELSE 05S0583 00967000 * ; 05S0583 00968000 @RF00563 DS 0H 05S0584 00969000 * END; 05S0584 00970000 * ELSE 05S0585 00971000 * ; 05S0585 00972000 @RF00481 DS 0H 05S0586 00973000 * END; 04S0586 00974000 * ELSE 04S0587 00975000 * ; 04S0587 00976000 @RF00479 DS 0H 04S0588 00977000 * END; 03S0588 00978000 * ELSE 03S0589 00979000 * IF OCSWITCH=OCVARON /* IF RESPONSE TO STARTLINE 03S0589 00980000 * REQUEST */ 00981000 * THEN 03S0589 00982000 B @RC00361 03S0589 00983000 @RF00361 CLI OCSWITCH(ROPCE),X'D1' 03S0589 00984000 BNE @RF00589 03S0589 00985000 * DO; 03S0590 00986000 * 03S0590 00987000 * /*******************************************************/ 00988000 * /* */ 00989000 * /* PERFORM PROCESSING FOR STARTLINE RESPONSE */ 00990000 * /* */ 00991000 * /*******************************************************/ 00992000 * 03S0591 00993000 * 04S0591 00994000 * /*******************************************************/ 00995000 * /* */ 00996000 * /* PROCESS.RESPONSE.VARY: THIS SEGMENT PROCESSES THE */ 00997000 * /* RESPONSES TO STARTLINE REQUESTS */ 00998000 * /* */ 00999000 * /*******************************************************/ 01000000 * 04S0591 01001000 * RFY 04S0591 01002000 * REG11 RSTD; 04S0591 01003000 * RWORK=OCPTRSAV; /* SET ORIG OPCE BASE @YM09110*/ 01004000 L @09,OCPTRSAV(,ROPCE) 04S0592 01005000 LR RWORK,@09 04S0592 01006000 * RWORK=RWORK-LENGTH(IEDQOPCN);/* BACK UP TO NEG PREF 01007000 * @YM09110*/ 01008000 SL RWORK,@CF00045 04S0593 01009000 * IF RWORK->OCRESPCT<=0 THEN/* IF NO OUTSTANDING 04S0594 01010000 * RESPONSES @YM09110*/ 01011000 CLC OCRESPCT(2,RWORK),@CH00783 04S0594 01012000 BH @RF00594 04S0594 01013000 * DO; /* THEN @YM09110*/ 01014000 * IF OCATTACH=ON THEN/* IF OTHER OPCE'S ATTACHED 01015000 * @YM09110*/ 01016000 TM OCATTACH(ROPCE),B'00000010' 04S0596 01017000 BNO @RF00596 04S0596 01018000 * DO; /* THEN RELINK TO ORIG OPCE CHAIN 01019000 * @YM09110*/ 01020000 * REG11=OCPTRSAV;/* SET ORIG OPCE BASE @YM09110*/ 01021000 LR REG11,@09 04S0598 01022000 * DO WHILE REG11->OCATTACH=ON;/* FIND LAST OPCE 01023000 * ON CHAIN @YM09110*/ 01024000 B @DE00599 04S0599 01025000 @DL00599 DS 0H 04S0600 01026000 * REG11=REG11->OCELEM;/* BY LOOPING TO END 01027000 * @YM09110*/ 01028000 L REG11,OCELEM(,REG11) 04S0600 01029000 * END; /* @YM09110*/ 01030000 @DE00599 TM OCATTACH(REG11),B'00000010' 04S0601 01031000 BO @DL00599 04S0601 01032000 * REG11->OCATTACH=ON;/* TURN ON ATTACHED @YM09110*/ 01033000 OI OCATTACH(REG11),B'00000010' 04S0602 01034000 * REG11->OCELEM=OCELEM;/* ATTACH TO LAST @YM09110*/ 01035000 L @09,OCELEM(,ROPCE) 04S0603 01036000 ST @09,OCELEM(,REG11) 04S0603 01037000 * OCELEM=0; /* AND CLEAR @YM09110*/ 01038000 SLR @09,@09 04S0604 01039000 ST @09,OCELEM(,ROPCE) 04S0604 01040000 * END; /* @YM09110*/ 01041000 * ELSE 04S0606 01042000 * ; /* @YM09110*/ 01043000 @RF00596 DS 0H 04S0607 01044000 * IF OCPARM=GOODVARY THEN/* IF STARTLINE IS OK 04S0607 01045000 * @YM09110*/ 01046000 CLC OCPARM(2,ROPCE),@CH01440 04S0607 01047000 BNE @RF00607 04S0607 01048000 * DO; /* @YM09110*/ 01049000 * SUCCFLAG=ON; /* SET SUCCESSFUL @YM09110*/ 01050000 OI SUCCFLAG(RDATA),B'01000000' 04S0609 01051000 * OPCCOPCE=OCPTRSAV;/* SET ORIG OPCE AS CURRENT 01052000 * @YM09110*/ 01053000 L @09,OCPTRSAV(,ROPCE) 04S0610 01054000 ST @09,OPCCOPCE(,ROPCAVT) 04S0610 01055000 * REG00=1; /* SET DECREMENT CT = 1 @YM09110*/ 01056000 LA REG00,1 04S0611 01057000 * CALL DECRCT; /* DECREMENT OPCADGOT @YM09110*/ 01058000 L @15,OPCDECR(,ROPCAVT) 04S0612 01059000 BALR @14,@15 04S0612 01060000 * RPARM=ROPCE; /* POINT TO REDRIVE OPCE @YM09110*/ 01061000 LR RPARM,ROPCE 04S0613 01062000 * CALL FREEBUF; /* AND FREE IT @YM09110*/ 01063000 L @15,OPCFREBF(,ROPCAVT) 04S0614 01064000 BALR @14,@15 04S0614 01065000 * ROPCE=OPCCOPCE;/* RESET OPCE PTR @YM09110*/ 01066000 L ROPCE,OPCCOPCE(,ROPCAVT) 04S0615 01067000 * END; /* @YM09110*/ 01068000 * ELSE 04S0617 01069000 * ; /* @YM09110*/ 01070000 @RF00607 DS 0H 04S0618 01071000 * END; /* @YM09110*/ 01072000 * ELSE 04S0619 01073000 * DO; /* ELSE IF MORE RESPONSES TO COME 01074000 * @YM09110*/ 01075000 B @RC00594 04S0619 01076000 @RF00594 DS 0H 04S0620 01077000 * IF OCATTACH=ON THEN 04S0620 01078000 TM OCATTACH(ROPCE),B'00000010' 04S0620 01079000 BNO @RF00620 04S0620 01080000 * DO; /* IF ATTACHED VARYS THEN 04S0621 01081000 * @YM09110*/ 01082000 * OCATTACH=OFF; /* TURN OFF ATTACH @YM09110*/ 01083000 NI OCATTACH(ROPCE),B'11111101' 04S0622 01084000 * OPCNEXT=OCELEM;/* SET ATTACHED AS NEXT TO 04S0623 01085000 * PROCESS @YM09110*/ 01086000 L @09,OCELEM(,ROPCE) 04S0623 01087000 ST @09,OPCNEXT(,ROPCAVT) 04S0623 01088000 * END; /* @YM09110*/ 01089000 * ELSE 04S0625 01090000 * ; /* @YM09110*/ 01091000 @RF00620 DS 0H 04S0626 01092000 * IF OCPARM=GOODVARY THEN 04S0626 01093000 CLC OCPARM(2,ROPCE),@CH01440 04S0626 01094000 BNE @RF00626 04S0626 01095000 * DO; /* IF GOOD RESP THEN @YM09110*/ 01096000 * OPCMODID=CNTLMOD;/* SET EXIT TO 00 @YM09110*/ 01097000 MVC OPCMODID(2,ROPCAVT),@CC01438 04S0628 01098000 * EXITFLAG=ON; /* SET EXIT FLAG @YM09110*/ 01099000 OI EXITFLAG(RDATA),B'10000000' 04S0629 01100000 * REG00=1; /* SET DECREMENT CT = 1 @YM09110*/ 01101000 LA REG00,1 04S0630 01102000 * CALL DECRCT; /* DECREMENT OPCADGOT @YM09110*/ 01103000 L @15,OPCDECR(,ROPCAVT) 04S0631 01104000 BALR @14,@15 04S0631 01105000 * RPARM=ROPCE; /* POINT TO REDRIVE OPCE @YM09110*/ 01106000 LR RPARM,ROPCE 04S0632 01107000 * CALL FREEBUF; /* AND FREE IT @YM09110*/ 01108000 L @15,OPCFREBF(,ROPCAVT) 04S0633 01109000 BALR @14,@15 04S0633 01110000 * ROPCE=OPCCOPCE;/* RESET OPCE PTR @YM09110*/ 01111000 L ROPCE,OPCCOPCE(,ROPCAVT) 04S0634 01112000 * END; /* @YM09110*/ 01113000 * ELSE 04S0636 01114000 * ; /* @YM09110*/ 01115000 @RF00626 DS 0H 04S0637 01116000 * END; /* @YM09110*/ 01117000 * RFY 04S0638 01118000 * REG11 UNRSTD; /* @YM09110*/ 01119000 @RC00594 DS 0H 04S0639 01120000 * END; 03S0639 01121000 * ELSE /* PERFORM PROCESSING FOR ACTLU 01122000 * RESPONSE */ 01123000 * DO; 03S0640 01124000 B @RC00589 03S0640 01125000 @RF00589 DS 0H 03S0641 01126000 * 04S0641 01127000 * /*******************************************************/ 01128000 * /* */ 01129000 * /* PROCESS.RESPONSE.ACTLU: THIS SEGMENT PROCESSES ACTLU*/ 01130000 * /* RESPONSES. IT FREES ANY ATTACHED RU'S, AND REBUILDS */ 01131000 * /* THE OPCE INTO AN NSL SESSION PRIME ELEMENT AND POSTS*/ 01132000 * /* IT TO IEDNSL */ 01133000 * /* */ 01134000 * /*******************************************************/ 01135000 * 04S0641 01136000 * IF TIC=VALTIC THEN /* IF ANY ATTACHED RU @YM05731*/ 01137000 TM TIC(ROPCE),B'00000011' 04S0641 01138000 BNZ @RF00641 04S0641 01139000 * DO; /* THEN FREE IT */ 01140000 * RPARM=OCUNIT; /* POINT TO RU */ 01141000 L RPARM,OCUNIT(,ROPCE) 04S0643 01142000 * OCUNIT=PRUINTIC; /* SET INVALID TIC */ 01143000 MVC OCUNIT(4,ROPCE),@CF01232 04S0644 01144000 * CALL FREEBUF; /* FREE ATTACHED RU */ 01145000 L @15,OPCFREBF(,ROPCAVT) 04S0645 01146000 BALR @14,@15 04S0645 01147000 * END; 04S0646 01148000 * ELSE 04S0647 01149000 * ; 04S0647 01150000 @RF00641 DS 0H 04S0648 01151000 * IF OCPARM>0 THEN /* IF GOOD RESPONSE */ 01152000 LH @11,OCPARM(,ROPCE) 04S0648 01153000 LTR @11,@11 04S0648 01154000 BNP @RF00648 04S0648 01155000 * DO; /* THEN SET UP PRIME ELEMENT */ 01156000 * RFY 04S0650 01157000 * IEDNSLD BASED(ROPCE);/* RESET BASE */ 01158000 * OPCCOPCE=OCPTRSAV;/* SET ORIG OPCE AS CURRENT */ 01159000 L @11,OCPTRSAV(,ROPCE) 04S0651 01160000 ST @11,OPCCOPCE(,ROPCAVT) 04S0651 01161000 * REG00=1; /* SET DECREMENT COUNT */ 01162000 LA REG00,1 04S0652 01163000 * CALL DECRCT; /* DECREMENT OPCADGOT */ 01164000 * 04S0653 01165000 L @15,OPCDECR(,ROPCAVT) 04S0653 01166000 BALR @14,@15 04S0653 01167000 * /***************************************************/ 01168000 * /* */ 01169000 * /* THIS SEGMENT SETS UP THE PRIME ELEMENT */ 01170000 * /* */ 01171000 * /***************************************************/ 01172000 * 04S0654 01173000 * 05S0654 01174000 * /***************************************************/ 01175000 * /* */ 01176000 * /* PROCESS.RESPONSE.ACTLU.PRIMELU: THIS SEGMENT */ 01177000 * /* REFORMATS THE OPCE INTO A NSL SESSION PRIME */ 01178000 * /* ELEMENT */ 01179000 * /* */ 01180000 * /***************************************************/ 01181000 * 05S0654 01182000 * RFY 05S0654 01183000 * IEDOPRED BASED(ROPCE);/* SET BASE */ 01184000 * RPARM=OCTRMTBL; /* SET TTCIN */ 01185000 LH RPARM,OCTRMTBL(,ROPCE) 05S0655 01186000 N RPARM,@CF01484 05S0655 01187000 * CALL TNTLKUP; /* GET TTE ADDR */ 01188000 L @15,AVTRNMPT(,RAVT) 05S0656 01189000 BALR @14,@15 05S0656 01190000 * IEDQOPCE=''B; /* SET OPCE = 0 @YM03750*/ 01191000 XC IEDQOPCE(56,ROPCE),IEDQOPCE(ROPCE) 05S0657 01192000 * OPREPRI=PRIOPCTL; /* SET ROUTING PRIORITY */ 01193000 MVI OPREPRI(ROPCE),X'DC' 05S0658 01194000 * OPREQCB=SAVTSPLN; /* SET QCB ADDR */ 01195000 L @11,AVTSAVTP(,RAVT) 05S0659 01196000 MVC OPREQCB(3,ROPCE),SAVTSPLN+1(@11) 05S0659 01197000 * NSLREQTY=NSLSTRLU;/* SET REQUEST TYPE */ 01198000 MVI NSLREQTY(ROPCE),X'07' 05S0660 01199000 * NSLTTEPT=RPARM; /* SET TTE ADDR */ 01200000 ST RPARM,NSLTTEPT(,ROPCE) 05S0661 01201000 * OPCAQWD1=0; /* CLEAR AQCTL LIST */ 01202000 SLR @11,@11 04S0662 01203000 ST @11,OPCAQWD1(,ROPCAVT) 04S0662 01204000 * OPCAQWD2=0; 04S0663 01205000 ST @11,OPCAQWD2(,ROPCAVT) 04S0663 01206000 * OPCAQFST=ROPCE; /* SET PTR TO ELEMENT */ 01207000 STCM ROPCE,7,OPCAQFST(ROPCAVT) 04S0664 01208000 * OPCAQSEC=ROPCE; /* IN BOTH WORDS */ 01209000 STCM ROPCE,7,OPCAQSEC(ROPCAVT) 04S0665 01210000 * OPCAQREQ='0C'X; /* SET REQUEST CODE */ 01211000 MVI OPCAQREQ(ROPCAVT),X'0C' 04S0666 01212000 * OPCAQRQ2=EOL; /* SET END OF LIST */ 01213000 MVI OPCAQRQ2(ROPCAVT),X'80' 04S0667 01214000 * RPARM=ADDR(OPCAQCTL);/* POINT TO LIST */ 01215000 LA RPARM,OPCAQCTL(,ROPCAVT) 04S0668 01216000 * SVC(102); /* POST ELEMENT */ 01217000 SVC 102 04S0669 01218000 * ROPCE=OPCCOPCE; /* RESET BASE */ 01219000 L ROPCE,OPCCOPCE(,ROPCAVT) 04S0670 01220000 * IF OCRESPCT<=0 THEN/* IF NOT AWAITING 04S0671 01221000 * RESPONSES@YM03735 */ 01222000 LR @11,ROPCE 04S0671 01223000 AL @11,@CF01495 04S0671 01224000 CLC OCRESPCT(2,@11),@CH00783 04S0671 01225000 BH @RF00671 04S0671 01226000 * SUCCFLAG=ON; /* THEN SET SUCCESSFUL */ 01227000 OI SUCCFLAG(RDATA),B'01000000' 04S0672 01228000 * ELSE 04S0673 01229000 * DO; /* ELSE SET UP EXIT */ 01230000 B @RC00671 04S0673 01231000 @RF00671 DS 0H 04S0674 01232000 * OPCMODID=CNTLMOD;/* SET EXIT = 00 */ 01233000 MVC OPCMODID(2,ROPCAVT),@CC01438 04S0674 01234000 * EXITFLAG=ON; /* SET ON EXITFLAG */ 01235000 OI EXITFLAG(RDATA),B'10000000' 04S0675 01236000 * END; 04S0676 01237000 * END; 04S0677 01238000 * ELSE 04S0678 01239000 * IF OCPARM=OCRCBSIB THEN/* ELSE IF NOT OK, & NO SIB */ 01240000 B @RC00648 04S0678 01241000 @RF00648 CLC OCPARM(2,ROPCE),@CH01028 04S0678 01242000 BNE @RF00678 04S0678 01243000 * SIBFLAG=ON; /* SET SIBFLAG */ 01244000 OI SIBFLAG(RDATA),B'00100000' 04S0679 01245000 * ELSE 04S0680 01246000 * ; 04S0680 01247000 @RF00678 DS 0H 04S0681 01248000 * END; 03S0681 01249000 * END; /* @YM03705*/ 01250000 * ELSE /* ELSE IS RETURN FROM CKPT AND 01251000 * THE OPCE IS @YM03705*/ 01252000 * DO; /* TO BE DISCARDED @YM03705*/ 01253000 B @RC00353 03S0683 01254000 @RF00353 DS 0H 03S0684 01255000 * REG00=1; /* SET DECREMENT COUNT TO 1 03S0684 01256000 * @YM03705*/ 01257000 LA REG00,1 03S0684 01258000 * CALL DECRCT; /* DECREMENT OPCADGOT @YM03705*/ 01259000 L @15,OPCDECR(,ROPCAVT) 03S0685 01260000 BALR @14,@15 03S0685 01261000 * IF OCATTACH=ON THEN /* IF ANY OPCE'S ATTACHED 03S0686 01262000 * @YM03705*/ 01263000 TM OCATTACH(ROPCE),B'00000010' 03S0686 01264000 BNO @RF00686 03S0686 01265000 * OPCNEXT=OCELEM; /* THEN SET UP AS NEXT TO PROCESS 01266000 * @YM03705*/ 01267000 L @11,OCELEM(,ROPCE) 03S0687 01268000 ST @11,OPCNEXT(,ROPCAVT) 03S0687 01269000 * ELSE 03S0688 01270000 * ; /* @YM03705*/ 01271000 @RF00686 DS 0H 03S0689 01272000 * RPARM=ROPCE; /* POINT RPARM TO OPCE @YM03705*/ 01273000 LR RPARM,ROPCE 03S0689 01274000 * CALL FREEBUF; /* FREE THE OPCE @YM03705*/ 01275000 L @15,OPCFREBF(,ROPCAVT) 03S0690 01276000 BALR @14,@15 03S0690 01277000 * OPCMODID=CNTLMOD; /* SET TO EXIT TO 00 @YM03705*/ 01278000 MVC OPCMODID(2,ROPCAVT),@CC01438 03S0691 01279000 * EXITFLAG=ON; /* SET FOR EXIT @YM03705*/ 01280000 OI EXITFLAG(RDATA),B'10000000' 03S0692 01281000 * END; /* @YM03705*/ 01282000 * 03S0694 01283000 * /*****************************************************************/ 01284000 * /* */ 01285000 * /* PROCESS.EXITCODE: THIS SEGMENT PERFORMS END OF COMMAND */ 01286000 * /* PROCESSING */ 01287000 * /* */ 01288000 * /*****************************************************************/ 01289000 * 03S0694 01290000 * IF EXITFLAG=OFF THEN /* BYPASS IF EXIT FLAG ON */ 01291000 @RC00353 TM EXITFLAG(RDATA),B'10000000' 03S0694 01292000 BNZ @RF00694 03S0694 01293000 * DO; 03S0695 01294000 * 03S0695 01295000 * /*************************************************************/ 01296000 * /* */ 01297000 * /* THIS SEGMENT PROCESSES UNSUCCESSFUL CMNDS */ 01298000 * /* */ 01299000 * /*************************************************************/ 01300000 * 03S0696 01301000 * 04S0696 01302000 * /*************************************************************/ 01303000 * /* */ 01304000 * /* PROCESS.EXITCODE.EXIT1: THIS SEGMENT PERFORMS UNSUCCESSFUL*/ 01305000 * /* EXIT PROCESSING */ 01306000 * /* */ 01307000 * /*************************************************************/ 01308000 * 04S0696 01309000 * RFY 04S0696 01310000 * REG11 RSTD; 04S0696 01311000 * IF SUCCFLAG=OFF THEN /* DO IT UNSUCCESSFUL */ 01312000 TM SUCCFLAG(RDATA),B'01000000' 04S0697 01313000 BNZ @RF00697 04S0697 01314000 * DO; 04S0698 01315000 * REG11=OCPTRSAV; /* SET ORIG OPCE BASE */ 01316000 L REG11,OCPTRSAV(,ROPCE) 04S0699 01317000 * IF OCTRMTBL^=REG11->OCTRMTBL THEN/* IF NOT ORIG RESOURCE */ 01318000 CLC OCTRMTBL(2,ROPCE),OCTRMTBL(REG11) 04S0700 01319000 BE @RF00700 04S0700 01320000 * DO; /* THEN */ 01321000 * REG11=REG11-LENGTH(IEDQOPCN);/* BACK UP TO NEG PREFIX*/ 01322000 SL REG11,@CF00045 04S0702 01323000 * REG11->OCPARTAL=ON; /* SET ON PARTIAL ACT FLAG */ 01324000 OI OCPARTAL(REG11),B'00001000' 04S0703 01325000 * SUCCFLAG=ON; /* AND SUCCESSFUL FLAG */ 01326000 OI SUCCFLAG(RDATA),B'01000000' 04S0704 01327000 * END; 04S0705 01328000 * ELSE 04S0706 01329000 * ; 04S0706 01330000 @RF00700 DS 0H 04S0707 01331000 * RWORK=OCPTRSAV; /* SAVE ORIG OPCE PTR */ 01332000 L RWORK,OCPTRSAV(,ROPCE) 04S0707 01333000 * REG00=1; /* SET DECREMENT CT */ 01334000 LA REG00,1 04S0708 01335000 * CALL DECRCT; /* DECREMENT OPCADGOT */ 01336000 L @15,OPCDECR(,ROPCAVT) 04S0709 01337000 BALR @14,@15 04S0709 01338000 * RPARM=ROPCE; /* POINT TO REDRIVE OPCE */ 01339000 LR RPARM,ROPCE 04S0710 01340000 * CALL FREEBUF; /* AND FREE IT */ 01341000 L @15,OPCFREBF(,ROPCAVT) 04S0711 01342000 BALR @14,@15 04S0711 01343000 * ROPCE=RWORK; /* SET OPCE BASE */ 01344000 LR ROPCE,RWORK 04S0712 01345000 * IF OCRESPCT<=0 THEN /* SET ORIG AS CURRENT @YM03735*/ 01346000 LR @09,ROPCE 04S0713 01347000 AL @09,@CF01495 04S0713 01348000 CLC OCRESPCT(2,@09),@CH00783 04S0713 01349000 BH @RF00713 04S0713 01350000 * OPCCOPCE=ROPCE; /* IF NO OUTSTANDING RESPONSES */ 01351000 ST ROPCE,OPCCOPCE(,ROPCAVT) 04S0714 01352000 * ELSE 04S0715 01353000 * DO; /* ELSE SET UP FOR EXIT */ 01354000 B @RC00713 04S0715 01355000 @RF00713 DS 0H 04S0716 01356000 * OPCMODID=CNTLMOD; /* SET EXIT TO 00 */ 01357000 MVC OPCMODID(2,ROPCAVT),@CC01438 04S0716 01358000 * EXITFLAG=ON; /* SET EXIT FLAG ON */ 01359000 OI EXITFLAG(RDATA),B'10000000' 04S0717 01360000 * END; 04S0718 01361000 * RFY 04S0719 01362000 * REG11 UNRSTD; 04S0719 01363000 @RC00713 DS 0H 04S0720 01364000 * END; 04S0720 01365000 * ELSE 04S0721 01366000 * ; 04S0721 01367000 @RF00697 DS 0H 04S0722 01368000 * IF EXITFLAG=OFF THEN /* BYPASS IF EXIT1 SET EXIT FLAG */ 01369000 TM EXITFLAG(RDATA),B'10000000' 03S0722 01370000 BNZ @RF00722 03S0722 01371000 * DO; 03S0723 01372000 * 03S0723 01373000 * /*********************************************************/ 01374000 * /* */ 01375000 * /* THIS SEGMENT PERFORMS THE DISCARD AND IN PROGRESS */ 01376000 * /* PROCESSING */ 01377000 * /* */ 01378000 * /*********************************************************/ 01379000 * 03S0724 01380000 * 04S0724 01381000 * /*********************************************************/ 01382000 * /* */ 01383000 * /* PROCESS.EXITCODE.EXIT2: THIS SEGMENT TURNS OFF THE */ 01384000 * /* IN-PROCESS BITS, AND SETS UP TO FREE THE OPCE AFTER */ 01385000 * /* CKPT IF DISCARD IS INDICATED */ 01386000 * /* */ 01387000 * /*********************************************************/ 01388000 * 04S0724 01389000 * REG00=0; /* SET TO TURN OFF */ 01390000 SLR REG00,REG00 04S0724 01391000 * RPARM=ROPCE; /* POINT TO OPCE */ 01392000 LR RPARM,ROPCE 04S0725 01393000 * CALL PROGRTNE; /* TURN OFF IN-PROG BITS */ 01394000 L @15,OPCPGCK(,ROPCAVT) 04S0726 01395000 BALR @14,@15 04S0726 01396000 * IF OCDCARD=ON THEN /* IF TO BE DISCARDED */ 01397000 LR @11,ROPCE 04S0727 01398000 AL @11,@CF01496 04S0727 01399000 TM OCDCARD-2(@11),B'00000100' 04S0727 01400000 BNO @RF00727 04S0727 01401000 * DO; /* THEN */ 01402000 * OCOPTCDE=OCMODIFY; /* SET OPCDE F RESTART @YM06521*/ 01403000 MVI OCOPTCDE(ROPCE),X'44' 04S0729 01404000 * OPCMODID=CHKMOD; /* SET TO GO TO CKPT @YM03705*/ 01405000 MVC OPCMODID(2,ROPCAVT),@CC01454 04S0730 01406000 * OCWTG=THISMOD; /* SET RETURN TO THIS MODULE 01407000 * @YM03705*/ 01408000 MVC OCWTG(2,ROPCE),@CC01436 04S0731 01409000 * EXITFLAG=ON; /* SET TO EXIT MODULE @YM03705*/ 01410000 OI EXITFLAG(RDATA),B'10000000' 04S0732 01411000 * END; /* @YM03705*/ 01412000 * ELSE 04S0734 01413000 * ; 04S0734 01414000 @RF00727 DS 0H 04S0735 01415000 * IF EXITFLAG=OFF THEN /* BYPASS IF EXIT2 SET EXIT FLAG */ 01416000 TM EXITFLAG(RDATA),B'10000000' 03S0735 01417000 BNZ @RF00735 03S0735 01418000 * DO; 03S0736 01419000 * 03S0736 01420000 * /*****************************************************/ 01421000 * /* */ 01422000 * /* THIS SEGMENT DOES THE MSG SETUP */ 01423000 * /* */ 01424000 * /*****************************************************/ 01425000 * 03S0737 01426000 * 04S0737 01427000 * /*****************************************************/ 01428000 * /* */ 01429000 * /* PROCESS.EXITCODE.EXIT3: THIS SEGMENT DOES THE */ 01430000 * /* FINAL END OF CMND PROCESSING */ 01431000 * /* */ 01432000 * /*****************************************************/ 01433000 * 04S0737 01434000 * IF SUCCFLAG=ON THEN /* IF CMND SUCCESSFUL */ 01435000 TM SUCCFLAG(RDATA),B'01000000' 04S0737 01436000 BNO @RF00737 04S0737 01437000 * DO; /* THEN */ 01438000 * IF OCPARTAL=ON THEN/* IF PARTIAL ACTIVATE */ 01439000 LR @11,ROPCE 04S0739 01440000 AL @11,@CF01496 04S0739 01441000 TM OCPARTAL-2(@11),B'00001000' 04S0739 01442000 BNO @RF00739 04S0739 01443000 * DO; 04S0740 01444000 * REG00=PARTMSG;/* SET PARTIAL ACT MSG */ 01445000 LA @11,530 04S0741 01446000 LR REG00,@11 04S0741 01447000 * OCPARM=PARTMSG; 04S0742 01448000 STH @11,OCPARM(,ROPCE) 04S0742 01449000 * OPCMODID=MSGMOD1;/* AND MSG MOD ID */ 01450000 MVC OPCMODID(2,ROPCAVT),@CC01432 04S0743 01451000 * END; 04S0744 01452000 * ELSE /* ELSE */ 01453000 * DO; 04S0745 01454000 B @RC00739 04S0745 01455000 @RF00739 DS 0H 04S0746 01456000 * REG00=OKMSG;/* SET ACT COMPLETE MSG */ 01457000 LA @11,382 04S0746 01458000 LR REG00,@11 04S0746 01459000 * OCPARM=OKMSG; 04S0747 01460000 STH @11,OCPARM(,ROPCE) 04S0747 01461000 * OPCMODID=MSGMOD2;/* AND MSG MOD ID */ 01462000 MVC OPCMODID(2,ROPCAVT),@CC01434 04S0748 01463000 * END; 04S0749 01464000 * IF OCWTG=0 THEN /* IF NOT INTERNAL CALL */ 01465000 @RC00739 LH @11,OCWTG(,ROPCE) 04S0750 01466000 N @11,@CF01484 04S0750 01467000 LTR @11,@11 04S0750 01468000 BNZ @RF00750 04S0750 01469000 * IF OCTOTE=OFF THEN/* AND NOT TOTE */ 01470000 TM OCTOTE(ROPCE),B'01000000' 04S0751 01471000 BNZ @RF00751 04S0751 01472000 * DO; /* THEN */ 01473000 * OCWTG=OPCMODID;/* SETWTG FOR CKPT */ 01474000 MVC OCWTG(2,ROPCE),OPCMODID(ROPCAVT) 04S0753 01475000 * OPCMODID=CHKMOD;/* SET EXIT TO CHECKPT */ 01476000 MVC OPCMODID(2,ROPCAVT),@CC01454 04S0754 01477000 * END; 04S0755 01478000 * ELSE /* ELSE */ 01479000 * DO; /* IS TOTE SO */ 01480000 B @RC00751 04S0756 01481000 @RF00751 DS 0H 04S0757 01482000 * REG00=TOTEGOOD;/* SET OK RTN CODE */ 01483000 SLR REG00,REG00 04S0757 01484000 * OPCMODID=SECMOD;/* SET EXIT MOD TO 07 */ 01485000 MVC OPCMODID(2,ROPCAVT),@CC01452 04S0758 01486000 * END; 04S0759 01487000 * ELSE 04S0760 01488000 * DO; 04S0760 01489000 B @RC00750 04S0760 01490000 @RF00750 DS 0H 04S0761 01491000 * OPCMODID=OCWTG;/* SET EXIT TO INTERNAL CALLER*/ 01492000 MVC OPCMODID(2,ROPCAVT),OCWTG(ROPCE) 04S0761 01493000 * OCWTG=0; /* AND CLEAR OCWTG */ 01494000 SLR @11,@11 04S0762 01495000 STH @11,OCWTG(,ROPCE) 04S0762 01496000 * END; 04S0763 01497000 * END; 04S0764 01498000 * ELSE /* ELSE IS UNSUCCESSFUL */ 01499000 * DO; 04S0765 01500000 B @RC00737 04S0765 01501000 @RF00737 DS 0H 04S0766 01502000 * IF SIBFLAG=OFF THEN/* IF NOT SIB SHORTAGE */ 01503000 TM SIBFLAG(RDATA),B'00100000' 04S0766 01504000 BNZ @RF00766 04S0766 01505000 * DO; 04S0767 01506000 * REG00=BADMSG;/* SET UNSUCCESSFUL MSG */ 01507000 LA @11,529 04S0768 01508000 LR REG00,@11 04S0768 01509000 * OCPARM=BADMSG; 04S0769 01510000 STH @11,OCPARM(,ROPCE) 04S0769 01511000 * OPCMODID=MSGMOD1;/* SET MSG MOD */ 01512000 MVC OPCMODID(2,ROPCAVT),@CC01432 04S0770 01513000 * END; 04S0771 01514000 * ELSE /* ELSE IS SIB SHORTAGE */ 01515000 * DO; /* SO */ 01516000 B @RC00766 04S0772 01517000 @RF00766 DS 0H 04S0773 01518000 * REG00=SIBMSG;/* SET SIB SHORTAGE MSG */ 01519000 LA @11,531 04S0773 01520000 LR REG00,@11 04S0773 01521000 * OCPARM=SIBMSG; 04S0774 01522000 STH @11,OCPARM(,ROPCE) 04S0774 01523000 * OPCMODID=MSGMOD1;/* AND MSG MOD */ 01524000 MVC OPCMODID(2,ROPCAVT),@CC01432 04S0775 01525000 * END; 04S0776 01526000 * IF OCWTG=0 THEN /* IF NOT INTERNAL CALL */ 01527000 @RC00766 LH @11,OCWTG(,ROPCE) 04S0777 01528000 N @11,@CF01484 04S0777 01529000 LTR @11,@11 04S0777 01530000 BNZ @RF00777 04S0777 01531000 * IF OCTOTE=ON THEN/* AND IF TOTE */ 01532000 TM OCTOTE(ROPCE),B'01000000' 04S0778 01533000 BNO @RF00778 04S0778 01534000 * DO; 04S0779 01535000 * REG00=TOTEBAD;/* SET RETURN CODE */ 01536000 LA REG00,4 04S0780 01537000 * OPCMODID=SECMOD;/* SET 07 EXIT */ 01538000 MVC OPCMODID(2,ROPCAVT),@CC01452 04S0781 01539000 * END; 04S0782 01540000 * ELSE 04S0783 01541000 * ; 04S0783 01542000 @RF00778 DS 0H 04S0784 01543000 * ELSE /* ELSE IS INTERNAL CALL */ 01544000 * DO; /* SO */ 01545000 B @RC00777 04S0784 01546000 @RF00777 DS 0H 04S0785 01547000 * OPCMODID=OCWTG;/* SET EXIT */ 01548000 MVC OPCMODID(2,ROPCAVT),OCWTG(ROPCE) 04S0785 01549000 * OCWTG=0; 04S0786 01550000 SLR @11,@11 04S0786 01551000 STH @11,OCWTG(,ROPCE) 04S0786 01552000 * END; 04S0787 01553000 * END; 04S0788 01554000 * END; 03S0789 01555000 * ELSE 03S0790 01556000 * ; 03S0790 01557000 @RF00735 DS 0H 03S0791 01558000 * END; 03S0791 01559000 * ELSE 03S0792 01560000 * ; 03S0792 01561000 @RF00722 DS 0H 03S0793 01562000 * END; 03S0793 01563000 * ELSE 03S0794 01564000 * ; 03S0794 01565000 @RF00694 DS 0H 03S0795 01566000 * 02S0795 01567000 * /*****************************************************************/ 01568000 * /* */ 01569000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 01570000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. THE XCTL ASSEMBLER */ 01571000 * /* MACRO INSTRUCTION IS USED BY THIS SEGMENT TO TRANSFER CONTROL */ 01572000 * /* TO THE NEXT MODULE THAT IS TO BE EXECUTED. */ 01573000 * /* */ 01574000 * /*****************************************************************/ 01575000 * 02S0795 01576000 * RFY 02S0795 01577000 * REG01 RSTD; /* RESTRICT THE PARAMETER 02S0795 01578000 * REGISTER TO BE USED TO CONTAIN 01579000 * THE ADDRESS OF THE OPERATOR 01580000 * CONTROL ADDRESS VECTOR TABLE 01581000 * FROM USE BY THE COMPILER */ 01582000 @RC00694 DS 0H 02S0796 01583000 * REG01=ROPCAVT; /* SET THE PARAMETER REGISTER IN 01584000 * PREPARATION TO TRANSFERRING 01585000 * CONTROL TO THE NEXT MODULE */ 01586000 LR REG01,ROPCAVT 02S0796 01587000 * IF OPCMODID=CNTLMOD THEN 02S0797 01588000 CLC OPCMODID(2,ROPCAVT),@CC01438 02S0797 01589000 BNE @RF00797 02S0797 01590000 * REG00=REG00-REG00; /* CLEAR FOR 0010D@YM03724 */ 01591000 SLR REG00,REG00 02S0798 01592000 * GEN EXIT REFS(OPCXCTL,ROPCAVT) NOSEQFLOW SETS(REG15); 02S0799 01593000 @RF00797 DS 0H 02S0799 01594000 * /* 01595000 XCTL SF=(E,OPCXCTL(ROPCAVT)) TRANSFER CONTROL MACRO 01596000 * END IGCFE10D 01S0800 01597000 * 01S0800 01598000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01599000 */*%INCLUDE SYSLIB (TAVTD ) */ 01600000 */*%INCLUDE SYSLIB (TNSLD ) */ 01601000 */*%INCLUDE SYSLIB (TOPCAVTD) */ 01602000 */*%INCLUDE SYSLIB (TOPCED ) */ 01603000 */*%INCLUDE SYSLIB (TOPRED ) */ 01604000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01605000 */*%INCLUDE SYSLIB (TPRUD ) */ 01606000 */*%INCLUDE SYSLIB (TTRMD ) */ 01607000 */*%INCLUDE SYSUT5 (RFY ) */ 01608000 */*%INCLUDE SYSUT5 (DCL ) */ 01609000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 01610000 */*%INCLUDE SYSUT5 (PROCESS ) */ 01611000 */*%INCLUDE SYSUT5 (INITIAL ) */ 01612000 */*%INCLUDE SYSUT5 (RESPONSE) */ 01613000 */*%INCLUDE SYSUT5 (ACTLNKPU) */ 01614000 */*%INCLUDE SYSUT5 (LNKPU1 ) */ 01615000 */*%INCLUDE SYSUT5 (GETNUM ) */ 01616000 */*%INCLUDE SYSUT5 (COUNT ) */ 01617000 */*%INCLUDE SYSUT5 (GETUNITS) */ 01618000 */*%INCLUDE SYSUT5 (GETTER ) */ 01619000 */*%INCLUDE SYSUT5 (LNKPU2 ) */ 01620000 */*%INCLUDE SYSUT5 (BLDER ) */ 01621000 */*%INCLUDE SYSUT5 (BLDER1 ) */ 01622000 */*%INCLUDE SYSUT5 (BLDOPCE ) */ 01623000 */*%INCLUDE SYSUT5 (LISTADD ) */ 01624000 */*%INCLUDE SYSUT5 (BLDER2 ) */ 01625000 */*%INCLUDE SYSUT5 (ENDER ) */ 01626000 */*%INCLUDE SYSUT5 (VARY ) */ 01627000 */*%INCLUDE SYSUT5 (ACTLU ) */ 01628000 */*%INCLUDE SYSUT5 (PRIMELU ) */ 01629000 */*%INCLUDE SYSUT5 (EXITCODE) */ 01630000 */*%INCLUDE SYSUT5 (EXIT1 ) */ 01631000 */*%INCLUDE SYSUT5 (EXIT2 ) */ 01632000 */*%INCLUDE SYSUT5 (EXIT3 ) */ 01633000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 01634000 * 01S0800 01635000 * ; 01S0800 01636000 @DATA DS 0H 01637000 @CH00783 DC H'0' 01638000 @CH01440 DC H'20' 01639000 @CH01028 DC H'-2' 01640000 @DATD DSECT 01641000 DS 0F 01642000 IGCFE10D CSECT 01643000 DS 0F 01644000 @CF00045 DC F'8' 01645000 @CF00620 DC F'14' 01646000 @CF01486 DC F'-12' 01647000 @CF01487 DC F'-10' 01648000 @CF01495 DC F'-8' 01649000 @CF01496 DC F'-6' 01650000 @CF01030 DC F'-3' 01651000 @CF01232 DC XL4'08000002' 01652000 @CF01484 DC XL4'0000FFFF' 01653000 @DATD DSECT 01654000 DS 0D 01655000 @ENDDATD EQU * 01656000 IGCFE10D CSECT 01657000 NOPR ((@ENDDATD-@DATD)*16) 01658000 DS 0F 01659000 @SIZDATD DC AL1(0) 01660000 DC AL3(@ENDDATD-@DATD) 01661000 DS 0D 01662000 @CC01432 DC C'0H' 01663000 @CC01434 DC C'0D' 01664000 @CC01436 DC C'FE' 01665000 @CC01438 DC C'00' 01666000 @CC01452 DC C'07' 01667000 @CC01454 DC C'06' 01668000 ADPATCH DC XL80'0' 01669000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01670000 @01 EQU 01 01671000 @02 EQU 02 01672000 @03 EQU 03 01673000 @04 EQU 04 01674000 @05 EQU 05 01675000 @06 EQU 06 01676000 @07 EQU 07 01677000 @08 EQU 08 01678000 @09 EQU 09 01679000 @10 EQU 10 01680000 @11 EQU 11 01681000 @12 EQU 12 01682000 @13 EQU 13 01683000 @14 EQU 14 01684000 @15 EQU 15 01685000 IEDQAPTR EQU @04 01686000 IEDNSLP EQU @05 01687000 ROPCAVT EQU @02 01688000 ROPCE EQU @03 01689000 IEDPRUQP EQU @03 01690000 IEDQTPTR EQU @08 01691000 RTRM EQU @08 01692000 RAVT EQU @04 01693000 REG00 EQU @00 01694000 REG01 EQU @01 01695000 RPARM EQU @01 01696000 RWORK EQU @05 01697000 RDATA EQU @10 01698000 REG11 EQU @11 01699000 REG12 EQU @12 01700000 RSAVE EQU @13 01701000 REG14 EQU @14 01702000 REG15 EQU @15 01703000 REG02 EQU @02 01704000 REG03 EQU @03 01705000 REG04 EQU @04 01706000 REG05 EQU @05 01707000 REG06 EQU @06 01708000 REG07 EQU @07 01709000 REG08 EQU @08 01710000 REG09 EQU @09 01711000 REG10 EQU @10 01712000 REG13 EQU @13 01713000 IEDQAVTD EQU 0 01714000 AVTSAVEX EQU IEDQAVTD+288 01715000 AVTREADD EQU IEDQAVTD+380 01716000 AVTBUFSW EQU IEDQAVTD+384 01717000 @NM00004 EQU IEDQAVTD+388 01718000 AVTCKFLG EQU @NM00004 01719000 AVTBASE EQU IEDQAVTD+412 01720000 AVTPKF EQU AVTBASE 01721000 AVTRNMPT EQU IEDQAVTD+424 01722000 AVTNOLBF EQU IEDQAVTD+454 01723000 AVTOSECB EQU IEDQAVTD+492 01724000 AVTECB1 EQU AVTOSECB 01725000 AVTHG02 EQU IEDQAVTD+528 01726000 AVTDISP EQU IEDQAVTD+552 01727000 AVTHD EQU IEDQAVTD+556 01728000 AVTSCOPT EQU AVTHD 01729000 AVTSAVTP EQU IEDQAVTD+612 01730000 AVTSAVTF EQU AVTSAVTP 01731000 AVTCKPEL EQU IEDQAVTD+652 01732000 AVTCKRMV EQU AVTCKPEL 01733000 AVTCKELF EQU IEDQAVTD+680 01734000 AVTCKBYT EQU IEDQAVTD+691 01735000 AVTHG01 EQU IEDQAVTD+692 01736000 AVTCKLNK EQU IEDQAVTD+696 01737000 AVTCRELE EQU IEDQAVTD+708 01738000 AVTCCELE EQU AVTCRELE 01739000 AVTCLRHI EQU IEDQAVTD+716 01740000 AVTADBUF EQU IEDQAVTD+720 01741000 AVTSYSER EQU IEDQAVTD+728 01742000 AVTBFRFG EQU IEDQAVTD+784 01743000 AVTCKPQB EQU IEDQAVTD+804 01744000 AVTCKPTB EQU AVTCKPQB 01745000 AVTCKPEC EQU AVTCKPQB+4 01746000 AVTCKPCC EQU AVTCKPEC 01747000 AVTOPCQB EQU IEDQAVTD+816 01748000 AVTOPCOB EQU AVTOPCQB 01749000 AVTOPCEC EQU AVTOPCQB+4 01750000 AVTOPCCC EQU AVTOPCEC 01751000 AVTOLTQB EQU IEDQAVTD+828 01752000 AVTCWFL1 EQU IEDQAVTD+924 01753000 AVTCWFL2 EQU IEDQAVTD+925 01754000 AVTSUBT EQU IEDQAVTD+948 01755000 AVTIOTR EQU IEDQAVTD+949 01756000 AVTBIT1 EQU IEDQAVTD+1050 01757000 AVTBIT2 EQU IEDQAVTD+1051 01758000 AVTBIT3 EQU IEDQAVTD+1052 01759000 AVTBIT4 EQU IEDQAVTD+1136 01760000 @NM00086 EQU IEDQAVTD+1232 01761000 IEDNSVTD EQU 0 01762000 SAVTDIAG EQU IEDNSVTD 01763000 SAVTDIAF EQU SAVTDIAG 01764000 SAVTLUSQ EQU IEDNSVTD+88 01765000 SAVTSPLN EQU IEDNSVTD+224 01766000 SAVTTCPU EQU IEDNSVTD+238 01767000 SAVTZELM EQU IEDNSVTD+270 01768000 SAVTRDRV EQU IEDNSVTD+284 01769000 SAVTCKQB EQU IEDNSVTD+300 01770000 SAVTCKTB EQU SAVTCKQB 01771000 SAVTCKEC EQU SAVTCKQB+4 01772000 SAVTCKCC EQU SAVTCKEC 01773000 IEDNNSLD EQU 0 01774000 IEDNSLD EQU 0 01775000 NSLPLCB EQU IEDNSLD+8 01776000 NSLGPCUS EQU IEDNSLD+12 01777000 NSLERB EQU IEDNSLD+20 01778000 NSLESTAT EQU NSLERB+8 01779000 NSLREQTY EQU IEDNSLD+35 01780000 NSLGRPNM EQU IEDNSLD+36 01781000 NSLTTEPT EQU IEDNSLD+44 01782000 IEDQOPCD EQU 0 01783000 OPCAVTPT EQU IEDQOPCD+8 01784000 OPCCOPCE EQU IEDQOPCD+12 01785000 OPCPGCK EQU IEDQOPCD+40 01786000 OPCSAVE EQU IEDQOPCD+56 01787000 OPCWORK EQU IEDQOPCD+140 01788000 OPCAQCTL EQU IEDQOPCD+180 01789000 OPCXCTL EQU IEDQOPCD+204 01790000 OPCLDNME EQU IEDQOPCD+212 01791000 OPCMODID EQU OPCLDNME+3 01792000 OPCNEXT EQU IEDQOPCD+272 01793000 OPCGETBF EQU IEDQOPCD+276 01794000 OPCFREBF EQU IEDQOPCD+280 01795000 OPCSPEC EQU IEDQOPCD+300 01796000 OPCADGOT EQU IEDQOPCD+318 01797000 OPCBUFWT EQU IEDQOPCD+348 01798000 OPCDECR EQU IEDQOPCD+352 01799000 OPCPWCOB EQU IEDQOPCD+368 01800000 OPCPWQCB EQU OPCPWCOB 01801000 OPCPWECB EQU OPCPWCOB+4 01802000 IEDQOPCE EQU 0 01803000 OCLINK EQU IEDQOPCE 01804000 OCELEM EQU IEDQOPCE+4 01805000 OCELMPRI EQU OCELEM 01806000 OCELMPTR EQU OCELEM+1 01807000 OCUNIT EQU IEDQOPCE+8 01808000 OCRUDEST EQU OCUNIT 01809000 OCCKPKEY EQU OCRUDEST 01810000 OCSCAN EQU OCCKPKEY 01811000 OCOPTCDE EQU IEDQOPCE+12 01812000 OCPRIFLG EQU OCOPTCDE 01813000 OCSWITCH EQU IEDQOPCE+13 01814000 OCFLAG EQU IEDQOPCE+14 01815000 OCTOTE EQU OCFLAG 01816000 OCATTACH EQU OCFLAG 01817000 @NM00129 EQU IEDQOPCE+16 01818000 OCDEST EQU @NM00129 01819000 OCREQVAL EQU OCDEST+1 01820000 OCTRMTBL EQU IEDQOPCE+20 01821000 OCLINENO EQU IEDQOPCE+22 01822000 OCTIOT EQU OCLINENO 01823000 OCTRUNIT EQU IEDQOPCE+24 01824000 OCRSID EQU OCTRUNIT 01825000 OCALSTAT EQU OCRSID 01826000 OCREDRVE EQU OCALSTAT 01827000 OCACTREQ EQU OCALSTAT 01828000 OCPARM EQU IEDQOPCE+28 01829000 OCWTG EQU IEDQOPCE+30 01830000 OCBACKUP EQU IEDQOPCE+32 01831000 OCBUFNED EQU OCBACKUP 01832000 OCBUFGOT EQU OCBACKUP+2 01833000 OCMODNME EQU IEDQOPCE+40 01834000 OCIPLWA EQU OCMODNME 01835000 OCPTRSAV EQU OCMODNME+4 01836000 OCCKDATA EQU IEDQOPCE+48 01837000 OCRSTGTM EQU OCCKDATA 01838000 IEDQOPCN EQU 0 01839000 OCLDNME EQU IEDQOPCN 01840000 OCLINTTE EQU OCLDNME 01841000 OCRESPCT EQU OCLINTTE 01842000 OCREQFLG EQU OCLINTTE+2 01843000 OCADNCP EQU OCREQFLG 01844000 OCPARTAL EQU OCREQFLG 01845000 OCDCARD EQU OCREQFLG 01846000 OCIDLE EQU OCREQFLG 01847000 OCPREFLG EQU OCLINTTE+3 01848000 IEDOPRED EQU 0 01849000 OPREQCB EQU IEDOPRED+1 01850000 OPREPRI EQU IEDOPRED+4 01851000 OPRESAVE EQU IEDOPRED+8 01852000 OPREFLG3 EQU IEDOPRED+14 01853000 IEDPRUQD EQU 0 01854000 PRUTIC EQU IEDPRUQD+8 01855000 IEDPRUND EQU 0 01856000 PRURHTH EQU IEDPRUND 01857000 PRURH EQU PRURHTH 01858000 PRURHFG0 EQU PRURH 01859000 PRURHFG1 EQU PRURH+1 01860000 PRURHFG2 EQU PRURH+2 01861000 PRUTH EQU PRURHTH+3 01862000 PRUFIDN EQU PRUTH 01863000 IEDQTRM EQU 0 01864000 TRMSTATE EQU IEDQTRM 01865000 TRMLOG EQU TRMSTATE 01866000 TRMINSEQ EQU IEDQTRM+4 01867000 TLISTCNT EQU TRMINSEQ 01868000 TRMOUTSQ EQU IEDQTRM+6 01869000 TLISTEN EQU TRMOUTSQ 01870000 TRMDSORG EQU TLISTEN 01871000 TRMALTD EQU IEDQTRM+8 01872000 TRMDEVFL EQU IEDQTRM+10 01873000 TRMSTAT EQU IEDQTRM+12 01874000 IEDNTRM EQU 0 01875000 TRMBYTE4 EQU IEDNTRM 01876000 TRMBYTE3 EQU IEDNTRM+1 01877000 TRMBYTE2 EQU IEDNTRM+2 01878000 TRMREMB EQU TRMBYTE2 01879000 TRMINPG EQU TRMBYTE2 01880000 TRMBYTE1 EQU IEDNTRM+3 01881000 TRMSCPRQ EQU TRMBYTE1 01882000 TRMCOHRT EQU IEDNTRM+4 01883000 TRMBYTE0 EQU IEDNTRM+6 01884000 TRMSIBPT EQU IEDNTRM+7 01885000 TRMTYPE EQU IEDNTRM+11 01886000 TRMSUBST EQU IEDNTRM+12 01887000 PROGRTNE EQU 0 01888000 DECRCT EQU 0 01889000 ALLOCBUF EQU 0 01890000 FREEBUF EQU 0 01891000 TNTLKUP EQU 0 01892000 WORKSP EQU 0 01893000 FLAGS EQU WORKSP 01894000 EXITFLAG EQU FLAGS 01895000 SUCCFLAG EQU FLAGS 01896000 SIBFLAG EQU FLAGS 01897000 POSTSW EQU FLAGS 01898000 FINIFLAG EQU FLAGS 01899000 SKIPSW EQU FLAGS 01900000 OPCAQWD EQU OPCAQCTL 01901000 OPCAQWD1 EQU OPCAQWD 01902000 OPCAQREQ EQU OPCAQWD1 01903000 OPCAQFST EQU OPCAQWD1+1 01904000 OPCAQWD2 EQU OPCAQWD+4 01905000 OPCAQRQ2 EQU OPCAQWD2 01906000 OPCAQSEC EQU OPCAQWD2+1 01907000 OPCAQWD3 EQU OPCAQWD+8 01908000 OCCKPKY1 EQU OCCKPKEY 01909000 OCCKPTYP EQU OCCKPKY1 01910000 OCICACTN EQU OCMODNME 01911000 OCICDADR EQU OCICACTN 01912000 OCICSW EQU OCICDADR+3 01913000 TRMPRE1 EQU TRMBYTE4 01914000 TRMNCP1 EQU TRMBYTE4 01915000 TRMPRE EQU TRMBYTE3 01916000 TRMNCP EQU TRMBYTE3 01917000 TRMPU EQU TRMBYTE3 01918000 TRMLU EQU TRMBYTE3 01919000 TRMLINK EQU TRMBYTE3 01920000 TICFLD EQU OCUNIT 01921000 TIC EQU TICFLD+3 01922000 OCCIB EQU OCREQVAL 01923000 TRMOPT EQU IEDQTRM+20 01924000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01925000 @NM00155 EQU TICFLD 01926000 @NM00154 EQU TRMLINK 01927000 TRMLSTAT EQU TRMLINK 01928000 TRMLINT EQU TRMLINK 01929000 TRMEPMOD EQU TRMLINK 01930000 TRMLULOG EQU TRMLU 01931000 TRMINERR EQU TRMLU 01932000 TRMLUREQ EQU TRMLU 01933000 TRMSESRQ EQU TRMLU 01934000 TRMTDIFF EQU TRMLU 01935000 TRMLUTM EQU TRMLU 01936000 TRMLUIT EQU TRMLU 01937000 TRMAUTO EQU TRMLU 01938000 TRMPCONT EQU TRMPU 01939000 @NM00153 EQU TRMPU 01940000 TRMNCONT EQU TRMNCP 01941000 TRMQUCKN EQU TRMNCP 01942000 TRMSLOWN EQU TRMNCP 01943000 TRMSYGEN EQU TRMNCP 01944000 TRMNCPCL EQU TRMNCP 01945000 TRMIPLDM EQU TRMNCP 01946000 TRMINOUT EQU TRMPRE 01947000 TRMRDOUT EQU TRMPRE 01948000 TRMNLOUT EQU TRMPRE 01949000 TRMWROUT EQU TRMPRE 01950000 TRMASNXI EQU TRMPRE 01951000 TRMSTMM EQU TRMPRE 01952000 TRMCMODE EQU TRMPRE 01953000 TRMSTPND EQU TRMPRE 01954000 @NM00152 EQU TRMNCP1 01955000 TRMINOP EQU TRMNCP1 01956000 TRMLYNCH EQU TRMPRE1 01957000 TRMSPOUT EQU TRMPRE1 01958000 TRMERLCK EQU TRMPRE1 01959000 TRMQNPL EQU TRMPRE1 01960000 TRMSPACT EQU TRMPRE1 01961000 TRMOCNI EQU TRMPRE1 01962000 TRMSESSN EQU TRMPRE1 01963000 TRMCONT EQU TRMPRE1 01964000 OCICINAC EQU OCICSW 01965000 @NM00134 EQU OCICSW 01966000 OCICATST EQU OCICDADR+1 01967000 OCICTYPE EQU OCICDADR 01968000 @NM00133 EQU OCCKPKY1 01969000 OCCKPENV EQU OCCKPKY1 01970000 OCCKPRST EQU OCCKPTYP 01971000 OCCKPNCP EQU OCCKPTYP 01972000 OCCKPINC EQU OCCKPTYP 01973000 OPCAQLST EQU OPCAQWD3+1 01974000 OPCAQRQ3 EQU OPCAQWD3 01975000 TRMRLMCT EQU IEDNTRM+10 01976000 TRMCOHTG EQU TRMSIBPT+1 01977000 TRMGPCNT EQU TRMSIBPT 01978000 TRMBUFRD EQU TRMBYTE0 01979000 TRMSNA EQU TRMBYTE0 01980000 TRMGP EQU TRMBYTE0 01981000 TRMDIAL EQU TRMBYTE0 01982000 @NM00151 EQU TRMBYTE0 01983000 TRMOUTPT EQU TRMBYTE0 01984000 TRMINPUT EQU TRMBYTE0 01985000 TRMUDEF EQU TRMBYTE0 01986000 TRMSTOTE EQU TRMBYTE1 01987000 TRMCKPRN EQU TRMBYTE1 01988000 TRMTSATN EQU TRMBYTE1 01989000 TRMTRACE EQU TRMBYTE1 01990000 TRMSWBCK EQU TRMBYTE1 01991000 TRMAUTOC EQU TRMBYTE1 01992000 TRMINPTP EQU TRMBYTE1 01993000 TRMWTNEG EQU TRMSCPRQ 01994000 TRMWRBRK EQU TRMBYTE2 01995000 TRMNOSND EQU TRMBYTE2 01996000 TRMPREP EQU TRMBYTE2 01997000 TRMGPACT EQU TRMBYTE2 01998000 TRMANDL EQU TRMBYTE2 01999000 TRMCLOSN EQU TRMINPG 02000000 TRMRSACT EQU TRMBYTE2 02001000 TRMOPTBL EQU IEDQTRM+18 02002000 TRMOPNO EQU IEDQTRM+17 02003000 TRMCHCIN EQU IEDQTRM+16 02004000 TRMSENSE EQU TRMSTAT+3 02005000 TRMTEMPR EQU TRMSTAT+2 02006000 TRMSIO EQU TRMSTAT 02007000 @NM00150 EQU TRMDEVFL+1 02008000 TRMTPIN EQU TRMDEVFL+1 02009000 TRMNCPI EQU TRMDEVFL+1 02010000 TRMRNTRM EQU TRMDEVFL+1 02011000 @NM00149 EQU TRMDEVFL+1 02012000 TRMLMD EQU TRMDEVFL+1 02013000 TRMCONC EQU TRMDEVFL+1 02014000 TRMTSOB EQU TRMDEVFL 02015000 TRMBFDY EQU TRMDEVFL 02016000 TRMTBLK EQU TRMDEVFL 02017000 TRMSBLK EQU TRMDEVFL 02018000 TRMBLKS EQU TRMDEVFL 02019000 TRMADDC EQU TRMDEVFL 02020000 TRMDDIG EQU TRMDEVFL 02021000 TRMBUFS EQU TRMDEVFL 02022000 TRMPRILK EQU TRMALTD 02023000 TRMLGB EQU TRMDSORG 02024000 TRMUTERM EQU TLISTCNT 02025000 TRMDESTQ EQU IEDQTRM+1 02026000 TRMSCNYN EQU TRMSTATE 02027000 TRMOPTFN EQU TRMSTATE 02028000 TRMHELDN EQU TRMSTATE 02029000 TRMACPTN EQU TRMSTATE 02030000 TRMPREF EQU TRMSTATE 02031000 TRMPROC EQU TRMLOG 02032000 TRMLIST EQU TRMLOG 02033000 TRMLINE EQU TRMSTATE 02034000 @NM00148 EQU IEDPRUND+4 02035000 PRUTHEFI EQU PRUFIDN 02036000 PRUTHUSS EQU PRUFIDN 02037000 PRUTHEIU EQU PRUFIDN 02038000 PRUTHBIU EQU PRUFIDN 02039000 PRUTHTYE EQU PRUFIDN 02040000 @NM00147 EQU PRURHFG2 02041000 PRURHCSI EQU PRURHFG2 02042000 @NM00146 EQU PRURHFG2 02043000 PRURHCDI EQU PRURHFG2 02044000 PRURHEB EQU PRURHFG2 02045000 PRURHBB EQU PRURHFG2 02046000 PRURHPI EQU PRURHFG1 02047000 @NM00145 EQU PRURHFG1 02048000 PRURHER EQU PRURHFG1 02049000 PRURHDR2 EQU PRURHFG1 02050000 @NM00144 EQU PRURHFG1 02051000 PRURHDR1 EQU PRURHFG1 02052000 PRURHEC EQU PRURHFG0 02053000 PRURHBC EQU PRURHFG0 02054000 PRURHSDI EQU PRURHFG0 02055000 PRURHFI EQU PRURHFG0 02056000 @NM00143 EQU PRURHFG0 02057000 PRURUCAT EQU PRURHFG0 02058000 PRURHTYP EQU PRURHFG0 02059000 PRUDATA EQU IEDPRUQD+12 02060000 PRUNUNIT EQU PRUTIC+1 02061000 @NM00142 EQU PRUTIC 02062000 @NM00141 EQU IEDPRUQD+4 02063000 PRUDATCT EQU IEDPRUQD+2 02064000 PRUTTCIN EQU IEDPRUQD 02065000 @NM00140 EQU OPREFLG3 02066000 OPREATCH EQU OPREFLG3 02067000 @NM00139 EQU OPREFLG3 02068000 OPREFLG2 EQU IEDOPRED+13 02069000 OPREFLG1 EQU IEDOPRED+12 02070000 OPRETIC EQU OPRESAVE 02071000 OPRELINK EQU IEDOPRED+5 02072000 OPREKEY EQU IEDOPRED 02073000 @NM00138 EQU OCLDNME+4 02074000 @NM00137 EQU OCPREFLG 02075000 OCTOTEP EQU OCPREFLG 02076000 OCREPOST EQU OCPREFLG 02077000 OCRSPSNT EQU OCPREFLG 02078000 OCBFREQ EQU OCPREFLG 02079000 OCFORCE EQU OCREQFLG 02080000 @NM00136 EQU OCREQFLG 02081000 @NM00135 EQU OCREQFLG 02082000 OCFLUSHZ EQU OCREQFLG 02083000 OCCKPTWA EQU OCCKDATA+4 02084000 @NM00132 EQU OCRSTGTM+2 02085000 OCCKDAT2 EQU OCRSTGTM+1 02086000 OCCKDAT1 EQU OCRSTGTM 02087000 OCPUADR EQU OCIPLWA+2 02088000 OCWTGSAV EQU OCIPLWA 02089000 OCDVRDCT EQU OCBACKUP+6 02090000 OCNCP EQU OCBACKUP+4 02091000 OCRESNUM EQU OCPARM 02092000 OCSEQ EQU OCTRUNIT+2 02093000 @NM00131 EQU OCRSID+1 02094000 OCNONE EQU OCALSTAT 02095000 OCSOME EQU OCALSTAT 02096000 OCALLFLG EQU OCALSTAT 02097000 OCSEQIND EQU OCALSTAT 02098000 OCDACTIP EQU OCALSTAT 02099000 OCRENTRD EQU OCALSTAT 02100000 OCWTGB EQU OCTIOT 02101000 @NM00130 EQU @NM00129+2 02102000 OCCONID EQU OCDEST 02103000 OCRLN EQU IEDQOPCE+15 02104000 OCRESP EQU OCFLAG 02105000 OCSSCP EQU OCFLAG 02106000 OCOUTPUT EQU OCFLAG 02107000 OCLINE EQU OCFLAG 02108000 OCMPP EQU OCFLAG 02109000 OCCONSOL EQU OCFLAG 02110000 @NM00128 EQU OCSWITCH 02111000 OCQUCKN EQU OCSWITCH 02112000 @NM00127 EQU OCRUDEST+1 02113000 @NM00126 EQU OCSCAN 02114000 OCNOTUCB EQU OCSCAN 02115000 OCNONAME EQU OCSCAN 02116000 OCALLRLN EQU OCSCAN 02117000 OCDDNAME EQU OCSCAN 02118000 OCDDNRLN EQU OCSCAN 02119000 OCADDR EQU OCSCAN 02120000 OPCBOTTM EQU IEDQOPCD+1188 02121000 OPCDSRWT EQU IEDQOPCD+1184 02122000 @NM00125 EQU IEDQOPCD+1100 02123000 @NM00124 EQU IEDQOPCD+948 02124000 @NM00123 EQU IEDQOPCD+940 02125000 @NM00122 EQU IEDQOPCD+380 02126000 @NM00121 EQU OPCPWCOB+9 02127000 @NM00120 EQU OPCPWCOB+8 02128000 @NM00119 EQU OPCPWECB+1 02129000 OPCPWCCC EQU OPCPWECB 02130000 OPCPWCHN EQU OPCPWQCB+1 02131000 OPCPWVTO EQU OPCPWQCB 02132000 OPCWAITV EQU IEDQOPCD+364 02133000 OPCTOTCK EQU IEDQOPCD+360 02134000 OPCAPXTL EQU IEDQOPCD+356 02135000 OPCWRKSP EQU IEDQOPCD+320 02136000 OPCRQCNT EQU IEDQOPCD+316 02137000 OPPOLSTP EQU IEDQOPCD+312 02138000 OPCCKCIB EQU IEDQOPCD+308 02139000 OPCEND EQU IEDQOPCD+307 02140000 OPCSTCBS EQU IEDQOPCD+306 02141000 OPCHNEND EQU IEDQOPCD+302 02142000 OPCOQSW EQU IEDQOPCD+301 02143000 @NM00118 EQU OPCSPEC 02144000 @NM00117 EQU OPCSPEC 02145000 @NM00116 EQU OPCSPEC 02146000 @NM00115 EQU OPCSPEC 02147000 OPCFRMCA EQU OPCSPEC 02148000 OPCRSTRT EQU OPCSPEC 02149000 OPCPART EQU OPCSPEC 02150000 OPCALTD EQU OPCSPEC 02151000 OPCBFEND EQU IEDQOPCD+296 02152000 OPCBFIRS EQU IEDQOPCD+292 02153000 OPCAVBUF EQU IEDQOPCD+290 02154000 OPCIPLCT EQU IEDQOPCD+289 02155000 OPCCLNTS EQU IEDQOPCD+288 02156000 OPCHA8 EQU IEDQOPCD+286 02157000 OPCBFREQ EQU IEDQOPCD+284 02158000 OPCFMDFC EQU IEDQOPCD+268 02159000 OPCSCNC EQU IEDQOPCD+264 02160000 OPCHORTG EQU IEDQOPCD+260 02161000 OPCHORT EQU IEDQOPCD+256 02162000 OPCCKPTL EQU IEDQOPCD+252 02163000 OPCCKPTF EQU IEDQOPCD+248 02164000 OPCWAITA EQU IEDQOPCD+244 02165000 OPCWAITR EQU IEDQOPCD+240 02166000 OPCWAITP EQU IEDQOPCD+236 02167000 OPCWAITO EQU IEDQOPCD+232 02168000 OPCWAITN EQU IEDQOPCD+228 02169000 OPCWAITL EQU IEDQOPCD+224 02170000 OPCWAITC EQU IEDQOPCD+220 02171000 @NM00114 EQU OPCLDNME+5 02172000 @NM00113 EQU OPCLDNME 02173000 OPCWAIT EQU IEDQOPCD+192 02174000 OPCCKERB EQU IEDQOPCD+164 02175000 OPCBFERB EQU IEDQOPCD+148 02176000 OPCFLAG2 EQU IEDQOPCD+147 02177000 OPCFLAG1 EQU IEDQOPCD+146 02178000 OPCWRKSZ EQU IEDQOPCD+144 02179000 OPCRSAVE EQU IEDQOPCD+132 02180000 OPCQCBAD EQU IEDQOPCD+128 02181000 OPCTRMWA EQU IEDQOPCD+52 02182000 OPCPSTWT EQU IEDQOPCD+48 02183000 OPCTNTEA EQU IEDQOPCD+44 02184000 OPCLCB EQU IEDQOPCD+36 02185000 @NM00112 EQU IEDQOPCD+32 02186000 OPCIPLAD EQU IEDQOPCD+28 02187000 OPCTOFLK EQU IEDQOPCD+24 02188000 OPCOPTLK EQU IEDQOPCD+20 02189000 OPCDCBLK EQU IEDQOPCD+16 02190000 OPCDOUBL EQU IEDQOPCD 02191000 @NM00111 EQU NSLGRPNM+4 02192000 NSLOPCEP EQU NSLGRPNM 02193000 @NM00110 EQU IEDNSLD+34 02194000 NSLUNCNT EQU NSLERB+12 02195000 NSLBUFFR EQU NSLERB+9 02196000 @NM00109 EQU NSLESTAT 02197000 NSLMPPI EQU NSLESTAT 02198000 @NM00108 EQU NSLESTAT 02199000 NSLELINK EQU NSLERB+5 02200000 NSLERBPR EQU NSLERB+4 02201000 NSLERQCB EQU NSLERB 02202000 NSLFLGBK EQU IEDNSLD+19 02203000 NSLPRIBK EQU IEDNSLD+18 02204000 NSLTTCIN EQU IEDNSLD+16 02205000 NSLCTTRM EQU IEDNSLD+13 02206000 @NM00107 EQU NSLGPCUS 02207000 NSLDRDRV EQU NSLGPCUS 02208000 NSLSDIAL EQU NSLGPCUS 02209000 NSLNGPSL EQU NSLGPCUS 02210000 NSLGPTSP EQU NSLGPCUS 02211000 NSLNGPST EQU NSLGPCUS 02212000 NSLSAVE EQU IEDNSLD+9 02213000 @NM00106 EQU NSLPLCB 02214000 NSLPLCBR EQU NSLPLCB 02215000 NSLOPRE EQU IEDNSLD 02216000 NSLSAVE2 EQU IEDNNSLD+4 02217000 NSLSAVE1 EQU IEDNNSLD 02218000 SAVTLLCB EQU IEDNSVTD+316 02219000 SAVTBITN EQU IEDNSVTD+312 02220000 @NM00105 EQU SAVTCKQB+8 02221000 @NM00104 EQU SAVTCKEC+1 02222000 @NM00103 EQU SAVTCKCC 02223000 SAVTCKPO EQU SAVTCKCC 02224000 SAVTCKWA EQU SAVTCKCC 02225000 SAVTCKCH EQU SAVTCKTB+1 02226000 SAVTCKVT EQU SAVTCKTB 02227000 @NM00102 EQU IEDNSVTD+297 02228000 SAVTRDFG EQU SAVTRDRV+12 02229000 @NM00101 EQU SAVTRDRV+5 02230000 SAVTRDPY EQU SAVTRDRV+4 02231000 SAVTRDQB EQU SAVTRDRV+1 02232000 SAVTRDKY EQU SAVTRDRV 02233000 SAVTNID EQU IEDNSVTD+280 02234000 SAVTDVAS EQU IEDNSVTD+276 02235000 SAVTPLSZ EQU IEDNSVTD+274 02236000 @NM00100 EQU IEDNSVTD+273 02237000 SAVTSUBL EQU IEDNSVTD+272 02238000 @NM00099 EQU SAVTZELM+1 02239000 SAVTSUBM EQU SAVTZELM 02240000 SAVTMHDX EQU IEDNSVTD+268 02241000 SAVTNAT1 EQU IEDNSVTD+266 02242000 SAVTSH20 EQU IEDNSVTD+264 02243000 SAVTLCBS EQU IEDNSVTD+260 02244000 SAVTRNMP EQU IEDNSVTD+256 02245000 SAVTTNTX EQU IEDNSVTD+252 02246000 SAVTNAX EQU IEDNSVTD+248 02247000 SAVTSUBV EQU IEDNSVTD+247 02248000 SAVTSUBA EQU IEDNSVTD+246 02249000 SAVTSIBC EQU IEDNSVTD+244 02250000 SAVTBSM EQU IEDNSVTD+240 02251000 SAVTSCPT EQU SAVTTCPU 02252000 SAVTRQTG EQU IEDNSVTD+236 02253000 SAVTRQCH EQU IEDNSVTD+232 02254000 SAVTMAND EQU IEDNSVTD+228 02255000 SAVTNADL EQU IEDNSVTD+222 02256000 SAVTNATL EQU IEDNSVTD+220 02257000 SAVTMHTB EQU IEDNSVTD+216 02258000 SAVTSSMH EQU IEDNSVTD+212 02259000 SAVTQRS EQU IEDNSVTD+208 02260000 SAVTRQIN EQU IEDNSVTD+204 02261000 SAVTDFCO EQU IEDNSVTD+200 02262000 SAVTSAO EQU IEDNSVTD+196 02263000 SAVTSARI EQU IEDNSVTD+192 02264000 SAVTSAC EQU IEDNSVTD+188 02265000 SAVTSAI EQU IEDNSVTD+184 02266000 SAVTCSCI EQU IEDNSVTD+180 02267000 SAVTSSRP EQU IEDNSVTD+176 02268000 SAVTSSRQ EQU IEDNSVTD+172 02269000 SAVTSCLU EQU IEDNSVTD+168 02270000 SAVTXTRQ EQU IEDNSVTD+164 02271000 SAVTMVBF EQU IEDNSVTD+160 02272000 @NM00098 EQU IEDNSVTD+148 02273000 SAVTIPCQ EQU IEDNSVTD+144 02274000 @NM00097 EQU IEDNSVTD+136 02275000 SAVTXFMI EQU IEDNSVTD+132 02276000 @NM00096 EQU IEDNSVTD+124 02277000 SAVTXFMO EQU IEDNSVTD+120 02278000 @NM00095 EQU IEDNSVTD+116 02279000 SAVTSSSR EQU IEDNSVTD+112 02280000 SAVTSCPQ EQU IEDNSVTD+108 02281000 SAVTSLCB EQU IEDNSVTD+104 02282000 SAVTLUSR EQU IEDNSVTD+100 02283000 @NM00094 EQU SAVTLUSQ+8 02284000 SAVTLUSP EQU SAVTLUSQ+4 02285000 SAVTLUSB EQU SAVTLUSQ 02286000 @NM00093 EQU IEDNSVTD+84 02287000 SAVTSAT EQU IEDNSVTD+80 02288000 SAVTNAT EQU IEDNSVTD+76 02289000 SAVTCLUP EQU IEDNSVTD+72 02290000 SAVTPIUT EQU IEDNSVTD+68 02291000 SAVTRNTA EQU IEDNSVTD+64 02292000 SAVTDNIR EQU IEDNSVTD+60 02293000 SAVTCNIR EQU IEDNSVTD+56 02294000 SAVTFLDH EQU IEDNSVTD+52 02295000 SAVTSRTN EQU IEDNSVTD+48 02296000 SAVTSREQ EQU IEDNSVTD+44 02297000 SAVTFAIL EQU IEDNSVTD+42 02298000 SAVTSUSE EQU IEDNSVTD+40 02299000 SAVTSIB EQU IEDNSVTD+36 02300000 SAVTPRTN EQU IEDNSVTD+32 02301000 @NM00092 EQU IEDNSVTD+28 02302000 SAVTWH20 EQU IEDNSVTD+26 02303000 SAVTPWT EQU IEDNSVTD+24 02304000 SAVTPRTQ EQU IEDNSVTD+20 02305000 SAVTPREQ EQU IEDNSVTD+16 02306000 SAVTPH20 EQU IEDNSVTD+14 02307000 SAVTPUSE EQU IEDNSVTD+12 02308000 SAVTPLCB EQU IEDNSVTD+8 02309000 SAVTPOOL EQU IEDNSVTD+4 02310000 SAVTPRMT EQU SAVTDIAF 02311000 SAVTVIRT EQU SAVTDIAF 02312000 AVTCPBNO EQU IEDQAVTD+1244 02313000 AVTHRESS EQU IEDQAVTD+1243 02314000 @NM00091 EQU IEDQAVTD+1242 02315000 @NM00090 EQU IEDQAVTD+1241 02316000 @NM00089 EQU IEDQAVTD+1240 02317000 @NM00088 EQU IEDQAVTD+1237 02318000 @NM00087 EQU IEDQAVTD+1236 02319000 AVTHRESE EQU @NM00086 02320000 AVTRADDR EQU IEDQAVTD+1228 02321000 AVTNADDR EQU IEDQAVTD+1224 02322000 AVTHRESN EQU IEDQAVTD+1220 02323000 AVTVOLRN EQU IEDQAVTD+1216 02324000 AVTTOTNN EQU IEDQAVTD+1212 02325000 AVTTRCYN EQU IEDQAVTD+1208 02326000 AVTRCTRN EQU IEDQAVTD+1204 02327000 AVTNOVON EQU IEDQAVTD+1200 02328000 AVTADEBN EQU IEDQAVTD+1196 02329000 AVTVOLRR EQU IEDQAVTD+1192 02330000 AVTTOTNR EQU IEDQAVTD+1188 02331000 AVTTRCYR EQU IEDQAVTD+1184 02332000 AVTRCTRR EQU IEDQAVTD+1180 02333000 AVTNOVOR EQU IEDQAVTD+1176 02334000 AVTADEBR EQU IEDQAVTD+1172 02335000 AVTLODPT EQU IEDQAVTD+1168 02336000 AVTIOBN EQU IEDQAVTD+1164 02337000 AVTIOBR EQU IEDQAVTD+1160 02338000 AVTCPBPT EQU IEDQAVTD+1156 02339000 AVTFCPB EQU IEDQAVTD+1152 02340000 @NM00085 EQU IEDQAVTD+1148 02341000 AVTINCPQ EQU IEDQAVTD+1144 02342000 @NM00084 EQU IEDQAVTD+1140 02343000 @NM00083 EQU IEDQAVTD+1137 02344000 @NM00082 EQU AVTBIT4 02345000 @NM00081 EQU AVTBIT4 02346000 @NM00080 EQU AVTBIT4 02347000 @NM00079 EQU AVTBIT4 02348000 @NM00078 EQU AVTBIT4 02349000 @NM00077 EQU AVTBIT4 02350000 @NM00076 EQU AVTBIT4 02351000 AVTRUFTN EQU AVTBIT4 02352000 @NM00075 EQU IEDQAVTD+1132 02353000 AVTNOBFQ EQU IEDQAVTD+1128 02354000 @NM00074 EQU IEDQAVTD+1124 02355000 AVTDKENQ EQU IEDQAVTD+1120 02356000 @NM00073 EQU IEDQAVTD+1116 02357000 AVTDKAPQ EQU IEDQAVTD+1112 02358000 AVTCOPY EQU IEDQAVTD+1108 02359000 AVTIA EQU IEDQAVTD+1104 02360000 AVTFL EQU IEDQAVTD+1100 02361000 @NM00072 EQU IEDQAVTD+1096 02362000 AVTNCPBQ EQU IEDQAVTD+1092 02363000 AVTTOTNC EQU IEDQAVTD+1088 02364000 AVTCMAX EQU IEDQAVTD+1084 02365000 AVTCMIN EQU IEDQAVTD+1080 02366000 AVTHM02 EQU IEDQAVTD+1076 02367000 AVTOPCIN EQU IEDQAVTD+1074 02368000 AVTDCTLN EQU IEDQAVTD+1072 02369000 AVTOPMSK EQU IEDQAVTD+1068 02370000 AVTDDFT EQU IEDQAVTD+1064 02371000 AVTSTEAL EQU IEDQAVTD+1060 02372000 AVTOPTN EQU IEDQAVTD+1056 02373000 AVTDSKCT EQU IEDQAVTD+1054 02374000 AVTCKRST EQU IEDQAVTD+1053 02375000 AVTSTAN EQU AVTBIT3 02376000 AVTSTACN EQU AVTBIT3 02377000 AVTSTAIN EQU AVTBIT3 02378000 AVTSTAYN EQU AVTBIT3 02379000 AVTOLTBN EQU AVTBIT3 02380000 AVTTSAB EQU AVTBIT3 02381000 AVTRFULN EQU AVTBIT3 02382000 AVTRECVN EQU AVTBIT3 02383000 @NM00071 EQU AVTBIT2 02384000 @NM00070 EQU AVTBIT2 02385000 AVTOPEIN EQU AVTBIT2 02386000 AVTSTRTN EQU AVTBIT2 02387000 AVTTOPOL EQU AVTBIT2 02388000 AVTCOPYN EQU AVTBIT2 02389000 AVTREUSN EQU AVTBIT2 02390000 AVTEXTSC EQU AVTBIT2 02391000 AVTDISKN EQU AVTBIT1 02392000 AVTQUCKN EQU AVTBIT1 02393000 AVTCLOSN EQU AVTBIT1 02394000 AVTREADN EQU AVTBIT1 02395000 AVTDLAYN EQU AVTBIT1 02396000 AVTAQTAN EQU AVTBIT1 02397000 AVTTSON EQU AVTBIT1 02398000 AVTAPLKN EQU AVTBIT1 02399000 AVTDUMBR EQU IEDQAVTD+1048 02400000 AVTDLQX EQU IEDQAVTD+1046 02401000 AVTINTLV EQU IEDQAVTD+1044 02402000 AVTSMCNT EQU IEDQAVTD+1042 02403000 AVTAVFCT EQU IEDQAVTD+1040 02404000 AVTOPCON EQU IEDQAVTD+1038 02405000 AVTOPCNT EQU IEDQAVTD+1036 02406000 AVTLNCNT EQU IEDQAVTD+1034 02407000 AVTKEYLE EQU IEDQAVTD+1032 02408000 AVTHA16 EQU IEDQAVTD+1030 02409000 AVTHA7 EQU IEDQAVTD+1028 02410000 AVTHA4 EQU IEDQAVTD+1026 02411000 AVTHA3 EQU IEDQAVTD+1024 02412000 AVTHA2 EQU IEDQAVTD+1022 02413000 AVTGETMS EQU IEDQAVTD+1021 02414000 @NM00069 EQU IEDQAVTD+1020 02415000 AVTGETMD EQU IEDQAVTD+1016 02416000 AVTGETMN EQU IEDQAVTD+1012 02417000 AVTCWTOT EQU IEDQAVTD+1008 02418000 AVTCWINT EQU IEDQAVTD+956 02419000 AVTDTRAP EQU IEDQAVTD+952 02420000 @NM00068 EQU IEDQAVTD+950 02421000 @NM00067 EQU AVTIOTR 02422000 AVTIOTRH EQU AVTIOTR 02423000 AVTIOTRE EQU AVTIOTR 02424000 @NM00066 EQU AVTSUBT 02425000 AVTSUBPT EQU AVTSUBT 02426000 AVTSUBON EQU AVTSUBT 02427000 AVTAFE30 EQU IEDQAVTD+944 02428000 AVTAFE20 EQU IEDQAVTD+940 02429000 AVTAFE10 EQU IEDQAVTD+936 02430000 AVTCWEC2 EQU IEDQAVTD+932 02431000 AVTCWPM2 EQU IEDQAVTD+928 02432000 AVTCWTS2 EQU IEDQAVTD+927 02433000 AVTCWTS1 EQU IEDQAVTD+926 02434000 AVTCWCLD EQU AVTCWFL2 02435000 AVTCWRAP EQU AVTCWFL2 02436000 @NM00065 EQU AVTCWFL2 02437000 @NM00064 EQU AVTCWFL2 02438000 @NM00063 EQU AVTCWFL2 02439000 @NM00062 EQU AVTCWFL2 02440000 @NM00061 EQU AVTCWFL2 02441000 AVTCWACT EQU AVTCWFL2 02442000 @NM00060 EQU AVTCWFL1 02443000 @NM00059 EQU AVTCWFL1 02444000 @NM00058 EQU AVTCWFL1 02445000 @NM00057 EQU AVTCWFL1 02446000 @NM00056 EQU AVTCWFL1 02447000 @NM00055 EQU AVTCWFL1 02448000 @NM00054 EQU AVTCWFL1 02449000 AVTCOMWN EQU AVTCWFL1 02450000 AVTCWEC1 EQU IEDQAVTD+920 02451000 AVTCWPM1 EQU IEDQAVTD+916 02452000 AVTCAREA EQU IEDQAVTD+912 02453000 AVTFZERO EQU IEDQAVTD+908 02454000 AVTCADDR EQU IEDQAVTD+904 02455000 AVTCOREC EQU IEDQAVTD+900 02456000 @NM00053 EQU IEDQAVTD+892 02457000 AVTCPBCB EQU IEDQAVTD+888 02458000 @NM00052 EQU IEDQAVTD+880 02459000 AVTDSIOB EQU IEDQAVTD+876 02460000 @NM00051 EQU IEDQAVTD+868 02461000 AVTCPRMB EQU IEDQAVTD+864 02462000 @NM00050 EQU IEDQAVTD+856 02463000 AVTCLOSB EQU IEDQAVTD+852 02464000 @NM00049 EQU IEDQAVTD+844 02465000 AVTACTIB EQU IEDQAVTD+840 02466000 @NM00048 EQU IEDQAVTD+836 02467000 AVTOLTEB EQU IEDQAVTD+832 02468000 AVTOLTCH EQU AVTOLTQB+1 02469000 AVTOLTVT EQU AVTOLTQB 02470000 @NM00047 EQU AVTOPCQB+8 02471000 @NM00046 EQU AVTOPCEC+1 02472000 @NM00045 EQU AVTOPCCC 02473000 AVTOPCPO EQU AVTOPCCC 02474000 AVTOPCWA EQU AVTOPCCC 02475000 AVTOPCCH EQU AVTOPCOB+1 02476000 AVTOPCVT EQU AVTOPCOB 02477000 @NM00044 EQU AVTCKPQB+9 02478000 AVTCKPTS EQU AVTCKPQB+8 02479000 @NM00043 EQU AVTCKPEC+1 02480000 @NM00042 EQU AVTCKPCC 02481000 AVTCKPPO EQU AVTCKPCC 02482000 AVTCKPWA EQU AVTCKPCC 02483000 AVTCKPCH EQU AVTCKPTB+1 02484000 AVTCKPVT EQU AVTCKPTB 02485000 @NM00041 EQU IEDQAVTD+796 02486000 AVTBFRTB EQU IEDQAVTD+792 02487000 @NM00040 EQU IEDQAVTD+788 02488000 AVTSELCH EQU IEDQAVTD+785 02489000 AVTBFRTN EQU AVTBFRFG 02490000 AVTBFREB EQU IEDQAVTD+780 02491000 AVTTIMQ EQU IEDQAVTD+776 02492000 @NM00039 EQU IEDQAVTD+772 02493000 AVTIMQPS EQU IEDQAVTD+768 02494000 AVTINOUT EQU IEDQAVTD+766 02495000 AVTREFTM EQU IEDQAVTD+764 02496000 @NM00038 EQU IEDQAVTD+752 02497000 AVTDELYB EQU IEDQAVTD+748 02498000 AVTOCQPT EQU IEDQAVTD+744 02499000 AVTTSOPT EQU IEDQAVTD+740 02500000 AVTSUPPT EQU IEDQAVTD+736 02501000 AVTCBQCB EQU IEDQAVTD+732 02502000 AVTMSGS EQU IEDQAVTD+729 02503000 @NM00037 EQU AVTSYSER 02504000 @NM00036 EQU AVTSYSER 02505000 @NM00035 EQU AVTSYSER 02506000 @NM00034 EQU AVTSYSER 02507000 @NM00033 EQU AVTSYSER 02508000 @NM00032 EQU AVTSYSER 02509000 AVTCMAXN EQU AVTSYSER 02510000 AVTCMINN EQU AVTSYSER 02511000 AVT2260L EQU IEDQAVTD+724 02512000 AVTABEPL EQU AVTADBUF 02513000 AVTHFF EQU AVTCLRHI+2 02514000 @NM00031 EQU AVTCLRHI 02515000 AVTCCLNK EQU AVTCRELE+5 02516000 AVTCCPRI EQU AVTCRELE+4 02517000 AVTCCQCB EQU AVTCCELE+1 02518000 AVTCCKEY EQU AVTCCELE 02519000 AVTDELAD EQU IEDQAVTD+704 02520000 AVTDELEM EQU IEDQAVTD+700 02521000 AVTBSX EQU AVTCKLNK 02522000 AVTOPETR EQU AVTHG01 02523000 @NM00030 EQU AVTCKBYT 02524000 AVTCKONQ EQU AVTCKBYT 02525000 @NM00029 EQU AVTCKBYT 02526000 @NM00028 EQU AVTCKBYT 02527000 @NM00027 EQU AVTCKBYT 02528000 @NM00026 EQU AVTCKBYT 02529000 @NM00025 EQU AVTCKBYT 02530000 @NM00024 EQU AVTCKBYT 02531000 AVTOPERT EQU IEDQAVTD+690 02532000 AVTOPXCL EQU IEDQAVTD+688 02533000 AVTOPERL EQU IEDQAVTD+687 02534000 @NM00023 EQU IEDQAVTD+686 02535000 AVTCKTIM EQU IEDQAVTD+684 02536000 AVTCKELV EQU IEDQAVTD+682 02537000 AVTCPRCD EQU IEDQAVTD+681 02538000 AVTWARMN EQU AVTCKELF 02539000 AVTCRTLN EQU AVTCKELF 02540000 AVTCPIPN EQU AVTCKELF 02541000 AVTCCLCN EQU AVTCKELF 02542000 AVTCINCN EQU AVTCKELF 02543000 @NM00022 EQU AVTCKELF 02544000 AVTCMCPN EQU AVTCKELF 02545000 AVTNQBCK EQU AVTCKELF 02546000 AVTCKQAD EQU IEDQAVTD+677 02547000 AVTSCBSZ EQU IEDQAVTD+676 02548000 @NM00021 EQU IEDQAVTD+672 02549000 AVTCKELE EQU IEDQAVTD+668 02550000 @NM00020 EQU AVTCKPEL+8 02551000 AVTCKRLK EQU AVTCKPEL+5 02552000 AVTCKRPR EQU AVTCKPEL+4 02553000 AVTCKRMQ EQU AVTCKRMV+1 02554000 AVTCKRKY EQU AVTCKRMV 02555000 AVTHK EQU IEDQAVTD+648 02556000 AVTHI EQU IEDQAVTD+644 02557000 AVTIOT EQU IEDQAVTD+640 02558000 AVTNX EQU IEDQAVTD+636 02559000 AVTTONE EQU IEDQAVTD+632 02560000 AVTA3TL EQU IEDQAVTD+628 02561000 AVTDMECB EQU IEDQAVTD+624 02562000 AVTABEND EQU IEDQAVTD+618 02563000 AVTPLCBN EQU IEDQAVTD+616 02564000 @NM00019 EQU AVTSAVTP+1 02565000 @NM00018 EQU AVTSAVTF 02566000 AVTSNA EQU AVTSAVTF 02567000 AVTONSNA EQU AVTSAVTF 02568000 AVTVTMCP EQU AVTSAVTF 02569000 @NM00017 EQU IEDQAVTD+608 02570000 AVTCMBSS EQU IEDQAVTD+604 02571000 AVTRCV EQU IEDQAVTD+600 02572000 AVTSEND EQU IEDQAVTD+596 02573000 AVTCSCH EQU IEDQAVTD+592 02574000 AVTQ1 EQU IEDQAVTD+588 02575000 AVTE7 EQU IEDQAVTD+584 02576000 AVTHB EQU IEDQAVTD+580 02577000 AVTR1 EQU IEDQAVTD+576 02578000 AVTBZ EQU IEDQAVTD+572 02579000 AVTEZ EQU IEDQAVTD+568 02580000 AVTEC EQU IEDQAVTD+564 02581000 AVTEW EQU IEDQAVTD+560 02582000 AVTNDIAL EQU AVTSCOPT 02583000 AVTN2741 EQU AVTSCOPT 02584000 AVTCONCO EQU AVTSCOPT 02585000 AVTCONC EQU AVTSCOPT 02586000 AVTCMBUF EQU AVTSCOPT 02587000 AVTAPDMP EQU AVTSCOPT 02588000 @NM00016 EQU AVTSCOPT 02589000 AVTHA EQU AVTDISP 02590000 AVTEA EQU IEDQAVTD+548 02591000 AVTAX EQU IEDQAVTD+544 02592000 AVTA3 EQU IEDQAVTD+540 02593000 AVTGD EQU IEDQAVTD+536 02594000 AVTAL EQU IEDQAVTD+532 02595000 AVTOLTST EQU AVTHG02 02596000 AVTE8 EQU IEDQAVTD+524 02597000 AVTUI EQU IEDQAVTD+520 02598000 AVTCOMPT EQU IEDQAVTD+516 02599000 AVTCRSRF EQU IEDQAVTD+512 02600000 @NM00015 EQU IEDQAVTD+508 02601000 AVTKA02 EQU IEDQAVTD+504 02602000 AVTOPTPT EQU IEDQAVTD+500 02603000 AVTPCBPT EQU IEDQAVTD+496 02604000 @NM00014 EQU AVTECB1 02605000 AVTCOMP EQU AVTECB1 02606000 @NM00013 EQU AVTECB1 02607000 AVTOPECA EQU IEDQAVTD+488 02608000 AVTOLECA EQU IEDQAVTD+484 02609000 AVTCKECA EQU IEDQAVTD+480 02610000 AVTCWECA EQU IEDQAVTD+476 02611000 AVTCWTCB EQU IEDQAVTD+472 02612000 AVTOLTCB EQU IEDQAVTD+468 02613000 AVTOCTCB EQU IEDQAVTD+464 02614000 AVTCKTCB EQU IEDQAVTD+460 02615000 AVTAS EQU IEDQAVTD+456 02616000 AVTNCKPR EQU IEDQAVTD+453 02617000 AVTCIB EQU IEDQAVTD+452 02618000 AVTSPLPT EQU IEDQAVTD+448 02619000 AVTMVBFR EQU IEDQAVTD+444 02620000 AVTSBTA EQU IEDQAVTD+440 02621000 AVTRARTN EQU IEDQAVTD+436 02622000 AVTBSCAN EQU IEDQAVTD+432 02623000 AVTRDYA EQU IEDQAVTD+428 02624000 AVTDISTR EQU IEDQAVTD+420 02625000 AVTPARM3 EQU IEDQAVTD+416 02626000 @NM00012 EQU AVTPKF 02627000 @NM00011 EQU AVTPKF 02628000 @NM00010 EQU AVTPKF 02629000 AVTFTCHF EQU AVTPKF 02630000 @NM00009 EQU AVTPKF 02631000 @NM00008 EQU AVTPKF 02632000 @NM00007 EQU AVTPKF 02633000 @NM00006 EQU AVTPKF 02634000 AVTPARM EQU IEDQAVTD+408 02635000 AVTEXS2A EQU IEDQAVTD+402 02636000 AVTEXA2S EQU IEDQAVTD+396 02637000 AVTOCGET EQU IEDQAVTD+392 02638000 AVTCKAVT EQU @NM00004+1 02639000 @NM00005 EQU AVTCKFLG 02640000 AVTCKHLT EQU AVTCKFLG 02641000 AVTCKREQ EQU AVTCKFLG 02642000 AVTCKENV EQU AVTCKFLG 02643000 AVTCKNAC EQU AVTCKFLG 02644000 AVTCKTAC EQU AVTCKFLG 02645000 AVTBUENT EQU IEDQAVTD+386 02646000 @NM00003 EQU IEDQAVTD+385 02647000 AVTFULLT EQU AVTBUFSW 02648000 AVTUNCON EQU AVTBUFSW 02649000 @NM00002 EQU AVTBUFSW 02650000 AVTBUFTR EQU AVTREADD 02651000 AVTREADY EQU IEDQAVTD+376 02652000 AVTRACE EQU IEDQAVTD+372 02653000 AVTTCB EQU IEDQAVTD+368 02654000 AVTPASWD EQU IEDQAVTD+360 02655000 AVTCTLCH EQU IEDQAVTD+352 02656000 AVTDOUBL EQU IEDQAVTD+344 02657000 AVTDOUBX EQU IEDQAVTD+336 02658000 AVTDPARM EQU IEDQAVTD+332 02659000 AVTCSTCS EQU IEDQAVTD+328 02660000 AVTDLQ EQU AVTSAVEX+32 02661000 @NM00001 EQU AVTSAVEX 02662000 AVTSAVE4 EQU IEDQAVTD+216 02663000 AVTSAVE3 EQU IEDQAVTD+144 02664000 AVTSAVE2 EQU IEDQAVTD+72 02665000 AVTSAVE1 EQU IEDQAVTD 02666000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 02667000 @RC00372 EQU @RC00363 02668000 @RC00503 EQU @RC00499 02669000 @RC00589 EQU @RC00353 02670000 @RC00361 EQU @RC00353 02671000 @RC00648 EQU @RC00353 02672000 @RC00722 EQU @RC00694 02673000 @RC00376 EQU @RC00372 02674000 @RC00671 EQU @RC00648 02675000 @RC00735 EQU @RC00722 02676000 @RC00404 EQU @RC00376 02677000 @RC00737 EQU @RC00735 02678000 @RC00777 EQU @RC00735 02679000 @RC00411 EQU @RC00404 02680000 @RC00750 EQU @RC00737 02681000 @RC00751 EQU @RC00750 02682000 @ENDDATA EQU * 02683000 END IGCFE10D,(C'PLS0751',0701,78129) 02684000