TITLE 'IEDIAM, 3705 RESOURCE RECEIVE SCHEDULER *00001000 ' 00002000 IEDIAM CSECT , 0001 00003000 @PROLOG DS 0H 0002 00004000 * /* 00005000 DC AL2(QEVENT-IEDIAM) OFFSET TO QEVENT ROUTINE 00006000 USING *,RCODE 00007000 LR RCODE,RENTADDR 00008000 IEDIAM IEDHJN AFTERHJN MODULE IDENTIFICATION 00009000 * CLEARED @YM08497*/ 00010000 LA RLCB,0(RQCB) 00011000 * IF RLCB=SAVTSLCB THEN /* SSCP'S PLCB? @YM08497*/ 00012000 L @06,AVTSAVTP(,RAVT) 0303 00013000 C RLCB,SAVTSLCB(,@06) 0303 00014000 BNE @RF00303 0303 00015000 * DO; /* YES @YM08497*/ 00016000 * IF LCBWAITC^=ZERO THEN /* ANY MSGS ON WAIT CHAIN? 0305 00017000 * @YM08497*/ 00018000 L @05,LCBWAITC-1(,RLCB) 0305 00019000 LA @05,0(,@05) 0305 00020000 LTR @05,@05 0305 00021000 BZ @RF00305 0305 00022000 * DO; /* YES @YM08497*/ 00023000 * LCBSTAT1=ZERO; /* CLEAR PLCB STATUS @YM08497*/ 00024000 MVI LCBSTAT1(RLCB),X'00' 0307 00025000 * LCBRECVN=ON; /* MARK PLCB RECEIVING @YM08497*/ 00026000 OI LCBRECVN(RLCB),B'00000010' 0308 00027000 * LCBDLNKN=ON; /* MARK ERB AVAILABLE @YM08497*/ 00028000 OI LCBDLNKN(RLCB),B'00000001' 0309 00029000 * RQCB=SAVTRQIN; /* QCB ADDR FOR BYPASS TO RQIN 0310 00030000 * @YM08497*/ 00031000 L RQCB,SAVTRQIN(,@06) 0310 00032000 * RSTCB=RQCB->QCBSTCHN; /* STCB ADDR FOR BYPASS @YM08497*/ 00033000 L RSTCB,QCBSTCHN-1(,RQCB) 0311 00034000 LA RSTCB,0(,RSTCB) 0311 00035000 * END; /* @YM08497*/ 00036000 * ELSE /* NO MSGS ON WAIT CHAIN @YM08497*/ 00037000 * DO; /* @YM08497*/ 00038000 B @RC00305 0313 00039000 @RF00305 DS 0H 0314 00040000 * RQCB=RLCB; /* QCB ADDR FOR BYPASS TO QEVENT 00041000 * @YM08497*/ 00042000 LR RQCB,RLCB 0314 00043000 * RSTCB=LCBRSLNK; /* STCB ADDR FOR BYPASS @YM08497*/ 00044000 L RSTCB,LCBRSLNK-1(,RLCB) 0315 00045000 LA RSTCB,0(,RSTCB) 0315 00046000 * END; /* @YM08497*/ 00047000 * RPARM=RLCB; /* ELEMENT ADDR FOR BYPASS 0317 00048000 * @YM08497*/ 00049000 @RC00305 LR RPARM,RLCB 0317 00050000 * RSTATE=BYPASST; /* REQUEST BYPASS STATE @YM08497*/ 00051000 LA RSTATE,2 0318 00052000 * END; /* @YM08497*/ 00053000 * ELSE /* NOT THE SSCP'S PLCB @YM08497*/ 00054000 * DO; /* @YM08497*/ 00055000 B @RC00303 0320 00056000 @RF00303 DS 0H 0321 00057000 * RSTATE=NOST; /* INITIALIZE STATE REG TO ZERO */ 00058000 * 0321 00059000 SLR RSTATE,RSTATE 0321 00060000 * /*************************************************************/ 00061000 * /* */ 00062000 * /* GET THE TRM AND THE QCB */ 00063000 * /* */ 00064000 * /*************************************************************/ 00065000 * 0322 00066000 * RFY 0322 00067000 * RTRM RSTD; 0322 00068000 * RPARM=LCBTTCIN; /* TNT INDEX FOR ROUTINE */ 00069000 LH RPARM,LCBTTCIN(,RLCB) 0323 00070000 N RPARM,@CF01934 0323 00071000 * CALL IEDQTNT; 0324 00072000 L @15,AVTRNMPT(,RAVT) 0324 00073000 BALR @14,@15 0324 00074000 * RTRM=RPARM-LENGTH(IEDNTRM); /* TRM BASE RETURNED */ 00075000 LR RTRM,RPARM 0325 00076000 SL RTRM,@CF01589 0325 00077000 * RQCB=TRMDESTQ; /* QCB ADDRESS */ 00078000 SLR RQCB,RQCB 0326 00079000 ICM RQCB,7,TRMDESTQ(RTRM) 0326 00080000 * IF LCBRTRRO=ON THEN /* IF A RESPONSE IS OWED */ 00081000 TM LCBRTRRO(RLCB),B'00000100' 0327 00082000 BNO @RF00327 0327 00083000 * DO; 0328 00084000 * 0328 00085000 * /*********************************************************/ 00086000 * /* */ 00087000 * /* PROCESS RESPONSE OWED TO READY-TO-RECEIVE */ 00088000 * /* */ 00089000 * /*********************************************************/ 00090000 * 0329 00091000 * RFY 0329 00092000 * RPRF RSTD; 0329 00093000 * CALL GETBUF; /* INTERNAL ROUTINE */ 00094000 BAL @14,GETBUF 0330 00095000 * IF RSTATE=NOST THEN /* IF ANY STATE IS REQUESTED */ 00096000 LTR RSTATE,RSTATE 0331 00097000 BNZ @RF00331 0331 00098000 * DO; 0332 00099000 * 0332 00100000 * /*****************************************************/ 00101000 * /* */ 00102000 * /* POST BUFFER TO NIR GENERATOR */ 00103000 * /* */ 00104000 * /*****************************************************/ 00105000 * 0333 00106000 * PRFQCBA=SAVTCNIR; /* QCB ADDRESS */ 00107000 L @09,AVTSAVTP(,RAVT) 0333 00108000 MVC PRFQCBA(3,RPRF),SAVTCNIR+1(@09) 0333 00109000 * PRFPRI=PRIASYNC; /* SET PRIORITY */ 00110000 MVI PRFPRI(RPRF),X'E6' 0334 00111000 * PRFDEST=LCBTTCIN; /* DESTINATION */ 00112000 LH @09,LCBTTCIN(,RLCB) 0335 00113000 N @09,@CF01934 0335 00114000 STH @09,PRFDEST(,RPRF) 0335 00115000 * RPARM=RPRF; /* BUFFER ADDRESS */ 00116000 LR RPARM,RPRF 0336 00117000 * SAVEQCB=RQCB; /* SAVE QCB ADDRESS ACROSS 0337 00118000 * DSPPOSTR */ 00119000 ST RQCB,SAVEQCB(,RAVT) 0337 00120000 * CALL DSPPOSTR; 0338 00121000 LA @15,DSPPOSTR(,RDISP) 0338 00122000 BALR @14,@15 0338 00123000 * RQCB=SAVEQCB; /* RESTORE QCB ADDRESS */ 00124000 L RQCB,SAVEQCB(,RAVT) 0339 00125000 * END; 0340 00126000 * END; 0341 00127000 @RF00331 DS 0H 0342 00128000 * END; /* @YM08497*/ 00129000 @RF00327 DS 0H 0343 00130000 * IF RSTATE=NOST THEN /* IF NO STATE REQUESTED */ 00131000 @RC00303 LTR RSTATE,RSTATE 0343 00132000 BNZ @RF00343 0343 00133000 * DO; 0344 00134000 * FTERMSW=OFF; /* INITIALIZE SWITCH @YM08991*/ 00135000 NI FTERMSW,B'01111111' 0345 00136000 * IF TRMSNA=ON THEN /* SNA DEVICE? @YM08991*/ 00137000 TM TRMSNA(RTRM),B'00000010' 0346 00138000 BNO @RF00346 0346 00139000 * DO; /* YES @YM08991*/ 00140000 * RSIB=TRMSIBPT; /* GET 1ST SIB ADDR @YM08991*/ 00141000 SLR RSIB,RSIB 0348 00142000 ICM RSIB,7,TRMSIBPT(RTRM) 0348 00143000 * IF SIBINDEX^=SAVTSCPT& /* IS IT AN LU-LU SIB? @YM08991*/ 00144000 * SIBFTERM=ON THEN /* ... WITH FORCED TERMINATE IN 00145000 * PROGRESS? @YM08991*/ 00146000 L @09,AVTSAVTP(,RAVT) 0349 00147000 CLC SIBINDEX(2,RSIB),SAVTSCPT(@09) 0349 00148000 BE @RF00349 0349 00149000 TM SIBFTERM(RSIB),B'00100000' 0349 00150000 BNO @RF00349 0349 00151000 * FTERMSW=ON; /* YES, SET SWITCH ON @YM08991*/ 00152000 OI FTERMSW,B'10000000' 0350 00153000 * END; /* @YM08991*/ 00154000 @RF00349 DS 0H 0352 00155000 * IF LCBWAITC^=ZERO& /* PIUS ON WAIT CHAIN? @YM08991*/ 00156000 * FTERMSW=OFF THEN /* ... & NOT DOING FORCED 0352 00157000 * TERMINATE OF SESSION @YM08991*/ 00158000 @RF00346 L @09,LCBWAITC-1(,RLCB) 0352 00159000 LA @09,0(,@09) 0352 00160000 LTR @09,@09 0352 00161000 BZ @RF00352 0352 00162000 TM FTERMSW,B'10000000' 0352 00163000 BNZ @RF00352 0352 00164000 * DO; 0353 00165000 * 0353 00166000 * /*********************************************************/ 00167000 * /* */ 00168000 * /* THIS SECTION OF CODE IS ENTERED IF AN ELEMENT IS ON */ 00169000 * /* THE WAIT CHAIN */ 00170000 * /* */ 00171000 * /*********************************************************/ 00172000 * 0354 00173000 * LCBRCLLN=OFF; /* RESET ... @YM08420*/ 00174000 NI LCBRCLLN(RLCB),B'01111111' 0354 00175000 * LCBCTLMD=OFF; /* ... ALL ... @YM08420*/ 00176000 NI LCBCTLMD(RLCB),B'11111101' 0355 00177000 * LCBINITN=OFF; /* ... STATUS BITS ... @YM08420*/ 00178000 * LCBCONT=OFF; /* ... EXCEPT ... @YM08420*/ 00179000 * LCBFREEN=OFF; /* ... NON IMMEDIATE ... @YM08420*/ 00180000 * LCBSENDN=OFF; /* ... OPERATOR CONTROL IN 0359 00181000 * PROGRESS @YM08420*/ 00182000 * LCBRECVN=ON; /* SET RECEIVING @YM08420*/ 00183000 OI LCBRECVN(RLCB),B'00000010' 0360 00184000 NI LCBINITN(RLCB),B'11100010' 0360 00185000 * LCBDLNKN=ON; /* MARK ERB AVAILABLE @YM08461*/ 00186000 * 0361 00187000 OI LCBDLNKN(RLCB),B'00000001' 0361 00188000 * /*********************************************************/ 00189000 * /* */ 00190000 * /* ASSUME SNA - SET UP TO BYPASS TO IEDRQIN */ 00191000 * /* */ 00192000 * /*********************************************************/ 00193000 * 0362 00194000 * RPARM=RLCB; /* PLCB ADDRESS */ 00195000 LR RPARM,RLCB 0362 00196000 * RQCB=SAVTRQIN; /* QCB ADDRESS */ 00197000 L @09,AVTSAVTP(,RAVT) 0363 00198000 L RQCB,SAVTRQIN(,@09) 0363 00199000 * RSTCB=RQCB->QCBSTCHN; /* FIRST STCB IN QCB ADDRESS */ 00200000 L RSTCB,QCBSTCHN-1(,RQCB) 0364 00201000 LA RSTCB,0(,RSTCB) 0364 00202000 * IF TRMSNA=OFF THEN /* NOT SNA TERM */ 00203000 TM TRMSNA(RTRM),B'00000010' 0365 00204000 BNZ @RF00365 0365 00205000 * DO; 0366 00206000 * 0366 00207000 * /*****************************************************/ 00208000 * /* */ 00209000 * /* SET UP TO BYPASS TO IEDSARI */ 00210000 * /* */ 00211000 * /*****************************************************/ 00212000 * 0367 00213000 * RQCB=SAVTSARI; /* QCB ADDRESS */ 00214000 L RQCB,SAVTSARI(,@09) 0367 00215000 * RSTCB=RQCB->QCBSTCHN;/* FIRST STCB IN QCB ADDRESS */ 00216000 L RSTCB,QCBSTCHN-1(,RQCB) 0368 00217000 LA RSTCB,0(,RSTCB) 0368 00218000 * END; 0369 00219000 * RSTATE=BYPASST; /* REQUEST BYPASS STATE */ 00220000 @RF00365 LA RSTATE,2 0370 00221000 * END; 0371 00222000 * ELSE /* NO ELEMENTS ON WAIT CHAIN */ 00223000 * DO; 0372 00224000 B @RC00352 0372 00225000 @RF00352 DS 0H 0373 00226000 * IF TRMERLCK=ON THEN /* IF ERROR LOCK IS SET */ 00227000 TM TRMERLCK(RTRM),B'00000100' 0373 00228000 BNO @RF00373 0373 00229000 * DO; 0374 00230000 * 0374 00231000 * /*****************************************************/ 00232000 * /* */ 00233000 * /* ERROR LOCK PROCESSING */ 00234000 * /* */ 00235000 * /*****************************************************/ 00236000 * 0375 00237000 * CALL GETBUF; 0375 00238000 BAL @14,GETBUF 0375 00239000 * IF RSTATE=NOST THEN /* NO STATE REQUESTED */ 00240000 LTR RSTATE,RSTATE 0376 00241000 BNZ @RF00376 0376 00242000 * DO; 0377 00243000 * 0377 00244000 * /*************************************************/ 00245000 * /* */ 00246000 * /* SET UP TO POST BUFFER TO NIR GENERATOR */ 00247000 * /* */ 00248000 * /*************************************************/ 00249000 * 0378 00250000 * PRFQCBA=SAVTCNIR;/* QCB ADDRESS */ 00251000 L @09,AVTSAVTP(,RAVT) 0378 00252000 MVC PRFQCBA(3,RPRF),SAVTCNIR+1(@09) 0378 00253000 * PRFPRI=PRIASYNC;/* PRIORITY */ 00254000 MVI PRFPRI(RPRF),X'E6' 0379 00255000 * PRFDEST=LCBTTCIN;/* DESTINATION */ 00256000 * 0380 00257000 LH @09,LCBTTCIN(,RLCB) 0380 00258000 N @09,@CF01934 0380 00259000 STH @09,PRFDEST(,RPRF) 0380 00260000 * /*************************************************/ 00261000 * /* */ 00262000 * /* THE BUFFER ADDRESS IS REQUIRED IN REG 1 BY */ 00263000 * /* DSPPOSTR */ 00264000 * /* */ 00265000 * /*************************************************/ 00266000 * 0381 00267000 * RPARM=RPRF; /* BUFFER ADDRESS */ 00268000 LR RPARM,RPRF 0381 00269000 * SAVEQCB=RQCB; /* SAVE QCB ADDRESS ACROSS 0382 00270000 * DSPPOSTR */ 00271000 ST RQCB,SAVEQCB(,RAVT) 0382 00272000 * CALL DSPPOSTR; /* POST TO NIR GENERATOR */ 00273000 LA @15,DSPPOSTR(,RDISP) 0383 00274000 BALR @14,@15 0383 00275000 * RQCB=SAVEQCB; /* RESTORE QCB ADDRESS */ 00276000 L RQCB,SAVEQCB(,RAVT) 0384 00277000 * END; 0385 00278000 * END; 0386 00279000 @RF00376 DS 0H 0387 00280000 * IF RSTATE=NOST THEN /* IF NO STATE REQUESTED */ 00281000 @RF00373 LTR RSTATE,RSTATE 0387 00282000 BNZ @RF00387 0387 00283000 * DO; 0388 00284000 * 0388 00285000 * /*****************************************************/ 00286000 * /* */ 00287000 * /* TEST FOR ANY CONDITION WHICH PREVENTS A RECEIVE */ 00288000 * /* OPERATION */ 00289000 * /* */ 00290000 * /*****************************************************/ 00291000 * 0389 00292000 * IF TRMSNA=ON /* IF SNA OR ... */ 00293000 * |(TRMGPACT=ON /* ... GENERAL POLL AND ... */ 00294000 * &TRMTYPE^=TRMCLUST) THEN/* ... NON CLUSTER */ 00295000 TM TRMSNA(RTRM),B'00000010' 0389 00296000 BO @RT00389 0389 00297000 TM TRMGPACT(RTRM),B'00001000' 0389 00298000 BNO @RF00389 0389 00299000 CLI TRMTYPE(RTRM),X'40' 0389 00300000 BE @RF00389 0389 00301000 @RT00389 DS 0H 0390 00302000 * DO; 0390 00303000 * IF QCBTSSES=ON THEN/* IF TERMINAL IN TSO SESSION 00304000 * THEN ... */ 00305000 TM QCBTSSES(RQCB),B'10000000' 0391 00306000 BNO @RF00391 0391 00307000 * CALL TSOSCHED;/* INTERFACE WITH TSO SCHEDULER */ 00308000 BAL @14,TSOSCHED 0392 00309000 * IF RSTATE=NOST THEN/* IF TSO ALLOWS CONTINUE THEN 00310000 * ... */ 00311000 @RF00391 LTR RSTATE,RSTATE 0393 00312000 BNZ @RF00393 0393 00313000 * DO; /* CONTINUE WITH UNSOLICITED 0394 00314000 * INPUT LOGIC */ 00315000 * TRMINPTP=ON;/* UNSOLICITED INPUT PENDING */ 00316000 * 0395 00317000 OI TRMINPTP(RTRM),B'01000000' 0395 00318000 * /*********************************************/ 00319000 * /* */ 00320000 * /* SET UP TO BYPASS TO QEVENT */ 00321000 * /* */ 00322000 * /*********************************************/ 00323000 * 0396 00324000 * LCBRCLLN=OFF;/* RESET ... @YM08391*/ 00325000 NI LCBRCLLN(RLCB),B'01111111' 0396 00326000 * LCBCTLMD=OFF;/* ... ALL ... @YM08391*/ 00327000 NI LCBCTLMD(RLCB),B'11111101' 0397 00328000 * LCBINITN=OFF;/* ... STATUS BITS ... @YM08391*/ 00329000 * LCBCONT=OFF;/* ... EXCEPT ... @YM08391*/ 00330000 * LCBFREEN=OFF;/* ... NON IMMEDIATE ... 0400 00331000 * @YM08391*/ 00332000 * LCBSENDN=OFF;/* ... OPERATOR CONTROL IN 0401 00333000 * PROGRESS @YM08391*/ 00334000 * LCBRECVN=ON;/* SET RECEIVING @YM08391*/ 00335000 OI LCBRECVN(RLCB),B'00000010' 0402 00336000 NI LCBINITN(RLCB),B'11100010' 0402 00337000 * RPARM=RLCB; /* PLCB ADDRESS */ 00338000 LR RPARM,RLCB 0403 00339000 * RSTCB=LCBRSLNK;/* STCB ADDR */ 00340000 L RSTCB,LCBRSLNK-1(,RLCB) 0404 00341000 LA RSTCB,0(,RSTCB) 0404 00342000 * RQCB=RLCB; /* QCB ADDRESS */ 00343000 LR RQCB,RLCB 0405 00344000 * RSTATE=BYPASST;/* REQUEST BYPASS */ 00345000 LA RSTATE,2 0406 00346000 * END; 0407 00347000 * END; 0408 00348000 * ELSE /* IF NOT SNA OR GENERAL POLL */ 00349000 * IF QCBTSSES=ON THEN/* IF TSO SESSION @YM08526*/ 00350000 B @RC00389 0409 00351000 @RF00389 TM QCBTSSES(RQCB),B'10000000' 0409 00352000 BNO @RF00409 0409 00353000 * DO; /* YES @YM08994*/ 00354000 * RSTATE=RECST; /* DEFAULT RECEIVING @YM08994*/ 00355000 LA RSTATE,3 0411 00356000 * CALL TSOSCHED;/* INTERFACE WITH TSO SCHEDULER 00357000 * @YM08526*/ 00358000 BAL @14,TSOSCHED 0412 00359000 * END; /* @YM08994*/ 00360000 * ELSE /* @YM08526*/ 00361000 * DO; 0414 00362000 B @RC00409 0414 00363000 @RF00409 DS 0H 0415 00364000 * IF AVTCLOSN=ON THEN/* IF TCAM CLOSEDOWN */ 00365000 TM AVTCLOSN(RAVT),B'00000100' 0415 00366000 BNO @RF00415 0415 00367000 * CALL STOPLN; 0416 00368000 BAL @14,STOPLN 0416 00369000 * ELSE /* IF NOT TCAM CLOSEDOWN */ 00370000 * DO; 0417 00371000 B @RC00415 0417 00372000 @RF00415 DS 0H 0418 00373000 * RFY 0418 00374000 * IEDTRM BASED(NCPTRM); 0418 00375000 * NCPTRM=LCBNCPPT-LENGTH(IEDNTRM);/* ADDRESS 00376000 * OF 3705 TRM */ 00377000 L NCPTRM,LCBNCPPT-1(,RLCB) 0419 00378000 LA NCPTRM,0(,NCPTRM) 0419 00379000 SL NCPTRM,@CF01589 0419 00380000 * IF TRMNCPCL=ON|/* IF 3705 CLOSEDOWN ... 0420 00381000 * @YM08004*/ 00382000 * TRMINOP=ON THEN/* ... OR CHANNEL INOP 00383000 * HAS OCCURRED @YM08120*/ 00384000 TM TRMNCPCL(NCPTRM),B'01000000' 0420 00385000 BO @RT00420 0420 00386000 TM TRMINOP(NCPTRM),B'10000000' 0420 00387000 BNO @RF00420 0420 00388000 @RT00420 DS 0H 0421 00389000 * DO; 0421 00390000 * RFY 0422 00391000 * IEDTRM BASED(RTRM); 0422 00392000 * CALL STOPLN; 0423 00393000 BAL @14,STOPLN 0423 00394000 * END; 0424 00395000 * ELSE /* IF NOT 3705 CLOSEDOWN */ 00396000 * IF TRMINPUT=OFF&TRMOUTPT=ON&TRMSESSN=ON 00397000 * THEN 0425 00398000 * 0425 00399000 B @RC00420 0425 00400000 @RF00420 TM TRMOUTPT(RTRM),B'00100000' 0425 00401000 BNO @RF00425 0425 00402000 TM TRMINPUT(RTRM),B'01000000' 0425 00403000 BNZ @RF00425 0425 00404000 TM TRMSESSN(RTRM),B'01000000' 0425 00405000 BNO @RF00425 0425 00406000 */* IF OUTPUT ONLY TERMINAL AND IN SESSION @OY16368 */ 00407000 * 0426 00408000 * CALL STOPLN;/* CALL STOPLINE @OY16368*/ 00409000 BAL @14,STOPLN 0426 00410000 * ELSE 0427 00411000 * DO; 0427 00412000 B @RC00425 0427 00413000 @RF00425 DS 0H 0428 00414000 * IF(TRMOCNI=OFF&(TRMRSACT=OFF|TRMSPACT= 00415000 * OFF))| 0428 00416000 * 0428 00417000 */* IF THE RESOURCE IS INACTIVE OR IF THE LINE HAS BEEN STOPPED OR ... 00418000 * @YM08472 */ 00419000 * 0428 00420000 * TRMINPUT=OFF THEN/* ... IF OUTPUT 00421000 * ONLY */ 00422000 TM TRMOCNI(RTRM),B'00100000' 0428 00423000 BNZ @GL00007 0428 00424000 TM TRMRSACT(RTRM),B'10000000' 0428 00425000 BZ @RT00428 0428 00426000 TM TRMSPACT(RTRM),B'00010000' 0428 00427000 BZ @RT00428 0428 00428000 @GL00007 TM TRMINPUT(RTRM),B'01000000' 0428 00429000 BNZ @RF00428 0428 00430000 @RT00428 DS 0H 0429 00431000 * IF TRMRSACT=OFF&TRMSESSN=ON THEN/* 00432000 * IF NOT WAITING FOR INPUT AND 00433000 * THE TERMINAL IS IN SESSION BUT 00434000 * NOT ACTIVE @ZM47686*/ 00435000 TM TRMRSACT(RTRM),B'10000000' 0429 00436000 BNZ @RF00429 0429 00437000 TM TRMSESSN(RTRM),B'01000000' 0429 00438000 BNO @RF00429 0429 00439000 * LCBNEGRP=ON;/* WILL REQUEST A 0430 00440000 * DISCONNECT BE SENT BY NKA 0430 00441000 * @ZM47686*/ 00442000 OI LCBNEGRP(RLCB),B'00001000' 0430 00443000 * ELSE/* @ZM47686*/ 00444000 * RSTATE=BYPASST;/* REQUEST BYPASS 00445000 * STATE */ 00446000 B @RC00429 0431 00447000 @RF00429 LA RSTATE,2 0431 00448000 * ELSE 0432 00449000 * IF TRMDIAL=ON&/* IF DIAL TERMINAL 00450000 * ... */ 00451000 * TRMTYPE^=TRMCTERM&/* ... BUT 0432 00452000 * NOT CTERM ... */ 00453000 * TRMSESSN=OFF&/* ... AND NOT IN 00454000 * SESSION ... */ 00455000 * QCBSCHDL=OFF THEN/* ... AND NOT 00456000 * IN PROCESS OF CONTACTING ... */ 00457000 B @RC00428 0432 00458000 @RF00428 TM TRMDIAL(RTRM),B'00001000' 0432 00459000 BNO @RF00432 0432 00460000 CLI TRMTYPE(RTRM),X'48' 0432 00461000 BE @RF00432 0432 00462000 TM TRMSESSN(RTRM),B'01000000' 0432 00463000 BNZ @RF00432 0432 00464000 TM QCBSCHDL(RQCB),B'00000100' 0432 00465000 BNZ @RF00432 0432 00466000 * RSTATE=BYPASST;/* THEN BYPASS TO 00467000 * DISPOSE OF PLCB */ 00468000 LA RSTATE,2 0433 00469000 * IF RSTATE=BYPASST THEN/* IF BYPASS 0434 00470000 * STATE REQUESTED */ 00471000 @RF00432 DS 0H 0434 00472000 @RC00428 C RSTATE,@CF00130 0434 00473000 BNE @RF00434 0434 00474000 * DO;/* SET UP REGISTERS FOR DSPBYPAS 00475000 * TO QEVENT */ 00476000 * 0435 00477000 * /*********************************/ 00478000 * /* */ 00479000 * /* SET UP TO BYPASS TO QEVENT */ 00480000 * /* */ 00481000 * /*********************************/ 00482000 * 0436 00483000 * RPARM=RLCB;/* PLCB ADDRESS */ 00484000 LR RPARM,RLCB 0436 00485000 * RSTCB=LCBRSLNK;/* STCB ADDRESS */ 00486000 L RSTCB,LCBRSLNK-1(,RLCB) 0437 00487000 LA RSTCB,0(,RSTCB) 0437 00488000 * RQCB=RLCB;/* QCB ADDRESS */ 00489000 LR RQCB,RLCB 0438 00490000 * END; 0439 00491000 * ELSE/* PERFORM RECEIVE SCHEDULING */ 00492000 * DO; 0440 00493000 * 0440 00494000 B @RC00434 0440 00495000 @RF00434 DS 0H 0441 00496000 * /*********************************/ 00497000 * /* */ 00498000 * /* RECEIVE SCHEDULING */ 00499000 * /* */ 00500000 * /*********************************/ 00501000 * 0441 00502000 * RSTATE=RECST;/* REQUEST RECEIVE 00503000 * STATE */ 00504000 LA RSTATE,3 0441 00505000 * IF LCBSCBA->SCBLCK1N=OFF THEN/* 00506000 * IF NOT LOCK MODE @YM04622*/ 00507000 L @09,LCBSCBA-1(,RLCB) 0442 00508000 LA @09,0(,@09) 0442 00509000 TM SCBLCK1N(@09),B'00100000' 0442 00510000 BNZ @RF00442 0442 00511000 * DO; 0443 00512000 * IF LCBSCBA->SCBBFMM=ON THEN/* 00513000 * MIDDLE OF MESSAGE */ 00514000 TM SCBBFMM(@09),B'00000001' 0444 00515000 BNO @RF00444 0444 00516000 * IF(TRMSTMM=ON&/* STOP MIDDLE 00517000 * OF MESSAGE ... @YM05724*/ 00518000 * TRMSNA=OFF) THEN/* ... FOR 00519000 * PRE-SNA RESOURCE @YM05724*/ 00520000 TM TRMSTMM(RTRM),B'00100000' 0445 00521000 BNO @RF00445 0445 00522000 TM TRMSNA(RTRM),B'00000010' 0445 00523000 BNZ @RF00445 0445 00524000 * DO;/* @YM08422*/ 00525000 * LCBSCBA->SCBBFMM=OFF;/* 0447 00526000 * RESET MIDDLE OF MSG @YM08422*/ 00527000 NI SCBBFMM(@09),B'11111110' 0447 00528000 * LCBSCBA->SCBMRFSD=0;/* RESET 00529000 * MULT ROUTE INDICATOR @YM08509*/ 00530000 SLR @05,@05 0448 00531000 STH @05,SCBMRFSD(,@09) 0448 00532000 * LCBSCBA->SCBDLPTR=0;/* RESET 00533000 * DIST LIST INDICATOR @YM08509*/ 00534000 STH @05,SCBDLPTR(,@09) 0449 00535000 * RSTATE=STPLNST;/* REQUEST 0450 00536000 * STOP LINE STATE */ 00537000 LA RSTATE,5 0450 00538000 * END;/* @YM08422*/ 00539000 * ELSE 0452 00540000 * ;/* @YM04622*/ 00541000 @RF00445 DS 0H 0453 00542000 * ELSE/* NOT MIDDLE OF MESSAGE */ 00543000 * IF LCBOCNI=ON THEN/* IF 0453 00544000 * STOPLINE */ 00545000 B @RC00444 0453 00546000 @RF00444 TM LCBOCNI(RLCB),B'00100000' 0453 00547000 BNO @RF00453 0453 00548000 * RSTATE=STPLNST;/* REQUEST 0454 00549000 * STOP LINE STATE */ 00550000 LA RSTATE,5 0454 00551000 * IF RSTATE=STPLNST THEN/* IF 0455 00552000 * STOP LINE STATE */ 00553000 @RF00453 DS 0H 0455 00554000 @RC00444 C RSTATE,@CF00156 0455 00555000 BNE @RF00455 0455 00556000 * CALL STOPLN; 0456 00557000 BAL @14,STOPLN 0456 00558000 * END; 0457 00559000 @RF00455 DS 0H 0458 00560000 * END; 0458 00561000 @RF00442 DS 0H 0459 00562000 * END; 0459 00563000 @RC00434 DS 0H 0460 00564000 * END; 0460 00565000 @RC00425 DS 0H 0460 00566000 @RC00420 DS 0H 0461 00567000 * END; 0461 00568000 @RC00415 DS 0H 0462 00569000 * END; 0462 00570000 @RC00409 DS 0H 0462 00571000 @RC00389 DS 0H 0463 00572000 * END; 0463 00573000 @RF00387 DS 0H 0464 00574000 * END; 0464 00575000 @RC00352 DS 0H 0465 00576000 * 0465 00577000 * /*****************************************************************/ 00578000 * /* */ 00579000 * /* ANALYZE STATE VALUE TO DETERMINE EXIT */ 00580000 * /* */ 00581000 * /*****************************************************************/ 00582000 * 0465 00583000 * IF RSTATE=RECST THEN /* IF RECEIVE STATE REQUESTED */ 00584000 @RF00343 C RSTATE,@CF00065 0465 00585000 BNE @RF00465 0465 00586000 * DO; 0466 00587000 * IF QCBTSSES=OFF THEN /* IF TSO IS NOT IN SESSION */ 00588000 TM QCBTSSES(RQCB),B'10000000' 0467 00589000 BNZ @RF00467 0467 00590000 * DO; 0468 00591000 * IF AVTRFULN=ON /* IF RECEIVE ... */ 00592000 * |AVTRECVN=ON THEN /* ... POSSIBLE */ 00593000 TM AVTRFULN(RAVT),B'11000000' 0469 00594000 BZ @RF00469 0469 00595000 * DO; 0470 00596000 * 0470 00597000 * /*****************************************************/ 00598000 * /* */ 00599000 * /* SET UP TO BYPASS TO QEVENT */ 00600000 * /* */ 00601000 * /*****************************************************/ 00602000 * 0471 00603000 * RPARM=RLCB; /* PLCB ADDRESS */ 00604000 LR RPARM,RLCB 0471 00605000 * RSTCB=LCBRSLNK; /* STCB ADDRESS */ 00606000 L RSTCB,LCBRSLNK-1(,RLCB) 0472 00607000 LA RSTCB,0(,RSTCB) 0472 00608000 * RQCB=RLCB; /* QCB ADDRESS */ 00609000 LR RQCB,RLCB 0473 00610000 * RSTATE=BYPASST; /* REQUEST BYPASS STATE */ 00611000 LA RSTATE,2 0474 00612000 * END; 0475 00613000 * END; 0476 00614000 @RF00469 DS 0H 0477 00615000 * IF RSTATE=RECST THEN /* IF RECEIVE STATE */ 00616000 @RF00467 C RSTATE,@CF00065 0477 00617000 BNE @RF00477 0477 00618000 * DO; 0478 00619000 * 0478 00620000 * /*********************************************************/ 00621000 * /* */ 00622000 * /* RECEIVE ROUTINE */ 00623000 * /* */ 00624000 * /*********************************************************/ 00625000 * 0479 00626000 * CALL GETBUF; 0479 00627000 BAL @14,GETBUF 0479 00628000 * IF RSTATE=RECST THEN /* IF RECEIVE STATE */ 00629000 C RSTATE,@CF00065 0480 00630000 BNE @RF00480 0480 00631000 * DO; 0481 00632000 * LCBRCLLN=OFF; /* RESET ... */ 00633000 NI LCBRCLLN(RLCB),B'01111111' 0482 00634000 * LCBCTLMD=OFF; /* ... ALL OF */ 00635000 NI LCBCTLMD(RLCB),B'11111101' 0483 00636000 * LCBINITN=OFF; /* ... LCBSTAT1 ... */ 00637000 * LCBCONT=OFF; /* ... EXCEPT ... */ 00638000 * LCBFREEN=OFF; /* ... NON IMMEDIATE OPERATOR ...*/ 00639000 * LCBSENDN=OFF; /* ... CONTROL IN PROGRESS */ 00640000 * LCBRECVN=ON; /* SET RECEIVING */ 00641000 * 0488 00642000 OI LCBRECVN(RLCB),B'00000010' 0488 00643000 NI LCBINITN(RLCB),B'11100010' 0488 00644000 * /*****************************************************/ 00645000 * /* */ 00646000 * /* SET UP TO BYPASS TO NIR GENERATOR */ 00647000 * /* */ 00648000 * /*****************************************************/ 00649000 * 0489 00650000 * IF TRMSESSN=ON THEN /* IF TERMINAL IS IN SESSION THEN 00651000 * CONTACT HAS BEEN DONE ... */ 00652000 TM TRMSESSN(RTRM),B'01000000' 0489 00653000 BNO @RF00489 0489 00654000 * QCBSCHDL=OFF; /* ... SO RESET SCHEDULING 0490 00655000 * INDICATOR */ 00656000 NI QCBSCHDL(RQCB),B'11111011' 0490 00657000 * LCBERBCH=RPRF; /* BUFFER ADDRESS */ 00658000 @RF00489 STCM RPRF,7,LCBERBCH(RLCB) 0491 00659000 * LCBERBPY=PRIACTIV; /* PRIORITY */ 00660000 MVI LCBERBPY(RLCB),X'E4' 0492 00661000 * LCBERBQB=SAVTCNIR; /* QCB ADDRESS */ 00662000 L @09,AVTSAVTP(,RAVT) 0493 00663000 L @09,SAVTCNIR(,@09) 0493 00664000 STCM @09,7,LCBERBQB(RLCB) 0493 00665000 * RPARM=ADDR(LCBERB); /* ERB ADDRESS */ 00666000 LA RPARM,LCBERB(,RLCB) 0494 00667000 * RQCB=SAVTCNIR; /* QCB ADDRESS */ 00668000 LR RQCB,@09 0495 00669000 * RSTCB=SAVTCNIR->QCBSTCHN;/* STCB ADDRESS */ 00670000 L RSTCB,QCBSTCHN-1(,@09) 0496 00671000 LA RSTCB,0(,RSTCB) 0496 00672000 * RSTATE=BYPASST; /* REQUEST BYPASS STATE */ 00673000 LA RSTATE,2 0497 00674000 * END; 0498 00675000 * END; 0499 00676000 @RF00480 DS 0H 0500 00677000 * END; 0500 00678000 @RF00477 DS 0H 0501 00679000 * 0501 00680000 * /*****************************************************************/ 00681000 * /* */ 00682000 * /* EXIT ANALYSIS PROCESSING */ 00683000 * /* */ 00684000 * /*****************************************************************/ 00685000 * 0501 00686000 * RFY 0501 00687000 * RRETURN RSTD; 0501 00688000 @RF00465 DS 0H 0502 00689000 * IF RSTATE=BYPASST THEN /* IF BYPASS STATE */ 00690000 * 0502 00691000 C RSTATE,@CF00130 0502 00692000 BNE @RF00502 0502 00693000 * /***************************************************************/ 00694000 * /* */ 00695000 * /* SET UP TO CALL DSPBYPAS */ 00696000 * /* */ 00697000 * /***************************************************************/ 00698000 * 0503 00699000 * RRETURN=ADDR(DSPBYPAS); /* WHERE TO GO */ 00700000 LA RRETURN,DSPBYPAS(,RDISP) 0503 00701000 * ELSE /* NOT BYPASS STATE */ 00702000 * IF RSTATE=EXITST THEN /* IF EXIT STATE REQUEST */ 00703000 * 0504 00704000 B @RC00502 0504 00705000 @RF00502 C RSTATE,@CF00070 0504 00706000 BNE @RF00504 0504 00707000 * /*************************************************************/ 00708000 * /* */ 00709000 * /* SET UP TO EXIT TO DSPDISP */ 00710000 * /* */ 00711000 * /*************************************************************/ 00712000 * 0505 00713000 * RRETURN=ADDR(DSPDISP); /* WHERE TO GO */ 00714000 LA RRETURN,DSPDISP(,RDISP) 0505 00715000 * ELSE 0506 00716000 * 0506 00717000 * /*************************************************************/ 00718000 * /* */ 00719000 * /* SET UP TO CALL DSPPOST */ 00720000 * /* */ 00721000 * /*************************************************************/ 00722000 * 0506 00723000 * CALL DSPPOST; /* @Y17XAIX*/ 00724000 B @RC00504 0506 00725000 @RF00504 LA @15,DSPPOST(,RDISP) 0506 00726000 BALR @14,@15 0506 00727000 * RFY 0507 00728000 * RRETURN UNRSTD; 0507 00729000 * RETURN; 0508 00730000 @EL00001 DS 0H 0508 00731000 @EF00001 DS 0H 0508 00732000 @ER00001 BR @14 0508 00733000 * 0509 00734000 * /*****************************************************************/ 00735000 * /* */ 00736000 * /* THIS INTERNAL SUBROUTINE GETS A BUFFER TO USE FOR PROCESSING */ 00737000 * /* */ 00738000 * /*****************************************************************/ 00739000 * 0509 00740000 *GETBUF: 0509 00741000 * PROC OPTIONS(RETREG,SAVE(14)); 0509 00742000 * 0509 00743000 B @EL00001 0509 00744000 GETBUF ST @14,@SA00002 0509 00745000 * /*****************************************************************/ 00746000 * /* */ 00747000 * /* SEE IF A BUFFER IS AVAILABLE ON THE ERB CHAIN */ 00748000 * /* */ 00749000 * /*****************************************************************/ 00750000 * 0510 00751000 * IF LCBERBCH^=ZERO THEN /* ANY BUFFERS ON ERB CHAIN */ 00752000 L @09,LCBERBCH-1(,RLCB) 0510 00753000 LA @09,0(,@09) 0510 00754000 LTR @09,@09 0510 00755000 BZ @RF00510 0510 00756000 * DO; 0511 00757000 * RPRF=LCBERBCH; /* INIT BUFFER ADDRESS BASE */ 00758000 LR RPRF,@09 0512 00759000 * LCBERBCH=ZERO; /* DELINK BUFFER */ 00760000 SLR @09,@09 0513 00761000 STCM @09,7,LCBERBCH(RLCB) 0513 00762000 * END; 0514 00763000 * ELSE /* THERE IS NO BUFFER AVAILABLE 00764000 * ON ERB CHAIN */ 00765000 * DO; 0515 00766000 * 0515 00767000 B @RC00510 0515 00768000 @RF00510 DS 0H 0516 00769000 * /*************************************************************/ 00770000 * /* */ 00771000 * /* USE BUFFER STEAL ROUTINE TO STEAL A BUFFER */ 00772000 * /* */ 00773000 * /*************************************************************/ 00774000 * 0516 00775000 * RFY 0516 00776000 * (RPARM0, 0516 00777000 * RRTNCDE) RSTD; 0516 00778000 * RPARM0=UNIT; /* NUMBER OF UNITS PER BUFFER */ 00779000 LA @14,1 0517 00780000 LR RPARM0,@14 0517 00781000 * RPARM=UNIT; /* NUMBER OF BUFFERS */ 00782000 LR RPARM,@14 0518 00783000 * CALL IEDQGA02; 0519 00784000 L @15,AVTSTEAL(,RAVT) 0519 00785000 BALR @14,@15 0519 00786000 * IF RRTNCDE=ZERO THEN /* IF BUFFER STEAL UNSUCCESSFUL */ 00787000 LTR RRTNCDE,RRTNCDE 0520 00788000 BNZ @RF00520 0520 00789000 * DO; 0521 00790000 * 0521 00791000 * /*********************************************************/ 00792000 * /* */ 00793000 * /* SET UP TO POST THE ERB TO GET A BUFFER */ 00794000 * /* */ 00795000 * /*********************************************************/ 00796000 * 0522 00797000 * RPARM=ADDR(LCBERB); /* ERB POINTER */ 00798000 LA RPARM,LCBERB(,RLCB) 0522 00799000 * LCBERBQB=ADDR(AVTBFREB);/* ELEMENT REQUEST BLOCK KEY */ 00800000 LA @14,AVTBFREB(,RAVT) 0523 00801000 STCM @14,7,LCBERBQB(RLCB) 0523 00802000 * LCBERBPY=PRIINTRQ; /* PRIORITY */ 00803000 MVI LCBERBPY(RLCB),X'E4' 0524 00804000 * LCBRBCT1=NOBUFS; /* NUMBER OF BUFFERS REQUESTED */ 00805000 MVI LCBRBCT1(RLCB),X'01' 0525 00806000 * LCBRBCT2=UNIT; /* NUMBER OF UNITS PER BUFFER */ 00807000 MVI LCBRBCT2(RLCB),X'01' 0526 00808000 * LCBRCQCB=RLCB; /* QCB TO POST RECALLED BUFFER TO*/ 00809000 ST RLCB,LCBRCQCB(,RLCB) 0527 00810000 * LCBPRCPG=ON; /* POST ERB INDICATOR */ 00811000 OI LCBPRCPG(RLCB),B'00000010' 0528 00812000 * RSTATE=POSTST; /* REQUEST POST STATE */ 00813000 LA RSTATE,1 0529 00814000 * END; 0530 00815000 * ELSE /* STEAL WAS SUCCESSFUL */ 00816000 * RPRF=RRTNCDE; /* SET UP BUFFER BASE */ 00817000 B @RC00520 0531 00818000 @RF00520 LR RPRF,RRTNCDE 0531 00819000 * RFY 0532 00820000 * (RPARM0, 0532 00821000 * RRTNCDE) UNRSTD; 0532 00822000 @RC00520 DS 0H 0533 00823000 * END; 0533 00824000 * END GETBUF; 0534 00825000 @EL00002 DS 0H 0534 00826000 @EF00002 DS 0H 0534 00827000 @ER00002 L @14,@SA00002 0534 00828000 BR @14 0534 00829000 * 0535 00830000 * /*****************************************************************/ 00831000 * /* */ 00832000 * /* THIS SUBROUTINE IS ENTERED WHEN TSO SESSION IS DETECTED. ITS */ 00833000 * /* PURPOSE IS TO INTERFACE WITH THE TSO SCHEDULER AND ANALYZE THE*/ 00834000 * /* RETURN CODES. */ 00835000 * /* */ 00836000 * /*****************************************************************/ 00837000 * 0535 00838000 *TSOSCHED: 0535 00839000 * PROC OPTIONS(RETREG,SAVE(14)); 0535 00840000 TSOSCHED ST @14,@SA00003 0535 00841000 * RFY 0536 00842000 * RPARM0 RSTD; 0536 00843000 * RPARM0=TSOA03; /* SELECT VALUE */ 00844000 LA RPARM0,3 0537 00845000 * CALL IEDAYJ; 0538 00846000 L @09,AVTTSOPT(,RAVT) 0538 00847000 L @15,TSIRNSCH(,@09) 0538 00848000 BALR @14,@15 0538 00849000 * RFY 0539 00850000 * RPARM0 UNRSTD; 0539 00851000 * RFY 0540 00852000 * RRTNCDE RSTD; /* RESTRICT RETURN CODE REGISTER */ 00853000 * IF RRTNCDE=TSODISP THEN /* DOES TSO REQUEST EXIT TO 0541 00854000 * DSPDISP */ 00855000 C RRTNCDE,@CF00330 0541 00856000 BNE @RF00541 0541 00857000 * RSTATE=EXITST; /* IF YES, REQUEST EXIT TO 0542 00858000 * DSPDISP */ 00859000 LA RSTATE,6 0542 00860000 * ELSE 0543 00861000 * IF RRTNCDE=TSOBYPAS THEN /* DOES TSO REQUEST DEALLOCATION 00862000 * OF THE PLCB @YM08526*/ 00863000 * 0543 00864000 B @RC00541 0543 00865000 @RF00541 C RRTNCDE,@CF00044 0543 00866000 BNE @RF00543 0543 00867000 * /*************************************************************/ 00868000 * /* */ 00869000 * /* BYPASS TO QEVENT TO DISPOSE OF THE PLCB @YM08578*/ 00870000 * /* */ 00871000 * /*************************************************************/ 00872000 * 0544 00873000 * DO; /* @YM08578*/ 00874000 * RPARM=RLCB; /* PLCB ADDRESS @YM08578*/ 00875000 LR RPARM,RLCB 0545 00876000 * RSTCB=LCBRSLNK; /* STCB ADDRESS @YM08578*/ 00877000 L RSTCB,LCBRSLNK-1(,RLCB) 0546 00878000 LA RSTCB,0(,RSTCB) 0546 00879000 * RQCB=RLCB; /* QCB ADDRESS @YM08578*/ 00880000 LR RQCB,RLCB 0547 00881000 * RSTATE=BYPASST; /* REQUEST BYPASS STATE @YM08578*/ 00882000 LA RSTATE,2 0548 00883000 * END; /* @YM08578*/ 00884000 * ELSE /* @YM08578*/ 00885000 * IF RRTNCDE=TSOFRLCB THEN /* DOES TSO REQUEST FREEING THE 00886000 * PLCB AND EXITING TO THE 0550 00887000 * DISPATCHER @YM08578*/ 00888000 * 0550 00889000 B @RC00543 0550 00890000 @RF00543 C RRTNCDE,@CF01629 0550 00891000 BNE @RF00550 0550 00892000 * /***********************************************************/ 00893000 * /* */ 00894000 * /* DEALLOCATE THE PLCB AND SET UP TO EXIT TO THE DISPATCHER*/ 00895000 * /* */ 00896000 * /***********************************************************/ 00897000 * 0551 00898000 * DO; 0551 00899000 * IF LCBSTCBA->STCBVTO=DSPSEND THEN/* IF SEND SCHED IS IN 00900000 * PLCB @YM08526*/ 00901000 L @14,LCBSTCBA-1(,RLCB) 0552 00902000 CLI STCBVTO(@14),X'22' 0552 00903000 BNE @RF00552 0552 00904000 * QCBSNDRQ=ON; /* ENSURE SEND SCHEDULER WILL BE 00905000 * INSERTED WHEN PLCB IS 0553 00906000 * REASSIGNED @YM08526*/ 00907000 LR @14,RQCB 0553 00908000 AL @14,@CF01942 0553 00909000 OI QCBSNDRQ-4(@14),B'00100000' 0553 00910000 * RPARM=RLCB; /* PLCB ADDRESS */ 00911000 @RF00552 LR RPARM,RLCB 0554 00912000 * CALL IEDIAP07; /* DEALLOCATE PLCB @YM08526*/ 00913000 L @09,AVTSAVTP(,RAVT) 0555 00914000 L @15,SAVTPRTN(,@09) 0555 00915000 BALR @14,@15 0555 00916000 * RSTATE=EXITST; /* REQUEST EXIT TO TCAM 0556 00917000 * DISPATCHER @YM08526*/ 00918000 LA RSTATE,6 0556 00919000 * END; 0557 00920000 * RFY 0558 00921000 * RRTNCDE UNRSTD; 0558 00922000 * END TSOSCHED; 0559 00923000 @EL00003 DS 0H 0559 00924000 @EF00003 DS 0H 0559 00925000 @ER00003 L @14,@SA00003 0559 00926000 BR @14 0559 00927000 * 0560 00928000 * /*****************************************************************/ 00929000 * /* */ 00930000 * /* THIS SUBROUTINE IS ENTERED WHEN THE STOPLINE STATE IS SET */ 00931000 * /* */ 00932000 * /*****************************************************************/ 00933000 * 0560 00934000 *STOPLN: 0560 00935000 * PROC OPTIONS(RETREG,SAVE(14)); 0560 00936000 STOPLN ST @14,@SA00004 0560 00937000 * IF TRMSESSN=ON THEN /* IF TERM IS IN SESSION */ 00938000 TM TRMSESSN(RTRM),B'01000000' 0561 00939000 BNO @RF00561 0561 00940000 * DO; 0562 00941000 * CALL GETBUF; 0563 00942000 BAL @14,GETBUF 0563 00943000 * IF RSTATE^=POSTST THEN /* IF POST STATE IS NOT REQUESTED*/ 00944000 C RSTATE,@CF00059 0564 00945000 BE @RF00564 0564 00946000 * DO; 0565 00947000 * LCBRCLLN=OFF; /* RESET @YM06475*/ 00948000 NI LCBRCLLN(RLCB),B'01111111' 0566 00949000 * LCBCTLMD=OFF; /* ... ALL @YM06475*/ 00950000 NI LCBCTLMD(RLCB),B'11111101' 0567 00951000 * LCBINITN=OFF; /* ... LCBSTAT1 @YM06475*/ 00952000 * LCBCONT=OFF; /* ... BITS @YM06475*/ 00953000 * LCBFREEN=OFF; /* ... EXCEPT @YM06475*/ 00954000 * LCBSENDN=OFF; /* ... LCBOCNI @YM06475*/ 00955000 * LCBRECVN=ON; /* SET RECEIVING @YM06475*/ 00956000 OI LCBRECVN(RLCB),B'00000010' 0572 00957000 NI LCBINITN(RLCB),B'11100010' 0572 00958000 * LCBNEGRP=ON; /* FORCE IEDNKA TO DISC @YM08120*/ 00959000 * 0573 00960000 OI LCBNEGRP(RLCB),B'00001000' 0573 00961000 * /*********************************************************/ 00962000 * /* */ 00963000 * /* SET UP TO POST ERB TO NIR GENERATOR */ 00964000 * /* */ 00965000 * /*********************************************************/ 00966000 * 0574 00967000 * QCBSCHDL=OFF; /* CLEANUP SCHEDULING INDICATOR */ 00968000 NI QCBSCHDL(RQCB),B'11111011' 0574 00969000 * LCBERBCH=RPRF; /* BUFFER ADDRESS */ 00970000 STCM RPRF,7,LCBERBCH(RLCB) 0575 00971000 * LCBERBPY=PRIACTIV; /* PRIORITY */ 00972000 MVI LCBERBPY(RLCB),X'E4' 0576 00973000 * LCBERBQB=SAVTCNIR; /* ERB QCB */ 00974000 * 0577 00975000 L @09,AVTSAVTP(,RAVT) 0577 00976000 L @09,SAVTCNIR(,@09) 0577 00977000 STCM @09,7,LCBERBQB(RLCB) 0577 00978000 * /*********************************************************/ 00979000 * /* */ 00980000 * /* REGS REQUIRED BY DSPBYPAS */ 00981000 * /* */ 00982000 * /*********************************************************/ 00983000 * 0578 00984000 * RPARM=ADDR(LCBERB); /* ERB ADDRESS */ 00985000 LA RPARM,LCBERB(,RLCB) 0578 00986000 * RSTCB=SAVTCNIR->QCBSTCHN;/* STCB ADDRESS */ 00987000 L RSTCB,QCBSTCHN-1(,@09) 0579 00988000 LA RSTCB,0(,RSTCB) 0579 00989000 * RQCB=SAVTCNIR; /* QCB ADDRESS */ 00990000 LR RQCB,@09 0580 00991000 * RSTATE=BYPASST; /* REQUEST BYPASS STATE */ 00992000 LA RSTATE,2 0581 00993000 * END; 0582 00994000 * END; 0583 00995000 * ELSE /* TERM IS NOT IN SESSION */ 00996000 * DO; 0584 00997000 * 0584 00998000 B @RC00561 0584 00999000 @RF00561 DS 0H 0585 01000000 * /*************************************************************/ 01001000 * /* */ 01002000 * /* SET UP TO BYPASS TO QEVENT */ 01003000 * /* */ 01004000 * /*************************************************************/ 01005000 * 0585 01006000 * RPARM=RLCB; /* PLCB ADDRESS */ 01007000 LR RPARM,RLCB 0585 01008000 * RSTCB=LCBRSLNK; /* STCB ADDRESS */ 01009000 L RSTCB,LCBRSLNK-1(,RLCB) 0586 01010000 LA RSTCB,0(,RSTCB) 0586 01011000 * RQCB=RLCB; /* QCB ADDRESS */ 01012000 LR RQCB,RLCB 0587 01013000 * RSTATE=BYPASST; /* REQUEST BYPASS STATE */ 01014000 LA RSTATE,2 0588 01015000 * END; 0589 01016000 * END STOPLN; 0590 01017000 @EL00004 DS 0H 0590 01018000 @EF00004 DS 0H 0590 01019000 @ER00004 L @14,@SA00004 0590 01020000 BR @14 0590 01021000 * 0591 01022000 * /*****************************************************************/ 01023000 * /* */ 01024000 * /* INPUT TO THIS ROUTINE IS FROM THE TCAM DISPATCHER. R1=ADDRESS */ 01025000 * /* OF THE LCB, R3=ADDRESS OF THE QEVENT STCB, R11=THE DISPATCHER */ 01026000 * /* BASE, R13= THE ADDRESS OF AVTSAVE2. */ 01027000 * /* */ 01028000 * /*****************************************************************/ 01029000 * 0591 01030000 *QEVENT: 0591 01031000 * PROC OPTIONS(NOSAVE); 0591 01032000 QEVENT DS 0H 0592 01033000 * GEN NOREFS SETS(RCODE); 0592 01034000 * /* 01035000 DC AL1(DSPMCPL6),XL5'00' LAST STCB IN CHAIN 01036000 USING *,RCODE R12= BASE REG 01037000 LR RCODE,RENTADDR LOAD BASE REG 01038000 DSPMCPL6 EQU 8 01039000 * RFY 0593 01040000 * (RTRM, 0593 01041000 * RQCB, 0593 01042000 * RSTATE, 0593 01043000 * RAVT, 0593 01044000 * RPARM, 0593 01045000 * RLCB, 0593 01046000 * RSTCB, 0593 01047000 * RDISP) RSTD; 0593 01048000 * RFY 0594 01049000 * RPRF UNRSTD; 0594 01050000 * RLCB=RPARM; /* LCB ADDRESS */ 01051000 LR RLCB,RPARM 0595 01052000 * RSTATE=NOST; /* INITIALIZE STATE REG */ 01053000 SLR RSTATE,RSTATE 0596 01054000 * IF LCBPERM=ON THEN /* IF SSCP PLCB */ 01055000 TM LCBPERM(RLCB),B'10000000' 0597 01056000 BNO @RF00597 0597 01057000 * DO; 0598 01058000 * 0598 01059000 * /*************************************************************/ 01060000 * /* */ 01061000 * /* SSCP'S PLCB GET SPECIAL PROCESSING */ 01062000 * /* */ 01063000 * /*************************************************************/ 01064000 * 0599 01065000 * LCBRCLLN=OFF; /* RESET ... */ 01066000 NI LCBRCLLN(RLCB),B'01111111' 0599 01067000 * LCBCTLMD=OFF; /* ... STATUS ... */ 01068000 NI LCBCTLMD(RLCB),B'11111101' 0600 01069000 * LCBOCNI=OFF; /* ... BITS ... */ 01070000 * LCBINITN=OFF; /* ... EXCEPT ... */ 01071000 * LCBCONT=OFF; /* ... FOR ... */ 01072000 * LCBFREEN=ON; /* ... SET FREE ... */ 01073000 * LCBRECVN=OFF; /* ... RESET ... */ 01074000 * LCBSENDN=OFF; /* ... RESET */ 01075000 OI LCBFREEN(RLCB),B'00000100' 0606 01076000 NI LCBOCNI(RLCB),B'11000100' 0606 01077000 * END; 0607 01078000 * ELSE /* NOT SSCP PLCB */ 01079000 * DO; 0608 01080000 * 0608 01081000 B @RC00597 0608 01082000 @RF00597 DS 0H 0609 01083000 * /*************************************************************/ 01084000 * /* */ 01085000 * /* GET THE TRM AND THE QCB */ 01086000 * /* */ 01087000 * /*************************************************************/ 01088000 * 0609 01089000 * RPARM=LCBTTCIN; /* TNT INDEX FOR ROUTINE */ 01090000 LH RPARM,LCBTTCIN(,RLCB) 0609 01091000 N RPARM,@CF01934 0609 01092000 * CALL IEDQTNT; 0610 01093000 L @15,AVTRNMPT(,RAVT) 0610 01094000 BALR @14,@15 0610 01095000 * RTRM=RPARM-LENGTH(IEDNTRM); /* TRM BASE RETURNED */ 01096000 LR RTRM,RPARM 0611 01097000 SL RTRM,@CF01589 0611 01098000 * RQCB=TRMDESTQ; /* QCB ADDRESS */ 01099000 SLR RQCB,RQCB 0612 01100000 ICM RQCB,7,TRMDESTQ(RTRM) 0612 01101000 * IF LCBERBCH^=ZERO THEN /* IF A BUFFER IS ON ERB CHAIN */ 01102000 L @09,LCBERBCH-1(,RLCB) 0613 01103000 LA @09,0(,@09) 0613 01104000 LTR @09,@09 0613 01105000 BZ @RF00613 0613 01106000 * DO; 0614 01107000 * 0614 01108000 * /*********************************************************/ 01109000 * /* */ 01110000 * /* FREE ANY BUFFERS STILL ASSOCIATED WITH THIS PLCB */ 01111000 * /* */ 01112000 * /*********************************************************/ 01113000 * 0615 01114000 * RPARM=LCBERBCH; /* ADDRESS OF BUFFER */ 01115000 LR RPARM,@09 0615 01116000 * LCBERBCH=ZERO; /* DELINK THE BUFFER */ 01117000 SLR @09,@09 0616 01118000 STCM @09,7,LCBERBCH(RLCB) 0616 01119000 * RPARM->PRFQCBA=ADDR(AVTBFRTB);/* QCB */ 01120000 LA @09,AVTBFRTB(,RAVT) 0617 01121000 STCM @09,7,PRFQCBA(RPARM) 0617 01122000 * RPARM->PRFPRI=PRIBFRTB; /* PRIORITY */ 01123000 MVI PRFPRI(RPARM),X'E0' 0618 01124000 * SAVEQCB=RQCB; /* SAVE QCB ADDRESS ACCROSS 0619 01125000 * DSPPOSTR */ 01126000 ST RQCB,SAVEQCB(,RAVT) 0619 01127000 * CALL DSPPOSTR; 0620 01128000 LA @15,DSPPOSTR(,RDISP) 0620 01129000 BALR @14,@15 0620 01130000 * RQCB=SAVEQCB; /* RESTORE QCB ADDRESS */ 01131000 L RQCB,SAVEQCB(,RAVT) 0621 01132000 * END; 0622 01133000 * IF TRMSNA=ON THEN /* IF SNA DEVICE */ 01134000 @RF00613 TM TRMSNA(RTRM),B'00000010' 0623 01135000 BNO @RF00623 0623 01136000 * DO; 0624 01137000 * 0624 01138000 * /*********************************************************/ 01139000 * /* */ 01140000 * /* DISPOSE OF PLCB FOR SNA RESOURCE */ 01141000 * /* */ 01142000 * /*********************************************************/ 01143000 * 0625 01144000 * RFY 0625 01145000 * RSIB RSTD; 0625 01146000 * RSIB=TRMSIBPT; /* GET SIB ADDRESS */ 01147000 SLR RSIB,RSIB 0626 01148000 ICM RSIB,7,TRMSIBPT(RTRM) 0626 01149000 * IF LCBLUS=ON| /* IF LUS REQUESTS THE PLCB ... 01150000 * @YM05992*/ 01151000 * (SIBINDEX^=SAVTSCPT&/* ... OR IF LU-LU SIB EXISTS ... 01152000 * @YM05992*/ 01153000 * (SIBLGOFF=ON| /* ... AND LOGOFF IN PROGRESS ... 01154000 * @YM05992*/ 01155000 * SIBSHUTC=ON| /* ... OR SHUTDOWN COMPLETE ... */ 01156000 * (TRMLUREQ=OFF& /* ... OR TCAM INITIATED SESSION 01157000 * ... @YM05992*/ 01158000 * TRMLUTM=OFF& /* ... WHICH TCAM MUST TERMINATE 01159000 * ... @YM05992*/ 01160000 * SIBSSTAT=SIBSACTV))) THEN/* ... AND SESSION IS ACTIVE 01161000 * ... @YM05992*/ 01162000 TM LCBLUS(RLCB),B'00100000' 0627 01163000 BO @RT00627 0627 01164000 L @09,AVTSAVTP(,RAVT) 0627 01165000 CLC SIBINDEX(2,RSIB),SAVTSCPT(@09) 0627 01166000 BE @RF00627 0627 01167000 TM SIBLGOFF(RSIB),B'11000000' 0627 01168000 BNZ @RT00627 0627 01169000 TM TRMLUREQ(RTRM),B'00100100' 0627 01170000 BNZ @RF00627 0627 01171000 TM SIBSSTAT(RSIB),B'00011100' 0627 01172000 BNO @RF00627 0627 01173000 @RT00627 DS 0H 0628 01174000 * DO; /* SET UP TO POST PLCB TO IEDLUS */ 01175000 * 0628 01176000 * /*****************************************************/ 01177000 * /* */ 01178000 * /* SET UP TO POST PLCB TO IEDLUS */ 01179000 * /* */ 01180000 * /*****************************************************/ 01181000 * 0629 01182000 * RPARM=RLCB; /* PLCB ADDRESS */ 01183000 LR RPARM,RLCB 0629 01184000 * LCBQCBA=ADDR(SAVTLUSQ);/* QCB */ 01185000 L @09,AVTSAVTP(,RAVT) 0630 01186000 LA @09,SAVTLUSQ(,@09) 0630 01187000 STCM @09,7,LCBQCBA(RLCB) 0630 01188000 * LCBPRI=PRILNFRE; /* PRIORITY */ 01189000 MVI LCBPRI(RLCB),X'E0' 0631 01190000 * TRMINPTP=OFF; /* RESET INPUT PENDING */ 01191000 NI TRMINPTP(RTRM),B'10111111' 0632 01192000 * RSTATE=POSTST; /* REQUEST POST STATE */ 01193000 LA RSTATE,1 0633 01194000 * END; 0634 01195000 * RFY 0635 01196000 * RSIB UNRSTD; /* FREE REG @YM08120*/ 01197000 @RF00627 DS 0H 0636 01198000 * END; 0636 01199000 * ELSE /* ELSE NON-SNA */ 01200000 * DO; 0637 01201000 * 0637 01202000 B @RC00623 0637 01203000 @RF00623 DS 0H 0638 01204000 * /*********************************************************/ 01205000 * /* */ 01206000 * /* DISPOSE OF PLCB FOR NON-SNA RESOURCE */ 01207000 * /* */ 01208000 * /*********************************************************/ 01209000 * 0638 01210000 * IF LCBOCNI=ON| /* IF STOPLINE ... */ 01211000 * TRMCLOSN=ON THEN /* FLUSH CLOSEDOWN ... @YM06985*/ 01212000 TM LCBOCNI(RLCB),B'00100000' 0638 01213000 BO @RT00638 0638 01214000 TM TRMCLOSN(RTRM),B'00100000' 0638 01215000 BNO @RF00638 0638 01216000 @RT00638 DS 0H 0639 01217000 * DO; 0639 01218000 * LCBOCNI=OFF; /* RESET STOPLINE REQUEST */ 01219000 NI LCBOCNI(RLCB),B'11011111' 0640 01220000 * TRMASNXI=OFF; /* RESET RESET OUTSTANDING */ 01221000 * TRMSTMM=OFF; /* RESET STOP MIDDLE OF MSG 0642 01222000 * @YM08422*/ 01223000 NI TRMASNXI(RTRM),B'11001111' 0642 01224000 * CALL POSTQCA; 0643 01225000 BAL @14,POSTQCA 0643 01226000 * END; 0644 01227000 * END; 0645 01228000 @RF00638 DS 0H 0646 01229000 * IF RSTATE=NOST THEN /* IF NO STATE REQUESTED */ 01230000 @RC00623 LTR RSTATE,RSTATE 0646 01231000 BNZ @RF00646 0646 01232000 * DO; 0647 01233000 * IF(LCBSCBA->SCBLCK1N=ON&LCBSCBA->SCBMSGLN=OFF)/* IF FIRST 01234000 * LOCK BIT ON OR... @YM08391*/ 01235000 * |LCBSCBA->SCBBFMM=ON THEN/* ... BUFFERED TERMINAL IN 01236000 * MIDDLE OF MESSAGE @YM08391*/ 01237000 L @09,LCBSCBA-1(,RLCB) 0648 01238000 TM SCBLCK1N(@09),B'00100000' 0648 01239000 BNO @GL00020 0648 01240000 TM SCBMSGLN(@09),B'00001000' 0648 01241000 BZ @RT00648 0648 01242000 @GL00020 L @09,LCBSCBA-1(,RLCB) 0648 01243000 TM SCBBFMM(@09),B'00000001' 0648 01244000 BNO @RF00648 0648 01245000 @RT00648 DS 0H 0649 01246000 * DO; /* @YM08391*/ 01247000 * 0649 01248000 * /*****************************************************/ 01249000 * /* */ 01250000 * /* KEEP THE PLCB. DO NOT PUT QCB ON TIME DELAY FOR */ 01251000 * /* ANY REASON @YM08391*/ 01252000 * /* */ 01253000 * /*****************************************************/ 01254000 * 0650 01255000 * END; /* @YM08391*/ 01256000 * ELSE /* NOT EXTENDED LOCK OR MIDDLE OF 01257000 * MESSAGE @YM08391*/ 01258000 * DO; /* @YM08391*/ 01259000 B @RC00648 0651 01260000 @RF00648 DS 0H 0652 01261000 * IF LCBSTCBA->STCBVTO=DSPSEND THEN/* IF SEND SCHEDULER 01262000 * IS IN PLCB */ 01263000 L @09,LCBSTCBA-1(,RLCB) 0652 01264000 CLI STCBVTO(@09),X'22' 0652 01265000 BNE @RF00652 0652 01266000 * DO; 0653 01267000 * 0653 01268000 * /*************************************************/ 01269000 * /* */ 01270000 * /* SET UP FOR ONE SECOND DELAY */ 01271000 * /* */ 01272000 * /*************************************************/ 01273000 * 0654 01274000 * RFY 0654 01275000 * (RTIME, 0654 01276000 * RSIB) RSTD; 0654 01277000 * RTIME=TIMDELVL; /* ONE SECOND */ 01278000 LA RTIME,1 0655 01279000 * CALL CALLQHG; 0656 01280000 BAL @14,CALLQHG 0656 01281000 * END; 0657 01282000 * IF TRMSNA=ON THEN /* IF SNA RESOURCE ... */ 01283000 @RF00652 TM TRMSNA(RTRM),B'00000010' 0658 01284000 BNO @RF00658 0658 01285000 * DO; 0659 01286000 * IF TRMSIBPT^=ZERO THEN/* ... AND SSCP-LU SIB 0660 01287000 * EXISTS ... */ 01288000 SLR @06,@06 0660 01289000 ICM @06,7,TRMSIBPT(RTRM) 0660 01290000 LTR @06,@06 0660 01291000 BZ @RF00660 0660 01292000 * DO; /* CHECK FOR TIME DELAY 0661 01293000 * POSSIBILITY */ 01294000 * RFY 0662 01295000 * RSIB RSTD; 0662 01296000 * RSIB=TRMSIBPT;/* GET SIB POINTER */ 01297000 LR RSIB,@06 0663 01298000 * IF SIBINDEX^=SAVTSCPT THEN/* IF THIS IS NOT 01299000 * SSCP-LU SIB ... */ 01300000 L @06,AVTSAVTP(,RAVT) 0664 01301000 CLC SIBINDEX(2,RSIB),SAVTSCPT(@06) 0664 01302000 BE @RF00664 0664 01303000 * DO; /* CHECK LU-LU SIB FOR 0665 01304000 * TERMINATION TYPE @YM05735*/ 01305000 * IF SIBSSTAT=SIBSFINL THEN/* IF SIB 0666 01306000 * SESSION STATE IS FINAL THEN 0666 01307000 * ... @YM05735*/ 01308000 TM SIBSSTAT(RSIB),B'00010000' 0666 01309000 BNO @RF00666 0666 01310000 TM SIBSSTAT(RSIB),B'00001100' 0666 01311000 BNZ @RF00666 0666 01312000 * RSTATE=TIMST;/* ... ALLOW TIME DELAY 0667 01313000 * PROCESSING @YM05735*/ 01314000 LA RSTATE,4 0667 01315000 * RSIB=SIBCHAIN;/* GET SSCP-LU SIB FOR 0668 01316000 * FURTHER TEST @YM05735*/ 01317000 @RF00666 L RSIB,SIBCHAIN(,RSIB) 0668 01318000 * END; /* @YM05735*/ 01319000 * ELSE /* NO LU-LU SIB ASSIGNED @YM08451*/ 01320000 * RSTATE=TIMST;/* ALLOW TIME DELAY PROCESSING 01321000 * @YM08451*/ 01322000 B @RC00664 0670 01323000 @RF00664 LA RSTATE,4 0670 01324000 * IF SIBDACLU=ON THEN/* IF DACTLU IN PROGRESS 01325000 * ...@YM05735 */ 01326000 @RC00664 TM SIBDACLU(RSIB),B'00010000' 0671 01327000 BNO @RF00671 0671 01328000 * RSTATE=NOST;/* ... DO NOT ALLOW CHECK FOR 01329000 * TIME DELAY @YM05735*/ 01330000 SLR RSTATE,RSTATE 0672 01331000 * RFY 0673 01332000 * RSIB UNRSTD; 0673 01333000 @RF00671 DS 0H 0674 01334000 * END; 0674 01335000 * END; 0675 01336000 * ELSE /* NOT SNA RESOURCE */ 01337000 * IF TRMSPACT=ON& /* IF SUPERIOR RESOURCE ACTIVE 0676 01338000 * AND @YM08432*/ 01339000 * QCBDELAY=OFF THEN/* QCB NOT ALREADY ON TIME 0676 01340000 * DELAY @YM08432*/ 01341000 B @RC00658 0676 01342000 @RF00658 TM TRMSPACT(RTRM),B'00010000' 0676 01343000 BNO @RF00676 0676 01344000 TM QCBDELAY(RQCB),B'00000010' 0676 01345000 BNZ @RF00676 0676 01346000 * RSTATE=TIMST; /* ITS PERMISSIBLE TO CHECK FOR 01347000 * TIME DELAY */ 01348000 LA RSTATE,4 0677 01349000 * IF RSTATE=TIMST THEN/* IF PERMISSIBLE TO DO TIME 0678 01350000 * DELAY PROCESSING */ 01351000 @RF00676 DS 0H 0678 01352000 @RC00658 C RSTATE,@CF00330 0678 01353000 BNE @RF00678 0678 01354000 * DO; 0679 01355000 * RSTATE=NOST; /* RESET STATE TO NO STATE */ 01356000 SLR RSTATE,RSTATE 0680 01357000 * IF QCBSTPRI=QCBCLK THEN/* IF CLOCK */ 01358000 CLI QCBSTPRI(RQCB),X'80' 0681 01359000 BNE @RF00681 0681 01360000 * DO; 0682 01361000 * RFY 0683 01362000 * RPARM0 RSTD; 0683 01363000 * RTIME=2*QCBINTVL;/* DOUBLE CLOCK VALUE */ 01364000 LH RTIME,QCBINTVL(,RQCB) 0684 01365000 N RTIME,@CF01934 0684 01366000 ALR RTIME,RTIME 0684 01367000 * GEN SETS(RPARM0,RPARM) NOREFS; 0685 01368000 * /* 01369000 TIME BIN 01370000 * RPARM=RPARM0/HUND;/* DIVIDE BY ONE HUNDRED */ 01371000 * 0686 01372000 LR @15,RPARM0 0686 01373000 SLR @14,@14 0686 01374000 D @14,HUND 0686 01375000 LR RPARM,@15 0686 01376000 * /*********************************************/ 01377000 * /* */ 01378000 * /* REG 1 CONTAINS CURRENT TIME IN SECONDS */ 01379000 * /* */ 01380000 * /*********************************************/ 01381000 * 0687 01382000 * IF RPARM>=RTIME THEN/* IF CLOCK VALUE IS FOR 01383000 * TODAY */ 01384000 CR RPARM,RTIME 0687 01385000 BL @RF00687 0687 01386000 * RTIME=RTIME+SEC24HR;/* ADD 24 HOURS IN 0688 01387000 * SECONDS */ 01388000 AL RTIME,@CF01872 0688 01389000 * RTIME=RTIME-RPARM;/* COMPUTE DELAY INTERVAL */ 01390000 @RF00687 SLR RTIME,RPARM 0689 01391000 * RSTATE=TIMST;/* REQUEST TIME STATE */ 01392000 LA RSTATE,4 0690 01393000 * RFY 0691 01394000 * RPARM0 UNRSTD; 0691 01395000 * END; 0692 01396000 * ELSE /* NOT CLOCK */ 01397000 * DO; 0693 01398000 B @RC00681 0693 01399000 @RF00681 DS 0H 0694 01400000 * IF QCBSTPRI=QCBCNTVL&QCBINTVL>ZERO THEN/* IF 01401000 * CINTVL @OY14058*/ 01402000 CLI QCBSTPRI(RQCB),X'70' 0694 01403000 BNE @RF00694 0694 01404000 LH @06,QCBINTVL(,RQCB) 0694 01405000 N @06,@CF01934 0694 01406000 LTR @06,@06 0694 01407000 BNP @RF00694 0694 01408000 * DO; 0695 01409000 * RTIME=QCBINTVL;/* GET CINTVL */ 01410000 LR RTIME,@06 0696 01411000 * RSTATE=TIMST;/* REQUEST TIME STATE */ 01412000 LA RSTATE,4 0697 01413000 * END; 0698 01414000 * END; 0699 01415000 @RF00694 DS 0H 0700 01416000 * IF RSTATE=TIMST THEN/* IF TIME STATE REQUESTED */ 01417000 @RC00681 C RSTATE,@CF00330 0700 01418000 BNE @RF00700 0700 01419000 * DO; 0701 01420000 * IF RTIME>SEC12HR THEN/* IF INTERVAL GREATER 01421000 * THAN 12 HOURS */ 01422000 L @06,@CF01874 0702 01423000 CR RTIME,@06 0702 01424000 BNH @RF00702 0702 01425000 * DO; 0703 01426000 * RTIME=RTIME-SEC12HR;/* COMPUTE TIME DELTA 01427000 * GREATER THAN 12 HOURS */ 01428000 SLR RTIME,@06 0704 01429000 * QCBTIME=ON;/* INDICATE INTERVAL GREATER 01430000 * THAN 12 HOURS */ 01431000 OI QCBTIME(RQCB),B'00000001' 0705 01432000 * END; 0706 01433000 * CALL CALLQHG; 0707 01434000 @RF00702 BAL @14,CALLQHG 0707 01435000 * END; 0708 01436000 * END; 0709 01437000 @RF00700 DS 0H 0710 01438000 * IF TRMRSACT=ON THEN /* IF RESOURCE ACTIVE */ 01439000 @RF00678 TM TRMRSACT(RTRM),B'10000000' 0710 01440000 BNO @RF00710 0710 01441000 * DO; 0711 01442000 * IF AVTRFULN=ON /* IF CORE QUEUE FULL OR... */ 01443000 * |AVTRECVN=ON THEN/* ... REUS */ 01444000 TM AVTRFULN(RAVT),B'11000000' 0712 01445000 BZ @RF00712 0712 01446000 * DO; 0713 01447000 * RTIME=TIMDELVL;/* TIME DELAY EQUAL ONE SECOND*/ 01448000 LA RTIME,1 0714 01449000 * CALL CALLQHG; 0715 01450000 BAL @14,CALLQHG 0715 01451000 * END; 0716 01452000 * END; 0717 01453000 @RF00712 DS 0H 0718 01454000 * RFY 0718 01455000 * (RTIME, 0718 01456000 * RSIB) UNRSTD; 0718 01457000 @RF00710 DS 0H 0719 01458000 * 0719 01459000 * /*****************************************************/ 01460000 * /* */ 01461000 * /* SET UP TO RETURN PLCB TO POOL */ 01462000 * /* */ 01463000 * /*****************************************************/ 01464000 * 0719 01465000 * RPARM=RLCB; /* PLCB ADDRESS */ 01466000 LR RPARM,RLCB 0719 01467000 * CALL IEDIAP07; 0720 01468000 L @09,AVTSAVTP(,RAVT) 0720 01469000 L @15,SAVTPRTN(,@09) 0720 01470000 BALR @14,@15 0720 01471000 * RSTATE=NOST; /* REQUEST NO STATE */ 01472000 * 0721 01473000 SLR RSTATE,RSTATE 0721 01474000 * /*****************************************************/ 01475000 * /* */ 01476000 * /* REPRIME FOR NEW SNA SESSION IF NEEDED @YM08450*/ 01477000 * /* */ 01478000 * /*****************************************************/ 01479000 * 0722 01480000 * IF TRMSNA=ON& /* SESSN PRIMING NEEDED @YM08450*/ 01481000 * QCBSNDRQ=ON THEN/* ...FOR SNA DEVICE? @YM08450*/ 01482000 TM TRMSNA(RTRM),B'00000010' 0722 01483000 BNO @RF00722 0722 01484000 LR @09,RQCB 0722 01485000 AL @09,@CF01942 0722 01486000 TM QCBSNDRQ-4(@09),B'00100000' 0722 01487000 BNO @RF00722 0722 01488000 * DO; /* YES @YM08450*/ 01489000 * STM(RPARM0,RENTADDR,SAVE3);/* SAVE ALL REGS 0724 01490000 * @YM08450*/ 01491000 STM RPARM0,RENTADDR,SAVE3(RAVT) 0724 01492000 * CALL LCBSCAN; /* REQUEST NEW SESSION @YM08450*/ 01493000 L @09,AVTSEND(,RAVT) 0725 01494000 BCTR @09,0 0725 01495000 BCTR @09,0 0725 01496000 LH @15,SSCHINDX(,@09) 0725 01497000 ALR @15,@09 0725 01498000 BALR @14,@15 0725 01499000 * LM(RPARM0,RENTADDR,SAVE3);/* RESTORE REGS 0726 01500000 * @YM08450*/ 01501000 LM RPARM0,RENTADDR,SAVE3(RAVT) 0726 01502000 * END; /* @YM08450*/ 01503000 * END; 0728 01504000 @RF00722 DS 0H 0729 01505000 * END; 0729 01506000 @RC00648 DS 0H 0730 01507000 * END; 0730 01508000 @RF00646 DS 0H 0731 01509000 * RFY 0731 01510000 * RRETURN RSTD; 0731 01511000 @RC00597 DS 0H 0732 01512000 * IF RSTATE=POSTST THEN /* POST STATE REQUESTED */ 01513000 * 0732 01514000 C RSTATE,@CF00059 0732 01515000 BNE @RF00732 0732 01516000 * /***************************************************************/ 01517000 * /* */ 01518000 * /* SET UP TO EXIT TO DSPPOST */ 01519000 * /* */ 01520000 * /***************************************************************/ 01521000 * 0733 01522000 * CALL DSPPOST; /* @Y17XAIX*/ 01523000 LA @15,DSPPOST(,RDISP) 0733 01524000 BALR @14,@15 0733 01525000 * ELSE 0734 01526000 * 0734 01527000 * /***************************************************************/ 01528000 * /* */ 01529000 * /* SET UP TO EXIT TO DSPDISP */ 01530000 * /* */ 01531000 * /***************************************************************/ 01532000 * 0734 01533000 * RRETURN=ADDR(DSPDISP); 0734 01534000 B @RC00732 0734 01535000 @RF00732 LA RRETURN,DSPDISP(,RDISP) 0734 01536000 * RETURN; 0735 01537000 @EL00005 DS 0H 0735 01538000 @EF00005 DS 0H 0735 01539000 @ER00005 BR @14 0735 01540000 * END QEVENT; 0736 01541000 B @EL00005 0736 01542000 * 0737 01543000 * /*****************************************************************/ 01544000 * /* */ 01545000 * /* SET UP TO POST PLCB TO OPERATOR CONTROL */ 01546000 * /* */ 01547000 * /*****************************************************************/ 01548000 * 0737 01549000 *POSTQCA: 0737 01550000 * PROC OPTIONS(NOSAVE); 0737 01551000 POSTQCA DS 0H 0738 01552000 * RFY 0738 01553000 * RRETURN RSTD; 0738 01554000 * RPARM=RLCB; /* PLCB ADDRESS */ 01555000 LR RPARM,RLCB 0739 01556000 * LCBQCBA=ADDR(AVTOPCOB); /* QCB */ 01557000 LA @15,AVTOPCOB(,RAVT) 0740 01558000 STCM @15,7,LCBQCBA(RLCB) 0740 01559000 * LCBPRI=PRIPLCB; /* PRIORITY */ 01560000 MVI LCBPRI(RLCB),X'E8' 0741 01561000 * TRMINPTP=OFF; /* RESET INPUT PENDING */ 01562000 NI TRMINPTP(RTRM),B'10111111' 0742 01563000 * RSTATE=POSTST; /* REQUEST POST STATE */ 01564000 LA RSTATE,1 0743 01565000 * RFY 0744 01566000 * RRETURN UNRSTD; 0744 01567000 * END POSTQCA; 0745 01568000 @EL00006 DS 0H 0745 01569000 @EF00006 DS 0H 0745 01570000 @ER00006 BR @14 0745 01571000 * 0746 01572000 * /*****************************************************************/ 01573000 * /* */ 01574000 * /* SET UP TO CALL IEDQHG01 */ 01575000 * /* */ 01576000 * /*****************************************************************/ 01577000 * 0746 01578000 *CALLQHG: 0746 01579000 * PROC OPTIONS(RETREG,SAVE(14)); 0746 01580000 CALLQHG ST @14,@SA00007 0746 01581000 * RFY 0747 01582000 * RTIME RSTD; 0747 01583000 * IF QCBDELAY=OFF THEN /* QCB IS NOT ON TIME DELAY */ 01584000 TM QCBDELAY(RQCB),B'00000010' 0748 01585000 BNZ @RF00748 0748 01586000 * DO; 0749 01587000 * 0749 01588000 * /*************************************************************/ 01589000 * /* */ 01590000 * /* SET UP QCB FOR DELAY */ 01591000 * /* */ 01592000 * /*************************************************************/ 01593000 * 0750 01594000 * QCBEOLDT=RTIME; /* HOW LONG TO DELAY */ 01595000 STH RTIME,QCBEOLDT(,RQCB) 0750 01596000 * QCBLKRLN=0; /* ZERO LOCK RELATED LINE NUMBER */ 01597000 MVI QCBLKRLN(RQCB),X'00' 0751 01598000 * QCBELCHN=RQCB; /* ADDRESS OF QCB */ 01599000 STCM RQCB,7,QCBELCHN(RQCB) 0752 01600000 * QCBPRI=PRIMHUNT; /* PRIORITY */ 01601000 MVI QCBPRI(RQCB),X'E8' 0753 01602000 * IF LCBSTCBA->STCBVTO=DSPSEND THEN/* SEND SCHEDULER IS IN PLCB*/ 01603000 L @06,LCBSTCBA-1(,RLCB) 0754 01604000 LA @06,0(,@06) 0754 01605000 CLI STCBVTO(@06),X'22' 0754 01606000 BNE @RF00754 0754 01607000 * DO; 0755 01608000 * LCBSTCBA=LCBSTCBA->STCBLINK;/* REMOVE SEND SCHEDULER ... */ 01609000 L @06,STCBLINK-1(,@06) 0756 01610000 LA @06,0(,@06) 0756 01611000 STCM @06,7,LCBSTCBA(RLCB) 0756 01612000 * QCBSLINK=QCBSTCHN; /* ... FROM PLCB */ 01613000 MVC QCBSLINK(3,RQCB),QCBSTCHN(RQCB) 0757 01614000 * END; 0758 01615000 * ELSE 0759 01616000 * QCBSTCHN=QCBSLINK; /* REMOVE SEND SCHEDULER FROM QCB*/ 01617000 B @RC00754 0759 01618000 @RF00754 MVC QCBSTCHN(3,RQCB),QCBSLINK(RQCB) 0759 01619000 * IF QCBTSSES=ON THEN /* IF IN TSO SESSION THEN 0760 01620000 * @YM09109*/ 01621000 @RC00754 TM QCBTSSES(RQCB),B'10000000' 0760 01622000 BNO @RF00760 0760 01623000 * QCBSTCHN=ADDR(QCBSTVTO); /* INSURE SS IN QCB @YM09109*/ 01624000 * 0761 01625000 LA @06,QCBSTVTO(,RQCB) 0761 01626000 STCM @06,7,QCBSTCHN(RQCB) 0761 01627000 * /*************************************************************/ 01628000 * /* */ 01629000 * /* SET UP TO CALL TIME DELAY ROUTINE */ 01630000 * /* */ 01631000 * /*************************************************************/ 01632000 * 0762 01633000 * RPARM=RQCB; /* QCB ADDRESS */ 01634000 @RF00760 LR RPARM,RQCB 0762 01635000 * CALL IEDQHG01; 0763 01636000 L @15,AVTHG01(,RAVT) 0763 01637000 BALR @14,@15 0763 01638000 * END; 0764 01639000 * RSTATE=NOST; 0765 01640000 @RF00748 SLR RSTATE,RSTATE 0765 01641000 * RFY 0766 01642000 * RTIME UNRSTD; 0766 01643000 * END CALLQHG; 0767 01644000 @EL00007 DS 0H 0767 01645000 @EF00007 DS 0H 0767 01646000 @ER00007 L @14,@SA00007 0767 01647000 BR @14 0767 01648000 * END IEDIAM 0768 01649000 * 0768 01650000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01651000 */*%INCLUDE SYSLIB (TAVTD ) */ 01652000 */*%INCLUDE SYSLIB (TDISPD ) */ 01653000 */*%INCLUDE SYSLIB (TLCBD ) */ 01654000 */*%INCLUDE SYSLIB (TPRFD ) */ 01655000 */*%INCLUDE SYSLIB (TPRIOR ) */ 01656000 */*%INCLUDE SYSLIB (TQCBD ) */ 01657000 */*%INCLUDE SYSLIB (TSCBD ) */ 01658000 */*%INCLUDE SYSLIB (TSIBD ) */ 01659000 */*%INCLUDE SYSLIB (TSTCBD ) */ 01660000 */*%INCLUDE SYSLIB (TTRMD ) */ 01661000 */*%INCLUDE SYSLIB (TTSID ) */ 01662000 */*%INCLUDE SYSLIB (TSOECDD ) */ 01663000 * 0768 01664000 * ; 0768 01665000 @DATA DS 0H 01666000 DS 0F 01667000 @SA00002 DS 1F 01668000 @SA00003 DS 1F 01669000 @SA00004 DS 1F 01670000 @SA00007 DS 1F 01671000 DS 0F 01672000 @CF00059 DC F'1' 01673000 @CF00130 DC F'2' 01674000 @CF00065 DC F'3' 01675000 @CF00330 DC F'4' 01676000 @CF00156 DC F'5' 01677000 @CF00070 DC F'6' 01678000 @CF00044 DC F'8' 01679000 @CF01589 DC F'14' 01680000 @CF01629 DC F'20' 01681000 @CF01874 DC F'43200' 01682000 @CF01872 DC F'86400' 01683000 @CF01942 DC F'-4' 01684000 @CF01934 DC XL4'0000FFFF' 01685000 DS 0D 01686000 HUND DC F'100' 01687000 FTERMSW DS BL1 01688000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01689000 @01 EQU 01 01690000 @02 EQU 02 01691000 @03 EQU 03 01692000 @04 EQU 04 01693000 @05 EQU 05 01694000 @06 EQU 06 01695000 @07 EQU 07 01696000 @08 EQU 08 01697000 @09 EQU 09 01698000 @10 EQU 10 01699000 @11 EQU 11 01700000 @12 EQU 12 01701000 @13 EQU 13 01702000 @14 EQU 14 01703000 @15 EQU 15 01704000 NCPTRM EQU @02 01705000 IEDQAPTR EQU @13 01706000 RDISP EQU @11 01707000 IEDQLPTR EQU @04 01708000 LCBXPTR EQU @05 01709000 IEDQPPTR EQU @06 01710000 IEDQQPTR EQU @07 01711000 IEDQSPTR EQU @03 01712000 RTRM EQU @08 01713000 RAVT EQU @13 01714000 RLCB EQU @04 01715000 RPRF EQU @06 01716000 RQCB EQU @07 01717000 RSIB EQU @05 01718000 RSTCB EQU @03 01719000 RPARM0 EQU @00 01720000 RPARM EQU @01 01721000 RTIME EQU @09 01722000 RSTATE EQU @10 01723000 RCODE EQU @12 01724000 RRETURN EQU @14 01725000 RENTADDR EQU @15 01726000 RRTNCDE EQU @15 01727000 IEDQAVTD EQU 0 01728000 AVTSAVE3 EQU IEDQAVTD+72 01729000 AVTSAVEX EQU IEDQAVTD+216 01730000 AVTDOUBL EQU IEDQAVTD+272 01731000 @NM00003 EQU IEDQAVTD+316 01732000 AVTCKFLG EQU @NM00003 01733000 AVTBASE EQU IEDQAVTD+340 01734000 AVTPKF EQU AVTBASE 01735000 AVTRNMPT EQU IEDQAVTD+352 01736000 AVTOSECB EQU IEDQAVTD+420 01737000 AVTECB1 EQU AVTOSECB 01738000 AVTHG02 EQU IEDQAVTD+456 01739000 AVTDISP EQU IEDQAVTD+480 01740000 AVTHD EQU IEDQAVTD+484 01741000 AVTSCOPT EQU AVTHD 01742000 AVTSEND EQU IEDQAVTD+524 01743000 AVTSAVTP EQU IEDQAVTD+540 01744000 AVTSAVTF EQU AVTSAVTP 01745000 AVTCKPEL EQU IEDQAVTD+580 01746000 AVTCKRMV EQU AVTCKPEL 01747000 AVTCKELF EQU IEDQAVTD+608 01748000 AVTCKBYT EQU IEDQAVTD+619 01749000 AVTHG01 EQU IEDQAVTD+620 01750000 AVTCKLNK EQU IEDQAVTD+624 01751000 AVTCRELE EQU IEDQAVTD+636 01752000 AVTCCELE EQU AVTCRELE 01753000 AVTCLRHI EQU IEDQAVTD+644 01754000 AVTADBUF EQU IEDQAVTD+648 01755000 AVTSYSER EQU IEDQAVTD+656 01756000 AVTTSOPT EQU IEDQAVTD+668 01757000 AVTBFREB EQU IEDQAVTD+708 01758000 AVTBFRTB EQU IEDQAVTD+720 01759000 AVTCKPQB EQU IEDQAVTD+732 01760000 AVTCKPTB EQU AVTCKPQB 01761000 AVTCKPEC EQU AVTCKPQB+4 01762000 AVTCKPCC EQU AVTCKPEC 01763000 AVTOPCQB EQU IEDQAVTD+744 01764000 AVTOPCOB EQU AVTOPCQB 01765000 AVTOPCEC EQU AVTOPCQB+4 01766000 AVTOPCCC EQU AVTOPCEC 01767000 AVTOLTQB EQU IEDQAVTD+756 01768000 AVTCWFL1 EQU IEDQAVTD+852 01769000 AVTCWFL2 EQU IEDQAVTD+853 01770000 AVTSUBT EQU IEDQAVTD+876 01771000 AVTIOTR EQU IEDQAVTD+877 01772000 AVTBIT1 EQU IEDQAVTD+978 01773000 AVTCLOSN EQU AVTBIT1 01774000 AVTBIT2 EQU IEDQAVTD+979 01775000 AVTBIT3 EQU IEDQAVTD+980 01776000 AVTRECVN EQU AVTBIT3 01777000 AVTRFULN EQU AVTBIT3 01778000 AVTSTEAL EQU IEDQAVTD+988 01779000 AVTBIT4 EQU IEDQAVTD+1064 01780000 @NM00085 EQU IEDQAVTD+1160 01781000 IEDNSVTD EQU 0 01782000 SAVTDIAG EQU IEDNSVTD 01783000 SAVTDIAF EQU SAVTDIAG 01784000 SAVTPRTN EQU IEDNSVTD+32 01785000 SAVTCNIR EQU IEDNSVTD+56 01786000 SAVTLUSQ EQU IEDNSVTD+88 01787000 SAVTSLCB EQU IEDNSVTD+104 01788000 SAVTSARI EQU IEDNSVTD+192 01789000 SAVTRQIN EQU IEDNSVTD+204 01790000 SAVTTCPU EQU IEDNSVTD+238 01791000 SAVTSCPT EQU SAVTTCPU 01792000 SAVTZELM EQU IEDNSVTD+270 01793000 SAVTRDRV EQU IEDNSVTD+284 01794000 SAVTCKQB EQU IEDNSVTD+300 01795000 SAVTCKTB EQU SAVTCKQB 01796000 SAVTCKEC EQU SAVTCKQB+4 01797000 SAVTCKCC EQU SAVTCKEC 01798000 IEDQDISP EQU 0 01799000 DSPDISP EQU 4 01800000 DSPBYPAS EQU 20 01801000 DSPPOST EQU 24 01802000 DSPPOSTR EQU 28 01803000 IEDQLCB EQU 0 01804000 LCBRCB EQU IEDQLCB 01805000 LCBQCBA EQU LCBRCB+1 01806000 LCBPRI EQU LCBRCB+4 01807000 LCBSTCBA EQU IEDQLCB+9 01808000 LCBRSLNK EQU IEDQLCB+13 01809000 LCBTSOB EQU IEDQLCB+19 01810000 LCBCHAIN EQU IEDQLCB+20 01811000 LCBSCRNN EQU LCBCHAIN 01812000 LCBTETEN EQU LCBCHAIN 01813000 LCBCTLMD EQU LCBTETEN 01814000 LCBINSRC EQU IEDQLCB+21 01815000 LCBLKMDE EQU LCBINSRC+2 01816000 LCBNTXT EQU IEDQLCB+24 01817000 LCBSTAT4 EQU LCBNTXT 01818000 LCBPHASE EQU LCBSTAT4 01819000 LCBSCBDA EQU IEDQLCB+25 01820000 LCBMHA EQU IEDQLCB+29 01821000 LCBFLAG1 EQU IEDQLCB+32 01822000 LCBIOBSN EQU IEDQLCB+33 01823000 LCBSNS EQU LCBIOBSN+1 01824000 LCBSENS0 EQU LCBSNS 01825000 LCBLOSDT EQU LCBSENS0 01826000 LCBTMOUT EQU LCBSENS0 01827000 LCBFLAG3 EQU LCBIOBSN+7 01828000 LCBCSW EQU LCBIOBSN+8 01829000 LCBCSWST EQU LCBCSW+3 01830000 LCBCSWUS EQU LCBCSWST 01831000 LCBCSWCS EQU LCBCSWST+1 01832000 LCBSIOCC EQU LCBIOBSN+15 01833000 LCBDCBPT EQU IEDQLCB+52 01834000 LCBRCQCB EQU IEDQLCB+56 01835000 LCBRESTR EQU LCBRCQCB 01836000 LCBTHSQ EQU IEDQLCB+60 01837000 LCBINCAM EQU LCBTHSQ 01838000 LCBERRCT EQU IEDQLCB+62 01839000 LCBLSPCI EQU IEDQLCB+65 01840000 LCBRCBFR EQU LCBLSPCI 01841000 LCBSTATE EQU IEDQLCB+70 01842000 LCBSTAT1 EQU LCBSTATE 01843000 LCBRCLLN EQU LCBSTAT1 01844000 LCBOCNI EQU LCBSTAT1 01845000 LCBINITN EQU LCBSTAT1 01846000 LCBCONT EQU LCBSTAT1 01847000 LCBFREEN EQU LCBSTAT1 01848000 LCBRECVN EQU LCBSTAT1 01849000 LCBSENDN EQU LCBSTAT1 01850000 LCBSTAT2 EQU LCBSTATE+1 01851000 LCBBEOTN EQU LCBSTAT2 01852000 LCBNEGRP EQU LCBSTAT2 01853000 LCBSYNC EQU LCBSTAT2 01854000 LCBDIAL EQU LCBSTAT2 01855000 LCBTSTSW EQU IEDQLCB+72 01856000 LCBERB EQU IEDQLCB+76 01857000 LCBERBQB EQU LCBERB+1 01858000 LCBERBPY EQU IEDQLCB+80 01859000 LCBERBST EQU IEDQLCB+84 01860000 LCBPRCPG EQU LCBERBST 01861000 LCBDLNKN EQU LCBERBST 01862000 LCBERBCH EQU IEDQLCB+85 01863000 LCBERBCT EQU IEDQLCB+88 01864000 LCBRBCT1 EQU LCBERBCT 01865000 LCBRBCT2 EQU LCBERBCT+1 01866000 LCBTTCIN EQU IEDQLCB+90 01867000 LCBMSGFM EQU IEDQLCB+92 01868000 LCBSCBA EQU IEDQLCB+93 01869000 LCBOBRCH EQU IEDQLCB+96 01870000 LCBINVPT EQU LCBOBRCH+1 01871000 LCBBFRW EQU LCBINVPT 01872000 LCBTPCD EQU IEDQLCB+100 01873000 LCBSTAT5 EQU LCBTPCD 01874000 LCBPERM EQU LCBSTAT5 01875000 LCBLUS EQU LCBSTAT5 01876000 LCBSTAT6 EQU LCBTPCD+4 01877000 LCBRTRRO EQU LCBSTAT6 01878000 LCBWAITC EQU LCBTPCD+5 01879000 LCBRSPSV EQU LCBTPCD+8 01880000 LCBSAVSN EQU IEDQLCB+112 01881000 LCBERCCW EQU IEDQLCB+120 01882000 LCBCPA EQU IEDQLCB+144 01883000 LCBCCW5 EQU LCBCPA+32 01884000 LCBATTEL EQU LCBCCW5 01885000 LCBQEBPL EQU LCBATTEL 01886000 IEDQLCBX EQU 0 01887000 LCBXCON EQU IEDQLCBX 01888000 LCBXFLAG EQU LCBXCON 01889000 LCBXDCT EQU LCBXCON+1 01890000 LCBXRADR EQU LCBXCON+4 01891000 IEDQPRF EQU 0 01892000 PRFRCB EQU IEDQPRF 01893000 PRFKEY EQU PRFRCB 01894000 PRFQCBA EQU PRFRCB+1 01895000 PRFPRI EQU PRFRCB+4 01896000 PRFLINK EQU PRFRCB+5 01897000 PRFTIC EQU IEDQPRF+8 01898000 PRFTICC EQU PRFTIC 01899000 PRFNBUNT EQU IEDQPRF+12 01900000 PRFSUNIT EQU PRFNBUNT 01901000 PRFPLQCB EQU PRFSUNIT 01902000 @NM00153 EQU IEDQPRF+16 01903000 PRFSVFFO EQU @NM00153 01904000 PRFSTAT1 EQU IEDQPRF+20 01905000 PRFEOFN EQU PRFSTAT1 01906000 PRFCORE EQU IEDQPRF+21 01907000 PRFXTRA EQU PRFCORE 01908000 PRFSCAN EQU IEDQPRF+24 01909000 PRFTQBCK EQU IEDQPRF+26 01910000 PRFNTXT EQU PRFTQBCK 01911000 PRFEOBOF EQU PRFNTXT 01912000 PRFCHDR EQU IEDQPRF+32 01913000 PRFHQBCK EQU IEDQPRF+35 01914000 PRFDEST EQU IEDQPRF+40 01915000 IEDPF1 EQU 0 01916000 PRF1FLG1 EQU IEDPF1+3 01917000 PRF1WD2 EQU IEDPF1+4 01918000 PRF1SEQP EQU PRF1WD2 01919000 PRF1SQID EQU PRF1SEQP 01920000 PRF1TAG1 EQU PRF1SQID 01921000 IEDPF2 EQU 0 01922000 PRF2FLG2 EQU IEDPF2 01923000 PRF2WD2 EQU IEDPF2+4 01924000 IEDQQCB EQU 0 01925000 QCBDSFLG EQU IEDQQCB 01926000 QCBDISK EQU QCBDSFLG 01927000 QCBELCHN EQU IEDQQCB+1 01928000 QCBPRI EQU IEDQQCB+4 01929000 QCBSTVTO EQU IEDQQCB+8 01930000 QCBSTCHN EQU IEDQQCB+9 01931000 QCBSTPRI EQU IEDQQCB+12 01932000 QCBSLINK EQU IEDQQCB+13 01933000 QCBEOLDT EQU IEDQQCB+16 01934000 QCBBYTE1 EQU QCBEOLDT+1 01935000 QCBLKRLN EQU IEDQQCB+18 01936000 QCBRETCT EQU QCBLKRLN 01937000 QCBSTAT EQU IEDQQCB+19 01938000 QCBSCHDL EQU QCBSTAT 01939000 QCBTIME EQU QCBSTAT 01940000 QCBINSRC EQU IEDQQCB+21 01941000 @NM00163 EQU QCBINSRC 01942000 QCBTSOF2 EQU @NM00163+1 01943000 QCBTSOF1 EQU @NM00163+2 01944000 QCBDELAY EQU QCBTSOF1 01945000 QCBINTVL EQU IEDQQCB+24 01946000 QCBPREN EQU IEDQQCB+28 01947000 QCBLKRRN EQU QCBPREN+1 01948000 QCBDCBAD EQU IEDQQCB+33 01949000 QCBFLAG EQU IEDQQCB+36 01950000 QCBTSSES EQU QCBFLAG 01951000 IEDQPQCB EQU 0 01952000 QCBFHDLZ EQU IEDQPQCB+3 01953000 QCBPFEFO EQU QCBFHDLZ+1 01954000 QCBFHDTZ EQU IEDQPQCB+6 01955000 QCBINTLF EQU IEDQPQCB+12 01956000 IEDNQCB EQU 0 01957000 QCBSTAT1 EQU IEDNQCB+4 01958000 QCBSNDRQ EQU QCBSTAT1 01959000 QCBPLCBA EQU IEDNQCB+5 01960000 IEDQSCB EQU 0 01961000 SCBSTATE EQU IEDQSCB 01962000 SCBSEQIN EQU SCBSTATE 01963000 SCBLCK1N EQU SCBSTATE 01964000 SCBMSGLN EQU SCBSTATE 01965000 SCBRCVCT EQU IEDQSCB+4 01966000 SCBMBHEN EQU IEDQSCB+5 01967000 SCBBKFCT EQU IEDQSCB+9 01968000 SCBEOBSZ EQU SCBBKFCT+1 01969000 SCBSALEV EQU IEDQSCB+12 01970000 SCBQTYPE EQU SCBSALEV 01971000 SCBBFMM EQU SCBQTYPE 01972000 SCBERRST EQU IEDQSCB+16 01973000 SCBERR1 EQU SCBERRST 01974000 SCBHDRRN EQU SCBERR1 01975000 SCBORIGN EQU SCBERR1 01976000 SCBNOTRM EQU SCBERR1 01977000 SCBSEQHN EQU SCBERR1 01978000 SCBSEQLN EQU SCBERR1 01979000 SCBCUTFN EQU SCBERR1 01980000 SCBERR2 EQU SCBERRST+1 01981000 SCBABRTN EQU SCBERR2 01982000 SCBERR3 EQU SCBERRST+2 01983000 SCBLOSTN EQU SCBERR3 01984000 SCBTMIDN EQU SCBERR3 01985000 SCBFORMN EQU SCBERR3 01986000 SCBATTN EQU SCBERR3 01987000 SCBXCEPN EQU SCBERR3 01988000 SCBERR4 EQU SCBERRST+3 01989000 SCBTXTTN EQU SCBERR4 01990000 SCBCTLUN EQU SCBERR4 01991000 SCBCHANN EQU SCBERR4 01992000 SCBMRFSD EQU IEDQSCB+20 01993000 SCBDLPTR EQU IEDQSCB+22 01994000 SCBEOBAC EQU SCBDLPTR 01995000 SCBCTBAC EQU SCBEOBAC 01996000 SCBBSCFM EQU IEDQSCB+24 01997000 SCBDATEN EQU SCBBSCFM 01998000 SCBITBSZ EQU IEDQSCB+40 01999000 SCBCTBSV EQU SCBITBSZ 02000000 SCBDNSEG EQU IEDQSCB+41 02001000 SCBCLSEG EQU IEDQSCB+45 02002000 SCBITBAC EQU IEDQSCB+48 02003000 SCBCTBFL EQU SCBITBAC 02004000 SCBBLKCT EQU SCBCTBFL 02005000 SCBDCSEG EQU IEDQSCB+49 02006000 SCBSTAT1 EQU IEDQSCB+60 02007000 SCBCORE EQU IEDQSCB+61 02008000 SCBSCAN EQU IEDQSCB+64 02009000 SCBNTXT EQU IEDQSCB+66 02010000 SCBCHDR EQU IEDQSCB+72 02011000 SCBCCSEG EQU IEDQSCB+75 02012000 SCBEND EQU IEDQSCB+84 02013000 IEDSIBD EQU 0 02014000 SIBCHAIN EQU IEDSIBD+4 02015000 SIBINDEX EQU IEDSIBD+8 02016000 SIBSESSN EQU IEDSIBD+10 02017000 SIBLGOFF EQU SIBSESSN 02018000 SIBSHUTC EQU SIBSESSN 02019000 SIBSSTAT EQU SIBSESSN 02020000 SIBPACIN EQU IEDSIBD+11 02021000 SIBSEQN EQU IEDSIBD+12 02022000 SIBSTAT1 EQU IEDSIBD+16 02023000 SIBFTERM EQU SIBSTAT1 02024000 SIBSTAT2 EQU IEDSIBD+17 02025000 SIBDACLU EQU SIBSTAT2 02026000 SIBBIND EQU IEDSIBD+20 02027000 SIBBIND1 EQU SIBBIND 02028000 SIBBIND2 EQU SIBBIND+1 02029000 SIBBIND3 EQU SIBBIND+2 02030000 SIBSTAT0 EQU IEDSIBD+23 02031000 IEDQSTCB EQU 0 02032000 STCBVTO EQU IEDQSTCB 02033000 STCBLINK EQU IEDQSTCB+5 02034000 IEDTRM EQU 0 02035000 IEDNTRM EQU IEDTRM 02036000 TRMBYTE4 EQU IEDNTRM 02037000 TRMBYTE3 EQU IEDNTRM+1 02038000 TRMBYTE2 EQU IEDNTRM+2 02039000 TRMRSACT EQU TRMBYTE2 02040000 TRMINPG EQU TRMBYTE2 02041000 TRMCLOSN EQU TRMINPG 02042000 TRMGPACT EQU TRMBYTE2 02043000 TRMBYTE1 EQU IEDNTRM+3 02044000 TRMSCPRQ EQU TRMBYTE1 02045000 TRMINPTP EQU TRMBYTE1 02046000 TRMBYTE0 EQU IEDNTRM+6 02047000 TRMINPUT EQU TRMBYTE0 02048000 TRMOUTPT EQU TRMBYTE0 02049000 TRMDIAL EQU TRMBYTE0 02050000 TRMSNA EQU TRMBYTE0 02051000 TRMSIBPT EQU IEDNTRM+7 02052000 TRMTYPE EQU IEDNTRM+11 02053000 IEDQTRM EQU IEDTRM+14 02054000 TRMSTATE EQU IEDQTRM 02055000 TRMLOG EQU TRMSTATE 02056000 TRMDESTQ EQU IEDQTRM+1 02057000 TRMINSEQ EQU IEDQTRM+4 02058000 TLISTCNT EQU TRMINSEQ 02059000 TRMOUTSQ EQU IEDQTRM+6 02060000 TLISTEN EQU TRMOUTSQ 02061000 TRMDSORG EQU TLISTEN 02062000 TRMALTD EQU IEDQTRM+8 02063000 TRMDEVFL EQU IEDQTRM+10 02064000 TRMSTAT EQU IEDQTRM+12 02065000 IEDQTSI EQU 0 02066000 TSIFLAG EQU IEDQTSI 02067000 TSIDYQCB EQU IEDQTSI+52 02068000 TSIDYQFG EQU TSIDYQCB 02069000 TSIRNSCH EQU IEDQTSI+112 02070000 TSITSW EQU IEDQTSI+124 02071000 TSIGMAIN EQU TSITSW+16 02072000 GMFLAG EQU TSIGMAIN 02073000 GMCODE EQU TSIGMAIN+1 02074000 IEDQTNT EQU 0 02075000 IEDQGA02 EQU 0 02076000 IEDAYJ EQU 0 02077000 IEDQHG01 EQU 0 02078000 IEDIAP07 EQU 0 02079000 LCBSCAN EQU 0 02080000 SSCHINDX EQU 0 02081000 DSPCHAIN EQU 12 02082000 DSPLIFO EQU 56 02083000 DSPLIFOR EQU 60 02084000 DSPLIST EQU 8 02085000 DSPPRIO EQU 48 02086000 DSPPRIOR EQU 52 02087000 DSPTRACE EQU 64 02088000 DSPTSTQ EQU 32 02089000 DSPTSTQR EQU 36 02090000 DSPUNAV EQU 40 02091000 DSPUNAVR EQU 44 02092000 DSPWAIT EQU 16 02093000 QCBLDCB EQU 0 02094000 LCBRSPIN EQU LCBIOBSN 02095000 LCBLUSNS EQU LCBRSPIN+5 02096000 LCBSCPRS EQU LCBRSPIN+9 02097000 LCBCSWU1 EQU LCBSCPRS+2 02098000 LCBRSPFG EQU LCBRSPIN+15 02099000 LCBCOREQ EQU LCBTPCD 02100000 @NM00133 EQU LCBCPA+40 02101000 LCBNCPPT EQU @NM00133+1 02102000 LCBQNX EQU LCBERCCW 02103000 LCBQNXMN EQU LCBQNX 02104000 LCBCANCL EQU LCBSAVSN 02105000 LCBCANFG EQU LCBCANCL 02106000 TRMPRE1 EQU TRMBYTE4 02107000 TRMSESSN EQU TRMPRE1 02108000 TRMOCNI EQU TRMPRE1 02109000 TRMSPACT EQU TRMPRE1 02110000 TRMERLCK EQU TRMPRE1 02111000 TRMNCP1 EQU TRMBYTE4 02112000 TRMINOP EQU TRMNCP1 02113000 TRMPRE EQU TRMBYTE3 02114000 TRMSTMM EQU TRMPRE 02115000 TRMASNXI EQU TRMPRE 02116000 TRMNCP EQU TRMBYTE3 02117000 TRMNCPCL EQU TRMNCP 02118000 TRMPU EQU TRMBYTE3 02119000 TRMLU EQU TRMBYTE3 02120000 TRMLUTM EQU TRMLU 02121000 TRMLUREQ EQU TRMLU 02122000 TRMLINK EQU TRMBYTE3 02123000 IEDTTPTR EQU AVTTSOPT 02124000 SAVEQCB EQU AVTDOUBL+4 02125000 SAVE3 EQU AVTSAVE3 02126000 PRFSHDR EQU IEDQPRF+42 02127000 SCBRGSAV EQU SCBEND 02128000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02129000 @NM00179 EQU TRMLINK 02130000 TRMLSTAT EQU TRMLINK 02131000 TRMLINT EQU TRMLINK 02132000 TRMEPMOD EQU TRMLINK 02133000 TRMLULOG EQU TRMLU 02134000 TRMINERR EQU TRMLU 02135000 TRMSESRQ EQU TRMLU 02136000 TRMTDIFF EQU TRMLU 02137000 TRMLUIT EQU TRMLU 02138000 TRMAUTO EQU TRMLU 02139000 TRMPCONT EQU TRMPU 02140000 @NM00178 EQU TRMPU 02141000 TRMNCONT EQU TRMNCP 02142000 TRMQUCKN EQU TRMNCP 02143000 TRMSLOWN EQU TRMNCP 02144000 TRMSYGEN EQU TRMNCP 02145000 TRMIPLDM EQU TRMNCP 02146000 TRMINOUT EQU TRMPRE 02147000 TRMRDOUT EQU TRMPRE 02148000 TRMNLOUT EQU TRMPRE 02149000 TRMWROUT EQU TRMPRE 02150000 TRMCMODE EQU TRMPRE 02151000 TRMSTPND EQU TRMPRE 02152000 @NM00177 EQU TRMNCP1 02153000 TRMLYNCH EQU TRMPRE1 02154000 TRMSPOUT EQU TRMPRE1 02155000 TRMQNPL EQU TRMPRE1 02156000 TRMCONT EQU TRMPRE1 02157000 @NM00141 EQU LCBCANCL+3 02158000 LCBCANTH EQU LCBCANCL+1 02159000 @NM00140 EQU LCBCANFG 02160000 LCBCANCD EQU LCBCANFG 02161000 @NM00139 EQU LCBCANFG 02162000 LCBCANEB EQU LCBCANFG 02163000 LCBCANXT EQU LCBCANFG 02164000 LCBUNADD EQU LCBQNX+21 02165000 LCBUASZE EQU LCBQNX+20 02166000 LCBDSTEA EQU LCBQNX+16 02167000 @NM00138 EQU LCBQNX+8 02168000 LCBIOSBS EQU LCBQNX+5 02169000 @NM00137 EQU LCBQNX+4 02170000 LCBSTSAV EQU LCBQNX+1 02171000 @NM00136 EQU LCBQNXMN 02172000 LCBNX509 EQU LCBQNXMN 02173000 LCBNX162 EQU LCBQNXMN 02174000 LCBNX142 EQU LCBQNXMN 02175000 LCBNX064 EQU LCBQNXMN 02176000 @NM00135 EQU @NM00133+4 02177000 @NM00134 EQU @NM00133 02178000 LCBWRSCH EQU LCBCOREQ+8 02179000 LCBCQLNK EQU LCBCOREQ+4 02180000 LCBCQELE EQU LCBCOREQ 02181000 LCBPAKCH EQU LCBRSPIN+16 02182000 @NM00132 EQU LCBRSPFG 02183000 LCBRSRH EQU LCBRSPFG 02184000 LCBEXPI EQU LCBRSPFG 02185000 @NM00131 EQU LCBRSPIN+12 02186000 LCBUSUE1 EQU LCBCSWU1 02187000 @NM00130 EQU LCBCSWU1 02188000 @NM00129 EQU LCBSCPRS+1 02189000 LCBDFCMD EQU LCBSCPRS 02190000 LCBUSER EQU LCBLUSNS+2 02191000 LCBSMIN EQU LCBLUSNS+1 02192000 LCBSMAJ EQU LCBLUSNS 02193000 LCBRHSV EQU LCBRSPIN+2 02194000 LCBSNS0 EQU LCBRSPIN+1 02195000 @NM00128 EQU LCBRSPIN 02196000 GMDEVCH EQU TSIGMAIN+40 02197000 GMTSSIZ EQU TSIGMAIN+38 02198000 GMTSCNT EQU TSIGMAIN+36 02199000 GMLNSPC EQU TSIGMAIN+34 02200000 GMTCSPC EQU TSIGMAIN+32 02201000 GMCRUNT EQU TSIGMAIN+28 02202000 GMCRBUF EQU TSIGMAIN+24 02203000 GMTCBUF EQU TSIGMAIN+20 02204000 GMTSBUF EQU TSIGMAIN+16 02205000 GMBFRS EQU TSIGMAIN+14 02206000 GMHBFR EQU TSIGMAIN+12 02207000 GMBFUNIT EQU TSIGMAIN+10 02208000 GMBFSIZE EQU TSIGMAIN+8 02209000 GMSATCT EQU TSIGMAIN+6 02210000 GMCARCT EQU TSIGMAIN+4 02211000 GMLNSZ EQU TSIGMAIN+3 02212000 GMLNNO EQU TSIGMAIN+2 02213000 @NM00191 EQU GMCODE 02214000 GMTSO EQU GMCODE 02215000 GMLINE EQU GMCODE 02216000 GMTCAM EQU GMCODE 02217000 @NM00190 EQU GMCODE 02218000 @NM00189 EQU GMFLAG 02219000 GMFRMAT EQU GMFLAG 02220000 GMINIT EQU GMFLAG 02221000 GMENCIN EQU GMFLAG 02222000 GMENCON EQU GMFLAG 02223000 @NM00188 EQU TSITSW 02224000 TSIAYO02 EQU IEDQTSI+120 02225000 TSIAYO EQU IEDQTSI+116 02226000 TSI3705 EQU IEDQTSI+108 02227000 TSI270X EQU IEDQTSI+104 02228000 TSI3270 EQU IEDQTSI+100 02229000 TSITSDST EQU IEDQTSI+96 02230000 TSIATTEN EQU IEDQTSI+92 02231000 TSICPBC EQU IEDQTSI+88 02232000 TSICPBI EQU IEDQTSI+84 02233000 TSIDEST EQU IEDQTSI+80 02234000 @NM00187 EQU IEDQTSI+64 02235000 TSIDYDLY EQU IEDQTSI+60 02236000 TSIDYLNK EQU IEDQTSI+57 02237000 TSIDYPRI EQU IEDQTSI+56 02238000 @NM00186 EQU TSIDYQCB+1 02239000 @NM00185 EQU TSIDYQFG 02240000 TSIDYQB EQU TSIDYQFG 02241000 @NM00184 EQU TSIDYQFG 02242000 TSIDYPOS EQU TSIDYQFG 02243000 @NM00183 EQU TSIDYQFG 02244000 TSIHALT EQU IEDQTSI+48 02245000 TSIMSGEN EQU IEDQTSI+44 02246000 TSITSAP EQU IEDQTSI+40 02247000 TSITSBQ EQU IEDQTSI+36 02248000 TSIBUFQ EQU IEDQTSI+32 02249000 TSISCHED EQU IEDQTSI+28 02250000 TSISIMAT EQU IEDQTSI+24 02251000 TSIHANG EQU IEDQTSI+20 02252000 TSIEDIT EQU IEDQTSI+16 02253000 TSISTAE EQU IEDQTSI+12 02254000 TSINPUT EQU IEDQTSI+8 02255000 TSILINK EQU IEDQTSI+5 02256000 TSIPRI EQU IEDQTSI+4 02257000 TSIELCHN EQU IEDQTSI+1 02258000 @NM00182 EQU TSIFLAG 02259000 TSIQCB EQU TSIFLAG 02260000 @NM00181 EQU TSIFLAG 02261000 TSIPOST EQU TSIFLAG 02262000 @NM00180 EQU TSIFLAG 02263000 TRMOPT EQU IEDTRM+34 02264000 TRMOPTBL EQU IEDQTRM+18 02265000 TRMOPNO EQU IEDQTRM+17 02266000 TRMCHCIN EQU IEDQTRM+16 02267000 TRMSENSE EQU TRMSTAT+3 02268000 TRMTEMPR EQU TRMSTAT+2 02269000 TRMSIO EQU TRMSTAT 02270000 @NM00176 EQU TRMDEVFL+1 02271000 TRMTPIN EQU TRMDEVFL+1 02272000 TRMNCPI EQU TRMDEVFL+1 02273000 TRMRNTRM EQU TRMDEVFL+1 02274000 @NM00175 EQU TRMDEVFL+1 02275000 TRMLMD EQU TRMDEVFL+1 02276000 TRMCONC EQU TRMDEVFL+1 02277000 TRMTSOB EQU TRMDEVFL 02278000 TRMBFDY EQU TRMDEVFL 02279000 TRMTBLK EQU TRMDEVFL 02280000 TRMSBLK EQU TRMDEVFL 02281000 TRMBLKS EQU TRMDEVFL 02282000 TRMADDC EQU TRMDEVFL 02283000 TRMDDIG EQU TRMDEVFL 02284000 TRMBUFS EQU TRMDEVFL 02285000 TRMPRILK EQU TRMALTD 02286000 TRMLGB EQU TRMDSORG 02287000 TRMUTERM EQU TLISTCNT 02288000 TRMSCNYN EQU TRMSTATE 02289000 TRMOPTFN EQU TRMSTATE 02290000 TRMHELDN EQU TRMSTATE 02291000 TRMACPTN EQU TRMSTATE 02292000 TRMPREF EQU TRMSTATE 02293000 TRMPROC EQU TRMLOG 02294000 TRMLIST EQU TRMLOG 02295000 TRMLINE EQU TRMSTATE 02296000 TRMSUBST EQU IEDNTRM+12 02297000 TRMRLMCT EQU IEDNTRM+10 02298000 TRMCOHTG EQU TRMSIBPT+1 02299000 TRMGPCNT EQU TRMSIBPT 02300000 TRMBUFRD EQU TRMBYTE0 02301000 TRMGP EQU TRMBYTE0 02302000 @NM00174 EQU TRMBYTE0 02303000 TRMUDEF EQU TRMBYTE0 02304000 TRMCOHRT EQU IEDNTRM+4 02305000 TRMSTOTE EQU TRMBYTE1 02306000 TRMCKPRN EQU TRMBYTE1 02307000 TRMTSATN EQU TRMBYTE1 02308000 TRMTRACE EQU TRMBYTE1 02309000 TRMSWBCK EQU TRMBYTE1 02310000 TRMAUTOC EQU TRMBYTE1 02311000 TRMWTNEG EQU TRMSCPRQ 02312000 TRMWRBRK EQU TRMBYTE2 02313000 TRMNOSND EQU TRMBYTE2 02314000 TRMPREP EQU TRMBYTE2 02315000 TRMANDL EQU TRMBYTE2 02316000 TRMREMB EQU TRMBYTE2 02317000 STCBPRI EQU IEDQSTCB+4 02318000 STCBTCIN EQU IEDQSTCB+2 02319000 STCBINDX EQU IEDQSTCB+1 02320000 SIBLUTYP EQU SIBSTAT0 02321000 SIBCD EQU SIBSTAT0 02322000 @NM00173 EQU SIBBIND3 02323000 SIBCRES EQU SIBBIND3 02324000 SIBSPKR EQU SIBBIND3 02325000 SIBRECOV EQU SIBBIND3 02326000 SIBFMODE EQU SIBBIND3 02327000 SIBALT EQU SIBBIND2 02328000 SIBBTERM EQU SIBBIND2 02329000 SIBBRACK EQU SIBBIND2 02330000 SIBFMUSE EQU SIBBIND2 02331000 SIBSEBI EQU SIBBIND2 02332000 SIBSCMP EQU SIBBIND2 02333000 SIBSEXC EQU SIBBIND2 02334000 SIBSDEF EQU SIBBIND2 02335000 SIBSRQM EQU SIBBIND1 02336000 SIBSCHNG EQU SIBBIND1 02337000 SIBPEBI EQU SIBBIND1 02338000 SIBPCMP EQU SIBBIND1 02339000 SIBPEXC EQU SIBBIND1 02340000 SIBPDEF EQU SIBBIND1 02341000 SIBPRQM EQU SIBBIND1 02342000 SIBPCHN EQU SIBBIND1 02343000 SIBFMPRO EQU IEDSIBD+19 02344000 SIBTSPRO EQU IEDSIBD+18 02345000 @NM00172 EQU SIBSTAT2 02346000 SIBRDSCN EQU SIBSTAT2 02347000 SIBTERM EQU SIBSTAT2 02348000 SIBUSS EQU SIBSTAT2 02349000 SIBBSTAT EQU SIBSTAT1 02350000 SIBRTRP EQU SIBSTAT1 02351000 SIBRQEND EQU SIBSTAT1 02352000 SIBRQSHT EQU SIBSTAT1 02353000 SIBSEQO EQU SIBSEQN+2 02354000 SIBSEQI EQU SIBSEQN 02355000 SIBNCNT EQU SIBPACIN 02356000 SIBMCNT EQU SIBPACIN 02357000 SIBDSTAT EQU SIBSESSN 02358000 SIBINBIU EQU SIBSESSN 02359000 SIBRUSEG EQU IEDSIBD 02360000 SCBTRANS EQU IEDQSCB+81 02361000 SCBUNTCT EQU IEDQSCB+80 02362000 SCBEOB EQU IEDQSCB+78 02363000 SCBNXCPB EQU SCBCCSEG 02364000 SCBNHDR EQU SCBCHDR 02365000 SCBCRCD EQU IEDQSCB+69 02366000 SCBTQBCK EQU SCBNTXT 02367000 SCBOSEQ EQU SCBSCAN 02368000 SCBXTRA EQU SCBCORE 02369000 SCBNOPST EQU SCBSTAT1 02370000 SCBNIDLE EQU SCBSTAT1 02371000 SCBCEND EQU SCBSTAT1 02372000 SCBCBGN EQU SCBSTAT1 02373000 SCBSIZE EQU IEDQSCB+58 02374000 SCBSRCE EQU IEDQSCB+56 02375000 SCBDEOB EQU IEDQSCB+52 02376000 SCBFEFO EQU SCBDCSEG 02377000 SCBCTBND EQU SCBBLKCT 02378000 SCBSCHDR EQU SCBCLSEG 02379000 SCBHBFNO EQU IEDQSCB+44 02380000 SCBSCSEG EQU SCBDNSEG 02381000 SCBBCTR EQU SCBCTBSV 02382000 SCBCCHDR EQU IEDQSCB+37 02383000 SCBDESTL EQU IEDQSCB+36 02384000 SCBDCHDR EQU IEDQSCB+33 02385000 SCBCPBNO EQU IEDQSCB+32 02386000 SCBMBSSA EQU IEDQSCB+25 02387000 SCBMLMTN EQU SCBBSCFM 02388000 SCBNOEOT EQU SCBBSCFM 02389000 @NM00171 EQU SCBBSCFM 02390000 SCBNPDTR EQU SCBDATEN 02391000 SCBCNTEN EQU SCBBSCFM 02392000 SCBRCVTX EQU SCBBSCFM 02393000 SCBNONTR EQU SCBBSCFM 02394000 SCBTRNSP EQU SCBBSCFM 02395000 SCBENDCR EQU SCBCTBAC+1 02396000 SCBCRLEN EQU SCBCTBAC 02397000 SCBUNDFN EQU SCBERR4 02398000 SCBSTERN EQU SCBCHANN 02399000 SCBCPMEN EQU SCBCTLUN 02400000 @NM00170 EQU SCBERR4 02401000 SCBTRMLN EQU SCBERR4 02402000 SCBCONNN EQU SCBERR4 02403000 SCBAPERR EQU SCBTXTTN 02404000 SCBSLCTN EQU SCBERR4 02405000 SCBPERRN EQU SCBXCEPN 02406000 SCBTHRSN EQU SCBATTN 02407000 SCBFIERN EQU SCBFORMN 02408000 SCBUSERN EQU SCBERR3 02409000 SCBSATTN EQU SCBERR3 02410000 SCBTMINN EQU SCBERR3 02411000 SCBXPD EQU SCBTMIDN 02412000 SCBXPI EQU SCBLOSTN 02413000 SCBSOHE EQU SCBERR2 02414000 SCBFRWDN EQU SCBERR2 02415000 SCBRRJN EQU SCBABRTN 02416000 SCBOLTR EQU SCBERR2 02417000 SCBALN EQU SCBERR2 02418000 SCBCODER EQU SCBERR2 02419000 SCBCRMAX EQU SCBERR2 02420000 SCBCRMIN EQU SCBERR2 02421000 SCBRVISL EQU SCBCUTFN 02422000 SCBNOBFN EQU SCBERR1 02423000 @NM00169 EQU SCBERR1 02424000 SCBNOVAC EQU SCBSEQLN 02425000 SCBNOTSO EQU SCBSEQHN 02426000 SCBRVITX EQU SCBNOTRM 02427000 SCBHANG EQU SCBORIGN 02428000 SCBNOLOG EQU SCBHDRRN 02429000 SCBMRFPL EQU IEDQSCB+13 02430000 SCBBBFTM EQU SCBQTYPE 02431000 SCBNOFF EQU SCBQTYPE 02432000 SCBCONC EQU SCBQTYPE 02433000 SCBNREUS EQU SCBQTYPE 02434000 SCBREUS EQU SCBQTYPE 02435000 SCBCOREQ EQU SCBQTYPE 02436000 SCBNORCL EQU SCBQTYPE 02437000 SCBCTBSZ EQU SCBEOBSZ 02438000 @NM00168 EQU SCBBKFCT 02439000 SCBPRI EQU IEDQSCB+8 02440000 SCBMACR EQU SCBMBHEN 02441000 SCBSNDCT EQU SCBRCVCT 02442000 SCBDESTQ EQU IEDQSCB+1 02443000 SCBCODE EQU SCBSTATE 02444000 SCBPRER EQU SCBSTATE 02445000 SCBCKPT EQU SCBSTATE 02446000 SCBERSDS EQU SCBSTATE 02447000 SCBMGFMN EQU SCBSEQIN 02448000 SCBTRANP EQU SCBSTATE 02449000 QCBTTCIN EQU QCBPLCBA+1 02450000 @NM00167 EQU QCBPLCBA 02451000 @NM00166 EQU QCBSTAT1 02452000 QCBFLUSH EQU QCBSTAT1 02453000 QCBNDXRQ EQU QCBSTAT1 02454000 QCBESIG EQU QCBSTAT1 02455000 QCBRCVRQ EQU QCBSTAT1 02456000 QCBWAITC EQU QCBSTAT1 02457000 QCBPLCBN EQU QCBSTAT1 02458000 QCBCHAIN EQU IEDNQCB 02459000 QCBPQBCK EQU IEDQPQCB+25 02460000 QCBPRIPQ EQU IEDQPQCB+24 02461000 QCBCFHDR EQU IEDQPQCB+21 02462000 QCBLFEFO EQU IEDQPQCB+18 02463000 QCBFFEFO EQU IEDQPQCB+15 02464000 QCBPREVF EQU QCBINTLF 02465000 QCBINTFF EQU IEDQPQCB+9 02466000 QCBDATSQ EQU QCBFHDTZ+1 02467000 @NM00165 EQU QCBFHDTZ 02468000 @NM00164 EQU QCBPFEFO 02469000 QCBDATFL EQU QCBFHDLZ 02470000 QCBDNHDR EQU IEDQPQCB 02471000 QCBQBACK EQU IEDQQCB+37 02472000 QCBCKPT EQU QCBFLAG 02473000 QCBPROC EQU QCBFLAG 02474000 QCBSDFFO EQU QCBFLAG 02475000 QCBTERMQ EQU QCBFLAG 02476000 QCBRSRV EQU QCBFLAG 02477000 QCBREAD EQU QCBFLAG 02478000 QCBNOBRK EQU QCBFLAG 02479000 QCBLGBAD EQU QCBDCBAD 02480000 QCBRELLN EQU IEDQQCB+32 02481000 QCBTJID EQU QCBLKRRN+1 02482000 QCBCARCT EQU QCBLKRRN 02483000 QCBPRLVL EQU QCBPREN 02484000 QCBMSGCT EQU IEDQQCB+26 02485000 QCBEXTO EQU QCBINTVL 02486000 QCBDISC EQU QCBTSOF1 02487000 QCBPARTO EQU QCBTSOF1 02488000 QCBSATRD EQU QCBTSOF1 02489000 QCBNOBUF EQU QCBTSOF1 02490000 QCBTPUT EQU QCBTSOF1 02491000 QCBTGET EQU QCBTSOF1 02492000 QCBWRBRK EQU QCBTSOF1 02493000 QCBSATLC EQU QCBTSOF2 02494000 QCBSATTI EQU QCBTSOF2 02495000 QCBSATCH EQU QCBTSOF2 02496000 QCBSIMRD EQU QCBTSOF2 02497000 QCBDSSMI EQU QCBTSOF2 02498000 QCBPOSTO EQU QCBTSOF2 02499000 QCBBUFQ EQU QCBTSOF2 02500000 QCBINHBN EQU QCBTSOF2 02501000 QCBSATCT EQU @NM00163 02502000 QCBSCBOF EQU IEDQQCB+20 02503000 QCBCLOCK EQU QCBSTAT 02504000 QCBSMODE EQU QCBSTAT 02505000 QCBSEND EQU QCBSTAT 02506000 QCBBUFRD EQU QCBSTAT 02507000 QCBTRMHO EQU QCBSTAT 02508000 QCBEOM EQU QCBSTAT 02509000 QCBHUCT EQU QCBRETCT 02510000 QCBIEND EQU QCBRETCT 02511000 QCBEND EQU QCBRETCT 02512000 QCBNL EQU QCBRETCT 02513000 QCBLOGCT EQU QCBRETCT 02514000 @NM00162 EQU QCBBYTE1 02515000 QCBRITRM EQU QCBBYTE1 02516000 @NM00161 EQU QCBEOLDT 02517000 QCBLINK EQU IEDQQCB+5 02518000 QCBCNTEN EQU QCBELCHN+2 02519000 @NM00160 EQU QCBELCHN+2 02520000 @NM00159 EQU QCBELCHN 02521000 QCBHELD EQU QCBDSFLG 02522000 QCBFQCB EQU QCBDSFLG 02523000 QCBDRQQ EQU QCBDSFLG 02524000 QCBALTMH EQU QCBDSFLG 02525000 QCBREUS EQU QCBDISK 02526000 QCBNREUS EQU QCBDISK 02527000 QCBCORE EQU QCBDSFLG 02528000 QCBTSQ EQU QCBDSFLG 02529000 PRF2SEQP EQU PRF2WD2 02530000 @NM00158 EQU IEDPF2+1 02531000 @NM00157 EQU PRF2FLG2 02532000 PRF2TERM EQU PRF2FLG2 02533000 PRF2SMI EQU PRF2FLG2 02534000 PRF2FORM EQU PRF2FLG2 02535000 PRF2TNTI EQU PRF2FLG2 02536000 PRF1RULN EQU PRF1SEQP+2 02537000 PRF1TAG2 EQU PRF1SQID+1 02538000 @NM00156 EQU PRF1TAG1 02539000 PRF1TAGS EQU PRF1TAG1 02540000 @NM00155 EQU PRF1FLG1 02541000 PRF1LOGD EQU PRF1FLG1 02542000 PRF1USS EQU PRF1FLG1 02543000 PRF1FORM EQU PRF1FLG1 02544000 PRF1EXPI EQU PRF1FLG1 02545000 PRF1FIDI EQU PRF1FLG1 02546000 PRF1RH EQU IEDPF1 02547000 PRFISEQ EQU IEDQPRF+38 02548000 PRFSTXT EQU PRFHQBCK 02549000 PRFNHDR EQU PRFCHDR 02550000 PRFCRCD EQU IEDQPRF+29 02551000 PRFSVSEQ EQU PRFNTXT+1 02552000 PRFSVPRI EQU PRFEOBOF 02553000 PRFISIZE EQU PRFSCAN+1 02554000 @NM00154 EQU PRFSCAN 02555000 PRFEOB EQU PRFXTRA+1 02556000 PRFSTSO EQU PRFXTRA 02557000 PRFNHDRN EQU PRFSTAT1 02558000 PRFNLSTN EQU PRFSTAT1 02559000 PRFLOCK EQU PRFEOFN 02560000 PRFDUPLN EQU PRFSTAT1 02561000 PRFTSMSG EQU PRFSTAT1 02562000 PRFITCPN EQU PRFSTAT1 02563000 PRFERMGN EQU PRFSTAT1 02564000 PRFCNCLN EQU PRFSTAT1 02565000 PRFSVFLG EQU @NM00153+3 02566000 PRFSIZE EQU PRFSVFFO+2 02567000 PRFSRCE EQU PRFSVFFO 02568000 PRFLCB EQU IEDQPRF+13 02569000 PRFPIUO EQU PRFPLQCB 02570000 PRFTI0 EQU PRFTIC+1 02571000 @NM00152 EQU PRFTICC 02572000 @NM00151 EQU PRFTICC 02573000 @NM00150 EQU PRFTICC 02574000 PRFTICON EQU PRFTICC 02575000 @NM00149 EQU PRFTICC 02576000 @NM00148 EQU PRFTICC 02577000 PRFBFMM EQU PRFTICC 02578000 PRFEOMSG EQU PRFTICC 02579000 PRFCOUNT EQU PRFLINK+1 02580000 @NM00147 EQU PRFLINK 02581000 PRFFLAGS EQU PRFPRI 02582000 PRFIOADR EQU PRFQCBA 02583000 PRFOPCDE EQU PRFKEY 02584000 LCBERADR EQU LCBXRADR+1 02585000 LCBPCIRC EQU LCBXRADR 02586000 LCBDCT3 EQU LCBXDCT+2 02587000 LCBDCT2 EQU LCBXDCT+1 02588000 LCBDCT1 EQU LCBXDCT 02589000 @NM00146 EQU LCBXFLAG 02590000 LCBERPND EQU LCBXFLAG 02591000 LCBSRCPF EQU LCBXFLAG 02592000 LCBGPCTV EQU LCBXFLAG 02593000 @NM00145 EQU LCBXFLAG 02594000 @NM00144 EQU LCBXFLAG 02595000 @NM00143 EQU LCBXFLAG 02596000 @NM00142 EQU LCBXFLAG 02597000 LCBCCW10 EQU LCBCPA+72 02598000 LCBCCW9 EQU LCBCPA+64 02599000 LCBCCW8 EQU LCBCPA+56 02600000 LCBCCW7 EQU LCBCPA+48 02601000 LCBCCW6 EQU LCBCPA+40 02602000 LCBCP EQU LCBQEBPL+4 02603000 LCBIOSB EQU LCBQEBPL+1 02604000 LCBSIO EQU LCBQEBPL 02605000 LCBCCW4 EQU LCBCPA+24 02606000 LCBCCW3 EQU LCBCPA+16 02607000 LCBCCW2 EQU LCBCPA+8 02608000 LCBCCW1 EQU LCBCPA 02609000 @NM00127 EQU LCBERCCW+16 02610000 LCBATL05 EQU LCBERCCW+8 02611000 @NM00126 EQU LCBERCCW 02612000 LCBCSWSV EQU LCBSAVSN+1 02613000 LCBSNSV EQU LCBSAVSN 02614000 LCBBFSNS EQU LCBRSPSV 02615000 LCBINPAK EQU LCBSTAT6 02616000 LCBMHBID EQU LCBSTAT6 02617000 LCBHDRPD EQU LCBSTAT6 02618000 LCBCHN EQU LCBSTAT6 02619000 LCBBFRSV EQU LCBTPCD+1 02620000 @NM00125 EQU LCBSTAT5 02621000 LCBLUNIT EQU LCBSTAT5 02622000 LCBNXCMD EQU LCBBFRW 02623000 LCBERMSK EQU LCBOBRCH 02624000 LCBOLT EQU LCBMSGFM 02625000 LCBEOT EQU LCBMSGFM 02626000 LCBENQ EQU LCBMSGFM 02627000 LCBTTD EQU LCBMSGFM 02628000 LCBRSTRT EQU LCBMSGFM 02629000 LCBVSTRT EQU LCBMSGFM 02630000 LCBACKI EQU LCBMSGFM 02631000 LCBNAK EQU LCBMSGFM 02632000 @NM00124 EQU LCBRBCT2 02633000 LCBDCNT EQU LCBRBCT2 02634000 LCBCOMPL EQU LCBDLNKN 02635000 LCBERROR EQU LCBERBST 02636000 @NM00123 EQU LCBERBST 02637000 LCBINQ EQU LCBERBST 02638000 LCBRDERR EQU LCBERBST 02639000 LCBEOMSG EQU LCBERBST 02640000 LCBMSG EQU LCBERBST 02641000 LCBERBLK EQU IEDQLCB+81 02642000 LCBERBKY EQU LCBERB 02643000 LCBRECAD EQU IEDQLCB+73 02644000 @NM00122 EQU LCBTSTSW 02645000 @NM00121 EQU LCBTSTSW 02646000 @NM00120 EQU LCBTSTSW 02647000 @NM00119 EQU LCBTSTSW 02648000 @NM00118 EQU LCBTSTSW 02649000 @NM00117 EQU LCBTSTSW 02650000 @NM00116 EQU LCBTSTSW 02651000 LCBCONCT EQU LCBTSTSW 02652000 LCBRESP EQU LCBSTAT2 02653000 LCBBFRAV EQU LCBDIAL 02654000 LCBATTN EQU LCBSYNC 02655000 LCBSNDPR EQU LCBSTAT2 02656000 LCBCONNN EQU LCBBEOTN 02657000 LCBMSGNN EQU LCBSTAT2 02658000 LCBTRACE EQU LCBSTAT2 02659000 LCBOCWTN EQU LCBSTAT1 02660000 LCBRECOF EQU IEDQLCB+68 02661000 LCBRDBFR EQU LCBRCBFR 02662000 LCBUCBX EQU IEDQLCB+64 02663000 LCBTTBIN EQU LCBERRCT 02664000 @NM00115 EQU LCBINCAM 02665000 LCBGETMN EQU LCBINCAM 02666000 @NM00114 EQU LCBRESTR+1 02667000 LCBCMDSV EQU LCBRESTR 02668000 LCBPCILK EQU LCBDCBPT 02669000 LCBSTART EQU LCBIOBSN+16 02670000 LCBAP4OL EQU LCBSIOCC 02671000 LCBAP3OL EQU LCBSIOCC 02672000 LCBAP2OL EQU LCBSIOCC 02673000 LCBAP1OL EQU LCBSIOCC 02674000 LCBSIOC2 EQU LCBSIOCC 02675000 LCBSIOC1 EQU LCBSIOCC 02676000 @NM00113 EQU LCBSIOCC 02677000 LCBCSWRC EQU LCBCSW+5 02678000 LCBCSCHC EQU LCBCSWCS 02679000 LCBCSICC EQU LCBCSWCS 02680000 LCBCSCCC EQU LCBCSWCS 02681000 LCBCSCDC EQU LCBCSWCS 02682000 LCBCSPTC EQU LCBCSWCS 02683000 LCBCSPGC EQU LCBCSWCS 02684000 LCBCSIL EQU LCBCSWCS 02685000 LCBCSPCI EQU LCBCSWCS 02686000 LCBUSUE EQU LCBCSWUS 02687000 LCBUSUC EQU LCBCSWUS 02688000 LCBUSDE EQU LCBCSWUS 02689000 LCBUSCE EQU LCBCSWUS 02690000 LCBUSBSY EQU LCBCSWUS 02691000 LCBUSCUE EQU LCBCSWUS 02692000 LCBUSSM EQU LCBCSWUS 02693000 LCBUSAT EQU LCBCSWUS 02694000 LCBCSWCA EQU LCBCSW 02695000 LCBOBR EQU LCBFLAG3 02696000 LCBOBRRD EQU LCBFLAG3 02697000 LCBIOMSG EQU LCBFLAG3 02698000 LCBSOHC EQU LCBFLAG3 02699000 LCBRLAD EQU LCBFLAG3 02700000 LCBSOHR EQU LCBFLAG3 02701000 @NM00112 EQU LCBFLAG3 02702000 LCBECBPT EQU LCBIOBSN+4 02703000 LCBECBCC EQU LCBIOBSN+3 02704000 LCBSENS1 EQU LCBSNS+1 02705000 LCBABORT EQU LCBTMOUT 02706000 LCBNOTIN EQU LCBLOSDT 02707000 LCBOVRUN EQU LCBSENS0 02708000 LCBDATCK EQU LCBSENS0 02709000 LCBEQUCK EQU LCBSENS0 02710000 LCBBUSCK EQU LCBSENS0 02711000 LCBINTRQ EQU LCBSENS0 02712000 LCBCMDRJ EQU LCBSENS0 02713000 LCBFLAG2 EQU LCBIOBSN 02714000 @NM00111 EQU LCBFLAG1 02715000 LCBUNREL EQU LCBFLAG1 02716000 LCBEXCPN EQU LCBFLAG1 02717000 @NM00110 EQU LCBFLAG1 02718000 LCBERPIN EQU LCBFLAG1 02719000 @NM00109 EQU LCBFLAG1 02720000 LCBFSBFR EQU LCBMHA 02721000 LCBISZE EQU IEDQLCB+28 02722000 LCBLNENT EQU LCBSCBDA+1 02723000 @NM00108 EQU LCBSCBDA 02724000 LCBCPGMH EQU LCBSTAT4 02725000 LCBREAL EQU LCBPHASE 02726000 @NM00107 EQU LCBSTAT4 02727000 LCBACTRQ EQU LCBSTAT4 02728000 LCBIPLRQ EQU LCBSTAT4 02729000 LCBDACRQ EQU LCBSTAT4 02730000 LCBDMPRQ EQU LCBSTAT4 02731000 @NM00106 EQU LCBLKMDE 02732000 LCBLOCKI EQU LCBLKMDE 02733000 LCBLOCKR EQU LCBLKMDE 02734000 LCBHMFLG EQU LCBLKMDE 02735000 LCBBDFLG EQU LCBLKMDE 02736000 @NM00105 EQU LCBINSRC 02737000 LCBABRTN EQU LCBCHAIN 02738000 LCBBFRSZ EQU LCBCHAIN 02739000 LCBUREQN EQU LCBCHAIN 02740000 LCBNORTY EQU LCBCHAIN 02741000 LCBERMSG EQU LCBCHAIN 02742000 LCBEXCP EQU LCBCHAIN 02743000 LCBINVRQ EQU LCBSCRNN 02744000 LCB2741N EQU LCBTSOB 02745000 LCBINHBN EQU LCBTSOB 02746000 LCBCIRCD EQU LCBTSOB 02747000 LCBPREP EQU LCBTSOB 02748000 LCBSOPL EQU LCBTSOB 02749000 LCBSATRD EQU LCBTSOB 02750000 LCBTSBUF EQU LCBTSOB 02751000 LCBWRBRK EQU LCBTSOB 02752000 LCBTDL EQU IEDQLCB+18 02753000 LCBEOLTD EQU IEDQLCB+16 02754000 LCBRSPRI EQU IEDQLCB+12 02755000 LCBRSKEY EQU IEDQLCB+8 02756000 LCBLINK EQU LCBRCB+5 02757000 LCBKEY EQU LCBRCB 02758000 SAVTBITN EQU IEDNSVTD+312 02759000 @NM00104 EQU SAVTCKQB+8 02760000 @NM00103 EQU SAVTCKEC+1 02761000 @NM00102 EQU SAVTCKCC 02762000 SAVTCKPO EQU SAVTCKCC 02763000 SAVTCKWA EQU SAVTCKCC 02764000 SAVTCKCH EQU SAVTCKTB+1 02765000 SAVTCKVT EQU SAVTCKTB 02766000 @NM00101 EQU IEDNSVTD+297 02767000 SAVTRDFG EQU SAVTRDRV+12 02768000 @NM00100 EQU SAVTRDRV+5 02769000 SAVTRDPY EQU SAVTRDRV+4 02770000 SAVTRDQB EQU SAVTRDRV+1 02771000 SAVTRDKY EQU SAVTRDRV 02772000 SAVTNID EQU IEDNSVTD+280 02773000 SAVTDVAS EQU IEDNSVTD+276 02774000 SAVTPLSZ EQU IEDNSVTD+274 02775000 @NM00099 EQU IEDNSVTD+273 02776000 SAVTSUBL EQU IEDNSVTD+272 02777000 @NM00098 EQU SAVTZELM+1 02778000 SAVTSUBM EQU SAVTZELM 02779000 SAVTMHDX EQU IEDNSVTD+268 02780000 SAVTNAT1 EQU IEDNSVTD+266 02781000 SAVTSH20 EQU IEDNSVTD+264 02782000 SAVTLCBS EQU IEDNSVTD+260 02783000 SAVTRNMP EQU IEDNSVTD+256 02784000 SAVTTNTX EQU IEDNSVTD+252 02785000 SAVTNAX EQU IEDNSVTD+248 02786000 SAVTSUBV EQU IEDNSVTD+247 02787000 SAVTSUBA EQU IEDNSVTD+246 02788000 SAVTSIBC EQU IEDNSVTD+244 02789000 SAVTBSM EQU IEDNSVTD+240 02790000 SAVTRQTG EQU IEDNSVTD+236 02791000 SAVTRQCH EQU IEDNSVTD+232 02792000 SAVTMAND EQU IEDNSVTD+228 02793000 SAVTSPLN EQU IEDNSVTD+224 02794000 SAVTNADL EQU IEDNSVTD+222 02795000 SAVTNATL EQU IEDNSVTD+220 02796000 SAVTMHTB EQU IEDNSVTD+216 02797000 SAVTSSMH EQU IEDNSVTD+212 02798000 SAVTQRS EQU IEDNSVTD+208 02799000 SAVTDFCO EQU IEDNSVTD+200 02800000 SAVTSAO EQU IEDNSVTD+196 02801000 SAVTSAC EQU IEDNSVTD+188 02802000 SAVTSAI EQU IEDNSVTD+184 02803000 SAVTCSCI EQU IEDNSVTD+180 02804000 SAVTSSRP EQU IEDNSVTD+176 02805000 SAVTSSRQ EQU IEDNSVTD+172 02806000 SAVTSCLU EQU IEDNSVTD+168 02807000 SAVTXTRQ EQU IEDNSVTD+164 02808000 SAVTMVBF EQU IEDNSVTD+160 02809000 @NM00097 EQU IEDNSVTD+148 02810000 SAVTIPCQ EQU IEDNSVTD+144 02811000 @NM00096 EQU IEDNSVTD+136 02812000 SAVTXFMI EQU IEDNSVTD+132 02813000 @NM00095 EQU IEDNSVTD+124 02814000 SAVTXFMO EQU IEDNSVTD+120 02815000 @NM00094 EQU IEDNSVTD+116 02816000 SAVTSSSR EQU IEDNSVTD+112 02817000 SAVTSCPQ EQU IEDNSVTD+108 02818000 SAVTLUSR EQU IEDNSVTD+100 02819000 @NM00093 EQU SAVTLUSQ+8 02820000 SAVTLUSP EQU SAVTLUSQ+4 02821000 SAVTLUSB EQU SAVTLUSQ 02822000 @NM00092 EQU IEDNSVTD+84 02823000 SAVTSAT EQU IEDNSVTD+80 02824000 SAVTNAT EQU IEDNSVTD+76 02825000 SAVTCLUP EQU IEDNSVTD+72 02826000 SAVTPIUT EQU IEDNSVTD+68 02827000 SAVTRNTA EQU IEDNSVTD+64 02828000 SAVTDNIR EQU IEDNSVTD+60 02829000 SAVTFLDH EQU IEDNSVTD+52 02830000 SAVTSRTN EQU IEDNSVTD+48 02831000 SAVTSREQ EQU IEDNSVTD+44 02832000 SAVTFAIL EQU IEDNSVTD+42 02833000 SAVTSUSE EQU IEDNSVTD+40 02834000 SAVTSIB EQU IEDNSVTD+36 02835000 @NM00091 EQU IEDNSVTD+28 02836000 SAVTWH20 EQU IEDNSVTD+26 02837000 SAVTPWT EQU IEDNSVTD+24 02838000 SAVTPRTQ EQU IEDNSVTD+20 02839000 SAVTPREQ EQU IEDNSVTD+16 02840000 SAVTPH20 EQU IEDNSVTD+14 02841000 SAVTPUSE EQU IEDNSVTD+12 02842000 SAVTPLCB EQU IEDNSVTD+8 02843000 SAVTPOOL EQU IEDNSVTD+4 02844000 SAVTPRMT EQU SAVTDIAF 02845000 SAVTVIRT EQU SAVTDIAF 02846000 AVTCPBNO EQU IEDQAVTD+1172 02847000 AVTHRESS EQU IEDQAVTD+1171 02848000 @NM00090 EQU IEDQAVTD+1170 02849000 @NM00089 EQU IEDQAVTD+1169 02850000 @NM00088 EQU IEDQAVTD+1168 02851000 @NM00087 EQU IEDQAVTD+1165 02852000 @NM00086 EQU IEDQAVTD+1164 02853000 AVTHRESE EQU @NM00085 02854000 AVTRADDR EQU IEDQAVTD+1156 02855000 AVTNADDR EQU IEDQAVTD+1152 02856000 AVTHRESN EQU IEDQAVTD+1148 02857000 AVTVOLRN EQU IEDQAVTD+1144 02858000 AVTTOTNN EQU IEDQAVTD+1140 02859000 AVTTRCYN EQU IEDQAVTD+1136 02860000 AVTRCTRN EQU IEDQAVTD+1132 02861000 AVTNOVON EQU IEDQAVTD+1128 02862000 AVTADEBN EQU IEDQAVTD+1124 02863000 AVTVOLRR EQU IEDQAVTD+1120 02864000 AVTTOTNR EQU IEDQAVTD+1116 02865000 AVTTRCYR EQU IEDQAVTD+1112 02866000 AVTRCTRR EQU IEDQAVTD+1108 02867000 AVTNOVOR EQU IEDQAVTD+1104 02868000 AVTADEBR EQU IEDQAVTD+1100 02869000 AVTLODPT EQU IEDQAVTD+1096 02870000 AVTIOBN EQU IEDQAVTD+1092 02871000 AVTIOBR EQU IEDQAVTD+1088 02872000 AVTCPBPT EQU IEDQAVTD+1084 02873000 AVTFCPB EQU IEDQAVTD+1080 02874000 @NM00084 EQU IEDQAVTD+1076 02875000 AVTINCPQ EQU IEDQAVTD+1072 02876000 @NM00083 EQU IEDQAVTD+1068 02877000 @NM00082 EQU IEDQAVTD+1065 02878000 @NM00081 EQU AVTBIT4 02879000 @NM00080 EQU AVTBIT4 02880000 @NM00079 EQU AVTBIT4 02881000 @NM00078 EQU AVTBIT4 02882000 @NM00077 EQU AVTBIT4 02883000 @NM00076 EQU AVTBIT4 02884000 @NM00075 EQU AVTBIT4 02885000 AVTRUFTN EQU AVTBIT4 02886000 @NM00074 EQU IEDQAVTD+1060 02887000 AVTNOBFQ EQU IEDQAVTD+1056 02888000 @NM00073 EQU IEDQAVTD+1052 02889000 AVTDKENQ EQU IEDQAVTD+1048 02890000 @NM00072 EQU IEDQAVTD+1044 02891000 AVTDKAPQ EQU IEDQAVTD+1040 02892000 AVTCOPY EQU IEDQAVTD+1036 02893000 AVTIA EQU IEDQAVTD+1032 02894000 AVTFL EQU IEDQAVTD+1028 02895000 @NM00071 EQU IEDQAVTD+1024 02896000 AVTNCPBQ EQU IEDQAVTD+1020 02897000 AVTTOTNC EQU IEDQAVTD+1016 02898000 AVTCMAX EQU IEDQAVTD+1012 02899000 AVTCMIN EQU IEDQAVTD+1008 02900000 AVTHM02 EQU IEDQAVTD+1004 02901000 AVTOPCIN EQU IEDQAVTD+1002 02902000 AVTDCTLN EQU IEDQAVTD+1000 02903000 AVTOPMSK EQU IEDQAVTD+996 02904000 AVTDDFT EQU IEDQAVTD+992 02905000 AVTOPTN EQU IEDQAVTD+984 02906000 AVTDSKCT EQU IEDQAVTD+982 02907000 AVTCKRST EQU IEDQAVTD+981 02908000 AVTSTAN EQU AVTBIT3 02909000 AVTSTACN EQU AVTBIT3 02910000 AVTSTAIN EQU AVTBIT3 02911000 AVTSTAYN EQU AVTBIT3 02912000 AVTOLTBN EQU AVTBIT3 02913000 AVTTSAB EQU AVTBIT3 02914000 @NM00070 EQU AVTBIT2 02915000 @NM00069 EQU AVTBIT2 02916000 AVTOPEIN EQU AVTBIT2 02917000 AVTSTRTN EQU AVTBIT2 02918000 AVTTOPOL EQU AVTBIT2 02919000 AVTCOPYN EQU AVTBIT2 02920000 AVTREUSN EQU AVTBIT2 02921000 AVTEXTSC EQU AVTBIT2 02922000 AVTDISKN EQU AVTBIT1 02923000 AVTQUCKN EQU AVTBIT1 02924000 AVTREADN EQU AVTBIT1 02925000 AVTDLAYN EQU AVTBIT1 02926000 AVTAQTAN EQU AVTBIT1 02927000 AVTTSON EQU AVTBIT1 02928000 AVTAPLKN EQU AVTBIT1 02929000 AVTDUMBR EQU IEDQAVTD+976 02930000 AVTDLQX EQU IEDQAVTD+974 02931000 AVTINTLV EQU IEDQAVTD+972 02932000 AVTSMCNT EQU IEDQAVTD+970 02933000 AVTAVFCT EQU IEDQAVTD+968 02934000 AVTOPCON EQU IEDQAVTD+966 02935000 AVTOPCNT EQU IEDQAVTD+964 02936000 AVTLNCNT EQU IEDQAVTD+962 02937000 AVTKEYLE EQU IEDQAVTD+960 02938000 AVTHA16 EQU IEDQAVTD+958 02939000 AVTHA7 EQU IEDQAVTD+956 02940000 AVTHA4 EQU IEDQAVTD+954 02941000 AVTHA3 EQU IEDQAVTD+952 02942000 AVTHA2 EQU IEDQAVTD+950 02943000 AVTGETMS EQU IEDQAVTD+949 02944000 @NM00068 EQU IEDQAVTD+948 02945000 AVTGETMD EQU IEDQAVTD+944 02946000 AVTGETMN EQU IEDQAVTD+940 02947000 AVTCWTOT EQU IEDQAVTD+936 02948000 AVTCWINT EQU IEDQAVTD+884 02949000 AVTDTRAP EQU IEDQAVTD+880 02950000 @NM00067 EQU IEDQAVTD+878 02951000 @NM00066 EQU AVTIOTR 02952000 AVTIOTRH EQU AVTIOTR 02953000 AVTIOTRE EQU AVTIOTR 02954000 @NM00065 EQU AVTSUBT 02955000 AVTSUBPT EQU AVTSUBT 02956000 AVTSUBON EQU AVTSUBT 02957000 AVTAFE30 EQU IEDQAVTD+872 02958000 AVTAFE20 EQU IEDQAVTD+868 02959000 AVTAFE10 EQU IEDQAVTD+864 02960000 AVTCWEC2 EQU IEDQAVTD+860 02961000 AVTCWPM2 EQU IEDQAVTD+856 02962000 AVTCWTS2 EQU IEDQAVTD+855 02963000 AVTCWTS1 EQU IEDQAVTD+854 02964000 AVTCWCLD EQU AVTCWFL2 02965000 AVTCWRAP EQU AVTCWFL2 02966000 @NM00064 EQU AVTCWFL2 02967000 @NM00063 EQU AVTCWFL2 02968000 @NM00062 EQU AVTCWFL2 02969000 @NM00061 EQU AVTCWFL2 02970000 @NM00060 EQU AVTCWFL2 02971000 AVTCWACT EQU AVTCWFL2 02972000 @NM00059 EQU AVTCWFL1 02973000 @NM00058 EQU AVTCWFL1 02974000 @NM00057 EQU AVTCWFL1 02975000 @NM00056 EQU AVTCWFL1 02976000 @NM00055 EQU AVTCWFL1 02977000 @NM00054 EQU AVTCWFL1 02978000 @NM00053 EQU AVTCWFL1 02979000 AVTCOMWN EQU AVTCWFL1 02980000 AVTCWEC1 EQU IEDQAVTD+848 02981000 AVTCWPM1 EQU IEDQAVTD+844 02982000 AVTCAREA EQU IEDQAVTD+840 02983000 AVTFZERO EQU IEDQAVTD+836 02984000 AVTCADDR EQU IEDQAVTD+832 02985000 AVTCOREC EQU IEDQAVTD+828 02986000 @NM00052 EQU IEDQAVTD+820 02987000 AVTCPBCB EQU IEDQAVTD+816 02988000 @NM00051 EQU IEDQAVTD+808 02989000 AVTDSIOB EQU IEDQAVTD+804 02990000 @NM00050 EQU IEDQAVTD+796 02991000 AVTCPRMB EQU IEDQAVTD+792 02992000 @NM00049 EQU IEDQAVTD+784 02993000 AVTCLOSB EQU IEDQAVTD+780 02994000 @NM00048 EQU IEDQAVTD+772 02995000 AVTACTIB EQU IEDQAVTD+768 02996000 @NM00047 EQU IEDQAVTD+764 02997000 AVTOLTEB EQU IEDQAVTD+760 02998000 AVTOLTCH EQU AVTOLTQB+1 02999000 AVTOLTVT EQU AVTOLTQB 03000000 @NM00046 EQU AVTOPCQB+8 03001000 @NM00045 EQU AVTOPCEC+1 03002000 @NM00044 EQU AVTOPCCC 03003000 AVTOPCPO EQU AVTOPCCC 03004000 AVTOPCWA EQU AVTOPCCC 03005000 AVTOPCCH EQU AVTOPCOB+1 03006000 AVTOPCVT EQU AVTOPCOB 03007000 @NM00043 EQU AVTCKPQB+9 03008000 AVTCKPTS EQU AVTCKPQB+8 03009000 @NM00042 EQU AVTCKPEC+1 03010000 @NM00041 EQU AVTCKPCC 03011000 AVTCKPPO EQU AVTCKPCC 03012000 AVTCKPWA EQU AVTCKPCC 03013000 AVTCKPCH EQU AVTCKPTB+1 03014000 AVTCKPVT EQU AVTCKPTB 03015000 @NM00040 EQU IEDQAVTD+724 03016000 @NM00039 EQU IEDQAVTD+712 03017000 AVTTIMQ EQU IEDQAVTD+704 03018000 @NM00038 EQU IEDQAVTD+700 03019000 AVTIMQPS EQU IEDQAVTD+696 03020000 AVTINOUT EQU IEDQAVTD+694 03021000 AVTREFTM EQU IEDQAVTD+692 03022000 @NM00037 EQU IEDQAVTD+680 03023000 AVTDELYB EQU IEDQAVTD+676 03024000 AVTOCQPT EQU IEDQAVTD+672 03025000 AVTSUPPT EQU IEDQAVTD+664 03026000 AVTCBQCB EQU IEDQAVTD+660 03027000 AVTMSGS EQU IEDQAVTD+657 03028000 @NM00036 EQU AVTSYSER 03029000 @NM00035 EQU AVTSYSER 03030000 @NM00034 EQU AVTSYSER 03031000 @NM00033 EQU AVTSYSER 03032000 @NM00032 EQU AVTSYSER 03033000 @NM00031 EQU AVTSYSER 03034000 AVTCMAXN EQU AVTSYSER 03035000 AVTCMINN EQU AVTSYSER 03036000 AVT2260L EQU IEDQAVTD+652 03037000 AVTABEPL EQU AVTADBUF 03038000 AVTHFF EQU AVTCLRHI+2 03039000 @NM00030 EQU AVTCLRHI 03040000 AVTCCLNK EQU AVTCRELE+5 03041000 AVTCCPRI EQU AVTCRELE+4 03042000 AVTCCQCB EQU AVTCCELE+1 03043000 AVTCCKEY EQU AVTCCELE 03044000 AVTDELAD EQU IEDQAVTD+632 03045000 AVTDELEM EQU IEDQAVTD+628 03046000 AVTBSX EQU AVTCKLNK 03047000 AVTOPETR EQU AVTHG01 03048000 @NM00029 EQU AVTCKBYT 03049000 AVTCKONQ EQU AVTCKBYT 03050000 @NM00028 EQU AVTCKBYT 03051000 @NM00027 EQU AVTCKBYT 03052000 @NM00026 EQU AVTCKBYT 03053000 @NM00025 EQU AVTCKBYT 03054000 @NM00024 EQU AVTCKBYT 03055000 @NM00023 EQU AVTCKBYT 03056000 AVTOPERT EQU IEDQAVTD+618 03057000 AVTOPXCL EQU IEDQAVTD+616 03058000 AVTOPERL EQU IEDQAVTD+615 03059000 @NM00022 EQU IEDQAVTD+614 03060000 AVTCKTIM EQU IEDQAVTD+612 03061000 AVTCKELV EQU IEDQAVTD+610 03062000 AVTCPRCD EQU IEDQAVTD+609 03063000 AVTWARMN EQU AVTCKELF 03064000 AVTCRTLN EQU AVTCKELF 03065000 AVTCPIPN EQU AVTCKELF 03066000 AVTCCLCN EQU AVTCKELF 03067000 AVTCINCN EQU AVTCKELF 03068000 @NM00021 EQU AVTCKELF 03069000 AVTCMCPN EQU AVTCKELF 03070000 AVTNQBCK EQU AVTCKELF 03071000 AVTCKQAD EQU IEDQAVTD+605 03072000 AVTSCBSZ EQU IEDQAVTD+604 03073000 @NM00020 EQU IEDQAVTD+600 03074000 AVTCKELE EQU IEDQAVTD+596 03075000 @NM00019 EQU AVTCKPEL+8 03076000 AVTCKRLK EQU AVTCKPEL+5 03077000 AVTCKRPR EQU AVTCKPEL+4 03078000 AVTCKRMQ EQU AVTCKRMV+1 03079000 AVTCKRKY EQU AVTCKRMV 03080000 AVTHK EQU IEDQAVTD+576 03081000 AVTHI EQU IEDQAVTD+572 03082000 AVTIOT EQU IEDQAVTD+568 03083000 AVTNX EQU IEDQAVTD+564 03084000 AVTTONE EQU IEDQAVTD+560 03085000 AVTA3TL EQU IEDQAVTD+556 03086000 AVTDMECB EQU IEDQAVTD+552 03087000 AVTABEND EQU IEDQAVTD+546 03088000 AVTPLCBN EQU IEDQAVTD+544 03089000 @NM00018 EQU AVTSAVTP+1 03090000 @NM00017 EQU AVTSAVTF 03091000 AVTSNA EQU AVTSAVTF 03092000 AVTONSNA EQU AVTSAVTF 03093000 AVTVTMCP EQU AVTSAVTF 03094000 @NM00016 EQU IEDQAVTD+536 03095000 AVTCMBSS EQU IEDQAVTD+532 03096000 AVTRCV EQU IEDQAVTD+528 03097000 AVTCSCH EQU IEDQAVTD+520 03098000 AVTQ1 EQU IEDQAVTD+516 03099000 AVTE7 EQU IEDQAVTD+512 03100000 AVTHB EQU IEDQAVTD+508 03101000 AVTR1 EQU IEDQAVTD+504 03102000 AVTBZ EQU IEDQAVTD+500 03103000 AVTEZ EQU IEDQAVTD+496 03104000 AVTEC EQU IEDQAVTD+492 03105000 AVTEW EQU IEDQAVTD+488 03106000 AVTNDIAL EQU AVTSCOPT 03107000 AVTN2741 EQU AVTSCOPT 03108000 AVTCONCO EQU AVTSCOPT 03109000 AVTCONC EQU AVTSCOPT 03110000 AVTCMBUF EQU AVTSCOPT 03111000 AVTAPDMP EQU AVTSCOPT 03112000 @NM00015 EQU AVTSCOPT 03113000 AVTHA EQU AVTDISP 03114000 AVTEA EQU IEDQAVTD+476 03115000 AVTAX EQU IEDQAVTD+472 03116000 AVTA3 EQU IEDQAVTD+468 03117000 AVTGD EQU IEDQAVTD+464 03118000 AVTAL EQU IEDQAVTD+460 03119000 AVTOLTST EQU AVTHG02 03120000 AVTE8 EQU IEDQAVTD+452 03121000 AVTUI EQU IEDQAVTD+448 03122000 AVTCOMPT EQU IEDQAVTD+444 03123000 AVTCRSRF EQU IEDQAVTD+440 03124000 @NM00014 EQU IEDQAVTD+436 03125000 AVTKA02 EQU IEDQAVTD+432 03126000 AVTOPTPT EQU IEDQAVTD+428 03127000 AVTPCBPT EQU IEDQAVTD+424 03128000 @NM00013 EQU AVTECB1 03129000 AVTCOMP EQU AVTECB1 03130000 @NM00012 EQU AVTECB1 03131000 AVTOPECA EQU IEDQAVTD+416 03132000 AVTOLECA EQU IEDQAVTD+412 03133000 AVTCKECA EQU IEDQAVTD+408 03134000 AVTCWECA EQU IEDQAVTD+404 03135000 AVTCWTCB EQU IEDQAVTD+400 03136000 AVTOLTCB EQU IEDQAVTD+396 03137000 AVTOCTCB EQU IEDQAVTD+392 03138000 AVTCKTCB EQU IEDQAVTD+388 03139000 AVTAS EQU IEDQAVTD+384 03140000 AVTNOLBF EQU IEDQAVTD+382 03141000 AVTNCKPR EQU IEDQAVTD+381 03142000 AVTCIB EQU IEDQAVTD+380 03143000 AVTSPLPT EQU IEDQAVTD+376 03144000 AVTMVBFR EQU IEDQAVTD+372 03145000 AVTSBTA EQU IEDQAVTD+368 03146000 AVTRARTN EQU IEDQAVTD+364 03147000 AVTBSCAN EQU IEDQAVTD+360 03148000 AVTRDYA EQU IEDQAVTD+356 03149000 AVTDISTR EQU IEDQAVTD+348 03150000 AVTPARM3 EQU IEDQAVTD+344 03151000 @NM00011 EQU AVTPKF 03152000 @NM00010 EQU AVTPKF 03153000 @NM00009 EQU AVTPKF 03154000 AVTFTCHF EQU AVTPKF 03155000 @NM00008 EQU AVTPKF 03156000 @NM00007 EQU AVTPKF 03157000 @NM00006 EQU AVTPKF 03158000 @NM00005 EQU AVTPKF 03159000 AVTPARM EQU IEDQAVTD+336 03160000 AVTEXS2A EQU IEDQAVTD+330 03161000 AVTEXA2S EQU IEDQAVTD+324 03162000 AVTOCGET EQU IEDQAVTD+320 03163000 AVTCKAVT EQU @NM00003+1 03164000 @NM00004 EQU AVTCKFLG 03165000 AVTCKHLT EQU AVTCKFLG 03166000 AVTCKREQ EQU AVTCKFLG 03167000 AVTCKENV EQU AVTCKFLG 03168000 AVTCKNAC EQU AVTCKFLG 03169000 AVTCKTAC EQU AVTCKFLG 03170000 @NM00002 EQU IEDQAVTD+312 03171000 AVTREADD EQU IEDQAVTD+308 03172000 AVTREADY EQU IEDQAVTD+304 03173000 AVTRACE EQU IEDQAVTD+300 03174000 AVTTCB EQU IEDQAVTD+296 03175000 AVTPASWD EQU IEDQAVTD+288 03176000 AVTCTLCH EQU IEDQAVTD+280 03177000 AVTDOUBX EQU IEDQAVTD+264 03178000 AVTDPARM EQU IEDQAVTD+260 03179000 AVTCSTCS EQU IEDQAVTD+256 03180000 AVTDLQ EQU AVTSAVEX+32 03181000 @NM00001 EQU AVTSAVEX 03182000 AVTSAVE4 EQU IEDQAVTD+144 03183000 AVTSAVE2 EQU IEDQAVTD 03184000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03185000 @RF00393 EQU @RC00389 03186000 @RC00429 EQU @RC00428 03187000 @RC00504 EQU @EL00001 03188000 @RC00502 EQU @EL00001 03189000 @RC00510 EQU @EL00002 03190000 @RF00550 EQU @EL00003 03191000 @RC00543 EQU @EL00003 03192000 @RC00541 EQU @EL00003 03193000 @RC00561 EQU @EL00004 03194000 @RF00660 EQU @RC00658 03195000 @RC00732 EQU @EL00005 03196000 @RF00564 EQU @RC00561 03197000 @ENDDATA EQU * 03198000 END IEDIAM,(C'PLS0949',0701,77215) 03199000