Subversion Repositories z80soc

-- VHDL CODE by Gerry O'Brien - HD44780 LCD Controller STATE_MACHINE
--==================================================--
--
-- VHDL Architecture DE2_LCD_lib.TOP_LCD_DE2.LCD_DISPLAY_arch
--
-- Created:
--          by - Gerry O'Brien 
--          WWW.DIGITAL-CIRCUITRY.COM
--          at - 15:30:18 26/03/2015
-- 
-- using Mentor Graphics HDL Designer(TM) 2010.3 (Build 21)
--
LIBRARY IEEE;
USE  IEEE.STD_LOGIC_1164.all;
USE  IEEE.STD_LOGIC_ARITH.all;
USE  IEEE.STD_LOGIC_UNSIGNED.all;
 
 
ENTITY LCD IS
 
   PORT( 
		reset             : IN     std_logic;  -- Map this Port to a Switch within your [Port Declarations / Pin Planer]  
		CLOCK_50          : IN     std_logic;  -- Using the DE2 50Mhz Clk, in order to Genreate the 400Hz signal... clk_count_400hz reset count value must be set to:  <= x"0F424"
		LCD_RS            : OUT    std_logic;
		LCD_EN            : OUT    std_logic;
		LCD_RW            : OUT    std_logic;
		LCD_ON            : OUT    std_logic;
		LCD_BLON          : OUT    std_logic;
		LCD_DATA          : INOUT 	STD_LOGIC_VECTOR(7 DOWNTO 0);
		lcd_on_sig		  : IN		STD_LOGIC;
		next_char		  : IN 		STD_LOGIC_VECTOR(7 DOWNTO 0);
		char_count        : OUT 	STD_LOGIC_VECTOR(4 downto 0);
		clk400hz	      : OUT		STD_LOGIC
   );
 
END LCD ;
 
--
ARCHITECTURE RTL OF LCD IS
 
  type state_type is (hold, func_set, display_on, mode_set, print_string,
                      line2, return_home, drop_LCD_EN, reset1, reset2,
                       reset3, display_off, display_clear);
 
  signal state, next_command         : state_type;
 
  signal data_bus_value				 : STD_LOGIC_VECTOR(7 downto 0);
  signal clk_count_400hz             : STD_LOGIC_VECTOR(19 downto 0);
  signal char_count_sig              : STD_LOGIC_VECTOR(4 downto 0);
  signal clk_400hz_enable,LCD_RW_int : std_logic; 
  signal data_bus                    : STD_LOGIC_VECTOR(7 downto 0);	
  signal LCD_CHAR_ARRAY              : STD_LOGIC_VECTOR(3 DOWNTO 0);
 
BEGIN
 
LCD_DATA 	<= data_bus;
data_bus 	<= data_bus_value when LCD_RW_int = '0' else "ZZZZZZZZ";
LCD_RW 		<= LCD_RW_int;
char_count	<= char_count_sig;
clk400hz		<= clk_400hz_enable;
 
--======================= CLOCK SIGNALS ============================--  
process(CLOCK_50)
begin
      if (rising_edge(CLOCK_50)) then
         if (reset = '0') then
            clk_count_400hz <= x"00000";
            clk_400hz_enable <= '0';
         else
            if (clk_count_400hz <= x"0F424") then          -- If using the DE2 50Mhz Clock,  use clk_count_400hz <= x"0F424"  (50Mhz/400hz = 12500 converted to HEX = 0F424 )   
                   clk_count_400hz <= clk_count_400hz + 1; --  In Theory for a 27Mhz Clock,  use clk_count_400hz <= x"01A5E"  (27Mhz/400hz = 6750  converted to HEX = 01A5E )                                       
                   clk_400hz_enable <= '0';                --  In Theory for a 25Mhz Clock.  use clk_count_400hz <= x"0186A"  (25Mhz/400hz = 6250  converted to HEX = 0186A )
            else
                   clk_count_400hz <= x"00000";
                   clk_400hz_enable <= '1';
            end if;
         end if;
      end if;
end process;  
--==================================================================--    
 
--======================== LCD DRIVER CORE ==============================--   
--                     STATE MACHINE WITH RESET                          -- 
--===================================================-----===============--  
process (CLOCK_50, reset)
begin
        if reset = '0' then
           state <= reset1;
           data_bus_value <= x"38"; -- RESET
           next_command <= reset2;
           LCD_EN <= '1';
           LCD_RS <= '0';
           LCD_RW_int <= '0';
 
        elsif rising_edge(CLOCK_50) then
             if clk_400hz_enable = '1' then  
 
 
 
              --========================================================--                 
              -- State Machine to send commands and data to LCD DISPLAY
              --========================================================--
                 case state is
                 -- Set Function to 8-bit transfer and 2 line display with 5x8 Font size
                 -- see Hitachi HD44780 family data sheet for LCD command and timing details
 
 
 
