Subversion Repositories gpib_controller

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

--This file is part of fpga_gpib_controller.

--

-- Fpga_gpib_controller is free software: you can redistribute it and/or modify

-- it under the terms of the GNU General Public License as published by

-- the Free Software Foundation, either version 3 of the License, or

-- (at your option) any later version.

--

-- Fpga_gpib_controller is distributed in the hope that it will be useful,

-- but WITHOUT ANY WARRANTY; without even the implied warranty of

-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

-- GNU General Public License for more details.

-- You should have received a copy of the GNU General Public License

-- along with Fpga_gpib_controller.  If not, see <http://www.gnu.org/licenses/>.

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

-- Entity: SecAddrSaver

-- Date:2011-11-11  

-- Author: Andrzej Paluch

--

-- Description ${cursor}

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

library ieee;

use ieee.std_logic_1164.all;

use ieee.std_logic_unsigned.all;

entity SecAddrSaver is

        port (

                reset : in std_logic;

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

                TADS : in std_logic;

                TPAS : in std_logic;

                LADS : in std_logic;

                LPAS : in std_logic;

                MSA_Dec : in std_logic;

                DI : in std_logic_vector(4 downto 0);

                currentSecAddr : out std_logic_vector(4 downto 0)

        );

end SecAddrSaver;

architecture arch of SecAddrSaver is

        signal goToSecAddressed : std_logic;

begin

        goToSecAddressed <= MSA_Dec and ((TADS and TPAS) or (LADS and LPAS));

        -- save secondary address

        process (reset, goToSecAddressed) begin

                if(reset = '1') then

                        currentSecAddr <= (others => '0');

                elsif rising_edge(goToSecAddressed) then

                        currentSecAddr <= DI(4 downto 0);

                end if;

        end process;

end arch;