COMSTIR 
COMMON
                                                                      # 
          CTEXT  COMSTIR - TERMINAL INTERFACE ROUTINE EQUIVALENCES. 
                                                                      # 
                                               CONTROL NOLIST;
                                                                      # 
          SPACE  4,10 
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 COMSTIR  SPACE  4
***       COMSTIR - TERMINAL INTERFACE ROUTINE EQUIVALENCES.
*         M. L. SWANSON      84/05/09.
          BASE   M
          SPACE  4
***       *COMSTIR* PROVIDES EQUIVALENCES FOR TERMINAL DEPENDENT
*         ROUTINES WHICH INTERFACE TO TERMINAL DEFINITION UTILITY (TDU) 
*         GENERATED CAPSULES. 
*         SYMBOLS DEFINED BY THE DEF MACRO ARE USED IN
*         BOTH *SYMPL* AND *COMPASS* PROGRAMS.  IN *SYMPL*, 
*         COMMENTS ARE DELIMITED BY THE # # CHARACTER.
                                                                      # 
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
                             BEGIN  # COMSTIR # 
                                                                      # 
*         THE FOLLOWING MICRO DEFINITIONS CREATE MICRO NAMES
*         WHICH HAVE VALUES THAT ARE THE SAME AS THEIR NAMES
*         (I.E.,  37   MICRO 1,,$37$  ).
*         THE PURPOSE OF THIS IS TO AVOID TYPE 9 ERRORS WHICH 
*         WOULD OTHERWISE OCCUR WHEN *COMPASS* PROCESSES A
*         LINE WITH A *   *DEF*     *MACRO CONTAINING THE 
*         *SYMPL* REPRESENTATION OF AN OCTAL NUMBER (O"37").
  
 101      MICRO  1,,$101$ 
 401      MICRO  1,,$401$ 
  
          BASE   *
  
  
***       ISBL - INITIALIZATION SEQUENCE BUFFER LENGTH. 
* 
*         *ISBL* IS THE BUFFER USED TO HOLD THE INITIALIZATION
*         SEQUENCE RETRIEVED FROM A DYNAMICALLY LOADED TERMINAL 
*         TERMINAL CAPSULE.  THIS IS SET AT 401 DECIMAL WORDS 
*         ( EQUIVALENT TO 2000 BYTES ). 
                                                                       #
  
  
#ISBL     #DEF#  401    # ISBL#401#;     # INITIALIZATION SEQ. BUFFER. #
  
  
  
                                                                       #
***       ZBFL - ZZZZTRM FILE BUFFER LENGTH.
* 
*         *ZBFL* IS THE BUFFER USED TO HOLD THE ZZZZTRM FILE
*         CREATED BY *SCRCZF*, FROM A DYNAMICALLY LOADED TERMINAL 
*         CAPSULE.
                                                                       #
  
  
  
#ZBFL    #DEF#  401B   # ZBFL#O"401"#;    # ZZZZTRM FET BUFFER    # 
  
  
  
                                                                       #
***       RBFL - RETURN FILE BUFFER LENGTH. 
* 
*         *RBFL* IS THE BUFFER LENGTH NEEDED TO RETURN A LOCAL
*         FILE. 
                                                                       #
  
  
  
#RBFL     #DEF#  101B   # RBFL#O"101"#;    # BUFFER FOR RETURN MACRO.  #
  
                                                                       #
***       TDUV - TERMINAL DEFINITION UTILITY VERSION NUMBER.
* 
*         *TDUV* IS THE CURRENT VERSION NUMBER OF TDU.  A 
*         TERMINAL CAPSULE MUST CONTAIN A VERSION NUMBER EQUAL TO 
*         OR LESS THAN THE VERSION NUMBER SPECIFIED HERE, IN ORDER
*         TO BE USED WITH NOS FULL SCREEN PRODUCTS. 
                                                                       #
  
  
#TDUV     #DEF#  1      # TDUV#1#;       # TDU VERSION NUMBER.# 
  
                             END  # COMSTIR # 
                                                                       #
  
          ENDX    #                            CONTROL LIST;
