lcd_controller.vhd

Go to the documentation of this file.

--**************************************************************
--*                                                            *
--*     The source code for the ATLAS BCM "AAA" FPGA is made   *
--*     available via the GNU General Public License (GPL)     *
--*     unless otherwise stated below.                         *
--*                                                            *
--*     In case of problems/questions/bug reports etc. please  *
--*     contact michael.niegl@cern.ch                          *
--*                                                            *
--**************************************************************

--**************************************************************
--*                                                            *
--*  $Source: /local/reps/bcmfpga/bcm_aaa/bcm_aaa/lcd/lcd_controller.vhd,v $                                                  *
--*  $Revision: 1.9.2.3 $                                                *
--*  $Name: dev $                                                    *
--*  $Author: mniegl $                                                  *
--*  $Date: 2008/11/03 17:57:46 $                                                    *


--*                                                            *
--**************************************************************


library ieee;

use ieee.std_logic_1164.all;

use ieee.std_logic_arith.all;

use ieee.std_logic_unsigned.all;

library work;
use work.lcd_characters.all;
use work.main_components.all;



entity lcd_controller is
  port (
    CLOCK_LCD       : in    std_logic;
    CLOCK_ANI_I     : in    std_logic;
    CLOCK_ANI_II    : in    std_logic;
    LINE_I          : in    lcd_line;
    LINE_II         : in    lcd_line;
    LINE_I_PAINT    : in    std_logic;
    LINE_II_PAINT   : in    std_logic;
    LINE_I_MODE     : in    std_logic_vector (1 downto 0);
    LINE_II_MODE    : in    std_logic_vector (1 downto 0);
    AUTO_REFRESH_I  : in    std_logic;
    AUTO_REFRESH_II : in    std_logic;
    BUSY            : out   std_logic;
    DIRECTION       : out   std_logic;
    RS              : out   std_logic;
    RW              : out   std_logic;
    DB              : inout std_logic_vector (7 downto 0);
    E               : out   std_logic);
end lcd_controller;

architecture lcd_controller_arc of lcd_controller is


  component lcd_commander is
    port (CLOCK     : in    std_logic;
          IN_RS     : in    std_logic;
          IN_DB     : in    std_logic_vector (7 downto 0);
          STROBE    : in    std_logic;
          BUSY      : out   std_logic := '1';
          RS        : out   std_logic;
          RW        : out   std_logic;
          DB        : inout std_logic_vector (7 downto 0);
          DIRECTION : out   std_logic;
          E         : out   std_logic);
  end component;

  signal int_rs             : std_logic                     := '0';
  signal int_strobe         : std_logic                     := '0';
  signal int_busy           : std_logic                     := '0';
  signal int_db             : std_logic_vector (7 downto 0) := "00000000";
  signal int_busy_commander : std_logic                     := '0';

  signal int_sample_paint_I  : std_logic := '0';
  signal int_sample_paint_II : std_logic := '0';
  signal int_line_I          : lcd_line  := (ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space);
  signal int_line_II         : lcd_line  := (ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space);
  signal int_text            : lcd_line  := (ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space);


  signal int_initialized : std_logic                     := '0';
  signal int_init_count  : std_logic_vector (3 downto 0) := "0000";


  signal int_state        : std_logic_vector (3 downto 0) := "0000";
  signal int_panint_state : std_logic_vector (3 downto 0) := "0000";
  signal int_cycle        : std_logic_vector (1 downto 0) := "00";


  signal int_sample_clock_I  : std_logic := '0';
  signal int_sample_clock_II : std_logic := '0';
  signal int_waiting_I       : std_logic := '0';
  signal int_waiting_II      : std_logic := '0';
  signal int_priority        : std_logic := '0';


  signal int_line : std_logic_vector (1 downto 0) := "00";


  signal int_counter_I  : std_logic_vector (4 downto 0) := "00000";
  signal int_counter_II : std_logic_vector (4 downto 0) := "00000";
  signal int_move_I     : std_logic                     := '1';
  signal int_move_II    : std_logic                     := '1';


  signal int_character : integer range 0 to 16 := 0;

  --signal int_orders : array (0 to 2) of std_logic_vector(2 downto 0);
