Subversion Repositories wrimm

--Propery of Tecphos Inc.  See License.txt for license details
--Latest version of all project files available at http://opencores.org/project,wrimm
--See WrimmManual.pdf for the Wishbone Datasheet and implementation details.
--See wrimm subversion project for version history
 
library ieee;
	use ieee.std_logic_1164.all;
 
package WrimmPackage is
 
	constant WbAddrBits		: Integer := 4;
	constant WbDataBits		: Integer := 16;
 
	subtype			WbAddrType	is std_logic_vector(0 to WbAddrBits-1);
	subtype			WbDataType	is std_logic_vector(0 to WbDataBits-1);
 
	type WbMasterOutType is record
		Strobe				: std_logic;									--Required
		WrEn					: std_logic;
		Addr					: WbAddrType;
		Data					: WbDataType;
		DataTag				: std_logic_vector(0 to 1);		--Write,Set,Clear,Toggle
		Cyc						: std_logic;									--Required
		CycType				: std_logic_vector(0 to 2);		--For Burst Cycles
	end record WbMasterOutType;
 
	type WbSlaveOutType is record
		Ack						: std_logic;									--Required
		Err						: std_logic;
		Rty						: std_logic;
		Data					: WbDataType;
	end record WbSlaveOutType;
 
	type WbMasterOutArray	is array (natural range <>) of WbMasterOutType;
	type WbSlaveOutArray	is array (natural range <>) of WbSlaveOutType;
 
-------------------------------------------------------------------------------
--
--	Status Registers (Report internal results)
--
-------------------------------------------------------------------------------
	type StatusFieldParams is record
		BitWidth	: integer;
		MSBLoc		: integer;
		Address		: WbAddrType;
  end record StatusFieldParams;
 
	type StatusFieldType	 is (
		StatusA,
		StatusB,
		StatusC);
 
	type StatusArrayType 			is Array (StatusFieldType'Left to StatusFieldType'Right)	of WbDataType;
	type StatusArrayBitType		is Array (StatusFieldType'Left to StatusFieldType'Right)	of std_logic;
	type StatusFieldDefType		is Array (StatusFieldType'Left to StatusFieldType'Right)	of StatusFieldParams;
 
	constant StatusParams : StatusFieldDefType  :=(
		StatusA						=> (BitWidth => 16, MSBLoc =>  0, Address => x"0"),
		StatusB						=> (BitWidth =>  8, MSBLoc =>  0, Address => x"1"),
		StatusC						=> (BitWidth =>  4, MSBLoc => 12, Address => x"2"));
-------------------------------------------------------------------------------
--
--	Setting Registers
--
-------------------------------------------------------------------------------
	type SettingFieldParams is record
		BitWidth	: integer;
		MSBLoc		: integer;
		Address		: WbAddrType;
		Default		: WbDataType;
  end record SettingFieldParams;
 
	type SettingFieldType	 		is (
		SettingX,
		SettingY,
		SettingZ);
 
	type SettingArrayType			is Array (SettingFieldType'Left to SettingFieldType'Right)	of WbDataType;
	type SettingArrayBitType	is Array (SettingFieldType'Left to SettingFieldType'Right)	of std_logic;
	type SettingFieldDefType	is Array (SettingFieldType'Left to SettingFieldType'Right)	of SettingFieldParams;
 
	constant SettingParams : SettingFieldDefType  :=(
		SettingX		=> (BitWidth => 32, MSBLoc =>  0, Address => x"62", Default => x"0000"),
		SettingY		=> (BitWidth => 32, MSBLoc =>  0, Address => x"64", Default => x"0000"),
		SettingZ		=> (BitWidth =>  1, MSBLoc => 31, Address => x"67", Default => x"0000"));
 
-------------------------------------------------------------------------------
--
--	Trigger Registers (Report internal results)
--
-------------------------------------------------------------------------------
	type TriggerFieldParams is record
		BitLoc		: integer;
		Address		: WbAddrType;
  end record TriggerFieldParams;
 
	type TriggerFieldType	 is (
		TriggerR,
		TriggerS,
		TriggerT);
 
	type TriggerArrayType			is Array (TriggerFieldType'Left to TriggerFieldType'Right)	of std_logic;
	type TriggerFieldDefType	is Array (TriggerFieldType'Left to TriggerFieldType'Right)	of TriggerFieldParams;
 
	constant TriggerParams : TriggerFieldDefType :=(
		TriggerR			=> (BitLoc => 31, Address => x"6"),
		TriggerS			=> (BitLoc => 31, Address => x"8"),
		TriggerT			=> (BitLoc => 31, Address => x"8"));
 
end package WrimmPackage;
 
--package body WishBonePackage is
--
--
--
--end package body WishBonePackage;