*COMDECK PBTTYEOT 
_$J+  PAGE EJECT? 
_*****************************
*                            *
*         PBTTYEOT           *    LOCAL TO PBTTYINT 
*   END-OF-MESSAGE HANDLER   *
*                            *
*****************************?
_***********************************************************************
*                                                                      *
**OVERVIEW- PBTTYEOT HANDLES CONSOLE END-OF-MESSAGE FUNCTIONS          *
*           AFTER A SYSTEM EOM IS RECEIVED ON INPUT.  A SYSTEM         *
*           EOM WHILE IN TUP MODE TERMINATES TUP MODE.  A              *
*           CONSOLE CONTROL MESSAGE IS EXECUTED BY PBCHEXECUTE.        *
*           A SYSTEM MESSAGE IS PASSED TO INTERNAL PROCESSING          *
*           VIA WL ENTRY.                                              *
*                                                                      *
**INPUT- NONE.                                                         *
*                                                                      *
**OUTPUT- PROPER EOM FUNCTION PERFORMED.                               *
*                                                                      *
**EXTERNAL SUBROUTINES-                                                *
*              1) PBLSPUT          MAKE A WL ENTRY                     *
*                                                                      *
***********************************************************************?
PROCEDURE PBTTYEOT; 
BEGIN 
  WITH JACT[TTY] DO 
  BEGIN 
_  ******  CAUTION - HIDDEN *IF DEF,TUP  ******  ?
*IF DEF,TUP 
    IF JUTUPTABLE.JUTUPFLG                  _CHECK IF IN TUP MODE      ?
    THEN JUTUPTABLE.JUTUPFLG := FALSE       _LEAVE TUP MODE            ?
    ELSE
*ENDIF
_  ******  CAUTION - HIDDEN *ENDIF FOR TUP CODE  ******  ?
    IF JACHFLG                              _CHECK IF CONSOLE CONTROL  ?
    THEN PBCHEXECUTE                        _EXECUTE CONSOLE CONTROL   ?
    ELSE
    WITH BWWLENTRY[CNSLE] DO
  WITH JAOLDIBP' DO 
  IF BFFCD = BFLCD                          _ IS THIS AN EMPTY BUFF    ?
  THEN PBREL1BF(JAOLDIBP,R0BUFSZE)          _ DISCARD THE DATA BUFFER  ?
  ELSE
    BEGIN 
      JACURIBP'.BFEOTFLG := TRUE;           _SET EOT FLAG IN LAST BFR  ?
    BFFORMAT := (SUPQ = JAQCHOSEN);         _SET FORMAT FLAG           ?
      B0EWLQ.MMWKCOD := A0WK1;              _ INPUT WORK CODE.         ?
      BWBLKPTR := JAOLDIBP; 
      PBLSPUT (BWWLENTRY[CNSLE],BYWLCB[B0CHWL]); _ PASS TO OPS LEVEL.  ?
    END;
    JAOLDIBP := NIL;                        _ CLEAR OLD INPUT POINTER  ?
  END; _WITH? 
END; _PBTTYEOT? 
