module expconst
	export id_bl_cmd_reg,
		s_type,s_const,a_const,s_const_type,
		al_env_id,
		env_offset
	declare
		al_env_id = 1
		env_offset = 100
		id_BL_CMD_REGtype is integer initially 0
		id_BL_CMD_REGarray1 is array [ 1..   10 ] of id_BL_CMD_REGtype
		id_BL_CMD_REG = 
			table id_BL_CMD_REGarray1 (
				 AL_env_id * env_offset +     1
				,AL_env_id * env_offset +     2
				,AL_env_id * env_offset +     3
				,AL_env_id * env_offset +     4
				,AL_env_id * env_offset +     5
				,AL_env_id * env_offset +     6
				,AL_env_id * env_offset +     7
				,AL_env_id * env_offset +     8
				,AL_env_id * env_offset +     9
				,AL_env_id * env_offset +    10
			)

	s_type	is structure
		a:	integer
		b:	integer
		endstructure

	s_const	=	s_type ( a:1,b:2)
	s_const_type 	is s_type initially s_type ( a:1,b:2)

	a_const = 10

	enddeclare
endmodule