TITLE 'IEDIAQ - 3705 RESOURCE SEND SCHEDULER *00001000 ' 00002000 IEDIAQ CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 * /* 00005000 DC AL2(LCBSCAN-IEDIAQ) OFFSET OF LCBSCAN 00006000 USING IEDIAQ,RBASE INFORM THE ASSEMBLER OF THE 00007000 * REGISTER TO BE USED FOR 00008000 * ADDRESSING CODE 00009000 * RBASE=AVTSEND-OFFIAQ; /* SET BASE REGISTER TO START OF 00010000 * CSECT */ 00011000 L RBASE,AVTSEND(,RAVT) 02S0438 00012000 BCTR RBASE,0 02S0438 00013000 BCTR RBASE,0 02S0438 00014000 * GEN NOREFS NOSETS; 02S0439 00015000 * /* 00016000 IEDIAQ IEDHJN AFTERHJN MODULE IDENTIFICATION MACRO 00017000 * 02S0440 00018000 * /*****************************************************************/ 00019000 * /* */ 00020000 * /* PROCESS: DETERMINE THE TYPE OF INPUT. IF A QCB, THEN CALL */ 00021000 * /* LCBSCAN1. IF AN PLCB OR ERB, THEN SEND SCHEDULER CODE IS */ 00022000 * /* EXECUTED. OTHERWISE, THE INPUT IS A BUFFER AND LCBSCAN1 IS */ 00023000 * /* CALLED IF INITIATE MODE IS SET. */ 00024000 * /* */ 00025000 * /*****************************************************************/ 00026000 * 02S0440 00027000 * RSTATE=NOSTATE; /* INITIALIZE STATE VALUES */ 00028000 SLR RSTATE,RSTATE 02S0440 00029000 * IF RPARM->QCBSTVTO=DSPSEND THEN /* TEST FOR ENTRY WITH QCB */ 00030000 CLI QCBSTVTO(RPARM),34 02S0441 00031000 BNE @RF00441 02S0441 00032000 * DO; /* ENTRY IS WITH QCB */ 00033000 * IF QCBTSSES=ON THEN /* TEST FOR TSO SESSION */ 00034000 TM QCBTSSES(RQCB),B'10000000' 02S0443 00035000 BNO @RF00443 02S0443 00036000 * DO; /* TSO SESSION */ 00037000 * RSTATE=STQCBTSO; /* INDICATE QCB IN TSO SESSION */ 00038000 LA RSTATE,2 02S0445 00039000 * QCBPOSTO=OFF; /* RESET QCB POSTED */ 00040000 NI QCBPOSTO(RQCB),B'11011111' 02S0446 00041000 * END; 02S0447 00042000 * CALL LCBSCAN1; /* CALL LCBSCAN AT INTERNAL ENTRY 00043000 * POINT */ 00044000 @RF00443 BAL @14,LCBSCAN1 02S0448 00045000 * RETADDR=ADDR(DSPDISP); /* RETURN TO DISPATCHER */ 00046000 LA @10,DSPDISP(,RDISP) 02S0449 00047000 ST @10,RETADDR 02S0449 00048000 * END; 02S0450 00049000 * ELSE /* ENTRY NOT WITH QCB */ 00050000 * IF RPARM->PRFTICON=ON THEN /* IF ENTRY WITH A BFR @YM04602*/ 00051000 B @RC00441 02S0451 00052000 @RF00441 TM PRFTICON(RPARM),B'00001000' 02S0451 00053000 BNO @RF00451 02S0451 00054000 * DO; /* ENTRY WITH A BUFFER @YM04602*/ 00055000 * RPRF=RPARM; /* SAVE BUFFER ADDRESS */ 00056000 LR RPRF,RPARM 02S0453 00057000 * RLCB=PRFLCB; /* GET PLCB ADDR FROM THE BUFFER */ 00058000 L RLCB,PRFLCB-1(,RPRF) 02S0454 00059000 LA RLCB,0(,RLCB) 02S0454 00060000 * IF LCBINITN=ON& /* INITIATE MODE ... @YM06986*/ 00061000 * QCBTSQ=OFF THEN /* ... BUT DEST DOESN'T HAVE TSO 00062000 * QUEUES @YM06986*/ 00063000 TM LCBINITN(RLCB),B'00010000' 02S0455 00064000 BNO @RF00455 02S0455 00065000 TM QCBTSQ(RQCB),B'10000000' 02S0455 00066000 BNZ @RF00455 02S0455 00067000 * DO; /* YES, INITIATE MODE @YM06485*/ 00068000 * SAVERPRF=RPRF; /* SAVE BUFFER ADDRESS @YM06485*/ 00069000 ST RPRF,SAVERPRF 02S0457 00070000 * CALL LCBSCAN1; /* YES, CALL LCBSCAN AT INTERNAL 00071000 * ENTRY POINT */ 00072000 BAL @14,LCBSCAN1 02S0458 00073000 * RPRF=SAVERPRF; /* RESTORE BUFFER ADDRESS 02S0459 00074000 * @YM06485*/ 00075000 L RPRF,SAVERPRF 02S0459 00076000 * END; /* @YM06485*/ 00077000 * RSTCB=QCBSLINK; /* GET NEXT STCB */ 00078000 @RF00455 L RSTCB,QCBSLINK-1(,RQCB) 02S0461 00079000 LA RSTCB,0(,RSTCB) 02S0461 00080000 * RPARM=RPRF; /* PASS BUFFER AS THE ELEMENT */ 00081000 LR RPARM,RPRF 02S0462 00082000 * RETADDR=ADDR(DSPBYPAS); /* SET RETURN TO BYPASS ENTRY OF 00083000 * DISPATCHER */ 00084000 LA @10,DSPBYPAS(,RDISP) 02S0463 00085000 ST @10,RETADDR 02S0463 00086000 * END; 02S0464 00087000 * ELSE /* ELSE ENTRY IS WITH AN ERB OR 00088000 * PLCB @YM04602*/ 00089000 * DO; /* ENTRY WITH ERB OR PLCB 02S0465 00090000 * @YM04602*/ 00091000 B @RC00451 02S0465 00092000 @RF00451 DS 0H 02S0466 00093000 * RLCB=RQCB; /* RQCB POINTS TO THE PLCB */ 00094000 LR RLCB,RQCB 02S0466 00095000 * 03S0467 00096000 * /***********************************************************/ 00097000 * /* */ 00098000 * /* PROCESS.SENDSCH: SEND SCHEDULER PROPER - DETERMINE */ 00099000 * /* AVAILABILITY OF MESSAGE TO SEND AND THE AVAILABILITY OF */ 00100000 * /* RESOURCES FOR SENDING THE MESSAGE. */ 00101000 * /* */ 00102000 * /***********************************************************/ 00103000 * 03S0467 00104000 * 04S0467 00105000 * /***********************************************************/ 00106000 * /* */ 00107000 * /* PROCESS.SENDSCH.SETUP: GET THE TERMINAL ENTRY ADDRESS */ 00108000 * /* FOR THE TERMINAL WHICH OWNS THE PLCB. SAVE THE STATUS */ 00109000 * /* INFORMATION AND SET SENDING IN THE PLCB. */ 00110000 * /* */ 00111000 * /***********************************************************/ 00112000 * 04S0467 00113000 * RPARM=LCBTTCIN; /* GET TNT OFFSET */ 00114000 LH RPARM,LCBTTCIN(,RLCB) 04S0467 00115000 N RPARM,@CF02297 04S0467 00116000 * CALL IEDQTNT; /* GET TERM ENTRY ADDRESS */ 00117000 L @15,AVTRNMPT(,RAVT) 04S0468 00118000 BALR @14,@15 04S0468 00119000 * RTRM=RPARM-LENGTH(IEDNTRM);/* SAVE TERM ENTRY ADDRESS */ 00120000 LR RTRM,RPARM 04S0469 00121000 SL RTRM,@CF01880 04S0469 00122000 * RQCB=TRMDESTQ; /* SET DESTINATION QCB ADDRESS */ 00123000 SLR RQCB,RQCB 04S0470 00124000 ICM RQCB,7,TRMDESTQ(RTRM) 04S0470 00125000 * SAVSTAT1=LCBSTAT1; /* SAVE CURRENT STATUS */ 00126000 MVC SAVSTAT1(1),LCBSTAT1(RLCB) 04S0471 00127000 * LCBRCLLN=OFF; /* RESET ALL ... */ 00128000 NI LCBRCLLN(RLCB),B'01111111' 04S0472 00129000 * LCBCTLMD=OFF; /* ... OF LCBSTAT1 ... */ 00130000 NI LCBCTLMD(RLCB),B'11111101' 04S0473 00131000 * LCBINITN=OFF; /* .... EXCEPT ... */ 00132000 * LCBCONT=OFF; /* ..... LCBOCNI ... */ 00133000 * LCBFREEN=OFF; /* ...... AND ... */ 00134000 * LCBRECVN=OFF; /* ....... LCBSENDN */ 00135000 * LCBSENDN=ON; /* SET SENDING IN THE PLCB */ 00136000 OI LCBSENDN(RLCB),B'00000001' 04S0478 00137000 NI LCBINITN(RLCB),B'11100001' 04S0478 00138000 * IF QCBSCHDL=ON| /* TEST FOR RECEIVE BEFORE SEND 00139000 * ... */ 00140000 * (TRMSTPND=ON& /* ... OR STATUS PENDING ... 00141000 * @YM05724*/ 00142000 * TRMSNA=OFF) THEN /* ... FOR PRESNA @YM05724*/ 00143000 TM QCBSCHDL(RQCB),B'00000100' 03S0479 00144000 BO @RT00479 03S0479 00145000 TM TRMSTPND(RTRM),B'10000000' 03S0479 00146000 BNO @RF00479 03S0479 00147000 TM TRMSNA(RTRM),B'00000010' 03S0479 00148000 BNZ @RF00479 03S0479 00149000 @RT00479 DS 0H 03S0480 00150000 * RSTATE=STBYPAS; /* YES, REQUEST BYPASS STATE */ 00151000 LA RSTATE,1 03S0480 00152000 * ELSE /* NO STATUS PENDING */ 00153000 * DO; 03S0481 00154000 B @RC00479 03S0481 00155000 @RF00479 DS 0H 03S0482 00156000 * 04S0482 00157000 * /*******************************************************/ 00158000 * /* */ 00159000 * /* PROCESS.SENDSCH.CHKLOCK: PERFORM SEND SCHEDULING IF */ 00160000 * /* IN LOCK MODE. */ 00161000 * /* */ 00162000 * /*******************************************************/ 00163000 * 04S0482 00164000 * RSCB=LCBSCBA; /* SET SCB ADDRESS */ 00165000 L RSCB,LCBSCBA-1(,RLCB) 04S0482 00166000 LA RSCB,0(,RSCB) 04S0482 00167000 * IF SCBLCK1N=ON| /* TEST FOR ... */ 00168000 * SCBMSGLN=ON THEN /* ... LOCK MODE */ 00169000 TM SCBLCK1N(RSCB),B'00101000' 04S0483 00170000 BZ @RF00483 04S0483 00171000 * DO; /* LOCK MODE */ 00172000 * IF SCBMSGLN=OFF THEN/* TEST FOR EXTENDED LOCK */ 00173000 TM SCBMSGLN(RSCB),B'00001000' 04S0485 00174000 BNZ @RF00485 04S0485 00175000 * IF SAVRECVN=OFF THEN/* TEST RECEIVING STATUS IN 00176000 * SAVED LCBSTAT1 */ 00177000 TM SAVRECVN,B'00000010' 04S0486 00178000 BNZ @RF00486 04S0486 00179000 * RSTATE=STBYPAS;/* REQUEST BYPASS */ 00180000 LA RSTATE,1 04S0487 00181000 * ELSE 04S0488 00182000 * ; /* @YM04622*/ 00183000 @RF00486 DS 0H 04S0489 00184000 * ELSE /* NOT EXTENDED LOCK */ 00185000 * QCBLKRLN=''B; /* RESET LOCK RLN */ 00186000 B @RC00485 04S0489 00187000 @RF00485 MVI QCBLKRLN(RQCB),X'00' 04S0489 00188000 * IF RSTATE=NOSTATE THEN/* TEST FOR NO STATE SET 00189000 * @YM04622*/ 00190000 @RC00485 SLR @10,@10 04S0490 00191000 CR RSTATE,@10 04S0490 00192000 BNE @RF00490 04S0490 00193000 * IF QCBLKRRN^=0 THEN/* TEST FOR A LOCK MSG */ 00194000 L @09,QCBLKRRN-1(,RQCB) 04S0491 00195000 LA @09,0(,@09) 04S0491 00196000 CR @09,@10 04S0491 00197000 BE @RF00491 04S0491 00198000 * DO; /* PROCESS THE LOCK MESSAGE */ 00199000 * RSTATE=STSEND;/* REQUEST SEND STATE */ 00200000 LA RSTATE,5 04S0493 00201000 * SCBSCHDR=QCBLKRRN;/* SET CURRENT HEADER BEING 00202000 * SENT */ 00203000 STCM @09,7,SCBSCHDR(RSCB) 04S0494 00204000 * SCBFEFO=0; /* RESET SAVED FEFO POINTER */ 00205000 STCM @10,7,SCBFEFO(RSCB) 04S0495 00206000 * QCBSDFFO=ON;/* CURRENTLY SENDING FEFO MSG */ 00207000 OI QCBSDFFO(RQCB),B'00000100' 04S0496 00208000 * END; 04S0497 00209000 * END; 04S0498 00210000 @RF00491 DS 0H 04S0498 00211000 @RF00490 DS 0H 04S0499 00212000 * IF RSTATE=NOSTATE THEN/* TEST FOR NO STATE SET */ 00213000 @RF00483 LTR RSTATE,RSTATE 03S0499 00214000 BNZ @RF00499 03S0499 00215000 * DO; /* NO STATE IS SET */ 00216000 * 04S0501 00217000 * /***************************************************/ 00218000 * /* */ 00219000 * /* PROCESS.SENDSCH.CHKBYPAS: IF AN ELEMENT IS ON */ 00220000 * /* THE PIU WAIT CHAIN FOR WHICH A RESPONSE IS NOT */ 00221000 * /* OWED TO RTR, THEN REQUEST A BYPASS. ALSO, IF THE*/ 00222000 * /* TERMINAL IS IN MIDDLE OF MESSAGE OR MESSAGE */ 00223000 * /* LIMIT HAS BEEN REACHED ON OUTPUT, THEN REQUEST A*/ 00224000 * /* BYPASS. */ 00225000 * /* */ 00226000 * /***************************************************/ 00227000 * 04S0501 00228000 * IF LCBWAITC^=0 THEN/* TEST FOR AN ELEMENT ON THE 00229000 * PIU WAIT CHAIN */ 00230000 L @10,LCBWAITC-1(,RLCB) 04S0501 00231000 LA @10,0(,@10) 04S0501 00232000 LTR @10,@10 04S0501 00233000 BZ @RF00501 04S0501 00234000 * IF LCBRTRRO=ON /* TEST FOR A RESPONSE OWED TO 00235000 * RTR */ 00236000 * THEN 04S0502 00237000 TM LCBRTRRO(RLCB),B'00000100' 04S0502 00238000 BO @RT00502 04S0502 00239000 * ; /* RESPONSE IS OWED */ 00240000 * ELSE /* NO RESPONSE OWED */ 00241000 * RSTATE=STBYPAS;/* REQUEST BYPASS */ 00242000 LA RSTATE,1 04S0504 00243000 * IF SCBBFMM=ON| /* MIDDLE OF MSG OR ... */ 00244000 * (SCBMLMTN=ON&SAVRECVN=OFF)|/* ... MSG LIMIT ON 00245000 * OUTPUT OR @YM09046*/ 00246000 * TRMNOSND=ON THEN/* ... 'NO SEND' REQUESTED */ 00247000 @RT00502 DS 0H 04S0505 00248000 @RF00501 TM SCBBFMM(RSCB),B'00000001' 04S0505 00249000 BO @RT00505 04S0505 00250000 TM SCBMLMTN(RSCB),B'00000001' 04S0505 00251000 BNO @GL00004 04S0505 00252000 TM SAVRECVN,B'00000010' 04S0505 00253000 BZ @RT00505 04S0505 00254000 @GL00004 TM TRMNOSND(RTRM),B'00000010' 04S0505 00255000 BNO @RF00505 04S0505 00256000 @RT00505 DS 0H 04S0506 00257000 * DO; 04S0506 00258000 * RFY 04S0507 00259000 * RUNIT RSTD; /* RESTRICT FOR CS LOOP @YM07266*/ 00260000 * RFY 04S0508 00261000 * RDISP UNRSTD;/* UNRESTRICT FOR CS LOOP 04S0508 00262000 * @YM07266*/ 00263000 * SAVREG=RDISP; /* SAVE REGISTER 11 @YM07266*/ 00264000 ST RDISP,SAVREG 04S0509 00265000 * TRMNOSND=OFF; /* RESET 'DO NOT SEND' INDICATOR */ 00266000 LA @15,TRMNOSND(,RTRM) 04S0510 00267000 LR @14,@15 04S0510 00268000 LA @09,3 04S0510 00269000 NR @14,@09 04S0510 00270000 LCR @14,@14 04S0510 00271000 ALR @15,@14 04S0510 00272000 L @09,0(,@15) 04S0510 00273000 @GL00007 LR @05,@09 04S0510 00274000 N @05,@CB02301+3(@14) 04S0510 00275000 CS @09,@05,0(@15) 04S0510 00276000 BNE @GL00007 04S0510 00277000 * RDISP=SAVREG; /* RESTORE REGISTER 11 @YM07266*/ 00278000 L RDISP,SAVREG 04S0511 00279000 * RFY 04S0512 00280000 * RDISP RSTD; /* @YM07266*/ 00281000 * RFY 04S0513 00282000 * RUNIT UNRSTD;/* @YM07266*/ 00283000 * SCBMLMTN=OFF; /* RESET MESSAGE LIMIT ON OUTPUT */ 00284000 NI SCBMLMTN(RSCB),B'11111110' 04S0514 00285000 * RSTATE=STBYPAS;/* YES, REQUEST BYPASS */ 00286000 LA RSTATE,1 04S0515 00287000 * END; 04S0516 00288000 * IF RSTATE=NOSTATE THEN/* TEST FOR NO STATE SET */ 00289000 @RF00505 LTR RSTATE,RSTATE 03S0517 00290000 BNZ @RF00517 03S0517 00291000 * DO; /* NO STATE IS SET */ 00292000 * IF QCBTSSES=OFF THEN/* SKIP BUILDING RESET FOR 00293000 * TSO SESSION */ 00294000 TM QCBTSSES(RQCB),B'10000000' 03S0519 00295000 BNZ @RF00519 03S0519 00296000 * DO; 03S0520 00297000 * 04S0521 00298000 * /*******************************************/ 00299000 * /* */ 00300000 * /* PROCESS.SENDSCH.CHKRESET: CHECK FOR */ 00301000 * /* CONDITIONS THAT REQUIRE A RESET. IF A */ 00302000 * /* RESET IS NEEDED AND A BUFFER IS */ 00303000 * /* AVAILABLE THEN REQUEST THAT A RESET BE */ 00304000 * /* SENT. */ 00305000 * /* */ 00306000 * /*******************************************/ 00307000 * 04S0521 00308000 * IF TRMSNA=OFF THEN/* NO RESET FOR SNA 04S0521 00309000 * RESOURCES @YM05724*/ 00310000 TM TRMSNA(RTRM),B'00000010' 04S0521 00311000 BNZ @RF00521 04S0521 00312000 * IF TRMINOUT=ON|/* IS AN INVITE 04S0522 00313000 * OUTSTANDING @YM04622*/ 00314000 * (TRMRDOUT=ON&/* TEST FOR READ 04S0522 00315000 * OUTSTANDING @YM04622*/ 00316000 * (DCTSTCTL=OFF|/* AND NOT A @OY19456*/ 00317000 * TRMDIAL=ON)) THEN/* POLLED TERMINAL 00318000 * @OY19456*/ 00319000 TM TRMINOUT(RTRM),B'00000001' 04S0522 00320000 BO @RT00522 04S0522 00321000 TM TRMRDOUT(RTRM),B'00000010' 04S0522 00322000 BNO @RF00522 04S0522 00323000 SLR @15,@15 04S0522 00324000 IC @15,TRMCHCIN(,RTRM) 04S0522 00325000 BCTR @15,0 04S0522 00326000 MH @15,AVTDCTLN(,RAVT) 04S0522 00327000 AL @15,AVTCSTCS(,RAVT) 04S0522 00328000 TM DCTSTCTL(@15),B'00010000' 04S0522 00329000 BZ @RT00522 04S0522 00330000 TM TRMDIAL(RTRM),B'00001000' 04S0522 00331000 BNO @RF00522 04S0522 00332000 @RT00522 DS 0H 04S0523 00333000 * DO; /* RESET STATE */ 00334000 * CALL GETBFR;/* GET A BUFFER */ 00335000 BAL @14,GETBFR 04S0524 00336000 * IF RSTATE=NOSTATE THEN/* TEST FOR NO 00337000 * STATE */ 00338000 LTR RSTATE,RSTATE 04S0525 00339000 BNZ @RF00525 04S0525 00340000 * DO; 04S0526 00341000 * CALL BLDRESET;/* BUILD A RESET 00342000 * COMMAND */ 00343000 BAL @14,BLDRESET 04S0527 00344000 * RSTATE=STFRELCB;/* REQUEST LCB BE 00345000 * DEALLOCATED */ 00346000 LA RSTATE,8 04S0528 00347000 * END; 04S0529 00348000 * END; 04S0530 00349000 @RF00525 DS 0H 04S0531 00350000 * END; 03S0531 00351000 @RF00522 DS 0H 03S0531 00352000 @RF00521 DS 0H 03S0532 00353000 * IF RSTATE=NOSTATE THEN/* TEST FOR NO STATE SET */ 00354000 @RF00519 LTR RSTATE,RSTATE 03S0532 00355000 BNZ @RF00532 03S0532 00356000 * DO; /* NO STATE IS SET */ 00357000 * IF AVTTSON=ON THEN/* IF TSO IN THE SYSTEM 00358000 * THEN @YM09012*/ 00359000 TM AVTTSON(RAVT),B'01000000' 03S0534 00360000 BNO @RF00534 03S0534 00361000 * DO; /* ... CALL TSO SCHEDULER 03S0535 00362000 * @YM08526*/ 00363000 * IF QCBTSSES=ON THEN 03S0536 00364000 TM QCBTSSES(RQCB),B'10000000' 03S0536 00365000 BNO @RF00536 03S0536 00366000 * DO; /* TSO SESSION @OZ29322*/ 00367000 * 04S0538 00368000 * /***********************************/ 00369000 * /* */ 00370000 * /* PROCESS.SENDSCH.CHKTSO: HANDLE */ 00371000 * /* TSO CONSIDERATIONS. @YM08526*/ 00372000 * /* */ 00373000 * /***********************************/ 00374000 * 04S0538 00375000 * RFY 04S0538 00376000 * RSELECT RSTD; 04S0538 00377000 * RSELECT=TSOA02;/* SELECT VALUE FOR 00378000 * LCB POST ENTRY TO IEDAYJ */ 00379000 LA RSELECT,2 04S0539 00380000 * CALL IEDAYJ;/* CALL IEDAYJ, TSO 00381000 * SCHEDULER */ 00382000 L @10,IEDTTPTR(,RAVT) 04S0540 00383000 L @15,TSIRNSCH(,@10) 04S0540 00384000 BALR @14,@15 04S0540 00385000 * RFY 04S0541 00386000 * RRETCODE RSTD; 04S0541 00387000 * IF RRETCODE=TSORMVSN THEN/* DOES 00388000 * TSO REQUEST EXIT => REMOVE THE 00389000 * SEND SCHEDULER */ 00390000 LTR RRETCODE,RRETCODE 04S0542 00391000 BNZ @RF00542 04S0542 00392000 * CALL RMVSCHED;/* YES, REMOVE SEND 00393000 * SCHEDULER */ 00394000 BAL @14,RMVSCHED 04S0543 00395000 * ELSE 04S0544 00396000 * IF RRETCODE=TSODISP THEN/* DOES 00397000 * TSO REQUEST EXIT TO TCAM 04S0544 00398000 * DISPATCHER */ 00399000 B @RC00542 04S0544 00400000 @RF00542 C RRETCODE,@CF00255 04S0544 00401000 BNE @RF00544 04S0544 00402000 * RSTATE=STEXIT;/* YES, REQUEST 00403000 * EXIT STATE */ 00404000 LA RSTATE,3 04S0545 00405000 * ELSE 04S0546 00406000 * IF RRETCODE=TSOTCAMS THEN/* DOES 00407000 * TSO REQUEST NORMAL TCAM SEND 00408000 * SCHEDULING */ 00409000 B @RC00544 04S0546 00410000 @RF00544 C RRETCODE,@CF00044 04S0546 00411000 BE @RT00546 04S0546 00412000 * ;/* YES, TAKE NO ACTION */ 00413000 * ELSE 04S0548 00414000 * IF RRETCODE=TSOTSOS THEN/* DOES 00415000 * TSO REQUEST SPECIAL TSO SEND 00416000 * SCHEDULING */ 00417000 C RRETCODE,@CF00244 04S0548 00418000 BNE @RF00548 04S0548 00419000 * RSTATE=STSEND;/* YES, REQUEST 00420000 * SEND STATE */ 00421000 LA RSTATE,5 04S0549 00422000 * ELSE 04S0550 00423000 * IF RRETCODE=TSOBYPAS THEN/* 00424000 * DOES TSO REQUEST BYPASS TO 00425000 * RECEIVE */ 00426000 B @RC00548 04S0550 00427000 @RF00548 C RRETCODE,@CF00174 04S0550 00428000 BNE @RF00550 04S0550 00429000 * RSTATE=STBYPAS;/* YES, 04S0551 00430000 * REQUEST BYPASS TO RECEIVE */ 00431000 LA RSTATE,1 04S0551 00432000 * ELSE 04S0552 00433000 * RSTATE=STFRELCB;/* ELSE MUST 00434000 * BE TSO REQUEST FOR PLCB 04S0552 00435000 * DEALLOCATION */ 00436000 B @RC00550 04S0552 00437000 @RF00550 LA RSTATE,8 04S0552 00438000 * RFY 04S0553 00439000 * RRETCODE UNRSTD; 04S0553 00440000 @RC00550 DS 0H 04S0553 00441000 @RC00548 DS 0H 04S0553 00442000 @RT00546 DS 0H 04S0553 00443000 @RC00544 DS 0H 04S0553 00444000 @RC00542 DS 0H 04S0554 00445000 * RFY 04S0554 00446000 * RSELECT UNRSTD; 04S0554 00447000 * END;/* @OZ30085*/ 00448000 * ELSE 03S0556 00449000 * IF QCBTSQ=ON&QCBREUS=OFF&QCBNREUS=OFF& 00450000 * QCBCORE=OFF/* @OZ30085*/ 00451000 * THEN 03S0556 00452000 B @RC00536 03S0556 00453000 @RF00536 TM QCBTSQ(RQCB),B'10000000' 03S0556 00454000 BNO @RF00556 03S0556 00455000 TM QCBREUS(RQCB),B'01110000' 03S0556 00456000 BNZ @RF00556 03S0556 00457000 * RSTATE=STBYPAS;/* TSO ONLY QUEUES 00458000 * @OZ30085*/ 00459000 LA RSTATE,1 03S0557 00460000 * END; /* @YM08526*/ 00461000 * ELSE /* ELSE CHECK FOR ABILITY TO SEND 00462000 * @YM08526*/ 00463000 * DO; /* @YM08526*/ 00464000 B @RC00534 03S0559 00465000 @RF00534 DS 0H 03S0560 00466000 * 04S0560 00467000 * /***************************************/ 00468000 * /* */ 00469000 * /* PROCESS.SENDSCH.CHKSEND: CHECK FOR */ 00470000 * /* CONDITIONS THAT PREVENT A SEND FROM */ 00471000 * /* OCCURRING. IF ANY EXIST, THEN REMOVE*/ 00472000 * /* THE SEND SCHEDULER FROM THE QCB. */ 00473000 * /* */ 00474000 * /***************************************/ 00475000 * 04S0560 00476000 * RFY 04S0560 00477000 * IEDTRM BASED(LCBNCPPT-LENGTH(IEDNTRM)); 00478000 * /* ADDRESS THE TERMINAL ENTRY FOR 00479000 * THE 3705 */ 00480000 * IF LCBOCNI=ON|/* IS A NON-IMMEDIATE 00481000 * OPERATOR CONTROL OPERATION IN 00482000 * PROGRESS OR ... */ 00483000 * (AVTCLOSN=ON&AVTQUCKN=ON)|/* ... IS 00484000 * QUICK CLOSEDOWN IN PROGRESS */ 00485000 * (TRMNCPCL=ON&/* IS 3705 IN ... */ 00486000 * TRMQUCKN=ON)|/* ... QUICK CLOSEDOWN 00487000 * ... @YM08004*/ 00488000 * TRMINOP=ON THEN/* ... OR CHANNEL 00489000 * INOP HAS OCCURRED @YM08120*/ 00490000 TM LCBOCNI(RLCB),B'00100000' 04S0561 00491000 BO @RT00561 04S0561 00492000 TM AVTCLOSN(RAVT),B'00000110' 04S0561 00493000 BO @RT00561 04S0561 00494000 L @10,LCBNCPPT-1(,RLCB) 04S0561 00495000 LA @10,0(,@10) 04S0561 00496000 SL @10,@CF01880 04S0561 00497000 TM TRMNCPCL(@10),B'01001000' 04S0561 00498000 BO @RT00561 04S0561 00499000 TM TRMINOP(@10),B'10000000' 04S0561 00500000 BNO @RF00561 04S0561 00501000 @RT00561 DS 0H 04S0562 00502000 * CALL RMVSCHED;/* YES, REMOVE SEND 00503000 * SCHEDULER */ 00504000 BAL @14,RMVSCHED 04S0562 00505000 * ELSE /* 3705 NOT IN QUICK CLOSEDOWN */ 00506000 * DO; 04S0563 00507000 B @RC00561 04S0563 00508000 @RF00561 DS 0H 04S0564 00509000 * RFY 04S0564 00510000 * IEDTRM BASED(RTRM);/* ADDRESS THE 00511000 * RESOURCE'S TERM ENTRY */ 00512000 * IF TRMSNA=ON THEN/* TEST FOR AN SNA 00513000 * RESOURCE */ 00514000 TM TRMSNA(RTRM),B'00000010' 04S0565 00515000 BNO @RF00565 04S0565 00516000 * DO;/* SNA RESOURCE */ 00517000 * RFY 04S0567 00518000 * RSIB RSTD; 04S0567 00519000 * RSIB=TRMSIBPT;/* GET SIB POINTER*/ 00520000 SLR RSIB,RSIB 04S0568 00521000 ICM RSIB,7,TRMSIBPT(RTRM) 04S0568 00522000 * IF SIBLGOFF=ON THEN/* IS LUS 00523000 * REQUESTED */ 00524000 TM SIBLGOFF(RSIB),B'10000000' 04S0569 00525000 BNO @RF00569 04S0569 00526000 * CALL RMVSCHED;/* YES, REMOVE 00527000 * SEND SCHEDULER */ 00528000 BAL @14,RMVSCHED 04S0570 00529000 * RFY 04S0571 00530000 * RSIB UNRSTD; 04S0571 00531000 @RF00569 DS 0H 04S0572 00532000 * END; 04S0572 00533000 * ELSE/* NOT SNA */ 00534000 * IF TRMSPACT=OFF&/* IS SEND 04S0573 00535000 * IMPOSSIBLE @YM08526*/ 00536000 * TRMCLOSN=OFF THEN/* @YM08540*/ 00537000 B @RC00565 04S0573 00538000 @RF00565 TM TRMSPACT(RTRM),B'00010000' 04S0573 00539000 BNZ @RF00573 04S0573 00540000 TM TRMCLOSN(RTRM),B'00100000' 04S0573 00541000 BNZ @RF00573 04S0573 00542000 * CALL RMVSCHED;/* YES, REMOVE 00543000 * SEND SCHEDULER */ 00544000 BAL @14,RMVSCHED 04S0574 00545000 * END; 04S0575 00546000 @RF00573 DS 0H 04S0575 00547000 @RC00565 DS 0H 04S0576 00548000 * END; /* @YM08526*/ 00549000 @RC00561 DS 0H 03S0577 00550000 * IF RSTATE=NOSTATE THEN/* TEST FOR NO STATE 00551000 * REQUESTED */ 00552000 @RC00534 LTR RSTATE,RSTATE 03S0577 00553000 BNZ @RF00577 03S0577 00554000 * IF QCBTRMHO=ON THEN/* IS TERMINAL HELD */ 00555000 TM QCBTRMHO(RQCB),B'01000000' 03S0578 00556000 BNO @RF00578 03S0578 00557000 * CALL RMVSCHED;/* YES, REMOVE SEND 03S0579 00558000 * SCHEDULER */ 00559000 BAL @14,RMVSCHED 03S0579 00560000 * IF RSTATE=NOSTATE THEN/* TEST FOR NO STATE 00561000 * SET */ 00562000 @RF00578 DS 0H 03S0580 00563000 @RF00577 LTR RSTATE,RSTATE 03S0580 00564000 BNZ @RF00580 03S0580 00565000 * DO; /* NO STATE IS SET */ 00566000 * 04S0582 00567000 * /***************************************/ 00568000 * /* */ 00569000 * /* PROCESS.SENDSCH.SCHED: DETERMINE */ 00570000 * /* AVAILABILITY OF A MESSAGE TO SEND. */ 00571000 * /* */ 00572000 * /***************************************/ 00573000 * 04S0582 00574000 * IF QCBTSQ=ON|/* TSO QUEUES OR ... */ 00575000 * ((QCBINSRC&CLEARL2)=RQCB) THEN/* 00576000 * ... NOT INITIATE MODE @YM07819*/ 00577000 TM QCBTSQ(RQCB),B'10000000' 04S0582 00578000 BO @RT00582 04S0582 00579000 L @10,QCBINSRC-1(,RQCB) 04S0582 00580000 LA @10,0(,@10) 04S0582 00581000 N @10,@CF02212 04S0582 00582000 CR @10,RQCB 04S0582 00583000 BNE @RF00582 04S0582 00584000 @RT00582 DS 0H 04S0583 00585000 * DO; 04S0583 00586000 * IF QCBHELD=ON THEN/* IS REUS IN 00587000 * PROGRESS */ 00588000 TM QCBHELD(RQCB),B'00000001' 04S0584 00589000 BNO @RF00584 04S0584 00590000 * CALL RMVSCHED;/* YES, REMOVE SEND 00591000 * SCHEDULER */ 00592000 BAL @14,RMVSCHED 04S0585 00593000 * ELSE/* REUS NOT IN PROGRESS */ 00594000 * DO; 04S0586 00595000 B @RC00584 04S0586 00596000 @RF00584 DS 0H 04S0587 00597000 * RFY 04S0587 00598000 * RCOUNT RSTD; 04S0587 00599000 * RCOUNT=0;/* INITIALIZE PRIORITY 00600000 * INDEX */ 00601000 SLR RCOUNT,RCOUNT 04S0588 00602000 * RPARM=ADDR(IEDQPQCB);/* POINT TO 00603000 * FIRST PRIORITY LEVEL QCB */ 00604000 LA RPARM,40 04S0589 00605000 ALR RPARM,RQCB 04S0589 00606000 * 05S0590 00607000 * /********************************/ 00608000 * /* */ 00609000 * /* PROCESS.SENDSCH.SCHED.SCANLOO*/ 00610000 * /* P: DETERMINE EXISTENCE OF */ 00611000 * /* FEFO MESSAGE IN PRIORITY QCB.*/ 00612000 * /* */ 00613000 * /********************************/ 00614000 * 05S0590 00615000 * DO UNTIL RSTATE^=NOSTATE; 05S0590 00616000 @DL00590 DS 0H 05S0591 00617000 * SCBSCHDR=RPARM->QCBFFEFO;/* 00618000 * ASSUME FEFO POINTER IN THIS 00619000 * PRIORITY LEVEL */ 00620000 SLR @10,@10 05S0591 00621000 ICM @10,7,QCBFFEFO(RPARM) 05S0591 00622000 STCM @10,7,SCBSCHDR(RSCB) 05S0591 00623000 * IF RPARM->QCBFFEFO^=0 THEN/* 00624000 * TEST FOR UNSENT FEFO IN THIS 00625000 * LEVEL */ 00626000 SLR @05,@05 05S0592 00627000 CR @10,@05 05S0592 00628000 BE @RF00592 05S0592 00629000 * DO;/* UNSENT FEFO IN THIS 00630000 * LEVEL */ 00631000 * RSTATE=STSEND;/* REQUEST SEND*/ 00632000 LA RSTATE,5 05S0594 00633000 * SCBPRI=RCOUNT;/* SET PRIORITY 00634000 * INDEX TO QCB */ 00635000 STC RCOUNT,SCBPRI(,RSCB) 05S0595 00636000 * QCBPRLVL=RCOUNT;/* SET 05S0596 00637000 * HIGHEST MESSAGE PRIORITY */ 00638000 STC RCOUNT,QCBPRLVL(,RQCB) 05S0596 00639000 * SCBFEFO=0;/* RESET SAVED FEFO 00640000 * POINTER */ 00641000 STCM @05,7,SCBFEFO(RSCB) 05S0597 00642000 * QCBSDFFO=ON;/* CURRENTLY 00643000 * SENDING FEFO MESSAGE */ 00644000 OI QCBSDFFO(RQCB),B'00000100' 05S0598 00645000 * END; 05S0599 00646000 * ELSE/* NO UNSENT FEFO */ 00647000 * DO; 05S0600 00648000 B @RC00592 05S0600 00649000 @RF00592 DS 0H 05S0601 00650000 * RCOUNT=RCOUNT+1;/* BUMP COUNT*/ 00651000 AL RCOUNT,@CF00060 05S0601 00652000 * IF RPARM->QCBPRIPQ='00'X THEN 00653000 CLI QCBPRIPQ(RPARM),X'00' 05S0602 00654000 BNE @RF00602 05S0602 00655000 * /* TEST FOR LAST PRIORITY 00656000 * QCB */ 00657000 * DO;/* LAST PRIORITY QCB */ 00658000 * QCBPRLVL=0;/* RESET HIGHEST 00659000 * MESSAGE PRIORITY */ 00660000 MVI QCBPRLVL(RQCB),X'00' 05S0604 00661000 * CALL RMVSCHED;/* REMOVE 00662000 * SEND SCHEDULER */ 00663000 BAL @14,RMVSCHED 05S0605 00664000 * END; 05S0606 00665000 * END; 05S0607 00666000 @RF00602 DS 0H 05S0608 00667000 * RPARM=RPARM+LENGTH(IEDQPQCB);/* 00668000 * POINT TO NEXT PRIORITY QCB */ 00669000 @RC00592 AL RPARM,@CF01549 05S0608 00670000 * END; 05S0609 00671000 @DE00590 LTR RSTATE,RSTATE 05S0609 00672000 BZ @DL00590 05S0609 00673000 * RFY 04S0610 00674000 * RCOUNT UNRSTD; 04S0610 00675000 * END; 04S0611 00676000 * END; 04S0612 00677000 * ELSE 04S0613 00678000 * DO; 04S0613 00679000 B @RC00582 04S0613 00680000 @RF00582 DS 0H 04S0614 00681000 * 05S0614 00682000 * /***********************************/ 00683000 * /* */ 00684000 * /* PROCESS.SENDSCH.SCHED.INITMODE: */ 00685000 * /* PROCESS INITIATE MODE. */ 00686000 * /* */ 00687000 * /***********************************/ 00688000 * 05S0614 00689000 * RPARM=QCBINSRC&CLEARL2;/* REMOVE 00690000 * PLCB ... @YM07819*/ 00691000 L RPARM,QCBINSRC-1(,RQCB) 05S0614 00692000 LA RPARM,0(,RPARM) 05S0614 00693000 N RPARM,@CF02212 05S0614 00694000 * QCBINSRC=RPARM->LCBINSRC;/* ... 00695000 * FROM INITIATE ... */ 00696000 MVC QCBINSRC(3,RQCB),LCBINSRC(RPARM) 05S0615 00697000 * QCBDISC=OFF;/* CLEAR INSRCE BIT 00698000 * @YM07819*/ 00699000 NI QCBDISC(RQCB),B'11111110' 05S0616 00700000 * RPARM->LCBINSRC=RLCB;/* ...... 00701000 * CHAIN */ 00702000 STCM RLCB,7,LCBINSRC(RPARM) 05S0617 00703000 * RPARM=RPARM->LCBSCBA;/* GET ADDRESS 00704000 * OF SOURCE SCB */ 00705000 L @10,LCBSCBA-1(,RPARM) 05S0618 00706000 LA @10,0(,@10) 05S0618 00707000 LR RPARM,@10 05S0618 00708000 * SCBSCHDR=RPARM->SCBCCHDR;/* USE 00709000 * CORE QUEUE HEADER */ 00710000 MVC SCBSCHDR(3,RSCB),SCBCCHDR(RPARM) 05S0619 00711000 * IF QCBREUS=ON|/* REUS DISK QUEUES 00712000 * OR ... */ 00713000 * QCBNREUS=ON THEN/* ... NONREUS 00714000 * DISK QUEUES */ 00715000 TM QCBREUS(RQCB),B'00110000' 05S0620 00716000 BZ @RF00620 05S0620 00717000 * SCBSCHDR=RPARM->SCBDCHDR;/* YES, 00718000 * CURRENT HEADER BEING SENT 00719000 * EQUALS DISK ADDRESS FROM 05S0621 00720000 * SOURCE SCB */ 00721000 MVC SCBSCHDR(3,RSCB),SCBDCHDR(RPARM) 05S0621 00722000 * SCBPRI=''B;/* RESET PRIORITY INDEX 00723000 * TO QCB */ 00724000 @RF00620 SLR @10,@10 05S0622 00725000 STC @10,SCBPRI(,RSCB) 05S0622 00726000 * SCBFEFO=0;/* RESET SAVED FEFO 05S0623 00727000 * POINTER */ 00728000 SLR @10,@10 05S0623 00729000 STCM @10,7,SCBFEFO(RSCB) 05S0623 00730000 * LCBSENDN=ON;/* INDICATE SENDING */ 00731000 * LCBINITN=ON;/* INITIATE MODE */ 00732000 OI LCBSENDN(RLCB),B'00010001' 05S0625 00733000 * QCBSDFFO=ON;/* CURRENTLY SENDING 00734000 * FEFO MESSAGE */ 00735000 OI QCBSDFFO(RQCB),B'00000100' 05S0626 00736000 * RSTATE=STSEND;/* REQUEST SEND STATE*/ 00737000 LA RSTATE,5 05S0627 00738000 * END; 04S0628 00739000 * END; 03S0629 00740000 @RC00582 DS 0H 03S0630 00741000 * END; 03S0630 00742000 @RF00580 DS 0H 03S0631 00743000 * END; 03S0631 00744000 @RF00532 DS 0H 03S0632 00745000 * END; 03S0632 00746000 @RF00517 DS 0H 03S0633 00747000 * IF RSTATE=STSEND THEN /* TEST FOR SEND STATE */ 00748000 @RF00499 C RSTATE,@CF00162 03S0633 00749000 BNE @RF00633 03S0633 00750000 * DO; /* SEND STATE */ 00751000 * 04S0635 00752000 * /***************************************************/ 00753000 * /* */ 00754000 * /* PROCESS.SENDSCH.CHKERLCK: PROCESS ERROR LOCK IF */ 00755000 * /* NECESSARY. */ 00756000 * /* */ 00757000 * /***************************************************/ 00758000 * 04S0635 00759000 * IF TRMERLCK=ON THEN/* TEST FOR LOCK SET */ 00760000 TM TRMERLCK(RTRM),B'00000100' 04S0635 00761000 BNO @RF00635 04S0635 00762000 * DO; /* LOCK IS SET */ 00763000 * CALL GETBFR; /* GET A BUFFER */ 00764000 BAL @14,GETBFR 04S0637 00765000 * IF RPRF^=0 THEN/* TEST FOR BUFFER OBTAINED */ 00766000 LTR RPRF,RPRF 04S0638 00767000 BZ @RF00638 04S0638 00768000 * DO; /* A BUFFER WAS OBTAINED */ 00769000 * PRFQCBA=SAVTCNIR;/* QUEUE BUFFER TO CONTROL 00770000 * NIR GENERATOR */ 00771000 L @10,AVTSAVTP(,RAVT) 04S0640 00772000 MVC PRFQCBA(3,RPRF),SAVTCNIR+1(@10) 04S0640 00773000 * PRFPRI=PRIASYNC;/* SET PRIORITY */ 00774000 MVI PRFPRI(RPRF),X'E6' 04S0641 00775000 * PRFDEST=LCBTTCIN;/* SET DESTINATION */ 00776000 LH @10,LCBTTCIN(,RLCB) 04S0642 00777000 N @10,@CF02297 04S0642 00778000 STH @10,PRFDEST(,RPRF) 04S0642 00779000 * RPARM=RPRF;/* SET ELEMENT TO TPOST */ 00780000 LR RPARM,RPRF 04S0643 00781000 * SAVEQCB=RQCB;/* SAVE QCB ADDRESS */ 00782000 ST RQCB,SAVEQCB 04S0644 00783000 * CALL DSPPOSTR;/* TPOST THE ELEMENT */ 00784000 LA @15,DSPPOSTR(,RDISP) 04S0645 00785000 BALR @14,@15 04S0645 00786000 * RQCB=SAVEQCB;/* RESTORE QCB ADDRESS */ 00787000 L RQCB,SAVEQCB 04S0646 00788000 * END; 04S0647 00789000 * END; 04S0648 00790000 @RF00638 DS 0H 04S0649 00791000 * IF RSTATE=STSEND THEN/* STILL IN SEND STATE */ 00792000 @RF00635 C RSTATE,@CF00162 04S0649 00793000 BNE @RF00649 04S0649 00794000 * DO; /* YES */ 00795000 * 05S0651 00796000 * /***********************************************/ 00797000 * /* */ 00798000 * /* PROCESS.SENDSCH.CHKERLCK.DISKREAD: */ 00799000 * /* INITIALIZE FOR DISK READ. */ 00800000 * /* */ 00801000 * /***********************************************/ 00802000 * 05S0651 00803000 * RSCB=LCBSCBA; /* SET SCB ADDRESS */ 00804000 L RSCB,LCBSCBA-1(,RLCB) 05S0651 00805000 LA RSCB,0(,RSCB) 05S0651 00806000 * SCBSCSEG=SCBSCHDR;/* SET CURRENT SEGMENT BEING 00807000 * SENT */ 00808000 MVC SCBSCSEG(3,RSCB),SCBSCHDR(RSCB) 05S0652 00809000 * SCBUNTCT=0; /* RESET OFFSET IN DISK RECORD */ 00810000 MVI SCBUNTCT(RSCB),X'00' 05S0653 00811000 * SCBDESTQ=RQCB;/* SET POINTER TO DESTINATION QCB*/ 00812000 STCM RQCB,7,SCBDESTQ(RSCB) 05S0654 00813000 * LCBRECAD=0; /* RESET ADDR OF CURRENT MESSAGE 00814000 * BLOCK */ 00815000 SLR @10,@10 05S0655 00816000 STCM @10,7,LCBRECAD(RLCB) 05S0655 00817000 * LCBRECOF=0; /* RESET OFFSET INTO CURRENT 00818000 * BLOCK */ 00819000 STH @10,LCBRECOF(,RLCB) 05S0656 00820000 * LCBNEGRP=OFF; /* RESET NEGATIVE RESPONSE TO 00821000 * POLLING RECEIVED */ 00822000 * LCBSNDPR=OFF; /* RESET SEND PRIORITY */ 00823000 * LCBRESP=OFF; 05S0659 00824000 NI LCBNEGRP(RLCB),B'11100110' 05S0659 00825000 * IF TRMSNA=ON THEN/* TEST FOR SNA RESOURCE */ 00826000 TM TRMSNA(RTRM),B'00000010' 05S0660 00827000 BNO @RF00660 05S0660 00828000 * DO; /* SNA RESOURCE */ 00829000 * RFY 05S0662 00830000 * RSIB RSTD; 05S0662 00831000 * RSIB=TRMSIBPT;/* GET SIB POINTER */ 00832000 SLR RSIB,RSIB 05S0663 00833000 ICM RSIB,7,TRMSIBPT(RTRM) 05S0663 00834000 * IF SIBINDEX=SAVTSCPT THEN/* IF THIS IS THE 00835000 * SSCP SIB THEN THIS IS A BIND 00836000 * FAILED ERROR CONDITION 05S0664 00837000 * @YM06056*/ 00838000 L @10,AVTSAVTP(,RAVT) 05S0664 00839000 CLC SIBINDEX(2,RSIB),SAVTSCPT(@10) 05S0664 00840000 BNE @RF00664 05S0664 00841000 * LCBRBCT1=1;/* REQUEST ONLY ONE BUFFER 00842000 * @YM06056*/ 00843000 MVI LCBRBCT1(RLCB),X'01' 05S0665 00844000 * ELSE /* NOT A BIND FAILED ERROR 05S0666 00845000 * @YM06056*/ 00846000 * IF LGBOPACE=0 THEN/* IF NOT PACING THEN 00847000 * @YM06056*/ 00848000 B @RC00664 05S0666 00849000 @RF00664 L @10,IEDNLPTR(,RLCB) 05S0666 00850000 CLI LGBOPACE(@10),0 05S0666 00851000 BNE @RF00666 05S0666 00852000 * LCBRBCT1=LGBBUFOU&'0F'X;/* REQUEST 00853000 * BUFOUT @YM06056*/ 00854000 LA @09,15 05S0667 00855000 SLR @00,@00 05S0667 00856000 IC @00,LGBBUFOU(,@10) 05S0667 00857000 NR @09,@00 05S0667 00858000 STC @09,LCBRBCT1(,RLCB) 05S0667 00859000 * ELSE /* PACING IS BEING PERFORMED 00860000 * @YM06056*/ 00861000 * LCBRBCT1=LGBOPACE-(SIBPACIN&'0F'X);/* 00862000 * REQUEST PACING COUNT MINUS N 00863000 * COUNT @YM06056*/ 00864000 B @RC00666 05S0668 00865000 @RF00666 L @10,IEDNLPTR(,RLCB) 05S0668 00866000 LA @09,15 05S0668 00867000 SLR @00,@00 05S0668 00868000 IC @00,SIBPACIN(,RSIB) 05S0668 00869000 NR @09,@00 05S0668 00870000 LCR @09,@09 05S0668 00871000 SLR @00,@00 05S0668 00872000 IC @00,LGBOPACE(,@10) 05S0668 00873000 ALR @09,@00 05S0668 00874000 STC @09,LCBRBCT1(,RLCB) 05S0668 00875000 * RFY 05S0669 00876000 * RSIB UNRSTD; 05S0669 00877000 @RC00666 DS 0H 05S0669 00878000 @RC00664 DS 0H 05S0670 00879000 * END; 05S0670 00880000 * ELSE /* NOT AN SNA RESOURCE */ 00881000 * DO; 05S0671 00882000 B @RC00660 05S0671 00883000 @RF00660 DS 0H 05S0672 00884000 * TRMNLOUT=OFF;/* RESET NULL WRITE 05S0672 00885000 * OUTSTANDING */ 00886000 NI TRMNLOUT(RTRM),B'11111011' 05S0672 00887000 * LCBRBCT1=LGBBUFOU&'00001111'B;/* SET COUNT 00888000 * FIELD TO BUFOUT (AND CLEAR 00889000 * BUFIN VALUE) */ 00890000 L @10,IEDNLPTR(,RLCB) 05S0673 00891000 LA @09,15 05S0673 00892000 SLR @05,@05 05S0673 00893000 IC @05,LGBBUFOU(,@10) 05S0673 00894000 NR @09,@05 05S0673 00895000 STC @09,LCBRBCT1(,RLCB) 05S0673 00896000 * END; 05S0674 00897000 * LCBRBCT2=''B; /* CLEAR DISABLED COUNT FIELD */ 00898000 @RC00660 MVI LCBRBCT2(RLCB),X'00' 05S0675 00899000 * IF TRMDIAL=ON&/* CHECK FOR DIAL TERMINAL ... */ 00900000 * TRMSESSN=OFF THEN/* ... NOT IN SESSION */ 00901000 TM TRMDIAL(RTRM),B'00001000' 05S0676 00902000 BNO @RF00676 05S0676 00903000 TM TRMSESSN(RTRM),B'01000000' 05S0676 00904000 BNZ @RF00676 05S0676 00905000 * DO; /* YES, SET UP TO POST ERB TO 00906000 * IEDNKA */ 00907000 * CALL GETBFR;/* IEDNKA MUST HAVE A BUFFER 00908000 * CHAINED OFF THE ERB */ 00909000 BAL @14,GETBFR 05S0678 00910000 * IF RPRF^=0 THEN/* IF BUFFER IS AVAILABLE, 00911000 * CONTINUE */ 00912000 LTR RPRF,RPRF 05S0679 00913000 BZ @RF00679 05S0679 00914000 * DO; 05S0680 00915000 * LCBERBCH=RPRF;/* CHAIN BUFFER FOR 05S0681 00916000 * IEDNKA */ 00917000 STCM RPRF,7,LCBERBCH(RLCB) 05S0681 00918000 * LCBERBQB=SAVTCNIR;/* SET POST QCB 05S0682 00919000 * ADDRESS */ 00920000 L @10,AVTSAVTP(,RAVT) 05S0682 00921000 MVC LCBERBQB(3,RLCB),SAVTCNIR+1(@10) 05S0682 00922000 * LCBERBPY=PRIACTIV;/* SET POST PRIORITY */ 00923000 MVI LCBERBPY(RLCB),X'E4' 05S0683 00924000 * RSTATE=STTONKA;/* BYPASS TO NIR 05S0684 00925000 * GENERATOR */ 00926000 LA RSTATE,7 05S0684 00927000 * END; 05S0685 00928000 * END; 05S0686 00929000 * ELSE /* ELSE CONTINUE WITH SEND 05S0687 00930000 * PROCESSING */ 00931000 * DO; /* POST ERB TO DISK I/O */ 00932000 B @RC00676 05S0687 00933000 @RF00676 DS 0H 05S0688 00934000 * IF LCBERBCH^=0 THEN/* TEST FOR BUFFERS ON 00935000 * ERB CHAIN */ 00936000 L @10,LCBERBCH-1(,RLCB) 05S0688 00937000 LA @10,0(,@10) 05S0688 00938000 LTR @10,@10 05S0688 00939000 BZ @RF00688 05S0688 00940000 * DO; /* BUFFERS ARE ON ERB CHAIN */ 00941000 * RPRF=LCBERBCH;/* DELINK BUFFERS ... */ 00942000 LR RPRF,@10 05S0690 00943000 * LCBERBCH=0;/* ... FROM ERB CHAIN */ 00944000 SLR @10,@10 05S0691 00945000 STCM @10,7,LCBERBCH(RLCB) 05S0691 00946000 * PRFQCBA=ADDR(AVTBFRTB);/* QUEUE TO 00947000 * BUFFER RETURN */ 00948000 LA @10,AVTBFRTB(,RAVT) 05S0692 00949000 STCM @10,7,PRFQCBA(RPRF) 05S0692 00950000 * PRFPRI=PRIBFRTB;/* SET PRIORITY */ 00951000 MVI PRFPRI(RPRF),X'E0' 05S0693 00952000 * RPARM=RPRF;/* SET ELEMENT TO TPOST */ 00953000 LR RPARM,RPRF 05S0694 00954000 * SAVEQCB=RQCB;/* SAVE QCB ADDRESS */ 00955000 ST RQCB,SAVEQCB 05S0695 00956000 * CALL DSPPOSTR;/* TPOST THE ELEMENT */ 00957000 LA @15,DSPPOSTR(,RDISP) 05S0696 00958000 BALR @14,@15 05S0696 00959000 * RQCB=SAVEQCB;/* RESTORE QCB ADDRESS */ 00960000 L RQCB,SAVEQCB 05S0697 00961000 * END; 05S0698 00962000 * LCBERB=ADDR(AVTDSIOB);/* QUEUE TO DISK I/O */ 00963000 @RF00688 LA @10,AVTDSIOB(,RAVT) 05S0699 00964000 ST @10,LCBERB(,RLCB) 05S0699 00965000 * LCBERBPY=PRIINTRQ;/* SET PRIORITY */ 00966000 MVI LCBERBPY(RLCB),X'E4' 05S0700 00967000 * LCBDLNKN=OFF;/* MARK ERB IN USE @YM08429*/ 00968000 NI LCBDLNKN(RLCB),B'11111110' 05S0701 00969000 * RPARM=ADDR(LCBERB);/* SET ELEMENT TO TPOST */ 00970000 LA RPARM,LCBERB(,RLCB) 05S0702 00971000 * CALL DSPPOST;/* RETURN TO DISPATCHER AT 00972000 * TPOST ENTRY POINT @Y17XAIX*/ 00973000 LA @15,DSPPOST(,RDISP) 05S0703 00974000 BALR @14,@15 05S0703 00975000 * END; 05S0704 00976000 * END; 04S0705 00977000 @RC00676 DS 0H 04S0706 00978000 * END; 03S0706 00979000 @RF00649 DS 0H 03S0707 00980000 * END; 03S0707 00981000 @RF00633 DS 0H 03S0708 00982000 * 04S0708 00983000 * /***********************************************************/ 00984000 * /* */ 00985000 * /* PROCESS.SENDSCH.ANALYSIS: ANALYZE THE STATE VALUE TO */ 00986000 * /* DETERMINE EXIT. */ 00987000 * /* */ 00988000 * /***********************************************************/ 00989000 * 04S0708 00990000 * IF RSTATE=STBYPAS THEN /* TEST FOR BYPASS STATE */ 00991000 @RC00479 C RSTATE,@CF00060 04S0708 00992000 BNE @RF00708 04S0708 00993000 * DO; /* BYPASS STATE */ 00994000 * RPARM=RLCB; /* SET ELEMENT TO BE PASSED */ 00995000 LR RPARM,RLCB 04S0710 00996000 * RSTCB=ADDR(LCBRSKEY); /* STCB TO BE ACTIVATED */ 00997000 LA RSTCB,LCBRSKEY(,RLCB) 04S0711 00998000 * RQCB=RLCB; /* SET QCB CONTAINING THE STCB */ 00999000 LR RQCB,RLCB 04S0712 01000000 * RETADDR=ADDR(DSPBYPAS);/* SET RETURN TO BYPASS ENTRY OF 01001000 * DISPATCHER */ 01002000 LA @10,DSPBYPAS(,RDISP) 04S0713 01003000 ST @10,RETADDR 04S0713 01004000 * END; 04S0714 01005000 * ELSE /* NOT BYPASS STATE */ 01006000 * IF RSTATE=STERBPT THEN /* TEST FOR ERB POST STATE */ 01007000 B @RC00708 04S0715 01008000 @RF00708 C RSTATE,@CF00255 04S0715 01009000 BNE @RF00715 04S0715 01010000 * DO; /* ERB POST STATE */ 01011000 * LCBERBQB=ADDR(AVTBFREB);/* QUEUE TO AVAILABLE BUFFER 01012000 * ROUTINE */ 01013000 LA @10,AVTBFREB(,RAVT) 04S0717 01014000 STCM @10,7,LCBERBQB(RLCB) 04S0717 01015000 * LCBERBPY=PRIINTRQ; /* SET PRIORITY */ 01016000 MVI LCBERBPY(RLCB),X'E4' 04S0718 01017000 * LCBRBCT1=ERBPBFRS; /* SET NUMBER OF BUFFERS 04S0719 01018000 * REQUESTED */ 01019000 MVI LCBRBCT1(RLCB),X'01' 04S0719 01020000 * LCBRBCT2=ERBPUNIT; /* SET NUMBER OF UNITS PER BUFFER*/ 01021000 MVI LCBRBCT2(RLCB),X'01' 04S0720 01022000 * LCBRCQCB=RLCB; /* QCB TO WHICH BUFFER WILL BE 01023000 * TPOSTED */ 01024000 ST RLCB,LCBRCQCB(,RLCB) 04S0721 01025000 * LCBPRCPG=ON; /* USE LCBRCQCB AFTER BUFFER IS 01026000 * ALLOCATED */ 01027000 OI LCBPRCPG(RLCB),B'00000010' 04S0722 01028000 * RPARM=ADDR(LCBERB); /* ELEMENT TO TPOST */ 01029000 LA RPARM,LCBERB(,RLCB) 04S0723 01030000 * CALL DSPPOST; /* TPOST ENTRY POINT OF THE 04S0724 01031000 * DISPATCHER @Y17XAIX*/ 01032000 LA @15,DSPPOST(,RDISP) 04S0724 01033000 BALR @14,@15 04S0724 01034000 * END; 04S0725 01035000 * ELSE /* NOT ERB POST STATE */ 01036000 * IF RSTATE=STTONKA THEN/* IF BYPASS REQUESTED TO IEDNKA */ 01037000 B @RC00715 04S0726 01038000 @RF00715 C RSTATE,@CF00581 04S0726 01039000 BNE @RF00726 04S0726 01040000 * DO; /* BYPASS STATE */ 01041000 * RQCB=SAVTCNIR; /* SET QCB ADDRESS FOR DSPBYPAS */ 01042000 L @10,AVTSAVTP(,RAVT) 04S0728 01043000 L @10,SAVTCNIR(,@10) 04S0728 01044000 LR RQCB,@10 04S0728 01045000 * RSTCB=SAVTCNIR->QCBSTCHN;/* SET STCB ADDRESS FOR 01046000 * DSPBYPAS */ 01047000 L RSTCB,QCBSTCHN-1(,@10) 04S0729 01048000 LA RSTCB,0(,RSTCB) 04S0729 01049000 * RPARM=ADDR(LCBERB);/* ELEMENT BEING BYPASSED */ 01050000 LA RPARM,LCBERB(,RLCB) 04S0730 01051000 * RETADDR=ADDR(DSPBYPAS);/* SET RETURN TO BYPASS 01052000 * ENTRY OF DISPATCHER */ 01053000 LA @10,DSPBYPAS(,RDISP) 04S0731 01054000 ST @10,RETADDR 04S0731 01055000 * END; 04S0732 01056000 * ELSE /* NOT BYPASS TO IEDNKA STATE */ 01057000 * IF RSTATE=STFRELCB THEN/* IF PLCB DEALLOCATION 04S0733 01058000 * REQUESTED */ 01059000 B @RC00726 04S0733 01060000 @RF00726 C RSTATE,@CF00044 04S0733 01061000 BNE @RF00733 04S0733 01062000 * DO; /* SET UP TO FREE PLCB AND EXIT */ 01063000 * RPARM=RLCB; /* PARAMETER LIST TO IEDIAP07 01064000 * @YM04668*/ 01065000 LR RPARM,RLCB 04S0735 01066000 * CALL IEDIAP07; /* CALL PLCB DEALLOCATION ROUTINE*/ 01067000 L @10,AVTSAVTP(,RAVT) 04S0736 01068000 L @15,SAVTPRTN(,@10) 04S0736 01069000 BALR @14,@15 04S0736 01070000 * RETADDR=ADDR(DSPDISP);/* EXIT ADDRESS */ 01071000 LA @10,DSPDISP(,RDISP) 04S0737 01072000 ST @10,RETADDR 04S0737 01073000 * END; 04S0738 01074000 * ELSE /* ELSE NOT PLCB DEALLOCATION 01075000 * STATE */ 01076000 * IF RSTATE=STEXIT THEN/* TEST FOR EXIT STATE */ 01077000 B @RC00733 04S0739 01078000 @RF00733 C RSTATE,@CF00073 04S0739 01079000 BNE @RF00739 04S0739 01080000 * DO; /* EXIT STATE */ 01081000 * RETADDR=ADDR(DSPDISP); 04S0741 01082000 LA @10,DSPDISP(,RDISP) 04S0741 01083000 ST @10,RETADDR 04S0741 01084000 * END; 04S0742 01085000 * END; 02S0743 01086000 @RF00739 DS 0H 02S0743 01087000 @RC00733 DS 0H 02S0743 01088000 @RC00726 DS 0H 02S0743 01089000 @RC00715 DS 0H 02S0743 01090000 @RC00708 DS 0H 02S0744 01091000 * 02S0744 01092000 * /*****************************************************************/ 01093000 * /* */ 01094000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 01095000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. */ 01096000 * /* */ 01097000 * /*****************************************************************/ 01098000 * 02S0744 01099000 * RFY 02S0744 01100000 * RRETURN RSTD; 02S0744 01101000 @RC00451 DS 0H 02S0744 01102000 @RC00441 DS 0H 02S0745 01103000 * RRETURN=RETADDR; /* SET RETURN ADDRESS */ 01104000 L RRETURN,RETADDR 02S0745 01105000 * 02S0746 01106000 * /*****************************************************************/ 01107000 * /* */ 01108000 * /* BLDRESET: BUILD A RESET CONDITIONAL PIU IN A BUFFER AND TPOST */ 01109000 * /* THE BUFFER TO THE COMMAND ID PROCESSOR. */ 01110000 * /* */ 01111000 * /*****************************************************************/ 01112000 * 02S0746 01113000 *BLDRESET: 02S0746 01114000 * PROC OPTIONS(RETREG,SAVE(14)); 02S0746 01115000 @EL00001 DS 0H 02S0746 01116000 @EF00001 DS 0H 02S0746 01117000 @ER00001 BR @14 02S0746 01118000 BLDRESET ST @14,@SA00002 02S0746 01119000 * PRFPIUO=STRTPIU; /* SET OFFSET TO PIU IN THE 02S0747 01120000 * BUFFER UNIT */ 01121000 LA @15,1 02S0747 01122000 STC @15,PRFPIUO(,RPRF) 02S0747 01123000 * PIU=''B; /* CLEAR THE PIU */ 01124000 LA @10,PRFPIUO(,RPRF) 02S0748 01125000 ALR @10,@15 02S0748 01126000 XC PIU(20,@10),PIU(@10) 02S0748 01127000 * TTHBBIU=ON; /* SET BEGIN SEGMENT */ 01128000 * TTHEBIU=ON; /* SET END SEGMENT */ 01129000 OI TTHBBIU(@10),B'00001100' 02S0750 01130000 * IF QCBPLCBN=ON THEN /* PLCB ASSIGNED @YM08413*/ 01131000 LR @15,RQCB 02S0751 01132000 SL @15,@CF00044 02S0751 01133000 TM QCBPLCBN(@15),B'10000000' 02S0751 01134000 BNO @RF00751 02S0751 01135000 * DO; /* @YM08413*/ 01136000 * RLCB=QCBPLCBA; /* PLCB ADDRESS @YM08413*/ 01137000 L RLCB,QCBPLCBA-1(,@15) 02S0753 01138000 LA RLCB,0(,RLCB) 02S0753 01139000 * TTHDAF=LCBTTCIN; /* SET DAF FROM LCB TNT OFFSET 01140000 * @YM08413*/ 01141000 MVC TTHDAF(2,@10),LCBTTCIN(RLCB) 02S0754 01142000 * END; /* @YM08413*/ 01143000 * ELSE /* @XM05703*/ 01144000 * IF QCBWAITC=ON THEN /* IF CHAIN OF PIU'S, THEN 02S0756 01145000 * @XM05703*/ 01146000 B @RC00751 02S0756 01147000 @RF00751 LR @15,RQCB 02S0756 01148000 SL @15,@CF00044 02S0756 01149000 TM QCBWAITC(@15),B'01000000' 02S0756 01150000 BNO @RF00756 02S0756 01151000 * DO; /* @XM05703*/ 01152000 * RPARM=QCBPLCBA; /* GET FIRST PIU ADDRESS @XM05703*/ 01153000 L RPARM,QCBPLCBA-1(,@15) 02S0758 01154000 LA RPARM,0(,RPARM) 02S0758 01155000 * RFY 02S0759 01156000 * IEDQPRF BASED(RPARM); /* @XM05703*/ 01157000 * RPARM=ADDR(PRFPIUO)+PRFPIUO;/* POINT TO THE TH @XM05703*/ 01158000 LA @15,PRFPIUO(,RPARM) 02S0760 01159000 SLR @10,@10 02S0760 01160000 IC @10,PRFPIUO(,RPARM) 02S0760 01161000 ALR @15,@10 02S0760 01162000 LR RPARM,@15 02S0760 01163000 * RFY 02S0761 01164000 * IEDQPRF BASED(RPRF); /* @XM05703*/ 01165000 * TTHDAF=RPARM->TTHOAF; /* GET TNT INDEX FROM PIU OAF 01166000 * @XM05703*/ 01167000 LA @15,PRFPIUO(,RPRF) 02S0762 01168000 SLR @10,@10 02S0762 01169000 IC @10,PRFPIUO(,RPRF) 02S0762 01170000 ALR @15,@10 02S0762 01171000 MVC TTHDAF(2,@15),TTHOAF(RPARM) 02S0762 01172000 * END; /* @XM05703*/ 01173000 * ELSE /* NO PLCB ASSIGNED @YM08413*/ 01174000 * TTHDAF=QCBTTCIN; /* SET DESTINATION ADDR FIELD */ 01175000 B @RC00756 02S0764 01176000 @RF00756 LA @15,PRFPIUO(,RPRF) 02S0764 01177000 SLR @10,@10 02S0764 01178000 IC @10,PRFPIUO(,RPRF) 02S0764 01179000 ALR @15,@10 02S0764 01180000 LR @10,RQCB 02S0764 01181000 BCTR @10,0 02S0764 01182000 BCTR @10,0 02S0764 01183000 MVC TTHDAF(2,@15),QCBTTCIN-6(@10) 02S0764 01184000 * TTHOAF=SAVTTCPU; /* SET ORIGIN ADDR FIELD */ 01185000 @RC00756 DS 0H 02S0765 01186000 @RC00751 LA @15,PRFPIUO(,RPRF) 02S0765 01187000 SLR @10,@10 02S0765 01188000 IC @10,PRFPIUO(,RPRF) 02S0765 01189000 ALR @15,@10 02S0765 01190000 L @10,AVTSAVTP(,RAVT) 02S0765 01191000 MVC TTHOAF(2,@15),SAVTTCPU(@10) 02S0765 01192000 * TTHDCF=LENGTH(IEDRH)+1+LENGTH(IEDBDU);/* SET DATA COUNT FIELD */ 01193000 LA @09,10 02S0766 01194000 STCM @09,3,TTHDCF(@15) 02S0766 01195000 * TRHFI=ON; /* SET FORMAT INDICATOR */ 01196000 * TRHBC=ON; /* SET BEGIN CHAIN */ 01197000 * TRHEC=ON; /* SET END CHAIN */ 01198000 ALR @09,@15 02S0769 01199000 OI TRHFI(@09),B'00001011' 02S0769 01200000 * TRHDR1=ON; /* SET DEFINITE RESPONSE 1 */ 01201000 OI TRHDR1(@09),B'10000000' 02S0770 01202000 * BDUCMND=CD0CTRL; /* CONTROL COMMAND */ 01203000 AL @15,@CF01880 02S0771 01204000 MVI BDUCMND(@15),X'08' 02S0771 01205000 * BDUMODIF=CD0CRC; /* MODIFIER = RESET CONDITIONAL */ 01206000 MVI BDUMODIF(@15),X'50' 02S0772 01207000 * PRFQCBA=SAVTSAO; /* QUEUE TO COMMAND ID PROCESSOR */ 01208000 MVC PRFQCBA(3,RPRF),SAVTSAO+1(@10) 02S0773 01209000 * PRFPRI=PRIOUTBD; /* SET PRIORITY */ 01210000 MVI PRFPRI(RPRF),X'E4' 02S0774 01211000 * PRF2TNTI=ON; /* INDICATE PIU' @YM04627*/ 01212000 LR @15,RPRF 02S0775 01213000 AL @15,@CF02309 02S0775 01214000 OI PRF2TNTI(@15),B'10000000' 02S0775 01215000 * RPARM=RPRF; /* SET ADDR OF ELEMENT TO TPOST */ 01216000 LR RPARM,RPRF 02S0776 01217000 * SAVEQCB=RQCB; /* SAVE QCB ADDRESS */ 01218000 ST RQCB,SAVEQCB 02S0777 01219000 * CALL DSPPOSTR; /* CALL DISPATCHER TO TPOST 02S0778 01220000 * ELEMENT */ 01221000 LA @15,DSPPOSTR(,RDISP) 02S0778 01222000 BALR @14,@15 02S0778 01223000 * RQCB=SAVEQCB; /* RESTORE QCB ADDRESS */ 01224000 L RQCB,SAVEQCB 02S0779 01225000 * END BLDRESET; 02S0780 01226000 @EL00002 DS 0H 02S0780 01227000 @EF00002 DS 0H 02S0780 01228000 @ER00002 L @14,@SA00002 02S0780 01229000 BR @14 02S0780 01230000 * 02S0781 01231000 * /*****************************************************************/ 01232000 * /* */ 01233000 * /* CALLIAP: CALL IEDIAP FOR PLCB ALLOCATION. */ 01234000 * /* */ 01235000 * /*****************************************************************/ 01236000 * 02S0781 01237000 *CALLIAP: 02S0781 01238000 * PROC OPTIONS(RETREG,SAVE(14)); 02S0781 01239000 CALLIAP ST @14,@SA00003 02S0781 01240000 * RFY 02S0782 01241000 * RBRANCH RSTD; 02S0782 01242000 * QCBSNDRQ=ON; /* REQUEST SEND SCHEDULER */ 01243000 * QCBRCVRQ=ON; /* REQUEST RECEIVE SCHEDULER */ 01244000 LR @10,RQCB 02S0784 01245000 AL @10,@CF02310 02S0784 01246000 OI QCBSNDRQ-4(@10),B'00110000' 02S0784 01247000 * IF(QCBSTPRI=QCBCNTVL| /* CINTVL OR ... */ 01248000 * QCBSTPRI=QCBCLK)& /* ... CLOCK INDICATED ... */ 01249000 * QCBTSSES=OFF& /* ... AND NOT TSO SESSION ... */ 01250000 * TRMINPUT=ON& /* ... AND CAPABLE OF INPUT ... 01251000 * @YM08439*/ 01252000 * TRMSNA=OFF THEN /* ... AND NOT SNA */ 01253000 CLI QCBSTPRI(RQCB),X'70' 02S0785 01254000 BE @GL00018 02S0785 01255000 CLI QCBSTPRI(RQCB),X'80' 02S0785 01256000 BNE @RF00785 02S0785 01257000 @GL00018 TM QCBTSSES(RQCB),B'10000000' 02S0785 01258000 BNZ @RF00785 02S0785 01259000 TM TRMINPUT(RTRM),B'01000000' 02S0785 01260000 BNO @RF00785 02S0785 01261000 TM TRMSNA(RTRM),B'00000010' 02S0785 01262000 BNZ @RF00785 02S0785 01263000 * QCBSCHDL=ON; /* YES, REQUEST RECEIVE BEFORE 01264000 * SEND */ 01265000 OI QCBSCHDL(RQCB),B'00000100' 02S0786 01266000 * RPARM=RQCB; /* SET ADDR OF QCB */ 01267000 @RF00785 LR RPARM,RQCB 02S0787 01268000 * TRMINPTP=OFF; /* PREVENT DOUBLE POST OF PLCB 01269000 * @YM05700*/ 01270000 NI TRMINPTP(RTRM),B'10111111' 02S0788 01271000 * CALL IEDIAP; /* CALL IEDIAP FOR PLCB 02S0789 01272000 * ALLOCATION */ 01273000 L @10,AVTSAVTP(,RAVT) 02S0789 01274000 L @15,SAVTPREQ(,@10) 02S0789 01275000 BALR @14,@15 02S0789 01276000 * IF RBRANCH^=0 THEN /* TEST FOR PLCB ALLOCATED */ 01277000 LTR RBRANCH,RBRANCH 02S0790 01278000 BZ @RF00790 02S0790 01279000 * DO; /* PLCB WAS ALLOCATED */ 01280000 * RLCB=RBRANCH; /* SET PLCB ADDR */ 01281000 LR RLCB,RBRANCH 02S0792 01282000 * LCBQCBA=RLCB; /* QUEUE PLCB TO ITSELF */ 01283000 STCM RLCB,7,LCBQCBA(RLCB) 02S0793 01284000 * LCBPRI=PRILNFRE; /* SET PRIORITY */ 01285000 MVI LCBPRI(RLCB),X'E0' 02S0794 01286000 * RPARM=RLCB; /* PLCB IS ELEMENT TO TPOST */ 01287000 LR RPARM,RLCB 02S0795 01288000 * SAVEQCB=RQCB; /* SAVE QCB ADDRESS */ 01289000 ST RQCB,SAVEQCB 02S0796 01290000 * CALL DSPPOSTR; /* TPOST THE ELEMENT */ 01291000 LA @15,DSPPOSTR(,RDISP) 02S0797 01292000 BALR @14,@15 02S0797 01293000 * RQCB=SAVEQCB; /* RESTORE QCB ADDRESS */ 01294000 L RQCB,SAVEQCB 02S0798 01295000 * END; 02S0799 01296000 * RFY 02S0800 01297000 * RBRANCH UNRSTD; 02S0800 01298000 * END CALLIAP; 02S0801 01299000 @EL00003 DS 0H 02S0801 01300000 @EF00003 DS 0H 02S0801 01301000 @ER00003 L @14,@SA00003 02S0801 01302000 BR @14 02S0801 01303000 * 02S0802 01304000 * /*****************************************************************/ 01305000 * /* */ 01306000 * /* GETBFR: ALLOCATE A BUFFER FROM THE ERB OR BY A CALL TO BUFFER */ 01307000 * /* STEAL. IF A BUFFER IS ALLOCATED, RETURN ITS ADDRESS IN RPRF. */ 01308000 * /* OTHERWISE, SET ERB POST STATE (STERBPT) SO THAT A BUFFER WILL */ 01309000 * /* BE REQUESTED. */ 01310000 * /* */ 01311000 * /*****************************************************************/ 01312000 * 02S0802 01313000 *GETBFR: 02S0802 01314000 * PROC OPTIONS(RETREG,SAVE(14)); 02S0802 01315000 GETBFR ST @14,@SA00004 02S0802 01316000 * RFY 02S0803 01317000 * (RUNIT, 02S0803 01318000 * RBRANCH) RSTD; 02S0803 01319000 * IF LCBERBCH^=0 THEN /* TEST FOR BUFFER ON ERB CHAIN */ 01320000 L @10,LCBERBCH-1(,RLCB) 02S0804 01321000 LA @10,0(,@10) 02S0804 01322000 LTR @10,@10 02S0804 01323000 BZ @RF00804 02S0804 01324000 * DO; /* BUFFER ON THE CHAIN */ 01325000 * RPRF=LCBERBCH; /* DELINK BUFFER ... */ 01326000 LR RPRF,@10 02S0806 01327000 * LCBERBCH=0; /* ... FROM ERB */ 01328000 SLR @10,@10 02S0807 01329000 STCM @10,7,LCBERBCH(RLCB) 02S0807 01330000 * END; 02S0808 01331000 * ELSE /* NO BUFFER ON CHAIN */ 01332000 * DO; 02S0809 01333000 B @RC00804 02S0809 01334000 @RF00804 DS 0H 02S0810 01335000 * RUNIT=BFRSUNIT; /* SET NUMBER OF UNITS PER BUFFER*/ 01336000 LA @10,1 02S0810 01337000 LR RUNIT,@10 02S0810 01338000 * RPARM=BFRSBFRS; /* SET NUMBER OF BUFFERS 02S0811 01339000 * REQUESTED */ 01340000 LR RPARM,@10 02S0811 01341000 * CALL IEDQGA02; /* CALL BUFFER STEAL */ 01342000 L @15,AVTSTEAL(,RAVT) 02S0812 01343000 BALR @14,@15 02S0812 01344000 * RPRF=RBRANCH; /* SAVE BUFFER ADDRESS */ 01345000 LR RPRF,RBRANCH 02S0813 01346000 * IF RBRANCH=0 /* TEST RETURN CODE */ 01347000 * THEN /* NO BUFFER AVAILABLE */ 01348000 LTR RBRANCH,RBRANCH 02S0814 01349000 BNZ @RF00814 02S0814 01350000 * RSTATE=STERBPT; /* REQUEST ERB POST */ 01351000 LA RSTATE,4 02S0815 01352000 * END; 02S0816 01353000 * RFY 02S0817 01354000 * (RUNIT, 02S0817 01355000 * RBRANCH) UNRSTD; 02S0817 01356000 * END GETBFR; 02S0818 01357000 @EL00004 DS 0H 02S0818 01358000 @EF00004 DS 0H 02S0818 01359000 @ER00004 L @14,@SA00004 02S0818 01360000 BR @14 02S0818 01361000 * 02S0819 01362000 * /*****************************************************************/ 01363000 * /* */ 01364000 * /* LCBSCAN: THIS IS THE ENTRY POINT CALLED BY EXTERNAL ROUTINES */ 01365000 * /* TO DO LCBSCAN PROCESSING. THE BASE IS SET AND THE RETURN */ 01366000 * /* ADDRESS IS SAVED. THE SUBROUTINE LCBSCAN1 IS CALLED FOR THE */ 01367000 * /* LCBSCAN PROCESSING. */ 01368000 * /* */ 01369000 * /*****************************************************************/ 01370000 * 02S0819 01371000 *LCBSCAN: 02S0819 01372000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0819 01373000 LCBSCAN DS 0H 02S0820 01374000 * RSTATE=RBASE; /* SAVE CALLER'S BASE REGISTER 01375000 * @YM06132*/ 01376000 LR RSTATE,RBASE 02S0820 01377000 * RBASE=AVTSEND-OFFIAQ; /* SET BASE REGISTER TO START OF 01378000 * CSECT */ 01379000 L RBASE,AVTSEND(,RAVT) 02S0821 01380000 BCTR RBASE,0 02S0821 01381000 BCTR RBASE,0 02S0821 01382000 * BASADDR=RSTATE; /* SAVE CALLER'S BASE REGISTER 01383000 * @YM06132*/ 01384000 ST RSTATE,BASADDR 02S0822 01385000 * RETADDR=RRETURN; /* SAVE CALLER'S RETURN REGISTER 01386000 * @YM06132*/ 01387000 ST RRETURN,RETADDR 02S0823 01388000 * RSTATE=NOSTATE; /* CLEAR STATE REGISTER */ 01389000 SLR RSTATE,RSTATE 02S0824 01390000 * CALL LCBSCAN1; /* CALL THE LCBSCAN CODE */ 01391000 BAL @14,LCBSCAN1 02S0825 01392000 * RRETURN=RETADDR; /* RESTORE CALLER'S RETURN 02S0826 01393000 * ADDRESS @YM06132*/ 01394000 L RRETURN,RETADDR 02S0826 01395000 * RBASE=BASADDR; /* RESTORE CALLER'S BASE REGISTER 01396000 * @YM06132*/ 01397000 L RBASE,BASADDR 02S0827 01398000 * END LCBSCAN; 02S0828 01399000 @EL00005 DS 0H 02S0828 01400000 @EF00005 DS 0H 02S0828 01401000 @ER00005 BR @14 02S0828 01402000 * 02S0829 01403000 * /*****************************************************************/ 01404000 * /* */ 01405000 * /* LCBSCAN1: DETERMINE IF A SEND IS POSSIBLE AND IF SO INITIATE */ 01406000 * /* SENDING BY REQUESTING NECESSARY RESOURCES. FOR SNA RESOURCES */ 01407000 * /* THIS INCLUDES REQUESTING OF LU-LU SESSIONS. */ 01408000 * /* */ 01409000 * /*****************************************************************/ 01410000 * 02S0829 01411000 *LCBSCAN1: 02S0829 01412000 * PROC OPTIONS(RETREG,SAVE(14)); 02S0829 01413000 LCBSCAN1 ST @14,@SA00006 02S0829 01414000 * IF RSTATE=STQCBTSO /* TEST FOR QCB IN TSO SESSION 01415000 * STATE */ 01416000 * THEN 02S0830 01417000 C RSTATE,@CF00064 02S0830 01418000 BE @RT00830 02S0830 01419000 * ; /* QCB IN TSO SESSION STATE => NO 01420000 * PROCESSING */ 01421000 * ELSE /* QCB NOT IN TSO SESSION STATE */ 01422000 * DO; 02S0832 01423000 * RSTATE=STEXIT; /* ASSUME REQUEST FOR EXIT */ 01424000 LA RSTATE,3 02S0833 01425000 * IF QCBHELD=OFF /* TEST REUS STATE IN THE QCB */ 01426000 * THEN /* REUS IS NOT USING THE QCB */ 01427000 TM QCBHELD(RQCB),B'00000001' 02S0834 01428000 BNZ @RF00834 02S0834 01429000 * IF QCBREUS=ON| /* TEST ... */ 01430000 * QCBNREUS=ON| /* ... QUEUE ... */ 01431000 * QCBCORE=ON /* ... TYPE */ 01432000 * THEN /* NOT TSO ONLY QUEUES */ 01433000 TM QCBREUS(RQCB),B'01110000' 02S0835 01434000 BZ @RF00835 02S0835 01435000 * IF QCBTSSES=OFF /* TEST TSO SESSION STATE IN THE 01436000 * QCB */ 01437000 * THEN /* NOT IN TSO SESSION */ 01438000 TM QCBTSSES(RQCB),B'10000000' 02S0836 01439000 BNZ @RF00836 02S0836 01440000 * RSTATE=NOSTATE; /* SET NO STATE => DO NOT EXIT */ 01441000 SLR RSTATE,RSTATE 02S0837 01442000 * END; 02S0838 01443000 @RF00836 DS 0H 02S0838 01444000 @RF00835 DS 0H 02S0838 01445000 @RF00834 DS 0H 02S0839 01446000 * IF RSTATE^=STEXIT THEN /* TEST FOR 'NO EXIT REQUESTED' */ 01447000 @RT00830 C RSTATE,@CF00073 02S0839 01448000 BE @RF00839 02S0839 01449000 * DO; /* NO EXIT REQUESTED */ 01450000 * 03S0841 01451000 * /*************************************************************/ 01452000 * /* */ 01453000 * /* LCBSCAN1.SCHPLCB: FOR SNA WITH NO SESSION, REQUEST A */ 01454000 * /* SESSION. FOR ALL RESOURCES, REQUEST A PLCB IF NONE IS */ 01455000 * /* ASSIGNED. */ 01456000 * /* */ 01457000 * /*************************************************************/ 01458000 * 03S0841 01459000 * RPARM=QCBTTCIN; /* ASSUME QCB CONTAINS TNT INDEX */ 01460000 LR @15,RQCB 03S0841 01461000 SL @15,@CF00044 03S0841 01462000 LH RPARM,QCBTTCIN(,@15) 03S0841 01463000 * IF QCBPLCBN=ON THEN /* IS A PLCB ALLOCATED */ 01464000 TM QCBPLCBN(@15),B'10000000' 03S0842 01465000 BNO @RF00842 03S0842 01466000 * RPARM=QCBPLCBA->LCBTTCIN; /* YES, GET TNT INDEX FROM THE 01467000 * PLCB */ 01468000 L @15,QCBPLCBA-1(,@15) 03S0843 01469000 LH RPARM,LCBTTCIN(,@15) 03S0843 01470000 N RPARM,@CF02297 03S0843 01471000 * ELSE /* @XM05703*/ 01472000 * IF QCBWAITC=ON THEN /* IF CHAIN OF PIU'S, THEN 03S0844 01473000 * @XM05703*/ 01474000 B @RC00842 03S0844 01475000 @RF00842 LR @15,RQCB 03S0844 01476000 SL @15,@CF00044 03S0844 01477000 TM QCBWAITC(@15),B'01000000' 03S0844 01478000 BNO @RF00844 03S0844 01479000 * DO; /* @XM05703*/ 01480000 * RPARM=QCBPLCBA; /* GET FIRST PIU ADDRESS @XM05703*/ 01481000 L RPARM,QCBPLCBA-1(,@15) 03S0846 01482000 LA RPARM,0(,RPARM) 03S0846 01483000 * RFY 03S0847 01484000 * IEDQPRF BASED(RPARM);/* @XM05703*/ 01485000 * RPARM=ADDR(PRFPIUO)+PRFPIUO;/* POINT TO THE TH @XM05703*/ 01486000 LA @15,PRFPIUO(,RPARM) 03S0848 01487000 SLR @10,@10 03S0848 01488000 IC @10,PRFPIUO(,RPARM) 03S0848 01489000 ALR @15,@10 03S0848 01490000 LR RPARM,@15 03S0848 01491000 * RPARM=RPARM->TTHOAF; /* GET TNT INDEX FROM PIU OAF 01492000 * @XM05703*/ 01493000 SLR @15,@15 03S0849 01494000 ICM @15,3,TTHOAF(RPARM) 03S0849 01495000 LR RPARM,@15 03S0849 01496000 * RFY 03S0850 01497000 * IEDQPRF BASED(RPRF);/* @XM05703*/ 01498000 * END; /* @XM05703*/ 01499000 * CALL IEDQTNT; /* CALL TNTCODE TO GET THE TERM 01500000 * ENTRY ADDR */ 01501000 @RF00844 DS 0H 03S0852 01502000 @RC00842 L @15,AVTRNMPT(,RAVT) 03S0852 01503000 BALR @14,@15 03S0852 01504000 * RTRM=RPARM-LENGTH(IEDNTRM); /* SAVE TERM ENTRY ADDR */ 01505000 LR RTRM,RPARM 03S0853 01506000 SL RTRM,@CF01880 03S0853 01507000 * IF(TRMHELDN=OFF& /* TEST FOR ... */ 01508000 * QCBTRMHO=OFF)| /* ... 'TERMINAL NOT HELD' ... */ 01509000 * QCBSTPRI=QCBCLK| /* OR CLOCK @ZM45400*/ 01510000 * QCBSTPRI=QCBCNTVL| /* OR CINTVL @ZM45400*/ 01511000 * QCBTSSES=ON THEN /* OR IN TSO SESSION @ZM45400*/ 01512000 TM TRMHELDN(RTRM),B'00000100' 03S0854 01513000 BNZ @GL00022 03S0854 01514000 TM QCBTRMHO(RQCB),B'01000000' 03S0854 01515000 BZ @RT00854 03S0854 01516000 @GL00022 CLI QCBSTPRI(RQCB),X'80' 03S0854 01517000 BE @RT00854 03S0854 01518000 CLI QCBSTPRI(RQCB),X'70' 03S0854 01519000 BE @RT00854 03S0854 01520000 TM QCBTSSES(RQCB),B'10000000' 03S0854 01521000 BNO @RF00854 03S0854 01522000 @RT00854 DS 0H 03S0855 01523000 * DO; /* PROCEED WITH SCHEDULING */ 01524000 * IF TRMSNA=ON THEN /* TEST FOR SNA RESOURCE */ 01525000 TM TRMSNA(RTRM),B'00000010' 03S0856 01526000 BNO @RF00856 03S0856 01527000 * DO; /* SNA RESOURCE */ 01528000 * RSTATE=STEXIT; /* ASSUME EXIT WILL BE NEEDED */ 01529000 LA RSTATE,3 03S0858 01530000 * IF TRMRSACT=ON THEN /* IS RESOURCE ACTIVE */ 01531000 TM TRMRSACT(RTRM),B'10000000' 03S0859 01532000 BNO @RF00859 03S0859 01533000 * DO; 03S0860 01534000 * RFY 03S0861 01535000 * RSIB RSTD; 03S0861 01536000 * RSIB=TRMSIBPT; /* GET SIB POINTER */ 01537000 SLR RSIB,RSIB 03S0862 01538000 ICM RSIB,7,TRMSIBPT(RTRM) 03S0862 01539000 * IF SIBCHAIN^=0& /* TEST FOR FULLY ACTIVE @YM06474*/ 01540000 * SIBDSTAT=SIBDACTV/* ... LU-LU SESSION 03S0863 01541000 * @YM06474*/ 01542000 * THEN /* THERE IS AN LU-LU SESSION */ 01543000 L @15,SIBCHAIN(,RSIB) 03S0863 01544000 LTR @15,@15 03S0863 01545000 BZ @RF00863 03S0863 01546000 TM SIBDSTAT(RSIB),B'00000011' 03S0863 01547000 BNO @RF00863 03S0863 01548000 * RSTATE=NOSTATE;/* SET NO STATE REQUESTED */ 01549000 SLR RSTATE,RSTATE 03S0864 01550000 * ELSE /* NO LU-LU SESSION */ 01551000 * DO; 03S0865 01552000 B @RC00863 03S0865 01553000 @RF00863 DS 0H 03S0866 01554000 * QCBSNDRQ=ON;/* REQUEST SEND SCHEDULER 03S0866 01555000 * @YM06049*/ 01556000 LR @15,RQCB 03S0866 01557000 AL @15,@CF02310 03S0866 01558000 OI QCBSNDRQ-4(@15),B'00100000' 03S0866 01559000 * 04S0867 01560000 * /*********************************************/ 01561000 * /* */ 01562000 * /* LCBSCAN1.SCHPLCB.REQSESS: REQUEST AN LU-LU*/ 01563000 * /* SESSION. */ 01564000 * /* */ 01565000 * /*********************************************/ 01566000 * 04S0867 01567000 * IF TRMLUIT=ON|/* DOES LU INITIATE SESSIONS OR 01568000 * ... */ 01569000 * TRMSESRQ=ON|/* ... IS A SESSION REQUESTED 01570000 * @YM07432*/ 01571000 * (SIBCHAIN^=0&SIBSSTAT^=SIBSFINL)/* OR IS 01572000 * SIB AVAILABLE FOR NEW SESSION 01573000 * @YM07432*/ 01574000 * THEN 04S0867 01575000 TM TRMLUIT(RTRM),B'01001000' 04S0867 01576000 BNZ @RT00867 04S0867 01577000 L @15,SIBCHAIN(,RSIB) 04S0867 01578000 LTR @15,@15 04S0867 01579000 BZ @RF00867 04S0867 01580000 TM SIBSSTAT(RSIB),B'00010000' 04S0867 01581000 BNO @RT00867 04S0867 01582000 TM SIBSSTAT(RSIB),B'00001100' 04S0867 01583000 BNZ @RT00867 04S0867 01584000 * ; /* YES, NO FURTHER PROCESSING 01585000 * REQUIRED */ 01586000 * ELSE 04S0869 01587000 * DO; 04S0869 01588000 @RF00867 DS 0H 04S0870 01589000 * IF QCBDELAY=ON THEN/* TEST FOR QCB IN 01590000 * TIME DELAY */ 01591000 TM QCBDELAY(RQCB),B'00000010' 04S0870 01592000 BNO @RF00870 04S0870 01593000 * DO; /* QCB IN TIME DELAY */ 01594000 * RPARM=RQCB;/* SET QCB ADDRESS */ 01595000 LR RPARM,RQCB 04S0872 01596000 * CALL IEDQHG02;/* CALL TIME DELAY TASK 01597000 * REMOVAL ROUTINE */ 01598000 L @15,AVTHG02(,RAVT) 04S0873 01599000 BALR @14,@15 04S0873 01600000 * QCBSLINK=QCBSTCHN;/* RESET LINK FIELD 01601000 * @YM08084*/ 01602000 MVC QCBSLINK(3,RQCB),QCBSTCHN(RQCB) 04S0874 01603000 * QCBSTCHN=ADDR(QCBSTVTO);/* INSERT 01604000 * SEND SCHEDULER IN STCB CHAIN */ 01605000 LA @15,QCBSTVTO(,RQCB) 04S0875 01606000 STCM @15,7,QCBSTCHN(RQCB) 04S0875 01607000 * END; 04S0876 01608000 * RFY 04S0877 01609000 * RUNIT RSTD;/* RESTRICT FOR CS LOOP 01610000 * @YM07266*/ 01611000 @RF00870 DS 0H 04S0878 01612000 * RFY 04S0878 01613000 * RDISP UNRSTD;/* UNRESTRICT FOR CS LOOP 01614000 * @YM07266*/ 01615000 * SAVREG=RDISP;/* SAVE REGISTER 11 @YM07266*/ 01616000 ST RDISP,SAVREG 04S0879 01617000 * TRMSESRQ=ON;/* INDICATE THAT SESSION IS 01618000 * REQUESTED */ 01619000 LA @11,TRMSESRQ(,RTRM) 04S0880 01620000 LR @10,@11 04S0880 01621000 LA @15,3 04S0880 01622000 NR @10,@15 04S0880 01623000 LCR @10,@10 04S0880 01624000 ALR @11,@10 04S0880 01625000 L @15,0(,@11) 04S0880 01626000 @GL00027 LR @09,@15 04S0880 01627000 O @09,@CB02313+3(@10) 04S0880 01628000 CS @15,@09,0(@11) 04S0880 01629000 BNE @GL00027 04S0880 01630000 * RDISP=SAVREG;/* RESTORE REGISTER 11 04S0881 01631000 * @YM07266*/ 01632000 L RDISP,SAVREG 04S0881 01633000 * RFY 04S0882 01634000 * RDISP RSTD;/* @YM07266*/ 01635000 * RFY 04S0883 01636000 * RUNIT UNRSTD;/* @YM07266*/ 01637000 * QCBELCHN=ADDR(SAVTLUSQ);/* QUEUE TO LUS */ 01638000 L @15,AVTSAVTP(,RAVT) 04S0884 01639000 LA @15,SAVTLUSQ(,@15) 04S0884 01640000 STCM @15,7,QCBELCHN(RQCB) 04S0884 01641000 * QCBPRI=PRILUSQB;/* SET PRIORITY */ 01642000 MVI QCBPRI(RQCB),X'E2' 04S0885 01643000 * RPARM=RQCB;/* SET ELEMENT TO TPOST */ 01644000 LR RPARM,RQCB 04S0886 01645000 * SAVEQCB=RQCB;/* SAVE QCB ADDRESS */ 01646000 ST RQCB,SAVEQCB 04S0887 01647000 * CALL DSPPOSTR;/* TPOST THE ELEMENT */ 01648000 LA @15,DSPPOSTR(,RDISP) 04S0888 01649000 BALR @14,@15 04S0888 01650000 * RQCB=SAVEQCB;/* RESTORE QCB ADDRESS */ 01651000 L RQCB,SAVEQCB 04S0889 01652000 * END; 04S0890 01653000 * END; 03S0891 01654000 @RT00867 DS 0H 03S0892 01655000 * RFY 03S0892 01656000 * RSIB UNRSTD; 03S0892 01657000 @RC00863 DS 0H 03S0893 01658000 * END; 03S0893 01659000 * END; 03S0894 01660000 * ELSE /* NOT SNA RESOURCE */ 01661000 * IF TRMSPACT=OFF& /* IF SUPERIOR RESOURCE INACTIVE 01662000 * AND @ZM45390*/ 01663000 * QCBTSSES=OFF THEN /* NOT IN TSO SESSION THEN 03S0895 01664000 * @ZM45390*/ 01665000 B @RC00856 03S0895 01666000 @RF00856 TM TRMSPACT(RTRM),B'00010000' 03S0895 01667000 BNZ @RF00895 03S0895 01668000 TM QCBTSSES(RQCB),B'10000000' 03S0895 01669000 BNZ @RF00895 03S0895 01670000 * RSTATE=STEXIT; /* REQUEST EXIT */ 01671000 LA RSTATE,3 03S0896 01672000 * IF RSTATE^=STEXIT /* TEST INTERNAL STATE VALUE */ 01673000 * THEN /* EXIT IS NOT REQUESTED */ 01674000 @RF00895 DS 0H 03S0897 01675000 @RC00856 C RSTATE,@CF00073 03S0897 01676000 BE @RF00897 03S0897 01677000 * DO; 03S0898 01678000 * IF TRMSESSN=OFF& /* IF NOT IN SESSION AND @YM05685*/ 01679000 * (TRMTYPE=TRMCTERM|/* CTERM OR @YM05685*/ 01680000 * QCBSTPRI=QCBCALLN) THEN/* CALL IN ONLY TRM THEN 01681000 * @YM05685*/ 01682000 TM TRMSESSN(RTRM),B'01000000' 03S0899 01683000 BNZ @RF00899 03S0899 01684000 CLI TRMTYPE(RTRM),X'48' 03S0899 01685000 BE @RT00899 03S0899 01686000 CLI QCBSTPRI(RQCB),X'50' 03S0899 01687000 BNE @RF00899 03S0899 01688000 @RT00899 DS 0H 03S0900 01689000 * QCBSNDRQ=ON; /* INDICATE SS REQUESTED FOR 01690000 * LATER PLCB ASSIGNMENT @YM05685*/ 01691000 LR @15,RQCB 03S0900 01692000 AL @15,@CF02310 03S0900 01693000 OI QCBSNDRQ-4(@15),B'00100000' 03S0900 01694000 * ELSE 03S0901 01695000 * IF QCBPLCBN=ON THEN/* TEST FOR PLCB ALLOCATED */ 01696000 B @RC00899 03S0901 01697000 @RF00899 LR @15,RQCB 03S0901 01698000 SL @15,@CF00044 03S0901 01699000 TM QCBPLCBN(@15),B'10000000' 03S0901 01700000 BNO @RF00901 03S0901 01701000 * DO; /* PLCB IS ALLOCATED - INITIALIZE 01702000 * IT */ 01703000 * 04S0903 01704000 * /***********************************************/ 01705000 * /* */ 01706000 * /* LCBSCAN1.SCHPLCB.INITPLCB: INITIALIZE THE */ 01707000 * /* PLCB. */ 01708000 * /* */ 01709000 * /***********************************************/ 01710000 * 04S0903 01711000 * RLCB=QCBPLCBA;/* GET PLCB ADDRESS */ 01712000 L RLCB,QCBPLCBA-1(,@15) 04S0903 01713000 LA RLCB,0(,RLCB) 04S0903 01714000 * IF QCBTSSES=ON THEN/* TEST FOR TSO SESSION */ 01715000 TM QCBTSSES(RQCB),B'10000000' 04S0904 01716000 BNO @RF00904 04S0904 01717000 * DO; /* TSO SESSION */ 01718000 * RFY 04S0906 01719000 * RSELECT RSTD; 04S0906 01720000 * RSELECT=TSOA01;/* SELECT VALUE FOR QCB POST 01721000 * ENTRY TO IEDAYJ */ 01722000 LA RSELECT,1 04S0907 01723000 * CALL IEDAYJ;/* CALL IEDAYJ, TSO SCHEDULER */ 01724000 L @10,IEDTTPTR(,RAVT) 04S0908 01725000 L @15,TSIRNSCH(,@10) 04S0908 01726000 BALR @14,@15 04S0908 01727000 * RFY 04S0909 01728000 * RSELECT UNRSTD; 04S0909 01729000 * END; 04S0910 01730000 * ELSE /* ELSE INSERT SEND SCHEDULER IF 01731000 * NECESSARY */ 01732000 * DO; 04S0911 01733000 B @RC00904 04S0911 01734000 @RF00904 DS 0H 04S0912 01735000 * IF LCBSTCBA->STCBVTO=DSPSEND/* IS SEND 01736000 * SCHEDULER IN THE PLCB */ 01737000 * THEN 04S0912 01738000 L @15,LCBSTCBA-1(,RLCB) 04S0912 01739000 CLI STCBVTO(@15),X'22' 04S0912 01740000 BE @RT00912 04S0912 01741000 * ; /* YES, NO PROCESSING */ 01742000 * ELSE /* SEND SCHEDULER NOT IN THE PLCB*/ 01743000 * DO; 04S0914 01744000 * RSTCB=RLCB;/* SET PLCB AS THE RECIPIENT 01745000 * OF THE STCB - RQCB HAS ADDR OF 01746000 * QCB CONTAINING THE STCB NOW */ 01747000 LR RSTCB,RLCB 04S0915 01748000 * SAVEQCB=RQCB;/* SAVE QCB ADDRESS */ 01749000 ST RQCB,SAVEQCB 04S0916 01750000 * CALL DSPUNAVR;/* PUT SEND SCHEDULER 01751000 * INTO THE PLCB */ 01752000 LA @15,DSPUNAVR(,RDISP) 04S0917 01753000 BALR @14,@15 04S0917 01754000 * RQCB=SAVEQCB;/* RESTORE QCB ADDRESS */ 01755000 L RQCB,SAVEQCB 04S0918 01756000 * END; 04S0919 01757000 * END; 04S0920 01758000 @RT00912 DS 0H 04S0921 01759000 * IF LCBFREEN=ON THEN/* TEST FOR LINE FREE */ 01760000 @RC00904 TM LCBFREEN(RLCB),B'00000100' 04S0921 01761000 BNO @RF00921 04S0921 01762000 * DO; /* LINE IS FREE */ 01763000 * LCBFREEN=OFF;/* SET LINE NOT FREE */ 01764000 * LCBSENDN=ON;/* MARK LINE AS SENDING */ 01765000 OI LCBSENDN(RLCB),B'00000001' 04S0924 01766000 NI LCBFREEN(RLCB),B'11111011' 04S0924 01767000 * LCBQCBA=RLCB;/* QUEUE PLCB TO ITSELF */ 01768000 STCM RLCB,7,LCBQCBA(RLCB) 04S0925 01769000 * LCBPRI=PRILNFRE;/* SET PRIORITY */ 01770000 MVI LCBPRI(RLCB),X'E0' 04S0926 01771000 * RPARM=RLCB;/* MAKE PLCB THE ELEMENT TO 01772000 * TPOST */ 01773000 LR RPARM,RLCB 04S0927 01774000 * SAVEQCB=RQCB;/* SAVE QCB ADDRESS */ 01775000 ST RQCB,SAVEQCB 04S0928 01776000 * CALL DSPPOSTR;/* TPOST THE ELEMENT */ 01777000 LA @15,DSPPOSTR(,RDISP) 04S0929 01778000 BALR @14,@15 04S0929 01779000 * RQCB=SAVEQCB;/* RESTORE QCB ADDRESS */ 01780000 L RQCB,SAVEQCB 04S0930 01781000 * END; 04S0931 01782000 * END; 03S0932 01783000 * ELSE /* PLCB NOT ALLOCATED */ 01784000 * IF QCBDELAY=OFF /* TEST FOR QCB ON TIME DELAY */ 01785000 * THEN /* QCB NOT ON TIME DELAY */ 01786000 B @RC00901 03S0933 01787000 @RF00901 TM QCBDELAY(RQCB),B'00000010' 03S0933 01788000 BNZ @RF00933 03S0933 01789000 * DO; /* REQUEST A PLCB */ 01790000 * 04S0935 01791000 * /*********************************************/ 01792000 * /* */ 01793000 * /* LCBSCAN1.SCHPLCB.REQPLCB: REQUEST A PLCB. */ 01794000 * /* */ 01795000 * /*********************************************/ 01796000 * 04S0935 01797000 * IF QCBTSSES=ON THEN/* CHECK FOR TSO SESSION 01798000 * IN PROGRESS */ 01799000 TM QCBTSSES(RQCB),B'10000000' 04S0935 01800000 BNO @RF00935 04S0935 01801000 * DO; /* CALL IEDAYJ IF SO */ 01802000 * RFY 04S0937 01803000 * RSELECT RSTD; 04S0937 01804000 * RSELECT=TSOA01;/* SELECT VALUE FOR QCB 01805000 * POST TO IEDAYJ */ 01806000 LA RSELECT,1 04S0938 01807000 * CALL IEDAYJ;/* CALL IEDAYJ, TSO SCHEDULER*/ 01808000 L @10,IEDTTPTR(,RAVT) 04S0939 01809000 L @15,TSIRNSCH(,@10) 04S0939 01810000 BALR @14,@15 04S0939 01811000 * RFY 04S0940 01812000 * RSELECT UNRSTD; 04S0940 01813000 * END; 04S0941 01814000 * ELSE /* ELSE NORMAL SEND SCHEDULING */ 01815000 * DO; 04S0942 01816000 B @RC00935 04S0942 01817000 @RF00935 DS 0H 04S0943 01818000 * QCBSNDRQ=ON;/* REQUEST SEND SCHEDULER */ 01819000 LR @15,RQCB 04S0943 01820000 SL @15,@CF00044 04S0943 01821000 OI QCBSNDRQ(@15),B'00100000' 04S0943 01822000 * IF QCBRCVRQ=OFF THEN/* TEST FOR NEED TO 01823000 * REQUEST PLCB */ 01824000 TM QCBRCVRQ(@15),B'00010000' 04S0944 01825000 BNZ @RF00944 04S0944 01826000 * DO; /* NEED TO REQUEST PLCB */ 01827000 * IF TRMINOUT=ON&/* IS INVITE 04S0946 01828000 * OUTSTANDING ... @YM05724*/ 01829000 * TRMSNA=OFF THEN/* ... TO PRE-SNA 01830000 * RESOURCE @YM05724*/ 01831000 TM TRMINOUT(RTRM),B'00000001' 04S0946 01832000 BNO @RF00946 04S0946 01833000 TM TRMSNA(RTRM),B'00000010' 04S0946 01834000 BNZ @RF00946 04S0946 01835000 * CALL RESETRTN;/* YES, ISSUE RESET */ 01836000 BAL @14,RESETRTN 04S0947 01837000 * ELSE/* NO INVITE OUTSTANDING */ 01838000 * IF TRMRDOUT=ON&/* TEST FOR READ 01839000 * OUTSTANDING... @YM05724*/ 01840000 * TRMSNA=OFF THEN/* ... TO 04S0948 01841000 * PRE-SNA RESOURCE @YM05724*/ 01842000 B @RC00946 04S0948 01843000 @RF00946 TM TRMRDOUT(RTRM),B'00000010' 04S0948 01844000 BNO @RF00948 04S0948 01845000 TM TRMSNA(RTRM),B'00000010' 04S0948 01846000 BNZ @RF00948 04S0948 01847000 * DO;/* @YM06132*/ 01848000 * RBRANCH=TRMCHCIN-1;/* GET DCT 01849000 * INDEX @YM06132*/ 01850000 SLR RBRANCH,RBRANCH 04S0950 01851000 IC RBRANCH,TRMCHCIN(,RTRM) 04S0950 01852000 BCTR RBRANCH,0 04S0950 01853000 * RBRANCH=RBRANCH*AVTDCTLN;/* 01854000 * COMPUTE DCT ENTRY OFFSET 04S0951 01855000 * @YM06132*/ 01856000 LR @10,RBRANCH 04S0951 01857000 MH @10,AVTDCTLN(,RAVT) 04S0951 01858000 LR RBRANCH,@10 04S0951 01859000 * RBRANCH=RBRANCH+AVTCSTCS;/* GET 01860000 * DCT ENTRY ADDRESS @YM06132*/ 01861000 AL RBRANCH,AVTCSTCS(,RAVT) 04S0952 01862000 * IF RBRANCH->DCTSTCTL=ON&/* IS 01863000 * THIS A ... @YM06132*/ 01864000 * TRMDIAL=OFF THEN/* ... 04S0953 01865000 * POLLED TERMINAL */ 01866000 TM DCTSTCTL(RBRANCH),B'00010000' 04S0953 01867000 BNO @RF00953 04S0953 01868000 TM TRMDIAL(RTRM),B'00001000' 04S0953 01869000 BNZ @RF00953 04S0953 01870000 * TRMWTNEG=ON;/* YES, INDICATE 01871000 * WAITING FOR NEGATIVE POLL 01872000 * LIMIT */ 01873000 OI TRMWTNEG(RTRM),B'10000000' 04S0954 01874000 * ELSE/* NOT A POLLED TERMINAL */ 01875000 * CALL RESETRTN;/* ISSUE RESET */ 01876000 B @RC00953 04S0955 01877000 @RF00953 BAL @14,RESETRTN 04S0955 01878000 * END;/* @YM06132*/ 01879000 * ELSE/* NO READ OUTSTANDING */ 01880000 * IF TRMCONT=OFF THEN/* DO NOT 01881000 * REQUEST PLCB IF CONTACT 04S0957 01882000 * OUTSTANDING */ 01883000 B @RC00948 04S0957 01884000 @RF00948 TM TRMCONT(RTRM),B'10000000' 04S0957 01885000 BNZ @RF00957 04S0957 01886000 * CALL CALLIAP;/* REQUEST A PLCB */ 01887000 BAL @14,CALLIAP 04S0958 01888000 * END; 04S0959 01889000 @RF00957 DS 0H 04S0959 01890000 @RC00948 DS 0H 04S0959 01891000 @RC00946 DS 0H 04S0960 01892000 * END; 04S0960 01893000 @RF00944 DS 0H 04S0961 01894000 * END; 03S0961 01895000 @RC00935 DS 0H 03S0962 01896000 * END; 03S0962 01897000 @RF00933 DS 0H 03S0962 01898000 @RC00901 DS 0H 03S0962 01899000 @RC00899 DS 0H 03S0963 01900000 * IF RSTATE=STFRELCB THEN /* IF TSO REQUESTS PLCB 03S0963 01901000 * DEALLOCATION */ 01902000 @RF00897 C RSTATE,@CF00044 03S0963 01903000 BNE @RF00963 03S0963 01904000 * DO; /* SET UP TO FREE PLCB AND EXIT */ 01905000 * RPARM=RLCB; /* PARAMETER LIST FOR IEDIAP07 01906000 * @YM04668*/ 01907000 LR RPARM,RLCB 03S0965 01908000 * CALL IEDIAP07; /* ACCESS PLCB DEALLOCATION 03S0966 01909000 * ROUTINE */ 01910000 L @10,AVTSAVTP(,RAVT) 03S0966 01911000 L @15,SAVTPRTN(,@10) 03S0966 01912000 BALR @14,@15 03S0966 01913000 * END; 03S0967 01914000 * END; 03S0968 01915000 * END; 02S0969 01916000 * END LCBSCAN1; 02S0970 01917000 @EL00006 DS 0H 02S0970 01918000 @EF00006 DS 0H 02S0970 01919000 @ER00006 L @14,@SA00006 02S0970 01920000 BR @14 02S0970 01921000 * 02S0971 01922000 * /*****************************************************************/ 01923000 * /* */ 01924000 * /* RESETRTN: IF A RESET IS NOT ALREADY IN PROGRESS THEN GET A */ 01925000 * /* BUFFER FROM BUFFER STEAL AND REQUEST THAT A RESET PIU BE SENT.*/ 01926000 * /* IF A BUFFER IS NOT AVAILABLE, THEN CALL SUBROUTINE CALLIAP. */ 01927000 * /* */ 01928000 * /*****************************************************************/ 01929000 * 02S0971 01930000 *RESETRTN: 02S0971 01931000 * PROC OPTIONS(RETREG,SAVE(14)); 02S0971 01932000 RESETRTN ST @14,@SA00007 02S0971 01933000 * RFY 02S0972 01934000 * (RUNIT, 02S0972 01935000 * RBRANCH) RSTD; 02S0972 01936000 * IF TRMASNXI=OFF THEN /* IF RESET NOT ALREADY IN 02S0973 01937000 * PROGRESS ... */ 01938000 TM TRMASNXI(RTRM),B'00010000' 02S0973 01939000 BNZ @RF00973 02S0973 01940000 * DO; /* ... BUILD AND SEND RESET */ 01941000 * RUNIT=BFRSUNIT; /* SET NUMBER OF UNITS PER BUFFER*/ 01942000 LA @10,1 02S0975 01943000 LR RUNIT,@10 02S0975 01944000 * RPARM=BFRSBFRS; /* SET NUMBER OF BUFFERS 02S0976 01945000 * REQUESTED */ 01946000 LR RPARM,@10 02S0976 01947000 * CALL IEDQGA02; /* CALL BUFFER STEAL MODULE */ 01948000 L @15,AVTSTEAL(,RAVT) 02S0977 01949000 BALR @14,@15 02S0977 01950000 * IF RBRANCH^=0 THEN /* TEST FOR BUFFER AVAILABLE */ 01951000 LTR RBRANCH,RBRANCH 02S0978 01952000 BZ @RF00978 02S0978 01953000 * DO; /* BUFFER WAS AVAILABLE */ 01954000 * RPRF=RBRANCH; /* SAVE BUFFER ADDRESS */ 01955000 LR RPRF,RBRANCH 02S0980 01956000 * CALL BLDRESET; /* YES, ISSUE RESET */ 01957000 BAL @14,BLDRESET 02S0981 01958000 * TRMASNXI=ON; /* INDICATE RESET IN PROGRESS */ 01959000 OI TRMASNXI(RTRM),B'00010000' 02S0982 01960000 * END; 02S0983 01961000 * ELSE /* BUFFER NOT AVAILABLE */ 01962000 * CALL CALLIAP; /* REQUEST A PLCB */ 01963000 B @RC00978 02S0984 01964000 @RF00978 BAL @14,CALLIAP 02S0984 01965000 * END; 02S0985 01966000 * RFY 02S0986 01967000 * (RUNIT, 02S0986 01968000 * RBRANCH) UNRSTD; 02S0986 01969000 * END RESETRTN; 02S0987 01970000 @EL00007 DS 0H 02S0987 01971000 @EF00007 DS 0H 02S0987 01972000 @ER00007 L @14,@SA00007 02S0987 01973000 BR @14 02S0987 01974000 * 02S0988 01975000 * /*****************************************************************/ 01976000 * /* */ 01977000 * /* RMVSCHED: REMOVE THE SEND SCHEDULER FROM THE PLCB AND INSERT */ 01978000 * /* BY PRIORITY INTO THE DESTINATION QCB. */ 01979000 * /* */ 01980000 * /*****************************************************************/ 01981000 * 02S0988 01982000 *RMVSCHED: 02S0988 01983000 * PROC OPTIONS(RETREG,SAVE(14)); 02S0988 01984000 RMVSCHED ST @14,@SA00008 02S0988 01985000 * RSTCB=RQCB; /* DESTINATION QCB IS TO CONTAIN 01986000 * THE SEND SCHEDULER STCB */ 01987000 LR RSTCB,RQCB 02S0989 01988000 * SAVEQCB=RQCB; /* SAVE QCB ADDRESS */ 01989000 ST RQCB,SAVEQCB 02S0990 01990000 * RQCB=RLCB; /* PLCB CONTAINS THE SEND 02S0991 01991000 * SCHEDULER NOW */ 01992000 LR RQCB,RLCB 02S0991 01993000 * CALL DSPUNAVR; /* MOVE SEND SCHEDULER STCB FROM 01994000 * PLCB TO THE DESTINATION QCB */ 01995000 LA @15,DSPUNAVR(,RDISP) 02S0992 01996000 BALR @14,@15 02S0992 01997000 * RQCB=SAVEQCB; /* RESTORE QCB ADDRESS */ 01998000 L RQCB,SAVEQCB 02S0993 01999000 * RSTATE=STBYPAS; /* REQUEST BYPASS */ 02000000 LA RSTATE,1 02S0994 02001000 * END RMVSCHED; 02S0995 02002000 @EL00008 DS 0H 02S0995 02003000 @EF00008 DS 0H 02S0995 02004000 @ER00008 L @14,@SA00008 02S0995 02005000 BR @14 02S0995 02006000 * END IEDIAQ 01S0996 02007000 * 01S0996 02008000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 02009000 */*%INCLUDE SYSLIB (TAVTD ) */ 02010000 */*%INCLUDE SYSLIB (TBDUD ) */ 02011000 */*%INCLUDE SYSLIB (TCD0D ) */ 02012000 */*%INCLUDE SYSLIB (TDCTD ) */ 02013000 */*%INCLUDE SYSLIB (TDISPD ) */ 02014000 */*%INCLUDE SYSLIB (TLCBD ) */ 02015000 */*%INCLUDE SYSLIB (TLGBD ) */ 02016000 */*%INCLUDE SYSLIB (TPRFD ) */ 02017000 */*%INCLUDE SYSLIB (TPRIOR ) */ 02018000 */*%INCLUDE SYSLIB (TQCBD ) */ 02019000 */*%INCLUDE SYSLIB (TRECBD ) */ 02020000 */*%INCLUDE SYSLIB (TSCBD ) */ 02021000 */*%INCLUDE SYSLIB (TSIBD ) */ 02022000 */*%INCLUDE SYSLIB (TSTCBD ) */ 02023000 */*%INCLUDE SYSLIB (TTNTD ) */ 02024000 */*%INCLUDE SYSLIB (TRHD ) */ 02025000 */*%INCLUDE SYSLIB (TTRMD ) */ 02026000 */*%INCLUDE SYSLIB (TTSID ) */ 02027000 */*%INCLUDE SYSLIB (TSOECDD ) */ 02028000 */*%INCLUDE SYSLIB (TTHD ) */ 02029000 */*%INCLUDE SYSUT5 (RFY ) */ 02030000 */*%INCLUDE SYSUT5 (DCL ) */ 02031000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 02032000 */*%INCLUDE SYSUT5 (PROCESS ) */ 02033000 */*%INCLUDE SYSUT5 (SENDSCH ) */ 02034000 */*%INCLUDE SYSUT5 (SETUP ) */ 02035000 */*%INCLUDE SYSUT5 (CHKLOCK ) */ 02036000 */*%INCLUDE SYSUT5 (CHKBYPAS) */ 02037000 */*%INCLUDE SYSUT5 (CHKRESET) */ 02038000 */*%INCLUDE SYSUT5 (CHKTSO ) */ 02039000 */*%INCLUDE SYSUT5 (CHKSEND ) */ 02040000 */*%INCLUDE SYSUT5 (SCHED ) */ 02041000 */*%INCLUDE SYSUT5 (SCANLOOP) */ 02042000 */*%INCLUDE SYSUT5 (INITMODE) */ 02043000 */*%INCLUDE SYSUT5 (CHKERLCK) */ 02044000 */*%INCLUDE SYSUT5 (DISKREAD) */ 02045000 */*%INCLUDE SYSUT5 (ANALYSIS) */ 02046000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 02047000 */*%INCLUDE SYSUT5 (BLDRESET) */ 02048000 */*%INCLUDE SYSUT5 (CALLIAP ) */ 02049000 */*%INCLUDE SYSUT5 (GETBFR ) */ 02050000 */*%INCLUDE SYSUT5 (LCBSCAN ) */ 02051000 */*%INCLUDE SYSUT5 (LCBSCAN1) */ 02052000 */*%INCLUDE SYSUT5 (SCHPLCB ) */ 02053000 */*%INCLUDE SYSUT5 (REQSESS ) */ 02054000 */*%INCLUDE SYSUT5 (INITPLCB) */ 02055000 */*%INCLUDE SYSUT5 (REQPLCB ) */ 02056000 */*%INCLUDE SYSUT5 (RESETRTN) */ 02057000 */*%INCLUDE SYSUT5 (RMVSCHED) */ 02058000 * 01S0996 02059000 * ; 01S0996 02060000 @DATA DS 0H 02061000 DS 0F 02062000 @SA00006 DS 1F 02063000 @SA00004 DS 1F 02064000 @SA00002 DS 1F 02065000 @SA00008 DS 1F 02066000 @SA00003 DS 1F 02067000 @SA00007 DS 1F 02068000 DS 0F 02069000 @CF00060 DC F'1' 02070000 @CF00064 DC F'2' 02071000 @CF00073 DC F'3' 02072000 @CF00255 DC F'4' 02073000 @CF00162 DC F'5' 02074000 @CF00581 DC F'7' 02075000 @CF00044 DC F'8' 02076000 @CF00244 DC F'12' 02077000 @CF01880 DC F'14' 02078000 @CF00174 DC F'16' 02079000 @CF01549 DC F'28' 02080000 @CF02309 DC F'-8' 02081000 @CF02310 DC F'-4' 02082000 @CF02212 DC XL4'00FFFFFC' 02083000 @CF02297 DC XL4'0000FFFF' 02084000 DS 0D 02085000 SAVEQCB DS A 02086000 RETADDR DS A 02087000 BASADDR DS A 02088000 SAVERPRF DS A 02089000 SAVREG DS A 02090000 @CB02301 DC B'111111111111111111111111111111011111111111111111111111C02091000 11' 02092000 @CB02313 DC B'000000000000000000000000000010000000000000000000000000C02093000 00' 02094000 SAVSTAT1 DS BL1 02095000 ORG SAVSTAT1 02096000 SAVRCLLN DS BL1 02097000 SAVCTLMD EQU SAVSTAT1+0 02098000 SAVOCNI EQU SAVSTAT1+0 02099000 SAVINITN EQU SAVSTAT1+0 02100000 SAVCONT EQU SAVSTAT1+0 02101000 SAVFREEN EQU SAVSTAT1+0 02102000 SAVRECVN EQU SAVSTAT1+0 02103000 SAVSENDN EQU SAVSTAT1+0 02104000 ORG SAVSTAT1+1 02105000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02106000 @01 EQU 01 02107000 @02 EQU 02 02108000 @03 EQU 03 02109000 @04 EQU 04 02110000 @05 EQU 05 02111000 @06 EQU 06 02112000 @07 EQU 07 02113000 @08 EQU 08 02114000 @09 EQU 09 02115000 @10 EQU 10 02116000 @11 EQU 11 02117000 @12 EQU 12 02118000 @13 EQU 13 02119000 @14 EQU 14 02120000 @15 EQU 15 02121000 IEDQAPTR EQU @13 02122000 RDISP EQU @11 02123000 IEDQLPTR EQU @04 02124000 LCBXPTR EQU @05 02125000 IEDQPPTR EQU @06 02126000 IEDQQPTR EQU @07 02127000 IEDQSPTR EQU @03 02128000 RTRM EQU @08 02129000 RAVT EQU @13 02130000 RLCB EQU @04 02131000 RPRF EQU @06 02132000 RQCB EQU @07 02133000 RSCB EQU @03 02134000 RSIB EQU @05 02135000 RUNIT EQU @00 02136000 RSELECT EQU @00 02137000 RPARM EQU @01 02138000 RSTATE EQU @02 02139000 RSTCB EQU @03 02140000 RCOUNT EQU @09 02141000 RBASE EQU @12 02142000 RRETURN EQU @14 02143000 RBRANCH EQU @15 02144000 RRETCODE EQU @15 02145000 IEDQAVTD EQU 0 02146000 AVTSAVEX EQU IEDQAVTD+216 02147000 AVTCSTCS EQU IEDQAVTD+256 02148000 AVTREADD EQU IEDQAVTD+308 02149000 AVTBUFSW EQU IEDQAVTD+312 02150000 @NM00004 EQU IEDQAVTD+316 02151000 AVTCKFLG EQU @NM00004 02152000 AVTBASE EQU IEDQAVTD+340 02153000 AVTPKF EQU AVTBASE 02154000 AVTRNMPT EQU IEDQAVTD+352 02155000 AVTOSECB EQU IEDQAVTD+420 02156000 AVTECB1 EQU AVTOSECB 02157000 AVTHG02 EQU IEDQAVTD+456 02158000 AVTDISP EQU IEDQAVTD+480 02159000 AVTHD EQU IEDQAVTD+484 02160000 AVTSCOPT EQU AVTHD 02161000 AVTSEND EQU IEDQAVTD+524 02162000 AVTSAVTP EQU IEDQAVTD+540 02163000 AVTSAVTF EQU AVTSAVTP 02164000 AVTCKPEL EQU IEDQAVTD+580 02165000 AVTCKRMV EQU AVTCKPEL 02166000 AVTCKELF EQU IEDQAVTD+608 02167000 AVTCKBYT EQU IEDQAVTD+619 02168000 AVTHG01 EQU IEDQAVTD+620 02169000 AVTCKLNK EQU IEDQAVTD+624 02170000 AVTCRELE EQU IEDQAVTD+636 02171000 AVTCCELE EQU AVTCRELE 02172000 AVTCLRHI EQU IEDQAVTD+644 02173000 AVTADBUF EQU IEDQAVTD+648 02174000 AVTSYSER EQU IEDQAVTD+656 02175000 AVTTSOPT EQU IEDQAVTD+668 02176000 AVTBFREB EQU IEDQAVTD+708 02177000 AVTBFRFG EQU IEDQAVTD+712 02178000 AVTBFRTB EQU IEDQAVTD+720 02179000 AVTCKPQB EQU IEDQAVTD+732 02180000 AVTCKPTB EQU AVTCKPQB 02181000 AVTCKPEC EQU AVTCKPQB+4 02182000 AVTCKPCC EQU AVTCKPEC 02183000 AVTOPCQB EQU IEDQAVTD+744 02184000 AVTOPCOB EQU AVTOPCQB 02185000 AVTOPCEC EQU AVTOPCQB+4 02186000 AVTOPCCC EQU AVTOPCEC 02187000 AVTOLTQB EQU IEDQAVTD+756 02188000 AVTDSIOB EQU IEDQAVTD+804 02189000 AVTCWFL1 EQU IEDQAVTD+852 02190000 AVTCWFL2 EQU IEDQAVTD+853 02191000 AVTSUBT EQU IEDQAVTD+876 02192000 AVTIOTR EQU IEDQAVTD+877 02193000 AVTBIT1 EQU IEDQAVTD+978 02194000 AVTTSON EQU AVTBIT1 02195000 AVTCLOSN EQU AVTBIT1 02196000 AVTQUCKN EQU AVTBIT1 02197000 AVTBIT2 EQU IEDQAVTD+979 02198000 AVTBIT3 EQU IEDQAVTD+980 02199000 AVTSTEAL EQU IEDQAVTD+988 02200000 AVTDCTLN EQU IEDQAVTD+1000 02201000 AVTBIT4 EQU IEDQAVTD+1064 02202000 @NM00086 EQU IEDQAVTD+1160 02203000 IEDNSVTD EQU 0 02204000 SAVTDIAG EQU IEDNSVTD 02205000 SAVTDIAF EQU SAVTDIAG 02206000 SAVTPREQ EQU IEDNSVTD+16 02207000 SAVTPRTN EQU IEDNSVTD+32 02208000 SAVTCNIR EQU IEDNSVTD+56 02209000 SAVTLUSQ EQU IEDNSVTD+88 02210000 SAVTSAO EQU IEDNSVTD+196 02211000 SAVTTCPU EQU IEDNSVTD+238 02212000 SAVTSCPT EQU SAVTTCPU 02213000 SAVTZELM EQU IEDNSVTD+270 02214000 SAVTRDRV EQU IEDNSVTD+284 02215000 SAVTCKQB EQU IEDNSVTD+300 02216000 SAVTCKTB EQU SAVTCKQB 02217000 SAVTCKEC EQU SAVTCKQB+4 02218000 SAVTCKCC EQU SAVTCKEC 02219000 IEDBDU EQU 0 02220000 BDUCMND EQU IEDBDU 02221000 BDUMODIF EQU IEDBDU+1 02222000 BDUFNFLG EQU IEDBDU+2 02223000 BDUBDUFG EQU IEDBDU+3 02224000 BDURSP EQU IEDBDU+4 02225000 BDUSYRSP EQU BDURSP 02226000 BDUEXRSP EQU BDURSP+1 02227000 BDUEND EQU IEDBDU+6 02228000 IEDDCT EQU 0 02229000 DCTBYTE1 EQU IEDDCT+1 02230000 DCTBYTE2 EQU IEDDCT+2 02231000 DCTSTCTL EQU DCTBYTE2 02232000 DCTBYTE3 EQU IEDDCT+3 02233000 DCTBYTE4 EQU IEDDCT+4 02234000 DCTBYTE5 EQU IEDDCT+5 02235000 IEDQDISP EQU 0 02236000 DSPDISP EQU 4 02237000 DSPBYPAS EQU 20 02238000 DSPPOST EQU 24 02239000 DSPPOSTR EQU 28 02240000 DSPUNAVR EQU 44 02241000 IEDQLCB EQU 0 02242000 LCBRCB EQU IEDQLCB 02243000 LCBQCBA EQU LCBRCB+1 02244000 LCBPRI EQU LCBRCB+4 02245000 LCBRSKEY EQU IEDQLCB+8 02246000 LCBSTCBA EQU IEDQLCB+9 02247000 LCBTSOB EQU IEDQLCB+19 02248000 LCBCHAIN EQU IEDQLCB+20 02249000 LCBSCRNN EQU LCBCHAIN 02250000 LCBTETEN EQU LCBCHAIN 02251000 LCBCTLMD EQU LCBTETEN 02252000 LCBINSRC EQU IEDQLCB+21 02253000 LCBLKMDE EQU LCBINSRC+2 02254000 LCBNTXT EQU IEDQLCB+24 02255000 LCBSTAT4 EQU LCBNTXT 02256000 LCBPHASE EQU LCBSTAT4 02257000 LCBSCBDA EQU IEDQLCB+25 02258000 LCBMHA EQU IEDQLCB+29 02259000 LCBFLAG1 EQU IEDQLCB+32 02260000 LCBIOBSN EQU IEDQLCB+33 02261000 LCBSNS EQU LCBIOBSN+1 02262000 LCBSENS0 EQU LCBSNS 02263000 LCBLOSDT EQU LCBSENS0 02264000 LCBTMOUT EQU LCBSENS0 02265000 LCBFLAG3 EQU LCBIOBSN+7 02266000 LCBCSW EQU LCBIOBSN+8 02267000 LCBCSWST EQU LCBCSW+3 02268000 LCBCSWUS EQU LCBCSWST 02269000 LCBCSWCS EQU LCBCSWST+1 02270000 LCBSIOCC EQU LCBIOBSN+15 02271000 LCBDCBPT EQU IEDQLCB+52 02272000 LCBRCQCB EQU IEDQLCB+56 02273000 LCBRESTR EQU LCBRCQCB 02274000 LCBTHSQ EQU IEDQLCB+60 02275000 LCBINCAM EQU LCBTHSQ 02276000 LCBERRCT EQU IEDQLCB+62 02277000 LCBLSPCI EQU IEDQLCB+65 02278000 LCBRCBFR EQU LCBLSPCI 02279000 LCBRECOF EQU IEDQLCB+68 02280000 LCBSTATE EQU IEDQLCB+70 02281000 LCBSTAT1 EQU LCBSTATE 02282000 LCBRCLLN EQU LCBSTAT1 02283000 LCBOCNI EQU LCBSTAT1 02284000 LCBINITN EQU LCBSTAT1 02285000 LCBCONT EQU LCBSTAT1 02286000 LCBFREEN EQU LCBSTAT1 02287000 LCBRECVN EQU LCBSTAT1 02288000 LCBSENDN EQU LCBSTAT1 02289000 LCBSTAT2 EQU LCBSTATE+1 02290000 LCBBEOTN EQU LCBSTAT2 02291000 LCBSNDPR EQU LCBSTAT2 02292000 LCBNEGRP EQU LCBSTAT2 02293000 LCBSYNC EQU LCBSTAT2 02294000 LCBDIAL EQU LCBSTAT2 02295000 LCBRESP EQU LCBSTAT2 02296000 LCBTSTSW EQU IEDQLCB+72 02297000 LCBRECAD EQU IEDQLCB+73 02298000 LCBERB EQU IEDQLCB+76 02299000 LCBERBQB EQU LCBERB+1 02300000 LCBERBPY EQU IEDQLCB+80 02301000 LCBERBST EQU IEDQLCB+84 02302000 LCBPRCPG EQU LCBERBST 02303000 LCBDLNKN EQU LCBERBST 02304000 LCBERBCH EQU IEDQLCB+85 02305000 LCBERBCT EQU IEDQLCB+88 02306000 LCBRBCT1 EQU LCBERBCT 02307000 LCBRBCT2 EQU LCBERBCT+1 02308000 LCBTTCIN EQU IEDQLCB+90 02309000 LCBMSGFM EQU IEDQLCB+92 02310000 LCBSCBA EQU IEDQLCB+93 02311000 LCBOBRCH EQU IEDQLCB+96 02312000 LCBINVPT EQU LCBOBRCH+1 02313000 LCBBFRW EQU LCBINVPT 02314000 LCBTPCD EQU IEDQLCB+100 02315000 LCBSTAT5 EQU LCBTPCD 02316000 LCBSTAT6 EQU LCBTPCD+4 02317000 LCBRTRRO EQU LCBSTAT6 02318000 LCBWAITC EQU LCBTPCD+5 02319000 LCBRSPSV EQU LCBTPCD+8 02320000 LCBSAVSN EQU IEDQLCB+112 02321000 LCBERCCW EQU IEDQLCB+120 02322000 LCBCPA EQU IEDQLCB+144 02323000 LCBCCW5 EQU LCBCPA+32 02324000 LCBATTEL EQU LCBCCW5 02325000 LCBQEBPL EQU LCBATTEL 02326000 IEDQLCBX EQU 0 02327000 LCBXCON EQU IEDQLCBX 02328000 LCBXFLAG EQU LCBXCON 02329000 LCBXDCT EQU LCBXCON+1 02330000 LCBXRADR EQU LCBXCON+4 02331000 IEDNLGB EQU 0 02332000 LGBBUFOU EQU IEDNLGB+20 02333000 LGBPCI EQU IEDNLGB+25 02334000 LGBBYTE EQU IEDNLGB+29 02335000 LGBOPACE EQU IEDNLGB+30 02336000 LGBOFLGS EQU IEDNLGB+48 02337000 LGBRESER EQU IEDNLGB+56 02338000 IEDQPRF EQU 0 02339000 PRFRCB EQU IEDQPRF 02340000 PRFKEY EQU PRFRCB 02341000 PRFQCBA EQU PRFRCB+1 02342000 PRFPRI EQU PRFRCB+4 02343000 PRFLINK EQU PRFRCB+5 02344000 PRFTIC EQU IEDQPRF+8 02345000 PRFTICC EQU PRFTIC 02346000 PRFTICON EQU PRFTICC 02347000 PRFNBUNT EQU IEDQPRF+12 02348000 PRFSUNIT EQU PRFNBUNT 02349000 PRFPLQCB EQU PRFSUNIT 02350000 PRFPIUO EQU PRFPLQCB 02351000 PRFLCB EQU IEDQPRF+13 02352000 @NM00172 EQU IEDQPRF+16 02353000 PRFSVFFO EQU @NM00172 02354000 PRFSTAT1 EQU IEDQPRF+20 02355000 PRFEOFN EQU PRFSTAT1 02356000 PRFCORE EQU IEDQPRF+21 02357000 PRFXTRA EQU PRFCORE 02358000 PRFSCAN EQU IEDQPRF+24 02359000 PRFTQBCK EQU IEDQPRF+26 02360000 PRFNTXT EQU PRFTQBCK 02361000 PRFEOBOF EQU PRFNTXT 02362000 PRFCHDR EQU IEDQPRF+32 02363000 PRFHQBCK EQU IEDQPRF+35 02364000 PRFDEST EQU IEDQPRF+40 02365000 IEDPF1 EQU 0 02366000 PRF1FLG1 EQU IEDPF1+3 02367000 PRF1WD2 EQU IEDPF1+4 02368000 PRF1SEQP EQU PRF1WD2 02369000 PRF1SQID EQU PRF1SEQP 02370000 PRF1TAG1 EQU PRF1SQID 02371000 IEDPF2 EQU 0 02372000 PRF2FLG2 EQU IEDPF2 02373000 PRF2TNTI EQU PRF2FLG2 02374000 PRF2WD2 EQU IEDPF2+4 02375000 IEDQQCB EQU 0 02376000 QCBDSFLG EQU IEDQQCB 02377000 QCBTSQ EQU QCBDSFLG 02378000 QCBCORE EQU QCBDSFLG 02379000 QCBDISK EQU QCBDSFLG 02380000 QCBNREUS EQU QCBDISK 02381000 QCBREUS EQU QCBDISK 02382000 QCBHELD EQU QCBDSFLG 02383000 QCBELCHN EQU IEDQQCB+1 02384000 QCBPRI EQU IEDQQCB+4 02385000 QCBSTVTO EQU IEDQQCB+8 02386000 QCBSTCHN EQU IEDQQCB+9 02387000 QCBSTPRI EQU IEDQQCB+12 02388000 QCBSLINK EQU IEDQQCB+13 02389000 QCBEOLDT EQU IEDQQCB+16 02390000 QCBBYTE1 EQU QCBEOLDT+1 02391000 QCBLKRLN EQU IEDQQCB+18 02392000 QCBRETCT EQU QCBLKRLN 02393000 QCBSTAT EQU IEDQQCB+19 02394000 QCBTRMHO EQU QCBSTAT 02395000 QCBSCHDL EQU QCBSTAT 02396000 QCBINSRC EQU IEDQQCB+21 02397000 @NM00182 EQU QCBINSRC 02398000 QCBTSOF2 EQU @NM00182+1 02399000 QCBPOSTO EQU QCBTSOF2 02400000 QCBTSOF1 EQU @NM00182+2 02401000 QCBDELAY EQU QCBTSOF1 02402000 QCBDISC EQU QCBTSOF1 02403000 QCBINTVL EQU IEDQQCB+24 02404000 QCBPREN EQU IEDQQCB+28 02405000 QCBPRLVL EQU QCBPREN 02406000 QCBLKRRN EQU QCBPREN+1 02407000 QCBDCBAD EQU IEDQQCB+33 02408000 QCBFLAG EQU IEDQQCB+36 02409000 QCBTSSES EQU QCBFLAG 02410000 QCBSDFFO EQU QCBFLAG 02411000 IEDQPQCB EQU 0 02412000 QCBFHDLZ EQU IEDQPQCB+3 02413000 QCBPFEFO EQU QCBFHDLZ+1 02414000 QCBFHDTZ EQU IEDQPQCB+6 02415000 QCBINTLF EQU IEDQPQCB+12 02416000 QCBFFEFO EQU IEDQPQCB+15 02417000 QCBPRIPQ EQU IEDQPQCB+24 02418000 IEDNQCB EQU 0 02419000 QCBSTAT1 EQU IEDNQCB+4 02420000 QCBPLCBN EQU QCBSTAT1 02421000 QCBWAITC EQU QCBSTAT1 02422000 QCBSNDRQ EQU QCBSTAT1 02423000 QCBRCVRQ EQU QCBSTAT1 02424000 QCBPLCBA EQU IEDNQCB+5 02425000 QCBTTCIN EQU QCBPLCBA+1 02426000 IEDQRECB EQU 0 02427000 IEDQSCB EQU 0 02428000 SCBSTATE EQU IEDQSCB 02429000 SCBSEQIN EQU SCBSTATE 02430000 SCBLCK1N EQU SCBSTATE 02431000 SCBMSGLN EQU SCBSTATE 02432000 SCBDESTQ EQU IEDQSCB+1 02433000 SCBRCVCT EQU IEDQSCB+4 02434000 SCBMBHEN EQU IEDQSCB+5 02435000 SCBPRI EQU IEDQSCB+8 02436000 SCBBKFCT EQU IEDQSCB+9 02437000 SCBEOBSZ EQU SCBBKFCT+1 02438000 SCBSALEV EQU IEDQSCB+12 02439000 SCBQTYPE EQU SCBSALEV 02440000 SCBBFMM EQU SCBQTYPE 02441000 SCBERRST EQU IEDQSCB+16 02442000 SCBERR1 EQU SCBERRST 02443000 SCBHDRRN EQU SCBERR1 02444000 SCBORIGN EQU SCBERR1 02445000 SCBNOTRM EQU SCBERR1 02446000 SCBSEQHN EQU SCBERR1 02447000 SCBSEQLN EQU SCBERR1 02448000 SCBCUTFN EQU SCBERR1 02449000 SCBERR2 EQU SCBERRST+1 02450000 SCBABRTN EQU SCBERR2 02451000 SCBERR3 EQU SCBERRST+2 02452000 SCBLOSTN EQU SCBERR3 02453000 SCBTMIDN EQU SCBERR3 02454000 SCBFORMN EQU SCBERR3 02455000 SCBATTN EQU SCBERR3 02456000 SCBXCEPN EQU SCBERR3 02457000 SCBERR4 EQU SCBERRST+3 02458000 SCBTXTTN EQU SCBERR4 02459000 SCBCTLUN EQU SCBERR4 02460000 SCBCHANN EQU SCBERR4 02461000 SCBDLPTR EQU IEDQSCB+22 02462000 SCBEOBAC EQU SCBDLPTR 02463000 SCBCTBAC EQU SCBEOBAC 02464000 SCBBSCFM EQU IEDQSCB+24 02465000 SCBDATEN EQU SCBBSCFM 02466000 SCBMLMTN EQU SCBBSCFM 02467000 SCBDCHDR EQU IEDQSCB+33 02468000 SCBCCHDR EQU IEDQSCB+37 02469000 SCBITBSZ EQU IEDQSCB+40 02470000 SCBCTBSV EQU SCBITBSZ 02471000 SCBDNSEG EQU IEDQSCB+41 02472000 SCBSCSEG EQU SCBDNSEG 02473000 SCBCLSEG EQU IEDQSCB+45 02474000 SCBSCHDR EQU SCBCLSEG 02475000 SCBITBAC EQU IEDQSCB+48 02476000 SCBCTBFL EQU SCBITBAC 02477000 SCBBLKCT EQU SCBCTBFL 02478000 SCBDCSEG EQU IEDQSCB+49 02479000 SCBFEFO EQU SCBDCSEG 02480000 SCBSTAT1 EQU IEDQSCB+60 02481000 SCBCORE EQU IEDQSCB+61 02482000 SCBSCAN EQU IEDQSCB+64 02483000 SCBNTXT EQU IEDQSCB+66 02484000 SCBCHDR EQU IEDQSCB+72 02485000 SCBCCSEG EQU IEDQSCB+75 02486000 SCBUNTCT EQU IEDQSCB+80 02487000 SCBEND EQU IEDQSCB+84 02488000 IEDSIBD EQU 0 02489000 SIBCHAIN EQU IEDSIBD+4 02490000 SIBINDEX EQU IEDSIBD+8 02491000 SIBSESSN EQU IEDSIBD+10 02492000 SIBLGOFF EQU SIBSESSN 02493000 SIBSSTAT EQU SIBSESSN 02494000 SIBDSTAT EQU SIBSESSN 02495000 SIBPACIN EQU IEDSIBD+11 02496000 SIBSEQN EQU IEDSIBD+12 02497000 SIBSTAT1 EQU IEDSIBD+16 02498000 SIBSTAT2 EQU IEDSIBD+17 02499000 SIBBIND EQU IEDSIBD+20 02500000 SIBBIND1 EQU SIBBIND 02501000 SIBBIND2 EQU SIBBIND+1 02502000 SIBBIND3 EQU SIBBIND+2 02503000 SIBSTAT0 EQU IEDSIBD+23 02504000 IEDQSTCB EQU 0 02505000 STCBVTO EQU IEDQSTCB 02506000 IEDQTNTD EQU 0 02507000 IEDQTCDE EQU IEDQTNTD 02508000 IEDQTDCE EQU IEDQTNTD+46 02509000 IEDTNTA EQU 0 02510000 IEDRH EQU 0 02511000 TRHBYTE0 EQU IEDRH 02512000 TRHFI EQU TRHBYTE0 02513000 TRHBC EQU TRHBYTE0 02514000 TRHEC EQU TRHBYTE0 02515000 TRHBYTE1 EQU IEDRH+1 02516000 TRHDR1 EQU TRHBYTE1 02517000 TRHBYTE2 EQU IEDRH+2 02518000 IEDTRM EQU 0 02519000 IEDNTRM EQU IEDTRM 02520000 TRMBYTE4 EQU IEDNTRM 02521000 TRMBYTE3 EQU IEDNTRM+1 02522000 TRMBYTE2 EQU IEDNTRM+2 02523000 TRMRSACT EQU TRMBYTE2 02524000 TRMINPG EQU TRMBYTE2 02525000 TRMCLOSN EQU TRMINPG 02526000 TRMNOSND EQU TRMBYTE2 02527000 TRMBYTE1 EQU IEDNTRM+3 02528000 TRMSCPRQ EQU TRMBYTE1 02529000 TRMWTNEG EQU TRMSCPRQ 02530000 TRMINPTP EQU TRMBYTE1 02531000 TRMBYTE0 EQU IEDNTRM+6 02532000 TRMINPUT EQU TRMBYTE0 02533000 TRMDIAL EQU TRMBYTE0 02534000 TRMSNA EQU TRMBYTE0 02535000 TRMSIBPT EQU IEDNTRM+7 02536000 TRMTYPE EQU IEDNTRM+11 02537000 IEDQTRM EQU IEDTRM+14 02538000 TRMSTATE EQU IEDQTRM 02539000 TRMLOG EQU TRMSTATE 02540000 TRMHELDN EQU TRMSTATE 02541000 TRMDESTQ EQU IEDQTRM+1 02542000 TRMINSEQ EQU IEDQTRM+4 02543000 TLISTCNT EQU TRMINSEQ 02544000 TRMOUTSQ EQU IEDQTRM+6 02545000 TLISTEN EQU TRMOUTSQ 02546000 TRMDSORG EQU TLISTEN 02547000 TRMALTD EQU IEDQTRM+8 02548000 TRMDEVFL EQU IEDQTRM+10 02549000 TRMSTAT EQU IEDQTRM+12 02550000 TRMCHCIN EQU IEDQTRM+16 02551000 IEDQTSI EQU 0 02552000 TSIFLAG EQU IEDQTSI 02553000 TSIDYQCB EQU IEDQTSI+52 02554000 TSIDYQFG EQU TSIDYQCB 02555000 TSIRNSCH EQU IEDQTSI+112 02556000 TSITSW EQU IEDQTSI+124 02557000 TSIGMAIN EQU TSITSW+16 02558000 GMFLAG EQU TSIGMAIN 02559000 GMCODE EQU TSIGMAIN+1 02560000 IEDTH EQU 0 02561000 TTHBYTE0 EQU IEDTH 02562000 TTHBBIU EQU TTHBYTE0 02563000 TTHEBIU EQU TTHBYTE0 02564000 TTHDAF EQU IEDTH+2 02565000 TTHOAF EQU IEDTH+4 02566000 TTHSNF EQU IEDTH+6 02567000 TTHTAG EQU TTHSNF 02568000 TTHTAG1 EQU TTHTAG 02569000 TTHDCF EQU IEDTH+8 02570000 PIU EQU 0 02571000 IEDIAP EQU 0 02572000 IEDQGA02 EQU 0 02573000 IEDQHG02 EQU 0 02574000 IEDQTNT EQU 0 02575000 IEDAYJ EQU 0 02576000 IEDIAP07 EQU 0 02577000 DSPCHAIN EQU 12 02578000 DSPLIFO EQU 56 02579000 DSPLIFOR EQU 60 02580000 DSPLIST EQU 8 02581000 DSPPRIO EQU 48 02582000 DSPPRIOR EQU 52 02583000 DSPTRACE EQU 64 02584000 DSPTSTQ EQU 32 02585000 DSPTSTQR EQU 36 02586000 DSPUNAV EQU 40 02587000 DSPWAIT EQU 16 02588000 QCBLDCB EQU 0 02589000 TNTCODE EQU 0 02590000 TNTDCODE EQU 0 02591000 TNTFIRST EQU 0 02592000 LCBRSPIN EQU LCBIOBSN 02593000 LCBLUSNS EQU LCBRSPIN+5 02594000 LCBSCPRS EQU LCBRSPIN+9 02595000 LCBCSWU1 EQU LCBSCPRS+2 02596000 LCBRSPFG EQU LCBRSPIN+15 02597000 LCBCOREQ EQU LCBTPCD 02598000 @NM00135 EQU LCBCPA+40 02599000 LCBNCPPT EQU @NM00135+1 02600000 LCBQNX EQU LCBERCCW 02601000 LCBQNXMN EQU LCBQNX 02602000 LCBCANCL EQU LCBSAVSN 02603000 LCBCANFG EQU LCBCANCL 02604000 IEDNLPTR EQU LCBDCBPT 02605000 IEDQNPTR EQU AVTRNMPT 02606000 TRMPRE1 EQU TRMBYTE4 02607000 TRMCONT EQU TRMPRE1 02608000 TRMSESSN EQU TRMPRE1 02609000 TRMSPACT EQU TRMPRE1 02610000 TRMERLCK EQU TRMPRE1 02611000 TRMNCP1 EQU TRMBYTE4 02612000 TRMINOP EQU TRMNCP1 02613000 TRMPRE EQU TRMBYTE3 02614000 TRMSTPND EQU TRMPRE 02615000 TRMASNXI EQU TRMPRE 02616000 TRMNLOUT EQU TRMPRE 02617000 TRMRDOUT EQU TRMPRE 02618000 TRMINOUT EQU TRMPRE 02619000 TRMNCP EQU TRMBYTE3 02620000 TRMNCPCL EQU TRMNCP 02621000 TRMQUCKN EQU TRMNCP 02622000 TRMPU EQU TRMBYTE3 02623000 TRMLU EQU TRMBYTE3 02624000 TRMLUIT EQU TRMLU 02625000 TRMSESRQ EQU TRMLU 02626000 TRMLINK EQU TRMBYTE3 02627000 IEDTTPTR EQU AVTTSOPT 02628000 BDUTEXT EQU BDUEND 02629000 PRFSHDR EQU IEDQPRF+42 02630000 SCBRGSAV EQU SCBEND 02631000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02632000 @NM00207 EQU TRMLINK 02633000 TRMLSTAT EQU TRMLINK 02634000 TRMLINT EQU TRMLINK 02635000 TRMEPMOD EQU TRMLINK 02636000 TRMLULOG EQU TRMLU 02637000 TRMINERR EQU TRMLU 02638000 TRMLUREQ EQU TRMLU 02639000 TRMTDIFF EQU TRMLU 02640000 TRMLUTM EQU TRMLU 02641000 TRMAUTO EQU TRMLU 02642000 TRMPCONT EQU TRMPU 02643000 @NM00206 EQU TRMPU 02644000 TRMNCONT EQU TRMNCP 02645000 TRMSLOWN EQU TRMNCP 02646000 TRMSYGEN EQU TRMNCP 02647000 TRMIPLDM EQU TRMNCP 02648000 TRMWROUT EQU TRMPRE 02649000 TRMSTMM EQU TRMPRE 02650000 TRMCMODE EQU TRMPRE 02651000 @NM00205 EQU TRMNCP1 02652000 TRMLYNCH EQU TRMPRE1 02653000 TRMSPOUT EQU TRMPRE1 02654000 TRMQNPL EQU TRMPRE1 02655000 TRMOCNI EQU TRMPRE1 02656000 @NM00143 EQU LCBCANCL+3 02657000 LCBCANTH EQU LCBCANCL+1 02658000 @NM00142 EQU LCBCANFG 02659000 LCBCANCD EQU LCBCANFG 02660000 @NM00141 EQU LCBCANFG 02661000 LCBCANEB EQU LCBCANFG 02662000 LCBCANXT EQU LCBCANFG 02663000 LCBUNADD EQU LCBQNX+21 02664000 LCBUASZE EQU LCBQNX+20 02665000 LCBDSTEA EQU LCBQNX+16 02666000 @NM00140 EQU LCBQNX+8 02667000 LCBIOSBS EQU LCBQNX+5 02668000 @NM00139 EQU LCBQNX+4 02669000 LCBSTSAV EQU LCBQNX+1 02670000 @NM00138 EQU LCBQNXMN 02671000 LCBNX509 EQU LCBQNXMN 02672000 LCBNX162 EQU LCBQNXMN 02673000 LCBNX142 EQU LCBQNXMN 02674000 LCBNX064 EQU LCBQNXMN 02675000 @NM00137 EQU @NM00135+4 02676000 @NM00136 EQU @NM00135 02677000 LCBWRSCH EQU LCBCOREQ+8 02678000 LCBCQLNK EQU LCBCOREQ+4 02679000 LCBCQELE EQU LCBCOREQ 02680000 LCBPAKCH EQU LCBRSPIN+16 02681000 @NM00134 EQU LCBRSPFG 02682000 LCBRSRH EQU LCBRSPFG 02683000 LCBEXPI EQU LCBRSPFG 02684000 @NM00133 EQU LCBRSPIN+12 02685000 LCBUSUE1 EQU LCBCSWU1 02686000 @NM00132 EQU LCBCSWU1 02687000 @NM00131 EQU LCBSCPRS+1 02688000 LCBDFCMD EQU LCBSCPRS 02689000 LCBUSER EQU LCBLUSNS+2 02690000 LCBSMIN EQU LCBLUSNS+1 02691000 LCBSMAJ EQU LCBLUSNS 02692000 LCBRHSV EQU LCBRSPIN+2 02693000 LCBSNS0 EQU LCBRSPIN+1 02694000 @NM00130 EQU LCBRSPIN 02695000 TTHTAG2 EQU TTHTAG+1 02696000 @NM00221 EQU TTHTAG1 02697000 TTHTAGS EQU TTHTAG1 02698000 TTHBYTE1 EQU IEDTH+1 02699000 TTHEFI EQU TTHBYTE0 02700000 @NM00220 EQU TTHBYTE0 02701000 TTHFTYPE EQU TTHBYTE0 02702000 GMDEVCH EQU TSIGMAIN+40 02703000 GMTSSIZ EQU TSIGMAIN+38 02704000 GMTSCNT EQU TSIGMAIN+36 02705000 GMLNSPC EQU TSIGMAIN+34 02706000 GMTCSPC EQU TSIGMAIN+32 02707000 GMCRUNT EQU TSIGMAIN+28 02708000 GMCRBUF EQU TSIGMAIN+24 02709000 GMTCBUF EQU TSIGMAIN+20 02710000 GMTSBUF EQU TSIGMAIN+16 02711000 GMBFRS EQU TSIGMAIN+14 02712000 GMHBFR EQU TSIGMAIN+12 02713000 GMBFUNIT EQU TSIGMAIN+10 02714000 GMBFSIZE EQU TSIGMAIN+8 02715000 GMSATCT EQU TSIGMAIN+6 02716000 GMCARCT EQU TSIGMAIN+4 02717000 GMLNSZ EQU TSIGMAIN+3 02718000 GMLNNO EQU TSIGMAIN+2 02719000 @NM00219 EQU GMCODE 02720000 GMTSO EQU GMCODE 02721000 GMLINE EQU GMCODE 02722000 GMTCAM EQU GMCODE 02723000 @NM00218 EQU GMCODE 02724000 @NM00217 EQU GMFLAG 02725000 GMNUNLCK EQU GMFLAG 02726000 GMFRMAT EQU GMFLAG 02727000 GMINIT EQU GMFLAG 02728000 GMENCIN EQU GMFLAG 02729000 GMENCON EQU GMFLAG 02730000 @NM00216 EQU TSITSW 02731000 TSIAYO02 EQU IEDQTSI+120 02732000 TSIAYO EQU IEDQTSI+116 02733000 TSI3705 EQU IEDQTSI+108 02734000 TSI270X EQU IEDQTSI+104 02735000 TSI3270 EQU IEDQTSI+100 02736000 TSITSDST EQU IEDQTSI+96 02737000 TSIATTEN EQU IEDQTSI+92 02738000 TSICPBC EQU IEDQTSI+88 02739000 TSICPBI EQU IEDQTSI+84 02740000 TSIDEST EQU IEDQTSI+80 02741000 @NM00215 EQU IEDQTSI+64 02742000 TSIDYDLY EQU IEDQTSI+60 02743000 TSIDYLNK EQU IEDQTSI+57 02744000 TSIDYPRI EQU IEDQTSI+56 02745000 @NM00214 EQU TSIDYQCB+1 02746000 @NM00213 EQU TSIDYQFG 02747000 TSIDYQB EQU TSIDYQFG 02748000 @NM00212 EQU TSIDYQFG 02749000 TSIDYPOS EQU TSIDYQFG 02750000 @NM00211 EQU TSIDYQFG 02751000 TSIHALT EQU IEDQTSI+48 02752000 TSIMSGEN EQU IEDQTSI+44 02753000 TSITSAP EQU IEDQTSI+40 02754000 TSITSBQ EQU IEDQTSI+36 02755000 TSIBUFQ EQU IEDQTSI+32 02756000 TSISCHED EQU IEDQTSI+28 02757000 TSISIMAT EQU IEDQTSI+24 02758000 TSIHANG EQU IEDQTSI+20 02759000 TSIEDIT EQU IEDQTSI+16 02760000 TSISTAE EQU IEDQTSI+12 02761000 TSINPUT EQU IEDQTSI+8 02762000 TSILINK EQU IEDQTSI+5 02763000 TSIPRI EQU IEDQTSI+4 02764000 TSIELCHN EQU IEDQTSI+1 02765000 @NM00210 EQU TSIFLAG 02766000 TSIQCB EQU TSIFLAG 02767000 @NM00209 EQU TSIFLAG 02768000 TSIPOST EQU TSIFLAG 02769000 @NM00208 EQU TSIFLAG 02770000 TRMOPT EQU IEDTRM+34 02771000 TRMOPTBL EQU IEDQTRM+18 02772000 TRMOPNO EQU IEDQTRM+17 02773000 TRMSENSE EQU TRMSTAT+3 02774000 TRMTEMPR EQU TRMSTAT+2 02775000 TRMSIO EQU TRMSTAT 02776000 @NM00204 EQU TRMDEVFL+1 02777000 TRMTPIN EQU TRMDEVFL+1 02778000 TRMNCPI EQU TRMDEVFL+1 02779000 TRMRNTRM EQU TRMDEVFL+1 02780000 @NM00203 EQU TRMDEVFL+1 02781000 TRMLMD EQU TRMDEVFL+1 02782000 TRMCONC EQU TRMDEVFL+1 02783000 TRMTSOB EQU TRMDEVFL 02784000 TRMBFDY EQU TRMDEVFL 02785000 TRMTBLK EQU TRMDEVFL 02786000 TRMSBLK EQU TRMDEVFL 02787000 TRMBLKS EQU TRMDEVFL 02788000 TRMADDC EQU TRMDEVFL 02789000 TRMDDIG EQU TRMDEVFL 02790000 TRMBUFS EQU TRMDEVFL 02791000 TRMPRILK EQU TRMALTD 02792000 TRMLGB EQU TRMDSORG 02793000 TRMUTERM EQU TLISTCNT 02794000 TRMSCNYN EQU TRMSTATE 02795000 TRMOPTFN EQU TRMSTATE 02796000 TRMACPTN EQU TRMSTATE 02797000 TRMPREF EQU TRMSTATE 02798000 TRMPROC EQU TRMLOG 02799000 TRMLIST EQU TRMLOG 02800000 TRMLINE EQU TRMSTATE 02801000 TRMSUBST EQU IEDNTRM+12 02802000 TRMRLMCT EQU IEDNTRM+10 02803000 TRMCOHTG EQU TRMSIBPT+1 02804000 TRMGPCNT EQU TRMSIBPT 02805000 TRMBUFRD EQU TRMBYTE0 02806000 TRMGP EQU TRMBYTE0 02807000 @NM00202 EQU TRMBYTE0 02808000 TRMOUTPT EQU TRMBYTE0 02809000 TRMUDEF EQU TRMBYTE0 02810000 TRMCOHRT EQU IEDNTRM+4 02811000 TRMSTOTE EQU TRMBYTE1 02812000 TRMCKPRN EQU TRMBYTE1 02813000 TRMTSATN EQU TRMBYTE1 02814000 TRMTRACE EQU TRMBYTE1 02815000 TRMSWBCK EQU TRMBYTE1 02816000 TRMAUTOC EQU TRMBYTE1 02817000 TRMWRBRK EQU TRMBYTE2 02818000 TRMPREP EQU TRMBYTE2 02819000 TRMGPACT EQU TRMBYTE2 02820000 TRMANDL EQU TRMBYTE2 02821000 TRMREMB EQU TRMBYTE2 02822000 @NM00201 EQU TRHBYTE2 02823000 @NM00200 EQU TRHBYTE2 02824000 @NM00199 EQU TRHBYTE2 02825000 TRHCSI EQU TRHBYTE2 02826000 @NM00198 EQU TRHBYTE2 02827000 TRHCDI EQU TRHBYTE2 02828000 TRHEB EQU TRHBYTE2 02829000 TRHBB EQU TRHBYTE2 02830000 TRHPI EQU TRHBYTE1 02831000 @NM00197 EQU TRHBYTE1 02832000 @NM00196 EQU TRHBYTE1 02833000 @NM00195 EQU TRHBYTE1 02834000 TRHER EQU TRHBYTE1 02835000 TRHDR2 EQU TRHBYTE1 02836000 @NM00194 EQU TRHBYTE1 02837000 TRHSDI EQU TRHBYTE0 02838000 @NM00193 EQU TRHBYTE0 02839000 TRHRUCAT EQU TRHBYTE0 02840000 TRHTYPE EQU TRHBYTE0 02841000 TNTTRMAD EQU IEDTNTA 02842000 TNTLEN EQU IEDQTNTD+44 02843000 TNTMIDEN EQU IEDQTNTD+41 02844000 TNTENLEN EQU IEDQTNTD+40 02845000 TNTSRCHX EQU IEDQTNTD+38 02846000 STCBLINK EQU IEDQSTCB+5 02847000 STCBPRI EQU IEDQSTCB+4 02848000 STCBTCIN EQU IEDQSTCB+2 02849000 STCBINDX EQU IEDQSTCB+1 02850000 SIBLUTYP EQU SIBSTAT0 02851000 SIBCD EQU SIBSTAT0 02852000 @NM00192 EQU SIBBIND3 02853000 SIBCRES EQU SIBBIND3 02854000 SIBSPKR EQU SIBBIND3 02855000 SIBRECOV EQU SIBBIND3 02856000 SIBFMODE EQU SIBBIND3 02857000 SIBALT EQU SIBBIND2 02858000 SIBBTERM EQU SIBBIND2 02859000 SIBBRACK EQU SIBBIND2 02860000 SIBFMUSE EQU SIBBIND2 02861000 SIBSEBI EQU SIBBIND2 02862000 SIBSCMP EQU SIBBIND2 02863000 SIBSEXC EQU SIBBIND2 02864000 SIBSDEF EQU SIBBIND2 02865000 SIBSRQM EQU SIBBIND1 02866000 SIBSCHNG EQU SIBBIND1 02867000 SIBPEBI EQU SIBBIND1 02868000 SIBPCMP EQU SIBBIND1 02869000 SIBPEXC EQU SIBBIND1 02870000 SIBPDEF EQU SIBBIND1 02871000 SIBPRQM EQU SIBBIND1 02872000 SIBPCHN EQU SIBBIND1 02873000 SIBFMPRO EQU IEDSIBD+19 02874000 SIBTSPRO EQU IEDSIBD+18 02875000 @NM00191 EQU SIBSTAT2 02876000 SIBDACLU EQU SIBSTAT2 02877000 SIBRDSCN EQU SIBSTAT2 02878000 SIBTERM EQU SIBSTAT2 02879000 SIBUSS EQU SIBSTAT2 02880000 SIBBSTAT EQU SIBSTAT1 02881000 SIBRTRP EQU SIBSTAT1 02882000 SIBFTERM EQU SIBSTAT1 02883000 SIBRQEND EQU SIBSTAT1 02884000 SIBRQSHT EQU SIBSTAT1 02885000 SIBSEQO EQU SIBSEQN+2 02886000 SIBSEQI EQU SIBSEQN 02887000 SIBNCNT EQU SIBPACIN 02888000 SIBMCNT EQU SIBPACIN 02889000 SIBINBIU EQU SIBSESSN 02890000 SIBSHUTC EQU SIBSESSN 02891000 SIBRUSEG EQU IEDSIBD 02892000 SCBTRANS EQU IEDQSCB+81 02893000 SCBEOB EQU IEDQSCB+78 02894000 SCBNXCPB EQU SCBCCSEG 02895000 SCBNHDR EQU SCBCHDR 02896000 SCBCRCD EQU IEDQSCB+69 02897000 SCBTQBCK EQU SCBNTXT 02898000 SCBOSEQ EQU SCBSCAN 02899000 SCBXTRA EQU SCBCORE 02900000 SCBNOPST EQU SCBSTAT1 02901000 SCBNIDLE EQU SCBSTAT1 02902000 SCBCEND EQU SCBSTAT1 02903000 SCBCBGN EQU SCBSTAT1 02904000 SCBSIZE EQU IEDQSCB+58 02905000 SCBSRCE EQU IEDQSCB+56 02906000 SCBDEOB EQU IEDQSCB+52 02907000 SCBCTBND EQU SCBBLKCT 02908000 SCBHBFNO EQU IEDQSCB+44 02909000 SCBBCTR EQU SCBCTBSV 02910000 SCBDESTL EQU IEDQSCB+36 02911000 SCBCPBNO EQU IEDQSCB+32 02912000 SCBMBSSA EQU IEDQSCB+25 02913000 SCBNOEOT EQU SCBBSCFM 02914000 @NM00190 EQU SCBBSCFM 02915000 SCBNPDTR EQU SCBDATEN 02916000 SCBCNTEN EQU SCBBSCFM 02917000 SCBRCVTX EQU SCBBSCFM 02918000 SCBNONTR EQU SCBBSCFM 02919000 SCBTRNSP EQU SCBBSCFM 02920000 SCBENDCR EQU SCBCTBAC+1 02921000 SCBCRLEN EQU SCBCTBAC 02922000 SCBMRFSD EQU IEDQSCB+20 02923000 SCBUNDFN EQU SCBERR4 02924000 SCBSTERN EQU SCBCHANN 02925000 SCBCPMEN EQU SCBCTLUN 02926000 @NM00189 EQU SCBERR4 02927000 SCBTRMLN EQU SCBERR4 02928000 SCBCONNN EQU SCBERR4 02929000 SCBAPERR EQU SCBTXTTN 02930000 SCBSLCTN EQU SCBERR4 02931000 SCBPERRN EQU SCBXCEPN 02932000 SCBTHRSN EQU SCBATTN 02933000 SCBFIERN EQU SCBFORMN 02934000 SCBUSERN EQU SCBERR3 02935000 SCBSATTN EQU SCBERR3 02936000 SCBTMINN EQU SCBERR3 02937000 SCBXPD EQU SCBTMIDN 02938000 SCBXPI EQU SCBLOSTN 02939000 SCBSOHE EQU SCBERR2 02940000 SCBFRWDN EQU SCBERR2 02941000 SCBRRJN EQU SCBABRTN 02942000 SCBOLTR EQU SCBERR2 02943000 SCBALN EQU SCBERR2 02944000 SCBCODER EQU SCBERR2 02945000 SCBCRMAX EQU SCBERR2 02946000 SCBCRMIN EQU SCBERR2 02947000 SCBRVISL EQU SCBCUTFN 02948000 SCBNOBFN EQU SCBERR1 02949000 @NM00188 EQU SCBERR1 02950000 SCBNOVAC EQU SCBSEQLN 02951000 SCBNOTSO EQU SCBSEQHN 02952000 SCBRVITX EQU SCBNOTRM 02953000 SCBHANG EQU SCBORIGN 02954000 SCBNOLOG EQU SCBHDRRN 02955000 SCBMRFPL EQU IEDQSCB+13 02956000 SCBBBFTM EQU SCBQTYPE 02957000 SCBNOFF EQU SCBQTYPE 02958000 SCBCONC EQU SCBQTYPE 02959000 SCBNREUS EQU SCBQTYPE 02960000 SCBREUS EQU SCBQTYPE 02961000 SCBCOREQ EQU SCBQTYPE 02962000 SCBNORCL EQU SCBQTYPE 02963000 SCBCTBSZ EQU SCBEOBSZ 02964000 @NM00187 EQU SCBBKFCT 02965000 SCBMACR EQU SCBMBHEN 02966000 SCBSNDCT EQU SCBRCVCT 02967000 SCBCODE EQU SCBSTATE 02968000 SCBPRER EQU SCBSTATE 02969000 SCBCKPT EQU SCBSTATE 02970000 SCBERSDS EQU SCBSTATE 02971000 SCBMGFMN EQU SCBSEQIN 02972000 SCBTRANP EQU SCBSTATE 02973000 RECBLINK EQU IEDQRECB+5 02974000 RECBPRI EQU IEDQRECB+4 02975000 RECBQCBA EQU IEDQRECB+1 02976000 RECBKEY EQU IEDQRECB 02977000 @NM00186 EQU QCBPLCBA 02978000 @NM00185 EQU QCBSTAT1 02979000 QCBFLUSH EQU QCBSTAT1 02980000 QCBNDXRQ EQU QCBSTAT1 02981000 QCBESIG EQU QCBSTAT1 02982000 QCBCHAIN EQU IEDNQCB 02983000 QCBPQBCK EQU IEDQPQCB+25 02984000 QCBCFHDR EQU IEDQPQCB+21 02985000 QCBLFEFO EQU IEDQPQCB+18 02986000 QCBPREVF EQU QCBINTLF 02987000 QCBINTFF EQU IEDQPQCB+9 02988000 QCBDATSQ EQU QCBFHDTZ+1 02989000 @NM00184 EQU QCBFHDTZ 02990000 @NM00183 EQU QCBPFEFO 02991000 QCBDATFL EQU QCBFHDLZ 02992000 QCBDNHDR EQU IEDQPQCB 02993000 QCBQBACK EQU IEDQQCB+37 02994000 QCBCKPT EQU QCBFLAG 02995000 QCBPROC EQU QCBFLAG 02996000 QCBTERMQ EQU QCBFLAG 02997000 QCBRSRV EQU QCBFLAG 02998000 QCBREAD EQU QCBFLAG 02999000 QCBNOBRK EQU QCBFLAG 03000000 QCBLGBAD EQU QCBDCBAD 03001000 QCBRELLN EQU IEDQQCB+32 03002000 QCBTJID EQU QCBLKRRN+1 03003000 QCBCARCT EQU QCBLKRRN 03004000 QCBMSGCT EQU IEDQQCB+26 03005000 QCBEXTO EQU QCBINTVL 03006000 QCBPARTO EQU QCBTSOF1 03007000 QCBSATRD EQU QCBTSOF1 03008000 QCBNOBUF EQU QCBTSOF1 03009000 QCBTPUT EQU QCBTSOF1 03010000 QCBTGET EQU QCBTSOF1 03011000 QCBWRBRK EQU QCBTSOF1 03012000 QCBSATLC EQU QCBTSOF2 03013000 QCBSATTI EQU QCBTSOF2 03014000 QCBSATCH EQU QCBTSOF2 03015000 QCBSIMRD EQU QCBTSOF2 03016000 QCBDSSMI EQU QCBTSOF2 03017000 QCBBUFQ EQU QCBTSOF2 03018000 QCBINHBN EQU QCBTSOF2 03019000 QCBSATCT EQU @NM00182 03020000 QCBSCBOF EQU IEDQQCB+20 03021000 QCBTIME EQU QCBSTAT 03022000 QCBCLOCK EQU QCBSTAT 03023000 QCBSMODE EQU QCBSTAT 03024000 QCBSEND EQU QCBSTAT 03025000 QCBBUFRD EQU QCBSTAT 03026000 QCBEOM EQU QCBSTAT 03027000 QCBHUCT EQU QCBRETCT 03028000 QCBIEND EQU QCBRETCT 03029000 QCBEND EQU QCBRETCT 03030000 QCBNL EQU QCBRETCT 03031000 QCBLOGCT EQU QCBRETCT 03032000 @NM00181 EQU QCBBYTE1 03033000 QCBRITRM EQU QCBBYTE1 03034000 @NM00180 EQU QCBEOLDT 03035000 QCBLINK EQU IEDQQCB+5 03036000 QCBCNTEN EQU QCBELCHN+2 03037000 @NM00179 EQU QCBELCHN+2 03038000 @NM00178 EQU QCBELCHN 03039000 QCBFQCB EQU QCBDSFLG 03040000 QCBDRQQ EQU QCBDSFLG 03041000 QCBALTMH EQU QCBDSFLG 03042000 PRF2SEQP EQU PRF2WD2 03043000 @NM00177 EQU IEDPF2+1 03044000 @NM00176 EQU PRF2FLG2 03045000 PRF2TERM EQU PRF2FLG2 03046000 PRF2SMI EQU PRF2FLG2 03047000 PRF2FORM EQU PRF2FLG2 03048000 PRF1RULN EQU PRF1SEQP+2 03049000 PRF1TAG2 EQU PRF1SQID+1 03050000 @NM00175 EQU PRF1TAG1 03051000 PRF1TAGS EQU PRF1TAG1 03052000 @NM00174 EQU PRF1FLG1 03053000 PRF1LOGD EQU PRF1FLG1 03054000 PRF1USS EQU PRF1FLG1 03055000 PRF1FORM EQU PRF1FLG1 03056000 PRF1EXPI EQU PRF1FLG1 03057000 PRF1FIDI EQU PRF1FLG1 03058000 PRF1RH EQU IEDPF1 03059000 PRFISEQ EQU IEDQPRF+38 03060000 PRFSTXT EQU PRFHQBCK 03061000 PRFNHDR EQU PRFCHDR 03062000 PRFCRCD EQU IEDQPRF+29 03063000 PRFSVSEQ EQU PRFNTXT+1 03064000 PRFSVPRI EQU PRFEOBOF 03065000 PRFISIZE EQU PRFSCAN+1 03066000 @NM00173 EQU PRFSCAN 03067000 PRFEOB EQU PRFXTRA+1 03068000 PRFSTSO EQU PRFXTRA 03069000 PRFNHDRN EQU PRFSTAT1 03070000 PRFNLSTN EQU PRFSTAT1 03071000 PRFLOCK EQU PRFEOFN 03072000 PRFDUPLN EQU PRFSTAT1 03073000 PRFTSMSG EQU PRFSTAT1 03074000 PRFITCPN EQU PRFSTAT1 03075000 PRFERMGN EQU PRFSTAT1 03076000 PRFCNCLN EQU PRFSTAT1 03077000 PRFSVFLG EQU @NM00172+3 03078000 PRFSIZE EQU PRFSVFFO+2 03079000 PRFSRCE EQU PRFSVFFO 03080000 PRFTI0 EQU PRFTIC+1 03081000 @NM00171 EQU PRFTICC 03082000 @NM00170 EQU PRFTICC 03083000 @NM00169 EQU PRFTICC 03084000 @NM00168 EQU PRFTICC 03085000 @NM00167 EQU PRFTICC 03086000 PRFBFMM EQU PRFTICC 03087000 PRFEOMSG EQU PRFTICC 03088000 PRFCOUNT EQU PRFLINK+1 03089000 @NM00166 EQU PRFLINK 03090000 PRFFLAGS EQU PRFPRI 03091000 PRFIOADR EQU PRFQCBA 03092000 PRFOPCDE EQU PRFKEY 03093000 LGBIVLST EQU IEDNLGB+60 03094000 LGBRESV4 EQU LGBRESER+3 03095000 LGBRESV3 EQU LGBRESER+2 03096000 LGBRESV2 EQU LGBRESER+1 03097000 LGBRESV1 EQU LGBRESER 03098000 LGBBUFSI EQU IEDNLGB+54 03099000 @NM00165 EQU IEDNLGB+53 03100000 LGBILCT EQU IEDNLGB+52 03101000 LGBSCTAD EQU IEDNLGB+49 03102000 @NM00164 EQU LGBOFLGS 03103000 LGBOPEN EQU LGBOFLGS 03104000 @NM00163 EQU LGBOFLGS 03105000 LGBNAME EQU IEDNLGB+40 03106000 @NM00162 EQU IEDNLGB+36 03107000 LGBTRANS EQU IEDNLGB+33 03108000 @NM00161 EQU IEDNLGB+32 03109000 @NM00160 EQU IEDNLGB+31 03110000 @NM00159 EQU LGBBYTE 03111000 LGBPACK EQU LGBBYTE 03112000 LGBBUFMA EQU IEDNLGB+28 03113000 LGBDSORG EQU IEDNLGB+26 03114000 @NM00158 EQU LGBPCI 03115000 @NM00157 EQU LGBPCI 03116000 LGBPCINO EQU LGBPCI 03117000 @NM00156 EQU LGBPCI 03118000 LGBPCIAO EQU LGBPCI 03119000 @NM00155 EQU LGBPCI 03120000 @NM00154 EQU LGBPCI 03121000 @NM00153 EQU LGBPCI 03122000 @NM00152 EQU IEDNLGB+24 03123000 LGBMHA EQU IEDNLGB+21 03124000 @NM00151 EQU LGBBUFOU 03125000 LGBPREF EQU LGBBUFOU 03126000 @NM00150 EQU LGBBUFOU 03127000 LGBSUBST EQU IEDNLGB+18 03128000 LGBTYPE EQU IEDNLGB+17 03129000 @NM00149 EQU IEDNLGB 03130000 LCBERADR EQU LCBXRADR+1 03131000 LCBPCIRC EQU LCBXRADR 03132000 LCBDCT3 EQU LCBXDCT+2 03133000 LCBDCT2 EQU LCBXDCT+1 03134000 LCBDCT1 EQU LCBXDCT 03135000 @NM00148 EQU LCBXFLAG 03136000 LCBERPND EQU LCBXFLAG 03137000 LCBSRCPF EQU LCBXFLAG 03138000 LCBGPCTV EQU LCBXFLAG 03139000 @NM00147 EQU LCBXFLAG 03140000 @NM00146 EQU LCBXFLAG 03141000 @NM00145 EQU LCBXFLAG 03142000 @NM00144 EQU LCBXFLAG 03143000 LCBCCW10 EQU LCBCPA+72 03144000 LCBCCW9 EQU LCBCPA+64 03145000 LCBCCW8 EQU LCBCPA+56 03146000 LCBCCW7 EQU LCBCPA+48 03147000 LCBCCW6 EQU LCBCPA+40 03148000 LCBCP EQU LCBQEBPL+4 03149000 LCBIOSB EQU LCBQEBPL+1 03150000 LCBSIO EQU LCBQEBPL 03151000 LCBCCW4 EQU LCBCPA+24 03152000 LCBCCW3 EQU LCBCPA+16 03153000 LCBCCW2 EQU LCBCPA+8 03154000 LCBCCW1 EQU LCBCPA 03155000 @NM00129 EQU LCBERCCW+16 03156000 LCBATL05 EQU LCBERCCW+8 03157000 @NM00128 EQU LCBERCCW 03158000 LCBCSWSV EQU LCBSAVSN+1 03159000 LCBSNSV EQU LCBSAVSN 03160000 LCBBFSNS EQU LCBRSPSV 03161000 LCBINPAK EQU LCBSTAT6 03162000 LCBMHBID EQU LCBSTAT6 03163000 LCBHDRPD EQU LCBSTAT6 03164000 LCBCHN EQU LCBSTAT6 03165000 LCBBFRSV EQU LCBTPCD+1 03166000 @NM00127 EQU LCBSTAT5 03167000 LCBLUS EQU LCBSTAT5 03168000 LCBLUNIT EQU LCBSTAT5 03169000 LCBPERM EQU LCBSTAT5 03170000 LCBNXCMD EQU LCBBFRW 03171000 LCBERMSK EQU LCBOBRCH 03172000 LCBOLT EQU LCBMSGFM 03173000 LCBEOT EQU LCBMSGFM 03174000 LCBENQ EQU LCBMSGFM 03175000 LCBTTD EQU LCBMSGFM 03176000 LCBRSTRT EQU LCBMSGFM 03177000 LCBVSTRT EQU LCBMSGFM 03178000 LCBACKI EQU LCBMSGFM 03179000 LCBNAK EQU LCBMSGFM 03180000 @NM00126 EQU LCBRBCT2 03181000 LCBDCNT EQU LCBRBCT2 03182000 LCBCOMPL EQU LCBDLNKN 03183000 LCBERROR EQU LCBERBST 03184000 @NM00125 EQU LCBERBST 03185000 LCBINQ EQU LCBERBST 03186000 LCBRDERR EQU LCBERBST 03187000 LCBEOMSG EQU LCBERBST 03188000 LCBMSG EQU LCBERBST 03189000 LCBERBLK EQU IEDQLCB+81 03190000 LCBERBKY EQU LCBERB 03191000 @NM00124 EQU LCBTSTSW 03192000 @NM00123 EQU LCBTSTSW 03193000 @NM00122 EQU LCBTSTSW 03194000 @NM00121 EQU LCBTSTSW 03195000 @NM00120 EQU LCBTSTSW 03196000 @NM00119 EQU LCBTSTSW 03197000 @NM00118 EQU LCBTSTSW 03198000 LCBCONCT EQU LCBTSTSW 03199000 LCBBFRAV EQU LCBDIAL 03200000 LCBATTN EQU LCBSYNC 03201000 LCBCONNN EQU LCBBEOTN 03202000 LCBMSGNN EQU LCBSTAT2 03203000 LCBTRACE EQU LCBSTAT2 03204000 LCBOCWTN EQU LCBSTAT1 03205000 LCBRDBFR EQU LCBRCBFR 03206000 LCBUCBX EQU IEDQLCB+64 03207000 LCBTTBIN EQU LCBERRCT 03208000 @NM00117 EQU LCBINCAM 03209000 LCBGETMN EQU LCBINCAM 03210000 @NM00116 EQU LCBRESTR+1 03211000 LCBCMDSV EQU LCBRESTR 03212000 LCBPCILK EQU LCBDCBPT 03213000 LCBSTART EQU LCBIOBSN+16 03214000 LCBAP4OL EQU LCBSIOCC 03215000 LCBAP3OL EQU LCBSIOCC 03216000 LCBAP2OL EQU LCBSIOCC 03217000 LCBAP1OL EQU LCBSIOCC 03218000 LCBSIOC2 EQU LCBSIOCC 03219000 LCBSIOC1 EQU LCBSIOCC 03220000 @NM00115 EQU LCBSIOCC 03221000 LCBCSWRC EQU LCBCSW+5 03222000 LCBCSCHC EQU LCBCSWCS 03223000 LCBCSICC EQU LCBCSWCS 03224000 LCBCSCCC EQU LCBCSWCS 03225000 LCBCSCDC EQU LCBCSWCS 03226000 LCBCSPTC EQU LCBCSWCS 03227000 LCBCSPGC EQU LCBCSWCS 03228000 LCBCSIL EQU LCBCSWCS 03229000 LCBCSPCI EQU LCBCSWCS 03230000 LCBUSUE EQU LCBCSWUS 03231000 LCBUSUC EQU LCBCSWUS 03232000 LCBUSDE EQU LCBCSWUS 03233000 LCBUSCE EQU LCBCSWUS 03234000 LCBUSBSY EQU LCBCSWUS 03235000 LCBUSCUE EQU LCBCSWUS 03236000 LCBUSSM EQU LCBCSWUS 03237000 LCBUSAT EQU LCBCSWUS 03238000 LCBCSWCA EQU LCBCSW 03239000 LCBOBR EQU LCBFLAG3 03240000 LCBOBRRD EQU LCBFLAG3 03241000 LCBIOMSG EQU LCBFLAG3 03242000 LCBSOHC EQU LCBFLAG3 03243000 LCBRLAD EQU LCBFLAG3 03244000 LCBSOHR EQU LCBFLAG3 03245000 @NM00114 EQU LCBFLAG3 03246000 LCBECBPT EQU LCBIOBSN+4 03247000 LCBECBCC EQU LCBIOBSN+3 03248000 LCBSENS1 EQU LCBSNS+1 03249000 LCBABORT EQU LCBTMOUT 03250000 LCBNOTIN EQU LCBLOSDT 03251000 LCBOVRUN EQU LCBSENS0 03252000 LCBDATCK EQU LCBSENS0 03253000 LCBEQUCK EQU LCBSENS0 03254000 LCBBUSCK EQU LCBSENS0 03255000 LCBINTRQ EQU LCBSENS0 03256000 LCBCMDRJ EQU LCBSENS0 03257000 LCBFLAG2 EQU LCBIOBSN 03258000 @NM00113 EQU LCBFLAG1 03259000 LCBUNREL EQU LCBFLAG1 03260000 LCBEXCPN EQU LCBFLAG1 03261000 @NM00112 EQU LCBFLAG1 03262000 LCBERPIN EQU LCBFLAG1 03263000 @NM00111 EQU LCBFLAG1 03264000 LCBFSBFR EQU LCBMHA 03265000 LCBISZE EQU IEDQLCB+28 03266000 LCBLNENT EQU LCBSCBDA+1 03267000 @NM00110 EQU LCBSCBDA 03268000 LCBCPGMH EQU LCBSTAT4 03269000 LCBREAL EQU LCBPHASE 03270000 @NM00109 EQU LCBSTAT4 03271000 LCBACTRQ EQU LCBSTAT4 03272000 LCBIPLRQ EQU LCBSTAT4 03273000 LCBDACRQ EQU LCBSTAT4 03274000 LCBDMPRQ EQU LCBSTAT4 03275000 @NM00108 EQU LCBLKMDE 03276000 LCBLOCKI EQU LCBLKMDE 03277000 LCBLOCKR EQU LCBLKMDE 03278000 LCBHMFLG EQU LCBLKMDE 03279000 LCBBDFLG EQU LCBLKMDE 03280000 @NM00107 EQU LCBINSRC 03281000 LCBABRTN EQU LCBCHAIN 03282000 LCBBFRSZ EQU LCBCHAIN 03283000 LCBUREQN EQU LCBCHAIN 03284000 LCBNORTY EQU LCBCHAIN 03285000 LCBERMSG EQU LCBCHAIN 03286000 LCBEXCP EQU LCBCHAIN 03287000 LCBINVRQ EQU LCBSCRNN 03288000 LCB2741N EQU LCBTSOB 03289000 LCBINHBN EQU LCBTSOB 03290000 LCBCIRCD EQU LCBTSOB 03291000 LCBPREP EQU LCBTSOB 03292000 LCBSOPL EQU LCBTSOB 03293000 LCBSATRD EQU LCBTSOB 03294000 LCBTSBUF EQU LCBTSOB 03295000 LCBWRBRK EQU LCBTSOB 03296000 LCBTDL EQU IEDQLCB+18 03297000 LCBEOLTD EQU IEDQLCB+16 03298000 LCBRSLNK EQU IEDQLCB+13 03299000 LCBRSPRI EQU IEDQLCB+12 03300000 LCBLINK EQU LCBRCB+5 03301000 LCBKEY EQU LCBRCB 03302000 @NM00106 EQU DCTBYTE5 03303000 DCTL3270 EQU DCTBYTE5 03304000 DCTSCS EQU DCTBYTE5 03305000 DCTTSPRF EQU DCTBYTE4 03306000 DCTFMPRF EQU DCTBYTE4 03307000 DCT2760 EQU DCTBYTE3 03308000 DCTNOIDL EQU DCTBYTE3 03309000 DCTCONTN EQU DCTBYTE3 03310000 DCTBUFF EQU DCTBYTE3 03311000 DCTCHECK EQU DCTBYTE3 03312000 DCTENCTL EQU DCTBYTE3 03313000 DCTWTTA EQU DCTBYTE3 03314000 DCT1050 EQU DCTBYTE3 03315000 DCTAUDIO EQU DCTBYTE2 03316000 DCTLOCAL EQU DCTBYTE2 03317000 DCTCONT EQU DCTBYTE2 03318000 DCTXMIT EQU DCTBYTE2 03319000 DCTTWX EQU DCTBYTE2 03320000 DCTBRDST EQU DCTBYTE2 03321000 DCTBISYN EQU DCTBYTE2 03322000 DCTUMASK EQU DCTBYTE1 03323000 DCTSADEV EQU DCTBYTE1 03324000 DCT3270 EQU DCTBYTE1 03325000 DCT2741 EQU DCTBYTE1 03326000 DCT5041 EQU DCTBYTE1 03327000 DCTATTEN EQU DCTBYTE1 03328000 DCTBREAK EQU DCTBYTE1 03329000 DCTINHIB EQU DCTBYTE1 03330000 DCTBYTE0 EQU IEDDCT 03331000 BDUXGRPH EQU BDUEXRSP 03332000 BDUXFINL EQU BDUEXRSP 03333000 BDUXINIT EQU BDUEXRSP 03334000 BDURESP EQU BDUSYRSP 03335000 BDUPHASE EQU BDUSYRSP 03336000 BDUERROR EQU BDUSYRSP 03337000 BDUXERLK EQU BDUBDUFG 03338000 BDUALTAK EQU BDUFNFLG 03339000 BDUNEGAK EQU BDUFNFLG 03340000 BDUPOSAK EQU BDUFNFLG 03341000 BDUTPTX EQU BDUFNFLG 03342000 BDUFRSTB EQU BDUFNFLG 03343000 BDULEADG EQU BDUFNFLG 03344000 BDUHEADR EQU BDUFNFLG 03345000 BDUSTHDR EQU BDUFNFLG 03346000 SAVTLLCB EQU IEDNSVTD+316 03347000 SAVTBITN EQU IEDNSVTD+312 03348000 @NM00105 EQU SAVTCKQB+8 03349000 @NM00104 EQU SAVTCKEC+1 03350000 @NM00103 EQU SAVTCKCC 03351000 SAVTCKPO EQU SAVTCKCC 03352000 SAVTCKWA EQU SAVTCKCC 03353000 SAVTCKCH EQU SAVTCKTB+1 03354000 SAVTCKVT EQU SAVTCKTB 03355000 @NM00102 EQU IEDNSVTD+297 03356000 SAVTRDFG EQU SAVTRDRV+12 03357000 @NM00101 EQU SAVTRDRV+5 03358000 SAVTRDPY EQU SAVTRDRV+4 03359000 SAVTRDQB EQU SAVTRDRV+1 03360000 SAVTRDKY EQU SAVTRDRV 03361000 SAVTNID EQU IEDNSVTD+280 03362000 SAVTDVAS EQU IEDNSVTD+276 03363000 SAVTPLSZ EQU IEDNSVTD+274 03364000 @NM00100 EQU IEDNSVTD+273 03365000 SAVTSUBL EQU IEDNSVTD+272 03366000 @NM00099 EQU SAVTZELM+1 03367000 SAVTSUBM EQU SAVTZELM 03368000 SAVTMHDX EQU IEDNSVTD+268 03369000 SAVTNAT1 EQU IEDNSVTD+266 03370000 SAVTSH20 EQU IEDNSVTD+264 03371000 SAVTLCBS EQU IEDNSVTD+260 03372000 SAVTRNMP EQU IEDNSVTD+256 03373000 SAVTTNTX EQU IEDNSVTD+252 03374000 SAVTNAX EQU IEDNSVTD+248 03375000 SAVTSUBV EQU IEDNSVTD+247 03376000 SAVTSUBA EQU IEDNSVTD+246 03377000 SAVTSIBC EQU IEDNSVTD+244 03378000 SAVTBSM EQU IEDNSVTD+240 03379000 SAVTRQTG EQU IEDNSVTD+236 03380000 SAVTRQCH EQU IEDNSVTD+232 03381000 SAVTMAND EQU IEDNSVTD+228 03382000 SAVTSPLN EQU IEDNSVTD+224 03383000 SAVTNADL EQU IEDNSVTD+222 03384000 SAVTNATL EQU IEDNSVTD+220 03385000 SAVTMHTB EQU IEDNSVTD+216 03386000 SAVTSSMH EQU IEDNSVTD+212 03387000 SAVTQRS EQU IEDNSVTD+208 03388000 SAVTRQIN EQU IEDNSVTD+204 03389000 SAVTDFCO EQU IEDNSVTD+200 03390000 SAVTSARI EQU IEDNSVTD+192 03391000 SAVTSAC EQU IEDNSVTD+188 03392000 SAVTSAI EQU IEDNSVTD+184 03393000 SAVTCSCI EQU IEDNSVTD+180 03394000 SAVTSSRP EQU IEDNSVTD+176 03395000 SAVTSSRQ EQU IEDNSVTD+172 03396000 SAVTSCLU EQU IEDNSVTD+168 03397000 SAVTXTRQ EQU IEDNSVTD+164 03398000 SAVTMVBF EQU IEDNSVTD+160 03399000 @NM00098 EQU IEDNSVTD+148 03400000 SAVTIPCQ EQU IEDNSVTD+144 03401000 @NM00097 EQU IEDNSVTD+136 03402000 SAVTXFMI EQU IEDNSVTD+132 03403000 @NM00096 EQU IEDNSVTD+124 03404000 SAVTXFMO EQU IEDNSVTD+120 03405000 @NM00095 EQU IEDNSVTD+116 03406000 SAVTSSSR EQU IEDNSVTD+112 03407000 SAVTSCPQ EQU IEDNSVTD+108 03408000 SAVTSLCB EQU IEDNSVTD+104 03409000 SAVTLUSR EQU IEDNSVTD+100 03410000 @NM00094 EQU SAVTLUSQ+8 03411000 SAVTLUSP EQU SAVTLUSQ+4 03412000 SAVTLUSB EQU SAVTLUSQ 03413000 @NM00093 EQU IEDNSVTD+84 03414000 SAVTSAT EQU IEDNSVTD+80 03415000 SAVTNAT EQU IEDNSVTD+76 03416000 SAVTCLUP EQU IEDNSVTD+72 03417000 SAVTPIUT EQU IEDNSVTD+68 03418000 SAVTRNTA EQU IEDNSVTD+64 03419000 SAVTDNIR EQU IEDNSVTD+60 03420000 SAVTFLDH EQU IEDNSVTD+52 03421000 SAVTSRTN EQU IEDNSVTD+48 03422000 SAVTSREQ EQU IEDNSVTD+44 03423000 SAVTFAIL EQU IEDNSVTD+42 03424000 SAVTSUSE EQU IEDNSVTD+40 03425000 SAVTSIB EQU IEDNSVTD+36 03426000 @NM00092 EQU IEDNSVTD+28 03427000 SAVTWH20 EQU IEDNSVTD+26 03428000 SAVTPWT EQU IEDNSVTD+24 03429000 SAVTPRTQ EQU IEDNSVTD+20 03430000 SAVTPH20 EQU IEDNSVTD+14 03431000 SAVTPUSE EQU IEDNSVTD+12 03432000 SAVTPLCB EQU IEDNSVTD+8 03433000 SAVTPOOL EQU IEDNSVTD+4 03434000 SAVTPRMT EQU SAVTDIAF 03435000 SAVTVIRT EQU SAVTDIAF 03436000 AVTCPBNO EQU IEDQAVTD+1172 03437000 AVTHRESS EQU IEDQAVTD+1171 03438000 @NM00091 EQU IEDQAVTD+1170 03439000 @NM00090 EQU IEDQAVTD+1169 03440000 @NM00089 EQU IEDQAVTD+1168 03441000 @NM00088 EQU IEDQAVTD+1165 03442000 @NM00087 EQU IEDQAVTD+1164 03443000 AVTHRESE EQU @NM00086 03444000 AVTRADDR EQU IEDQAVTD+1156 03445000 AVTNADDR EQU IEDQAVTD+1152 03446000 AVTHRESN EQU IEDQAVTD+1148 03447000 AVTVOLRN EQU IEDQAVTD+1144 03448000 AVTTOTNN EQU IEDQAVTD+1140 03449000 AVTTRCYN EQU IEDQAVTD+1136 03450000 AVTRCTRN EQU IEDQAVTD+1132 03451000 AVTNOVON EQU IEDQAVTD+1128 03452000 AVTADEBN EQU IEDQAVTD+1124 03453000 AVTVOLRR EQU IEDQAVTD+1120 03454000 AVTTOTNR EQU IEDQAVTD+1116 03455000 AVTTRCYR EQU IEDQAVTD+1112 03456000 AVTRCTRR EQU IEDQAVTD+1108 03457000 AVTNOVOR EQU IEDQAVTD+1104 03458000 AVTADEBR EQU IEDQAVTD+1100 03459000 AVTLODPT EQU IEDQAVTD+1096 03460000 AVTIOBN EQU IEDQAVTD+1092 03461000 AVTIOBR EQU IEDQAVTD+1088 03462000 AVTCPBPT EQU IEDQAVTD+1084 03463000 AVTFCPB EQU IEDQAVTD+1080 03464000 @NM00085 EQU IEDQAVTD+1076 03465000 AVTINCPQ EQU IEDQAVTD+1072 03466000 @NM00084 EQU IEDQAVTD+1068 03467000 @NM00083 EQU IEDQAVTD+1065 03468000 @NM00082 EQU AVTBIT4 03469000 @NM00081 EQU AVTBIT4 03470000 @NM00080 EQU AVTBIT4 03471000 @NM00079 EQU AVTBIT4 03472000 @NM00078 EQU AVTBIT4 03473000 @NM00077 EQU AVTBIT4 03474000 @NM00076 EQU AVTBIT4 03475000 AVTRUFTN EQU AVTBIT4 03476000 @NM00075 EQU IEDQAVTD+1060 03477000 AVTNOBFQ EQU IEDQAVTD+1056 03478000 @NM00074 EQU IEDQAVTD+1052 03479000 AVTDKENQ EQU IEDQAVTD+1048 03480000 @NM00073 EQU IEDQAVTD+1044 03481000 AVTDKAPQ EQU IEDQAVTD+1040 03482000 AVTCOPY EQU IEDQAVTD+1036 03483000 AVTIA EQU IEDQAVTD+1032 03484000 AVTFL EQU IEDQAVTD+1028 03485000 @NM00072 EQU IEDQAVTD+1024 03486000 AVTNCPBQ EQU IEDQAVTD+1020 03487000 AVTTOTNC EQU IEDQAVTD+1016 03488000 AVTCMAX EQU IEDQAVTD+1012 03489000 AVTCMIN EQU IEDQAVTD+1008 03490000 AVTHM02 EQU IEDQAVTD+1004 03491000 AVTOPCIN EQU IEDQAVTD+1002 03492000 AVTOPMSK EQU IEDQAVTD+996 03493000 AVTDDFT EQU IEDQAVTD+992 03494000 AVTOPTN EQU IEDQAVTD+984 03495000 AVTDSKCT EQU IEDQAVTD+982 03496000 AVTCKRST EQU IEDQAVTD+981 03497000 AVTSTAN EQU AVTBIT3 03498000 AVTSTACN EQU AVTBIT3 03499000 AVTSTAIN EQU AVTBIT3 03500000 AVTSTAYN EQU AVTBIT3 03501000 AVTOLTBN EQU AVTBIT3 03502000 AVTTSAB EQU AVTBIT3 03503000 AVTRFULN EQU AVTBIT3 03504000 AVTRECVN EQU AVTBIT3 03505000 @NM00071 EQU AVTBIT2 03506000 @NM00070 EQU AVTBIT2 03507000 AVTOPEIN EQU AVTBIT2 03508000 AVTSTRTN EQU AVTBIT2 03509000 AVTTOPOL EQU AVTBIT2 03510000 AVTCOPYN EQU AVTBIT2 03511000 AVTREUSN EQU AVTBIT2 03512000 AVTEXTSC EQU AVTBIT2 03513000 AVTDISKN EQU AVTBIT1 03514000 AVTREADN EQU AVTBIT1 03515000 AVTDLAYN EQU AVTBIT1 03516000 AVTAQTAN EQU AVTBIT1 03517000 AVTAPLKN EQU AVTBIT1 03518000 AVTDUMBR EQU IEDQAVTD+976 03519000 AVTDLQX EQU IEDQAVTD+974 03520000 AVTINTLV EQU IEDQAVTD+972 03521000 AVTSMCNT EQU IEDQAVTD+970 03522000 AVTAVFCT EQU IEDQAVTD+968 03523000 AVTOPCON EQU IEDQAVTD+966 03524000 AVTOPCNT EQU IEDQAVTD+964 03525000 AVTLNCNT EQU IEDQAVTD+962 03526000 AVTKEYLE EQU IEDQAVTD+960 03527000 AVTHA16 EQU IEDQAVTD+958 03528000 AVTHA7 EQU IEDQAVTD+956 03529000 AVTHA4 EQU IEDQAVTD+954 03530000 AVTHA3 EQU IEDQAVTD+952 03531000 AVTHA2 EQU IEDQAVTD+950 03532000 AVTGETMS EQU IEDQAVTD+949 03533000 @NM00069 EQU IEDQAVTD+948 03534000 AVTGETMD EQU IEDQAVTD+944 03535000 AVTGETMN EQU IEDQAVTD+940 03536000 AVTCWTOT EQU IEDQAVTD+936 03537000 AVTCWINT EQU IEDQAVTD+884 03538000 AVTDTRAP EQU IEDQAVTD+880 03539000 @NM00068 EQU IEDQAVTD+878 03540000 @NM00067 EQU AVTIOTR 03541000 AVTIOTRH EQU AVTIOTR 03542000 AVTIOTRE EQU AVTIOTR 03543000 @NM00066 EQU AVTSUBT 03544000 AVTSUBPT EQU AVTSUBT 03545000 AVTSUBON EQU AVTSUBT 03546000 AVTAFE30 EQU IEDQAVTD+872 03547000 AVTAFE20 EQU IEDQAVTD+868 03548000 AVTAFE10 EQU IEDQAVTD+864 03549000 AVTCWEC2 EQU IEDQAVTD+860 03550000 AVTCWPM2 EQU IEDQAVTD+856 03551000 AVTCWTS2 EQU IEDQAVTD+855 03552000 AVTCWTS1 EQU IEDQAVTD+854 03553000 AVTCWCLD EQU AVTCWFL2 03554000 AVTCWRAP EQU AVTCWFL2 03555000 @NM00065 EQU AVTCWFL2 03556000 @NM00064 EQU AVTCWFL2 03557000 @NM00063 EQU AVTCWFL2 03558000 @NM00062 EQU AVTCWFL2 03559000 @NM00061 EQU AVTCWFL2 03560000 AVTCWACT EQU AVTCWFL2 03561000 @NM00060 EQU AVTCWFL1 03562000 @NM00059 EQU AVTCWFL1 03563000 @NM00058 EQU AVTCWFL1 03564000 @NM00057 EQU AVTCWFL1 03565000 @NM00056 EQU AVTCWFL1 03566000 @NM00055 EQU AVTCWFL1 03567000 @NM00054 EQU AVTCWFL1 03568000 AVTCOMWN EQU AVTCWFL1 03569000 AVTCWEC1 EQU IEDQAVTD+848 03570000 AVTCWPM1 EQU IEDQAVTD+844 03571000 AVTCAREA EQU IEDQAVTD+840 03572000 AVTFZERO EQU IEDQAVTD+836 03573000 AVTCADDR EQU IEDQAVTD+832 03574000 AVTCOREC EQU IEDQAVTD+828 03575000 @NM00053 EQU IEDQAVTD+820 03576000 AVTCPBCB EQU IEDQAVTD+816 03577000 @NM00052 EQU IEDQAVTD+808 03578000 @NM00051 EQU IEDQAVTD+796 03579000 AVTCPRMB EQU IEDQAVTD+792 03580000 @NM00050 EQU IEDQAVTD+784 03581000 AVTCLOSB EQU IEDQAVTD+780 03582000 @NM00049 EQU IEDQAVTD+772 03583000 AVTACTIB EQU IEDQAVTD+768 03584000 @NM00048 EQU IEDQAVTD+764 03585000 AVTOLTEB EQU IEDQAVTD+760 03586000 AVTOLTCH EQU AVTOLTQB+1 03587000 AVTOLTVT EQU AVTOLTQB 03588000 @NM00047 EQU AVTOPCQB+8 03589000 @NM00046 EQU AVTOPCEC+1 03590000 @NM00045 EQU AVTOPCCC 03591000 AVTOPCPO EQU AVTOPCCC 03592000 AVTOPCWA EQU AVTOPCCC 03593000 AVTOPCCH EQU AVTOPCOB+1 03594000 AVTOPCVT EQU AVTOPCOB 03595000 @NM00044 EQU AVTCKPQB+9 03596000 AVTCKPTS EQU AVTCKPQB+8 03597000 @NM00043 EQU AVTCKPEC+1 03598000 @NM00042 EQU AVTCKPCC 03599000 AVTCKPPO EQU AVTCKPCC 03600000 AVTCKPWA EQU AVTCKPCC 03601000 AVTCKPCH EQU AVTCKPTB+1 03602000 AVTCKPVT EQU AVTCKPTB 03603000 @NM00041 EQU IEDQAVTD+724 03604000 @NM00040 EQU IEDQAVTD+716 03605000 AVTSELCH EQU IEDQAVTD+713 03606000 AVTBFRTN EQU AVTBFRFG 03607000 AVTTIMQ EQU IEDQAVTD+704 03608000 @NM00039 EQU IEDQAVTD+700 03609000 AVTIMQPS EQU IEDQAVTD+696 03610000 AVTINOUT EQU IEDQAVTD+694 03611000 AVTREFTM EQU IEDQAVTD+692 03612000 @NM00038 EQU IEDQAVTD+680 03613000 AVTDELYB EQU IEDQAVTD+676 03614000 AVTOCQPT EQU IEDQAVTD+672 03615000 AVTSUPPT EQU IEDQAVTD+664 03616000 AVTCBQCB EQU IEDQAVTD+660 03617000 AVTMSGS EQU IEDQAVTD+657 03618000 @NM00037 EQU AVTSYSER 03619000 @NM00036 EQU AVTSYSER 03620000 @NM00035 EQU AVTSYSER 03621000 @NM00034 EQU AVTSYSER 03622000 @NM00033 EQU AVTSYSER 03623000 @NM00032 EQU AVTSYSER 03624000 AVTCMAXN EQU AVTSYSER 03625000 AVTCMINN EQU AVTSYSER 03626000 AVT2260L EQU IEDQAVTD+652 03627000 AVTABEPL EQU AVTADBUF 03628000 AVTHFF EQU AVTCLRHI+2 03629000 @NM00031 EQU AVTCLRHI 03630000 AVTCCLNK EQU AVTCRELE+5 03631000 AVTCCPRI EQU AVTCRELE+4 03632000 AVTCCQCB EQU AVTCCELE+1 03633000 AVTCCKEY EQU AVTCCELE 03634000 AVTDELAD EQU IEDQAVTD+632 03635000 AVTDELEM EQU IEDQAVTD+628 03636000 AVTBSX EQU AVTCKLNK 03637000 AVTOPETR EQU AVTHG01 03638000 @NM00030 EQU AVTCKBYT 03639000 AVTCKONQ EQU AVTCKBYT 03640000 @NM00029 EQU AVTCKBYT 03641000 @NM00028 EQU AVTCKBYT 03642000 @NM00027 EQU AVTCKBYT 03643000 @NM00026 EQU AVTCKBYT 03644000 @NM00025 EQU AVTCKBYT 03645000 @NM00024 EQU AVTCKBYT 03646000 AVTOPERT EQU IEDQAVTD+618 03647000 AVTOPXCL EQU IEDQAVTD+616 03648000 AVTOPERL EQU IEDQAVTD+615 03649000 @NM00023 EQU IEDQAVTD+614 03650000 AVTCKTIM EQU IEDQAVTD+612 03651000 AVTCKELV EQU IEDQAVTD+610 03652000 AVTCPRCD EQU IEDQAVTD+609 03653000 AVTWARMN EQU AVTCKELF 03654000 AVTCRTLN EQU AVTCKELF 03655000 AVTCPIPN EQU AVTCKELF 03656000 AVTCCLCN EQU AVTCKELF 03657000 AVTCINCN EQU AVTCKELF 03658000 @NM00022 EQU AVTCKELF 03659000 AVTCMCPN EQU AVTCKELF 03660000 AVTNQBCK EQU AVTCKELF 03661000 AVTCKQAD EQU IEDQAVTD+605 03662000 AVTSCBSZ EQU IEDQAVTD+604 03663000 @NM00021 EQU IEDQAVTD+600 03664000 AVTCKELE EQU IEDQAVTD+596 03665000 @NM00020 EQU AVTCKPEL+8 03666000 AVTCKRLK EQU AVTCKPEL+5 03667000 AVTCKRPR EQU AVTCKPEL+4 03668000 AVTCKRMQ EQU AVTCKRMV+1 03669000 AVTCKRKY EQU AVTCKRMV 03670000 AVTHK EQU IEDQAVTD+576 03671000 AVTHI EQU IEDQAVTD+572 03672000 AVTIOT EQU IEDQAVTD+568 03673000 AVTNX EQU IEDQAVTD+564 03674000 AVTTONE EQU IEDQAVTD+560 03675000 AVTA3TL EQU IEDQAVTD+556 03676000 AVTDMECB EQU IEDQAVTD+552 03677000 AVTABEND EQU IEDQAVTD+546 03678000 AVTPLCBN EQU IEDQAVTD+544 03679000 @NM00019 EQU AVTSAVTP+1 03680000 @NM00018 EQU AVTSAVTF 03681000 AVTSNA EQU AVTSAVTF 03682000 AVTONSNA EQU AVTSAVTF 03683000 AVTVTMCP EQU AVTSAVTF 03684000 @NM00017 EQU IEDQAVTD+536 03685000 AVTCMBSS EQU IEDQAVTD+532 03686000 AVTRCV EQU IEDQAVTD+528 03687000 AVTCSCH EQU IEDQAVTD+520 03688000 AVTQ1 EQU IEDQAVTD+516 03689000 AVTE7 EQU IEDQAVTD+512 03690000 AVTHB EQU IEDQAVTD+508 03691000 AVTR1 EQU IEDQAVTD+504 03692000 AVTBZ EQU IEDQAVTD+500 03693000 AVTEZ EQU IEDQAVTD+496 03694000 AVTEC EQU IEDQAVTD+492 03695000 AVTEW EQU IEDQAVTD+488 03696000 AVTNDIAL EQU AVTSCOPT 03697000 AVTN2741 EQU AVTSCOPT 03698000 AVTCONCO EQU AVTSCOPT 03699000 AVTCONC EQU AVTSCOPT 03700000 AVTCMBUF EQU AVTSCOPT 03701000 AVTAPDMP EQU AVTSCOPT 03702000 @NM00016 EQU AVTSCOPT 03703000 AVTHA EQU AVTDISP 03704000 AVTEA EQU IEDQAVTD+476 03705000 AVTAX EQU IEDQAVTD+472 03706000 AVTA3 EQU IEDQAVTD+468 03707000 AVTGD EQU IEDQAVTD+464 03708000 AVTAL EQU IEDQAVTD+460 03709000 AVTOLTST EQU AVTHG02 03710000 AVTE8 EQU IEDQAVTD+452 03711000 AVTUI EQU IEDQAVTD+448 03712000 AVTCOMPT EQU IEDQAVTD+444 03713000 AVTCRSRF EQU IEDQAVTD+440 03714000 @NM00015 EQU IEDQAVTD+436 03715000 AVTKA02 EQU IEDQAVTD+432 03716000 AVTOPTPT EQU IEDQAVTD+428 03717000 AVTPCBPT EQU IEDQAVTD+424 03718000 @NM00014 EQU AVTECB1 03719000 AVTCOMP EQU AVTECB1 03720000 @NM00013 EQU AVTECB1 03721000 AVTOPECA EQU IEDQAVTD+416 03722000 AVTOLECA EQU IEDQAVTD+412 03723000 AVTCKECA EQU IEDQAVTD+408 03724000 AVTCWECA EQU IEDQAVTD+404 03725000 AVTCWTCB EQU IEDQAVTD+400 03726000 AVTOLTCB EQU IEDQAVTD+396 03727000 AVTOCTCB EQU IEDQAVTD+392 03728000 AVTCKTCB EQU IEDQAVTD+388 03729000 AVTAS EQU IEDQAVTD+384 03730000 AVTNOLBF EQU IEDQAVTD+382 03731000 AVTNCKPR EQU IEDQAVTD+381 03732000 AVTCIB EQU IEDQAVTD+380 03733000 AVTSPLPT EQU IEDQAVTD+376 03734000 AVTMVBFR EQU IEDQAVTD+372 03735000 AVTSBTA EQU IEDQAVTD+368 03736000 AVTRARTN EQU IEDQAVTD+364 03737000 AVTBSCAN EQU IEDQAVTD+360 03738000 AVTRDYA EQU IEDQAVTD+356 03739000 AVTDISTR EQU IEDQAVTD+348 03740000 AVTPARM3 EQU IEDQAVTD+344 03741000 @NM00012 EQU AVTPKF 03742000 @NM00011 EQU AVTPKF 03743000 @NM00010 EQU AVTPKF 03744000 AVTFTCHF EQU AVTPKF 03745000 @NM00009 EQU AVTPKF 03746000 @NM00008 EQU AVTPKF 03747000 @NM00007 EQU AVTPKF 03748000 @NM00006 EQU AVTPKF 03749000 AVTPARM EQU IEDQAVTD+336 03750000 AVTEXS2A EQU IEDQAVTD+330 03751000 AVTEXA2S EQU IEDQAVTD+324 03752000 AVTOCGET EQU IEDQAVTD+320 03753000 AVTCKAVT EQU @NM00004+1 03754000 @NM00005 EQU AVTCKFLG 03755000 AVTCKHLT EQU AVTCKFLG 03756000 AVTCKREQ EQU AVTCKFLG 03757000 AVTCKENV EQU AVTCKFLG 03758000 AVTCKNAC EQU AVTCKFLG 03759000 AVTCKTAC EQU AVTCKFLG 03760000 AVTBUENT EQU IEDQAVTD+314 03761000 @NM00003 EQU IEDQAVTD+313 03762000 AVTFULLT EQU AVTBUFSW 03763000 AVTUNCON EQU AVTBUFSW 03764000 @NM00002 EQU AVTBUFSW 03765000 AVTBUFTR EQU AVTREADD 03766000 AVTREADY EQU IEDQAVTD+304 03767000 AVTRACE EQU IEDQAVTD+300 03768000 AVTTCB EQU IEDQAVTD+296 03769000 AVTPASWD EQU IEDQAVTD+288 03770000 AVTCTLCH EQU IEDQAVTD+280 03771000 AVTDOUBL EQU IEDQAVTD+272 03772000 AVTDOUBX EQU IEDQAVTD+264 03773000 AVTDPARM EQU IEDQAVTD+260 03774000 AVTDLQ EQU AVTSAVEX+32 03775000 @NM00001 EQU AVTSAVEX 03776000 AVTSAVE4 EQU IEDQAVTD+144 03777000 AVTSAVE3 EQU IEDQAVTD+72 03778000 AVTSAVE2 EQU IEDQAVTD 03779000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03780000 @RF00556 EQU @RC00534 03781000 @RC00536 EQU @RC00534 03782000 @RC00584 EQU @RC00582 03783000 @RF00679 EQU @RC00676 03784000 @RF00790 EQU @EL00003 03785000 @RC00804 EQU @EL00004 03786000 @RF00814 EQU @EL00004 03787000 @RF00859 EQU @RC00856 03788000 @RF00921 EQU @RC00901 03789000 @RC00953 EQU @RC00948 03790000 @RF00839 EQU @EL00006 03791000 @RF00854 EQU @EL00006 03792000 @RF00963 EQU @EL00006 03793000 @RF00973 EQU @EL00007 03794000 @RC00978 EQU @EL00007 03795000 @PB00008 EQU @EL00001 03796000 @PB00007 EQU @PB00008 03797000 @PB00006 EQU @PB00007 03798000 @PB00005 EQU @PB00006 03799000 @PB00004 EQU @PB00005 03800000 @PB00003 EQU @PB00004 03801000 @PB00002 EQU @PB00003 03802000 @ENDDATA EQU * 03803000 END IEDIAQ,(C'PLS1014',0701,78062) 03804000