COMKCBT 
COMMON
          CTEXT  COMKCBT - CHECK BINARY TERMINAL. 
 COMKCBT  SPACE  4
          BASE   D
          IF     -DEF,QUAL$,1 
          QUAL   COMKCBT
 COMKCBT  SPACE  4
***       CBT - CHECK BINARY TERMINAL.
*         M.S. CARTER.       75/06/04.
 COMKCBT  SPACE  4
***              THIS COMMON DECK IS INTENDED TO SERVE AS A EXAMPLE OF
*         HOW THE USER MAY WANT TO HANDLE BINARY TERMINAL SELECTION.
*         THE SUBROUTINE *CBT* WILL RETURN A ZERO WORD IF THE 
*         TERMINAL IS NOT BINARY AND WILL RETURN A WORD CONTAINING THE
*         BINARY INPUT REQUEST IF IT IS A BINARY TERMINAL.
* 
* 
*         ENTRY  (A1) - COMMUNICATION BLOCK ADDRESS.
*                (X1) - FIRST WORD OF COMMUNICATION BLOCK.
* 
*         EXIT   (X6) = 0 IF NO BINARY TERMINAL SELECTED. 
*                (X6) = 12/0006,12/CBTB,12/CBTC,24/0. 
*                       CBTB = CHARACTER COUNT. 
*                       CBTC = TERMINATING CHARACTER. 
* 
*         USES   A - 1. 
*                X - 1, 6.
  
  
 CBT      SUBR               ENTRY/EXIT 
          SX6    CBTA-24
          ZR     X6,CBTX     IF BINARY TERMINAL OPTION NOT SET
          LX1    59-CBTA-24 
          BX6    X6-X6       SET ZERO WORD
          PL     X1,CBTX     IF NOT BINARY TERMINAL 
          SA1    CBTD        BINARY INPUT REQUEST WORD
          BX6    X1 
          EQ     CBTX        EXIT 
  
  
****
 CBTA     EQU    24          DEFAULT BINARY TERMINAL USER AREA BIT
 CBTB     EQU    0           DEFAULT CHARACTER COUNT
 CBTC     EQU    4000B       DEFAULT TERMINATING CHARACTER
****
  
 CBTD     VFD    12/0006B,12/CBTB,12/CBTC,24/0
 COMKCBT  SPACE  4
          BASE   *
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 CBT      EQU    /COMKCBT/CBT 
 QUAL$    ENDIF 
          ENDX