--======================= INITIALIZATION START ============================--
                       when reset1 =>
                            LCD_EN <= '1';
                            LCD_RS <= '0';
                            LCD_RW_int <= '0';
                            data_bus_value <= x"38"; -- EXTERNAL RESET
                            state <= drop_LCD_EN;
                            next_command <= reset2;
                            char_count_sig <= "00000";
 
                       when reset2 =>
                            LCD_EN <= '1';
                            LCD_RS <= '0';
                            LCD_RW_int <= '0';
                            data_bus_value <= x"38"; -- EXTERNAL RESET
                            state <= drop_LCD_EN;
                            next_command <= reset3;
 
                       when reset3 =>
                            LCD_EN <= '1';
                            LCD_RS <= '0';
                            LCD_RW_int <= '0';
                            data_bus_value <= x"38"; -- EXTERNAL RESET
                            state <= drop_LCD_EN;
                            next_command <= func_set;
 
 
                       -- Function Set
                       --==============--
                       when func_set =>                
                            LCD_EN <= '1';
                            LCD_RS <= '0';
                            LCD_RW_int <= '0';
                            data_bus_value <= x"38";  -- Set Function to 8-bit transfer, 2 line display and a 5x8 Font size
                            state <= drop_LCD_EN;
                            next_command <= display_off;
 
 
 
                       -- Turn off Display
                       --==============-- 
                       when display_off =>
                            LCD_EN <= '1';
                            LCD_RS <= '0';
                            LCD_RW_int <= '0';
                            data_bus_value <= x"08"; -- Turns OFF the Display, Cursor OFF and Blinking Cursor Position OFF.......(0F = Display ON and Cursor ON, Blinking cursor position ON)
                            state <= drop_LCD_EN;
                            next_command <= display_clear;
 
 
                       -- Clear Display 
                       --==============--
                       when display_clear =>
                            LCD_EN <= '1';
                            LCD_RS <= '0';
                            LCD_RW_int <= '0';
                            data_bus_value <= x"01"; -- Clears the Display    
                            state <= drop_LCD_EN;
                            next_command <= display_on;
 
 
 
                       -- Turn on Display and Turn off cursor
                       --===================================--
                       when display_on =>
                            LCD_EN <= '1';
                            LCD_RS <= '0';
                            LCD_RW_int <= '0';
                            data_bus_value <= x"0C"; -- Turns on the Display (0E = Display ON, Cursor ON and Blinking cursor OFF) 
                            state <= drop_LCD_EN;
                            next_command <= mode_set;
 
 
                       -- Set write mode to auto increment address and move cursor to the right
                       --====================================================================--
                       when mode_set =>
                            LCD_EN <= '1';
                            LCD_RS <= '0';
                            LCD_RW_int <= '0';
                            data_bus_value <= x"06"; -- Auto increment address and move cursor to the right
                            state <= drop_LCD_EN;
                            next_command <= print_string; 
 
 
--======================= INITIALIZATION END ============================--                          
 
 
 
 
--=======================================================================--                           
--               Write ASCII hex character Data to the LCD
--=======================================================================--
                       when print_string =>          
                            state <= drop_LCD_EN;
                            LCD_EN <= '1';
                            LCD_RS <= '1';
                            LCD_RW_int <= '0';
 
 
                               -- ASCII character to output
                               if (next_char(7 downto 4) /= x"0") then
                                  data_bus_value <= next_char;
                               else
 
                                    -- Convert 4-bit value to an ASCII hex digit
                                    if next_char(3 downto 0) >9 then 
 
                                    -- ASCII A...F
                                      data_bus_value <= x"4" & (next_char(3 downto 0)-9); 
                                    else 
 
                                    -- ASCII 0...9
                                      data_bus_value <= x"3" & next_char(3 downto 0);
                                    end if;
                               end if;
 
                            state <= drop_LCD_EN; 
 
 
 
                            -- Loop to send out 32 characters to LCD Display (16 by 2 lines)
                               if (char_count_sig < 31) AND (next_char /= x"fe") then
                                   char_count_sig <= char_count_sig +1;                            
                               else
                                   char_count_sig <= "00000";
                               end if;
 
 
 
                            -- Jump to second line?
                               if char_count_sig = 15 then 
                                  next_command <= line2;
 
 
 
                            -- Return to first line?
                               elsif (char_count_sig = 31) or (next_char = x"fe") then
                                     next_command <= return_home;
                               else 
                                     next_command <= print_string; 
                               end if; 
 
 
 
                       -- Set write address to line 2 character 1
                       --======================================--
                       when line2 =>
                            LCD_EN <= '1';
                            LCD_RS <= '0';
                            LCD_RW_int <= '0';
                            data_bus_value <= x"c0";
                            state <= drop_LCD_EN;
                            next_command <= print_string;      
 
 
                       -- Return write address to first character position on line 1
                       --=========================================================--
                       when return_home =>
                            LCD_EN <= '1';
                            LCD_RS <= '0';
                            LCD_RW_int <= '0';
                            data_bus_value <= x"80";
                            state <= drop_LCD_EN;
                            next_command <= print_string; 
 
 
 
                       -- The next states occur at the end of each command or data transfer to the LCD
                       -- Drop LCD E line - falling edge loads inst/data to LCD controller
                       --============================================================================--
                       when drop_LCD_EN =>
                            LCD_EN <= '0';
                            state <= hold;
 
                       -- Hold LCD inst/data valid after falling edge of E line
                       --====================================================--
                       when hold =>
                            state <= next_command;
                            LCD_BLON <= '1';
                            -- roni LCD_ON   <= '1';
									 LCD_ON <= lcd_on_sig;
                       end case;
 
 
 
 
             end if;-- CLOSING STATEMENT FOR "IF clk_400hz_enable = '1' THEN"
 
      end if;-- CLOSING STATEMENT FOR "IF reset = '0' THEN" 
 
end process;                                                            
 
END ARCHITECTURE RTL;