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