TITLE: BCD Counter in VHDL
AUTHOR: Chuck McManis
LAST UPDATE: 20-Mar-2001


The image at right is the schematic symbol for the BCD_COUNTER module. Three inputs and six outputs.

It is a very simple module and by decomposing the counting into individual digit modules, the VHDL to specify the counter became significantly easier to write. There are many ways to do this of course, perhaps a sub procedure or a function statement but this worked well.

The interesting bit about this counter is that it implements "part" of the suppress leading zeros protocol. It does this by asserting LZO (Leading Zero Out) if the counter before it asserted it and it is currently holding zero.

The Source Code

-- BCD_COUNTER.VHD                     Chuck McManis 22-Mar-01
-- This module implements a simple divide by 10 (binary coded decimal) 
-- counter. It has the added feature that it asserts "LZO" (leading
-- Zero Out) high if it is holding zero, and the "LZI" (leading zero
-- in) pin is also high. Thus a cascade of these can indicate to
-- external logic which digits should be blanked when leading zero
-- supression is desired.
library IEEE;

entity bcd_counter is
    Port (
        clk   : in std_logic;   -- count input
        reset : in std_logic;   -- resets count to 0
        carry : out std_logic;  -- Overflow (from 9)
        lzi   : in std_logic;   -- Leading Zero IN
        lzo   : out std_logic;  -- Leading Zero OUT
        q     : out std_logic_vector(3 downto 0)
end bcd_counter;

architecture behavioral of bcd_counter is
    signal h : std_logic_vector(3 downto 0);

    -- Primary counting process, one 4 bit latch holds the
    -- current count.
    CTR: process(clk,reset) is
        if (reset = '0') then
            h <= "0000";
            carry <= '0';
        elsif (clk'event and clk = '1') then
            if ( h = 9) then
                h <= "0000";
                carry <= '1';
                h <= h + 1;
                carry <= '0';
            end if;
        end if;
    end process;

    -- Assign holdign register to the output pins.
    q <= h;

    -- Set the state of the LZO pin based on H and LZI
    lzo <= '1' when (lzi = '1') and (h = "0000") else '0';

end behavioral;


Creative Commons License

This work is licensed under a Creative Commons Attribution-NonCommercial 3.0 Unported License. You are free to play around with it and modify it but you are not licensed to use it for commercial purposes. Click the link above for more details on your rights under this license.