Subversion Repositories gecko3

--	Package File Template
--
--	Purpose: This package defines supplemental types, subtypes, 
--		 constants, and functions 
 
 
library IEEE;
use IEEE.STD_LOGIC_1164.all;
 
 
library work;
use work.USB_TMC_IP_Defs.all;
use work.USB_TMC_cmp.all;
 
 
package USB_TMC_func is
 
 
--  type <new_type> is
--    record
--        <type_name>        : std_logic_vector( 7 downto 0);
--        <type_name>        : std_logic;
--    end record;
--
---- Declare constants
--
--  constant <constant_name>		: time := <time_unit> ns;
--  constant <constant_name>		: integer := <value>;
-- 
---- Declare functions and procedure
--
--  function <function_name>  (signal <signal_name> : in <type_declaration>) return <type_declaration>;
--  procedure <procedure_name>	(<type_declaration> <constant_name>	: in <type_declaration>);
 
procedure rst_header_Reg  (signal reg : out tHeaderReg);
 
procedure wr_header_Reg_element (variable bl : in integer;
                                 signal data : in std_logic_vector(SIZE_DBUS_GPIF-1 downto 0);
                                 signal reg : out tHeaderReg);
 
procedure rd_header_Reg_element (variable bl : in integer;
                                 signal reg : in tHeaderReg;
                                 signal data : out std_logic_vector(SIZE_DBUS_GPIF-1 downto 0));
 
 
end USB_TMC_func;
 
 
package body USB_TMC_func is
--
---- Example 1
--  function <function_name>  (signal <signal_name> : in <type_declaration>  ) return <type_declaration> is
--    variable <variable_name>     : <type_declaration>;
--  begin
--    <variable_name> := <signal_name> xor <signal_name>;
--    return <variable_name>; 
--  end <function_name>;
--
--
---- Example 2
--  function <function_name>  (signal <signal_name> : in <type_declaration>;
--                         signal <signal_name>   : in <type_declaration>  ) return <type_declaration> is
--  begin
--    if (<signal_name> = '1') then
--      return <signal_name>;
--    else
--      return 'Z';
--    end if;
--  end <function_name>;
--
---- Procedure Example
--  procedure <procedure_name>  (<type_declaration> <constant_name>  : in <type_declaration>) is
--    
--  begin
--    
--  end <procedure_name>;
 
procedure rst_header_Reg  (signal reg : out tHeaderReg) is
 
  begin
  	 reg.MsgID   <= (others => '0');
	 reg.bTag    <= (others => '0');
	 reg.bTagInv <= (others => '0');
	 reg.res1    <= (others => '0');
	 reg.TfSize  <= (others => '0');
	 reg.bmTfAtt <= (others => '0');
    reg.GPByte1 <= (others => '0');
	 reg.GPByte2 <= (others => '0');
	 reg.GPByte3 <= (others => '0');
 
end rst_header_Reg;
 
procedure wr_header_Reg_element (variable bl : in integer;
                                 signal data : in std_logic_vector(SIZE_DBUS_GPIF-1 downto 0);
                                 signal reg : out tHeaderReg) is
 
begin
	case bl is
 
	  when 0 =>
	         reg.MsgID   <= data(BYTE-1 downto 0);
	         reg.bTag    <= data((2*BYTE)-1 downto BYTE);
	  when 1 =>
	         reg.bTagInv <= data(BYTE-1 downto 0);
	         reg.res1    <= data((2*BYTE)-1 downto BYTE);
	  when 2 =>
	         reg.TfSize((2*BYTE)-1 downto 0)      <= data;
	  when 3 =>
	         reg.TfSize((4*BYTE)-1 downto 2*BYTE) <= data;
	  when 4 =>
	         reg.bmTfAtt <= data(BYTE-1 downto 0);
	         reg.GPByte1 <= data((2*BYTE)-1 downto BYTE);
	  when 5 =>
	         reg.GPByte2 <= data(BYTE-1 downto 0);
	         reg.GPByte3 <= data((2*BYTE)-1 downto BYTE);
	  when others =>
   end case;
end wr_header_Reg_element;
 
 
 
procedure rd_header_Reg_element (variable bl : in integer;
                                 signal reg : in tHeaderReg;
                                 signal data : out std_logic_vector(SIZE_DBUS_GPIF-1 downto 0)) is
 
   begin
 
	case bl is
	  when 0 =>
	         data <= reg.MsgID & reg.bTag;
	  when 1 =>
	         data <= reg.bTagInv & reg.res1;
	  when 2 =>
	         data <= reg.TfSize((2*BYTE)-1 downto 0);
	  when 3 =>
	         data <= reg.TfSize((4*BYTE)-1 downto 2*BYTE);
	  when 4 =>
	         data <= reg.bmTfAtt & reg.GPByte1;
	  when 5 =>
	         data <= reg.GPByte2 & reg.GPByte3;
	  when others =>
            data <= (others => 'X');
	end case;
 
end rd_header_Reg_element;
 
 
end USB_TMC_func;