library IEEE;
use IEEE.std_logic_1164.all;
use work.StimLog.all;

entity TestBench52 is
end TestBench52;

architecture behaviour of TestBench52 is

	signal Clk			: std_logic := '0';
	signal Rst_n		: std_logic := '0';
	signal RXD			: std_logic;
	signal RXD_IsOut	: std_logic;
	signal RXD_Out		: std_logic;
	signal TXD			: std_logic;
	signal INT0			: std_logic := '0';
	signal P0			: std_logic_vector(7 downto 0);
	signal P1			: std_logic_vector(7 downto 0);
	signal P2			: std_logic_vector(7 downto 0);
	signal P3			: std_logic_vector(7 downto 0);
	signal p3_out	: std_logic_vector(7 downto 0);
  signal XRAM_WE_s   : std_logic;
  signal XRAM_STB_s  : std_logic;
  signal XRAM_CYC_s  : std_logic;
  signal XRAM_ACK_s  : std_logic;
  signal XRAM_DATI_s : std_logic_vector(7 downto 0);
  signal XRAM_ADR_s  : std_logic_vector(15 downto 0);
  signal XRAM_DATO_s : std_logic_vector(7 downto 0);

begin

	u0 : entity work.T8052
		port map(
			Clk => Clk,
			Rst_n => Rst_n,
			P0_in => P0,
			P1_in => P1,
			P2_in => P2,
			P3_in => P3,
			P0_out => P0,
      P1_out => P1,
      P2_out => P2,
      P3_out => P3_out,
			INT0 => INT0,
			INT1 => '1',
			T0 => '1',
			T1 => '1',
			T2 => '1',
			T2EX => '1',
			RXD => RXD,
			RXD_IsO => RXD_IsOut,
			RXD_O => RXD_Out,
			TXD => TXD,
			XRAM_WE_O  => XRAM_WE_s, 
      XRAM_STB_O => XRAM_STB_s,
      XRAM_CYC_O => XRAM_CYC_s,
      XRAM_ACK_I => XRAM_ACK_s,
      XRAM_DAT_O => XRAM_DATO_s,
      XRAM_ADR_O => XRAM_ADR_s,
      XRAM_DAT_I => XRAM_DATI_s
			);
      
	P3(0) <= RXD;
	P3(7 downto 1) <= P3_out(7 downto 1);
	XRAM_DATI_s    <= (others => '1');
	XRAM_ACK_s     <= XRAM_STB_s;

	as : AsyncStim generic map(FileName => "BASIC.txt", InterCharDelay => 5000 us, Baud => 57600, Bits => 8)
				port map(RXD);

	al : AsyncLog generic map(FileName => "RX_Log.txt", Baud => 57600, Bits => 8)
				port map(TXD);

	Clk <= not Clk after 45 ns;
	Rst_n <= '1' after 200 ns;

	INT0 <= not INT0 after 100 us;

end;