OpenCores
URL https://opencores.org/ocsvn/t400/t400/trunk

Subversion Repositories t400

[/] [t400/] [trunk/] [rtl/] [vhdl/] [t400_io_in.vhd] - Diff between revs 45 and 52

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 45 Rev 52
Line 1... Line 1...
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
--
--
-- The IN port controller.
-- The IN port controller.
--
--
-- $Id: t400_io_in.vhd,v 1.1 2006-05-22 00:00:55 arniml Exp $
-- $Id: t400_io_in.vhd,v 1.2 2006-05-23 01:13:28 arniml Exp $
--
--
-- Copyright (c) 2006 Arnim Laeuger (arniml@opencores.org)
-- Copyright (c) 2006 Arnim Laeuger (arniml@opencores.org)
--
--
-- All rights reserved
-- All rights reserved
--
--
Line 91... Line 91...
  --
  --
  seq: process (ck_i, por_i)
  seq: process (ck_i, por_i)
    variable neg_edge_v : std_logic_vector(2 downto 0);
    variable neg_edge_v : std_logic_vector(2 downto 0);
  begin
  begin
    if por_i then
    if por_i then
      neg_edge_q <= (others => (others => '1'));
      neg_edge_q <= (others => (others => '0'));
      il_q       <= (others => '0');
      il_q       <= (others => '0');
 
 
    elsif ck_i'event and ck_i = '1' then
    elsif ck_i'event and ck_i = '1' then
      -- negative edge detector filp-flops ------------------------------------
      -- negative edge detector filp-flops ------------------------------------
      neg_edge_v(idx_in3_c) := io_in_i(3);
      neg_edge_v(idx_in3_c) := to_X01(io_in_i(3));
      neg_edge_v(idx_in0_c) := io_in_i(0);
      neg_edge_v(idx_in0_c) := to_X01(io_in_i(0));
      neg_edge_v(idx_int_c) := io_in_i(1);
      neg_edge_v(idx_int_c) := to_X01(io_in_i(1));
 
 
      if in_en_i then
      if in_en_i then
        neg_edge_q(0) <= neg_edge_v;
        neg_edge_q(0) <= neg_edge_v;
        neg_edge_q(1) <= neg_edge_q(0) or neg_edge_v;
        neg_edge_q(1) <= neg_edge_q(0) or neg_edge_v;
      end if;
      end if;
Line 144... Line 144...
 
 
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
-- File History:
-- File History:
--
--
-- $Log: not supported by cvs2svn $
-- $Log: not supported by cvs2svn $
 
-- Revision 1.1  2006/05/22 00:00:55  arniml
 
-- initial check-in
 
--
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
 
 
 No newline at end of file
 No newline at end of file

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.