*DECK TIMFDEF 
      PROC TIMFDEF; 
      BEGIN 
      CONTROL STEXT;
#----------------------------------------------------------------------#
#                                                                      #
#     T I M F D E F                                                    #
#                                                                      #
#     THIS TEXT CONTAINS THE DEFS THAT ARE PECULIAR TO THE *IMF*       #
#     INTERFACE CODE                                                   #
#                                                                      #
#----------------------------------------------------------------------#
  
      DEF MAXMOVE       #10#;      # SIZE OF ONE BLOCK OF MOVE TABLE   #
      DEF MAXPRINT      # 20 #;    # MAXIMUM PRINTTABLE ENTRIES        #
      DEF MAXRANGE      # 29 #;    # MAXIMUM RANGETABLE ENTRIES        #
     DEF DEFAULT$PW    # O"0000 0005 0415 2320 2722" #;  # *EDMSPWR*  # 
      DEF MAXUS         #10#;      # SIZE OF ONE BLOCK OF USE TABLE    #
      DEF SICDITD       #  0 #;    # DIT DISPLACEMENT IN SSST          #
      DEF SICLENGTH     # 35 #;    # LENGTH OF IMF COMMUNICATION BLK   #
  
     DEF STV$EOI      # "0000000005" #;   # USERSTV VALUE FOR END OF   #
                                          # INFORMATION REACHED        #
     DEF STV$NOTFOUND # "0000000001" #;   # USERSTV VALUE FOR NOT FOUND#
     DEF STV$OK       # "0000000000" #;   # USERSTV VALUE FOR SUCCESS  #
     DEF STV$FILEBUSY #        O"10" #;   # ERRCODE VALUE FOR FILE BUSY#
     DEF STV$NOATTACH #        O"11" #;   # ERRCODE VALUE FOR CANT     #
                                          # ATTACH DATA BASE FILE      #
     DEF STV$INTERROR #        O"12" #;   # VALUES OF ERRCODE GQ       #
                                          # STV$INTERROR ARE IMF       #
                                          # INTERNAL ERRORS            #
     DEF STV$ABSENT   # "0000000538" #;   # IMF IS ABSENT, QU WAS BUILT#
     DEF STV$ABSBIN   #         538  #; 
     DEF STV$INCOMP   # "0000000540" #;   # INCOMPATIBLE VERSION OF IMF#
     DEF STV$INCBIN   #         540  #; 
      END 
      TERM
