----------------------------------------------------------------------------------
|
----------------------------------------------------------------------------------
|
-- Company: Czech Television
|
-- Company: Czech Television
|
-- Engineer: Petr Nohavica
|
-- Engineer: Petr Nohavica
|
--
|
--
|
-- Create Date: 09:02:45 05/09/2009
|
-- Create Date: 09:02:45 05/09/2009
|
-- Module Name: aes3rx - Behavioral
|
-- Module Name: aes3rx - Behavioral
|
-- Project Name: AES3 minimalistic receiver
|
-- Project Name: AES3 minimalistic receiver
|
-- Target Devices: Spartan 3
|
-- Target Devices: Spartan 3
|
-- Tool versions: ISE 10.1
|
-- Tool versions: ISE 10.1
|
----------------------------------------------------------------------------------
|
----------------------------------------------------------------------------------
|
|
|
library IEEE;
|
library IEEE;
|
use IEEE.STD_LOGIC_1164.ALL;
|
use IEEE.STD_LOGIC_1164.ALL;
|
use IEEE.STD_LOGIC_ARITH.ALL;
|
use IEEE.STD_LOGIC_ARITH.ALL;
|
use IEEE.STD_LOGIC_UNSIGNED.ALL;
|
use IEEE.STD_LOGIC_UNSIGNED.ALL;
|
|
|
|
Library UNISIM;
|
|
use UNISIM.vcomponents.all;
|
|
|
entity aes3rx is
|
entity aes3rx is
|
generic (
|
generic (
|
reg_width : integer := 5
|
reg_width : integer := 4
|
);
|
);
|
port (
|
port (
|
clk : in std_logic; -- master clock
|
clk_in: in std_logic; -- master clock
|
aes3 : in std_logic; -- input
|
aes3 : in std_logic; -- input
|
reset : in std_logic; -- synchronous reset
|
reset : in std_logic; -- synchronous reset
|
|
|
sdata : out std_logic := '0'; -- output serial data
|
sdata : out std_logic := '0'; -- output serial data
|
sclk : out std_logic := '0'; -- output serial data clock
|
sclk : out std_logic := '0'; -- output serial data clock
|
bsync : out std_logic := '0'; -- block start (high when Z subframe is being transmitted)
|
bsync : out std_logic := '0'; -- block start (high when Z subframe is being transmitted)
|
fsync : out std_logic := '0'; -- frame sync (high for channel A, low for B)
|
lrck : out std_logic := '0'; -- frame sync (high for channel A, low for B)
|
active: out std_logic := '0' -- receiver has valid data on its outputs
|
active: out std_logic := '0' -- receiver has valid data on its outputs
|
);
|
);
|
end aes3rx;
|
end aes3rx;
|
|
|
architecture Behavioral of aes3rx is
|
architecture Behavioral of aes3rx is
|
constant X_PREAMBLE : std_logic_vector(7 downto 0) := "01000111"; -- X preamble bit sequence
|
constant X_PREAMBLE : std_logic_vector(7 downto 0) := "01000111"; -- X preamble bit sequence
|
constant Y_PREAMBLE : std_logic_vector(7 downto 0) := "00100111"; -- Y preamble bit sequence
|
constant Y_PREAMBLE : std_logic_vector(7 downto 0) := "00100111"; -- Y preamble bit sequence
|
constant Z_PREAMBLE : std_logic_vector(7 downto 0) := "00010111"; -- Z preamble bit sequence
|
constant Z_PREAMBLE : std_logic_vector(7 downto 0) := "00010111"; -- Z preamble bit sequence
|
|
|
signal aes3_sync : std_logic_vector(3 downto 0) := (others => '0'); -- input shift reg for double sampling, change detection and input delaying
|
signal aes3_sync : std_logic_vector(3 downto 0) := (others => '0'); -- input shift reg for double sampling, change detection and input delaying
|
signal change : std_logic := '0'; -- signal signifying a change on the input
|
signal change : std_logic := '0'; -- signal signifying a change on the input
|
signal aes3_clk : std_logic := '0'; -- recovered clock signal (actually a stream of pulses on supposed clock edges for implementation on single edge driven FFs)
|
signal aes3_clk : std_logic := '0'; -- recovered clock signal (actually a stream of pulses on supposed clock edges for implementation on single edge driven FFs)
|
signal decoder_shift : std_logic_vector(7 downto 0) := (others => '0'); -- decoder shift reg for preamble detection and logical state decoding
|
signal decoder_shift : std_logic_vector(7 downto 0) := (others => '0'); -- decoder shift reg for preamble detection and logical state decoding
|
signal align_counter : std_logic := '0'; -- 1 bit counter reset on preamble detection, provides correct bit alignement for decoder
|
signal align_counter : std_logic := '0'; -- 1 bit counter reset on preamble detection, provides correct bit alignement for decoder
|
signal clk_counter : std_logic_vector(reg_width - 1 downto 0) := (others => '0'); -- counter for aes3 clock regeneration
|
signal clk_counter : std_logic_vector(reg_width - 1 downto 0) := (others => '0'); -- counter for aes3 clock regeneration
|
signal dur_counter : std_logic_vector(reg_width + 1 downto 0) := (others => '0'); -- counts durration (in clk periods) of current input invariant state (i.e. from "edge to edge")
|
signal sync_timer : std_logic_vector(5 downto 0) := (others => '0'); -- timer counting input changes
|
signal upd_timer : std_logic_vector(5 downto 0) := (others => '0'); -- timer counting input changes
|
signal reg_clk_period : std_logic_vector(reg_width - 1 downto 0) := (others => '1'); -- copied from reg_shortest on update counter overflow, serves as reference for aes3 clock regeneration
|
signal reg_reset : std_logic := '0'; -- resets reg_shortest on upd_timer overflow
|
signal sync_lost : std_logic := '1';
|
signal reg_shortest : std_logic_vector(reg_width - 1 downto 0) := (others => '1'); -- stores durration of shortest measured input invariant state
|
signal preamble_detected: std_logic := '0';
|
signal reg_shortest_ref : std_logic_vector(reg_width - 1 downto 0) := (others => '1'); -- copied from reg_shortest on update counter overflow, serves as reference for aes3 clock regeneration
|
|
|
|
signal sdata_int : std_logic := '0'; -- internal sdata signal
|
signal sdata_int : std_logic := '0'; -- internal sdata signal
|
signal bsync_int : std_logic := '0'; -- internal bsync signal
|
signal bsync_int : std_logic := '0'; -- internal bsync signal
|
signal fsync_int : std_logic := '0'; -- internal fsync signal
|
signal lrck_int : std_logic := '0'; -- internal lrck signal
|
signal active_int : std_logic := '0'; -- internal active signal
|
|
signal sync_ok : std_logic := '0'; -- set high on preamble detection, set low on timeout
|
signal clk : std_logic := '0';
|
signal timeout : std_logic := '1'; -- when input pulse is too long, set high
|
|
begin
|
begin
|
|
|
|
clk <= clk_in;
|
|
|
------------------------------------------
|
------------------------------------------
|
-- input_shift_reg_proc
|
-- input_shift_reg_proc
|
-- Carries out input double sampling in
|
-- Carries out input double sampling in
|
-- order to avoid metastable states on FFs
|
-- order to avoid metastable states on FFs
|
-- and creation of delayed signals for
|
-- and creation of delayed signals for
|
-- change detector (1 clk period) and
|
-- change detector (1 clk period) and
|
-- decoder (2 clk periods)
|
-- decoder (2 clk periods)
|
------------------------------------------
|
------------------------------------------
|
input_shift_reg_proc: process (clk)
|
input_shift_reg_proc: process (clk)
|
begin
|
begin
|
if clk'event and clk = '1' then
|
if clk'event and clk = '1' then
|
if reset = '1' then
|
if reset = '1' then
|
aes3_sync <= (others => '0');
|
aes3_sync <= (others => '0');
|
else
|
else
|
aes3_sync <= aes3 & aes3_sync(3 downto 1); -- synthetizes shift reg
|
aes3_sync <= aes3 & aes3_sync(3 downto 1); -- synthetizes shift reg
|
end if;
|
end if;
|
end if;
|
end if;
|
end process;
|
end process;
|
|
|
------------------------------------------
|
------------------------------------------
|
-- change_detect_proc
|
-- change_detect_proc
|
-- Detects edge on sampled input in the
|
-- Detects edge on sampled input in the
|
-- way of comparsion of delayed input
|
-- way of comparsion of delayed input
|
-- and current state on XOR gate
|
-- and current state on XOR gate
|
------------------------------------------
|
------------------------------------------
|
change_detect_proc: process (clk)
|
change_detect_proc: process (clk)
|
begin
|
begin
|
if clk'event and clk = '1' then
|
if clk'event and clk = '1' then
|
if reset = '1' then
|
if reset = '1' then
|
change <= '0';
|
change <= '0';
|
else
|
else
|
change <= '0';
|
change <= '0';
|
if aes3_sync(2) /= aes3_sync(1) then
|
if aes3_sync(2) /= aes3_sync(1) then
|
change <= '1';
|
change <= '1';
|
end if;
|
end if;
|
end if;
|
end if;
|
end if;
|
end if;
|
end process;
|
end process;
|
|
|
------------------------------------------
|
aes3_clk_feedback: process (clk)
|
-- shortest_pulse_dur_cnt_proc
|
|
-- dur_counter counts number of clocks
|
|
-- between two input transitions and thus
|
|
-- effeciently measuring input pulse
|
|
-- (relative) durration. When input
|
|
-- changes its state, counter value is
|
|
-- compared with reg_shortest and if
|
|
-- counter's value is smaller than
|
|
-- register's one, reg_shortest is updated
|
|
-- from the counter.
|
|
------------------------------------------
|
|
|
|
shortest_pulse_dur_cnt_proc: process (clk)
|
|
begin
|
begin
|
if clk'event and clk = '1' then
|
if clk'event and clk = '1' then
|
if reset = '1' then
|
if reset = '1' then
|
reg_shortest <= (others => '1');
|
reg_clk_period <= (others => '1');
|
dur_counter <= (others => '0');
|
sync_timer <= (others => '0');
|
else
|
else
|
if change = '1' then
|
if preamble_detected = '1' then
|
timeout <= '0';
|
sync_timer <= (others => '0');
|
if dur_counter < reg_shortest then
|
sync_lost <= '0';
|
reg_shortest <= dur_counter(reg_width - 1 downto 0);
|
elsif aes3_clk = '1' then
|
end if;
|
if sync_timer = 63 then
|
dur_counter <= (others => '0');
|
if sync_lost = '1' then
|
elsif dur_counter = 2**(reg_width + 2) - 1 then
|
reg_clk_period <= reg_clk_period - 1;
|
timeout <= '1';
|
|
else
|
else
|
dur_counter <= dur_counter + 1;
|
reg_clk_period <= (others => '1');
|
|
sync_lost <= '1';
|
end if;
|
end if;
|
if reg_reset = '1' then
|
|
reg_shortest <= (others => '1');
|
|
end if;
|
end if;
|
end if;
|
sync_timer <= sync_timer + 1;
|
end if;
|
|
end process;
|
|
|
|
------------------------------------------
|
|
-- register_update_timer_proc
|
|
-- upd_timer is incremented by one when
|
|
-- change is detected on input. When 63
|
|
-- changes count is reached, reg_shortest
|
|
-- is copied to reg_shortest_ref and
|
|
-- reg_reset (which resets reg_shortest
|
|
-- in shortest_pulse_dur_cnt_proc) is
|
|
-- raised. 63 change count guarantees that
|
|
-- there was at least one "short" pulse
|
|
-- on input.
|
|
------------------------------------------
|
|
register_update_timer_proc: process (clk)
|
|
begin
|
|
if clk'event and clk = '1' then
|
|
reg_reset <= '0';
|
|
if reset = '1' then
|
|
reg_shortest_ref <= (others => '1');
|
|
upd_timer <= (others => '0');
|
|
else
|
|
if change = '1' then
|
|
if upd_timer = 63 then
|
|
reg_shortest_ref <= reg_shortest;
|
|
reg_reset <= '1';
|
|
end if;
|
|
upd_timer <= upd_timer + 1;
|
|
end if;
|
end if;
|
end if;
|
end if;
|
end if;
|
end if;
|
end process;
|
end process;
|
|
|
------------------------------------------
|
|
-- aes3_clk_regen_proc
|
|
-- Process regenerating clock from input.
|
|
-- When clk_counter counts to zero, pulse
|
|
-- one master clock period wide is created
|
|
-- on aes3_clk and counter is loaded with
|
|
-- reg_shortest_ref, which stores
|
|
-- supposed input clock half period
|
|
-- (relatively to master clock, indeed).
|
|
-- When change on input is detected,
|
|
-- clk_counter is loaded with approx. half
|
|
-- of reg_shortest_reg, thus ensuring that
|
|
-- next pulse will be generated in the
|
|
-- middle of input invariant state and
|
|
-- aes3_clk is effectively resynchronized
|
|
-- with input. aes3_clk is then
|
|
-- delayed by approx. one half of shortest
|
|
-- input pulse with respect to input
|
|
-- changes to provide decoder ideal
|
|
-- sampling moments and to ensure that,
|
|
-- when there are no transitions on input
|
|
-- (and aes3_clk is in "free run"),
|
|
-- there will be accurate clock pulse
|
|
-- count generated.
|
|
------------------------------------------
|
|
aes3_clk_regen_proc: process (clk)
|
aes3_clk_regen_proc: process (clk)
|
begin
|
begin
|
if clk'event and clk = '1' then
|
if clk'event and clk = '1' then
|
if reset = '1' then
|
if reset = '1' then
|
clk_counter <= (others => '0');
|
clk_counter <= (others => '0');
|
aes3_clk <= '0';
|
aes3_clk <= '0';
|
else
|
else
|
clk_counter <= clk_counter - 1;
|
clk_counter <= clk_counter - 1;
|
aes3_clk <= '0';
|
aes3_clk <= '0';
|
if change = '1' then
|
if change = '1' then
|
clk_counter <= '0' & reg_shortest_ref(reg_width - 1 downto 1);
|
clk_counter <= '0' & reg_clk_period(reg_width - 1 downto 1);
|
elsif clk_counter = 0 then
|
elsif clk_counter = 0 then
|
clk_counter <= reg_shortest_ref;
|
clk_counter <= reg_clk_period;
|
aes3_clk <= '1';
|
aes3_clk <= '1';
|
end if;
|
end if;
|
end if;
|
end if;
|
end if;
|
end if;
|
end process;
|
end process;
|
|
|
------------------------------------------
|
------------------------------------------
|
-- decoder_shift_reg_proc
|
-- decoder_shift_reg_proc
|
-- Eight bit shift register for preamble
|
-- Eight bit shift register for preamble
|
-- detection and decoder functionality.
|
-- detection and decoder functionality.
|
------------------------------------------
|
------------------------------------------
|
decoder_shift_reg_proc: process (clk)
|
decoder_shift_reg_proc: process (clk)
|
begin
|
begin
|
if clk'event and clk = '1' then
|
if clk'event and clk = '1' then
|
if reset = '1' then
|
if reset = '1' then
|
decoder_shift <= (others => '0');
|
decoder_shift <= (others => '0');
|
elsif aes3_clk = '1' then
|
elsif aes3_clk = '1' then
|
decoder_shift <= aes3_sync(0) & decoder_shift(7 downto 1);
|
decoder_shift <= aes3_sync(0) & decoder_shift(7 downto 1);
|
end if;
|
end if;
|
end if;
|
end if;
|
end process;
|
end process;
|
|
|
------------------------------------------
|
------------------------------------------
|
-- decoder_proc
|
-- decoder_proc
|
-- Compares shift register with preamble
|
-- Compares shift register with preamble
|
-- bit sequences and when one is detected,
|
-- bit sequences and when one is detected,
|
-- accoridngly changes sync signals and
|
-- accoridngly changes sync signals and
|
-- resets bit alignment counter
|
-- resets bit alignment counter
|
-- (align_counter). Data is decoded when
|
-- (align_counter). Bits are decoded when
|
-- align_counter is high.
|
-- align_counter is high.
|
------------------------------------------
|
------------------------------------------
|
decoder_proc: process (clk)
|
decoder_proc: process (clk)
|
begin
|
begin
|
if clk'event and clk = '1' then
|
if clk'event and clk = '1' then
|
if reset = '1' then
|
if reset = '1' then
|
fsync_int <= '0';
|
lrck_int <= '0';
|
bsync_int <= '0';
|
bsync_int <= '0';
|
sync_ok <= '0';
|
|
align_counter <= '0';
|
align_counter <= '0';
|
else
|
else
|
if timeout = '1' then
|
|
sync_ok <= '0';
|
|
end if;
|
|
if aes3_clk = '1' then
|
if aes3_clk = '1' then
|
align_counter <= not align_counter;
|
align_counter <= not align_counter;
|
|
preamble_detected <= '0';
|
if decoder_shift = X_PREAMBLE or decoder_shift = not X_PREAMBLE then
|
if decoder_shift = X_PREAMBLE or decoder_shift = not X_PREAMBLE then
|
fsync_int <= '1';
|
preamble_detected <= '1';
|
bsync_int <= '0';
|
|
sync_ok <= '1';
|
|
align_counter <= '0';
|
align_counter <= '0';
|
elsif decoder_shift = Y_PREAMBLE or decoder_shift = not Y_PREAMBLE then
|
|
fsync_int <= '0';
|
|
bsync_int <= '0';
|
bsync_int <= '0';
|
sync_ok <= '1';
|
lrck_int <= '1';
|
|
elsif decoder_shift = Y_PREAMBLE or decoder_shift = not Y_PREAMBLE then
|
|
preamble_detected <= '1';
|
align_counter <= '0';
|
align_counter <= '0';
|
|
bsync_int <= '0';
|
|
lrck_int <= '0';
|
elsif decoder_shift = Z_PREAMBLE or decoder_shift = not Z_PREAMBLE then
|
elsif decoder_shift = Z_PREAMBLE or decoder_shift = not Z_PREAMBLE then
|
fsync_int <= '1';
|
preamble_detected <= '1';
|
bsync_int <= '1';
|
|
sync_ok <= '1';
|
|
align_counter <= '0';
|
align_counter <= '0';
|
|
bsync_int <= '1';
|
|
lrck_int <= '1';
|
end if;
|
end if;
|
if align_counter = '1' then
|
if align_counter = '1' then
|
if decoder_shift(1) = decoder_shift(0) then
|
if decoder_shift(5) = decoder_shift(4) then
|
sdata_int <= '0';
|
sdata_int <= '0';
|
else
|
else
|
sdata_int <= '1';
|
sdata_int <= '1';
|
end if;
|
end if;
|
end if;
|
end if;
|
end if;
|
end if;
|
end if;
|
end if;
|
end if;
|
end if;
|
end process;
|
end process;
|
|
|
active_int <= sync_ok and not timeout and not reset;
|
activity_eval_proc: process (clk)
|
sclk <= align_counter and active_int;
|
begin
|
sdata <= sdata_int and active_int;
|
if clk'event and clk = '1' then
|
fsync <= fsync_int and active_int;
|
active <= not sync_lost;
|
bsync <= bsync_int and active_int;
|
sclk <= align_counter and not sync_lost;
|
active <= active_int;
|
sdata <= sdata_int and not sync_lost;
|
|
lrck <= lrck_int and not sync_lost;
|
|
bsync <= bsync_int and not sync_lost;
|
|
end if;
|
|
end process;
|
end Behavioral;
|
end Behavioral;
|
|
|
|
|