Subversion Repositories gpib_controller

--------------------------------------------------------------------------------

-- Entity: WriterControlReg0

-- Date:2011-11-10  

-- Author: Administrator     

--

-- Description ${cursor}

--------------------------------------------------------------------------------

library ieee;

use ieee.std_logic_1164.all;

use ieee.std_logic_unsigned.all;

use work.utilPkg.all;

use work.helperComponents.all;

entity WriterControlReg0 is

        port (

                clk : in std_logic;

                reset : in std_logic;

                strobe : in std_logic;

                data_in : in std_logic_vector (15 downto 0);

                data_out : out std_logic_vector (15 downto 0);

                ------------------- gpib -------------------------

                -- buffer consumed

                buf_interrupt : in std_logic;

                -- data avilable - at least one byte in buffer

                data_available : out std_logic;

                -- indicates end of stream

                end_of_stream : out std_logic;

                -- resets buffer

                reset_buffer : out std_logic;

                -- secondary address of data

                dataSecAddr : out std_logic_vector (4 downto 0);

                -- serial poll status byte

                status_byte : out std_logic_vector (6 downto 0)

        );

end WriterControlReg0;

architecture arch of WriterControlReg0 is

        signal i_data_available : std_logic;

        signal i_end_of_stream : std_logic;

        signal i_reset_buffer : std_logic;

        signal i_dataSecAddr : std_logic_vector (4 downto 0);

        signal i_status_byte : std_logic_vector (6 downto 0);

        signal t_in, t_out : std_logic;

begin

        data_out(0) <= buf_interrupt;

        data_out(1) <= i_data_available;

        data_out(2) <= i_end_of_stream;

        data_out(3) <= i_reset_buffer;

        data_out(8 downto 4) <= i_dataSecAddr;

        data_out(15 downto 9) <= i_status_byte;

        data_available <= i_data_available;

        end_of_stream <= i_end_of_stream;

        reset_buffer <= i_reset_buffer;

        dataSecAddr <= i_dataSecAddr;

        status_byte <= i_status_byte;

        process (reset, strobe) begin

                if reset = '1' then

                        t_in <= '0';

                        i_data_available <= '1';

                elsif rising_edge(strobe) then

                        i_data_available <= data_in(1);

                        i_end_of_stream <= data_in(2);

                        if data_in(3) = '1' then

                                t_in <= not t_out;

                        end if;

                        i_dataSecAddr <= data_in(8 downto 4);

                        i_status_byte <= data_in(15 downto 9);

                end if;

        end process;

        spg: SinglePulseGenerator generic map (WIDTH => 3) port map(

                reset => reset, clk => clk,

                t_in => t_in, t_out => t_out,

                pulse => i_reset_buffer

        );

end arch;