begin


  commander : lcd_commander port map (
    CLOCK     => CLOCK_LCD ,
    IN_RS     => int_rs,
    IN_DB     => int_db,
    STROBE    => int_strobe ,
    BUSY      => int_busy_commander,
    RS        => RS,
    RW        => RW,
    DB        => DB,
    DIRECTION => DIRECTION,
    E         => E );


  lcd_clock : process (CLOCK_LCD) is    --positive edges
    variable var_mode : std_logic_vector (1 downto 0) := "00";
    variable move     : integer range 0 to 31         := 0;
  begin
    if (CLOCK_LCD'event and CLOCK_LCD = '1') then
      if int_initialized = '0' then
        if int_init_count = "1000" then
          if int_state = "0000"then

            int_state <= "0001";
            int_rs    <= '0';
            int_db    <= "00000001";
          elsif int_state = "0001" then
            int_state  <= "0010";
            int_strobe <= '1';
          elsif int_state = "0010" then
            int_state  <= "0011";
            int_strobe <= '0';
          elsif int_state = "0011" then

            if int_busy_commander = '0' then
              int_state <= "0100";

              int_rs    <= '0';
              int_db    <= "00111011";
            end if;
          elsif int_state = "0100" then
            int_state  <= "0101";
            int_strobe <= '1';
          elsif int_state = "0101" then
            int_state  <= "0110";
            int_strobe <= '0';
          elsif int_state = "0110" then

            if int_busy_commander = '0' then
              int_state <= "0111";

              int_rs    <= '0';
              int_db    <= "00001100";
            end if;
          elsif int_state = "0111" then
            int_state  <= "1000";
            int_strobe <= '1';
          elsif int_state = "1000" then
            int_state  <= "1001";
            int_strobe <= '0';
          elsif int_state = "1001" then

            if int_busy_commander = '0' then
              int_state <= "1010";

              int_rs    <= '0';
              int_db    <= "00000110";
            end if;
          elsif int_state = "1010" then
            int_state  <= "1011";
            int_strobe <= '1';
          elsif int_state = "1011" then
            int_state  <= "1100";
            int_strobe <= '0';
          elsif int_state = "1100" then

            if int_busy_commander = '0' then
              int_state       <= "0000";
              int_initialized <= '1';
              BUSY            <= '0';

            end if;
          end if;
        else
          int_init_count <= int_init_count + 1;
        end if;
      else

        if int_line = "00" then
          if int_priority = '0' then
            if int_waiting_I = '1' then
              int_line <= "01";
            else
              int_priority <= not int_priority;
            end if;
          else
            if int_waiting_II = '1' then  --the second line needs to be displayed
              int_line <= "10";
            else
              int_priority <= not int_priority;
            end if;
          end if;
        else
          if int_panint_state = "0000" then
            if int_line = "01" then
              var_mode := LINE_I_MODE;
            else
              var_mode := LINE_II_MODE;
            end if;
            if var_mode = "00" then
              if int_line = "01" then
                int_text <= int_line_I;
              else
                int_text <= int_line_II;
              end if;
            elsif var_mode = "01" then

              if int_line = "01" then
                if int_move_I = '1' then
                  int_counter_I <= int_counter_I + 1;
                end if;
                move := conv_integer(int_counter_I);
              else
                if int_move_II = '1' then
                  int_counter_II <= int_counter_II + 1;
                end if;
                move := conv_integer(int_counter_II);
              end if;

              for i in 0 to 15 loop
                if move <= 16 then
                  if i < move then
                    if int_line = "01" then
                      int_text(i) <= int_line_I(i+16-move);
                    else
                      int_text(i) <= int_line_II(i+16-move);
                    end if;
                  else
                    int_text(i) <= ch_space;
                  end if;
                else
                  if i < move-16 then
                    int_text(i) <= ch_space;
                  else
                    if int_line = "01" then
                      int_text(i) <= int_line_I(i+16-move);
                    else
                      int_text(i) <= int_line_II(i+16-move);
                    end if;
                  end if;
                end if;
              end loop;

            elsif var_mode = "10" then
              if int_line = "01" then
                int_text <= int_line_I;
              else
                int_text <= int_line_II;
              end if;

              if int_line = "01" then
                if int_move_I = '1' then
                  int_counter_I <= int_counter_I + 1;
                end if;
                move := conv_integer(int_counter_I);
              else
                if int_move_II = '1' then
                  int_counter_II <= int_counter_II + 1;
                end if;
                move := conv_integer(int_counter_II);
              end if;

              for i in 0 to 15 loop
                if move <= 16 then
                  if i < move then
                    if int_line = "01" then
                      int_text(i+16-move) <= int_line_I(i);
                    else
                      int_text(i+16-move) <= int_line_II(i);
                    end if;
                  else
                    int_text(15-i) <= ch_space;
                  end if;
                else
                  if i < 32-move then
                    if int_line = "01" then
                      int_text(i) <= int_line_I(move-16+i);
                    else
                      int_text(i) <= int_line_II(move-16+i);
                    end if;
                  else
                    int_text(i) <= ch_space;
                  end if;
                end if;
              end loop;
            elsif var_mode = "11" then

              if int_line = "01" then
                if int_move_I = '1' then
                  int_counter_I <= int_counter_I + 1;
                end if;
                move := conv_integer(int_counter_I(0));
              else
                if int_move_II = '1' then
                  int_counter_II <= int_counter_II + 1;
                end if;
                move := conv_integer(int_counter_II(0));
              end if;
              if move = 0 then
                if int_line = "01" then
                  int_text <= int_line_I;
                else
                  int_text <= int_line_II;
                end if;
              else
                int_text <= (ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space, ch_space);
              end if;
            end if;
            int_panint_state <= "0001";
          elsif int_panint_state = "0001" then

            int_panint_state <= "0010";
            int_rs           <= '0';
            if int_line = "01" then
              int_db <= "10000000";
            else
              int_db <= "11000000";
            end if;
            int_character <= 0;
            int_cycle     <= "00";
          elsif int_panint_state = "0010" and int_cycle = "00" then
            int_strobe <= '1';
            int_cycle  <= "01";
          elsif int_panint_state = "0010" and int_cycle = "01" then
            int_panint_state <= "0011";
            int_cycle        <= "00";
          elsif int_panint_state = "0011" then
            int_panint_state <= "0100";
            int_strobe       <= '0';
            int_rs           <= '1';
          elsif int_panint_state = "0100" and int_cycle = "00" then

            if int_busy_commander = '0' then
              if int_character = 16 then
                int_cycle        <= "00";
                int_character    <= 0;
                int_panint_state <= "0000";

                int_priority     <= not int_priority;
                int_line         <= "00";
                if int_line = "01" then
                  int_waiting_I <= '0';
                  int_move_I    <= '1';
                else
                  int_waiting_II <= '0';
                  int_move_II    <= '1';
                end if;
              else

                int_rs        <= '1';
                int_db        <= int_text(int_character);
                int_character <= int_character + 1;
                int_cycle     <= "01";
              end if;
            end if;
          elsif int_panint_state = "0100" and int_cycle = "01" then
            int_cycle  <= "10";
            int_strobe <= '1';
          elsif int_panint_state = "0100" and int_cycle = "10" then
            int_cycle <= "11";
          elsif int_panint_state = "0100" and int_cycle = "11" then
            int_cycle  <= "00";
            int_strobe <= '0';
          end if;
        end if;


        if int_sample_paint_I = '0' and LINE_I_PAINT = '1' then
          int_line_I <= LINE_I;
          if AUTO_REFRESH_I = '1' and int_waiting_I = '0' then
            int_move_I    <= '0';
            int_waiting_I <= '1';
          end if;
        end if;
        if int_sample_paint_II = '0' and LINE_II_PAINT = '1' then
          int_line_II <= LINE_II;
          if AUTO_REFRESH_II = '1' and int_waiting_II = '0' then
            int_move_II    <= '0';
            int_waiting_II <= '1';
          end if;
        end if;
        int_sample_paint_I  <= LINE_I_PAINT;
        int_sample_paint_II <= LINE_II_PAINT;


        if int_sample_clock_I = '0' and CLOCK_ANI_I = '1' then
          int_waiting_I <= '1';
          int_move_I    <= '1';
        end if;
        if int_sample_clock_II = '0' and CLOCK_ANI_II = '1' then
          int_waiting_II <= '1';
          int_move_II    <= '1';
        end if;
        int_sample_clock_I  <= CLOCK_ANI_I;
        int_sample_clock_II <= CLOCK_ANI_II;

      end if;
    end if;
  end process;

end lcd_controller_arc;

---

Author: M.Niegl

Generated on Tue Nov 4 00:47:04 2008 for BCM-AAA by  1.5.7.1-20081012