TITLE 'IEDAYJ, TSO SCHEDULER *00001000 ' 00002000 IEDAYJ CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 * /* 00005000 USING IEDAYJ,RBASE1,RBASE2 SET UP ADDRESSABILITY 00006000 STM RZERO,RLINK,AVTSAVE4+12(RAVT) SAVE ALL REGISTER @YM07674 00007000 LR RBASE1,RLINK SET UP BASE REG1 (R12) 00008000 LA RBASE2,X'FFF'(RBASE1) SET UP 00009000 LA RBASE2,1(RBASE2) BASE REG2 (R9) 00010000 IEDAYJ IEDHJN AFTERHJN,HJN MODULE IDENTIFICATION MACRO 00011000 * 02S0498 00012000 * /*****************************************************************/ 00013000 * /* */ 00014000 * /* PROCESS: THIS SEGMENT DOES THE PROCESSING THAT IS NECESSARY TO*/ 00015000 * /* PERFORM THE FUNCTION OF THE MODULE. THIS IS THE MAINLINE FLOW */ 00016000 * /* OF IEDAYJ, THERE ARE THREE DISTINCT PATHS OF LOGIC AS SHOWN */ 00017000 * /* HERE BY IEDA01,02, AND 03. */ 00018000 * /* */ 00019000 * /*****************************************************************/ 00020000 * 02S0498 00021000 * 03S0498 00022000 * /*****************************************************************/ 00023000 * /* */ 00024000 * /* PROCESS.INITIAL: THIS SEGMENT DOES THE INITIAL PROCESSING. */ 00025000 * /* */ 00026000 * /*****************************************************************/ 00027000 * 03S0498 00028000 * IF RCASE=1 THEN /* QCB ENTRY TO THIS SCHEDULER */ 00029000 CH RCASE,@CH00060 03S0498 00030000 BNE @RF00498 03S0498 00031000 * IF QCBPLCBN=ON THEN /* A PLCB IS ASSIGNED */ 00032000 LR @10,RQCB 03S0499 00033000 SH @10,@CH00044 03S0499 00034000 TM QCBPLCBN(@10),B'10000000' 03S0499 00035000 BNO @RF00499 03S0499 00036000 * DO; 03S0500 00037000 * RLCB=QCBPLCBA; /* SET UP PLCB ADDRESSABILITY */ 00038000 SLR RLCB,RLCB 03S0501 00039000 ICM RLCB,7,QCBPLCBA(@10) 03S0501 00040000 * RPARM=LCBTTCIN; /* SET UP RPARM FOR IEDQTNT */ 00041000 SLR RPARM,RPARM 03S0502 00042000 ICM RPARM,3,LCBTTCIN(RLCB) 03S0502 00043000 * END; 03S0503 00044000 * ELSE 03S0504 00045000 * IF QCBWAITC=ON THEN /* IF THIS IS A CHAIN OF PIU'S 00046000 * @XM05703*/ 00047000 B @RC00499 03S0504 00048000 @RF00499 LR @10,RQCB 03S0504 00049000 SH @10,@CH00044 03S0504 00050000 TM QCBWAITC(@10),B'01000000' 03S0504 00051000 BNO @RF00504 03S0504 00052000 * DO; /* @XM05703*/ 00053000 * RPARM=QCBPLCBA; /* POINT TO FIRST PIU @XM05703*/ 00054000 SLR RPARM,RPARM 03S0506 00055000 ICM RPARM,7,QCBPLCBA(@10) 03S0506 00056000 * RFY 03S0507 00057000 * IEDQPRF BASED(RPARM); /* @XM05703*/ 00058000 * RPARM=ADDR(PRFPIUO)+PRFPIUO;/* POINT TO TH @XM05703*/ 00059000 LA @10,PRFPIUO(,RPARM) 03S0508 00060000 SLR @05,@05 03S0508 00061000 IC @05,PRFPIUO(,RPARM) 03S0508 00062000 ALR @10,@05 03S0508 00063000 LR RPARM,@10 03S0508 00064000 * RFY 03S0509 00065000 * IEDQPRF BASED(RPRF); /* @XM05703*/ 00066000 * RPARM=RPARM->TTHOAF; /* GET TNT INDEX FROM OAF 03S0510 00067000 * @XM05703*/ 00068000 SLR @10,@10 03S0510 00069000 ICM @10,3,TTHOAF(RPARM) 03S0510 00070000 LR RPARM,@10 03S0510 00071000 * END; /* @XM05703*/ 00072000 * ELSE /* @XM05703*/ 00073000 * RPARM=QCBTTCIN; /* PLCB NOT ASSIGNED-GET TTCIN 00074000 * FROM QCB */ 00075000 B @RC00504 03S0512 00076000 @RF00504 LR @10,RQCB 03S0512 00077000 BCTR @10,0 03S0512 00078000 BCTR @10,0 03S0512 00079000 LH RPARM,QCBTTCIN-6(,@10) 03S0512 00080000 * ELSE 03S0513 00081000 * RPARM=LCBTTCIN; /* CASES 2 & 3 ARE PLCB ENTRIES 00082000 * TO SCHEDULER */ 00083000 B @RC00498 03S0513 00084000 @RF00498 SLR RPARM,RPARM 03S0513 00085000 ICM RPARM,3,LCBTTCIN(RLCB) 03S0513 00086000 * CASENUM=RCASE; /* SAVE CASE INDICATOR AROUND 00087000 * CALL TO IEDQTNT */ 00088000 @RC00498 ST RCASE,CASENUM 03S0514 00089000 * CALL IEDQTNT; /* CONVERT TTCIN INTO TTE ADDRESS*/ 00090000 L @15,AVTRNMPT(,RAVT) 03S0515 00091000 BALR @14,@15 03S0515 00092000 * RTRM=RPARM-LENGTH(IEDNTRM); /* SET UP ADDRESSABILITY TO THE 00093000 * TTE & PREFIX */ 00094000 LR RTRM,RPARM 03S0516 00095000 SH RTRM,@CH02008 03S0516 00096000 * RQCB=TRMDESTQ; /* SET UP ADDRESSABILITY TO THE 00097000 * QCB */ 00098000 SLR RQCB,RQCB 03S0517 00099000 ICM RQCB,7,TRMDESTQ(RTRM) 03S0517 00100000 * RETCODE=INITVAL; /* SET THE INTERNAL RETURN CODE 00101000 * TO X'FF' */ 00102000 MVI RETCODE,X'FF' 03S0518 00103000 * INSTATES=CLEARED; /* TURN OFF ALL INTERNAL STATE 00104000 * INDICATORS */ 00105000 MVI INSTATES,X'00' 03S0519 00106000 * THOAF=SAVTTCPU; /* INIT THE TH OAF FIELD WITH THE 00107000 * TCAM PU TTCIN */ 00108000 * 03S0520 00109000 L @10,AVTSAVTP(,RAVT) 03S0520 00110000 MVC THOAF(2),SAVTTCPU(@10) 03S0520 00111000 * /*****************************************************************/ 00112000 * /* */ 00113000 * /* SET UP THE DCT ENTRY IN THE TSO WORKAREA @Y17XAYO*/ 00114000 * /* */ 00115000 * /*****************************************************************/ 00116000 * 03S0521 00117000 */* ? IEDDCT REG(DCTPTR)FLD(TSWDCT)LEN(6); */ 00118000 * 03S0521 00119000 * /*****************************************************************/ 00120000 * /* */ 00121000 * /* SET UP ADDRESSABILITY TO THE DCT ENTRY */ 00122000 * /* */ 00123000 * /*****************************************************************/ 00124000 * 03S0521 00125000 * DCTPTR=AVTCSTCS+(TRMCHCIN-1)*AVTDCTLN; 03S0521 00126000 * 03S0521 00127000 SLR @03,@03 03S0521 00128000 IC @03,TRMCHCIN(,RTRM) 03S0521 00129000 BCTR @03,0 03S0521 00130000 MH @03,AVTDCTLN(,RAVT) 03S0521 00131000 AL @03,AVTCSTCS(,RAVT) 03S0521 00132000 ST @03,DCTPTR 03S0521 00133000 * /*****************************************************************/ 00134000 * /* */ 00135000 * /* MOVE THE DCT ENTRY TO THE SPECIFIED WORKAREA */ 00136000 * /* */ 00137000 * /*****************************************************************/ 00138000 * 03S0522 00139000 * TSWDCT(1:6)=DCTPTR->IEDDCT(1:6); 03S0522 00140000 * 03S0522 00141000 LA @10,124 03S0522 00142000 AL @10,AVTTSOPT(,RAVT) 03S0522 00143000 MVC TSWDCT(6,@10),IEDDCT(@03) 03S0522 00144000 * /*****************************************************************/ 00145000 * /* */ 00146000 * /* SET POINTER TO THE TARGET ADDRESS */ 00147000 * /* */ 00148000 * /*****************************************************************/ 00149000 * 03S0523 00150000 * DCTPTR=ADDR(TSWDCT); /* SET UP PTR */ 00151000 * 03S0523 00152000 LA @10,TSWDCT(,@10) 03S0523 00153000 ST @10,DCTPTR 03S0523 00154000 * /*****************************************************************/ 00155000 * /* */ 00156000 * /* IS THE DCT FOR AN LU WITH 3270 DATA STREAM */ 00157000 * /* */ 00158000 * /*****************************************************************/ 00159000 * 03S0524 00160000 * IF(TRMPREF='1'B&TRMTYPE=TRMLUNT&(TRMSIBPT->SIBLUTYP='0000000'B| 00161000 * TRMSIBPT->SIBLUTYP='0000010'B|TRMSIBPT->SIBLUTYP='0000011'B)) 00162000 * THEN 03S0524 00163000 * 03S0524 00164000 TM TRMPREF(RTRM),B'00010000' 03S0524 00165000 BNO @RF00524 03S0524 00166000 CLI TRMTYPE(RTRM),X'30' 03S0524 00167000 BNE @RF00524 03S0524 00168000 SLR @10,@10 03S0524 00169000 ICM @10,7,TRMSIBPT(RTRM) 03S0524 00170000 TM SIBLUTYP(@10),B'01111111' 03S0524 00171000 BZ @RT00524 03S0524 00172000 TM SIBLUTYP(@10),B'00000010' 03S0524 00173000 BNO @GL00003 03S0524 00174000 TM SIBLUTYP(@10),B'01111101' 03S0524 00175000 BZ @RT00524 03S0524 00176000 @GL00003 ICM @10,7,TRMSIBPT(RTRM) 03S0524 00177000 TM SIBLUTYP(@10),B'00000011' 03S0524 00178000 BNO @RF00524 03S0524 00179000 TM SIBLUTYP(@10),B'01111100' 03S0524 00180000 BNZ @RF00524 03S0524 00181000 @RT00524 DS 0H 03S0525 00182000 * /***************************************************************/ 00183000 * /* */ 00184000 * /* YES - THEN SET THE DCT3270 BIT IN THE COPY MADE */ 00185000 * /* */ 00186000 * /***************************************************************/ 00187000 * 03S0525 00188000 * DCTPTR->DCT3270='1'B; /* SET 3270 BIT @Y17XAYO*/ 00189000 L @10,DCTPTR 03S0525 00190000 OI DCT3270(@10),B'00000100' 03S0525 00191000 *MAINLINE: 02S0526 00192000 * DO; /* MAINLINE:CASE(CASENUM)NAMES(IE 00193000 * DA01,IEDA02,IEDA03) */ 00194000 @RF00524 DS 0H 02S0526 00195000 MAINLINE DS 0H 02S0527 00196000 * DCL 02S0527 00197000 * CL0001@ LABEL BASED(CP0001@(CASENUM)) VALUERANGE(IEDA01,IEDA02, 00198000 * IEDA03); /* BRANCH TARGET */ 00199000 * DCL 02S0528 00200000 * CP0001@(3) PTR(31) INIT(ADDR(IEDA01),ADDR(IEDA02),ADDR(IEDA03)) 00201000 * ; 02S0528 00202000 * GOTO CL0001@; /* BRANCH TO SELECTED CASE */ 00203000 L @10,CASENUM 02S0529 00204000 SLA @10,2 02S0529 00205000 L @10,CP0001@-4(@10) 02S0529 00206000 BR @10 02S0529 00207000 * 03S0530 00208000 * /***************************************************************/ 00209000 * /* */ 00210000 * /* PROCESS.IEDA01: THIS SEGMENT IS THE QCB ENTRY TO THE TSO */ 00211000 * /* SCHEDULER */ 00212000 * /* */ 00213000 * /***************************************************************/ 00214000 * 03S0530 00215000 *IEDA01: 03S0530 00216000 * DO; /* SUBCASE */ 00217000 IEDA01 DS 0H 03S0531 00218000 * IF TRMTSATN=ON|TRMLYNCH=ON /* UNSOLICITED ATTENTION OR 03S0531 00219000 * HANGUP */ 00220000 * THEN 03S0531 00221000 TM TRMTSATN(RTRM),B'00000100' 03S0531 00222000 BO @RT00531 03S0531 00223000 TM TRMLYNCH(RTRM),B'00000001' 03S0531 00224000 BNO @RF00531 03S0531 00225000 @RT00531 DS 0H 03S0532 00226000 * DO; 03S0532 00227000 * IF QCBTPUT=ON|QCBDISC=ON THEN/* NEXT OPERATION AN OUTPUT 00228000 * @YM05978*/ 00229000 TM QCBTPUT(RQCB),B'00100001' 03S0533 00230000 BZ @RF00533 03S0533 00231000 * DO; 03S0534 00232000 * IF QCBPLCBN=ON& /* IS PLCB ASSIGNED @YM05978*/ 00233000 * LCBSTCBA->STCBVTO^=DSPSEND THEN/* SEND SCHEDULER 00234000 * NOT IN THE PLCB @YM05978*/ 00235000 LR @10,RQCB 03S0535 00236000 AL @10,@CF03555 03S0535 00237000 TM QCBPLCBN-4(@10),B'10000000' 03S0535 00238000 BNO @RF00535 03S0535 00239000 ICM @10,7,LCBSTCBA(RLCB) 03S0535 00240000 CLI STCBVTO(@10),X'22' 03S0535 00241000 BE @RF00535 03S0535 00242000 * DO; 03S0536 00243000 * RFY 03S0537 00244000 * REG03 RSTD; /* RESTRICT REG 03 ACROSS 03S0537 00245000 * DISPATCHER CALL @YM05978*/ 00246000 * REG03=RLCB; /* LCB IN REG03 TO RECEIVE SEND 00247000 * SCHEDULER STCB @YM05978*/ 00248000 LR REG03,RLCB 03S0538 00249000 * CALL DSPUNAVR; /* MOVE SEND SCHED TO LCB 03S0539 00250000 * @YM05978*/ 00251000 LA @15,DSPUNAVR(,RDISP) 03S0539 00252000 BALR @14,@15 03S0539 00253000 * RFY 03S0540 00254000 * REG03 UNRSTD; /* @YM05978*/ 00255000 * RQCB=TRMDESTQ; /* RESTORE QCB ADDRESS @YM05978*/ 00256000 SLR RQCB,RQCB 03S0541 00257000 ICM RQCB,7,TRMDESTQ(RTRM) 03S0541 00258000 * END; /* @YM05978*/ 00259000 * ELSE 03S0543 00260000 * IF QCBPLCBN=OFF THEN/* IS THEREA PLCB ASSIGNED 00261000 * @YM05978*/ 00262000 B @RC00535 03S0543 00263000 @RF00535 LR @10,RQCB 03S0543 00264000 SH @10,@CH00044 03S0543 00265000 TM QCBPLCBN(@10),B'10000000' 03S0543 00266000 BNZ @RF00543 03S0543 00267000 * QCBSNDRQ=ON; /* INDICATE SEND SCHEDULER 03S0544 00268000 * REQUIRED @YM05978*/ 00269000 OI QCBSNDRQ(@10),B'00100000' 03S0544 00270000 * RETCODE=RCDSPDSP; /* INDICATE DSPDISP AND EXIT 00271000 * @Y17XAYP*/ 00272000 @RF00543 DS 0H 03S0545 00273000 @RC00535 MVI RETCODE,X'04' 03S0545 00274000 * END; /* @YM05978*/ 00275000 * ELSE 03S0547 00276000 * RETCODE=RCDSPDSP; /* INDICATE DSPDISP AND EXIT 00277000 * @YM05978*/ 00278000 B @RC00533 03S0547 00279000 @RF00533 MVI RETCODE,X'04' 03S0547 00280000 * END; 03S0548 00281000 * ELSE 03S0549 00282000 * DO; 03S0549 00283000 B @RC00531 03S0549 00284000 @RF00531 DS 0H 03S0550 00285000 * CALL IPPROC; /* PROCESS THE TSO REQUEST */ 00286000 BAL @14,IPPROC 03S0550 00287000 * IF RETCODE^=RCDSPDSP THEN/* IF RETCODE IS 03S0551 00288000 * RCDSPDSP@OZ32704 */ 00289000 CLI RETCODE,X'04' 03S0551 00290000 BE @RF00551 03S0551 00291000 * DO; /* THEN EXIT @OZ32704*/ 00292000 * CALL REQPLCB; /* ASSURE THAT A PLCB IS OBTAINED 00293000 * BEFORE GOING TO TCAM 03S0553 00294000 * DISPATCHER @OZ32704*/ 00295000 BAL @14,REQPLCB 03S0553 00296000 * END; /* @OZ32704*/ 00297000 * END; 03S0555 00298000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00299000 B CE0001@ 03S0556 00300000 * END IEDA01; /* END OF SUBCASE END THIS 03S0557 00301000 * SUBCASE */ 00302000 * 03S0558 00303000 * /***************************************************************/ 00304000 * /* */ 00305000 * /* PROCESS.IEDA02: THIS SEGMENT IS THE SEND SCHEDULER ENTRY TO */ 00306000 * /* THE TSO SCHEDULER */ 00307000 * /* */ 00308000 * /***************************************************************/ 00309000 * 03S0558 00310000 *IEDA02: 03S0558 00311000 * DO; /* SUBCASE SEND SCHEDULER - PLCB 00312000 * ENTRY */ 00313000 IEDA02 DS 0H 03S0559 00314000 * IF TRMTSATN=ON|TRMLYNCH=ON /* UNSOLICITED INPUT RECEIVED */ 00315000 * THEN 03S0559 00316000 TM TRMTSATN(RTRM),B'00000100' 03S0559 00317000 BO @RT00559 03S0559 00318000 TM TRMLYNCH(RTRM),B'00000001' 03S0559 00319000 BNO @RF00559 03S0559 00320000 @RT00559 DS 0H 03S0560 00321000 * CALL ATTNPROC; /* FREE THE PLCB AND EXIT */ 00322000 BAL @14,ATTNPROC 03S0560 00323000 * ELSE 03S0561 00324000 * DO; /* @YM08526*/ 00325000 B @RC00559 03S0561 00326000 @RF00559 DS 0H 03S0562 00327000 * CALL CKENDSES; /* CHECK TO SEE IF TSO SESSION 00328000 * MUST BE TERMINATED BECAUSE OF 00329000 * A STOPLINE,INOP,MCPCLOSE OR 00330000 * HALT @YM08526*/ 00331000 BAL @14,CKENDSES 03S0562 00332000 * IF ENDSESSN=ON THEN /* @YM08526*/ 00333000 TM ENDSESSN,B'00000001' 03S0563 00334000 BNO @RF00563 03S0563 00335000 * RETCODE=BYPAS2RS; /* SET RET CODE TO BYPASS TO REC 00336000 * SCHED @Y17XAYP*/ 00337000 MVI RETCODE,X'10' 03S0564 00338000 * ELSE 03S0565 00339000 * DO; /* @Y17XAYP*/ 00340000 B @RC00563 03S0565 00341000 @RF00563 DS 0H 03S0566 00342000 * IF QCBTSSES=ON& /* TSO IN SESSION */ 00343000 * LCBTSBUF=OFF THEN/* PLCB REQUEST BY TSO SCHEDULER*/ 00344000 TM QCBTSSES(RQCB),B'10000000' 03S0566 00345000 BNO @RF00566 03S0566 00346000 TM LCBTSBUF(RLCB),B'01000000' 03S0566 00347000 BNZ @RF00566 03S0566 00348000 * DO; 03S0567 00349000 * PLCBNTRY=ON; /* SET PLCB ENTRY STATE */ 00350000 OI PLCBNTRY,B'10000000' 03S0568 00351000 * LCBTSBUF=ON; /* INDICATE A TSO PROCESS */ 00352000 OI LCBTSBUF(RLCB),B'01000000' 03S0569 00353000 * CALL IPPROC; /* PROCESS THE TSO REQUEST */ 00354000 BAL @14,IPPROC 03S0570 00355000 * IF RETCODE^=ERBPOST THEN/* ERB ALREADY POSTED ? 00356000 * @OZ32265*/ 00357000 CLI RETCODE,X'18' 03S0571 00358000 BE @RF00571 03S0571 00359000 * CALL REQPLCB; /* NO, THEN REQUEST A PLCB 03S0572 00360000 * @OZ32265*/ 00361000 BAL @14,REQPLCB 03S0572 00362000 * IF BREAKPST=ON THEN/* BREAK-IN HAS BEEN POSTED */ 00363000 @RF00571 TM BREAKPST,B'00001000' 03S0573 00364000 BNO @RF00573 03S0573 00365000 * RETCODE=FREEPLCB;/* INDICATE THAT PLCB MUST BE 00366000 * FREED */ 00367000 MVI RETCODE,X'14' 03S0574 00368000 * ELSE 03S0575 00369000 * IF RETCODE=INITVAL|/* IF RETCODE NOT ALREADY 00370000 * SET @YM04669*/ 00371000 * RETCODE=ERBPOST|/* OR ERB ALREADY POSTED 00372000 * @OZ32265*/ 00373000 * RETCODE=RCDSPDSP THEN/* @YM09097*/ 00374000 B @RC00573 03S0575 00375000 @RF00573 CLI RETCODE,X'FF' 03S0575 00376000 BE @RT00575 03S0575 00377000 CLI RETCODE,X'18' 03S0575 00378000 BE @RT00575 03S0575 00379000 CLI RETCODE,X'04' 03S0575 00380000 BNE @RF00575 03S0575 00381000 @RT00575 DS 0H 03S0576 00382000 * RETCODE=RCDSPDSP;/* SET RETURN CODE FOR 03S0576 00383000 * DSPDISP @YM04669*/ 00384000 MVI RETCODE,X'04' 03S0576 00385000 * ELSE 03S0577 00386000 * CALL LCBPROC;/* PROCESS THE LCB @YM05631*/ 00387000 B @RC00575 03S0577 00388000 @RF00575 BAL @14,LCBPROC 03S0577 00389000 * END; 03S0578 00390000 * ELSE 03S0579 00391000 * CALL LCBPROC; /* PROCESS LCB POST TO SEND 03S0579 00392000 * SCHEDULER */ 00393000 B @RC00566 03S0579 00394000 @RF00566 BAL @14,LCBPROC 03S0579 00395000 * END; /* @Y17XAYP*/ 00396000 * END; /* @YM08526*/ 00397000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00398000 B CE0001@ 03S0582 00399000 * END IEDA02; /* END OF SUBCASE END OF SUBCASE */ 00400000 * 03S0584 00401000 * /***************************************************************/ 00402000 * /* */ 00403000 * /* PROCESS.IEDA03: THIS SEGMENT IS THE TSO RECEIVE SCHEDULER */ 00404000 * /* ENTRY */ 00405000 * /* */ 00406000 * /***************************************************************/ 00407000 * 03S0584 00408000 *IEDA03: 03S0584 00409000 * DO; /* SUBCASE */ 00410000 IEDA03 DS 0H 03S0585 00411000 * LCBNEGRP=OFF; /* RESET NEGRP TO PREVENT HANGUP 00412000 * @YM08125*/ 00413000 NI LCBNEGRP(RLCB),B'11110111' 03S0585 00414000 * IF TRMTSATN=ON|TRMLYNCH=ON THEN/* UNSOLICITED INPUT */ 00415000 TM TRMTSATN(RTRM),B'00000100' 03S0586 00416000 BO @RT00586 03S0586 00417000 TM TRMLYNCH(RTRM),B'00000001' 03S0586 00418000 BNO @RF00586 03S0586 00419000 @RT00586 DS 0H 03S0587 00420000 * CALL ATTNPROC; /* FREE THE PLCB AND EXIT */ 00421000 BAL @14,ATTNPROC 03S0587 00422000 * ELSE 03S0588 00423000 * 03S0588 00424000 * /***********************************************************/ 00425000 * /* */ 00426000 * /* DETERMINE IF A FORCE LOGOFF IS REQUIRED @Y17XAYP*/ 00427000 * /* */ 00428000 * /***********************************************************/ 00429000 * 03S0588 00430000 * DO; /* @Y17XAYP*/ 00431000 B @RC00586 03S0588 00432000 @RF00586 DS 0H 03S0589 00433000 * CALL CKENDSES; /* CHECK TO SEE IF TSO SESSION 00434000 * MUST BE TERMINATED BECAUSE OF 00435000 * A STOPLINE,INOP,MCPCLOSE OR 00436000 * HALT @YM08526*/ 00437000 BAL @14,CKENDSES 03S0589 00438000 * IF ENDSESSN=ON THEN /* @YM08526*/ 00439000 TM ENDSESSN,B'00000001' 03S0590 00440000 BNO @RF00590 03S0590 00441000 * CALL ENDTSSES; /* @Y17XAYP*/ 00442000 BAL @14,ENDTSSES 03S0591 00443000 * ELSE 03S0592 00444000 * 03S0592 00445000 * /*******************************************************/ 00446000 * /* */ 00447000 * /* NOT A FORCE LOGOFF ENTRY @Y17XAYP*/ 00448000 * /* */ 00449000 * /*******************************************************/ 00450000 * 03S0592 00451000 * DO; 03S0592 00452000 B @RC00590 03S0592 00453000 @RF00590 DS 0H 03S0593 00454000 * LCBTSBUF=ON; /* TSO OPERATION */ 00455000 OI LCBTSBUF(RLCB),B'01000000' 03S0593 00456000 * IF QCBDSSMI=ON|QCBESIG=ON THEN/* SMI SENT OR RCVR IN 00457000 * XMIT MODE @YM06864*/ 00458000 TM QCBDSSMI(RQCB),B'00010000' 03S0594 00459000 BO @RT00594 03S0594 00460000 LR @10,RQCB 03S0594 00461000 AL @10,@CF03555 03S0594 00462000 TM QCBESIG-4(@10),B'00001000' 03S0594 00463000 BNO @RF00594 03S0594 00464000 @RT00594 DS 0H 03S0595 00465000 * CALL READRTN; 03S0595 00466000 BAL @14,READRTN 03S0595 00467000 * ELSE 03S0596 00468000 * IF(QCBNOBUF=ON| /* IS A */ 00469000 * QCBPARTO=ON| /* READ NOT */ 00470000 * QCBWRBRK=ON) THEN/* POSSIBLE */ 00471000 B @RC00594 03S0596 00472000 @RF00594 TM QCBNOBUF(RQCB),B'10010100' 03S0596 00473000 BZ @RF00596 03S0596 00474000 * CALL SIMATTN; 03S0597 00475000 BAL @14,SIMATTN 03S0597 00476000 * ELSE 03S0598 00477000 * IF QCBREAD=ON THEN/* DOES READ HAVE PRIORITY */ 00478000 B @RC00596 03S0598 00479000 @RF00596 TM QCBREAD(RQCB),B'00100000' 03S0598 00480000 BNO @RF00598 03S0598 00481000 * CALL READRTN; 03S0599 00482000 BAL @14,READRTN 03S0599 00483000 * ELSE 03S0600 00484000 * IF QCBTPUT=ON&QCBTGET=OFF THEN/* A TPUT AND NOT 00485000 * A TGET */ 00486000 B @RC00598 03S0600 00487000 @RF00598 TM QCBTPUT(RQCB),B'00100000' 03S0600 00488000 BNO @RF00600 03S0600 00489000 TM QCBTGET(RQCB),B'01000000' 03S0600 00490000 BNZ @RF00600 03S0600 00491000 * CALL SIMATTN; 03S0601 00492000 BAL @14,SIMATTN 03S0601 00493000 * ELSE 03S0602 00494000 * IF QCBNOBRK=ON&/* TERMINAL IS NOT A BREAK 00495000 * TERM */ 00496000 * QCBTGET=OFF THEN/* THIS IS NOT A TGET 00497000 * REQUEST */ 00498000 B @RC00600 03S0602 00499000 @RF00600 TM QCBNOBRK(RQCB),B'01000000' 03S0602 00500000 BNO @RF00602 03S0602 00501000 TM QCBTGET(RQCB),B'01000000' 03S0602 00502000 BNZ @RF00602 03S0602 00503000 * CALL SIMATTN; 03S0603 00504000 BAL @14,SIMATTN 03S0603 00505000 * ELSE 03S0604 00506000 * CALL READRTN; 03S0604 00507000 B @RC00602 03S0604 00508000 @RF00602 BAL @14,READRTN 03S0604 00509000 * END; 03S0605 00510000 * END; 03S0606 00511000 * GOTO CE0001@; /* BRANCH TO END OF CASE */ 00512000 B CE0001@ 03S0607 00513000 * END IEDA03; /* END OF SUBCASE END OF SUBCASE */ 00514000 *CE0001@: 02S0609 00515000 * END MAINLINE; /* END OF CASE END OF THE 02S0609 00516000 * MAINLINE CASES */ 00517000 CE0001@ DS 0H 02S0610 00518000 * 02S0610 00519000 * /*****************************************************************/ 00520000 * /* */ 00521000 * /* EPILOGUE: THIS SEGMENT COMPLETES THE EPILOGUE CODE THAT WAS */ 00522000 * /* ALTERED BY THE MODULE PROCEDURE STATEMENT. */ 00523000 * /* */ 00524000 * /*****************************************************************/ 00525000 * 02S0610 00526000 * GEN REFS(AVTSAVE4,RETCODE) SETS(RZERO,RRET,RLINK); 02S0610 00527000 * /* 00528000 SR RLINK,RLINK CLEAR R15 FOR RETURN CODE IC 00529000 IC RLINK,RETCODE SET THE RETURN CODE IN R15 00530000 LM RZERO,RRET,AVTSAVE4+12(RAVT) RELOAD ALL BUT RETCD @YM07674 00531000 BR RRET RETURN TO CALLER 00532000 * 02S0611 00533000 * /*****************************************************************/ 00534000 * /* */ 00535000 * /* ATTNPROC: THIS SEGMENT CONTAINS THE ATTNPROC INTERNAL */ 00536000 * /* PROCEDURE WHICH PERFORMS TWO FUNCTIONS: (1) FREE THE PLCB, AND*/ 00537000 * /* (2) SET THE RETURN CODE TO INDICATE THAT THE DISPATCHER SHOULD*/ 00538000 * /* BE GIVEN CONTROL AT DSPDISP. */ 00539000 * /* */ 00540000 * /*****************************************************************/ 00541000 * 02S0611 00542000 * RFY 02S0611 00543000 * RRET RSTD; 02S0611 00544000 *ATTNPROC: 02S0612 00545000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0612 00546000 @EL00001 DS 0H 02S0612 00547000 @EF00001 DS 0H 02S0612 00548000 @ER00001 BR @14 02S0612 00549000 ATTNPROC DS 0H 02S0613 00550000 * SAVEWD04=RRET; 02S0613 00551000 ST RRET,SAVEWD04 02S0613 00552000 * RFY 02S0614 00553000 * RRET UNRSTD; 02S0614 00554000 * RPARM=RLCB; /* SET R1 TO ADDR OF LCB */ 00555000 LR RPARM,RLCB 02S0615 00556000 * CALL IEDIAP07; /* FREE THE PLCB */ 00557000 L @10,AVTSAVTP(,RAVT) 02S0616 00558000 L @15,SAVTPRTN(,@10) 02S0616 00559000 BALR @14,@15 02S0616 00560000 * RETCODE=RCDSPDSP; /* SET UP RETURN TO DSPDISP */ 00561000 MVI RETCODE,X'04' 02S0617 00562000 * RFY 02S0618 00563000 * RRET RSTD; 02S0618 00564000 * RRET=SAVEWD04; /* RESTORE RETURN ADDRESS TO RRET*/ 00565000 L RRET,SAVEWD04 02S0619 00566000 * END ATTNPROC; 02S0620 00567000 @EL00002 DS 0H 02S0620 00568000 @EF00002 DS 0H 02S0620 00569000 @ER00002 BR @14 02S0620 00570000 * RFY 02S0621 00571000 * RRET UNRSTD; 02S0621 00572000 * 02S0622 00573000 * /*****************************************************************/ 00574000 * /* */ 00575000 * /* BLDRESET: THIS SEGMENT CONTAINS THE BLDRESET INTERNAL */ 00576000 * /* PROCEDURE WHICH BUILDS THE RESET PIU IN A BUFFER AND POSTS THE*/ 00577000 * /* PIU TO IEDSAO (FID0). IF A BFR IS OBTAINED THE RESET PIU IS */ 00578000 * /* BUILT AND POSTED TO IEDSAO AT POSTED TO IEDSAO AT PRIOUTBD */ 00579000 * /* */ 00580000 * /*****************************************************************/ 00581000 * 02S0622 00582000 * RFY 02S0622 00583000 * RRET RSTD; 02S0622 00584000 *BLDRESET: 02S0623 00585000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0623 00586000 BLDRESET DS 0H 02S0624 00587000 * SAVEWD06=RRET; 02S0624 00588000 ST RRET,SAVEWD06 02S0624 00589000 * RFY 02S0625 00590000 * RRET UNRSTD; 02S0625 00591000 * RFY 02S0626 00592000 * IEDTH BASED(ADDR(PIU0TH)); /* @Y17XAYP*/ 00593000 * RFY 02S0627 00594000 * IEDRH BASED(ADDR(PIU0RH)); /* @Y17XAYP*/ 00595000 * BREAKPST=ON; /* INDICATE RESET SENT @YM05986*/ 00596000 OI BREAKPST,B'00001000' 02S0628 00597000 * CALL PIUCOND; /* CONDITION THE PIU */ 00598000 BAL @14,PIUCOND 02S0629 00599000 * IF QCBPLCBN=ON THEN /* IS A PLCB ASSIGNED */ 00600000 LR @10,RQCB 02S0630 00601000 AL @10,@CF03555 02S0630 00602000 TM QCBPLCBN-4(@10),B'10000000' 02S0630 00603000 BNO @RF00630 02S0630 00604000 * TTHDAF=LCBTTCIN; /* USE DAF FROM PLCB */ 00605000 LA @10,PRFPIUO(,RPRF) 02S0631 00606000 SLR @05,@05 02S0631 00607000 IC @05,PRFPIUO(,RPRF) 02S0631 00608000 ALR @10,@05 02S0631 00609000 MVC TTHDAF(2,@10),LCBTTCIN(RLCB) 02S0631 00610000 * ELSE 02S0632 00611000 * IF QCBWAITC=ON THEN /* IF THIS IS A CHAIN OF PIU'S 00612000 * THEN @XM05703*/ 00613000 B @RC00630 02S0632 00614000 @RF00630 LR @10,RQCB 02S0632 00615000 SH @10,@CH00044 02S0632 00616000 TM QCBWAITC(@10),B'01000000' 02S0632 00617000 BNO @RF00632 02S0632 00618000 * DO; /* @XM05703*/ 00619000 * RPARM=QCBPLCBA; /* POINT TO FIRST PIU @XM05703*/ 00620000 SLR RPARM,RPARM 02S0634 00621000 ICM RPARM,7,QCBPLCBA(@10) 02S0634 00622000 * RFY 02S0635 00623000 * IEDQPRF BASED(RPARM); /* @XM05703*/ 00624000 * RPARM=ADDR(PRFPIUO)+PRFPIUO;/* POINT TO TH @XM05703*/ 00625000 LA @10,PRFPIUO(,RPARM) 02S0636 00626000 SLR @05,@05 02S0636 00627000 IC @05,PRFPIUO(,RPARM) 02S0636 00628000 ALR @10,@05 02S0636 00629000 LR RPARM,@10 02S0636 00630000 * RFY 02S0637 00631000 * IEDQPRF BASED(RPRF); /* @XM05703*/ 00632000 * TTHDAF=RPARM->TTHOAF; /* GET TNT INDEX FROM THE OAF 00633000 * @XM05703*/ 00634000 LA @10,PRFPIUO(,RPRF) 02S0638 00635000 SLR @05,@05 02S0638 00636000 IC @05,PRFPIUO(,RPRF) 02S0638 00637000 ALR @10,@05 02S0638 00638000 MVC TTHDAF(2,@10),TTHOAF(RPARM) 02S0638 00639000 * END; /* @XM05703*/ 00640000 * ELSE /* @XM05703*/ 00641000 * TTHDAF=QCBTTCIN; /* SET UP DAF IN TH */ 00642000 B @RC00632 02S0640 00643000 @RF00632 LA @10,PRFPIUO(,RPRF) 02S0640 00644000 SLR @05,@05 02S0640 00645000 IC @05,PRFPIUO(,RPRF) 02S0640 00646000 ALR @10,@05 02S0640 00647000 LR @05,RQCB 02S0640 00648000 BCTR @05,0 02S0640 00649000 BCTR @05,0 02S0640 00650000 MVC TTHDAF(2,@10),QCBTTCIN-6(@05) 02S0640 00651000 * TTHDCF=LENGTH(IEDRH)+1+LENGTH(IEDBDU);/* SET UP DATA COUNT FIELD */ 00652000 @RC00632 DS 0H 02S0641 00653000 @RC00630 LA @10,PRFPIUO(,RPRF) 02S0641 00654000 SLR @05,@05 02S0641 00655000 IC @05,PRFPIUO(,RPRF) 02S0641 00656000 ALR @10,@05 02S0641 00657000 MVC TTHDCF(2,@10),@CH01239 02S0641 00658000 * BDUCMND=CD0CTRL; /* CONTROL COMMAND TYPE FOR RESET*/ 00659000 AH @10,@CH02008 02S0642 00660000 MVI BDUCMND(@10),X'08' 02S0642 00661000 * IF RESETYPE=COND THEN 02S0643 00662000 TM RESETYPE,B'00010000' 02S0643 00663000 BNZ @RF00643 02S0643 00664000 * BDUMODIF=CD0CRC; /* RESET CONDITIONAL */ 00665000 MVI BDUMODIF(@10),X'50' 02S0644 00666000 * ELSE 02S0645 00667000 * BDUMODIF=CD0CRI; /* RESET IMMEDIATE */ 00668000 B @RC00643 02S0645 00669000 @RF00643 LA @10,PRFPIUO(,RPRF) 02S0645 00670000 SLR @05,@05 02S0645 00671000 IC @05,PRFPIUO(,RPRF) 02S0645 00672000 ALR @10,@05 02S0645 00673000 MVI BDUMODIF+14(@10),X'44' 02S0645 00674000 */* RPARM AND RPRF ARE BOTH ALLOCATED TO R1 SO NO LOAD NEEDED */ 00675000 * 02S0646 00676000 * PRFPRI=PRIOUTBD; /* SET PRTY FOR POST */ 00677000 @RC00643 MVI PRFPRI(RPRF),X'E4' 02S0646 00678000 * PRFQCBA=SAVTSAO; /* SET UP IEDSAO QCB ADDRESS */ 00679000 L @10,AVTSAVTP(,RAVT) 02S0647 00680000 MVC PRFQCBA(3,RPRF),SAVTSAO+1(@10) 02S0647 00681000 * RPARM=RPRF; /* BUFFER FOR DISPATCHER @Y17XAYP*/ 00682000 LR RPARM,RPRF 02S0648 00683000 * CALL DSPPOSTR; /* CALL DISPATCHER FOR POST */ 00684000 LA @15,DSPPOSTR(,RDISP) 02S0649 00685000 BALR @14,@15 02S0649 00686000 * RQCB=TRMDESTQ; /* RESTORE QCB ADDR AFTER DISP 00687000 * CALL */ 00688000 SLR RQCB,RQCB 02S0650 00689000 ICM RQCB,7,TRMDESTQ(RTRM) 02S0650 00690000 * RFY 02S0651 00691000 * RRET RSTD; 02S0651 00692000 * RRET=SAVEWD06; /* RESTORE RETURN ADDRESS TO RRET*/ 00693000 L RRET,SAVEWD06 02S0652 00694000 * END BLDRESET; 02S0653 00695000 @EL00003 DS 0H 02S0653 00696000 @EF00003 DS 0H 02S0653 00697000 @ER00003 BR @14 02S0653 00698000 * RFY 02S0654 00699000 * RRET UNRSTD; 02S0654 00700000 * 02S0655 00701000 * /*****************************************************************/ 00702000 * /* */ 00703000 * /* BLDSMI: THIS SEGMENT CONTAINS THE BLDSMI INTERNAL PROCEDURE */ 00704000 * /* WHICH DETECTS WHETHER THE TERMINAL IS A 3270 OR IT IS A SNA */ 00705000 * /* TERMINAL WITH THE KEYBOARD LOCKED. IF IT IS THE GETBFR */ 00706000 * /* INTERNAL PROCEDURE IS CALLED TO REQUEST A BUFFER. IF A BUFFER */ 00707000 * /* IS OBTAINED THE INTERNAL PROCEDURE CKSNASMI IS CALLED FOR SNA */ 00708000 * /* TERMINALS TO DETERMINE IF A SMI OR NULL RU WITH CHANGE */ 00709000 * /* DIRECTION SIS TO BE BUILT. IF IF A BSC 3270 TERMINAL THE */ 00710000 * /* BLDWRBFR INTERNAL PROCEDURE IS CALLED TO BUILD A SMI PIU. */ 00711000 * /* */ 00712000 * /*****************************************************************/ 00713000 * 02S0655 00714000 * RFY 02S0655 00715000 * RRET RSTD; 02S0655 00716000 *BLDSMI: 02S0656 00717000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0656 00718000 BLDSMI DS 0H 02S0657 00719000 * SAVEWD03=RRET; 02S0657 00720000 ST RRET,SAVEWD03 02S0657 00721000 * RFY 02S0658 00722000 * RRET UNRSTD; /* Y17XAYO */ 00723000 * LCBRCLLN=OFF; /* RESET ALL @YM06926*/ 00724000 NI LCBRCLLN(RLCB),B'01111111' 02S0659 00725000 * LCBCTLMD=OFF; /* STATUS @YM06926*/ 00726000 NI LCBCTLMD(RLCB),B'11111101' 02S0660 00727000 * LCBINITN=OFF; /* BITS @YM06926*/ 00728000 * LCBCONT=OFF; /* EXCEPT @YM06926*/ 00729000 * LCBFREEN=OFF; /* NON-IMMEDIATE @YM06926*/ 00730000 * LCBSENDN=OFF; /* OPERATOR CONTROL IN PROGRESS 00731000 * @YM06926*/ 00732000 * LCBRECVN=ON; /* SET THE PLCB RECEIVING */ 00733000 OI LCBRECVN(RLCB),B'00000010' 02S0665 00734000 NI LCBINITN(RLCB),B'11100010' 02S0665 00735000 * IF DCT3270=ON|(TRMSNA=ON&SIBCD=ON) THEN/* A 3270 TERMINAL OR SNA 00736000 * TERMINAL WITH LOCKED KEYBOARD 00737000 * @Y17XAYP*/ 00738000 L @10,DCTPTR 02S0666 00739000 TM DCT3270(@10),B'00000100' 02S0666 00740000 BO @RT00666 02S0666 00741000 TM TRMSNA(RTRM),B'00000010' 02S0666 00742000 BNO @RF00666 02S0666 00743000 ICM @10,7,TRMSIBPT(RTRM) 02S0666 00744000 TM SIBCD(@10),B'10000000' 02S0666 00745000 BNO @RF00666 02S0666 00746000 @RT00666 DS 0H 02S0667 00747000 * CALL GETBFR; /* GET A BUFFER FOR THE SMI WRITE 00748000 * OR NULL RU WITH CHANGE 02S0667 00749000 * DIRECTION @Y17XAYP*/ 00750000 BAL @14,GETBFR 02S0667 00751000 * IF BUFAV=ON THEN /* WAS A BUFFER OBTAINED @YM06127*/ 00752000 @RF00666 TM BUFAV,B'00000010' 02S0668 00753000 BNO @RF00668 02S0668 00754000 * DO; 02S0669 00755000 * IF TRMSNA=ON THEN /* IS THIS A SNA TERMINAL 02S0670 00756000 * @YM06127*/ 00757000 TM TRMSNA(RTRM),B'00000010' 02S0670 00758000 BNO @RF00670 02S0670 00759000 * CALL CKSNASMI; /* DETERMINE IF A SNA SMI OR NULL 00760000 * RU WITH CD IS REQUIRED. 02S0671 00761000 * @YM06127*/ 00762000 BAL @14,CKSNASMI 02S0671 00763000 * ELSE 02S0672 00764000 * CALL BLDWRBFR; /* SEND SMI @YM06127*/ 00765000 B @RC00670 02S0672 00766000 @RF00670 BAL @14,BLDWRBFR 02S0672 00767000 * END; 02S0673 00768000 @RC00670 DS 0H 02S0674 00769000 * RFY 02S0674 00770000 * RRET RSTD; 02S0674 00771000 @RF00668 DS 0H 02S0675 00772000 * RRET=SAVEWD03; /* RESTORE RETURN ADDRESS TO RRET*/ 00773000 L RRET,SAVEWD03 02S0675 00774000 * END BLDSMI; 02S0676 00775000 @EL00004 DS 0H 02S0676 00776000 @EF00004 DS 0H 02S0676 00777000 @ER00004 BR @14 02S0676 00778000 * RFY 02S0677 00779000 * RRET UNRSTD; 02S0677 00780000 * 02S0678 00781000 * /*****************************************************************/ 00782000 * /* */ 00783000 * /* BLDWRBFR: THIS SEGMENT CONTAINS THE BLDWRBFR INTERNAL */ 00784000 * /* PROCEDURE WHICH BUILDS THE PIU TO CARRY THE WRITE SMI DATA AND*/ 00785000 * /* POSTS IT TO IEDSAO AT PRIOUTBD. */ 00786000 * /* */ 00787000 * /*****************************************************************/ 00788000 * 02S0678 00789000 * RFY 02S0678 00790000 * RRET RSTD; 02S0678 00791000 *BLDWRBFR: 02S0679 00792000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0679 00793000 BLDWRBFR DS 0H 02S0680 00794000 * SAVEWD06=RRET; 02S0680 00795000 ST RRET,SAVEWD06 02S0680 00796000 * RFY 02S0681 00797000 * RRET UNRSTD; 02S0681 00798000 * RFY 02S0682 00799000 * IEDTH BASED(ADDR(PIU0TH)); /* @Y17XAYP*/ 00800000 * RFY 02S0683 00801000 * IEDRH BASED(ADDR(PIU0RH)); /* @Y17XAYP*/ 00802000 * CALL PIUCOND; /* CONDITION THE PIU */ 00803000 BAL @14,PIUCOND 02S0684 00804000 * BDUTEXT(1:LENGTH(SMIDATA))=SMIDATA; 02S0685 00805000 * 02S0685 00806000 LA @10,PRFPIUO(,RPRF) 02S0685 00807000 SLR @05,@05 02S0685 00808000 IC @05,PRFPIUO(,RPRF) 02S0685 00809000 ALR @10,@05 02S0685 00810000 LA @05,14 02S0685 00811000 ALR @05,@10 02S0685 00812000 MVC BDUTEXT(3,@05),SMIDATA 02S0685 00813000 * /*****************************************************************/ 00814000 * /* */ 00815000 * /* MOVE THE SMI DATA INTO AREA IMM AFTER BDU */ 00816000 * /* */ 00817000 * /*****************************************************************/ 00818000 * 02S0686 00819000 * QCBDSSMI=ON; /* INDICATE SMI SENT */ 00820000 OI QCBDSSMI(RQCB),B'00010000' 02S0686 00821000 * TTHDAF=LCBTTCIN; /* SET UP THE DAF IN THE TH */ 00822000 MVC TTHDAF(2,@10),LCBTTCIN(RLCB) 02S0687 00823000 * TTHTAG2=TTHWRSMI; /* ID TAG TO INFORM DEBLK THIS IS 00824000 * SMI WRITE */ 00825000 MVI TTHTAG2(@10),X'05' 02S0688 00826000 * TTHDCF=LENGTH(IEDRH)+LENGTH(IEDBDU)+1+LENGTH(SMIDATA);/* SET DATA 00827000 * COUNT FIELD */ 00828000 MVC TTHDCF(2,@10),@CH00576 02S0689 00829000 * BDUCMND=CD0WRT; /* INDICATE A WRITE COMMAND */ 00830000 MVI BDUCMND(@05),X'02' 02S0690 00831000 * IF TRMSESSN=ON THEN /* @YM06465*/ 00832000 TM TRMSESSN(RTRM),B'01000000' 02S0691 00833000 BNO @RF00691 02S0691 00834000 * BDUMODIF=CD0WT; /* SET WRITE WITH EOT MODIFIER 00835000 * @YM06465*/ 00836000 MVI BDUMODIF(@05),X'02' 02S0692 00837000 * ELSE 02S0693 00838000 * BDUMODIF=CD0WCD; /* SET WRITE WITH CONTACT & 02S0693 00839000 * DISCONNECT @YM06465*/ 00840000 B @RC00691 02S0693 00841000 @RF00691 LA @10,PRFPIUO(,RPRF) 02S0693 00842000 SLR @05,@05 02S0693 00843000 IC @05,PRFPIUO(,RPRF) 02S0693 00844000 ALR @10,@05 02S0693 00845000 MVI BDUMODIF+14(@10),X'0B' 02S0693 00846000 */* RPARM AND RPRF ARE BOTH DEFINED ON R1 SO NO LOAD REQ'D */ 00847000 * 02S0694 00848000 * PRFPRI=PRIOUTBD; /* SET UP PRTY */ 00849000 @RC00691 MVI PRFPRI(RPRF),X'E4' 02S0694 00850000 * PRFQCBA=SAVTSAO; /* ADDR OF IEDSAO QCB */ 00851000 L @10,AVTSAVTP(,RAVT) 02S0695 00852000 MVC PRFQCBA(3,RPRF),SAVTSAO+1(@10) 02S0695 00853000 * RPARM=RPRF; /* BUFFER FOR DISPATCHER @Y17XAYP*/ 00854000 LR RPARM,RPRF 02S0696 00855000 * CALL DSPPOSTR; /* POST THE BFR TO SAO */ 00856000 LA @15,DSPPOSTR(,RDISP) 02S0697 00857000 BALR @14,@15 02S0697 00858000 * RQCB=TRMDESTQ; /* RESTORE QCB ADDR TO R7 */ 00859000 SLR RQCB,RQCB 02S0698 00860000 ICM RQCB,7,TRMDESTQ(RTRM) 02S0698 00861000 * RFY 02S0699 00862000 * RRET RSTD; 02S0699 00863000 * RRET=SAVEWD06; /* RESTORE RETURN ADDRESS TO RRET*/ 00864000 L RRET,SAVEWD06 02S0700 00865000 * END BLDWRBFR; 02S0701 00866000 @EL00005 DS 0H 02S0701 00867000 @EF00005 DS 0H 02S0701 00868000 @ER00005 BR @14 02S0701 00869000 * RFY 02S0702 00870000 * RRET UNRSTD; 02S0702 00871000 * 02S0703 00872000 * /*****************************************************************/ 00873000 * /* */ 00874000 * /* CKENDSES: THIS SEGMENT DETERMINES IS A STOPLINE I,Z TP,QUICK,Z*/ 00875000 * /* NCP,QUICK OPERATOR CONTROL COMMAND HAVE BEEN REQUESTED FOR A */ 00876000 * /* TERMINAL IN A TSO SESSION. IF ONE OF THESE COMMANDS HAVE BEEN */ 00877000 * /* ISSUED AN INTERNAL INDICATOR IS SET FOR THE CALLING SEGMENT SO*/ 00878000 * /* THAT THE TSO SESSION WILL BE ENDED. @YM08526*/ 00879000 * /* */ 00880000 * /*****************************************************************/ 00881000 * 02S0703 00882000 * RFY 02S0703 00883000 * RRET RSTD; /* @Y17XAYP*/ 00884000 *CKENDSES: /* @YM08526*/ 00885000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @YM08526*/ 00886000 CKENDSES DS 0H 02S0705 00887000 * DO; /* @YM08526*/ 00888000 * SAVEWD09=RRET; /* SAVE RETURN ADDRESS @YM08526*/ 00889000 ST RRET,SAVEWD09 02S0706 00890000 * RFY 02S0707 00891000 * RRET UNRSTD; 02S0707 00892000 * IF(TRMSNA=ON&SIBLGOFF=ON)| /* SNA TRM AND LOGOFF REQUESTED 00893000 * END TSO SESSION @ZM47737*/ 00894000 * (TRMSNA=OFF&(TRMOCNI=ON&TRMSTMM=ON))|/* STOPLINE I IN 02S0708 00895000 * PROGRESS FORCE TSO SESSION TO 00896000 * END @Y17XAYP 00897000 * @ZM47737*/ 00898000 * (AVTCLOSN=ON&AVTQUCKN=ON)|/* TCAM QUICK CLOSE FORCE TSO 00899000 * SESSION TO END @Y17XAYP*/ 00900000 * (LCBNCPPT-LENGTH(IEDNTRM))->TRMINOP=ON|/* CHANNEL INOP, END 00901000 * TSO SESSION @YM08120*/ 00902000 * ((LCBNCPPT-LENGTH(IEDNTRM))->TRMNCPCL=ON&(LCBNCPPT-LENGTH( 00903000 * IEDNTRM))->TRMQUCKN=ON) THEN/* NCP QUICK CLOSE FORCE TSO 00904000 * SESSION TO END @Y17XAYP*/ 00905000 TM TRMSNA(RTRM),B'00000010' 02S0708 00906000 BNO @GL00019 02S0708 00907000 ICM @10,7,TRMSIBPT(RTRM) 02S0708 00908000 TM SIBLGOFF(@10),B'10000000' 02S0708 00909000 BO @RT00708 02S0708 00910000 @GL00019 TM TRMSNA(RTRM),B'00000010' 02S0708 00911000 BNZ @GL00018 02S0708 00912000 TM TRMOCNI(RTRM),B'00100000' 02S0708 00913000 BNO @GL00018 02S0708 00914000 TM TRMSTMM(RTRM),B'00100000' 02S0708 00915000 BO @RT00708 02S0708 00916000 @GL00018 TM AVTCLOSN(RAVT),B'00000110' 02S0708 00917000 BO @RT00708 02S0708 00918000 SLR @10,@10 02S0708 00919000 ICM @10,7,LCBNCPPT(RLCB) 02S0708 00920000 SH @10,@CH02008 02S0708 00921000 TM TRMINOP(@10),B'10000000' 02S0708 00922000 BO @RT00708 02S0708 00923000 TM TRMNCPCL(@10),B'01001000' 02S0708 00924000 BNO @RF00708 02S0708 00925000 @RT00708 DS 0H 02S0709 00926000 * ENDSESSN=ON; /* INDICATE THAT TSO SESSION MUST 00927000 * END @YM08526*/ 00928000 OI ENDSESSN,B'00000001' 02S0709 00929000 * END; 02S0710 00930000 @RF00708 DS 0H 02S0711 00931000 * RFY 02S0711 00932000 * RRET RSTD; 02S0711 00933000 * RRET=SAVEWD09; /* RESTORE THE RETURN ADDRESS 00934000 * @YM08526*/ 00935000 L RRET,SAVEWD09 02S0712 00936000 * END CKENDSES; /* @YM08526*/ 00937000 @EL00006 DS 0H 02S0713 00938000 @EF00006 DS 0H 02S0713 00939000 @ER00006 BR @14 02S0713 00940000 * RFY 02S0714 00941000 * RRET UNRSTD; 02S0714 00942000 * 02S0715 00943000 * /*****************************************************************/ 00944000 * /* */ 00945000 * /* CHKESIG: THIS SEGMENT CONTAINS THE CHKESIG INTERNAL PROCEDURE */ 00946000 * /* WHICH DETERMINES WHETHER A SIGNAL DATA FLOW COMMAND TO BREAK */ 00947000 * /* IN SHOULD BE SENT. THE GET BUFFER INTERNAL PROCEDURE IS CALLED*/ 00948000 * /* TO OBTAIN A BUFFER. IF A BUFFER IS OBTAINED THE INTERNAL */ 00949000 * /* PROCEDURE SNDESIG IS CALL TO SEND A SIGNAL COMMAND. */ 00950000 * /* */ 00951000 * /*****************************************************************/ 00952000 * 02S0715 00953000 * RFY 02S0715 00954000 * RRET RSTD; 02S0715 00955000 *CHKESIG: 02S0716 00956000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0716 00957000 CHKESIG DS 0H 02S0717 00958000 * SAVEWD03=RRET; /* SAVE THE RETURN ADDRESS */ 00959000 ST RRET,SAVEWD03 02S0717 00960000 * RFY 02S0718 00961000 * RRET UNRSTD; 02S0718 00962000 * IF QCBSATRD=ON&QCBDISC=ON THEN /* LOGOFF & SIMATTN @OZ28271*/ 00963000 TM QCBSATRD(RQCB),B'00001001' 02S0719 00964000 BNO @RF00719 02S0719 00965000 * DO; /* @OZ28271*/ 00966000 * QCBSATCT=ZERO; /* ZERO LINE COUNT @OZ28271*/ 00967000 L @10,ZERO 02S0721 00968000 STC @10,QCBSATCT(,RQCB) 02S0721 00969000 * QCBCARCT=ZERO; /* ZERO CARRIAGE COUNT@OZ28271 */ 00970000 STC @10,QCBCARCT(,RQCB) 02S0722 00971000 * END; /* @OZ28271*/ 00972000 * QCBSATRD=OFF; /* INDICATE NO SIM ATTN REQUEST */ 00973000 @RF00719 NI QCBSATRD(RQCB),B'11110111' 02S0724 00974000 * QCBSIMRD=OFF; /* INDICATE NO SIM ATTN READ */ 00975000 NI QCBSIMRD(RQCB),B'11110111' 02S0725 00976000 * IF QCBWRBRK=ON THEN /* IS THIS A TPUT BREAK */ 00977000 TM QCBWRBRK(RQCB),B'10000000' 02S0726 00978000 BNO @RF00726 02S0726 00979000 * DO; /* TPUT BREAK PROCESSING */ 00980000 * QCBREAD=OFF; /* INDICATE READ NO LONGER HAS 00981000 * PRIORITY */ 00982000 NI QCBREAD(RQCB),B'11011111' 02S0728 00983000 * IF TRMWRBRK=OFF THEN /* IS A WRITE BREAK NOT IN 02S0729 00984000 * PROGRESS */ 00985000 TM TRMWRBRK(RTRM),B'00000001' 02S0729 00986000 BNZ @RF00729 02S0729 00987000 * DO; /* PROCESS BREAK IN */ 00988000 * IF((QCBPLCBN=ON&LCBMSGNN=OFF)|QCBPLCBN=OFF)&/* IS THIS 00989000 * NOT A MSGGEN */ 00990000 * QCBESIG=ON THEN /* IS SIGNAL REQUIRED FOR BREAK 00991000 * IN */ 00992000 LR @10,RQCB 02S0731 00993000 AL @10,@CF03555 02S0731 00994000 TM QCBPLCBN-4(@10),B'10000000' 02S0731 00995000 BNO @GL00024 02S0731 00996000 TM LCBMSGNN(RLCB),B'01000000' 02S0731 00997000 BZ @GL00023 02S0731 00998000 @GL00024 LR @10,RQCB 02S0731 00999000 AL @10,@CF03555 02S0731 01000000 TM QCBPLCBN-4(@10),B'10000000' 02S0731 01001000 BNZ @RF00731 02S0731 01002000 @GL00023 LR @10,RQCB 02S0731 01003000 AL @10,@CF03555 02S0731 01004000 TM QCBESIG-4(@10),B'00001000' 02S0731 01005000 BNO @RF00731 02S0731 01006000 * DO; /* SEND SIGNAL AND REQUEST SEND 01007000 * SCHED */ 01008000 * CALL GETBFR; /* REQUEST A BUFFER @YM06127*/ 01009000 BAL @14,GETBFR 02S0733 01010000 * IF BUFAV=ON THEN /* WAS A BUFFER OBTAINED @YM06127*/ 01011000 TM BUFAV,B'00000010' 02S0734 01012000 BNO @RF00734 02S0734 01013000 * DO; /* @YM07018*/ 01014000 * TRMWRBRK=ON; /* INDICATE BREAK IN PROGRESS 01015000 * @UM07018*/ 01016000 LA @15,TRMWRBRK(,RTRM) 02S0736 01017000 LR @14,@15 02S0736 01018000 LA @10,3 02S0736 01019000 NR @14,@10 02S0736 01020000 LCR @14,@14 02S0736 01021000 ALR @15,@14 02S0736 01022000 L @10,0(,@15) 02S0736 01023000 @GL00026 LR @05,@10 02S0736 01024000 O @05,@CB03566+3(@14) 02S0736 01025000 CS @10,@05,0(@15) 02S0736 01026000 BNE @GL00026 02S0736 01027000 * CALL SNDESIG; /* SEND SIGNAL */ 01028000 BAL @14,SNDESIG 02S0737 01029000 * END; /* @YM07018*/ 01030000 * SSREQD=ON; /* REQUEST SEND SCHEDULER */ 01031000 @RF00734 OI SSREQD,B'01000000' 02S0739 01032000 * END; 02S0740 01033000 * ELSE 02S0741 01034000 * ; /* SIGNAL NOT REQUIRED FOR BREAK 01035000 * IN */ 01036000 @RF00731 DS 0H 02S0742 01037000 * END; 02S0742 01038000 * ELSE 02S0743 01039000 * ; /* WRITE BREAK ALREADY IN 02S0743 01040000 * PROGRESS */ 01041000 @RF00729 DS 0H 02S0744 01042000 * END; 02S0744 01043000 * RFY 02S0745 01044000 * RRET RSTD; /* RESTRICT THE RETURN REGISTER */ 01045000 @RF00726 DS 0H 02S0746 01046000 * RRET=SAVEWD03; /* RESTORE THE RETURN ADDRESS */ 01047000 L RRET,SAVEWD03 02S0746 01048000 * END CHKESIG; /* @YM06127*/ 01049000 @EL00007 DS 0H 02S0747 01050000 @EF00007 DS 0H 02S0747 01051000 @ER00007 BR @14 02S0747 01052000 * RFY 02S0748 01053000 * RRET UNRSTD; 02S0748 01054000 * 02S0749 01055000 * /*****************************************************************/ 01056000 * /* */ 01057000 * /* CHKRESET: THIS SEGMENT CONTAINS THE CHKRESET INTERNAL */ 01058000 * /* PROCEDURE WHICH DETERMINES WHETHER A WRITE RESET (FID0) OR A */ 01059000 * /* WRITE BREAK RESET (FID0) TO BREAK-IN SHOULD BE SENT. IF */ 01060000 * /* REQUIRED, THE APPROPRIATE INTERNAL PROCEDURE (WRESET OR */ 01061000 * /* WBRESET) IS CALLED TO SEND THE RESET IMMEDIATE OR RESET */ 01062000 * /* CONDITIONAL */ 01063000 * /* */ 01064000 * /*****************************************************************/ 01065000 * 02S0749 01066000 * RFY 02S0749 01067000 * RRET RSTD; 02S0749 01068000 *CHKRESET: 02S0750 01069000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0750 01070000 CHKRESET DS 0H 02S0751 01071000 * SAVEWD03=RRET; /* SAVE THE RETURN ADDRESS */ 01072000 ST RRET,SAVEWD03 02S0751 01073000 * RFY 02S0752 01074000 * RRET UNRSTD; 02S0752 01075000 * IF QCBSATRD=ON&QCBDISC=ON THEN /* LOGOFF & SIMATTN @OZ28271*/ 01076000 TM QCBSATRD(RQCB),B'00001001' 02S0753 01077000 BNO @RF00753 02S0753 01078000 * DO; /* @OZ28271*/ 01079000 * QCBSATCT=ZERO; /* ZERO LINE COUNT @OZ28271*/ 01080000 L @10,ZERO 02S0755 01081000 STC @10,QCBSATCT(,RQCB) 02S0755 01082000 * QCBCARCT=ZERO; /* ZERO CARRIAGE COUNT@OZ28271 */ 01083000 STC @10,QCBCARCT(,RQCB) 02S0756 01084000 * END; /* @OZ28271*/ 01085000 * QCBSATRD=OFF; /* INDICATE NO SIM ATTN READ 01086000 * PROCESSING REQUIRED */ 01087000 @RF00753 NI QCBSATRD(RQCB),B'11110111' 02S0758 01088000 * QCBSIMRD=OFF; /* INDICATE NO SIM ATTN READ 01089000 * STARTED */ 01090000 NI QCBSIMRD(RQCB),B'11110111' 02S0759 01091000 * IF QCBWRBRK=ON THEN /* TPUT BREAK PROCESS */ 01092000 * 02S0760 01093000 TM QCBWRBRK(RQCB),B'10000000' 02S0760 01094000 BNO @RF00760 02S0760 01095000 * /***************************************************************/ 01096000 * /* */ 01097000 * /* TPUT BREAK PROCESS */ 01098000 * /* */ 01099000 * /***************************************************************/ 01100000 * 02S0761 01101000 * DO; 02S0761 01102000 * QCBREAD=OFF; /* INDICATE THAT READ DOES NOT 01103000 * HAVE PRIORITY */ 01104000 NI QCBREAD(RQCB),B'11011111' 02S0762 01105000 * IF TRMWRBRK=OFF THEN /* NO WRITE BREAK ALREADY IN 01106000 * PROGRESS, */ 01107000 TM TRMWRBRK(RTRM),B'00000001' 02S0763 01108000 BNZ @RF00763 02S0763 01109000 * DO; /* @YM06856*/ 01110000 * IF(QCBPLCBN=ON&LCBMSGNN=OFF)|QCBPLCBN=OFF THEN/* NOT A 01111000 * MSGGEN */ 01112000 LR @10,RQCB 02S0765 01113000 AL @10,@CF03555 02S0765 01114000 TM QCBPLCBN-4(@10),B'10000000' 02S0765 01115000 BNO @GL00027 02S0765 01116000 TM LCBMSGNN(RLCB),B'01000000' 02S0765 01117000 BZ @RT00765 02S0765 01118000 @GL00027 LR @10,RQCB 02S0765 01119000 AL @10,@CF03555 02S0765 01120000 TM QCBPLCBN-4(@10),B'10000000' 02S0765 01121000 BNZ @RF00765 02S0765 01122000 @RT00765 DS 0H 02S0766 01123000 * IF TRMSTPND=OFF THEN /* NOT AWAITING BSC STATUS */ 01124000 TM TRMSTPND(RTRM),B'10000000' 02S0766 01125000 BNZ @RF00766 02S0766 01126000 * IF TRMINPTP=ON THEN 02S0767 01127000 TM TRMINPTP(RTRM),B'01000000' 02S0767 01128000 BO @RT00767 02S0767 01129000 * ; /* IF BSC/SS INPUT PENDING THEN 01130000 * RETURN BECAUSE NO RESET IS 01131000 * NEEDED @YM06127*/ 01132000 * ELSE /* OTHERWISE IF... @YM05700*/ 01133000 * IF(QCBPLCBN=ON&LCBCONT=ON)|/* READ OR INVITE */ 01134000 * (TRMINOUT=ON|TRMRDOUT=ON) THEN/* TO RESET 02S0769 01135000 * @YM06127*/ 01136000 LR @10,RQCB 02S0769 01137000 AL @10,@CF03555 02S0769 01138000 TM QCBPLCBN-4(@10),B'10000000' 02S0769 01139000 BNO @GL00029 02S0769 01140000 TM LCBCONT(RLCB),B'00001000' 02S0769 01141000 BO @RT00769 02S0769 01142000 @GL00029 TM TRMINOUT(RTRM),B'00000011' 02S0769 01143000 BZ @RF00769 02S0769 01144000 @RT00769 DS 0H 02S0770 01145000 * DO; 02S0770 01146000 * CALL WBRESET; 02S0771 01147000 BAL @14,WBRESET 02S0771 01148000 * SSREQD=ON; 02S0772 01149000 OI SSREQD,B'01000000' 02S0772 01150000 * END; 02S0773 01151000 * END; /* @YM06856*/ 01152000 * ELSE /* @YM06856*/ 01153000 * SSREQD=OFF; /* SEND SCHEDULER PREVIOUSLY 01154000 * REQUESTED WHEN WHEN BREAK-IN 01155000 * SENT @YM06856*/ 01156000 B @RC00763 02S0775 01157000 @RF00763 NI SSREQD,B'10111111' 02S0775 01158000 * END; 02S0776 01159000 * ELSE 02S0777 01160000 * 02S0777 01161000 * /***************************************************************/ 01162000 * /* */ 01163000 * /* TPUT NOBREAK PROCESS */ 01164000 * /* */ 01165000 * /***************************************************************/ 01166000 * 02S0777 01167000 * IF QCBREAD=OFF THEN /* NOT READ PRIORITY, AND... */ 01168000 B @RC00760 02S0777 01169000 @RF00760 TM QCBREAD(RQCB),B'00100000' 02S0777 01170000 BNZ @RF00777 02S0777 01171000 * IF(QCBPLCBN=ON&LCBMSGNN=OFF)|QCBPLCBN=OFF THEN/* NOT A MSGGEN*/ 01172000 LR @10,RQCB 02S0778 01173000 AL @10,@CF03555 02S0778 01174000 TM QCBPLCBN-4(@10),B'10000000' 02S0778 01175000 BNO @GL00031 02S0778 01176000 TM LCBMSGNN(RLCB),B'01000000' 02S0778 01177000 BZ @RT00778 02S0778 01178000 @GL00031 LR @10,RQCB 02S0778 01179000 AL @10,@CF03555 02S0778 01180000 TM QCBPLCBN-4(@10),B'10000000' 02S0778 01181000 BNZ @RF00778 02S0778 01182000 @RT00778 DS 0H 02S0779 01183000 * IF TRMSTPND=OFF THEN /* NOT AWAITING BSC STATUS */ 01184000 TM TRMSTPND(RTRM),B'10000000' 02S0779 01185000 BNZ @RF00779 02S0779 01186000 * IF TRMINPTP=ON THEN 02S0780 01187000 TM TRMINPTP(RTRM),B'01000000' 02S0780 01188000 BO @RT00780 02S0780 01189000 * ; /* IF BSC/SS INPUT PENDING THEN 01190000 * RETURN BECAUSE NO RESET IS 01191000 * NEEDED @YM06127*/ 01192000 * ELSE /* OTHERWISE IF ... @YM05700*/ 01193000 * IF(QCBPLCBN=ON&LCBCONT=ON)|/* READ OR INVITE */ 01194000 * (TRMINOUT=ON|TRMRDOUT=ON) THEN/* TO RESET */ 01195000 LR @10,RQCB 02S0782 01196000 AL @10,@CF03555 02S0782 01197000 TM QCBPLCBN-4(@10),B'10000000' 02S0782 01198000 BNO @GL00033 02S0782 01199000 TM LCBCONT(RLCB),B'00001000' 02S0782 01200000 BO @RT00782 02S0782 01201000 @GL00033 TM TRMINOUT(RTRM),B'00000011' 02S0782 01202000 BZ @RF00782 02S0782 01203000 @RT00782 DS 0H 02S0783 01204000 * DO; 02S0783 01205000 * CALL WRESET; 02S0784 01206000 BAL @14,WRESET 02S0784 01207000 * SSREQD=ON; 02S0785 01208000 OI SSREQD,B'01000000' 02S0785 01209000 * END; 02S0786 01210000 * RFY 02S0787 01211000 * RRET RSTD; 02S0787 01212000 @RF00782 DS 0H 02S0787 01213000 @RT00780 DS 0H 02S0787 01214000 @RF00779 DS 0H 02S0787 01215000 @RF00778 DS 0H 02S0787 01216000 @RF00777 DS 0H 02S0787 01217000 @RC00760 DS 0H 02S0788 01218000 * RRET=SAVEWD03; /* RESTORE THE RETURN ADDRESS */ 01219000 L RRET,SAVEWD03 02S0788 01220000 * END CHKRESET; 02S0789 01221000 @EL00008 DS 0H 02S0789 01222000 @EF00008 DS 0H 02S0789 01223000 @ER00008 BR @14 02S0789 01224000 * RFY 02S0790 01225000 * RRET UNRSTD; 02S0790 01226000 * 02S0791 01227000 * /*****************************************************************/ 01228000 * /* */ 01229000 * /* CKSNASMI: THIS SEGMENT CONTAINS THE CKSNASMI INTERNAL */ 01230000 * /* PROCEDURE WHICH BUILDS THE SNA WRTIE SMI DATA (FID1) OR THE */ 01231000 * /* NULL RU WITH CHANGE DIRECTION TO UNLOCK SNA KEYBOARDS (FID1) */ 01232000 * /* AND POST IT TO IEDDFOUT AT PRIOUTBD PRIORITY. */ 01233000 * /* */ 01234000 * /*****************************************************************/ 01235000 * 02S0791 01236000 * RFY 02S0791 01237000 * RRET RSTD; 02S0791 01238000 *CKSNASMI: 02S0792 01239000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0792 01240000 CKSNASMI DS 0H 02S0793 01241000 * SAVEWD06=RRET; 02S0793 01242000 ST RRET,SAVEWD06 02S0793 01243000 * RFY 02S0794 01244000 * RRET UNRSTD; 02S0794 01245000 * RFY 02S0795 01246000 * IEDTH BASED(ADDR(PIUTH)); /* @Y17XAYP*/ 01247000 * RFY 02S0796 01248000 * IEDRH BASED(ADDR(PIURH)); /* @Y17XAYP*/ 01249000 * CALL PIU1COND; /* CONDITION THE FID1 PIU 02S0797 01250000 * @Y17XAYP*/ 01251000 BAL @14,PIU1COND 02S0797 01252000 * TTHDCF=LENGTH(IEDRH); /* ASSUME DATA COUNT FOR NULL RU 01253000 * @Y17XAYP*/ 01254000 LA @10,PRFPIUO(,RPRF) 02S0798 01255000 SLR @05,@05 02S0798 01256000 IC @05,PRFPIUO(,RPRF) 02S0798 01257000 ALR @10,@05 02S0798 01258000 MVC TTHDCF(2,@10),@CH00073 02S0798 01259000 * IF SIBCD=ON THEN 02S0799 01260000 SLR @05,@05 02S0799 01261000 ICM @05,7,TRMSIBPT(RTRM) 02S0799 01262000 TM SIBCD(@05),B'10000000' 02S0799 01263000 BNO @RF00799 02S0799 01264000 * IF SIBFMODE=SIBHDXFF THEN /* DOES THE TERMINAL REQUIRE 01265000 * CHANGE DIRECTION INDICATOR TO 01266000 * BE SET @YM06976*/ 01267000 TM SIBFMODE(@05),B'10000000' 02S0800 01268000 BNO @RF00800 02S0800 01269000 TM SIBFMODE(@05),B'01000000' 02S0800 01270000 BNZ @RF00800 02S0800 01271000 * TRHCDI=ON; /* GIVE TERMINAL THE CHANGE 02S0801 01272000 * DIRECTION BIT SO IT CAN INPUT 01273000 * @Y17XAYP*/ 01274000 OI TRHCDI+10(@10),B'00100000' 02S0801 01275000 * SIBCD=OFF; /* TURN THE SIB BIT OFF IF NOT A 01276000 * HALF-DUPLEX SESSION */ 01277000 @RF00800 DS 0H 02S0802 01278000 @RF00799 ICM @10,7,TRMSIBPT(RTRM) 02S0802 01279000 NI SIBCD(@10),B'01111111' 02S0802 01280000 * IF QCBTSSES=ON THEN /* SEND SMI ONLY IF IN TSO 02S0803 01281000 * SESSION */ 01282000 TM QCBTSSES(RQCB),B'10000000' 02S0803 01283000 BNO @RF00803 02S0803 01284000 * IF DCT3270=ON&QCBDSSMI=OFF THEN/* IS SMI REQUIRED */ 01285000 L @10,DCTPTR 02S0804 01286000 TM DCT3270(@10),B'00000100' 02S0804 01287000 BNO @RF00804 02S0804 01288000 TM QCBDSSMI(RQCB),B'00010000' 02S0804 01289000 BNZ @RF00804 02S0804 01290000 * DO; /* @Y17XAYP*/ 01291000 * SMIRU=SNASMI; /* MOVE SNA SMI SEQUENCE TO PIU 01292000 * @Y17XAYP*/ 01293000 LA @10,PRFPIUO(,RPRF) 02S0806 01294000 SLR @05,@05 02S0806 01295000 IC @05,PRFPIUO(,RPRF) 02S0806 01296000 ALR @10,@05 02S0806 01297000 MVC SMIRU+13(2,@10),SNASMI 02S0806 01298000 * TTHDCF=TTHDCF+LENGTH(SNASMI);/* SET DATA COUNT FIELD 02S0807 01299000 * @Y17XAYP*/ 01300000 LA @05,2 02S0807 01301000 SLR @15,@15 02S0807 01302000 ICM @15,3,TTHDCF(@10) 02S0807 01303000 ALR @05,@15 02S0807 01304000 STH @05,TTHDCF(,@10) 02S0807 01305000 * PRF2SMI=ON; /* INFORM DEBLOCK THIS A SMI 01306000 * SEQUENCE @Y17XAYP*/ 01307000 LR @10,RPRF 02S0808 01308000 AL @10,@CF03571 02S0808 01309000 OI PRF2SMI(@10),B'00100000' 02S0808 01310000 * QCBDSSMI=ON; /* INDICATE SMI SENT */ 01311000 OI QCBDSSMI(RQCB),B'00010000' 02S0809 01312000 * END; /* @Y17XAYP*/ 01313000 * ELSE 02S0811 01314000 * ; /* @Y17XAYP*/ 01315000 @RF00804 DS 0H 02S0812 01316000 * ELSE /* @Y17XAYP*/ 01317000 * DO; /* NOT IN TSO SESSION @YM06995*/ 01318000 B @RC00803 02S0812 01319000 @RF00803 DS 0H 02S0813 01320000 * TRHEB=ON; /* END THE BRACKET USED FOR THE 01321000 * TSO SESSION @Y17XAYP*/ 01322000 LA @10,PRFPIUO(,RPRF) 02S0813 01323000 SLR @05,@05 02S0813 01324000 IC @05,PRFPIUO(,RPRF) 02S0813 01325000 ALR @10,@05 02S0813 01326000 OI TRHEB+10(@10),B'01000000' 02S0813 01327000 * IF DCT3270=ON THEN /* 3270 @YM06995*/ 01328000 L @05,DCTPTR 02S0814 01329000 TM DCT3270(@05),B'00000100' 02S0814 01330000 BNO @RF00814 02S0814 01331000 * DO; /* YES @YM06995*/ 01332000 * NULLRU=SNANULL; /* MOVE NULL SEQUENCE TO THE PIU 01333000 * @YM06995*/ 01334000 MVC NULLRU+13(1,@10),SNANULL 02S0816 01335000 * TTHDCF=TTHDCF+LENGTH(SNANULL);/* BUMP DATA COUNT @YM06995*/ 01336000 LA @05,1 02S0817 01337000 SLR @15,@15 02S0817 01338000 ICM @15,3,TTHDCF(@10) 02S0817 01339000 ALR @05,@15 02S0817 01340000 STH @05,TTHDCF(,@10) 02S0817 01341000 * END; /* @YM06995*/ 01342000 * END; /* @YM06995*/ 01343000 @RF00814 DS 0H 02S0820 01344000 * RFY 02S0820 01345000 * RSCB RSTD; /* @Y17XAYP*/ 01346000 @RC00803 DS 0H 02S0821 01347000 * RSCB=LCBSCBA; /* GET SCB ADDRESS @Y17XAYP*/ 01348000 SLR RSCB,RSCB 02S0821 01349000 ICM RSCB,7,LCBSCBA(RLCB) 02S0821 01350000 * SCBMACR=ADDR(AVTINOUT); /* @Y17XAYP*/ 01351000 LA @10,AVTINOUT(,RAVT) 02S0822 01352000 STCM @10,7,SCBMACR(IEDQSPTR) 02S0822 01353000 * LCBMSGNN=ON; /* FORCE INMSG PROCESSING */ 01354000 OI LCBMSGNN(RLCB),B'01000000' 02S0823 01355000 * LCBRCLLN=OFF; /* RESET ALL @YM06926*/ 01356000 NI LCBRCLLN(RLCB),B'01111111' 02S0824 01357000 * LCBCTLMD=OFF; /* STATUS @YM06926*/ 01358000 NI LCBCTLMD(RLCB),B'11111101' 02S0825 01359000 * LCBINITN=OFF; /* BITS @YM06926*/ 01360000 * LCBCONT=OFF; /* EXCEPT @YM06926*/ 01361000 * LCBFREEN=OFF; /* NON-IMMEDIATE @YM06926*/ 01362000 * LCBSENDN=OFF; /* OPERATOR CONTROL IN PROGRESS 01363000 * @YM06926*/ 01364000 * LCBRECVN=ON; /* MARK LCB RECEIVING @Y17XAYP*/ 01365000 OI LCBRECVN(RLCB),B'00000010' 02S0830 01366000 NI LCBINITN(RLCB),B'11100010' 02S0830 01367000 * TTHDAF=LCBTTCIN; /* SET DESTINATION ADDRESS 02S0831 01368000 * @Y17XAYP*/ 01369000 LA @10,PRFPIUO(,RPRF) 02S0831 01370000 SLR @05,@05 02S0831 01371000 IC @05,PRFPIUO(,RPRF) 02S0831 01372000 ALR @10,@05 02S0831 01373000 MVC TTHDAF(2,@10),LCBTTCIN(RLCB) 02S0831 01374000 * PRFPRI=PRIOUTBD; /* SET POST PRIORITY @Y17XAYP*/ 01375000 MVI PRFPRI(RPRF),X'E4' 02S0832 01376000 * PRFQCBA=SAVTDFCO; /* SET POST TO IEDDFOUT @Y17XAYP*/ 01377000 L @10,AVTSAVTP(,RAVT) 02S0833 01378000 MVC PRFQCBA(3,RPRF),SAVTDFCO+1(@10) 02S0833 01379000 * RFY 02S0834 01380000 * RSCB UNRSTD; /* @Y17XAYP*/ 01381000 * RPARM=RPRF; /* BUFFER FOR DISPATCHER */ 01382000 LR RPARM,RPRF 02S0835 01383000 * CALL DSPPOSTR; /* POST THE PIU TO IEDDFOUT */ 01384000 LA @15,DSPPOSTR(,RDISP) 02S0836 01385000 BALR @14,@15 02S0836 01386000 * RQCB=TRMDESTQ; /* RESTORE THE QCB ADDRESS */ 01387000 SLR RQCB,RQCB 02S0837 01388000 ICM RQCB,7,TRMDESTQ(RTRM) 02S0837 01389000 * RFY 02S0838 01390000 * RRET RSTD; 02S0838 01391000 * RRET=SAVEWD06; /* RESTORE THE RETURN ADDRESS */ 01392000 L RRET,SAVEWD06 02S0839 01393000 * END CKSNASMI; 02S0840 01394000 @EL00009 DS 0H 02S0840 01395000 @EF00009 DS 0H 02S0840 01396000 @ER00009 BR @14 02S0840 01397000 * RFY 02S0841 01398000 * RRET UNRSTD; 02S0841 01399000 * 02S0842 01400000 * /*****************************************************************/ 01401000 * /* */ 01402000 * /* ENDBRKT: THIS SEGMENT CONTAINS THE ENDBRKT INTERNAL PROCEDURE */ 01403000 * /* THAT TERMINATES THE SNA BRACKET WHEN A TSO SESSION ENDS. */ 01404000 * /* @YM06127*/ 01405000 * /* */ 01406000 * /*****************************************************************/ 01407000 * 02S0842 01408000 * RFY 02S0842 01409000 * RRET RSTD; 02S0842 01410000 *ENDBRKT: 02S0843 01411000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0843 01412000 ENDBRKT DS 0H 02S0844 01413000 * SAVEWD04=RRET; /* SAVE RETURN ADDRESS */ 01414000 ST RRET,SAVEWD04 02S0844 01415000 * RFY 02S0845 01416000 * RRET UNRSTD; 02S0845 01417000 * IF QCBFLUSH=ON THEN /* HAS SNA SESSION TERMINATION 01418000 * BEEN REQUESTED @Y17XAYP*/ 01419000 LR @10,RQCB 02S0846 01420000 SH @10,@CH00044 02S0846 01421000 TM QCBFLUSH(@10),B'00000010' 02S0846 01422000 BNO @RF00846 02S0846 01423000 * DO; /* @Y17XAYP*/ 01424000 * QCBFLUSH=OFF; /* RESET LOGOFF REQUEST INDICATOR 01425000 * @Y17XAYP*/ 01426000 NI QCBFLUSH(@10),B'11111101' 02S0848 01427000 * SIBLGOFF=ON; /* CAUSE SESSION TERMINATION ON 01428000 * THE NEXT ENTRY TO THE TCAM 01429000 * SCHEDULER @Y17XAYP*/ 01430000 ICM @10,7,TRMSIBPT(RTRM) 02S0849 01431000 OI SIBLGOFF(@10),B'10000000' 02S0849 01432000 * END; /* @Y17XAYP*/ 01433000 * IF SIBBSTAT=SIBINB THEN 02S0851 01434000 * 02S0851 01435000 @RF00846 ICM @10,7,TRMSIBPT(RTRM) 02S0851 01436000 TM SIBBSTAT(@10),B'00000010' 02S0851 01437000 BNO @RF00851 02S0851 01438000 TM SIBBSTAT(@10),B'00001101' 02S0851 01439000 BNZ @RF00851 02S0851 01440000 * /***************************************************************/ 01441000 * /* */ 01442000 * /* DOES THE BRACKET NEED TO BE ENDED THE TSO SESSION HAS ENDED */ 01443000 * /* GET A BUFFER AND SEND A NULL RU WITH EB SET TO END THE */ 01444000 * /* BRACKET USED FOR THE TSO SESSION IF STILL IN BRACKET STATE. */ 01445000 * /* */ 01446000 * /***************************************************************/ 01447000 * 02S0852 01448000 * DO; 02S0852 01449000 * CALL GETBFR; /* @Y17XAYP*/ 01450000 BAL @14,GETBFR 02S0853 01451000 * IF BUFAV=ON THEN /* WAS A BUFFER OBTAINED @YM06127*/ 01452000 TM BUFAV,B'00000010' 02S0854 01453000 BNO @RF00854 02S0854 01454000 * CALL CKSNASMI; /* GO SEND A NULL RU WITH END 01455000 * BRACKET TO END THE TSO BRACKET 01456000 * @YM06127*/ 01457000 BAL @14,CKSNASMI 02S0855 01458000 * END; 02S0856 01459000 @RF00854 DS 0H 02S0857 01460000 * RFY 02S0857 01461000 * RRET RSTD; 02S0857 01462000 @RF00851 DS 0H 02S0858 01463000 * RRET=SAVEWD04; /* RESTORE THE RETURN ADDRESS */ 01464000 L RRET,SAVEWD04 02S0858 01465000 * END ENDBRKT; /* @YM06127*/ 01466000 @EL00010 DS 0H 02S0859 01467000 @EF00010 DS 0H 02S0859 01468000 @ER00010 BR @14 02S0859 01469000 * RFY 02S0860 01470000 * RRET UNRSTD; 02S0860 01471000 * 02S0861 01472000 * /*****************************************************************/ 01473000 * /* */ 01474000 * /* ENDTSSES: THIS SEGMENT FORCES A TSO SESSION TO END BY ISSUING */ 01475000 * /* QTIP FOR HANGUP PROCESSING AND RESETTING TSO FIELDS IN THE */ 01476000 * /* QCB. THE RETURN CODE IS SET FOR QEVENT PROCESSING. */ 01477000 * /* */ 01478000 * /*****************************************************************/ 01479000 * 02S0861 01480000 * RFY 02S0861 01481000 * RRET RSTD; /* @Y17XAYP*/ 01482000 *ENDTSSES: 02S0862 01483000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y17XAYP*/ 01484000 ENDTSSES DS 0H 02S0863 01485000 * DO; /* @Y17XAYP*/ 01486000 * SAVEWD04=RRET; /* SAVE RETURN ADDRESS @Y17XAYP*/ 01487000 ST RRET,SAVEWD04 02S0864 01488000 * RFY 02S0865 01489000 * RRET UNRSTD; 02S0865 01490000 * IF QCBDELAY=ON THEN /* IS QCB ON TIME DELAY QUEUE 01491000 * @Y17XAYP*/ 01492000 TM QCBDELAY(RQCB),B'00000010' 02S0866 01493000 BNO @RF00866 02S0866 01494000 * DO; /* @Y17XAYP*/ 01495000 * RPARM=RQCB; /* QCB FOR TIME DELAY REMOVAL 01496000 * ROUTINE @Y17XAYP*/ 01497000 LR RPARM,RQCB 02S0868 01498000 * CALL IEDQHG02; /* GO REMOVE QCB FROM TIME DELAY 01499000 * @Y17XAYP*/ 01500000 L @15,AVTHG02(,RAVT) 02S0869 01501000 BALR @14,@15 02S0869 01502000 * END; /* @Y17XAYP*/ 01503000 * RFY 02S0871 01504000 * RLINK RSTD; /* @Y17XAYP*/ 01505000 @RF00866 DS 0H 02S0872 01506000 * IF QCBTJID^=0&TCXPTR->TCXRPT^=0 THEN/* ID TSO ACTIVE AND THIS 01507000 * USER IN TSO SESSION. @G36XRYP*/ 01508000 SLR @14,@14 02S0872 01509000 LH @10,QCBTJID(,RQCB) 02S0872 01510000 CR @10,@14 02S0872 01511000 BE @RF00872 02S0872 01512000 L @05,CVTPTR 02S0872 01513000 L @03,TCXPTR(,@05) 02S0872 01514000 C @14,TCXRPT(,@03) 02S0872 01515000 BE @RF00872 02S0872 01516000 * DO; /* @YM06967*/ 01517000 * RFY 02S0874 01518000 * (RTSB, 02S0874 01519000 * RASCB) RSTD; /* @G36XRYP*/ 01520000 * RASCB=ASVTENTY(QCBTJID); /* ASCB FOR QTIP @ZM46822*/ 01521000 SLA @10,2 02S0875 01522000 L @14,ASVTPTR(,@05) 02S0875 01523000 L RASCB,ASVTENTY-4(@10,@14) 02S0875 01524000 * RFY 02S0876 01525000 * REG10 RSTD; /* @YM06967*/ 01526000 * REG10=RBASE2; /* SAVE BASE ACROSS QTIP @YM06967*/ 01527000 LR REG10,RBASE2 02S0877 01528000 * RTSB=ASCBTSB; /* GET TSB FOR QTIP @G36XRYP*/ 01529000 L RTSB,ASCBTSB(,RASCB) 02S0878 01530000 * GEN REFS(RAVT) SETS(RLINK)(QTIP 4,(RAVT));/* TELL TSO TO 01531000 * HANGUP USER @Y17XAYP*/ 01532000 QTIP 4,(RAVT) 01533000 * RBASE2=REG10; /* RESTORE BASE @YM06967*/ 01534000 LR RBASE2,REG10 02S0880 01535000 * RFY 02S0881 01536000 * REG10 UNRSTD; /* @YM06967*/ 01537000 * RFY 02S0882 01538000 * RTSB UNRSTD; /* @G36XRYP*/ 01539000 * END; /* @YM06967*/ 01540000 * QCBTSSES=OFF; /* INDICATE NO TSO SESSION 02S0884 01541000 * @Y17XAYP*/ 01542000 @RF00872 DS 0H 02S0885 01543000 * QCBREAD=OFF; /* RESET READ PRIORITY @Y17XAYP*/ 01544000 NI QCBTSSES(RQCB),B'01011111' 02S0885 01545000 * QCBESIG=OFF; /* RESET SEND SIGNAL INDICATOR 01546000 * @YM06127*/ 01547000 LR @14,RQCB 02S0886 01548000 AL @14,@CF03555 02S0886 01549000 NI QCBESIG-4(@14),B'11110111' 02S0886 01550000 * QCBWRBRK=OFF; /* INDICATE NO WRITE BREAK 02S0887 01551000 * @Y17XAYP*/ 01552000 NI QCBWRBRK(RQCB),B'01111111' 02S0887 01553000 * QCBALTMH=OFF; /* INDICATE NO ALTERNATE MH 02S0888 01554000 * @Y17XAYP*/ 01555000 NI QCBALTMH(RQCB),B'11110111' 02S0888 01556000 * QCBRETCT=QCBRETCT&&QCBRETCT; /* CLEAR RETRY COUNT @Y17XAYP*/ 01557000 XC QCBRETCT(1,RQCB),QCBRETCT(RQCB) 02S0889 01558000 * QCBCARCT=QCBCARCT&&QCBCARCT; /* CLEAR CARRIAGE COUNT @Y17XAYP*/ 01559000 XC QCBCARCT(1,RQCB),QCBCARCT(RQCB) 02S0890 01560000 * QCBTJID=QCBTJID&&QCBTJID; /* CLEAR TJID @Y17XAYP*/ 01561000 LH @14,QCBTJID(,RQCB) 02S0891 01562000 LR @10,@14 02S0891 01563000 XR @10,@14 02S0891 01564000 STH @10,QCBTJID(,RQCB) 02S0891 01565000 * QCBSATCT=QCBSATCT&&QCBSATCT; /* CLEAR SIM ATTN COUNT @Y17XAYP*/ 01566000 SLR @14,@14 02S0892 01567000 IC @14,QCBSATCT(,RQCB) 02S0892 01568000 LR @10,@14 02S0892 01569000 XR @10,@14 02S0892 01570000 STC @10,QCBSATCT(,RQCB) 02S0892 01571000 * QCBTSOF1=QCBTSOF1&&QCBTSOF1; /* CLEAR TSO FLAGS @Y17XAYP*/ 01572000 XC QCBTSOF1(1,RQCB),QCBTSOF1(RQCB) 02S0893 01573000 * QCBTSOF2=QCBTSOF2&&QCBTSOF2; /* CLEAR TSO FLAGS @Y17XAYP*/ 01574000 XC QCBTSOF2(1,RQCB),QCBTSOF2(RQCB) 02S0894 01575000 * LCBQCBA=RLCB; /* SET QCB TO ITSELF @ZM45392*/ 01576000 STCM RLCB,7,LCBQCBA(RLCB) 02S0895 01577000 * LCBPRI=PRILNFRE; /* SET PRIORITY @ZM45392*/ 01578000 MVI LCBPRI(RLCB),X'E0' 02S0896 01579000 * RPARM=RLCB; /* SET PLCB AS ELEMENT @ZM45392*/ 01580000 LR RPARM,RLCB 02S0897 01581000 * CALL DSPPOSTR; /* TPOST PLCB TO ITSELF @ZM45392*/ 01582000 LA @15,DSPPOSTR(,RDISP) 02S0898 01583000 BALR @14,@15 02S0898 01584000 * RETCODE=RCDSPDSP; /* TELL IEDIAM TO EXIT TO DSPDISP 01585000 * @ZM45392*/ 01586000 MVI RETCODE,X'04' 02S0899 01587000 * RFY 02S0900 01588000 * RRET RSTD; /* @Y17XAYP*/ 01589000 * RRET=SAVEWD04; /* RESTORE THE RETURN ADDRESS 01590000 * @Y17XAYP*/ 01591000 L RRET,SAVEWD04 02S0901 01592000 * END; /* @Y17XAYP*/ 01593000 * END ENDTSSES; /* @Y17XAYP*/ 01594000 @EL00011 DS 0H 02S0903 01595000 @EF00011 DS 0H 02S0903 01596000 @ER00011 BR @14 02S0903 01597000 * RFY 02S0904 01598000 * RRET UNRSTD; /* @Y17XAYP*/ 01599000 * 02S0905 01600000 * /*****************************************************************/ 01601000 * /* */ 01602000 * /* ERBBFRRQ: THIS SEGMENT CONTAINS THE ERBBFRRQ INTERNAL */ 01603000 * /* PROCEDURE WHICH POSTS THE ERB TO BUFFER RQUEST. */ 01604000 * /* */ 01605000 * /*****************************************************************/ 01606000 * 02S0905 01607000 * RFY 02S0905 01608000 * RRET RSTD; 02S0905 01609000 *ERBBFRRQ: 02S0906 01610000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0906 01611000 ERBBFRRQ DS 0H 02S0907 01612000 * SAVEWD07=RRET; 02S0907 01613000 ST RRET,SAVEWD07 02S0907 01614000 * RFY 02S0908 01615000 * RRET UNRSTD; 02S0908 01616000 * RETCODE=INITVAL; /* SET RETURN CODE SO NO POST 01617000 * WILL BE DONE @YM07325*/ 01618000 MVI RETCODE,X'FF' 02S0909 01619000 * LCBERBQB=ADDR(AVTBFREB); /* SET UP THE ERB TO REQUEST A 01620000 * SINGLE UNIT BUFFER */ 01621000 LA @14,AVTBFREB(,RAVT) 02S0910 01622000 STCM @14,7,LCBERBQB(RLCB) 02S0910 01623000 * LCBERBPY=PRIINTRQ; 02S0911 01624000 MVI LCBERBPY(RLCB),X'E4' 02S0911 01625000 * LCBRBCT1=ONE; 02S0912 01626000 MVI LCBRBCT1(RLCB),X'01' 02S0912 01627000 * LCBRBCT2=ONE; 02S0913 01628000 MVI LCBRBCT2(RLCB),X'01' 02S0913 01629000 * LCBRCQCB=RLCB; /* SET THE PLCB FOR RE-ENTRY TO 01630000 * SEND SCHEDULER */ 01631000 ST RLCB,LCBRCQCB(,RLCB) 02S0914 01632000 * LCBPRCPG=ON; /* INDICATE POST BACK TO LCBRCQCB 01633000 * @Y17XAYP*/ 01634000 OI LCBPRCPG(RLCB),B'00000010' 02S0915 01635000 * RPARM=ADDR(LCBERB); /* R1 = ADDR OF ERB */ 01636000 LA RPARM,LCBERB(,RLCB) 02S0916 01637000 * CALL DSPPOSTR; /* CALL THE DISPATCHER */ 01638000 LA @15,DSPPOSTR(,RDISP) 02S0917 01639000 BALR @14,@15 02S0917 01640000 * RQCB=TRMDESTQ; /* RESTORE THE QCB ADDRESS */ 01641000 SLR RQCB,RQCB 02S0918 01642000 ICM RQCB,7,TRMDESTQ(RTRM) 02S0918 01643000 * RFY 02S0919 01644000 * RRET RSTD; 02S0919 01645000 * RRET=SAVEWD07; /* RESTORE RETURN ADDRESS TO RRET*/ 01646000 L RRET,SAVEWD07 02S0920 01647000 * END ERBBFRRQ; 02S0921 01648000 @EL00012 DS 0H 02S0921 01649000 @EF00012 DS 0H 02S0921 01650000 @ER00012 BR @14 02S0921 01651000 * RFY 02S0922 01652000 * RRET UNRSTD; 02S0922 01653000 * 02S0923 01654000 * /*****************************************************************/ 01655000 * /* */ 01656000 * /* GETBFR: THIS SEGMENT CONTAINS THE GETBFR INTERNAL PROCEDURE */ 01657000 * /* WHICH OBTAINS A BFR IF POSSIBLE (FROM ERB CHAIN OR BFR STEAL) */ 01658000 * /* AND RETURNS TO THE CALLING ROUTINE. IF A BFR CANNOT BE */ 01659000 * /* OBTAINED FROM EITHER THE ERB OR BFR STEAL, THE ERB IS POSTED */ 01660000 * /* TO BFR REQUEST. */ 01661000 * /* */ 01662000 * /*****************************************************************/ 01663000 * 02S0923 01664000 * RFY 02S0923 01665000 * RRET RSTD; 02S0923 01666000 *GETBFR: 02S0924 01667000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0924 01668000 GETBFR DS 0H 02S0925 01669000 * SAVEWD05=RRET; 02S0925 01670000 ST RRET,SAVEWD05 02S0925 01671000 * RFY 02S0926 01672000 * RRET UNRSTD; 02S0926 01673000 * RETCODE=RCDSPDSP; /* SET RETURN CODE FOR DSPDISP */ 01674000 MVI RETCODE,X'04' 02S0927 01675000 * IF PLCBNTRY=ON& /* WAS THIS ENTRY WITH A PLCB 01676000 * @YM07325*/ 01677000 * LCBERBCH^=0 THEN /* THERE IS A BFR ON ERB CHAIN */ 01678000 TM PLCBNTRY,B'10000000' 02S0928 01679000 BNO @RF00928 02S0928 01680000 SLR @14,@14 02S0928 01681000 ICM @14,7,LCBERBCH(RLCB) 02S0928 01682000 LTR @14,@14 02S0928 01683000 BZ @RF00928 02S0928 01684000 * DO; 02S0929 01685000 * RPRF=LCBERBCH; /* DELINK BFR UNIT FROM ERB CHAIN*/ 01686000 LR RPRF,@14 02S0930 01687000 * LCBERBCH=PRFLINK; 02S0931 01688000 MVC LCBERBCH(3,RLCB),PRFLINK(RPRF) 02S0931 01689000 * BUFAV=ON; /* TELL THE CALLING ROUTINE A 01690000 * BUFFER WAS OBTAINED @YM06127*/ 01691000 OI BUFAV,B'00000010' 02S0932 01692000 * END; 02S0933 01693000 * ELSE 02S0934 01694000 * DO; 02S0934 01695000 B @RC00928 02S0934 01696000 @RF00928 DS 0H 02S0935 01697000 * RZERO=ONE; /* SET UP FOR BFR STEAL ATTEMPT - 01698000 * A ONE UNIT BUFFER */ 01699000 LA @14,1 02S0935 01700000 LR RZERO,@14 02S0935 01701000 * RPARM=ONE; 02S0936 01702000 LR RPARM,@14 02S0936 01703000 * CALL IEDQGA02; /* BFR STEAL ROUTINE */ 01704000 L @15,AVTSTEAL(,RAVT) 02S0937 01705000 BALR @14,@15 02S0937 01706000 * RFY 02S0938 01707000 * RLINK RSTD; 02S0938 01708000 * IF RLINK^=0 THEN /* STEAL WAS SUCCESSFUL */ 01709000 LTR RLINK,RLINK 02S0939 01710000 BZ @RF00939 02S0939 01711000 * DO; 02S0940 01712000 * RPRF=RLINK; /* PUT BFR ADDR IN PRF BASE REG */ 01713000 LR RPRF,RLINK 02S0941 01714000 * BUFAV=ON; /* TELL THE CALLER A BUFFER WAS 01715000 * OBTAINED @YM06127*/ 01716000 OI BUFAV,B'00000010' 02S0942 01717000 * END; 02S0943 01718000 * ELSE 02S0944 01719000 * IF PLCBNTRY=ON THEN /* WAS THIS ENTRY WITH PLCB 02S0944 01720000 * @YM07325*/ 01721000 B @RC00939 02S0944 01722000 @RF00939 TM PLCBNTRY,B'10000000' 02S0944 01723000 BNO @RF00944 02S0944 01724000 * CALL ERBBFRRQ; /* POST ERB TO BFR REQUEST */ 01725000 BAL @14,ERBBFRRQ 02S0945 01726000 * RETCODE=ERBPOST; /* INDICATE ERB ALREADY POSTED 01727000 * @OZ32265*/ 01728000 @RF00944 DS 0H 02S0946 01729000 @RC00939 MVI RETCODE,X'18' 02S0946 01730000 * RFY 02S0947 01731000 * RLINK UNRSTD; 02S0947 01732000 * END; 02S0948 01733000 * RFY 02S0949 01734000 * RRET RSTD; 02S0949 01735000 @RC00928 DS 0H 02S0950 01736000 * RRET=SAVEWD05; /* RESTORE RETURN ADDRESS TO RRET*/ 01737000 L RRET,SAVEWD05 02S0950 01738000 * END GETBFR; 02S0951 01739000 @EL00013 DS 0H 02S0951 01740000 @EF00013 DS 0H 02S0951 01741000 @ER00013 BR @14 02S0951 01742000 * RFY 02S0952 01743000 * RRET UNRSTD; 02S0952 01744000 * 02S0953 01745000 * /*****************************************************************/ 01746000 * /* */ 01747000 * /* IPPROC: THIS SEGMENT CONTAINS THE IPPROC INTERNAL PROCEDURE */ 01748000 * /* WHICH DETERMINES WHAT IS TO BE DONE DURING THIS ENTRY. IT */ 01749000 * /* CHECKS TO SEE WHETHER DISCONNECT, SIM ATTN, TGET, OR SMI */ 01750000 * /* SHOULD BE PROCESSED. */ 01751000 * /* */ 01752000 * /*****************************************************************/ 01753000 * 02S0953 01754000 * RFY 02S0953 01755000 * RRET RSTD; 02S0953 01756000 *IPPROC: 02S0954 01757000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0954 01758000 IPPROC DS 0H 02S0955 01759000 * SAVEWD01=RRET; /* SAVE THE RETURN ADDRESS */ 01760000 ST RRET,SAVEWD01 02S0955 01761000 * RFY 02S0956 01762000 * RRET UNRSTD; 02S0956 01763000 * IF QCBDISC=ON THEN /* DISCONNECT REQUESTED BY TSO? */ 01764000 TM QCBDISC(RQCB),B'00000001' 02S0957 01765000 BNO @RF00957 02S0957 01766000 * DO; /* YES @YM05700*/ 01767000 * SSREQD=ON; /* REQUEST SEND SCHEDULER 02S0959 01768000 * @YM05700*/ 01769000 OI SSREQD,B'01000000' 02S0959 01770000 * IF TRMSNA=ON THEN /* IS THIS A SNA TERMINAL 02S0960 01771000 * @YM06127*/ 01772000 TM TRMSNA(RTRM),B'00000010' 02S0960 01773000 BNO @RF00960 02S0960 01774000 * CALL CHKESIG; /* DETERMINE IF SIGNAL SHOULD BE 01775000 * SENT TO BREAK-IN @YM06127*/ 01776000 BAL @14,CHKESIG 02S0961 01777000 * ELSE /* @YM06127*/ 01778000 * CALL CHKRESET; 02S0962 01779000 B @RC00960 02S0962 01780000 @RF00960 BAL @14,CHKRESET 02S0962 01781000 * END; /* @YM05700*/ 01782000 * ELSE 02S0964 01783000 * IF QCBSATRD=ON THEN /* SIMULATED ATTENTION REQUEST? */ 01784000 B @RC00957 02S0964 01785000 @RF00957 TM QCBSATRD(RQCB),B'00001000' 02S0964 01786000 BNO @RF00964 02S0964 01787000 * DO; /* @YM06857*/ 01788000 * IF QCBSIMRD=ON THEN /* IS SIM ATTN READ IN PROGRESS 01789000 * @YM06857*/ 01790000 TM QCBSIMRD(RQCB),B'00001000' 02S0966 01791000 BNO @RF00966 02S0966 01792000 * WAITINPT=ON; /* WAITING FOR INPUT TO SIM ATTN 01793000 * READ @YM06857*/ 01794000 OI WAITINPT,B'00000100' 02S0967 01795000 * ELSE 02S0968 01796000 * ; /* @YM06857*/ 01797000 @RF00966 DS 0H 02S0969 01798000 * SSREQD=ON; /* INDICATE THAT SEND SCHED 02S0969 01799000 * PROCESSING REQUIRED */ 01800000 OI SSREQD,B'01000000' 02S0969 01801000 * END; /* @YM06857*/ 01802000 * ELSE 02S0971 01803000 * IF(QCBTPUT=OFF& /* NOT A TPUT REQUEST */ 01804000 * QCBTGET=ON) THEN /* BUT A TGET REQUEST */ 01805000 B @RC00964 02S0971 01806000 @RF00964 TM QCBTGET(RQCB),B'01000000' 02S0971 01807000 BNO @RF00971 02S0971 01808000 TM QCBTPUT(RQCB),B'00100000' 02S0971 01809000 BNZ @RF00971 02S0971 01810000 * DO; /* @OZ32704*/ 01811000 * RSREQD=ON; /* @OZ32704*/ 01812000 OI RSREQD,B'00100000' 02S0973 01813000 * IF TRMRDOUT=ON THEN /* READ OUTSTANDING @OZ32704*/ 01814000 TM TRMRDOUT(RTRM),B'00000010' 02S0974 01815000 BNO @RF00974 02S0974 01816000 * RETCODE=RCDSPDSP; /* SET RETCODE @OZ32704*/ 01817000 MVI RETCODE,X'04' 02S0975 01818000 * END; /* @OZ32704*/ 01819000 * ELSE 02S0977 01820000 * DO; /* @YM05627*/ 01821000 B @RC00971 02S0977 01822000 @RF00971 DS 0H 02S0978 01823000 * SSREQD=ON; /* INDICATE SEND SCHED PROCESSING 01824000 * REQUIRED @YM05627*/ 01825000 OI SSREQD,B'01000000' 02S0978 01826000 * IF QCBDSSMI=OFF THEN /* HAS AN SMI BEEN SENT? @YM05627*/ 01827000 TM QCBDSSMI(RQCB),B'00010000' 02S0979 01828000 BNZ @RF00979 02S0979 01829000 * DO; /* @YM06127*/ 01830000 * IF TRMSNA=ON THEN /* IS THIS A SNA TERMINAL 02S0981 01831000 * @YM06127*/ 01832000 TM TRMSNA(RTRM),B'00000010' 02S0981 01833000 BNO @RF00981 02S0981 01834000 * CALL CHKESIG; /* DETERMINE IF SIGNAL SHOULD BE 01835000 * SENT FOR BREAK-IN @YM06127*/ 01836000 BAL @14,CHKESIG 02S0982 01837000 * ELSE /* @YM06127*/ 01838000 * CALL CHKRESET; /* DETERMINE IF RESET SHOULD BE 01839000 * SENT FOR BREAK-IN @YM05627*/ 01840000 B @RC00981 02S0983 01841000 @RF00981 BAL @14,CHKRESET 02S0983 01842000 * END; /* @YM05627*/ 01843000 @RC00981 DS 0H 02S0985 01844000 * END; /* @YM06127*/ 01845000 @RF00979 DS 0H 02S0986 01846000 * RFY 02S0986 01847000 * RRET RSTD; 02S0986 01848000 @RC00971 DS 0H 02S0986 01849000 @RC00964 DS 0H 02S0986 01850000 @RC00957 DS 0H 02S0987 01851000 * RRET=SAVEWD01; /* RESTORE THE RETURN ADDRESS */ 01852000 L RRET,SAVEWD01 02S0987 01853000 * END IPPROC; 02S0988 01854000 @EL00014 DS 0H 02S0988 01855000 @EF00014 DS 0H 02S0988 01856000 @ER00014 BR @14 02S0988 01857000 * RFY 02S0989 01858000 * RRET UNRSTD; 02S0989 01859000 * 02S0990 01860000 * /*****************************************************************/ 01861000 * /* */ 01862000 * /* LCBPROC: THIS SEGMENT CONTAINS THE LCBPROC INTERNAL PROCEDURE */ 01863000 * /* WHICH DETERMINES WHETHER A TCAM SEND OR A TSO SEND OPERATION */ 01864000 * /* IS TO BE DONE. IF EITHER IS TO BE DONE THE INTERNAL PROCEDURES*/ 01865000 * /* TCAMSND OR TSOSND ARE CALLED, RESPECTIVELY. */ 01866000 * /* */ 01867000 * /*****************************************************************/ 01868000 * 02S0990 01869000 * RFY 02S0990 01870000 * RRET RSTD; 02S0990 01871000 *LCBPROC: 02S0991 01872000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0991 01873000 LCBPROC DS 0H 02S0992 01874000 * SAVEWD01=RRET; 02S0992 01875000 ST RRET,SAVEWD01 02S0992 01876000 * RFY 02S0993 01877000 * RRET UNRSTD; 02S0993 01878000 * IF QCBTSSES=ON& /* TERMINAL IN TSO SESSION */ 01879000 * ((QCBDELAY=OFF&QCBTJID^=0)| /* AND... */ 01880000 * (QCBDELAY=ON&QCBLINK^=0)) THEN/* TJID ^= 0 */ 01881000 TM QCBTSSES(RQCB),B'10000000' 02S0994 01882000 BNO @RF00994 02S0994 01883000 TM QCBDELAY(RQCB),B'00000010' 02S0994 01884000 BNZ @GL00039 02S0994 01885000 ICM @10,3,QCBTJID(RQCB) 02S0994 01886000 BNZ @RT00994 02S0994 01887000 @GL00039 TM QCBDELAY(RQCB),B'00000010' 02S0994 01888000 BNO @RF00994 02S0994 01889000 ICM @10,7,QCBLINK(RQCB) 02S0994 01890000 BZ @RF00994 02S0994 01891000 @RT00994 DS 0H 02S0995 01892000 * IF QCBDISC=ON THEN /* DISCONNECT REQUESTED? */ 01893000 TM QCBDISC(RQCB),B'00000001' 02S0995 01894000 BNO @RF00995 02S0995 01895000 * DO; 02S0996 01896000 * QCBSATRD=OFF; /* INDICATE NO MORE SIM ATTN 01897000 * PROCESSING */ 01898000 NI QCBSATRD(RQCB),B'11110111' 02S0997 01899000 * QCBSIMRD=OFF; /* IS REQUIRED. */ 01900000 NI QCBSIMRD(RQCB),B'11110111' 02S0998 01901000 * CALL TSOSND; 02S0999 01902000 BAL @14,TSOSND 02S0999 01903000 * END; 02S1000 01904000 * ELSE 02S1001 01905000 * IF QCBDSSMI=ON|QCBSATRD=ON THEN/* SMI HAS BEEN SENT OR SIM 01906000 * ATTN READ REQUEST */ 01907000 B @RC00995 02S1001 01908000 @RF00995 TM QCBDSSMI(RQCB),B'00010000' 02S1001 01909000 BO @RT01001 02S1001 01910000 TM QCBSATRD(RQCB),B'00001000' 02S1001 01911000 BNO @RF01001 02S1001 01912000 @RT01001 DS 0H 02S1002 01913000 * DO; /* YES @YM05713*/ 01914000 * IF QCBTPUT=ON THEN /* IS THE NEXT OPERATION AN 02S1003 01915000 * OUTPUT @YM06858*/ 01916000 TM QCBTPUT(RQCB),B'00100000' 02S1003 01917000 BNO @RF01003 02S1003 01918000 * QCBSNDRQ=ON; /* REQUEST SEND SCHEDULER THE 01919000 * NEXT TIME A PLCB IS ASSIGNED 01920000 * @YM05713*/ 01921000 LR @10,RQCB 02S1004 01922000 AL @10,@CF03555 02S1004 01923000 OI QCBSNDRQ-4(@10),B'00100000' 02S1004 01924000 * RETCODE=REMOVESS; /* REQUEST SS REMOVAL @YM05713*/ 01925000 @RF01003 MVI RETCODE,X'00' 02S1005 01926000 * END; /* @YM05713*/ 01927000 * ELSE 02S1007 01928000 * CALL TSOSND; 02S1007 01929000 B @RC01001 02S1007 01930000 @RF01001 BAL @14,TSOSND 02S1007 01931000 * ELSE 02S1008 01932000 * CALL TCAMSND; 02S1008 01933000 B @RC00994 02S1008 01934000 @RF00994 BAL @14,TCAMSND 02S1008 01935000 * RFY 02S1009 01936000 * RRET RSTD; 02S1009 01937000 @RC00994 DS 0H 02S1010 01938000 * RRET=SAVEWD01; /* RESTORE RETURN ADDRESS TO RRET*/ 01939000 L RRET,SAVEWD01 02S1010 01940000 * END LCBPROC; 02S1011 01941000 @EL00015 DS 0H 02S1011 01942000 @EF00015 DS 0H 02S1011 01943000 @ER00015 BR @14 02S1011 01944000 * RFY 02S1012 01945000 * RRET UNRSTD; 02S1012 01946000 * RFY 02S1013 01947000 * RRET RSTD; 02S1013 01948000 *PIUCOND: 02S1014 01949000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1014 01950000 * 02S1014 01951000 PIUCOND DS 0H 02S1015 01952000 * /*****************************************************************/ 01953000 * /* */ 01954000 * /* THIS ROUTINE MUST NOT CALL ANY OTHER ROUTINE SINCE THE RETURN */ 01955000 * /* REGISTER, RRET, IS NOT PRESERVED AROUND THE LOGIC. RRET IS */ 01956000 * /* RSTD THROUGHOUT THIS INTERNAL PROCEDURE SO THAT ITS VALUE WILL*/ 01957000 * /* NOT BE DESTROYED BY THE COMPILER USING IT. */ 01958000 * /* */ 01959000 * /*****************************************************************/ 01960000 * 02S1015 01961000 * RFY 02S1015 01962000 * IEDTH BASED(ADDR(PIU0TH)); /* @Y17XAYP*/ 01963000 * RFY 02S1016 01964000 * IEDRH BASED(ADDR(PIU0RH)); /* @Y17XAYP*/ 01965000 * IEDPF2=''B; /* CLEAR NEGATIVE BUFFER PREFIX 01966000 * @YM06125*/ 01967000 LR @15,RPRF 02S1017 01968000 SH @15,@CH00044 02S1017 01969000 XC IEDPF2(8,@15),IEDPF2(@15) 02S1017 01970000 * PRFPIUO=ONE; /* SET THE PIU OFFSET IN THE 01971000 * BUFFER */ 01972000 LA @10,1 02S1018 01973000 STC @10,PRFPIUO(,RPRF) 02S1018 01974000 * PRF2TNTI=ON; /* INDICATE TTCIN OFFSETS IN PIU */ 01975000 * 02S1019 01976000 OI PRF2TNTI(@15),B'10000000' 02S1019 01977000 * /*****************************************************************/ 01978000 * /* */ 01979000 * /* SET UP THE TH VALUES REQUIRED */ 01980000 * /* */ 01981000 * /*****************************************************************/ 01982000 * 02S1020 01983000 * IEDTH=THVALUES; 02S1020 01984000 * 02S1020 01985000 LA @15,PRFPIUO(,RPRF) 02S1020 01986000 ALR @15,@10 02S1020 01987000 MVC IEDTH(10,@15),THVALUES 02S1020 01988000 * /*****************************************************************/ 01989000 * /* */ 01990000 * /* SET THE RH VALUES REQUIRED */ 01991000 * /* */ 01992000 * /*****************************************************************/ 01993000 * 02S1021 01994000 * IEDRH=RHVALUES; 02S1021 01995000 MVC IEDRH+10(3,@15),RHVALUES 02S1021 01996000 * PIU0PAD=CLEARED; /* SET PIU PAD TO X'00' */ 01997000 MVI PIU0PAD(@15),X'00' 02S1022 01998000 * IEDBDU=IEDBDU&&IEDBDU; /* CLEAR ALL SIX BYTES OF THE BDU*/ 01999000 XC IEDBDU+14(6,@15),IEDBDU+14(@15) 02S1023 02000000 * END PIUCOND; /* RETURN TO CALLER */ 02001000 @EL00016 DS 0H 02S1024 02002000 @EF00016 DS 0H 02S1024 02003000 @ER00016 BR @14 02S1024 02004000 * RFY 02S1025 02005000 * RRET UNRSTD; 02S1025 02006000 * 02S1026 02007000 * /*****************************************************************/ 02008000 * /* */ 02009000 * /* PIU1COND: THIS SEGMENT CONTAINS THE PIUCOND INTERNAL PROCEDURE*/ 02010000 * /* WHICH CONDITIONS THE PIU BY ESTABLISHING FIELDS REQUIRED FOR */ 02011000 * /* FID1 SNA COMMANDS. THIS ROUTINE MUST NOT CALL ANY OTHER */ 02012000 * /* ROUTINE SINCE THE RETURN REGISTER,RRET, IS NOT PRESERVED */ 02013000 * /* AROUND THE LOGIC. RRET IS RSTD THROUGHOUT THIS INTERNAL */ 02014000 * /* PROCEDURE SO THAT ITS VALUE WILL NOT BE DESTROYED BY THE */ 02015000 * /* COMPILER USING IT. */ 02016000 * /* */ 02017000 * /*****************************************************************/ 02018000 * 02S1026 02019000 * RFY 02S1026 02020000 * RRET RSTD; 02S1026 02021000 *PIU1COND: 02S1027 02022000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1027 02023000 PIU1COND DS 0H 02S1028 02024000 * RFY 02S1028 02025000 * IEDTH BASED(ADDR(PIUTH)); /* @Y17XAYP*/ 02026000 * RFY 02S1029 02027000 * IEDRH BASED(ADDR(PIURH)); /* @Y17XAYP*/ 02028000 * IEDPF2=''B; /* CLEAR NEGATIVE BUFFER PREFIX 02029000 * @YM06125*/ 02030000 LA @15,8 02S1030 02031000 LR @10,RPRF 02S1030 02032000 SLR @10,@15 02S1030 02033000 XC IEDPF2(8,@10),IEDPF2(@10) 02S1030 02034000 * PRFPIUO=ONE; /* SET PIU OFFSET TO ONE @Y17XAYP*/ 02035000 LA @05,1 02S1031 02036000 STC @05,PRFPIUO(,RPRF) 02S1031 02037000 * IEDPIU=''B; /* CLEAR PIU @YM06125*/ 02038000 LA @03,PRFPIUO(,RPRF) 02S1032 02039000 ALR @03,@05 02S1032 02040000 XC IEDPIU(13,@03),IEDPIU(@03) 02S1032 02041000 * PRF2TNTI=ON; /* INDICATE THAT TTHOAF AND 02S1033 02042000 * TTHDAF ARE TNT INDEX VALUES 02043000 * @YM06125*/ 02044000 OI PRF2TNTI(@10),B'10000000' 02S1033 02045000 * TTHFTYPE=TTHFID1; /* INDICATE THIS IS A FID1 PIU 02046000 * @Y17XAYP*/ 02047000 NI TTHFTYPE(@03),B'00011111' 02S1034 02048000 OI TTHFTYPE(@03),B'00010000' 02S1034 02049000 * TTHBBIU=ON; /* INDICATE ONLY SEGMENT @Y17XAYP*/ 02050000 * TTHEBIU=ON; /* INDICATE ONLY SEGMENT @Y17XAYP*/ 02051000 OI TTHBBIU(@03),B'00001100' 02S1036 02052000 * IF QCBPLCBN=ON THEN /* IS A PLCB ASSIGNED @Y17XAYP*/ 02053000 LCR @15,@15 02S1037 02054000 ALR @15,RQCB 02S1037 02055000 TM QCBPLCBN(@15),B'10000000' 02S1037 02056000 BNO @RF01037 02S1037 02057000 * TTHDAF=LCBTTCIN; /* USE THE INDEX FROM THE PLCB 02058000 * @Y17XAYP*/ 02059000 MVC TTHDAF(2,@03),LCBTTCIN(RLCB) 02S1038 02060000 * ELSE 02S1039 02061000 * IF QCBWAITC=ON THEN /* IF THIS IS A CHAIN OF PIU'S 02062000 * @XM05703*/ 02063000 B @RC01037 02S1039 02064000 @RF01037 LR @15,RQCB 02S1039 02065000 SH @15,@CH00044 02S1039 02066000 TM QCBWAITC(@15),B'01000000' 02S1039 02067000 BNO @RF01039 02S1039 02068000 * DO; /* @XM05703*/ 02069000 * RPARM=QCBPLCBA; /* POINT TO FIRST PIU @XM05703*/ 02070000 SLR RPARM,RPARM 02S1041 02071000 ICM RPARM,7,QCBPLCBA(@15) 02S1041 02072000 * RFY 02S1042 02073000 * IEDQPRF BASED(RPARM); /* @XM05703*/ 02074000 * RPARM=ADDR(PRFPIUO)+PRFPIUO;/* POINT TO TH @XM05703*/ 02075000 LA @15,PRFPIUO(,RPARM) 02S1043 02076000 SLR @10,@10 02S1043 02077000 IC @10,PRFPIUO(,RPARM) 02S1043 02078000 ALR @15,@10 02S1043 02079000 LR RPARM,@15 02S1043 02080000 * RFY 02S1044 02081000 * IEDQPRF BASED(RPRF); /* @XM05703*/ 02082000 * TTHDAF=RPARM->TTHOAF; /* GET TNT INDEX FROM OAF 02S1045 02083000 * @XM05703*/ 02084000 LA @15,PRFPIUO(,RPRF) 02S1045 02085000 SLR @10,@10 02S1045 02086000 IC @10,PRFPIUO(,RPRF) 02S1045 02087000 ALR @15,@10 02S1045 02088000 MVC TTHDAF(2,@15),TTHOAF(RPARM) 02S1045 02089000 * END; /* @XM05703*/ 02090000 * ELSE /* @XM05703*/ 02091000 * TTHDAF=QCBTTCIN; /* USE THE INDEX FROM THE QCB 02092000 * @Y17XAYP*/ 02093000 B @RC01039 02S1047 02094000 @RF01039 LA @15,PRFPIUO(,RPRF) 02S1047 02095000 SLR @10,@10 02S1047 02096000 IC @10,PRFPIUO(,RPRF) 02S1047 02097000 ALR @15,@10 02S1047 02098000 LR @10,RQCB 02S1047 02099000 BCTR @10,0 02S1047 02100000 BCTR @10,0 02S1047 02101000 MVC TTHDAF(2,@15),QCBTTCIN-6(@10) 02S1047 02102000 * TTHOAF=TRMSIBPT->SIBINDEX; /* SET OAF FROM LU-LU SIB 02S1048 02103000 * @YM06124*/ 02104000 @RC01039 DS 0H 02S1048 02105000 @RC01037 LA @15,PRFPIUO(,RPRF) 02S1048 02106000 SLR @10,@10 02S1048 02107000 IC @10,PRFPIUO(,RPRF) 02S1048 02108000 ALR @15,@10 02S1048 02109000 SLR @10,@10 02S1048 02110000 ICM @10,7,TRMSIBPT(RTRM) 02S1048 02111000 MVC TTHOAF(2,@15),SIBINDEX(@10) 02S1048 02112000 * TTHSNF=ZERO; /* SET SEQUENCE NUMBER TO ZERO 02113000 * @Y17XAYP*/ 02114000 MVC TTHSNF(2,@15),ZERO+2 02S1049 02115000 * TRHTYPE=OFF; /* INDICATE A SNA REQUEST 02S1050 02116000 * @Y17XAYP*/ 02117000 * TRHBC=ON; /* INDICATE ONLY CHAIN @Y17XAYP*/ 02118000 * TRHEC=ON; /* INDICATE ONLY CHAIN @Y17XAYP*/ 02119000 AH @15,@CH01239 02S1052 02120000 OI TRHBC(@15),B'00000011' 02S1052 02121000 NI TRHTYPE(@15),B'01111111' 02S1052 02122000 * TRHDR1=ON; /* @Y17XAYP*/ 02123000 OI TRHDR1(@15),B'10000000' 02S1053 02124000 * IF SIBBSTAT^=SIBINB THEN /* IS BEGIN BRACKET REQUIRED 02125000 * @YM06522*/ 02126000 TM SIBBSTAT(@10),B'00000010' 02S1054 02127000 BNO @RT01054 02S1054 02128000 TM SIBBSTAT(@10),B'00001101' 02S1054 02129000 BZ @RF01054 02S1054 02130000 @RT01054 DS 0H 02S1055 02131000 * TRHBB=ON; /* BEGIN BRACKET ON @Y17XAYP*/ 02132000 LA @15,PRFPIUO(,RPRF) 02S1055 02133000 SLR @10,@10 02S1055 02134000 IC @10,PRFPIUO(,RPRF) 02S1055 02135000 ALR @15,@10 02S1055 02136000 OI TRHBB+10(@15),B'10000000' 02S1055 02137000 * ELSE 02S1056 02138000 * TRHBB=OFF; /* BEGIN BRACKET OFF @Y17XAYP*/ 02139000 B @RC01054 02S1056 02140000 @RF01054 LA @15,PRFPIUO(,RPRF) 02S1056 02141000 SLR @10,@10 02S1056 02142000 IC @10,PRFPIUO(,RPRF) 02S1056 02143000 ALR @15,@10 02S1056 02144000 NI TRHBB+10(@15),B'01111111' 02S1056 02145000 * TRHEB=OFF; /* END BRACKET OFF @Y17XAYP*/ 02146000 @RC01054 DS 0H 02S1058 02147000 * TRHCDI=OFF; /* CHANGE DIRECTION OFF @Y17XAYP*/ 02148000 LA @15,PRFPIUO(,RPRF) 02S1058 02149000 SLR @10,@10 02S1058 02150000 IC @10,PRFPIUO(,RPRF) 02S1058 02151000 ALR @15,@10 02S1058 02152000 NI TRHEB+10(@15),B'10011111' 02S1058 02153000 * END PIU1COND; /* RETURN TO CALLER @Y17XAYP*/ 02154000 @EL00017 DS 0H 02S1059 02155000 @EF00017 DS 0H 02S1059 02156000 @ER00017 BR @14 02S1059 02157000 * 02S1060 02158000 * /*****************************************************************/ 02159000 * /* */ 02160000 * /* READRTN: THIS SEGMENT CONTAINS THE READRTN INTERNAL PROCEDURE */ 02161000 * /* WHICH DETERMINES WHETHER SIM ATTN PROMPT, SMI SEQUENCE, OR */ 02162000 * /* TIME DELAY ELEMENT REMOVAL SHOULD BE DONE */ 02163000 * /* */ 02164000 * /*****************************************************************/ 02165000 * 02S1060 02166000 * RFY 02S1060 02167000 * RRET RSTD; 02S1060 02168000 *READRTN: 02S1061 02169000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1061 02170000 READRTN DS 0H 02S1062 02171000 * SAVEWD04=RRET; 02S1062 02172000 ST RRET,SAVEWD04 02S1062 02173000 * RFY 02S1063 02174000 * RRET UNRSTD; 02S1063 02175000 * IF QCBSATRD=ON THEN /* SIM ATTN READ REQUEST */ 02176000 TM QCBSATRD(RQCB),B'00001000' 02S1064 02177000 BNO @RF01064 02S1064 02178000 * IF QCBSIMRD=OFF THEN /* SIM READ NOT IN PROGRESS */ 02179000 TM QCBSIMRD(RQCB),B'00001000' 02S1065 02180000 BNZ @RF01065 02S1065 02181000 * CALL SAPRMPT; /* EXIT TO IEDAYM WITH SIM ATTN 02182000 * PROMPT */ 02183000 BAL @14,SAPRMPT 02S1066 02184000 * ELSE 02S1067 02185000 * CALL SMIRTN; /* SEND SMI */ 02186000 B @RC01065 02S1067 02187000 @RF01065 BAL @14,SMIRTN 02S1067 02188000 * ELSE 02S1068 02189000 * DO; 02S1068 02190000 B @RC01064 02S1068 02191000 @RF01064 DS 0H 02S1069 02192000 * IF QCBDELAY=ON THEN 02S1069 02193000 TM QCBDELAY(RQCB),B'00000010' 02S1069 02194000 BNO @RF01069 02S1069 02195000 * DO; /* TERMINAL ON DELAY QUEUE */ 02196000 * RPARM=RQCB; /* SET UP ADDR OF QCB FOR TIME 02197000 * DELAY ROUTINE */ 02198000 LR RPARM,RQCB 02S1071 02199000 * CALL IEDQHG02; /* REMOVE ELEMENT FROM TIME DELAY 02200000 * QUEUE */ 02201000 L @15,AVTHG02(,RAVT) 02S1072 02202000 BALR @14,@15 02S1072 02203000 * END; 02S1073 02204000 * CALL SMIRTN; /* SEND SMI */ 02205000 @RF01069 BAL @14,SMIRTN 02S1074 02206000 * END; 02S1075 02207000 * RFY 02S1076 02208000 * RRET RSTD; 02S1076 02209000 @RC01064 DS 0H 02S1077 02210000 * RRET=SAVEWD04; /* RESTORE RETURN ADDRESS TO RRET*/ 02211000 L RRET,SAVEWD04 02S1077 02212000 * END READRTN; 02S1078 02213000 @EL00018 DS 0H 02S1078 02214000 @EF00018 DS 0H 02S1078 02215000 @ER00018 BR @14 02S1078 02216000 * RFY 02S1079 02217000 * RRET UNRSTD; 02S1079 02218000 * 02S1080 02219000 * /*****************************************************************/ 02220000 * /* */ 02221000 * /* REQPLCB: THIS SEGMENT CONTAINS THE REQPLCB INTERNAL PROCEDURE */ 02222000 * /* WHICH DETERMINES IF A PLCB IS ALLOCATED AND IF SEND SCHEDULER */ 02223000 * /* PROCESSING IS REQUIRED. IF NOT ALLOCATED AND NOT ALREADY */ 02224000 * /* REQUESTED, A PLCB IS REQUESTED FROM IEDIAP. IF SEND SCHEDULER */ 02225000 * /* PROCESSING IS REQUIRED, IT IS SO INDICATED IN THE QCB BY THIS */ 02226000 * /* ROUTINE. */ 02227000 * /* */ 02228000 * /*****************************************************************/ 02229000 * 02S1080 02230000 * RFY 02S1080 02231000 * RRET RSTD; 02S1080 02232000 *REQPLCB: 02S1081 02233000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1081 02234000 REQPLCB DS 0H 02S1082 02235000 * SAVEWD02=RRET; /* SAVE THE RETURN ADDRESS */ 02236000 ST RRET,SAVEWD02 02S1082 02237000 * RFY 02S1083 02238000 * RRET UNRSTD; 02S1083 02239000 * IF QCBPLCBN=ON THEN /* PLCB ALLOCATED? */ 02240000 * 02S1084 02241000 LR @10,RQCB 02S1084 02242000 AL @10,@CF03555 02S1084 02243000 TM QCBPLCBN-4(@10),B'10000000' 02S1084 02244000 BNO @RF01084 02S1084 02245000 * /***************************************************************/ 02246000 * /* */ 02247000 * /* PLCB ALREADY ALLOCATED */ 02248000 * /* */ 02249000 * /***************************************************************/ 02250000 * 02S1085 02251000 * IF SSREQD=ON THEN /* SEND SCHED PROCESSING 02S1085 02252000 * REQUIRED? */ 02253000 TM SSREQD,B'01000000' 02S1085 02254000 BNO @RF01085 02S1085 02255000 * DO; 02S1086 02256000 * IF LCBSTCBA->STCBVTO^=DSPSEND THEN/* SEND SCHED NOT ALREADY 02257000 * IN PLCB? @YM05657*/ 02258000 ICM @10,7,LCBSTCBA(RLCB) 02S1087 02259000 CLI STCBVTO(@10),X'22' 02S1087 02260000 BE @RF01087 02S1087 02261000 * DO; 02S1088 02262000 * RFY 02S1089 02263000 * REG03 RSTD; /* SET UP R3 FOR CALL TO 02S1089 02264000 * DISPATCHER */ 02265000 * REG03=RLCB; /* PUT LCB ADDRESS IN R3 */ 02266000 LR REG03,RLCB 02S1090 02267000 * CALL DSPUNAVR; /* R7-QCB ADDRESS R11-DISPATCHER 02268000 * R13-AVTSAVE2 R14-RETURN ADDR */ 02269000 LA @15,DSPUNAVR(,RDISP) 02S1091 02270000 BALR @14,@15 02S1091 02271000 * RFY 02S1092 02272000 * REG03 UNRSTD; 02S1092 02273000 * RQCB=TRMDESTQ; /* RELOAD THE QCB ADDRESS */ 02274000 SLR RQCB,RQCB 02S1093 02275000 ICM RQCB,7,TRMDESTQ(RTRM) 02S1093 02276000 * END; 02S1094 02277000 * RETCODE=SSTOPLCB; /* SET RETURN FOR SEND SCHED TO 02278000 * PLCB */ 02279000 @RF01087 MVI RETCODE,X'00' 02S1095 02280000 * END; 02S1096 02281000 * ELSE 02S1097 02282000 * RETCODE=CONTRCVS; /* SET RETURN TO CONTINUE RECV 02283000 * SCHED */ 02284000 B @RC01085 02S1097 02285000 @RF01085 MVI RETCODE,X'00' 02S1097 02286000 * ELSE 02S1098 02287000 * 02S1098 02288000 * /***************************************************************/ 02289000 * /* */ 02290000 * /* NO PLCB CURRENTLY ALLOCATED */ 02291000 * /* */ 02292000 * /***************************************************************/ 02293000 * 02S1098 02294000 * DO; 02S1098 02295000 B @RC01084 02S1098 02296000 @RF01084 DS 0H 02S1099 02297000 * IF SSREQD=ON THEN /* IF SEND SCHED PROCESSING 02S1099 02298000 * REQUIRED */ 02299000 TM SSREQD,B'01000000' 02S1099 02300000 BNO @RF01099 02S1099 02301000 * QCBSNDRQ=ON; /* SHOW SEND SCHED SHOULD BE 02302000 * INSERTED IN PLCB */ 02303000 LR @10,RQCB 02S1100 02304000 AL @10,@CF03555 02S1100 02305000 OI QCBSNDRQ-4(@10),B'00100000' 02S1100 02306000 * IF BREAKPST=OFF&WAITINPT=OFF THEN/* CAN A PLCB BE REQUESTED 02307000 * @YM06006*/ 02308000 @RF01099 TM BREAKPST,B'00001100' 02S1101 02309000 BNZ @RF01101 02S1101 02310000 * DO; /* @YM06006*/ 02311000 * IF QCBRCVRQ=OFF THEN /* PLCB HAS NOT BEEN REQUESTED */ 02312000 LR @10,RQCB 02S1103 02313000 SH @10,@CH00044 02S1103 02314000 TM QCBRCVRQ(@10),B'00010000' 02S1103 02315000 BNZ @RF01103 02S1103 02316000 * DO; 02S1104 02317000 * QCBRCVRQ=ON; /* REQUEST THE RECV SCHEDULER */ 02318000 OI QCBRCVRQ(@10),B'00010000' 02S1105 02319000 * TRMINPTP=OFF; /* RESET INPUT PENDING @YM05700*/ 02320000 NI TRMINPTP(RTRM),B'10111111' 02S1106 02321000 * RPARM=RQCB; /* SET UP R1 FOR IEDIAP */ 02322000 LR RPARM,RQCB 02S1107 02323000 * RFY 02S1108 02324000 * RLINK RSTD; 02S1108 02325000 * CALL IEDIAP01; /* REQUEST A PLCB */ 02326000 L @10,AVTSAVTP(,RAVT) 02S1109 02327000 L @15,SAVTPREQ(,@10) 02S1109 02328000 BALR @14,@15 02S1109 02329000 * IF RLINK^=0 THEN /* WAS A PLCB ALLOCATED? */ 02330000 LTR RLINK,RLINK 02S1110 02331000 BZ @RF01110 02S1110 02332000 * DO; 02S1111 02333000 * RPARM=RLINK; 02S1112 02334000 LR RPARM,RLINK 02S1112 02335000 * RFY 02S1113 02336000 * RLINK UNRSTD; 02S1113 02337000 * RFY 02S1114 02338000 * IEDQLCB BASED(RPARM);/* SET UP ADDRESSABILITY 02339000 * TO LCB @YM05627*/ 02340000 * LCBQCBA=RPARM; /* SET UP PLCB FOR POST */ 02341000 STCM RPARM,7,LCBQCBA(RPARM) 02S1115 02342000 * LCBPRI=PRILNFRE; 02S1116 02343000 MVI LCBPRI(RPARM),X'E0' 02S1116 02344000 * RFY 02S1117 02345000 * IEDQLCB BASED(RLCB);/* RESTORE LCB BASE REG 02346000 * @YM05627*/ 02347000 * CALL DSPPOSTR; /* POST PLCB TO ITSELF */ 02348000 LA @15,DSPPOSTR(,RDISP) 02S1118 02349000 BALR @14,@15 02S1118 02350000 * END; 02S1119 02351000 * END; /* @YM06006*/ 02352000 @RF01110 DS 0H 02S1121 02353000 * END; 02S1121 02354000 @RF01103 DS 0H 02S1122 02355000 * RETCODE=RCDSPDSP; /* SET RETURN FOR DSPDISP */ 02356000 @RF01101 MVI RETCODE,X'04' 02S1122 02357000 * END; 02S1123 02358000 * RFY 02S1124 02359000 * RRET RSTD; 02S1124 02360000 @RC01084 DS 0H 02S1125 02361000 * RRET=SAVEWD02; /* RESTORE THE RETURN ADDRESS */ 02362000 L RRET,SAVEWD02 02S1125 02363000 * END REQPLCB; 02S1126 02364000 @EL00019 DS 0H 02S1126 02365000 @EF00019 DS 0H 02S1126 02366000 @ER00019 BR @14 02S1126 02367000 * RFY 02S1127 02368000 * RRET UNRSTD; 02S1127 02369000 * 02S1128 02370000 * /*****************************************************************/ 02371000 * /* */ 02372000 * /* SAPRMPT: THIS SEGMENT CONTAINS THE SAPRMPT INTERNAL PROCEDURE */ 02373000 * /* WHICH WILL SET UP THE CORRECT SIM ATTN PROMPT SEQUENCE AND */ 02374000 * /* THEN EXIT TO IEDAYM. NO RETURN REG IS SAVED IN THIS PROCEDURE */ 02375000 * /* SINCE IT UNCONDITIONALLY EXITS TO AYM. */ 02376000 * /* */ 02377000 * /*****************************************************************/ 02378000 * 02S1128 02379000 *SAPRMPT: 02S1128 02380000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1128 02381000 SAPRMPT DS 0H 02S1129 02382000 * RFY 02S1129 02383000 * RSCB RSTD; 02S1129 02384000 * 02S1129 02385000 * /*****************************************************************/ 02386000 * /* */ 02387000 * /* *****NOTE***** THIS SUBROUTINE EXITS, IT DOES NOT RETURN. */ 02388000 * /* */ 02389000 * /*****************************************************************/ 02390000 * 02S1130 02391000 * IF QCBSATRD=ON THEN /* IS THIS ENTRY FOR SIM ATTN 02392000 * READ */ 02393000 TM QCBSATRD(RQCB),B'00001000' 02S1130 02394000 BNO @RF01130 02S1130 02395000 * QCBSIMRD=ON; /* INDICATE SIM ATTN READ IN 02396000 * PROGRESS */ 02397000 OI QCBSIMRD(RQCB),B'00001000' 02S1131 02398000 * RSCB=LCBSCBA; /* PICK UP THE SCB ADDR FROM THE 02399000 * LCB - USED BY IEDAYJ */ 02400000 @RF01130 SLR RSCB,RSCB 02S1132 02401000 ICM RSCB,7,LCBSCBA(RLCB) 02S1132 02402000 * SCBMACR=ADDR(AVTINOUT); /* INDICATE END OF INMSG/OUTMSG 02403000 * PROCESSING @Y17XAYP*/ 02404000 LA @10,AVTINOUT(,RAVT) 02S1133 02405000 STCM @10,7,SCBMACR(IEDQSPTR) 02S1133 02406000 * LCBRCLLN=OFF; /* RESET ALL @YM06926*/ 02407000 NI LCBRCLLN(RLCB),B'01111111' 02S1134 02408000 * LCBCTLMD=OFF; /* STATUS @YM06926*/ 02409000 NI LCBCTLMD(RLCB),B'11111101' 02S1135 02410000 * LCBINITN=OFF; /* BITS @YM06926*/ 02411000 * LCBCONT=OFF; /* EXCEPT @YM06926*/ 02412000 * LCBFREEN=OFF; /* NON-IMMEDIATE @YM06926*/ 02413000 * LCBSENDN=OFF; /* OPERATOR CONTROL IN PROGRESS 02414000 * @YM06926*/ 02415000 * LCBRECVN=ON; /* INDICATE TERMINAL IS RECEIVING*/ 02416000 OI LCBRECVN(RLCB),B'00000010' 02S1140 02417000 NI LCBINITN(RLCB),B'11100010' 02S1140 02418000 * RFY 02S1141 02419000 * REG08 RSTD; /* @YM05666*/ 02420000 * IF DCT3270=ON THEN /* REMOTE 3270? */ 02421000 L @10,DCTPTR 02S1142 02422000 TM DCT3270(@10),B'00000100' 02S1142 02423000 BNO @RF01142 02S1142 02424000 * REG08=ADDR(SATR3270); /* SIM ATTN SEQUENCE FOR REMOTE 02425000 * 3270 @YM0566*/ 02426000 LA REG08,SATR3270 02S1143 02427000 * ELSE 02S1144 02428000 * IF DCTTWX=ON THEN /* TWX KEYBOARD RATTLE */ 02429000 B @RC01142 02S1144 02430000 @RF01142 L @10,DCTPTR 02S1144 02431000 TM DCTTWX(@10),B'00100000' 02S1144 02432000 BNO @RF01144 02S1144 02433000 * REG08=ADDR(SATTWX); /* SIM ATTN SEQUENCE FOR TWX */ 02434000 LA REG08,SATTWX 02S1145 02435000 * ELSE 02S1146 02436000 * IF TRMSNA=ON THEN /* SNA TERMINALS PROMPT SEQUENCE 02437000 * @YM08465*/ 02438000 B @RC01144 02S1146 02439000 @RF01144 TM TRMSNA(RTRM),B'00000010' 02S1146 02440000 BNO @RF01146 02S1146 02441000 * REG08=ADDR(SNADEFLT); /* SNA PROMPT SEQUENCE @YM08465*/ 02442000 LA REG08,SNADEFLT 02S1147 02443000 * ELSE 02S1148 02444000 * REG08=ADDR(SATDEFLT); /* DEFAULT SEQUENCE - KEYBOARD 02445000 * RATTLE @YM05666*/ 02446000 B @RC01146 02S1148 02447000 @RF01146 LA REG08,SATDEFLT 02S1148 02448000 */* REGS SET AS FOLLOWS FOR EXIT TO IEDAYM: 02S1149 02449000 *R1=0 02S1149 02450000 *R3=ADDR(SCB) 02S1149 02451000 *R8=ADDR(PROMPT DATA) 02S1149 02452000 *R12 & R14 = ADDR(IEDAYM) */ 02453000 * 02S1149 02454000 * RPARM=ZERO; /* CLEAR R1 FOR IEDAYM */ 02455000 @RC01146 DS 0H 02S1149 02456000 @RC01144 DS 0H 02S1149 02457000 @RC01142 L RPARM,ZERO 02S1149 02458000 * RFY 02S1150 02459000 * RRET RSTD; 02S1150 02460000 * RRET=AVTTSOPT->TSIMSGEN; /* PICK UP ADDR OF IEDAYM */ 02461000 L @10,AVTTSOPT(,RAVT) 02S1151 02462000 L RRET,TSIMSGEN(,@10) 02S1151 02463000 * GEN REFS(RBASE1,RRET) SETS(RBASE1) EXIT; 02S1152 02464000 * /* 02465000 * MOVE ADDRESS OF IEDAYM FROM RRET TO RBASE1 AND EXIT 02466000 LR RBASE1,RRET R12 <- A(IEDAYM) @YM06996 02467000 BR RBASE1 BRANCH TO AYM @YM06996 02468000 * END SAPRMPT; 02S1153 02469000 @EL00020 DS 0H 02S1153 02470000 @EF00020 DS 0H 02S1153 02471000 @ER00020 BR @14 02S1153 02472000 * RFY 02S1154 02473000 * (RRET, 02S1154 02474000 * RSCB, 02S1154 02475000 * REG08) UNRSTD; /* @YM05666*/ 02476000 * 02S1155 02477000 * /*****************************************************************/ 02478000 * /* */ 02479000 * /* SCHDESIG: THIS SEGMENT CONTAINS THE SCHDESIG INTERNAL */ 02480000 * /* PROCEDURE WHICH PROCESSES SENDING THE SIGNAL FOR BREAK-IN IF */ 02481000 * /* RCVR IN XMIT MODE WAS RECEIVED ON THE LAST TPUT AND THE QCB */ 02482000 * /* HAS NOT BEEN POSTED. THE SEGMENT CHKESIG IS CALLED FOR THIS */ 02483000 * /* PURPOSE. @YM06175*/ 02484000 * /* */ 02485000 * /*****************************************************************/ 02486000 * 02S1155 02487000 * RFY 02S1155 02488000 * RRET RSTD; 02S1155 02489000 *SCHDESIG: 02S1156 02490000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1156 02491000 SCHDESIG DS 0H 02S1157 02492000 * SAVEWD08=RRET; /* SAVE THE RETURN ADDRESS */ 02493000 ST RRET,SAVEWD08 02S1157 02494000 * RFY 02S1158 02495000 * RRET UNRSTD; 02S1158 02496000 * CALL CHKESIG; /* DETERMINE IF A SIGNAL IS 02S1159 02497000 * REQUIRED FOR BREAK-IN */ 02498000 BAL @14,CHKESIG 02S1159 02499000 * IF BUFAV=ON THEN /* WAS A BUFFER OBTAINED */ 02500000 TM BUFAV,B'00000010' 02S1160 02501000 BNO @RF01160 02S1160 02502000 * DO; 02S1161 02503000 * QCBSNDRQ=ON; /* REQUEST A SEND SCHEDULER THE 02504000 * NEX TIME A PLCB IS REQUESTED */ 02505000 LR @10,RQCB 02S1162 02506000 AL @10,@CF03555 02S1162 02507000 OI QCBSNDRQ-4(@10),B'00100000' 02S1162 02508000 * RETCODE=REMOVESS; /* REQUEST SEND SCHEDULER REMOVAL*/ 02509000 MVI RETCODE,X'00' 02S1163 02510000 * END; 02S1164 02511000 * ELSE 02S1165 02512000 * RETCODE=RCDSPDSP; /* SET RETURN CODE FOR TSO SEND */ 02513000 B @RC01160 02S1165 02514000 @RF01160 MVI RETCODE,X'04' 02S1165 02515000 * RFY 02S1166 02516000 * RRET RSTD; 02S1166 02517000 @RC01160 DS 0H 02S1167 02518000 * RRET=SAVEWD08; /* RESTORE THE RETURN ADDRESS */ 02519000 L RRET,SAVEWD08 02S1167 02520000 * END SCHDESIG; 02S1168 02521000 @EL00021 DS 0H 02S1168 02522000 @EF00021 DS 0H 02S1168 02523000 @ER00021 BR @14 02S1168 02524000 * RFY 02S1169 02525000 * RRET UNRSTD; 02S1169 02526000 * 02S1170 02527000 * /*****************************************************************/ 02528000 * /* */ 02529000 * /* SIMATTN: THIS SEGMENT CONTAINS THE SIMATTN INTERNAL PROCEDURE */ 02530000 * /* WHICH DETERMINES WHETHER AN SMI WRITE OR SIM ATTN PROMPT OR A */ 02531000 * /* SIGNAL DATA FLOW CONTROL COMMAND IS REQUIRED TO LOCK SNA */ 02532000 * /* KEYBOARDS IS TO BE DONE. IT ALSO HANDLES SIM ATTN BY TIME */ 02533000 * /* DELAY AND NOTIFIES TSO THAT A TERMINAL IS ON THE TIME DELAY */ 02534000 * /* QUEUE */ 02535000 * /* */ 02536000 * /*****************************************************************/ 02537000 * 02S1170 02538000 * RFY 02S1170 02539000 * RRET RSTD; 02S1170 02540000 *SIMATTN: 02S1171 02541000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1171 02542000 SIMATTN DS 0H 02S1172 02543000 * SAVEWD01=RRET; 02S1172 02544000 ST RRET,SAVEWD01 02S1172 02545000 * RFY 02S1173 02546000 * RRET UNRSTD; 02S1173 02547000 * IF QCBSATRD=ON THEN /* SIM ATTN READ REQUEST */ 02548000 TM QCBSATRD(RQCB),B'00001000' 02S1174 02549000 BNO @RF01174 02S1174 02550000 * IF QCBSIMRD=ON THEN /* SIM ATTN READ IN PROGRESS */ 02551000 TM QCBSIMRD(RQCB),B'00001000' 02S1175 02552000 BNO @RF01175 02S1175 02553000 * CALL SMIRTN; /* SMI PROCESSING */ 02554000 BAL @14,SMIRTN 02S1176 02555000 * ELSE 02S1177 02556000 * CALL SAPRMPT; /* SIM ATTN PROMPT PROCESSING OR 02557000 * SNA KEYBOARD LOCK PROCESSING */ 02558000 B @RC01175 02S1177 02559000 @RF01175 BAL @14,SAPRMPT 02S1177 02560000 * ELSE 02S1178 02561000 * DO; /* @Y17XAYP*/ 02562000 B @RC01174 02S1178 02563000 @RF01174 DS 0H 02S1179 02564000 * RETCODE=FREEPLCB; /* SET RETURN TO FREE PLCB 02S1179 02565000 * @YM08578*/ 02566000 MVI RETCODE,X'14' 02S1179 02567000 * IF DCT3270=OFF& /* DONT SEND SIGNAL TO 3270 02S1180 02568000 * @YM07018*/ 02569000 * TRMSNA=ON&SIBCD=OFF&QCBNOBUF=ON THEN/* IF THE SNA 02S1180 02570000 * KEYBOARD HAS NOT BEEN LOCKED 02571000 * AND MUST BE LOCKED BECAUSE OF 02572000 * NO BUFFERS @Y17XAYP*/ 02573000 L @10,DCTPTR 02S1180 02574000 TM DCT3270(@10),B'00000100' 02S1180 02575000 BNZ @RF01180 02S1180 02576000 TM TRMSNA(RTRM),B'00000010' 02S1180 02577000 BNO @RF01180 02S1180 02578000 ICM @10,7,TRMSIBPT(RTRM) 02S1180 02579000 TM SIBCD(@10),B'10000000' 02S1180 02580000 BNZ @RF01180 02S1180 02581000 TM QCBNOBUF(RQCB),B'00010000' 02S1180 02582000 BNO @RF01180 02S1180 02583000 * DO; /* @YM07018*/ 02584000 * CALL GETBFR; /* REQUEST A BUFFER FOR THE 02S1182 02585000 * SIGNAL @YM07018*/ 02586000 BAL @14,GETBFR 02S1182 02587000 * IF BUFAV=ON THEN /* WAS A BUFFER OBTAINED @YM07018*/ 02588000 TM BUFAV,B'00000010' 02S1183 02589000 BNO @RF01183 02S1183 02590000 * DO; /* @YM07018*/ 02591000 * CALL SNDESIG; /* SEND SIGNAL TO LOCK KEYBOARD 02592000 * @YM07018*/ 02593000 BAL @14,SNDESIG 02S1185 02594000 * SIBCD=ON; /* INDICATE KEYBOARD LOCKED 02S1186 02595000 * @YM07018*/ 02596000 ICM @10,7,TRMSIBPT(RTRM) 02S1186 02597000 OI SIBCD(@10),B'10000000' 02S1186 02598000 * END; /* @YM07018*/ 02599000 * ELSE /* ERB HAS BEEN POSTED TO REQUEST 02600000 * A BUFFER @YM07018*/ 02601000 * RETCODE=RCDSPDSP; /* INDICATE NO PROCESSING UNTIL 02602000 * SIGNAL SENT @YM07018*/ 02603000 B @RC01183 02S1188 02604000 @RF01183 MVI RETCODE,X'04' 02S1188 02605000 * END; /* @YM07018*/ 02606000 * ELSE /* @Y17XAYP*/ 02607000 * IF QCBSATTI=ON THEN /* SIM ATTN BY TIME DELAY REQUEST*/ 02608000 B @RC01180 02S1190 02609000 @RF01180 TM QCBSATTI(RQCB),B'00000010' 02S1190 02610000 BNO @RF01190 02S1190 02611000 * IF QCBPOSTO=OFF THEN /* QCB HAS NOT BEEN POSTED */ 02612000 TM QCBPOSTO(RQCB),B'00100000' 02S1191 02613000 BNZ @RF01191 02S1191 02614000 * DO; 02S1192 02615000 * RFY 02S1193 02616000 * RLINK RSTD; 02S1193 02617000 * 02S1193 02618000 * /*****************************************************/ 02619000 * /* */ 02620000 * /* THE FOLLOWING CODE REPLACES A QTIP ENTRY CODE 25 */ 02621000 * /* FOR MVS */ 02622000 * /* */ 02623000 * /*****************************************************/ 02624000 * 02S1194 02625000 * IF QCBTPUT=ON|QCBDELAY=ON THEN/* TPUT IN PROGRESS OR 02626000 * QCB ALREADY ON TIME DELAY 02627000 * QUEUE @G36XRYP*/ 02628000 TM QCBTPUT(RQCB),B'00100010' 02S1194 02629000 BZ @RF01194 02S1194 02630000 * RLINK=4; /* INDICATE QCB NOT PLACED ON 02631000 * TIME DELAY QUEUE @G36XRYP*/ 02632000 LA RLINK,4 02S1195 02633000 * ELSE 02S1196 02634000 * DO; 02S1196 02635000 B @RC01194 02S1196 02636000 @RF01194 DS 0H 02S1197 02637000 * QCBDELAY=ON; /* INDICATE QCB ON TIME DELAY 02638000 * @G36XRYP*/ 02639000 OI QCBDELAY(RQCB),B'00000010' 02S1197 02640000 * IF QCBPOSTO=ON THEN/* HAS THE QCB ALREADY BEEN 02641000 * POSTED @G36XRYP*/ 02642000 TM QCBPOSTO(RQCB),B'00100000' 02S1198 02643000 BNO @RF01198 02S1198 02644000 * DO; /* @G36XRYP*/ 02645000 * QCBDELAY=OFF;/* INDICATE QCB NOT ON TIME 02646000 * DELAY @G36XRYP*/ 02647000 NI QCBDELAY(RQCB),B'11111101' 02S1200 02648000 * RLINK=4; /* INDICATE QCB NOT PLACED ON 02649000 * TIME DELAY QUEUE @G36XRYP*/ 02650000 LA RLINK,4 02S1201 02651000 * END; /* @G36XRYP*/ 02652000 * ELSE 02S1203 02653000 * DO; /* @G36XRYP*/ 02654000 B @RC01198 02S1203 02655000 @RF01198 DS 0H 02S1204 02656000 * QCBELCHN=TSISIMAT;/* SET QCB FOR ENTRY TO 02657000 * IEDAYS WHEN TIME DELAY EXPIRES 02658000 * @G36XRYP*/ 02659000 L @14,AVTTSOPT(,RAVT) 02S1204 02660000 MVC QCBELCHN(3,RQCB),TSISIMAT+1(@14) 02S1204 02661000 * QCBPRI=PRITIME;/* TIME DELAY POST PRIORITY 02662000 * @G36XRYP*/ 02663000 MVI QCBPRI(RQCB),X'F0' 02S1205 02664000 * RFY 02S1206 02665000 * (RTSB, 02S1206 02666000 * RASCB) RSTD;/* @OZ28676*/ 02667000 * RFY 02S1207 02668000 * REG10 RSTD;/* @OZ28676*/ 02669000 * REG10=RBASE2;/* SAVE SECOND BASE REG @OZ28676*/ 02670000 LR REG10,RBASE2 02S1208 02671000 * RASCB=ASVTENTY(QCBTJID);/* ASCB ADDRESS 02S1209 02672000 * @ZM46822*/ 02673000 LH @14,QCBTJID(,RQCB) 02S1209 02674000 SLA @14,2 02S1209 02675000 L @05,CVTPTR 02S1209 02676000 L @05,ASVTPTR(,@05) 02S1209 02677000 L RASCB,ASVTENTY-4(@14,@05) 02S1209 02678000 * RTSB=ASCBTSB;/* GET TSB ADDRESS @G36XRYP*/ 02679000 L RTSB,ASCBTSB(,RASCB) 02S1210 02680000 * QCBEOLDT=TSBATNTC;/* @G36XRYP*/ 02681000 MVC QCBEOLDT(2,RQCB),TSBATNTC(RTSB) 02S1211 02682000 * RBASE2=REG10;/* RESTORE BASE REG @OZ28676*/ 02683000 LR RBASE2,REG10 02S1212 02684000 * RFY 02S1213 02685000 * REG10 UNRSTD;/* @OZ28676*/ 02686000 * RFY 02S1214 02687000 * (RTSB, 02S1214 02688000 * RASCB) UNRSTD;/* @OZ28676*/ 02689000 * QCBLINK=QCBCARCT;/* @G36XRYP*/ 02690000 SLR @14,@14 02S1215 02691000 IC @14,QCBCARCT(,RQCB) 02S1215 02692000 STCM @14,7,QCBLINK(RQCB) 02S1215 02693000 * QCBRETCT=ZERO;/* @G36XRYP*/ 02694000 MVC QCBRETCT(1,RQCB),ZERO+3 02S1216 02695000 * RLINK=0; /* INDICATE QCB PLACED ON TIME 02696000 * DELAY QUEUE @G36XRYP*/ 02697000 SLR RLINK,RLINK 02S1217 02698000 * END; /* @G36XRYP*/ 02699000 * END; /* @G36XRYP*/ 02700000 @RC01198 DS 0H 02S1220 02701000 * IF RLINK=0 THEN /* QCB NOT ALREADY ON TIME DELAY */ 02702000 @RC01194 LTR RLINK,RLINK 02S1220 02703000 BNZ @RF01220 02S1220 02704000 * DO; 02S1221 02705000 * RFY 02S1222 02706000 * RLINK UNRSTD; 02S1222 02707000 * QCBELCHN=RQCB; /* SET QCB ADDRESS @YM08084*/ 02708000 STCM RQCB,7,QCBELCHN(RQCB) 02S1223 02709000 * QCBPRI=PRIEDISP;/* SET PRIORITY @YM08084*/ 02710000 MVI QCBPRI(RQCB),X'E0' 02S1224 02711000 * QCBLKRLN=ZERO; /* INDICATE QCB @YM08084*/ 02712000 MVC QCBLKRLN(1,RQCB),ZERO+3 02S1225 02713000 * RPARM=RQCB; /* R1 = ADDR OF QCB TO BE PUT ON */ 02714000 LR RPARM,RQCB 02S1226 02715000 * CALL IEDQHG01; /* TIME DELAY QUEUE */ 02716000 L @15,AVTHG01(,RAVT) 02S1227 02717000 BALR @14,@15 02S1227 02718000 * END; 02S1228 02719000 * END; 02S1229 02720000 * ELSE 02S1230 02721000 * ; 02S1230 02722000 @RF01191 DS 0H 02S1231 02723000 * ELSE 02S1231 02724000 * DO; 02S1231 02725000 B @RC01190 02S1231 02726000 @RF01190 DS 0H 02S1232 02727000 * IF TRMSNA=ON THEN /* MONITOR NOT USED FOR SNA TERM 02728000 * @YM06948*/ 02729000 TM TRMSNA(RTRM),B'00000010' 02S1232 02730000 BO @RT01232 02S1232 02731000 * ; 02S1233 02732000 * ELSE /* @YM06948*/ 02733000 * IF TRMPREP=OFF THEN /* MONITOR NOT ACTIVE IN NCP */ 02734000 TM TRMPREP(RTRM),B'00000100' 02S1234 02735000 BNZ @RF01234 02S1234 02736000 * TRMPREP=ON; /* SET MONITOR MODE INDICATOR */ 02737000 LA @15,TRMPREP(,RTRM) 02S1235 02738000 LR @14,@15 02S1235 02739000 LA @10,3 02S1235 02740000 NR @14,@10 02S1235 02741000 LCR @14,@14 02S1235 02742000 ALR @15,@14 02S1235 02743000 L @10,0(,@15) 02S1235 02744000 @GL00046 LR @05,@10 02S1235 02745000 O @05,@CB03574+3(@14) 02S1235 02746000 CS @10,@05,0(@15) 02S1235 02747000 BNE @GL00046 02S1235 02748000 * RETCODE=CONTRCVS; /* SET RETURN TO CONTINUE RECV 02749000 * SCHEDULING */ 02750000 @RF01234 DS 0H 02S1236 02751000 @RT01232 MVI RETCODE,X'00' 02S1236 02752000 * END; 02S1237 02753000 * END; 02S1238 02754000 @RC01190 DS 0H 02S1238 02755000 @RC01180 DS 0H 02S1239 02756000 * RFY 02S1239 02757000 * RRET RSTD; 02S1239 02758000 @RC01174 DS 0H 02S1240 02759000 * RRET=SAVEWD01; /* RESTORE RETURN ADDRESS TO RRET*/ 02760000 L RRET,SAVEWD01 02S1240 02761000 * END SIMATTN; 02S1241 02762000 @EL00022 DS 0H 02S1241 02763000 @EF00022 DS 0H 02S1241 02764000 @ER00022 BR @14 02S1241 02765000 * RFY 02S1242 02766000 * RRET UNRSTD; 02S1242 02767000 * 02S1243 02768000 * /*****************************************************************/ 02769000 * /* */ 02770000 * /* SMIRTN: THIS SEGMENT CONTAINS THE SMIRTN INTERNAL PROCEDURE */ 02771000 * /* WHICH DETERMINES WHETHER THE SMI SEQUENCE SHOULD BE SENT, HAS */ 02772000 * /* BEEN SENT OR SHOULD NOT BE SENT. IF IT SHOULD BE SENT, THE */ 02773000 * /* BLDSMI INTERNAL PROCEDURE IS CALLED. */ 02774000 * /* */ 02775000 * /*****************************************************************/ 02776000 * 02S1243 02777000 * RFY 02S1243 02778000 * RRET RSTD; 02S1243 02779000 *SMIRTN: 02S1244 02780000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1244 02781000 SMIRTN DS 0H 02S1245 02782000 * SAVEWD02=RRET; 02S1245 02783000 ST RRET,SAVEWD02 02S1245 02784000 * RFY 02S1246 02785000 * RRET UNRSTD; 02S1246 02786000 * IF TRMSNA=ON THEN 02S1247 02787000 * 02S1247 02788000 TM TRMSNA(RTRM),B'00000010' 02S1247 02789000 BNO @RF01247 02S1247 02790000 * /***************************************************************/ 02791000 * /* */ 02792000 * /* PROCESS UNLOCK KEYBOARD AND SMI PROMPT FOR SNA TERMINALS */ 02793000 * /* */ 02794000 * /***************************************************************/ 02795000 * 02S1248 02796000 * DO; 02S1248 02797000 * IF SIBCD=ON|QCBDSSMI=OFF THEN/* IS KEYBOARD LOCKED OR SMI 02798000 * REQUIRED @YM06127*/ 02799000 ICM @10,7,TRMSIBPT(RTRM) 02S1249 02800000 TM SIBCD(@10),B'10000000' 02S1249 02801000 BO @RT01249 02S1249 02802000 TM QCBDSSMI(RQCB),B'00010000' 02S1249 02803000 BNZ @RF01249 02S1249 02804000 @RT01249 DS 0H 02S1250 02805000 * CALL BLDSMI; /* UNLOCK KEYBOARD OR SEND SMI */ 02806000 BAL @14,BLDSMI 02S1250 02807000 * END; 02S1251 02808000 * ELSE /* @Y17XAYP*/ 02809000 * 02S1252 02810000 * /***************************************************************/ 02811000 * /* */ 02812000 * /* PROCESS SMI PROMPT FOR BSC AND START/STOP TERMINALS */ 02813000 * /* */ 02814000 * /***************************************************************/ 02815000 * 02S1252 02816000 * DO; 02S1252 02817000 B @RC01247 02S1252 02818000 @RF01247 DS 0H 02S1253 02819000 * IF TRMRDOUT=ON|TRMINOUT=ON THEN/* IS A READ OUTSTANDING 02S1253 02820000 * @YM06859*/ 02821000 TM TRMRDOUT(RTRM),B'00000011' 02S1253 02822000 BZ @RF01253 02S1253 02823000 * RETCODE=FREEPLCB; /* SET RETURN TO FREEPLCB 02S1254 02824000 * @YM08578*/ 02825000 MVI RETCODE,X'14' 02S1254 02826000 * ELSE 02S1255 02827000 * IF QCBDSSMI=ON THEN /* HAS SMI BEEN SENT */ 02828000 B @RC01253 02S1255 02829000 @RF01253 TM QCBDSSMI(RQCB),B'00010000' 02S1255 02830000 BNO @RF01255 02S1255 02831000 * RETCODE=CONTRCVS; /* YES, SET RETURN FOR CONTINUE 02832000 * RECV SCHEDULING */ 02833000 MVI RETCODE,X'00' 02S1256 02834000 * ELSE 02S1257 02835000 * CALL BLDSMI; /* GO BUILD THE SMI SEQUENCE */ 02836000 B @RC01255 02S1257 02837000 @RF01255 BAL @14,BLDSMI 02S1257 02838000 * END; 02S1258 02839000 @RC01255 DS 0H 02S1258 02840000 @RC01253 DS 0H 02S1259 02841000 * IF RETCODE=INITVAL THEN /* IF RETURN CODE HAS NOT BEEN 02842000 * SET */ 02843000 @RC01247 CLI RETCODE,X'FF' 02S1259 02844000 BNE @RF01259 02S1259 02845000 * RETCODE=CONTRCVS; /* THEN INDICATE CONTINUE RECV 02846000 * SCHEDULING */ 02847000 MVI RETCODE,X'00' 02S1260 02848000 * RFY 02S1261 02849000 * RRET RSTD; 02S1261 02850000 @RF01259 DS 0H 02S1262 02851000 * RRET=SAVEWD02; /* RESTORE RETURN ADDRESS TO RRET*/ 02852000 L RRET,SAVEWD02 02S1262 02853000 * END SMIRTN; 02S1263 02854000 @EL00023 DS 0H 02S1263 02855000 @EF00023 DS 0H 02S1263 02856000 @ER00023 BR @14 02S1263 02857000 * RFY 02S1264 02858000 * RRET UNRSTD; 02S1264 02859000 * 02S1265 02860000 * /*****************************************************************/ 02861000 * /* */ 02862000 * /* SNDESIG: THIS SEGMENT CONTAINS THE SNDESIG INTERNAL PROCEDURE */ 02863000 * /* WHICH BUILDS SIGNAL DATA FLOW CONTROL COMMAND IN A PIU AND */ 02864000 * /* POSTS THE PIU TO IEDDFOUT. */ 02865000 * /* */ 02866000 * /*****************************************************************/ 02867000 * 02S1265 02868000 * RFY 02S1265 02869000 * RRET RSTD; 02S1265 02870000 *SNDESIG: 02S1266 02871000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1266 02872000 SNDESIG DS 0H 02S1267 02873000 * SAVEWD06=RRET; 02S1267 02874000 ST RRET,SAVEWD06 02S1267 02875000 * RFY 02S1268 02876000 * RRET UNRSTD; 02S1268 02877000 * BREAKPST=ON; /* INDICATE ESIG SENT @YM06127*/ 02878000 OI BREAKPST,B'00001000' 02S1269 02879000 * RFY 02S1270 02880000 * IEDTH BASED(ADDR(PIUTH)); /* @Y17XAYP*/ 02881000 * RFY 02S1271 02882000 * IEDRH BASED(ADDR(PIURH)); /* @Y17XAYP*/ 02883000 * CALL PIU1COND; /* CONDITION THE FID1 PIU 02S1272 02884000 * @Y17XAYP*/ 02885000 BAL @14,PIU1COND 02S1272 02886000 * TTHEFI=ON; /* EXPEDITED FLOW DFC COMMAND 02887000 * @Y17XAYP*/ 02888000 LA @10,PRFPIUO(,RPRF) 02S1273 02889000 SLR @05,@05 02S1273 02890000 IC @05,PRFPIUO(,RPRF) 02S1273 02891000 ALR @10,@05 02S1273 02892000 OI TTHEFI(@10),B'00000001' 02S1273 02893000 * TRHRUCAT=TRHDFC; /* DATA FLOW CONTROL COMMAND 02894000 * @YM07018*/ 02895000 NI TRHRUCAT+10(@10),B'11011111' 02S1274 02896000 OI TRHRUCAT+10(@10),B'01000000' 02S1274 02897000 * TTHDCF=LENGTH(IEDRH)+LENGTH(SIGNAL);/* SET UP DATA COUNT FIELD 02898000 * @Y17XAYP*/ 02899000 LA @05,8 02S1275 02900000 STH @05,TTHDCF(,@10) 02S1275 02901000 * SIGRU=SIGNAL; /* MOVE THE SIGNAL COMMAND TO THE 02902000 * PIU @Y17XAYP*/ 02903000 MVC SIGRU+13(5,@10),SIGNAL 02S1276 02904000 * QCBESIG=OFF; /* INDICATE SIGNAL NO LONGER 02905000 * REQUIRED */ 02906000 LCR @05,@05 02S1277 02907000 ALR @05,RQCB 02S1277 02908000 NI QCBESIG(@05),B'11110111' 02S1277 02909000 * PRFPRI=PRIOUTBD; /* SET POST PRIORITY @Y17XAYP*/ 02910000 MVI PRFPRI(RPRF),X'E4' 02S1278 02911000 * PRFQCBA=SAVTDFCO; /* POST TO IEDDFOUT @Y17XAYP*/ 02912000 L @10,AVTSAVTP(,RAVT) 02S1279 02913000 MVC PRFQCBA(3,RPRF),SAVTDFCO+1(@10) 02S1279 02914000 * RPARM=RPRF; /* BUFFER FOR DISPATCHER @Y17XAYP*/ 02915000 LR RPARM,RPRF 02S1280 02916000 * CALL DSPPOSTR; /* CALL DISPATCHER FOR POST */ 02917000 LA @15,DSPPOSTR(,RDISP) 02S1281 02918000 BALR @14,@15 02S1281 02919000 * RQCB=TRMDESTQ; /* RESTORE QCB ADDR AFTER DISP 02920000 * CALL */ 02921000 SLR RQCB,RQCB 02S1282 02922000 ICM RQCB,7,TRMDESTQ(RTRM) 02S1282 02923000 * RFY 02S1283 02924000 * RRET RSTD; 02S1283 02925000 * RRET=SAVEWD06; /* RESTORE RETURN ADDRESS TO RRET*/ 02926000 L RRET,SAVEWD06 02S1284 02927000 * END SNDESIG; 02S1285 02928000 @EL00024 DS 0H 02S1285 02929000 @EF00024 DS 0H 02S1285 02930000 @ER00024 BR @14 02S1285 02931000 * RFY 02S1286 02932000 * RRET UNRSTD; 02S1286 02933000 * 02S1287 02934000 * /*****************************************************************/ 02935000 * /* */ 02936000 * /* TCAMSND: THIS SEGMENT CONTAINS THE TCAMSND INTERNAL PROCEDURE */ 02937000 * /* WHICH DETERMINES WHETHER A TCAM SEND OPERATION SHOULD BE */ 02938000 * /* PERFORMED OR IF THE SEND SCHEDULER SHOULD BE REMOVED. */ 02939000 * /* */ 02940000 * /*****************************************************************/ 02941000 * 02S1287 02942000 * RFY 02S1287 02943000 * RRET RSTD; 02S1287 02944000 *TCAMSND: 02S1288 02945000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1288 02946000 TCAMSND DS 0H 02S1289 02947000 * SAVEWD03=RRET; 02S1289 02948000 ST RRET,SAVEWD03 02S1289 02949000 * RFY 02S1290 02950000 * RRET UNRSTD; 02S1290 02951000 * IF QCBTSSES=ON THEN /* TERMINAL IN TSO SESSION? */ 02952000 * 02S1291 02953000 TM QCBTSSES(RQCB),B'10000000' 02S1291 02954000 BNO @RF01291 02S1291 02955000 * /***************************************************************/ 02956000 * /* */ 02957000 * /* PROCESS ENDING OF A TSO SESSION */ 02958000 * /* */ 02959000 * /***************************************************************/ 02960000 * 02S1292 02961000 * DO; 02S1292 02962000 * QCBTSSES=OFF; /* INDICATE NO LONGER IN TSO 02963000 * SESSION */ 02964000 NI QCBTSSES(RQCB),B'01111111' 02S1293 02965000 * LCBTSBUF=OFF; /* RESET TSO BUFFER PROCESS 02S1294 02966000 * INDICATOR IN PLCB */ 02967000 NI LCBTSBUF(RLCB),B'10111111' 02S1294 02968000 * IF TRMSNA=ON THEN /* IS THIS A SNA TERMINAL 02S1295 02969000 * @YM06127*/ 02970000 TM TRMSNA(RTRM),B'00000010' 02S1295 02971000 BNO @RF01295 02S1295 02972000 * CALL ENDBRKT; /* END BRACKET FOR SNA @YM06127*/ 02973000 BAL @14,ENDBRKT 02S1296 02974000 * ELSE /* @Y17XAYP*/ 02975000 * DO; 02S1297 02976000 * 02S1297 02977000 B @RC01295 02S1297 02978000 @RF01295 DS 0H 02S1298 02979000 * /*********************************************************/ 02980000 * /* */ 02981000 * /* THE TSO SESSION HAS ENDED. POST THE LCB TO ITSELF TO */ 02982000 * /* RE-ENTER THE TCAM SEND SCHEDULER . */ 02983000 * /* */ 02984000 * /*********************************************************/ 02985000 * 02S1298 02986000 * RPARM=RLCB; /* R1 = ADDR OF PLCB @Y17XAYP*/ 02987000 LR RPARM,RLCB 02S1298 02988000 * CALL DSPPOSTR; /* POST PLCB TO RE-ENTER FOR TCAM 02989000 * SEND @Y17XAYP*/ 02990000 LA @15,DSPPOSTR(,RDISP) 02S1299 02991000 BALR @14,@15 02S1299 02992000 * RQCB=TRMDESTQ; /* RESTORE THE QCB ADDRESS 02S1300 02993000 * @Y17XAYP*/ 02994000 SLR RQCB,RQCB 02S1300 02995000 ICM RQCB,7,TRMDESTQ(RTRM) 02S1300 02996000 * RETCODE=RCDSPDSP; /* SET RETURN FOR DSPDISP 02S1301 02997000 * @Y17XAYP*/ 02998000 MVI RETCODE,X'04' 02S1301 02999000 * END; /* @Y17XAYP*/ 03000000 * END; 02S1303 03001000 * ELSE 02S1304 03002000 * DO; 02S1304 03003000 * 02S1304 03004000 B @RC01291 02S1304 03005000 @RF01291 DS 0H 02S1305 03006000 * /*************************************************************/ 03007000 * /* */ 03008000 * /* PROCESS WITH NO TSO SESSION CURRENTLY ACTIVE */ 03009000 * /* */ 03010000 * /*************************************************************/ 03011000 * 02S1305 03012000 * RFY 02S1305 03013000 * RSMH RSTD; /* WILL HAVE STARTMH BASE ADDR */ 03014000 * RSMH=LCBMHA; /* GET STARTMH QCB ADDR @YM06085*/ 03015000 SLR RSMH,RSMH 02S1306 03016000 ICM RSMH,7,LCBMHA(RLCB) 02S1306 03017000 * IF QCBALTMH=ON THEN /* ALTERNATE MH BEING USED */ 03018000 TM QCBALTMH(RQCB),B'00001000' 02S1307 03019000 BNO @RF01307 02S1307 03020000 * RSMH=STMHALT; /* GET ALTERNATE STARTMH QCB ADDR*/ 03021000 L RSMH,STMHALT(,RSMH) 02S1308 03022000 * IF STMHTSFG=OFF& /* IS THIS A TCAM MH - I.E. NOT 03023000 * TSO, AND... */ 03024000 * (QCBREUS=ON|QCBCORE=ON|QCBNREUS=ON)/* TCAM QUEUES... */ 03025000 * THEN 02S1309 03026000 @RF01307 TM STMHTSFG(RSMH),B'00000001' 02S1309 03027000 BNZ @RF01309 02S1309 03028000 TM QCBREUS(RQCB),B'01110000' 02S1309 03029000 BZ @RF01309 02S1309 03030000 * RETCODE=TCAMSEND; /* INDICATE TCAM SEND STATE */ 03031000 MVI RETCODE,X'08' 02S1310 03032000 * ELSE 02S1311 03033000 * RETCODE=REMOVESS; /* SET RETURN TO REMOVE SEND 03034000 * SCHEDULER */ 03035000 B @RC01309 02S1311 03036000 @RF01309 MVI RETCODE,X'00' 02S1311 03037000 * END; 02S1312 03038000 @RC01309 DS 0H 02S1313 03039000 * RFY 02S1313 03040000 * RRET RSTD; 02S1313 03041000 @RC01291 DS 0H 02S1314 03042000 * RFY 02S1314 03043000 * RSMH UNRSTD; 02S1314 03044000 * RRET=SAVEWD03; /* RESTORE RETURN ADDRESS TO RRET*/ 03045000 L RRET,SAVEWD03 02S1315 03046000 * END TCAMSND; 02S1316 03047000 @EL00025 DS 0H 02S1316 03048000 @EF00025 DS 0H 02S1316 03049000 @ER00025 BR @14 02S1316 03050000 * RFY 02S1317 03051000 * RRET UNRSTD; 02S1317 03052000 * 02S1318 03053000 * /*****************************************************************/ 03054000 * /* */ 03055000 * /* TSOSND: THIS SEGMENT CONTAINS THE TSOSND INTERNAL PROCEDURE */ 03056000 * /* WHICH DETERMINES WHETHER A TSO SEND OPERATION SHOULD BE */ 03057000 * /* PERFORMED OR THE SEND SCHEDULER SHOULD BE REMOVED. */ 03058000 * /* */ 03059000 * /*****************************************************************/ 03060000 * 02S1318 03061000 * RFY 02S1318 03062000 * RRET RSTD; 02S1318 03063000 *TSOSND: 02S1319 03064000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1319 03065000 TSOSND DS 0H 02S1320 03066000 * SAVEWD02=RRET; 02S1320 03067000 ST RRET,SAVEWD02 02S1320 03068000 * RFY 02S1321 03069000 * RRET UNRSTD; 02S1321 03070000 * IF QCBWRBRK=ON THEN 02S1322 03071000 TM QCBWRBRK(RQCB),B'10000000' 02S1322 03072000 BNO @RF01322 02S1322 03073000 * DO; /* IF A WRITE BREAK REQUESTED... */ 03074000 * 02S1323 03075000 * /*************************************************************/ 03076000 * /* */ 03077000 * /* TPUT BREAK PROCESS */ 03078000 * /* */ 03079000 * /*************************************************************/ 03080000 * 02S1324 03081000 * QCBREAD=OFF; /* INDICATE THAT READ DOES NOT 03082000 * HAVE PRTY */ 03083000 NI QCBREAD(RQCB),B'11011111' 02S1324 03084000 * IF QCBDELAY=ON THEN /* QCB IS ON DELAY QUEUE */ 03085000 TM QCBDELAY(RQCB),B'00000010' 02S1325 03086000 BNO @RF01325 02S1325 03087000 * DO; 02S1326 03088000 * RPARM=RQCB; /* R1 <- QCB ADDR */ 03089000 LR RPARM,RQCB 02S1327 03090000 * CALL IEDQHG02; /* CALL DELAY QUEUE ELEMENT 02S1328 03091000 * REMOVAL ROUTINE */ 03092000 L @15,AVTHG02(,RAVT) 02S1328 03093000 BALR @14,@15 02S1328 03094000 * END; 02S1329 03095000 * IF TRMSNA=ON&QCBESIG=ON THEN/* @YM06175*/ 03096000 @RF01325 TM TRMSNA(RTRM),B'00000010' 02S1330 03097000 BNO @RF01330 02S1330 03098000 LR @10,RQCB 02S1330 03099000 AL @10,@CF03555 02S1330 03100000 TM QCBESIG-4(@10),B'00001000' 02S1330 03101000 BNO @RF01330 02S1330 03102000 * CALL SCHDESIG; /* CHECK TO SEE IF A SIGNAL IS 03103000 * REQUIRED @YM06175*/ 03104000 BAL @14,SCHDESIG 02S1331 03105000 * ELSE 02S1332 03106000 * RETCODE=TSOSEND; /* SET RETURN FOR TSO SEND 02S1332 03107000 * OPERATION @YM06175*/ 03108000 B @RC01330 02S1332 03109000 @RF01330 MVI RETCODE,X'0C' 02S1332 03110000 * END; 02S1333 03111000 * ELSE 02S1334 03112000 * 02S1334 03113000 * /***************************************************************/ 03114000 * /* */ 03115000 * /* TPUT NOBREAK PROCESS */ 03116000 * /* */ 03117000 * /***************************************************************/ 03118000 * 02S1334 03119000 * IF QCBREAD=ON THEN /* IF READ HAS PRTY */ 03120000 B @RC01322 02S1334 03121000 @RF01322 TM QCBREAD(RQCB),B'00100000' 02S1334 03122000 BNO @RF01334 02S1334 03123000 * DO; 02S1335 03124000 * QCBSNDRQ=ON; /* REQUEST SEND SCHEDULER NEXT 03125000 * PLCB REQUEST @YM06860*/ 03126000 LR @10,RQCB 02S1336 03127000 AL @10,@CF03555 02S1336 03128000 OI QCBSNDRQ-4(@10),B'00100000' 02S1336 03129000 * RETCODE=REMOVESS; /* SET RETURN TO REMOVE SEND 03130000 * SCHEDULER @YM06860*/ 03131000 MVI RETCODE,X'00' 02S1337 03132000 * END; 02S1338 03133000 * ELSE 02S1339 03134000 * IF QCBTPUT=ON THEN /* IF A TPUT REQUEST... */ 03135000 B @RC01334 02S1339 03136000 @RF01334 TM QCBTPUT(RQCB),B'00100000' 02S1339 03137000 BNO @RF01339 02S1339 03138000 * RETCODE=TSOSEND; /* SET RETURN FOR TSO SEND 02S1340 03139000 * OPERATION */ 03140000 MVI RETCODE,X'0C' 02S1340 03141000 * ELSE 02S1341 03142000 * RETCODE=REMOVESS; /* REMOVE SEND SCHED */ 03143000 B @RC01339 02S1341 03144000 @RF01339 MVI RETCODE,X'00' 02S1341 03145000 * RFY 02S1342 03146000 * RRET RSTD; 02S1342 03147000 @RC01339 DS 0H 02S1342 03148000 @RC01334 DS 0H 02S1342 03149000 @RC01322 DS 0H 02S1343 03150000 * RRET=SAVEWD02; /* RESTORE RETURN ADDRESS TO RRET*/ 03151000 L RRET,SAVEWD02 02S1343 03152000 * END TSOSND; 02S1344 03153000 @EL00026 DS 0H 02S1344 03154000 @EF00026 DS 0H 02S1344 03155000 @ER00026 BR @14 02S1344 03156000 * RFY 02S1345 03157000 * RRET UNRSTD; 02S1345 03158000 * 02S1346 03159000 * /*****************************************************************/ 03160000 * /* */ 03161000 * /* WBRESET: THIS SEGMENT CONTAINS THE WBRESET INTERNAL PROCEDURE */ 03162000 * /* WHICH DETERMINES WHETHER A RESET CONDITIONAL OR RESET */ 03163000 * /* IMMEDIATE SHOULD BE SENT. IT ALSO SETS THE INDICATOR THAT A */ 03164000 * /* WRITE BREAK IS IN PROGRESS. */ 03165000 * /* */ 03166000 * /*****************************************************************/ 03167000 * 02S1346 03168000 * RFY 02S1346 03169000 * RRET RSTD; 02S1346 03170000 *WBRESET: 02S1347 03171000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1347 03172000 WBRESET DS 0H 02S1348 03173000 * SAVEWD04=RRET; /* SAVE THE RETURN ADDRESS */ 03174000 ST RRET,SAVEWD04 02S1348 03175000 * RFY 02S1349 03176000 * RRET UNRSTD; 02S1349 03177000 * IF QCBNOBRK=OFF THEN /* IT IS A BREAK TERMINAL */ 03178000 * 02S1350 03179000 TM QCBNOBRK(RQCB),B'01000000' 02S1350 03180000 BNZ @RF01350 02S1350 03181000 * /***************************************************************/ 03182000 * /* */ 03183000 * /* PROCESS TERMINAL WITH BREAK FEATURE */ 03184000 * /* */ 03185000 * /***************************************************************/ 03186000 * 02S1351 03187000 * DO; 02S1351 03188000 * TRMWRBRK=ON; /* INDICATE WRITE BREAK IS IN 03189000 * PROGRESS */ 03190000 LA @15,TRMWRBRK(,RTRM) 02S1352 03191000 LR @14,@15 02S1352 03192000 LA @10,3 02S1352 03193000 NR @14,@10 02S1352 03194000 LCR @14,@14 02S1352 03195000 ALR @15,@14 02S1352 03196000 L @10,0(,@15) 02S1352 03197000 @GL00050 LR @05,@10 02S1352 03198000 O @05,@CB03566+3(@14) 02S1352 03199000 CS @10,@05,0(@15) 02S1352 03200000 BNE @GL00050 02S1352 03201000 * RESETYPE=IMM; /* INDICATE RESET IMMEDIATE TO BE 03202000 * SENT */ 03203000 OI RESETYPE,B'00010000' 02S1353 03204000 * END; 02S1354 03205000 * ELSE 02S1355 03206000 * 02S1355 03207000 * /***************************************************************/ 03208000 * /* */ 03209000 * /* PROCESS TERMINAL THAT DOES NOT HAVE BREAK FEATURE */ 03210000 * /* */ 03211000 * /***************************************************************/ 03212000 * 02S1355 03213000 * IF QCBDISC=ON THEN /* DISCONNECT REQUESTED? IF SO...*/ 03214000 B @RC01350 02S1355 03215000 @RF01350 TM QCBDISC(RQCB),B'00000001' 02S1355 03216000 BNO @RF01355 02S1355 03217000 * RESETYPE=IMM; /* INDICATE RESET IMMEDIATE TO BE 03218000 * SENT */ 03219000 OI RESETYPE,B'00010000' 02S1356 03220000 * ELSE 02S1357 03221000 * RESETYPE=COND; /* INDICATE RESET CONDITIONAL TO 03222000 * BE SENT */ 03223000 B @RC01355 02S1357 03224000 @RF01355 NI RESETYPE,B'11101111' 02S1357 03225000 * CALL GETBFR; /* GET A BUFFER @YM06127*/ 03226000 @RC01355 DS 0H 02S1358 03227000 @RC01350 BAL @14,GETBFR 02S1358 03228000 * IF BUFAV=ON THEN /* WAS A BUFFER OBTAINED @YM06127*/ 03229000 TM BUFAV,B'00000010' 02S1359 03230000 BNO @RF01359 02S1359 03231000 * CALL BLDRESET; /* BUILD RESET AND POST IT TO 03232000 * IEDSAO */ 03233000 BAL @14,BLDRESET 02S1360 03234000 * IF BREAKPST=OFF THEN /* RESET NOT YET POSTED */ 03235000 @RF01359 TM BREAKPST,B'00001000' 02S1361 03236000 BNZ @RF01361 02S1361 03237000 * TRMWRBRK=OFF; /* INDICATE WRITE BREAK NOT IN 03238000 * PROGRESS */ 03239000 LA @15,TRMWRBRK(,RTRM) 02S1362 03240000 LR @14,@15 02S1362 03241000 LA @10,3 02S1362 03242000 NR @14,@10 02S1362 03243000 LCR @14,@14 02S1362 03244000 ALR @15,@14 02S1362 03245000 L @10,0(,@15) 02S1362 03246000 @GL00051 LR @05,@10 02S1362 03247000 N @05,@CB03579+3(@14) 02S1362 03248000 CS @10,@05,0(@15) 02S1362 03249000 BNE @GL00051 02S1362 03250000 * ELSE /* @YM06861*/ 03251000 * TRMWTNEG=OFF; /* INDICATE NO LONGER WAITING FOR 03252000 * NEGATIVE POLL LIMIT FROM 02S1363 03253000 * POLLED TERMINALS @YM06861*/ 03254000 B @RC01361 02S1363 03255000 @RF01361 NI TRMWTNEG(RTRM),B'01111111' 02S1363 03256000 * RFY 02S1364 03257000 * RRET RSTD; 02S1364 03258000 @RC01361 DS 0H 02S1365 03259000 * RRET=SAVEWD04; /* RESTORE RETURN ADDRESS TO RRET*/ 03260000 L RRET,SAVEWD04 02S1365 03261000 * END WBRESET; 02S1366 03262000 @EL00027 DS 0H 02S1366 03263000 @EF00027 DS 0H 02S1366 03264000 @ER00027 BR @14 02S1366 03265000 * RFY 02S1367 03266000 * RRET UNRSTD; 02S1367 03267000 * 02S1368 03268000 * /*****************************************************************/ 03269000 * /* */ 03270000 * /* WRESET: THIS SEGMENT CONTAINS THE WRESET INTERNAL PROCEDURE */ 03271000 * /* WHICH DETERMINES WHETHER THE TERMINAL HAS THE BREAK FEATURE */ 03272000 * /* AND IF SO, PROCESSES THE TPUT BREAK BY USING TWO INTERNAL */ 03273000 * /* PROCEDURES GETBFR (TO OBTAIN OR REQUEST A BUFFER) AND BLDRESET*/ 03274000 * /* (TO BUILD A RESET CONDITIONAL) UNLESS IT IS A POLLED TERMINAL */ 03275000 * /* IN WHICH CASE AN INDICATOR IS SET TO SHOW THAT NEGATIVE POLL */ 03276000 * /* LIMIT IS BEING AWAITED. */ 03277000 * /* */ 03278000 * /*****************************************************************/ 03279000 * 02S1368 03280000 * RFY 02S1368 03281000 * RRET RSTD; 02S1368 03282000 *WRESET: 02S1369 03283000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1369 03284000 WRESET DS 0H 02S1370 03285000 * SAVEWD04=RRET; 02S1370 03286000 ST RRET,SAVEWD04 02S1370 03287000 * RFY 02S1371 03288000 * RRET UNRSTD; 02S1371 03289000 * IF QCBNOBRK=OFF THEN /* TERMINAL HAS BREAK FEATURE */ 03290000 * 02S1372 03291000 TM QCBNOBRK(RQCB),B'01000000' 02S1372 03292000 BNZ @RF01372 02S1372 03293000 * /***************************************************************/ 03294000 * /* */ 03295000 * /* PROCESS TERMINAL WITH BREAK FEATURE */ 03296000 * /* */ 03297000 * /***************************************************************/ 03298000 * 02S1373 03299000 * DO; 02S1373 03300000 * IF TRMRDOUT=ON& /* IS READ OUTSTANDING @YM06862*/ 03301000 * (DCTSTCTL=ON& /* IS THIS */ 03302000 * TRMDIAL=OFF) THEN /* A POLLED TERMINAL */ 03303000 TM TRMRDOUT(RTRM),B'00000010' 02S1374 03304000 BNO @RF01374 02S1374 03305000 L @10,DCTPTR 02S1374 03306000 TM DCTSTCTL(@10),B'00010000' 02S1374 03307000 BNO @RF01374 02S1374 03308000 TM TRMDIAL(RTRM),B'00001000' 02S1374 03309000 BNZ @RF01374 02S1374 03310000 * TRMWTNEG=ON; /* INDICATE AWAITING NEG POLL 03311000 * LIMIT */ 03312000 OI TRMWTNEG(RTRM),B'10000000' 02S1375 03313000 * IF PLCBNTRY=ON THEN /* PLCB ENTRY STATE @Y17XAYP*/ 03314000 @RF01374 TM PLCBNTRY,B'10000000' 02S1376 03315000 BNO @RF01376 02S1376 03316000 * WAITINPT=ON; /* INDICATE WAITING FOR INPUT 03317000 * @Y17XAYP*/ 03318000 OI WAITINPT,B'00000100' 02S1377 03319000 * ELSE 02S1378 03320000 * DO; 02S1378 03321000 B @RC01376 02S1378 03322000 @RF01376 DS 0H 02S1379 03323000 * RESETYPE=COND; /* INDICATE RESET CONDITIONAL TO 03324000 * BE SENT */ 03325000 NI RESETYPE,B'11101111' 02S1379 03326000 * CALL GETBFR; /* REQUEST A BUFFER @YM06127*/ 03327000 BAL @14,GETBFR 02S1380 03328000 * IF BUFAV=ON THEN /* WAS A BUFFER OBTAINED @YM06127*/ 03329000 TM BUFAV,B'00000010' 02S1381 03330000 BNO @RF01381 02S1381 03331000 * CALL BLDRESET; /* BUILD RESET AND POST TO IEDSAO*/ 03332000 BAL @14,BLDRESET 02S1382 03333000 * END; 02S1383 03334000 * END; 02S1384 03335000 * ELSE /* TERMINAL HAS NOBREAK FEATURE */ 03336000 * 02S1385 03337000 * /***************************************************************/ 03338000 * /* */ 03339000 * /* PROCESS TERMINAL THAT DOES NOT HAVE BREAK FEATURE */ 03340000 * /* */ 03341000 * /***************************************************************/ 03342000 * 02S1385 03343000 * IF PLCBNTRY=ON THEN /* PLCB ENTRY STATE SET */ 03344000 B @RC01372 02S1385 03345000 @RF01372 TM PLCBNTRY,B'10000000' 02S1385 03346000 BNO @RF01385 02S1385 03347000 * DO; 02S1386 03348000 * RFY 02S1387 03349000 * REG03 RSTD; /* @Y17XAYP*/ 03350000 * REG03=RQCB; /* QCB IN REG 3 */ 03351000 LR REG03,RQCB 02S1388 03352000 * RQCB=RLCB; /* PLCB IN REG 7 */ 03353000 LR RQCB,RLCB 02S1389 03354000 * CALL DSPUNAVR; /* MOVE SEND SCHED TO QCB */ 03355000 LA @15,DSPUNAVR(,RDISP) 02S1390 03356000 BALR @14,@15 02S1390 03357000 * RQCB=TRMDESTQ; /* RESTORE QCB ADDRESS */ 03358000 SLR RQCB,RQCB 02S1391 03359000 ICM RQCB,7,TRMDESTQ(RTRM) 02S1391 03360000 * RLCB=QCBPLCBA; /* RESTORE PLCB ADDRESS */ 03361000 LR @10,RQCB 02S1392 03362000 AL @10,@CF03583 02S1392 03363000 SLR RLCB,RLCB 02S1392 03364000 ICM RLCB,7,QCBPLCBA-5(@10) 02S1392 03365000 * RPARM=RLCB; /* SET UP R1 FOR CALL TO */ 03366000 LR RPARM,RLCB 02S1393 03367000 * CALL IEDIAP07; /* FREE THE PLCB */ 03368000 L @10,AVTSAVTP(,RAVT) 02S1394 03369000 L @15,SAVTPRTN(,@10) 02S1394 03370000 BALR @14,@15 02S1394 03371000 * END; 02S1395 03372000 * WAITINPT=ON; /* INDICATE WAIT FOR INPUT TO 03373000 * FINISH @YM06863*/ 03374000 @RF01385 DS 0H 02S1396 03375000 @RC01372 OI WAITINPT,B'00000100' 02S1396 03376000 * RFY 02S1397 03377000 * RRET RSTD; /* @Y17XAYO*/ 03378000 * RRET=SAVEWD04; /* RESTORE RETURN ADDRESS TO RRET*/ 03379000 L RRET,SAVEWD04 02S1398 03380000 * END WRESET; 02S1399 03381000 @EL00028 DS 0H 02S1399 03382000 @EF00028 DS 0H 02S1399 03383000 @ER00028 BR @14 02S1399 03384000 * RFY 02S1400 03385000 * RRET UNRSTD; 02S1400 03386000 * END IEDAYJ 01S1401 03387000 * 01S1401 03388000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 03389000 */*%INCLUDE SYSLIB (TAVTD ) */ 03390000 */*%INCLUDE SYSLIB (TBDUD ) */ 03391000 */*%INCLUDE SYSLIB (TCD0D ) */ 03392000 */*%INCLUDE SYSLIB (TDCTD ) */ 03393000 */*%INCLUDE SYSLIB (TDISPD ) */ 03394000 */*%INCLUDE SYSLIB (TLCBD ) */ 03395000 */*%INCLUDE SYSLIB (TLGBD ) */ 03396000 */*%INCLUDE SYSLIB (TPIU0D ) */ 03397000 */*%INCLUDE SYSLIB (TPIUD ) */ 03398000 */*%INCLUDE SYSLIB (TPRFD ) */ 03399000 */*%INCLUDE SYSLIB (TPRIOR ) */ 03400000 */*%INCLUDE SYSLIB (TQCBD ) */ 03401000 */*%INCLUDE SYSLIB (TREQD ) */ 03402000 */*%INCLUDE SYSLIB (TRHD ) */ 03403000 */*%INCLUDE SYSLIB (TSCBD ) */ 03404000 */*%INCLUDE SYSLIB (TSIBD ) */ 03405000 */*%INCLUDE SYSLIB (TSTCBD ) */ 03406000 */*%INCLUDE SYSLIB (TSTMHD ) */ 03407000 */*%INCLUDE SYSLIB (TTCXD ) */ 03408000 */*%INCLUDE SYSLIB (TTHD ) */ 03409000 */*%INCLUDE SYSLIB (TTRMD ) */ 03410000 */*%INCLUDE SYSLIB (TTSID ) */ 03411000 */*%INCLUDE SYSLIB (TTSWD ) */ 03412000 */*%INCLUDE SYSLIB (IKJTSB ) */ 03413000 */*%INCLUDE SYSLIB (IHAASCB ) */ 03414000 */*%INCLUDE SYSLIB (IHAASVT ) */ 03415000 */*%INCLUDE SYSLIB (CVT ) */ 03416000 */*%INCLUDE SYSUT5 (RFY ) */ 03417000 */*%INCLUDE SYSUT5 (DCL ) */ 03418000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 03419000 */*%INCLUDE SYSUT5 (PROCESS ) */ 03420000 */*%INCLUDE SYSUT5 (INITIAL ) */ 03421000 */*%INCLUDE SYSUT5 (IEDA01 ) */ 03422000 */*%INCLUDE SYSUT5 (IEDA02 ) */ 03423000 */*%INCLUDE SYSUT5 (IEDA03 ) */ 03424000 */*%INCLUDE SYSUT5 (EPILOGUE) */ 03425000 */*%INCLUDE SYSUT5 (ATTNPROC) */ 03426000 */*%INCLUDE SYSUT5 (BLDRESET) */ 03427000 */*%INCLUDE SYSUT5 (BLDSMI ) */ 03428000 */*%INCLUDE SYSUT5 (BLDWRBFR) */ 03429000 */*%INCLUDE SYSUT5 (CKENDSES) */ 03430000 */*%INCLUDE SYSUT5 (CHKESIG ) */ 03431000 */*%INCLUDE SYSUT5 (CHKRESET) */ 03432000 */*%INCLUDE SYSUT5 (CKSNASMI) */ 03433000 */*%INCLUDE SYSUT5 (ENDBRKT ) */ 03434000 */*%INCLUDE SYSUT5 (ENDTSSES) */ 03435000 */*%INCLUDE SYSUT5 (ERBBFRRQ) */ 03436000 */*%INCLUDE SYSUT5 (GETBFR ) */ 03437000 */*%INCLUDE SYSUT5 (IPPROC ) */ 03438000 */*%INCLUDE SYSUT5 (LCBPROC ) */ 03439000 */*%INCLUDE SYSUT5 (PIUCOND ) */ 03440000 */*%INCLUDE SYSUT5 (PIU1COND) */ 03441000 */*%INCLUDE SYSUT5 (READRTN ) */ 03442000 */*%INCLUDE SYSUT5 (REQPLCB ) */ 03443000 */*%INCLUDE SYSUT5 (SAPRMPT ) */ 03444000 */*%INCLUDE SYSUT5 (SCHDESIG) */ 03445000 */*%INCLUDE SYSUT5 (SIMATTN ) */ 03446000 */*%INCLUDE SYSUT5 (SMIRTN ) */ 03447000 */*%INCLUDE SYSUT5 (SNDESIG ) */ 03448000 */*%INCLUDE SYSUT5 (TCAMSND ) */ 03449000 */*%INCLUDE SYSUT5 (TSOSND ) */ 03450000 */*%INCLUDE SYSUT5 (WBRESET ) */ 03451000 */*%INCLUDE SYSUT5 (WRESET ) */ 03452000 * 01S1401 03453000 * ; 01S1401 03454000 @DATA DS 0H 03455000 @CH00060 DC H'1' 03456000 @CH00073 DC H'3' 03457000 @CH00044 DC H'8' 03458000 @CH01239 DC H'10' 03459000 @CH00576 DC H'13' 03460000 @CH02008 DC H'14' 03461000 DS 0F 03462000 DS 0F 03463000 @CF03571 DC F'-8' 03464000 @CF03555 DC F'-4' 03465000 @CF03583 DC F'-3' 03466000 DS 0D 03467000 DCTPTR DS A 03468000 ZERO DC XL4'00000000' 03469000 @CB03566 DC B'000000000000000000000000000000010000000000000000000000C03470000 00' 03471000 @CB03574 DC B'000000000000000000000000000001000000000000000000000000C03472000 00' 03473000 @CB03579 DC B'111111111111111111111111111111101111111111111111111111C03474000 11' 03475000 SIGNAL DC X'C900010000' 03476000 SMIDATA DC X'27F1C3' 03477000 SNASMI DC X'F1C3' 03478000 SNANULL DC X'F1' 03479000 RETCODE DS BL1 03480000 INSTATES DS CL1 03481000 ORG INSTATES 03482000 PLCBNTRY DS BL1 03483000 SSREQD EQU INSTATES+0 03484000 RSREQD EQU INSTATES+0 03485000 RESETYPE EQU INSTATES+0 03486000 BREAKPST EQU INSTATES+0 03487000 WAITINPT EQU INSTATES+0 03488000 BUFAV EQU INSTATES+0 03489000 ENDSESSN EQU INSTATES+0 03490000 ORG INSTATES+1 03491000 DS CL2 03492000 SAVEWRDS DS CL36 03493000 ORG SAVEWRDS 03494000 SAVEWD01 DS AL4 03495000 SAVEWD02 DS AL4 03496000 SAVEWD03 DS AL4 03497000 SAVEWD04 DS AL4 03498000 SAVEWD05 DS AL4 03499000 SAVEWD06 DS AL4 03500000 SAVEWD07 DS AL4 03501000 SAVEWD08 DS AL4 03502000 SAVEWD09 DS AL4 03503000 ORG SAVEWRDS+36 03504000 SATDEFLT DS CL12 03505000 ORG SATDEFLT 03506000 HEXCMD1 DC X'000C800000000000' 03507000 ADRDEFLT DC AL4(DEFLT) 03508000 ORG SATDEFLT+12 03509000 DEFLT DS CL8 03510000 ORG DEFLT 03511000 LEN1 DC X'07' 03512000 RATTLE1 DC X'17063606360617' 03513000 ORG DEFLT+8 03514000 SATR3270 DS CL12 03515000 ORG SATR3270 03516000 HEXCMD2 DC X'000C800000000000' 03517000 ADRR3270 DC AL4(R3270) 03518000 ORG SATR3270+12 03519000 R3270 DS CL4 03520000 ORG R3270 03521000 LEN2 DC X'03' 03522000 SPLATS DC CL3'***' 03523000 ORG R3270+4 03524000 SATTWX DS CL12 03525000 ORG SATTWX 03526000 HEXCMD3 DC X'000C800000000000' 03527000 ADRTWX DC AL4(TWX) 03528000 ORG SATTWX+12 03529000 TWX DS CL9 03530000 ORG TWX 03531000 LEN3 DC X'08' 03532000 RATTLE2 DC X'3C113C113C113C11' 03533000 ORG TWX+9 03534000 DS CL3 03535000 SNADEFLT DS CL12 03536000 ORG SNADEFLT 03537000 HEXCMD4 DC X'000C800000000000' 03538000 ADRRSNA DC AL4(SNAPRMPT) 03539000 ORG SNADEFLT+12 03540000 SNAPRMPT DS CL4 03541000 ORG SNAPRMPT 03542000 LEN4 DC X'03' 03543000 PRMPT DC CL3'***' 03544000 ORG SNAPRMPT+4 03545000 RHVALUES DS CL3 03546000 ORG RHVALUES 03547000 RHBYTE0 DC X'0B' 03548000 RHBYTE1 DC X'80' 03549000 RHBYTE2 DC X'00' 03550000 ORG RHVALUES+3 03551000 THVALUES DS CL10 03552000 ORG THVALUES 03553000 THBYTE0 DC X'0C' 03554000 THBYTE1 DC X'00' 03555000 THDAF DC XL2'0000' 03556000 THOAF DS FL2 03557000 THTAG DS CL2 03558000 ORG THTAG 03559000 THTAG1 DC X'00' 03560000 THTAG2 DC X'00' 03561000 ORG THVALUES+8 03562000 THDCF DC XL2'0000' 03563000 ORG THVALUES+10 03564000 DS CL3 03565000 CP0001@ DC AL4(IEDA01) 03566000 DC AL4(IEDA02) 03567000 DC AL4(IEDA03) 03568000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 03569000 @01 EQU 01 03570000 @02 EQU 02 03571000 @03 EQU 03 03572000 @04 EQU 04 03573000 @05 EQU 05 03574000 @06 EQU 06 03575000 @07 EQU 07 03576000 @08 EQU 08 03577000 @09 EQU 09 03578000 @10 EQU 10 03579000 @11 EQU 11 03580000 @12 EQU 12 03581000 @13 EQU 13 03582000 @14 EQU 14 03583000 @15 EQU 15 03584000 IEDQAPTR EQU @13 03585000 RDISP EQU @11 03586000 IEDQLPTR EQU @04 03587000 LCBXPTR EQU @05 03588000 IEDQPPTR EQU @01 03589000 IEDQQPTR EQU @07 03590000 IEDQSPTR EQU @03 03591000 RTRM EQU @08 03592000 RSMH EQU @02 03593000 RAVT EQU @13 03594000 RLCB EQU @04 03595000 RPRF EQU @06 03596000 RQCB EQU @07 03597000 RASCB EQU @02 03598000 RTSB EQU @09 03599000 RCASE EQU @00 03600000 RZERO EQU @00 03601000 RPARM EQU @01 03602000 REG03 EQU @03 03603000 RSCB EQU @03 03604000 REG08 EQU @08 03605000 RBASE2 EQU @09 03606000 REG10 EQU @10 03607000 RBASE1 EQU @12 03608000 RRET EQU @14 03609000 RLINK EQU @15 03610000 CVTPTR EQU 16 03611000 IEDQAVTD EQU 0 03612000 AVTSAVE4 EQU IEDQAVTD+144 03613000 AVTSAVEX EQU IEDQAVTD+216 03614000 AVTCSTCS EQU IEDQAVTD+256 03615000 AVTREADD EQU IEDQAVTD+308 03616000 AVTBUFSW EQU IEDQAVTD+312 03617000 @NM00004 EQU IEDQAVTD+316 03618000 AVTCKFLG EQU @NM00004 03619000 AVTBASE EQU IEDQAVTD+340 03620000 AVTPKF EQU AVTBASE 03621000 AVTRNMPT EQU IEDQAVTD+352 03622000 AVTOSECB EQU IEDQAVTD+420 03623000 AVTECB1 EQU AVTOSECB 03624000 AVTHG02 EQU IEDQAVTD+456 03625000 AVTDISP EQU IEDQAVTD+480 03626000 AVTHD EQU IEDQAVTD+484 03627000 AVTSCOPT EQU AVTHD 03628000 AVTSAVTP EQU IEDQAVTD+540 03629000 AVTSAVTF EQU AVTSAVTP 03630000 AVTCKPEL EQU IEDQAVTD+580 03631000 AVTCKRMV EQU AVTCKPEL 03632000 AVTCKELF EQU IEDQAVTD+608 03633000 AVTCKBYT EQU IEDQAVTD+619 03634000 AVTHG01 EQU IEDQAVTD+620 03635000 AVTCKLNK EQU IEDQAVTD+624 03636000 AVTCRELE EQU IEDQAVTD+636 03637000 AVTCCELE EQU AVTCRELE 03638000 AVTCLRHI EQU IEDQAVTD+644 03639000 AVTADBUF EQU IEDQAVTD+648 03640000 AVTSYSER EQU IEDQAVTD+656 03641000 AVTTSOPT EQU IEDQAVTD+668 03642000 AVTINOUT EQU IEDQAVTD+694 03643000 AVTBFREB EQU IEDQAVTD+708 03644000 AVTBFRFG EQU IEDQAVTD+712 03645000 AVTCKPQB EQU IEDQAVTD+732 03646000 AVTCKPTB EQU AVTCKPQB 03647000 AVTCKPEC EQU AVTCKPQB+4 03648000 AVTCKPCC EQU AVTCKPEC 03649000 AVTOPCQB EQU IEDQAVTD+744 03650000 AVTOPCOB EQU AVTOPCQB 03651000 AVTOPCEC EQU AVTOPCQB+4 03652000 AVTOPCCC EQU AVTOPCEC 03653000 AVTOLTQB EQU IEDQAVTD+756 03654000 AVTCWFL1 EQU IEDQAVTD+852 03655000 AVTCWFL2 EQU IEDQAVTD+853 03656000 AVTSUBT EQU IEDQAVTD+876 03657000 AVTIOTR EQU IEDQAVTD+877 03658000 AVTBIT1 EQU IEDQAVTD+978 03659000 AVTCLOSN EQU AVTBIT1 03660000 AVTQUCKN EQU AVTBIT1 03661000 AVTBIT2 EQU IEDQAVTD+979 03662000 AVTBIT3 EQU IEDQAVTD+980 03663000 AVTSTEAL EQU IEDQAVTD+988 03664000 AVTDCTLN EQU IEDQAVTD+1000 03665000 AVTBIT4 EQU IEDQAVTD+1064 03666000 @NM00086 EQU IEDQAVTD+1160 03667000 IEDNSVTD EQU 0 03668000 SAVTDIAG EQU IEDNSVTD 03669000 SAVTDIAF EQU SAVTDIAG 03670000 SAVTPREQ EQU IEDNSVTD+16 03671000 SAVTPRTN EQU IEDNSVTD+32 03672000 SAVTLUSQ EQU IEDNSVTD+88 03673000 SAVTSAO EQU IEDNSVTD+196 03674000 SAVTDFCO EQU IEDNSVTD+200 03675000 SAVTTCPU EQU IEDNSVTD+238 03676000 SAVTZELM EQU IEDNSVTD+270 03677000 SAVTRDRV EQU IEDNSVTD+284 03678000 SAVTCKQB EQU IEDNSVTD+300 03679000 SAVTCKTB EQU SAVTCKQB 03680000 SAVTCKEC EQU SAVTCKQB+4 03681000 SAVTCKCC EQU SAVTCKEC 03682000 IEDBDU EQU 0 03683000 BDUCMND EQU IEDBDU 03684000 BDUMODIF EQU IEDBDU+1 03685000 BDUFNFLG EQU IEDBDU+2 03686000 BDUBDUFG EQU IEDBDU+3 03687000 BDURSP EQU IEDBDU+4 03688000 BDUSYRSP EQU BDURSP 03689000 BDUEXRSP EQU BDURSP+1 03690000 BDUEND EQU IEDBDU+6 03691000 IEDDCT EQU 0 03692000 DCTBYTE1 EQU IEDDCT+1 03693000 DCT3270 EQU DCTBYTE1 03694000 DCTBYTE2 EQU IEDDCT+2 03695000 DCTTWX EQU DCTBYTE2 03696000 DCTSTCTL EQU DCTBYTE2 03697000 DCTBYTE3 EQU IEDDCT+3 03698000 DCTBYTE4 EQU IEDDCT+4 03699000 DCTBYTE5 EQU IEDDCT+5 03700000 IEDQDISP EQU 0 03701000 DSPPOSTR EQU 28 03702000 DSPUNAVR EQU 44 03703000 IEDQLCB EQU 0 03704000 LCBRCB EQU IEDQLCB 03705000 LCBQCBA EQU LCBRCB+1 03706000 LCBPRI EQU LCBRCB+4 03707000 LCBSTCBA EQU IEDQLCB+9 03708000 LCBTSOB EQU IEDQLCB+19 03709000 LCBTSBUF EQU LCBTSOB 03710000 LCBCHAIN EQU IEDQLCB+20 03711000 LCBSCRNN EQU LCBCHAIN 03712000 LCBTETEN EQU LCBCHAIN 03713000 LCBCTLMD EQU LCBTETEN 03714000 LCBINSRC EQU IEDQLCB+21 03715000 LCBLKMDE EQU LCBINSRC+2 03716000 LCBNTXT EQU IEDQLCB+24 03717000 LCBSTAT4 EQU LCBNTXT 03718000 LCBPHASE EQU LCBSTAT4 03719000 LCBSCBDA EQU IEDQLCB+25 03720000 LCBMHA EQU IEDQLCB+29 03721000 LCBFLAG1 EQU IEDQLCB+32 03722000 LCBIOBSN EQU IEDQLCB+33 03723000 LCBSNS EQU LCBIOBSN+1 03724000 LCBSENS0 EQU LCBSNS 03725000 LCBLOSDT EQU LCBSENS0 03726000 LCBTMOUT EQU LCBSENS0 03727000 LCBFLAG3 EQU LCBIOBSN+7 03728000 LCBCSW EQU LCBIOBSN+8 03729000 LCBCSWST EQU LCBCSW+3 03730000 LCBCSWUS EQU LCBCSWST 03731000 LCBCSWCS EQU LCBCSWST+1 03732000 LCBSIOCC EQU LCBIOBSN+15 03733000 LCBDCBPT EQU IEDQLCB+52 03734000 LCBRCQCB EQU IEDQLCB+56 03735000 LCBRESTR EQU LCBRCQCB 03736000 LCBTHSQ EQU IEDQLCB+60 03737000 LCBINCAM EQU LCBTHSQ 03738000 LCBERRCT EQU IEDQLCB+62 03739000 LCBLSPCI EQU IEDQLCB+65 03740000 LCBRCBFR EQU LCBLSPCI 03741000 LCBSTATE EQU IEDQLCB+70 03742000 LCBSTAT1 EQU LCBSTATE 03743000 LCBRCLLN EQU LCBSTAT1 03744000 LCBINITN EQU LCBSTAT1 03745000 LCBCONT EQU LCBSTAT1 03746000 LCBFREEN EQU LCBSTAT1 03747000 LCBRECVN EQU LCBSTAT1 03748000 LCBSENDN EQU LCBSTAT1 03749000 LCBSTAT2 EQU LCBSTATE+1 03750000 LCBMSGNN EQU LCBSTAT2 03751000 LCBBEOTN EQU LCBSTAT2 03752000 LCBNEGRP EQU LCBSTAT2 03753000 LCBSYNC EQU LCBSTAT2 03754000 LCBDIAL EQU LCBSTAT2 03755000 LCBTSTSW EQU IEDQLCB+72 03756000 LCBERB EQU IEDQLCB+76 03757000 LCBERBQB EQU LCBERB+1 03758000 LCBERBPY EQU IEDQLCB+80 03759000 LCBERBST EQU IEDQLCB+84 03760000 LCBPRCPG EQU LCBERBST 03761000 LCBDLNKN EQU LCBERBST 03762000 LCBERBCH EQU IEDQLCB+85 03763000 LCBERBCT EQU IEDQLCB+88 03764000 LCBRBCT1 EQU LCBERBCT 03765000 LCBRBCT2 EQU LCBERBCT+1 03766000 LCBTTCIN EQU IEDQLCB+90 03767000 LCBMSGFM EQU IEDQLCB+92 03768000 LCBSCBA EQU IEDQLCB+93 03769000 LCBOBRCH EQU IEDQLCB+96 03770000 LCBINVPT EQU LCBOBRCH+1 03771000 LCBBFRW EQU LCBINVPT 03772000 LCBTPCD EQU IEDQLCB+100 03773000 LCBSTAT5 EQU LCBTPCD 03774000 LCBSTAT6 EQU LCBTPCD+4 03775000 LCBRSPSV EQU LCBTPCD+8 03776000 LCBSAVSN EQU IEDQLCB+112 03777000 LCBERCCW EQU IEDQLCB+120 03778000 LCBCPA EQU IEDQLCB+144 03779000 LCBCCW5 EQU LCBCPA+32 03780000 LCBATTEL EQU LCBCCW5 03781000 LCBQEBPL EQU LCBATTEL 03782000 IEDQLCBX EQU 0 03783000 LCBXCON EQU IEDQLCBX 03784000 LCBXFLAG EQU LCBXCON 03785000 LCBXDCT EQU LCBXCON+1 03786000 LCBXRADR EQU LCBXCON+4 03787000 IEDNLGB EQU 0 03788000 LGBBUFOU EQU IEDNLGB+20 03789000 LGBPCI EQU IEDNLGB+25 03790000 LGBBYTE EQU IEDNLGB+29 03791000 LGBOFLGS EQU IEDNLGB+48 03792000 LGBRESER EQU IEDNLGB+56 03793000 IEDNLPTR EQU 0 03794000 IEDPIU0 EQU 0 03795000 PIU0TH EQU IEDPIU0 03796000 PIU0RH EQU IEDPIU0+10 03797000 PIU0PAD EQU IEDPIU0+13 03798000 PIU0RU EQU IEDPIU0+14 03799000 IEDPIU EQU 0 03800000 PIUTH EQU IEDPIU 03801000 PIURH EQU IEDPIU+10 03802000 PIURU EQU IEDPIU+13 03803000 IEDQPRF EQU 0 03804000 PRFRCB EQU IEDQPRF 03805000 PRFKEY EQU PRFRCB 03806000 PRFQCBA EQU PRFRCB+1 03807000 PRFPRI EQU PRFRCB+4 03808000 PRFLINK EQU PRFRCB+5 03809000 PRFTIC EQU IEDQPRF+8 03810000 PRFTICC EQU PRFTIC 03811000 PRFNBUNT EQU IEDQPRF+12 03812000 PRFSUNIT EQU PRFNBUNT 03813000 PRFPLQCB EQU PRFSUNIT 03814000 PRFPIUO EQU PRFPLQCB 03815000 @NM00171 EQU IEDQPRF+16 03816000 PRFSVFFO EQU @NM00171 03817000 PRFSTAT1 EQU IEDQPRF+20 03818000 PRFEOFN EQU PRFSTAT1 03819000 PRFCORE EQU IEDQPRF+21 03820000 PRFXTRA EQU PRFCORE 03821000 PRFSCAN EQU IEDQPRF+24 03822000 PRFTQBCK EQU IEDQPRF+26 03823000 PRFNTXT EQU PRFTQBCK 03824000 PRFEOBOF EQU PRFNTXT 03825000 PRFCHDR EQU IEDQPRF+32 03826000 PRFHQBCK EQU IEDQPRF+35 03827000 IEDPF1 EQU 0 03828000 PRF1FLG1 EQU IEDPF1+3 03829000 PRF1WD2 EQU IEDPF1+4 03830000 PRF1SEQP EQU PRF1WD2 03831000 PRF1SQID EQU PRF1SEQP 03832000 PRF1TAG1 EQU PRF1SQID 03833000 IEDPF2 EQU 0 03834000 PRF2FLG2 EQU IEDPF2 03835000 PRF2TNTI EQU PRF2FLG2 03836000 PRF2SMI EQU PRF2FLG2 03837000 PRF2WD2 EQU IEDPF2+4 03838000 IEDQQCB EQU 0 03839000 QCBDSFLG EQU IEDQQCB 03840000 QCBCORE EQU QCBDSFLG 03841000 QCBDISK EQU QCBDSFLG 03842000 QCBNREUS EQU QCBDISK 03843000 QCBREUS EQU QCBDISK 03844000 QCBALTMH EQU QCBDSFLG 03845000 QCBELCHN EQU IEDQQCB+1 03846000 QCBPRI EQU IEDQQCB+4 03847000 QCBLINK EQU IEDQQCB+5 03848000 QCBEOLDT EQU IEDQQCB+16 03849000 QCBBYTE1 EQU QCBEOLDT+1 03850000 QCBLKRLN EQU IEDQQCB+18 03851000 QCBRETCT EQU QCBLKRLN 03852000 QCBSTAT EQU IEDQQCB+19 03853000 QCBINSRC EQU IEDQQCB+21 03854000 @NM00181 EQU QCBINSRC 03855000 QCBSATCT EQU @NM00181 03856000 QCBTSOF2 EQU @NM00181+1 03857000 QCBINHBN EQU QCBTSOF2 03858000 QCBPOSTO EQU QCBTSOF2 03859000 QCBDSSMI EQU QCBTSOF2 03860000 QCBSIMRD EQU QCBTSOF2 03861000 QCBSATTI EQU QCBTSOF2 03862000 QCBTSOF1 EQU @NM00181+2 03863000 QCBWRBRK EQU QCBTSOF1 03864000 QCBTGET EQU QCBTSOF1 03865000 QCBTPUT EQU QCBTSOF1 03866000 QCBNOBUF EQU QCBTSOF1 03867000 QCBSATRD EQU QCBTSOF1 03868000 QCBPARTO EQU QCBTSOF1 03869000 QCBDELAY EQU QCBTSOF1 03870000 QCBDISC EQU QCBTSOF1 03871000 QCBINTVL EQU IEDQQCB+24 03872000 QCBPREN EQU IEDQQCB+28 03873000 QCBLKRRN EQU QCBPREN+1 03874000 QCBCARCT EQU QCBLKRRN 03875000 QCBTJID EQU QCBLKRRN+1 03876000 QCBDCBAD EQU IEDQQCB+33 03877000 QCBFLAG EQU IEDQQCB+36 03878000 QCBTSSES EQU QCBFLAG 03879000 QCBNOBRK EQU QCBFLAG 03880000 QCBREAD EQU QCBFLAG 03881000 IEDQPQCB EQU 0 03882000 QCBFHDLZ EQU IEDQPQCB+3 03883000 QCBPFEFO EQU QCBFHDLZ+1 03884000 QCBFHDTZ EQU IEDQPQCB+6 03885000 QCBINTLF EQU IEDQPQCB+12 03886000 IEDNQCB EQU 0 03887000 QCBSTAT1 EQU IEDNQCB+4 03888000 QCBPLCBN EQU QCBSTAT1 03889000 QCBWAITC EQU QCBSTAT1 03890000 QCBSNDRQ EQU QCBSTAT1 03891000 QCBRCVRQ EQU QCBSTAT1 03892000 QCBESIG EQU QCBSTAT1 03893000 QCBFLUSH EQU QCBSTAT1 03894000 QCBPLCBA EQU IEDNQCB+5 03895000 QCBTTCIN EQU QCBPLCBA+1 03896000 IEDREQD EQU 0 03897000 REQROUTE EQU IEDREQD+12 03898000 REQRCDS EQU IEDREQD+14 03899000 REQDATA EQU IEDREQD+16 03900000 IEDRH EQU 0 03901000 TRHBYTE0 EQU IEDRH 03902000 TRHTYPE EQU TRHBYTE0 03903000 TRHRUCAT EQU TRHBYTE0 03904000 TRHBC EQU TRHBYTE0 03905000 TRHEC EQU TRHBYTE0 03906000 TRHBYTE1 EQU IEDRH+1 03907000 TRHDR1 EQU TRHBYTE1 03908000 TRHBYTE2 EQU IEDRH+2 03909000 TRHBB EQU TRHBYTE2 03910000 TRHEB EQU TRHBYTE2 03911000 TRHCDI EQU TRHBYTE2 03912000 IEDQSCB EQU 0 03913000 SCBSTATE EQU IEDQSCB 03914000 SCBSEQIN EQU SCBSTATE 03915000 SCBRCVCT EQU IEDQSCB+4 03916000 SCBMBHEN EQU IEDQSCB+5 03917000 SCBMACR EQU SCBMBHEN 03918000 SCBBKFCT EQU IEDQSCB+9 03919000 SCBEOBSZ EQU SCBBKFCT+1 03920000 SCBSALEV EQU IEDQSCB+12 03921000 SCBQTYPE EQU SCBSALEV 03922000 SCBERRST EQU IEDQSCB+16 03923000 SCBERR1 EQU SCBERRST 03924000 SCBHDRRN EQU SCBERR1 03925000 SCBORIGN EQU SCBERR1 03926000 SCBNOTRM EQU SCBERR1 03927000 SCBSEQHN EQU SCBERR1 03928000 SCBSEQLN EQU SCBERR1 03929000 SCBCUTFN EQU SCBERR1 03930000 SCBERR2 EQU SCBERRST+1 03931000 SCBABRTN EQU SCBERR2 03932000 SCBERR3 EQU SCBERRST+2 03933000 SCBLOSTN EQU SCBERR3 03934000 SCBTMIDN EQU SCBERR3 03935000 SCBFORMN EQU SCBERR3 03936000 SCBATTN EQU SCBERR3 03937000 SCBXCEPN EQU SCBERR3 03938000 SCBERR4 EQU SCBERRST+3 03939000 SCBTXTTN EQU SCBERR4 03940000 SCBCTLUN EQU SCBERR4 03941000 SCBCHANN EQU SCBERR4 03942000 SCBDLPTR EQU IEDQSCB+22 03943000 SCBEOBAC EQU SCBDLPTR 03944000 SCBCTBAC EQU SCBEOBAC 03945000 SCBBSCFM EQU IEDQSCB+24 03946000 SCBDATEN EQU SCBBSCFM 03947000 SCBITBSZ EQU IEDQSCB+40 03948000 SCBCTBSV EQU SCBITBSZ 03949000 SCBDNSEG EQU IEDQSCB+41 03950000 SCBCLSEG EQU IEDQSCB+45 03951000 SCBITBAC EQU IEDQSCB+48 03952000 SCBCTBFL EQU SCBITBAC 03953000 SCBBLKCT EQU SCBCTBFL 03954000 SCBDCSEG EQU IEDQSCB+49 03955000 SCBSTAT1 EQU IEDQSCB+60 03956000 SCBCORE EQU IEDQSCB+61 03957000 SCBSCAN EQU IEDQSCB+64 03958000 SCBNTXT EQU IEDQSCB+66 03959000 SCBCHDR EQU IEDQSCB+72 03960000 SCBCCSEG EQU IEDQSCB+75 03961000 SCBEND EQU IEDQSCB+84 03962000 IEDSIBD EQU 0 03963000 SIBINDEX EQU IEDSIBD+8 03964000 SIBSESSN EQU IEDSIBD+10 03965000 SIBLGOFF EQU SIBSESSN 03966000 SIBPACIN EQU IEDSIBD+11 03967000 SIBSEQN EQU IEDSIBD+12 03968000 SIBSTAT1 EQU IEDSIBD+16 03969000 SIBBSTAT EQU SIBSTAT1 03970000 SIBSTAT2 EQU IEDSIBD+17 03971000 SIBBIND EQU IEDSIBD+20 03972000 SIBBIND1 EQU SIBBIND 03973000 SIBBIND2 EQU SIBBIND+1 03974000 SIBBIND3 EQU SIBBIND+2 03975000 SIBFMODE EQU SIBBIND3 03976000 SIBSTAT0 EQU IEDSIBD+23 03977000 SIBCD EQU SIBSTAT0 03978000 SIBLUTYP EQU SIBSTAT0 03979000 IEDQSTCB EQU 0 03980000 STCBVTO EQU IEDQSTCB 03981000 IEDSTMH EQU 0 03982000 STMHALT EQU IEDSTMH 03983000 STMHFLG2 EQU IEDSTMH+4 03984000 STMHTSFG EQU STMHFLG2 03985000 STMHAEIX EQU IEDSTMH+12 03986000 STMHLMOP EQU IEDSTMH+17 03987000 IEDQTCXD EQU 0 03988000 TCXATTEN EQU IEDQTCXD+4 03989000 TCXFLAG1 EQU IEDQTCXD+34 03990000 TCXRPT EQU IEDQTCXD+36 03991000 TCXBUFA EQU IEDQTCXD+80 03992000 TCXDSAVE EQU IEDQTCXD+104 03993000 TCXQE8 EQU IEDQTCXD+216 03994000 IEDTH EQU 0 03995000 TTHBYTE0 EQU IEDTH 03996000 TTHFTYPE EQU TTHBYTE0 03997000 TTHBBIU EQU TTHBYTE0 03998000 TTHEBIU EQU TTHBYTE0 03999000 TTHEFI EQU TTHBYTE0 04000000 TTHDAF EQU IEDTH+2 04001000 TTHOAF EQU IEDTH+4 04002000 TTHSNF EQU IEDTH+6 04003000 TTHTAG EQU TTHSNF 04004000 TTHTAG1 EQU TTHTAG 04005000 TTHTAG2 EQU TTHTAG+1 04006000 TTHDCF EQU IEDTH+8 04007000 IEDTRM EQU 0 04008000 IEDNTRM EQU IEDTRM 04009000 TRMBYTE4 EQU IEDNTRM 04010000 TRMBYTE3 EQU IEDNTRM+1 04011000 TRMBYTE2 EQU IEDNTRM+2 04012000 TRMINPG EQU TRMBYTE2 04013000 TRMPREP EQU TRMBYTE2 04014000 TRMWRBRK EQU TRMBYTE2 04015000 TRMBYTE1 EQU IEDNTRM+3 04016000 TRMSCPRQ EQU TRMBYTE1 04017000 TRMWTNEG EQU TRMSCPRQ 04018000 TRMINPTP EQU TRMBYTE1 04019000 TRMTSATN EQU TRMBYTE1 04020000 TRMBYTE0 EQU IEDNTRM+6 04021000 TRMDIAL EQU TRMBYTE0 04022000 TRMSNA EQU TRMBYTE0 04023000 TRMSIBPT EQU IEDNTRM+7 04024000 TRMTYPE EQU IEDNTRM+11 04025000 IEDQTRM EQU IEDTRM+14 04026000 TRMSTATE EQU IEDQTRM 04027000 TRMLOG EQU TRMSTATE 04028000 TRMPREF EQU TRMSTATE 04029000 TRMDESTQ EQU IEDQTRM+1 04030000 TRMINSEQ EQU IEDQTRM+4 04031000 TLISTCNT EQU TRMINSEQ 04032000 TRMOUTSQ EQU IEDQTRM+6 04033000 TLISTEN EQU TRMOUTSQ 04034000 TRMDSORG EQU TLISTEN 04035000 TRMALTD EQU IEDQTRM+8 04036000 TRMDEVFL EQU IEDQTRM+10 04037000 TRMSTAT EQU IEDQTRM+12 04038000 TRMCHCIN EQU IEDQTRM+16 04039000 IEDQTSI EQU 0 04040000 TSIFLAG EQU IEDQTSI 04041000 TSISIMAT EQU IEDQTSI+24 04042000 TSIMSGEN EQU IEDQTSI+44 04043000 TSIDYQCB EQU IEDQTSI+52 04044000 TSIDYQFG EQU TSIDYQCB 04045000 TSITSW EQU IEDQTSI+124 04046000 TSIGMAIN EQU TSITSW+16 04047000 GMFLAG EQU TSIGMAIN 04048000 GMCODE EQU TSIGMAIN+1 04049000 IEDTTPTR EQU 0 04050000 IEDQTSW EQU 0 04051000 TSWTSLNS EQU IEDQTSW+20 04052000 TSWSWT1 EQU IEDQTSW+22 04053000 TSWFLG1 EQU IEDQTSW+24 04054000 TSWSCCTL EQU TSWFLG1 04055000 TSWFLG2 EQU IEDQTSW+25 04056000 TSWEFLG1 EQU IEDQTSW+28 04057000 TSWEFLG2 EQU IEDQTSW+29 04058000 TSWDCT EQU IEDQTSW+54 04059000 RTSW EQU 0 04060000 TSB EQU 0 04061000 TSBASCBA EQU TSB 04062000 TSBSTAT EQU TSBASCBA 04063000 TSBFLG1 EQU TSB+4 04064000 TSBFLG2 EQU TSB+16 04065000 TSBFLG3 EQU TSB+24 04066000 TSBFLG5 EQU TSB+25 04067000 TSBTERMC EQU TSB+26 04068000 TSBTERM1 EQU TSBTERMC 04069000 TSBTERM2 EQU TSBTERMC+1 04070000 TSBSTCC EQU TSB+34 04071000 TSBATNTC EQU TSB+38 04072000 TSBFLG4 EQU TSB+41 04073000 TSBRCB EQU TSB+64 04074000 TSBLINKA EQU TSBRCB+4 04075000 TSBTPOST EQU TSB+72 04076000 TSBTPFLG EQU TSBTPOST 04077000 TSBMINL EQU TSB+84 04078000 TSBPTR EQU 0 04079000 ASCB EQU 0 04080000 ASCBTSB EQU ASCB+60 04081000 ASCBFW1 EQU ASCB+100 04082000 ASCBRCTF EQU ASCBFW1+2 04083000 ASCBFLG1 EQU ASCBFW1+3 04084000 ASCBDSP1 EQU ASCB+114 04085000 ASCBFLG2 EQU ASCB+115 04086000 ASCBPTR EQU 0 04087000 ASVT EQU 0 04088000 ASVTFRST EQU ASVT+524 04089000 ASVTENTY EQU ASVT+528 04090000 CVTMAP EQU 0 04091000 CVTDAR EQU CVTMAP+72 04092000 CVTFLGS1 EQU CVTDAR 04093000 CVTDCB EQU CVTMAP+116 04094000 CVTIOQET EQU CVTMAP+120 04095000 CVTIERLC EQU CVTMAP+144 04096000 CVTHEAD EQU CVTMAP+160 04097000 CVTSV76C EQU CVTHEAD 04098000 CVTOPTA EQU CVTMAP+182 04099000 CVTOPTB EQU CVTMAP+183 04100000 CVTGTF EQU CVTMAP+236 04101000 CVTGTFST EQU CVTGTF 04102000 CVTGTFS EQU CVTGTFST 04103000 CVTSTATE EQU CVTGTFST 04104000 CVTTMODE EQU CVTGTFST 04105000 CVTFORM EQU CVTGTFST 04106000 CVTAQAVT EQU CVTMAP+240 04107000 CVTTCMFG EQU CVTAQAVT 04108000 CVTVOLM2 EQU CVTMAP+244 04109000 CVTTATA EQU CVTVOLM2 04110000 CVTTSKS EQU CVTTATA 04111000 CVTVOLF2 EQU CVTTSKS 04112000 CVTTAT EQU CVTTATA+1 04113000 CVTATER EQU CVTMAP+248 04114000 CVTEXT1 EQU CVTMAP+252 04115000 CVTPURG EQU CVTMAP+260 04116000 CVTQMSG EQU CVTMAP+268 04117000 CVTDMSR EQU CVTMAP+272 04118000 CVTRSV37 EQU CVTDMSR 04119000 CVTDMSRF EQU CVTRSV37 04120000 CVTERPV EQU CVTMAP+316 04121000 CVTINTLA EQU CVTMAP+320 04122000 CVTAPF EQU CVTMAP+324 04123000 CVTEXT2 EQU CVTMAP+328 04124000 CVTHJES EQU CVTMAP+332 04125000 CVTPGSIA EQU CVTMAP+348 04126000 CVTA1F1 EQU CVTMAP+356 04127000 CVTSYSK EQU CVTMAP+357 04128000 CVTVOLM1 EQU CVTMAP+380 04129000 CVTVOLF1 EQU CVTVOLM1 04130000 CVTATMCT EQU CVTMAP+388 04131000 CVTXTNT1 EQU 0 04132000 CVTXTNT2 EQU 0 04133000 CVTDSSV EQU CVTXTNT2 04134000 CVTFLGBT EQU CVTXTNT2+5 04135000 CVTQID EQU CVTXTNT2+24 04136000 CVTRV400 EQU CVTXTNT2+52 04137000 CVTRV409 EQU CVTXTNT2+53 04138000 CVTATCVT EQU CVTXTNT2+64 04139000 CVTRV429 EQU CVTXTNT2+84 04140000 CVTRV438 EQU CVTXTNT2+85 04141000 CVTRV457 EQU CVTXTNT2+112 04142000 CVTRV466 EQU CVTXTNT2+113 04143000 CVTFIX EQU 0 04144000 CVTRELNO EQU CVTFIX+252 04145000 SIGRU EQU 0 04146000 SMIRU EQU 0 04147000 NULLRU EQU 0 04148000 IEDQTNT EQU 0 04149000 IEDQGA02 EQU 0 04150000 IEDQHG01 EQU 0 04151000 IEDQHG02 EQU 0 04152000 IEDIAP01 EQU 0 04153000 IEDIAP07 EQU 0 04154000 CL0001@ EQU 0 04155000 DSPBYPAS EQU 20 04156000 DSPCHAIN EQU 12 04157000 DSPDISP EQU 4 04158000 DSPLIFO EQU 56 04159000 DSPLIFOR EQU 60 04160000 DSPLIST EQU 8 04161000 DSPPOST EQU 24 04162000 DSPPRIO EQU 48 04163000 DSPPRIOR EQU 52 04164000 DSPTRACE EQU 64 04165000 DSPTSTQ EQU 32 04166000 DSPTSTQR EQU 36 04167000 DSPUNAV EQU 40 04168000 DSPWAIT EQU 16 04169000 QCBLDCB EQU 0 04170000 BDUTEXT EQU BDUEND 04171000 LCBRSPIN EQU LCBIOBSN 04172000 LCBLUSNS EQU LCBRSPIN+5 04173000 LCBSCPRS EQU LCBRSPIN+9 04174000 LCBCSWU1 EQU LCBSCPRS+2 04175000 LCBRSPFG EQU LCBRSPIN+15 04176000 LCBCOREQ EQU LCBTPCD 04177000 @NM00134 EQU LCBCPA+40 04178000 LCBNCPPT EQU @NM00134+1 04179000 LCBQNX EQU LCBERCCW 04180000 LCBQNXMN EQU LCBQNX 04181000 LCBCANCL EQU LCBSAVSN 04182000 LCBCANFG EQU LCBCANCL 04183000 REQLDATA EQU REQDATA 04184000 REQSDATA EQU REQDATA 04185000 TCXPTR EQU CVTAQAVT 04186000 TRMPRE1 EQU TRMBYTE4 04187000 TRMSESSN EQU TRMPRE1 04188000 TRMOCNI EQU TRMPRE1 04189000 TRMLYNCH EQU TRMPRE1 04190000 TRMNCP1 EQU TRMBYTE4 04191000 TRMINOP EQU TRMNCP1 04192000 TRMPRE EQU TRMBYTE3 04193000 TRMSTPND EQU TRMPRE 04194000 TRMSTMM EQU TRMPRE 04195000 TRMRDOUT EQU TRMPRE 04196000 TRMINOUT EQU TRMPRE 04197000 TRMNCP EQU TRMBYTE3 04198000 TRMNCPCL EQU TRMNCP 04199000 TRMQUCKN EQU TRMNCP 04200000 TRMPU EQU TRMBYTE3 04201000 TRMLU EQU TRMBYTE3 04202000 TRMLINK EQU TRMBYTE3 04203000 CVTS01 EQU CVTPGSIA 04204000 CVTLPDIA EQU CVTS01+12 04205000 CVTDIRST EQU CVTLPDIA 04206000 CVTSLIDA EQU CVTS01+24 04207000 CVTCTLFG EQU CVTS01+50 04208000 CVTASVT EQU CVTS01+208 04209000 CVTRV210 EQU CVTS01+424 04210000 CVTRV219 EQU CVTS01+425 04211000 CVTRV228 EQU CVTS01+426 04212000 CVTRV237 EQU CVTS01+427 04213000 CVTMFRTR EQU CVTS01+452 04214000 CVTRV262 EQU CVTS01+468 04215000 CVTRV271 EQU CVTS01+469 04216000 CVTRV280 EQU CVTS01+470 04217000 CVTRV289 EQU CVTS01+471 04218000 CVTGSDA EQU CVTS01+600 04219000 ASVTPTR EQU CVTASVT 04220000 CASENUM EQU SAVEWD01 04221000 PRFSHDR EQU IEDQPRF+42 04222000 SCBRGSAV EQU SCBEND 04223000 AGO .@UNREFD START UNREFERENCED COMPONENTS 04224000 CVTRV628 EQU CVTS01+728 04225000 CVTRV627 EQU CVTS01+724 04226000 CVTRV626 EQU CVTS01+720 04227000 CVTRV625 EQU CVTS01+716 04228000 CVTRV624 EQU CVTS01+712 04229000 CVTRV623 EQU CVTS01+708 04230000 CVTRV622 EQU CVTS01+704 04231000 CVTRV621 EQU CVTS01+700 04232000 CVTIHASU EQU CVTS01+696 04233000 CVTRV619 EQU CVTS01+692 04234000 CVTRV618 EQU CVTS01+688 04235000 CVTRV617 EQU CVTS01+684 04236000 CVTRV616 EQU CVTS01+680 04237000 CVTRV615 EQU CVTS01+676 04238000 CVTRV614 EQU CVTS01+672 04239000 CVTRV613 EQU CVTS01+668 04240000 CVTTCASP EQU CVTS01+664 04241000 CVT0PT03 EQU CVTS01+660 04242000 CVT0PT0E EQU CVTS01+656 04243000 CVTRV609 EQU CVTS01+652 04244000 CVTCGK EQU CVTS01+648 04245000 CVTRAC EQU CVTS01+644 04246000 CVTHSM EQU CVTS01+640 04247000 CVTRV605 EQU CVTS01+636 04248000 CVTRV604 EQU CVTS01+632 04249000 CVTEFF02 EQU CVTS01+628 04250000 CVTCBBR EQU CVTS01+624 04251000 CVTSSCR EQU CVTS01+620 04252000 CVTEVENT EQU CVTS01+616 04253000 CVTCRCA EQU CVTS01+612 04254000 CVTTPIO EQU CVTS01+608 04255000 CVTADV EQU CVTS01+604 04256000 CVTGSDAB EQU CVTGSDA 04257000 CVTQV3 EQU CVTS01+596 04258000 CVTQV2 EQU CVTS01+592 04259000 CVTQV1 EQU CVTS01+588 04260000 CVTRPT EQU CVTS01+584 04261000 CVTSSRB EQU CVTS01+580 04262000 CVTCSDRL EQU CVTS01+576 04263000 CVTEXP1 EQU CVTS01+572 04264000 CVTRMPMT EQU CVTS01+568 04265000 CVTRMPTT EQU CVTS01+564 04266000 CVTVPSA EQU CVTS01+560 04267000 CVTVSTOP EQU CVTS01+556 04268000 CVTGTFR8 EQU CVTS01+552 04269000 CVTQUIT EQU CVTS01+548 04270000 CVTVACR EQU CVTS01+544 04271000 CVTWTCB EQU CVTS01+540 04272000 CVTSTPRS EQU CVTS01+536 04273000 CVT0PT02 EQU CVTS01+532 04274000 CVTDARCM EQU CVTS01+528 04275000 CVTIRECM EQU CVTS01+524 04276000 CVTJRECM EQU CVTS01+520 04277000 CVTVEMS0 EQU CVTS01+516 04278000 CVTSPFRR EQU CVTS01+512 04279000 CVTRLSTG EQU CVTS01+508 04280000 CVT0TC0A EQU CVTS01+504 04281000 CVTGMBR EQU CVTS01+500 04282000 CVTLFRM EQU CVTS01+496 04283000 CVTRMBR EQU CVTS01+492 04284000 CVTVIOP EQU CVTS01+488 04285000 CVTRV307 EQU CVTS01+486 04286000 CVTRV306 EQU CVTS01+484 04287000 CVTRV305 EQU CVTS01+482 04288000 CVTRV304 EQU CVTS01+480 04289000 CVTRV303 EQU CVTS01+478 04290000 CVTRV302 EQU CVTS01+476 04291000 CVTTRCA EQU CVTS01+472 04292000 CVTRV297 EQU CVTRV289 04293000 CVTRV296 EQU CVTRV289 04294000 CVTRV295 EQU CVTRV289 04295000 CVTRV294 EQU CVTRV289 04296000 CVTRV293 EQU CVTRV289 04297000 CVTRV292 EQU CVTRV289 04298000 CVTRV291 EQU CVTRV289 04299000 CVTRV290 EQU CVTRV289 04300000 CVTRV288 EQU CVTRV280 04301000 CVTRV287 EQU CVTRV280 04302000 CVTRV286 EQU CVTRV280 04303000 CVTRV285 EQU CVTRV280 04304000 CVTRV284 EQU CVTRV280 04305000 CVTRV283 EQU CVTRV280 04306000 CVTRV282 EQU CVTRV280 04307000 CVTRV281 EQU CVTRV280 04308000 CVTRV279 EQU CVTRV271 04309000 CVTRV278 EQU CVTRV271 04310000 CVTRV277 EQU CVTRV271 04311000 CVTRV276 EQU CVTRV271 04312000 CVTRV275 EQU CVTRV271 04313000 CVTRV274 EQU CVTRV271 04314000 CVTRV273 EQU CVTRV271 04315000 CVTRV272 EQU CVTRV271 04316000 CVTRV270 EQU CVTRV262 04317000 CVTRV269 EQU CVTRV262 04318000 CVTRV268 EQU CVTRV262 04319000 CVTRV267 EQU CVTRV262 04320000 CVTRV266 EQU CVTRV262 04321000 CVTRV265 EQU CVTRV262 04322000 CVTRV264 EQU CVTRV262 04323000 CVTRV263 EQU CVTRV262 04324000 CVTVFP EQU CVTS01+464 04325000 CVTVSI EQU CVTS01+460 04326000 CVTVPSIB EQU CVTS01+456 04327000 CVTMFACT EQU CVTMFRTR 04328000 CVTMFCTL EQU CVTS01+448 04329000 CVTPVBP EQU CVTS01+444 04330000 CVTPWI EQU CVTS01+440 04331000 CVTRV254 EQU CVTS01+438 04332000 CVTRV253 EQU CVTS01+436 04333000 CVTRV252 EQU CVTS01+434 04334000 CVTRV251 EQU CVTS01+433 04335000 CVTRV250 EQU CVTS01+432 04336000 CVTRV249 EQU CVTS01+431 04337000 CVTRV248 EQU CVTS01+430 04338000 CVTRV247 EQU CVTS01+429 04339000 CVTRV246 EQU CVTS01+428 04340000 CVTRV245 EQU CVTRV237 04341000 CVTRV244 EQU CVTRV237 04342000 CVTRV243 EQU CVTRV237 04343000 CVTRV242 EQU CVTRV237 04344000 CVTRV241 EQU CVTRV237 04345000 CVTRV240 EQU CVTRV237 04346000 CVTRV239 EQU CVTRV237 04347000 CVTRV238 EQU CVTRV237 04348000 CVTRV236 EQU CVTRV228 04349000 CVTRV235 EQU CVTRV228 04350000 CVTRV234 EQU CVTRV228 04351000 CVTRV233 EQU CVTRV228 04352000 CVTRV232 EQU CVTRV228 04353000 CVTRV231 EQU CVTRV228 04354000 CVTRV230 EQU CVTRV228 04355000 CVTRV229 EQU CVTRV228 04356000 CVTRV227 EQU CVTRV219 04357000 CVTRV226 EQU CVTRV219 04358000 CVTRV225 EQU CVTRV219 04359000 CVTRV224 EQU CVTRV219 04360000 CVTRV223 EQU CVTRV219 04361000 CVTRV222 EQU CVTRV219 04362000 CVTRV221 EQU CVTRV219 04363000 CVTRV220 EQU CVTRV219 04364000 CVTRV218 EQU CVTRV210 04365000 CVTRV217 EQU CVTRV210 04366000 CVTRV216 EQU CVTRV210 04367000 CVTRV215 EQU CVTRV210 04368000 CVTRV214 EQU CVTRV210 04369000 CVTRV213 EQU CVTRV210 04370000 CVTRV212 EQU CVTRV210 04371000 CVTRV211 EQU CVTRV210 04372000 CVTLCCAT EQU CVTS01+420 04373000 CVTPCCAT EQU CVTS01+416 04374000 CVTIPCRP EQU CVTS01+412 04375000 CVTIPCRI EQU CVTS01+408 04376000 CVTIPCDS EQU CVTS01+404 04377000 CVTAIDVT EQU CVTS01+400 04378000 CVTSSAP EQU CVTS01+396 04379000 CVTEHCIR EQU CVTS01+392 04380000 CVTEHDEF EQU CVTS01+388 04381000 CVTDAIR EQU CVTS01+384 04382000 CVTPERFM EQU CVTS01+380 04383000 CVT044R2 EQU CVTS01+376 04384000 CVTFETCH EQU CVTS01+372 04385000 CVTRSTWD EQU CVTS01+368 04386000 CVTSPOST EQU CVTS01+364 04387000 CVTIOBP EQU CVTS01+360 04388000 CVTASMVT EQU CVTS01+356 04389000 CVTRECRQ EQU CVTS01+352 04390000 CVTWSAC EQU CVTS01+348 04391000 CVTRV149 EQU CVTS01+344 04392000 CVTWSAL EQU CVTS01+340 04393000 CVTSPSA EQU CVTS01+336 04394000 CVTGLMN EQU CVTS01+332 04395000 CVTVEAC0 EQU CVTS01+328 04396000 CVT062R1 EQU CVTS01+324 04397000 CVTRPOST EQU CVTS01+320 04398000 CVTDQIQE EQU CVTS01+316 04399000 CVTCSD EQU CVTS01+312 04400000 CVTLKRMA EQU CVTS01+308 04401000 CVTRSPIE EQU CVTS01+304 04402000 CVTRENQ EQU CVTS01+300 04403000 CVTLQCB EQU CVTS01+296 04404000 CVTFQCB EQU CVTS01+292 04405000 CVTQCS01 EQU CVTS01+288 04406000 CVTAPFT EQU CVTS01+284 04407000 CVTPARRL EQU CVTS01+280 04408000 CVTVWAIT EQU CVTS01+276 04409000 CVTGSPL EQU CVTS01+272 04410000 CVTLSMQ EQU CVTS01+268 04411000 CVTGSMQ EQU CVTS01+264 04412000 CVTEXPRO EQU CVTS01+260 04413000 CVTOPCTP EQU CVTS01+256 04414000 CVTSIC EQU CVTS01+252 04415000 CVTTPIOS EQU CVTS01+248 04416000 CVTRTMS EQU CVTS01+244 04417000 CVTSDBF EQU CVTS01+240 04418000 CVTSCBP EQU CVTS01+236 04419000 CVTSDMP EQU CVTS01+232 04420000 CVTSV60 EQU CVTS01+228 04421000 CVTRTMCT EQU CVTS01+224 04422000 CVTASCBL EQU CVTS01+220 04423000 CVTASCBH EQU CVTS01+216 04424000 CVTGDA EQU CVTS01+212 04425000 CVTVVMDI EQU CVTS01+204 04426000 CVTAQTOP EQU CVTS01+200 04427000 CVTIOSCS EQU CVTS01+196 04428000 CVTSDRM EQU CVTS01+192 04429000 CVTOPTE EQU CVTS01+188 04430000 CVTSTXU EQU CVTS01+184 04431000 CVTQUIS EQU CVTS01+180 04432000 CVTPARS EQU CVTS01+176 04433000 CVTS1EE EQU CVTS01+172 04434000 CVTFRAS EQU CVTS01+168 04435000 CVTQSAS EQU CVTS01+164 04436000 CVTCRAS EQU CVTS01+160 04437000 CVTCRMN EQU CVTS01+156 04438000 CVTDELCP EQU CVTS01+152 04439000 CVTFRECL EQU CVTS01+148 04440000 CVTGETCL EQU CVTS01+144 04441000 CVTBLDCP EQU CVTS01+140 04442000 CVTAUTHL EQU CVTS01+136 04443000 CVTSCAN EQU CVTS01+132 04444000 CVTRV144 EQU CVTS01+130 04445000 CVTMAXMP EQU CVTS01+128 04446000 CVTSTCK EQU CVTS01+124 04447000 CVTRV139 EQU CVTS01+123 04448000 CVTDSSAC EQU CVTS01+122 04449000 CVTRV513 EQU CVTS01+121 04450000 CVTIOSPL EQU CVTS01+120 04451000 CVTPTGT EQU CVTS01+116 04452000 CVTCSPIE EQU CVTS01+112 04453000 CVTSMFEX EQU CVTS01+108 04454000 CVTOLT0A EQU CVTS01+104 04455000 CVTSRBRT EQU CVTS01+100 04456000 CVTPUTL EQU CVTS01+96 04457000 CVTASCRL EQU CVTS01+92 04458000 CVTASCRF EQU CVTS01+88 04459000 CVTRV326 EQU CVTS01+84 04460000 CVTRV325 EQU CVTS01+80 04461000 CVTRV324 EQU CVTS01+76 04462000 CVT0VL01 EQU CVTS01+72 04463000 CVTSHRVM EQU CVTS01+68 04464000 CVTRV332 EQU CVTS01+64 04465000 CVTTAS EQU CVTS01+60 04466000 CVTRSCN EQU CVTS01+56 04467000 CVTTRAC2 EQU CVTS01+54 04468000 CVTTRACE EQU CVTS01+52 04469000 CVTAPG EQU CVTS01+51 04470000 CVTSDTRC EQU CVTCTLFG 04471000 CVTGTRCE EQU CVTCTLFG 04472000 CVTNOMP EQU CVTCTLFG 04473000 CVTRSV79 EQU CVTCTLFG 04474000 CVTDSTAT EQU CVTCTLFG 04475000 CVTRSV78 EQU CVTCTLFG 04476000 CVTRV333 EQU CVTCTLFG 04477000 CVTRV323 EQU CVTCTLFG 04478000 CVTSPVLK EQU CVTS01+49 04479000 CVTRSV77 EQU CVTS01+48 04480000 CVTRV331 EQU CVTS01+44 04481000 CVTRV330 EQU CVTS01+40 04482000 CVTRV329 EQU CVTS01+36 04483000 CVTRV328 EQU CVTS01+32 04484000 CVTRV322 EQU CVTS01+28 04485000 CVTSLID EQU CVTSLIDA+1 04486000 CVTSYLK EQU CVTSLIDA 04487000 CVTRV321 EQU CVTS01+20 04488000 CVTRV320 EQU CVTS01+16 04489000 CVTLPDIR EQU CVTLPDIA+1 04490000 CVTRSV69 EQU CVTDIRST 04491000 CVTRSV68 EQU CVTDIRST 04492000 CVTRSV67 EQU CVTDIRST 04493000 CVTRSV66 EQU CVTDIRST 04494000 CVTRSV65 EQU CVTDIRST 04495000 CVTRSV64 EQU CVTDIRST 04496000 CVTRSV63 EQU CVTDIRST 04497000 CVTDICOM EQU CVTDIRST 04498000 CVTPVTP EQU CVTS01+8 04499000 CVTLPDSR EQU CVTS01+4 04500000 CVTGETL EQU CVTS01 04501000 @NM00211 EQU TRMLINK 04502000 TRMLSTAT EQU TRMLINK 04503000 TRMLINT EQU TRMLINK 04504000 TRMEPMOD EQU TRMLINK 04505000 TRMLULOG EQU TRMLU 04506000 TRMINERR EQU TRMLU 04507000 TRMLUREQ EQU TRMLU 04508000 TRMSESRQ EQU TRMLU 04509000 TRMTDIFF EQU TRMLU 04510000 TRMLUTM EQU TRMLU 04511000 TRMLUIT EQU TRMLU 04512000 TRMAUTO EQU TRMLU 04513000 TRMPCONT EQU TRMPU 04514000 @NM00210 EQU TRMPU 04515000 TRMNCONT EQU TRMNCP 04516000 TRMSLOWN EQU TRMNCP 04517000 TRMSYGEN EQU TRMNCP 04518000 TRMIPLDM EQU TRMNCP 04519000 TRMNLOUT EQU TRMPRE 04520000 TRMWROUT EQU TRMPRE 04521000 TRMASNXI EQU TRMPRE 04522000 TRMCMODE EQU TRMPRE 04523000 @NM00209 EQU TRMNCP1 04524000 TRMSPOUT EQU TRMPRE1 04525000 TRMERLCK EQU TRMPRE1 04526000 TRMQNPL EQU TRMPRE1 04527000 TRMSPACT EQU TRMPRE1 04528000 TRMCONT EQU TRMPRE1 04529000 REQSTNT EQU REQSDATA+4 04530000 REQSTTE EQU REQSDATA 04531000 REQLTNT EQU REQLDATA 04532000 @NM00142 EQU LCBCANCL+3 04533000 LCBCANTH EQU LCBCANCL+1 04534000 @NM00141 EQU LCBCANFG 04535000 LCBCANCD EQU LCBCANFG 04536000 @NM00140 EQU LCBCANFG 04537000 LCBCANEB EQU LCBCANFG 04538000 LCBCANXT EQU LCBCANFG 04539000 LCBUNADD EQU LCBQNX+21 04540000 LCBUASZE EQU LCBQNX+20 04541000 LCBDSTEA EQU LCBQNX+16 04542000 @NM00139 EQU LCBQNX+8 04543000 LCBIOSBS EQU LCBQNX+5 04544000 @NM00138 EQU LCBQNX+4 04545000 LCBSTSAV EQU LCBQNX+1 04546000 @NM00137 EQU LCBQNXMN 04547000 LCBNX509 EQU LCBQNXMN 04548000 LCBNX162 EQU LCBQNXMN 04549000 LCBNX142 EQU LCBQNXMN 04550000 LCBNX064 EQU LCBQNXMN 04551000 @NM00136 EQU @NM00134+4 04552000 @NM00135 EQU @NM00134 04553000 LCBWRSCH EQU LCBCOREQ+8 04554000 LCBCQLNK EQU LCBCOREQ+4 04555000 LCBCQELE EQU LCBCOREQ 04556000 LCBPAKCH EQU LCBRSPIN+16 04557000 @NM00133 EQU LCBRSPFG 04558000 LCBRSRH EQU LCBRSPFG 04559000 LCBEXPI EQU LCBRSPFG 04560000 @NM00132 EQU LCBRSPIN+12 04561000 LCBUSUE1 EQU LCBCSWU1 04562000 @NM00131 EQU LCBCSWU1 04563000 @NM00130 EQU LCBSCPRS+1 04564000 LCBDFCMD EQU LCBSCPRS 04565000 LCBUSER EQU LCBLUSNS+2 04566000 LCBSMIN EQU LCBLUSNS+1 04567000 LCBSMAJ EQU LCBLUSNS 04568000 LCBRHSV EQU LCBRSPIN+2 04569000 LCBSNS0 EQU LCBRSPIN+1 04570000 @NM00129 EQU LCBRSPIN 04571000 LCBDSCRJ EQU LCBRSPIN 04572000 CVTLEVL EQU CVTRELNO+2 04573000 CVTNUMB EQU CVTRELNO 04574000 CVTMDL EQU CVTFIX+250 04575000 @NM00243 EQU CVTFIX+248 04576000 @NM00242 EQU CVTFIX 04577000 CVTRV482 EQU CVTXTNT2+128 04578000 CVTRV481 EQU CVTXTNT2+124 04579000 CVTRV480 EQU CVTXTNT2+120 04580000 CVTRV479 EQU CVTXTNT2+118 04581000 CVTRV478 EQU CVTXTNT2+117 04582000 CVTRV477 EQU CVTXTNT2+116 04583000 CVTRV476 EQU CVTXTNT2+115 04584000 CVTRV475 EQU CVTXTNT2+114 04585000 CVTRV474 EQU CVTRV466 04586000 CVTRV473 EQU CVTRV466 04587000 CVTRV472 EQU CVTRV466 04588000 CVTRV471 EQU CVTRV466 04589000 CVTRV470 EQU CVTRV466 04590000 CVTRV469 EQU CVTRV466 04591000 CVTRV468 EQU CVTRV466 04592000 CVTRV467 EQU CVTRV466 04593000 CVTRV465 EQU CVTRV457 04594000 CVTRV464 EQU CVTRV457 04595000 CVTRV463 EQU CVTRV457 04596000 CVTRV462 EQU CVTRV457 04597000 CVTRV461 EQU CVTRV457 04598000 CVTRV460 EQU CVTRV457 04599000 CVTRV459 EQU CVTRV457 04600000 CVTRV458 EQU CVTRV457 04601000 CVTRV456 EQU CVTXTNT2+108 04602000 CVTRV455 EQU CVTXTNT2+104 04603000 CVTRV454 EQU CVTXTNT2+100 04604000 CVTRV453 EQU CVTXTNT2+96 04605000 CVTRV452 EQU CVTXTNT2+94 04606000 CVTRV451 EQU CVTXTNT2+92 04607000 CVTRV450 EQU CVTXTNT2+90 04608000 CVTRV449 EQU CVTXTNT2+88 04609000 CVTRV448 EQU CVTXTNT2+87 04610000 CVTRV447 EQU CVTXTNT2+86 04611000 CVTRV446 EQU CVTRV438 04612000 CVTRV445 EQU CVTRV438 04613000 CVTRV444 EQU CVTRV438 04614000 CVTRV443 EQU CVTRV438 04615000 CVTRV442 EQU CVTRV438 04616000 CVTRV441 EQU CVTRV438 04617000 CVTRV440 EQU CVTRV438 04618000 CVTRV439 EQU CVTRV438 04619000 CVTRV437 EQU CVTRV429 04620000 CVTRV436 EQU CVTRV429 04621000 CVTRV435 EQU CVTRV429 04622000 CVTRV434 EQU CVTRV429 04623000 CVTRV433 EQU CVTRV429 04624000 CVTRV432 EQU CVTRV429 04625000 CVTRV431 EQU CVTRV429 04626000 CVTRV430 EQU CVTRV429 04627000 CVTRV428 EQU CVTXTNT2+80 04628000 CVTRV427 EQU CVTXTNT2+76 04629000 CVTRV426 EQU CVTXTNT2+72 04630000 CVTRV425 EQU CVTXTNT2+68 04631000 CVTATACT EQU CVTATCVT 04632000 CVTRV423 EQU CVTXTNT2+62 04633000 CVTRV422 EQU CVTXTNT2+60 04634000 CVTRV421 EQU CVTXTNT2+58 04635000 CVTRV420 EQU CVTXTNT2+56 04636000 CVTRV419 EQU CVTXTNT2+55 04637000 CVTRV418 EQU CVTXTNT2+54 04638000 CVTRV417 EQU CVTRV409 04639000 CVTRV416 EQU CVTRV409 04640000 CVTRV415 EQU CVTRV409 04641000 CVTRV414 EQU CVTRV409 04642000 CVTRV413 EQU CVTRV409 04643000 CVTRV412 EQU CVTRV409 04644000 CVTRV411 EQU CVTRV409 04645000 CVTRV410 EQU CVTRV409 04646000 CVTRV408 EQU CVTRV400 04647000 CVTRV407 EQU CVTRV400 04648000 CVTRV406 EQU CVTRV400 04649000 CVTRV405 EQU CVTRV400 04650000 CVTRV404 EQU CVTRV400 04651000 CVTRV403 EQU CVTRV400 04652000 CVTRV402 EQU CVTRV400 04653000 CVTRV401 EQU CVTRV400 04654000 CVTICB EQU CVTXTNT2+48 04655000 CVTSKTA EQU CVTXTNT2+44 04656000 CVTCCVT EQU CVTXTNT2+40 04657000 CVTRSV98 EQU CVTXTNT2+36 04658000 CVTRSV97 EQU CVTXTNT2+34 04659000 CVTRSV96 EQU CVTXTNT2+32 04660000 CVTOLTEP EQU CVTXTNT2+28 04661000 CVTQIDA EQU CVTQID+1 04662000 CVTRSV95 EQU CVTQID 04663000 CVTRSV94 EQU CVTXTNT2+20 04664000 CVTRSV93 EQU CVTXTNT2+16 04665000 CVTRSV92 EQU CVTXTNT2+12 04666000 CVTDEBVR EQU CVTXTNT2+8 04667000 CVTRSV91 EQU CVTXTNT2+6 04668000 CVTRSV9H EQU CVTFLGBT 04669000 CVTRSV9G EQU CVTFLGBT 04670000 CVTRSV9F EQU CVTFLGBT 04671000 CVTRSV9E EQU CVTFLGBT 04672000 CVTRSV9D EQU CVTFLGBT 04673000 CVTRSV9C EQU CVTFLGBT 04674000 CVTVME EQU CVTFLGBT 04675000 CVTNPE EQU CVTFLGBT 04676000 CVTNUCLS EQU CVTXTNT2+4 04677000 CVTDSSVA EQU CVTDSSV+1 04678000 CVTRSV89 EQU CVTDSSV 04679000 CVTRSV88 EQU CVTXTNT1+8 04680000 CVTRSV87 EQU CVTXTNT1+4 04681000 CVTFACHN EQU CVTXTNT1 04682000 CVTRV488 EQU CVTMAP+412 04683000 CVTRV487 EQU CVTMAP+408 04684000 CVTRV486 EQU CVTMAP+404 04685000 CVTRV485 EQU CVTMAP+400 04686000 CVTACTAP EQU CVTMAP+396 04687000 CVTAUTH EQU CVTMAP+392 04688000 CVTATMCA EQU CVTATMCT+1 04689000 CVTATMST EQU CVTATMCT 04690000 CVTRSV61 EQU CVTMAP+384 04691000 CVTVOLT1 EQU CVTVOLM1+1 04692000 CVTVOLI1 EQU CVTVOLF1 04693000 CVTSTOA EQU CVTMAP+376 04694000 CVTRSV58 EQU CVTMAP+374 04695000 CVTRSV57 EQU CVTMAP+372 04696000 CVTDDCE EQU CVTMAP+368 04697000 CVTPNWFR EQU CVTMAP+364 04698000 CVTSMF EQU CVTMAP+360 04699000 CVTSULK EQU CVTMAP+358 04700000 CVTSLKO EQU CVTSYSK 04701000 CVTSLKP EQU CVTSYSK 04702000 CVTSLKQ EQU CVTSYSK 04703000 CVTSLKR EQU CVTSYSK 04704000 CVTRSV56 EQU CVTSYSK 04705000 CVTRSV55 EQU CVTSYSK 04706000 CVTRSV54 EQU CVTSYSK 04707000 CVTRSV53 EQU CVTSYSK 04708000 CVTRSV52 EQU CVTA1F1 04709000 CVTRSV51 EQU CVTA1F1 04710000 CVTRSV50 EQU CVTA1F1 04711000 CVTRSV49 EQU CVTA1F1 04712000 CVTRSV48 EQU CVTA1F1 04713000 CVTRSV47 EQU CVTA1F1 04714000 CVTSRSW EQU CVTA1F1 04715000 CVTPFSW EQU CVTA1F1 04716000 CVTPCVT EQU CVTMAP+352 04717000 CVTRSV46 EQU CVTMAP+344 04718000 CVTRSV45 EQU CVTMAP+340 04719000 CVTRSV44 EQU CVTMAP+338 04720000 CVTRSV43 EQU CVTMAP+336 04721000 CVTHJESA EQU CVTHJES+1 04722000 CVTRSV42 EQU CVTHJES 04723000 CVTEXT2A EQU CVTEXT2+1 04724000 CVTRSV41 EQU CVTEXT2 04725000 CVTAPFA EQU CVTAPF+1 04726000 CVTRSV40 EQU CVTAPF 04727000 CVTRV518 EQU CVTINTLA 04728000 CVTRV517 EQU CVTERPV 04729000 CVTEORM EQU CVTMAP+312 04730000 CVTMCHPR EQU CVTMAP+308 04731000 CVTTZ EQU CVTMAP+304 04732000 CVTJEPS EQU CVTMAP+300 04733000 CVTJESCT EQU CVTMAP+296 04734000 CVTMODE EQU CVTMAP+292 04735000 CVTPTRV EQU CVTMAP+288 04736000 CVTREAL EQU CVTMAP+284 04737000 CVTRSV39 EQU CVTMAP+280 04738000 CVTRSV38 EQU CVTMAP+276 04739000 CVTDMSRA EQU CVTDMSR+1 04740000 CVTRV634 EQU CVTDMSRF 04741000 CVTRV633 EQU CVTDMSRF 04742000 CVTRV632 EQU CVTDMSRF 04743000 CVTRV631 EQU CVTDMSRF 04744000 CVTRV630 EQU CVTDMSRF 04745000 CVTRV629 EQU CVTDMSRF 04746000 CVTUDUMP EQU CVTDMSRF 04747000 CVTSDUMP EQU CVTDMSRF 04748000 CVTQMSGA EQU CVTQMSG+1 04749000 CVTRSV36 EQU CVTQMSG 04750000 CVTAMFF EQU CVTMAP+264 04751000 CVTPURGA EQU CVTPURG+1 04752000 CVTRSV35 EQU CVTPURG 04753000 CVTCBSP EQU CVTMAP+256 04754000 CVTATERA EQU CVTATER+1 04755000 CVTSYST EQU CVTATER 04756000 CVTVOLT2 EQU CVTTAT 04757000 CVTVOLI2 EQU CVTVOLF2 04758000 CVTAQAVB EQU CVTAQAVT+1 04759000 CVTRSV34 EQU CVTTCMFG 04760000 CVTRSV33 EQU CVTTCMFG 04761000 CVTRSV32 EQU CVTTCMFG 04762000 CVTRSV31 EQU CVTTCMFG 04763000 CVTRSV30 EQU CVTTCMFG 04764000 CVTRSV29 EQU CVTTCMFG 04765000 CVTRSV28 EQU CVTTCMFG 04766000 CVTTCRDY EQU CVTTCMFG 04767000 CVTGTFA EQU CVTGTF+1 04768000 CVTRSV27 EQU CVTGTFST 04769000 CVTRNIO EQU CVTGTFST 04770000 CVTUSR EQU CVTGTFST 04771000 CVTRV318 EQU CVTFORM 04772000 CVTRV317 EQU CVTTMODE 04773000 CVTRV316 EQU CVTSTATE 04774000 CVTRV315 EQU CVTGTFS 04775000 CVTGTFAV EQU CVTGTFS 04776000 CVT0SCR1 EQU CVTMAP+232 04777000 CVTRV515 EQU CVTMAP+228 04778000 CVTRMS EQU CVTMAP+224 04779000 CVTPATCH EQU CVTMAP+220 04780000 CVTTSCE EQU CVTMAP+216 04781000 CVTLNKSC EQU CVTMAP+214 04782000 CVTQABST EQU CVTMAP+212 04783000 CVTMDLDS EQU CVTMAP+208 04784000 CVTUSER EQU CVTMAP+204 04785000 CVTABEND EQU CVTMAP+200 04786000 CVTSMCA EQU CVTMAP+196 04787000 CVTRSV18 EQU CVTMAP+192 04788000 CVTQLPAQ EQU CVTMAP+188 04789000 CVTQCDSR EQU CVTMAP+184 04790000 CVTRSV17 EQU CVTOPTB 04791000 CVTRSV16 EQU CVTOPTB 04792000 CVTFP EQU CVTOPTB 04793000 CVTAPTHR EQU CVTOPTB 04794000 CVTNLOG EQU CVTOPTB 04795000 CVTTOD EQU CVTOPTB 04796000 CVTCTIMS EQU CVTOPTB 04797000 CVTPROT EQU CVTOPTB 04798000 CVTXPFP EQU CVTOPTA 04799000 CVTASCII EQU CVTOPTA 04800000 CVTRSV13 EQU CVTOPTA 04801000 CVTRSV12 EQU CVTOPTA 04802000 CVTNIP EQU CVTOPTA 04803000 CVTDDR EQU CVTOPTA 04804000 CVTAPR EQU CVTOPTA 04805000 CVTCCH EQU CVTOPTA 04806000 CVTSNCTR EQU CVTMAP+180 04807000 CVTQMWR EQU CVTMAP+176 04808000 CVTQOCR EQU CVTMAP+172 04809000 CVT1EF00 EQU CVTMAP+168 04810000 CVTMZ00 EQU CVTMAP+164 04811000 CVTSV76Q EQU CVTSV76C 04812000 CVTRSV11 EQU CVTMAP+156 04813000 CVT0PT01 EQU CVTMAP+152 04814000 CVTMSER EQU CVTMAP+148 04815000 CVTRV516 EQU CVTIERLC 04816000 CVTILCH EQU CVTMAP+140 04817000 CVT0DS EQU CVTMAP+136 04818000 CVTFBOSV EQU CVTMAP+132 04819000 CVTNUCB EQU CVTMAP+128 04820000 CVTIXAVL EQU CVTMAP+124 04821000 CVTSV76M EQU CVTIOQET 04822000 CVTDCBA EQU CVTMAP+117 04823000 CVTMVS2 EQU CVTDCB 04824000 CVT6DAT EQU CVTDCB 04825000 CVT4MPS EQU CVTDCB 04826000 CVTRSV09 EQU CVTDCB 04827000 CVT4MS1 EQU CVTDCB 04828000 CVT2SPS EQU CVTDCB 04829000 CVT1SSS EQU CVTDCB 04830000 CVTRSV08 EQU CVTDCB 04831000 CVTSTB EQU CVTMAP+112 04832000 CVTQTD00 EQU CVTMAP+108 04833000 CVTQTE00 EQU CVTMAP+104 04834000 CVTCUCB EQU CVTMAP+100 04835000 CVTSJQ EQU CVTMAP+96 04836000 CVTPBLDL EQU CVTMAP+92 04837000 CVTTPC EQU CVTMAP+88 04838000 CVTSVDCB EQU CVTMAP+84 04839000 CVTBRET EQU CVTMAP+82 04840000 CVTEXIT EQU CVTMAP+80 04841000 CVT0FN00 EQU CVTMAP+76 04842000 CVTDARA EQU CVTDAR+1 04843000 CVTRSV07 EQU CVTFLGS1 04844000 CVTRSV06 EQU CVTFLGS1 04845000 CVTRSV05 EQU CVTFLGS1 04846000 CVTRSV04 EQU CVTFLGS1 04847000 CVTRSV03 EQU CVTFLGS1 04848000 CVTRSV02 EQU CVTFLGS1 04849000 CVTRSV01 EQU CVTFLGS1 04850000 CVTDMPLK EQU CVTFLGS1 04851000 CVTXITP EQU CVTMAP+68 04852000 CVTZDTAB EQU CVTMAP+64 04853000 CVTMSLT EQU CVTMAP+60 04854000 CVTDATE EQU CVTMAP+56 04855000 CVTBTERM EQU CVTMAP+52 04856000 CVTSYSAD EQU CVTMAP+48 04857000 CVTXTLER EQU CVTMAP+44 04858000 CVTILK2 EQU CVTMAP+40 04859000 CVTILK1 EQU CVTMAP+36 04860000 CVTPRLTV EQU CVTMAP+32 04861000 CVTPCNVT EQU CVTMAP+28 04862000 CVT0VL00 EQU CVTMAP+24 04863000 CVTXAPG EQU CVTMAP+20 04864000 CVTBUF EQU CVTMAP+16 04865000 CVTJOB EQU CVTMAP+12 04866000 CVTLINK EQU CVTMAP+8 04867000 CVT0EF00 EQU CVTMAP+4 04868000 CVTTCBP EQU CVTMAP 04869000 CVT EQU CVTMAP 04870000 ASVTEND EQU ASVT+528 04871000 ASVTAVAL EQU ASVTENTY 04872000 ASVTAVAI EQU ASVTFRST 04873000 ASVTRS00 EQU ASVT+520 04874000 ASVTMAXU EQU ASVT+516 04875000 ASVTASVT EQU ASVT+512 04876000 ASVTBEGN EQU ASVT+512 04877000 @NM00241 EQU ASVT 04878000 ASCBEND EQU ASCB+208 04879000 ASCBSRBT EQU ASCB+200 04880000 ASCBSWTL EQU ASCB+196 04881000 ASCBRS14 EQU ASCB+195 04882000 ASCBSMCT EQU ASCB+194 04883000 ASCBRS12 EQU ASCB+192 04884000 ASCBPCTT EQU ASCB+188 04885000 ASCBVGTT EQU ASCB+184 04886000 ASCBLGCB EQU ASCB+180 04887000 ASCBJBNS EQU ASCB+176 04888000 ASCBJBNI EQU ASCB+172 04889000 ASCBMCC EQU ASCB+168 04890000 ASCBRTWA EQU ASCB+164 04891000 ASCBIQEA EQU ASCB+160 04892000 ASCBXMPQ EQU ASCB+156 04893000 ASCBRS01 EQU ASCB+154 04894000 ASCBFMCT EQU ASCB+152 04895000 ASCBOUXB EQU ASCB+148 04896000 ASCBOUCB EQU ASCB+144 04897000 ASCBMECB EQU ASCB+140 04898000 ASCBQECB EQU ASCB+136 04899000 ASCBCMSB EQU ASCB+132 04900000 ASCBCMSF EQU ASCB+128 04901000 ASCBTCBS EQU ASCB+124 04902000 ASCBNVSC EQU ASCB+122 04903000 ASCBVSC EQU ASCB+120 04904000 ASCBSRBS EQU ASCB+118 04905000 ASCBSSRB EQU ASCB+116 04906000 ASCBRV06 EQU ASCBFLG2 04907000 ASCBRV05 EQU ASCBFLG2 04908000 ASCBRV04 EQU ASCBFLG2 04909000 ASCBSNQS EQU ASCBFLG2 04910000 ASCBS2S EQU ASCBFLG2 04911000 ASCBCEXT EQU ASCBFLG2 04912000 ASCBPXMT EQU ASCBFLG2 04913000 ASCBXMPT EQU ASCBFLG2 04914000 ASCBRF07 EQU ASCBDSP1 04915000 ASCBRF06 EQU ASCBDSP1 04916000 ASCBRF05 EQU ASCBDSP1 04917000 ASCBRF04 EQU ASCBDSP1 04918000 ASCBRF03 EQU ASCBDSP1 04919000 ASCBRF02 EQU ASCBDSP1 04920000 ASCBFAIL EQU ASCBDSP1 04921000 ASCBNOQ EQU ASCBDSP1 04922000 ASCBSWCT EQU ASCB+112 04923000 ASCBASXB EQU ASCB+108 04924000 ASCBTMCH EQU ASCB+104 04925000 ASCBNSWP EQU ASCBFLG1 04926000 ASCBTYP1 EQU ASCBFLG1 04927000 ASCBSTND EQU ASCBFLG1 04928000 ASCBABNT EQU ASCBFLG1 04929000 ASCBTERM EQU ASCBFLG1 04930000 ASCBS3S EQU ASCBFLG1 04931000 ASCBCMSH EQU ASCBFLG1 04932000 ASCBTOFF EQU ASCBFLG1 04933000 ASCBRF01 EQU ASCBRCTF 04934000 ASCBTMLW EQU ASCBRCTF 04935000 ASCBOUT EQU ASCBRCTF 04936000 ASCBWAIT EQU ASCBRCTF 04937000 ASCBRV08 EQU ASCBRCTF 04938000 ASCBFQU EQU ASCBRCTF 04939000 ASCBFRS EQU ASCBRCTF 04940000 ASCBTMNO EQU ASCBRCTF 04941000 ASCBAFFN EQU ASCBFW1 04942000 ASCBDUMP EQU ASCB+96 04943000 ASCBQSVC EQU ASCB+92 04944000 ASCBUBET EQU ASCB+88 04945000 ASCBECB EQU ASCB+84 04946000 ASCBJSTL EQU ASCB+80 04947000 ASCBEWST EQU ASCB+72 04948000 ASCBEJST EQU ASCB+64 04949000 ASCBCSCB EQU ASCB+56 04950000 ASCBRSM EQU ASCB+52 04951000 ASCBLDA EQU ASCB+48 04952000 ASCBSTOR EQU ASCB+44 04953000 ASCBDP EQU ASCB+43 04954000 ASCBRV07 EQU ASCB+42 04955000 ASCBIOSM EQU ASCB+40 04956000 ASCBSEQN EQU ASCB+38 04957000 ASCBASID EQU ASCB+36 04958000 ASCBCPUS EQU ASCB+32 04959000 ASCBSPL EQU ASCB+28 04960000 ASCBLSLQ EQU ASCB+24 04961000 ASCBFSLQ EQU ASCB+20 04962000 ASCBIOSP EQU ASCB+16 04963000 ASCBLOCK EQU ASCB+12 04964000 ASCBBWDP EQU ASCB+8 04965000 ASCBFWDP EQU ASCB+4 04966000 ASCBASCB EQU ASCB 04967000 ASCBEGIN EQU ASCB 04968000 TSBEND EQU TSB+104 04969000 @NM00240 EQU TSB+100 04970000 TSBEXTNT EQU TSB+96 04971000 TSBPSWD EQU TSB+88 04972000 TSBLECB EQU TSBMINL 04973000 TSBLINE EQU TSB+82 04974000 TSBSTAX EQU TSB+81 04975000 TSBATTNC EQU TSB+80 04976000 TSBF1V EQU TSBTPOST+7 04977000 TSBF1M EQU TSBTPOST+6 04978000 TSBF2V EQU TSBTPOST+5 04979000 TSBF2M EQU TSBTPOST+4 04980000 TSBFLAGV EQU TSBTPOST+3 04981000 TSBFLAGM EQU TSBTPOST+2 04982000 @NM00239 EQU TSBTPOST+1 04983000 @NM00238 EQU TSBTPFLG 04984000 @NM00237 EQU TSBTPFLG 04985000 @NM00236 EQU TSBTPFLG 04986000 @NM00235 EQU TSBTPFLG 04987000 TSBNEWID EQU TSBTPFLG 04988000 TSBTPAYI EQU TSBTPFLG 04989000 TSBTPQCB EQU TSBTPFLG 04990000 TSBPOSTO EQU TSBTPFLG 04991000 TSBLINKB EQU TSBLINKA+1 04992000 TSBPRI EQU TSBLINKA 04993000 TSBRQCB EQU TSBRCB 04994000 TSBCTCB EQU TSB+60 04995000 TSBERSDS EQU TSB+56 04996000 TSBAUTOI EQU TSB+52 04997000 TSBAUTOS EQU TSB+48 04998000 TSBATNCC EQU TSB+44 04999000 TSBASRCE EQU TSB+42 05000000 TSBHLDL EQU TSBFLG4 05001000 TSBGETBF EQU TSBFLG4 05002000 TSBCANC EQU TSBFLG4 05003000 TSBHOLD EQU TSBFLG4 05004000 TSBHUNG EQU TSBFLG4 05005000 TSBOWAIT EQU TSBFLG4 05006000 TSBIWAIT EQU TSBFLG4 05007000 TSBOCAB EQU TSBFLG4 05008000 TSBLNNO EQU TSB+40 05009000 TSBATNLC EQU TSB+36 05010000 TSBCHDCC EQU TSBSTCC+1 05011000 TSBLNDCC EQU TSBSTCC 05012000 TSBWTJID EQU TSB+32 05013000 TSBECB EQU TSB+28 05014000 TSBC1050 EQU TSBTERM2 05015000 @NM00234 EQU TSBTERM2 05016000 @NM00233 EQU TSBTERM2 05017000 @NM00232 EQU TSBTERM2 05018000 @NM00231 EQU TSBTERM2 05019000 TSBCTWX EQU TSBTERM2 05020000 @NM00230 EQU TSBTERM2 05021000 @NM00229 EQU TSBTERM2 05022000 @NM00228 EQU TSBTERM1 05023000 @NM00227 EQU TSBTERM1 05024000 @NM00226 EQU TSBTERM1 05025000 TSBC2741 EQU TSBTERM1 05026000 TSBC5041 EQU TSBTERM1 05027000 TSBCATTN EQU TSBTERM1 05028000 TSBCBRK EQU TSBTERM1 05029000 TSBCIHBN EQU TSBTERM1 05030000 TSBVTAM EQU TSBFLG5 05031000 TSBKEYS EQU TSBFLG5 05032000 @NM00225 EQU TSBFLG5 05033000 TSBATMP EQU TSBFLG5 05034000 TSBNOBRK EQU TSBFLG3 05035000 TSBTPUT EQU TSBFLG3 05036000 TSBAWOIP EQU TSBFLG3 05037000 TSBNBKSP EQU TSBFLG3 05038000 TSBSPIT EQU TSBFLG3 05039000 TSBTJMSG EQU TSBFLG3 05040000 TSBATTN EQU TSBFLG3 05041000 TSBIBFP EQU TSB+21 05042000 TSBNIBF EQU TSB+20 05043000 TSBITBFP EQU TSB+17 05044000 TSBSATN2 EQU TSBFLG2 05045000 TSBSATN1 EQU TSBFLG2 05046000 TSBSTAUT EQU TSBFLG2 05047000 TSBAUTOC EQU TSBFLG2 05048000 TSBAULST EQU TSBFLG2 05049000 TSBBRKIN EQU TSBFLG2 05050000 TSBAUTON EQU TSBFLG2 05051000 TSBBIPI EQU TSBFLG2 05052000 TSBOBFP EQU TSB+13 05053000 TSBNOBF EQU TSB+12 05054000 TSBOTBFP EQU TSB+9 05055000 TSBLNSZ EQU TSB+8 05056000 TSBWTCB EQU TSB+5 05057000 TSBTJBF EQU TSBFLG1 05058000 TSBTJIP EQU TSBFLG1 05059000 TSBTJOW EQU TSBFLG1 05060000 TSBIFLSH EQU TSBFLG1 05061000 TSBWOWIP EQU TSBFLG1 05062000 TSBOWIP EQU TSBFLG1 05063000 TSBOFLSH EQU TSBFLG1 05064000 TSBANSR EQU TSBFLG1 05065000 TSBASCB EQU TSBASCBA+1 05066000 TSBATNLD EQU TSBSTAT 05067000 TSB3270 EQU TSBSTAT 05068000 TSBDISC EQU TSBSTAT 05069000 TSBITOFF EQU TSBSTAT 05070000 TSBNOBUF EQU TSBSTAT 05071000 TSBDSPLY EQU TSBSTAT 05072000 TSBLWAIT EQU TSBSTAT 05073000 TSBINUSE EQU TSBSTAT 05074000 TSWDSAV EQU IEDQTSW+46 05075000 TSWMSGNL EQU IEDQTSW+44 05076000 TSWTSCUR EQU IEDQTSW+40 05077000 TSWFRCT EQU IEDQTSW+36 05078000 TSWTOCT EQU IEDQTSW+32 05079000 TSWLAST EQU IEDQTSW+31 05080000 TSWFIRST EQU IEDQTSW+30 05081000 TSWNMVCT EQU TSWEFLG2 05082000 TSWHDRF EQU TSWEFLG2 05083000 TSWRDAP EQU TSWEFLG2 05084000 TSWLNCT EQU TSWEFLG2 05085000 TSWNLCRF EQU TSWEFLG2 05086000 TSWPRMPT EQU TSWEFLG2 05087000 TSW1050 EQU TSWEFLG2 05088000 TSW3705 EQU TSWEFLG2 05089000 TSWETXF EQU TSWEFLG1 05090000 TSWEOTF EQU TSWEFLG1 05091000 TSWINCF EQU TSWEFLG1 05092000 TSWSYN EQU TSWEFLG1 05093000 TSWRECAL EQU TSWEFLG1 05094000 TSWRESF EQU TSWEFLG1 05095000 TSWPRTMV EQU TSWEFLG1 05096000 TSWTRLR EQU TSWEFLG1 05097000 TSWCURSV EQU IEDQTSW+26 05098000 TSWNROOM EQU TSWFLG2 05099000 @NM00224 EQU TSWFLG2 05100000 TSWJUSTI EQU TSWFLG1 05101000 TSWFMTI EQU TSWFLG1 05102000 TSWMSGN1 EQU TSWFLG1 05103000 TSWASIS EQU TSWSCCTL 05104000 TSWCTL EQU TSWSCCTL 05105000 TSWTSMSG EQU TSWFLG1 05106000 TSWSWT2 EQU IEDQTSW+23 05107000 TSWWRAF EQU TSWSWT1 05108000 TSWSBAF EQU TSWSWT1 05109000 TSWCRNLF EQU TSWSWT1 05110000 TSWBYPF EQU TSWSWT1 05111000 TSWSFF EQU TSWSWT1 05112000 TSWRDAF EQU TSWSWT1 05113000 TSWC1F EQU TSWSWT1 05114000 TSWC2F EQU TSWSWT1 05115000 TSWLNSZ EQU TSWTSLNS+1 05116000 TSWLNN EQU TSWTSLNS 05117000 TSWCARCT EQU IEDQTSW+19 05118000 TSWFCD EQU IEDQTSW+18 05119000 TSWTCBSZ EQU IEDQTSW+16 05120000 TSWMSGSZ EQU IEDQTSW+14 05121000 TSWTSBSZ EQU IEDQTSW+12 05122000 TSWLINE EQU IEDQTSW+10 05123000 TSWMOVED EQU IEDQTSW+8 05124000 TSWTCBFR EQU IEDQTSW+4 05125000 TSWTSBFR EQU IEDQTSW 05126000 GMDEVCH EQU TSIGMAIN+40 05127000 GMTSSIZ EQU TSIGMAIN+38 05128000 GMTSCNT EQU TSIGMAIN+36 05129000 GMLNSPC EQU TSIGMAIN+34 05130000 GMTCSPC EQU TSIGMAIN+32 05131000 GMCRUNT EQU TSIGMAIN+28 05132000 GMCRBUF EQU TSIGMAIN+24 05133000 GMTCBUF EQU TSIGMAIN+20 05134000 GMTSBUF EQU TSIGMAIN+16 05135000 GMBFRS EQU TSIGMAIN+14 05136000 GMHBFR EQU TSIGMAIN+12 05137000 GMBFUNIT EQU TSIGMAIN+10 05138000 GMBFSIZE EQU TSIGMAIN+8 05139000 GMSATCT EQU TSIGMAIN+6 05140000 GMCARCT EQU TSIGMAIN+4 05141000 GMLNSZ EQU TSIGMAIN+3 05142000 GMLNNO EQU TSIGMAIN+2 05143000 @NM00223 EQU GMCODE 05144000 GMTSO EQU GMCODE 05145000 GMLINE EQU GMCODE 05146000 GMTCAM EQU GMCODE 05147000 @NM00222 EQU GMCODE 05148000 @NM00221 EQU GMFLAG 05149000 GMNUNLCK EQU GMFLAG 05150000 GMFRMAT EQU GMFLAG 05151000 GMINIT EQU GMFLAG 05152000 GMENCIN EQU GMFLAG 05153000 GMENCON EQU GMFLAG 05154000 @NM00220 EQU TSITSW 05155000 TSIAYO02 EQU IEDQTSI+120 05156000 TSIAYO EQU IEDQTSI+116 05157000 TSIRNSCH EQU IEDQTSI+112 05158000 TSI3705 EQU IEDQTSI+108 05159000 TSI270X EQU IEDQTSI+104 05160000 TSI3270 EQU IEDQTSI+100 05161000 TSITSDST EQU IEDQTSI+96 05162000 TSIATTEN EQU IEDQTSI+92 05163000 TSICPBC EQU IEDQTSI+88 05164000 TSICPBI EQU IEDQTSI+84 05165000 TSIDEST EQU IEDQTSI+80 05166000 @NM00219 EQU IEDQTSI+64 05167000 TSIDYDLY EQU IEDQTSI+60 05168000 TSIDYLNK EQU IEDQTSI+57 05169000 TSIDYPRI EQU IEDQTSI+56 05170000 @NM00218 EQU TSIDYQCB+1 05171000 @NM00217 EQU TSIDYQFG 05172000 TSIDYQB EQU TSIDYQFG 05173000 @NM00216 EQU TSIDYQFG 05174000 TSIDYPOS EQU TSIDYQFG 05175000 @NM00215 EQU TSIDYQFG 05176000 TSIHALT EQU IEDQTSI+48 05177000 TSITSAP EQU IEDQTSI+40 05178000 TSITSBQ EQU IEDQTSI+36 05179000 TSIBUFQ EQU IEDQTSI+32 05180000 TSISCHED EQU IEDQTSI+28 05181000 TSIHANG EQU IEDQTSI+20 05182000 TSIEDIT EQU IEDQTSI+16 05183000 TSISTAE EQU IEDQTSI+12 05184000 TSINPUT EQU IEDQTSI+8 05185000 TSILINK EQU IEDQTSI+5 05186000 TSIPRI EQU IEDQTSI+4 05187000 TSIELCHN EQU IEDQTSI+1 05188000 @NM00214 EQU TSIFLAG 05189000 TSIQCB EQU TSIFLAG 05190000 @NM00213 EQU TSIFLAG 05191000 TSIPOST EQU TSIFLAG 05192000 @NM00212 EQU TSIFLAG 05193000 TRMOPT EQU IEDTRM+34 05194000 TRMOPTBL EQU IEDQTRM+18 05195000 TRMOPNO EQU IEDQTRM+17 05196000 TRMSENSE EQU TRMSTAT+3 05197000 TRMTEMPR EQU TRMSTAT+2 05198000 TRMSIO EQU TRMSTAT 05199000 @NM00208 EQU TRMDEVFL+1 05200000 TRMTPIN EQU TRMDEVFL+1 05201000 TRMNCPI EQU TRMDEVFL+1 05202000 TRMRNTRM EQU TRMDEVFL+1 05203000 @NM00207 EQU TRMDEVFL+1 05204000 TRMLMD EQU TRMDEVFL+1 05205000 TRMCONC EQU TRMDEVFL+1 05206000 TRMTSOB EQU TRMDEVFL 05207000 TRMBFDY EQU TRMDEVFL 05208000 TRMTBLK EQU TRMDEVFL 05209000 TRMSBLK EQU TRMDEVFL 05210000 TRMBLKS EQU TRMDEVFL 05211000 TRMADDC EQU TRMDEVFL 05212000 TRMDDIG EQU TRMDEVFL 05213000 TRMBUFS EQU TRMDEVFL 05214000 TRMPRILK EQU TRMALTD 05215000 TRMLGB EQU TRMDSORG 05216000 TRMUTERM EQU TLISTCNT 05217000 TRMSCNYN EQU TRMSTATE 05218000 TRMOPTFN EQU TRMSTATE 05219000 TRMHELDN EQU TRMSTATE 05220000 TRMACPTN EQU TRMSTATE 05221000 TRMPROC EQU TRMLOG 05222000 TRMLIST EQU TRMLOG 05223000 TRMLINE EQU TRMSTATE 05224000 TRMSUBST EQU IEDNTRM+12 05225000 TRMRLMCT EQU IEDNTRM+10 05226000 TRMCOHTG EQU TRMSIBPT+1 05227000 TRMGPCNT EQU TRMSIBPT 05228000 TRMBUFRD EQU TRMBYTE0 05229000 TRMGP EQU TRMBYTE0 05230000 @NM00206 EQU TRMBYTE0 05231000 TRMOUTPT EQU TRMBYTE0 05232000 TRMINPUT EQU TRMBYTE0 05233000 TRMUDEF EQU TRMBYTE0 05234000 TRMCOHRT EQU IEDNTRM+4 05235000 TRMSTOTE EQU TRMBYTE1 05236000 TRMCKPRN EQU TRMBYTE1 05237000 TRMTRACE EQU TRMBYTE1 05238000 TRMSWBCK EQU TRMBYTE1 05239000 TRMAUTOC EQU TRMBYTE1 05240000 TRMNOSND EQU TRMBYTE2 05241000 TRMGPACT EQU TRMBYTE2 05242000 TRMANDL EQU TRMBYTE2 05243000 TRMCLOSN EQU TRMINPG 05244000 TRMREMB EQU TRMBYTE2 05245000 TRMRSACT EQU TRMBYTE2 05246000 @NM00205 EQU TTHTAG1 05247000 TTHTAGS EQU TTHTAG1 05248000 TTHBYTE1 EQU IEDTH+1 05249000 @NM00204 EQU TTHBYTE0 05250000 TCXEND EQU IEDQTCXD+224 05251000 TCXNCPIO EQU IEDQTCXD+220 05252000 TCXACTE8 EQU TCXQE8 05253000 TCXABEPL EQU IEDQTCXD+212 05254000 TCXSRBS EQU IEDQTCXD+208 05255000 TCXSIOSB EQU IEDQTCXD+204 05256000 TCXESAVE EQU IEDQTCXD+132 05257000 TCXERPPM EQU IEDQTCXD+128 05258000 TCXERPSV EQU IEDQTCXD+116 05259000 TCXSATTN EQU IEDQTCXD+112 05260000 @NM00203 EQU TCXDSAVE+4 05261000 @NM00202 EQU TCXDSAVE 05262000 TCXPLCB EQU IEDQTCXD+100 05263000 TCXBITS EQU IEDQTCXD+98 05264000 TCXSCBSZ EQU IEDQTCXD+97 05265000 TCXBIT1 EQU IEDQTCXD+96 05266000 TCXCOMPT EQU IEDQTCXD+92 05267000 TCXAVAIL EQU IEDQTCXD+88 05268000 TCXBUFL EQU IEDQTCXD+84 05269000 TCXTOTE EQU TCXBUFA 05270000 TCXCKPM EQU IEDQTCXD+79 05271000 TCXNCKPR EQU IEDQTCXD+78 05272000 TCXSZAIB EQU IEDQTCXD+76 05273000 TCXAIBC EQU IEDQTCXD+72 05274000 TCXPEBC EQU IEDQTCXD+68 05275000 TCXPEWAC EQU IEDQTCXD+64 05276000 TCXQRQ EQU IEDQTCXD+60 05277000 TCXOCQ EQU IEDQTCXD+56 05278000 TCXPNTQ EQU IEDQTCXD+52 05279000 TCXPUTQ EQU IEDQTCXD+48 05280000 TCXGETQ EQU IEDQTCXD+44 05281000 TCXTSI EQU IEDQTCXD+40 05282000 TCXCC3TS EQU IEDQTCXD+35 05283000 TCXAPDMP EQU TCXFLAG1 05284000 TCXAPPL EQU TCXFLAG1 05285000 TCXRTM EQU TCXFLAG1 05286000 TCXMCPCD EQU TCXFLAG1 05287000 TCXAUTH EQU TCXFLAG1 05288000 TCXASID EQU IEDQTCXD+32 05289000 TCXASCB EQU IEDQTCXD+28 05290000 TCXREADY EQU IEDQTCXD+24 05291000 TCXPASWD EQU IEDQTCXD+16 05292000 TCXDISP EQU IEDQTCXD+12 05293000 TCXTCB EQU IEDQTCXD+8 05294000 TCXATTLN EQU TCXATTEN 05295000 TCXAVT EQU IEDQTCXD 05296000 STMHOPT EQU IEDSTMH+18 05297000 STMHCOPO EQU STMHLMOP 05298000 STMHLOPO EQU IEDSTMH+16 05299000 STMHROUT EQU IEDSTMH+13 05300000 STMHLMD EQU STMHAEIX 05301000 STMHLMDO EQU STMHAEIX 05302000 @NM00201 EQU STMHAEIX 05303000 STMHSTCB EQU IEDSTMH+9 05304000 STMHLENG EQU IEDSTMH+8 05305000 STMHTSO EQU IEDSTMH+5 05306000 STMHLOP EQU STMHFLG2 05307000 STMHLOG EQU STMHFLG2 05308000 STMHCOP EQU STMHFLG2 05309000 STMHCONV EQU STMHFLG2 05310000 STMHSTC EQU STMHFLG2 05311000 STMHCONT EQU STMHFLG2 05312000 STMHLCIN EQU STMHFLG2 05313000 STCBLINK EQU IEDQSTCB+5 05314000 STCBPRI EQU IEDQSTCB+4 05315000 STCBTCIN EQU IEDQSTCB+2 05316000 STCBINDX EQU IEDQSTCB+1 05317000 @NM00200 EQU SIBBIND3 05318000 SIBCRES EQU SIBBIND3 05319000 SIBSPKR EQU SIBBIND3 05320000 SIBRECOV EQU SIBBIND3 05321000 SIBALT EQU SIBBIND2 05322000 SIBBTERM EQU SIBBIND2 05323000 SIBBRACK EQU SIBBIND2 05324000 SIBFMUSE EQU SIBBIND2 05325000 SIBSEBI EQU SIBBIND2 05326000 SIBSCMP EQU SIBBIND2 05327000 SIBSEXC EQU SIBBIND2 05328000 SIBSDEF EQU SIBBIND2 05329000 SIBSRQM EQU SIBBIND1 05330000 SIBSCHNG EQU SIBBIND1 05331000 SIBPEBI EQU SIBBIND1 05332000 SIBPCMP EQU SIBBIND1 05333000 SIBPEXC EQU SIBBIND1 05334000 SIBPDEF EQU SIBBIND1 05335000 SIBPRQM EQU SIBBIND1 05336000 SIBPCHN EQU SIBBIND1 05337000 SIBFMPRO EQU IEDSIBD+19 05338000 SIBTSPRO EQU IEDSIBD+18 05339000 @NM00199 EQU SIBSTAT2 05340000 SIBDACLU EQU SIBSTAT2 05341000 SIBRDSCN EQU SIBSTAT2 05342000 SIBTERM EQU SIBSTAT2 05343000 SIBUSS EQU SIBSTAT2 05344000 SIBRTRP EQU SIBSTAT1 05345000 SIBFTERM EQU SIBSTAT1 05346000 SIBRQEND EQU SIBSTAT1 05347000 SIBRQSHT EQU SIBSTAT1 05348000 SIBSEQO EQU SIBSEQN+2 05349000 SIBSEQI EQU SIBSEQN 05350000 SIBNCNT EQU SIBPACIN 05351000 SIBMCNT EQU SIBPACIN 05352000 SIBDSTAT EQU SIBSESSN 05353000 SIBSSTAT EQU SIBSESSN 05354000 SIBINBIU EQU SIBSESSN 05355000 SIBSHUTC EQU SIBSESSN 05356000 SIBCHAIN EQU IEDSIBD+4 05357000 SIBRUSEG EQU IEDSIBD 05358000 SCBTRANS EQU IEDQSCB+81 05359000 SCBUNTCT EQU IEDQSCB+80 05360000 SCBEOB EQU IEDQSCB+78 05361000 SCBNXCPB EQU SCBCCSEG 05362000 SCBNHDR EQU SCBCHDR 05363000 SCBCRCD EQU IEDQSCB+69 05364000 SCBTQBCK EQU SCBNTXT 05365000 SCBOSEQ EQU SCBSCAN 05366000 SCBXTRA EQU SCBCORE 05367000 SCBNOPST EQU SCBSTAT1 05368000 SCBNIDLE EQU SCBSTAT1 05369000 SCBCEND EQU SCBSTAT1 05370000 SCBCBGN EQU SCBSTAT1 05371000 SCBSIZE EQU IEDQSCB+58 05372000 SCBSRCE EQU IEDQSCB+56 05373000 SCBDEOB EQU IEDQSCB+52 05374000 SCBFEFO EQU SCBDCSEG 05375000 SCBCTBND EQU SCBBLKCT 05376000 SCBSCHDR EQU SCBCLSEG 05377000 SCBHBFNO EQU IEDQSCB+44 05378000 SCBSCSEG EQU SCBDNSEG 05379000 SCBBCTR EQU SCBCTBSV 05380000 SCBCCHDR EQU IEDQSCB+37 05381000 SCBDESTL EQU IEDQSCB+36 05382000 SCBDCHDR EQU IEDQSCB+33 05383000 SCBCPBNO EQU IEDQSCB+32 05384000 SCBMBSSA EQU IEDQSCB+25 05385000 SCBMLMTN EQU SCBBSCFM 05386000 SCBNOEOT EQU SCBBSCFM 05387000 @NM00198 EQU SCBBSCFM 05388000 SCBNPDTR EQU SCBDATEN 05389000 SCBCNTEN EQU SCBBSCFM 05390000 SCBRCVTX EQU SCBBSCFM 05391000 SCBNONTR EQU SCBBSCFM 05392000 SCBTRNSP EQU SCBBSCFM 05393000 SCBENDCR EQU SCBCTBAC+1 05394000 SCBCRLEN EQU SCBCTBAC 05395000 SCBMRFSD EQU IEDQSCB+20 05396000 SCBUNDFN EQU SCBERR4 05397000 SCBSTERN EQU SCBCHANN 05398000 SCBCPMEN EQU SCBCTLUN 05399000 @NM00197 EQU SCBERR4 05400000 SCBTRMLN EQU SCBERR4 05401000 SCBCONNN EQU SCBERR4 05402000 SCBAPERR EQU SCBTXTTN 05403000 SCBSLCTN EQU SCBERR4 05404000 SCBPERRN EQU SCBXCEPN 05405000 SCBTHRSN EQU SCBATTN 05406000 SCBFIERN EQU SCBFORMN 05407000 SCBUSERN EQU SCBERR3 05408000 SCBSATTN EQU SCBERR3 05409000 SCBTMINN EQU SCBERR3 05410000 SCBXPD EQU SCBTMIDN 05411000 SCBXPI EQU SCBLOSTN 05412000 SCBSOHE EQU SCBERR2 05413000 SCBFRWDN EQU SCBERR2 05414000 SCBRRJN EQU SCBABRTN 05415000 SCBOLTR EQU SCBERR2 05416000 SCBALN EQU SCBERR2 05417000 SCBCODER EQU SCBERR2 05418000 SCBCRMAX EQU SCBERR2 05419000 SCBCRMIN EQU SCBERR2 05420000 SCBRVISL EQU SCBCUTFN 05421000 SCBNOBFN EQU SCBERR1 05422000 @NM00196 EQU SCBERR1 05423000 SCBNOVAC EQU SCBSEQLN 05424000 SCBNOTSO EQU SCBSEQHN 05425000 SCBRVITX EQU SCBNOTRM 05426000 SCBHANG EQU SCBORIGN 05427000 SCBNOLOG EQU SCBHDRRN 05428000 SCBMRFPL EQU IEDQSCB+13 05429000 SCBBFMM EQU SCBQTYPE 05430000 SCBBBFTM EQU SCBQTYPE 05431000 SCBNOFF EQU SCBQTYPE 05432000 SCBCONC EQU SCBQTYPE 05433000 SCBNREUS EQU SCBQTYPE 05434000 SCBREUS EQU SCBQTYPE 05435000 SCBCOREQ EQU SCBQTYPE 05436000 SCBNORCL EQU SCBQTYPE 05437000 SCBCTBSZ EQU SCBEOBSZ 05438000 @NM00195 EQU SCBBKFCT 05439000 SCBPRI EQU IEDQSCB+8 05440000 SCBSNDCT EQU SCBRCVCT 05441000 SCBDESTQ EQU IEDQSCB+1 05442000 SCBCODE EQU SCBSTATE 05443000 SCBPRER EQU SCBSTATE 05444000 SCBCKPT EQU SCBSTATE 05445000 SCBMSGLN EQU SCBSTATE 05446000 SCBERSDS EQU SCBSTATE 05447000 SCBLCK1N EQU SCBSTATE 05448000 SCBMGFMN EQU SCBSEQIN 05449000 SCBTRANP EQU SCBSTATE 05450000 @NM00194 EQU TRHBYTE2 05451000 @NM00193 EQU TRHBYTE2 05452000 @NM00192 EQU TRHBYTE2 05453000 TRHCSI EQU TRHBYTE2 05454000 @NM00191 EQU TRHBYTE2 05455000 TRHPI EQU TRHBYTE1 05456000 @NM00190 EQU TRHBYTE1 05457000 @NM00189 EQU TRHBYTE1 05458000 @NM00188 EQU TRHBYTE1 05459000 TRHER EQU TRHBYTE1 05460000 TRHDR2 EQU TRHBYTE1 05461000 @NM00187 EQU TRHBYTE1 05462000 TRHSDI EQU TRHBYTE0 05463000 TRHFI EQU TRHBYTE0 05464000 @NM00186 EQU TRHBYTE0 05465000 REQRCD2 EQU REQRCDS+1 05466000 REQRCD1 EQU REQRCDS 05467000 REQSWTCH EQU REQROUTE+1 05468000 REQFLAG EQU REQROUTE 05469000 REQRQCBA EQU IEDREQD+9 05470000 REQRPRI EQU IEDREQD+8 05471000 REQLINK EQU IEDREQD+5 05472000 REQPRI EQU IEDREQD+4 05473000 REQQCBA EQU IEDREQD+1 05474000 REQTYPE EQU IEDREQD 05475000 @NM00185 EQU QCBPLCBA 05476000 @NM00184 EQU QCBSTAT1 05477000 QCBNDXRQ EQU QCBSTAT1 05478000 QCBCHAIN EQU IEDNQCB 05479000 QCBPQBCK EQU IEDQPQCB+25 05480000 QCBPRIPQ EQU IEDQPQCB+24 05481000 QCBCFHDR EQU IEDQPQCB+21 05482000 QCBLFEFO EQU IEDQPQCB+18 05483000 QCBFFEFO EQU IEDQPQCB+15 05484000 QCBPREVF EQU QCBINTLF 05485000 QCBINTFF EQU IEDQPQCB+9 05486000 QCBDATSQ EQU QCBFHDTZ+1 05487000 @NM00183 EQU QCBFHDTZ 05488000 @NM00182 EQU QCBPFEFO 05489000 QCBDATFL EQU QCBFHDLZ 05490000 QCBDNHDR EQU IEDQPQCB 05491000 QCBQBACK EQU IEDQQCB+37 05492000 QCBCKPT EQU QCBFLAG 05493000 QCBPROC EQU QCBFLAG 05494000 QCBSDFFO EQU QCBFLAG 05495000 QCBTERMQ EQU QCBFLAG 05496000 QCBRSRV EQU QCBFLAG 05497000 QCBLGBAD EQU QCBDCBAD 05498000 QCBRELLN EQU IEDQQCB+32 05499000 QCBPRLVL EQU QCBPREN 05500000 QCBMSGCT EQU IEDQQCB+26 05501000 QCBEXTO EQU QCBINTVL 05502000 QCBSATLC EQU QCBTSOF2 05503000 QCBSATCH EQU QCBTSOF2 05504000 QCBBUFQ EQU QCBTSOF2 05505000 QCBMTP EQU QCBINHBN 05506000 QCBSCBOF EQU IEDQQCB+20 05507000 QCBTIME EQU QCBSTAT 05508000 QCBCLOCK EQU QCBSTAT 05509000 QCBSCHDL EQU QCBSTAT 05510000 QCBSMODE EQU QCBSTAT 05511000 QCBSEND EQU QCBSTAT 05512000 QCBBUFRD EQU QCBSTAT 05513000 QCBTRMHO EQU QCBSTAT 05514000 QCBEOM EQU QCBSTAT 05515000 QCBHUCT EQU QCBRETCT 05516000 QCBIEND EQU QCBRETCT 05517000 QCBEND EQU QCBRETCT 05518000 QCBNL EQU QCBRETCT 05519000 QCBLOGCT EQU QCBRETCT 05520000 @NM00180 EQU QCBBYTE1 05521000 QCBRITRM EQU QCBBYTE1 05522000 @NM00179 EQU QCBEOLDT 05523000 QCBSLINK EQU IEDQQCB+13 05524000 QCBSTPRI EQU IEDQQCB+12 05525000 QCBSTCHN EQU IEDQQCB+9 05526000 QCBSTVTO EQU IEDQQCB+8 05527000 QCBCNTEN EQU QCBELCHN+2 05528000 @NM00178 EQU QCBELCHN+2 05529000 @NM00177 EQU QCBELCHN 05530000 QCBHELD EQU QCBDSFLG 05531000 QCBFQCB EQU QCBDSFLG 05532000 QCBDRQQ EQU QCBDSFLG 05533000 QCBTSQ EQU QCBDSFLG 05534000 PRF2SEQP EQU PRF2WD2 05535000 @NM00176 EQU IEDPF2+1 05536000 @NM00175 EQU PRF2FLG2 05537000 PRF2TERM EQU PRF2FLG2 05538000 PRF2FORM EQU PRF2FLG2 05539000 PRF1RULN EQU PRF1SEQP+2 05540000 PRF1TAG2 EQU PRF1SQID+1 05541000 @NM00174 EQU PRF1TAG1 05542000 PRF1TAGS EQU PRF1TAG1 05543000 @NM00173 EQU PRF1FLG1 05544000 PRF1LOGD EQU PRF1FLG1 05545000 PRF1USS EQU PRF1FLG1 05546000 PRF1FORM EQU PRF1FLG1 05547000 PRF1EXPI EQU PRF1FLG1 05548000 PRF1FIDI EQU PRF1FLG1 05549000 PRF1RH EQU IEDPF1 05550000 PRFDEST EQU IEDQPRF+40 05551000 PRFISEQ EQU IEDQPRF+38 05552000 PRFSTXT EQU PRFHQBCK 05553000 PRFNHDR EQU PRFCHDR 05554000 PRFCRCD EQU IEDQPRF+29 05555000 PRFSVSEQ EQU PRFNTXT+1 05556000 PRFSVPRI EQU PRFEOBOF 05557000 PRFISIZE EQU PRFSCAN+1 05558000 @NM00172 EQU PRFSCAN 05559000 PRFEOB EQU PRFXTRA+1 05560000 PRFSTSO EQU PRFXTRA 05561000 PRFNHDRN EQU PRFSTAT1 05562000 PRFNLSTN EQU PRFSTAT1 05563000 PRFLOCK EQU PRFEOFN 05564000 PRFDUPLN EQU PRFSTAT1 05565000 PRFTSMSG EQU PRFSTAT1 05566000 PRFITCPN EQU PRFSTAT1 05567000 PRFERMGN EQU PRFSTAT1 05568000 PRFCNCLN EQU PRFSTAT1 05569000 PRFSVFLG EQU @NM00171+3 05570000 PRFSIZE EQU PRFSVFFO+2 05571000 PRFSRCE EQU PRFSVFFO 05572000 PRFLCB EQU IEDQPRF+13 05573000 PRFTI0 EQU PRFTIC+1 05574000 @NM00170 EQU PRFTICC 05575000 @NM00169 EQU PRFTICC 05576000 @NM00168 EQU PRFTICC 05577000 PRFTICON EQU PRFTICC 05578000 @NM00167 EQU PRFTICC 05579000 @NM00166 EQU PRFTICC 05580000 PRFBFMM EQU PRFTICC 05581000 PRFEOMSG EQU PRFTICC 05582000 PRFCOUNT EQU PRFLINK+1 05583000 @NM00165 EQU PRFLINK 05584000 PRFFLAGS EQU PRFPRI 05585000 PRFIOADR EQU PRFQCBA 05586000 PRFOPCDE EQU PRFKEY 05587000 LGBIVLST EQU IEDNLGB+60 05588000 LGBRESV4 EQU LGBRESER+3 05589000 LGBRESV3 EQU LGBRESER+2 05590000 LGBRESV2 EQU LGBRESER+1 05591000 LGBRESV1 EQU LGBRESER 05592000 LGBBUFSI EQU IEDNLGB+54 05593000 @NM00164 EQU IEDNLGB+53 05594000 LGBILCT EQU IEDNLGB+52 05595000 LGBSCTAD EQU IEDNLGB+49 05596000 @NM00163 EQU LGBOFLGS 05597000 LGBOPEN EQU LGBOFLGS 05598000 @NM00162 EQU LGBOFLGS 05599000 LGBNAME EQU IEDNLGB+40 05600000 @NM00161 EQU IEDNLGB+36 05601000 LGBTRANS EQU IEDNLGB+33 05602000 @NM00160 EQU IEDNLGB+32 05603000 @NM00159 EQU IEDNLGB+31 05604000 LGBOPACE EQU IEDNLGB+30 05605000 @NM00158 EQU LGBBYTE 05606000 LGBPACK EQU LGBBYTE 05607000 LGBBUFMA EQU IEDNLGB+28 05608000 LGBDSORG EQU IEDNLGB+26 05609000 @NM00157 EQU LGBPCI 05610000 @NM00156 EQU LGBPCI 05611000 LGBPCINO EQU LGBPCI 05612000 @NM00155 EQU LGBPCI 05613000 LGBPCIAO EQU LGBPCI 05614000 @NM00154 EQU LGBPCI 05615000 @NM00153 EQU LGBPCI 05616000 @NM00152 EQU LGBPCI 05617000 @NM00151 EQU IEDNLGB+24 05618000 LGBMHA EQU IEDNLGB+21 05619000 @NM00150 EQU LGBBUFOU 05620000 LGBPREF EQU LGBBUFOU 05621000 @NM00149 EQU LGBBUFOU 05622000 LGBSUBST EQU IEDNLGB+18 05623000 LGBTYPE EQU IEDNLGB+17 05624000 @NM00148 EQU IEDNLGB 05625000 LCBERADR EQU LCBXRADR+1 05626000 LCBPCIRC EQU LCBXRADR 05627000 LCBDCT3 EQU LCBXDCT+2 05628000 LCBDCT2 EQU LCBXDCT+1 05629000 LCBDCT1 EQU LCBXDCT 05630000 @NM00147 EQU LCBXFLAG 05631000 LCBERPND EQU LCBXFLAG 05632000 LCBSRCPF EQU LCBXFLAG 05633000 LCBGPCTV EQU LCBXFLAG 05634000 @NM00146 EQU LCBXFLAG 05635000 @NM00145 EQU LCBXFLAG 05636000 @NM00144 EQU LCBXFLAG 05637000 @NM00143 EQU LCBXFLAG 05638000 LCBCCW10 EQU LCBCPA+72 05639000 LCBCCW9 EQU LCBCPA+64 05640000 LCBCCW8 EQU LCBCPA+56 05641000 LCBCCW7 EQU LCBCPA+48 05642000 LCBCCW6 EQU LCBCPA+40 05643000 LCBCP EQU LCBQEBPL+4 05644000 LCBIOSB EQU LCBQEBPL+1 05645000 LCBSIO EQU LCBQEBPL 05646000 LCBCCW4 EQU LCBCPA+24 05647000 LCBCCW3 EQU LCBCPA+16 05648000 LCBCCW2 EQU LCBCPA+8 05649000 LCBCCW1 EQU LCBCPA 05650000 @NM00128 EQU LCBERCCW+16 05651000 LCBATL05 EQU LCBERCCW+8 05652000 @NM00127 EQU LCBERCCW 05653000 LCBCSWSV EQU LCBSAVSN+1 05654000 LCBSNSV EQU LCBSAVSN 05655000 LCBBFSNS EQU LCBRSPSV 05656000 LCBWAITC EQU LCBTPCD+5 05657000 LCBINPAK EQU LCBSTAT6 05658000 LCBMHBID EQU LCBSTAT6 05659000 LCBRTRRO EQU LCBSTAT6 05660000 LCBHDRPD EQU LCBSTAT6 05661000 LCBCHN EQU LCBSTAT6 05662000 LCBBFRSV EQU LCBTPCD+1 05663000 @NM00126 EQU LCBSTAT5 05664000 LCBLUS EQU LCBSTAT5 05665000 LCBLUNIT EQU LCBSTAT5 05666000 LCBPERM EQU LCBSTAT5 05667000 LCBNXCMD EQU LCBBFRW 05668000 LCBERMSK EQU LCBOBRCH 05669000 LCBOLT EQU LCBMSGFM 05670000 LCBEOT EQU LCBMSGFM 05671000 LCBENQ EQU LCBMSGFM 05672000 LCBTTD EQU LCBMSGFM 05673000 LCBRSTRT EQU LCBMSGFM 05674000 LCBVSTRT EQU LCBMSGFM 05675000 LCBACKI EQU LCBMSGFM 05676000 LCBNAK EQU LCBMSGFM 05677000 @NM00125 EQU LCBRBCT2 05678000 LCBDCNT EQU LCBRBCT2 05679000 LCBCOMPL EQU LCBDLNKN 05680000 LCBERROR EQU LCBERBST 05681000 LCBLOGDV EQU LCBERBST 05682000 LCBINQ EQU LCBERBST 05683000 LCBRDERR EQU LCBERBST 05684000 LCBEOMSG EQU LCBERBST 05685000 LCBMSG EQU LCBERBST 05686000 LCBERBLK EQU IEDQLCB+81 05687000 LCBERBKY EQU LCBERB 05688000 LCBRECAD EQU IEDQLCB+73 05689000 @NM00124 EQU LCBTSTSW 05690000 @NM00123 EQU LCBTSTSW 05691000 @NM00122 EQU LCBTSTSW 05692000 @NM00121 EQU LCBTSTSW 05693000 @NM00120 EQU LCBTSTSW 05694000 @NM00119 EQU LCBTSTSW 05695000 @NM00118 EQU LCBTSTSW 05696000 LCBCONCT EQU LCBTSTSW 05697000 LCBRESP EQU LCBSTAT2 05698000 LCBBFRAV EQU LCBDIAL 05699000 LCBATTN EQU LCBSYNC 05700000 LCBSNDPR EQU LCBSTAT2 05701000 LCBCONNN EQU LCBBEOTN 05702000 LCBTRACE EQU LCBSTAT2 05703000 LCBOCNI EQU LCBSTAT1 05704000 LCBOCWTN EQU LCBSTAT1 05705000 LCBRECOF EQU IEDQLCB+68 05706000 LCBRDBFR EQU LCBRCBFR 05707000 LCBUCBX EQU IEDQLCB+64 05708000 LCBTTBIN EQU LCBERRCT 05709000 @NM00117 EQU LCBINCAM 05710000 LCBGETMN EQU LCBINCAM 05711000 @NM00116 EQU LCBRESTR+1 05712000 LCBCMDSV EQU LCBRESTR 05713000 LCBPCILK EQU LCBDCBPT 05714000 LCBSTART EQU LCBIOBSN+16 05715000 LCBAP4OL EQU LCBSIOCC 05716000 LCBAP3OL EQU LCBSIOCC 05717000 LCBAP2OL EQU LCBSIOCC 05718000 LCBAP1OL EQU LCBSIOCC 05719000 LCBSIOC2 EQU LCBSIOCC 05720000 LCBSIOC1 EQU LCBSIOCC 05721000 @NM00115 EQU LCBSIOCC 05722000 LCBCSWRC EQU LCBCSW+5 05723000 LCBCSCHC EQU LCBCSWCS 05724000 LCBCSICC EQU LCBCSWCS 05725000 LCBCSCCC EQU LCBCSWCS 05726000 LCBCSCDC EQU LCBCSWCS 05727000 LCBCSPTC EQU LCBCSWCS 05728000 LCBCSPGC EQU LCBCSWCS 05729000 LCBCSIL EQU LCBCSWCS 05730000 LCBCSPCI EQU LCBCSWCS 05731000 LCBUSUE EQU LCBCSWUS 05732000 LCBUSUC EQU LCBCSWUS 05733000 LCBUSDE EQU LCBCSWUS 05734000 LCBUSCE EQU LCBCSWUS 05735000 LCBUSBSY EQU LCBCSWUS 05736000 LCBUSCUE EQU LCBCSWUS 05737000 LCBUSSM EQU LCBCSWUS 05738000 LCBUSAT EQU LCBCSWUS 05739000 LCBCSWCA EQU LCBCSW 05740000 LCBOBR EQU LCBFLAG3 05741000 LCBOBRRD EQU LCBFLAG3 05742000 LCBIOMSG EQU LCBFLAG3 05743000 LCBSOHC EQU LCBFLAG3 05744000 LCBRLAD EQU LCBFLAG3 05745000 LCBSOHR EQU LCBFLAG3 05746000 @NM00114 EQU LCBFLAG3 05747000 LCBECBPT EQU LCBIOBSN+4 05748000 LCBECBCC EQU LCBIOBSN+3 05749000 LCBSENS1 EQU LCBSNS+1 05750000 LCBABORT EQU LCBTMOUT 05751000 LCBNOTIN EQU LCBLOSDT 05752000 LCBOVRUN EQU LCBSENS0 05753000 LCBDATCK EQU LCBSENS0 05754000 LCBEQUCK EQU LCBSENS0 05755000 LCBBUSCK EQU LCBSENS0 05756000 LCBINTRQ EQU LCBSENS0 05757000 LCBCMDRJ EQU LCBSENS0 05758000 LCBFLAG2 EQU LCBIOBSN 05759000 @NM00113 EQU LCBFLAG1 05760000 LCBUNREL EQU LCBFLAG1 05761000 LCBEXCPN EQU LCBFLAG1 05762000 @NM00112 EQU LCBFLAG1 05763000 LCBERPIN EQU LCBFLAG1 05764000 @NM00111 EQU LCBFLAG1 05765000 LCBFSBFR EQU LCBMHA 05766000 LCBISZE EQU IEDQLCB+28 05767000 LCBLNENT EQU LCBSCBDA+1 05768000 @NM00110 EQU LCBSCBDA 05769000 LCBCPGMH EQU LCBSTAT4 05770000 LCBREAL EQU LCBPHASE 05771000 @NM00109 EQU LCBSTAT4 05772000 LCBACTRQ EQU LCBSTAT4 05773000 LCBIPLRQ EQU LCBSTAT4 05774000 LCBDACRQ EQU LCBSTAT4 05775000 LCBDMPRQ EQU LCBSTAT4 05776000 @NM00108 EQU LCBLKMDE 05777000 LCBLOCKI EQU LCBLKMDE 05778000 LCBLOCKR EQU LCBLKMDE 05779000 LCBHMFLG EQU LCBLKMDE 05780000 LCBBDFLG EQU LCBLKMDE 05781000 @NM00107 EQU LCBINSRC 05782000 LCBABRTN EQU LCBCHAIN 05783000 LCBBFRSZ EQU LCBCHAIN 05784000 LCBUREQN EQU LCBCHAIN 05785000 LCBNORTY EQU LCBCHAIN 05786000 LCBERMSG EQU LCBCHAIN 05787000 LCBEXCP EQU LCBCHAIN 05788000 LCBINVRQ EQU LCBSCRNN 05789000 LCB2741N EQU LCBTSOB 05790000 LCBINHBN EQU LCBTSOB 05791000 LCBCIRCD EQU LCBTSOB 05792000 LCBPREP EQU LCBTSOB 05793000 LCBSOPL EQU LCBTSOB 05794000 LCBSATRD EQU LCBTSOB 05795000 LCBWRBRK EQU LCBTSOB 05796000 LCBTDL EQU IEDQLCB+18 05797000 LCBEOLTD EQU IEDQLCB+16 05798000 LCBRSLNK EQU IEDQLCB+13 05799000 LCBRSPRI EQU IEDQLCB+12 05800000 LCBRSKEY EQU IEDQLCB+8 05801000 LCBLINK EQU LCBRCB+5 05802000 LCBKEY EQU LCBRCB 05803000 @NM00106 EQU DCTBYTE5 05804000 DCTL3270 EQU DCTBYTE5 05805000 DCTSCS EQU DCTBYTE5 05806000 DCTTSPRF EQU DCTBYTE4 05807000 DCTFMPRF EQU DCTBYTE4 05808000 DCT2760 EQU DCTBYTE3 05809000 DCTNOIDL EQU DCTBYTE3 05810000 DCTCONTN EQU DCTBYTE3 05811000 DCTBUFF EQU DCTBYTE3 05812000 DCTCHECK EQU DCTBYTE3 05813000 DCTENCTL EQU DCTBYTE3 05814000 DCTWTTA EQU DCTBYTE3 05815000 DCT1050 EQU DCTBYTE3 05816000 DCTAUDIO EQU DCTBYTE2 05817000 DCTLOCAL EQU DCTBYTE2 05818000 DCTCONT EQU DCTBYTE2 05819000 DCTXMIT EQU DCTBYTE2 05820000 DCTBRDST EQU DCTBYTE2 05821000 DCTBISYN EQU DCTBYTE2 05822000 DCTUMASK EQU DCTBYTE1 05823000 DCTSADEV EQU DCTBYTE1 05824000 DCT2741 EQU DCTBYTE1 05825000 DCT5041 EQU DCTBYTE1 05826000 DCTATTEN EQU DCTBYTE1 05827000 DCTBREAK EQU DCTBYTE1 05828000 DCTINHIB EQU DCTBYTE1 05829000 DCTBYTE0 EQU IEDDCT 05830000 BDUXGRPH EQU BDUEXRSP 05831000 BDUXFINL EQU BDUEXRSP 05832000 BDUXINIT EQU BDUEXRSP 05833000 BDURESP EQU BDUSYRSP 05834000 BDUPHASE EQU BDUSYRSP 05835000 BDUERROR EQU BDUSYRSP 05836000 BDUXERLK EQU BDUBDUFG 05837000 BDUALTAK EQU BDUFNFLG 05838000 BDUNEGAK EQU BDUFNFLG 05839000 BDUPOSAK EQU BDUFNFLG 05840000 BDUTPTX EQU BDUFNFLG 05841000 BDUFRSTB EQU BDUFNFLG 05842000 BDULEADG EQU BDUFNFLG 05843000 BDUHEADR EQU BDUFNFLG 05844000 BDUSTHDR EQU BDUFNFLG 05845000 SAVTLLCB EQU IEDNSVTD+316 05846000 SAVTBITN EQU IEDNSVTD+312 05847000 @NM00105 EQU SAVTCKQB+8 05848000 @NM00104 EQU SAVTCKEC+1 05849000 @NM00103 EQU SAVTCKCC 05850000 SAVTCKPO EQU SAVTCKCC 05851000 SAVTCKWA EQU SAVTCKCC 05852000 SAVTCKCH EQU SAVTCKTB+1 05853000 SAVTCKVT EQU SAVTCKTB 05854000 @NM00102 EQU IEDNSVTD+297 05855000 SAVTRDFG EQU SAVTRDRV+12 05856000 @NM00101 EQU SAVTRDRV+5 05857000 SAVTRDPY EQU SAVTRDRV+4 05858000 SAVTRDQB EQU SAVTRDRV+1 05859000 SAVTRDKY EQU SAVTRDRV 05860000 SAVTNID EQU IEDNSVTD+280 05861000 SAVTDVAS EQU IEDNSVTD+276 05862000 SAVTPLSZ EQU IEDNSVTD+274 05863000 @NM00100 EQU IEDNSVTD+273 05864000 SAVTSUBL EQU IEDNSVTD+272 05865000 @NM00099 EQU SAVTZELM+1 05866000 SAVTSUBM EQU SAVTZELM 05867000 SAVTMHDX EQU IEDNSVTD+268 05868000 SAVTNAT1 EQU IEDNSVTD+266 05869000 SAVTSH20 EQU IEDNSVTD+264 05870000 SAVTLCBS EQU IEDNSVTD+260 05871000 SAVTRNMP EQU IEDNSVTD+256 05872000 SAVTTNTX EQU IEDNSVTD+252 05873000 SAVTNAX EQU IEDNSVTD+248 05874000 SAVTSUBV EQU IEDNSVTD+247 05875000 SAVTSUBA EQU IEDNSVTD+246 05876000 SAVTSIBC EQU IEDNSVTD+244 05877000 SAVTBSM EQU IEDNSVTD+240 05878000 SAVTSCPT EQU SAVTTCPU 05879000 SAVTRQTG EQU IEDNSVTD+236 05880000 SAVTRQCH EQU IEDNSVTD+232 05881000 SAVTMAND EQU IEDNSVTD+228 05882000 SAVTSPLN EQU IEDNSVTD+224 05883000 SAVTNADL EQU IEDNSVTD+222 05884000 SAVTNATL EQU IEDNSVTD+220 05885000 SAVTMHTB EQU IEDNSVTD+216 05886000 SAVTSSMH EQU IEDNSVTD+212 05887000 SAVTQRS EQU IEDNSVTD+208 05888000 SAVTRQIN EQU IEDNSVTD+204 05889000 SAVTSARI EQU IEDNSVTD+192 05890000 SAVTSAC EQU IEDNSVTD+188 05891000 SAVTSAI EQU IEDNSVTD+184 05892000 SAVTCSCI EQU IEDNSVTD+180 05893000 SAVTSSRP EQU IEDNSVTD+176 05894000 SAVTSSRQ EQU IEDNSVTD+172 05895000 SAVTSCLU EQU IEDNSVTD+168 05896000 SAVTXTRQ EQU IEDNSVTD+164 05897000 SAVTMVBF EQU IEDNSVTD+160 05898000 @NM00098 EQU IEDNSVTD+148 05899000 SAVTIPCQ EQU IEDNSVTD+144 05900000 @NM00097 EQU IEDNSVTD+136 05901000 SAVTXFMI EQU IEDNSVTD+132 05902000 @NM00096 EQU IEDNSVTD+124 05903000 SAVTXFMO EQU IEDNSVTD+120 05904000 @NM00095 EQU IEDNSVTD+116 05905000 SAVTSSSR EQU IEDNSVTD+112 05906000 SAVTSCPQ EQU IEDNSVTD+108 05907000 SAVTSLCB EQU IEDNSVTD+104 05908000 SAVTLUSR EQU IEDNSVTD+100 05909000 @NM00094 EQU SAVTLUSQ+8 05910000 SAVTLUSP EQU SAVTLUSQ+4 05911000 SAVTLUSB EQU SAVTLUSQ 05912000 @NM00093 EQU IEDNSVTD+84 05913000 SAVTSAT EQU IEDNSVTD+80 05914000 SAVTNAT EQU IEDNSVTD+76 05915000 SAVTCLUP EQU IEDNSVTD+72 05916000 SAVTPIUT EQU IEDNSVTD+68 05917000 SAVTRNTA EQU IEDNSVTD+64 05918000 SAVTDNIR EQU IEDNSVTD+60 05919000 SAVTCNIR EQU IEDNSVTD+56 05920000 SAVTFLDH EQU IEDNSVTD+52 05921000 SAVTSRTN EQU IEDNSVTD+48 05922000 SAVTSREQ EQU IEDNSVTD+44 05923000 SAVTFAIL EQU IEDNSVTD+42 05924000 SAVTSUSE EQU IEDNSVTD+40 05925000 SAVTSIB EQU IEDNSVTD+36 05926000 @NM00092 EQU IEDNSVTD+28 05927000 SAVTWH20 EQU IEDNSVTD+26 05928000 SAVTPWT EQU IEDNSVTD+24 05929000 SAVTPRTQ EQU IEDNSVTD+20 05930000 SAVTPH20 EQU IEDNSVTD+14 05931000 SAVTPUSE EQU IEDNSVTD+12 05932000 SAVTPLCB EQU IEDNSVTD+8 05933000 SAVTPOOL EQU IEDNSVTD+4 05934000 SAVTPRMT EQU SAVTDIAF 05935000 SAVTVIRT EQU SAVTDIAF 05936000 AVTCPBNO EQU IEDQAVTD+1172 05937000 AVTHRESS EQU IEDQAVTD+1171 05938000 @NM00091 EQU IEDQAVTD+1170 05939000 @NM00090 EQU IEDQAVTD+1169 05940000 @NM00089 EQU IEDQAVTD+1168 05941000 @NM00088 EQU IEDQAVTD+1165 05942000 @NM00087 EQU IEDQAVTD+1164 05943000 AVTHRESE EQU @NM00086 05944000 AVTRADDR EQU IEDQAVTD+1156 05945000 AVTNADDR EQU IEDQAVTD+1152 05946000 AVTHRESN EQU IEDQAVTD+1148 05947000 AVTVOLRN EQU IEDQAVTD+1144 05948000 AVTTOTNN EQU IEDQAVTD+1140 05949000 AVTTRCYN EQU IEDQAVTD+1136 05950000 AVTRCTRN EQU IEDQAVTD+1132 05951000 AVTNOVON EQU IEDQAVTD+1128 05952000 AVTADEBN EQU IEDQAVTD+1124 05953000 AVTVOLRR EQU IEDQAVTD+1120 05954000 AVTTOTNR EQU IEDQAVTD+1116 05955000 AVTTRCYR EQU IEDQAVTD+1112 05956000 AVTRCTRR EQU IEDQAVTD+1108 05957000 AVTNOVOR EQU IEDQAVTD+1104 05958000 AVTADEBR EQU IEDQAVTD+1100 05959000 AVTLODPT EQU IEDQAVTD+1096 05960000 AVTIOBN EQU IEDQAVTD+1092 05961000 AVTIOBR EQU IEDQAVTD+1088 05962000 AVTCPBPT EQU IEDQAVTD+1084 05963000 AVTFCPB EQU IEDQAVTD+1080 05964000 @NM00085 EQU IEDQAVTD+1076 05965000 AVTINCPQ EQU IEDQAVTD+1072 05966000 @NM00084 EQU IEDQAVTD+1068 05967000 @NM00083 EQU IEDQAVTD+1065 05968000 @NM00082 EQU AVTBIT4 05969000 @NM00081 EQU AVTBIT4 05970000 @NM00080 EQU AVTBIT4 05971000 @NM00079 EQU AVTBIT4 05972000 @NM00078 EQU AVTBIT4 05973000 @NM00077 EQU AVTBIT4 05974000 @NM00076 EQU AVTBIT4 05975000 AVTRUFTN EQU AVTBIT4 05976000 @NM00075 EQU IEDQAVTD+1060 05977000 AVTNOBFQ EQU IEDQAVTD+1056 05978000 @NM00074 EQU IEDQAVTD+1052 05979000 AVTDKENQ EQU IEDQAVTD+1048 05980000 @NM00073 EQU IEDQAVTD+1044 05981000 AVTDKAPQ EQU IEDQAVTD+1040 05982000 AVTCOPY EQU IEDQAVTD+1036 05983000 AVTIA EQU IEDQAVTD+1032 05984000 AVTFL EQU IEDQAVTD+1028 05985000 @NM00072 EQU IEDQAVTD+1024 05986000 AVTNCPBQ EQU IEDQAVTD+1020 05987000 AVTTOTNC EQU IEDQAVTD+1016 05988000 AVTCMAX EQU IEDQAVTD+1012 05989000 AVTCMIN EQU IEDQAVTD+1008 05990000 AVTHM02 EQU IEDQAVTD+1004 05991000 AVTOPCIN EQU IEDQAVTD+1002 05992000 AVTOPMSK EQU IEDQAVTD+996 05993000 AVTDDFT EQU IEDQAVTD+992 05994000 AVTOPTN EQU IEDQAVTD+984 05995000 AVTDSKCT EQU IEDQAVTD+982 05996000 AVTCKRST EQU IEDQAVTD+981 05997000 AVTSTAN EQU AVTBIT3 05998000 AVTSTACN EQU AVTBIT3 05999000 AVTSTAIN EQU AVTBIT3 06000000 AVTSTAYN EQU AVTBIT3 06001000 AVTOLTBN EQU AVTBIT3 06002000 AVTTSAB EQU AVTBIT3 06003000 AVTRFULN EQU AVTBIT3 06004000 AVTRECVN EQU AVTBIT3 06005000 @NM00071 EQU AVTBIT2 06006000 @NM00070 EQU AVTBIT2 06007000 AVTOPEIN EQU AVTBIT2 06008000 AVTSTRTN EQU AVTBIT2 06009000 AVTTOPOL EQU AVTBIT2 06010000 AVTCOPYN EQU AVTBIT2 06011000 AVTREUSN EQU AVTBIT2 06012000 AVTEXTSC EQU AVTBIT2 06013000 AVTDISKN EQU AVTBIT1 06014000 AVTREADN EQU AVTBIT1 06015000 AVTDLAYN EQU AVTBIT1 06016000 AVTAQTAN EQU AVTBIT1 06017000 AVTTSON EQU AVTBIT1 06018000 AVTAPLKN EQU AVTBIT1 06019000 AVTDUMBR EQU IEDQAVTD+976 06020000 AVTDLQX EQU IEDQAVTD+974 06021000 AVTINTLV EQU IEDQAVTD+972 06022000 AVTSMCNT EQU IEDQAVTD+970 06023000 AVTAVFCT EQU IEDQAVTD+968 06024000 AVTOPCON EQU IEDQAVTD+966 06025000 AVTOPCNT EQU IEDQAVTD+964 06026000 AVTLNCNT EQU IEDQAVTD+962 06027000 AVTKEYLE EQU IEDQAVTD+960 06028000 AVTHA16 EQU IEDQAVTD+958 06029000 AVTHA7 EQU IEDQAVTD+956 06030000 AVTHA4 EQU IEDQAVTD+954 06031000 AVTHA3 EQU IEDQAVTD+952 06032000 AVTHA2 EQU IEDQAVTD+950 06033000 AVTGETMS EQU IEDQAVTD+949 06034000 @NM00069 EQU IEDQAVTD+948 06035000 AVTGETMD EQU IEDQAVTD+944 06036000 AVTGETMN EQU IEDQAVTD+940 06037000 AVTCWTOT EQU IEDQAVTD+936 06038000 AVTCWINT EQU IEDQAVTD+884 06039000 AVTDTRAP EQU IEDQAVTD+880 06040000 @NM00068 EQU IEDQAVTD+878 06041000 @NM00067 EQU AVTIOTR 06042000 AVTIOTRH EQU AVTIOTR 06043000 AVTIOTRE EQU AVTIOTR 06044000 @NM00066 EQU AVTSUBT 06045000 AVTSUBPT EQU AVTSUBT 06046000 AVTSUBON EQU AVTSUBT 06047000 AVTAFE30 EQU IEDQAVTD+872 06048000 AVTAFE20 EQU IEDQAVTD+868 06049000 AVTAFE10 EQU IEDQAVTD+864 06050000 AVTCWEC2 EQU IEDQAVTD+860 06051000 AVTCWPM2 EQU IEDQAVTD+856 06052000 AVTCWTS2 EQU IEDQAVTD+855 06053000 AVTCWTS1 EQU IEDQAVTD+854 06054000 AVTCWCLD EQU AVTCWFL2 06055000 AVTCWRAP EQU AVTCWFL2 06056000 @NM00065 EQU AVTCWFL2 06057000 @NM00064 EQU AVTCWFL2 06058000 @NM00063 EQU AVTCWFL2 06059000 @NM00062 EQU AVTCWFL2 06060000 @NM00061 EQU AVTCWFL2 06061000 AVTCWACT EQU AVTCWFL2 06062000 @NM00060 EQU AVTCWFL1 06063000 @NM00059 EQU AVTCWFL1 06064000 @NM00058 EQU AVTCWFL1 06065000 @NM00057 EQU AVTCWFL1 06066000 @NM00056 EQU AVTCWFL1 06067000 @NM00055 EQU AVTCWFL1 06068000 @NM00054 EQU AVTCWFL1 06069000 AVTCOMWN EQU AVTCWFL1 06070000 AVTCWEC1 EQU IEDQAVTD+848 06071000 AVTCWPM1 EQU IEDQAVTD+844 06072000 AVTCAREA EQU IEDQAVTD+840 06073000 AVTFZERO EQU IEDQAVTD+836 06074000 AVTCADDR EQU IEDQAVTD+832 06075000 AVTCOREC EQU IEDQAVTD+828 06076000 @NM00053 EQU IEDQAVTD+820 06077000 AVTCPBCB EQU IEDQAVTD+816 06078000 @NM00052 EQU IEDQAVTD+808 06079000 AVTDSIOB EQU IEDQAVTD+804 06080000 @NM00051 EQU IEDQAVTD+796 06081000 AVTCPRMB EQU IEDQAVTD+792 06082000 @NM00050 EQU IEDQAVTD+784 06083000 AVTCLOSB EQU IEDQAVTD+780 06084000 @NM00049 EQU IEDQAVTD+772 06085000 AVTACTIB EQU IEDQAVTD+768 06086000 @NM00048 EQU IEDQAVTD+764 06087000 AVTOLTEB EQU IEDQAVTD+760 06088000 AVTOLTCH EQU AVTOLTQB+1 06089000 AVTOLTVT EQU AVTOLTQB 06090000 @NM00047 EQU AVTOPCQB+8 06091000 @NM00046 EQU AVTOPCEC+1 06092000 @NM00045 EQU AVTOPCCC 06093000 AVTOPCPO EQU AVTOPCCC 06094000 AVTOPCWA EQU AVTOPCCC 06095000 AVTOPCCH EQU AVTOPCOB+1 06096000 AVTOPCVT EQU AVTOPCOB 06097000 @NM00044 EQU AVTCKPQB+9 06098000 AVTCKPTS EQU AVTCKPQB+8 06099000 @NM00043 EQU AVTCKPEC+1 06100000 @NM00042 EQU AVTCKPCC 06101000 AVTCKPPO EQU AVTCKPCC 06102000 AVTCKPWA EQU AVTCKPCC 06103000 AVTCKPCH EQU AVTCKPTB+1 06104000 AVTCKPVT EQU AVTCKPTB 06105000 @NM00041 EQU IEDQAVTD+724 06106000 AVTBFRTB EQU IEDQAVTD+720 06107000 @NM00040 EQU IEDQAVTD+716 06108000 AVTSELCH EQU IEDQAVTD+713 06109000 AVTBFRTN EQU AVTBFRFG 06110000 AVTTIMQ EQU IEDQAVTD+704 06111000 @NM00039 EQU IEDQAVTD+700 06112000 AVTIMQPS EQU IEDQAVTD+696 06113000 AVTREFTM EQU IEDQAVTD+692 06114000 @NM00038 EQU IEDQAVTD+680 06115000 AVTDELYB EQU IEDQAVTD+676 06116000 AVTOCQPT EQU IEDQAVTD+672 06117000 AVTSUPPT EQU IEDQAVTD+664 06118000 AVTCBQCB EQU IEDQAVTD+660 06119000 AVTMSGS EQU IEDQAVTD+657 06120000 @NM00037 EQU AVTSYSER 06121000 @NM00036 EQU AVTSYSER 06122000 @NM00035 EQU AVTSYSER 06123000 @NM00034 EQU AVTSYSER 06124000 @NM00033 EQU AVTSYSER 06125000 @NM00032 EQU AVTSYSER 06126000 AVTCMAXN EQU AVTSYSER 06127000 AVTCMINN EQU AVTSYSER 06128000 AVT2260L EQU IEDQAVTD+652 06129000 AVTABEPL EQU AVTADBUF 06130000 AVTHFF EQU AVTCLRHI+2 06131000 @NM00031 EQU AVTCLRHI 06132000 AVTCCLNK EQU AVTCRELE+5 06133000 AVTCCPRI EQU AVTCRELE+4 06134000 AVTCCQCB EQU AVTCCELE+1 06135000 AVTCCKEY EQU AVTCCELE 06136000 AVTDELAD EQU IEDQAVTD+632 06137000 AVTDELEM EQU IEDQAVTD+628 06138000 AVTBSX EQU AVTCKLNK 06139000 AVTOPETR EQU AVTHG01 06140000 @NM00030 EQU AVTCKBYT 06141000 AVTCKONQ EQU AVTCKBYT 06142000 @NM00029 EQU AVTCKBYT 06143000 @NM00028 EQU AVTCKBYT 06144000 @NM00027 EQU AVTCKBYT 06145000 @NM00026 EQU AVTCKBYT 06146000 @NM00025 EQU AVTCKBYT 06147000 @NM00024 EQU AVTCKBYT 06148000 AVTOPERT EQU IEDQAVTD+618 06149000 AVTOPXCL EQU IEDQAVTD+616 06150000 AVTOPERL EQU IEDQAVTD+615 06151000 @NM00023 EQU IEDQAVTD+614 06152000 AVTCKTIM EQU IEDQAVTD+612 06153000 AVTCKELV EQU IEDQAVTD+610 06154000 AVTCPRCD EQU IEDQAVTD+609 06155000 AVTWARMN EQU AVTCKELF 06156000 AVTCRTLN EQU AVTCKELF 06157000 AVTCPIPN EQU AVTCKELF 06158000 AVTCCLCN EQU AVTCKELF 06159000 AVTCINCN EQU AVTCKELF 06160000 @NM00022 EQU AVTCKELF 06161000 AVTCMCPN EQU AVTCKELF 06162000 AVTNQBCK EQU AVTCKELF 06163000 AVTCKQAD EQU IEDQAVTD+605 06164000 AVTSCBSZ EQU IEDQAVTD+604 06165000 @NM00021 EQU IEDQAVTD+600 06166000 AVTCKELE EQU IEDQAVTD+596 06167000 @NM00020 EQU AVTCKPEL+8 06168000 AVTCKRLK EQU AVTCKPEL+5 06169000 AVTCKRPR EQU AVTCKPEL+4 06170000 AVTCKRMQ EQU AVTCKRMV+1 06171000 AVTCKRKY EQU AVTCKRMV 06172000 AVTHK EQU IEDQAVTD+576 06173000 AVTHI EQU IEDQAVTD+572 06174000 AVTIOT EQU IEDQAVTD+568 06175000 AVTNX EQU IEDQAVTD+564 06176000 AVTTONE EQU IEDQAVTD+560 06177000 AVTA3TL EQU IEDQAVTD+556 06178000 AVTDMECB EQU IEDQAVTD+552 06179000 AVTABEND EQU IEDQAVTD+546 06180000 AVTPLCBN EQU IEDQAVTD+544 06181000 @NM00019 EQU AVTSAVTP+1 06182000 @NM00018 EQU AVTSAVTF 06183000 AVTSNA EQU AVTSAVTF 06184000 AVTONSNA EQU AVTSAVTF 06185000 AVTVTMCP EQU AVTSAVTF 06186000 @NM00017 EQU IEDQAVTD+536 06187000 AVTCMBSS EQU IEDQAVTD+532 06188000 AVTRCV EQU IEDQAVTD+528 06189000 AVTSEND EQU IEDQAVTD+524 06190000 AVTCSCH EQU IEDQAVTD+520 06191000 AVTQ1 EQU IEDQAVTD+516 06192000 AVTE7 EQU IEDQAVTD+512 06193000 AVTHB EQU IEDQAVTD+508 06194000 AVTR1 EQU IEDQAVTD+504 06195000 AVTBZ EQU IEDQAVTD+500 06196000 AVTEZ EQU IEDQAVTD+496 06197000 AVTEC EQU IEDQAVTD+492 06198000 AVTEW EQU IEDQAVTD+488 06199000 AVTNDIAL EQU AVTSCOPT 06200000 AVTN2741 EQU AVTSCOPT 06201000 AVTCONCO EQU AVTSCOPT 06202000 AVTCONC EQU AVTSCOPT 06203000 AVTCMBUF EQU AVTSCOPT 06204000 AVTAPDMP EQU AVTSCOPT 06205000 @NM00016 EQU AVTSCOPT 06206000 AVTHA EQU AVTDISP 06207000 AVTEA EQU IEDQAVTD+476 06208000 AVTAX EQU IEDQAVTD+472 06209000 AVTA3 EQU IEDQAVTD+468 06210000 AVTGD EQU IEDQAVTD+464 06211000 AVTAL EQU IEDQAVTD+460 06212000 AVTOLTST EQU AVTHG02 06213000 AVTE8 EQU IEDQAVTD+452 06214000 AVTUI EQU IEDQAVTD+448 06215000 AVTCOMPT EQU IEDQAVTD+444 06216000 AVTCRSRF EQU IEDQAVTD+440 06217000 @NM00015 EQU IEDQAVTD+436 06218000 AVTKA02 EQU IEDQAVTD+432 06219000 AVTOPTPT EQU IEDQAVTD+428 06220000 AVTPCBPT EQU IEDQAVTD+424 06221000 @NM00014 EQU AVTECB1 06222000 AVTCOMP EQU AVTECB1 06223000 @NM00013 EQU AVTECB1 06224000 AVTOPECA EQU IEDQAVTD+416 06225000 AVTOLECA EQU IEDQAVTD+412 06226000 AVTCKECA EQU IEDQAVTD+408 06227000 AVTCWECA EQU IEDQAVTD+404 06228000 AVTCWTCB EQU IEDQAVTD+400 06229000 AVTOLTCB EQU IEDQAVTD+396 06230000 AVTOCTCB EQU IEDQAVTD+392 06231000 AVTCKTCB EQU IEDQAVTD+388 06232000 AVTAS EQU IEDQAVTD+384 06233000 AVTNOLBF EQU IEDQAVTD+382 06234000 AVTNCKPR EQU IEDQAVTD+381 06235000 AVTCIB EQU IEDQAVTD+380 06236000 AVTSPLPT EQU IEDQAVTD+376 06237000 AVTMVBFR EQU IEDQAVTD+372 06238000 AVTSBTA EQU IEDQAVTD+368 06239000 AVTRARTN EQU IEDQAVTD+364 06240000 AVTBSCAN EQU IEDQAVTD+360 06241000 AVTRDYA EQU IEDQAVTD+356 06242000 AVTDISTR EQU IEDQAVTD+348 06243000 AVTPARM3 EQU IEDQAVTD+344 06244000 @NM00012 EQU AVTPKF 06245000 @NM00011 EQU AVTPKF 06246000 @NM00010 EQU AVTPKF 06247000 AVTFTCHF EQU AVTPKF 06248000 @NM00009 EQU AVTPKF 06249000 @NM00008 EQU AVTPKF 06250000 @NM00007 EQU AVTPKF 06251000 @NM00006 EQU AVTPKF 06252000 AVTPARM EQU IEDQAVTD+336 06253000 AVTEXS2A EQU IEDQAVTD+330 06254000 AVTEXA2S EQU IEDQAVTD+324 06255000 AVTOCGET EQU IEDQAVTD+320 06256000 AVTCKAVT EQU @NM00004+1 06257000 @NM00005 EQU AVTCKFLG 06258000 AVTCKHLT EQU AVTCKFLG 06259000 AVTCKREQ EQU AVTCKFLG 06260000 AVTCKENV EQU AVTCKFLG 06261000 AVTCKNAC EQU AVTCKFLG 06262000 AVTCKTAC EQU AVTCKFLG 06263000 AVTBUENT EQU IEDQAVTD+314 06264000 @NM00003 EQU IEDQAVTD+313 06265000 AVTFULLT EQU AVTBUFSW 06266000 AVTUNCON EQU AVTBUFSW 06267000 @NM00002 EQU AVTBUFSW 06268000 AVTBUFTR EQU AVTREADD 06269000 AVTREADY EQU IEDQAVTD+304 06270000 AVTRACE EQU IEDQAVTD+300 06271000 AVTTCB EQU IEDQAVTD+296 06272000 AVTPASWD EQU IEDQAVTD+288 06273000 AVTCTLCH EQU IEDQAVTD+280 06274000 AVTDOUBL EQU IEDQAVTD+272 06275000 AVTDOUBX EQU IEDQAVTD+264 06276000 AVTDPARM EQU IEDQAVTD+260 06277000 AVTDLQ EQU AVTSAVEX+32 06278000 @NM00001 EQU AVTSAVEX 06279000 AVTSAVE3 EQU IEDQAVTD+72 06280000 AVTSAVE2 EQU IEDQAVTD 06281000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 06282000 @RC00504 EQU @RC00498 06283000 @RC00499 EQU @RC00498 06284000 @RC00531 EQU CE0001@ 06285000 @RF00551 EQU CE0001@ 06286000 @RC00559 EQU CE0001@ 06287000 @RC00563 EQU CE0001@ 06288000 @RC00566 EQU CE0001@ 06289000 @RC00586 EQU CE0001@ 06290000 @RC00590 EQU CE0001@ 06291000 @RC00602 EQU CE0001@ 06292000 @RC00600 EQU CE0001@ 06293000 @RC00598 EQU CE0001@ 06294000 @RC00596 EQU CE0001@ 06295000 @RC00594 EQU CE0001@ 06296000 @RC00763 EQU @RC00760 06297000 @RC00960 EQU @RC00957 06298000 @RF00974 EQU @RC00971 06299000 @RC01001 EQU @RC00994 06300000 @RC00995 EQU @RC00994 06301000 @RC01065 EQU @RC01064 06302000 @RC01085 EQU @RC01084 06303000 @RC01175 EQU @RC01174 06304000 @RC01183 EQU @RC01180 06305000 @RC01191 EQU @RC01190 06306000 @RF01249 EQU @RC01247 06307000 @RC01295 EQU @RC01291 06308000 @RC01330 EQU @RC01322 06309000 @RC01376 EQU @RC01372 06310000 @RF01381 EQU @RC01372 06311000 @PB00028 EQU @EL00001 06312000 @RC00533 EQU @RC00531 06313000 @RC00575 EQU @RC00566 06314000 @RC00573 EQU @RC00566 06315000 @RF00769 EQU @RC00763 06316000 @RT00767 EQU @RC00763 06317000 @RF00766 EQU @RC00763 06318000 @RF00765 EQU @RC00763 06319000 @RF01220 EQU @RC01191 06320000 @PB00027 EQU @PB00028 06321000 @PB00026 EQU @PB00027 06322000 @PB00025 EQU @PB00026 06323000 @PB00024 EQU @PB00025 06324000 @PB00023 EQU @PB00024 06325000 @PB00022 EQU @PB00023 06326000 @PB00021 EQU @PB00022 06327000 @PB00020 EQU @PB00021 06328000 @PB00019 EQU @PB00020 06329000 @PB00018 EQU @PB00019 06330000 @PB00017 EQU @PB00018 06331000 @PB00016 EQU @PB00017 06332000 @PB00015 EQU @PB00016 06333000 @PB00014 EQU @PB00015 06334000 @PB00013 EQU @PB00014 06335000 @PB00012 EQU @PB00013 06336000 @PB00011 EQU @PB00012 06337000 @PB00010 EQU @PB00011 06338000 @PB00009 EQU @PB00010 06339000 @PB00008 EQU @PB00009 06340000 @PB00007 EQU @PB00008 06341000 @PB00006 EQU @PB00007 06342000 @PB00005 EQU @PB00006 06343000 @PB00004 EQU @PB00005 06344000 @PB00003 EQU @PB00004 06345000 @PB00002 EQU @PB00003 06346000 @ENDDATA EQU * 06347000 END IEDAYJ,(C'PLS1041',0701,78180) 06348000