include 'dix_def.inc'
        integer*4 magic_main_symbol
        parameter (magic_main_symbol = 'MAIS')
	structure /main_symbol/
	  integer*4 ptr_symbols
	  integer*4 ptr_spare_names
	  integer*4 ptr_spare_values
	  integer*4 ptr_spare_values_level
	  integer*4 enters
	  integer*4 removes
	  integer*4 lookups
	  integer*4 rewrites
	  record /vm_zone/ zone_symbol
	  record /vm_zone/ zone_symbol_value
	  integer*4 magic
	end structure
c
        integer*4 magic_symbol
        parameter (magic_symbol = 'SYMB')
	structure /symbol/
	  integer*4 ptr_next
	  integer*4 nk_ast		!pointer to the * in the string
	  integer*4 nk_name
	  character*(max_symbol_name_length) name
	  integer*4 ptr_values
	  integer*4 rewrites
	  integer*4 lookups
	  integer*4 magic
	end structure
c
        integer*4 magic_symbol_value
        parameter (magic_symbol_value = 'SYMV')
c
	structure /symbol_value/
	  integer*4 ptr_next
	  integer*4 level
	  record /value/ value
	  integer*4 rewrites
	  integer*4 lookups
	  integer*4 fixed_type
	  integer*4 link_back
	  integer*4 n_links
	  integer*4 ptr_symbol
	  character*(max_secure_tag_length) secure
	  integer*4 magic
	end structure	  
C
	structure /level/
         union
          map
           integer*4 tval
          end map
          map
           integer*2 depth
           integer*2 struct_level
          end map
         end union
        end structure