From 3ffa1bce5f66a2c3d4152eedd5c9b464f5efa940 Mon Sep 17 00:00:00 2001
From: hadeshyp <hadeshyp>
Date: Wed, 19 Oct 2011 09:35:50 +0000
Subject: [PATCH] *** empty log message ***

---
 testbenches/command_sender.vhd | 51 ++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 testbenches/command_sender.vhd

diff --git a/testbenches/command_sender.vhd b/testbenches/command_sender.vhd
new file mode 100644
index 0000000..27b4453
--- /dev/null
+++ b/testbenches/command_sender.vhd
@@ -0,0 +1,51 @@
+LIBRARY IEEE;
+USE IEEE.std_logic_1164.ALL;
+USE IEEE.std_logic_UNSIGNED.ALL;
+
+
+entity command_sender is
+  port(
+    CLK        : in std_logic;
+    DATA       : out std_logic_vector(15 downto 0);
+    DATAREADY  : out std_logic;
+    PACKET_NUM : out std_logic_vector(2 downto 0)
+    );
+end entity;
+  
+
+architecture x of command_sender is
+
+
+type cmd_arr is array 0 to 14 of std_logic_vector(15 downto 0);
+type num_arr is array 0 to 4 of std_logic_vector(15 downto 0);
+constant commands : cmd_arr := (x"0031",x"FFFF",x"FFFF",x"FFFF",x"0008",
+                               (x"0030",x"0000",x"a0c0",x"affe",x"dead",
+                               (x"0033",x"0000",x"0000",x"0000",x"0008");
+                               
+                               
+constant packetnums : num_arr := ("100","000","001","010","011"); 
+begin
+
+process begin
+  stat_op    <= (others => '0');
+  dataready  <= '0';
+  data       <= (others => '0');
+  packet_num <= "100";
+
+  wait for 1 us;
+  wait until rising_edge(CLK); wait for 1 ns;
+
+
+  send_cmd : for i in 0 to commands'length-1 loop
+    dataready  <= '1';
+    data       <= commands(i);
+    packet_num <= packetnums(i mod 5);
+    wait until rising_edge(CLK); wait for 1 ns;
+    dataready  <= '0';
+  end loop;
+  
+  wait;
+end process;
+
+
+end architecture;
\ No newline at end of file
-- 
2.43.0