Subversion Repositories w11

-- $Id: tst_serloop_hiomap.vhd 476 2013-01-26 22:23:53Z mueller $
--
-- Copyright 2011- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
--
-- This program is free software; you may redistribute and/or modify it under
-- the terms of the GNU General Public License as published by the Free
-- Software Foundation, either version 2, or at your option any later version.
--
-- This program is distributed in the hope that it will be useful, but
-- WITHOUT ANY WARRANTY, without even the implied warranty of MERCHANTABILITY
-- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
-- for complete details.
--
------------------------------------------------------------------------------
-- Module Name:    tst_serloop_hiomap - syn
-- Description:    default human I/O mapper 
--
-- Dependencies:   -
-- Test bench:     -
--
-- Target Devices: generic
-- Tool versions:  xst 13.1; ghdl 0.29
--
-- Revision History: 
-- Date         Rev Version  Comment
-- 2011-12-09   437   1.0.2  rename serport stat->moni port
-- 2011-11-16   426   1.0.1  setup leds and dps
-- 2011-11-05   420   1.0    Initial version
------------------------------------------------------------------------------
--
-- Usage of Switches, Buttons, LEDs:
--
--    BTN(3):   -- unused --
--       (2):   -- unused --
--       (1):   load enables from SWI(7:4)
--                SWI(7) -> ENAFTDI
--                SWI(6) -> ENATHROTTLE
--                SWI(5) -> ENAESC
--                SWI(4) -> ENAXON
--       (0):   reset state  [!! decoded by top level design !!]
--
--    SWI(7:4)  select display or enable pattern (when BTN(1) pressed)
--       (3)    -- unused --
--       (2:1): mode  00  idle
--                    01  rxblast
--                    10  txblast
--                    11  loop
--    SWI(0)    0 -> main board RS232 port
--              1 -> Pmod1 RS232 port
--
--    LED(7)    enaesc
--       (6)    enaxon
--       (5)    rxfecnt > 0                     (frame error)
--       (4)    rxoecnt > 0                     (overrun error)
--       (3)    rxsecnt > 0                     (sequence error)
--       (2)    abact                           (shows ab activity)
--       (1)    (not rxok) or (not txok)        (shows back preasure)
--       (0)    rxact or txact                  (shows activity)
--
--    DSP       data as selected by SWI(7:4)
--                0000 -> rxfecnt
--                0001 -> rxoecnt
--                0010 -> rxsecnt
--                0100 -> rxcnt.l
--                0101 -> rxcnt.h
--                0110 -> txcnt.l
--                0111 -> txcnt.h
--                1000 -> rxokcnt
--                1001 -> txokcnt
--                1010 -> rxuicnt,rxuidat
--                1111 -> abclkdiv
--
--    DP(3):    not SER_MONI.txok   (shows tx back preasure)
--      (2):    SER_MONI.txact      (shows tx activity)
--      (1):    not SER_MONI.rxok   (shows rx back preasure)
--      (0):    SER_MONI.rxact      (shows rx activity)
--
 
library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;
 
use work.slvtypes.all;
use work.serportlib.all;
use work.tst_serlooplib.all;
 
-- ----------------------------------------------------------------------------
 
entity tst_serloop_hiomap is            -- default human I/O mapper 
  port (
    CLK : in slbit;                     -- clock
    RESET : in slbit;                   -- reset
    HIO_CNTL : out hio_cntl_type;       -- tester controls from hio
    HIO_STAT : in hio_stat_type;        -- tester status to diaplay by hio
    SER_MONI : in serport_moni_type;    -- serport monitor to display by hio
    SWI : in slv8;                      -- switch settings
    BTN : in slv4;                      -- button settings
    LED : out slv8;                     -- led data
    DSP_DAT : out slv16;                -- display data
    DSP_DP : out slv4                   -- display decimal points
  );
end tst_serloop_hiomap;
 
