*COMDECK COMCBEGN 
#     COMCBEGN - REQUIRED SETUP/INITIALIZATION DEFINITIONS.  #
          # COPYRIGHT CONTROL DATA CORPORATION 1982, 1984 # 
                                               CONTROL NOLIST;
      DEF LISTCON  #0#;              # DEFAULT LIST CONTROL OFF (1=ON) #
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
# 
***   THE FOLLOWING DEFINITIONS AND CONDITIONAL UPDATE DIRECTIVES 
*     CONTROL THE COMPILATION OF CODE THAT IS OPERATING SYSTEM
*     DEPENDENT.  CURRENTLY, THERE ARE JUST TWO CHOICES, NOS AND
*     NOSBE.  THE DEFAULT IS NOS.  TO COMPILE NOSBE O/S CODE, INCLUDE 
*     A -*DEFINE NOSBE- IN YOUR UPDATE DIRECTIVES.
# 
  
*IF DEF,NOSBE 
      DEF OS$NOS     #1#;            # NO # 
      DEF OS$NOSBE   #0#;            # YES #
*ENDIF
*IF -DEF,NOSBE
      DEF OS$NOS     #0#;            # YES #
      DEF OS$NOSBE   #1#;            # NO # 
*ENDIF
  
# 
***   COMCBEGN - REQUIRED SETUP DEFINITIONS.
* 
*     COMCBEGN CONTAINS THE COMMON SETUP DEFINITIONS USED BY THE
*     RHF/APPLICATION SOFTWARE.  ALL SYMPL CODE WRITTEN FOR THE RHF 
*     PROJECT MUST CALL THIS COMMON DECK AND IT MUST BE THE FIRST 
*     COMMON DECK CALLED. 
* 
# 
  
      BEGIN  # COMCBEGN COMDECK # 
  
      DEF EXIT     #GOTO#;           # EXIT STATEMENT DEFINITION #
      DEF CYCLE    #TEST#;           # CYCLE STATEMENT DEFINITION # 
      DEF FASTFOR  #CONTROL SLOWLOOP; FOR#;    # FASTFOR DEFINITION # 
      DEF SLOWFOR  #CONTROL SLOWLOOP; FOR#;    # SLOWFOR DEFINITION # 
      DEF ASLONGAS #SLOWFOR $DUM$$=$DUM$$ WHILE#;  #ASLONGAS DEFINITION#
  
      DEF RHFVER     #"1.1"#; 
      DEF RHFPSR     #"859"#; 
      DEF NE       #NQ#;
      DEF GT       #GR#;
      DEF LT       #LS#;
      DEF GE       #GQ#;
      DEF LE       #LQ#;
  
      DEF IPCS63   #":","%"#; 
  
      CONTROL INERT;
      CONTROL DISJOINT; 
      CONTROL PACK; 
  
      COMMON COMCBEGN;
        BEGIN  # COMCBEGN COMMON AREA # 
        ITEM $DUM$$ I;               # DUMMY DECLARATION FOR ASLONGAS # 
        END    # COMCBEGN COMMON AREA # 
  
      END  # COMCBEGN COMDECK # 
                                               CONTROL LIST;
