TITLE 'IEDSAC: WRITE, CONTACT, DISCONNECT AND RESET COMMAND PR*00001000 ROCESSOR ' 00002000 IEDSAC CSECT , 01S0001 00003000 @PROLOG DS 0H 01S0002 00004000 DC A(0) QCB 00005000 DC A(0) 00006000 DC X'06' STCB 00007000 DC AL3(*-1) 00008000 USING *,RBASE 00009000 LR RBASE,RLINK 00010000 IEDSAC IEDHJN START,HJN 00011000 * RPRF=RPARM; /* ESTABLISH PRF ADDRESSABILITY */ 00012000 LR RPRF,RPARM 02S0517 00013000 * RPARM=TTHOAF; /* CALL TNT CODE TO */ 00014000 LA @10,PRFPIUO(,RPRF) 02S0518 00015000 SLR @07,@07 02S0518 00016000 IC @07,PRFPIUO(,RPRF) 02S0518 00017000 ALR @10,@07 02S0518 00018000 SLR RPARM,RPARM 02S0518 00019000 ICM RPARM,3,TTHOAF(@10) 02S0518 00020000 * CALL IEDQTNT; /* DEVELOPE THE */ 00021000 L @15,AVTRNMPT(,IEDQAPTR) 02S0519 00022000 BALR @14,@15 02S0519 00023000 * RTRM=RPARM-LENGTH(IEDNTRM); /* TRM ADDRESS @YM04622*/ 00024000 LR RTRM,RPARM 02S0520 00025000 SL RTRM,@CF01995 02S0520 00026000 * IEDQQPTR=TRMDESTQ; /* ESTABLISH QCB ADDRESSABILITY */ 00027000 SLR IEDQQPTR,IEDQQPTR 02S0521 00028000 ICM IEDQQPTR,7,TRMDESTQ(RTRM) 02S0521 00029000 * IF QCBPLCBN=ON THEN /* THERE WILL BE A PLCB FOR ALL 00030000 * RESPONSES EXCEPT TSO 02S0522 00031000 * UNSOLICITED INPUT */ 00032000 LR @10,IEDQQPTR 02S0522 00033000 SL @10,@CF00044 02S0522 00034000 TM QCBPLCBN(@10),B'10000000' 02S0522 00035000 BNO @RF00522 02S0522 00036000 * DO; 02S0523 00037000 * RLCB=QCBPLCBA; /* ESTABLISH PLCB ADDRESSABILITY */ 00038000 L RLCB,QCBPLCBA-1(,@10) 02S0524 00039000 LA RLCB,0(,RLCB) 02S0524 00040000 * IEDQSPTR=LCBSCBA; /* ESTABLISH SCB ADDRESSABILITY */ 00041000 L @10,LCBSCBA-1(,RLCB) 02S0525 00042000 LA @10,0(,@10) 02S0525 00043000 ST @10,IEDQSPTR 02S0525 00044000 * END; 02S0526 00045000 * BDUPTR=ADDR(PIU0RU); /* ESTABLISH BDU ADDRESSABILITY */ 00046000 @RF00522 LA BDUPTR,PRFPIUO(,RPRF) 02S0527 00047000 SLR @10,@10 02S0527 00048000 IC @10,PRFPIUO(,RPRF) 02S0527 00049000 ALR BDUPTR,@10 02S0527 00050000 LA BDUPTR,PIU0RU(,BDUPTR) 02S0527 00051000 * 02S0528 00052000 * /*****************************************************************/ 00053000 * /* */ 00054000 * /* PROCESS: THIS SEGMENT CALLS SUBROUTINES WHICH PERFORM THE */ 00055000 * /* FUNCTION OF THE MODULE. */ 00056000 * /* */ 00057000 * /*****************************************************************/ 00058000 * 02S0528 00059000 * IF BDUCMND=CD0WRT THEN /* CALL WRITE PROCESSOR IF THIS 00060000 * IS A WRITE */ 00061000 CLI BDUCMND(BDUPTR),X'02' 02S0528 00062000 BNE @RF00528 02S0528 00063000 * 03S0529 00064000 * /***************************************************************/ 00065000 * /* */ 00066000 * /* PROCESS.WRITE: THIS SEGMENT DOES THE WRITE COMMAND */ 00067000 * /* PROCESSING. INTERNAL PROCEDURES ARE CALLED TO PROCESS THESE */ 00068000 * /* CONDITIONS: (1)WRITE TERMINATION. (2)SESSION INITIATION AND */ 00069000 * /* TERMINATION, (3)RESET IMMEDIATE, (4)MSGGEN, (5)NULL WRITE, */ 00070000 * /* (6)ERROR WRITE, (7)NONERROR WRITE. */ 00071000 * /* */ 00072000 * /***************************************************************/ 00073000 * 03S0529 00074000 * DO; 03S0529 00075000 * LCBRESP=OFF; /* ANY WRITE SATISFIES RESPONSE 00076000 * OWED REQUIREMENT */ 00077000 NI LCBRESP(RLCB),B'11111110' 03S0530 00078000 * RFY 03S0531 00079000 * RZERO RSTD; /* @YM05678*/ 00080000 * TRMPREP=OFF; /* INDICATE THAT MONITOR IS NO 00081000 * LONGER ACTIVE IN THE NCP. 00082000 * @YM05638*/ 00083000 * TRMWRBRK=OFF; /* INDICATE THAT A WRITE BREAK IS 00084000 * NOT IN PROGRESS @YM08156*/ 00085000 LA @15,TRMWRBRK(,RTRM) 03S0533 00086000 LR @14,@15 03S0533 00087000 LA @10,3 03S0533 00088000 NR @14,@10 03S0533 00089000 LCR @14,@14 03S0533 00090000 ALR @15,@14 03S0533 00091000 L @10,0(,@15) 03S0533 00092000 @GL00001 LR @05,@10 03S0533 00093000 N @05,@CB02345+3(@14) 03S0533 00094000 CS @10,@05,0(@15) 03S0533 00095000 BNE @GL00001 03S0533 00096000 * RFY 03S0534 00097000 * RZERO UNRSTD; /* @YM05678*/ 00098000 * IF TTHTAG2=TTHABORT& /* IF NULL WRITE TO ABORT 03S0535 00099000 * @YM08030*/ 00100000 * TTHTAG1=0 THEN /* INPUT OPERATION THEN @YM08038*/ 00101000 LA @10,PRFPIUO(,RPRF) 03S0535 00102000 SLR @05,@05 03S0535 00103000 IC @05,PRFPIUO(,RPRF) 03S0535 00104000 ALR @10,@05 03S0535 00105000 CLI TTHTAG2(@10),X'04' 03S0535 00106000 BNE @RF00535 03S0535 00107000 CLI TTHTAG1(@10),0 03S0535 00108000 BNE @RF00535 03S0535 00109000 * DO; /* @YM08038*/ 00110000 * LCBUSUE=ON; /* INDICATE END OF RCV OPERATION 00111000 * @YM08038*/ 00112000 OI LCBUSUE(RLCB),B'00000001' 03S0537 00113000 * CALL OUTDHPST; /* RETURN RESPONSE TO IEDNKA 00114000 * @YM08038*/ 00115000 BAL @14,OUTDHPST 03S0538 00116000 * END; /* @YM08038*/ 00117000 * ELSE /* @YM08038*/ 00118000 * DO; /* @YM08038*/ 00119000 B @RC00535 03S0540 00120000 @RF00535 DS 0H 03S0541 00121000 * IF LCBABRTN=ON THEN /* IF WRITE IS TO BE TERMINTAED */ 00122000 TM LCBABRTN(RLCB),B'00000001' 03S0541 00123000 BNO @RF00541 03S0541 00124000 * 04S0542 00125000 * /*******************************************************/ 00126000 * /* */ 00127000 * /* PROCESS.WRITE.ABORT: WHEN AN ERROR WRITE RESPONSES */ 00128000 * /* IS RECOGNIZED, LCBABRTN IS TURNED ON. A RESET */ 00129000 * /* IMMEDIATE IS BUILT IN THE FIRST ERROR RESPONSE */ 00130000 * /* BUFFER AND POSTED TO THE NCP (IEDPCOUT). THIS RESET */ 00131000 * /* IMMEDIATE TURNS OFF THE NCP'S ERROR LOCK AND ON */ 00132000 * /* RETURN IS POSTED TO THE MH AS AN ERROR BUFFER. TO */ 00133000 * /* PREVENT A DOUBLE POST TO MH, THIS SUBROUTINE FREES */ 00134000 * /* ALL WRITE RESPONSE BUFFERS. ABORT PROCESSING IS NOT */ 00135000 * /* DONE FOR MSGGEN BUFFERS. LCBABRTN IS ALSO TESTED IN */ 00136000 * /* DEBLOCK OUTBOUND (IEDSAO) WRTIE PROCESSING. IF FOUND*/ 00137000 * /* ON, WRITE BUFFERS ARE FREED */ 00138000 * /* */ 00139000 * /*******************************************************/ 00140000 * 04S0542 00141000 * DO; 04S0542 00142000 * IF LCBMSGNN=ON THEN /* THIS IS A MSGGEN RESPONSE */ 00143000 TM LCBMSGNN(RLCB),B'01000000' 04S0543 00144000 BNO @RF00543 04S0543 00145000 * DO; 04S0544 00146000 * LCBMSGNN=OFF; /* RESET MSGGEN FLAG */ 00147000 NI LCBMSGNN(RLCB),B'10111111' 04S0545 00148000 * CALL ERBBD; /* POST ERB TO DRIVE IN/OUT MSG 00149000 * PROCESSING */ 00150000 BAL @14,ERBBD 04S0546 00151000 * END; 04S0547 00152000 * CALL FREEBFR; /* FREE BUFFER */ 00153000 @RF00543 BAL @14,FREEBFR 04S0548 00154000 * END; 04S0549 00155000 * ELSE /* FOR ALL ELSE DO */ 00156000 * DO; 03S0550 00157000 B @RC00541 03S0550 00158000 @RF00541 DS 0H 03S0551 00159000 * IF BDUMODIF=>CD0WD THEN/* IF COMMAND CAN MODIFY SESSN*/ 00160000 CLI BDUMODIF(BDUPTR),X'03' 03S0551 00161000 BL @RF00551 03S0551 00162000 * 04S0552 00163000 * /***************************************************/ 00164000 * /* */ 00165000 * /* PROCESS.WRITE.SESSION: IF A WRITE COMMAND IS */ 00166000 * /* CAPABLE OF MODIFING SESSION, THE RESPONSE IS */ 00167000 * /* EXAMINED FOR NORMAL OR ERROR AND PHASE. THE */ 00168000 * /* SESSION FLAG IS THEN SET AS REQUIRED. */ 00169000 * /* */ 00170000 * /***************************************************/ 00171000 * 04S0552 00172000 * DO; 04S0552 00173000 * IF BDUPHASE=RSP60 THEN/* IF PHASE IS 3 */ 00174000 TM BDUPHASE(BDUPTR),B'01100000' 04S0553 00175000 BNO @RF00553 04S0553 00176000 * DO; 04S0554 00177000 * IF(BDUMODIF=CD0WD|/* IF MODIFIER IS .........*/ 00178000 * BDUMODIF=CD0WCD) THEN/* .....A DISCONNECT*/ 00179000 CLI BDUMODIF(BDUPTR),X'03' 04S0555 00180000 BE @RT00555 04S0555 00181000 CLI BDUMODIF(BDUPTR),X'0B' 04S0555 00182000 BNE @RF00555 04S0555 00183000 @RT00555 DS 0H 04S0556 00184000 * TRMSESSN=OFF;/* THEN END SESSION */ 00185000 NI TRMSESSN(RTRM),B'10111111' 04S0556 00186000 * ELSE 04S0557 00187000 * IF BDUMODIF=>CD0WC THEN/* IF 04S0557 00188000 * MODIFIER=CONTACT */ 00189000 B @RC00555 04S0557 00190000 @RF00555 CLI BDUMODIF(BDUPTR),X'08' 04S0557 00191000 BL @RF00557 04S0557 00192000 * TRMSESSN=ON;/* INITIATE SESSION */ 00193000 OI TRMSESSN(RTRM),B'01000000' 04S0558 00194000 * END; 04S0559 00195000 * ELSE /* IT IS NOT PHASE 3 */ 00196000 * DO; /* IT IS PHASE 1 OR 2 @YM08112*/ 00197000 B @RC00553 04S0560 00198000 @RF00553 DS 0H 04S0561 00199000 * IF(BDUMODIF=>CD0WC&BDUMODIF=TSIMSGEN;/* 00361000 * AYM'S QCB ADDRESS */ 00362000 L @10,AVTTSOPT(,IEDQAPTR) 05S0599 00363000 MVC LCBERBQB(3,RLCB),TSIMSGEN+1(@10) 05S0599 00364000 * RPARM=ADDR(LCBERB);/* POSTED 00365000 * ELEMENT IS ERB */ 00366000 LA RPARM,LCBERB(,RLCB) 05S0600 00367000 * CALL DSPPOSTR; 05S0601 00368000 LA @15,DSPPOSTR(,RDISP) 05S0601 00369000 BALR @14,@15 05S0601 00370000 * END; 05S0602 00371000 * ELSE 04S0603 00372000 * CALL ERBBD; 04S0603 00373000 B @RC00596 04S0603 00374000 @RF00596 BAL @14,ERBBD 04S0603 00375000 * CALL FREEBFR; 04S0604 00376000 @RC00596 BAL @14,FREEBFR 04S0604 00377000 * END; 04S0605 00378000 * ELSE 04S0606 00379000 * CALL NCPERP;/* DO TSO SECONDARY ERROR 00380000 * RECOVERY PROCESSING */ 00381000 B @RC00594 04S0606 00382000 @RF00594 BAL @14,NCPERP 04S0606 00383000 * ELSE /* @YM08470*/ 00384000 * DO; /* @YM08420*/ 00385000 B @RC00593 04S0607 00386000 @RF00593 DS 0H 04S0608 00387000 * CALL ERBBD;/* @YM08420*/ 00388000 BAL @14,ERBBD 04S0608 00389000 * CALL FREEBFR;/* @YM08420*/ 00390000 BAL @14,FREEBFR 04S0609 00391000 * END; /* @YM08420*/ 00392000 * END; 04S0611 00393000 * END; /* @OY20320*/ 00394000 * ELSE 03S0613 00395000 * IF TRMNLOUT=ON THEN/* IF NULL WRITE OUT */ 00396000 B @RC00584 03S0613 00397000 @RF00584 TM TRMNLOUT(RTRM),B'00000100' 03S0613 00398000 BNO @RF00613 03S0613 00399000 * 04S0614 00400000 * /***********************************************/ 00401000 * /* */ 00402000 * /* PROCESS.WRITE.NULLWRIT: IF BSC STATUS IS */ 00403000 * /* PENDING, BUILD A RESET IMMEDIATE IN THIS */ 00404000 * /* BUFFER AND POST IT TO NCP WHEN THE STATUS */ 00405000 * /* COMES IN. IF INPUT IS A WRITE TX AND ITS */ 00406000 * /* TAGGED, KILL THE SEND AND POST TO OUTDH. IF */ 00407000 * /* IT IS A WRITE TX AND ITS NOT TAGGED, FREE */ 00408000 * /* BUFFER AND POST PLCB TO IEDQBD. IF INPUT IS */ 00409000 * /* A NULL WRITE BLOCK WITHOUT ERROR, POST TO */ 00410000 * /* OUTDH. IF INPUT IS A NULL WRITE BLOCK */ 00411000 * /* WITHOUT ERROR BUT SOMETHING IS ON WAIT */ 00412000 * /* CHAIN, BUILD A TAGGED NULL WR EOT IN THIS */ 00413000 * /* BUFFER AND POST TO PCOUT. IF INPUT IS A NULL*/ 00414000 * /* WR BLK IN ERROR, KILL THE SEND AND POST */ 00415000 * /* BUFFER TO OUTDH. */ 00416000 * /* */ 00417000 * /***********************************************/ 00418000 * 04S0614 00419000 * DO; 04S0614 00420000 * IF BDUSYRSP=RSPSTPND THEN/* IF THIS IS BSC 00421000 * STATUS PENDING */ 00422000 CLI BDUSYRSP(BDUPTR),X'A5' 04S0615 00423000 BNE @RF00615 04S0615 00424000 * DO; 04S0616 00425000 * LCBABRTN=ON;/* TERMINATE THE WRITE */ 00426000 OI LCBABRTN(RLCB),B'00000001' 04S0617 00427000 * IF BDUMODIF=CD0WT THEN 04S0618 00428000 CLI BDUMODIF(BDUPTR),X'02' 04S0618 00429000 BNE @RF00618 04S0618 00430000 * LCBRESP=ON;/* IF NULL WR TX, SET 04S0619 00431000 * @YM08064 00432000 * FLAG FOR REDRIVE @YM08064 00433000 * WHEN RESET RCVD @YM08064*/ 00434000 OI LCBRESP(RLCB),B'00000001' 04S0619 00435000 * CALL ERRORBIT;/* SET SCB/LCB ERROR BITS */ 00436000 @RF00618 BAL @14,ERRORBIT 04S0620 00437000 * CALL BLDRESET;/* BUILD A TAGGED RESET IN 00438000 * THIS BUFFER */ 00439000 BAL @14,BLDRESET 04S0621 00440000 * LCBBFRW=RPRF;/* HOLD THIS BUFFER UNTIL 00441000 * THE BSC STATUS COMES IN AND 00442000 * THEN USE IT TO RESET NCP ERR 00443000 * LOCK. IEDSAI WILL POST THIS 00444000 * BUFFER TO PATH CNTRL OUT WHEN 00445000 * THE STATUS COMES IN */ 00446000 STCM RPRF,7,LCBBFRW(RLCB) 04S0622 00447000 * END; 04S0623 00448000 * ELSE 04S0624 00449000 * IF BDUMODIF=CD0WT THEN/* IF THIS IS NULL WR 00450000 * TX */ 00451000 B @RC00615 04S0624 00452000 @RF00615 CLI BDUMODIF(BDUPTR),X'02' 04S0624 00453000 BNE @RF00624 04S0624 00454000 * DO; 04S0625 00455000 * IF TTHTAG2=TTHNULWR&/* AND IT IS TAGGED*/ 00456000 * TTHTAG1=0 THEN 04S0626 00457000 LA @10,PRFPIUO(,RPRF) 04S0626 00458000 SLR @05,@05 04S0626 00459000 IC @05,PRFPIUO(,RPRF) 04S0626 00460000 ALR @10,@05 04S0626 00461000 CLI TTHTAG2(@10),X'01' 04S0626 00462000 BNE @RF00626 04S0626 00463000 CLI TTHTAG1(@10),0 04S0626 00464000 BNE @RF00626 04S0626 00465000 * DO; 04S0627 00466000 * CALL KILLSND;/* KILL SEND */ 00467000 BAL @14,KILLSND 04S0628 00468000 * CALL OUTDHPST;/* POST BFR TO OUTDH */ 00469000 BAL @14,OUTDHPST 04S0629 00470000 * END; 04S0630 00471000 * ELSE 04S0631 00472000 * DO; 04S0631 00473000 B @RC00626 04S0631 00474000 @RF00626 DS 0H 04S0632 00475000 * TRMNLOUT=OFF;/* INDICATE A NULL WR 00476000 * IS NOT OUT */ 00477000 NI TRMNLOUT(RTRM),B'11111011' 04S0632 00478000 * CALL FREEBFR;/* FREE PIU BFR 04S0633 00479000 * @YM07714*/ 00480000 BAL @14,FREEBFR 04S0633 00481000 * CALL PLCBPOST;/* POST PLCB TO BD */ 00482000 BAL @14,PLCBPOST 04S0634 00483000 * END; 04S0635 00484000 * END; 04S0636 00485000 * ELSE 04S0637 00486000 * DO; 04S0637 00487000 B @RC00624 04S0637 00488000 @RF00624 DS 0H 04S0638 00489000 * IF BDUERROR=ON THEN/* IF RESPONSE HAD 00490000 * AN ERROR */ 00491000 TM BDUERROR(BDUPTR),B'10000000' 04S0638 00492000 BNO @RF00638 04S0638 00493000 * DO; 04S0639 00494000 * CALL KILLSND;/* TERMINATE THE SEND */ 00495000 BAL @14,KILLSND 04S0640 00496000 * CALL OUTDHPST;/* POST BFR TO OUTDH */ 00497000 BAL @14,OUTDHPST 04S0641 00498000 * END; 04S0642 00499000 * ELSE /* NO, DID NOT HAVE AN ERROR */ 00500000 * IF LCBWAITC^=0 THEN/* IF SOMETHING ON 00501000 * WAIT CHAIN */ 00502000 B @RC00638 04S0643 00503000 @RF00638 L @10,LCBWAITC-1(,RLCB) 04S0643 00504000 LA @10,0(,@10) 04S0643 00505000 LTR @10,@10 04S0643 00506000 BZ @RF00643 04S0643 00507000 * DO;/* THEN MUST BUILD A NULL WRITE 00508000 * EOT AND SEND TO TERMINAL TO 00509000 * UNLOCK KEYBOARD */ 00510000 * CALL BLDRESET;/* USE A COMMON 00511000 * SUBROUTINE TO BUILD A RESET 00512000 * IMMEDIATE IN THIS BUFFER. THEN 00513000 * CHANGE THE RESET TO A NULL 00514000 * WRITE EOT */ 00515000 BAL @14,BLDRESET 04S0645 00516000 * TTHTAG1=0;/* NO HIGH ORDER TAG */ 00517000 LA @10,PRFPIUO(,RPRF) 04S0646 00518000 SLR @09,@09 04S0646 00519000 IC @09,PRFPIUO(,RPRF) 04S0646 00520000 ALR @10,@09 04S0646 00521000 MVI TTHTAG1(@10),X'00' 04S0646 00522000 * TTHTAG2=TTHNULWR;/* TAG PIU SO 00523000 * RESPONSE CAN BE IDENTIFIED */ 00524000 MVI TTHTAG2(@10),X'01' 04S0647 00525000 * BDUCMND=CD0WRT;/* REPLACE CMD 00526000 * WITH WRITE */ 00527000 MVI BDUCMND(BDUPTR),X'02' 04S0648 00528000 * BDUMODIF=CD0WT;/* REPLACE 04S0649 00529000 * MODIFIER WITH EOT */ 00530000 MVI BDUMODIF(BDUPTR),X'02' 04S0649 00531000 * DCTADDR=AVTCSTCS;/* NOW GO TO 00532000 * DEVICE CHAR TABLE TO SEE IF 00533000 * THIS IS A 3270 */ 00534000 L DCTADDR,AVTCSTCS(,IEDQAPTR) 04S0650 00535000 * DCTADDR=DCTADDR+(AVTDCTLN*(TRMCHCIN 00536000 * -1)); 04S0651 00537000 SLR @09,@09 04S0651 00538000 IC @09,TRMCHCIN(,RTRM) 04S0651 00539000 BCTR @09,0 04S0651 00540000 MH @09,AVTDCTLN(,IEDQAPTR) 04S0651 00541000 ALR DCTADDR,@09 04S0651 00542000 * IF DCT3270=ON THEN/* IF THIS IS A 00543000 * 3270 */ 00544000 TM DCT3270(DCTADDR),B'00000100' 04S0652 00545000 BNO @RF00652 04S0652 00546000 * DO; 04S0653 00547000 * CTRLCHAR=CTLCHAR;/* INSERT 00548000 * DEVICE CNTRL CHARS */ 00549000 LA @09,PIU0RU(,@10) 04S0654 00550000 MVC CTRLCHAR+6(3,@09),@CB02274 04S0654 00551000 * TTHDCF=TTHDCF+LENGTH(DATAFLD); 00552000 LA @09,3 04S0655 00553000 SLR @07,@07 04S0655 00554000 ICM @07,3,TTHDCF(@10) 04S0655 00555000 ALR @09,@07 04S0655 00556000 STCM @09,3,TTHDCF(@10) 04S0655 00557000 * /* AND ADD 3 TO DCF */ 00558000 * END; 04S0656 00559000 * CALL PCOUT;/* SEND THIS NULL 00560000 * WRITE EOT TO TERMINAL TO 04S0657 00561000 * UNLOCK ITS KEYBOARD */ 00562000 @RF00652 BAL @14,PCOUT 04S0657 00563000 * END; 04S0658 00564000 * ELSE/* THERE IS NO ERROR AND NOTHING */ 00565000 * CALL OUTDHPST;/* ON WAIT CHAIN, SO 00566000 * POST TO */ 00567000 B @RC00643 04S0659 00568000 @RF00643 BAL @14,OUTDHPST 04S0659 00569000 * END; /* OUTDH */ 00570000 * END; 04S0661 00571000 * ELSE 03S0662 00572000 * IF BDUERROR=ON THEN/* ERROR ON WRITE */ 00573000 B @RC00613 03S0662 00574000 @RF00613 TM BDUERROR(BDUPTR),B'10000000' 03S0662 00575000 BNO @RF00662 03S0662 00576000 * CALL ERRWRITE; 03S0663 00577000 BAL @14,ERRWRITE 03S0663 00578000 * ELSE 03S0664 00579000 * 04S0664 00580000 * /*********************************************/ 00581000 * /* */ 00582000 * /* PROCESS.WRITE.NORMWRIT: THIS SEGMENT DOES */ 00583000 * /* THE "NORMAL WRITE" PROCESSING. IF EOM, */ 00584000 * /* BUFFER IS POSTED TO IEDQBD. IF NOT END */ 00585000 * /* MESSAGE, ERB IS POSTED IF REQUIRED. ELSE, */ 00586000 * /* THE BFR IS FREED. */ 00587000 * /* */ 00588000 * /*********************************************/ 00589000 * 04S0664 00590000 * DO; 04S0664 00591000 B @RC00662 04S0664 00592000 @RF00662 DS 0H 04S0665 00593000 * IF TTHTAG2=TTHLSTWR&/* IF THIS IS EOM */ 00594000 * TTHTAG1=0 THEN 04S0665 00595000 LA @10,PRFPIUO(,RPRF) 04S0665 00596000 SLR @05,@05 04S0665 00597000 IC @05,PRFPIUO(,RPRF) 04S0665 00598000 ALR @10,@05 04S0665 00599000 CLI TTHTAG2(@10),X'03' 04S0665 00600000 BNE @RF00665 04S0665 00601000 CLI TTHTAG1(@10),0 04S0665 00602000 BNE @RF00665 04S0665 00603000 * CALL BFRBDPST;/* THEN POST BUFFER TO 00604000 * IEDQBD */ 00605000 BAL @14,BFRBDPST 04S0666 00606000 * ELSE /* ELSE, IF THIS IS THE NULL 00607000 * WRITE EOT SENT BY OUTDH TO 00608000 * ABORT THE TERMINAL FOR 04S0667 00609000 * "STOP=YES" PROCESSING */ 00610000 * IF(TTHTAG2=TTHABORT&TTHTAG1=0) THEN 04S0667 00611000 B @RC00665 04S0667 00612000 @RF00665 LA @10,PRFPIUO(,RPRF) 04S0667 00613000 SLR @07,@07 04S0667 00614000 IC @07,PRFPIUO(,RPRF) 04S0667 00615000 ALR @10,@07 04S0667 00616000 CLI TTHTAG2(@10),X'04' 04S0667 00617000 BNE @RF00667 04S0667 00618000 CLI TTHTAG1(@10),0 04S0667 00619000 BNE @RF00667 04S0667 00620000 * CALL OUTDHPST;/* THEN POST BUFFER BACK 00621000 * TO OUTDH */ 00622000 BAL @14,OUTDHPST 04S0668 00623000 * ELSE 04S0669 00624000 * IF TTHTAG2=TTHWRSMI THEN/* IF THIS IS 00625000 * TSO WRITE SMI */ 00626000 B @RC00667 04S0669 00627000 @RF00667 LA @10,PRFPIUO(,RPRF) 04S0669 00628000 SLR @07,@07 04S0669 00629000 IC @07,PRFPIUO(,RPRF) 04S0669 00630000 ALR @10,@07 04S0669 00631000 CLI TTHTAG2(@10),X'05' 04S0669 00632000 BNE @RF00669 04S0669 00633000 * DO; 04S0670 00634000 * CALL FREEBFR;/* FREE PIU BFR 04S0671 00635000 * @YM07714*/ 00636000 BAL @14,FREEBFR 04S0671 00637000 * CALL PLCBPOST;/* E7 POST TO CLEANUP*/ 00638000 BAL @14,PLCBPOST 04S0672 00639000 * END; 04S0673 00640000 * ELSE 04S0674 00641000 * DO; 04S0674 00642000 B @RC00669 04S0674 00643000 @RF00669 DS 0H 04S0675 00644000 * CALL FREEBFR;/* DISCARD THE 04S0675 00645000 * RESPONSE */ 00646000 BAL @14,FREEBFR 04S0675 00647000 * IF QCBTSSES=OFF THEN/* IF IT IS NOT 00648000 * TIME SHARING */ 00649000 TM QCBTSSES(IEDQQPTR),B'10000000' 04S0676 00650000 BNZ @RF00676 04S0676 00651000 * IF LCBEOMSG=OFF&/* LAST BFR NOT 00652000 * READ FROM DISK @YM06454*/ 00653000 * LGBPCINO=OFF THEN/* AND NOT 00654000 * PCI=N @YM06454*/ 00655000 TM LCBEOMSG(RLCB),B'01000000' 04S0677 00656000 BNZ @RF00677 04S0677 00657000 L @10,IEDNLPTR-1(,IEDQQPTR) 04S0677 00658000 TM LGBPCINO(@10),B'00000100' 04S0677 00659000 BNZ @RF00677 04S0677 00660000 * DO;/* TRUE, DO 'PCI' @YM06454*/ 00661000 * IF LCBDCNT=OFF THEN/* DISABLED 00662000 * COUNT IN USE? */ 00663000 TM LCBDCNT(RLCB),B'10000000' 04S0679 00664000 BNZ @RF00679 04S0679 00665000 * LCBRBCT2=LCBRBCT2+1;/* NO, ADD 00666000 * 1 */ 00667000 LA @10,1 04S0680 00668000 SLR @09,@09 04S0680 00669000 IC @09,LCBRBCT2(,RLCB) 04S0680 00670000 ALR @10,@09 04S0680 00671000 STC @10,LCBRBCT2(,RLCB) 04S0680 00672000 * ELSE/* YES,..... */ 00673000 * LCBRBCT1=LCBRBCT1+1;/* ADD 1 00674000 * TO ENABLE COUNT */ 00675000 B @RC00679 04S0681 00676000 @RF00679 LA @10,1 04S0681 00677000 SLR @09,@09 04S0681 00678000 IC @09,LCBRBCT1(,RLCB) 04S0681 00679000 ALR @10,@09 04S0681 00680000 STC @10,LCBRBCT1(,RLCB) 04S0681 00681000 * IF LCBDLNKN=ON THEN/* IS ERB 00682000 * AVAILABLE FOR TPOST? */ 00683000 @RC00679 TM LCBDLNKN(RLCB),B'00000001' 04S0682 00684000 BNO @RF00682 04S0682 00685000 * 05S0683 00686000 * /******************************/ 00687000 * /* */ 00688000 * /* PROCESS.WRITE.NORMWRIT.ERBF*/ 00689000 * /* A: SUBSEQUENT POST OF AN */ 00690000 * /* ERB TO IEDQFA. */ 00691000 * /* */ 00692000 * /******************************/ 00693000 * 05S0683 00694000 * DO; 05S0683 00695000 * LCBDLNKN=OFF;/* MARK ERB 00696000 * UNAVAILABLE */ 00697000 NI LCBDLNKN(RLCB),B'11111110' 05S0684 00698000 * LCBERBPY=PRISBPCI;/* PRIORITY 00699000 * = 'E0' */ 00700000 MVI LCBERBPY(RLCB),X'E0' 05S0685 00701000 * LCBERBQB=ADDR(AVTDSIOB);/* 00702000 * IEDQFA QCB ADDRESS */ 00703000 LA @10,AVTDSIOB(,IEDQAPTR) 05S0686 00704000 STCM @10,7,LCBERBQB(RLCB) 05S0686 00705000 * RPARM=ADDR(LCBERB);/* ERB IS 00706000 * POST ELEMENT */ 00707000 LA RPARM,LCBERB(,RLCB) 05S0687 00708000 * CALL DSPPOSTR; 05S0688 00709000 LA @15,DSPPOSTR(,RDISP) 05S0688 00710000 BALR @14,@15 05S0688 00711000 * END; 05S0689 00712000 * END; 04S0690 00713000 * END; 04S0691 00714000 * END; 04S0692 00715000 * END; 03S0693 00716000 * END; /* @YM08038*/ 00717000 * END; 03S0695 00718000 * ELSE 02S0696 00719000 * IF BDUCMND=CD0CONT THEN /* CALL CONTACT PROCESSOR IF THIS 00720000 * IS A CONTACT */ 00721000 B @RC00528 02S0696 00722000 @RF00528 CLI BDUCMND(BDUPTR),X'06' 02S0696 00723000 BNE @RF00696 02S0696 00724000 * 03S0697 00725000 * /*************************************************************/ 00726000 * /* */ 00727000 * /* PROCESS.CONTACT: THIS SEGMENT DOES THE CONTACT COMMAND */ 00728000 * /* PROCESSING. */ 00729000 * /* */ 00730000 * /*************************************************************/ 00731000 * 03S0697 00732000 * DO; 03S0697 00733000 * IF BDUERROR=ON THEN /* IF RESPONSE IS IN ERROR THEN */ 00734000 TM BDUERROR(BDUPTR),B'10000000' 03S0698 00735000 BNO @RF00698 03S0698 00736000 * DO; 03S0699 00737000 * CALL KILLSND; /* TERMINATE THIS ATTEMPT TO SEND*/ 00738000 BAL @14,KILLSND 03S0700 00739000 * IF BDUPHASE^=RSP00& /* IF PHASE NOT ZERO AND */ 00740000 * BDURESP^=RSPE09& /* NOT SESSION-NOT-STARTED */ 00741000 * BDURESP^=RSPE1E THEN/* AND NOT CMD-REJECT THEN */ 00742000 TM BDUPHASE(BDUPTR),B'01100000' 03S0701 00743000 BZ @RF00701 03S0701 00744000 TM BDURESP(BDUPTR),B'00001001' 03S0701 00745000 BNO @GL00011 03S0701 00746000 TM BDURESP(BDUPTR),B'00010110' 03S0701 00747000 BZ @RF00701 03S0701 00748000 @GL00011 TM BDURESP(BDUPTR),B'00011110' 03S0701 00749000 BNO @RT00701 03S0701 00750000 TM BDURESP(BDUPTR),B'00000001' 03S0701 00751000 BZ @RF00701 03S0701 00752000 @RT00701 DS 0H 03S0702 00753000 * TRMSESSN=ON; /* INDICATE SESSION IS 03S0702 00754000 * ESTABLISHED */ 00755000 OI TRMSESSN(RTRM),B'01000000' 03S0702 00756000 * CALL OUTDHPST; /* POST BFR TO OUTDH */ 00757000 @RF00701 BAL @14,OUTDHPST 03S0703 00758000 * END; 03S0704 00759000 * ELSE 03S0705 00760000 * DO; 03S0705 00761000 B @RC00698 03S0705 00762000 @RF00698 DS 0H 03S0706 00763000 * TRMSESSN=ON; /* INDICATE SESSION */ 00764000 OI TRMSESSN(RTRM),B'01000000' 03S0706 00765000 * IF BDUPHASE=RSP60 THEN/* IF PHASE 3 */ 00766000 TM BDUPHASE(BDUPTR),B'01100000' 03S0707 00767000 BNO @RF00707 03S0707 00768000 * CALL OUTDHPST; /* SEND RESPONSE TO OUTDH */ 00769000 BAL @14,OUTDHPST 03S0708 00770000 * ELSE 03S0709 00771000 * CALL FREEBFR; /* ELSE, DISCARD RESPONSE */ 00772000 B @RC00707 03S0709 00773000 @RF00707 BAL @14,FREEBFR 03S0709 00774000 * END; 03S0710 00775000 * END; 03S0711 00776000 * ELSE 02S0712 00777000 * IF BDUCMND=CD0DISC THEN /* CALL DISCONNECT PROCESSOR IF 00778000 * THIS IS A DISCONNECT */ 00779000 B @RC00696 02S0712 00780000 @RF00696 CLI BDUCMND(BDUPTR),X'07' 02S0712 00781000 BNE @RF00712 02S0712 00782000 * 03S0713 00783000 * /***********************************************************/ 00784000 * /* */ 00785000 * /* PROCESS.DSCONECT: THIS SEGMENT DOES THE DISCONNECT */ 00786000 * /* PROCESSING. IF DISCONNECTING A DIAL TERMINAL THAT */ 00787000 * /* IDENTIFIED ITSELF WITH BSC ID OR ORIGIN MACRO, TCAM */ 00788000 * /* CONTROL BLOCKS WILL BE REASSIGNED */ 00789000 * /* */ 00790000 * /***********************************************************/ 00791000 * 03S0713 00792000 * DO; 03S0713 00793000 * TRMSESSN=OFF; /* THEN END SESSION */ 00794000 NI TRMSESSN(RTRM),B'10111111' 03S0714 00795000 * LCBDSCRJ=OFF; /* DSC OUTSTANDING OFF @OY20411*/ 00796000 NI LCBDSCRJ(RLCB),B'01111111' 03S0715 00797000 * LCBNEGRP=OFF; /* TURN OFF REQUEST FOR 03S0716 00798000 * DISCONNECT */ 00799000 NI LCBNEGRP(RLCB),B'11110111' 03S0716 00800000 * SCBMLMTN=OFF; /* RESET MSG LIMIT REACHED */ 00801000 L @10,IEDQSPTR 03S0717 00802000 NI SCBMLMTN(@10),B'11111110' 03S0717 00803000 * TRMRLMCT=0; /* RESET MSG LIMIT COUNT */ 00804000 MVI TRMRLMCT(RTRM),X'00' 03S0718 00805000 * IF TTHTAG2=TTHABORT& /* IF DISC TO ABORT INPUT THEN */ 00806000 * TTHTAG1=0 THEN 03S0719 00807000 LA @10,PRFPIUO(,RPRF) 03S0719 00808000 SLR @09,@09 03S0719 00809000 IC @09,PRFPIUO(,RPRF) 03S0719 00810000 ALR @10,@09 03S0719 00811000 CLI TTHTAG2(@10),X'04' 03S0719 00812000 BNE @RF00719 03S0719 00813000 CLI TTHTAG1(@10),0 03S0719 00814000 BNE @RF00719 03S0719 00815000 * DO; /* @YM08016*/ 00816000 * LCBUSUE=ON; /* INDICATE END OF RCV OPERATION 00817000 * @YM08016*/ 00818000 OI LCBUSUE(RLCB),B'00000001' 03S0721 00819000 * CALL OUTDHPST; /* RETURN RESPONSE TO IEDNKA */ 00820000 BAL @14,OUTDHPST 03S0722 00821000 * END; /* @YM08016*/ 00822000 * ELSE 03S0724 00823000 * DO; 03S0724 00824000 B @RC00719 03S0724 00825000 @RF00719 DS 0H 03S0725 00826000 * IF TRMDIAL=ON THEN /* IF DISCONNECTING A DIAL 03S0725 00827000 * TERMINAL AND... */ 00828000 TM TRMDIAL(RTRM),B'00001000' 03S0725 00829000 BNO @RF00725 03S0725 00830000 * DO; 03S0726 00831000 * IF TRMTYPE^=TRMCTERM THEN/* IT IS NOT A CTERM, 00832000 * THEN CALL THE 'REASSIGN' 03S0727 00833000 * SUBROUTINE TO REMOVE THE 03S0727 00834000 * CALLING TERMINAL FORM THE 00835000 * CONTROL BLOCK HIERARCHY */ 00836000 CLI TRMTYPE(RTRM),X'48' 03S0727 00837000 BE @RF00727 03S0727 00838000 * 04S0728 00839000 * /***********************************************/ 00840000 * /* */ 00841000 * /* PROCESS.DSCONECT.REASSIGN: THIS SEGMENT */ 00842000 * /* RESTORES IEDQTRM CONTROL BLOCK HIERARCHY. */ 00843000 * /* */ 00844000 * /***********************************************/ 00845000 * 04S0728 00846000 * DO; 04S0728 00847000 * RFY 04S0729 00848000 * (RZERO, 04S0729 00849000 * R3) RSTD; 04S0729 00850000 * IF TRMCONT=ON THEN/* IF TRMCONT IS ON, THE 00851000 * SESSION WAS INITIATED BY TCAM. 00852000 * IN THIS CASE, THE CTERM MUST 00853000 * BE MOVED BACK INTO THE 04S0730 00854000 * TERMINAL HIERARCHY IN PLACE OF 00855000 * THE LCI. */ 00856000 TM TRMCONT(RTRM),B'10000000' 04S0730 00857000 BNO @RF00730 04S0730 00858000 * DO; 04S0731 00859000 * TRMCONT=OFF; 04S0732 00860000 NI TRMCONT(RTRM),B'01111111' 04S0732 00861000 * RPARM=TRMCOHRT;/* PUT TNT OF LINE IN PARM 00862000 * REG AND... */ 00863000 LH RPARM,TRMCOHRT(,RTRM) 04S0733 00864000 N RPARM,@CF02356 04S0733 00865000 * CALL IEDQTNT;/* TRANSFORM TO A TRM 04S0734 00866000 * ADDRESS */ 00867000 L @15,AVTRNMPT(,IEDQAPTR) 04S0734 00868000 BALR @14,@15 04S0734 00869000 * RPARM=RPARM-LENGTH(IEDNTRM);/* @YM04622*/ 00870000 SL RPARM,@CF01995 04S0735 00871000 * RPARM->TRMSUBST=RPARM->TRMUTERM;/* PUT 00872000 * CTERM IN SUBSTRUCTURE */ 00873000 LH @10,TRMUTERM(,RPARM) 04S0736 00874000 N @10,@CF02356 04S0736 00875000 STH @10,TRMSUBST(,RPARM) 04S0736 00876000 * TRMTRACE=OFF;/* STOP TRACE IN 04S0737 00877000 * DISCONNECTED TERM @YM05664*/ 00878000 NI TRMTRACE(RTRM),B'11110111' 04S0737 00879000 * LINETRM=RPARM;/* SAVE THE LINE'S TRM 00880000 * ADDRESS @YM05664*/ 00881000 LR LINETRM,RPARM 04S0738 00882000 * RPARM=TRMUTERM;/* FINE CTERM'S TRM 04S0739 00883000 * ADDRESS @YM05664*/ 00884000 LH RPARM,TRMUTERM(,RTRM) 04S0739 00885000 N RPARM,@CF02356 04S0739 00886000 * CALL IEDQTNT;/* PROPAGATE.. @YM05664*/ 00887000 L @15,AVTRNMPT(,IEDQAPTR) 04S0740 00888000 BALR @14,@15 04S0740 00889000 * RPARM=RPARM-LENGTH(IEDNTRM);/* ..TRACE.. 00890000 * @YM05664*/ 00891000 SL RPARM,@CF01995 04S0741 00892000 * IF LINETRM->TRMTRACE=ON THEN/* ..BIT.. 00893000 * @YM05664*/ 00894000 TM TRMTRACE(LINETRM),B'00001000' 04S0742 00895000 BNO @RF00742 04S0742 00896000 * RPARM->TRMTRACE=ON;/* ..INTO..@YM05664 */ 00897000 OI TRMTRACE(RPARM),B'00001000' 04S0743 00898000 * ELSE /* ...@YM05664 */ 00899000 * RPARM->TRMTRACE=OFF;/* ...CTERM@YM05664*/ 00900000 B @RC00742 04S0744 00901000 @RF00742 NI TRMTRACE(RPARM),B'11110111' 04S0744 00902000 * IF TRMOCNI=ON|TRMCLOSN=ON THEN/* STOPLINE 00903000 * CLOSEDOWN@YM07428 */ 00904000 @RC00742 TM TRMOCNI(RTRM),B'00100000' 04S0745 00905000 BO @RT00745 04S0745 00906000 TM TRMCLOSN(RTRM),B'00100000' 04S0745 00907000 BNO @RF00745 04S0745 00908000 @RT00745 DS 0H 04S0746 00909000 * LCBLNENT=TRMCOHRT;/* SETUP LINE TNT 00910000 * @YM07428*/ 00911000 LH @10,TRMCOHRT(,RTRM) 04S0746 00912000 N @10,@CF02356 04S0746 00913000 STH @10,LCBLNENT(,RLCB) 04S0746 00914000 * ELSE 04S0747 00915000 * ; /* NO T STOPPPING @YM07428*/ 00916000 @RF00745 DS 0H 04S0748 00917000 * TRMCOHRT=0;/* REMOVE COHRT PTR FROM LCI 00918000 * TERMINAL */ 00919000 SLR @10,@10 04S0748 00920000 STH @10,TRMCOHRT(,RTRM) 04S0748 00921000 * END; 04S0749 00922000 * ELSE /* ELSE, TERMINAL INITIATED THE 00923000 * SESSION AND TERMINAL 04S0750 00924000 * IDENTIFIED ITSELF AS OTHER 00925000 * THAN CTERM. MODULE IEDDVAS 00926000 * WILL BE CALLED TO RESTORE THE 00927000 * CONTROL BLOCK HIERARCHY */ 00928000 * DO; 04S0750 00929000 B @RC00730 04S0750 00930000 @RF00730 DS 0H 04S0751 00931000 * RPARM=TRMCOHRT;/* ......BASE THE ..... */ 00932000 LH RPARM,TRMCOHRT(,RTRM) 04S0751 00933000 N RPARM,@CF02356 04S0751 00934000 * CALL IEDQTNT;/* .....IEDTRM DSECT..... */ 00935000 L @15,AVTRNMPT(,IEDQAPTR) 04S0752 00936000 BALR @14,@15 04S0752 00937000 * RPARM=RPARM-LENGTH(IEDNTRM);/* @YM04622*/ 00938000 SL RPARM,@CF01995 04S0753 00939000 * RFY 04S0754 00940000 * IEDTRM BASED(RPARM);/* ..ON THE LINE'S 00941000 * TRM @YM04622*/ 00942000 * RZERO=TRMSUBST;/* PASS LCI'S TTCIN TO 00943000 * IEDDVAS */ 00944000 LH RZERO,TRMSUBST(,RPARM) 04S0755 00945000 N RZERO,@CF02356 04S0755 00946000 * RPARM=TRMUTERM;/* PASS CTERM'S TTCIN TO 00947000 * IEDDVAS */ 00948000 LH @10,TRMUTERM(,RPARM) 04S0756 00949000 N @10,@CF02356 04S0756 00950000 LR RPARM,@10 04S0756 00951000 * RFY 04S0757 00952000 * IEDTRM BASED(RTRM);/* @YM04622*/ 00953000 * R3=RAVT-72;/* IEDDVAS NEEDS 04S0758 00954000 * ADDRESSABILITY TO AVT */ 00955000 LR R3,RAVT 04S0758 00956000 SL R3,@CF02303 04S0758 00957000 * CALL IEDDVAS;/* TO REASSIGN CNTRL BLKS */ 00958000 L @10,AVTSAVTP(,IEDQAPTR) 04S0759 00959000 L @15,SAVTDVAS(,@10) 04S0759 00960000 BALR @14,@15 04S0759 00961000 * RFY 04S0760 00962000 * (RZERO, 04S0760 00963000 * R3) UNRSTD; 04S0760 00964000 * END; 04S0761 00965000 * END; 04S0762 00966000 @RC00730 DS 0H 04S0763 00967000 * END; 03S0763 00968000 @RF00727 DS 0H 03S0764 00969000 * CALL FREEBFR; /* FREE PIU BFR @YM07714*/ 00970000 @RF00725 BAL @14,FREEBFR 03S0764 00971000 * CALL PLCBPOST; /* POST PLCB TO BD */ 00972000 BAL @14,PLCBPOST 03S0765 00973000 * END; 03S0766 00974000 * END; 03S0767 00975000 * ELSE 02S0768 00976000 * IF BDUCMND=CD0CTRL THEN /* CALL RESET PROCESSOR IF THIS 00977000 * IS A RESET */ 00978000 B @RC00712 02S0768 00979000 @RF00712 CLI BDUCMND(BDUPTR),X'08' 02S0768 00980000 BNE @RF00768 02S0768 00981000 * 03S0769 00982000 * /*********************************************************/ 00983000 * /* */ 00984000 * /* PROCESS.RESET: THIS SEGMENT DOES THE RESET COMMAND */ 00985000 * /* PROCESSING. ONLY TAGGED RESETS ARE PROCESSED. UNTAGGED*/ 00986000 * /* RESETS HAVE BEEN DISCARDED BY IEDSAI. TAGGED RESETS */ 00987000 * /* ARE GENERATED AT VARIOUS POINTS IN DEBLOCK TO RESET */ 00988000 * /* THE NCP'S ERROR LOCK AND CAUSE ANY PENDING COMMANDS TO*/ 00989000 * /* BE RETURNED. THE TAGGED RESET IS POSTED AS AN ERROR */ 00990000 * /* BUFFER TO THE MH OR OUTDH OR TO IEDQBD IF IT IS TSO. */ 00991000 * /* */ 00992000 * /*********************************************************/ 00993000 * 03S0769 00994000 * DO; 03S0769 00995000 * IF(TRMLYNCH=ON|TRMTSATN=ON) THEN/* TSO ATTN OR HANGUP? */ 00996000 TM TRMLYNCH(RTRM),B'00000001' 03S0770 00997000 BO @RT00770 03S0770 00998000 TM TRMTSATN(RTRM),B'00000100' 03S0770 00999000 BNO @RF00770 03S0770 01000000 @RT00770 DS 0H 03S0771 01001000 * DO; 03S0771 01002000 * IF TRMTSATN=ON THEN/* IF IT IS ATTN */ 01003000 TM TRMTSATN(RTRM),B'00000100' 03S0772 01004000 BNO @RF00772 03S0772 01005000 * SCBATTN=ON; /* THEN INDICATE ATTENTION */ 01006000 L @10,IEDQSPTR 03S0773 01007000 OI SCBATTN(@10),B'00000010' 03S0773 01008000 * ELSE 03S0774 01009000 * SCBCTLUN=ON; /* ELSE INDICATE HANGUP */ 01010000 B @RC00772 03S0774 01011000 @RF00772 L @10,IEDQSPTR 03S0774 01012000 OI SCBCTLUN(@10),B'00000100' 03S0774 01013000 * CALL BFRBDPST; /* POST BUFFER TO IEDQBD */ 01014000 @RC00772 BAL @14,BFRBDPST 03S0775 01015000 * END; 03S0776 01016000 * ELSE 03S0777 01017000 * DO; 03S0777 01018000 B @RC00770 03S0777 01019000 @RF00770 DS 0H 03S0778 01020000 * IF TRMNLOUT=ON THEN/* IF NULL WRITE IS OUTSTANDING */ 01021000 TM TRMNLOUT(RTRM),B'00000100' 03S0778 01022000 BNO @RF00778 03S0778 01023000 * IF LCBRESP=ON THEN/* AND RESPONSE OWED IS ON */ 01024000 TM LCBRESP(RLCB),B'00000001' 03S0779 01025000 BNO @RF00779 03S0779 01026000 * DO; /* (IE., NULL WR EOT HAD ERROR) */ 01027000 * LCBRESP=OFF;/* THEN TURN OFF RESP OWED */ 01028000 NI LCBRESP(RLCB),B'11111110' 03S0781 01029000 * TRMNLOUT=OFF;/* TURN OFF NULL OUT */ 01030000 NI TRMNLOUT(RTRM),B'11111011' 03S0782 01031000 * CALL FREEBFR;/* FREE PIU BFR @YM07714*/ 01032000 BAL @14,FREEBFR 03S0783 01033000 * CALL PLCBPOST;/* AND DO 'E7' POST OF PLCB */ 01034000 BAL @14,PLCBPOST 03S0784 01035000 * END; 03S0785 01036000 * ELSE 03S0786 01037000 * CALL OUTDHPST; 03S0786 01038000 B @RC00779 03S0786 01039000 @RF00779 BAL @14,OUTDHPST 03S0786 01040000 * ELSE /* NULL WR BLK HAD ERROR */ 01041000 * CALL ERRMHPST; /* OTHERWISE, SEND TO MH AS AN 01042000 * ERROR BUFFER */ 01043000 B @RC00778 03S0787 01044000 @RF00778 BAL @14,ERRMHPST 03S0787 01045000 * END; 03S0788 01046000 * END; 03S0789 01047000 * ELSE 02S0790 01048000 * IF BDUCMND=CD0UNSIP THEN/* CALL UNSIP PROCESSOR IF THIS 01049000 * IS UNSOLICITED INPUT */ 01050000 B @RC00768 02S0790 01051000 @RF00768 CLI BDUCMND(BDUPTR),X'77' 02S0790 01052000 BNE @RF00790 02S0790 01053000 * 03S0791 01054000 * /*******************************************************/ 01055000 * /* */ 01056000 * /* UNSIP: THIS SEGMENT PROCESSES UNSOLICITED INPUTS, */ 01057000 * /* GENERATED BY TSO ATTENTION AND HANGUPS. */ 01058000 * /* */ 01059000 * /*******************************************************/ 01060000 * 03S0791 01061000 * DO; 03S0791 01062000 * IF BDUPHASE^=RSP00&(BDURESP=RSPE0C|BDURESP=RSPE13) THEN 01063000 TM BDUPHASE(BDUPTR),B'01100000' 03S0792 01064000 BZ @RF00792 03S0792 01065000 TM BDURESP(BDUPTR),B'00001100' 03S0792 01066000 BNO @GL00017 03S0792 01067000 TM BDURESP(BDUPTR),B'00010011' 03S0792 01068000 BZ @RT00792 03S0792 01069000 @GL00017 TM BDURESP(BDUPTR),B'00010011' 03S0792 01070000 BNO @RF00792 03S0792 01071000 TM BDURESP(BDUPTR),B'00001100' 03S0792 01072000 BNZ @RF00792 03S0792 01073000 @RT00792 DS 0H 03S0793 01074000 * /* IF ATTN OR HANGUP */ 01075000 * DO; 03S0793 01076000 * IF BDURESP=RSPE13 THEN/* IF ATTN */ 01077000 TM BDURESP(BDUPTR),B'00010011' 03S0794 01078000 BNO @RF00794 03S0794 01079000 TM BDURESP(BDUPTR),B'00001100' 03S0794 01080000 BNZ @RF00794 03S0794 01081000 * TRMTSATN=ON; /* SET ATTN STATE */ 01082000 OI TRMTSATN(RTRM),B'00000100' 03S0795 01083000 * ELSE 03S0796 01084000 * TRMLYNCH=ON; /* SET HANGUP STATE */ 01085000 B @RC00794 03S0796 01086000 @RF00794 OI TRMLYNCH(RTRM),B'00000001' 03S0796 01087000 * CALL BLDRESET; /* BUILD TAGGED RESET IMMEDIATE 01088000 * IN THIS BUFFER */ 01089000 @RC00794 BAL @14,BLDRESET 03S0797 01090000 * IF QCBPLCBN=ON THEN/* IF PLCB IS ASSIGNED */ 01091000 LR @10,IEDQQPTR 03S0798 01092000 AL @10,@CF02360 03S0798 01093000 TM QCBPLCBN-4(@10),B'10000000' 03S0798 01094000 BNO @RF00798 03S0798 01095000 * LCBABRTN=ON; /* THEN ABORT ALL OUTPUT */ 01096000 OI LCBABRTN(RLCB),B'00000001' 03S0799 01097000 * TRMPREP=OFF; /* DO NOT ENTER MONITOR MODE */ 01098000 @RF00798 LA @07,TRMPREP(,RTRM) 03S0800 01099000 LR @05,@07 03S0800 01100000 LA @10,3 03S0800 01101000 NR @05,@10 03S0800 01102000 LCR @05,@05 03S0800 01103000 ALR @07,@05 03S0800 01104000 L @10,0(,@07) 03S0800 01105000 @GL00018 LR @09,@10 03S0800 01106000 N @09,@CB02361+3(@05) 03S0800 01107000 CS @10,@09,0(@07) 03S0800 01108000 BNE @GL00018 03S0800 01109000 * CALL PCOUT; 03S0801 01110000 BAL @14,PCOUT 03S0801 01111000 * END; 03S0802 01112000 * ELSE 03S0803 01113000 * CALL FREEBFR; 03S0803 01114000 B @RC00792 03S0803 01115000 @RF00792 BAL @14,FREEBFR 03S0803 01116000 * END; 03S0804 01117000 * ELSE 02S0805 01118000 * CALL FREEBFR; /* FREE THE CURRENT INPUT BUFFER */ 01119000 B @RC00790 02S0805 01120000 @RF00790 BAL @14,FREEBFR 02S0805 01121000 * CALL DSPDISP; /* EXIT TO TCAM DISPATCHER */ 01122000 @RC00790 DS 0H 02S0806 01123000 @RC00768 DS 0H 02S0806 01124000 @RC00712 DS 0H 02S0806 01125000 @RC00696 DS 0H 02S0806 01126000 @RC00528 LA @15,DSPDISP(,RDISP) 02S0806 01127000 BALR @14,@15 02S0806 01128000 * 02S0807 01129000 * /*****************************************************************/ 01130000 * /* */ 01131000 * /* BFRBDPST: POST A BUFFER TO BUFFER DISPOSITION TO DRIVE */ 01132000 * /* INMSG/OUTMSG PROCESSING */ 01133000 * /* */ 01134000 * /*****************************************************************/ 01135000 * 02S0807 01136000 * RFY 02S0807 01137000 * RRETURN RSTD; 02S0807 01138000 *BFRBDPST: 02S0808 01139000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0808 01140000 BFRBDPST DS 0H 02S0809 01141000 * R14SAV01=RRETURN; 02S0809 01142000 ST RRETURN,R14SAV01 02S0809 01143000 * BDUHEADR=ON; /* FORCE HDR BFR @YM08017*/ 01144000 OI BDUHEADR(BDUPTR),B'01000000' 02S0810 01145000 * RPARM=RPRF; /* PUT ELEMENT ADDR IN REG */ 01146000 LR RPARM,RPRF 02S0811 01147000 * CALL IEDXFMI; /* TRANSFORM PIU TO BFR */ 01148000 L @10,AVTSAVTP(,IEDQAPTR) 02S0812 01149000 L @15,SAVTXFMI(,@10) 02S0812 01150000 BALR @14,@15 02S0812 01151000 * PRFLCB=RLCB; /* PREFIX NEEDS LCB ADDRESS */ 01152000 STCM RLCB,7,PRFLCB(RPRF) 02S0813 01153000 * PRFPRI=PRILNEND; /* POST PRIORITY = 'E4' */ 01154000 MVI PRFPRI(RPRF),X'E4' 02S0814 01155000 * PRFQCBA=AVTMSGS->BDQCB; /* IEDQBD'S QCB ADDRESS */ 01156000 L @15,AVTMSGS-1(,IEDQAPTR) 02S0815 01157000 MVC PRFQCBA(3,RPRF),BDQCB+1(@15) 02S0815 01158000 * IF QCBTSSES=ON THEN /* IF THIS IS A TSO SESSION */ 01159000 TM QCBTSSES(IEDQQPTR),B'10000000' 02S0816 01160000 BNO @RF00816 02S0816 01161000 * DO; 02S0817 01162000 * PRFTSMSG=ON; /* THEN INDICATE A TSO BUFFER */ 01163000 OI PRFTSMSG(RPRF),B'00010000' 02S0818 01164000 * TRMTSATN=OFF; 02S0819 01165000 NI TRMTSATN(RTRM),B'11111011' 02S0819 01166000 * END; 02S0820 01167000 * LCBUSUE=ON; /* SET UNIT EXCEPTION */ 01168000 @RF00816 OI LCBUSUE(RLCB),B'00000001' 02S0821 01169000 * PRFCHDR=SCBSCHDR; /* SET CURRENT HDR TO HDR 02S0822 01170000 * @YM07795*/ 01171000 L @15,IEDQSPTR 02S0822 01172000 MVC PRFCHDR(3,RPRF),SCBSCHDR(@15) 02S0822 01173000 * PRFCORE=SCBSCHDR; /* SET CORE ADDR TO HDR @YM08017*/ 01174000 MVC PRFCORE(3,RPRF),SCBSCHDR(@15) 02S0823 01175000 * PRFCRCD=SCBSCHDR; /* SET CURRENT REC TO HDR 02S0824 01176000 * @YM08017*/ 01177000 MVC PRFCRCD(3,RPRF),SCBSCHDR(@15) 02S0824 01178000 * CALL DSPPOSTR; /* POST THE BUFFER */ 01179000 LA @15,DSPPOSTR(,RDISP) 02S0825 01180000 BALR @14,@15 02S0825 01181000 * RRETURN=R14SAV01; 02S0826 01182000 L RRETURN,R14SAV01 02S0826 01183000 * END BFRBDPST; 02S0827 01184000 @EL00002 DS 0H 02S0827 01185000 @EF00002 DS 0H 02S0827 01186000 @ER00002 BR @14 02S0827 01187000 * RFY 02S0828 01188000 * RRETURN UNRSTD; 02S0828 01189000 * 02S0829 01190000 * /*****************************************************************/ 01191000 * /* */ 01192000 * /* BLDRESET: THIS SEGMENT DOES THE BUILD RESET PROCESSING. A */ 01193000 * /* TAGGED RESET IMMEDIATE WILL BE BUILT TO RESET THE NCP'S ERROR */ 01194000 * /* LOCK AND RETURN ANY OUTSTANDING COMMANDS. WHEN THE TAGGED */ 01195000 * /* RESET RESPONSE IS RECEIVED, IT WILL BE POSTED TO THE MH AS AN */ 01196000 * /* ERROR BUFFER. THIS SUBROUTINE IS ALSO USED WHEN BUILDING NULL */ 01197000 * /* WRITE EOT'S. IF BUILDING A NULL WR EOT, THE CALLER MODIFIES */ 01198000 * /* CMD, MODIFIER AND TAG FIELDS. */ 01199000 * /* */ 01200000 * /*****************************************************************/ 01201000 * 02S0829 01202000 * RFY 02S0829 01203000 * RRETURN RSTD; 02S0829 01204000 *BLDRESET: 02S0830 01205000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0830 01206000 BLDRESET DS 0H 02S0831 01207000 * R14SAV10=RRETURN; 02S0831 01208000 ST RRETURN,R14SAV10 02S0831 01209000 * TTHBYTE0=TTH0BYT0; /* INDICATE FID 0 PIU */ 01210000 LA @15,PRFPIUO(,RPRF) 02S0832 01211000 SLR @10,@10 02S0832 01212000 IC @10,PRFPIUO(,RPRF) 02S0832 01213000 ALR @15,@10 02S0832 01214000 MVI TTHBYTE0(@15),X'0C' 02S0832 01215000 * TTHBYTE1=TTH0BYT1; /* NO FLAGS */ 01216000 MVI TTHBYTE1(@15),X'00' 02S0833 01217000 * CUROAF=TTHOAF; /* SAVE OAF */ 01218000 SLR CUROAF,CUROAF 02S0834 01219000 ICM CUROAF,3,TTHOAF(@15) 02S0834 01220000 * TTHOAF=TTHDAF; /* REVERSE OAF AND */ 01221000 MVC @TS00001(2),TTHDAF(@15) 02S0835 01222000 MVC TTHOAF(2,@15),@TS00001 02S0835 01223000 * TTHDAF=CUROAF; /* DAF PAIR */ 01224000 STCM CUROAF,3,TTHDAF(@15) 02S0836 01225000 * TTHTAG1=0; 02S0837 01226000 MVI TTHTAG1(@15),X'00' 02S0837 01227000 * TTHTAG2=TTHRESET; /* TAG FOR PROCESSING */ 01228000 MVI TTHTAG2(@15),X'02' 02S0838 01229000 * TTHDCF=LENGTH(IEDRH)+LENGTH(IEDBDU)+/* SET DATA LENGTH */ 01230000 * LENGTH(PIU0PAD); 02S0839 01231000 MVC TTHDCF(2,@15),@CH01307 02S0839 01232000 * PIU0RH=TRHFID0; /* BUILD FID 0 RH */ 01233000 MVC PIU0RH(3,@15),@CB01692 02S0840 01234000 * IEDBDU=IEDBDU&&IEDBDU; /* CLEAR BDU */ 01235000 XC IEDBDU(6,BDUPTR),IEDBDU(BDUPTR) 02S0841 01236000 * BDUCMND=CD0CTRL; /* RESET */ 01237000 MVI BDUCMND(BDUPTR),X'08' 02S0842 01238000 * BDUMODIF=CD0CRI; /* IMMEDIATE */ 01239000 MVI BDUMODIF(BDUPTR),X'44' 02S0843 01240000 * RRETURN=R14SAV10; 02S0844 01241000 L @10,R14SAV10 02S0844 01242000 LR RRETURN,@10 02S0844 01243000 * END BLDRESET; 02S0845 01244000 @EL00003 DS 0H 02S0845 01245000 @EF00003 DS 0H 02S0845 01246000 @ER00003 BR @14 02S0845 01247000 * RFY 02S0846 01248000 * RRETURN UNRSTD; 02S0846 01249000 * 02S0847 01250000 * /*****************************************************************/ 01251000 * /* */ 01252000 * /* ERBBD: POST AN ERB TO BUFFER DISPOSITION (IEDQBD). */ 01253000 * /* */ 01254000 * /*****************************************************************/ 01255000 * 02S0847 01256000 * RFY 02S0847 01257000 * RRETURN RSTD; 02S0847 01258000 *ERBBD: 02S0848 01259000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0848 01260000 ERBBD DS 0H 02S0849 01261000 * R14SAV02=RRETURN; 02S0849 01262000 ST RRETURN,R14SAV02 02S0849 01263000 * LCBERBPY=PRIRCQCB; /* SET PRIORITY */ 01264000 MVI LCBERBPY(RLCB),X'E0' 02S0850 01265000 * LCBERBQB=AVTMSGS->BDQCB; /* BD'S QCB ADDR @YM04629*/ 01266000 L @15,AVTMSGS-1(,IEDQAPTR) 02S0851 01267000 MVC LCBERBQB(3,RLCB),BDQCB+1(@15) 02S0851 01268000 * RPARM=ADDR(LCBERB); /* ERB IS POSTED ELEMENT */ 01269000 LA RPARM,LCBERB(,RLCB) 02S0852 01270000 * CALL DSPPOSTR; 02S0853 01271000 LA @15,DSPPOSTR(,RDISP) 02S0853 01272000 BALR @14,@15 02S0853 01273000 * RRETURN=R14SAV02; 02S0854 01274000 L RRETURN,R14SAV02 02S0854 01275000 * END ERBBD; 02S0855 01276000 @EL00004 DS 0H 02S0855 01277000 @EF00004 DS 0H 02S0855 01278000 @ER00004 BR @14 02S0855 01279000 * RFY 02S0856 01280000 * RRETURN UNRSTD; 02S0856 01281000 * 02S0857 01282000 * /*****************************************************************/ 01283000 * /* */ 01284000 * /* ERRMHPST:POST AN ERROR BUFFER TO MH */ 01285000 * /* */ 01286000 * /*****************************************************************/ 01287000 * 02S0857 01288000 * RFY 02S0857 01289000 * RRETURN RSTD; 02S0857 01290000 *ERRMHPST: 02S0858 01291000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0858 01292000 ERRMHPST DS 0H 02S0859 01293000 * R14SAV11=RRETURN; 02S0859 01294000 ST RRETURN,R14SAV11 02S0859 01295000 * IF LCBSENDN=ON THEN /* SENDING? @OZ30383*/ 01296000 TM LCBSENDN(RLCB),B'00000001' 02S0860 01297000 BNO @RF00860 02S0860 01298000 * DO; /* YES @OZ30383*/ 01299000 * RPARM=TTHOAF; /* REVERSE OAF & DAF @OZ30383*/ 01300000 LA @15,PRFPIUO(,RPRF) 02S0862 01301000 SLR @10,@10 02S0862 01302000 IC @10,PRFPIUO(,RPRF) 02S0862 01303000 ALR @15,@10 02S0862 01304000 SLR RPARM,RPARM 02S0862 01305000 ICM RPARM,3,TTHOAF(@15) 02S0862 01306000 * TTHOAF=TTHDAF; /* ... SO THAT DAF IS @OZ30383*/ 01307000 MVC @TS00001(2),TTHDAF(@15) 02S0863 01308000 MVC TTHOAF(2,@15),@TS00001 02S0863 01309000 * TTHDAF=RPARM; /* ... TNT OF OUTBOARD @OZ30383*/ 01310000 STCM RPARM,3,TTHDAF(@15) 02S0864 01311000 * END; /* ... FID0 TERMINAL @OZ30383*/ 01312000 * BDUHEADR=ON; /* FORCE HDR BFR @YM08017*/ 01313000 @RF00860 OI BDUHEADR(BDUPTR),B'01000000' 02S0866 01314000 * RPARM=RPRF; 02S0867 01315000 LR RPARM,RPRF 02S0867 01316000 * CALL IEDXFMI; /* TRANSFORM THIS PIU TO A TCAM 01317000 * BUFFER */ 01318000 L @10,AVTSAVTP(,IEDQAPTR) 02S0868 01319000 L @15,SAVTXFMI(,@10) 02S0868 01320000 BALR @14,@15 02S0868 01321000 */* */ 01322000 * 02S0869 01323000 * LCBERROR=ON; /* STOP READING OF MSG QUEUE */ 01324000 OI LCBERROR(RLCB),B'00000100' 02S0869 01325000 * LCBRCQCB=AVTMSGS->BDQCB; /* FOR IEDQFA @YM05677*/ 01326000 L @15,AVTMSGS-1(,IEDQAPTR) 02S0870 01327000 L @15,BDQCB(,@15) 02S0870 01328000 ST @15,LCBRCQCB(,RLCB) 02S0870 01329000 */* */ 01330000 * 02S0871 01331000 * IF QCBTSSES=ON THEN /* IF THIS IS TSO */ 01332000 TM QCBTSSES(IEDQQPTR),B'10000000' 02S0871 01333000 BNO @RF00871 02S0871 01334000 * PRFTSMSG=ON; /* SET TSO INDICATOR */ 01335000 OI PRFTSMSG(RPRF),B'00010000' 02S0872 01336000 */* */ 01337000 * 02S0873 01338000 * PRFLCB=RLCB; /* SET PLCB PTR */ 01339000 @RF00871 STCM RLCB,7,PRFLCB(RPRF) 02S0873 01340000 * PRFPRI=PRIERBFR; /* SET 'E3' ERROR PRIORITY */ 01341000 MVI PRFPRI(RPRF),X'E3' 02S0874 01342000 * PRFQCBA=LCBMHA; /* SET MH ADDRESS @YM06085*/ 01343000 MVC PRFQCBA(3,RPRF),LCBMHA(RLCB) 02S0875 01344000 * TRMTSATN=OFF; 02S0876 01345000 NI TRMTSATN(RTRM),B'11111011' 02S0876 01346000 * PRFCHDR=SCBSCHDR; /* SET CURRENT HDR TO HDR 02S0877 01347000 * @YM07795*/ 01348000 L @15,IEDQSPTR 02S0877 01349000 MVC PRFCHDR(3,RPRF),SCBSCHDR(@15) 02S0877 01350000 * PRFCORE=SCBSCHDR; /* SET CORE ADDR TO HDR @YM08017*/ 01351000 MVC PRFCORE(3,RPRF),SCBSCHDR(@15) 02S0878 01352000 * PRFCRCD=SCBSCHDR; /* SET CURRNET REC TO HDR 02S0879 01353000 * @YM08017*/ 01354000 MVC PRFCRCD(3,RPRF),SCBSCHDR(@15) 02S0879 01355000 * PRFSIZE=0; /* INDICATE ZERO LENGTH BUFFER */ 01356000 SLR @15,@15 02S0880 01357000 STH @15,PRFSIZE(,RPRF) 02S0880 01358000 */* */ 01359000 * 02S0881 01360000 * RPARM=RPRF; /* PICKUP BUFFER ADDRESS */ 01361000 LR RPARM,RPRF 02S0881 01362000 * CALL DSPPOSTR; /* POST BUFFER TO MH */ 01363000 LA @15,DSPPOSTR(,RDISP) 02S0882 01364000 BALR @14,@15 02S0882 01365000 */* */ 01366000 * 02S0883 01367000 * RRETURN=R14SAV11; 02S0883 01368000 L RRETURN,R14SAV11 02S0883 01369000 * END ERRMHPST; 02S0884 01370000 @EL00005 DS 0H 02S0884 01371000 @EF00005 DS 0H 02S0884 01372000 @ER00005 BR @14 02S0884 01373000 * RFY 02S0885 01374000 * RRETURN UNRSTD; 02S0885 01375000 * 02S0886 01376000 * /*****************************************************************/ 01377000 * /* */ 01378000 * /* ERRORBIT: SETS LCB/SCB ERROR INDICATORS AND PRESERVES BDU */ 01379000 * /* COMMAND AND RESPONSE FOR THE TCAM CONSOLE ERROR MESSAGE */ 01380000 * /* */ 01381000 * /*****************************************************************/ 01382000 * 02S0886 01383000 *ERRORBIT: 02S0886 01384000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S0886 01385000 ERRORBIT DS 0H 02S0887 01386000 * IF BDUPHASE=RSP00 /* PHASE 0 */ 01387000 * THEN 02S0887 01388000 TM BDUPHASE(BDUPTR),B'01100000' 02S0887 01389000 BNZ @RF00887 02S0887 01390000 * DO; 02S0888 01391000 * IF BDUFRSTB=ON /* HDR */ 01392000 * THEN /* SELECTION ERROR */ 01393000 TM BDUFRSTB(BDUPTR),B'00010000' 02S0889 01394000 BNO @RF00889 02S0889 01395000 * SCBSLCTN=ON; 02S0890 01396000 L @10,IEDQSPTR 02S0890 01397000 OI SCBSLCTN(@10),B'10000000' 02S0890 01398000 * ELSE /* TEXT ERROR */ 01399000 * SCBTXTTN=ON; 02S0891 01400000 B @RC00889 02S0891 01401000 @RF00889 L @10,IEDQSPTR 02S0891 01402000 OI SCBTXTTN(@10),B'01000000' 02S0891 01403000 * SCBCTLUN=ON; /* CTRL UNIT ERROR */ 01404000 @RC00889 L @10,IEDQSPTR 02S0892 01405000 OI SCBCTLUN(@10),B'00000100' 02S0892 01406000 * IF BDURESP=RSP0E1A /* OUT OF BUFFERS */ 01407000 * THEN /* SET NO BUFFERS */ 01408000 TM BDURESP(BDUPTR),B'00011010' 02S0893 01409000 BNO @RF00893 02S0893 01410000 TM BDURESP(BDUPTR),B'00000101' 02S0893 01411000 BNZ @RF00893 02S0893 01412000 * SCBNOBFN=ON; 02S0894 01413000 OI SCBNOBFN(@10),B'00000010' 02S0894 01414000 * ELSE /* COMMAND REJECT */ 01415000 * LCBCMDRJ=ON; 02S0895 01416000 B @RC00893 02S0895 01417000 @RF00893 OI LCBCMDRJ(RLCB),B'10000000' 02S0895 01418000 * END; 02S0896 01419000 * ELSE 02S0897 01420000 * DO; 02S0897 01421000 B @RC00887 02S0897 01422000 @RF00887 DS 0H 02S0898 01423000 * IF BDUSYRSP='A1'X|BDUSYRSP='A9'X THEN/* INTERVENTION REQUIRED 01424000 * OR SESSION NOT STARTED DUE TO 01425000 * HARDWARE PROBLEM @ZM06766*/ 01426000 CLI BDUSYRSP(BDUPTR),X'A1' 02S0898 01427000 BE @RT00898 02S0898 01428000 CLI BDUSYRSP(BDUPTR),X'A9' 02S0898 01429000 BNE @RF00898 02S0898 01430000 @RT00898 DS 0H 02S0899 01431000 * DO; /* YES @ZM06766*/ 01432000 * IF BDUEXRSP='9C'X|BDUEXRSP='88'X|BDUEXRSP='E0'X|BDUEXRSP= 01433000 * 'F0'X THEN /* ERROR WHICH REQUIRES A 02S0900 01434000 * DISCONNECT @ZM06766*/ 01435000 CLI BDUEXRSP(BDUPTR),X'9C' 02S0900 01436000 BE @RT00900 02S0900 01437000 CLI BDUEXRSP(BDUPTR),X'88' 02S0900 01438000 BE @RT00900 02S0900 01439000 CLI BDUEXRSP(BDUPTR),X'E0' 02S0900 01440000 BE @RT00900 02S0900 01441000 CLI BDUEXRSP(BDUPTR),X'F0' 02S0900 01442000 BNE @RF00900 02S0900 01443000 @RT00900 DS 0H 02S0901 01444000 * LCBNEGRP=ON; /* REQUEST A DISCONNECT @ZM06766*/ 01445000 OI LCBNEGRP(RLCB),B'00001000' 02S0901 01446000 * ELSE 02S0902 01447000 * ; /* LET THE OTHER CHECKS CATCH 01448000 * THESE @ZM06766*/ 01449000 @RF00900 DS 0H 02S0903 01450000 * END; /* @ZM06766*/ 01451000 * ELSE /* CHECK FOR ALREADY DISCONNECTED 01452000 * @ZM06766*/ 01453000 * DO; /* @ZM06766*/ 01454000 B @RC00898 02S0904 01455000 @RF00898 DS 0H 02S0905 01456000 * IF BDUSYRSP='EC'X THEN /* DISCONNECTED ? @ZM06766*/ 01457000 CLI BDUSYRSP(BDUPTR),X'EC' 02S0905 01458000 BNE @RF00905 02S0905 01459000 * LCBNEGRP=ON; /* REQUEST A DISCONNECT @ZM06766*/ 01460000 OI LCBNEGRP(RLCB),B'00001000' 02S0906 01461000 * ELSE 02S0907 01462000 * ; /* @ZM06766*/ 01463000 @RF00905 DS 0H 02S0908 01464000 * END; /* @ZM06766*/ 01465000 * IF BDUXINIT^=EXT80 /* NOT SPECIAL */ 01466000 * &BDUXINIT^=EXTE0 /* NOT H.W./USER ERROR */ 01467000 * THEN 02S0909 01468000 @RC00898 TM BDUXINIT(BDUPTR),B'10000000' 02S0909 01469000 BNO @GL00023 02S0909 01470000 TM BDUXINIT(BDUPTR),B'01100000' 02S0909 01471000 BZ @RF00909 02S0909 01472000 @GL00023 TM BDUXINIT(BDUPTR),B'11100000' 02S0909 01473000 BO @RF00909 02S0909 01474000 * DO; 02S0910 01475000 * IF BDUXINIT=EXT20 /* TEXT */ 01476000 * |BDUXINIT=EXT40 /* TRAN. TEXT MODE */ 01477000 * THEN /* TEXT ERROR */ 01478000 TM BDUXINIT(BDUPTR),B'00100000' 02S0911 01479000 BNO @GL00024 02S0911 01480000 TM BDUXINIT(BDUPTR),B'11000000' 02S0911 01481000 BZ @RT00911 02S0911 01482000 @GL00024 TM BDUXINIT(BDUPTR),B'01000000' 02S0911 01483000 BNO @RF00911 02S0911 01484000 TM BDUXINIT(BDUPTR),B'10100000' 02S0911 01485000 BNZ @RF00911 02S0911 01486000 @RT00911 DS 0H 02S0912 01487000 * SCBTXTTN=ON; 02S0912 01488000 L @10,IEDQSPTR 02S0912 01489000 OI SCBTXTTN(@10),B'01000000' 02S0912 01490000 * ELSE 02S0913 01491000 * IF BDUFRSTB=ON /* HDR */ 01492000 * THEN /* SELECTION ERROR */ 01493000 B @RC00911 02S0913 01494000 @RF00911 TM BDUFRSTB(BDUPTR),B'00010000' 02S0913 01495000 BNO @RF00913 02S0913 01496000 * SCBSLCTN=ON; 02S0914 01497000 L @10,IEDQSPTR 02S0914 01498000 OI SCBSLCTN(@10),B'10000000' 02S0914 01499000 * ELSE /* TEXT ERROR */ 01500000 * SCBTXTTN=ON; 02S0915 01501000 B @RC00913 02S0915 01502000 @RF00913 L @10,IEDQSPTR 02S0915 01503000 OI SCBTXTTN(@10),B'01000000' 02S0915 01504000 * IF BDUXFINL=EXTX0C /* WRONG ACK */ 01505000 * |BDUXFINL=EXTX0E /* NAK */ 01506000 * |BDUXFINL=EXTX04 /* CUTOFF */ 01507000 * THEN /* TERM/LINE ERROR */ 01508000 @RC00913 DS 0H 02S0916 01509000 @RC00911 TM BDUXFINL(BDUPTR),B'00001100' 02S0916 01510000 BNO @GL00026 02S0916 01511000 TM BDUXFINL(BDUPTR),B'00010010' 02S0916 01512000 BZ @RT00916 02S0916 01513000 @GL00026 TM BDUXFINL(BDUPTR),B'00001110' 02S0916 01514000 BNO @GL00025 02S0916 01515000 TM BDUXFINL(BDUPTR),B'00010000' 02S0916 01516000 BZ @RT00916 02S0916 01517000 @GL00025 TM BDUXFINL(BDUPTR),B'00000100' 02S0916 01518000 BNO @RF00916 02S0916 01519000 TM BDUXFINL(BDUPTR),B'00011010' 02S0916 01520000 BNZ @RF00916 02S0916 01521000 @RT00916 DS 0H 02S0917 01522000 * SCBTRMLN=ON; 02S0917 01523000 L @10,IEDQSPTR 02S0917 01524000 OI SCBTRMLN(@10),B'00010000' 02S0917 01525000 * ELSE 02S0918 01526000 * IF BDUXFINL=EXTX1A /* RVI */ 01527000 * THEN 02S0918 01528000 B @RC00916 02S0918 01529000 @RF00916 TM BDUXFINL(BDUPTR),B'00011010' 02S0918 01530000 BNO @RF00918 02S0918 01531000 TM BDUXFINL(BDUPTR),B'00000100' 02S0918 01532000 BNZ @RF00918 02S0918 01533000 * DO; 02S0919 01534000 * SCBTRMLN=ON; /* TERM/LINE ERROR */ 01535000 L @10,IEDQSPTR 02S0920 01536000 OI SCBTRMLN(@10),B'00010000' 02S0920 01537000 * SCBRVISL=ON; /* RVI ERROR */ 01538000 OI SCBRVISL(@10),B'00000001' 02S0921 01539000 * END; 02S0922 01540000 * ELSE 02S0923 01541000 * IF BDUXFINL=EXTX06|BDUXFINL=EXTX08/* BLOCK ABORTED 01542000 * @OZ32150*/ 01543000 * THEN 02S0923 01544000 B @RC00918 02S0923 01545000 @RF00918 TM BDUXFINL(BDUPTR),B'00000110' 02S0923 01546000 BNO @GL00027 02S0923 01547000 TM BDUXFINL(BDUPTR),B'00011000' 02S0923 01548000 BZ @RT00923 02S0923 01549000 @GL00027 TM BDUXFINL(BDUPTR),B'00001000' 02S0923 01550000 BNO @RF00923 02S0923 01551000 TM BDUXFINL(BDUPTR),B'00010110' 02S0923 01552000 BNZ @RF00923 02S0923 01553000 @RT00923 DS 0H 02S0924 01554000 * DO; 02S0924 01555000 * SCBTRMLN=ON; /* TERM/LINE ERROR */ 01556000 L @10,IEDQSPTR 02S0925 01557000 OI SCBTRMLN(@10),B'00010000' 02S0925 01558000 * SCBABRTN=ON; /* ABORT ERROR */ 01559000 OI SCBABRTN(@10),B'00000100' 02S0926 01560000 * END; 02S0927 01561000 * END; 02S0928 01562000 * ELSE 02S0929 01563000 * DO; 02S0929 01564000 B @RC00909 02S0929 01565000 @RF00909 DS 0H 02S0930 01566000 * IF BDUFRSTB=ON /* HDR */ 01567000 * THEN 02S0930 01568000 TM BDUFRSTB(BDUPTR),B'00010000' 02S0930 01569000 BNO @RF00930 02S0930 01570000 * IF BDUPHASE=RSP20 /* PHASE 1 */ 01571000 * THEN /* SELECTION ERROR */ 01572000 TM BDUPHASE(BDUPTR),B'00100000' 02S0931 01573000 BNO @RF00931 02S0931 01574000 TM BDUPHASE(BDUPTR),B'01000000' 02S0931 01575000 BNZ @RF00931 02S0931 01576000 * SCBSLCTN=ON; 02S0932 01577000 L @10,IEDQSPTR 02S0932 01578000 OI SCBSLCTN(@10),B'10000000' 02S0932 01579000 * ELSE /* TEXT ERROR */ 01580000 * SCBTXTTN=ON; 02S0933 01581000 B @RC00931 02S0933 01582000 @RF00931 L @10,IEDQSPTR 02S0933 01583000 OI SCBTXTTN(@10),B'01000000' 02S0933 01584000 * ELSE /* TEXT ERROR */ 01585000 * SCBTXTTN=ON; 02S0934 01586000 B @RC00930 02S0934 01587000 @RF00930 L @10,IEDQSPTR 02S0934 01588000 OI SCBTXTTN(@10),B'01000000' 02S0934 01589000 * IF BDUXINIT=EXT80 /* SPECIAL STATUS */ 01590000 * THEN 02S0935 01591000 @RC00930 TM BDUXINIT(BDUPTR),B'10000000' 02S0935 01592000 BNO @RF00935 02S0935 01593000 TM BDUXINIT(BDUPTR),B'01100000' 02S0935 01594000 BNZ @RF00935 02S0935 01595000 * DO; 02S0936 01596000 * IF BDUXFINL=EXTS00 /* TIME OUT */ 01597000 * THEN 02S0937 01598000 TM BDUXFINL(BDUPTR),B'00011110' 02S0937 01599000 BNZ @RF00937 02S0937 01600000 * DO; 02S0938 01601000 * LCBTMOUT=ON; /* TIME OUT */ 01602000 OI LCBTMOUT(RLCB),B'00000001' 02S0939 01603000 * SCBTRMLN=ON; /* LINE/TERM ERROR */ 01604000 L @10,IEDQSPTR 02S0940 01605000 OI SCBTRMLN(@10),B'00010000' 02S0940 01606000 * END; 02S0941 01607000 * ELSE 02S0942 01608000 * IF BDUXFINL=EXTS02/* CMD REJECT */ 01609000 * THEN 02S0942 01610000 B @RC00937 02S0942 01611000 @RF00937 TM BDUXFINL(BDUPTR),B'00000010' 02S0942 01612000 BNO @RF00942 02S0942 01613000 TM BDUXFINL(BDUPTR),B'00011100' 02S0942 01614000 BNZ @RF00942 02S0942 01615000 * DO; 02S0943 01616000 * LCBCMDRJ=ON; /* CMD REJECT */ 01617000 OI LCBCMDRJ(RLCB),B'10000000' 02S0944 01618000 * SCBCTLUN=ON; /* CTRL UNIT ERROR */ 01619000 L @10,IEDQSPTR 02S0945 01620000 OI SCBCTLUN(@10),B'00000100' 02S0945 01621000 * END; 02S0946 01622000 * ELSE 02S0947 01623000 * IF BDUXFINL=EXTS1A|BDUXFINL=EXTS14/* TCAM ATTN */ 01624000 * THEN /* SET SCB ATTN */ 01625000 B @RC00942 02S0947 01626000 @RF00942 TM BDUXFINL(BDUPTR),B'00011010' 02S0947 01627000 BNO @GL00028 02S0947 01628000 TM BDUXFINL(BDUPTR),B'00000100' 02S0947 01629000 BZ @RT00947 02S0947 01630000 @GL00028 TM BDUXFINL(BDUPTR),B'00010100' 02S0947 01631000 BNO @RF00947 02S0947 01632000 TM BDUXFINL(BDUPTR),B'00001010' 02S0947 01633000 BNZ @RF00947 02S0947 01634000 @RT00947 DS 0H 02S0948 01635000 * SCBATTN=ON; 02S0948 01636000 L @10,IEDQSPTR 02S0948 01637000 OI SCBATTN(@10),B'00000010' 02S0948 01638000 * ELSE 02S0949 01639000 * IF BDUXFINL=EXTS1C/* DISCONNECT */ 01640000 * THEN 02S0949 01641000 B @RC00947 02S0949 01642000 @RF00947 TM BDUXFINL(BDUPTR),B'00011100' 02S0949 01643000 BNO @RF00949 02S0949 01644000 TM BDUXFINL(BDUPTR),B'00000010' 02S0949 01645000 BNZ @RF00949 02S0949 01646000 * DO; 02S0950 01647000 * LCBINTRQ=ON;/* INTERVENTION REQUIRED */ 01648000 OI LCBINTRQ(RLCB),B'01000000' 02S0951 01649000 * SCBTRMLN=ON;/* LINE/TERM ERROR */ 01650000 L @10,IEDQSPTR 02S0952 01651000 OI SCBTRMLN(@10),B'00010000' 02S0952 01652000 * END; 02S0953 01653000 * ELSE 02S0954 01654000 * IF BDUXFINL=EXTS0A/* LOST DATA */ 01655000 * THEN 02S0954 01656000 B @RC00949 02S0954 01657000 @RF00949 TM BDUXFINL(BDUPTR),B'00001010' 02S0954 01658000 BNO @RF00954 02S0954 01659000 TM BDUXFINL(BDUPTR),B'00010100' 02S0954 01660000 BNZ @RF00954 02S0954 01661000 * DO; 02S0955 01662000 * LCBLOSDT=ON;/* LOST DATA */ 01663000 OI LCBLOSDT(RLCB),B'00000010' 02S0956 01664000 * SCBTRMLN=ON;/* LINE/TERM ERROR */ 01665000 L @10,IEDQSPTR 02S0957 01666000 OI SCBTRMLN(@10),B'00010000' 02S0957 01667000 * END; 02S0958 01668000 * ELSE 02S0959 01669000 * IF BDUXFINL=EXTS12/* EOT AFTER WACK */ 01670000 * THEN 02S0959 01671000 B @RC00954 02S0959 01672000 @RF00954 TM BDUXFINL(BDUPTR),B'00010010' 02S0959 01673000 BNO @RF00959 02S0959 01674000 TM BDUXFINL(BDUPTR),B'00001100' 02S0959 01675000 BNZ @RF00959 02S0959 01676000 * DO; 02S0960 01677000 * SCBTRMLN=ON;/* LINE/TERM ERROR */ 01678000 L @10,IEDQSPTR 02S0961 01679000 OI SCBTRMLN(@10),B'00010000' 02S0961 01680000 * QCBCNTEN=ON;/* CONTENTION @OX17153*/ 01681000 OI QCBCNTEN(IEDQQPTR),B'00000001' 02S0962 01682000 * END; 02S0963 01683000 * END; 02S0964 01684000 * ELSE /* H.W./USER ERROR STATUS */ 01685000 * DO; 02S0965 01686000 B @RC00935 02S0965 01687000 @RF00935 DS 0H 02S0966 01688000 * LCBEQUCK=ON; /* EQUIP CHECK */ 01689000 OI LCBEQUCK(RLCB),B'00010000' 02S0966 01690000 * SCBCTLUN=ON; /* CTRL UNIT ERROR */ 01691000 L @10,IEDQSPTR 02S0967 01692000 OI SCBCTLUN(@10),B'00000100' 02S0967 01693000 * END; 02S0968 01694000 * END; 02S0969 01695000 @RC00935 DS 0H 02S0970 01696000 * IF BDURESP=RSPE00 /* DATA CHECK */ 01697000 * THEN 02S0970 01698000 @RC00909 TM BDURESP(BDUPTR),B'00011111' 02S0970 01699000 BNZ @RF00970 02S0970 01700000 * DO; 02S0971 01701000 * SCBTRMLN=ON; /* LINE/TERM ERROR */ 01702000 L @10,IEDQSPTR 02S0972 01703000 OI SCBTRMLN(@10),B'00010000' 02S0972 01704000 * LCBDATCK=ON; /* DATA CHECK */ 01705000 OI LCBDATCK(RLCB),B'00001000' 02S0973 01706000 * SCBTXTTN=ON; /* TEXT ERROR */ 01707000 OI SCBTXTTN(@10),B'01000000' 02S0974 01708000 * END; 02S0975 01709000 * ELSE 02S0976 01710000 * IF BDURESP=RSPE02| /* I.R. */ 01711000 * BDURESP=RSPE01 /* POSS. I.R. */ 01712000 * THEN 02S0976 01713000 B @RC00970 02S0976 01714000 @RF00970 TM BDURESP(BDUPTR),B'00000010' 02S0976 01715000 BNO @GL00029 02S0976 01716000 TM BDURESP(BDUPTR),B'00011101' 02S0976 01717000 BZ @RT00976 02S0976 01718000 @GL00029 TM BDURESP(BDUPTR),B'00000001' 02S0976 01719000 BNO @RF00976 02S0976 01720000 TM BDURESP(BDUPTR),B'00011110' 02S0976 01721000 BNZ @RF00976 02S0976 01722000 @RT00976 DS 0H 02S0977 01723000 * DO; 02S0977 01724000 * LCBINTRQ=ON; /* INTERVENTION REQUIRED */ 01725000 OI LCBINTRQ(RLCB),B'01000000' 02S0978 01726000 * SCBTRMLN=ON; /* LINE/TERM ERROR */ 01727000 L @10,IEDQSPTR 02S0979 01728000 OI SCBTRMLN(@10),B'00010000' 02S0979 01729000 * END; 02S0980 01730000 * END; 02S0981 01731000 @RF00976 DS 0H 02S0981 01732000 @RC00970 DS 0H 02S0982 01733000 * IF^(BDUXINIT=EXT80&(BDUXFINL=EXTS1A|BDUXFINL=EXTS14))/* NOT TCAM 01734000 * ATTN */ 01735000 * THEN 02S0982 01736000 @RC00887 TM BDUXINIT(BDUPTR),B'10000000' 02S0982 01737000 BNO @RT00982 02S0982 01738000 TM BDUXINIT(BDUPTR),B'01100000' 02S0982 01739000 BNZ @RT00982 02S0982 01740000 TM BDUXFINL(BDUPTR),B'00011010' 02S0982 01741000 BNO @GL00031 02S0982 01742000 TM BDUXFINL(BDUPTR),B'00000100' 02S0982 01743000 BZ @RF00982 02S0982 01744000 @GL00031 TM BDUXFINL(BDUPTR),B'00010100' 02S0982 01745000 BNO @RT00982 02S0982 01746000 TM BDUXFINL(BDUPTR),B'00001010' 02S0982 01747000 BZ @RF00982 02S0982 01748000 @RT00982 DS 0H 02S0983 01749000 * DO; 02S0983 01750000 * IF(BDUPHASE^=RSP00&BDURESP=RSPE05) THEN 02S0984 01751000 TM BDUPHASE(BDUPTR),B'01100000' 02S0984 01752000 BZ @RF00984 02S0984 01753000 TM BDURESP(BDUPTR),B'00000101' 02S0984 01754000 BNO @RF00984 02S0984 01755000 TM BDURESP(BDUPTR),B'00011010' 02S0984 01756000 BNZ @RF00984 02S0984 01757000 * TRMSTPND=ON; 02S0985 01758000 OI TRMSTPND(RTRM),B'10000000' 02S0985 01759000 * ELSE 02S0986 01760000 * DO; 02S0986 01761000 B @RC00984 02S0986 01762000 @RF00984 DS 0H 02S0987 01763000 * IF BDURESP^=RSPE13 /* BREAK NOT RECEIVED @OZ32702*/ 01764000 * THEN 02S0987 01765000 TM BDURESP(BDUPTR),B'00010011' 02S0987 01766000 BNO @RT00987 02S0987 01767000 TM BDURESP(BDUPTR),B'00001100' 02S0987 01768000 BZ @RF00987 02S0987 01769000 @RT00987 DS 0H 02S0988 01770000 * DO; /* @OZ32702*/ 01771000 * LCBCMDSV=BDUCMND; /* PRESERVE COMMAND @OY18040*/ 01772000 MVC LCBCMDSV(1,RLCB),BDUCMND(BDUPTR) 02S0989 01773000 * LCBCSWRC=BDURSP; /* SAVE BDU SYS RESP AND EXT RESP 01774000 * @YM08042*/ 01775000 MVC LCBCSWRC(2,RLCB),BDURSP(BDUPTR) 02S0990 01776000 * LCBERMSG=ON; /* REQUEST ERROR MSG */ 01777000 OI LCBERMSG(RLCB),B'00100000' 02S0991 01778000 * END; /* @OZ32702*/ 01779000 * END; 02S0993 01780000 * END; 02S0994 01781000 * END ERRORBIT; 02S0995 01782000 @EL00006 DS 0H 02S0995 01783000 @EF00006 DS 0H 02S0995 01784000 @ER00006 BR @14 02S0995 01785000 * 02S0996 01786000 * /*****************************************************************/ 01787000 * /* */ 01788000 * /* ERRWRITE: PROCCESS WRITE DATA COMMANDS ENDING IN ERROR */ 01789000 * /* */ 01790000 * /*****************************************************************/ 01791000 * 02S0996 01792000 *ERRWRITE: 02S0996 01793000 * PROC OPTIONS(RETREG,SAVE(14)); 02S0996 01794000 ERRWRITE ST @14,@SA00007 02S0996 01795000 * IF TTHTAG2=TTHABORT THEN /* IS THIS AN ABORT CAUSED BY 01796000 * STOP=YES ON STARTMH MACRO? */ 01797000 LA @10,PRFPIUO(,RPRF) 02S0997 01798000 SLR @05,@05 02S0997 01799000 IC @05,PRFPIUO(,RPRF) 02S0997 01800000 ALR @10,@05 02S0997 01801000 CLI TTHTAG2(@10),X'04' 02S0997 01802000 BNE @RF00997 02S0997 01803000 * CALL OUTDHPST; /* IF YES, THEN POST THE RESPONSE 01804000 * BACK TO OUTPUT DATA HANDLER */ 01805000 BAL @14,OUTDHPST 02S0998 01806000 * ELSE 02S0999 01807000 * DO; 02S0999 01808000 B @RC00997 02S0999 01809000 @RF00997 DS 0H 02S1000 01810000 * LCBABRTN=ON; /* THIS INDICATOR WILL CAUSE ALL 01811000 * FURTHER WRITE BUFFERS TO BE 01812000 * DISCARDED */ 01813000 OI LCBABRTN(RLCB),B'00000001' 02S1000 01814000 * IF BDURESP=RSPE05& /* IS BSC STATUS PENDING? */ 01815000 * BDUPHASE^=RSP00 THEN 02S1001 01816000 TM BDURESP(BDUPTR),B'00000101' 02S1001 01817000 BNO @RF01001 02S1001 01818000 TM BDURESP(BDUPTR),B'00011010' 02S1001 01819000 BNZ @RF01001 02S1001 01820000 TM BDUPHASE(BDUPTR),B'01100000' 02S1001 01821000 BZ @RF01001 02S1001 01822000 * DO; 02S1002 01823000 * CALL ERRORBIT; /* SET LCB/SCB ERROR INDICATORS */ 01824000 BAL @14,ERRORBIT 02S1003 01825000 * CALL BLDRESET; /* BUILD A RESET IMMEDIATE */ 01826000 BAL @14,BLDRESET 02S1004 01827000 * LCBBFRW=RPRF; /* SAVE IT UNTIL STATUS COMES IN, 01828000 * AT WHICH TIME THIS RESET WILL 01829000 * BE POSTED TO THE NCP TO TURN 01830000 * OFF THE ERR LOCK */ 01831000 STCM RPRF,7,LCBBFRW(RLCB) 02S1005 01832000 * END; 02S1006 01833000 * ELSE 02S1007 01834000 * DO; 02S1007 01835000 B @RC01001 02S1007 01836000 @RF01001 DS 0H 02S1008 01837000 * IF BDURESP=RSPE13& /* IS THIS ATTENTION... */ 01838000 * BDUPHASE^=RSP00& /* ...FROM A... */ 01839000 * QCBTSSES=ON THEN /* ...TSO TERMINAL? */ 01840000 TM BDURESP(BDUPTR),B'00010011' 02S1008 01841000 BNO @RF01008 02S1008 01842000 TM BDURESP(BDUPTR),B'00001100' 02S1008 01843000 BNZ @RF01008 02S1008 01844000 TM BDUPHASE(BDUPTR),B'01100000' 02S1008 01845000 BZ @RF01008 02S1008 01846000 TM QCBTSSES(IEDQQPTR),B'10000000' 02S1008 01847000 BNO @RF01008 02S1008 01848000 * TRMTSATN=ON; /* REMEMBER THE CONDITION */ 01849000 OI TRMTSATN(RTRM),B'00000100' 02S1009 01850000 * ELSE 02S1010 01851000 * IF BDURESP=RSPE0C& /* IS THIS HANGUP... */ 01852000 * BDUPHASE^=RSP00& /* ...FROM A... */ 01853000 * QCBTSSES=ON THEN /* ...TSO TERMINAL? */ 01854000 B @RC01008 02S1010 01855000 @RF01008 TM BDURESP(BDUPTR),B'00001100' 02S1010 01856000 BNO @RF01010 02S1010 01857000 TM BDURESP(BDUPTR),B'00010011' 02S1010 01858000 BNZ @RF01010 02S1010 01859000 TM BDUPHASE(BDUPTR),B'01100000' 02S1010 01860000 BZ @RF01010 02S1010 01861000 TM QCBTSSES(IEDQQPTR),B'10000000' 02S1010 01862000 BNO @RF01010 02S1010 01863000 * TRMLYNCH=ON; /* REMEMBER THE CONDITION */ 01864000 OI TRMLYNCH(RTRM),B'00000001' 02S1011 01865000 * ELSE 02S1012 01866000 * CALL ERRORBIT; /* THIS ROUTINE WILL SET SCB/LCB 01867000 * MESSAGE ERROR RECORD BITS AND 01868000 * STORE STATUS FOR OPERATOR 01869000 * AWARENESS MESSAGE */ 01870000 B @RC01010 02S1012 01871000 @RF01010 BAL @14,ERRORBIT 02S1012 01872000 * TRMERLCK=OFF; /* RESET SO SSCHED WON'T SEND 01873000 * RESET @YM06108*/ 01874000 @RC01010 DS 0H 02S1013 01875000 @RC01008 NI TRMERLCK(RTRM),B'11111011' 02S1013 01876000 * CALL BLDRESET; /* BUILD A RESET IMMEDIATE */ 01877000 BAL @14,BLDRESET 02S1014 01878000 * CALL PCOUT; /* SEND TO NCP TO TURN OFF THE 01879000 * NCP ERROR LOCK AND FREE ANY 01880000 * PENDING COMMANDS. WHEN THE 01881000 * RESET IS RETURNED IT WILL BE 01882000 * POSTED TO THE MH AS AN ERROR 01883000 * BUFFER */ 01884000 BAL @14,PCOUT 02S1015 01885000 * END; 02S1016 01886000 * END; 02S1017 01887000 * END ERRWRITE; 02S1018 01888000 @EL00007 DS 0H 02S1018 01889000 @EF00007 DS 0H 02S1018 01890000 @ER00007 L @14,@SA00007 02S1018 01891000 BR @14 02S1018 01892000 * 02S1019 01893000 * /*****************************************************************/ 01894000 * /* */ 01895000 * /* FREEBFR: POST A BUFFER TO BUFFER RETURN. */ 01896000 * /* */ 01897000 * /*****************************************************************/ 01898000 * 02S1019 01899000 * RFY 02S1019 01900000 * RRETURN RSTD; 02S1019 01901000 *FREEBFR: 02S1020 01902000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1020 01903000 FREEBFR DS 0H 02S1021 01904000 * R14SAV03=RRETURN; 02S1021 01905000 ST RRETURN,R14SAV03 02S1021 01906000 * PRFNBUNT=0; /* SET NUMB UNITS=0 */ 01907000 MVI PRFNBUNT(RPRF),X'00' 02S1022 01908000 * PRFPRI=PRIBFRTB; /* INDICATE PRIORITY */ 01909000 MVI PRFPRI(RPRF),X'E0' 02S1023 01910000 * PRFQCBA=ADDR(AVTBFRTB); /* QCB ADDRESS */ 01911000 LA @15,AVTBFRTB(,IEDQAPTR) 02S1024 01912000 STCM @15,7,PRFQCBA(RPRF) 02S1024 01913000 * RPARM=RPRF; /* BUFFER ADDRESS */ 01914000 LR RPARM,RPRF 02S1025 01915000 * CALL DSPPOSTR; 02S1026 01916000 LA @15,DSPPOSTR(,RDISP) 02S1026 01917000 BALR @14,@15 02S1026 01918000 * RRETURN=R14SAV03; 02S1027 01919000 L RRETURN,R14SAV03 02S1027 01920000 * END FREEBFR; 02S1028 01921000 @EL00008 DS 0H 02S1028 01922000 @EF00008 DS 0H 02S1028 01923000 @ER00008 BR @14 02S1028 01924000 * RFY 02S1029 01925000 * RRETURN UNRSTD; 02S1029 01926000 * 02S1030 01927000 * /*****************************************************************/ 01928000 * /* */ 01929000 * /* KILLSND: IF A SEND-INITIAL RETURNS IN ERROR THIS ATTEMPT TO */ 01930000 * /* SEND IS TERMINATED AS FOLLOWS: THE ERROR IS ANALYZED. IF IT IS*/ 01931000 * /* A SELECTION PROBLEM RELATED TO HARDWARE, SCBSLCTN IS SET. IF */ 01932000 * /* IT IS A SCHEDULING CONFLICT (RVI, YIELD TO CONTENTION, ETC) */ 01933000 * /* THEN TRMNOSND IS SET. */ 01934000 * /* */ 01935000 * /*****************************************************************/ 01936000 * 02S1030 01937000 * RFY 02S1030 01938000 * RRETURN RSTD; 02S1030 01939000 *KILLSND: 02S1031 01940000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1031 01941000 KILLSND DS 0H 02S1032 01942000 * R14SAV04=RRETURN; 02S1032 01943000 ST RRETURN,R14SAV04 02S1032 01944000 * IF BDUSYRSP=RSPRJCTD| /* IF CONTACT IS REJECTED */ 01945000 * BDUSYRSP=RSPSYNER| /* OR SYNTAX ERROR */ 01946000 * LCBWAITC^=0| /* OR SOMETHING ON WAIT CHAIN */ 01947000 * BDUSYRSP=RSPCNTN THEN /* OR YIELD TO CONTENTION */ 01948000 CLI BDUSYRSP(BDUPTR),X'B8' 02S1033 01949000 BE @RT01033 02S1033 01950000 CLI BDUSYRSP(BDUPTR),X'88' 02S1033 01951000 BE @RT01033 02S1033 01952000 L @15,LCBWAITC-1(,RLCB) 02S1033 01953000 LA @15,0(,@15) 02S1033 01954000 LTR @15,@15 02S1033 01955000 BNZ @RT01033 02S1033 01956000 CLI BDUSYRSP(BDUPTR),X'A4' 02S1033 01957000 BNE @RF01033 02S1033 01958000 @RT01033 DS 0H 02S1034 01959000 * TRMNOSND=ON; /* INDICATE SCHEDULING ERROR */ 01960000 LA @09,TRMNOSND(,RTRM) 02S1034 01961000 LR @05,@09 02S1034 01962000 LA @15,3 02S1034 01963000 NR @05,@15 02S1034 01964000 LCR @05,@05 02S1034 01965000 ALR @09,@05 02S1034 01966000 L @15,0(,@09) 02S1034 01967000 @GL00041 LR @10,@15 02S1034 01968000 O @10,@CB02367+3(@05) 02S1034 01969000 CS @15,@10,0(@09) 02S1034 01970000 BNE @GL00041 02S1034 01971000 * ELSE 02S1035 01972000 * IF(BDUXINIT^=EXT80& /* .....IF...... */ 01973000 * BDUXINIT^=EXTE0& /* ...THIS IS... */ 01974000 * BDUXFINL=EXTX1A)| /* .....RVI..... OR */ 01975000 * ((LCBSYNC=OFF&BDUXGRPH=ON)&/* NOT BSC, LEADING GRAPHICS, */ 01976000 * (DATABYT1=BID|DATABYT1=ENTER))/* AND BID OR ENTER MODE */ 01977000 * THEN 02S1035 01978000 B @RC01033 02S1035 01979000 @RF01033 TM BDUXINIT(BDUPTR),B'10000000' 02S1035 01980000 BNO @GL00044 02S1035 01981000 TM BDUXINIT(BDUPTR),B'01100000' 02S1035 01982000 BZ @GL00042 02S1035 01983000 @GL00044 TM BDUXINIT(BDUPTR),B'11100000' 02S1035 01984000 BO @GL00042 02S1035 01985000 TM BDUXFINL(BDUPTR),B'00011010' 02S1035 01986000 BNO @GL00042 02S1035 01987000 TM BDUXFINL(BDUPTR),B'00000100' 02S1035 01988000 BZ @RT01035 02S1035 01989000 @GL00042 TM LCBSYNC(RLCB),B'00000100' 02S1035 01990000 BNZ @RF01035 02S1035 01991000 TM BDUXGRPH(BDUPTR),B'00000001' 02S1035 01992000 BNO @RF01035 02S1035 01993000 LA @15,PRFPIUO(,RPRF) 02S1035 01994000 SLR @10,@10 02S1035 01995000 IC @10,PRFPIUO(,RPRF) 02S1035 01996000 ALR @15,@10 02S1035 01997000 LA @15,PIU0RU(,@15) 02S1035 01998000 AL @15,@CF00058 02S1035 01999000 CLI DATABYT1(@15),X'10' 02S1035 02000000 BE @RT01035 02S1035 02001000 CLI DATABYT1(@15),X'20' 02S1035 02002000 BNE @RF01035 02S1035 02003000 @RT01035 DS 0H 02S1036 02004000 * TRMNOSND=ON; /* INDICATE THIS IS A SCHEDULING 02005000 * ERROR */ 02006000 LA @09,TRMNOSND(,RTRM) 02S1036 02007000 LR @05,@09 02S1036 02008000 LA @15,3 02S1036 02009000 NR @05,@15 02S1036 02010000 LCR @05,@05 02S1036 02011000 ALR @09,@05 02S1036 02012000 L @15,0(,@09) 02S1036 02013000 @GL00048 LR @10,@15 02S1036 02014000 O @10,@CB02367+3(@05) 02S1036 02015000 CS @15,@10,0(@09) 02S1036 02016000 BNE @GL00048 02S1036 02017000 * ELSE /* IF THIS POINT IS REACHED IT IS 02018000 * A HARDWARE ERROR */ 02019000 * CALL ERRORBIT; /* SET LCB/SCB ERROR BITS */ 02020000 B @RC01035 02S1037 02021000 @RF01035 BAL @14,ERRORBIT 02S1037 02022000 * RRETURN=R14SAV04; 02S1038 02023000 @RC01035 DS 0H 02S1038 02024000 @RC01033 L RRETURN,R14SAV04 02S1038 02025000 * END KILLSND; 02S1039 02026000 @EL00009 DS 0H 02S1039 02027000 @EF00009 DS 0H 02S1039 02028000 @ER00009 BR @14 02S1039 02029000 * RFY 02S1040 02030000 * RRETURN UNRSTD; 02S1040 02031000 * 02S1041 02032000 * /*****************************************************************/ 02033000 * /* */ 02034000 * /* NCPERP: TSO SECONDARY NCP ERROR RECOVERY */ 02035000 * /* */ 02036000 * /*****************************************************************/ 02037000 * 02S1041 02038000 * RFY 02S1041 02039000 * RRETURN RSTD; 02S1041 02040000 *NCPERP: 02S1042 02041000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1042 02042000 NCPERP DS 0H 02S1043 02043000 * R14SAV05=RRETURN; 02S1043 02044000 ST RRETURN,R14SAV05 02S1043 02045000 * IF QCBHUCT=QCBHUCT1 THEN /* IS TSO RETRY LIMIT REACHED? 02046000 * @YM05697*/ 02047000 TM QCBHUCT(IEDQQPTR),B'00000001' 02S1044 02048000 BNO @RF01044 02S1044 02049000 TM QCBHUCT(IEDQQPTR),B'00000010' 02S1044 02050000 BNZ @RF01044 02S1044 02051000 * DO; 02S1045 02052000 * TRMLYNCH=ON; /* REQUEST DISCONNECT */ 02053000 OI TRMLYNCH(RTRM),B'00000001' 02S1046 02054000 */* */ 02055000 */*PUT THIS INPUT ON PLCB WAIT CHAIN */ 02056000 */* */ 02057000 * 02S1047 02058000 * PRFLINK=0; /* SET LINK FIELD TO ZERO */ 02059000 SLR @15,@15 02S1047 02060000 STCM @15,7,PRFLINK(RPRF) 02S1047 02061000 * IF LCBWAITC=0 THEN /* IF NOTHING ON WAIT CHAIN... */ 02062000 L @15,LCBWAITC-1(,RLCB) 02S1048 02063000 LA @15,0(,@15) 02S1048 02064000 LTR @15,@15 02S1048 02065000 BNZ @RF01048 02S1048 02066000 * LCBWAITC=RPRF; /* THEN PUT THIS ON WAIT CHAIN */ 02067000 STCM RPRF,7,LCBWAITC(RLCB) 02S1049 02068000 * ELSE 02S1050 02069000 * DO; 02S1050 02070000 B @RC01048 02S1050 02071000 @RF01048 DS 0H 02S1051 02072000 * CURBFR=RPRF; /* SAVE POINTER TO CURRENT INPUT */ 02073000 LR CURBFR,RPRF 02S1051 02074000 * RPRF=LCBWAITC; /* PICKUP PTR TO START OF WAIT 02075000 * CHAIN */ 02076000 L RPRF,LCBWAITC-1(,RLCB) 02S1052 02077000 LA RPRF,0(,RPRF) 02S1052 02078000 * DO WHILE(PRFLINK^=0); /* FINDING END.... */ 02079000 B @DE01053 02S1053 02080000 @DL01053 DS 0H 02S1054 02081000 * RPRF=PRFLINK; /* ....OF WAIT CHAIN */ 02082000 L @15,PRFLINK-1(,RPRF) 02S1054 02083000 LA @15,0(,@15) 02S1054 02084000 LR RPRF,@15 02S1054 02085000 * END; 02S1055 02086000 @DE01053 L @15,PRFLINK-1(,RPRF) 02S1055 02087000 LA @15,0(,@15) 02S1055 02088000 LTR @15,@15 02S1055 02089000 BNZ @DL01053 02S1055 02090000 * PRFLINK=CURBFR; /* PUT INPUT ON END OF WAIT CHAIN*/ 02091000 STCM CURBFR,7,PRFLINK(RPRF) 02S1056 02092000 * RPRF=CURBFR; /* RESTORE ADDRESS OF CURRENT 02093000 * INPUT */ 02094000 LR RPRF,CURBFR 02S1057 02095000 * END; 02S1058 02096000 * END; 02S1059 02097000 * ELSE 02S1060 02098000 * DO; 02S1060 02099000 B @RC01044 02S1060 02100000 @RF01044 DS 0H 02S1061 02101000 * IF BDURESP^=RSPE13 THEN /* IF NOT TSO ATTENTION */ 02102000 TM BDURESP(BDUPTR),B'00010011' 02S1061 02103000 BNO @RT01061 02S1061 02104000 TM BDURESP(BDUPTR),B'00001100' 02S1061 02105000 BZ @RF01061 02S1061 02106000 @RT01061 DS 0H 02S1062 02107000 * DO; 02S1062 02108000 * IF QCBHUCT=HUPCNT0 THEN /* IS THIS THE FIRST ERROR 02S1063 02109000 * @YM07645*/ 02110000 TM QCBHUCT(IEDQQPTR),B'00000011' 02S1063 02111000 BNZ @RF01063 02S1063 02112000 * QCBHUCT=QCBHUCT3; /* SET HANGUP COUNT @YM07645*/ 02113000 OI QCBHUCT(IEDQQPTR),B'00000011' 02S1064 02114000 * QCBHUCTL=QCBHUCTL-1; /* DECREMENT THE QCB HANG UP CTR 02115000 * @YM07645*/ 02116000 @RF01063 LA @15,18 02S1065 02117000 ALR @15,IEDQQPTR 02S1065 02118000 SLR @10,@10 02S1065 02119000 IC @10,QCBHUCTL(,@15) 02S1065 02120000 BCTR @10,0 02S1065 02121000 STC @10,QCBHUCTL(,@15) 02S1065 02122000 * LCBABRTN=OFF; /* CONTINUE PROCESSING @YM05697*/ 02123000 NI LCBABRTN(RLCB),B'11111110' 02S1066 02124000 * END; 02S1067 02125000 * CALL FREEBFR; 02S1068 02126000 @RF01061 BAL @14,FREEBFR 02S1068 02127000 * END; 02S1069 02128000 * CALL ERBBD; /* POST ERB TO IEDQBD */ 02129000 @RC01044 BAL @14,ERBBD 02S1070 02130000 * RRETURN=R14SAV05; 02S1071 02131000 L RRETURN,R14SAV05 02S1071 02132000 * END NCPERP; 02S1072 02133000 @EL00010 DS 0H 02S1072 02134000 @EF00010 DS 0H 02S1072 02135000 @ER00010 BR @14 02S1072 02136000 * RFY 02S1073 02137000 * RRETURN UNRSTD; 02S1073 02138000 * 02S1074 02139000 * /*****************************************************************/ 02140000 * /* */ 02141000 * /* OUTDHPST: POST PIU TO OUTDH WITHOUT TRANSFORMING TO A TCAM */ 02142000 * /* BUFFER. OUTDH USES THESE RESPONSE ONLY AS A TRIGGER TO DRIVE */ 02143000 * /* OTHER PROCESSING, THUS THEY CAN BE IN PIU FORM. */ 02144000 * /* */ 02145000 * /*****************************************************************/ 02146000 * 02S1074 02147000 * RFY 02S1074 02148000 * RRETURN RSTD; 02S1074 02149000 *OUTDHPST: 02S1075 02150000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1075 02151000 OUTDHPST DS 0H 02S1076 02152000 * R14SAV06=RRETURN; 02S1076 02153000 ST RRETURN,R14SAV06 02S1076 02154000 * RPARM=RPRF; /* ELEMENT ADDR */ 02155000 LR RPARM,RPRF 02S1077 02156000 * PRFLCB=RLCB; /* LCB ADDR */ 02157000 STCM RLCB,7,PRFLCB(RPRF) 02S1078 02158000 * PRFPRI=PRIRESUM; /* PRIORITY */ 02159000 MVI PRFPRI(RPRF),X'E5' 02S1079 02160000 * PRFQCBA=SAVTCNIR; /* QCB ADDR (IEDNKA) */ 02161000 L @15,AVTSAVTP(,IEDQAPTR) 02S1080 02162000 MVC PRFQCBA(3,RPRF),SAVTCNIR+1(@15) 02S1080 02163000 * CALL DSPPOSTR; /* POST BUFFER */ 02164000 LA @15,DSPPOSTR(,RDISP) 02S1081 02165000 BALR @14,@15 02S1081 02166000 * RRETURN=R14SAV06; 02S1082 02167000 L RRETURN,R14SAV06 02S1082 02168000 * END OUTDHPST; 02S1083 02169000 @EL00011 DS 0H 02S1083 02170000 @EF00011 DS 0H 02S1083 02171000 @ER00011 BR @14 02S1083 02172000 * RFY 02S1084 02173000 * RRETURN UNRSTD; 02S1084 02174000 * 02S1085 02175000 * /*****************************************************************/ 02176000 * /* */ 02177000 * /* PCOUT: POST A PIU TO PATH CONTROL OUTBOUND. */ 02178000 * /* */ 02179000 * /*****************************************************************/ 02180000 * 02S1085 02181000 * RFY 02S1085 02182000 * RRETURN RSTD; 02S1085 02183000 *PCOUT: 02S1086 02184000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1086 02185000 PCOUT DS 0H 02S1087 02186000 * R14SAV07=RRETURN; 02S1087 02187000 ST RRETURN,R14SAV07 02S1087 02188000 * PRFPRI=PRIPCOUT; /* SET POST PRIORITY */ 02189000 MVI PRFPRI(RPRF),X'E4' 02S1088 02190000 * PRFQCBA=ADDR(IEDPCOUT); /* QCB ADDRESS */ 02191000 L @15,@CV02284 02S1089 02192000 STCM @15,7,PRFQCBA(RPRF) 02S1089 02193000 * RPARM=RPRF; /* PASSED ELEMENT IS PIU */ 02194000 LR RPARM,RPRF 02S1090 02195000 * CALL DSPPOSTR; /* POST ELEMENT */ 02196000 LA @15,DSPPOSTR(,RDISP) 02S1091 02197000 BALR @14,@15 02S1091 02198000 * RRETURN=R14SAV07; 02S1092 02199000 L RRETURN,R14SAV07 02S1092 02200000 * END PCOUT; 02S1093 02201000 @EL00012 DS 0H 02S1093 02202000 @EF00012 DS 0H 02S1093 02203000 @ER00012 BR @14 02S1093 02204000 * RFY 02S1094 02205000 * RRETURN UNRSTD; 02S1094 02206000 * 02S1095 02207000 * /*****************************************************************/ 02208000 * /* */ 02209000 * /* PLCBPOST: POST PLCB TO IEDQBD. */ 02210000 * /* */ 02211000 * /*****************************************************************/ 02212000 * 02S1095 02213000 * RFY 02S1095 02214000 * RRETURN RSTD; 02S1095 02215000 *PLCBPOST: 02S1096 02216000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 02S1096 02217000 PLCBPOST DS 0H 02S1097 02218000 * R14SAV08=RRETURN; 02S1097 02219000 ST RRETURN,R14SAV08 02S1097 02220000 * RPARM=RLCB; /* ELEMENT ADDR */ 02221000 LR RPARM,RLCB 02S1098 02222000 * LCBPRI=PRILCB; /* PRIORITY */ 02223000 MVI LCBPRI(RLCB),X'E7' 02S1099 02224000 * LCBRCLLN=ON; /* INDICATE BFRS FREED @YM07714*/ 02225000 OI LCBRCLLN(RLCB),B'10000000' 02S1100 02226000 * LCBQCBA=AVTMSGS->BDQCB; /* BD'S QCB ADDR */ 02227000 L @15,AVTMSGS-1(,IEDQAPTR) 02S1101 02228000 MVC LCBQCBA(3,RLCB),BDQCB+1(@15) 02S1101 02229000 * CALL DSPPOSTR; 02S1102 02230000 LA @15,DSPPOSTR(,RDISP) 02S1102 02231000 BALR @14,@15 02S1102 02232000 * RRETURN=R14SAV08; 02S1103 02233000 L RRETURN,R14SAV08 02S1103 02234000 * END PLCBPOST; 02S1104 02235000 @EL00013 DS 0H 02S1104 02236000 @EF00013 DS 0H 02S1104 02237000 @ER00013 BR @14 02S1104 02238000 @PB00013 DS 0H 02S1104 02239000 * RFY 02S1105 02240000 * RRETURN UNRSTD; 02S1105 02241000 * END IEDSAC 01S1106 02242000 * 01S1106 02243000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 02244000 */*%INCLUDE SYSLIB (TAVTD ) */ 02245000 */*%INCLUDE SYSLIB (TBDUD ) */ 02246000 */*%INCLUDE SYSLIB (TCD0D ) */ 02247000 */*%INCLUDE SYSLIB (TDISPD ) */ 02248000 */*%INCLUDE SYSLIB (TDCTD ) */ 02249000 */*%INCLUDE SYSLIB (TEXTD ) */ 02250000 */*%INCLUDE SYSLIB (TLCBD ) */ 02251000 */*%INCLUDE SYSLIB (TLGBD ) */ 02252000 */*%INCLUDE SYSLIB (TPIU0D ) */ 02253000 */*%INCLUDE SYSLIB (TPRFD ) */ 02254000 */*%INCLUDE SYSLIB (TPRIOR ) */ 02255000 */*%INCLUDE SYSLIB (TQCBD ) */ 02256000 */*%INCLUDE SYSLIB (TRHD ) */ 02257000 */*%INCLUDE SYSLIB (TRSPD ) */ 02258000 */*%INCLUDE SYSLIB (TSCBD ) */ 02259000 */*%INCLUDE SYSLIB (TTHD ) */ 02260000 */*%INCLUDE SYSLIB (TTRMD ) */ 02261000 */*%INCLUDE SYSLIB (TTSID ) */ 02262000 */*%INCLUDE SYSUT5 (RFY ) */ 02263000 */*%INCLUDE SYSUT5 (DCL ) */ 02264000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 02265000 */*%INCLUDE SYSUT5 (PROCESS ) */ 02266000 */*%INCLUDE SYSUT5 (WRITE ) */ 02267000 */*%INCLUDE SYSUT5 (ABORT ) */ 02268000 */*%INCLUDE SYSUT5 (SESSION ) */ 02269000 */*%INCLUDE SYSUT5 (RESETIMM) */ 02270000 */*%INCLUDE SYSUT5 (MSGGEN ) */ 02271000 */*%INCLUDE SYSUT5 (ERBAYM ) */ 02272000 */*%INCLUDE SYSUT5 (NULLWRIT) */ 02273000 */*%INCLUDE SYSUT5 (NORMWRIT) */ 02274000 */*%INCLUDE SYSUT5 (ERBFA ) */ 02275000 */*%INCLUDE SYSUT5 (CONTACT ) */ 02276000 */*%INCLUDE SYSUT5 (DSCONECT) */ 02277000 */*%INCLUDE SYSUT5 (REASSIGN) */ 02278000 */*%INCLUDE SYSUT5 (RESET ) */ 02279000 */*%INCLUDE SYSUT5 (UNSIP ) */ 02280000 */*%INCLUDE SYSUT5 (BFRBDPST) */ 02281000 */*%INCLUDE SYSUT5 (BLDRESET) */ 02282000 */*%INCLUDE SYSUT5 (ERBBD ) */ 02283000 */*%INCLUDE SYSUT5 (ERRMHPST) */ 02284000 */*%INCLUDE SYSUT5 (ERRORBIT) */ 02285000 */*%INCLUDE SYSUT5 (ERRWRITE) */ 02286000 */*%INCLUDE SYSUT5 (FREEBFR ) */ 02287000 */*%INCLUDE SYSUT5 (KILLSND ) */ 02288000 */*%INCLUDE SYSUT5 (NCPERP ) */ 02289000 */*%INCLUDE SYSUT5 (OUTDHPST) */ 02290000 */*%INCLUDE SYSUT5 (PCOUT ) */ 02291000 */*%INCLUDE SYSUT5 (PLCBPOST) */ 02292000 * 01S1106 02293000 * ; 01S1106 02294000 @DATA DS 0H 02295000 @CH01307 DC H'10' 02296000 DS 0F 02297000 @SA00007 DS 1F 02298000 DS 0F 02299000 @CF00058 DC F'6' 02300000 @CF00044 DC F'8' 02301000 @CF01995 DC F'14' 02302000 @CF02303 DC F'72' 02303000 @CF02360 DC F'-4' 02304000 @CF02356 DC XL4'0000FFFF' 02305000 @CV02284 DC V(IEDPCOUT) 02306000 DS 0D 02307000 IEDQSPTR DS A 02308000 IEDTTPTR DS A 02309000 @TS00001 DS CL2 02310000 @CB01692 DC X'0B8000' 02311000 @CB02274 DC X'27F1C2' 02312000 @CB02345 DC B'111111111111111111111111111110101111111111111111111111C02313000 11' 02314000 @CB02361 DC B'111111111111111111111111111110111111111111111111111111C02315000 11' 02316000 @CB02367 DC B'000000000000000000000000000000100000000000000000000000C02317000 00' 02318000 DS CL3 02319000 SAVER14 DS CL40 02320000 ORG SAVER14 02321000 R14SAV01 DS AL4 02322000 R14SAV02 DS AL4 02323000 R14SAV03 DS AL4 02324000 R14SAV04 DS AL4 02325000 R14SAV05 DS AL4 02326000 R14SAV06 DS AL4 02327000 R14SAV07 DS AL4 02328000 R14SAV08 DS AL4 02329000 R14SAV10 DS AL4 02330000 R14SAV11 DS AL4 02331000 ORG SAVER14+40 02332000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 02333000 @01 EQU 01 02334000 @02 EQU 02 02335000 @03 EQU 03 02336000 @04 EQU 04 02337000 @05 EQU 05 02338000 @06 EQU 06 02339000 @07 EQU 07 02340000 @08 EQU 08 02341000 @09 EQU 09 02342000 @10 EQU 10 02343000 @11 EQU 11 02344000 @12 EQU 12 02345000 @13 EQU 13 02346000 @14 EQU 14 02347000 @15 EQU 15 02348000 CUROAF EQU @05 02349000 CURBFR EQU @05 02350000 LINETRM EQU @07 02351000 BDUPTR EQU @07 02352000 DCTADDR EQU @02 02353000 IEDQQPTR EQU @09 02354000 IEDQAPTR EQU @13 02355000 RDISP EQU @11 02356000 IEDQLPTR EQU @04 02357000 LCBXPTR EQU @05 02358000 IEDQPPTR EQU @06 02359000 RTRM EQU @08 02360000 RPRF EQU @06 02361000 RLCB EQU @04 02362000 RZERO EQU @00 02363000 RPARM EQU @01 02364000 R3 EQU @03 02365000 RBASE EQU @12 02366000 RAVT EQU @13 02367000 RRETURN EQU @14 02368000 RLINK EQU @15 02369000 IEDQAVTD EQU 0 02370000 AVTSAVEX EQU IEDQAVTD+216 02371000 AVTCSTCS EQU IEDQAVTD+256 02372000 AVTREADD EQU IEDQAVTD+308 02373000 AVTBUFSW EQU IEDQAVTD+312 02374000 @NM00004 EQU IEDQAVTD+316 02375000 AVTCKFLG EQU @NM00004 02376000 AVTBASE EQU IEDQAVTD+340 02377000 AVTPKF EQU AVTBASE 02378000 AVTRNMPT EQU IEDQAVTD+352 02379000 AVTOSECB EQU IEDQAVTD+420 02380000 AVTECB1 EQU AVTOSECB 02381000 AVTHG02 EQU IEDQAVTD+456 02382000 AVTDISP EQU IEDQAVTD+480 02383000 AVTHD EQU IEDQAVTD+484 02384000 AVTSCOPT EQU AVTHD 02385000 AVTSAVTP EQU IEDQAVTD+540 02386000 AVTSAVTF EQU AVTSAVTP 02387000 AVTCKPEL EQU IEDQAVTD+580 02388000 AVTCKRMV EQU AVTCKPEL 02389000 AVTCKELF EQU IEDQAVTD+608 02390000 AVTCKBYT EQU IEDQAVTD+619 02391000 AVTHG01 EQU IEDQAVTD+620 02392000 AVTCKLNK EQU IEDQAVTD+624 02393000 AVTCRELE EQU IEDQAVTD+636 02394000 AVTCCELE EQU AVTCRELE 02395000 AVTCLRHI EQU IEDQAVTD+644 02396000 AVTADBUF EQU IEDQAVTD+648 02397000 AVTSYSER EQU IEDQAVTD+656 02398000 AVTMSGS EQU IEDQAVTD+657 02399000 AVTTSOPT EQU IEDQAVTD+668 02400000 AVTBFRFG EQU IEDQAVTD+712 02401000 AVTBFRTB EQU IEDQAVTD+720 02402000 AVTCKPQB EQU IEDQAVTD+732 02403000 AVTCKPTB EQU AVTCKPQB 02404000 AVTCKPEC EQU AVTCKPQB+4 02405000 AVTCKPCC EQU AVTCKPEC 02406000 AVTOPCQB EQU IEDQAVTD+744 02407000 AVTOPCOB EQU AVTOPCQB 02408000 AVTOPCEC EQU AVTOPCQB+4 02409000 AVTOPCCC EQU AVTOPCEC 02410000 AVTOLTQB EQU IEDQAVTD+756 02411000 AVTDSIOB EQU IEDQAVTD+804 02412000 AVTCWFL1 EQU IEDQAVTD+852 02413000 AVTCWFL2 EQU IEDQAVTD+853 02414000 AVTSUBT EQU IEDQAVTD+876 02415000 AVTIOTR EQU IEDQAVTD+877 02416000 AVTBIT1 EQU IEDQAVTD+978 02417000 AVTBIT2 EQU IEDQAVTD+979 02418000 AVTBIT3 EQU IEDQAVTD+980 02419000 AVTDCTLN EQU IEDQAVTD+1000 02420000 AVTBIT4 EQU IEDQAVTD+1064 02421000 @NM00086 EQU IEDQAVTD+1160 02422000 IEDNSVTD EQU 0 02423000 SAVTDIAG EQU IEDNSVTD 02424000 SAVTDIAF EQU SAVTDIAG 02425000 SAVTCNIR EQU IEDNSVTD+56 02426000 SAVTLUSQ EQU IEDNSVTD+88 02427000 SAVTXFMI EQU IEDNSVTD+132 02428000 SAVTTCPU EQU IEDNSVTD+238 02429000 SAVTZELM EQU IEDNSVTD+270 02430000 SAVTDVAS EQU IEDNSVTD+276 02431000 SAVTRDRV EQU IEDNSVTD+284 02432000 SAVTCKQB EQU IEDNSVTD+300 02433000 SAVTCKTB EQU SAVTCKQB 02434000 SAVTCKEC EQU SAVTCKQB+4 02435000 SAVTCKCC EQU SAVTCKEC 02436000 IEDBDU EQU 0 02437000 BDUCMND EQU IEDBDU 02438000 BDUMODIF EQU IEDBDU+1 02439000 BDUFNFLG EQU IEDBDU+2 02440000 BDUHEADR EQU BDUFNFLG 02441000 BDUFRSTB EQU BDUFNFLG 02442000 BDUBDUFG EQU IEDBDU+3 02443000 BDURSP EQU IEDBDU+4 02444000 BDUSYRSP EQU BDURSP 02445000 BDUERROR EQU BDUSYRSP 02446000 BDUPHASE EQU BDUSYRSP 02447000 BDURESP EQU BDUSYRSP 02448000 BDUEXRSP EQU BDURSP+1 02449000 BDUXINIT EQU BDUEXRSP 02450000 BDUXFINL EQU BDUEXRSP 02451000 BDUXGRPH EQU BDUEXRSP 02452000 BDUEND EQU IEDBDU+6 02453000 IEDQDISP EQU 0 02454000 DSPDISP EQU 4 02455000 DSPPOSTR EQU 28 02456000 IEDDCT EQU 0 02457000 DCTBYTE1 EQU IEDDCT+1 02458000 DCT3270 EQU DCTBYTE1 02459000 DCTBYTE2 EQU IEDDCT+2 02460000 DCTBYTE3 EQU IEDDCT+3 02461000 DCTBYTE4 EQU IEDDCT+4 02462000 DCTBYTE5 EQU IEDDCT+5 02463000 IEDQLCB EQU 0 02464000 LCBRCB EQU IEDQLCB 02465000 LCBQCBA EQU LCBRCB+1 02466000 LCBPRI EQU LCBRCB+4 02467000 LCBTSOB EQU IEDQLCB+19 02468000 LCBSATRD EQU LCBTSOB 02469000 LCBCHAIN EQU IEDQLCB+20 02470000 LCBSCRNN EQU LCBCHAIN 02471000 LCBERMSG EQU LCBCHAIN 02472000 LCBTETEN EQU LCBCHAIN 02473000 LCBABRTN EQU LCBCHAIN 02474000 LCBINSRC EQU IEDQLCB+21 02475000 LCBLKMDE EQU LCBINSRC+2 02476000 LCBNTXT EQU IEDQLCB+24 02477000 LCBSTAT4 EQU LCBNTXT 02478000 LCBPHASE EQU LCBSTAT4 02479000 LCBSCBDA EQU IEDQLCB+25 02480000 LCBLNENT EQU LCBSCBDA+1 02481000 LCBMHA EQU IEDQLCB+29 02482000 LCBFLAG1 EQU IEDQLCB+32 02483000 LCBIOBSN EQU IEDQLCB+33 02484000 LCBSNS EQU LCBIOBSN+1 02485000 LCBSENS0 EQU LCBSNS 02486000 LCBCMDRJ EQU LCBSENS0 02487000 LCBINTRQ EQU LCBSENS0 02488000 LCBEQUCK EQU LCBSENS0 02489000 LCBDATCK EQU LCBSENS0 02490000 LCBLOSDT EQU LCBSENS0 02491000 LCBTMOUT EQU LCBSENS0 02492000 LCBFLAG3 EQU LCBIOBSN+7 02493000 LCBCSW EQU LCBIOBSN+8 02494000 LCBCSWST EQU LCBCSW+3 02495000 LCBCSWUS EQU LCBCSWST 02496000 LCBUSUE EQU LCBCSWUS 02497000 LCBCSWCS EQU LCBCSWST+1 02498000 LCBCSWRC EQU LCBCSW+5 02499000 LCBSIOCC EQU LCBIOBSN+15 02500000 LCBDCBPT EQU IEDQLCB+52 02501000 LCBRCQCB EQU IEDQLCB+56 02502000 LCBRESTR EQU LCBRCQCB 02503000 LCBCMDSV EQU LCBRESTR 02504000 LCBTHSQ EQU IEDQLCB+60 02505000 LCBINCAM EQU LCBTHSQ 02506000 LCBERRCT EQU IEDQLCB+62 02507000 LCBLSPCI EQU IEDQLCB+65 02508000 LCBRCBFR EQU LCBLSPCI 02509000 LCBSTATE EQU IEDQLCB+70 02510000 LCBSTAT1 EQU LCBSTATE 02511000 LCBRCLLN EQU LCBSTAT1 02512000 LCBSENDN EQU LCBSTAT1 02513000 LCBSTAT2 EQU LCBSTATE+1 02514000 LCBMSGNN EQU LCBSTAT2 02515000 LCBBEOTN EQU LCBSTAT2 02516000 LCBNEGRP EQU LCBSTAT2 02517000 LCBSYNC EQU LCBSTAT2 02518000 LCBDIAL EQU LCBSTAT2 02519000 LCBRESP EQU LCBSTAT2 02520000 LCBTSTSW EQU IEDQLCB+72 02521000 LCBERB EQU IEDQLCB+76 02522000 LCBERBQB EQU LCBERB+1 02523000 LCBERBPY EQU IEDQLCB+80 02524000 LCBERBST EQU IEDQLCB+84 02525000 LCBEOMSG EQU LCBERBST 02526000 LCBERROR EQU LCBERBST 02527000 LCBDLNKN EQU LCBERBST 02528000 LCBERBCT EQU IEDQLCB+88 02529000 LCBRBCT1 EQU LCBERBCT 02530000 LCBRBCT2 EQU LCBERBCT+1 02531000 LCBDCNT EQU LCBRBCT2 02532000 LCBMSGFM EQU IEDQLCB+92 02533000 LCBSCBA EQU IEDQLCB+93 02534000 LCBOBRCH EQU IEDQLCB+96 02535000 LCBINVPT EQU LCBOBRCH+1 02536000 LCBBFRW EQU LCBINVPT 02537000 LCBTPCD EQU IEDQLCB+100 02538000 LCBSTAT5 EQU LCBTPCD 02539000 LCBSTAT6 EQU LCBTPCD+4 02540000 LCBWAITC EQU LCBTPCD+5 02541000 LCBRSPSV EQU LCBTPCD+8 02542000 LCBSAVSN EQU IEDQLCB+112 02543000 LCBERCCW EQU IEDQLCB+120 02544000 LCBCPA EQU IEDQLCB+144 02545000 LCBCCW5 EQU LCBCPA+32 02546000 LCBATTEL EQU LCBCCW5 02547000 LCBQEBPL EQU LCBATTEL 02548000 IEDQLCBX EQU 0 02549000 LCBXCON EQU IEDQLCBX 02550000 LCBXFLAG EQU LCBXCON 02551000 LCBXDCT EQU LCBXCON+1 02552000 LCBXRADR EQU LCBXCON+4 02553000 IEDNLGB EQU 0 02554000 LGBBUFOU EQU IEDNLGB+20 02555000 LGBPCI EQU IEDNLGB+25 02556000 LGBPCINO EQU LGBPCI 02557000 LGBBYTE EQU IEDNLGB+29 02558000 LGBOFLGS EQU IEDNLGB+48 02559000 LGBRESER EQU IEDNLGB+56 02560000 IEDPIU0 EQU 0 02561000 PIU0TH EQU IEDPIU0 02562000 PIU0RH EQU IEDPIU0+10 02563000 PIU0PAD EQU IEDPIU0+13 02564000 PIU0RU EQU IEDPIU0+14 02565000 IEDQPRF EQU 0 02566000 PRFRCB EQU IEDQPRF 02567000 PRFKEY EQU PRFRCB 02568000 PRFQCBA EQU PRFRCB+1 02569000 PRFPRI EQU PRFRCB+4 02570000 PRFLINK EQU PRFRCB+5 02571000 PRFTIC EQU IEDQPRF+8 02572000 PRFTICC EQU PRFTIC 02573000 PRFNBUNT EQU IEDQPRF+12 02574000 PRFSUNIT EQU PRFNBUNT 02575000 PRFPLQCB EQU PRFSUNIT 02576000 PRFPIUO EQU PRFPLQCB 02577000 PRFLCB EQU IEDQPRF+13 02578000 @NM00171 EQU IEDQPRF+16 02579000 PRFSVFFO EQU @NM00171 02580000 PRFSIZE EQU PRFSVFFO+2 02581000 PRFSTAT1 EQU IEDQPRF+20 02582000 PRFTSMSG EQU PRFSTAT1 02583000 PRFEOFN EQU PRFSTAT1 02584000 PRFCORE EQU IEDQPRF+21 02585000 PRFXTRA EQU PRFCORE 02586000 PRFSCAN EQU IEDQPRF+24 02587000 PRFTQBCK EQU IEDQPRF+26 02588000 PRFNTXT EQU PRFTQBCK 02589000 PRFEOBOF EQU PRFNTXT 02590000 PRFCRCD EQU IEDQPRF+29 02591000 PRFCHDR EQU IEDQPRF+32 02592000 PRFHQBCK EQU IEDQPRF+35 02593000 IEDPF1 EQU 0 02594000 PRF1FLG1 EQU IEDPF1+3 02595000 PRF1WD2 EQU IEDPF1+4 02596000 PRF1SEQP EQU PRF1WD2 02597000 PRF1SQID EQU PRF1SEQP 02598000 PRF1TAG1 EQU PRF1SQID 02599000 IEDPF2 EQU 0 02600000 PRF2FLG2 EQU IEDPF2 02601000 PRF2WD2 EQU IEDPF2+4 02602000 IEDQQCB EQU 0 02603000 QCBDSFLG EQU IEDQQCB 02604000 QCBDISK EQU QCBDSFLG 02605000 QCBELCHN EQU IEDQQCB+1 02606000 QCBCNTEN EQU QCBELCHN+2 02607000 QCBEOLDT EQU IEDQQCB+16 02608000 QCBBYTE1 EQU QCBEOLDT+1 02609000 QCBLKRLN EQU IEDQQCB+18 02610000 QCBRETCT EQU QCBLKRLN 02611000 QCBHUCT EQU QCBRETCT 02612000 QCBSTAT EQU IEDQQCB+19 02613000 QCBINSRC EQU IEDQQCB+21 02614000 @NM00181 EQU QCBINSRC 02615000 QCBTSOF2 EQU @NM00181+1 02616000 QCBINHBN EQU QCBTSOF2 02617000 QCBSIMRD EQU QCBTSOF2 02618000 QCBTSOF1 EQU @NM00181+2 02619000 QCBINTVL EQU IEDQQCB+24 02620000 QCBPREN EQU IEDQQCB+28 02621000 QCBLKRRN EQU QCBPREN+1 02622000 QCBDCBAD EQU IEDQQCB+33 02623000 QCBLGBAD EQU QCBDCBAD 02624000 QCBFLAG EQU IEDQQCB+36 02625000 QCBTSSES EQU QCBFLAG 02626000 IEDQPQCB EQU 0 02627000 QCBFHDLZ EQU IEDQPQCB+3 02628000 QCBPFEFO EQU QCBFHDLZ+1 02629000 QCBFHDTZ EQU IEDQPQCB+6 02630000 QCBINTLF EQU IEDQPQCB+12 02631000 IEDNQCB EQU 0 02632000 QCBSTAT1 EQU IEDNQCB+4 02633000 QCBPLCBN EQU QCBSTAT1 02634000 QCBPLCBA EQU IEDNQCB+5 02635000 IEDRH EQU 0 02636000 TRHBYTE0 EQU IEDRH 02637000 TRHBYTE1 EQU IEDRH+1 02638000 TRHBYTE2 EQU IEDRH+2 02639000 IEDQSCB EQU 0 02640000 SCBSTATE EQU IEDQSCB 02641000 SCBSEQIN EQU SCBSTATE 02642000 SCBRCVCT EQU IEDQSCB+4 02643000 SCBMBHEN EQU IEDQSCB+5 02644000 SCBBKFCT EQU IEDQSCB+9 02645000 SCBEOBSZ EQU SCBBKFCT+1 02646000 SCBSALEV EQU IEDQSCB+12 02647000 SCBQTYPE EQU SCBSALEV 02648000 SCBERRST EQU IEDQSCB+16 02649000 SCBERR1 EQU SCBERRST 02650000 SCBHDRRN EQU SCBERR1 02651000 SCBORIGN EQU SCBERR1 02652000 SCBNOTRM EQU SCBERR1 02653000 SCBSEQHN EQU SCBERR1 02654000 SCBSEQLN EQU SCBERR1 02655000 SCBNOBFN EQU SCBERR1 02656000 SCBCUTFN EQU SCBERR1 02657000 SCBRVISL EQU SCBCUTFN 02658000 SCBERR2 EQU SCBERRST+1 02659000 SCBABRTN EQU SCBERR2 02660000 SCBERR3 EQU SCBERRST+2 02661000 SCBLOSTN EQU SCBERR3 02662000 SCBTMIDN EQU SCBERR3 02663000 SCBFORMN EQU SCBERR3 02664000 SCBATTN EQU SCBERR3 02665000 SCBXCEPN EQU SCBERR3 02666000 SCBERR4 EQU SCBERRST+3 02667000 SCBSLCTN EQU SCBERR4 02668000 SCBTXTTN EQU SCBERR4 02669000 SCBTRMLN EQU SCBERR4 02670000 SCBCTLUN EQU SCBERR4 02671000 SCBCHANN EQU SCBERR4 02672000 SCBDLPTR EQU IEDQSCB+22 02673000 SCBEOBAC EQU SCBDLPTR 02674000 SCBCTBAC EQU SCBEOBAC 02675000 SCBBSCFM EQU IEDQSCB+24 02676000 SCBDATEN EQU SCBBSCFM 02677000 SCBMLMTN EQU SCBBSCFM 02678000 SCBITBSZ EQU IEDQSCB+40 02679000 SCBCTBSV EQU SCBITBSZ 02680000 SCBDNSEG EQU IEDQSCB+41 02681000 SCBCLSEG EQU IEDQSCB+45 02682000 SCBSCHDR EQU SCBCLSEG 02683000 SCBITBAC EQU IEDQSCB+48 02684000 SCBCTBFL EQU SCBITBAC 02685000 SCBBLKCT EQU SCBCTBFL 02686000 SCBDCSEG EQU IEDQSCB+49 02687000 SCBSTAT1 EQU IEDQSCB+60 02688000 SCBCORE EQU IEDQSCB+61 02689000 SCBSCAN EQU IEDQSCB+64 02690000 SCBNTXT EQU IEDQSCB+66 02691000 SCBCHDR EQU IEDQSCB+72 02692000 SCBCCSEG EQU IEDQSCB+75 02693000 SCBEND EQU IEDQSCB+84 02694000 IEDTH EQU 0 02695000 TTHBYTE0 EQU IEDTH 02696000 TTHBYTE1 EQU IEDTH+1 02697000 TTHDAF EQU IEDTH+2 02698000 TTHOAF EQU IEDTH+4 02699000 TTHSNF EQU IEDTH+6 02700000 TTHTAG EQU TTHSNF 02701000 TTHTAG1 EQU TTHTAG 02702000 TTHTAG2 EQU TTHTAG+1 02703000 TTHDCF EQU IEDTH+8 02704000 IEDTRM EQU 0 02705000 IEDNTRM EQU IEDTRM 02706000 TRMBYTE4 EQU IEDNTRM 02707000 TRMBYTE3 EQU IEDNTRM+1 02708000 TRMBYTE2 EQU IEDNTRM+2 02709000 TRMINPG EQU TRMBYTE2 02710000 TRMCLOSN EQU TRMINPG 02711000 TRMPREP EQU TRMBYTE2 02712000 TRMNOSND EQU TRMBYTE2 02713000 TRMWRBRK EQU TRMBYTE2 02714000 TRMBYTE1 EQU IEDNTRM+3 02715000 TRMSCPRQ EQU TRMBYTE1 02716000 TRMTRACE EQU TRMBYTE1 02717000 TRMTSATN EQU TRMBYTE1 02718000 TRMCOHRT EQU IEDNTRM+4 02719000 TRMBYTE0 EQU IEDNTRM+6 02720000 TRMDIAL EQU TRMBYTE0 02721000 TRMSIBPT EQU IEDNTRM+7 02722000 TRMRLMCT EQU IEDNTRM+10 02723000 TRMTYPE EQU IEDNTRM+11 02724000 TRMSUBST EQU IEDNTRM+12 02725000 IEDQTRM EQU IEDTRM+14 02726000 TRMSTATE EQU IEDQTRM 02727000 TRMLOG EQU TRMSTATE 02728000 TRMDESTQ EQU IEDQTRM+1 02729000 TRMINSEQ EQU IEDQTRM+4 02730000 TLISTCNT EQU TRMINSEQ 02731000 TRMUTERM EQU TLISTCNT 02732000 TRMOUTSQ EQU IEDQTRM+6 02733000 TLISTEN EQU TRMOUTSQ 02734000 TRMDSORG EQU TLISTEN 02735000 TRMALTD EQU IEDQTRM+8 02736000 TRMDEVFL EQU IEDQTRM+10 02737000 TRMSTAT EQU IEDQTRM+12 02738000 TRMCHCIN EQU IEDQTRM+16 02739000 IEDQTSI EQU 0 02740000 TSIFLAG EQU IEDQTSI 02741000 TSIMSGEN EQU IEDQTSI+44 02742000 TSIDYQCB EQU IEDQTSI+52 02743000 TSIDYQFG EQU TSIDYQCB 02744000 TSITSW EQU IEDQTSI+124 02745000 TSIGMAIN EQU TSITSW+16 02746000 GMFLAG EQU TSIGMAIN 02747000 GMCODE EQU TSIGMAIN+1 02748000 BDQCB EQU 0 02749000 QCBHUCTL EQU 0 02750000 IEDXFMI EQU 0 02751000 IEDDVAS EQU 0 02752000 IEDQTNT EQU 0 02753000 DATAFLD EQU 0 02754000 CTRLCHAR EQU DATAFLD 02755000 RUDATA EQU 0 02756000 DATABYT1 EQU RUDATA 02757000 DSPBYPAS EQU 20 02758000 DSPCHAIN EQU 12 02759000 DSPLIFO EQU 56 02760000 DSPLIFOR EQU 60 02761000 DSPLIST EQU 8 02762000 DSPPOST EQU 24 02763000 DSPPRIO EQU 48 02764000 DSPPRIOR EQU 52 02765000 DSPTRACE EQU 64 02766000 DSPTSTQ EQU 32 02767000 DSPTSTQR EQU 36 02768000 DSPUNAV EQU 40 02769000 DSPUNAVR EQU 44 02770000 DSPWAIT EQU 16 02771000 QCBLDCB EQU 0 02772000 LCBRSPIN EQU LCBIOBSN 02773000 LCBDSCRJ EQU LCBRSPIN 02774000 LCBLUSNS EQU LCBRSPIN+5 02775000 LCBSCPRS EQU LCBRSPIN+9 02776000 LCBCSWU1 EQU LCBSCPRS+2 02777000 LCBRSPFG EQU LCBRSPIN+15 02778000 LCBCOREQ EQU LCBTPCD 02779000 @NM00134 EQU LCBCPA+40 02780000 LCBQNX EQU LCBERCCW 02781000 LCBQNXMN EQU LCBQNX 02782000 LCBCANCL EQU LCBSAVSN 02783000 LCBCANFG EQU LCBCANCL 02784000 IEDNLPTR EQU QCBLGBAD 02785000 TRMPRE1 EQU TRMBYTE4 02786000 TRMCONT EQU TRMPRE1 02787000 TRMSESSN EQU TRMPRE1 02788000 TRMOCNI EQU TRMPRE1 02789000 TRMERLCK EQU TRMPRE1 02790000 TRMLYNCH EQU TRMPRE1 02791000 TRMNCP1 EQU TRMBYTE4 02792000 TRMPRE EQU TRMBYTE3 02793000 TRMSTPND EQU TRMPRE 02794000 TRMASNXI EQU TRMPRE 02795000 TRMNLOUT EQU TRMPRE 02796000 TRMNCP EQU TRMBYTE3 02797000 TRMPU EQU TRMBYTE3 02798000 TRMLU EQU TRMBYTE3 02799000 TRMLINK EQU TRMBYTE3 02800000 BDUTEXT EQU BDUEND 02801000 PRFSHDR EQU IEDQPRF+42 02802000 SCBRGSAV EQU SCBEND 02803000 AGO .@UNREFD START UNREFERENCED COMPONENTS 02804000 @NM00206 EQU TRMLINK 02805000 TRMLSTAT EQU TRMLINK 02806000 TRMLINT EQU TRMLINK 02807000 TRMEPMOD EQU TRMLINK 02808000 TRMLULOG EQU TRMLU 02809000 TRMINERR EQU TRMLU 02810000 TRMLUREQ EQU TRMLU 02811000 TRMSESRQ EQU TRMLU 02812000 TRMTDIFF EQU TRMLU 02813000 TRMLUTM EQU TRMLU 02814000 TRMLUIT EQU TRMLU 02815000 TRMAUTO EQU TRMLU 02816000 TRMPCONT EQU TRMPU 02817000 @NM00205 EQU TRMPU 02818000 TRMNCONT EQU TRMNCP 02819000 TRMQUCKN EQU TRMNCP 02820000 TRMSLOWN EQU TRMNCP 02821000 TRMSYGEN EQU TRMNCP 02822000 TRMNCPCL EQU TRMNCP 02823000 TRMIPLDM EQU TRMNCP 02824000 TRMINOUT EQU TRMPRE 02825000 TRMRDOUT EQU TRMPRE 02826000 TRMWROUT EQU TRMPRE 02827000 TRMSTMM EQU TRMPRE 02828000 TRMCMODE EQU TRMPRE 02829000 @NM00204 EQU TRMNCP1 02830000 TRMINOP EQU TRMNCP1 02831000 TRMSPOUT EQU TRMPRE1 02832000 TRMQNPL EQU TRMPRE1 02833000 TRMSPACT EQU TRMPRE1 02834000 @NM00142 EQU LCBCANCL+3 02835000 LCBCANTH EQU LCBCANCL+1 02836000 @NM00141 EQU LCBCANFG 02837000 LCBCANCD EQU LCBCANFG 02838000 @NM00140 EQU LCBCANFG 02839000 LCBCANEB EQU LCBCANFG 02840000 LCBCANXT EQU LCBCANFG 02841000 LCBUNADD EQU LCBQNX+21 02842000 LCBUASZE EQU LCBQNX+20 02843000 LCBDSTEA EQU LCBQNX+16 02844000 @NM00139 EQU LCBQNX+8 02845000 LCBIOSBS EQU LCBQNX+5 02846000 @NM00138 EQU LCBQNX+4 02847000 LCBSTSAV EQU LCBQNX+1 02848000 @NM00137 EQU LCBQNXMN 02849000 LCBNX509 EQU LCBQNXMN 02850000 LCBNX162 EQU LCBQNXMN 02851000 LCBNX142 EQU LCBQNXMN 02852000 LCBNX064 EQU LCBQNXMN 02853000 @NM00136 EQU @NM00134+4 02854000 LCBNCPPT EQU @NM00134+1 02855000 @NM00135 EQU @NM00134 02856000 LCBWRSCH EQU LCBCOREQ+8 02857000 LCBCQLNK EQU LCBCOREQ+4 02858000 LCBCQELE EQU LCBCOREQ 02859000 LCBPAKCH EQU LCBRSPIN+16 02860000 @NM00133 EQU LCBRSPFG 02861000 LCBRSRH EQU LCBRSPFG 02862000 LCBEXPI EQU LCBRSPFG 02863000 @NM00132 EQU LCBRSPIN+12 02864000 LCBUSUE1 EQU LCBCSWU1 02865000 @NM00131 EQU LCBCSWU1 02866000 @NM00130 EQU LCBSCPRS+1 02867000 LCBDFCMD EQU LCBSCPRS 02868000 LCBUSER EQU LCBLUSNS+2 02869000 LCBSMIN EQU LCBLUSNS+1 02870000 LCBSMAJ EQU LCBLUSNS 02871000 LCBRHSV EQU LCBRSPIN+2 02872000 LCBSNS0 EQU LCBRSPIN+1 02873000 @NM00129 EQU LCBRSPIN 02874000 GMDEVCH EQU TSIGMAIN+40 02875000 GMTSSIZ EQU TSIGMAIN+38 02876000 GMTSCNT EQU TSIGMAIN+36 02877000 GMLNSPC EQU TSIGMAIN+34 02878000 GMTCSPC EQU TSIGMAIN+32 02879000 GMCRUNT EQU TSIGMAIN+28 02880000 GMCRBUF EQU TSIGMAIN+24 02881000 GMTCBUF EQU TSIGMAIN+20 02882000 GMTSBUF EQU TSIGMAIN+16 02883000 GMBFRS EQU TSIGMAIN+14 02884000 GMHBFR EQU TSIGMAIN+12 02885000 GMBFUNIT EQU TSIGMAIN+10 02886000 GMBFSIZE EQU TSIGMAIN+8 02887000 GMSATCT EQU TSIGMAIN+6 02888000 GMCARCT EQU TSIGMAIN+4 02889000 GMLNSZ EQU TSIGMAIN+3 02890000 GMLNNO EQU TSIGMAIN+2 02891000 @NM00218 EQU GMCODE 02892000 GMTSO EQU GMCODE 02893000 GMLINE EQU GMCODE 02894000 GMTCAM EQU GMCODE 02895000 @NM00217 EQU GMCODE 02896000 @NM00216 EQU GMFLAG 02897000 GMNUNLCK EQU GMFLAG 02898000 GMFRMAT EQU GMFLAG 02899000 GMINIT EQU GMFLAG 02900000 GMENCIN EQU GMFLAG 02901000 GMENCON EQU GMFLAG 02902000 @NM00215 EQU TSITSW 02903000 TSIAYO02 EQU IEDQTSI+120 02904000 TSIAYO EQU IEDQTSI+116 02905000 TSIRNSCH EQU IEDQTSI+112 02906000 TSI3705 EQU IEDQTSI+108 02907000 TSI270X EQU IEDQTSI+104 02908000 TSI3270 EQU IEDQTSI+100 02909000 TSITSDST EQU IEDQTSI+96 02910000 TSIATTEN EQU IEDQTSI+92 02911000 TSICPBC EQU IEDQTSI+88 02912000 TSICPBI EQU IEDQTSI+84 02913000 TSIDEST EQU IEDQTSI+80 02914000 @NM00214 EQU IEDQTSI+64 02915000 TSIDYDLY EQU IEDQTSI+60 02916000 TSIDYLNK EQU IEDQTSI+57 02917000 TSIDYPRI EQU IEDQTSI+56 02918000 @NM00213 EQU TSIDYQCB+1 02919000 @NM00212 EQU TSIDYQFG 02920000 TSIDYQB EQU TSIDYQFG 02921000 @NM00211 EQU TSIDYQFG 02922000 TSIDYPOS EQU TSIDYQFG 02923000 @NM00210 EQU TSIDYQFG 02924000 TSIHALT EQU IEDQTSI+48 02925000 TSITSAP EQU IEDQTSI+40 02926000 TSITSBQ EQU IEDQTSI+36 02927000 TSIBUFQ EQU IEDQTSI+32 02928000 TSISCHED EQU IEDQTSI+28 02929000 TSISIMAT EQU IEDQTSI+24 02930000 TSIHANG EQU IEDQTSI+20 02931000 TSIEDIT EQU IEDQTSI+16 02932000 TSISTAE EQU IEDQTSI+12 02933000 TSINPUT EQU IEDQTSI+8 02934000 TSILINK EQU IEDQTSI+5 02935000 TSIPRI EQU IEDQTSI+4 02936000 TSIELCHN EQU IEDQTSI+1 02937000 @NM00209 EQU TSIFLAG 02938000 TSIQCB EQU TSIFLAG 02939000 @NM00208 EQU TSIFLAG 02940000 TSIPOST EQU TSIFLAG 02941000 @NM00207 EQU TSIFLAG 02942000 TRMOPT EQU IEDTRM+34 02943000 TRMOPTBL EQU IEDQTRM+18 02944000 TRMOPNO EQU IEDQTRM+17 02945000 TRMSENSE EQU TRMSTAT+3 02946000 TRMTEMPR EQU TRMSTAT+2 02947000 TRMSIO EQU TRMSTAT 02948000 @NM00203 EQU TRMDEVFL+1 02949000 TRMTPIN EQU TRMDEVFL+1 02950000 TRMNCPI EQU TRMDEVFL+1 02951000 TRMRNTRM EQU TRMDEVFL+1 02952000 @NM00202 EQU TRMDEVFL+1 02953000 TRMLMD EQU TRMDEVFL+1 02954000 TRMCONC EQU TRMDEVFL+1 02955000 TRMTSOB EQU TRMDEVFL 02956000 TRMBFDY EQU TRMDEVFL 02957000 TRMTBLK EQU TRMDEVFL 02958000 TRMSBLK EQU TRMDEVFL 02959000 TRMBLKS EQU TRMDEVFL 02960000 TRMADDC EQU TRMDEVFL 02961000 TRMDDIG EQU TRMDEVFL 02962000 TRMBUFS EQU TRMDEVFL 02963000 TRMPRILK EQU TRMALTD 02964000 TRMLGB EQU TRMDSORG 02965000 TRMSCNYN EQU TRMSTATE 02966000 TRMOPTFN EQU TRMSTATE 02967000 TRMHELDN EQU TRMSTATE 02968000 TRMACPTN EQU TRMSTATE 02969000 TRMPREF EQU TRMSTATE 02970000 TRMPROC EQU TRMLOG 02971000 TRMLIST EQU TRMLOG 02972000 TRMLINE EQU TRMSTATE 02973000 TRMCOHTG EQU TRMSIBPT+1 02974000 TRMGPCNT EQU TRMSIBPT 02975000 TRMBUFRD EQU TRMBYTE0 02976000 TRMSNA EQU TRMBYTE0 02977000 TRMGP EQU TRMBYTE0 02978000 @NM00201 EQU TRMBYTE0 02979000 TRMOUTPT EQU TRMBYTE0 02980000 TRMINPUT EQU TRMBYTE0 02981000 TRMUDEF EQU TRMBYTE0 02982000 TRMSTOTE EQU TRMBYTE1 02983000 TRMCKPRN EQU TRMBYTE1 02984000 TRMSWBCK EQU TRMBYTE1 02985000 TRMAUTOC EQU TRMBYTE1 02986000 TRMINPTP EQU TRMBYTE1 02987000 TRMWTNEG EQU TRMSCPRQ 02988000 TRMGPACT EQU TRMBYTE2 02989000 TRMANDL EQU TRMBYTE2 02990000 TRMREMB EQU TRMBYTE2 02991000 TRMRSACT EQU TRMBYTE2 02992000 @NM00200 EQU TTHTAG1 02993000 TTHTAGS EQU TTHTAG1 02994000 TTHEFI EQU TTHBYTE0 02995000 @NM00199 EQU TTHBYTE0 02996000 TTHEBIU EQU TTHBYTE0 02997000 TTHBBIU EQU TTHBYTE0 02998000 TTHFTYPE EQU TTHBYTE0 02999000 SCBTRANS EQU IEDQSCB+81 03000000 SCBUNTCT EQU IEDQSCB+80 03001000 SCBEOB EQU IEDQSCB+78 03002000 SCBNXCPB EQU SCBCCSEG 03003000 SCBNHDR EQU SCBCHDR 03004000 SCBCRCD EQU IEDQSCB+69 03005000 SCBTQBCK EQU SCBNTXT 03006000 SCBOSEQ EQU SCBSCAN 03007000 SCBXTRA EQU SCBCORE 03008000 SCBNOPST EQU SCBSTAT1 03009000 SCBNIDLE EQU SCBSTAT1 03010000 SCBCEND EQU SCBSTAT1 03011000 SCBCBGN EQU SCBSTAT1 03012000 SCBSIZE EQU IEDQSCB+58 03013000 SCBSRCE EQU IEDQSCB+56 03014000 SCBDEOB EQU IEDQSCB+52 03015000 SCBFEFO EQU SCBDCSEG 03016000 SCBCTBND EQU SCBBLKCT 03017000 SCBHBFNO EQU IEDQSCB+44 03018000 SCBSCSEG EQU SCBDNSEG 03019000 SCBBCTR EQU SCBCTBSV 03020000 SCBCCHDR EQU IEDQSCB+37 03021000 SCBDESTL EQU IEDQSCB+36 03022000 SCBDCHDR EQU IEDQSCB+33 03023000 SCBCPBNO EQU IEDQSCB+32 03024000 SCBMBSSA EQU IEDQSCB+25 03025000 SCBNOEOT EQU SCBBSCFM 03026000 @NM00198 EQU SCBBSCFM 03027000 SCBNPDTR EQU SCBDATEN 03028000 SCBCNTEN EQU SCBBSCFM 03029000 SCBRCVTX EQU SCBBSCFM 03030000 SCBNONTR EQU SCBBSCFM 03031000 SCBTRNSP EQU SCBBSCFM 03032000 SCBENDCR EQU SCBCTBAC+1 03033000 SCBCRLEN EQU SCBCTBAC 03034000 SCBMRFSD EQU IEDQSCB+20 03035000 SCBUNDFN EQU SCBERR4 03036000 SCBSTERN EQU SCBCHANN 03037000 SCBCPMEN EQU SCBCTLUN 03038000 @NM00197 EQU SCBERR4 03039000 SCBCONNN EQU SCBERR4 03040000 SCBAPERR EQU SCBTXTTN 03041000 SCBPERRN EQU SCBXCEPN 03042000 SCBTHRSN EQU SCBATTN 03043000 SCBFIERN EQU SCBFORMN 03044000 SCBUSERN EQU SCBERR3 03045000 SCBSATTN EQU SCBERR3 03046000 SCBTMINN EQU SCBERR3 03047000 SCBXPD EQU SCBTMIDN 03048000 SCBXPI EQU SCBLOSTN 03049000 SCBSOHE EQU SCBERR2 03050000 SCBFRWDN EQU SCBERR2 03051000 SCBRRJN EQU SCBABRTN 03052000 SCBOLTR EQU SCBERR2 03053000 SCBALN EQU SCBERR2 03054000 SCBCODER EQU SCBERR2 03055000 SCBCRMAX EQU SCBERR2 03056000 SCBCRMIN EQU SCBERR2 03057000 @NM00196 EQU SCBERR1 03058000 SCBNOVAC EQU SCBSEQLN 03059000 SCBNOTSO EQU SCBSEQHN 03060000 SCBRVITX EQU SCBNOTRM 03061000 SCBHANG EQU SCBORIGN 03062000 SCBNOLOG EQU SCBHDRRN 03063000 SCBMRFPL EQU IEDQSCB+13 03064000 SCBBFMM EQU SCBQTYPE 03065000 SCBBBFTM EQU SCBQTYPE 03066000 SCBNOFF EQU SCBQTYPE 03067000 SCBCONC EQU SCBQTYPE 03068000 SCBNREUS EQU SCBQTYPE 03069000 SCBREUS EQU SCBQTYPE 03070000 SCBCOREQ EQU SCBQTYPE 03071000 SCBNORCL EQU SCBQTYPE 03072000 SCBCTBSZ EQU SCBEOBSZ 03073000 @NM00195 EQU SCBBKFCT 03074000 SCBPRI EQU IEDQSCB+8 03075000 SCBMACR EQU SCBMBHEN 03076000 SCBSNDCT EQU SCBRCVCT 03077000 SCBDESTQ EQU IEDQSCB+1 03078000 SCBCODE EQU SCBSTATE 03079000 SCBPRER EQU SCBSTATE 03080000 SCBCKPT EQU SCBSTATE 03081000 SCBMSGLN EQU SCBSTATE 03082000 SCBERSDS EQU SCBSTATE 03083000 SCBLCK1N EQU SCBSTATE 03084000 SCBMGFMN EQU SCBSEQIN 03085000 SCBTRANP EQU SCBSTATE 03086000 @NM00194 EQU TRHBYTE2 03087000 @NM00193 EQU TRHBYTE2 03088000 @NM00192 EQU TRHBYTE2 03089000 TRHCSI EQU TRHBYTE2 03090000 @NM00191 EQU TRHBYTE2 03091000 TRHCDI EQU TRHBYTE2 03092000 TRHEB EQU TRHBYTE2 03093000 TRHBB EQU TRHBYTE2 03094000 TRHPI EQU TRHBYTE1 03095000 @NM00190 EQU TRHBYTE1 03096000 @NM00189 EQU TRHBYTE1 03097000 @NM00188 EQU TRHBYTE1 03098000 TRHER EQU TRHBYTE1 03099000 TRHDR2 EQU TRHBYTE1 03100000 @NM00187 EQU TRHBYTE1 03101000 TRHDR1 EQU TRHBYTE1 03102000 TRHEC EQU TRHBYTE0 03103000 TRHBC EQU TRHBYTE0 03104000 TRHSDI EQU TRHBYTE0 03105000 TRHFI EQU TRHBYTE0 03106000 @NM00186 EQU TRHBYTE0 03107000 TRHRUCAT EQU TRHBYTE0 03108000 TRHTYPE EQU TRHBYTE0 03109000 QCBTTCIN EQU QCBPLCBA+1 03110000 @NM00185 EQU QCBPLCBA 03111000 @NM00184 EQU QCBSTAT1 03112000 QCBFLUSH EQU QCBSTAT1 03113000 QCBNDXRQ EQU QCBSTAT1 03114000 QCBESIG EQU QCBSTAT1 03115000 QCBRCVRQ EQU QCBSTAT1 03116000 QCBSNDRQ EQU QCBSTAT1 03117000 QCBWAITC EQU QCBSTAT1 03118000 QCBCHAIN EQU IEDNQCB 03119000 QCBPQBCK EQU IEDQPQCB+25 03120000 QCBPRIPQ EQU IEDQPQCB+24 03121000 QCBCFHDR EQU IEDQPQCB+21 03122000 QCBLFEFO EQU IEDQPQCB+18 03123000 QCBFFEFO EQU IEDQPQCB+15 03124000 QCBPREVF EQU QCBINTLF 03125000 QCBINTFF EQU IEDQPQCB+9 03126000 QCBDATSQ EQU QCBFHDTZ+1 03127000 @NM00183 EQU QCBFHDTZ 03128000 @NM00182 EQU QCBPFEFO 03129000 QCBDATFL EQU QCBFHDLZ 03130000 QCBDNHDR EQU IEDQPQCB 03131000 QCBQBACK EQU IEDQQCB+37 03132000 QCBCKPT EQU QCBFLAG 03133000 QCBPROC EQU QCBFLAG 03134000 QCBSDFFO EQU QCBFLAG 03135000 QCBTERMQ EQU QCBFLAG 03136000 QCBRSRV EQU QCBFLAG 03137000 QCBREAD EQU QCBFLAG 03138000 QCBNOBRK EQU QCBFLAG 03139000 QCBRELLN EQU IEDQQCB+32 03140000 QCBTJID EQU QCBLKRRN+1 03141000 QCBCARCT EQU QCBLKRRN 03142000 QCBPRLVL EQU QCBPREN 03143000 QCBMSGCT EQU IEDQQCB+26 03144000 QCBEXTO EQU QCBINTVL 03145000 QCBDISC EQU QCBTSOF1 03146000 QCBDELAY EQU QCBTSOF1 03147000 QCBPARTO EQU QCBTSOF1 03148000 QCBSATRD EQU QCBTSOF1 03149000 QCBNOBUF EQU QCBTSOF1 03150000 QCBTPUT EQU QCBTSOF1 03151000 QCBTGET EQU QCBTSOF1 03152000 QCBWRBRK EQU QCBTSOF1 03153000 QCBSATLC EQU QCBTSOF2 03154000 QCBSATTI EQU QCBTSOF2 03155000 QCBSATCH EQU QCBTSOF2 03156000 QCBDSSMI EQU QCBTSOF2 03157000 QCBPOSTO EQU QCBTSOF2 03158000 QCBBUFQ EQU QCBTSOF2 03159000 QCBMTP EQU QCBINHBN 03160000 QCBSATCT EQU @NM00181 03161000 QCBSCBOF EQU IEDQQCB+20 03162000 QCBTIME EQU QCBSTAT 03163000 QCBCLOCK EQU QCBSTAT 03164000 QCBSCHDL EQU QCBSTAT 03165000 QCBSMODE EQU QCBSTAT 03166000 QCBSEND EQU QCBSTAT 03167000 QCBBUFRD EQU QCBSTAT 03168000 QCBTRMHO EQU QCBSTAT 03169000 QCBEOM EQU QCBSTAT 03170000 QCBIEND EQU QCBRETCT 03171000 QCBEND EQU QCBRETCT 03172000 QCBNL EQU QCBRETCT 03173000 QCBLOGCT EQU QCBRETCT 03174000 @NM00180 EQU QCBBYTE1 03175000 QCBRITRM EQU QCBBYTE1 03176000 @NM00179 EQU QCBEOLDT 03177000 QCBSLINK EQU IEDQQCB+13 03178000 QCBSTPRI EQU IEDQQCB+12 03179000 QCBSTCHN EQU IEDQQCB+9 03180000 QCBSTVTO EQU IEDQQCB+8 03181000 QCBLINK EQU IEDQQCB+5 03182000 QCBPRI EQU IEDQQCB+4 03183000 @NM00178 EQU QCBELCHN+2 03184000 @NM00177 EQU QCBELCHN 03185000 QCBHELD EQU QCBDSFLG 03186000 QCBFQCB EQU QCBDSFLG 03187000 QCBDRQQ EQU QCBDSFLG 03188000 QCBALTMH EQU QCBDSFLG 03189000 QCBREUS EQU QCBDISK 03190000 QCBNREUS EQU QCBDISK 03191000 QCBCORE EQU QCBDSFLG 03192000 QCBTSQ EQU QCBDSFLG 03193000 PRF2SEQP EQU PRF2WD2 03194000 @NM00176 EQU IEDPF2+1 03195000 @NM00175 EQU PRF2FLG2 03196000 PRF2TERM EQU PRF2FLG2 03197000 PRF2SMI EQU PRF2FLG2 03198000 PRF2FORM EQU PRF2FLG2 03199000 PRF2TNTI EQU PRF2FLG2 03200000 PRF1RULN EQU PRF1SEQP+2 03201000 PRF1TAG2 EQU PRF1SQID+1 03202000 @NM00174 EQU PRF1TAG1 03203000 PRF1TAGS EQU PRF1TAG1 03204000 @NM00173 EQU PRF1FLG1 03205000 PRF1LOGD EQU PRF1FLG1 03206000 PRF1USS EQU PRF1FLG1 03207000 PRF1FORM EQU PRF1FLG1 03208000 PRF1EXPI EQU PRF1FLG1 03209000 PRF1FIDI EQU PRF1FLG1 03210000 PRF1RH EQU IEDPF1 03211000 PRFDEST EQU IEDQPRF+40 03212000 PRFISEQ EQU IEDQPRF+38 03213000 PRFSTXT EQU PRFHQBCK 03214000 PRFNHDR EQU PRFCHDR 03215000 PRFSVSEQ EQU PRFNTXT+1 03216000 PRFSVPRI EQU PRFEOBOF 03217000 PRFISIZE EQU PRFSCAN+1 03218000 @NM00172 EQU PRFSCAN 03219000 PRFEOB EQU PRFXTRA+1 03220000 PRFSTSO EQU PRFXTRA 03221000 PRFNHDRN EQU PRFSTAT1 03222000 PRFNLSTN EQU PRFSTAT1 03223000 PRFLOCK EQU PRFEOFN 03224000 PRFDUPLN EQU PRFSTAT1 03225000 PRFITCPN EQU PRFSTAT1 03226000 PRFERMGN EQU PRFSTAT1 03227000 PRFCNCLN EQU PRFSTAT1 03228000 PRFSVFLG EQU @NM00171+3 03229000 PRFSRCE EQU PRFSVFFO 03230000 PRFTI0 EQU PRFTIC+1 03231000 @NM00170 EQU PRFTICC 03232000 @NM00169 EQU PRFTICC 03233000 @NM00168 EQU PRFTICC 03234000 PRFTICON EQU PRFTICC 03235000 @NM00167 EQU PRFTICC 03236000 @NM00166 EQU PRFTICC 03237000 PRFBFMM EQU PRFTICC 03238000 PRFEOMSG EQU PRFTICC 03239000 PRFCOUNT EQU PRFLINK+1 03240000 @NM00165 EQU PRFLINK 03241000 PRFFLAGS EQU PRFPRI 03242000 PRFIOADR EQU PRFQCBA 03243000 PRFOPCDE EQU PRFKEY 03244000 LGBIVLST EQU IEDNLGB+60 03245000 LGBRESV4 EQU LGBRESER+3 03246000 LGBRESV3 EQU LGBRESER+2 03247000 LGBRESV2 EQU LGBRESER+1 03248000 LGBRESV1 EQU LGBRESER 03249000 LGBBUFSI EQU IEDNLGB+54 03250000 @NM00164 EQU IEDNLGB+53 03251000 LGBILCT EQU IEDNLGB+52 03252000 LGBSCTAD EQU IEDNLGB+49 03253000 @NM00163 EQU LGBOFLGS 03254000 LGBOPEN EQU LGBOFLGS 03255000 @NM00162 EQU LGBOFLGS 03256000 LGBNAME EQU IEDNLGB+40 03257000 @NM00161 EQU IEDNLGB+36 03258000 LGBTRANS EQU IEDNLGB+33 03259000 @NM00160 EQU IEDNLGB+32 03260000 @NM00159 EQU IEDNLGB+31 03261000 LGBOPACE EQU IEDNLGB+30 03262000 @NM00158 EQU LGBBYTE 03263000 LGBPACK EQU LGBBYTE 03264000 LGBBUFMA EQU IEDNLGB+28 03265000 LGBDSORG EQU IEDNLGB+26 03266000 @NM00157 EQU LGBPCI 03267000 @NM00156 EQU LGBPCI 03268000 @NM00155 EQU LGBPCI 03269000 LGBPCIAO EQU LGBPCI 03270000 @NM00154 EQU LGBPCI 03271000 @NM00153 EQU LGBPCI 03272000 @NM00152 EQU LGBPCI 03273000 @NM00151 EQU IEDNLGB+24 03274000 LGBMHA EQU IEDNLGB+21 03275000 @NM00150 EQU LGBBUFOU 03276000 LGBPREF EQU LGBBUFOU 03277000 @NM00149 EQU LGBBUFOU 03278000 LGBSUBST EQU IEDNLGB+18 03279000 LGBTYPE EQU IEDNLGB+17 03280000 @NM00148 EQU IEDNLGB 03281000 LCBERADR EQU LCBXRADR+1 03282000 LCBPCIRC EQU LCBXRADR 03283000 LCBDCT3 EQU LCBXDCT+2 03284000 LCBDCT2 EQU LCBXDCT+1 03285000 LCBDCT1 EQU LCBXDCT 03286000 @NM00147 EQU LCBXFLAG 03287000 LCBERPND EQU LCBXFLAG 03288000 LCBSRCPF EQU LCBXFLAG 03289000 LCBGPCTV EQU LCBXFLAG 03290000 @NM00146 EQU LCBXFLAG 03291000 @NM00145 EQU LCBXFLAG 03292000 @NM00144 EQU LCBXFLAG 03293000 @NM00143 EQU LCBXFLAG 03294000 LCBCCW10 EQU LCBCPA+72 03295000 LCBCCW9 EQU LCBCPA+64 03296000 LCBCCW8 EQU LCBCPA+56 03297000 LCBCCW7 EQU LCBCPA+48 03298000 LCBCCW6 EQU LCBCPA+40 03299000 LCBCP EQU LCBQEBPL+4 03300000 LCBIOSB EQU LCBQEBPL+1 03301000 LCBSIO EQU LCBQEBPL 03302000 LCBCCW4 EQU LCBCPA+24 03303000 LCBCCW3 EQU LCBCPA+16 03304000 LCBCCW2 EQU LCBCPA+8 03305000 LCBCCW1 EQU LCBCPA 03306000 @NM00128 EQU LCBERCCW+16 03307000 LCBATL05 EQU LCBERCCW+8 03308000 @NM00127 EQU LCBERCCW 03309000 LCBCSWSV EQU LCBSAVSN+1 03310000 LCBSNSV EQU LCBSAVSN 03311000 LCBBFSNS EQU LCBRSPSV 03312000 LCBINPAK EQU LCBSTAT6 03313000 LCBMHBID EQU LCBSTAT6 03314000 LCBRTRRO EQU LCBSTAT6 03315000 LCBHDRPD EQU LCBSTAT6 03316000 LCBCHN EQU LCBSTAT6 03317000 LCBBFRSV EQU LCBTPCD+1 03318000 @NM00126 EQU LCBSTAT5 03319000 LCBLUS EQU LCBSTAT5 03320000 LCBLUNIT EQU LCBSTAT5 03321000 LCBPERM EQU LCBSTAT5 03322000 LCBNXCMD EQU LCBBFRW 03323000 LCBERMSK EQU LCBOBRCH 03324000 LCBOLT EQU LCBMSGFM 03325000 LCBEOT EQU LCBMSGFM 03326000 LCBENQ EQU LCBMSGFM 03327000 LCBTTD EQU LCBMSGFM 03328000 LCBRSTRT EQU LCBMSGFM 03329000 LCBVSTRT EQU LCBMSGFM 03330000 LCBACKI EQU LCBMSGFM 03331000 LCBNAK EQU LCBMSGFM 03332000 LCBTTCIN EQU IEDQLCB+90 03333000 @NM00125 EQU LCBRBCT2 03334000 LCBERBCH EQU IEDQLCB+85 03335000 LCBCOMPL EQU LCBDLNKN 03336000 LCBPRCPG EQU LCBERBST 03337000 LCBLOGDV EQU LCBERBST 03338000 LCBINQ EQU LCBERBST 03339000 LCBRDERR EQU LCBERBST 03340000 LCBMSG EQU LCBERBST 03341000 LCBERBLK EQU IEDQLCB+81 03342000 LCBERBKY EQU LCBERB 03343000 LCBRECAD EQU IEDQLCB+73 03344000 @NM00124 EQU LCBTSTSW 03345000 @NM00123 EQU LCBTSTSW 03346000 @NM00122 EQU LCBTSTSW 03347000 @NM00121 EQU LCBTSTSW 03348000 @NM00120 EQU LCBTSTSW 03349000 @NM00119 EQU LCBTSTSW 03350000 @NM00118 EQU LCBTSTSW 03351000 LCBCONCT EQU LCBTSTSW 03352000 LCBBFRAV EQU LCBDIAL 03353000 LCBATTN EQU LCBSYNC 03354000 LCBSNDPR EQU LCBSTAT2 03355000 LCBCONNN EQU LCBBEOTN 03356000 LCBTRACE EQU LCBSTAT2 03357000 LCBRECVN EQU LCBSTAT1 03358000 LCBFREEN EQU LCBSTAT1 03359000 LCBCONT EQU LCBSTAT1 03360000 LCBINITN EQU LCBSTAT1 03361000 LCBOCNI EQU LCBSTAT1 03362000 LCBOCWTN EQU LCBSTAT1 03363000 LCBRECOF EQU IEDQLCB+68 03364000 LCBRDBFR EQU LCBRCBFR 03365000 LCBUCBX EQU IEDQLCB+64 03366000 LCBTTBIN EQU LCBERRCT 03367000 @NM00117 EQU LCBINCAM 03368000 LCBGETMN EQU LCBINCAM 03369000 @NM00116 EQU LCBRESTR+1 03370000 LCBPCILK EQU LCBDCBPT 03371000 LCBSTART EQU LCBIOBSN+16 03372000 LCBAP4OL EQU LCBSIOCC 03373000 LCBAP3OL EQU LCBSIOCC 03374000 LCBAP2OL EQU LCBSIOCC 03375000 LCBAP1OL EQU LCBSIOCC 03376000 LCBSIOC2 EQU LCBSIOCC 03377000 LCBSIOC1 EQU LCBSIOCC 03378000 @NM00115 EQU LCBSIOCC 03379000 LCBCSCHC EQU LCBCSWCS 03380000 LCBCSICC EQU LCBCSWCS 03381000 LCBCSCCC EQU LCBCSWCS 03382000 LCBCSCDC EQU LCBCSWCS 03383000 LCBCSPTC EQU LCBCSWCS 03384000 LCBCSPGC EQU LCBCSWCS 03385000 LCBCSIL EQU LCBCSWCS 03386000 LCBCSPCI EQU LCBCSWCS 03387000 LCBUSUC EQU LCBCSWUS 03388000 LCBUSDE EQU LCBCSWUS 03389000 LCBUSCE EQU LCBCSWUS 03390000 LCBUSBSY EQU LCBCSWUS 03391000 LCBUSCUE EQU LCBCSWUS 03392000 LCBUSSM EQU LCBCSWUS 03393000 LCBUSAT EQU LCBCSWUS 03394000 LCBCSWCA EQU LCBCSW 03395000 LCBOBR EQU LCBFLAG3 03396000 LCBOBRRD EQU LCBFLAG3 03397000 LCBIOMSG EQU LCBFLAG3 03398000 LCBSOHC EQU LCBFLAG3 03399000 LCBRLAD EQU LCBFLAG3 03400000 LCBSOHR EQU LCBFLAG3 03401000 @NM00114 EQU LCBFLAG3 03402000 LCBECBPT EQU LCBIOBSN+4 03403000 LCBECBCC EQU LCBIOBSN+3 03404000 LCBSENS1 EQU LCBSNS+1 03405000 LCBABORT EQU LCBTMOUT 03406000 LCBNOTIN EQU LCBLOSDT 03407000 LCBOVRUN EQU LCBSENS0 03408000 LCBBUSCK EQU LCBSENS0 03409000 LCBFLAG2 EQU LCBIOBSN 03410000 @NM00113 EQU LCBFLAG1 03411000 LCBUNREL EQU LCBFLAG1 03412000 LCBEXCPN EQU LCBFLAG1 03413000 @NM00112 EQU LCBFLAG1 03414000 LCBERPIN EQU LCBFLAG1 03415000 @NM00111 EQU LCBFLAG1 03416000 LCBFSBFR EQU LCBMHA 03417000 LCBISZE EQU IEDQLCB+28 03418000 @NM00110 EQU LCBSCBDA 03419000 LCBCPGMH EQU LCBSTAT4 03420000 LCBREAL EQU LCBPHASE 03421000 @NM00109 EQU LCBSTAT4 03422000 LCBACTRQ EQU LCBSTAT4 03423000 LCBIPLRQ EQU LCBSTAT4 03424000 LCBDACRQ EQU LCBSTAT4 03425000 LCBDMPRQ EQU LCBSTAT4 03426000 @NM00108 EQU LCBLKMDE 03427000 LCBLOCKI EQU LCBLKMDE 03428000 LCBLOCKR EQU LCBLKMDE 03429000 LCBHMFLG EQU LCBLKMDE 03430000 LCBBDFLG EQU LCBLKMDE 03431000 @NM00107 EQU LCBINSRC 03432000 LCBCTLMD EQU LCBTETEN 03433000 LCBBFRSZ EQU LCBCHAIN 03434000 LCBUREQN EQU LCBCHAIN 03435000 LCBNORTY EQU LCBCHAIN 03436000 LCBEXCP EQU LCBCHAIN 03437000 LCBINVRQ EQU LCBSCRNN 03438000 LCB2741N EQU LCBTSOB 03439000 LCBINHBN EQU LCBTSOB 03440000 LCBCIRCD EQU LCBTSOB 03441000 LCBPREP EQU LCBTSOB 03442000 LCBSOPL EQU LCBTSOB 03443000 LCBTSBUF EQU LCBTSOB 03444000 LCBWRBRK EQU LCBTSOB 03445000 LCBTDL EQU IEDQLCB+18 03446000 LCBEOLTD EQU IEDQLCB+16 03447000 LCBRSLNK EQU IEDQLCB+13 03448000 LCBRSPRI EQU IEDQLCB+12 03449000 LCBSTCBA EQU IEDQLCB+9 03450000 LCBRSKEY EQU IEDQLCB+8 03451000 LCBLINK EQU LCBRCB+5 03452000 LCBKEY EQU LCBRCB 03453000 @NM00106 EQU DCTBYTE5 03454000 DCTL3270 EQU DCTBYTE5 03455000 DCTSCS EQU DCTBYTE5 03456000 DCTTSPRF EQU DCTBYTE4 03457000 DCTFMPRF EQU DCTBYTE4 03458000 DCT2760 EQU DCTBYTE3 03459000 DCTNOIDL EQU DCTBYTE3 03460000 DCTCONTN EQU DCTBYTE3 03461000 DCTBUFF EQU DCTBYTE3 03462000 DCTCHECK EQU DCTBYTE3 03463000 DCTENCTL EQU DCTBYTE3 03464000 DCTWTTA EQU DCTBYTE3 03465000 DCT1050 EQU DCTBYTE3 03466000 DCTAUDIO EQU DCTBYTE2 03467000 DCTLOCAL EQU DCTBYTE2 03468000 DCTCONT EQU DCTBYTE2 03469000 DCTXMIT EQU DCTBYTE2 03470000 DCTSTCTL EQU DCTBYTE2 03471000 DCTTWX EQU DCTBYTE2 03472000 DCTBRDST EQU DCTBYTE2 03473000 DCTBISYN EQU DCTBYTE2 03474000 DCTUMASK EQU DCTBYTE1 03475000 DCTSADEV EQU DCTBYTE1 03476000 DCT2741 EQU DCTBYTE1 03477000 DCT5041 EQU DCTBYTE1 03478000 DCTATTEN EQU DCTBYTE1 03479000 DCTBREAK EQU DCTBYTE1 03480000 DCTINHIB EQU DCTBYTE1 03481000 DCTBYTE0 EQU IEDDCT 03482000 BDUXERLK EQU BDUBDUFG 03483000 BDUALTAK EQU BDUFNFLG 03484000 BDUNEGAK EQU BDUFNFLG 03485000 BDUPOSAK EQU BDUFNFLG 03486000 BDUTPTX EQU BDUFNFLG 03487000 BDULEADG EQU BDUFNFLG 03488000 BDUSTHDR EQU BDUFNFLG 03489000 SAVTLLCB EQU IEDNSVTD+316 03490000 SAVTBITN EQU IEDNSVTD+312 03491000 @NM00105 EQU SAVTCKQB+8 03492000 @NM00104 EQU SAVTCKEC+1 03493000 @NM00103 EQU SAVTCKCC 03494000 SAVTCKPO EQU SAVTCKCC 03495000 SAVTCKWA EQU SAVTCKCC 03496000 SAVTCKCH EQU SAVTCKTB+1 03497000 SAVTCKVT EQU SAVTCKTB 03498000 @NM00102 EQU IEDNSVTD+297 03499000 SAVTRDFG EQU SAVTRDRV+12 03500000 @NM00101 EQU SAVTRDRV+5 03501000 SAVTRDPY EQU SAVTRDRV+4 03502000 SAVTRDQB EQU SAVTRDRV+1 03503000 SAVTRDKY EQU SAVTRDRV 03504000 SAVTNID EQU IEDNSVTD+280 03505000 SAVTPLSZ EQU IEDNSVTD+274 03506000 @NM00100 EQU IEDNSVTD+273 03507000 SAVTSUBL EQU IEDNSVTD+272 03508000 @NM00099 EQU SAVTZELM+1 03509000 SAVTSUBM EQU SAVTZELM 03510000 SAVTMHDX EQU IEDNSVTD+268 03511000 SAVTNAT1 EQU IEDNSVTD+266 03512000 SAVTSH20 EQU IEDNSVTD+264 03513000 SAVTLCBS EQU IEDNSVTD+260 03514000 SAVTRNMP EQU IEDNSVTD+256 03515000 SAVTTNTX EQU IEDNSVTD+252 03516000 SAVTNAX EQU IEDNSVTD+248 03517000 SAVTSUBV EQU IEDNSVTD+247 03518000 SAVTSUBA EQU IEDNSVTD+246 03519000 SAVTSIBC EQU IEDNSVTD+244 03520000 SAVTBSM EQU IEDNSVTD+240 03521000 SAVTSCPT EQU SAVTTCPU 03522000 SAVTRQTG EQU IEDNSVTD+236 03523000 SAVTRQCH EQU IEDNSVTD+232 03524000 SAVTMAND EQU IEDNSVTD+228 03525000 SAVTSPLN EQU IEDNSVTD+224 03526000 SAVTNADL EQU IEDNSVTD+222 03527000 SAVTNATL EQU IEDNSVTD+220 03528000 SAVTMHTB EQU IEDNSVTD+216 03529000 SAVTSSMH EQU IEDNSVTD+212 03530000 SAVTQRS EQU IEDNSVTD+208 03531000 SAVTRQIN EQU IEDNSVTD+204 03532000 SAVTDFCO EQU IEDNSVTD+200 03533000 SAVTSAO EQU IEDNSVTD+196 03534000 SAVTSARI EQU IEDNSVTD+192 03535000 SAVTSAC EQU IEDNSVTD+188 03536000 SAVTSAI EQU IEDNSVTD+184 03537000 SAVTCSCI EQU IEDNSVTD+180 03538000 SAVTSSRP EQU IEDNSVTD+176 03539000 SAVTSSRQ EQU IEDNSVTD+172 03540000 SAVTSCLU EQU IEDNSVTD+168 03541000 SAVTXTRQ EQU IEDNSVTD+164 03542000 SAVTMVBF EQU IEDNSVTD+160 03543000 @NM00098 EQU IEDNSVTD+148 03544000 SAVTIPCQ EQU IEDNSVTD+144 03545000 @NM00097 EQU IEDNSVTD+136 03546000 @NM00096 EQU IEDNSVTD+124 03547000 SAVTXFMO EQU IEDNSVTD+120 03548000 @NM00095 EQU IEDNSVTD+116 03549000 SAVTSSSR EQU IEDNSVTD+112 03550000 SAVTSCPQ EQU IEDNSVTD+108 03551000 SAVTSLCB EQU IEDNSVTD+104 03552000 SAVTLUSR EQU IEDNSVTD+100 03553000 @NM00094 EQU SAVTLUSQ+8 03554000 SAVTLUSP EQU SAVTLUSQ+4 03555000 SAVTLUSB EQU SAVTLUSQ 03556000 @NM00093 EQU IEDNSVTD+84 03557000 SAVTSAT EQU IEDNSVTD+80 03558000 SAVTNAT EQU IEDNSVTD+76 03559000 SAVTCLUP EQU IEDNSVTD+72 03560000 SAVTPIUT EQU IEDNSVTD+68 03561000 SAVTRNTA EQU IEDNSVTD+64 03562000 SAVTDNIR EQU IEDNSVTD+60 03563000 SAVTFLDH EQU IEDNSVTD+52 03564000 SAVTSRTN EQU IEDNSVTD+48 03565000 SAVTSREQ EQU IEDNSVTD+44 03566000 SAVTFAIL EQU IEDNSVTD+42 03567000 SAVTSUSE EQU IEDNSVTD+40 03568000 SAVTSIB EQU IEDNSVTD+36 03569000 SAVTPRTN EQU IEDNSVTD+32 03570000 @NM00092 EQU IEDNSVTD+28 03571000 SAVTWH20 EQU IEDNSVTD+26 03572000 SAVTPWT EQU IEDNSVTD+24 03573000 SAVTPRTQ EQU IEDNSVTD+20 03574000 SAVTPREQ EQU IEDNSVTD+16 03575000 SAVTPH20 EQU IEDNSVTD+14 03576000 SAVTPUSE EQU IEDNSVTD+12 03577000 SAVTPLCB EQU IEDNSVTD+8 03578000 SAVTPOOL EQU IEDNSVTD+4 03579000 SAVTPRMT EQU SAVTDIAF 03580000 SAVTVIRT EQU SAVTDIAF 03581000 AVTCPBNO EQU IEDQAVTD+1172 03582000 AVTHRESS EQU IEDQAVTD+1171 03583000 @NM00091 EQU IEDQAVTD+1170 03584000 @NM00090 EQU IEDQAVTD+1169 03585000 @NM00089 EQU IEDQAVTD+1168 03586000 @NM00088 EQU IEDQAVTD+1165 03587000 @NM00087 EQU IEDQAVTD+1164 03588000 AVTHRESE EQU @NM00086 03589000 AVTRADDR EQU IEDQAVTD+1156 03590000 AVTNADDR EQU IEDQAVTD+1152 03591000 AVTHRESN EQU IEDQAVTD+1148 03592000 AVTVOLRN EQU IEDQAVTD+1144 03593000 AVTTOTNN EQU IEDQAVTD+1140 03594000 AVTTRCYN EQU IEDQAVTD+1136 03595000 AVTRCTRN EQU IEDQAVTD+1132 03596000 AVTNOVON EQU IEDQAVTD+1128 03597000 AVTADEBN EQU IEDQAVTD+1124 03598000 AVTVOLRR EQU IEDQAVTD+1120 03599000 AVTTOTNR EQU IEDQAVTD+1116 03600000 AVTTRCYR EQU IEDQAVTD+1112 03601000 AVTRCTRR EQU IEDQAVTD+1108 03602000 AVTNOVOR EQU IEDQAVTD+1104 03603000 AVTADEBR EQU IEDQAVTD+1100 03604000 AVTLODPT EQU IEDQAVTD+1096 03605000 AVTIOBN EQU IEDQAVTD+1092 03606000 AVTIOBR EQU IEDQAVTD+1088 03607000 AVTCPBPT EQU IEDQAVTD+1084 03608000 AVTFCPB EQU IEDQAVTD+1080 03609000 @NM00085 EQU IEDQAVTD+1076 03610000 AVTINCPQ EQU IEDQAVTD+1072 03611000 @NM00084 EQU IEDQAVTD+1068 03612000 @NM00083 EQU IEDQAVTD+1065 03613000 @NM00082 EQU AVTBIT4 03614000 @NM00081 EQU AVTBIT4 03615000 @NM00080 EQU AVTBIT4 03616000 @NM00079 EQU AVTBIT4 03617000 @NM00078 EQU AVTBIT4 03618000 @NM00077 EQU AVTBIT4 03619000 @NM00076 EQU AVTBIT4 03620000 AVTRUFTN EQU AVTBIT4 03621000 @NM00075 EQU IEDQAVTD+1060 03622000 AVTNOBFQ EQU IEDQAVTD+1056 03623000 @NM00074 EQU IEDQAVTD+1052 03624000 AVTDKENQ EQU IEDQAVTD+1048 03625000 @NM00073 EQU IEDQAVTD+1044 03626000 AVTDKAPQ EQU IEDQAVTD+1040 03627000 AVTCOPY EQU IEDQAVTD+1036 03628000 AVTIA EQU IEDQAVTD+1032 03629000 AVTFL EQU IEDQAVTD+1028 03630000 @NM00072 EQU IEDQAVTD+1024 03631000 AVTNCPBQ EQU IEDQAVTD+1020 03632000 AVTTOTNC EQU IEDQAVTD+1016 03633000 AVTCMAX EQU IEDQAVTD+1012 03634000 AVTCMIN EQU IEDQAVTD+1008 03635000 AVTHM02 EQU IEDQAVTD+1004 03636000 AVTOPCIN EQU IEDQAVTD+1002 03637000 AVTOPMSK EQU IEDQAVTD+996 03638000 AVTDDFT EQU IEDQAVTD+992 03639000 AVTSTEAL EQU IEDQAVTD+988 03640000 AVTOPTN EQU IEDQAVTD+984 03641000 AVTDSKCT EQU IEDQAVTD+982 03642000 AVTCKRST EQU IEDQAVTD+981 03643000 AVTSTAN EQU AVTBIT3 03644000 AVTSTACN EQU AVTBIT3 03645000 AVTSTAIN EQU AVTBIT3 03646000 AVTSTAYN EQU AVTBIT3 03647000 AVTOLTBN EQU AVTBIT3 03648000 AVTTSAB EQU AVTBIT3 03649000 AVTRFULN EQU AVTBIT3 03650000 AVTRECVN EQU AVTBIT3 03651000 @NM00071 EQU AVTBIT2 03652000 @NM00070 EQU AVTBIT2 03653000 AVTOPEIN EQU AVTBIT2 03654000 AVTSTRTN EQU AVTBIT2 03655000 AVTTOPOL EQU AVTBIT2 03656000 AVTCOPYN EQU AVTBIT2 03657000 AVTREUSN EQU AVTBIT2 03658000 AVTEXTSC EQU AVTBIT2 03659000 AVTDISKN EQU AVTBIT1 03660000 AVTQUCKN EQU AVTBIT1 03661000 AVTCLOSN EQU AVTBIT1 03662000 AVTREADN EQU AVTBIT1 03663000 AVTDLAYN EQU AVTBIT1 03664000 AVTAQTAN EQU AVTBIT1 03665000 AVTTSON EQU AVTBIT1 03666000 AVTAPLKN EQU AVTBIT1 03667000 AVTDUMBR EQU IEDQAVTD+976 03668000 AVTDLQX EQU IEDQAVTD+974 03669000 AVTINTLV EQU IEDQAVTD+972 03670000 AVTSMCNT EQU IEDQAVTD+970 03671000 AVTAVFCT EQU IEDQAVTD+968 03672000 AVTOPCON EQU IEDQAVTD+966 03673000 AVTOPCNT EQU IEDQAVTD+964 03674000 AVTLNCNT EQU IEDQAVTD+962 03675000 AVTKEYLE EQU IEDQAVTD+960 03676000 AVTHA16 EQU IEDQAVTD+958 03677000 AVTHA7 EQU IEDQAVTD+956 03678000 AVTHA4 EQU IEDQAVTD+954 03679000 AVTHA3 EQU IEDQAVTD+952 03680000 AVTHA2 EQU IEDQAVTD+950 03681000 AVTGETMS EQU IEDQAVTD+949 03682000 @NM00069 EQU IEDQAVTD+948 03683000 AVTGETMD EQU IEDQAVTD+944 03684000 AVTGETMN EQU IEDQAVTD+940 03685000 AVTCWTOT EQU IEDQAVTD+936 03686000 AVTCWINT EQU IEDQAVTD+884 03687000 AVTDTRAP EQU IEDQAVTD+880 03688000 @NM00068 EQU IEDQAVTD+878 03689000 @NM00067 EQU AVTIOTR 03690000 AVTIOTRH EQU AVTIOTR 03691000 AVTIOTRE EQU AVTIOTR 03692000 @NM00066 EQU AVTSUBT 03693000 AVTSUBPT EQU AVTSUBT 03694000 AVTSUBON EQU AVTSUBT 03695000 AVTAFE30 EQU IEDQAVTD+872 03696000 AVTAFE20 EQU IEDQAVTD+868 03697000 AVTAFE10 EQU IEDQAVTD+864 03698000 AVTCWEC2 EQU IEDQAVTD+860 03699000 AVTCWPM2 EQU IEDQAVTD+856 03700000 AVTCWTS2 EQU IEDQAVTD+855 03701000 AVTCWTS1 EQU IEDQAVTD+854 03702000 AVTCWCLD EQU AVTCWFL2 03703000 AVTCWRAP EQU AVTCWFL2 03704000 @NM00065 EQU AVTCWFL2 03705000 @NM00064 EQU AVTCWFL2 03706000 @NM00063 EQU AVTCWFL2 03707000 @NM00062 EQU AVTCWFL2 03708000 @NM00061 EQU AVTCWFL2 03709000 AVTCWACT EQU AVTCWFL2 03710000 @NM00060 EQU AVTCWFL1 03711000 @NM00059 EQU AVTCWFL1 03712000 @NM00058 EQU AVTCWFL1 03713000 @NM00057 EQU AVTCWFL1 03714000 @NM00056 EQU AVTCWFL1 03715000 @NM00055 EQU AVTCWFL1 03716000 @NM00054 EQU AVTCWFL1 03717000 AVTCOMWN EQU AVTCWFL1 03718000 AVTCWEC1 EQU IEDQAVTD+848 03719000 AVTCWPM1 EQU IEDQAVTD+844 03720000 AVTCAREA EQU IEDQAVTD+840 03721000 AVTFZERO EQU IEDQAVTD+836 03722000 AVTCADDR EQU IEDQAVTD+832 03723000 AVTCOREC EQU IEDQAVTD+828 03724000 @NM00053 EQU IEDQAVTD+820 03725000 AVTCPBCB EQU IEDQAVTD+816 03726000 @NM00052 EQU IEDQAVTD+808 03727000 @NM00051 EQU IEDQAVTD+796 03728000 AVTCPRMB EQU IEDQAVTD+792 03729000 @NM00050 EQU IEDQAVTD+784 03730000 AVTCLOSB EQU IEDQAVTD+780 03731000 @NM00049 EQU IEDQAVTD+772 03732000 AVTACTIB EQU IEDQAVTD+768 03733000 @NM00048 EQU IEDQAVTD+764 03734000 AVTOLTEB EQU IEDQAVTD+760 03735000 AVTOLTCH EQU AVTOLTQB+1 03736000 AVTOLTVT EQU AVTOLTQB 03737000 @NM00047 EQU AVTOPCQB+8 03738000 @NM00046 EQU AVTOPCEC+1 03739000 @NM00045 EQU AVTOPCCC 03740000 AVTOPCPO EQU AVTOPCCC 03741000 AVTOPCWA EQU AVTOPCCC 03742000 AVTOPCCH EQU AVTOPCOB+1 03743000 AVTOPCVT EQU AVTOPCOB 03744000 @NM00044 EQU AVTCKPQB+9 03745000 AVTCKPTS EQU AVTCKPQB+8 03746000 @NM00043 EQU AVTCKPEC+1 03747000 @NM00042 EQU AVTCKPCC 03748000 AVTCKPPO EQU AVTCKPCC 03749000 AVTCKPWA EQU AVTCKPCC 03750000 AVTCKPCH EQU AVTCKPTB+1 03751000 AVTCKPVT EQU AVTCKPTB 03752000 @NM00041 EQU IEDQAVTD+724 03753000 @NM00040 EQU IEDQAVTD+716 03754000 AVTSELCH EQU IEDQAVTD+713 03755000 AVTBFRTN EQU AVTBFRFG 03756000 AVTBFREB EQU IEDQAVTD+708 03757000 AVTTIMQ EQU IEDQAVTD+704 03758000 @NM00039 EQU IEDQAVTD+700 03759000 AVTIMQPS EQU IEDQAVTD+696 03760000 AVTINOUT EQU IEDQAVTD+694 03761000 AVTREFTM EQU IEDQAVTD+692 03762000 @NM00038 EQU IEDQAVTD+680 03763000 AVTDELYB EQU IEDQAVTD+676 03764000 AVTOCQPT EQU IEDQAVTD+672 03765000 AVTSUPPT EQU IEDQAVTD+664 03766000 AVTCBQCB EQU IEDQAVTD+660 03767000 @NM00037 EQU AVTSYSER 03768000 @NM00036 EQU AVTSYSER 03769000 @NM00035 EQU AVTSYSER 03770000 @NM00034 EQU AVTSYSER 03771000 @NM00033 EQU AVTSYSER 03772000 @NM00032 EQU AVTSYSER 03773000 AVTCMAXN EQU AVTSYSER 03774000 AVTCMINN EQU AVTSYSER 03775000 AVT2260L EQU IEDQAVTD+652 03776000 AVTABEPL EQU AVTADBUF 03777000 AVTHFF EQU AVTCLRHI+2 03778000 @NM00031 EQU AVTCLRHI 03779000 AVTCCLNK EQU AVTCRELE+5 03780000 AVTCCPRI EQU AVTCRELE+4 03781000 AVTCCQCB EQU AVTCCELE+1 03782000 AVTCCKEY EQU AVTCCELE 03783000 AVTDELAD EQU IEDQAVTD+632 03784000 AVTDELEM EQU IEDQAVTD+628 03785000 AVTBSX EQU AVTCKLNK 03786000 AVTOPETR EQU AVTHG01 03787000 @NM00030 EQU AVTCKBYT 03788000 AVTCKONQ EQU AVTCKBYT 03789000 @NM00029 EQU AVTCKBYT 03790000 @NM00028 EQU AVTCKBYT 03791000 @NM00027 EQU AVTCKBYT 03792000 @NM00026 EQU AVTCKBYT 03793000 @NM00025 EQU AVTCKBYT 03794000 @NM00024 EQU AVTCKBYT 03795000 AVTOPERT EQU IEDQAVTD+618 03796000 AVTOPXCL EQU IEDQAVTD+616 03797000 AVTOPERL EQU IEDQAVTD+615 03798000 @NM00023 EQU IEDQAVTD+614 03799000 AVTCKTIM EQU IEDQAVTD+612 03800000 AVTCKELV EQU IEDQAVTD+610 03801000 AVTCPRCD EQU IEDQAVTD+609 03802000 AVTWARMN EQU AVTCKELF 03803000 AVTCRTLN EQU AVTCKELF 03804000 AVTCPIPN EQU AVTCKELF 03805000 AVTCCLCN EQU AVTCKELF 03806000 AVTCINCN EQU AVTCKELF 03807000 @NM00022 EQU AVTCKELF 03808000 AVTCMCPN EQU AVTCKELF 03809000 AVTNQBCK EQU AVTCKELF 03810000 AVTCKQAD EQU IEDQAVTD+605 03811000 AVTSCBSZ EQU IEDQAVTD+604 03812000 @NM00021 EQU IEDQAVTD+600 03813000 AVTCKELE EQU IEDQAVTD+596 03814000 @NM00020 EQU AVTCKPEL+8 03815000 AVTCKRLK EQU AVTCKPEL+5 03816000 AVTCKRPR EQU AVTCKPEL+4 03817000 AVTCKRMQ EQU AVTCKRMV+1 03818000 AVTCKRKY EQU AVTCKRMV 03819000 AVTHK EQU IEDQAVTD+576 03820000 AVTHI EQU IEDQAVTD+572 03821000 AVTIOT EQU IEDQAVTD+568 03822000 AVTNX EQU IEDQAVTD+564 03823000 AVTTONE EQU IEDQAVTD+560 03824000 AVTA3TL EQU IEDQAVTD+556 03825000 AVTDMECB EQU IEDQAVTD+552 03826000 AVTABEND EQU IEDQAVTD+546 03827000 AVTPLCBN EQU IEDQAVTD+544 03828000 @NM00019 EQU AVTSAVTP+1 03829000 @NM00018 EQU AVTSAVTF 03830000 AVTSNA EQU AVTSAVTF 03831000 AVTONSNA EQU AVTSAVTF 03832000 AVTVTMCP EQU AVTSAVTF 03833000 @NM00017 EQU IEDQAVTD+536 03834000 AVTCMBSS EQU IEDQAVTD+532 03835000 AVTRCV EQU IEDQAVTD+528 03836000 AVTSEND EQU IEDQAVTD+524 03837000 AVTCSCH EQU IEDQAVTD+520 03838000 AVTQ1 EQU IEDQAVTD+516 03839000 AVTE7 EQU IEDQAVTD+512 03840000 AVTHB EQU IEDQAVTD+508 03841000 AVTR1 EQU IEDQAVTD+504 03842000 AVTBZ EQU IEDQAVTD+500 03843000 AVTEZ EQU IEDQAVTD+496 03844000 AVTEC EQU IEDQAVTD+492 03845000 AVTEW EQU IEDQAVTD+488 03846000 AVTNDIAL EQU AVTSCOPT 03847000 AVTN2741 EQU AVTSCOPT 03848000 AVTCONCO EQU AVTSCOPT 03849000 AVTCONC EQU AVTSCOPT 03850000 AVTCMBUF EQU AVTSCOPT 03851000 AVTAPDMP EQU AVTSCOPT 03852000 @NM00016 EQU AVTSCOPT 03853000 AVTHA EQU AVTDISP 03854000 AVTEA EQU IEDQAVTD+476 03855000 AVTAX EQU IEDQAVTD+472 03856000 AVTA3 EQU IEDQAVTD+468 03857000 AVTGD EQU IEDQAVTD+464 03858000 AVTAL EQU IEDQAVTD+460 03859000 AVTOLTST EQU AVTHG02 03860000 AVTE8 EQU IEDQAVTD+452 03861000 AVTUI EQU IEDQAVTD+448 03862000 AVTCOMPT EQU IEDQAVTD+444 03863000 AVTCRSRF EQU IEDQAVTD+440 03864000 @NM00015 EQU IEDQAVTD+436 03865000 AVTKA02 EQU IEDQAVTD+432 03866000 AVTOPTPT EQU IEDQAVTD+428 03867000 AVTPCBPT EQU IEDQAVTD+424 03868000 @NM00014 EQU AVTECB1 03869000 AVTCOMP EQU AVTECB1 03870000 @NM00013 EQU AVTECB1 03871000 AVTOPECA EQU IEDQAVTD+416 03872000 AVTOLECA EQU IEDQAVTD+412 03873000 AVTCKECA EQU IEDQAVTD+408 03874000 AVTCWECA EQU IEDQAVTD+404 03875000 AVTCWTCB EQU IEDQAVTD+400 03876000 AVTOLTCB EQU IEDQAVTD+396 03877000 AVTOCTCB EQU IEDQAVTD+392 03878000 AVTCKTCB EQU IEDQAVTD+388 03879000 AVTAS EQU IEDQAVTD+384 03880000 AVTNOLBF EQU IEDQAVTD+382 03881000 AVTNCKPR EQU IEDQAVTD+381 03882000 AVTCIB EQU IEDQAVTD+380 03883000 AVTSPLPT EQU IEDQAVTD+376 03884000 AVTMVBFR EQU IEDQAVTD+372 03885000 AVTSBTA EQU IEDQAVTD+368 03886000 AVTRARTN EQU IEDQAVTD+364 03887000 AVTBSCAN EQU IEDQAVTD+360 03888000 AVTRDYA EQU IEDQAVTD+356 03889000 AVTDISTR EQU IEDQAVTD+348 03890000 AVTPARM3 EQU IEDQAVTD+344 03891000 @NM00012 EQU AVTPKF 03892000 @NM00011 EQU AVTPKF 03893000 @NM00010 EQU AVTPKF 03894000 AVTFTCHF EQU AVTPKF 03895000 @NM00009 EQU AVTPKF 03896000 @NM00008 EQU AVTPKF 03897000 @NM00007 EQU AVTPKF 03898000 @NM00006 EQU AVTPKF 03899000 AVTPARM EQU IEDQAVTD+336 03900000 AVTEXS2A EQU IEDQAVTD+330 03901000 AVTEXA2S EQU IEDQAVTD+324 03902000 AVTOCGET EQU IEDQAVTD+320 03903000 AVTCKAVT EQU @NM00004+1 03904000 @NM00005 EQU AVTCKFLG 03905000 AVTCKHLT EQU AVTCKFLG 03906000 AVTCKREQ EQU AVTCKFLG 03907000 AVTCKENV EQU AVTCKFLG 03908000 AVTCKNAC EQU AVTCKFLG 03909000 AVTCKTAC EQU AVTCKFLG 03910000 AVTBUENT EQU IEDQAVTD+314 03911000 @NM00003 EQU IEDQAVTD+313 03912000 AVTFULLT EQU AVTBUFSW 03913000 AVTUNCON EQU AVTBUFSW 03914000 @NM00002 EQU AVTBUFSW 03915000 AVTBUFTR EQU AVTREADD 03916000 AVTREADY EQU IEDQAVTD+304 03917000 AVTRACE EQU IEDQAVTD+300 03918000 AVTTCB EQU IEDQAVTD+296 03919000 AVTPASWD EQU IEDQAVTD+288 03920000 AVTCTLCH EQU IEDQAVTD+280 03921000 AVTDOUBL EQU IEDQAVTD+272 03922000 AVTDOUBX EQU IEDQAVTD+264 03923000 AVTDPARM EQU IEDQAVTD+260 03924000 AVTDLQ EQU AVTSAVEX+32 03925000 @NM00001 EQU AVTSAVEX 03926000 AVTSAVE4 EQU IEDQAVTD+144 03927000 AVTSAVE3 EQU IEDQAVTD+72 03928000 AVTSAVE2 EQU IEDQAVTD 03929000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03930000 @RF00557 EQU @RC00553 03931000 @RC00555 EQU @RC00553 03932000 @RC00535 EQU @RC00528 03933000 @RC00541 EQU @RC00528 03934000 @RC00662 EQU @RC00528 03935000 @RC00613 EQU @RC00528 03936000 @RC00584 EQU @RC00528 03937000 @RC00566 EQU @RC00528 03938000 @RC00669 EQU @RC00528 03939000 @RC00667 EQU @RC00528 03940000 @RC00665 EQU @RC00528 03941000 @RF00677 EQU @RC00528 03942000 @RF00676 EQU @RC00528 03943000 @RF00682 EQU @RC00528 03944000 @RC00698 EQU @RC00696 03945000 @RC00707 EQU @RC00696 03946000 @RC00719 EQU @RC00712 03947000 @RC00770 EQU @RC00768 03948000 @RC00778 EQU @RC00768 03949000 @RC00792 EQU @RC00790 03950000 @RC00893 EQU @RC00887 03951000 @RF00923 EQU @RC00909 03952000 @RC00918 EQU @RC00909 03953000 @RC00916 EQU @RC00909 03954000 @RC00931 EQU @RC00930 03955000 @RF00959 EQU @RC00935 03956000 @RC00954 EQU @RC00935 03957000 @RC00949 EQU @RC00935 03958000 @RC00947 EQU @RC00935 03959000 @RC00942 EQU @RC00935 03960000 @RC00937 EQU @RC00935 03961000 @RF00982 EQU @EL00006 03962000 @RC00984 EQU @EL00006 03963000 @RF00987 EQU @EL00006 03964000 @RC00997 EQU @EL00007 03965000 @RC01001 EQU @EL00007 03966000 @RC01048 EQU @RC01044 03967000 @PB00012 EQU @PB00013 03968000 @RC00576 EQU @RC00566 03969000 @RC00574 EQU @RC00566 03970000 @RC00568 EQU @RC00566 03971000 @RC00586 EQU @RC00584 03972000 @RC00593 EQU @RC00584 03973000 @RC00624 EQU @RC00613 03974000 @RC00615 EQU @RC00613 03975000 @RC00643 EQU @RC00613 03976000 @RC00638 EQU @RC00613 03977000 @RC00779 EQU @RC00778 03978000 @PB00011 EQU @PB00012 03979000 @RC00594 EQU @RC00593 03980000 @RC00626 EQU @RC00624 03981000 @PB00010 EQU @PB00011 03982000 @PB00009 EQU @PB00010 03983000 @PB00008 EQU @PB00009 03984000 @PB00007 EQU @PB00008 03985000 @PB00006 EQU @PB00007 03986000 @PB00005 EQU @PB00006 03987000 @PB00004 EQU @PB00005 03988000 @PB00003 EQU @PB00004 03989000 @PB00002 EQU @PB00003 03990000 @ENDDATA EQU * 03991000 END IEDSAC,(C'PLS1552',0701,78193) 03992000