TITLE 'IGG019TI - FIRST LEVEL DATA HANDLER *00001000 ' 00002000 IGG019TI CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 * /* 00005000 * FIRST LEVEL DATA HANDLER QCB - 3 WORDS 00006000 DC A(0) ELEMENT CHAIN 00007000 DC A(0) LINK 00008000 DC AL1(06) STCB VTO 00009000 DC AL3(*-1) STCB POINTER 00010000 USING IGG019TI,RBASE MODULE ADDRESSABILITY 00011000 * RBASE=RQCB; /* SET BASE REGISTER - REGISTER 7 00012000 * AT ENTRY POINTS TO QCB AT 00013000 * OFFSET +0 IN THIS MODULE */ 00014000 LR RBASE,RQCB 02S0287 00015000 * RFY 02S0288 00016000 * RQCB UNRSTD; 02S0288 00017000 * GEN NOREFS NOSETS NOEXIT SEQFLOW; 02S0289 00018000 IGG019TI IEDHJN AFTERHJN,HJN IDENTIFICATION MACRO 00019000 * IF RINPUT->PRFPRI=PRIAIPL THEN /* IF INPUT IS LCB @YM02949*/ 00020000 CLI PRFPRI(RINPUT),X'DE' 02S0290 00021000 BNE @RF00290 02S0290 00022000 * DO; /* POST OPRE TO OPERATOR CONTROL 00023000 * @YM02949*/ 00024000 * RLCB=RINPUT; /* GET LCB ADDRESS @YM02949*/ 00025000 LR RLCB,RINPUT 02S0292 00026000 * RPARM=CPAOPRE; /* GET OPRE ADDRESS @YM02949*/ 00027000 L RPARM,CPAOPRE(,RLCB) 02S0293 00028000 * CALL DSPPOST; /* POST OPRE TO OPERATOR CONTROL 00029000 * @YM02949*/ 00030000 LA @15,DSPPOST(,RDISP) 02S0294 00031000 BALR @14,@15 02S0294 00032000 * END; /* @YM02949*/ 00033000 * 02S0296 00034000 * /*****************************************************************/ 00035000 * /* */ 00036000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00037000 * /* PERFORM THE FUNCTION OF THE MODULE. */ 00038000 * /* */ 00039000 * /*****************************************************************/ 00040000 * 02S0296 00041000 * 03S0296 00042000 * /*****************************************************************/ 00043000 * /* */ 00044000 * /* PROCESS.ENTRY: AT ENTRY ESTABLISH THE LCB ADDRESS, MOVE THE */ 00045000 * /* FIRST CCW BACK INTO THE UNIT FROM THE PREFIX, AND INITIALIZE */ 00046000 * /* THE FREE QUEUE POINTER AND THE INTERNAL STATE VALUES. */ 00047000 * /* */ 00048000 * /*****************************************************************/ 00049000 * 03S0296 00050000 * RPIU=RINPUT&CLRHI; /* GET POINTER TO FIRST PIU (AND 00051000 * CLEAR HI ORDER BYTE) */ 00052000 @RF00290 LR RPIU,RINPUT 03S0296 00053000 N RPIU,@CF01538 03S0296 00054000 * RUNIT=RPIU-LENGTH(IEDQCCW); /* GET ADDR OF CCW IN PREFIX TO 00055000 * THE 1ST PIU */ 00056000 LR @10,RPIU 03S0297 00057000 SL @10,@CF00044 03S0297 00058000 LR RUNIT,@10 03S0297 00059000 * RLCB=PRF1WD2; /* GET 3705 LCB ADDR SAVED BY TH 00060000 * @ZM48011*/ 00061000 L RLCB,PRF1WD2(,@10) 03S0298 00062000 * PRFRCB=RUNIT->CCW; /* RESTORE CCW FROM PREFIX TO 00063000 * START OF THE PIU */ 00064000 MVC PRFRCB(8,RPIU),CCW(RUNIT) 03S0299 00065000 * LCBFSBFR=ZERO; /* RESET FREE QUEUE POINTER */ 00066000 SLR @10,@10 03S0300 00067000 STCM @10,7,LCBFSBFR(RLCB) 03S0300 00068000 * RSTATE=NOSTATE; /* INITIALIZE INTERNAL STATE 00069000 * VALUES @YM03702*/ 00070000 SLR RSTATE,RSTATE 03S0301 00071000 * RUNIT=RPIU; /* SET CURRENT UNIT POINTER TO 00072000 * CURRENT PIU POINTER */ 00073000 LR RUNIT,RPIU 03S0302 00074000 * RFY 03S0303 00075000 * RINPUT UNRSTD; 03S0303 00076000 * IF PRFOPCDE=CCWWRITE| /* TEST 1ST CCW IN CHANNEL ... */ 00077000 * PRFOPCDE=CCWBRK THEN /* ... PROGRAM FOR A WRITE */ 00078000 CLI PRFOPCDE(RPIU),X'01' 02S0304 00079000 BE @RT00304 02S0304 00080000 CLI PRFOPCDE(RPIU),X'09' 02S0304 00081000 BNE @RF00304 02S0304 00082000 @RT00304 DS 0H 02S0305 00083000 * DO; /* PROCESS WRITE PIU'S */ 00084000 * 03S0306 00085000 * /*************************************************************/ 00086000 * /* */ 00087000 * /* PROCESS.WRITEPIU: PROCESS EACH WRITE PIU IN THE CHANNEL */ 00088000 * /* PROGRAM. THOSE PIU'S WHICH WERE NOT TRANSMITTED */ 00089000 * /* SUCCESSFULLY ARE REENQUEUED FOR LATER TRANSMISSION. THE */ 00090000 * /* UNITS OF THOSE WHICH WERE TRANSMITTED SUCCESSFULLY ARE */ 00091000 * /* PLACED ON THE FREE QUEUE. */ 00092000 * /* */ 00093000 * /*************************************************************/ 00094000 * 03S0306 00095000 * IF(LCBCSWCA-LENGTH(IEDQCCW))->CCWOPCDE=CCWWS0|/* IF INTERRUPT 00096000 * IS ON A WRITE START CCW THEN 00097000 * @YM09094*/ 00098000 * (LCBCSWCA-LENGTH(IEDQCCW))->CCWOPCDE=CCWWS1 THEN/* 03S0306 00099000 * @YM09094*/ 00100000 L @10,LCBCSWCA-1(,RLCB) 03S0306 00101000 LA @10,0(,@10) 03S0306 00102000 SL @10,@CF00044 03S0306 00103000 CLI CCWOPCDE(@10),X'31' 03S0306 00104000 BE @RT00306 03S0306 00105000 CLI CCWOPCDE(@10),X'51' 03S0306 00106000 BNE @RF00306 03S0306 00107000 @RT00306 DS 0H 03S0307 00108000 * RSTATE=DRAIN; /* ALL PIUS IN THE WRITE BTU 00109000 * SHOULD BE REPOSTED TO THE CORE 00110000 * QUEUE @YM09094*/ 00111000 LA RSTATE,1 03S0307 00112000 * DO UNTIL RSTATE=ENDWRITE; /* @YM03702*/ 00113000 @RF00306 DS 0H 03S0308 00114000 @DL00308 DS 0H 03S0309 00115000 * 04S0309 00116000 * /***********************************************************/ 00117000 * /* */ 00118000 * /* PROCESS.WRITEPIU.SCANPIU: SCAN THE WRITE PIU COUNTING */ 00119000 * /* THE UNITS IN THE THE PIU. IF THE INTERRUPTED CCW IS IN */ 00120000 * /* THE PIU,SET THE INDICATOR 'DRAIN' SO THAT THE PIU (AND */ 00121000 * /* ALL SUBSEQUENT WRITE PIU'S) WILL BE REENQUEUED TO THE */ 00122000 * /* LCB CORE QUEUE. */ 00123000 * /* */ 00124000 * /***********************************************************/ 00125000 * 04S0309 00126000 * RFY 04S0309 00127000 * (RWORK, 04S0309 00128000 * RPIUSZ) RSTD; 04S0309 00129000 * RPIU=RUNIT; /* SET PIU TO THE CURRENT UNIT */ 00130000 LR RPIU,RUNIT 04S0310 00131000 * RPIUSZ=PRFPIUO+LENGTH(IEDTH)+TTHDCF;/* COMPUTE PIU SIZE */ 00132000 SLR @07,@07 04S0311 00133000 IC @07,PRFPIUO(,RPIU) 04S0311 00134000 LA RPIUSZ,10 04S0311 00135000 ALR RPIUSZ,@07 04S0311 00136000 LA @03,PRFPIUO(,RPIU) 04S0311 00137000 ALR @07,@03 04S0311 00138000 SLR @03,@03 04S0311 00139000 ICM @03,3,TTHDCF(@07) 04S0311 00140000 ALR RPIUSZ,@03 04S0311 00141000 * RCOUNT=ZERO; /* INITIALIZE COUNT OF UNITS */ 00142000 SLR RCOUNT,RCOUNT 04S0312 00143000 * DO UNTIL RPIUSZ<=ZERO; /* PROCESS EACH UNIT OF THE PIU 00144000 * UNTIL THE END OF THE PIU IS 00145000 * REACHED */ 00146000 @DL00313 DS 0H 04S0314 00147000 * IF RSTATE^=DRAIN THEN /* HAS THE INTERRUPTED CCW BEEN 00148000 * FOUND @YM03702*/ 00149000 LA @07,1 04S0314 00150000 CR RSTATE,@07 04S0314 00151000 BE @RF00314 04S0314 00152000 * DO; /* NO, TEST FOR INTERRUPTED CCW */ 00153000 * IF RUNIT->PRFOPCDE=CCWBRK THEN/* IS THIS A WRITE 00154000 * BREAK CCW */ 00155000 CLI PRFOPCDE(RUNIT),X'09' 04S0316 00156000 BNE @RF00316 04S0316 00157000 * IF RUNIT=LCBCSWCA THEN/* YES, WAS INTERRUPT ON THIS 00158000 * CCW */ 00159000 L @03,LCBCSWCA-1(,RLCB) 04S0317 00160000 LA @03,0(,@03) 04S0317 00161000 CR RUNIT,@03 04S0317 00162000 BNE @RF00317 04S0317 00163000 * RSTATE=DRAIN; /* INDICATE THAT THE INTERRUPTED 00164000 * CCW IS FOUND @YM03702*/ 00165000 LR RSTATE,@07 04S0318 00166000 * ELSE 04S0319 00167000 * ; 04S0319 00168000 @RF00317 DS 0H 04S0320 00169000 * ELSE /* CCW IS NOT A WRITE BREAK */ 00170000 * IF RUNIT=LCBCSWCA-LENGTH(IEDQCCW) THEN/* WAS 04S0320 00171000 * INTERRUPT ON THIS CCW */ 00172000 B @RC00316 04S0320 00173000 @RF00316 L @07,LCBCSWCA-1(,RLCB) 04S0320 00174000 LA @07,0(,@07) 04S0320 00175000 SL @07,@CF00044 04S0320 00176000 CR RUNIT,@07 04S0320 00177000 BNE @RF00320 04S0320 00178000 * RSTATE=DRAIN; /* INDICATE THAT THE INTERRUPTED 00179000 * CCW IS FOUND @YM03702*/ 00180000 LA RSTATE,1 04S0321 00181000 * END; 04S0322 00182000 @RF00320 DS 0H 04S0322 00183000 @RC00316 DS 0H 04S0323 00184000 * RWORK=RUNIT; /* SAVE UNIT ADDR (IN CASE IT IS 00185000 * LAST UNIT) */ 00186000 @RF00314 LR RWORK,RUNIT 04S0323 00187000 * RUNIT=RUNIT->PRFTI0; /* GET NEXT UNIT */ 00188000 L @07,PRFTI0-1(,RUNIT) 04S0324 00189000 LA @07,0(,@07) 04S0324 00190000 LR RUNIT,@07 04S0324 00191000 * RCOUNT=RCOUNT+1; /* INCREMENT COUNT OF UNITS IN 00192000 * THE PIU */ 00193000 AL RCOUNT,@CF00059 04S0325 00194000 * RPIUSZ=RPIUSZ-AVTKEYLE; /* DECREMENT PIU SIZE BY LENGTH 00195000 * OF A UNIT */ 00196000 SH RPIUSZ,AVTKEYLE(,RAVT) 04S0326 00197000 * END; 04S0327 00198000 @DE00313 LTR RPIUSZ,RPIUSZ 04S0327 00199000 BP @DL00313 04S0327 00200000 * RWORK->PRFTIC=INVTIC; /* SET INVALID TIC IN LAST UNIT */ 00201000 MVC PRFTIC(4,RWORK),INVTIC 04S0328 00202000 * RFY 04S0329 00203000 * (RWORK, 04S0329 00204000 * RPIUSZ) UNRSTD; 04S0329 00205000 * IF RSTATE=DRAIN THEN /* SHOULD PIU BE REENQUEUED 03S0330 00206000 * @YM03702*/ 00207000 C RSTATE,@CF00059 03S0330 00208000 BNE @RF00330 03S0330 00209000 * DO; /* YES, REENQUEUE ON LCB CORE 00210000 * QUEUE */ 00211000 * PRFQCBA=ADDR(LCBCOREQ);/* QUEUE TO LCB CORE QUEUE */ 00212000 LA @10,LCBCOREQ(,RLCB) 03S0332 00213000 STCM @10,7,PRFQCBA(RPIU) 03S0332 00214000 * PRFPRI=PRIOUTQ; /* SET PRIORITY */ 00215000 MVI PRFPRI(RPIU),X'E0' 03S0333 00216000 * RFY 03S0334 00217000 * RPARM RSTD; 03S0334 00218000 * RPARM=RPIU; /* MAKE THE PIU THE ELEMENT TO 00219000 * TPOST */ 00220000 LR RPARM,RPIU 03S0335 00221000 * CALL DSPPOSTR; /* CALL DISPATCHER TO TPOST THE 00222000 * ELEMENT */ 00223000 LA @15,DSPPOSTR(,RDISP) 03S0336 00224000 BALR @14,@15 03S0336 00225000 * RFY 03S0337 00226000 * RPARM UNRSTD; 03S0337 00227000 * END; 03S0338 00228000 * ELSE /* DO NOT REENQUEUE */ 00229000 * DO; /* PLACE ITS UNITS ON FREE QUEUE */ 00230000 B @RC00330 03S0339 00231000 @RF00330 DS 0H 03S0340 00232000 * 04S0340 00233000 * /*******************************************************/ 00234000 * /* */ 00235000 * /* PROCESS.WRITEPIU.PROCPIU: PLACE THE UNITS OF THE */ 00236000 * /* WRITE PIU ON THE FREE QUEUE. */ 00237000 * /* */ 00238000 * /*******************************************************/ 00239000 * 04S0340 00240000 * RFY 04S0340 00241000 * RWORK RSTD; 04S0340 00242000 * PRFNBUNT=RCOUNT; /* SET COUNT OF UNITS IN THIS 00243000 * BUFFER */ 00244000 STC RCOUNT,PRFNBUNT(,RPIU) 04S0341 00245000 * IF LCBFSBFR^=ZERO THEN/* IS THERE A BUFFER ON THE FREE 00246000 * QUEUE */ 00247000 L @10,LCBFSBFR-1(,RLCB) 04S0342 00248000 LA @10,0(,@10) 04S0342 00249000 LTR @10,@10 04S0342 00250000 BZ @RF00342 04S0342 00251000 * DO UNTIL RCOUNT=ZERO;/* YES, ADD UNITS OF THIS PIU TO 00252000 * THE BUFFER */ 00253000 @DL00343 DS 0H 04S0344 00254000 * RWORK=PRFTI0; /* GET NEXT UNIT */ 00255000 L RWORK,PRFTI0-1(,RPIU) 04S0344 00256000 LA RWORK,0(,RWORK) 04S0344 00257000 * IF LCBFSBFR->PRFNBUNT=MAXUNITS THEN/* IS MAXIMUM 00258000 * UNITS PER BUFFER REACHED */ 00259000 L @10,LCBFSBFR-1(,RLCB) 04S0345 00260000 LA @10,0(,@10) 04S0345 00261000 CLI PRFNBUNT(@10),255 04S0345 00262000 BNE @RF00345 04S0345 00263000 * DO; /* YES, MAX IS REACHED */ 00264000 * PRFNBUNT=1; /* BEGIN NEW BUFFER BY SETTING 00265000 * NUMBER OF UNITS TO 1 */ 00266000 MVI PRFNBUNT(RPIU),X'01' 04S0347 00267000 * PRFLINK=LCBFSBFR;/* LINK CURRENT PIU TO BUFFER 00268000 * ON FREE QUEUE */ 00269000 STCM @10,7,PRFLINK(RPIU) 04S0348 00270000 * PRFTIC=INVTIC;/* SET INVALID TIC IN UNIT */ 00271000 MVC PRFTIC(4,RPIU),INVTIC 04S0349 00272000 * LCBFSBFR=RPIU;/* PUT CURRENT UNIT AS 1ST BUFFER 00273000 * ON FREE QUEUE */ 00274000 STCM RPIU,7,LCBFSBFR(RLCB) 04S0350 00275000 * END; 04S0351 00276000 * ELSE /* MAX IS NOT REACHED */ 00277000 * DO; 04S0352 00278000 B @RC00345 04S0352 00279000 @RF00345 DS 0H 04S0353 00280000 * PRFNBUNT=LCBFSBFR->PRFNBUNT+1;/* INCREMENT 00281000 * NUMBER OF UNITS ON FREE QUEUE */ 00282000 L @10,LCBFSBFR-1(,RLCB) 04S0353 00283000 LA @10,0(,@10) 04S0353 00284000 LA @07,1 04S0353 00285000 SLR @03,@03 04S0353 00286000 IC @03,PRFNBUNT(,@10) 04S0353 00287000 ALR @07,@03 04S0353 00288000 STC @07,PRFNBUNT(,RPIU) 04S0353 00289000 * PRFTI0=LCBFSBFR;/* POINT THIS UNIT TO 1ST ON 00290000 * FREE QUEUE */ 00291000 STCM @10,7,PRFTI0(RPIU) 04S0354 00292000 * PRFLINK=LCBFSBFR->PRFLINK;/* SAVE LINK FROM OLD 00293000 * 1ST ON QUEUE */ 00294000 MVC PRFLINK(3,RPIU),PRFLINK(@10) 04S0355 00295000 * LCBFSBFR=RPIU;/* MAKE THIS UNIT 1ST ON FREE 00296000 * QUEUE */ 00297000 STCM RPIU,7,LCBFSBFR(RLCB) 04S0356 00298000 * END; 04S0357 00299000 * RCOUNT=RCOUNT-1; /* DECREMENT COUNT OF UNITS */ 00300000 @RC00345 BCTR RCOUNT,0 04S0358 00301000 * RPIU=RWORK; /* GET ADDRESS OF NEXT UNIT */ 00302000 LR RPIU,RWORK 04S0359 00303000 * END; 04S0360 00304000 @DE00343 LTR RCOUNT,RCOUNT 04S0360 00305000 BNZ @DL00343 04S0360 00306000 * ELSE /* NO BUFFERS ON FREE QUEUE */ 00307000 * DO; 04S0361 00308000 B @RC00342 04S0361 00309000 @RF00342 DS 0H 04S0362 00310000 * LCBFSBFR=RPIU; /* ADD THIS UNIT AS FIRST ON FREE 00311000 * QUEUE */ 00312000 STCM RPIU,7,LCBFSBFR(RLCB) 04S0362 00313000 * PRFLINK=ZERO; /* CLEAR LINK */ 00314000 SLR @10,@10 04S0363 00315000 STCM @10,7,PRFLINK(RPIU) 04S0363 00316000 * END; 04S0364 00317000 * RFY 04S0365 00318000 * RWORK UNRSTD; 04S0365 00319000 @RC00342 DS 0H 04S0366 00320000 * END; 03S0366 00321000 * IF RUNIT=INVTICA| /* IS ADDR OF NEXT UNIT INVALID 00322000 * OR ... */ 00323000 * RUNIT->PRFOPCDE=CCWREAD THEN/* ... IS NEXT CCW A READ */ 00324000 @RC00330 SLR @10,@10 03S0367 00325000 ICM @10,7,INVTICA 03S0367 00326000 CR RUNIT,@10 03S0367 00327000 BE @RT00367 03S0367 00328000 CLI PRFOPCDE(RUNIT),X'02' 03S0367 00329000 BNE @RF00367 03S0367 00330000 @RT00367 DS 0H 03S0368 00331000 * RSTATE=ENDWRITE; /* YES, INDICATE THAT THE END OF 00332000 * THE WRITE PIU'S IS REACHED 00333000 * @YM03702*/ 00334000 LA RSTATE,2 03S0368 00335000 * END; 03S0369 00336000 @RF00367 DS 0H 03S0369 00337000 @DE00308 C RSTATE,@CF00130 03S0369 00338000 BNE @DL00308 03S0369 00339000 * END; 02S0370 00340000 * RFY 02S0371 00341000 * IEDQPRF BASED(RPRF); /* BASE FOR BUFFER UNIT */ 00342000 @RF00304 DS 0H 02S0372 00343000 * RPRF=RUNIT; /* SET CURRENT BUFFER TO CURRENT 00344000 * UNIT */ 00345000 LR RPRF,RUNIT 02S0372 00346000 * READBTU=0; /* INITIALIZE POINTER TO READ BTU*/ 00347000 SLR @10,@10 02S0373 00348000 STCM @10,7,READBTU(RLCB) 02S0373 00349000 * IF RPRF^=INVTICA THEN /* TEST FOR PRESENSE OF A VALID 00350000 * CCW => READ PIU */ 00351000 SLR @10,@10 02S0374 00352000 ICM @10,7,INVTICA 02S0374 00353000 CR RPRF,@10 02S0374 00354000 BE @RF00374 02S0374 00355000 * DO; /* PROCESS THE READ PIU'S */ 00356000 * 03S0376 00357000 * /*************************************************************/ 00358000 * /* */ 00359000 * /* PROCESS.READPIU.SCANREAD: SCAN EACH READ PIU AND COUNT THE*/ 00360000 * /* TOTAL NUMBER OF UNITS NEEDED TO REPLENISH THE UNIT COUNT. */ 00361000 * /* */ 00362000 * /*************************************************************/ 00363000 * 03S0376 00364000 * RFY 03S0376 00365000 * (REG9, 03S0376 00366000 * REG10) RSTD; 03S0376 00367000 * GEN REFS(LCBBFRAV,CSMASK2) SETS(REG9,REG10,LCBBFRAV); 03S0377 00368000 * /* 00369000 L REG10,LCBBFRAV-3(,RLCB) LOAD WORD CONTAINING @YM04622 00370000 * LCBBFRAV @YM04622 00371000 CSLOOP2 EQU * @YM04622 00372000 LR REG9,REG10 @YM04622 00373000 N REG9,CSMASK2 TURN OFF LCBBFRAV IN 9 @YM04622 00374000 CS REG10,REG9,LCBBFRAV-3(RLCB) CS LCBBFRAV @YM04622 00375000 BNE CSLOOP2 DO AGAIN IF NOT EQUAL @YM04622 00376000 * RFY 03S0378 00377000 * (REG9, 03S0378 00378000 * REG10) UNRSTD; /* @YM04622*/ 00379000 * READBTU=RPRF; /* SAVE READ BTU FOR POST */ 00380000 STCM RPRF,7,READBTU(RLCB) 03S0379 00381000 * RCOUNT=ZERO; /* CLEAR COUNT FIELD */ 00382000 SLR RCOUNT,RCOUNT 03S0380 00383000 * DO UNTIL RPRF=INVTICA; /* LOOP THROUGH READ CCW'S UNTIL 00384000 * INVALID TIC IS FOUND */ 00385000 @DL00381 DS 0H 03S0382 00386000 * RCOUNT=RCOUNT+1; /* INCREMENT COUNT OF UNITS */ 00387000 AL RCOUNT,@CF00059 03S0382 00388000 * RPRF=PRFTI0; /* GET NEXT UNIT */ 00389000 L @10,PRFTI0-1(,RPRF) 03S0383 00390000 LA @10,0(,@10) 03S0383 00391000 LR RPRF,@10 03S0383 00392000 * END; 03S0384 00393000 @DE00381 SLR @10,@10 03S0384 00394000 ICM @10,7,INVTICA 03S0384 00395000 CR RPRF,@10 03S0384 00396000 BNE @DL00381 03S0384 00397000 * LCBRBCT1=1; /* SET ONE BUFFER NEEDED */ 00398000 MVI LCBRBCT1(RLCB),X'01' 03S0385 00399000 * LCBRBCT2=RCOUNT; /* SET NUMBER OF UNITS NEEDED IN 00400000 * THE BUFFER */ 00401000 STC RCOUNT,LCBRBCT2(,RLCB) 03S0386 00402000 * END; 02S0387 00403000 * 03S0388 00404000 * /*****************************************************************/ 00405000 * /* */ 00406000 * /* PROCESS.READPIU: SCAN THE READ PIU'S COUNTING THE NUMBER OF */ 00407000 * /* UNITS NEEDED TO REPLENISH THE READ COUNT. USE THE UNITS ON THE*/ 00408000 * /* FREE QUEUE TO REPLENISH THE COUNT. IF MORE UNITS ARE ON THE */ 00409000 * /* QUEUE THAN ARE NEEDED, THEN POST THE EXTRA UNITS TO THE FREE */ 00410000 * /* POOL. IF NOT ENOUGH UNITS ARE AVAILABLE, THEN POST THE ERB TO */ 00411000 * /* REQUEST MORE. */ 00412000 * /* */ 00413000 * /*****************************************************************/ 00414000 * 03S0388 00415000 * DO WHILE LCBFSBFR^=ZERO; /* REMOVE BUFFERS FROM THE FREE 00416000 * QUEUE WHILE THERE ARE BUFFERS 00417000 * ON THE QUEUE */ 00418000 @RF00374 B @DE00388 03S0388 00419000 @DL00388 DS 0H 03S0389 00420000 * RPRF=LCBFSBFR; /* MAKE 1ST ON THE FREE QUEUE THE 00421000 * CURRENT BUFFER */ 00422000 L RPRF,LCBFSBFR-1(,RLCB) 03S0389 00423000 LA RPRF,0(,RPRF) 03S0389 00424000 * LCBFSBFR=PRFLINK; /* MAKE THE NEXT BUFFER THE 1ST 00425000 * ON FREE QUEUE */ 00426000 MVC LCBFSBFR(3,RLCB),PRFLINK(RPRF) 03S0390 00427000 * IF LCBRBCT2^=ZERO THEN /* ARE UNITS NEEDED TO REPLENISH 00428000 * READ COUNT */ 00429000 CLI LCBRBCT2(RLCB),0 03S0391 00430000 BE @RF00391 03S0391 00431000 * IF PRFNBUNT>=LCBRBCT2 THEN /* YES, ARE THERE ENOUGH UNITS IN 00432000 * THIS BUFFER TO REPLENISH THE 00433000 * COUNT */ 00434000 CLC PRFNBUNT(1,RPRF),LCBRBCT2(RLCB) 03S0392 00435000 BL @RF00392 03S0392 00436000 * DO; /* YES, MOVE THE UNITS TO THE ERB 00437000 * FROM THE FREE QUEUE */ 00438000 * 04S0394 00439000 * /*********************************************************/ 00440000 * /* */ 00441000 * /* PROCESS.READPIU.ADDUNITS: ADD UNITS TO THE ERB. THE */ 00442000 * /* UNITS ARE OBTAINED FROM THE FREE QUEUE. */ 00443000 * /* */ 00444000 * /*********************************************************/ 00445000 * 04S0394 00446000 * DO UNTIL LCBRBCT2=ZERO; /* ADD UNITS TO ERB UNTIL NUMBER 00447000 * OF REQUIRED UNITS IS OBTAINED */ 00448000 @DL00394 DS 0H 04S0395 00449000 * RUNIT=RPRF; /* DELINK ... */ 00450000 LR RUNIT,RPRF 04S0395 00451000 * RPRF=PRFTI0; /* ... THE UNIT */ 00452000 L @10,PRFTI0-1(,RPRF) 04S0396 00453000 LA @10,0(,@10) 04S0396 00454000 LR RPRF,@10 04S0396 00455000 * IF RPRF^=INVTICA THEN /* IS THERE ANOTHER UNIT */ 00456000 SLR @10,@10 04S0397 00457000 ICM @10,7,INVTICA 04S0397 00458000 CR RPRF,@10 04S0397 00459000 BE @RF00397 04S0397 00460000 * PRFNBUNT=RUNIT->PRFNBUNT-1;/* YES, CHANGE THE UNIT 00461000 * COUNT */ 00462000 SLR @10,@10 04S0398 00463000 IC @10,PRFNBUNT(,RUNIT) 04S0398 00464000 BCTR @10,0 04S0398 00465000 STC @10,PRFNBUNT(,RPRF) 04S0398 00466000 * IF LCBERBCH=ZERO THEN /* IS THE ERB CHAIN EMPTY */ 00467000 @RF00397 L @10,LCBERBCH-1(,RLCB) 04S0399 00468000 LA @10,0(,@10) 04S0399 00469000 LTR @10,@10 04S0399 00470000 BNZ @RF00399 04S0399 00471000 * RUNIT->PRFNBUNT=1; /* YES, INDICATE ONE UNIT ON 00472000 * CHAIN */ 00473000 MVI PRFNBUNT(RUNIT),X'01' 04S0400 00474000 * ELSE /* ERB CHAIN IS NOT EMPTY */ 00475000 * RUNIT->PRFNBUNT=LCBERBCH->PRFNBUNT+1;/* UPDATE COUNT 00476000 * OF UNITS */ 00477000 B @RC00399 04S0401 00478000 @RF00399 L @10,LCBERBCH-1(,RLCB) 04S0401 00479000 LA @09,1 04S0401 00480000 SLR @07,@07 04S0401 00481000 IC @07,PRFNBUNT(,@10) 04S0401 00482000 ALR @09,@07 04S0401 00483000 STC @09,PRFNBUNT(,RUNIT) 04S0401 00484000 * RUNIT->PRFTI0=LCBERBCH;/* CHAIN THE UNIT ... */ 00485000 @RC00399 MVC PRFTI0(3,RUNIT),LCBERBCH(RLCB) 04S0402 00486000 * LCBERBCH=RUNIT; /* ... OFF THE ERB */ 00487000 STCM RUNIT,7,LCBERBCH(RLCB) 04S0403 00488000 * LCBRBCT2=LCBRBCT2-1; /* DECREMENT COUNT OF UNITS 04S0404 00489000 * NEEDED */ 00490000 SLR @10,@10 04S0404 00491000 IC @10,LCBRBCT2(,RLCB) 04S0404 00492000 BCTR @10,0 04S0404 00493000 STC @10,LCBRBCT2(,RLCB) 04S0404 00494000 * END; 04S0405 00495000 @DE00394 CLI LCBRBCT2(RLCB),0 04S0405 00496000 BNE @DL00394 04S0405 00497000 * LCBERBQB=RLCB; /* POST ERB TO DRIVE THE RECEIVE 00498000 * SCHEDULER */ 00499000 STCM RLCB,7,LCBERBQB(RLCB) 04S0406 00500000 * LCBERBPY=PRIINTRQ; /* SET PRIORITY */ 00501000 MVI LCBERBPY(RLCB),X'E4' 04S0407 00502000 * RFY 04S0408 00503000 * RPARM RSTD; 04S0408 00504000 * RPARM=ADDR(LCBERB); /* MAKE THE ERB THE ELEMENT TO 00505000 * TPOST* */ 00506000 LA RPARM,LCBERB(,RLCB) 04S0409 00507000 * CALL DSPPOSTR; /* CALL DISPATCHER TO TPOST THE 00508000 * ELEMENT */ 00509000 LA @15,DSPPOSTR(,RDISP) 04S0410 00510000 BALR @14,@15 04S0410 00511000 * RFY 04S0411 00512000 * RPARM UNRSTD; 04S0411 00513000 * END; 03S0412 00514000 * IF RPRF^=INVTICA THEN /* ARE THERE UNITS IN THIS BUFFER 00515000 * THAT ARE NOT NEEDED */ 00516000 @RF00392 DS 0H 03S0413 00517000 @RF00391 SLR @10,@10 03S0413 00518000 ICM @10,7,INVTICA 03S0413 00519000 CR RPRF,@10 03S0413 00520000 BE @RF00413 03S0413 00521000 * DO; /* YES, POST THEM TO THE FREE 00522000 * POOL */ 00523000 * PRFQCBA=ADDR(AVTBFRTB); /* SET TO QUEUE TO FREE POOL */ 00524000 LA @10,AVTBFRTB(,RAVT) 03S0415 00525000 STCM @10,7,PRFQCBA(RPRF) 03S0415 00526000 * PRFPRI=PRIBFRTB; /* SET PRIORITY */ 00527000 MVI PRFPRI(RPRF),X'E0' 03S0416 00528000 * RFY 03S0417 00529000 * RPARM RSTD; 03S0417 00530000 * RPARM=RPRF; /* MAKE THE BUFFER THE ELEMENT TO 00531000 * TPOST */ 00532000 LR RPARM,RPRF 03S0418 00533000 * CALL DSPPOSTR; /* CALL DISPATCHER TO TPOST THE 00534000 * ELEMENT */ 00535000 LA @15,DSPPOSTR(,RDISP) 03S0419 00536000 BALR @14,@15 03S0419 00537000 * RFY 03S0420 00538000 * RPARM UNRSTD; 03S0420 00539000 * END; 03S0421 00540000 * END; 03S0422 00541000 @RF00413 DS 0H 03S0422 00542000 @DE00388 L @10,LCBFSBFR-1(,RLCB) 03S0422 00543000 LA @10,0(,@10) 03S0422 00544000 LTR @10,@10 03S0422 00545000 BNZ @DL00388 03S0422 00546000 * 04S0423 00547000 * /*****************************************************************/ 00548000 * /* */ 00549000 * /* PROCESS.READPIU.POSTERB: IF BUFFER UNITS ARE NEEDED FROM THE */ 00550000 * /* BUFFER FREE POOL TO REPLENISH THE READ COUNT, THEN POST THE */ 00551000 * /* ERB TO GET THEM. */ 00552000 * /* */ 00553000 * /*****************************************************************/ 00554000 * 04S0423 00555000 * IF LCBRBCT2^=ZERO THEN /* ARE UNITS NEEDED */ 00556000 CLI LCBRBCT2(RLCB),0 04S0423 00557000 BE @RF00423 04S0423 00558000 * DO; /* YES, POST THE ERB */ 00559000 * LCBDLNKN=OFF; /* INDICATE ERB POSTED */ 00560000 NI LCBDLNKN(RLCB),B'11111110' 04S0425 00561000 * LCBRCQCB=RLCB; /* SET QCB TO WHICH BUFFERS WILL 00562000 * BE TPOSTED */ 00563000 ST RLCB,LCBRCQCB(,RLCB) 04S0426 00564000 * LCBERBQB=ADDR(AVTBFREB); /* QUEUE ERB TO AVAILABLE BUFFER 00565000 * ROUTINE */ 00566000 LA @10,AVTBFREB(,RAVT) 04S0427 00567000 STCM @10,7,LCBERBQB(RLCB) 04S0427 00568000 * LCBERBPY=PRIINTRQ; /* SET PRIORITY */ 00569000 MVI LCBERBPY(RLCB),X'E4' 04S0428 00570000 * RFY 04S0429 00571000 * RPARM RSTD; 04S0429 00572000 * RPARM=ADDR(LCBERB); /* MAKE THE ERB THE ELEMENT TO 00573000 * TPOST */ 00574000 LA RPARM,LCBERB(,RLCB) 04S0430 00575000 * CALL DSPPOSTR; /* CALL DISPATCHER TO TPOST 04S0431 00576000 * ELEMENT */ 00577000 LA @15,DSPPOSTR(,RDISP) 04S0431 00578000 BALR @14,@15 04S0431 00579000 * RFY 04S0432 00580000 * RPARM UNRSTD; 04S0432 00581000 * END; 04S0433 00582000 * 03S0434 00583000 * /*****************************************************************/ 00584000 * /* */ 00585000 * /* PROCESS.EXIT: POST LCB TO ITSELF IF THE ERB HAS NOT BEEN */ 00586000 * /* POSTED. SET LCB FIELDS AND POST ANY READ PIU'S TO PATH */ 00587000 * /* CONTROL. */ 00588000 * /* */ 00589000 * /*****************************************************************/ 00590000 * 03S0434 00591000 * IF LCBDLNKN=ON& /* IS THE ... */ 00592000 * LCBERBCH=ZERO THEN /* ... ERB POSTED */ 00593000 @RF00423 TM LCBDLNKN(RLCB),B'00000001' 03S0434 00594000 BNO @RF00434 03S0434 00595000 L @10,LCBERBCH-1(,RLCB) 03S0434 00596000 LA @10,0(,@10) 03S0434 00597000 LTR @10,@10 03S0434 00598000 BNZ @RF00434 03S0434 00599000 * DO; /* NO, POST THE LCB TO ITSELF */ 00600000 * LCBQCBA=RLCB; /* SET LCB AS THE QCB */ 00601000 STCM RLCB,7,LCBQCBA(RLCB) 03S0436 00602000 * LCBPRI=PRIRESUM; /* SET PRIORITY @YM08511*/ 00603000 MVI LCBPRI(RLCB),X'E5' 03S0437 00604000 * RFY 03S0438 00605000 * RPARM RSTD; 03S0438 00606000 * RPARM=RLCB; /* MAKE THE LCB THE ELEMENT TO 00607000 * TPOST */ 00608000 LR RPARM,RLCB 03S0439 00609000 * CALL DSPPOSTR; /* CALL DISPATCHER TO TPOST 03S0440 00610000 * ELEMENT */ 00611000 LA @15,DSPPOSTR(,RDISP) 03S0440 00612000 BALR @14,@15 03S0440 00613000 * RFY 03S0441 00614000 * RPARM UNRSTD; 03S0441 00615000 * END; 03S0442 00616000 * LCBSTAT1=CLEAR; /* CLEAR STATE FIELD */ 00617000 @RF00434 MVI LCBSTAT1(RLCB),X'00' 03S0443 00618000 * RFY 03S0444 00619000 * (REG9, 03S0444 00620000 * REG10) RSTD; /* @YM04622*/ 00621000 * GEN REFS(CSMASK1,LCBRECVN) /* @YM04622*/ 00622000 * SETS(REG9,REG10,LCBRECVN); 03S0445 00623000 * /* @YM04622*/ 00624000 * /* 00625000 L REG10,LCBRECVN-2(,RLCB) LOAD WORD CONTAINING @YM04622 00626000 * LCBRECVN @YM04622 00627000 CSLOOP1 EQU * @YM04622 00628000 LR REG9,REG10 @YM04622 00629000 O REG9,CSMASK1 TURN ON LCBRECVN IN 9 @YM04622 00630000 CS REG10,REG9,LCBRECVN-2(RLCB) CS LCBRECVN @YM04622 00631000 BNE CSLOOP1 DO AGAIN IF NOT EQUAL @YM04622 00632000 * RFY 03S0446 00633000 * (REG9, 03S0446 00634000 * REG10) UNRSTD; /* @YM04622*/ 00635000 * LCBTSTSW=CLEAR; /* CLEAR TEST-AND-SET SWITCH */ 00636000 MVI LCBTSTSW(RLCB),X'00' 03S0447 00637000 * RFY 03S0448 00638000 * (RPARM, 03S0448 00639000 * RSTCB, 03S0448 00640000 * RQCB, 03S0448 00641000 * RRETURN) RSTD; 03S0448 00642000 * IF READBTU^=ZERO THEN /* IS READ BTU AVAILABLE */ 00643000 L @15,READBTU-1(,RLCB) 03S0449 00644000 LA @15,0(,@15) 03S0449 00645000 LTR @15,@15 03S0449 00646000 BZ @RF00449 03S0449 00647000 * DO; /* YES */ 00648000 * RPARM=READBTU; /* SET CURRENT PIU TO READ PIU */ 00649000 LR RPARM,@15 03S0451 00650000 * RPARM->PRFQCBA=SAVTIPCQ; /* SET DSPBYPAS QCB ADDRESS */ 00651000 L @15,AVTSAVTP(,RAVT) 03S0452 00652000 L @15,SAVTIPCQ(,@15) 03S0452 00653000 STCM @15,7,PRFQCBA(RPARM) 03S0452 00654000 * RPARM->PRFPRI=PRIFLDH; /* SET DSPBYPAS PRIORITY */ 00655000 MVI PRFPRI(RPARM),X'E4' 03S0453 00656000 * RQCB=SAVTIPCQ; /* QUEUE TO PATH CONTROL @YM03681*/ 00657000 LR RQCB,@15 03S0454 00658000 * RSTCB=QCBSTCHN; /* SET STCB POINTER @YM03681*/ 00659000 L RSTCB,QCBSTCHN-1(,RQCB) 03S0455 00660000 LA RSTCB,0(,RSTCB) 03S0455 00661000 * RRETURN=ADDR(DSPBYPAS); /* EXIT TO BY-PASS */ 00662000 LA RRETURN,DSPBYPAS(,RDISP) 03S0456 00663000 * END; 03S0457 00664000 * ELSE /* READ BTU NOT AVAILABLE */ 00665000 * RRETURN=ADDR(DSPDISP); /* RETURN TO DISPATCHER */ 00666000 B @RC00449 03S0458 00667000 @RF00449 LA RRETURN,DSPDISP(,RDISP) 03S0458 00668000 * RFY 03S0459 00669000 * (RPARM, 03S0459 00670000 * RSTCB, 03S0459 00671000 * RQCB, 03S0459 00672000 * RRETURN) UNRSTD; 03S0459 00673000 * END IGG019TI 01S0460 00674000 * 01S0460 00675000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00676000 */*%INCLUDE SYSLIB (TAVTD ) */ 00677000 */*%INCLUDE SYSLIB (TCCWD ) */ 00678000 */*%INCLUDE SYSLIB (TDISPD ) */ 00679000 */*%INCLUDE SYSLIB (TLCBD ) */ 00680000 */*%INCLUDE SYSLIB (TPRFD ) */ 00681000 */*%INCLUDE SYSLIB (TPRIOR ) */ 00682000 */*%INCLUDE SYSLIB (TQCBD ) */ 00683000 */*%INCLUDE SYSLIB (TTHD ) */ 00684000 */*%INCLUDE SYSUT5 (RFY ) */ 00685000 */*%INCLUDE SYSUT5 (DCL ) */ 00686000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 00687000 */*%INCLUDE SYSUT5 (PROCESS ) */ 00688000 */*%INCLUDE SYSUT5 (ENTRY ) */ 00689000 */*%INCLUDE SYSUT5 (WRITEPIU) */ 00690000 */*%INCLUDE SYSUT5 (SCANPIU ) */ 00691000 */*%INCLUDE SYSUT5 (PROCPIU ) */ 00692000 */*%INCLUDE SYSUT5 (SCANREAD) */ 00693000 */*%INCLUDE SYSUT5 (READPIU ) */ 00694000 */*%INCLUDE SYSUT5 (ADDUNITS) */ 00695000 */*%INCLUDE SYSUT5 (POSTERB ) */ 00696000 */*%INCLUDE SYSUT5 (EXIT ) */ 00697000 * 01S0460 00698000 * ; 01S0460 00699000 @EL00001 DS 0H 01S0460 00700000 @EF00001 DS 0H 01S0460 00701000 @ER00001 BR @14 01S0460 00702000 @DATA DS 0H 00703000 DS 0F 00704000 DS 0F 00705000 @CF00059 DC F'1' 00706000 @CF00130 DC F'2' 00707000 @CF00044 DC F'8' 00708000 @CF01538 DC XL4'00FFFFFF' 00709000 DS 0D 00710000 CSMASK1 DC X'00000200' 00711000 CSMASK2 DC X'FFFFFFFD' 00712000 INVTIC DS CL4 00713000 ORG INVTIC 00714000 INVTICC DC X'08' 00715000 INVTICA DC X'000002' 00716000 ORG INVTIC+4 00717000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00718000 @01 EQU 01 00719000 @02 EQU 02 00720000 @03 EQU 03 00721000 @04 EQU 04 00722000 @05 EQU 05 00723000 @06 EQU 06 00724000 @07 EQU 07 00725000 @08 EQU 08 00726000 @09 EQU 09 00727000 @10 EQU 10 00728000 @11 EQU 11 00729000 @12 EQU 12 00730000 @13 EQU 13 00731000 @14 EQU 14 00732000 @15 EQU 15 00733000 IEDQAPTR EQU @13 00734000 RDISP EQU @11 00735000 IEDQLPTR EQU @04 00736000 LCBXPTR EQU @05 00737000 IEDQPPTR EQU @06 00738000 IEDQQPTR EQU @07 00739000 RPIU EQU @06 00740000 RAVT EQU @13 00741000 RLCB EQU @04 00742000 RQCB EQU @07 00743000 RINPUT EQU @01 00744000 RPARM EQU @01 00745000 RSTATE EQU @02 00746000 RSTCB EQU @03 00747000 RCOUNT EQU @05 00748000 RPRF EQU @06 00749000 RUNIT EQU @08 00750000 RWORK EQU @09 00751000 REG9 EQU @09 00752000 REG10 EQU @10 00753000 RPIUSZ EQU @10 00754000 RBASE EQU @12 00755000 RRETURN EQU @14 00756000 RBRANCH EQU @15 00757000 REG0 EQU @00 00758000 IEDQAVTD EQU 0 00759000 AVTSAVEX EQU IEDQAVTD+216 00760000 @NM00003 EQU IEDQAVTD+316 00761000 AVTCKFLG EQU @NM00003 00762000 AVTBASE EQU IEDQAVTD+340 00763000 AVTPKF EQU AVTBASE 00764000 AVTOSECB EQU IEDQAVTD+420 00765000 AVTECB1 EQU AVTOSECB 00766000 AVTHG02 EQU IEDQAVTD+456 00767000 AVTDISP EQU IEDQAVTD+480 00768000 AVTHD EQU IEDQAVTD+484 00769000 AVTSCOPT EQU AVTHD 00770000 AVTSAVTP EQU IEDQAVTD+540 00771000 AVTSAVTF EQU AVTSAVTP 00772000 AVTCKPEL EQU IEDQAVTD+580 00773000 AVTCKRMV EQU AVTCKPEL 00774000 AVTCKELF EQU IEDQAVTD+608 00775000 AVTCKBYT EQU IEDQAVTD+619 00776000 AVTHG01 EQU IEDQAVTD+620 00777000 AVTCKLNK EQU IEDQAVTD+624 00778000 AVTCRELE EQU IEDQAVTD+636 00779000 AVTCCELE EQU AVTCRELE 00780000 AVTCLRHI EQU IEDQAVTD+644 00781000 AVTADBUF EQU IEDQAVTD+648 00782000 AVTSYSER EQU IEDQAVTD+656 00783000 AVTBFREB EQU IEDQAVTD+708 00784000 AVTBFRFG EQU IEDQAVTD+712 00785000 AVTBFRTB EQU IEDQAVTD+720 00786000 AVTCKPQB EQU IEDQAVTD+732 00787000 AVTCKPTB EQU AVTCKPQB 00788000 AVTCKPEC EQU AVTCKPQB+4 00789000 AVTCKPCC EQU AVTCKPEC 00790000 AVTOPCQB EQU IEDQAVTD+744 00791000 AVTOPCOB EQU AVTOPCQB 00792000 AVTOPCEC EQU AVTOPCQB+4 00793000 AVTOPCCC EQU AVTOPCEC 00794000 AVTOLTQB EQU IEDQAVTD+756 00795000 AVTCWFL1 EQU IEDQAVTD+852 00796000 AVTCWFL2 EQU IEDQAVTD+853 00797000 AVTSUBT EQU IEDQAVTD+876 00798000 AVTIOTR EQU IEDQAVTD+877 00799000 AVTKEYLE EQU IEDQAVTD+960 00800000 AVTBIT1 EQU IEDQAVTD+978 00801000 AVTBIT2 EQU IEDQAVTD+979 00802000 AVTBIT3 EQU IEDQAVTD+980 00803000 AVTBIT4 EQU IEDQAVTD+1064 00804000 @NM00085 EQU IEDQAVTD+1160 00805000 IEDNSVTD EQU 0 00806000 SAVTDIAG EQU IEDNSVTD 00807000 SAVTDIAF EQU SAVTDIAG 00808000 SAVTLUSQ EQU IEDNSVTD+88 00809000 SAVTIPCQ EQU IEDNSVTD+144 00810000 SAVTTCPU EQU IEDNSVTD+238 00811000 SAVTZELM EQU IEDNSVTD+270 00812000 SAVTRDRV EQU IEDNSVTD+284 00813000 SAVTCKQB EQU IEDNSVTD+300 00814000 SAVTCKTB EQU SAVTCKQB 00815000 SAVTCKEC EQU SAVTCKQB+4 00816000 SAVTCKCC EQU SAVTCKEC 00817000 SAVTNETF EQU IEDNSVTD+324 00818000 SAVTCDRV EQU IEDNSVTD+332 00819000 IEDQCCW EQU 0 00820000 CCW EQU IEDQCCW 00821000 CCWOPCDE EQU CCW 00822000 CCWFLAGS EQU CCW+4 00823000 IEDQDISP EQU 0 00824000 DSPDISP EQU 4 00825000 DSPBYPAS EQU 20 00826000 DSPPOST EQU 24 00827000 DSPPOSTR EQU 28 00828000 IEDQLCB EQU 0 00829000 LCBRCB EQU IEDQLCB 00830000 LCBQCBA EQU LCBRCB+1 00831000 LCBPRI EQU LCBRCB+4 00832000 LCBTSOB EQU IEDQLCB+19 00833000 LCBCHAIN EQU IEDQLCB+20 00834000 LCBSCRNN EQU LCBCHAIN 00835000 LCBTETEN EQU LCBCHAIN 00836000 LCBINSRC EQU IEDQLCB+21 00837000 LCBLKMDE EQU LCBINSRC+2 00838000 LCBNTXT EQU IEDQLCB+24 00839000 LCBSTAT4 EQU LCBNTXT 00840000 LCBPHASE EQU LCBSTAT4 00841000 LCBSCBDA EQU IEDQLCB+25 00842000 LCBMHA EQU IEDQLCB+29 00843000 LCBFSBFR EQU LCBMHA 00844000 LCBFLAG1 EQU IEDQLCB+32 00845000 LCBIOBSN EQU IEDQLCB+33 00846000 LCBSNS EQU LCBIOBSN+1 00847000 LCBSENS0 EQU LCBSNS 00848000 LCBLOSDT EQU LCBSENS0 00849000 LCBTMOUT EQU LCBSENS0 00850000 LCBFLAG3 EQU LCBIOBSN+7 00851000 LCBCSW EQU LCBIOBSN+8 00852000 LCBCSWCA EQU LCBCSW 00853000 LCBCSWST EQU LCBCSW+3 00854000 LCBCSWUS EQU LCBCSWST 00855000 LCBCSWCS EQU LCBCSWST+1 00856000 LCBSIOCC EQU LCBIOBSN+15 00857000 LCBDCBPT EQU IEDQLCB+52 00858000 LCBRCQCB EQU IEDQLCB+56 00859000 LCBRESTR EQU LCBRCQCB 00860000 @NM00118 EQU IEDQLCB+60 00861000 LCBINCAM EQU @NM00118 00862000 LCBERRCT EQU IEDQLCB+62 00863000 LCBLSPCI EQU IEDQLCB+65 00864000 LCBRCBFR EQU LCBLSPCI 00865000 LCBSTATE EQU IEDQLCB+70 00866000 LCBSTAT1 EQU LCBSTATE 00867000 LCBRECVN EQU LCBSTAT1 00868000 LCBSTAT2 EQU LCBSTATE+1 00869000 LCBBEOTN EQU LCBSTAT2 00870000 LCBSYNC EQU LCBSTAT2 00871000 LCBDIAL EQU LCBSTAT2 00872000 LCBBFRAV EQU LCBDIAL 00873000 LCBTSTSW EQU IEDQLCB+72 00874000 LCBERB EQU IEDQLCB+76 00875000 LCBERBQB EQU LCBERB+1 00876000 LCBERBPY EQU IEDQLCB+80 00877000 LCBERBST EQU IEDQLCB+84 00878000 LCBDLNKN EQU LCBERBST 00879000 LCBERBCH EQU IEDQLCB+85 00880000 LCBERBCT EQU IEDQLCB+88 00881000 LCBRBCT1 EQU LCBERBCT 00882000 LCBRBCT2 EQU LCBERBCT+1 00883000 LCBMSGFM EQU IEDQLCB+92 00884000 LCBOBRCH EQU IEDQLCB+96 00885000 LCBERMSK EQU LCBOBRCH 00886000 LCBNXMOD EQU LCBERMSK 00887000 LCBSTAT7 EQU LCBNXMOD 00888000 LCBINVPT EQU LCBOBRCH+1 00889000 LCBBFRW EQU LCBINVPT 00890000 LCBTPCD EQU IEDQLCB+100 00891000 LCBSTAT5 EQU LCBTPCD 00892000 LCBSTAT6 EQU LCBTPCD+4 00893000 LCBRSPSV EQU LCBTPCD+8 00894000 LCBSAVSN EQU IEDQLCB+112 00895000 LCBERCCW EQU IEDQLCB+120 00896000 LCBCPA EQU IEDQLCB+144 00897000 LCBCCW1 EQU LCBCPA 00898000 LCBCCW2 EQU LCBCPA+8 00899000 LCBCCW5 EQU LCBCPA+32 00900000 LCBATTEL EQU LCBCCW5 00901000 LCBQEBPL EQU LCBATTEL 00902000 IEDQLCBX EQU 0 00903000 LCBXCON EQU IEDQLCBX 00904000 LCBXFLAG EQU LCBXCON 00905000 LCBXDCT EQU LCBXCON+1 00906000 LCBXRADR EQU LCBXCON+4 00907000 IEDQPRF EQU 0 00908000 PRFRCB EQU IEDQPRF 00909000 PRFKEY EQU PRFRCB 00910000 PRFOPCDE EQU PRFKEY 00911000 PRFQCBA EQU PRFRCB+1 00912000 PRFPRI EQU PRFRCB+4 00913000 PRFLINK EQU PRFRCB+5 00914000 PRFTIC EQU IEDQPRF+8 00915000 PRFTICC EQU PRFTIC 00916000 PRFTI0 EQU PRFTIC+1 00917000 PRFVTCHK EQU PRFTI0+2 00918000 PRFNBUNT EQU IEDQPRF+12 00919000 PRFSUNIT EQU PRFNBUNT 00920000 PRFPLQCB EQU PRFSUNIT 00921000 PRFPIUO EQU PRFPLQCB 00922000 PRFSRCSZ EQU IEDQPRF+16 00923000 PRFSTAT1 EQU IEDQPRF+20 00924000 PRFEOFN EQU PRFSTAT1 00925000 PRFCORE EQU IEDQPRF+21 00926000 PRFXTRA EQU PRFCORE 00927000 PRFLU1TT EQU PRFXTRA+1 00928000 PRFSCAN EQU IEDQPRF+24 00929000 PRFTQBCK EQU IEDQPRF+26 00930000 PRFNTXT EQU PRFTQBCK 00931000 PRFEOBOF EQU PRFNTXT 00932000 PRFLU2TT EQU PRFNTXT+1 00933000 PRFCHDR EQU IEDQPRF+32 00934000 PRFHQBCK EQU IEDQPRF+35 00935000 IEDPF1 EQU 0 00936000 PRF1FLG1 EQU IEDPF1+3 00937000 PRF1WD2 EQU IEDPF1+4 00938000 PRF1SEQP EQU PRF1WD2 00939000 PRF1SQID EQU PRF1SEQP 00940000 PRF1TAG1 EQU PRF1SQID 00941000 PRF1RULN EQU PRF1SEQP+2 00942000 IEDPF2 EQU 0 00943000 PRF2FLG2 EQU IEDPF2 00944000 PRF2WD2 EQU IEDPF2+4 00945000 IEDQQCB EQU 0 00946000 QCBDSFLG EQU IEDQQCB 00947000 QCBDISK EQU QCBDSFLG 00948000 QCBELCHN EQU IEDQQCB+1 00949000 QCBSTCHN EQU IEDQQCB+9 00950000 QCBEOLDT EQU IEDQQCB+16 00951000 QCBBYTE1 EQU QCBEOLDT+1 00952000 QCBLKRLN EQU IEDQQCB+18 00953000 QCBRETCT EQU QCBLKRLN 00954000 QCBSTAT EQU IEDQQCB+19 00955000 QCBINSRC EQU IEDQQCB+21 00956000 QCBTSOF2 EQU QCBINSRC+1 00957000 QCBTSOF1 EQU QCBINSRC+2 00958000 QCBINTVL EQU IEDQQCB+24 00959000 QCBPREN EQU IEDQQCB+28 00960000 QCBLKRRN EQU QCBPREN+1 00961000 QCBDCBAD EQU IEDQQCB+33 00962000 QCBFLAG EQU IEDQQCB+36 00963000 IEDQPQCB EQU 0 00964000 QCBFHDLZ EQU IEDQPQCB+3 00965000 QCBFHDTZ EQU IEDQPQCB+6 00966000 QCBINTLF EQU IEDQPQCB+12 00967000 IEDNQCB EQU 0 00968000 QCBSTAT1 EQU IEDNQCB+4 00969000 QCBPLCBA EQU IEDNQCB+5 00970000 IEDTH EQU 0 00971000 TTHBYTE0 EQU IEDTH 00972000 TTHSNF EQU IEDTH+6 00973000 TTHTAG EQU TTHSNF 00974000 TTHTAG1 EQU TTHTAG 00975000 TTHDCF EQU IEDTH+8 00976000 DSPCHAIN EQU 12 00977000 DSPLIFO EQU 56 00978000 DSPLIFOR EQU 60 00979000 DSPLIST EQU 8 00980000 DSPPRIO EQU 48 00981000 DSPPRIOR EQU 52 00982000 DSPTRACE EQU 64 00983000 DSPTSTQ EQU 32 00984000 DSPTSTQR EQU 36 00985000 DSPUNAV EQU 40 00986000 DSPUNAVR EQU 44 00987000 DSPWAIT EQU 16 00988000 QCBLDCB EQU 0 00989000 LCBRSPIN EQU LCBIOBSN 00990000 LCBRHSV EQU LCBRSPIN+2 00991000 LCBLUSNS EQU LCBRSPIN+5 00992000 LCBSCPRS EQU LCBRSPIN+9 00993000 LCBCSWU1 EQU LCBSCPRS+2 00994000 LCBRSPFG EQU LCBRSPIN+15 00995000 LCBCOREQ EQU LCBTPCD 00996000 @NM00140 EQU LCBCPA+40 00997000 LCBQNX EQU LCBERCCW 00998000 LCBQNXMN EQU LCBQNX 00999000 LCBCANCL EQU LCBSAVSN 01000000 LCBCANFG EQU LCBCANCL 01001000 @NM00163 EQU PRFSRCSZ 01002000 @NM00173 EQU QCBFHDLZ 01003000 READBTU EQU LCBCCW2+5 01004000 CPA EQU LCBCCW1 01005000 CPAOPRE EQU CPA+4 01006000 PRFSHDR EQU IEDQPRF+42 01007000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01008000 @NM00178 EQU CPA 01009000 QCBPFEFO EQU @NM00173+1 01010000 QCBDATFL EQU @NM00173 01011000 PRFSVFLG EQU @NM00163+3 01012000 PRFSVFFO EQU @NM00163 01013000 @NM00147 EQU LCBCANCL+3 01014000 LCBCANTH EQU LCBCANCL+1 01015000 @NM00146 EQU LCBCANFG 01016000 LCBCANCD EQU LCBCANFG 01017000 @NM00145 EQU LCBCANFG 01018000 LCBCANEB EQU LCBCANFG 01019000 LCBCANXT EQU LCBCANFG 01020000 LCBUNADD EQU LCBQNX+21 01021000 LCBUASZE EQU LCBQNX+20 01022000 LCBDSTEA EQU LCBQNX+16 01023000 @NM00144 EQU LCBQNX+8 01024000 LCBIOSBS EQU LCBQNX+5 01025000 @NM00143 EQU LCBQNX+4 01026000 LCBSTSAV EQU LCBQNX+1 01027000 @NM00142 EQU LCBQNXMN 01028000 LCBNX509 EQU LCBQNXMN 01029000 LCBNX162 EQU LCBQNXMN 01030000 LCBNX142 EQU LCBQNXMN 01031000 LCBNX064 EQU LCBQNXMN 01032000 LCBSIBPT EQU @NM00140+8 01033000 LCBSUSPT EQU @NM00140+4 01034000 LCBNCPPT EQU @NM00140+1 01035000 @NM00141 EQU @NM00140 01036000 LCBWRSCH EQU LCBCOREQ+8 01037000 LCBCQLNK EQU LCBCOREQ+4 01038000 LCBCQELE EQU LCBCOREQ 01039000 LCBPAKCH EQU LCBRSPIN+16 01040000 @NM00139 EQU LCBRSPFG 01041000 LCBIMRSP EQU LCBRSPFG 01042000 LCBPRSPO EQU LCBRSPFG 01043000 LCBRSRH EQU LCBRSPFG 01044000 LCBEXPI EQU LCBRSPFG 01045000 @NM00138 EQU LCBRSPIN+12 01046000 LCBUSUE1 EQU LCBCSWU1 01047000 @NM00137 EQU LCBCSWU1 01048000 @NM00136 EQU LCBSCPRS+1 01049000 LCBDFCMD EQU LCBSCPRS 01050000 LCBUSER EQU LCBLUSNS+2 01051000 LCBSMIN EQU LCBLUSNS+1 01052000 LCBSMAJ EQU LCBLUSNS 01053000 LCBPACRS EQU LCBRHSV 01054000 @NM00135 EQU LCBRHSV 01055000 LCBSNS0 EQU LCBRSPIN+1 01056000 @NM00134 EQU LCBRSPIN 01057000 TTHTAG2 EQU TTHTAG+1 01058000 @NM00177 EQU TTHTAG1 01059000 TTHTAGS EQU TTHTAG1 01060000 TTHOAF EQU IEDTH+4 01061000 TTHDAF EQU IEDTH+2 01062000 TTHBYTE1 EQU IEDTH+1 01063000 TTHEFI EQU TTHBYTE0 01064000 @NM00176 EQU TTHBYTE0 01065000 TTHEBIU EQU TTHBYTE0 01066000 TTHBBIU EQU TTHBYTE0 01067000 TTHFTYPE EQU TTHBYTE0 01068000 QCBTTCIN EQU QCBPLCBA+1 01069000 @NM00175 EQU QCBPLCBA 01070000 @NM00174 EQU QCBSTAT1 01071000 QCBFLUSH EQU QCBSTAT1 01072000 QCBNDXRQ EQU QCBSTAT1 01073000 QCBESIG EQU QCBSTAT1 01074000 QCBRCVRQ EQU QCBSTAT1 01075000 QCBSNDRQ EQU QCBSTAT1 01076000 QCBWAITC EQU QCBSTAT1 01077000 QCBPLCBN EQU QCBSTAT1 01078000 QCBCHAIN EQU IEDNQCB 01079000 QCBPQBCK EQU IEDQPQCB+25 01080000 QCBPRIPQ EQU IEDQPQCB+24 01081000 QCBCFHDR EQU IEDQPQCB+21 01082000 QCBLFEFO EQU IEDQPQCB+18 01083000 QCBFFEFO EQU IEDQPQCB+15 01084000 QCBPREVF EQU QCBINTLF 01085000 QCBINTFF EQU IEDQPQCB+9 01086000 QCBDATSQ EQU QCBFHDTZ+1 01087000 @NM00172 EQU QCBFHDTZ 01088000 QCBDNHDR EQU IEDQPQCB 01089000 QCBQBACK EQU IEDQQCB+37 01090000 QCBCKPT EQU QCBFLAG 01091000 QCBPROC EQU QCBFLAG 01092000 QCBSDFFO EQU QCBFLAG 01093000 QCBTERMQ EQU QCBFLAG 01094000 QCBRSRV EQU QCBFLAG 01095000 QCBREAD EQU QCBFLAG 01096000 QCBNOBRK EQU QCBFLAG 01097000 QCBTSSES EQU QCBFLAG 01098000 QCBLGBAD EQU QCBDCBAD 01099000 QCBRELLN EQU IEDQQCB+32 01100000 QCBTJID EQU QCBLKRRN+1 01101000 QCBCARCT EQU QCBLKRRN 01102000 QCBPRLVL EQU QCBPREN 01103000 QCBMSGCT EQU IEDQQCB+26 01104000 QCBEXTO EQU QCBINTVL 01105000 QCBDISC EQU QCBTSOF1 01106000 QCBDELAY EQU QCBTSOF1 01107000 QCBPARTO EQU QCBTSOF1 01108000 QCBSATRD EQU QCBTSOF1 01109000 QCBNOBUF EQU QCBTSOF1 01110000 QCBTPUT EQU QCBTSOF1 01111000 QCBTGET EQU QCBTSOF1 01112000 QCBWRBRK EQU QCBTSOF1 01113000 QCBSATLC EQU QCBTSOF2 01114000 QCBSATTI EQU QCBTSOF2 01115000 QCBSATCH EQU QCBTSOF2 01116000 QCBSIMRD EQU QCBTSOF2 01117000 QCBDSSMI EQU QCBTSOF2 01118000 QCBPOSTO EQU QCBTSOF2 01119000 QCBBUFQ EQU QCBTSOF2 01120000 QCBINHBN EQU QCBTSOF2 01121000 QCBSATCT EQU QCBINSRC 01122000 QCBSCBOF EQU IEDQQCB+20 01123000 QCBTIME EQU QCBSTAT 01124000 QCBCLOCK EQU QCBSTAT 01125000 QCBSCHDL EQU QCBSTAT 01126000 QCBSMODE EQU QCBSTAT 01127000 QCBSEND EQU QCBSTAT 01128000 QCBBUFRD EQU QCBSTAT 01129000 QCBTRMHO EQU QCBSTAT 01130000 QCBEOM EQU QCBSTAT 01131000 QCBHUCT EQU QCBRETCT 01132000 QCBIEND EQU QCBRETCT 01133000 QCBEND EQU QCBRETCT 01134000 QCBNL EQU QCBRETCT 01135000 QCBLOGCT EQU QCBRETCT 01136000 @NM00171 EQU QCBBYTE1 01137000 QCBRITRM EQU QCBBYTE1 01138000 @NM00170 EQU QCBEOLDT 01139000 QCBSLINK EQU IEDQQCB+13 01140000 QCBSTPRI EQU IEDQQCB+12 01141000 QCBSTVTO EQU IEDQQCB+8 01142000 QCBLINK EQU IEDQQCB+5 01143000 QCBPRI EQU IEDQQCB+4 01144000 QCBCNTEN EQU QCBELCHN+2 01145000 @NM00169 EQU QCBELCHN+2 01146000 @NM00168 EQU QCBELCHN 01147000 QCBHELD EQU QCBDSFLG 01148000 QCBFQCB EQU QCBDSFLG 01149000 QCBDRQQ EQU QCBDSFLG 01150000 QCBALTMH EQU QCBDSFLG 01151000 QCBREUS EQU QCBDISK 01152000 QCBNREUS EQU QCBDISK 01153000 QCBCORE EQU QCBDSFLG 01154000 QCBTSQ EQU QCBDSFLG 01155000 PRF2SEQP EQU PRF2WD2 01156000 @NM00167 EQU IEDPF2+1 01157000 @NM00166 EQU PRF2FLG2 01158000 PRF2TERM EQU PRF2FLG2 01159000 PRF2SMI EQU PRF2FLG2 01160000 PRF2FORM EQU PRF2FLG2 01161000 PRF2TNTI EQU PRF2FLG2 01162000 PRF1RCDE EQU PRF1RULN 01163000 PRF1TAG2 EQU PRF1SQID+1 01164000 @NM00165 EQU PRF1TAG1 01165000 PRF1TAGS EQU PRF1TAG1 01166000 @NM00164 EQU PRF1FLG1 01167000 PRF1LOGD EQU PRF1FLG1 01168000 PRF1USS EQU PRF1FLG1 01169000 PRF1FORM EQU PRF1FLG1 01170000 PRF1EXPI EQU PRF1FLG1 01171000 PRF1FIDI EQU PRF1FLG1 01172000 PRF1RH EQU IEDPF1 01173000 PRFDEST EQU IEDQPRF+40 01174000 PRFISEQ EQU IEDQPRF+38 01175000 PRFSTXT EQU PRFHQBCK 01176000 PRFNHDR EQU PRFCHDR 01177000 PRFCRCD EQU IEDQPRF+29 01178000 PRFSVSEQ EQU PRFLU2TT 01179000 PRFSVPRI EQU PRFEOBOF 01180000 PRFISIZE EQU PRFSCAN+1 01181000 @NM00162 EQU PRFSCAN 01182000 PRFEOB EQU PRFLU1TT 01183000 PRFSTSO EQU PRFXTRA 01184000 PRFNHDRN EQU PRFSTAT1 01185000 PRFNLSTN EQU PRFSTAT1 01186000 PRFLOCK EQU PRFEOFN 01187000 PRFDUPLN EQU PRFSTAT1 01188000 PRFTSMSG EQU PRFSTAT1 01189000 PRFITCPN EQU PRFSTAT1 01190000 PRFERMGN EQU PRFSTAT1 01191000 PRFCNCLN EQU PRFSTAT1 01192000 PRFSIZE EQU PRFSRCSZ+2 01193000 PRFSRCE EQU PRFSRCSZ 01194000 PRFLCB EQU IEDQPRF+13 01195000 @NM00161 EQU PRFVTCHK 01196000 PRFITSET EQU PRFVTCHK 01197000 @NM00160 EQU PRFVTCHK 01198000 @NM00159 EQU PRFTI0 01199000 @NM00158 EQU PRFTICC 01200000 @NM00157 EQU PRFTICC 01201000 @NM00156 EQU PRFTICC 01202000 PRFTICON EQU PRFTICC 01203000 @NM00155 EQU PRFTICC 01204000 @NM00154 EQU PRFTICC 01205000 PRFBFMM EQU PRFTICC 01206000 PRFEOMSG EQU PRFTICC 01207000 PRFCOUNT EQU PRFLINK+1 01208000 @NM00153 EQU PRFLINK 01209000 PRFFLAGS EQU PRFPRI 01210000 PRFIOADR EQU PRFQCBA 01211000 LCBERADR EQU LCBXRADR+1 01212000 LCBPCIRC EQU LCBXRADR 01213000 LCBDCT3 EQU LCBXDCT+2 01214000 LCBDCT2 EQU LCBXDCT+1 01215000 LCBDCT1 EQU LCBXDCT 01216000 @NM00152 EQU LCBXFLAG 01217000 LCBERPND EQU LCBXFLAG 01218000 LCBSRCPF EQU LCBXFLAG 01219000 LCBGPCTV EQU LCBXFLAG 01220000 @NM00151 EQU LCBXFLAG 01221000 @NM00150 EQU LCBXFLAG 01222000 @NM00149 EQU LCBXFLAG 01223000 @NM00148 EQU LCBXFLAG 01224000 LCBCCW10 EQU LCBCPA+72 01225000 LCBCCW9 EQU LCBCPA+64 01226000 LCBCCW8 EQU LCBCPA+56 01227000 LCBCCW7 EQU LCBCPA+48 01228000 LCBCCW6 EQU LCBCPA+40 01229000 LCBCP EQU LCBQEBPL+4 01230000 LCBIOSB EQU LCBQEBPL+1 01231000 LCBSIO EQU LCBQEBPL 01232000 LCBCCW4 EQU LCBCPA+24 01233000 LCBCCW3 EQU LCBCPA+16 01234000 @NM00133 EQU LCBERCCW+16 01235000 LCBATL05 EQU LCBERCCW+8 01236000 @NM00132 EQU LCBERCCW 01237000 LCBCSWSV EQU LCBSAVSN+1 01238000 LCBSNSV EQU LCBSAVSN 01239000 LCBBFSNS EQU LCBRSPSV 01240000 LCBWAITC EQU LCBTPCD+5 01241000 LCBINPAK EQU LCBSTAT6 01242000 LCBMHBID EQU LCBSTAT6 01243000 @NM00131 EQU LCBSTAT6 01244000 LCBHDRPD EQU LCBSTAT6 01245000 LCBCHN EQU LCBSTAT6 01246000 LCBBFRSV EQU LCBTPCD+1 01247000 @NM00130 EQU LCBSTAT5 01248000 LCBSUSFG EQU LCBSTAT5 01249000 LCBLUS EQU LCBSTAT5 01250000 LCBLUNIT EQU LCBSTAT5 01251000 LCBPERM EQU LCBSTAT5 01252000 LCBNXCMD EQU LCBBFRW 01253000 @NM00129 EQU LCBSTAT7 01254000 LCBCDFD0 EQU LCBSTAT7 01255000 LCBSCBA EQU IEDQLCB+93 01256000 LCBOLT EQU LCBMSGFM 01257000 LCBEOT EQU LCBMSGFM 01258000 LCBENQ EQU LCBMSGFM 01259000 LCBTTD EQU LCBMSGFM 01260000 LCBRSTRT EQU LCBMSGFM 01261000 LCBVSTRT EQU LCBMSGFM 01262000 LCBACKI EQU LCBMSGFM 01263000 LCBNAK EQU LCBMSGFM 01264000 LCBTTCIN EQU IEDQLCB+90 01265000 @NM00128 EQU LCBRBCT2 01266000 LCBDCNT EQU LCBRBCT2 01267000 LCBCOMPL EQU LCBDLNKN 01268000 LCBPRCPG EQU LCBERBST 01269000 LCBERROR EQU LCBERBST 01270000 @NM00127 EQU LCBERBST 01271000 LCBINQ EQU LCBERBST 01272000 LCBRDERR EQU LCBERBST 01273000 LCBEOMSG EQU LCBERBST 01274000 LCBMSG EQU LCBERBST 01275000 LCBERBLK EQU IEDQLCB+81 01276000 LCBERBKY EQU LCBERB 01277000 LCBRECAD EQU IEDQLCB+73 01278000 @NM00126 EQU LCBTSTSW 01279000 @NM00125 EQU LCBTSTSW 01280000 @NM00124 EQU LCBTSTSW 01281000 @NM00123 EQU LCBTSTSW 01282000 @NM00122 EQU LCBTSTSW 01283000 @NM00121 EQU LCBTSTSW 01284000 @NM00120 EQU LCBTSTSW 01285000 LCBCONCT EQU LCBTSTSW 01286000 LCBRESP EQU LCBSTAT2 01287000 LCBATTN EQU LCBSYNC 01288000 LCBNEGRP EQU LCBSTAT2 01289000 LCBSNDPR EQU LCBSTAT2 01290000 LCBCONNN EQU LCBBEOTN 01291000 LCBMSGNN EQU LCBSTAT2 01292000 LCBTRACE EQU LCBSTAT2 01293000 LCBSENDN EQU LCBSTAT1 01294000 LCBFREEN EQU LCBSTAT1 01295000 LCBCONT EQU LCBSTAT1 01296000 LCBINITN EQU LCBSTAT1 01297000 LCBOCNI EQU LCBSTAT1 01298000 LCBOCWTN EQU LCBSTAT1 01299000 LCBRCLLN EQU LCBSTAT1 01300000 LCBRECOF EQU IEDQLCB+68 01301000 LCBRDBFR EQU LCBRCBFR 01302000 LCBUCBX EQU IEDQLCB+64 01303000 LCBTTBIN EQU LCBERRCT 01304000 LCBINTBF EQU LCBINCAM+1 01305000 @NM00119 EQU LCBINCAM 01306000 LCBGETMN EQU LCBINCAM 01307000 @NM00117 EQU LCBRESTR+1 01308000 LCBCMDSV EQU LCBRESTR 01309000 LCBPCILK EQU LCBDCBPT 01310000 LCBSTART EQU LCBIOBSN+16 01311000 LCBAP4OL EQU LCBSIOCC 01312000 LCBAP3OL EQU LCBSIOCC 01313000 LCBAP2OL EQU LCBSIOCC 01314000 LCBAP1OL EQU LCBSIOCC 01315000 LCBSIOC2 EQU LCBSIOCC 01316000 LCBSIOC1 EQU LCBSIOCC 01317000 @NM00116 EQU LCBSIOCC 01318000 LCBCSWRC EQU LCBCSW+5 01319000 LCBCSCHC EQU LCBCSWCS 01320000 LCBCSICC EQU LCBCSWCS 01321000 LCBCSCCC EQU LCBCSWCS 01322000 LCBCSCDC EQU LCBCSWCS 01323000 LCBCSPTC EQU LCBCSWCS 01324000 LCBCSPGC EQU LCBCSWCS 01325000 LCBCSIL EQU LCBCSWCS 01326000 LCBCSPCI EQU LCBCSWCS 01327000 LCBUSUE EQU LCBCSWUS 01328000 LCBUSUC EQU LCBCSWUS 01329000 LCBUSDE EQU LCBCSWUS 01330000 LCBUSCE EQU LCBCSWUS 01331000 LCBUSBSY EQU LCBCSWUS 01332000 LCBUSCUE EQU LCBCSWUS 01333000 LCBUSSM EQU LCBCSWUS 01334000 LCBUSAT EQU LCBCSWUS 01335000 LCBOBR EQU LCBFLAG3 01336000 LCBOBRRD EQU LCBFLAG3 01337000 LCBIOMSG EQU LCBFLAG3 01338000 LCBSOHC EQU LCBFLAG3 01339000 LCBRLAD EQU LCBFLAG3 01340000 LCBSOHR EQU LCBFLAG3 01341000 @NM00115 EQU LCBFLAG3 01342000 LCBECBPT EQU LCBIOBSN+4 01343000 LCBECBCC EQU LCBIOBSN+3 01344000 LCBSENS1 EQU LCBSNS+1 01345000 LCBABORT EQU LCBTMOUT 01346000 LCBNOTIN EQU LCBLOSDT 01347000 LCBOVRUN EQU LCBSENS0 01348000 LCBDATCK EQU LCBSENS0 01349000 LCBEQUCK EQU LCBSENS0 01350000 LCBBUSCK EQU LCBSENS0 01351000 LCBINTRQ EQU LCBSENS0 01352000 LCBCMDRJ EQU LCBSENS0 01353000 LCBFLAG2 EQU LCBIOBSN 01354000 @NM00114 EQU LCBFLAG1 01355000 LCBUNREL EQU LCBFLAG1 01356000 LCBEXCPN EQU LCBFLAG1 01357000 @NM00113 EQU LCBFLAG1 01358000 LCBERPIN EQU LCBFLAG1 01359000 @NM00112 EQU LCBFLAG1 01360000 LCBISZE EQU IEDQLCB+28 01361000 LCBLNENT EQU LCBSCBDA+1 01362000 @NM00111 EQU LCBSCBDA 01363000 LCBCPGMH EQU LCBSTAT4 01364000 LCBREAL EQU LCBPHASE 01365000 @NM00110 EQU LCBSTAT4 01366000 LCBACTRQ EQU LCBSTAT4 01367000 LCBIPLRQ EQU LCBSTAT4 01368000 LCBDACRQ EQU LCBSTAT4 01369000 LCBDMPRQ EQU LCBSTAT4 01370000 @NM00109 EQU LCBLKMDE 01371000 LCBLOCKI EQU LCBLKMDE 01372000 LCBLOCKR EQU LCBLKMDE 01373000 LCBHMFLG EQU LCBLKMDE 01374000 LCBBDFLG EQU LCBLKMDE 01375000 LCBLKDST EQU LCBINSRC 01376000 LCBABRTN EQU LCBCHAIN 01377000 LCBCTLMD EQU LCBTETEN 01378000 LCBBFRSZ EQU LCBCHAIN 01379000 LCBUREQN EQU LCBCHAIN 01380000 LCBNORTY EQU LCBCHAIN 01381000 LCBERMSG EQU LCBCHAIN 01382000 LCBEXCP EQU LCBCHAIN 01383000 LCBINVRQ EQU LCBSCRNN 01384000 LCB2741N EQU LCBTSOB 01385000 LCBINHBN EQU LCBTSOB 01386000 LCBCIRCD EQU LCBTSOB 01387000 LCBPREP EQU LCBTSOB 01388000 LCBSOPL EQU LCBTSOB 01389000 LCBSATRD EQU LCBTSOB 01390000 LCBTSBUF EQU LCBTSOB 01391000 LCBWRBRK EQU LCBTSOB 01392000 LCBTDL EQU IEDQLCB+18 01393000 LCBEOLTD EQU IEDQLCB+16 01394000 LCBRSLNK EQU IEDQLCB+13 01395000 LCBRSPRI EQU IEDQLCB+12 01396000 LCBSTCBA EQU IEDQLCB+9 01397000 LCBRSKEY EQU IEDQLCB+8 01398000 LCBLINK EQU LCBRCB+5 01399000 LCBKEY EQU LCBRCB 01400000 CCWCOUNT EQU CCW+6 01401000 CCWRSV EQU CCW+5 01402000 @NM00108 EQU CCWFLAGS 01403000 CCWIDA EQU CCWFLAGS 01404000 CCWPCI EQU CCWFLAGS 01405000 CCWSKIP EQU CCWFLAGS 01406000 CCWSLI EQU CCWFLAGS 01407000 CCWCC EQU CCWFLAGS 01408000 CCWCD EQU CCWFLAGS 01409000 CCWADDR EQU CCW+1 01410000 SAVTLLCB EQU IEDNSVTD+380 01411000 SAVTSCF0 EQU IEDNSVTD+376 01412000 SAVTLSNY EQU IEDNSVTD+372 01413000 SAVTLSZP EQU IEDNSVTD+368 01414000 SAVTOMSU EQU IEDNSVTD+364 01415000 SAVTGTSB EQU IEDNSVTD+360 01416000 SAVTHIBL EQU IEDNSVTD+356 01417000 SAVTHISY EQU IEDNSVTD+352 01418000 SAVTNAX2 EQU IEDNSVTD+348 01419000 SAVTCDRU EQU IEDNSVTD+344 01420000 SAVTPOLC EQU IEDNSVTD+342 01421000 SAVTPOLM EQU IEDNSVTD+340 01422000 SAVTPOLR EQU IEDNSVTD+336 01423000 SAVTCDRN EQU SAVTCDRV 01424000 SAVTPOLL EQU IEDNSVTD+328 01425000 SAVTPOLN EQU IEDNSVTD+326 01426000 @NM00107 EQU IEDNSVTD+325 01427000 @NM00106 EQU SAVTNETF 01428000 SAVTSDIS EQU SAVTNETF 01429000 SAVTROUT EQU SAVTNETF 01430000 SAVTNETW EQU SAVTNETF 01431000 SAVTDIAL EQU IEDNSVTD+320 01432000 SAVTRQUT EQU IEDNSVTD+316 01433000 SAVTBITN EQU IEDNSVTD+312 01434000 @NM00105 EQU SAVTCKQB+8 01435000 @NM00104 EQU SAVTCKEC+1 01436000 @NM00103 EQU SAVTCKCC 01437000 SAVTCKPO EQU SAVTCKCC 01438000 SAVTCKWA EQU SAVTCKCC 01439000 SAVTCKCH EQU SAVTCKTB+1 01440000 SAVTCKVT EQU SAVTCKTB 01441000 @NM00102 EQU IEDNSVTD+297 01442000 SAVTRDFG EQU SAVTRDRV+12 01443000 @NM00101 EQU SAVTRDRV+5 01444000 SAVTRDPY EQU SAVTRDRV+4 01445000 SAVTRDQB EQU SAVTRDRV+1 01446000 SAVTRDKY EQU SAVTRDRV 01447000 SAVTNID EQU IEDNSVTD+280 01448000 SAVTDVAS EQU IEDNSVTD+276 01449000 SAVTPLSZ EQU IEDNSVTD+274 01450000 @NM00100 EQU IEDNSVTD+273 01451000 SAVTSUBL EQU IEDNSVTD+272 01452000 @NM00099 EQU SAVTZELM+1 01453000 SAVTSUBM EQU SAVTZELM 01454000 SAVTMHDX EQU IEDNSVTD+268 01455000 SAVTNAT1 EQU IEDNSVTD+266 01456000 SAVTSH20 EQU IEDNSVTD+264 01457000 SAVTLCBS EQU IEDNSVTD+260 01458000 SAVTRNMP EQU IEDNSVTD+256 01459000 SAVTTNTX EQU IEDNSVTD+252 01460000 SAVTNAX EQU IEDNSVTD+248 01461000 SAVTSUBV EQU IEDNSVTD+247 01462000 SAVTSUBA EQU IEDNSVTD+246 01463000 SAVTSIBC EQU IEDNSVTD+244 01464000 SAVTBSM EQU IEDNSVTD+240 01465000 SAVTSCPT EQU SAVTTCPU 01466000 SAVTRQTG EQU IEDNSVTD+236 01467000 SAVTRQCH EQU IEDNSVTD+232 01468000 SAVTMAND EQU IEDNSVTD+228 01469000 SAVTSPLN EQU IEDNSVTD+224 01470000 SAVTNADL EQU IEDNSVTD+222 01471000 SAVTNATL EQU IEDNSVTD+220 01472000 SAVTMHTB EQU IEDNSVTD+216 01473000 SAVTSSMH EQU IEDNSVTD+212 01474000 SAVTQRS EQU IEDNSVTD+208 01475000 SAVTRQIN EQU IEDNSVTD+204 01476000 SAVTDFCO EQU IEDNSVTD+200 01477000 SAVTSAO EQU IEDNSVTD+196 01478000 SAVTSARI EQU IEDNSVTD+192 01479000 SAVTSAC EQU IEDNSVTD+188 01480000 SAVTSAI EQU IEDNSVTD+184 01481000 SAVTCSCI EQU IEDNSVTD+180 01482000 SAVTSSRP EQU IEDNSVTD+176 01483000 SAVTSSRQ EQU IEDNSVTD+172 01484000 SAVTSCLU EQU IEDNSVTD+168 01485000 SAVTXTRQ EQU IEDNSVTD+164 01486000 SAVTMVBF EQU IEDNSVTD+160 01487000 @NM00098 EQU IEDNSVTD+148 01488000 @NM00097 EQU IEDNSVTD+136 01489000 SAVTXFMI EQU IEDNSVTD+132 01490000 @NM00096 EQU IEDNSVTD+124 01491000 SAVTXFMO EQU IEDNSVTD+120 01492000 @NM00095 EQU IEDNSVTD+116 01493000 SAVTSSSR EQU IEDNSVTD+112 01494000 SAVTSCPQ EQU IEDNSVTD+108 01495000 SAVTSLCB EQU IEDNSVTD+104 01496000 SAVTLUSR EQU IEDNSVTD+100 01497000 @NM00094 EQU SAVTLUSQ+8 01498000 SAVTLUSP EQU SAVTLUSQ+4 01499000 SAVTLUSB EQU SAVTLUSQ 01500000 @NM00093 EQU IEDNSVTD+84 01501000 SAVTSAT EQU IEDNSVTD+80 01502000 SAVTNAT EQU IEDNSVTD+76 01503000 SAVTCLUP EQU IEDNSVTD+72 01504000 SAVTPIUT EQU IEDNSVTD+68 01505000 SAVTRNTA EQU IEDNSVTD+64 01506000 SAVTDNIR EQU IEDNSVTD+60 01507000 SAVTCNIR EQU IEDNSVTD+56 01508000 SAVTFLDH EQU IEDNSVTD+52 01509000 SAVTSRTN EQU IEDNSVTD+48 01510000 SAVTSREQ EQU IEDNSVTD+44 01511000 SAVTFAIL EQU IEDNSVTD+42 01512000 SAVTSUSE EQU IEDNSVTD+40 01513000 SAVTSIB EQU IEDNSVTD+36 01514000 SAVTPRTN EQU IEDNSVTD+32 01515000 @NM00092 EQU IEDNSVTD+28 01516000 SAVTWH20 EQU IEDNSVTD+26 01517000 SAVTPWT EQU IEDNSVTD+24 01518000 SAVTPRTQ EQU IEDNSVTD+20 01519000 SAVTPREQ EQU IEDNSVTD+16 01520000 SAVTPH20 EQU IEDNSVTD+14 01521000 SAVTPUSE EQU IEDNSVTD+12 01522000 SAVTPLCB EQU IEDNSVTD+8 01523000 SAVTPOOL EQU IEDNSVTD+4 01524000 SAVTPRMT EQU SAVTDIAF 01525000 SAVTVIRT EQU SAVTDIAF 01526000 AVTSITS EQU IEDQAVTD+1192 01527000 AVTMSUHI EQU IEDQAVTD+1188 01528000 AVTSITU EQU IEDQAVTD+1184 01529000 AVTSITP EQU IEDQAVTD+1180 01530000 AVTPADDR EQU IEDQAVTD+1176 01531000 @NM00091 EQU IEDQAVTD+1174 01532000 AVTCPBNO EQU IEDQAVTD+1172 01533000 AVTHRESS EQU IEDQAVTD+1171 01534000 @NM00090 EQU IEDQAVTD+1170 01535000 @NM00089 EQU IEDQAVTD+1169 01536000 @NM00088 EQU IEDQAVTD+1168 01537000 @NM00087 EQU IEDQAVTD+1165 01538000 @NM00086 EQU IEDQAVTD+1164 01539000 AVTHRESE EQU @NM00085 01540000 AVTRADDR EQU IEDQAVTD+1156 01541000 AVTNADDR EQU IEDQAVTD+1152 01542000 AVTHRESN EQU IEDQAVTD+1148 01543000 AVTVOLRN EQU IEDQAVTD+1144 01544000 AVTTOTNN EQU IEDQAVTD+1140 01545000 AVTTRCYN EQU IEDQAVTD+1136 01546000 AVTRCTRN EQU IEDQAVTD+1132 01547000 AVTNOVON EQU IEDQAVTD+1128 01548000 AVTADEBN EQU IEDQAVTD+1124 01549000 AVTVOLRR EQU IEDQAVTD+1120 01550000 AVTTOTNR EQU IEDQAVTD+1116 01551000 AVTTRCYR EQU IEDQAVTD+1112 01552000 AVTRCTRR EQU IEDQAVTD+1108 01553000 AVTNOVOR EQU IEDQAVTD+1104 01554000 AVTADEBR EQU IEDQAVTD+1100 01555000 AVTLODPT EQU IEDQAVTD+1096 01556000 AVTIOBN EQU IEDQAVTD+1092 01557000 AVTIOBR EQU IEDQAVTD+1088 01558000 AVTCPBPT EQU IEDQAVTD+1084 01559000 AVTFCPB EQU IEDQAVTD+1080 01560000 @NM00084 EQU IEDQAVTD+1076 01561000 AVTINCPQ EQU IEDQAVTD+1072 01562000 @NM00083 EQU IEDQAVTD+1068 01563000 @NM00082 EQU IEDQAVTD+1065 01564000 @NM00081 EQU AVTBIT4 01565000 @NM00080 EQU AVTBIT4 01566000 @NM00079 EQU AVTBIT4 01567000 @NM00078 EQU AVTBIT4 01568000 @NM00077 EQU AVTBIT4 01569000 @NM00076 EQU AVTBIT4 01570000 @NM00075 EQU AVTBIT4 01571000 AVTRUFTN EQU AVTBIT4 01572000 @NM00074 EQU IEDQAVTD+1060 01573000 AVTNOBFQ EQU IEDQAVTD+1056 01574000 @NM00073 EQU IEDQAVTD+1052 01575000 AVTDKENQ EQU IEDQAVTD+1048 01576000 @NM00072 EQU IEDQAVTD+1044 01577000 AVTDKAPQ EQU IEDQAVTD+1040 01578000 AVTCOPY EQU IEDQAVTD+1036 01579000 AVTIA EQU IEDQAVTD+1032 01580000 AVTFL EQU IEDQAVTD+1028 01581000 @NM00071 EQU IEDQAVTD+1024 01582000 AVTNCPBQ EQU IEDQAVTD+1020 01583000 AVTTOTNC EQU IEDQAVTD+1016 01584000 AVTCMAX EQU IEDQAVTD+1012 01585000 AVTCMIN EQU IEDQAVTD+1008 01586000 AVTHM02 EQU IEDQAVTD+1004 01587000 AVTOPCIN EQU IEDQAVTD+1002 01588000 AVTDCTLN EQU IEDQAVTD+1000 01589000 AVTOPMSK EQU IEDQAVTD+996 01590000 AVTDDFT EQU IEDQAVTD+992 01591000 AVTSTEAL EQU IEDQAVTD+988 01592000 AVTOPTN EQU IEDQAVTD+984 01593000 AVTDSKCT EQU IEDQAVTD+982 01594000 AVTCKRST EQU IEDQAVTD+981 01595000 AVTSTAN EQU AVTBIT3 01596000 AVTSTACN EQU AVTBIT3 01597000 AVTSTAIN EQU AVTBIT3 01598000 AVTSTAYN EQU AVTBIT3 01599000 AVTOLTBN EQU AVTBIT3 01600000 AVTTSAB EQU AVTBIT3 01601000 AVTRFULN EQU AVTBIT3 01602000 AVTRECVN EQU AVTBIT3 01603000 @NM00070 EQU AVTBIT2 01604000 @NM00069 EQU AVTBIT2 01605000 AVTOPEIN EQU AVTBIT2 01606000 AVTSTRTN EQU AVTBIT2 01607000 AVTTOPOL EQU AVTBIT2 01608000 AVTCOPYN EQU AVTBIT2 01609000 AVTREUSN EQU AVTBIT2 01610000 AVTEXTSC EQU AVTBIT2 01611000 AVTDISKN EQU AVTBIT1 01612000 AVTQUCKN EQU AVTBIT1 01613000 AVTCLOSN EQU AVTBIT1 01614000 AVTREADN EQU AVTBIT1 01615000 AVTDLAYN EQU AVTBIT1 01616000 AVTAQTAN EQU AVTBIT1 01617000 AVTTSON EQU AVTBIT1 01618000 AVTAPLKN EQU AVTBIT1 01619000 AVTDUMBR EQU IEDQAVTD+976 01620000 AVTDLQX EQU IEDQAVTD+974 01621000 AVTINTLV EQU IEDQAVTD+972 01622000 AVTSMCNT EQU IEDQAVTD+970 01623000 AVTAVFCT EQU IEDQAVTD+968 01624000 AVTOPCON EQU IEDQAVTD+966 01625000 AVTOPCNT EQU IEDQAVTD+964 01626000 AVTLNCNT EQU IEDQAVTD+962 01627000 AVTHA16 EQU IEDQAVTD+958 01628000 AVTHA7 EQU IEDQAVTD+956 01629000 AVTHA4 EQU IEDQAVTD+954 01630000 AVTHA3 EQU IEDQAVTD+952 01631000 AVTHA2 EQU IEDQAVTD+950 01632000 AVTGETMS EQU IEDQAVTD+949 01633000 @NM00068 EQU IEDQAVTD+948 01634000 AVTGETMD EQU IEDQAVTD+944 01635000 AVTGETMN EQU IEDQAVTD+940 01636000 AVTCWTOT EQU IEDQAVTD+936 01637000 AVTCWINT EQU IEDQAVTD+884 01638000 AVTDTRAP EQU IEDQAVTD+880 01639000 @NM00067 EQU IEDQAVTD+878 01640000 @NM00066 EQU AVTIOTR 01641000 AVTIOTRH EQU AVTIOTR 01642000 AVTIOTRE EQU AVTIOTR 01643000 @NM00065 EQU AVTSUBT 01644000 AVTSUBPT EQU AVTSUBT 01645000 AVTSUBON EQU AVTSUBT 01646000 AVTAFE30 EQU IEDQAVTD+872 01647000 AVTAFE20 EQU IEDQAVTD+868 01648000 AVTAFE10 EQU IEDQAVTD+864 01649000 AVTCWEC2 EQU IEDQAVTD+860 01650000 AVTCWPM2 EQU IEDQAVTD+856 01651000 AVTCWTS2 EQU IEDQAVTD+855 01652000 AVTCWTS1 EQU IEDQAVTD+854 01653000 AVTCWCLD EQU AVTCWFL2 01654000 AVTCWRAP EQU AVTCWFL2 01655000 @NM00064 EQU AVTCWFL2 01656000 @NM00063 EQU AVTCWFL2 01657000 @NM00062 EQU AVTCWFL2 01658000 @NM00061 EQU AVTCWFL2 01659000 @NM00060 EQU AVTCWFL2 01660000 AVTCWACT EQU AVTCWFL2 01661000 @NM00059 EQU AVTCWFL1 01662000 @NM00058 EQU AVTCWFL1 01663000 @NM00057 EQU AVTCWFL1 01664000 @NM00056 EQU AVTCWFL1 01665000 @NM00055 EQU AVTCWFL1 01666000 @NM00054 EQU AVTCWFL1 01667000 @NM00053 EQU AVTCWFL1 01668000 AVTCOMWN EQU AVTCWFL1 01669000 AVTCWEC1 EQU IEDQAVTD+848 01670000 AVTCWPM1 EQU IEDQAVTD+844 01671000 AVTCAREA EQU IEDQAVTD+840 01672000 AVTFZERO EQU IEDQAVTD+836 01673000 AVTCADDR EQU IEDQAVTD+832 01674000 AVTCOREC EQU IEDQAVTD+828 01675000 @NM00052 EQU IEDQAVTD+820 01676000 AVTCPBCB EQU IEDQAVTD+816 01677000 @NM00051 EQU IEDQAVTD+808 01678000 AVTDSIOB EQU IEDQAVTD+804 01679000 @NM00050 EQU IEDQAVTD+796 01680000 AVTCPRMB EQU IEDQAVTD+792 01681000 @NM00049 EQU IEDQAVTD+784 01682000 AVTCLOSB EQU IEDQAVTD+780 01683000 @NM00048 EQU IEDQAVTD+772 01684000 AVTACTIB EQU IEDQAVTD+768 01685000 @NM00047 EQU IEDQAVTD+764 01686000 AVTOLTEB EQU IEDQAVTD+760 01687000 AVTOLTCH EQU AVTOLTQB+1 01688000 AVTOLTVT EQU AVTOLTQB 01689000 @NM00046 EQU AVTOPCQB+8 01690000 @NM00045 EQU AVTOPCEC+1 01691000 @NM00044 EQU AVTOPCCC 01692000 AVTOPCPO EQU AVTOPCCC 01693000 AVTOPCWA EQU AVTOPCCC 01694000 AVTOPCCH EQU AVTOPCOB+1 01695000 AVTOPCVT EQU AVTOPCOB 01696000 @NM00043 EQU AVTCKPQB+9 01697000 AVTCKPTS EQU AVTCKPQB+8 01698000 @NM00042 EQU AVTCKPEC+1 01699000 @NM00041 EQU AVTCKPCC 01700000 AVTCKPPO EQU AVTCKPCC 01701000 AVTCKPWA EQU AVTCKPCC 01702000 AVTCKPCH EQU AVTCKPTB+1 01703000 AVTCKPVT EQU AVTCKPTB 01704000 @NM00040 EQU IEDQAVTD+724 01705000 @NM00039 EQU IEDQAVTD+716 01706000 AVTSELCH EQU IEDQAVTD+713 01707000 AVTBFRTN EQU AVTBFRFG 01708000 AVTTIMQ EQU IEDQAVTD+704 01709000 @NM00038 EQU IEDQAVTD+700 01710000 AVTIMQPS EQU IEDQAVTD+696 01711000 AVTINOUT EQU IEDQAVTD+694 01712000 AVTREFTM EQU IEDQAVTD+692 01713000 @NM00037 EQU IEDQAVTD+680 01714000 AVTDELYB EQU IEDQAVTD+676 01715000 AVTOCQPT EQU IEDQAVTD+672 01716000 AVTTSOPT EQU IEDQAVTD+668 01717000 AVTSUPPT EQU IEDQAVTD+664 01718000 AVTCBQCB EQU IEDQAVTD+660 01719000 AVTMSGS EQU IEDQAVTD+657 01720000 @NM00036 EQU AVTSYSER 01721000 @NM00035 EQU AVTSYSER 01722000 @NM00034 EQU AVTSYSER 01723000 @NM00033 EQU AVTSYSER 01724000 @NM00032 EQU AVTSYSER 01725000 @NM00031 EQU AVTSYSER 01726000 AVTCMAXN EQU AVTSYSER 01727000 AVTCMINN EQU AVTSYSER 01728000 AVT2260L EQU IEDQAVTD+652 01729000 AVTABEPL EQU AVTADBUF 01730000 AVTHFF EQU AVTCLRHI+2 01731000 @NM00030 EQU AVTCLRHI 01732000 AVTCCLNK EQU AVTCRELE+5 01733000 AVTCCPRI EQU AVTCRELE+4 01734000 AVTCCQCB EQU AVTCCELE+1 01735000 AVTCCKEY EQU AVTCCELE 01736000 AVTDELAD EQU IEDQAVTD+632 01737000 AVTDELEM EQU IEDQAVTD+628 01738000 AVTBSX EQU AVTCKLNK 01739000 AVTOPETR EQU AVTHG01 01740000 @NM00029 EQU AVTCKBYT 01741000 AVTCKONQ EQU AVTCKBYT 01742000 @NM00028 EQU AVTCKBYT 01743000 @NM00027 EQU AVTCKBYT 01744000 @NM00026 EQU AVTCKBYT 01745000 @NM00025 EQU AVTCKBYT 01746000 @NM00024 EQU AVTCKBYT 01747000 @NM00023 EQU AVTCKBYT 01748000 AVTOPERT EQU IEDQAVTD+618 01749000 AVTOPXCL EQU IEDQAVTD+616 01750000 AVTOPERL EQU IEDQAVTD+615 01751000 @NM00022 EQU IEDQAVTD+614 01752000 AVTCKTIM EQU IEDQAVTD+612 01753000 AVTCKELV EQU IEDQAVTD+610 01754000 AVTCPRCD EQU IEDQAVTD+609 01755000 AVTWARMN EQU AVTCKELF 01756000 AVTCRTLN EQU AVTCKELF 01757000 AVTCPIPN EQU AVTCKELF 01758000 AVTCCLCN EQU AVTCKELF 01759000 AVTCINCN EQU AVTCKELF 01760000 @NM00021 EQU AVTCKELF 01761000 AVTCMCPN EQU AVTCKELF 01762000 AVTNQBCK EQU AVTCKELF 01763000 AVTCKQAD EQU IEDQAVTD+605 01764000 AVTSCBSZ EQU IEDQAVTD+604 01765000 @NM00020 EQU IEDQAVTD+600 01766000 AVTCKELE EQU IEDQAVTD+596 01767000 @NM00019 EQU AVTCKPEL+8 01768000 AVTCKRLK EQU AVTCKPEL+5 01769000 AVTCKRPR EQU AVTCKPEL+4 01770000 AVTCKRMQ EQU AVTCKRMV+1 01771000 AVTCKRKY EQU AVTCKRMV 01772000 AVTHK EQU IEDQAVTD+576 01773000 AVTHI EQU IEDQAVTD+572 01774000 AVTIOT EQU IEDQAVTD+568 01775000 AVTNX EQU IEDQAVTD+564 01776000 AVTTONE EQU IEDQAVTD+560 01777000 AVTA3TL EQU IEDQAVTD+556 01778000 AVTDMECB EQU IEDQAVTD+552 01779000 AVTABEND EQU IEDQAVTD+546 01780000 AVTPLCBN EQU IEDQAVTD+544 01781000 @NM00018 EQU AVTSAVTP+1 01782000 @NM00017 EQU AVTSAVTF 01783000 AVTSNA EQU AVTSAVTF 01784000 AVTONSNA EQU AVTSAVTF 01785000 AVTVTMCP EQU AVTSAVTF 01786000 @NM00016 EQU IEDQAVTD+536 01787000 AVTCMBSS EQU IEDQAVTD+532 01788000 AVTRCV EQU IEDQAVTD+528 01789000 AVTSEND EQU IEDQAVTD+524 01790000 AVTCSCH EQU IEDQAVTD+520 01791000 AVTQ1 EQU IEDQAVTD+516 01792000 AVTE7 EQU IEDQAVTD+512 01793000 AVTHB EQU IEDQAVTD+508 01794000 AVTR1 EQU IEDQAVTD+504 01795000 AVTBZ EQU IEDQAVTD+500 01796000 AVTEZ EQU IEDQAVTD+496 01797000 AVTEC EQU IEDQAVTD+492 01798000 AVTEW EQU IEDQAVTD+488 01799000 AVTNDIAL EQU AVTSCOPT 01800000 AVTN2741 EQU AVTSCOPT 01801000 AVTCONCO EQU AVTSCOPT 01802000 AVTCONC EQU AVTSCOPT 01803000 AVTCMBUF EQU AVTSCOPT 01804000 AVTAPDMP EQU AVTSCOPT 01805000 @NM00015 EQU AVTSCOPT 01806000 AVTHA EQU AVTDISP 01807000 AVTEA EQU IEDQAVTD+476 01808000 AVTAX EQU IEDQAVTD+472 01809000 AVTA3 EQU IEDQAVTD+468 01810000 AVTGD EQU IEDQAVTD+464 01811000 AVTAL EQU IEDQAVTD+460 01812000 AVTOLTST EQU AVTHG02 01813000 AVTE8 EQU IEDQAVTD+452 01814000 AVTUI EQU IEDQAVTD+448 01815000 AVTCOMPT EQU IEDQAVTD+444 01816000 AVTCRSRF EQU IEDQAVTD+440 01817000 @NM00014 EQU IEDQAVTD+436 01818000 AVTKA02 EQU IEDQAVTD+432 01819000 AVTOPTPT EQU IEDQAVTD+428 01820000 AVTPCBPT EQU IEDQAVTD+424 01821000 @NM00013 EQU AVTECB1 01822000 AVTCOMP EQU AVTECB1 01823000 @NM00012 EQU AVTECB1 01824000 AVTOPECA EQU IEDQAVTD+416 01825000 AVTOLECA EQU IEDQAVTD+412 01826000 AVTCKECA EQU IEDQAVTD+408 01827000 AVTCWECA EQU IEDQAVTD+404 01828000 AVTCWTCB EQU IEDQAVTD+400 01829000 AVTOLTCB EQU IEDQAVTD+396 01830000 AVTOCTCB EQU IEDQAVTD+392 01831000 AVTCKTCB EQU IEDQAVTD+388 01832000 AVTAS EQU IEDQAVTD+384 01833000 AVTNOLBF EQU IEDQAVTD+382 01834000 AVTNCKPR EQU IEDQAVTD+381 01835000 AVTCIB EQU IEDQAVTD+380 01836000 AVTSPLPT EQU IEDQAVTD+376 01837000 AVTMVBFR EQU IEDQAVTD+372 01838000 AVTSBTA EQU IEDQAVTD+368 01839000 AVTRARTN EQU IEDQAVTD+364 01840000 AVTBSCAN EQU IEDQAVTD+360 01841000 AVTRDYA EQU IEDQAVTD+356 01842000 AVTRNMPT EQU IEDQAVTD+352 01843000 AVTDISTR EQU IEDQAVTD+348 01844000 AVTPARM3 EQU IEDQAVTD+344 01845000 @NM00011 EQU AVTPKF 01846000 @NM00010 EQU AVTPKF 01847000 @NM00009 EQU AVTPKF 01848000 AVTFTCHF EQU AVTPKF 01849000 @NM00008 EQU AVTPKF 01850000 @NM00007 EQU AVTPKF 01851000 @NM00006 EQU AVTPKF 01852000 @NM00005 EQU AVTPKF 01853000 AVTPARM EQU IEDQAVTD+336 01854000 AVTEXS2A EQU IEDQAVTD+330 01855000 AVTEXA2S EQU IEDQAVTD+324 01856000 AVTOCGET EQU IEDQAVTD+320 01857000 AVTCKAVT EQU @NM00003+1 01858000 @NM00004 EQU AVTCKFLG 01859000 AVTCKHLT EQU AVTCKFLG 01860000 AVTCKREQ EQU AVTCKFLG 01861000 AVTCKENV EQU AVTCKFLG 01862000 AVTCKNAC EQU AVTCKFLG 01863000 AVTCKTAC EQU AVTCKFLG 01864000 @NM00002 EQU IEDQAVTD+312 01865000 AVTREADD EQU IEDQAVTD+308 01866000 AVTREADY EQU IEDQAVTD+304 01867000 AVTRACE EQU IEDQAVTD+300 01868000 AVTTCB EQU IEDQAVTD+296 01869000 AVTPASWD EQU IEDQAVTD+288 01870000 AVTCTLCH EQU IEDQAVTD+280 01871000 AVTDOUBL EQU IEDQAVTD+272 01872000 AVTDOUBX EQU IEDQAVTD+264 01873000 AVTDPARM EQU IEDQAVTD+260 01874000 AVTCSTCS EQU IEDQAVTD+256 01875000 AVTDLQ EQU AVTSAVEX+32 01876000 @NM00001 EQU AVTSAVEX 01877000 AVTSAVE4 EQU IEDQAVTD+144 01878000 AVTSAVE3 EQU IEDQAVTD+72 01879000 AVTSAVE2 EQU IEDQAVTD 01880000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01881000 @RC00449 EQU @EL00001 01882000 @ENDDATA EQU * 01883000 END IGG019TI,(C'PLS2308',0701,77354) 01884000