architecture syn of tst_serloop_hiomap is
 
  type regs_type is record
    enaxon : slbit;                     -- enable xon/xoff handling
    enaesc : slbit;                     -- enable xon/xoff escaping
    enathrottle : slbit;                -- enable 1 msec tx throttling
    enaftdi : slbit;                    -- enable ftdi flush handling
    dspdat : slv16;                     -- display data
  end record regs_type;
 
  constant regs_init : regs_type := (
    '0','0','0','0',                    -- enaxon,enaesc,enathrottle,enaftdi
    (others=>'0')                       -- dspdat
 
  );
 
  signal R_REGS : regs_type := regs_init;  -- state registers
  signal N_REGS : regs_type := regs_init;  -- next value state regs
 
begin
 
  proc_regs: process (CLK)
  begin
 
    if rising_edge(CLK) then
      if RESET = '1' then
        R_REGS <= regs_init;
      else
        R_REGS <= N_REGS;
      end if;
    end if;
 
  end process proc_regs;
 
  proc_next: process (R_REGS, HIO_STAT, SER_MONI, SWI, BTN)    
 
    variable r : regs_type := regs_init;
    variable n : regs_type := regs_init;
 
    variable icntl : hio_cntl_type := hio_cntl_init;
    variable iled  : slv8  := (others=>'0');
    variable idat  : slv16 := (others=>'0');
    variable idp   : slv4  := (others=>'0');
 
  begin
 
    r := R_REGS;
    n := R_REGS;
 
    icntl := hio_cntl_init;
    iled  := (others=>'0');
    idat  := (others=>'0');
    idp   := (others=>'0');
 
    -- handle BTN(1) "load enables" press
 
    if BTN(1) = '1' then
      n.enaxon  := SWI(4);
      n.enaesc  := SWI(5);
      n.enathrottle := SWI(6);
      n.enaftdi := SWI(7);
    end if;
 
    -- setup tester controls
 
    icntl.mode := SWI(2 downto 1);
    icntl.enaxon  := r.enaxon;
    icntl.enaesc  := r.enaesc;
    icntl.enathrottle := r.enathrottle;
    icntl.enaftdi := r.enaftdi;
 
    -- setup leds
    iled(7) := icntl.enaesc;
    iled(6) := icntl.enaxon;
    if unsigned(HIO_STAT.rxfecnt) > 0 then iled(5) := '1'; end if;
    if unsigned(HIO_STAT.rxoecnt) > 0 then iled(4) := '1'; end if;
    if unsigned(HIO_STAT.rxsecnt) > 0 then iled(3) := '1'; end if;
    iled(2) := SER_MONI.abact;
    iled(1) := (not SER_MONI.rxok) or (not SER_MONI.txok);
    iled(0) := SER_MONI.rxact or SER_MONI.txact;
 
    -- setup display data
 
    case SWI(7 downto 4) is
      when "0000" => idat := HIO_STAT.rxfecnt;
      when "0001" => idat := HIO_STAT.rxoecnt;
      when "0010" => idat := HIO_STAT.rxsecnt;
      when "0100" => idat := HIO_STAT.rxcnt(15 downto 0);
      when "0101" => idat := HIO_STAT.rxcnt(31 downto 16);
      when "0110" => idat := HIO_STAT.txcnt(15 downto 0);
      when "0111" => idat := HIO_STAT.txcnt(31 downto 16);
      when "1000" => idat := HIO_STAT.rxokcnt;
      when "1001" => idat := HIO_STAT.txokcnt;
      when "1010" => idat := HIO_STAT.rxuicnt & HIO_STAT.rxuidat;
      when "1111" => idat := SER_MONI.abclkdiv;
      when others => null;
    end case;
    n.dspdat := idat;
 
    -- setup display decimal points
 
    idp(3) := not SER_MONI.txok;        -- tx back preasure
    idp(2) := SER_MONI.txact;           -- tx activity
    idp(1) := not SER_MONI.rxok;        -- rx back preasure
    idp(0) := SER_MONI.rxact;           -- rx activity
 
    N_REGS <= n;
 
    HIO_CNTL <= icntl;
    LED      <= iled;
    DSP_DAT  <= r.dspdat;
    DSP_DP   <= idp;
 
  end process proc_next;
 
end syn;