---------------------------------------------------------------------
|
---------------------------------------------------------------------
|
---- ----
|
---- ----
|
---- Generic Up/Down counter (ripple carry architecture) ----
|
---- Generic Up/Down counter (ripple carry architecture) ----
|
---- ----
|
---- ----
|
---- Author: Richard Herveille ----
|
---- Author: Richard Herveille ----
|
---- richard@asics.ws ----
|
---- richard@asics.ws ----
|
---- www.asics.ws ----
|
---- www.asics.ws ----
|
---- ----
|
---- ----
|
---------------------------------------------------------------------
|
---------------------------------------------------------------------
|
---- ----
|
---- ----
|
---- Copyright (C) 2001, 2002 Richard Herveille ----
|
---- Copyright (C) 2001, 2002 Richard Herveille ----
|
---- richard@asics.ws ----
|
---- richard@asics.ws ----
|
---- ----
|
---- ----
|
---- This source file may be used and distributed without ----
|
---- This source file may be used and distributed without ----
|
---- restriction provided that this copyright statement is not ----
|
---- restriction provided that this copyright statement is not ----
|
---- removed from the file and that any derivative work contains ----
|
---- removed from the file and that any derivative work contains ----
|
---- the original copyright notice and the associated disclaimer.----
|
---- the original copyright notice and the associated disclaimer.----
|
---- ----
|
---- ----
|
---- THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY ----
|
---- THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY ----
|
---- EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED ----
|
---- EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED ----
|
---- TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS ----
|
---- TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS ----
|
---- FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL THE AUTHOR ----
|
---- FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL THE AUTHOR ----
|
---- OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, ----
|
---- OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, ----
|
---- INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES ----
|
---- INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES ----
|
---- (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE ----
|
---- (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE ----
|
---- GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR ----
|
---- GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR ----
|
---- BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF ----
|
---- BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF ----
|
---- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ----
|
---- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ----
|
---- (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT ----
|
---- (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT ----
|
---- OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ----
|
---- OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ----
|
---- POSSIBILITY OF SUCH DAMAGE. ----
|
---- POSSIBILITY OF SUCH DAMAGE. ----
|
---- ----
|
---- ----
|
---------------------------------------------------------------------
|
---------------------------------------------------------------------
|
|
|
--
|
--
|
-- CVS Log
|
-- CVS Log
|
--
|
--
|
-- $Id: ud_cnt.vhd,v 1.1 2002-03-01 03:49:03 rherveille Exp $
|
-- $Id: ud_cnt.vhd,v 1.1 2002-03-01 03:49:03 rherveille Exp $
|
--
|
--
|
-- $Date: 2002-03-01 03:49:03 $
|
-- $Date: 2002-03-01 03:49:03 $
|
-- $Revision: 1.1 $
|
-- $Revision: 1.1 $
|
-- $Author: rherveille $
|
-- $Author: rherveille $
|
-- $Locker: $
|
-- $Locker: $
|
-- $State: Exp $
|
-- $State: Exp $
|
--
|
--
|
-- Change History:
|
-- Change History:
|
-- $Log: not supported by cvs2svn $
|
-- $Log: not supported by cvs2svn $
|
|
|
|
|
library ieee;
|
library ieee;
|
use ieee.std_logic_1164.all;
|
use ieee.std_logic_1164.all;
|
use ieee.std_logic_arith.all;
|
use ieee.std_logic_arith.all;
|
|
|
entity ud_cnt is
|
entity ud_cnt is
|
generic(
|
generic(
|
SIZE : natural := 8;
|
SIZE : natural := 8;
|
RESD : natural := 0
|
RESD : natural := 0
|
);
|
);
|
port(
|
port(
|
clk : in std_logic; -- master clock
|
clk : in std_logic; -- master clock
|
nReset : in std_logic := '1'; -- asynchronous active low reset
|
nReset : in std_logic := '1'; -- asynchronous active low reset
|
rst : in std_logic := '0'; -- synchronous active high reset
|
rst : in std_logic := '0'; -- synchronous active high reset
|
|
|
cnt_en : in std_logic := '1'; -- count enable
|
cnt_en : in std_logic := '1'; -- count enable
|
ud : in std_logic := '0'; -- up / not down
|
ud : in std_logic := '0'; -- up / not down
|
nld : in std_logic := '1'; -- synchronous active low load
|
nld : in std_logic := '1'; -- synchronous active low load
|
d : in unsigned(SIZE -1 downto 0); -- load counter value
|
d : in unsigned(SIZE -1 downto 0); -- load counter value
|
q : out unsigned(SIZE -1 downto 0); -- current counter value
|
q : out unsigned(SIZE -1 downto 0); -- current counter value
|
|
|
rci : in std_logic := '1'; -- carry input
|
rci : in std_logic := '1'; -- carry input
|
rco : out std_logic -- carry output
|
rco : out std_logic -- carry output
|
);
|
);
|
end entity ud_cnt;
|
end entity ud_cnt;
|
|
|
architecture structural of ud_cnt is
|
architecture structural of ud_cnt is
|
signal Qi : unsigned(SIZE -1 downto 0);
|
signal Qi : unsigned(SIZE -1 downto 0);
|
signal val : unsigned(SIZE downto 0);
|
signal val : unsigned(SIZE downto 0);
|
begin
|
begin
|
val <= ( ('0' & Qi) + rci) when (ud = '1') else ( ('0' & Qi) - rci);
|
val <= ( ('0' & Qi) + rci) when (ud = '1') else ( ('0' & Qi) - rci);
|
|
|
regs: process(clk, nReset)
|
regs: process(clk, nReset)
|
begin
|
begin
|
if (nReset = '0') then
|
if (nReset = '0') then
|
Qi <= conv_unsigned(RESD, SIZE);
|
Qi <= conv_unsigned(RESD, SIZE);
|
elsif (clk'event and clk = '1') then
|
elsif (clk'event and clk = '1') then
|
if (rst = '1') then
|
if (rst = '1') then
|
Qi <= conv_unsigned(RESD, SIZE);
|
Qi <= conv_unsigned(RESD, SIZE);
|
else
|
else
|
if (nld = '0') then
|
if (nld = '0') then
|
Qi <= D;
|
Qi <= D;
|
elsif (cnt_en = '1') then
|
elsif (cnt_en = '1') then
|
Qi <= val(SIZE -1 downto 0);
|
Qi <= val(SIZE -1 downto 0);
|
end if;
|
end if;
|
end if;
|
end if;
|
end if;
|
end if;
|
end process regs;
|
end process regs;
|
|
|
-- assign outputs
|
-- assign outputs
|
Q <= Qi;
|
Q <= Qi;
|
rco <= val(SIZE);
|
rco <= val(SIZE);
|
end architecture structural;
|
end architecture structural;
|
|
|
|
|